(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 9.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 82319, 1862] NotebookOptionsPosition[ 81117, 1820] NotebookOutlinePosition[ 81461, 1835] CellTagsIndexPosition[ 81418, 1832] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell["\<\ Compute various integrals that were mentioned in lecture 19 (variational \ method).\ \>", "Text", CellChangeTimes->{{3.6575821364450045`*^9, 3.6575821585504246`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"ClearAll", "[", " ", RowBox[{ "a", ",", " ", "m", ",", " ", "lambda", ",", " ", "x", ",", " ", "psi", ",", " ", "psqPsi"}], "]"}], " ", ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"(*", RowBox[{ RowBox[{"$Assumptions", " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"{", RowBox[{"a", ",", "m", ",", "lambda"}], "}"}], " ", ">", " ", "0"}], " ", "&&", " ", RowBox[{"a", " ", "\[Element]", " ", "Reals"}]}]}], " ", ";"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"$Assumptions", " ", "=", " ", RowBox[{ RowBox[{"a", " ", ">", " ", "0"}], " ", "&&", " ", RowBox[{"a", " ", "\[Element]", " ", "Reals"}], " ", "&&", " ", RowBox[{"m", " ", ">", " ", "0"}], " ", "&&", " ", RowBox[{"m", " ", "\[Element]", " ", "Reals"}], " ", "&&", " ", RowBox[{"lambda", " ", ">", " ", "0"}], " ", "&&", " ", RowBox[{"lambda", " ", "\[Element]", " ", "Reals"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{ RowBox[{"psi", "[", RowBox[{"x_", ",", " ", "a_"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"E", "^", RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "/", "2"}], "/", RowBox[{"a", "^", "2"}]}], ")"}]}], " ", "/", " ", RowBox[{"Sqrt", "[", " ", RowBox[{"a", " ", RowBox[{"Sqrt", "[", "Pi", "]"}]}], "]"}]}]}], " ", ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"psqPsi", "[", RowBox[{"x_", ",", "a_"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"\[HBar]", "^", "2"}]}], "/", "2"}], "/", "m"}], ")"}], RowBox[{"D", "[", RowBox[{ RowBox[{"psi", "[", RowBox[{"x", ",", "a"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "2"}], "}"}]}], " ", "]"}]}], "//", " ", "Simplify"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"psi", "[", RowBox[{"x", ",", "a"}], "]"}], " ", "//", " ", "TraditionalForm"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"psqPsi", "[", RowBox[{"x", ",", "a"}], "]"}], " ", "//", " ", "TraditionalForm"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"psi", "[", RowBox[{"x", ",", "a"}], "]"}], "^", "2"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}], " "}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], " ", RowBox[{ RowBox[{"psi", "[", RowBox[{"x", ",", "a"}], "]"}], "^", "2"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"x", "^", "4"}], " ", RowBox[{ RowBox[{"psi", "[", RowBox[{"x", ",", "a"}], "]"}], "^", "2"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Integrate", "[", " ", RowBox[{ RowBox[{ RowBox[{"psi", "[", RowBox[{"x", ",", "a"}], "]"}], " ", RowBox[{"psqPsi", "[", RowBox[{"x", ",", "a"}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"-", "Infinity"}], ",", " ", "Infinity"}], "}"}]}], "]"}], "\[IndentingNewLine]", "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"e", "[", RowBox[{ "tomega_", ",", "omega_", ",", " ", "hb_", ",", " ", "m_", ",", " ", "lambda_"}], "]"}], " ", "=", " ", RowBox[{ RowBox[{"hb", " ", RowBox[{"tomega", "/", "2"}]}], " ", "+", " ", RowBox[{"hb", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"omega", "^", "2"}], " ", "-", " ", RowBox[{"tomega", "^", "2"}]}], ")"}], "/", "4"}], "/", "tomega"}]}], " ", "+", " ", RowBox[{"3", " ", "lambda", " ", RowBox[{ RowBox[{"hb", "^", "2"}], "/", RowBox[{"(", RowBox[{"4", " ", RowBox[{"m", "^", "2"}], " ", RowBox[{"tomega", "^", "2"}]}], ")"}], "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]"}]}]}]}]}], "Input", CellChangeTimes->{{3.6575814957829165`*^9, 3.657581548992728*^9}, { 3.6575816009106317`*^9, 3.657581706382331*^9}, {3.6575819758558435`*^9, 3.6575821238708363`*^9}, {3.657582270938754*^9, 3.657582336137378*^9}, { 3.657582378479241*^9, 3.657582473189361*^9}, {3.657582643073658*^9, 3.6575826578904047`*^9}, {3.65758408321397*^9, 3.6575843457348003`*^9}, 3.6575843949450197`*^9, {3.657587241495057*^9, 3.657587254444835*^9}, { 3.657587302942692*^9, 3.657587386059331*^9}}], Cell[BoxData[ FormBox[ FractionBox[ SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], RowBox[{"2", " ", SuperscriptBox["a", "2"]}]]}]], RowBox[{ RadicalBox["\[Pi]", "4"], " ", SqrtBox["a"]}]], TraditionalForm]], "Output", CellChangeTimes->{ 3.6575823367480555`*^9, {3.657582412757515*^9, 3.6575824372421722`*^9}, 3.657582473970624*^9, 3.6575826588435*^9, 3.657584346814211*^9, 3.6575843974932585`*^9, 3.6575872562743006`*^9, 3.657587305881527*^9, { 3.6575873382985544`*^9, 3.6575873868575983`*^9}, 3.6575878355219398`*^9}], Cell[BoxData[ FormBox[ FractionBox[ RowBox[{ SuperscriptBox["\[HBar]", "2"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"-", FractionBox[ SuperscriptBox["x", "2"], RowBox[{"2", " ", SuperscriptBox["a", "2"]}]]}]], " ", RowBox[{"(", RowBox[{ SuperscriptBox["a", "2"], "-", SuperscriptBox["x", "2"]}], ")"}]}], RowBox[{"2", " ", RadicalBox["\[Pi]", "4"], " ", SuperscriptBox["a", RowBox[{"9", "/", "2"}]], " ", "m"}]], TraditionalForm]], "Output", CellChangeTimes->{ 3.6575823367480555`*^9, {3.657582412757515*^9, 3.6575824372421722`*^9}, 3.657582473970624*^9, 3.6575826588435*^9, 3.657584346814211*^9, 3.6575843974932585`*^9, 3.6575872562743006`*^9, 3.657587305881527*^9, { 3.6575873382985544`*^9, 3.6575873868575983`*^9}, 3.657587835537568*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{ 3.6575823367480555`*^9, {3.657582412757515*^9, 3.6575824372421722`*^9}, 3.657582473970624*^9, 3.6575826588435*^9, 3.657584346814211*^9, 3.6575843974932585`*^9, 3.6575872562743006`*^9, 3.657587305881527*^9, { 3.6575873382985544`*^9, 3.6575873868575983`*^9}, 3.657587835711983*^9}], Cell[BoxData[ FractionBox[ SuperscriptBox["a", "2"], "2"]], "Output", CellChangeTimes->{ 3.6575823367480555`*^9, {3.657582412757515*^9, 3.6575824372421722`*^9}, 3.657582473970624*^9, 3.6575826588435*^9, 3.657584346814211*^9, 3.6575843974932585`*^9, 3.6575872562743006`*^9, 3.657587305881527*^9, { 3.6575873382985544`*^9, 3.6575873868575983`*^9}, 3.6575878358526125`*^9}], Cell[BoxData[ FractionBox[ RowBox[{"3", " ", SuperscriptBox["a", "4"]}], "4"]], "Output", CellChangeTimes->{ 3.6575823367480555`*^9, {3.657582412757515*^9, 3.6575824372421722`*^9}, 3.657582473970624*^9, 3.6575826588435*^9, 3.657584346814211*^9, 3.6575843974932585`*^9, 3.6575872562743006`*^9, 3.657587305881527*^9, { 3.6575873382985544`*^9, 3.6575873868575983`*^9}, 3.657587835992399*^9}], Cell[BoxData[ FractionBox[ SuperscriptBox["\[HBar]", "2"], RowBox[{"4", " ", SuperscriptBox["a", "2"], " ", "m"}]]], "Output", CellChangeTimes->{ 3.6575823367480555`*^9, {3.657582412757515*^9, 3.6575824372421722`*^9}, 3.657582473970624*^9, 3.6575826588435*^9, 3.657584346814211*^9, 3.6575843974932585`*^9, 3.6575872562743006`*^9, 3.657587305881527*^9, { 3.6575873382985544`*^9, 3.6575873868575983`*^9}, 3.6575878363048677`*^9}], Cell[BoxData[ RowBox[{ FractionBox[ RowBox[{"3", " ", SuperscriptBox["hb", "2"], " ", "lambda"}], RowBox[{"4", " ", SuperscriptBox["m", "2"], " ", SuperscriptBox["tomega", "2"]}]], "+", FractionBox[ RowBox[{"hb", " ", "tomega"}], "2"], "+", FractionBox[ RowBox[{"hb", " ", RowBox[{"(", RowBox[{ SuperscriptBox["omega", "2"], "-", SuperscriptBox["tomega", "2"]}], ")"}]}], RowBox[{"4", " ", "tomega"}]]}]], "Output", CellChangeTimes->{ 3.6575823367480555`*^9, {3.657582412757515*^9, 3.6575824372421722`*^9}, 3.657582473970624*^9, 3.6575826588435*^9, 3.657584346814211*^9, 3.6575843974932585`*^9, 3.6575872562743006`*^9, 3.657587305881527*^9, { 3.6575873382985544`*^9, 3.6575873868575983`*^9}, 3.6575878363204913`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"scale", " ", "=", " ", RowBox[{"10", "^", "34"}]}], " ", ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hbar", " ", "=", " ", RowBox[{"1.054572", StyleBox["\[Times]", LineColor->GrayLevel[0.5], FrontFaceColor->GrayLevel[0.5], BackFaceColor->GrayLevel[0.5], GraphicsColor->GrayLevel[0.5], FontColor->GrayLevel[0.5]], SuperscriptBox["10", RowBox[{"-", "34"}]], " ", "scale"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"emass", " ", "=", " ", RowBox[{"9.10938", StyleBox["\[Times]", LineColor->GrayLevel[0.5], FrontFaceColor->GrayLevel[0.5], BackFaceColor->GrayLevel[0.5], GraphicsColor->GrayLevel[0.5], FontColor->GrayLevel[0.5]], SuperscriptBox["10", RowBox[{"-", "31"}]], " ", "scale"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hbOverM", " ", "=", " ", RowBox[{"hbar", "/", "emass"}]}], " "}], "\[IndentingNewLine]", RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"e", "[", RowBox[{ "to", ",", "omega", ",", " ", "hbar", ",", "emass", "\[NoBreak]\[InvisibleSpace]\[ThickSpace]\[InvisibleSpace]", ",", " ", "lambda"}], "]"}], ",", RowBox[{"{", RowBox[{"to", ",", " ", "0", RowBox[{"(*", RowBox[{ RowBox[{"-", "10"}], " ", "hbOverM"}], "*)"}], ",", " ", RowBox[{"10", " ", "hbOverM"}]}], "}"}], ",", " ", RowBox[{"AxesLabel", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ OverscriptBox["\"\<\[Omega]\>\"", "~"], ",", " ", "\"\<\!\(\*SubscriptBox[OverscriptBox[\(E\), \(_\)], OverscriptBox[\(\ \[Omega]\), \(~\)]]\)\>\""}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{"Automatic", ",", " ", RowBox[{"{", RowBox[{"0", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"omega", ",", " ", "0", ",", " ", "\"\<\[Omega]\>\""}], "}"}], ",", "0", ",", " ", RowBox[{"10", " ", "hbOverM"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"lambda", ",", " ", "0", ",", " ", "\"\<\[Lambda]\>\""}], "}"}], ",", " ", "0", ",", " ", "1"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], "Input", CellChangeTimes->{{3.6575844719501085`*^9, 3.6575844756209574`*^9}, 3.6575845115915165`*^9, {3.6575845424745207`*^9, 3.657584643119396*^9}, { 3.6575846846521134`*^9, 3.6575846986835427`*^9}, {3.6575847979821033`*^9, 3.657584820038815*^9}, {3.6575848758250203`*^9, 3.6575849302223253`*^9}, { 3.6575849670474806`*^9, 3.6575850500732927`*^9}, {3.65758508800343*^9, 3.6575851183420267`*^9}, {3.6575851500884295`*^9, 3.657585189772631*^9}, 3.6575853097670393`*^9}], Cell[BoxData["0.00011576770318067754`"], "Output", CellChangeTimes->{{3.657585113448724*^9, 3.6575851189357953`*^9}, { 3.6575851746692286`*^9, 3.6575851906008143`*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`lambda$$ = 0, $CellContext`omega$$ = 0.000271, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`omega$$], 0, "\[Omega]"}, 0, 0.0011576770318067753`}, {{ Hold[$CellContext`lambda$$], 0, "\[Lambda]"}, 0, 1}}, Typeset`size$$ = {480., {154., 162.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`omega$120745$$ = 0, $CellContext`lambda$120746$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`lambda$$ = 0, $CellContext`omega$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`omega$$, $CellContext`omega$120745$$, 0], Hold[$CellContext`lambda$$, $CellContext`lambda$120746$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Plot[ $CellContext`e[$CellContext`to, $CellContext`omega$$, \ $CellContext`hbar, $CellContext`emass, $CellContext`lambda$$], \ {$CellContext`to, 0, 10 $CellContext`hbOverM}, AxesLabel -> { OverTilde["\[Omega]"], "\!\(\*SubscriptBox[OverscriptBox[\(E\), \(_\)], OverscriptBox[\(\ \[Omega]\), \(~\)]]\)"}, PlotRange -> {Automatic, {0, Automatic}}], "Specifications" :> {{{$CellContext`omega$$, 0, "\[Omega]"}, 0, 0.0011576770318067753`}, {{$CellContext`lambda$$, 0, "\[Lambda]"}, 0, 1}}, "Options" :> {}, "DefaultOptions" :> {}], ImageSizeCache->{543., {233., 240.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{{3.657585113448724*^9, 3.6575851189357953`*^9}, { 3.6575851746692286`*^9, 3.657585190710166*^9}}], Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"Plot", "::", "plln"}], "MessageName"], RowBox[{ ":", " "}], "\<\"Limiting value \[NoBreak]\\!\\(10\\\\ hbOverM\\)\[NoBreak] \ in \[NoBreak]\\!\\({to, 0, \\(\\(10\\\\ hbOverM\\)\\)}\\)\[NoBreak] is not a \ machine-sized real number. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \ ButtonStyle->\\\"Link\\\", ButtonFrame->None, \ ButtonData:>\\\"paclet:ref/message/General/plln\\\", ButtonNote -> \ \\\"Plot::plln\\\"]\\)\"\>"}]], "Message", "MSG", CellChangeTimes->{3.6584496805807295`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"p", " ", "=", " ", RowBox[{"DynamicModule", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"lambda", "=", "0"}], ",", RowBox[{"omega", "=", "0.000271`"}]}], "}"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"e", "[", RowBox[{ "to", ",", "omega", ",", "hbar", ",", "emass", ",", "lambda"}], "]"}], ",", RowBox[{"{", RowBox[{"to", ",", "0", ",", RowBox[{"10", " ", "hbOverM"}]}], "}"}], ",", RowBox[{"AxesLabel", "\[Rule]", RowBox[{"{", RowBox[{ OverscriptBox["\"\<\[Omega]\>\"", "~"], ",", "\"\<\\!\\(\\*SubscriptBox[OverscriptBox[\\(E\\), \\(_\\)], \ OverscriptBox[\\(\[Omega]\\), \\(~\\)]]\\)\>\""}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"Automatic", ",", RowBox[{"{", RowBox[{"0", ",", "Automatic"}], "}"}]}], "}"}]}]}], "]"}]}], "]"}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"peeters`exportForLatex", "[", RowBox[{"\"\\"", ",", " ", "p"}], "]"}]}], "Input", GeneratedCell->False, CellAutoOverwrite->False, CellChangeTimes->{{3.657585205702115*^9, 3.6575852103455963`*^9}, { 3.6575852598013725`*^9, 3.6575852721572495`*^9}}], Cell[BoxData[ DynamicModuleBox[{$CellContext`lambda$$ = 0, $CellContext`omega$$ = 0.000271}, GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k4VA0UBnCklGwNilQ0M8aMbeaOGbR5pUiSmEiKaFehTUIlW1KiUhKV RLakJCSVLVnabJV9KUsSQrKEfPf7a57fc+fce2eec95z79JdhwV7RYSEhAyF hYT+/6Q4n4j7JjsTv447fdlKNYRC0jx2UdRMLAnyV670BwqL3gi7fJgJbtjl q8ErgIMtXp/khWfBJu1STuQfA7yU/+Z1wHkWCuzilSJcDeAYmFEsoyeGoJW0 vwtdViFx5+Ztjp9mI/udl2/m7RV43Db/+W3RORic0RR47+AK5Dg2LGjgzQGt +Lyp9bIVeOew87N1xByoa6y/Nl63HAN2hy3Ntojjk/b8lgqV5VguCDHh181F uXcm4VahjzVVFgnHZktgTaNSwfckfZhbUkTT9SXQT2xp7vPVh6NFVKF6lAQW WdKTrvP0EWiWtFJlmyQ4naqpInF6qDB6zZ3bJAVPdrSK6TVd1BUGXTWVkMbs SN5qp+O6+GZoNnBupTSEpau/tG7WxbBBVZrQHWnsFzz4KzlfF6F3DstNaMtg 4MmZwuEYPjKizlwe+CWDlR5DTP9CHnTtWg2kZ88DSz/4h2kSDy8UVvdrqcyD ktYekR2hPBRHim48ZDkPdnaGym7beKiNCBHvSp+HVWWOL2eM6WDyatS5xqMU CB1VgpihDjIrLsr7XaCgpjyr/rq6Dg5Jnk5g3KMgv86y0V5eBw3BO94craQg Lywj7uZPLnLO0mbOZsuiT7dcMTmaixOuaYG8Xlm4sstMvUW40EyNkWuYIQfi sfLeTQMEOrov3z+rJIcK3nSXoIWA9Z5jxW/N5BCecyH8Wy4B7nY90Z0pcviz M85V1oNAv2lhQOg+eZTH5umuGOYgMShDVsdHHqwmvk16BwcOxfHxdRHyOKUT 9dPsMwfvEfSa9kYeru1Fkf3ZHKTqbpiRS5uPRrrczPZTHDjTP/t3tc3HVIMR R1mCg6/T3X7YrgARisfwgSBtVFp7qXW5K0DRt+Geqqs2ClLmfLgUpoB7jFTm YmttxG5WV2goVMCC+mMNL6nacEo69MidqQgDmXyl1CIttFn0N6T8UcT6GUtj HklooTLex9dSeiEGo8ODv4xoomBMijHKXAg1kUU/2V81ERvHPrrWfiEstCq+ uGdrwnHkiFhr0UJ0jqwZ0dutiZY7v3Xkrihhg0vvEfYbDXwcCqjPTVHCKr/D x9kZGshbJ3d252slZFlsq9p6VwMxg7y3j0aUYLuLVafqrYEdxh5O6x0WwX69 xPhtQgPNvWOXfNQXwzTkZH58kjqaVvzr7C5egtjD3NrTaSycNrphVd+0BG23 a01a77KwaL32q/LhJcisbk/cHs6C/ZYd1x/QlbHSvM/03kkWmo/kGbkEKsN7 a8oTuzUs/BLkV4wuVcH4eCTfopWJgfNnNU99VcHqM5sDWtWYMAzZsOt4nwp0 pRxtFRYzcSVswc1D4yr4ICJdvYfCBCfi8Qz7eUuhHDgprz+lhiNxrQ0rVy/F Q+ULh17XqGHwJS78i10K86xMqw2BahganO70c6LiFfG3lz7EQIvvrURvVyqu y3aFVHcz8FZab/9xbyroye5S4a0MxGu5de+5ToVIcRTT5AMD1geaetaVUXEb 5x/5pDCQ3ZbzS5JDg/gray5lLwPeFUfHo6Zp0O576tT6XRX7dkjmhkvQcaW5 5ev5NlUI+pK9QxTpOHJqwsSgXhUac9smTuvQ8dZGWPDprSqaTCz+Oe6no4f7 /VLcI1UY5KnPYFTQYf201+uJpypE0tolMmJU4W7PzR+WV8XsiZJVbqmquLCY ccpYRhVS6x+4qeeoorI+oSpWXBWKnUcq46pUEbZFVPTkNB2cxf+uXRNlwNSn 4OzdH3Q4hCoonTjIwBaT1fur8unY1TixgTjJwFSYq9vrXDqcWa2n+wIYeMR4 Pp6XRYf7m4SWvXcYSJ5wtK9OpePiFDduSyUDGT5xkc436chx3cjS11VD13qX c8bH6ch7wdk2bKSGbSfehJa50VE8Ry4kfZMaln+LZVofpKMioaGXeUAN1tQf zYE76ehq3p+ueFsNz8bi35hZ0iFn4a83IczEvrYHbfZsOg5rPzPO+8DEEYuF UUa/aTC3ibG7W8/E2oozGhO/aFA/fc7Vt5OJkfNzm5730tBVvjnCaIqJ8rP5 7uu7aNixd6CjRJOFpVV119LryfrbrMCKEBbG5xTpRRaS9a9lbqZHsnBFlfUs LY+G2T2jqVfjWTB7saWy/AUNxXolNZtfsBC3/186JZuGFTW7aHU9LMxPOWTT 9YCsF79d1LZeHfVuJ5LCIsh6IuBLoY06ll5du2oinLwf24M9cTvV4aQ+PuJy hYa4BH3KXi91xG/cm+sYQoPi6s87fySro+DdqiI/P7LeU0p4SEwDOfr9ohlu NHR2+mJGiQZKGJtpkeY0ON3Ua+mo1oCoNEfqqBkNDWb9p0taNeAZJqRoaUrD x8fbcy+Ma+DHPI1ji9fSkO2ly5fR0oSlvdHh4RU0BEn2qi++roma9/FxoZo0 CBXElf+L1URGymGbbHUavI/ZObelaYL3M+JlO5MGt9qShPhSTdRLpoWZq9Kw 5d49FfUJTSxtjL5ms4QGBt92vt4uLcQLhisxj4bY75JZCoe1MF1E7UmXpmFh dPHmv6e04DMzyJYhRYPUNHH1VYQWaqvNFZbMpWGkTEJibbkWkiQfRhjOpKHE vkjYiqMNIc1jr8z/UmEo7RXLXaWNXZ9XnBcapyK3kA05M20y3yQ25YxSyT69 c7p2tzaGXN2Ldf5QcWPg5KhDpDYKNynk2g1QsS9Qq+/gP200lFZdcPhORY50 t9tRcTbK7KKLnLqoEL8VN3ByPhtiio3c/Z3k+Z4sGA7UZkNF99uDM+1UjLQI T8TsYOOuEiW8spUK04MvTyccZMPyqI9yXwsV0X88/qV6sHF2OadUgrSBRK/w 8zA28mg8W5smKs4v+zK7Jo+NrezoBXPrqWgovnKx/i0bZhe75QzrqNC03CDR 9oWNQ82JMp61VFTuK5Du62cD/T//DHymQsLMJiRAmoO03n+Ks2qosD6J8Dvg wFsj72fuByqmXi6qiTXmIDnXc+0S0okif2Xvb+CQfV2wP/A9FWOhmREPbDnw 9EoUtntH5th9VtSzwxzs8fXTopVTYdwzqyH3BAfd8YbnbpM518/uWJhH7kGx 39svK5A2fBFzu/g8B7ZFXx8plFLRWSUbW3WX3JNWT8v131ARtmCw7VMCBy6X 83aVFlOh7/BxaV0qB6oqcyK3kr7YHRzf8oyDt+cWlfi/pkJ7eirxZwUHoQWO A38Kqahd2/i9n9zL5VwX+SjSvhdzmEONHDgJYvMNSFfLH38w9p28Hifv5tUC Kjw0u9NmChHIDtsua5NPxUOrH4k9MwkIT8X4SpL+5tFzt2IugfP2icZleVRs LOy9GrWAgE+3xYe1pP27+i76LCYQfFA5ZBbpnLm/AnbTSJ+hRL59Re6BLYMn tNgE+gzbL9uR3nZqyI3CJ1AZJO5JJ30l9vf+0eUEAs58vz/4koqJnj92hSYE Xgx6vg4nzZEZFSSaE8gIv5K+j/Q+/tiGEAGBKBV6/UrS1Wf/rrLZQWBHQlLN rxdUzE6Y0F2+hyDnSvbee9IGbyfZygcJiFz8HZtK2v3XFFP0CIGL/ySqLpFO kZte+uMEAfNYJvsI6ZZlQkofTxEok6Q8tyEt5ygs99SPwM3mSJdVpM0CRSRv nidwJCpknRpp35QZs86EEtB+XrhOlnT2R9HpndfI33tn3iFh0r2/Z46ZRBFg hNo8HsylgqooNqhxl0BD6kFKB+mtBrN7ZBIIFI1zwutIh+2e0/7nAYEI8xDN CtLFweJNDekE1m5wbC0l/Tdt7uf8bAKWByKSi0izayQ+3n9JgP5NISif9J4x ydILRQSOZ9aeyCMdvVi6wK2MQNKdohP/H680knm++SOBrfIfAv6vn+U8L0P/ E4HXpn13/j//ylBK6uIG8vj8RUUfSR/LkL0v0kbAZI5Nfy3p5Fq5O987Ccja 3FBpJ90yKX/j/U8CRlVtWwZIy1EXXH4ySODPsN7ladJm6xSCb4wSSKi+Vyrz ///louh3aopAs6zaPxrprKsLvZ1mcDEyXM1ZRronW+m48Rwu+g2fOliSVmla 5KIuzQWxsc7/AOlLDOUdwwu5eBFp8Oge6aINKrb1KlxMSqelF5AeO7LUMo/B hUNmbvxX0rtf0IyCuVwY0FnWLLJfbrbRV7jqc2HT8FbSkvTHmQyewICLuguh 6Z6kl1syGYvMuGhWpzyoIH3kBEtZ2JILj2XMqSnSidHqCl02XIi4i3G1yf6d 16kpnr6TiwSf9mXXSXd7Ef1rvLj4+e7rZQ9yHnr3RGumnOXCf7f47OekBzbN OCQVxMXzCJfEKdJjqp+/14WTz/HGk+ah5LyJVXt+dX3IxVRQ2YwScj7FX31V rsngInhA7YgiOb9SyWY79J9zIb3XfNCN9HyfRY0iJVyIee9iqRRRwVAv+BTZ ykXLvFr+LTIf1OVZslOdXHRMOkhO/58XQuFWu3q5SDo00L2HzBPdL7s/ao6T 9+shc1+XzB9jf7GyQooO0qqKBgdLyH5qsHjx01gHkhOd7JK3VDi/eTZuaa6D hR4L7daT+eeSrqKfLSC/v31o30fS7kFDmb6OOhgKlGC1kHkZwL3xSN5LB4Zy fyhyFVTEXWy+h4c6UNOr66wl8zfxhEnb/QwdZBmZn/H8RMUDp8dLxJ/rYGzO qaaFZF5n6Prd+vRGB9X9yj/3fKGi8Bs94kCrDj6EJShKkfnfttwl+BqFh+j8 3DVPyX1hSbHVD1Hgwe341s5d5H4p+LG6238JD0ExsZOybVTE3lxgekydhx+H hc97f6XCaaRIzMqIB2N5yvetHVS0PlE8L3WMhy2818/tesj+Zpaeu1DFQ2DA uPJucj9aCGXw/Wp5uNo+IY0xKvJqb3d6NvPQ+3PYYhG5T2OCjhk7/+BhZ/em rAZy3+7oWDxznTAfG89cE93/j4rmu+6BogQfYqO5OS/J/dw0nxpw9gofaQcs KDby5H7PdPccvcHHiKplitt8GrZalboevsNHVuaeuAsLaPgU4rLV8QEf/GdV Wa8VaXgv9EwLxXywSh1gSj4/vOzZUPdvlE/Oq0zFVTUabued0PJx1IVIcHLO EvJ5xWFfee1pbT1wba8++7aXBmY7zn3h6UFOPt/CeD8NQ47ZXM4KPbz/+HQs 2ZmGYLv40PZ1evB67+Z3/BANT83PrDHbqYf5vmUb5Y/SMEeHeLzguh5U7OZS Qk7TkDV9MyhjXA/1Fr6ey67TIBnlzO8u1oeMueosjxIaCrv8f//CcmjEO2+3 16Ljb1LY3DmNKyClfNMkJpkOvUD5wLxtqyCRsGRRJ10Vf2tCt5z7a4C+GXWO 8pmq8JgxreCw3hBtzMhGcVMGjj4Yzn4jthr94oUDBbUMsOe2C+t9WQ2uuLHa kKcaDo9LnRm5YYTrNVZKrbJMmNRnT/ZuXoOamocaBx4z0XbMltWrshbZSVoB JdtZmIziBy1rW4s/nRO7kqdZaPSWuHL5sTE6vL99089Uh9VGx5hFp0xwfKVF L9NZA+vTfjWN6q9DTPXdU1SKJkRLPcsaZ5nCpucz5dp7TRi6oUOy1BQx7jST A6e1ICfmL3oyYD0yVbbcsFLXRqrdq6ruTWZIU2KzbnZr4/Uy3YpkqQ3IXHNW 1OsWGzE1SV5Hmzcgx9e41oHNwcTfLdbBMeZ47Nj1clEIB79k/XW+bN+I4s0N ZZc7yff1roR8TZYF1OftFiJMCbSaiJ2u6raA2eRow5P7BBqddnb65GxCn8u3 a3vInNXLvpVCGFnCud/2+yMXLor8E8bM7lkiZ6jhc3I5F9oPNWKcZ1shZW3L lc/aOth+u3J7mrMVRJ7WbboVqgPrc09vSZZa4ZaPltS7Hh1ov6Nwj2kJID09 9pxtyUN57ZW2qUsCqFY/IqQe83DRdMgvOUyA8+KHbLPTeTB/vpm2+YoANudK /XZk8FAZPX9f8jUBrNfZdzzK4uGLw+2fgmgBHiyrbtv0koeO9qSRpCQBRrmN WeHlPEz/ypMQFAmw276mVKmDhwInlUeTrwUIydA9W9zJg3+V36akNwLYm8mu cP3Ow6yna8MnywTIOqVTkNfDg4TH2wVJFQIcSOyf3jnIw8LJz9TJJgGZX+us U/7x0OSiV5zYIsC13+kCgRAfMc0391q1CRBZ6mszQc710vztyYntAqwetXDe OJMPpv9XLaseAQ4NBBYNzuWjZ8ioYuKnAGEiwh3Rknyk7r5/JLFPgESdhjlr pfnQNt7/dGJAgK22d3fdoPAxkFVmnTgkgN5UcATk+MhgqI9YDgtwn/nufbc8 H+6RIZETf8jrZe6ZHb6AzIHZffqJowIon7I2XaHIx3/hGMP0 "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesLabel->{ FormBox[ OverscriptBox["\"\[Omega]\"", "~"], TraditionalForm], FormBox[ "\"\\!\\(\\*SubscriptBox[OverscriptBox[\\(E\\), \\(_\\)], OverscriptBox[\ \\(\[Omega]\\), \\(~\\)]]\\)\"", TraditionalForm]}, AxesOrigin->{0, 0}, Method->{}, PlotRange->{{0., 0.0011576770081807135`}, {0, 0.0004923757339870808}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], {Automatic, Scaled[0.02]}}], DynamicModuleValues:>{}]], "Output", CellChangeTimes->{3.6575852111105003`*^9, 3.65758527387177*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{"\<\"lecture19Fig1a.eps\"\>", ",", "\<\"lecture19Fig1apn.png\"\>"}], "}"}]], "Output", CellChangeTimes->{3.6575852111105003`*^9, 3.657585276396525*^9}] }, Open ]], Cell[CellGroupData[{ Cell["mass of electron", "WolframAlphaLong", CellChangeTimes->{{3.6575844361795497`*^9, 3.6575844399894385`*^9}}], Cell[BoxData[ NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "mass of electron", Typeset`opts$$ = { AppearanceElements -> { "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", "Sources"}, Asynchronous -> All, TimeConstraint -> {30, Automatic, Automatic, Automatic}, Method -> { "Formats" -> {"cell", "minput", "msound", "dataformats"}, "Server" -> "http://api.wolframalpha.com/v1/"}}, Typeset`elements$$ = { "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", "Sources"}, Typeset`pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"ParticleData[\"Electron\", \"Mass\"]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ FormBox[ TagBox[ GridBox[{{ PaneBox[ StyleBox[ TagBox[ GridBox[{{ StyleBox[ StyleBox[ TemplateBox[{ TagBox[ TagBox[ StyleBox[ TemplateBox[{"e", "-"}, "Superscript", SyntaxForm -> SuperscriptBox], { LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False], $CellContext`TagBoxWrapper[ "Entity" -> {ParticleData, "Electron"}]], Identity], "\" \"", StyleBox[ RowBox[{"\"(\"", "\[NoBreak]", "\"electron\"", "\[NoBreak]", "\")\""}], { GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}, "RowDefault"], LineIndent -> 0], {LineIndent -> 0, LineSpacing -> {0.9, 0, 1.5}}], "\"mass\""}}, GridBoxBackground -> {"Columns" -> { GrayLevel[0.949], None}, "Rows" -> {{None}}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxDividers -> {"Columns" -> { GrayLevel[0.84], GrayLevel[0.84], GrayLevel[0.84]}, "Rows" -> {{ GrayLevel[0.84]}}, "RowsIndexed" -> { 1 -> GrayLevel[0.84], -1 -> GrayLevel[0.84]}}, GridBoxSpacings -> { "Columns" -> {1, 1, 1}, "Rows" -> {{0.3}}}, GridBoxAlignment -> { "Columns" -> {{Left}}, "Rows" -> {{Baseline}}}, AllowScriptLevelChange -> False, BaselinePosition -> 1], $CellContext`TagBoxWrapper["Separator" -> " | "]], LineSpacing -> {1, 0, 1.5}, LineIndent -> 0], BaselinePosition -> Center]}}, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, ColumnsEqual -> False, RowsEqual -> False, GridBoxSpacings -> {"Columns" -> {{ AbsoluteThickness[-1]}}, "Rows" -> {{0}}}, AllowScriptLevelChange -> False], $CellContext`TagBoxWrapper["Separator" -> " | "]], TraditionalForm], PolynomialForm[#, TraditionalOrder -> False]& ], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,minput,computabledata,formatteddata"}]}]}], Typeset`pod2$$ = XMLElement[ "pod", {"title" -> "Result", "scanner" -> "Data", "id" -> "Result", "position" -> "200", "error" -> "false", "numsubpods" -> "1", "primary" -> "true"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ TagBox[ TagBox[ TagBox[ RowBox[{ TagBox["510.9989", $CellContext`TagBoxWrapper["StringBoxes" -> "510.9989"]], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ RowBox[{ "\"keV\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox[ StyleBox["\"c\"", Italic, StripOnInput -> False], "2"]}], FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,moutput,computabledata,formatteddata,numberdata,\ quantitydata"}]}]}], Typeset`pod3$$ = XMLElement[ "pod", {"title" -> "Unit conversions", "scanner" -> "Unit", "id" -> "UnitConversion", "position" -> "300", "error" -> "false", "numsubpods" -> "3"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ TagBox[ TagBox[ TagBox[ RowBox[{ TagBox["0.5109989", $CellContext`TagBoxWrapper["StringBoxes" -> "0.5109989"]], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ RowBox[{ "\"MeV\"", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox[ StyleBox["\"c\"", Italic, StripOnInput -> False], "2"]}], FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"9.10938", StyleBox["\[Times]", GrayLevel[0.5]], SuperscriptBox["10", "-28"]}], $CellContext`TagBoxWrapper[ "StringBoxes" -> RowBox[{"9.10938", "\[Times]", SuperscriptBox["10", "-28"]}]], SyntaxForm -> CenterDot], "\[InvisibleSpace]", " ", StyleBox[ "\"grams\"", { FontFamily -> "Helvetica", FontSize -> Smaller, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], Identity], #& , SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"9.10938", StyleBox["\[Times]", GrayLevel[0.5]], SuperscriptBox["10", "-31"]}], $CellContext`TagBoxWrapper[ "StringBoxes" -> RowBox[{"9.10938", "\[Times]", SuperscriptBox["10", "-31"]}]], SyntaxForm -> CenterDot], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ "\"kg\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], " ", StyleBox[ RowBox[{ "\"(\"", "\[NoBreak]", "\"kilograms\"", "\[NoBreak]", "\")\""}], {FontFamily -> "Helvetica", FontSize -> Smaller, GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}]}]\ , Typeset`pod4$$ = XMLElement[ "pod", {"title" -> "Comparison", "scanner" -> "Unit", "id" -> "Comparison", "position" -> "400", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FormBox[ TemplateBox[{"\" \[TildeTilde] \"", StyleBox["\"( \"", { GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False], TemplateBox[{"\"\"", "0", "\".\"", "0", "0", "0", "5", "5"}, "RowDefault"], StyleBox[ TemplateBox[{ "\" \[TildeTilde] \"", "\"1\"", "\"/\"", "1820", "\" ) \""}, "RowDefault"], { GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False], StyleBox["\"\[Times]\"", GrayLevel[0.3], FontSize -> 10.219999999999999`, StripOnInput -> False], "\"\[MediumSpace]\"", StyleBox[ "\"unified atomic mass unit\"", FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], "\" \"", StyleBox[ RowBox[{"\"(\"", "\[NoBreak]", TemplateBox[{"\"\[TildeTilde]\[ThinSpace]\"", StyleBox[ TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"1.7", StyleBox["\[Times]", GrayLevel[0.5]], SuperscriptBox["10", "-27"]}], $CellContext`TagBoxWrapper[ "StringBoxes" -> RowBox[{"1.7", "\[Times]", SuperscriptBox["10", "-27"]}]], SyntaxForm -> CenterDot], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ "\"kg\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False], "\"\[MediumSpace]\""}, "RowDefault"], "\[NoBreak]", "\")\""}], { FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}, "RowDefault"], TraditionalForm], TraditionalForm]], "Output", {}]}], XMLElement["dataformats", {}, {"plaintext"}]}]}], Typeset`pod5$$ = XMLElement[ "pod", {"title" -> "Corresponding quantities", "scanner" -> "Unit", "id" -> "CorrespondingQuantity", "position" -> "500", "error" -> "false", "numsubpods" -> "6"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ InterpretationBox[ Cell[ TextData[{"Relativistic energy ", Cell[ BoxData[ FormBox[ FormBox[ StyleBox["\"E\"", Italic, StripOnInput -> False], TraditionalForm], TraditionalForm]]], " from ", Cell[ BoxData[ FormBox[ FormBox[ TemplateBox[{ TagBox[ RowBox[{ FormBox[ StyleBox["\"E\"", Italic, StripOnInput -> False], TraditionalForm], "\[LongEqual]", RowBox[{"m", "\[InvisibleSpace]", SuperscriptBox["c", "2"]}]}], PolynomialForm[#, TraditionalOrder -> False]& ]}, "RowDefault"], TraditionalForm], TraditionalForm]]], ":"}]], TextCell[ Row[{"Relativistic energy ", $CellContext`capitalE, " from ", $CellContext`InlineForm["capitalE \[LongEqual] m c^2"], ":"}]]]}, { TagBox[ GridBox[{{ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {10, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[10]], StyleBox[ TagBox[ RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox["511", $CellContext`TagBoxWrapper["StringBoxes" -> "511"]], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ "\"keV\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], " ", StyleBox[ RowBox[{ "\"(\"", "\[NoBreak]", "\"kiloelectronvolts\"", "\[NoBreak]", "\")\""}], { FontFamily -> "Helvetica", FontSize -> Smaller, GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ InterpretationBox[ Cell[ TextData[{"Characteristic length ", Cell[ BoxData[ FormBox["L", TraditionalForm]]], " from ", Cell[ BoxData[ FormBox[ FormBox[ TemplateBox[{ TagBox[ RowBox[{"L", "\[LongEqual]", RowBox[{"h", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", RowBox[{"\"(\"", "\[InvisibleSpace]", RowBox[{"m", "\[InvisibleSpace]", "c"}], "\[InvisibleSpace]", "\")\""}]}]}], PolynomialForm[#, TraditionalOrder -> False]& ]}, "RowDefault"], TraditionalForm], TraditionalForm]]], ":"}]], TextCell[ Row[{"Characteristic length ", $CellContext`CalculateSymbol["L"], " from ", $CellContext`InlineForm["L \[LongEqual] h/(m c)"], ":"}]]]}, { TagBox[ GridBox[{{ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {10, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[10]], StyleBox[ TagBox[ RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox["2.4", $CellContext`TagBoxWrapper["StringBoxes" -> "2.4"]], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ "\"pm\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], " ", StyleBox[ RowBox[{ "\"(\"", "\[NoBreak]", "\"picometers\"", "\[NoBreak]", "\")\""}], { FontFamily -> "Helvetica", FontSize -> Smaller, GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ InterpretationBox[ Cell[ TextData[{"Thermal de Broglie wavelength at 100 K from ", Cell[ BoxData[ FormBox[ FormBox[ TemplateBox[{ TagBox[ RowBox[{"\[Lambda]", "\[LongEqual]", RowBox[{"h", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", SuperscriptBox[ RowBox[{"(", "\[InvisibleSpace]", RowBox[{"2", "\[InvisibleSpace]", "\[Pi]", "\[InvisibleSpace]", "m", "\[InvisibleSpace]", "k", "\[InvisibleSpace]", "T"}], "\[InvisibleSpace]", ")"}], RowBox[{"1", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "2"}]]}]}], PolynomialForm[#, TraditionalOrder -> False]& ]}, "RowDefault"], TraditionalForm], TraditionalForm]]], ":"}]], TextCell[ Row[{"Thermal de Broglie wavelength at 100 K from ", $CellContext`InlineForm[ "\[Lambda] \[LongEqual] h/(Superscript[2 \[Pi] m k T, \ 1/2])"], ":"}]]]}, { TagBox[ GridBox[{{ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {10, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[10]], StyleBox[ TagBox[ RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox["7.5", $CellContext`TagBoxWrapper["StringBoxes" -> "7.5"]], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ "\"nm\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], " ", StyleBox[ RowBox[{ "\"(\"", "\[NoBreak]", "\"nanometers\"", "\[NoBreak]", "\")\""}], { FontFamily -> "Helvetica", FontSize -> Smaller, GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ InterpretationBox[ Cell[ TextData[{"Characteristic time ", Cell[ BoxData[ FormBox["T", TraditionalForm]]], " from ", Cell[ BoxData[ FormBox[ FormBox[ TemplateBox[{ TagBox[ RowBox[{"T", "\[LongEqual]", RowBox[{"h", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", RowBox[{"\"(\"", "\[InvisibleSpace]", RowBox[{"m", "\[InvisibleSpace]", SuperscriptBox["c", "2"]}], "\[InvisibleSpace]", "\")\""}]}]}], PolynomialForm[#, TraditionalOrder -> False]& ]}, "RowDefault"], TraditionalForm], TraditionalForm]]], ":"}]], TextCell[ Row[{"Characteristic time ", $CellContext`CalculateSymbol["T"], " from ", $CellContext`InlineForm["T \[LongEqual] h/(m c^2)"], ":"}]]]}, { TagBox[ GridBox[{{ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {10, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[10]], StyleBox[ TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"8.1", StyleBox["\[Times]", GrayLevel[0.5]], SuperscriptBox["10", "-21"]}], $CellContext`TagBoxWrapper[ "StringBoxes" -> RowBox[{"8.1", "\[Times]", SuperscriptBox["10", "-21"]}]], SyntaxForm -> CenterDot], "\[InvisibleSpace]", " ", StyleBox[ "\"seconds\"", { FontFamily -> "Helvetica", FontSize -> Smaller, LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], Identity], #& , SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ InterpretationBox[ Cell[ TextData[{"Thermodynamic temperature ", Cell[ BoxData[ FormBox["T", TraditionalForm]]], " from ", Cell[ BoxData[ FormBox[ FormBox[ TemplateBox[{ TagBox[ RowBox[{ RowBox[{"k", "\[InvisibleSpace]", "T"}], "\[LongEqual]", RowBox[{"m", "\[InvisibleSpace]", SuperscriptBox["c", "2"]}]}], PolynomialForm[#, TraditionalOrder -> False]& ]}, "RowDefault"], TraditionalForm], TraditionalForm]]], ":"}]], TextCell[ Row[{"Thermodynamic temperature ", $CellContext`CalculateSymbol["T"], " from ", $CellContext`InlineForm["k T \[LongEqual] m c^2"], ":"}]]]}, { TagBox[ GridBox[{{ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {10, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[10]], StyleBox[ TagBox[ RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"5.93", StyleBox["\[Times]", GrayLevel[0.5]], SuperscriptBox["10", "9"]}], $CellContext`TagBoxWrapper[ "StringBoxes" -> RowBox[{"5.93", "\[Times]", SuperscriptBox["10", "9"]}]], SyntaxForm -> CenterDot], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ "\"K\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], " ", StyleBox[ RowBox[{ "\"(\"", "\[NoBreak]", "\"kelvins\"", "\[NoBreak]", "\")\""}], { FontFamily -> "Helvetica", FontSize -> Smaller, GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ InterpretationBox[ Cell[ TextData[{"Compton frequency ", Cell[ BoxData[ FormBox["\[Nu]", TraditionalForm]]], " from ", Cell[ BoxData[ FormBox[ FormBox[ TemplateBox[{ TagBox[ RowBox[{"\[Nu]", "\[LongEqual]", RowBox[{ RowBox[{"m", "\[InvisibleSpace]", SuperscriptBox["c", "2"]}], "\[InvisibleSpace]", "\[NegativeThinSpace]", "\[InvisibleSpace]", "\"/\"", "\[InvisibleSpace]", "h"}]}], PolynomialForm[#, TraditionalOrder -> False]& ]}, "RowDefault"], TraditionalForm], TraditionalForm]]], ":"}]], TextCell[ Row[{"Compton frequency ", $CellContext`CalculateSymbol["\[Nu]"], " from ", $CellContext`InlineForm["\[Nu] \[LongEqual] m c^2/h"], ":"}]]]}, { TagBox[ GridBox[{{ InterpretationBox[ StyleBox[ GraphicsBox[{}, ImageSize -> {10, 0}, BaselinePosition -> Baseline], "CacheGraphics" -> False], Spacer[10]], StyleBox[ TagBox[ RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"1.236", StyleBox["\[Times]", GrayLevel[0.5]], SuperscriptBox["10", "20"]}], $CellContext`TagBoxWrapper[ "StringBoxes" -> RowBox[{"1.236", "\[Times]", SuperscriptBox["10", "20"]}]], SyntaxForm -> CenterDot], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ "\"Hz\"", FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], " ", StyleBox[ RowBox[{ "\"(\"", "\[NoBreak]", "\"hertz\"", "\[NoBreak]", "\")\""}], { FontFamily -> "Helvetica", FontSize -> Smaller, GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AutoDelete -> False, GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}]}]\ , Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = { True, False, {False}, True}, Typeset`aux3$$ = { True, False, {False, False, False}, True}, Typeset`aux4$$ = { True, False, {False}, True}, Typeset`aux5$$ = { True, False, {False, False, False, False, False, False}, True}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "1"}, { XMLElement[ "assumption", { "type" -> "MultiClash", "word" -> "", "template" -> "Assuming ${word1} is referring to ${desc1}. Use \"${word2}\" as \ ${desc2}. Use \"${word3}\" as ${desc3}. Use \"${word4}\" as ${desc4}.", "count" -> "4"}, { XMLElement[ "value", { "name" -> "Particle", "word" -> "electron", "desc" -> "a particle", "input" -> "*MC.%7E-_*Particle-"}, {}], XMLElement[ "value", { "name" -> "ChemicalIntermediate", "word" -> "electron", "desc" -> "an ion", "input" -> "*MC.%7E-_*ChemicalIntermediate-"}, {}], XMLElement[ "value", { "name" -> "Species", "word" -> "electron", "desc" -> "a species specification", "input" -> "*MC.%7E-_*Species-"}, {}], XMLElement[ "value", { "name" -> "Unit", "word" -> "", "desc" -> "a unit", "input" -> "*MC.%7E-_*Unit-"}, {}]}]}], XMLElement["sources", {"count" -> "1"}, { XMLElement[ "source", { "url" -> "http://www.wolframalpha.com/sources/\ ParticleDataSourceInformationNotes.html", "text" -> "Particle data"}, {}]}]}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "5", "datatypes" -> "Particle", "timedout" -> "", "timedoutpods" -> "", "timing" -> "1.592", "parsetiming" -> "0.418", "parsetimedout" -> "false", "recalculate" -> "", "id" -> "MSPa8471e2f444eag6g27f400004e5354f5bh18d0h9", "host" -> "http://www4c.wolframalpha.com", "server" -> "32", "related" -> "http://www4c.wolframalpha.com/api/v2/relatedQueries.jsp?id=\ MSPa8481e2f444eag6g27f4000037cd1h66f80cgh7d&s=32", "version" -> "2.6"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2015, 11, 26, 22, 40, 46.0590322`9.415889671950218}, "Line" -> 568, "SessionID" -> 32775491568769407286}, Typeset`showpods$$ = {1, 2, 3, 4, 5}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, Typeset`open$$ = False, Typeset`newq$$ = "mass of electron"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{ 1, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, Typeset`pod5$$}, { Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, Typeset`aux5$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{628., {450., 457.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], Null; WolframAlphaClient`Private`doAsyncUpdates[ Hold[{ Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, Typeset`pod5$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]], "Print", CellMargins->{{20, 10}, {Inherited, Inherited}}, CellChangeTimes->{3.6575844465746727`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["hbar", "WolframAlphaLong", CellChangeTimes->{{3.6575844915394382`*^9, 3.657584491883255*^9}}], Cell[BoxData[ NamespaceBox["WolframAlphaQueryResults", DynamicModuleBox[{Typeset`q$$ = "hbar", Typeset`opts$$ = { AppearanceElements -> { "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", "Sources"}, Asynchronous -> All, TimeConstraint -> {30, Automatic, Automatic, Automatic}, Method -> { "Formats" -> {"cell", "minput", "msound", "dataformats"}, "Server" -> "http://api.wolframalpha.com/v1/"}}, Typeset`elements$$ = { "Warnings", "Assumptions", "Brand", "Pods", "PodMenus", "Unsuccessful", "Sources"}, Typeset`pod1$$ = XMLElement[ "pod", {"title" -> "Input interpretation", "scanner" -> "Identity", "id" -> "Input", "position" -> "100", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["minput", {}, {"Quantity[1, \"ReducedPlanckConstant\"]"}], XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{ TagBox[ RowBox[{ TagBox[ StyleBox[ "\"\[HBar]\"", FontFamily -> "Helvetica", FontSize -> Smaller], HoldForm]}], Identity], " ", StyleBox[ RowBox[{ "\"(\"", "\[NoBreak]", "\"reduced Planck constant\"", "\[NoBreak]", "\")\""}], { FontFamily -> "Helvetica", FontSize -> Smaller, GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], PolynomialForm[#, TraditionalOrder -> False]& ], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False], TraditionalForm]], "Output", {}]}], XMLElement["dataformats", {}, {"plaintext,minput"}]}]}], Typeset`pod2$$ = XMLElement[ "pod", {"title" -> "Definition", "scanner" -> "Unit", "id" -> "Definition", "position" -> "200", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ GridBox[{{ FractionBox[ StyleBox["\"h\"", Italic, StripOnInput -> False], RowBox[{"2", " ", "\[Pi]"}]]}, { StyleBox[ RowBox[{"\"(\"", "\[NoBreak]", TemplateBox[{ StyleBox["\"h\"", Italic, StripOnInput -> False], "\": \"", "\"Planck constant\""}, "RowDefault"], "\[NoBreak]", "\")\""}], { FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}}, GridBoxAlignment -> {"Columns" -> {{Left}}}, AllowScriptLevelChange -> False, DefaultBaseStyle -> "Column", GridBoxItemSize -> { "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Column"], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,formuladata"}]}]}], Typeset`pod3$$ = XMLElement[ "pod", {"title" -> "Value", "scanner" -> "Unit", "id" -> "Value", "position" -> "300", "error" -> "false", "numsubpods" -> "2"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"1.054572", StyleBox["\[Times]", GrayLevel[0.5]], SuperscriptBox["10", "-34"]}], $CellContext`TagBoxWrapper[ "StringBoxes" -> RowBox[{"1.054572", "\[Times]", SuperscriptBox["10", "-34"]}]], SyntaxForm -> CenterDot], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ RowBox[{ "\"J\"", "\[InvisibleSpace]", "\"\[ThinSpace]\"", "\[InvisibleSpace]", "\"s\""}], FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], " ", StyleBox[ RowBox[{ "\"(\"", "\[NoBreak]", "\"joule seconds\"", "\[NoBreak]", "\")\""}], {FontFamily -> "Helvetica", FontSize -> Smaller, GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ StyleBox[ TagBox[ RowBox[{ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"6.582119", StyleBox["\[Times]", GrayLevel[0.5]], SuperscriptBox["10", "-16"]}], $CellContext`TagBoxWrapper[ "StringBoxes" -> RowBox[{"6.582119", "\[Times]", SuperscriptBox["10", "-16"]}]], SyntaxForm -> CenterDot], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ RowBox[{ "\"eV\"", "\[InvisibleSpace]", "\"\[ThinSpace]\"", "\[InvisibleSpace]", "\"s\""}], FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], " ", StyleBox[ RowBox[{ "\"(\"", "\[NoBreak]", "\"electronvolt seconds\"", "\[NoBreak]", "\")\""}], { FontFamily -> "Helvetica", FontSize -> Smaller, GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,numberdata,quantitydata"}]}]}]\ , Typeset`pod4$$ = XMLElement[ "pod", {"title" -> "Comparison as action", "scanner" -> "Unit", "id" -> "ComparisonAsAction", "position" -> "400", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FormBox[ TemplateBox[{"\" \[TildeTilde] \"", StyleBox["\"( \"", { GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False], TemplateBox[{"\"\"", "0", "\".\"", "1", "6"}, "RowDefault"], StyleBox[ TemplateBox[{ "\" \[TildeTilde] \"", "\"1\"", "\"/\"", "6", "\" ) \""}, "RowDefault"], { GrayLevel[0.6], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False], StyleBox["\"\[Times]\"", GrayLevel[0.3], FontSize -> 10.219999999999999`, StripOnInput -> False], "\"\[MediumSpace]\"", StyleBox[ "\"Planck constant\"", FontFamily -> "Helvetica", FontSize -> Smaller, StripOnInput -> False], "\" \"", StyleBox[ RowBox[{"\"(\"", "\[NoBreak]", TemplateBox[{"\"\[TildeTilde]\[ThinSpace]\"", StyleBox[ TagBox[ TagBox[ TagBox[ RowBox[{ TagBox[ RowBox[{"6.6", StyleBox["\[Times]", GrayLevel[0.5]], SuperscriptBox["10", "-34"]}], $CellContext`TagBoxWrapper[ "StringBoxes" -> RowBox[{"6.6", "\[Times]", SuperscriptBox["10", "-34"]}]], SyntaxForm -> CenterDot], "\[NoBreak]", StyleBox[ RowBox[{}], FontFamily -> "Helvetica", FontSize -> Smaller], "\[InvisibleSpace]", "\[ThickSpace]", "\[InvisibleSpace]", StyleBox[ RowBox[{ "\"J\"", "\[InvisibleSpace]", "\"\[ThinSpace]\"", "\[InvisibleSpace]", "\"s\""}], FontFamily -> "Helvetica", FontSize -> Smaller]}], Identity], #& , SyntaxForm -> Dot], "Unit", SyntaxForm -> Dot], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0, ZeroWidthTimes -> False], "\"\[MediumSpace]\""}, "RowDefault"], "\[NoBreak]", "\")\""}], { FontFamily -> "Verdana", FontSize -> 10, GrayLevel[0.5], LinebreakAdjustments -> {1, 100, 1, 0, 100}, LineIndent -> 0}, StripOnInput -> False]}, "RowDefault"], TraditionalForm], TraditionalForm]], "Output", {}]}], XMLElement["dataformats", {}, {"plaintext"}]}]}], Typeset`pod5$$ = XMLElement[ "pod", {"title" -> "Interpretations", "scanner" -> "Unit", "id" -> "Interpretation", "position" -> "500", "error" -> "false", "numsubpods" -> "2"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FormBox[ TagBox["\"angular momentum\"", Identity], TraditionalForm], TraditionalForm]], "Output", {}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ FormBox[ TagBox["\"action\"", Identity], TraditionalForm], TraditionalForm]], "Output", {}]}], XMLElement["dataformats", {}, {"plaintext"}]}], XMLElement["states", {"count" -> "1"}, { XMLElement[ "state", { "name" -> "More", "input" -> "Interpretation__More"}, {}]}]}], Typeset`pod6$$ = XMLElement[ "pod", {"title" -> "Basic unit dimensions", "scanner" -> "Unit", "id" -> "BasicUnitDimensions", "position" -> "600", "error" -> "false", "numsubpods" -> "1"}, { XMLElement["subpod", {"title" -> ""}, { XMLElement["cell", {"compressed" -> False, "string" -> True}, { Cell[ BoxData[ FormBox[ TagBox[ RowBox[{"\"[mass]\"", " ", TemplateBox[{"\"[length]\"", "2"}, "Superscript", SyntaxForm -> SuperscriptBox], " ", TemplateBox[{"\"[time]\"", RowBox[{"-", "1"}]}, "Superscript", SyntaxForm -> SuperscriptBox]}], HoldForm], TraditionalForm]], "Output", {}]}], XMLElement[ "dataformats", {}, { "plaintext,computabledata,formatteddata,formuladata"}]}]}], Typeset`aux1$$ = {True, False, {False}, True}, Typeset`aux2$$ = { True, False, {False}, True}, Typeset`aux3$$ = { True, False, {False, False}, True}, Typeset`aux4$$ = { True, False, {False}, True}, Typeset`aux5$$ = { True, False, {False, False}, True}, Typeset`aux6$$ = { True, False, {False}, True}, Typeset`asyncpods$$ = {}, Typeset`nonpods$$ = { XMLElement["assumptions", {"count" -> "2"}, { XMLElement[ "assumption", { "type" -> "Clash", "word" -> "hbar", "template" -> "Assuming \"${word}\" is ${desc1}. Use as ${desc2} instead", "count" -> "2"}, { XMLElement[ "value", { "name" -> "Unit", "desc" -> "a unit", "input" -> "*C.hbar-_*Unit-"}, {}], XMLElement[ "value", { "name" -> "Character", "desc" -> "a character", "input" -> "*C.hbar-_*Character-"}, {}]}], XMLElement[ "assumption", { "type" -> "Unit", "word" -> "hbar", "template" -> "Assuming ${desc1} for \"${word}\". Use ${desc2} instead", "count" -> "2"}, { XMLElement[ "value", { "name" -> "ReducedPlanckConstant", "desc" -> "reduced Planck constant", "input" -> "UnitClash_*hbar.*ReducedPlanckConstant--"}, {}], XMLElement[ "value", { "name" -> "Hectobars", "desc" -> "hectobars", "input" -> "UnitClash_*hbar.*Hectobars--"}, {}]}]}], XMLElement["sources", {"count" -> "0"}, {}]}, Typeset`initdone$$ = True, Typeset`queryinfo$$ = { "success" -> "true", "error" -> "false", "numpods" -> "6", "datatypes" -> "Quantity", "timedout" -> "", "timedoutpods" -> "", "timing" -> "1.213", "parsetiming" -> "0.095", "parsetimedout" -> "false", "recalculate" -> "", "id" -> "MSPa183622g2gea0edi9a50500003d01begf791cb75d", "host" -> "http://www4c.wolframalpha.com", "server" -> "17", "related" -> "http://www4c.wolframalpha.com/api/v2/relatedQueries.jsp?id=\ MSPa183722g2gea0edi9a50500005baib4icii6i3ida&s=17", "version" -> "2.6"}, Typeset`sessioninfo$$ = { "TimeZone" -> -5., "Date" -> {2015, 11, 26, 22, 41, 33.6347029`9.279362495003788}, "Line" -> 569, "SessionID" -> 32775491568769407286}, Typeset`showpods$$ = {1, 2, 3, 4, 5, 6}, Typeset`failedpods$$ = {}, Typeset`chosen$$ = {}, Typeset`open$$ = False, Typeset`newq$$ = "hbar"}, DynamicBox[ToBoxes[ AlphaIntegration`FormatAlphaResults[ Dynamic[{ 1, {Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, Typeset`pod5$$, Typeset`pod6$$}, { Typeset`aux1$$, Typeset`aux2$$, Typeset`aux3$$, Typeset`aux4$$, Typeset`aux5$$, Typeset`aux6$$}, Typeset`chosen$$, Typeset`open$$, Typeset`elements$$, Typeset`q$$, Typeset`opts$$, Typeset`nonpods$$, Typeset`queryinfo$$, Typeset`sessioninfo$$, Typeset`showpods$$, Typeset`failedpods$$, Typeset`newq$$}]], StandardForm], ImageSizeCache->{628., {356., 363.}}, TrackedSymbols:>{Typeset`showpods$$, Typeset`failedpods$$}], DynamicModuleValues:>{}, Initialization:>If[ Not[Typeset`initdone$$], Null; WolframAlphaClient`Private`doAsyncUpdates[ Hold[{ Typeset`pod1$$, Typeset`pod2$$, Typeset`pod3$$, Typeset`pod4$$, Typeset`pod5$$, Typeset`pod6$$}], Typeset`asyncpods$$, Dynamic[Typeset`failedpods$$]]; Typeset`asyncpods$$ = {}; Typeset`initdone$$ = True], SynchronousInitialization->False], BaseStyle->{Deployed -> True}, DeleteWithContents->True, Editable->False, SelectWithContents->True]], "Print", CellMargins->{{20, 10}, {Inherited, Inherited}}, CellChangeTimes->{3.6575844940253825`*^9}] }, Open ]] }, WindowSize->{707, 636}, WindowMargins->{{49, Automatic}, {Automatic, 62}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 177, 4, 66, "Text"], Cell[CellGroupData[{ Cell[759, 28, 5169, 148, 691, "Input"], Cell[5931, 178, 623, 16, 94, "Output"], Cell[6557, 196, 858, 23, 94, "Output"], Cell[7418, 221, 341, 5, 40, "Output"], Cell[7762, 228, 387, 7, 62, "Output"], Cell[8152, 237, 409, 8, 62, "Output"], Cell[8564, 247, 451, 9, 65, "Output"], Cell[9018, 258, 795, 21, 68, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9850, 284, 2963, 74, 340, "Input"], Cell[12816, 360, 171, 2, 40, "Output"], Cell[12990, 364, 2327, 44, 495, "Output"], Cell[15320, 410, 542, 11, 56, "Message"] }, Open ]], Cell[CellGroupData[{ Cell[15899, 426, 1346, 35, 285, "Input"], Cell[17248, 463, 7337, 129, 336, "Output"], Cell[24588, 594, 194, 4, 72, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[24819, 603, 114, 1, 53, "WolframAlphaLong"], Cell[24936, 606, 39538, 854, 919, "Print"] }, Open ]], Cell[CellGroupData[{ Cell[64511, 1465, 100, 1, 53, "WolframAlphaLong"], Cell[64614, 1468, 16487, 349, 731, "Print"] }, Open ]] } ] *) (* End of internal cache information *)