clc
disp('Vektornormák kiszámítása')
x  = [ 2 -2  1]                       % Lehetne x oszlopvektor is!
%%
display(' *** 2-es norma:')
n_x = norm(x)                      % az alapértelmezett 2-es (euklideszi) norma
n_2_x  = norm(x,2)
n_2_x  = sqrt(sum(abs(x).^2))      % így is fölírható
%%
display(' ***1-es norma:')
n_1_x = norm(x,1)                  % az 1-es norma
n_1_x = sum(abs(x))                % így is fölírható

%%
display(' *** végtelen norma:')
n_inf_x = norm(x, inf)             % a végtelen norma
n_inf_x = max(abs(x))              % így is fölírható

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

