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.
>