MathGroup Archive 2008

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

Search the Archive

ContourPlot3D appearance

Hi everybody,

Here are the lines of a notebook where I use ContourPlot3D:

maxh = 3000; maxv = 500;

n = 50; r0 =
  n*(n - 1); m = (((n (n - 1))^(n - 1))
     Exp[-(n - 1)])^2; ContourPlot3D[((x^2 + y^2 + z^2)^(n - 1))
    Exp[-2 ((x^2 + y^2 + z^2)^0.5)/
       n] ((x^2 + y^2)/(x^2 + y^2 + z^2))^(n - 1) == m/2, {x, -maxh,
   maxh}, {y, -maxh, maxh}, {z, -maxv, maxv}, BoxRatios -> Automatic,
  Mesh -> None]

ContourPlot3D[(Sqrt[x^2 + y^2] - 2450)^2 + z^2 == 300^2, {x, -maxh,
   maxh}, {y, -maxh, maxh}, {z, -maxv, maxv}, BoxRatios -> Automatic,
  Mesh -> None]

The contour for the first plot should be a torus, ans this is what I get
indeed. Then I plot using also ContourPlot3D the contour of another
function, which should correspond to about the same thing. I do get
again my torus. The problem is that even though the options are the
same, the first and second plot are very different in appearance (colour 
and light). I prefer the second plot.
Any help is greatly appreciated.

Thank you,

  • Prev by Date: Re: NDSolve with arrays
  • Next by Date: Re: Bug in Default[] or Bug in My Understanding?
  • Previous by thread: snippets