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
文章提供了一个算法,通过给定两点(X1,Y1)和(X2,Y2),以及长度L,计算在两点间延长线上对应距离L的点(X,Y)的坐标,涉及坐标系中的几何计算和表达式求解。
516

被折叠的 条评论
为什么被折叠?



