FX5800计算器交点法正反算程序

FX5800计算器交点法正反算程序输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色为程

FX5800计算器交点法正反算程序 输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐 标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色 为程序名，蓝色为输入计算器里的内容) 1、主程序 程序名：1XY-KM LbI0：7→DimZ：Norm2:1→A：＂A:X,Y=1，KM,D=2＂?A: A=1=>Goto1:A=2=>Goto2:LbI1:LbIA:Prog＂QX＂:90→B:＂PJ＂?B:B→Z[1]：LbIB:＂ KM＂?Z:Z=-1=>Goto0:Z=-2=>GotoA:Prog＂X1＂:?D:Prog "Z":I+D×COS(Z[2]+Z[1]→X:J+D×Sin(Z[2]+Z[1]→Y:Ｆix3:＂Ｘ=＂：Locate6,4, Ｘ：＂Ｙ＝＂：Locate6,4,Ｙ：◢ GotoB:LbI2：Prog＂QX＂:＂KM＂?Z：LbIC:Prog＂X1＂:＂XO＂?X:X=-1=>Goto 0:X=-2=>Goto2:＂Y0＂?Y:Prog＂ZX＂:Fix3:＂ＫＭ＝＂：Locate6,4,Ｚ：＂ Ｄ＝＂：Locate6,4,Ｄ◢ GotoC 2.交点法正算子程序(Z) 程序名：Z H2÷R÷24-H∧(4)÷2688÷R∧(3)→A:H÷2-H∧(3)÷240÷R2→B:（（H2-N2） ÷24÷R÷Sin(Abs(P))-((H∧(4)-N∧(4))÷2688÷R∧(3))÷Sin(Abs(P→E:(R+A)tan(Abs (P)÷2)+B-E→T:P÷Abs(P→W:0→M:H→C: (R+N2÷R÷24-N∧(4)÷2688÷R∧(3))tan(Abs(P)÷2)+N÷2-N∧(3)÷240÷R2+E→Z[6]: O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Z[7]:IfZ≤O-T:ThenZ-O→S:G→Z[2]:Goto1: IfEnd:IfZ≤O-T+H:ThenZ-O+T→S:Prog“HX”:G+WK→Z[2]:A-T→A:G→E:Goto 2:IfEnd:IfZ≤Z[7]:Then180(Z-O+T-0.5H)÷R÷Π→S: A+R(1-Cos(S))→B:H÷2-H∧(3)÷240÷R2+Rsin(S)→A:R→M:G+WS→Z[2]:A-T→A:G→E :Goto2:IfEnd: IfZ≤Z[7]+N:ThenZ[7]+N-Z→S:Z[6]→T:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:T-A→A:C→H:Goto2:IfEnd: Z-Z[7]-N+Z[6]→S:G+P→Z[2]:LbI1:U+Scos(Z[2])→I:V+Ssin(Z[2]→J:Return:LbI 2:U+Acos(E)-WBsin(E→I:V+ASin(E)+WBcos(E→J 3.交点法缓和段子程序(HX) 程序名：HX S-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4→A:S∧(3) ÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5) ÷H∧(5→B:90S2÷Π÷R÷H→K:RH÷S→M