文档介绍：任意坐标正反算及隧道超欠挖程序
1-JIN YU(主程序)
Lbl 4: “1→ZS,2→FS,3→CQW”?N(选择计算模式,1为正算,2为反算,3为超欠挖)
N=1=>Goto 1:N=2=>Goto 2:N=3=>Goto 3
Lbl 1: “K=”? S:“P=”? Z:Prog “SJ -PM”: Abs(S-O) → W:Prog “SUB1-ZS”: “X=”:Locate4,4,X: “Y=”:Locate4,4,Y:F-90→F:S→ K:Prog“SJ -GC”:“H=”:Locate4,4,H:“W=”: Locate4,4,F°◢
Goto 4
(正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=)
Lbl 2:“X=”? X:“Y=”? Y:Prog“SJ -PM”: X→ I: Y→  J:Prog "SUB2-FS":O+W→S: “K=":Locate4,4, S :“P=":Locate4,4, Z:S→ K:Prog“SJ -GC”:“H=”:Locate4,4, H:F-90→F: “W=”: Locate4,4,F°◢
Goto 4
(反算-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=)
Lbl 3: “X=”?X:“Y=”?Y:Prog“SJ -PM”: X→ I: Y→  J:Prog "SUB2-FS":O+W→S: “K=":Locate4,4, S :“P=":Locate4,4, Z:S→ K:Prog“SJ -GC”:“H=”:Locate4,4, H◢
Prog“SJ-CQW”◢
Goto4
(超欠挖-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=、输入实测高程H1=、显示超欠挖值及第几圆心上CQ→Y?=)
SJ -PM(子程序名-平面线形数据库)
If S ≥(线元起点里程):Then →U(线元起点X坐标):→V(线元起点Y坐标):→O(线元起点里程):208028’39”→G(线元起点方位角):100 →H(线元长度):1×1045→P(线元起点曲率半径):1×1045→R(线元终点曲率半径):0 →Q(线元左右偏标志:左-1右1直0):IfEnd
If S ≥(线元起点里程):Then →U(线元起点X坐标):→V(线元起点Y坐标):→O(线元起点里程):208028’39”→G(线元起点方位角)
:90 →H(线元长度):1×1045→P(线元起点曲率半径):750→R(线元终点曲率半径):-1 →Q(线元左右偏标志:左-1右1直0):IfEnd
(注:有多个平面线形,依照上面的依次变更, 每多一个,就增加一个。每次只需要修改以上的数据或增加一个判断。)
SJ-GC (子程序名-竖曲线数据库)
If S<变坡终点里程And S≥变坡起点里程:Then大里程坡度→A:小里程坡度→B:变坡点里程→O:变坡点高度→G:半径→R:Prog