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