\"I=\":Pol(C-A,D-B)→▲ If J≥0:Then \"J\":J→J▲ Else \"J\":J+360→J▲ IfEnd
注：A=X1 B=Y1 C=X2 D=Y2 I=距离 J=方位角 直线坐标计算 Lbl 0 Prog \"FWJ\" Lbl 1 ?S:?N:?F S-N→L:J+90→H
\"X=\":A+Lcos(J)+Fcos(H)→X▲ \"Y=\" :B+Lsin(J)+Fsin(H)→Y▲ Goto 1
注：A=X1 B=Y1 C=X2 D=Y2
I=距离 J=方位角
S=待求距离 N=起点桩号（一般为“0”） F=左右方向待求距离（右为-1，左为+1）
因篇幅问题不能全部显示，请点此查看更多更全内容