5800全线贯通坐标计算（6个数据库）.docVIP

公式全线贯通坐标正反算fx－5800P程序 第一次坐标反算时最好计算两遍，再看结果，如果得出结果一样，取其结果，后面的就只算一次，取其结果。 正算主程序 A “X0=”？U:“Y0=”？V: LbI 0:“JS 4D=”？J:“K=”？K:J=1=GoTo 1:J=2=GoTo 2:J=3=GoTo 3:J=4=GoTo 4:J=5=GoTo 6:J=6=GoTo 7:J=7=GoTo 8:LbI 8:Prog“D-7”：GoTo5:LbI 7:Prog “D-6”:GoTo 5:LbI 6:”Prog”D-5”:GoTo 5:LbI 4:ProgD-4：GoTo 5:LbI 3:Prog “D-3” :GoTo 5:LbI 2:Prog “D-2”:GoTo 5 : LbI 1:Prog D-1 :GoTo5: EXE LbI 5:Prog ZSCX”:ProgFY:Goto 0 ←┘ 反算主程序B LbI 0:FD=?Z:Z=1=Goto 1:Z=2=Goto 2:Z=3=Goto 3:Z=4=Goto 4: Z=5=Goto 6: Z=6=Goto 7:LbI 1:Prog D-1:GoTo5:LbI 2:Prog D-2:GoTo5:LbI 3:Prog D-3:GoTo5:LbI 4:Prog D-4:GoTo5: LbI 6:Prog D-5” :GoTo5 : LbI 7:Prog D-6:GoTo5 EXE LbI 5:Prog” FSCX”: “PJ=”:L◢ EXE ”DK=”: O+Z→K◢ EXE “A×Abs(I-J)÷200→Z[1] EXE KV-Z[1]=GoTo B:K≦V=GoTo C:KV+Z[1]=GoTo E:KV=GoTo D EXE LbI B :”SJG=”:U-I×(V-K)÷100→k◢ Return EXE LbI C:”SJG=”： EXE If IJ :Then U+I×J(K-V)÷100-(K+Z[1]-V)2÷(2A)→H◢ Else U+I×(K-V)÷100+(K+Z[1]-V)2÷(2A)→H◢ IfEnd EXE Return EXE LbI D:”SJG=”: EXE If IJ Then U+J×(K-V)÷100-(K-V-Z[1])2÷(2A)→H◢ Else U+J×(K-V)÷100+(K-V-Z[1])2÷(2A)→H◢ IfEnd EXE LbI E:”SJG=”:U+J×(K-V)÷100→H◢ Return EXE GoTo 0←┘ 1.正算子程序ZSCX(P-R)÷(2Abs(H-O)PR)→D←┘“L(-Z +Y)=”?L :”ANG(YJJ)=”?M ←┘ Abs(K-O)→Z←┘ ProgZSZCX←┘F-M→F: ZB X=:X◢ ZB Y=:Y◢ FWJ=:F?DMS◢ 2. 反算子程序 FSCXK=?K:N=?N:T=?T:(P-R)÷(2 Abs (H-O)PR) →D←┘Abs((T-S)cos(G-90)－(N-W)sin(G-90)) →Z：0 →L:90→M←┘Lbl 0：Prog ZSZCX ：(T-Y)cos(G-90+QZ(1÷P+ZD)×180÷π)-(N-X)sin(G-90+QZ(1÷P +ZD) ×180÷π) →L←┘If Abs(L)0.0001:Then Goto1：Else Z+L→Z：Goto 0 IfEnd←┘Lbl 1:0→L：Prog ZSZCX ： (T-Y)÷sinF→L←┘ 3、正算子程序(ZSZCX) 8→DimZ:0.2393143352→Z[7]:0.2844444444→Z[4]:0.0469100770→Z[8]:0.2307653449→E:0.5→Z[1]←┘ W+Z(0.1184634425cos(G+QZ[8]Z(1÷P+Z[8]ZD)×180÷π)+Z[7]cos(G+QEZ(1÷P+EZD)×180÷π)+Z[4]cos(G+QZ[1]Z(1÷P+Z[1]ZD)×180÷π)+Z[7]cos(G+Q(1-E)Z(1÷P+(1-E)ZD)×180÷π)+ 0.1184634425cos(G+Q (1-Z[8])Z(1÷P+(1-Z[8])ZD) ×180÷π))→Z[5] ←┘S+Z(0.1184634425sin(G+QZ[8]Z(1÷P+Z[8]ZD)×180÷π)+Z[7]sin(G+QEZ(1÷P+EZD)×180÷π)+Z[4]sin(G+QZ[1]Z(1÷P+Z[1]ZD)×180÷π)+Z[7]sin(G+Q(1-E)Z(1÷P+(1-E)ZD)×180÷π)+ 0.1184634425sin(G+