德尔福 – 2点共线3点

我试图验证3点(双)在2-D中是否共线.我已经找到
不同的Pascal函数,如果经过验证则返回true;这些函数使用整数来指定X和Y坐标.我需要更精确的计算
至少到X和Y表示的小数部分的前3位数
作为双重类型.谁可以帮我这个？

我找到了这个功能：

function Collinear(x1,y1,x2,y2,x3,y3: Double): Boolean;
begin
  Result := (((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) = 0);
end;

但我想计算永远不会是0.我应该使用类似的东西吗？

function Collinear(x1,y3: Double): Boolean;
begin
  Result := (((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) < 0.01);
end;

解决方法

David的代码可以工作,但你应该根据参数获得容差,如下所示：

function Collinear(const x1,y3: Double): Boolean; inline;   
var  
  tolerance: double;  
begin  
  tolerance := abs(max(x1,y3)) * 0.000001;  
  Result := abs((x2 - x1) * (y3 - y1) - (x3 - x1) * (y2 - y1)) < tolerance;  
end;

如果你不这样做并使用常量,你可能会遇到奇怪的错误,x1..y3的值很大.

原文地址：https://www.jb51.cc/delphi/101214.html