5800线元法程序.docVIP

5800线元法程序 正算主程序 ZS Lb1 0 FIX4：?S：?Z：Prog “PM-SJ”： Abs S-O → W：Prog SUB1： XS ：X◢ YS ：Y◢F-90→F 需要时可以让他显示，不要时不必输入 ：Prog“SQX-SJ”: Prog“SQX”：“H ”：H◢ Goto 0 反算主程序 FS ”PM-SJ”: X→I: Y→J:Prog”SUB2”:”S ”:O+W→S◢ “Z ”:Z◢ Prog”SQX-SJ”:Prog”SQX”: “H ”:H◢Goto 0 正算子程序 SUB1 ： P-R ÷ 2HPR → D： 180÷π→ E： 0.1座机电话号码6→ A： 0.座机电话号码74→ B： 0.0座机电话号码2→ K： 0.座机电话号码82→ L： 1-L→ F：1-K→ M： U+W Acos G+QEKW C+KWD +Bcos G+QELW C+LWD +Bcos G+QEFW C+FWD +Acos G+QEMW C+MWD → X： V+W Asin G+QEKW C+KWD +Bsin G+QELW C+LWD +Bsin G+QEFW C+FWD +Asin G+QEMW C+MWD → Y： G+QEW C+WD +90→ F： X+ZcosF→ X： Y+ZsinF→ Y反算子程序 SUB2 ： Abs Y-V cosT- X-U sin（T） → W： 0→ Z：Lbl 0：Prog SUB1： T+QEW C+WD →L： J-Y cosL- I-X sinL → Z：ifAbsZ 1E-6：thenGoto1：ElssW+Z → W：Goto 0：IfEnd←┘： 0→ Z：Prog SUB1： J-Y ÷sinF→ Z子程序（平面线形数据库）PM-SJ ifS ≥500（线元起点里程）AndS＜769.256（线元止点里程）：Then19942.837 →U（线元起点X坐标）：28343.561 →V（线元起点Y坐标）：500 →O（线元起点里程）：125°16°31°→G（线元起点方位角）：269.265 →H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd←┘ ifS ≥769.256（线元起点里程）AndS＜806.748（线元止点里程）：Then19787.34 →U（线元起点X坐标）：28563.378→V（线元起点Y坐标）：769.256→O（线元起点里程）：125°16°31°→G（线元起点方位角）：37.492→H（线元长度）：10^（45）→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ ifS ≥806.748（线元起点里程）AndS＜919.527（线元止点里程）：Then19766.566→U（线元起点X坐标）：28594.574→V（线元起点Y坐标）：806.748→O（线元起点里程）：120°25°54.07°→G（线元起点方位角）：112.779→H（线元长度）：221.75→P（线元起点曲率半径）：221.75→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ ifS ≥919.527（线元起点里程）AndS＜999.812（线元止点里程）：Then19736.072 →U（线元起点X坐标）：28701.893 →V（线元起点Y坐标）：919.527→O（线元起点里程）：91°17°30.63°→G（线元起点方位角）：80.285→H（线元长度）：221.75→P（线元起点曲率半径）：9579.228→R（线元终点曲率半径）：-1→Q（线元左右偏标志：左负右正）：IfEnd←┘ ifS ≥999.812（线元起点里程）：Then19744.038 →U（线元起点X坐标）：28781.659→V（线元起点Y坐标）：999.812→O（线元起点里程）：80°40°50°→G（线元起点方位角）：100→H（线元长度）：10^（45）→P（线元起点曲率半径）：10^（45）→R（线元终点曲率半径）：0 →Q（线元左右偏标志：左负右正）：IfEnd←┘ 子程序（竖曲线数据库）SQX-SJ ifS≤999.812（竖曲线终点里程）：then0.0357（前坡度：上坡正下坡负）→E：0.0227（后坡度：上坡正下坡负）→F：600→R（竖曲线半径）：780→G（变坡点里程）：110→C（变坡点高程）：IfEnd←┘ 子程序（竖曲线计算公式）SQX E-F→J：ifJ＞0：then-R→R：ElssR→R：Abs（R*J