欢迎来到天天文库
浏览记录
ID:8971156
大小:94.50 KB
页数:17页
时间:2018-04-13
《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→IToNIfI8、 //显示倒计时,时间计算取每线元约2秒ListFreq[
8、 //显示倒计时,时间计算取每线元约2秒ListFreq[
此文档下载收益归作者所有