【正文】 :Prog“DAT1” :Goto B:IfEndZ[8J+3]+M→A:Z[8(J+1)+3]+M→B:Prog “SUBZX1” If Z[6]Z[7]0:Then J→J:Prog “DAT1” :Goto B:Else Goto A:IfEndLbl B:Prog“SUBFS”O(jiān)+W→S:Prog “SUBGC”“K(m)=”:S◢ “Hs(m)=”:L◢ “JL(m)=”:Z◢If N=3:Then Prog “WIDE”:IfEndIf N=4:Then Prog “SDFY”:IfEndGoto 2Lbl 3:“TYQXJS→END”2. 正算子程序(SUBZS)（A3）→A: →B:→Z[1]:→K:→L:→Z[3]U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Z[1]cos(G+QEZ[3]W(C+Z[3]WD))+Bcos(G+QE(1L)W(C+(1L)WD))+Acos(G+QE(1K)W(C+(1K)WD)))→X V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Z[1]sin(G+QEZ[3]W(C+Z[3]WD))+Bsin (G+QE(1L)W(C+(1L)WD))+Asin(G+QE(1K)W(C+(1K)WD)))→YG+QEW(C+WD)+M→FX+Zcos(F)→X:Y+Zsin(F)→YFM→F: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。輸入與顯示說明（一）、 輸入部分： 1. SZ = XY 2. XY = SZ N ? 選擇計算方式，輸入1表示進行由里程、邊距計算坐標 ；輸入2表示由坐標反算里程和邊距。π→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◢ 顯示測點垂