FX-5800P线路计算程序（自然曲线版）NF[XYH]（总调度程序）Lbl0.docVIP

? FX-5800P线路计算程序（自然曲线版） NF[X Y H]（总调度程序） Lbl 0（选择线路平面要素类型：临时输入、重新计算、使用原要素） Norm 2:Deg:Cls????????????????????????????????//设置格式及清屏 SELECT DAT TYPE:F0: INPUT:F1: COMPUTER FX: PASS?→M??//选择手工输入起算数据或重新计算要素或使用原要素 If M=206265:Then Goto 2: IfEnd????????????//选择通过，采用原素 If M=0:Then ProgINPUT:Goto 1:Else If M=1:Then Goto 1:Else Goto 0:IfEnd:IfEnd//M=0运行输入程序再计算要素，M=1计算要素 Lbl 1（自动计算线元要素并累积计算终点数据复核） Norm2:Cls If M=0:Then ProgNJS[YS]:Else ProgSEL[NDATP]: ProgNJS[YS]:IfEnd //临时输入直接调用要素计算程序，否则读取平面数据库后计算要素 ProgFUHE???????????????????????????//调用复核程序计算终点数据 Lbl 2（选择计算模式） Cls F0: XY: Locate 9,1,F1: K Z F2:XYH: Locate 9,2,F3: JGW “ F4 : SD “ : Locate 9,3, F5 : KZTW COMPUTER MODE ?→M??????????????????????????//选择计算模式 If M=0:Then ProgNS [ XY ]:Goto 0:IfEnd//选择坐标计算和极坐标放样模式 If M=1:Then ProgNS [ KZ ]:Goto 0:IfEnd?//选择二维反算模式 If M=2:Then 2N+7 →DimZ : Cls: “REPEAT NO.XXX” ?→Z[2N+4] ProgNS[XYH]:Goto 0:IfEnd????????????????????????????????????????????????????//选择三维正算模式 If M=3:Then ProgNS [ JGW ]:Goto 0:IfEnd??//选择结构物计算模式 If M=4:Then 2N+7 →DimZ : Cls: “REPEAT NO.XXX” ?→Z[2N+4] ProgNS[SD]:Goto 0:IfEnd?????????????????????????????????????????????????????????????????????????????????????????????????????????//选择隧道计算模式 If M=5:Then 2N+7 →DimZ : Cls: “REPEAT NO.XXX” ?→Z[2N+4] ProgNS[KZTW]:Goto 0:IfEnd?????????????????????????????????????????????????????????????????????????????????????????????????????????//选择三维反算模式 ? INPUT（平面线路要素临时输入引导子程序） Cls CURVE NUM?N:2N+3→DimZ????????//提示输入线元数，并相应扩展变量 FreqOn?????????????????????????????????????//打开频率统计串列 START-X?→Z [1]???????????????????????????????????????????????????????????????????????????//提示输入线路起点X坐标 START-Y?→Z [2]???????????????????????????????????????????????????????????????????????????//提示输入线路起点Y坐标 START-T?→List Freq [1]?????????????????????????????????? //提示输入线路起点切线方位角 Cls PRESS[MODE][4]=INPUT:Ki=ListX[i],[+ -]Ri=ListY[i]? //提示在统计串列中输入线路起、终点及各节点桩号和半径，半径左偏为负，右偏为正 Return NJS[YS]（线路节点坐标、切线方位角计算子程序） For 1→I To N If IN:Then Cls:L