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