纯卡西欧计算器5800P坐标正反算

卡西欧计算器5800P坐标正反算

Lbl 3:"1→ZS,2→FS"?Q
Q=1=>Goto 1:Q=2=>Goto 2
Lbl 1:"CE:X"?M:"CE:Y"?F:"JL"?L:"FWJ"?A:Rec(L,A):M+I→C:F+J→D
Cls
"X=":Locate 3,1,C:"Y=":Locate 3,2,D◢
Goto 3
Lbl 2:"CE:X"?G:"CE:Y"?H:"(HOU)FY:X"?N:"(HOU)FY:Y"?E
Pol(N-G,E-H)
If J<0:Then J+360→Y:Else J→Y:IfEnd
Cls
"FY JL=":Locate 10,1,I:"FY FWJ=":Y◆DMS◢
Goto 3

进入程序运行如下:
1→ZS,2→FS?  输入1为正算,2为反算.
以输入1为例:
CE:X?  测站点X(5796.717)
CE:Y?  测站点Y(5212.569)
JL?  仪器测得的距离(321.889)
FWJ?  仪器测得的方位角(193-41-07)
得到:X=5483.966
    Y=5136.414
再按EXE,输2为例:
CE:X?  测站点X(5796.717)
CE:Y?  测站点Y(5212.569)