function matriz = matr(A)
[f,c]=size(A);
v=[];
for i=1:f
    col=0;
    
    for j=1:c
       col= col+ abs(m(j,i);
    end
    v(i)=col;
end
maximmo=max(v);
fprintf ('%g uno norma \n', maximo);