Re: simple plot

• To: mathgroup at smc.vnet.net
• Subject: [mg22391] Re: [mg22382] simple plot
• From: BobHanlon at aol.com
• Date: Sun, 27 Feb 2000 18:55:31 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

```Needs["Graphics`ImplicitPlot`"]

ImplicitPlot[
Table[x^2 + y^2 - z^2 == 0, {z, 1, 7, 1/2}], {x, -5, 5}, {y, -5, 5},
PlotStyle -> Table[Hue[(z - 1)/7], {z, 1, 7, 1/2}]];

ContourPlot[ x^2 + y^2, {x, -5, 5}, {y, -5, 5}, ColorFunction -> Hue,
Contours -> 35, ContourLines -> False];

DensityPlot[ x^2 + y^2, {x, -5, 5}, {y, -5, 5}, ColorFunction -> Hue,
PlotPoints -> 50, Mesh -> False];

Needs["Graphics`ContourPlot3D`"]

ContourPlot3D[ x^2 + y^2 - z^2, {x, -5, 5}, {y, -5, 5}, {z, -5, 5}];

Bob Hanlon

In a message dated 2/26/2000 11:22:28 PM, sdunkel at ucsd.edu writes:

>How do I plot the following function?
>
>x^2+y^2-z^2=0
>
>I know this is a simple question but I'm new to Mathematica.
>

```

• Prev by Date: Re: simple plot
• Next by Date: Re: simple plot
• Previous by thread: Re: simple plot
• Next by thread: Re: simple plot