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)
>
>