Problem Set 10

Problem Set 10 - Content-type application/mathematica...

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[ 50098, 1511] NotebookOptionsPosition[ 44876, 1328] NotebookOutlinePosition[ 45279, 1345] CellTagsIndexPosition[ 45236, 1342] WindowFrame->Normal ContainsDynamic->False*) C (* Beginning of Notebook Content *) Notebook[{ N Cell[CellGroupData[{ Cell["Problem Set 10", "Title", CellChangeTimes->{{3.437331476541*^9, 3.437331491608*^9}}], Cell[BoxData[ RowBox[{"1.", " ", "Rotation", " ", "and", " ", "Vibration", " ", "of", " ", "a", " ", SubscriptBox["N", "2"], " ", "Molecule"}]], "Subtitle", CellChangeTimes->{{3.437471814546*^9, 3.437471828086*^9}}], Cell[CellGroupData[{ C Cell["a.", "Section", CellChangeTimes->{{3.437471526892*^9, 3.437471535477*^9}}], Cell[BoxData[ RowBox[{"Clear", "[", "\[HBar]\[Omega]", "]"}]], "Input", CellChangeTimes->{{3.437471614611*^9, 3.43747162427*^9}}], Cell["\<\ For Equilibrium bond length, see attached, handwritten sheet.\ \>", "Text", CellChangeTimes->{{3.4374715511879997`*^9, 3.437471587829*^9}}], Cell[CellGroupData[{ C Cell[BoxData[ RowBox[{"\[HBar]\[Omega]", "=", "2359.61"}]], "Input", CellChangeTimes->{{3.4374716346689997`*^9, 3.437471674433*^9}, { 3.437471789324*^9, 3.437471790689*^9}}], Cell[BoxData["2359.61`"], "Output", CellChangeTimes->{3.437471689966*^9, 3.437471791611*^9, 3.437473325965*^9, 3.437473416101*^9, 3.437473450711*^9}] }, Open ]], } Cell[CellGroupData[{
Background image of page 1

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

View Full DocumentRight Arrow Icon
C Cell[BoxData[ RowBox[{"\[Omega]", "=", FractionBox[ RowBox[{"(", RowBox[{"\[HBar]\[Omega]", "*", "1.986447", "*", SuperscriptBox["10", RowBox[{"-", "23"}]], " ", "J"}], ")"}], RowBox[{"1.05457", "*", SuperscriptBox["10", RowBox[{"-", "34"}]], " ", "J", " ", "s"}]]}]], "Input", CellChangeTimes->{{3.437471703259*^9, 3.437471776406*^9}}], Cell[BoxData[ FractionBox["4.444693292688015`*^14", "s"]], "Output", CellChangeTimes->{3.437471797527*^9, 3.437473325999*^9, 3.43747341613*^9, 3.437473450737*^9}] }, Open ]] }, Open ]], } Cell[CellGroupData[{ C Cell["b.", "Section", CellChangeTimes->{{3.437471865072*^9, 3.437471865366*^9}}], Cell["(See Handwritten sheet for Calculation)", "Text", CellChangeTimes->{{3.437472122863*^9, 3.437472146729*^9}}], Cell[BoxData[ RowBox[{ RowBox[{ "There", " ", "is", " ", "no", " ", "observed", " ", "dependence", " ", "on", " ", "v"}], ",", RowBox[{ "l", " ", "or", " ", "m", " ", "for", " ", "the", " ", "expectation", " ", "value", " ", "of", " ", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{"r", "-", SubscriptBox["r", "0"]}], ")"}], SubscriptBox["r", "0"]], ".", " ", "By"}], " ", "inspection"}], ",", " ", RowBox[{ "we", " ", "know", " ", "that", " ", "a", " ", "homonuclear", " ", "diatomic", " ", "molecule", " ", "vibrates", " ", "symmetrically"}], ",", " ", RowBox[{ "with", " ", "the", " ", "bond", " ", "spending", " ", "equal", " ", "time",
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 06/25/2009 for the course CHEM 3890 taught by Professor Hines, m during the Fall '08 term at Cornell.

Page1 / 26

Problem Set 10 - Content-type application/mathematica...

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