卡西欧计算器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)