1、5800 計算程序 主程序 QXJSLbI 0: “1.SZ=>XY”:“2.XY=>SZ” “3.GC=>SQX”:? Q : Q=1=> Goto1:Q=2=>Goto2：Q=3 => Goto3LbI 1: “CE:X”?G:“CEY:”?H:Prog“XLXY”: LbI A: “K = ” ?S: Prog“KM”：“-B,0,B=”? Z: “右交角=”?M:Prog“SUB1”: Fix 4:Cls“X=”: Locate3,1,N“Y=”: Locate3,1,EProg“JI”:Goto ALbI 2: “X=”? B: “Y=”? C:B

2、N: CE:Prog“SUB2”: “K =”:S “-B，0，B=”:Z Goto 0 LbI 3: 0B: “H-B”?B:BZ9: LbI D: Prog“XLXY”: “KM”?Z: Prog“KM”：“-B,0,B”?D:Prog“H”Fix 5：“H=”:H-Z9 H“I=”: IGoto D說明： Q: 代表正反算及豎曲線，其中 1 為正算， 2 為反算；3代表豎曲線； S: 代表里程； Z ：代表偏移距離； M ：代表偏移角度（以線路前進方向為 X 方向，順時針轉為正； N ： X 坐標； E ： Y 坐標； F ：切線方位角； SUB1 正算子程序 0.5 （ 1÷

3、R-1÷P） ÷LD:S-OXU+(cos(A+(X÷P+DX2)×180÷,0,X)N V+( sin(A+(X÷P+DX2)×180÷,0,X)EA+(X÷P+DX2)×180÷F N+Zcos(F+M) N:E+Zsin(F+M) EReturn SUB2 反算子程序 Lbl 1:0Z ： 1Q ： Prog“KM”: Prog“SUB1” Pol(N-B+10(-46), E-C+10(-46):Isin(F-90-J) W:S+WS If Abs(W)>0.0001 :

4、Then Goto1Lbl 2: 0Z ： Prog“SUB1”:(C-E) ÷sin(F+90) Z 次程序JIClstatPol(N-G,-E-H):ClsIf J<0:Then J+360Y:Ease JY:Ifend“F J L=”:I“F W J=”:Y DMS XLXZ(線路選擇)1I：“XLXZ:Z=1:A=2，B=3，C=4，D=5，E=6，F=7，L=8”?I: I Z1: IF I =0:Then Goto 0:Else Goto 1:IfEndLbI 0 : “F”?A: “QDZH”?O: “X”?U: “Y”?V: “R1”?P: “R2”?R:“L”

5、?L: Goto 1LbI 1 SUB0 ( 數據庫 )Goto1 Lbl 1IF S<157687.528:Then 157547.528o :2884169.2517U:471475.6573V: 98 °32 43.08 A:1045P:10000；R:140L: Return:IfEnd 說明： S ：里程； O 為線元起點里程； U 為線元起點 X 坐標；V 為線元起點 Y 坐標； A 線元起點切線方位角； P 線元起點半徑（左轉為負右轉為正）； R 線元終點半徑（左轉為負右轉為正） 高程計算子程序（H）程序名：HProg “S1”:C-TF:Z-FS:C+TE:G-

6、TIQ:If T=O:Then Q+SIH:Goto 0:Else If Z<F:Then Q+SIH:Goto 0:Else If ZE:Then Q+SI+S2÷2÷RH:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog“I”:H+VH:Goto ILbI I高程超高計算程序（I）程序名：IIf Z3=1:Then Prog “I1”:Goto 1: IfEnd LbI 1: If W=1:Then Goto Z:Else Goto X: IfEnd LbI Z:If S=0:Then Abs(D)×MV:Goto

7、2:Else Abs(D)×(N-M)×(Z-C)÷S+M)V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)×MV:Goto 2:Else Abs(D)×(3(Z-C)÷S)2-2(Z-C)÷S)(3)×(N-M)+M)V:Goto 2:IfEndLbI 2:Abs(D)E:V÷EI:I(E-K)V-1程序名：S1(線路1高程豎曲線要素子程序)If Z1=1:Then Goto 1:Else If Z1=2:Then Prog“SA”: Else If Z1=3:Then P

8、rog “SB”: Else If Z1=4: Then Prog“SC” : Else If Z1=5:Then Prog“SD”: Else If Z1=6: Then Prog“SE” : Else If Z1=7:Then Prog“SF”: Else If Z1=8:Then Prog“SL”:IfEndGoto 1LbI 1If Z26157.8:Then -200000R:157.8T:26000C:37.1G:0.01222I:Return:IfEnd程序字母說明：R-豎曲線半徑（分正負：凹曲線為正，凸曲線為負）；T-豎曲線切線長(標段結尾或開頭沒有豎曲線的輸0)；C-豎曲線交

9、點樁號；G-交點樁號高程（未豎曲線調整的）；I豎曲線前縱坡-1程序名：I1（線路1高程超高參數子程序）If Z1=1:Then Goto L:Else If Z1=2:Then Prog“IA”: Else If Z1=3:Then Prog “IB”: Else If Z1=4: Then Prog“IC” : Else If Z1=5:Then Prog“ID”: Else If Z1=6: Then Prog“IE” : Else If Z1=7:Then Prog“IF”: Else If Z1=8:Then Prog“IL”:IfEnd1.5K:If D<0:Then Goto

10、 L:Else Goto R:IfEnd:LbI LIf Z26735.555:Then 1W: 120S:26615.555C:-0.02M:0.02N:Goto 0:IfEndLbI R If Z26735.555:Then 1W:0S:-0.02M: Goto 0:IfEndLbI 0 字程序中字母表示說明：K中央分隔帶半幅寬（中樁標高至中樁中線距離，無分隔帶則為0）本線路中為0；W超高方式參數（W=1為一般直線方式超高，W=2為三次拋物線方式超高）;S超高漸變段距離（不是漸變段則輸入0）；C-超高漸變段起點樁號（不是漸變段，無需輸入）；M超高段起點橫坡，N-超高漸變段終點橫坡（不是漸變

11、段，無需輸入）H （高程主程序） Fix 3 ： Lb1 3: “ K=” ?Z: Prog“SQX”:(P-Q) ÷ Abs(P-Q) W If Z<(H-T):Then(H-Z) × P X:Goto 2:IfEnd If Z (H-T) And Z<H:Then (H-Z) × P+(Z-H+T)2 ÷ (2WR) X:Else (H+T-Z)2 ÷ (2WR)-(Z-H) × QX: Goto 2:IfEnd Lb1 2: ” GAO CHENG= ” D-X X Goto 3 SQX （豎曲線數據庫） Goto 1 Lb1