clc
disp('Mátrixnormák kiszámítása')
A = [ 3 -4  1;
     -1  4  2;
      1  1 -2
    ]
%%
display(' *** 2-es norma:')
n_A = norm(A)                        % az alapértelmezett 2-es norma
n_2_A = norm(A,2)

%%
display(' *** 1-es norma:')
n_1_A = norm(A,1)                     % az 1-es vagy oszlopnorma
n_1_A = max(sum(abs(A)))              % így is fölírható

%%
display(' *** végtelen norma:')
n_inf_A = norm(A,inf)                 % a végtelen vagy sornorma
n_inf_A = max(sum(abs(A')))           % így is fölírható

%%
display(' *** Frobenius norma:')
n_fro_A = norm(A,'fro')               % a Frobenius norma
n_fro_A = sqrt( sum(sum(abs(A).^2)) )  % így is fölírható
%%

%% Megjegyzés: az abszolút értékek azért kellenek, mert így komplex mátrixokra
%% is helyes értékeket kapunk
