fx-5800p全線坐標(biāo)正反算帶高程計(jì)算程序(線元法)(存儲(chǔ)版)
【正文】 :If F0:Then F+360→F:IfEndReturn3. 反算子程序(SUBFS)GM→T:Abs((YV)cos(T)(XU)sin(T))→W:0→ZLbl C:Prog “SUBZS”T+QEW(C+WD)→L:(Z[5]Y)cos(L)(Z[4]X)sin(L)→ZIf Abs（Z）106:Then Goto D:Else W+Z→W：Goto C:IfEndLbl D:0→Z:Prog “SUBZS”:(Z[5]Y)247。 (3) 當(dāng)線元為直線時(shí)，其起點(diǎn)、止點(diǎn)的曲率半徑為無窮大，以10的45次代替。輸入與顯示說明（一）、 輸入部分： 1. SZ = XY 2. XY = SZ N ? 選擇計(jì)算方式，輸入1表示進(jìn)行由里程、邊距計(jì)算坐標(biāo) ；輸入2表示由坐標(biāo)反算里程和邊距。(7)曲線元要素?cái)?shù)據(jù)庫(kù)（DAT1）可根據(jù)線型不同分為各個(gè)線元段輸入到DAT1中，即分為直線段、緩和曲線、圓曲線等。π→E:Return7．隧道放樣子程序：SDFY→A:→B:L+→CIf I=1:Then 1→K:Else 1→K:IfEnd 給左右隧道符號(hào)賦值→F:→L:→K 給各圓心距路線的偏距賦值Z[2]C→D 計(jì)算測(cè)點(diǎn)至圓心的高差D，If DA:Then Goto 1:Else If D0:Then Goto 2:IfEnd:IfEndZL→E:Abs(E)→E:√(D2+E2)→W:WA→T: 計(jì)算測(cè)點(diǎn)至圓心的平距E，實(shí)測(cè)半徑W“R(m)=”:W◢“DR(m)=”:T◢If E≤A:Then D√(A2E2)→C:E√(A2D2)→L 計(jì)算測(cè)點(diǎn)水平偏移量L、垂直偏移量C“Dh(m)=”:C◢ 顯示測(cè)點(diǎn)垂直偏移量C“DL(m)=”:L◢ 顯示測(cè)點(diǎn)水平偏移量LElse E√(A2D2)→L“DL(m)=”:L◢IfEnd:ReturnLbl 1ZL→E:Abs(E)→E:√(D2+E2)→W:WA→T: 計(jì)算測(cè)點(diǎn)至圓心的平距E，實(shí)測(cè)半徑W“R(m)=”:W◢“DR(m)=”:T◢If E≤A:Then D√(A2E2)→C“Dh(m)=”:C◢IfEnd:ReturnLbl 2:Abs(D)→D:Abs(Z)→Z:Abs(K)→K:Abs(F)→FIf ZK:Then ZF→E:Else Z+K→E:IfEnd√(D2+E2)→W:WB→T “R(m)=”:W◢ “Rc(m)=”:T◢If E≤B:Then D√(B2E2)→C:E√(B2D2)→L 計(jì)算測(cè)點(diǎn)水平偏移量L、垂直偏移量C“Dh(m)=”:C◢ 顯示測(cè)點(diǎn)垂直偏移量C“DL(m)=”:L◢ 顯示測(cè)點(diǎn)水平偏移量LElse E√(B2D2)→L“DL(m)=”:L◢ 顯示測(cè)點(diǎn)水平偏移量LIfEnd:Return8．曲線元要素判斷數(shù)據(jù)庫(kù)：DAT2(兩條線路，可擴(kuò)充為多條線路)(A2)If I=2:Then Goto A:IfEndIf S第一線元終點(diǎn)里程:Then 1→J:Prog “DAT1”:ReturnElse If S第二線元終點(diǎn)里程:Then 2→J:Prog “DAT1”:ReturnElse If S第三線元終點(diǎn)里程:Then 3→J:Prog “DAT1”:ReturnElse If S第四線元終點(diǎn)里程:Then 4→J:Prog “DAT1”:ReturnIfEnd:IfEnd:IfEnd:IfEndIf S≥第四線元起點(diǎn)里程And S第五線元終點(diǎn)里程：Then 5→J：Prog “DAT1”：Return.................................Else If S第n線元里程：Then n→J：Prog “DAT1”：ReturnIfEnd:IfEnd:I
外語相關(guān)推薦
鄂ICP備17016276號(hào)-1