Affine Variety

Author

Eric W. Weisstein
December 23, 2013

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Algebra/AffineVariety.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/AffineVariety.html.

©2013 Wolfram Research, Inc. except for portions noted otherwise

Example

<<Utilities`Plot`

GraphicsArray[{ContourPlot[x^2-y^2==1,{x,-2,2},{y,-2,2}],ContourPlot[x^2+y^2==1,{x,-2,2},{y,-2,2}]}]