0001 function eval = my_ordeig(t) 0002 0003 n = size(t,2); 0004 eval = zeros(n,1); 0005 for i=1:n-1 0006 if t(i+1,i) == 0 0007 eval(i) = t(i,i); 0008 else 0009 k = i:i+1; 0010 eval(k) = eig(t(k,k)); 0011 i = i+1; 0012 end 0013 end 0014 if i < n 0015 t(n) = t(n,n); 0016 end 0017 0018