Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2000
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2000

[Date Index] [Thread Index] [Author Index]

Search the Archive

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