%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