Re: 3D plotting problem

*To*: mathgroup at smc.vnet.net*Subject*: [mg51772] Re: 3D plotting problem*From*: mathma18 at hotmail.com (Narasimham G.L.)*Date*: Mon, 1 Nov 2004 02:53:22 -0500 (EST)*References*: <cm22fs$ggj$1@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

Bill Rowe <readnewsciv at earthlink.net> wrote in message news:<cm22fs$ggj$1 at smc.vnet.net>... > On 10/30/04 at 3:47 AM, Henning.Heiberg-Andersen at fi.uib.no (Henning > Heiberg-Andersen) wrote: > >I find myself unable to make a 3D plot of the atomic 2p orbital > >f_z(2p,x,y,z;a)=z*Exp[-a*Sqrt[x^2+y^2+z^2]]. Taking f_z=1, x^2+y^2 = r^2 for rotational symmetry, it seems possible in a limited z interval due to sqrt and log. a = 1 ; r = Sqrt[ (Log[z]/a)^2 - z^2]; ParametricPlot3D [{r Cos[th], r Sin[th], z}, {z, -1, 1}, {th, 0, 2 Pi}, PlotPoints -> {23, 21}]