function H=mejora(A)
n=length(A);
I=eye(n);
[R,p] = chol(A);
while p~=0
    A=A+0.01*I;
    [R,p] = chol(A);
end
H=A;
end