《fx5800正反算程序.doc》由会员分享,可在线阅读,更多相关《fx5800正反算程序.doc(1页珍藏版)》请在三一文库上搜索。
Lbl 3:1ZS,2FS?QQ=1=Goto 1:Q=2=Goto 2Lbl 1:CE:X?M:CE:Y?F:JL?L:FWJ?A:Rec(L,A):M+IC:F+JDClsX=:Locate 3,1,C:Y=:Locate 3,2,DGoto 3Lbl 2:CE:X?G:CE:Y?H:(HOU)FY:X?N:(HOU)FY:Y?EPol(N-G,E-H)If J0:Then J+360Y:Else JY:IfEndClsFY JL=:Locate 10,1,I:FY FWJ=:YDMSGoto 3进入程序运行如下:1ZS,2FS? 输入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)