MathGroup Archive 2000

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

Search the Archive

Re: simple plot

  • To: mathgroup at smc.vnet.net
  • Subject: [mg22393] Re: simple plot
  • From: Brian Higgins <bghiggins at ucdavis.edu>
  • Date: Sun, 27 Feb 2000 18:55:33 -0500 (EST)
  • References: <89a592$9gp@smc.vnet.net>
  • Sender: owner-wri-mathgroup at wolfram.com

In article <89a592$9gp at smc.vnet.net>,
  "Steve" <sdunkel at ucsd.edu> wrote:
> 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.
>
> Thanks
>
>

Steve,
For your particular problem you can always use Plot3D

Plot3D[Sqrt[x^2 + y^2] , {x, -3, 3}, {y, -3, 3}]

But for the more general case you may want to try ContourPlot3D. You
will need to load in the package Graphics`ContourPlot3D`. For example:

<< Graphics`ContourPlot3D`
ContourPlot3D[x^2 + y^2 - z^2, {x, -4, 4}, {y, -4, 4}, {z, 0, 10},
  PlotPoints -> {4, 4}, Contours -> {0}, Axes -> True]

will show the contour for f(x,y,z)=x^2+y^2-z^2=0. Here is an example
that shows the contours for f(x,y,z)=0 and f(x,y,z)=6

ContourPlot3D[x^2 + y^2 - z^2, {x, -4, 4}, {y, -4, 4}, {z, 0, 10},
  PlotPoints -> {4, 4}, Contours -> {0, 6}, Lighting -> False,
  ContourStyle -> {{RGBColor[0, 0, 1]}, {RGBColor[1, 0, 0]}}, Axes ->
True]

Cheers,
Brian


Sent via Deja.com http://www.deja.com/
Before you buy.


  • Prev by Date: Re: simple plot
  • Next by Date: Re: Display Bug
  • Previous by thread: Re: simple plot
  • Next by thread: Visualization of Intersections