坐标正算
Lbl 1：“X1"?A:"Y1"?B:"X2"?C:"Y2"?D:Pol（C-A,D-B):IF J<0:Then J+360→J:Endif:"FWJ":J◢
"S":I◢GOTO1
X1 Y1 X2 Y2 已知点坐标
S FWJ 分别为测站点到厚视点的距离和方位角
坐标反算
Lbl 1：“X1"?A:"Y1"?B:"S"?S:"FWJ"?F:A+Scos(F)→C:B+Ssin(F)→D:"X2=":C◢"Y2":D◢Goto1
X1 Y1测站点坐标 X2 Y2 后视点坐标
S FWJ 分别为测站点到厚视点的距离和方位角
要程序是吗？我发给你，给邮箱或至Q：339575009
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024