var a,b: TMtx; v1,v2: TVec; begin CreateIt(a,b); CreateIt(v1,v2); try // Test non quadratic general matrix a.SetIt(2,2,False,[0,2,2,0]); v1.SetIt(false,[1,0]); v2.setIt(false,[0,1]); a.AddTensorProd(v1,v2,False); b.SetIt(False,[1,2,2,1]); if not a.Equal(b) then raise Exception.Create('Not same'); finally FreeIt(a,b); FreeIt(v1,v2); end; end;