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