卡西欧计算器5800测量放样程序

卡西欧5800程序(修改于湘桂)

R（主程序，通过里程求中桩、边桩坐标，在输入测站坐标后并求极坐标放样要素）

1→M :“NEWZ CIRCLE”？M : If M=-1: Then “JD”？U :“1-TR-1-TL” ? N : “AT ” ? O : “JX” ? S : “JY ” ? P : “L0 ” ? H : “R” ? R : “ZJ” ? A : IfEnd↙

“OPP NAME ”？W : If W=-1 : Then “OPPX”？B : “OPPY”？

C : Else Prog“CONTREL”:IfEnd↙

Lbl 0: “C”？K : If Int(K÷1000)>0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙

If M=1:Then Prog“CIRCLE” IfEnd↙

H÷2-H^(3)÷(240R2)+(R+H2÷(24R))tan（A÷2）→T:πR(A-180H÷π

÷R)÷180+2H→L↙

U-T→G:K→Q↙

If Q≤G+L÷2:Then Q-G→Q: Else G+L-Q→Q: IfEnd↙

If Q＜0:Then Prog “L”:Goto1: IfEnd↙

If Q≤H:Then Q-Q^(5)÷(40R2H2)→X:Q^(3)÷(6RH)-Q^(7)÷(336R^(3)H^(3)) →Y:90Q2÷(πRH) →F: Else 180(Q-H÷2)÷(πR) →F:Rsin(F)+H÷2-H^(3)÷(240R2) →X:R(1-Cos(F))+H2÷(24R) →Y: IfEnd↙

Pol(T-X,Y) ↙

If K≤G+L÷2:Then O-180-NJ→E:NF+O→F: “F=”:F▲DMS◢ Else

NA+NJ+ O→E: O+NA-NF→F: “F=”:F▲DMS◢IfEnd↙

“X=”:S+Icos(E)→X◢“Y=”:P+Isin(E)→Y◢If F＜0:Then 360+F→F: IfEnd↙

If F≥360:Then F-360→F: IfEnd↙

Lbl1: “÷1”？Z: If Z=1:Then Prog “I”: IfEnd↙

If Z=2:Then Prog “LD”: IfEnd↙

If Z=-1:Then Prog “Q”: “X=”:X◢“Y=”: Y◢IfEnd↙

Prog “P”↙

Goto 0↙

P（子程序，受主程序R调用，求极坐标放样要素:方位角及平距）Pol(X-B,Y-C): “D=”:I◢If J＜0:Then 360+J→J: Else 0+J→J: IfEnd↙

“AQ=”:J▲DMS◢

L（子程序，受主程序R调用，求直线上点位坐标及切线方位角）

T-Q→Q:If K＜G:Then O+180→E: O→F: “X=”:S+Qcos(E)→X◢

“Y=”:P+Qsin(E) →Y◢ Else O+NA→F: “X=” S+Qcos(F) →X◢“Y=”:P+Qsin(F) →Y◢IfEnd↙

I（子程序，受主程序R调用，求边桩坐标）

“RA”？E：“D”？D:E+F→E: If E≥360:Then E-360→E: IfEnd↙

X+Dcos(E)→X: Y+Dsin(E)→Y: “X=”: X◢“Y=”: Y◢E→F↙

Q（子程序，受主程序R调用，求副线边桩坐标）

“1A”？E：“1D”？D：E+F→E↙

X+Dcos(E)→X: Y+Dsin(E)→Y:E→F↙

“2R”？E: “2D”？D: E+F→E↙

X+Dcos(E)→X: Y+Dsin(E)→Y↙

E→F↙

LD（子程序，受主程序R调用，通过坐标反求里程和偏距）

40→DimZ↙

O→Z[1]:U→Z[2]:S→Z[3]: P→Z[4] ↙

H÷2-H^(3)÷(240R2)→M: H2÷(24R)-H^(4)÷(2688R^(3))→V:90H2÷(πR)→D:(R+V)Tan(A÷2)+M→T: πRA÷180+H→K:O+NA→J:Prog“JD”:J→Z[21]:U-T+K→Z[22]: S-Tcos(O)→Z[5]:P-Tsin(O)→Z[6]:Z[5]+Mcos(O)+(R+V)cos(O+90N)→Z[7]:Z[6]+Msin(O)+ (R+V)sin(O+90N)→Z[8] ↙

H-H^(5)÷(40R2H2)→Z:H^(3)÷(6RH)-H^(7)÷(336R^(3)H^(3))→C: Pol(C,Z):90-J→J:Prog“JD”: O+JN→J:Prog“JD”↙

Z[5]+Icos(J)→Z[9]:Z[6]+Isin(J)→Z[10]:S+Tcos(Z[21])→Z[11]: P+Tsin(Z[21])→Z[12] ↙

Pol(Z[10]-Z[8],Z[9]-Z[7]):90-J→J:Prog“JD”:J→Z[13] ↙

J+(A-2D)N→J: Prog“JD”: J→Z[14] ↙

“CEDIAN”◢

Lbl 0: ↙

“B”？B:If B=0:Then Prog “R”: IfEnd↙

“XN=”？X: “YN=”？Y:Pol(Y-Z[8],X-Z[7]) ↙

90-J→J: Prog“JD”:J→W:J-Z[13]→J↙

Prog“JD”:J→Z[15] ↙

W-Z[14]→J↙

Prog“JD”:J→Z[16] ↙

If N=1:Then Goto 1: IfEnd↙

If N=-1:Then Goto 2: IfEnd↙

Lbl 1: ↙

If Z[15]＞180：Then Goto 3: IfEnd↙

If Z[16]≤180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 2: ↙

If Z[15]＜180：Then Goto 3: IfEnd↙

If Z[16] ＞180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 3: ↙

“H1”◢

Pol(Y-Z[6],X-Z[5]):90-J→J: Prog“JD”↙

J-Z[1]+90→J: Prog“JD”↙

Isin(J)→G↙

If G＞0:Then 0→L:Goto 6: IfEnd↙

If G≤0:Then “DK=”:Z[2]-T+G→Z[19]◢