5800竖曲线高程计算程序

《5800竖曲线高程计算程序》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、竖曲线高程计算主程序（5800）LblA：？K：Prog：“竖曲线元素库子程序”：A-T→E：A+T→F←IfK=A：ThenGoto5：IfEnd←IfK≤E：ThenGoto3：IfEnd←IfK≥F：ThenGoto4：IfEnd←IfK＜A：ThenGoto1：IfEnd←IfK＞A：ThenGoto2：IfEnd←Lbl1：K-E→X：X2÷(2R)→Y：B+I(K-A)→G：Goto6←Lbl2：F-K→X：X2÷(2R)→Y：B+J(K-A)→G：Goto6←Lbl3：B+I(K-A)→H▲GotoA←Lbl4：B+J(K-A)

2、→H▲GotoA←Lbl5：B+CM→H▲GotoA←Lbl6：G+CY→H▲GotoA←竖曲线要素库子程序（5800）IfK≤竖曲线终点桩号：Then凹（凸）竖曲线交点桩号→A：第一坡度→I：第二坡度→J：外矢距(E值)→M：交点高程→B：切线长→T：竖曲线半径→R：（凹）1、（凸）-1→C：（曲线段）GotoB：IfEnd←IfK≤直线终点桩号：Then直线起点桩号→A：直线段坡度→I：直线段坡度→J：0（零）→M：直线段起点高程→B：0（零）→T：1045→R：0（零）→C：（直线段）GotoB：IfEnd←If……………………如有多段

3、竖曲线加入，以此类推LblB：Return（程序用语“结束”）说明：1、本程序为设计高程计算程序，输入里程K就得出设计高程。主程序可计算整条线高程乃至多条线路高程。2、如有多段竖曲线可直接加入到“竖曲线子程序”中，如有多条线路可编多个“竖曲线子程序”，只要在主程序中改“竖曲线子程序”名。3、直线段外矢距为零、切线长为零、半径为无穷大，以10的45次方代替、C值为零。4、←符号表示换行。