文档介绍：卡西欧fx-5800P程序
1坐标反算(ST)
Lb1 1:"X1="?A:"Y1="?B
Lb2 2:"X2="?C:"Y2="?D
"S(1-2)=":POL(C-A,D-B)→S▲
IF J﹥0:Then J→T:Else J+360→T:If End
"T=":T→DMS▲
"K="?K
If K=1:Then Goto1:If End
If K=2:Then Goto2:If End
If K=3:Then C→A:D→B:Goto 2:If End 0
说明:
1、首先输入架站点坐标X0、Y0(O点)。
2、再输入后视点坐标XP、YP(P点)。
3、计算出O―P的边长S和方位角J。
4、当K=1时,重新输入O、P点的坐标。
5、当K=2时,以原O点坐标不变,重新输入新P点坐,计算出边长S和方位角J。
6、当K=3时,以原P点坐标为架站点坐标O(X0、Y0),重新输入新的P点坐标,计算出边长S和方位角J。
2 坐标正算(XY)
LbI 0: "X0="?A: "Y0="?B:
"P(1→Z,2→F)="?P
If P=1:Then Goto2:Else Goto5: If End
LbI 2:"XA="?C:"YA="?D
"S(0-A)=":POL(C-A,D-B)→S▲
IF J﹥0:Then J→F:Else J+360→F:If End
"T(0-A )=":F→DMS▲Goto6
Lb1 5:"T(0-A )="?F
Lb16:"S(0-P )="?S: "E(∠AOP=)"?E
E+F→T:"XP=":A+Rec(S,T) →X▲
"YP=":B+J→Y▲
If T≥360:Then T-360→T: If End
"T(0-P)=":T→DMS▲
"K="?K
If K=1:Then Goto0:If End
If K=2:Then Goto6:If End
If K=3:Then X→A:Y→B:T+180→F:Goto6:If End
说明:
首先输入架站点O(X0、Y0)坐标
输入判断值P: 当P=1时输入后视点的坐标,计算出到后视点距离"S(0-A)="S和方位角T(0-A )=F; 当P=2时直接输入后视点的方位角T(0-A )=F。
然后输入测点P的平距边长"S(0-P )="?S,和到测点的夹角C"E(∠AOP=)"?E。
计算出P点的坐标P(X、Y)和O―P的方位角"T(0-P)="
当K=1时,重复以上步骤。
当K=2时,架站点O不变,重新输入另一测点P的边长S和夹角F,计算出P点的坐标和方位。
当K=3时,以上一计算点P为架站点,再输入边长和夹角,计算出以支导线形式的坐标和方位。
3 坐标转换(ZH)
"K=1-NO,≠2-Y"?K
If K=1:Then Goto1:Else Goto 2: If End
Lb1 1:"XA="?A:"YA="?B:"XB="?C:"YB=?D: "XI="?E:"YI=?F:"XJ="?G:"YJ="?H
Pol (C-A , D-B) :J→O:Pol (G-E , H-F) :J→U:O-U→T
If T﹤0: Then T+360→T: If End
"X0":