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