/Users/tpqhe/Documents/Publikationen_in_Arbeit/Buecher/Rennert_Buch_Abgabe/online_Material_Abgabe/Quantenphysik/doc/doc

/QProbabilityDensity [ module ]

[ Top ] [ module ]

NAME

QProbabilityDensity

AUTHOR

W. Hergert

PACKAGE

QPack.m

USAGE

QProbabilityDensity[n_,l_,m_,x_,y_,z_] calculates probability density

INPUT

n : pricipal quantum number
l : orbital quantum number
m : magnetic quantum number
(x,y,z) : coordinates

OUTPUT

probabiblity density of the Hydrogen atom at (x,y,z)

LITERATURE

book "Einfuehrung in die Quantenphysik"

SOURCE

25 QProbabilityDensity[n_,l_,m_,x_,y_,z_]:=Module[{eps,a,r,t,\[Theta],\[Phi],x1},
26         r=Sqrt[x^2+y^2+z^2+0.0000001];
27  If[x>0||x<0,\[Phi]=ArcTan[x,y],\[Phi]=Sign[y]*\[Pi]/2];\[Theta]=ArcCos[z/r];
28         t=QHydrogenRadial[1,n,l,r]^2;a=N[QRealHarmonics[l,m,\[Theta],\[Phi]]];
29         t=t*a*Conjugate[a]//Chop;Return[Re[t]]
30 ]