修改后5800贺使用的计算机程序.docVIP

FX5800计算器交点法正反算程序 输入图纸中的整个标段交点要素，输入桩号及距中桩距离正算本标段任意点坐标，及极坐标放样的方位角及距离;由输入大概桩号及实测坐标，反算准确桩号及距中桩距离。 1、主程序 程序名：1XY-KM LbI 0：16→DimZ：Norm 2:1→A：＂ZB:1，FS: 2＂?A A=1=Goto 1: A=2=Goto 2: LbI 1:Z[4]→K: Z[5]→L:“A=”?K:“B=”?L: K→Z[4]: L→Z[5] LbI A:Prog＂ZQX＂:90→B:＂Q＂?B:B→Z[1]： LbI B:＂KM:=0=END,=-1：FS,=-2：LIST＂?Z: Z= 0=Goto 3： Z= -1=Goto 0:Z=-2=Goto 2: Prog＂ZX1＂:”P.Ju,ZP:-D”?D: Prog Z: I+D×COS(Z[2]+Z[1]→X: J+D×Sin(Z[2]+Z[1]→Y: Ｆix 4:＂Ｘ=＂： Locate 6,4,Ｘ:＂Ｙ＝＂：Locate 6,4,Ｙ：Prog＂ZJS＂:Goto B: LbI 2：Prog＂ZQX＂:＂KM＂?Z： LbI C: Prog＂ZX1＂: ＂XO＂?X:X=-1=Goto 0:X=-2=Goto 2: ＂Y0＂?Y: Prog ＂ZX＂: Fix 4:＂ＫＭ＝＂＂＂”5800-1=END” 2. 交点法正算子程序() 程序名：Z(公用) H2÷R÷24-H∧(4)÷2688÷R∧(3)→A : H÷2-H∧(3)÷240÷R2→B: （（H2-N2）÷÷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 “ZHX”:G+WK→Z[2]: A-T→A:G→E:Goto 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“ZHX”: 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. 交点法缓和段子程序() 程序名：ZHX 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(通用) 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） 程序名：ZQX 1→A:”CAN SHU SHURU:A=0,YX=1,ZX=2,QI.D=3,RE.YI.X=4,TONG DAO=5”？ 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（ZFS） Mat F[1,1]→O: Mat F[1,2]→U: Mat F[1,3]→V: Mat F[1,4]→G: Ma