       Re: Help plotting P(x,y,z) = Aexp[r^2]

• To: mathgroup at smc.vnet.net
• Subject: [mg97839] Re: [mg97816] Help plotting P(x,y,z) = Aexp[r^2]
• From: Bob Hanlon <hanlonr at cox.net>
• Date: Mon, 23 Mar 2009 04:04:20 -0500 (EST)

```P[A_][x_, y_, z_] := A*Exp[x^2 + y^2 + z^2];

Partition[
With[{A = 2, m = 1},
Table[Plot3D[P[A][x, y, z], {x, 0, m}, {y, 0, m},
PlotRange -> {0, P[A][m, m, m]}], {z, 0, m, m/11}]], 3] // Grid

With[{m = 1},
Manipulate[
Plot3D[P[A][x, y, z], {x, 0, m}, {y, 0, m},
PlotRange -> {0, P[A][m, m, m]}], {A, 0.5, 1.5}, {z, 0, m}]]

Bob Hanlon

---- "dylankrishnan at gmail.com" <dylankrishnan at gmail.com> wrote:

=============
where r^2 = x^2 + y^2 + z^2 and A is a constant.

I thought this would be simple until I realized mathematica doesnt
like three inputs ( to my  knowledge)

I've been trying to plot this for the last few days, but have had no
luck getting it to work using version 7.

Any help getting started would be greatly appreciated!

```

• Prev by Date: Re: partial differential equation aolving difficulties
• Next by Date: Re: partial differential equation aolving difficulties
• Previous by thread: Re: Help plotting P(x,y,z) = Aexp[r^2]
• Next by thread: Re: Help plotting P(x,y,z) = Aexp[r^2]