Norme

% Norme:
function x = norme(A, inp)
[n, m] = size(A);
x = 0;
switch inp
    case 1
        for i=1:n
            x = x+abs((A(i)));
        end
    case 2
        for i=1:n
            x = x+(A(i)^2);
        end
        x = sqrt(x);
    case 3
        x = max(abs(A));
    otherwise
        x = 0;
end

% Poziv:
% A = [4 1 3; 2 5 6; 9 2 1];
% inp = 1..3;
% x = norme(A, 1..3);
end