Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2004
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2004

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

Search the Archive

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


  • Prev by Date: closing notebook cells
  • Next by Date: Re: bimodal ditribution form counting signs of Pi digits differences
  • Previous by thread: Re: Re: closing notebook cells
  • Next by thread: Re: 3D plotting problem