文档介绍：Forpersonaluseonlyinstudyandresearch;mercialusehenhao1-JINYU(主程序)Lbl4:“1→ZS,2→FS,3→CQW”?N(选择计算模式,1为正算,2为反算,3为超欠挖)N=1=>Goto1:N=2=>Goto2:N=3=>Goto3Lbl1:“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°◢Goto4(正算-输入待求点里程K=、输入待求点偏距P=、显示待求点里程X=、显示待求点里程Y=、显示待求点里程设计高程H=)Lbl2:“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°◢Goto4(反算-输入实测点X=、输入实测点Y=、显示实测点里程K=、显示实测点偏距P=、显示实测点的设计高程H=)Lbl3:“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(子程序名-平面线形数据库)IfS≥(线元起点里程):→U(线元起点X坐标):→V(线元起点Y坐标):→O(线元起点里程):208028’39”→G(线元起点方位角):100→H(线元长度):1×1045→P(线元起点曲率半径):1×1045→R(线元终点曲率半径):0→Q(线元左右偏标志:左-1右1直0):IfEndIfS≥(线元起点里程):→U(线元起点X坐标):→V(线元起点Y坐标):→O(线元起点里程):208028’39”→G(线元起点方位角):90→H(线元长度):1×1045→P(线元起点曲率半径):750→R(线元终点曲率半径):-1→Q(线元左右偏标志:左-1右1直0):IfEnd(注:有多个平面线形,依照上面的依次变更,每多一个,就增加一个。每次只需要修改以上的数据或增加一个判断。)SJ-GC (子程序名-竖曲线数据库)IfS<变坡终点里程AndS≥变坡起点里程:Then大里程坡度→A:小里程坡度→B:变坡点里程→O:变坡点高度→G:半径→R:Prog“SUB3-GC”:IfEnd(注:,依照上面的依次变更,每多一个,就增加一个。每次只需要修改以上的数据或增加一