坐标高程fx-5800P程序.doc

fx-5800P计算器坐标正反算程序 1、坐标正算主程序（命名为ZBZS） 第1行：Lbl 0:”K=”?K:”LEN=”?T 第2行：Prog “A“ 更改红色字体部份可调用其它线路数据库，本程序调用左线数据 第3行：“X=“ :N+Tcos(F+90)◢ 显示X坐标 第4行：“Y=“ :E+Tsin(F+90)◢ 显示Y坐标 第5行：“F=“:F◢ 显示中线切线方位角，可省掉 第6行：Prog “GCSJK“ 第7行：“SJZZGC=”:N◢ 第8行：Goto 0 K——计算点里程 LEN——计算点到中桩的距离（左负右正） 2、坐标反算桩号和偏距主程序（命名为ZBFS） 第1行：Lbl 1：“X1=“?C:“Y1=“?D:“K1=“?K 第2行：Lbl 2:Prog “A“ 更改红色字体部份可调用其它线路数据库，本程序调用左线数据 第3行：Pol(C-N,D-E):Icos(F-J) →S:K+S→K 第4行：Abs(S)0. 001=Goto 2 判断精度（可删除） 第5行：Isin(J-F) -4.725→T 反算偏距 第6行：“K1=“:K◢ 反算桩号 第7行：“T=“:T◢ 可与第5行合并 第8行：K→K:T→T 第9行：Lbl 3: ?R: ?H 第10行：Prog “GCSJK“ 调用高程数据库 第11行：(N+1.175)-H→E:Abs(E)→E: √(T2+E2)-R→M 计算超欠挖数据 第12行：“CQW=“:M◢ 显示超欠挖数据 第13行： Goto 1 X1——取样点的X坐标 Y1——取样点的Y坐标 K1——输入时为计算起始点（在曲线内即可），输出时为反算点的桩号 T——偏距（左负右正） 3、计算坐标子程序（命名为XYF） 为了简洁，本程序由数据库直接调用，上述中的正反算主程序不直接调用此程序 第1行：K-A→S:(Q-P)÷L→I 第2行：U+∫(cos(W+X(2P+XI)×90÷π),0,S) →N 计算中桩的X坐标 第2行：V+∫(sin(W+X(2P+XI)×90÷π),0,S) →E 计算中桩的Y坐标 第4行：W+S(2P+SI) ×90÷π→F 计算中线切线方位角 4.子程序(GCSJK) Goto1 Lbl 1：IfK≤232600:Then (1028.248-(232600-k)*0.04)-(k-232365.300) ^2/20000→ N: Return:IfEnd Lbl 1：IfK≤232834.700:Then(1028.248-(232600-k)*-0.00694)-(k-232834.700) ^2/20000→ N: Return: IfEnd Lbl 1：IfK≤233004.160:Then 1026.619-(232834.700-k)*-0.00694→ N: Return:IfEnd Lbl 1：IfK≤233200:Then (1024.086-(233200-k)*-0.00694)+(k-233004.160)^2/24000→ N: Return:IfEnd Lbl 1：IfK≤233395.840:Then(1024.086-(233200-k)*0.0257)+(k-233395.840) ^2/24000→ N: Return: IfEnd Lbl 1：IfK≤234000:Then 1029.119-(233395.840-k)*0.0257→ N: Return:IfEnd 4、兰新铁路第二双线LXS-1标数据库（命名为A） 第 1 行 ：K≤232100.184=Stop 第2行：232100.184→A:2911459.764→U:490442.123→V:309°32′23.8″→W:0→P:－1/900→Q:121→L:K≤A+L=Goto 1 第3行：232221.184→A: 2911534.669→U: 490347.127→V: 305°41′18.2″→W:－1/900→P:-1/900→Q:501.862→L:K≤A+L=Goto 1 第4行：232723.045→A:29117