CASIO5800竖曲线全线高程计算程序.doc

“SQXJSCX”↙Lb1?? 1↙ “K”?k◢????(计算点里程输入)If??k67549.755??AND??K≥66894.3 :Then??-0.00052→A : 0→B : 67394.3→S : 67.37→G : 600000→R : Goto??2 : IfEndIf??k68708.391??AND??K≥67549.755 :Then??-0.0048→A : -0.00052→B : 68494.3→S :66.8→G : 100000→R : Goto??2 : IfEnd↙If??k本段竖曲线终点里程??AND??K≥前一竖曲线终点里程 :Then??-0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程S :66.8→交点高程G : 100000→曲率半径R : Goto??2 : IfEnd………依次类推，计算原始数据完成输入，坡度换算成小数。Lb1?? 2S-K→L ： A-B→W : Abs（R*W/2）→T : S-T→C : S+T→D If?? K≤C : Then??G-L*B →H : Goto 5 : Else?? If?? K≤S : Then??Goto3 : Else?? If?? K≤D : Then??Goto4?? : IfEnd↙Lb1?? 3↙If?? W0 : Then??G+(C-K)2/2/R)-L*B→H??: Goto 5 : Else?? If W0 : Then??G-(C-K) ^2/2/R-L*B→H??: Goto 5 : IfEnd↙Lb1?? 4↙If?? W0 : Then??G+(K-D) ^2/2/R-L*A→H??: Goto 5 : Else?? If W0 : Then??G-(K-D)^ 2/2/R-L*A→H??: Goto 5 : IfEnd↙Lb1?? 5↙H-0→H↙???? “H0=”：H→J◢ 说明：A：前坡（大里程）（上坡为+下坡为-） B:后破（小里程）（上坡为+下坡为-） C:起点桩号 D：终点桩号 F:横坡（HP上坡输+下坡输-） G：交点高程 H:计算结果高程（H0中桩，H1边桩） I:偏距（全部输正）Goto 1↙ If??k本段竖曲线终点里程??AND??K≥前一竖曲线终点里程 :Then??-0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程S :66.8→交点高程G : 100000→曲率半径R : Goto??2 : IfEnd