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

/QProbabilityPlot [ module ]

[ Top ] [ module ]

NAME

QProbabilityPlot

AUTHOR

W. Hergert

PACKAGE

QPack.m

USAGE

QProbabilityPlot[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

OPTIONS

QPlotRange : area for ContourPlot

OUTPUT

grid of line an contour plots

LITERATURE

book "Einfuehrung in die Quantenphysik"

SOURCE

26 QProbabilityPlot[n_,l_,m_,OptionsPattern[QPlotArea->{{-1,1},{0,1}}]]:=Module[{t,x,y,z,ra},
27         t=Table[0,{2},{3}];ra=Abs[OptionValue[QPlotArea][[1,1]]];eps=0.0000011;
28         t[[1,1]]=ContourPlot[QProbabilityDensity[n,l,m,x+eps,y,0],{x,-ra,ra},{y,-ra,ra},PlotPoints->51,PlotLabel->"x-y-Ebene",FrameLabel->{"x","y"}];
29         t[[1,2]]=ContourPlot[QProbabilityDensity[n,l,m,x+eps,0,z],{x,-ra,ra},{z,-ra,ra},PlotPoints->51,PlotLabel->"x-z-Ebene",FrameLabel->{"x","z"}];
30         t[[1,3]]=ContourPlot[QProbabilityDensity[n,l,m,0,y+eps,z],{y,-ra,ra},{z,-ra,ra},PlotPoints->51,PlotLabel->"y-z-Ebene",FrameLabel->{"y","z"}];
31         t[[2,1]]=Plot[QProbabilityDensity[n,l,m,x,0,0],{x,-ra,ra},Frame->True,PlotStyle->Thick,PlotRange->OptionValue[QPlotArea],PlotLabel->"x-Achse"];
32         t[[2,2]]=Plot[QProbabilityDensity[n,l,m,0,y,0],{y,-ra,ra},Frame->True,PlotStyle->Thick,PlotRange->OptionValue[QPlotArea],PlotLabel->"y-Achse"];
33         t[[2,3]]=Plot[QProbabilityDensity[n,l,m,0,0,z],{z,-ra,ra},Frame->True,PlotStyle->Thick,PlotRange->OptionValue[QPlotArea],PlotLabel->"z-Achse"];
34         Grid[t,Frame->All]
35 ]