Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

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!




  • 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]