[Date Index] [Thread Index] [Author Index]

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!