var Vec1,Vec2: Vector; V: Matrix; begin 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] end;