【测量学】FX5800计算器交点法正反算程序.pdfVIP

FX5800 计算器交点法正反算程序 输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐 标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。(绿色 为程序名，蓝色为输入计算器里的内容) 1、 主程序 程序名：1XY-KM LbI 0 ：7→DimZ ：Norm 2:1→A ：＂A:X,Y=1 ，KM,D=2 ＂?A: A=1=>Goto 1:A=2=>Goto 2:LbI 1:LbI A:Prog ＂QX ＂:90→B ＂PJ ＂?B:B→Z[1] ： LbI B: ＂KM ＂?Z:Z= -1=>Goto 0:Z=-2=>Goto A: Prog ＂X1 ＂:?D: Prog "Z":I+D×COS(Z[2]+Z[1]→X: J+D×Sin(Z[2]+Z[1]→Y: Ｆix 3: ＂Ｘ= ＂：Locate 6,4, Ｘ：＂Ｙ＝＂：Locate 6,4,Ｙ：◢ Goto B:LbI 2 ：Prog ＂QX ＂: ＂KM ＂?Z ：LbI C: Prog ＂X1 ＂: ＂XO ＂?X:X=- 1=>Goto 0:X=-2=>Goto 2: ＂Y0 ＂?Y:Prog ＂ZX ＂: Fix 3: ＂ ＫＭ＝＂：Locate 6,4, Ｚ：＂ Ｄ＝＂：Locate 6,4,Ｄ◢ Goto C 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]:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd: If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E:Goto 1 读万卷书 行万里路 2:IfEnd:If Z≤Z[7]: Then 180(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 :Goto 2: IfEnd If Z≤Z[7]+N:Then Z[7]+N-Z→S:Z[6]→T :N→H:Prog “HX”:G+P→E:E- WK→Z[2]:T-A→A:C→H:Goto 2:IfEnd: Z-Z[7]-N+Z[6]→S:G+P→Z[2]: LbI 1: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 4. 交点法反算子程序(ZX) 程序名：ZX 0→D:Do:Z+D→Z:Prog“Z”:Pol(X-I,Y-J+.000000001:J- Z[2]→J:Isin(J→S:Icos(J→D: If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D)>0.001:Z+D→Z:S→D 5 ．线路选择子程序(线路选择输 0 时。则输曲线参数（QX ） 程序名：QX 1→A:”QX ？=0 ，X1=1,X2=2”?A:A→Z[3] If A=0:Then ”JDKM”?O:”XJ”?U:”YJ”?V:”FW”?G:”LS1”?H:“LS2” ？N ： “JDZJ”？P:?R:IfEnd 6 ．坐标计算参数矩阵调出子程序（F ） 程序名：F Mat F[1,1]→O: M