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