正算主程序 (ZS) ：
Lb1 0 ： FIX 4 ： ? S ： ?Z ： Prog “ PM-SJ ” ： Abs(S-O) → W ： Prog "SUB1" ： "XS= " ： X ◢ "YS= " ： Y ◢ F-90 → F ( 需要時可以讓他顯示，不要時不必輸入 ) ： Pro g“SQX-SJ”: Prog “ SQX ” ： “ H= ” ： H ◢ Goto 0
反算主程序 (FS)
Lb1 0 ： FIX4: ? S ： ? X ：？ Y ： Prog “PM-SJ” ： X→ I ： Y→ J ： Prog "SUB2" ： "S= " ： O+W→S ◢ "Z= " ： Z ◢
Prog “SQX-SJ” ： Prog “ SQX ” ： “ H= ” ： H ◢ Goto 0
隧道 3 心圓放樣主程序（ SD-3XY ）
Lb1 0 ： Prog “ FS ” ： 1.5 → A ： 1.65 → B ： 0.89→ G ： 2.27 → C ： 3.3 → D ： 2.41 → E ： 0.51 → J ： “H1” ： F ： ifF≤ H+ A ： then E-AbsZ → W ： IfEn d ： ifF ＞ H+A And F ≤ H+A+ B ： then√ （ D²- （ F-H-A ） ² ） -G-AbsZ → W ： IfEn d ： ifF ＞ H+A+ B ： then√ （ C²- （ F-H-A-J ） ² ） -AbsZ → W ： IfEn d ： “W=” ： W◢ （水平方向的超欠挖：正為欠 , 負為超） Goto0
正算子程序 (SUB1)
1÷P → C ： (P-R)÷(2HPR) → D ： 180÷π → E ： 0.1739274226 → A ： 0.3260725774 → B ： 0.0694318442 → K ： 0.3300094782 → L ： 1-L → F ： 1-K → M ： U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) → X ： V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD))) → Y ： G+QEW(C+WD)+90 → F ： X+ZcosF → X ： Y+ZsinF → Y 反算子程序 (SUB2)
G-90 → T ： Abs((Y-V)cosT-(X-U)sin （ T ） ) → W ： 0 → Z ： Lbl 0 ： Prog "SUB1" ： T+QEW(C+WD) → L ： (J-Y)cosL-(I-X)sinL → Z ： ifAbsZ<1E- 6 ： thenGoto1 ： ElssW+Z → W ： Goto 0 ： IfEnd
Lbl 1 ： 0 → Z ： Prog "SUB1" ： (J-Y)÷sinF → Z 子程序（平面線形數(shù)據(jù)庫） PM-SJ
ifS ≥ 500 （線元起點里程） AndS ＜ 769.256 （線元止點里程）： Then19942.837 → U （線元起點 X 坐標） ： 28343.561 → V （線元起點 Y 坐標） ： 500 → O （線元起點里程） ： 125 ° 16 ° 31 ° → G （線元起點方位角） ： 269.265 → H （線元長度） ： 10^ （ 45 ） → P （線元起點曲率半徑）： 10^ （ 45 ） → R （線元終點曲率半徑）： 0 → Q （線元左右偏標志：左負右正）： IfEnd
ifS ≥ 769.256 （線元起點里程） AndS ＜ 806.748 （線元止點里程）： Then19787.34 → U （線元起點 X 坐標） ： 28563.378 → V （線元起點 Y 坐標） ： 769.256 → O （線元起點里程） ： 125 ° 16 ° 31 ° → G （線元起點方位角） ： 37.492 → H （線元長度） ： 10^ （ 45 ） → P （線元起點曲率半徑）： 221.75 → R （線元終點曲率半徑）： -1 → Q （線元左右偏標志：左負右正）： IfEnd
ifS ≥ 806.748 （線元起點里程） AndS ＜ 919.527 （線元止點里程）： Then19766.566 → U （線元起點 X 坐標） ： 28594.574 → V （線元起點 Y 坐標） ： 806.748 → O （線元起點里程） ： 120 ° 25 ° 54.07 ° → G （線元起點方位角） ： 112.779 → H （線元長度） ： 221.75 → P （線元起點曲率半徑）： 221.75 → R （線元終點曲率半徑）： -1 → Q （線元左右偏標志：左負右正）： IfEnd
ifS ≥ 919.527 （線元起點里程） AndS ＜ 999.812 （線元止點里程）： Then19736.072 → U （線元起點 X 坐標） ： 28701.893 → V （線元起點 Y 坐標） ： 919.527 → O （線元起點里程） ： 91 ° 17 ° 30.63 ° → G （線元起點方位角） ： 80.285 → H （線元長度） ： 221.75 → P （線元起點曲率半徑）： 9579.228 → R （線元終點曲率半徑）： -1 → Q （線元左右偏標志：左負右正）： IfEnd
ifS ≥ 999.812 （線元起點里程）： Then19744.038 → U （線元起點 X 坐標） ： 28781.659 → V （線元起點 Y 坐標） ： 999.812 → O （線元起點里程） ： 80 ° 40 ° 50 ° → G （線元起點方位角） ： 100 → H （線元長度） ： 10^ （ 45 ） → P （線元起點曲率半徑）： 10^ （ 45 ） → R （線元終點曲率半徑）： 0 → Q （線元左右偏標志：左負右正）： IfEnd
子程序（豎曲線數(shù)據(jù)庫） SQX-SJ
ifS ≤ 999.812 （豎曲線終點里程）： then0.0357 （前坡度：上坡正下坡負） → E ： 0.0227 （后坡度： 上坡正下坡負 ） → F ： 600 → R （豎曲線半徑）： 780 → G （變坡點里程）： 110 → C （變坡點高程）： IfEnd
子程序（豎曲線計算公式） SQX
E-F → J ： ifJ ＞ 0 ： then-R → R ： ElssR→ R ： Abs （ R*J÷2 ） → T ： IfEnd
ifS ≤ G- T ： thenG-S → L ： C-LE → H ： IfEnd
ifS ＞ G- T And S ≤G ： thenG-S → L ：（ S+T-G ） ²÷2÷R →N ： C-LE+N → H ： IfEnd
ifS ＞ G And S ≤ G+ T ： then S-G → L ：（ G +T- S ） ²÷2÷R →N ： C+LF+N → H ： IfEnd
ifS ＞ G+ T ： thenS-G → L ： C+LF → H ： IfEnd
使用說明
(1) 以道路中線的前進方向（即里程增大的方向）區(qū)分左右；當線元往左偏時， Q=-1 ；當線元往右偏時， Q=1 ；當線元為直線時， Q=0 。
(2) 當所求點位于中線時， Z=0 ；當位于中線左鍘時， Z 取負值；當位于中線中線右側時， Z 取正值。
(3) 當線元為直線時，其起點、止點的曲率半徑為無窮大，以 10 的 45 次代替。
(4) 當線元為圓曲線時，無論其起點、止點與什么線元相接，其曲率半徑均等于圓弧的半徑。
(5) 當線元為完整緩和曲線時，起點與直線相接時，曲率半徑為無窮大，以 10 的 45 次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑為無窮大，以 10 的 45 次代替；與圓曲線相接時，曲率半徑等于圓曲線的半徑。
(6) 當線元為非完整緩和曲線時，起點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。止點與直線相接時，曲率半徑等于設計規(guī)定的值；與圓曲線相接時，曲率半徑等于圓曲線的半徑。
