4800极坐标放样：



L1   I=0:J=0
L2   A“ZX”B“ZY”
L3   LbI 0:｛XY｝:POL(X-A,Y-B):I“D=”▲
L4   J<0﹦﹥J=J+360⊿J“F=”▲
L5   GOtO 0  

注解：
ZX ----------支镜点X坐标
ZY ----------支镜点Y坐标
X  ----------放样点X坐标  
Y  ----------放样点Y坐标
D= ----------距离
F= ----------方位角