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

精简 5800 三维程序 正反算选择程序： ZS-FS Deg: “1LZ＝＞XY，2XY＝＞LZ”？U： If U=1: ThenProg”ZS-XH”:IfEnd: IfU=2:Then Prog”FS-XH”:IfEnd: //正反算选择，正算选 1，反算选 2 //进入正算循环主程序 //进入反算循环主程序 正算循环主体程序 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 “Yp=”: locate6,4,Y “Gp=”: locate6,4, I ◢ //显示中线 X 坐标 //显示中线 Y 坐标 //显示中桩高程 90- W:”ANGLE”?W:”BIANZHU”?Z :X+Zcos(Q+W) →G: Y+ZSin(Q+W) →M: I-0.015ZO “B-X”: locate6,4,G “B-Y”: locate6,4, M “B-GC”: locate6,4,O◢ 反算循环主体程序 FS-XH 0→Z:“1U: “QX=1,QX=2“？U： Lbi0： //计算出边桩 X 坐标 //计算出边桩 Y 坐标 0.015 为设计横坡 //显示边桩 X 坐标 //显示边桩 Y 坐标 //显示边桩高程 //选择线路 1~N “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： (竖曲线半径) 10000→E：((起点高程) 63..377→K：(起点桩号) 96516.667→C：止点桩 号 96563.333→D：Return:Ifend If L≤96579.931;该段止点里程： Then(前坡 例 0。01) .0013→I：(后坡 例-0。034) .0013→A： (竖曲线半径) 63..33→K：(起点桩号) 96563.333→C：止点桩号 96579.931→D：Return:Ifend If L≤96620.069;该段止点里程： Then(前坡 例 0。01) .0013→I：(后坡 例-0。034) -.0009→A： (竖曲线半径) 18000→E：((起点高程) 63..352→K：(起点桩号) 96579.931→C：止点桩 号 96620.069→D：Return:Ifend 直线段不需要输入半径,直线段的前后坡度 I 等于 A,输入本坡值 公路反算程序 GL-FS Do:U=1=Porg”HUO-DA-XIAN”: U=2=Porg”X2” (P-R) /