var a,b: Matrix; v1,v2: Vector; begin // 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 = b) then raise Exception.Create('Not same'); end;