《直线中桩飞点程序》由会员分享,可在线阅读,更多相关《直线中桩飞点程序(2页珍藏版)》请在金锄头文库上搜索。
4800 程序FYDZBJSLbI 1ABCDAXCZBYCZCXHDYHPoICA,DB: W = J W0 零=W=W+360。LbI 0 零E,FEJULIE0 零=Goto 1FZJG=W+FG360。=G=G360。G0 零=G+360。RecE,GHXF=A+IKYF=B+J Goto 0 零注 XCZYCZ-输起算点坐标XHYH-输后视点坐标W-起算点到后视点这条边的方位角JULI-输待算点到起算点距离 J-暂时不知-?ZJ-输起算点到后视点这条边与待算点之间的夹角在直线前进线路上输 0;反方向输 180 度转点输待算点与后视边夹角I-待算点 X 增量XF-待算点 X 坐标YF-待算点 Y 坐标