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 J+360→F:Else J→F:IfEnd L6:〝L=〞:I◢ L7:〝F=〞:FDMS◢ L8: Goto 0
说明：X1?、Y1?—测站点x，y坐标值； X2?、Y2?—待放样点x，y坐标值； L=—测站点至待放样点平距（计算结果）； F=—测站点至待放样点边的方位角（计算结果）。
因篇幅问题不能全部显示，请点此查看更多更全内容