Re: How to plot this

*To*: mathgroup at smc.vnet.net*Subject*: [mg64461] Re: [mg64416] How to plot this*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Fri, 17 Feb 2006 04:13:08 -0500 (EST)*Reply-to*: hanlonr at cox.net*Sender*: owner-wri-mathgroup at wolfram.com

eqn1=x+y==2*x*y; Either solve the equation Plot[Evaluate[y/.Solve[eqn1,y]],{x,1,3}]; or load the standard add-on package for implicit plots Needs["Graphics`"]; ImplicitPlot[eqn1,{x,1,3},AspectRatio->1/GoldenRatio]; Bob Hanlon > > From: siegmund natter <nobody at nomail.com> To: mathgroup at smc.vnet.net > Subject: [mg64461] [mg64416] How to plot this > > Hello > > Can anyone tell why this is wrong? > > eqn1 = x + y == 2*x*y; > eqn1 /.y -> y[x]; > Plot[y[x], {x, 1, 3}] > > How do I do it correctly? (This is just an example; I want to do this > with a much more difficult equation) > Thanks a lot. > > (I am using Mathematica 5.1) > >