德尔福 – 2点共线3点
发布时间:2020-12-15 04:31:58 所属栏目:大数据 来源:网络整理
导读:我试图验证3点(双)在2-D中是否共线.我已经找到 不同的Pascal函数,如果经过验证则返回true;这些函数使用整数来指定X和Y坐标.我需要更精确的计算 至少到X和Y表示的小数部分的前3位数 作为双重类型.谁可以帮我这个? 我找到了这个功能: function Collinear(x1,
我试图验证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的值很大. (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |