Q:已知(X1,Y1)、(X2,Y2)两点,求其延长线上定长距离L点(X,Y)坐标
A:
IF SQRT(EXPT(X2-X1,2)+EXPT(Y2-Y1,2))<>0 THEN
Xa:=X1+L*(X2-X1)/SQRT(EXPT(X2-X1,2)+EXPT(Y2-Y1,2));
Xb:=X1-L*(X2-X1)/SQRT(EXPT(X2-X1,2)+EXPT(Y2-Y1,2));
END_IF
IF Xa<Xb THEN
X:=Xa;
ELSE
X:=Xb;
END_IF
IF (X1-X2)<>0 THEN
Y:=Y1-(X1-X)*(Y1-Y2)/(X1-X2);
END_IF