       Re: Plotting a x,y,z function

• To: mathgroup at smc.vnet.net
• Subject: [mg98673] Re: [mg98646] Plotting a x,y,z function
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Thu, 16 Apr 2009 04:12:39 -0400 (EDT)

```The radius is

Norm[{x, y, z}]

Sqrt[Abs[x]^2 + Abs[y]^2 + Abs[z]^2]

Since you are dealing only with real values

Simplify[%, Element[{x, y, z}, Reals]]

Sqrt[x^2 + y^2 + z^2]

f[x_, y_, z_] = Module[{r2 = x^2 + y^2 + z^2},
r2* E^-(r2/2)]

E^((1/2)*(-x^2 - y^2 - z^2))*(x^2 + y^2 + z^2)

ContourPlot3D[f[x, y, z], {x, -10, 10}, {y, -10, 10}, {z, -10, 10}]

Bob Hanlon

---- chem_chick <raeanne.napoleon at gmail.com> wrote:

=============
I needed help plotting the following function:

f[x_,y_,z_] = (x^2+y^2+z^2) e^-(r^2/2)

ContourPlot3D[(x^2 + y^2 - z^2) Exp[-r^2/2], {x, -10, 10}, {y, -10,
10}, {z, -10, 10}]

does not work because it doesn't understand what r (radius) is....what
is the keyword/whatever for radius?  Or do I have to define r in terms
of x,y,z somehow?!   Help with syntax will be great!

Thanks!

```

• Prev by Date: problem with replace all and functions
• Next by Date: Re: Re: Trouble with FullSimplify
• Previous by thread: Re: Plotting a x,y,z function
• Next by thread: Re: Plotting a x,y,z function