fx-5800p线路计算程序(自然曲线版

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

1、FX-5800P线路计算程序（自然曲线版）NF[XYH]（总调度程序）Lbl0（选择线路平面要素类型：临时输入、重新计算、使用原要素）Norm2:Deg:Cls                                //设置格式及清屏"SELECTDATTYPE":"F0:INPUT":"F1:COMPUTER""FX:PASS"?→M  //选择手工输入起算数据或重新计算要素或使用原要素IfM=206265:ThenGoto2:IfEnd            //选择通过，采用原素IfM=0:ThenProg"INPUT":Goto1:Els

2、eIfM=1:ThenGoto1:ElseGoto0:IfEnd:IfEnd//M=0运行输入程序再计算要素，M=1计算要素Lbl1（自动计算线元要素并累积计算终点数据复核）Norm2:ClsIfM=0:ThenProg"NJS[YS]":ElseProg"SEL[NDATP]":Prog"NJS[YS]":IfEnd//临时输入直接调用要素计算程序，否则读取平面数据库后计算要素Prog"FUHE"                           //调用复核程序计算终点数据Lbl2（选择计算模式）Cls"F0:XY":Locate9,1,"F1:K

3、Z""F2:XYH":Locate9,2,"F3:JGW"“F4:SD“:Locate9,3,"F5:KZTW""COMPUTERMODE"?→M                          //选择计算模式IfM=0:ThenProg"NS[XY]":Goto0:IfEnd//选择坐标计算和极坐标放样模式IfM=1:ThenProg"NS[KZ]":Goto0:IfEnd //选择二维反算模式IfM=2:Then2N+7→DimZ:Cls:“REPEATNO.XXX”?→Z[2N+4]Prog"NS[XYH]":Goto0:IfEnd      

4、                                              //选择三维正算模式IfM=3:ThenProg"NS[JGW]":Goto0:IfEnd  //选择结构物计算模式IfM=4:Then2N+7→DimZ:Cls:“REPEATNO.XXX”?→Z[2N+4]Prog"NS[SD]":Goto0:IfEnd                                                                                                         

5、//选择隧道计算模式IfM=5:Then2N+7→DimZ:Cls:“REPEATNO.XXX”?→Z[2N+4]Prog"NS[KZTW]":Goto0:IfEnd                                                                                                         //选择三维反算模式 INPUT（平面线路要素临时输入引导子程序）Cls"CURVENUM"?N:2N+3→DimZ        //提示输入线元数，并相应扩展变量FreqOn   

6、                                  //打开频率统计串列"START-X"?→Z[1]                                                                           //提示输入线路起点X坐标"START-Y"?→Z[2]                                                                           //提示输入线路起点Y坐标"START-T"?→ListFreq[1]        

7、                          //提示输入线路起点切线方位角Cls"PRESS[MODE][4]=>INPUT:Ki=>ListX[i],[+-]Ri=>ListY[i]"◄//提示在统计串列中输入线路起、终点及各节点桩号和半径，半径左偏为负，右偏为正ReturnNJS[YS]（线路节点坐标、切线方位角计算子程序）For1→IToNIfI

8、            //显示倒计时，时间计算取每线元约2秒ListFreq[