var A,Amplt,Phase: TMtx; begin CreateIt(A,Amplt,Phase); try A.SetIt(2,2,True,[1,0, 2,0 2,0 4,1]); // 2x2, complex matrix A.CartToPolar(Amplt,Phase); finally FreeIt(A,Amplt,Phase); end; end;