简5800三维程序修订版本.pdfVIP

精简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 ）→D： L-O→O: OD→D: 1/P→C： U=1=Prog”X2 ” （P-R ）/ （2HPR ）→D ： L-O→O: OD→D: 1/P→C ： U=1=Prog”GC1 ” U=2=Prog”GC2 ” Prog”GC”: //进入高程部分提取中桩高程 :Prog”ZS-XS”: //进入正算显示程序，提取正算三维结果 正算显示ZS-XS FIX4:“FWJ=” ：locate6,4,Int(Q)+0.01Int(60Frac(Q))+0.006Frac(60Frac(Q)): FIX3： “Xp=”: locate6,4,X //显示中线X 坐标 “Yp=”: locate6,4,Y //显示中线Y 坐标 “Gp=”: locate6,4, I ◢ //显示中桩高程 90-W: ”ANGLE ”?W:”BIANZHU ”?Z :X+Zcos(Q+W) →G: //计算出边桩X 坐标 Y+ZSin(Q+W) →M: //计算出边桩Y 坐标 I-0.015ZO 0.015 为设计横坡 “B-X”: locate6,4,G //显示边桩X 坐标 “B-Y”: locate6,4, M //显示边桩Y 坐标 “B-GC”: locate6,4,O◢ //显示边桩高程 反算循环主体程序FS-XH 0→Z:“1U: “QX=1,QX=2“ ？U ： //选择线路 1～N Lbi0 ： “L” ？L ：“Xc=” ？T ：“Yc=” ？S ： //输入起算假定桩号，实测X Y Prog”GL-FS”: /进入公路反算程序 Prog”FS-XS”: //进入反算显示程序 Goto0: 反算显示FS-XS “L”： locate6,4,L //显示计算里程 “Z” ： locate6,4,J //显示计算边距 中桩高程计算程序GC If I-A＜0:Then1→H:IfEnd: //开口向上部分赋值 IfI-A=0:ThenGoto1: IfEnd: //无竖曲线部分赋值 IfI-A ＞0:Then-1→H:IfEnd: //开口向下时赋值 (L-C)I+K+(L-C)^2/(2E)H→I： //计算得出竖曲线部分中桩高程 Goto2:Lbi1: K+(L-C)I→I: //计算得出无竖曲线部分中桩高程 Lbi2: 一号线路高程GC1 ； If L≤96563.333;该段止点里程：Then （前坡例0 。01 ）-.0033→I：（后坡例-0。034 ）.0013→A： （竖曲