Eigen 如何在不循环的情况下从三角形网格法线中找到所有共面的面

如何解决Eigen 如何在不循环的情况下从三角形网格法线中找到所有共面的面

我有一个网格大部分是平面的我想通过使用法线找到所有共面的面。我将通过找到指向同一方向的所有法线来解决这个问题；也就是说，通过点积检查容差内的所有共线法向量。 但这意味着我必须通过循环检查每个向量。

var
   a,b,x,y,n:integer;
begin
   readln(a,y);
   if a<b and x<y then n:=a+y;
   if a<b and x>y then n:=a+y;
   if a>b and x<y then n:=b+x;
   if a>b and x>y then n:=b+x;
   writeln(n);
end.

因此我的问题是：有没有更好的方法来检查一组向量的共线性，在 Eigen 中以更紧凑的方式一起检查而不循环？

编辑：假设网格大部分是平面的