fx-5800p大地坐标转施工坐标程序(有问题)

《fx-5800p大地坐标转施工坐标程序(有问题)》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、大地坐标转施工坐标原程序来自烂心CSHS  程序标题〃DD⇒SG〃◢Deg:Fix3:Clrstat:FreqOff:Cls↙0→K↙Lbl0↙K+1→K:Norm  1:〃n=〃:K◢〃XO=〃?A:〃YO=〃?B:〃DX=〃?C:〃DY=〃?D:〃XI=〃?E:〃YI=〃?F↙tan-1((F-B)÷(E-A))→G↙〃Xn=〃?X↙〃Yn=〃?Y↙IFA

2、Y［K］:Cls↙〃XP=〃:Locate5,1,U:〃YP=〃:Locate5,2,V◢Lbl2↙Fix3↙-((X-A)cos(G)+（Y-B)sin(G)+C)→M↙-((Y-B)cos(G)-（X-A)sin(G)+D)→N↙M→List  X［K］:N→List  Y［K］:Cls↙〃XP=〃:Locate5,1,M:〃YP=〃:Locate5,2,N◢Goto1：WhlieEnd↙〃CSHS→END〃程序运行说明：A,B为大地坐标点，以A-B为施工坐标X轴方向，AB右侧为施工坐标Y轴先输入A坐标（XO，YO），再输入对应的施工坐标（DX，DY）和大地坐标后视坐标（XI

3、，YI），作为3个已知数据再输入要转换的大地坐标点（xn，yn）  ，可重复输入例：XO=469.6761  YO=541.2226   DX=0    DY=0XI=462.6226 YI=530.1432输入xn=258.8645    yn=228.4332.21  出  xp=377.07  yp=-9.853根据公式X=xo'-Y'SINQ+X'COSQY=Yo'+Y'COSQ+X'SINQ↙代表回车Clrstat找到了在FUNCTION，中第六个IFA

4、n=〃?X↙〃Yn=〃?Y↙Pol（E-A,F-B）↙“J=”:J◢可以不加加进去就显示EA,FB的方位角IF90