5800计算程序(通用版).docVIP

5800计算程序《通用版》 ZBFS(坐标反算)通用版《老版本》 ?N:?E:?A:?R:?C:?T:?G:?M:?F Lbl 0:?X:?Y:If GM:Then 1→P:Else -1→P:IfEnd If P=1:Then F→U:Else P=-1: Then F+A→U:IfEnd If A0:Then 1→Z:Else -1→Z:IfEnd Pol(X-N,Y-E:If GM:Then Goto 3:IfEnd G+PT+Rec(I,J-U)→S:J→D If SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD=Q◢ Goto 9 Else Goto 4:IfEnd Lbl 3:If SG:Then ＂K=＂:S→K◢ ＂Q=＂:ZD→Q◢ Goto 9 Lbl 4:C2÷24÷R-C∧(4)÷2688÷R∧(3)→W:C÷2-C∧(3)÷240÷R2→V:90C÷π÷R→B:Pol(P(S-G)-V,ZD-R-W):If JB-90:Then Goto 5:IfEnd P(S-G)+P(S-G)∧(5)÷40÷R2÷C2→Z:Z∧(3)÷(6RC)→H:If A0:Then D-H→W:Else –D-H→W:IfEnd If RC2WC:Then RC÷W→Z:Else ((RC-(R2C2-2RCWZ))÷W→Z:Ifend ＂K=＂:G+PZ→K◢ K-PZ∧(5)÷(40R2C2)→V:Z∧(3)÷(6RC)→H:If A0:Then -1→Z:Else 1→Z:IfEnd ((S-V)2+(ZD-H)2)→W:If ZDH:Then ＂Q=＂:W→Q◢ Else ＂Q=＂:-W→Q◢ IfEnd Goto 9 Lbl 5(90+J)π÷180-C÷(2R)→J:If RJP(M-G)-2C: Then Goto 6: Ifend ＂K=＂:G+P(C+JR)→K◢ ＂Q=＂:R-I→Q◢ Goto 9 Lbl 6:Pol(P(S-G)-T,ZD):M-P(T-Rec(I,J-Abs(A)))→O:If GM:Then Goto 7:IfEnd If OM:Then ＂k=＂:O→K◢ ＂Q=＂J→Q◢ Goto 9 Else Goto 8 Lbl 7:If OM:Then ＂K=＂:O→K◢ ＂Q=＂:J→Q◢ Ifend Goto 9 Lbl 8:P(M-O)+P(M-O)∧(5)÷(40R2C2)→Z:Z∧(3)÷(6RC)→H:J-H→W:If RC2WZ:Then RC÷W→Z:Else((RC-((R2C2-2RCWZ)))÷W→Z:IfEnd ＂K=＂:M-PZ→K◢ K-PZ∧(5)÷(40R2C2)→V:Z∧(3)÷(6RC)→H:((O-V)2+(J-H)2)→W:If JH:Then＂Q=＂:W→Q◢ Else ＂Q=＂:-W→Q◢ IfEnd Goto 9 Lbl 9:?Z:?S: ＂Q=＂357.957+(K-26966)×0.02098+S→O◢ O-Z-S→B:＂P=＂: ((5.3+Q)2+B2)-S→P◢ Goto 0 ZBZS(坐标正算)通用版 ?D:?A:?R:?C:C2÷24÷R-C∧(4)÷2688÷R∧(3)→P:C÷2- C∧(3)÷240÷R2→Q:90C÷π÷R→B(R+P)tan(Abs(A)÷2)+Q→T:(R+P)÷cos(A÷2)-R→J:(Abs(-A)-(2B))πR÷180+2C→L: ＂G＂:D-T→G◢ ＂H＂:G+C→H◢ G+L÷2→W: ＂Z＂:G+L-C→Z◢ ＂M＂:G+L→M◢ ?N:?Z:?I:?F:If A0:Then-1→S:Else 1→S:IfEnd F+A÷2+90S→U:J+R→V: ＂B＂:N+Vcos(U)→B: ＂O＂:E+Vsin(U)→O Lbl 1:?K:If KG:Then G+T-K→L:F+180→V:F→U:Goto 2:IfEnd If KH:Then K-G→L:L-L∧(5)÷90÷(RC)2→V:30SL2÷(πRC)→L:F+180→P:F+L→Q:F+3L→U:Goto 4:IfEnd If KZ:Then F+A÷2+180+90S+(K-W)×180S÷(Rπ)→L:L+90S→U:Goto 5:IfEnd If KM:Then M-K→L:L-L∧(5)÷90÷(RC)2→V:30SL2÷(πRC)→L:F+A→P:F+A+180-L→Q:F+A-3L→U:Goto 4:IfEnd If KM:Then K-M+T→L:F+A→V:V→U:Goto 2:IfEnd Lbl 2:＂X=＂:N+Lcos(V)→X◢ ＂Y=＂:E+Lsin(V)→Y◢ Goto 6 Lbl 3:?