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!