5800程序及方位角及距离计算

本资料包含doc文件1个，下载需要10积分

L1: Lb1 0
L2:〝X1〞X:〝Y1〞Y:〝X2〞U:〝Y2〞V
L3: U-X→G:V-Y→H
L4: Pol(G，H):Cls
L5: If J<0:Then J360→F:Else J→F:IfEnd
L6:〝L〞:I◢
L7:〝F〞:FDMS◢
L8: Goto 0

说明：X1、Y1-测站点x，y坐标值；
X2、Y2-待放样点x，y坐标值；
L-测站点至待放样点平距（计算结果）；
F-测站点至待放样点边的方位角（计算结果）。