// norma.sci

function N = norma (A)
  [nl, nc] = size(A);
  
  N = 0;
  for i = 1:nl do
    soma = 0;
    for j = 1:nc do
      soma = soma + abs (A(i,j));
    end
    if soma > N then
      N = soma;
    end
  end
endfunction

