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)
- Reply-to: hanlonr at cox.net
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!