       Re: How to plot this

• To: mathgroup at smc.vnet.net
• Subject: [mg64445] Re: [mg64416] How to plot this
• From: "David Park" <djmp at earthlink.net>
• Date: Fri, 17 Feb 2006 04:11:59 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```y[x] has never been defined so how could Mathematica plot it?

Solve for y and then assign a plotting function to the result.

yplot[x_] = y /. Part[Solve[ x + y == 2*x*y, y], 1, 1]
x/(-1 + 2*x)

Needs["Graphics`Colors`"]

Plot[yplot[x], {x, 1, 3},
Frame -> True,
FrameLabel -> {x, y},
PlotRange -> All,
PlotLabel -> SequenceForm["y == ", yplot[x]],
Background -> Linen,
ImageSize -> {450, Automatic}];

For a plot over a domain that contains the singularity...

Plot[yplot[x], {x, -1, 3},
Frame -> True,
FrameLabel -> {x, y},
Axes -> False,
PlotRange -> Automatic,
PlotLabel -> SequenceForm["y == ", yplot[x]],
Background -> Linen,
ImageSize -> {450, Automatic}];

If you want to get rid of the 'return line' you could use the DrawGraphics
package from my web site.

Needs["DrawGraphics`DrawingMaster`"]

Draw2D[
{Draw[yplot[x], {x, -1, 3}] /. SplitLineOnVertical},
Frame -> True,
FrameLabel -> {x, y},
Axes -> {True, False},
AxesStyle -> Gray,
PlotRange -> Automatic,
PlotLabel -> SequenceForm["y == ", yplot[x]],
Background -> Linen,
ImageSize -> {450, Automatic}];

If you want a faster answer to your question you could give a good email
address, otherwise there is usually a day's delay in the posted replies.

David Park

From: siegmund natter [mailto:nobody at nomail.com]
To: mathgroup at smc.vnet.net

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)

```

• Prev by Date: Re: Re: real newbie question
• Next by Date: Re: Formatted Output (Exporting Data)
• Previous by thread: Re: How to plot this
• Next by thread: Set function