Print["Extrayendo ",p," Valores de ",n];
CL=1000;MXI=CL*q;CMX=SE=X=M=MC=0;TM=TN=TX=
Table[0.01*j,{j,CL}];MN=5; M0=Mi=Table[Table[Random[Integer,{-q,q}],{p}],{n}];S=Take[Mi,p];MiT=Transpose[Mi];
Do[
Esc=1/(Max[Abs[Flatten[M0]]]);M1=A.M0; SInt=S;S=Inverse[MiT.M0].(MiT.M1);
Df=S-SInt;
X=Log[10,Max[Abs[Flatten[Df]]]]; M=M+X; MC=M/I;
If[X<=MN,MN=X;CMX=1,CMX=CMX+1];
If[Mod[I,q]==0,
M0=M1.Transpose[Eigenvectors[S]]; TX[[I/q]]=X;TM[[I/q]]=MC;TN[[I/q]]=MN,M0=M1]; M0=Esc*M0;
If[And[I>=VL,Mod[I,50]==0,Abs[TM[[(I/q)-50]]-TM[[(I/q)]]]<=0.01,SE<=p-3], SE=SE+1;VL=I+200;
Print[Abs[TM[[(I/q)-50]]-TM[[(I/q)]]]," .En I =",I," pasamos a extraer ", p-1," Valores"];
M0=Transpose[M0]; M0=Take[M0,p-1]; Mi=Take[MiT,p-1]; M0=Transpose[M0];
Mi=Transpose[Mi]; S=Take[Mi,p-1];MiT=Transpose[Mi];p=p-1];
If[And[CMX>=125,X<=-tol], Print[" I = ",I," y X = ",X];
SE=5; ESO=Chop[Reverse[Sort[Eigenvalues[S]]]];Break[]],{I,1,MXI}];