vector - 如何在 Ada 中添加向量

Question

我有一个表示坐标的形式为 (x,y,x) 的向量。我希望能够执行类似 (x,y,z) + (x2,y2,z2) 的操作来生成一组新坐标。 Ada 说它不能对复合类型使用“+”，但我肯定有办法做到这一点？

Answer 1

如果你有

type Vector is record
   X : Float;
   Y : Float;
   Z : Float;
end record;

你可以定义+为

function "+" (L, R : Vector) return Vector is
  (L.X + R.X, L.Y + R.Y, L.Z + R.Z);

在定义 - 时要小心，就像在整个过程中使用 - 一样!该错误非常难以发现。