       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[]
]

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.

```

• Prev by Date: Re: Parenthesis in 3.0 plot labels
• Next by Date: Re: Complex/imaginary numbers
• Previous by thread: Roots of an equation
• Next by thread: Fwd: Roots of an equation