[Date Index] [Thread Index] [Author Index]

Re: How to Plot this equation ?

• To: mathgroup at smc.vnet.net
• Subject: [mg47118] Re: How to Plot this equation ?
• From: "Bill" <wkb at aansto.gov.au>
• Date: Fri, 26 Mar 2004 03:56:13 -0500 (EST)
• Organization: Australian Nuclear Science and Technology Organisation
• References: <c3uekb$9u0$1@smc.vnet.net>
• Sender: owner-wri-mathgroup at wolfram.com

"why" <m004202002 at yahoo.com> wrote in message
news:c3uekb$9u0$1 at smc.vnet.net...
> Hi,
>
> How I can Plot tis equation with mathematica?
>
> x exp(xy+0.8) + exp(y^2)=3
>
> Please help me .
>
> Thank You .


crv = Table[{x, y /. FindRoot[x Exp[x y + 0.8] + Exp[y^2] == 3, {y,
0.001}]}, {x, -5, 5, 0.1}];
ListPlot[crv, PlotJoined -> True];

Bill