var Vec1,Vec2: TVec; V: TMtx; begin CreateIt(Vec1,Vec2); CreateIt(V); try Vec1.Size(3); Vec1.SetIt(false,[0,2,3] Vec2.Copy(Vec1); V.TensorProd(Vec1,Vec2); // V becomes: // [0,0,0] // [0,4,6] // [0,6,9] finally FreeIt(Vec1,Vec2); FreeIt(V); end; end;