Algebraic Variety

Author

Eric W. Weisstein
April 13, 2004

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

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

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

Example

<<Graphics`ImplicitPlot`
<<Graphics`Colors`

Show[GraphicsArray[
Block[{$DisplayFunction=Identity},
ImplicitPlot[#,{x,-2,2},PlotStyle->Red]&/@{x^2-y^2==1,x^2+y^2==1}
]]]