FX-5800P线路计算程序(自然曲线版

FX 5800P 线路计算程序 自然曲线版 线路计算程序 自然曲线版 NF X Y H 总调度程序 LblLbl 0 0 选择线路平面要素类型 临时输入 重新计算 使用原要素 选择线路平面要素类型 临时输入 重新计算 使用原要素 NormNorm 2 Deg Cls2 Deg Cls 设置格式及清 屏 SELECT SELECT DATDAT TYPE F0 TYPE F0 INPUT F1 INPUT F1 COMPUTER COMPUTER FX FX PASS MPASS M 选择手工输入起算数据或重新计算要素或使用原要素 IfIf M 206265 ThenM 206265 Then GotoGoto 2 2 IfEndIfEnd 选择通过 采用原 素 IfIf M 0 ThenM 0 Then Prog INPUT GotoProg INPUT Goto 1 Else1 Else IfIf M 1 ThenM 1 Then GotoGoto 1 Else1 Else GotoGoto 0 IfEnd IfEnd0 IfEnd IfEnd M 0 运行输入程序再计算要素 M 1 计算要素 LblLbl 1 1 自动计算线元要素并累积计算终点数据复核 自动计算线元要素并累积计算终点数据复核 Norm2 ClsNorm2 Cls IfIf M 0 ThenM 0 Then Prog NJS YS ElseProg NJS YS Else Prog SEL NDATP Prog SEL NDATP Prog NJS YS IfEndProg NJS YS IfEnd 临时输入直接调用要素计算程序 否则读取平面数据库后计算要素 Prog FUHE Prog FUHE 调用复核程序计算终点数据 Lbl 2 选择计算模式 ClsCls F0 F0 XY XY LocateLocate 9 1 F1 9 1 F1 K K Z Z F2 XYH F2 XYH LocateLocate 9 2 F3 9 2 F3 JGWJGW F4F4 SDSD LocateLocate 9 3 9 3 F5F5 KZTWKZTW COMPUTER COMPUTER MODEMODE M M 选择计算模 式 IfIf M 0 ThenM 0 Then Prog NSProg NS XYXY Goto Goto 0 IfEnd0 IfEnd 选择坐标计算和极坐标 放样模式 IfIf M 1 ThenM 1 Then Prog NSProg NS KZKZ Goto Goto 0 IfEnd0 IfEnd 选择二维反算模式 IfIf M 2 ThenM 2 Then 2N 72N 7 DimZ DimZ Cls Cls REPEAT REPEAT NO XXX NO XXX Z 2N 4 Z 2N 4 Prog NS XYH GotoProg NS XYH Goto 0 IfEnd0 IfEnd 选择三维正算模 式 IfIf M 3 ThenM 3 Then Prog NSProg NS JGWJGW Goto Goto 0 IfEnd0 IfEnd 选择结构物计算模 式 IfIf M 4 ThenM 4 Then 2N 72N 7 DimZ DimZ Cls Cls REPEAT REPEAT NO XXX NO XXX Z 2N 4 Z 2N 4 Prog NS SD GotoProg NS SD Goto 0 IfEnd0 IfEnd 选择隧道计算模式 IfIf M 5 ThenM 5 Then 2N 72N 7 DimZ DimZ Cls Cls REPEAT REPEAT NO XXX NO XXX Z 2N 4 Z 2N 4 Prog NS KZTW GotoProg NS KZTW Goto 0 IfEnd0 IfEnd 选择三维反算模式 INPUT 平面线路要素临时输入引导子程序 ClsCls CURVE CURVE NUM N 2N 3 DimZNUM N 2N 3 DimZ 提示输入线元数 并相应扩展变量 FreqOnFreqOn 打开频率统计串列 START X Z START X Z 1 1 提示输入线路起点 X 坐 标 START Y Z START Y Z 2 2 提示输入线路起点 Y 坐 标 START T List START T List FreqFreq 1 1 提示输入线路起点切线方位角 ClsCls PRESS MODE 4 INPUT Ki ListX i PRESS MODE 4 INPUT Ki ListX i Ri ListY i Ri ListY i 提示在统计串列中输入线路起 终点及各节点桩号和半径 半径左偏为负 右偏为正 ReturnReturn NJS YS 线路节点坐标 切线方位角计算子程序 ForFor 1 I1 I ToTo N N IfIf I N ThenI N Then Cls LocateCls Locate 1 2 PLEASE1 2 PLEASE WAIT WAIT LocateLocate 14 2 Int 2 N I Locate14 2 Int 2 N I Locate 3 4 HUANG3 4 HUANG HAIHAI BING BING IfEndIfEnd 显示倒计时 时间计算取每线元约 2 秒 ListList FreqFreq I 180 1 List I 180 1 List Y I ListY I List Y I ListY I List Y I 1 2ListY I 1 2List Y I ListY I List Y I 1 ListY I 1 List X I 1 ListX I 1 List X I ListX I List Freq I 1 Freq I 1 计算各节点方位角 360Frac 360 List360Frac 360 List FreqFreq I 1 360 List I 1 360 List FreqFreq I 1 I 1 方位角 化到 0 360 范围 Z Z 2I 1 U Z 2I 1 U Z 2I V List 2I V List FreqFreq I G List I G List X I OX I O 字母 字母 ListList X I 1 S ListX I 1 S List X I 1 H ListX I 1 H List Y I P ListY I P List Y I 1 RY I 1 R Abs S O W P R 2PR H O D 1 Q 0Abs S O W P R 2PR H O D 1 Q 0 零 零 Z Z 90 C 90 C Prog G ZS Prog G ZS X ZX Z 2I 1 Y Z 2I 1 Y Z 2I 2 2I 2 NextNext ReturnReturn FUHE 线路平面计算自检程序 maxX S 0 ZmaxX S 0 Z Prog Prog ZH YS ZH YS Prog Prog ZS ZS ClsCls ke Locate ke Locate 5 1 S5 1 S Te Locate Te Locate 5 2 T5 2 T0 0 Xe Locate Xe Locate 5 3 X5 3 X Ye Locate Ye Locate 5 4 X5 4 X 显示终点桩号 切线方位角 坐标进行自检 因为相当于累积计算 所以只 要能对上图纸 表示坐标计算没问题 ReturnReturn ZH YS 循环转换串列或扩展变量到正算 标准变量 子程序 ForFor 1 I1 I ToTo N N IfIf S ListS List X I 1 ThenX I 1 Then ListList X I O ZX I O Z 2I 1 U 2I 1 U Z Z 2I V List 2I V List FreqFreq I G List I G List Y I P ListY I P List Y I 1 RY I 1 R ListList X I 1 H 1 Q ReturnX I 1 H 1 Q Return IfEndIfEnd NextNext ReturnReturn ZS 线路正算预备程序 Abs S O WAbs S O W P R 2PR H O D P R 2PR H O D Prog G ZS Prog G ZS ReturnReturn G ZS 高斯 勒戎德 4 节点近似积分计算线元坐标子程序 LblLbl 0 0 0 1739274226 A 0 1739274226 A 0 32607257775 B0 32607257775 B 0 0694318442 K 0 0694318442 K 0 3300094782 L0 3300094782 L LblLbl 1 1 U W ACos G 180QKW 1 P KWD BCos G 180QLW 1 P LWD U W ACos G 180QKW 1 P KWD BCos G 180QLW 1 P LWD BCos G 180 1 L QW 1 P 1 L WD BCos G 180 1 L QW 1 P 1 L WD ACos G 180 1 ACos G 180 1 K QW 1 P 1 K WD XK QW 1 P 1 K WD X V W ASin G 180QKW 1 P KWD BSin G 180QLW 1 P LWD V W ASin G 180QKW 1 P KWD BSin G 180QLW 1 P LWD BSin G 180 1 L QW 1 P 1 L WD ASin G 180 1 BSin G 180 1 L QW 1 P 1 L WD ASin G 180 1 K QW 1 P 1 K WD YK QW 1 P 1 K WD Y G 180QW 1 P WD C FG 180QW 1 P WD C F X ZX Z Cos F X Cos F X Y ZY Z Sin F YSin F Y 360Frac 360 F C 360 T360Frac 360 F C 360 T ReturnReturn NG FS 线路反算子程序 0 Z0 Z DoDo Prog Prog ZH YS ZH YS Abs S O WAbs S O W P R 2PR H O D P R 2PR H O D Prog G ZS Prog G ZS 调用正算程序计算某桩号中桩坐标 Pol ReP M X ImP M Y 10 Pol ReP M X ImP M Y 10 9 9 J J J 360 JJ 360 J 计算某中桩 点到待求点的距离和方位角 J T J J T J J J J 360 JJ 360 J ICos J C 90 I ICos J C 90 I S I IS I I 计算待求点到 过某中桩点且与切线右夹角为 C 的直线 的距离 LpWhileLpWhile Abs I 10 5 Abs I 10 5 距离小于 10 5 时退出循 环 Y ImP M Sin T 180 C Z Y ImP M Sin T 180 C Z Z I ZZ I Z 计算待求点对应偏距 包含 斜交 ReturnReturn NS XY 直角坐标计算及极坐标放样子程序 Norm2Norm2 Prog Prog STATION ClsSTATION Cls 调用测站程序 90 C ANG 90 C ANG C Cls C Cls 输入斜交右角 0 180 LblLbl 1 1 输入桩号及偏距计算中边桩坐标和极坐标放样数据 输入桩号及偏距计算中边桩坐标和极坐标放样数据 ClsCls K KP P S S 提示输入待求点桩号 IfIf S S 1 Then 1 Then Return IfEndReturn IfEnd 如果桩号等于 1 则返回主程序界面 IfIf S SmaxXS maxX Then Then ClsCls LocateLocate 2 1 2 1 K KP P OVER OVER LocateLocate 2 3 2 3 EXE INPUT EXE INPUT K KP P GotoGoto 1 1 IfEndIfEnd 桩号超限判断及处理 ClsCls Z ZP P Z Z 提示输入待求点到中桩的偏距 左 右 Prog Prog ZH YS ZH YS 调用要素转换子程序 Prog Prog ZS ZS 调用正算预备子程序 Prog POl Prog POl 调用极坐标计算子程序 Prog DISP XY Prog DISP XY 调用直角坐标和极坐标显示子程序 GotoGoto 1 1 NS KZ 平面线路反算子程序 ClsCls 90 C ANG 90 C ANG C C 输入斜交右角 0 180 LblLbl 1 1 输入任意桩号及坐标 计算对应桩号和偏距 输入任意桩号及坐标 计算对应桩号和偏距 Norm2 Norm2 ClsCls K KP P S If S If S S 1 Then 1 Then ReturnReturn 桩号等于 1 时返回主程序界面 ElseElse N NP P E EP Pi M i M Prog NG FS Prog NG FS Prog DISP KZProg DISP KZ IfEndIfEnd 否则调用反算子程序 显示桩号偏距子程序 Cls GotoCls Goto 1 1 NS XYH 线路三维正算子程序 NS JGW 线路结构物正反算子程序 LblLbl 0 0 选择计算模式 选择计算模式 ClsCls F0 F0 SETSET OUTOUT 放样模 式 F1 F1 CHECKCHECK 检测模 式 F2 F2 4POINT4POINT M M 计算 4 角点模 式 ClsCls 9090 C C ANG ANG C C 初始化斜交右角 并请求输 入 IfIf M M 0 Then0 Then Cls Cls Prog Prog STATION GotoSTATION Goto 1 1 ElseElse IfIf M 1 M 1 ThenThen GotoGoto 2 2 Else GotoElse Goto 3 3 IfEnd IfEnd IfEndIfEnd LblLbl 1 1 结构物极坐标放样模式 结构物极坐标放样模式 Norm2 Norm2 ClsCls KC S KC S 请求输入结构物中心桩号 IfIf S S 1 1 Then Then ReturnReturn ElseElse IfIf S S 2 2 ThenThen GotoGoto 0 0 IfEnd IfEnd IfEndIfEnd 桩号 1 返回主界面 桩号 2 返回结构计算类型选择界面 ClsCls ZC Z ZC Z 请求输入结构物中心偏距 Prog Prog ZH YS ZH YS Prog Prog ZS ZS 计算中心桩号 偏距处坐标及对应切线方位 角 ClsCls Lt Lt I I 请求输入计算点到轴线的垂距 前正后负 ClsCls ANG2 ANG2 J J 请求输入横轴与结构端线右夹 角 X Icos T C J X Icos T C J X X Y Isin T C J Y Isin T C J Y Y 计算角点 X Y 坐标 Prog Prog POl POl Prog DISP XY Prog DISP XY 调用极坐标计算子程序 直角坐标和极 坐标显示子程序 GotoGoto 1 1 LblLbl 2 2 结构物检测模式 结构物检测模式 Norm2 Norm2 ClsCls KC S KC S 请求输入结构物中心桩号 IfIf S S 1 1 Then Then ReturnReturn ElseElse IfIf S S 2 2 ThenThen GotoGoto 0 0 IfEnd IfEnd IfEndIfEnd 桩号 1 返回主界面 桩号 2 返回结构计算类型选择界面 0 0 Z Z 偏距置零 ClsCls N NP P E Epi pi M M 请求输入实测坐 标 Prog Prog ZH YS ZH YS Prog Prog ZS ZS 计算中心桩号 偏距处坐标及对应切线方位 角 ReP M Sin ReP M Sin T T ImP M Cos ImP M Cos T T Xsin T Xsin T YCos T ZYCos T Z 计算实测点到切线的垂距 Z Sin Z Sin C C Z Z 垂距换算成 斜距 ReP M Sin T C ImP M Cos T C ReP M Sin T C ImP M Cos T C Xsin TXsin T C C YCos TYCos T C I C I 计 算实测点到结构物横轴线的垂距 I Sin I Sin C IC I 垂距换算成 斜距 Cls Cls FixFix 3 3 Lt Lt LocateLocate 5 2 I5 2 I LocateLocate 1 3 LW 1 3 LW LocateLocate 5 4 5 4 Z Z ClsCls GotoGoto 2 2 LblLbl 3 3 计算结构物角点模式 计算结构物角点模式 Norm2 Norm2 ClsCls KC S KC S 请求输入结构物中心桩号 IfIf S S 1 1 Then Then ReturnReturn ElseElse IfIf S S 2 2 ThenThen GotoGoto 0 0 IfEnd IfEnd IfEndIfEnd 桩号 1 返回主界面 桩号 2 返回结构计算类型选择界面 ClsCls ZC Z ZC Z 请求输入结构物中心偏距 Prog Prog ZH YS ZH YS Prog Prog ZS ZS 计算中心桩号 偏距处坐标及对应切线方位 角 ClsCls ANG2 ANG2 J J 请求输入横轴与结构端线右夹 角 ClsCls WZ WYi WZ WYi I I 请求输入左右轴线长 度 ClsCls DQ DHi DQ DHi A A 请求输入角点到横轴的垂距 ClsCls X ReP I Cos T C 180 X ReP I Cos T C 180 ReP A Cos T C J Sin J ReP A Cos T C J Sin J Y ReP I Y ReP I SinSin T C 180 T C 180 ReP A ReP A SinSin T C J Sin J T C J Sin J X ReP I Cos T C 180 X ReP I Cos T C 180 ImP A Cos T C J 180 Sin J ImP A Cos T C J 180 Sin J Y ReP I Y ReP I SinSin T C 180 T C 180 ImPImP A A SinSin T C J 180 Sin J T C J 180 Sin J X X ImPImP I Cos T C I Cos T C ReP A Cos T C J Sin J ReP A Cos T C J Sin J Y Y ImPImP I I SinSin T C T C RePReP A A SinSin T C J Sin J T C J Sin J X X ImPImP I Cos T C I Cos T C ImPImP A Cos T C J 180 Sin J A Cos T C J 180 Sin J Y Y ImPImP I I SinSin T C T C ImPImP A A SinSin T C J 180 Sin J T C J 180 Sin J Mat Mat A A 计算 ZQ ZH YQ YH 坐标并存储在矩阵 A 中 Cls Cls FixFix 3 3 MatMat A A GotoGoto 3 3 NS SD 隧道超欠挖子程序 NS KZTW 路基路面三维反算检测子程序 SEL MDHI 高程横坡数据库引导子程序 SEL NDATP 平面数据库选择子程序 LblLbl 0 0 选择线路代码 选择线路代码 Cls ZHUHAI JICHANG Cls ZHUHAI JICHANG THE THE ROADROAD NO XX MNO XX M IfIf M 1M31 ThenM 31 Then GotoGoto 0 IfEnd0 IfEnd IfIf M 1 ThenM 1 Then Prog NDATP XXX Return Prog NDATP XXX Return IfEndIfEnd IfIf M 2 ThenM 2 Then Prog Prog NDATP XXX Return NDATP XXX Return IfEndIfEnd IfIf M 31 ThenM 31 Then Prog NDATP XXX Return Prog NDATP XXX Return IfEndIfEnd STATION 测站输入子程序 ClsCls Z Z 2N 3 E St X St Y i E 2N 3 E St X St Y i E E ZE Z 2N 3 2N 3 ReturnReturn POL 极坐标计算子程序 Pol X ReP Pol X ReP Z Z 2N 3 2N 3 Y ImP Z Y ImP Z 2N 3 2N 3 10 9 10 9 JJ 360 JJJ 360 J ReturnReturn DISP XY 极坐标要素及直角坐标显示子程序 FixFix 3 Cls3 Cls HR Locate HR Locate 5 1 J5 1 J0 0 HD Locate HD Locate 5 2 I5 2 I X Xp p Locate Locate 5 3 X5 3 X Y Yp p Locate Locate 5 4 Y5 4 Y Retur