h_atom_eigenfunctions

h_atom_eigenfunctions - (* Content-type:...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 386492, 6515] NotebookOptionsPosition[ 385151, 6463] NotebookOutlinePosition[ 385491, 6478] CellTagsIndexPosition[ 385448, 6475] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Building Blocks of the wave functions of hydrogen and all other one - \ electron atoms\ \>", "Title", CellChangeTimes->{{3.4653299680813*^9, 3.465329984293809*^9}}], Cell[CellGroupData[{ Cell["\<\ Spherical Harmonics -- built in function SphericalHarmonicY[l,m,\[Theta],\[Phi]]\ \>", "Section", CellChangeTimes->{{3.4653299875136623`*^9, 3.4653299901885567`*^9}, { 3.4653300411889677`*^9, 3.465330062030837*^9}, {3.465330343314951*^9, 3.4653303461867323`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[CurlyPhi]"}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"l", " ", "=", " ", "1"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"m", " ", "=", " ", RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"example", " ", "=", " ", RowBox[{"SphericalHarmonicY", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}]}], "Input",\ CellChangeTimes->{{3.4653299937793818`*^9, 3.4653300323467197`*^9}, { 3.465330401840097*^9, 3.465330411231352*^9}}], Cell[BoxData[
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
RowBox[{ FractionBox["1", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Phi]"}]], " ", SqrtBox[ FractionBox["3", RowBox[{"2", " ", "\[Pi]"}]]], " ", RowBox[{"Sin", "[", "\[Theta]", "]"}]}]], "Output", CellChangeTimes->{3.4653300351262608`*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ StyleBox[ RowBox[{ RowBox[{ RowBox[{ "Example", " ", "of", " ", "how", " ", "to", " ", "make", " ", "a", " ", "surface", " ", "plot", " ", "of"}], " ", "|", RowBox[{ SubscriptBox["Y", "lm"], RowBox[{"(", RowBox[{"\[Theta]", ",", "\[CurlyPhi]"}], ")"}]}], SuperscriptBox["|", "2"], " ", "\[IndentingNewLine]", "\[IndentingNewLine]", StyleBox[ RowBox[{ "We", " ", "plot", " ", "a", " ", "surface", " ", "of", " ", "the", " ", "points"}], FontColor->RGBColor[0, 0, 1]]}], StyleBox[" ", FontColor->RGBColor[0, 0, 1]]}], "Subsection"], "\[IndentingNewLine]", StyleBox[ StyleBox[ RowBox[{"x", "=", " ", RowBox[{"|", RowBox[{ SubscriptBox["Y", "lm"], RowBox[{"(", RowBox[{"\[Theta]", ",", "\[CurlyPhi]"}], ")"}]}], SuperscriptBox["|", "2"], " ", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], RowBox[{"Cos", "[", "\[CurlyPhi]", "]"}]}]}]}], FontColor->RGBColor[0, 0, 1]], "Subsection"], "\[IndentingNewLine]", StyleBox[ StyleBox[ RowBox[{"y", "=", " ", RowBox[{"|", RowBox[{ SubscriptBox["Y", "lm"], RowBox[{"(", RowBox[{"\[Theta]", ",", "\[CurlyPhi]"}], ")"}]}], SuperscriptBox["|", "2"], " ", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}],
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 12/02/2009 for the course CHE 110A taught by Professor Mccurdy during the Spring '09 term at UC Davis.

Page1 / 111

h_atom_eigenfunctions - (* Content-type:...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online