竖曲线、纵断面高程计算程序.pdf

中铁二十局第二工程有限公司 银代国 QQ421574311 竖曲线、纵断面高程计算程序 5800P 主程序文件名：SQX “R”?A:”I1”?C:”I2”?D:”K(BIAN-PO)”?E:”H(BIAN-PO)”?F “T= ”:A ×Abs(D-C)/2→B “K(QI-DIAN)” :E-B→H “K(ZHONG-DIAN)” :E+B→L “LY= ”:L-H→M If CD:Then -1→T:IfEnd：If CD:Then 1→T:IfEnd Lbl 0 ：?K：Abs （E-K ）→S:If SB:Then Goto 4：IfEnd ： If E ≥K:Then Goto 1 ：IfEnd ：If EK:Then Goto 2 ：IfEnd Lbl 1 ：F-SC+T(B-S)^2 ÷2 ÷A→G:Goto 3 Lbl 2 ：F+SD+T(B-S)^2 ÷2 ÷A→G:Goto 3 Lbl 3 ：”H(SHE JI)= ”: G “H(SHI CE)”?N N-G→Z If Z0:Then “GAO= “：Z IfEnd If Z 0:Then –Z→Z: “DI= “：Z IfEnd Goto 0 Lbl 4 ：If K H ：Then E-K→O: F-OC→G：IfEnd ： If K ≥L ：Then K-E→O: F+OD→G：IfEnd ：Goto 3 第 1 页 共 3 页 中铁二十局第二工程有限公司 银代国 QQ421574311 1、功能：计算任何形式、任意变坡点前后中桩纵断面设计高程。 2、程序说明： R:竖曲线半径 I1、I2-变坡点前后坡度（上坡为正，下坡为负） K （BIAN PO ）-变坡点里程桩号 H(BIAN PO)-变坡点高程 T-竖曲线切线长 K(QI DIAN)为竖曲线起点里程 K(ZHONG DIAN)为竖曲线终点里程 LY;竖曲线长度 K:待求点里程 H(SHE JI):设计高程 H(SHI CE):实测高程 GAO：(实际比设计高) DI ：(实测比设计低) 第 2 页 共 3 页 中铁二十局第二工程有限公司 银代国 QQ421574311 纵 坡 、 竖 曲 线 表 竖 曲 线 纵 坡 （％） 序 变坡点里 号 程 标 高（m） 曲线半 切线长T 外距E 起点桩号 终点桩号 i1 i2 径 R（m） （m） （m） 8 K29+025 1887.315 15000 75.000 0.187 K28+950 K29+100 -0.7 0.3 10 K29+575 1901.890 5000 62.500 0.391 K29+512.500 K29+637.500 5.0 2.5 13 K30+585 1910.284 4500 71.992 0.576 K30+513.008 K30+656.992 1.8 5.0 14 K31+380 1950.034 1800 83.700 1.946