How to plot this

*To*: mathgroup at smc.vnet.net*Subject*: [mg64416] How to plot this*From*: siegmund natter <nobody at nomail.com>*Date*: Thu, 16 Feb 2006 03:05:27 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

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)