1、5800計算程序主程序QXJSLbl 0:“ 1.SZ=>XY : “2.XY=>SZ“3.GC=>SQ” ：？ Q : Q=1=>Goto1:Q=2=>Goto2: Q=3 => Goto3Lbl 1:“CE:X” ？G:“CEY” ?H:Prog “XLXY : Lbl A : “K = ” ? S:Prog “ KM :“ -B,0,B =” ? Z: “ c 右交角二”？ MProg “SUB1 : Fix 4:Cls“X二”：Locate3,1,N 丄“Y二”：Locate3,1,E 丄Prog “JI ” :Goto ALbI 2: “X=” ?

2、 B:“丫二” ? C:B f N: CE:Prog “SUB2 : “ K =” :S 丄-B, 0, B=” :Z丄Goto 0Lbl 3: 0 B: “ H-B” ?B:BZ9: Lbl D: Prog “ XLXY : “KM ?Z:Prog “ KM :“ -B,0,B ” ?D:Prog “ H'Fix 5 :“ H= :H-Z9 HJGoto D說明：Q:代表正反算及豎曲線，其中1為正算，2為反算；3代表豎曲線； S:代表里程；Z :代表偏移距離；M :代表偏移角度（以線路前進方向為X方 向，順時針轉(zhuǎn)為正；N : X坐標(biāo)；E : 丫坐標(biāo)；F :切線方位角；SUB1正算子程

3、序0.5( 1-R-1-P)- L D:S- OXU+/ (cos(A+(X - P+dX) X 180- n ,0,X) NV+/ ( sin(A+(X - P+DX) X 180- n ,0,X) EA+(X十 P+DX X 180- nf FN+Zcos(F+M)f N:E+Zsin(F+M ERetur nSUB2反算子程序Lbl 1:0 fZ :1f Q : Prog “KM : Prog “SUB”Pol(N-B+10A(-46), E-C+10A(-46):Isin(F-90-J) fW:S+VfSIf Abs(W)>0.0001 :The n GotolLbl 2: 0

4、f Z : Prog “SUB1 :(C - E) - sin(F+90) f Z次程序JIClstatPol(N-G,-E-H):ClsIf J<0:Then J+360f Y:Ease J f Y:lfend“F J L= ” :l 丄“F W J=” :Y DMS丄XLXZ線路選擇）1f I :“ XLXZ:Z=1:A=2, B=3, C=4,D=5, E=6, F=7, L=8” ?I: If Z1: IF I=0:Then Goto 0:Else Goto 1:IfE ndLbl 0 :“ F” ?A:“QDZH ?Q“X” ?U: “Y” ?V: “R1” ?P:“ R2&#

5、39; ?R:“L” ?L: Goto 1Lbl 1SUBO （數(shù)據(jù)庫）Gotol /Lbl 1IF S<157687.528:Then 157547.5280 : 2884169.2517 U:471475.6573 V:98 ° 32 ' 43.08 A:10A45 P:10000; R:140L : Return:lfEnd說明：S :里程；O為線元起點里程；U為線元起點X坐標(biāo)；V為線元起點 丫坐標(biāo)；A線元起點切線方位角；P線元起點半徑（左轉(zhuǎn)為負右轉(zhuǎn)為正）； R 線元終點半徑（左轉(zhuǎn)為負右轉(zhuǎn)為正）高程計算子程序（H）程序名：HProg “S 1” ：C-T F:Z-

6、F S:C+T E:G-Tl Q:If T=O:Then Q+SI H:Goto 0:Else If Z<F:The n Q+SIH:Goto 0:Else If Z2w E:Then Q+SI+S 2 R H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog“ 1” :H+V H:Goto ILbl I咼程超咼計算程序(I )程序名：IIf Z3=1:Then Prog“ 11 ” :Goto 1: IfEndLbl 1: If W=1: Then Goto Z: Else Goto X: IfEndLbI Z:If S=0:Then Abs(D)

7、x M V:Goto 2:Else Abs(D)x (N-M)x (Z- C)一 S+MV:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)x M V:Goto 2:Else Abs(D)x (3(Z- C) 一 S)2-2(Z- C) 一 S)A (3) x (N-M)+M) V:Goto 2:IfEndLbl 2:Abs(D) E:V一i l:l(E-K) V-1程序名：S1(線路1高程豎曲線要素子程序)If Z1=1:Then Goto 1:Else If Z1=2:Then Prog SA”： Else If Z1=3:Then Prog SB”： EIse

8、If Z1=4: Then Prog SC” : Else If Z1=5:Then Prog SD”： Else If Z1=6: Then Pr og SE” : Else If Z1=7:Then Prog SF”: Else If Z1=8:Then Prog SL”:lfEndGoto 1LbI 1If Z w 26157.8:Then -200000 R:157.8 T:26000 C:37.1 G:0.01222 I:Return:IfE nd程序字母說明：R-豎曲線半徑（分正負：凹曲線為正，凸曲線為負）；T-豎曲線切線長（標(biāo)段結(jié)尾或開頭沒有豎曲線的輸0）; C-豎曲線交點樁號；

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

10、 Goto L:Else Goto R:IfE nd:LbI LIf Z w 26735.555:Then 1 W: 120 S:26615.555 C:-0.02 M: 0.02 N:Goto 0:IfE ndLbI RIf Z w 26735.555:Then 1 W:( S:- 0.02 M: Goto 0:IfE ndLbI 0字程序中字母表示說明:K中央分隔帶半幅寬（中樁標(biāo)高至中樁中線距離，無分隔帶則 為0）本線路中為0； V超高方式參數(shù)（W=1為一般直線方式超 高，W=2為三次拋物線方式超高）;S -超高漸變段距離（不是漸 變段則輸入0）; C-超高漸變段起點樁號（不是漸變段，無需

11、輸 入）；M超高段起點橫坡，N-超高漸變段終點橫坡（不是漸變 段，無需輸入）H （高程主程序）Fix 3Lb1 3:K=” ？Z: Prog “SQX :(P -Q) - Abs(P-Q) WIf Z<(H-T):Then(H- Z) x P X:Goto 2:lfEndIf Z > (H-T) And Z<H:Then (H-Z) x P+(Z-H+T)2 - (2WR) X:Else (H+T-Z) -(2WR)-(Z- H) x QX: Goto 2:IfEndLb1 2: ” GAO CHENG= D-X X 丄Goto 3SQX (豎曲線數(shù)據(jù)庫)Goto 1Lb1 1IfZ < 15