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