欢迎来到天天文库
浏览记录
ID:6595038
大小:77.50 KB
页数:2页
时间:2018-01-19
《测量坐标转施工坐标》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、程序九:坐标正反算FX4800实用于直线,在公路测量中,实用于求交点或ZH、HZ,方位角已知两点坐标求这条线的方位角和距离已知一点坐标和该线方位角和距离,求第二点坐标程序说明程序输入:出现(1)ZBZS(FWJ,S),(2)ZBFS(X,Y)时候,输入1进入方位角和距离的计算,输入2计算第二点坐标X(1),Y(1):1点坐标X(2),Y(2):2点坐标S:两坐标间的距离FWJ:(1→2)该线方位角主程序名:ZBZFSLbl1A"(1)ZBZS(FWJ,S),(2)ZBFS(X,Y)"A=2Goto3Lbl2{BCDE}:B”X(1)”:C”Y(1)”:D”X(2)”:E”Y(2)”:I=
2、0:J=1Pol((D-B),(E-C))I”S=”J<0J=J+360J”FWJ=”Goto2Lbl3{BCSE}:B”X(1)”:C”Y(1)”:S”S”:E”FWJ”:I=0:J=1Rec(S,E)X=B+I:Y=C+JX”X(2)=”Y”Y(2)=”Goto15800调试程序主程序名:ZBZFSLbl1"(1)ZBZS(FWJ,S),(2)ZBFS(X,Y)"?AIfA=2:ThenGoto3:IfEndLbl2”X(1)”?B:”Y(1)”?C:”X(2)”?D:”Y(2)”?E:0→I:1→JPol((D-B),(E-C))”S=”:IIfJ<0:ThenJ+360→J:If
3、End”FWJ(1→2)=”:JDMSGoto2Lbl3”X(1)”?B:”Y(1)”?C:?S:”FWJ(1→2)”?E:0→I:1→JRec(S,E)B+I→X:C+J→Y”X(2)=”:X”Y(2)=”:YGoto3
此文档下载收益归作者所有