RE: right hand side
- To: mathgroup at smc.vnet.net
- Subject: [mg93561] RE: [mg93530] right hand side
- From: "David Park" <djmpark at comcast.net>
- Date: Fri, 14 Nov 2008 06:35:58 -0500 (EST)
- References: <25064145.1226628585825.JavaMail.root@m02>
Copy into a notebook and evaluate:
aa = 2 x + 5 y == 1;
ContourPlot[Evaluate[aa], {x, -5, 5}, {y, -5, 5},
Axes -> True]
An alternative method:
Print["My equation"]
aa
Print["Solve the equation for y"]
Solve[aa, y]
Print["Extract the solution rule"]
Part[%%, 1, 1]
Print["Define a plotting function f[x]"]
f[x_] = y /. %%
Now plot f[x].
Plot[f[x], {x, -5, 5},
Frame -> True,
Axes -> True]
David Park
djmpark at comcast.net
http://home.comcast.net/~djmpark
From: magdamoczydlowska at gmail.com [mailto:magdamoczydlowska at gmail.com]
Hello Everyone!
I suppose that my question can be very easy. I will translate it on
simple equation,
aa = 2*x + 5*y == 1, I need to plot this equation so i take Reduce
[aa,y], the result is following y == 1/5 - (2 x)/5. Now I would like
to take right side of equation to plot 1/5-(2x)/5. However I do not
know how to do it.
Thank you for help,
Magdalena