正算Rec（L,θ）,显示X增量“I”,Y增量“J”反算pol(XB-XA,YB-YA),显示距离L“I”,方位角θ“J”，当J＜0时J=J+360
Pol（（X1-X2),(Y1-Y2))需要全线贯通程序联系我
