Re: Plot this?
- To: mathgroup at smc.vnet.net
- Subject: [mg109560] Re: Plot this?
- From: Bill Rowe <readnews at sbcglobal.net>
- Date: Wed, 5 May 2010 06:06:13 -0400 (EDT)
On 5/4/10 at 6:30 AM, trevorATperfectproject.com.au at giganews.com
(Trevor Rabey) wrote:
>I am new to Mathematica and going at snail's pace. I would like to
>plot:
>8x - x^2 + 14y - y^2 = 49
Here is one way to plot it:
sol = Solve[8 x - x^2 + 14 y - y^2 == 49, y];
curve = {{x, y /. First@sol}, {x, y /. Last@sol}};
ParametricPlot[curve, {x, -1, 8}, PlotStyle -> ColorData[1][1]]
Another way would be to use ContourPlot