for N=2:60 D1=DM1(N); D2=D1*D1; ss=D1(N+1,1)*D1(1,N+1)-D1(1,1)*D1(N+1,N+1); for j=1:N-1 al1=(D1(1,N+1)*D1(N+1,j+1)-D1(N+1,N+1)*D1(1,j+1))/ss; al2=(D1(N+1,1)*D1(1,j+1)-D1(1,1)*D1(N+1,j+1))/ss; for i=1:N-1 A(i,j)=D2(i+1,j+1)-D2(i+1,1)*al1-D2(i+1,N+1)*al2; end end bb=abs(eig(A)); aa=max(bb); cc=aa; for j=1:N-1 if bb(j) < cc & bb(j) >0.000001 cc=bb(j); end end xx(N-1)=N; err(N-1)=aa/(N^4); grr(N-1)=cc; end semilogy (xx, frr)