Re: Roots of an equation
- To: mathgroup at smc.vnet.net
- Subject: [mg6644] Re: [mg6582] Roots of an equation
- From: "Preferred Customer" <sherman.reed at worldnet.att.net>
- Date: Wed, 9 Apr 1997 00:34:05 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
eq=1/x^4 +1/y^2 +2 - ( 1/(y^2 - x^2) )^(5/3) resx=Table[i,i,-.1,-.01,.01] res=Table[0,0,i,-.1,-.01,.01] For[i=1,i<11,i++, sol=NSolve[(eq/.x->resx[[i]])==0,y], res[[i,1]]=resx[[i]], res[[i,2]]=y/.sol[[1]] ] Jaimee, the above code lets me look at the shape of y(x). varying resx, the x unknown lets one look at the code over any range. res is the solutions. I use ListPlot[res, PlotJoined->True] to see the results. It appears there is no root. At x=0, y is indeterminate. I then set y=0 by eqy=eq/.y->0. I then use FindRoot[eqy==0,{y,.1} to see if a solution exists. there is none. hope this helps. sherman reed ---------- > From: Jaimee Tahsiri <jtt at deltanet.com> To: mathgroup at smc.vnet.net > To: mathgroup at smc.vnet.net > Subject: [mg6644] [mg6582] Roots of an equation > Date: Friday, April 04, 1997 1:11 AM > > I appreciate it if someone in your group to write me a short mathematica > program to solve the real roots of this equation. > > 1/x^4 +1/y^2 +2 = ( 1/(y^2 - x^2) )^(5/3) > > A million thanks to anyone that can help me.