②反算桩号及距中距离 程序名1ZD-XY Lb1 0Norm 2 F1正反算判别，F1正算，F2反算,也可以改F前加，改F为变量 Z[1]90（与路线右边夹角） Prog＂THB＂F1Goto 1F2Goto 2 Lb1 1Ｆix 3＂ Ｘ＂Locate 6,4,Ｘ◢ ＂ Ｙ＝＂Locate 6,4,Ｙ◢ Ｐrog＂3JS”Goto 0 Lb1 2Fix 3＂ ＫＭ＝＂Locate 6,4,Ｚ◢ ＂ Ｄ＝＂Locate 6,4,Ｄ◢ Ｇoto 0 ２．主程序２高程序横坡程序设计任意点高程及横坡 程序名2GC LbI 0Norm 2 “KM”ZD Prog”H”Fix 3” H”Locate 6,4,H◢ “ I” Locate 6,4,I◢ Goto 0 3.主程序3极坐放样计算程序计算放样点至置仪点方位角及距离 程序名3JS XY 1268．123→K置仪点X坐标 2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦） Y-L→EX-K→FPolF,EIF JZ[10]Then Goto 2Else Goto 3IfEnd LbI 1LZ[12]Z[13]Z[14]G-AZ[9]Z[11]Z[8]Z[10]Z[7]Goto Z LbI 2LZ[12]Z[13]G-Z[10]Z[8]Z[10]Z[7]Goto Z LbI 3LZ[12]GZ[7]Goto z LbI TL0.5→NIf GZ[17]Then NZ[18]G-Z[17]Z[16]Z[17]Z[15]→SGoto ZElse NGZ[15]→SGoto z LbI ZZ[3]→DFix 2AbsD-S→T” L0”L Locate 6,4,T◢ ＂ ＫＭ＝＂Locate 6,4,Ｚ◢ ＂ Ｄ＝＂Locate 6,4,Ｄ◢ “ TW” Locate 6,4,Z[5]◢ Goto 0 6．主程序6路基标准半幅宽度计算程序对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L 程序名6GD Prog “G0”Z-C→EB-AE/SA→LL 7．坐标计算次程序（ＴＨＢ） 程序名THB 18→DimZ＂ＫＭ＂ZProg ＂Ｘ０＂ 1P→Ｃ P-R2HPR →Ｓ 180π→ＥＦ1Goto 1Ｆ2Goto 2←┘ Lbl 1Ｄ AbsＺ－O →WProg “Ａ“XＹＧoto 3 LbI 2ＸＹＸ→IＹ→JProg ＂Ｂ＂Ｏ＋Ｗ→ZＤ→ＤＧoto 3 LbI 3IF Ｆ＝１Then ＸＹElse ＺＤ 8. 正算子程序Ａ 程序名A 0.1184634425→A 0.2393143352→B0.2844444444→N 0.046910077→K 0.2307653449→L0.5→M UWAcosGQEKWCKWＳBcosGQELWCLWＳNcosGQEMWCMWＳBcosGQE1-LWC1-LWSAcosGQE1-KWC1-KWS →X VWAsinGQEKWCKWＳBsinGQELWCLWＳNsinGQEMWCMWSBsinGQE1-LWC1-LWSAsinGQE1-KWC1-KWＳ →Y GQEWCWＳＺ［１］→Ｚ［２］XＤcos（Ｚ［２］）→Ｘ YＤsin（Ｚ［２］）→Ｙ 9. 反算子程序Ｂ 程序名B G-90→Ｔ AbsY-VcosT-X-UsinT →Ｗ 0→ＤLbl 0Prog “Ａ“ TQEWCWＳ →Ｌ J-YcosL-I-XsinL→ＤIF AbsＤGoto 1 LbI 0If L0Then AbsDM→VGoto 2Else AbsDN-MZ-CLM→VGoto 2IfEnd LbI 1If L0Then AbsDM→VGoto 2Else AbsD3Z-CL2-2Z-CL∧3N-MM→VGoto 2IfEnd LbI 2AbsD→EVE→IIE-K→V 12．数据子程序附后示例 ①程序名X0（坐标计算要素程序） If Z≥25900 And Z≤26615.555Then 25900→O11587.421→U1847.983→V101。09’23.1”→G715.555→H11045→P 11045→R 0→QGoto 0 IfEnd If Z≥26615.555 And Z≤26915.555Then 26615.555→O11448.97→U2550.016→V101。09’23.1”→G300→H11045→P 1800→R1→QGoto 0IfEnd If Z≥26915.555 And Z≤27316.952Then 26915.555→O11382.792→U2842.531→V105。55’51.83”→G401.396→H1800→P 1800→R1→QGoto 0IfEnd LbI 0OUVGHPRQ 程序字母说明O-线元起点桩号；
U-起点X坐标；
V-起点Y坐标；
G-线元起点桩号切线方位角; Ｈ－线元长度，Ｐ－线元起点曲率半径，Ｒ－线元终点曲率半径,Q－线元判别以道路中线的前进方向（即里程增大的方向）区分左右；
当线元往左偏时，Q-1；
当线元往右偏时，Q1；
当线元为直线时，Q0。
②程序名SO高程竖曲线要素子程序 If Z≥25900 And Z≤26157.8Then -200000→R157.8→T26000→C37.1→G0.01222→IGoto 0IfEnd If Z≥26157.8 And Z≤27421.915Then 300000→R171.915→T27250→C32.65→G-0.00356→IGoto 0IfEnd If Z≥27421.915 And Z≤27889.029Then 1000000→R134.029→T27755→C36.64→G0.0079→IGoto 0IfEnd LbI 0RTGCI 程序字母说明C-竖曲线交点桩号；
G-交点桩号高程（未竖曲线调整的）；
T-竖曲线切线长；
R-竖曲线半径（分正负凹曲线为正，凸曲线为负）；
I－竖曲线前纵坡 ③程序名I0（高程超高参数子程序） 1.5→K2→WIf D0Then Goto LElse Goto RIfEnd LbI LIf Z≥25900 And Z≤26615.555Then 0→L-0.02→MGoto 0IfEnd If Z≥26615.555 And Z≤26735.555Then 120→L26615.555→C-0.02→M0.02→NGoto 0IfEnd If Z≥26735.555 And Z≤26795.555Then 60→L26735.555→C0.02→M0.04→NGoto 0IfEnd If Z≥26795.555 And Z≤27436.951Then 0→L0.04→M Goto 0IfEnd LbI R If Z≥25900 And Z≤26735.555Then 0→L-0.02→M Goto 0IfEnd If Z≥26735.555 And Z≤26795.555Then 60→L26735.555→C-0.02→M-0