%{
ejemplo sobre normas
%}

A=[ 3 0 -1; 0 3 -1; 0 1 1 ]
B=A'*A
P=charpoly(B) %polinomio caractersitico
sp_B=eig(B) %autovalores
ro_B=max(abs(sp_B)) %radio espectral
norma_2_A=sqrt(ro_B)
n1=norm(A,1)
n2=norm(A,2)
n3=norm(A,'inf')
n4=norm(A,'fro')
traza_B=trace(B)
sqrt(traza_B)

diary('ejecucion_ejemplo_normas.m')