ContourPlot3D appearance

*To*: mathgroup at smc.vnet.net*Subject*: [mg89226] ContourPlot3D appearance*From*: Adrian Lupascu <Adrian.Lupascu at lkb.ens.fr>*Date*: Fri, 30 May 2008 02:56:03 -0400 (EDT)*Reply-to*: Adrian.Lupascu at lkb.ens.fr

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, Adi