卡西欧fx-5800p计算器测量程序

卡西欧fx-5800p计算器测量程序（作者：水江华）
1.坐标反算程序
"ZBFS QH1-4"◢
Deg：Fix 3←┘
"X+YiS(m）="?A←┘
Lb1 0:"X+YiE(m)，0=>END="?B←┘
Abs（B）=0=>Goto E←┘
Arg（B-A)→J
J<0=>J+360→J
"DIST(m）="：Abs（B-A)◢
"α（DMS)=":J▶DMS◢
Goto 0←┘
Lb1 E:"ZBFS QH1-4=>END"
2.坐标正算程序
"ZBZS QH1-3"◢
Deg：Fix 3←┘
"XS(m)= "？A:"YS(m)= "？B←┘
Lb1 1:"DIST(m)= "？L←┘
If L≤0:Then Goto 2:IfEnd←┘
"α（Deg)="？R←┘
A+Lcos（R）→C←┘
B+Lsin（R）→D←┘
Fix 3："XE(m)= ":C◢
"YE(m)= ":D◢
Goto 1←┘
Lb1 2:"ZBZS QH1-3=>END"
3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢
Deg:Norm 1:FreqOn←┘
n→N←┘
If List Y[N]=0:Then N-1→DimZ:Goto 0←┘
Else N→DimZ:Goto 1: IfEnd←┘
Lb1 0: "CLOSE Or CONECT TRA VE"◢
"ANGLE NUM=":N◢
"SIDE NUM=":N-1◢
"UNKNOWN P NUM=":N-2◢
"CLOSE(0)，CONNECT(≠0)="?→Z←┘
Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘
If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘
C+Di→U：U→V←┘
If A>0：Then Pol（C-A，D-B）：Cls←┘
J<0=>J+360→J：J→R←┘
"DIST A→B(m)="：I◢
"αA→B(DMS)="：R▶DMS◢
IfEnd←┘
If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘
E+Fi→V←┘
"XD(m)，≤0=>αC→D(Deg)="？G←┘
If G>0：Then "YD(m)= "？H←┘
Pol（G-E，H-F）：Cls←┘
J<0=>J+360→J：J→S←┘
"DIST C→D(m)="：I◢
"αC→D(DMS)="：S▶DMS◢
Else "αC→D(Deg)="？S：IfEnd←┘
Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘
IfEnd←┘
∑y→M←┘
For 1→I To N←┘
If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘
If L>180：Then L-180→L：Else L+180→L：IfEnd←┘
Nent←┘
3600(L-S)→T←┘
"α CLOSE ERROR(S)="：T◢
40→W←┘
Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘
-T÷N÷3600→P：0→O←┘
For 1→I To N←┘
If I=1：Then R+List X[I]+P→L←┘
Else L+List X[I] +P→L：IfEnd←┘
If L>180：Then L-180→L：Else L+180→L：IfEnd←┘
If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘
3600(L-S)→T←┘
"CHECK α CLOSE ERROR(S)="：T◢
U+O-V→O←┘
Int(M÷Abs(O))→K←┘
"DELTA X(m)= "：ReP(O)◢
"DELTA Y(m)= "：ImP(O)◢
"RELAT CLOSE ERROR=1÷"：K◢
K<4000=>"RELAT CLOSE ERROR OVER! "←┘
For 1→I To N-1←┘
Z[I]-OList Y[I]÷M→X←┘
If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢
Fix 3："X(m)= "：ReP(Y)◢
"Y(m)= "：ImP(Y)◢
Nent←┘
Y-V→Q←┘
"CHECK X (m)= "：ReP(Q)◢
"CHECK Y (m)= "：ImP(Q)◢
Goto E←┘
Lb1 1："NO DIRECT TRA VE"◢
"ANGLE NUM="：N-1◢
"SIDE NUM="：N◢
"UNKNOWN P NUM="：N-1◢
"XA(m)= "？A:"YA(m)= "？B←┘
"XB(m)= "？C:"YB(m)= "？D←┘
A+Bi→U:C+Di→V←┘
0→H:U+List Y[1]<H→Z[1]←┘
For 1→I To N-1←┘
H+List X[1]→H←┘
If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。