精简5800三维程序
正反算选择程序:ZS-FS
Deg:
“1LZ=>XY,2XY=>LZ”?U: //正反算选择,正算选1,反算选2
If U=1: ThenProg”ZS-XH”:IfEnd: //进入正算循环主程序
IfU=2:Then Prog”FS-XH”:IfEnd: //进入反算循环主程序
正算循环主体程序ZS-XH
“QX=1,QX=2“?U: //选择线路
Lbi0:”L(=0=>stop:)”?L:L=0=>stop: //输入桩号
Porg”ZS-XH-1“:Goto0:IfEnd: //运行正算循环子程序
正算循环子程序ZS-XH-1
U=1=>Prog”HUO-DA-XIAN”: //进入平面线路选择程序对线路线元进行选择
(P-R)/(2HPRÿ