%Obtencion de punto de equilibrio en el eje X(Saddle equilibrium points)
function feq=eqX(x)
global GEO wt mu
[GU U]=Gpot(x,0,0,GEO,mu);
feq=wt^2*x+GU(1);
end