fx-5800p全線坐標(biāo)正反算帶高程計算程序(線元法)(完整版)
【正文】 IfEndIf SA:Then →W:Else →W:IfEndAbs(AS)→LIf LT:Then B+WL→L:Else B+WL+C(TL)2247。 (4) 當(dāng)線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。 X0 ？線元起點的X坐標(biāo)(U) Y0 ？線元起點的Y坐標(biāo)(V) S0 ？線元起點里程(O) F0 ？線元起點切線方位角(G) LS ？線元長度(H) R0 ？線元起點曲率半徑(P) RN ？線元止點曲率半徑(R) Q ？ 線 元左右偏標(biāo)志(左偏Q=1，右偏Q=1，直線段Q=0) S ？ 正算時所求點的里程 1Z ？正算時所求點距中線的邊距(左側(cè)取負(fù)，值右側(cè)取正值，在中線上取零) 1ANG？正算邊樁時左右邊樁連線與線路中線的右交角 1J？曲線元數(shù)據(jù)庫曲線段判斷系數(shù)（J=2…..n） 1X ？反算時所求點的X坐標(biāo) 1Y ？反算時所求點的Y坐標(biāo)1M?斜交右角1Z[1]測站點X坐標(biāo)1Z[2] 測站點Y坐標(biāo)1A、B、N是GaussLegendre求積公式中的插值系數(shù)K 、L、Z[3] 是GaussLegendre求積公式中的求積節(jié)點2J=1時：Z[8]、Z[9]、Z[10]、Z[11]、Z[12]、Z[13]、Z[14]、Z[15]分別是各曲線元的X、Y坐標(biāo)、起始里程S0、初始方位角F0、線元長度Ls、起點半徑R0、終點半徑Rn、曲線偏向系數(shù)Q ……………………………………………………J=n時：Z[8J]、Z[8J+1]、Z[8J+2]、Z[8J+3]、Z[8J+4]、Z[8J+5]、Z[8J+6]、Z[8J+7]分別是各曲線元的X、Y坐標(biāo)、起始里程S0、初始方位角F0、線元長度Ls、起點半徑R0、終點半徑Rn、曲線偏向系數(shù)Q2正算中的Z[18]、Z[26]、Z[34]、Z[42]……Z[8（J+1）+2]分別為各線元中的終點里程2主程序中的“Defm 50”應(yīng)視具體線元的數(shù)量，適當(dāng)增加擴展變量。止點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。(2HPR)→D:180247。本修改版程序既可實現(xiàn)正算全線貫通，亦可實現(xiàn)反算全線貫通。2247。 (5) 當(dāng)線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以10的45次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。2本次修改版不考慮CASIO fx4500PA，因其容量太小，擴展變量實在太少而不能勝任。 (6) 當(dāng)線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設(shè)計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。P→C:(PR)247。曲線任意里程中邊樁坐標(biāo)正反算(CASIO fx5800P計算器)程序一、 程序功能及原理：本程序由一個主程序(TYQXJS)和五個子程——正算子程序(SUBZS)、反算子程序(SUBFS)等構(gòu)成，可以根據(jù)曲線段——直線、圓曲線、緩和曲線（完整或非完整型）的線元要素（起點坐標(biāo)、起點里程、起點切線方位角、線元長度、起點曲率半徑、止點曲率半徑）及里程邊距或坐標(biāo)，對該曲線段范圍內(nèi)任意里程中邊樁坐標(biāo)進(jìn)行正反算。R→L:IfEndReturn5. 垂距計算子程序(SUBZX1) (Z[5]Z[8J+1])cos(A)(Z[4]Z[8J])sin(A)→Z[6] (Z[5]Z[8(J+1)+1])cos(B)(Z[4]Z[8(J+1)])sin(B)→Z[7]Return：DAT1(兩條線路，可擴充為多條線路)(A1)If I=0:Then Goto E: Else If I=2:Then Goto F:IfEnd:IfEndJ=1=***→Z[8]:***→Z[9]:***→Z[10]:***→Z[11]:***→Z[12]:***→Z[13]:***→Z[14]:*** →Z[15]：IfEndJ=2=***→Z[16]:***→Z[17]:***→Z[18]:***→Z[19]:***→Z[20]:***→Z[21]:***→Z[22]:***→Z[23]:IfEndJ=3=***→Z[24]***→Z[25]:
外語相關(guān)推薦
鄂ICP備17016276號-1