(* 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[ 20084, 658] NotebookOptionsPosition[ 18286, 595] NotebookOutlinePosition[ 18796, 614] CellTagsIndexPosition[ 18753, 611] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"BeH2", " ", "molecule", " ", "with", " ", RowBox[{"Be", "[", RowBox[{"1", "s2", " ", "2", "s2"}], "]"}]}], ",", " ", "overlap", ",", " ", RowBox[{"parametrized", " ", "ES", " ", "02.11", RowBox[{".2012", "/", "5.3"}], ".2013"}]}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{ RowBox[{"Variables", ":", " ", "P"}], ",", "Q", ",", "R", ",", "S"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"with", " ", StyleBox["exchange", FontColor->RGBColor[1, 0, 0]]}], " ", "*)"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Clear", "[", RowBox[{ "k1", ",", "k2", ",", "s1", ",", "s2", ",", " ", "Z", ",", " ", "P", ",", "Q", ",", "R", ",", "S"}], "]"}], ";"}]}]], "Input", CellChangeTimes->{{3.5714601910877275`*^9, 3.571460199496142*^9}}], Cell[BoxData[ RowBox[{ RowBox[{"Z", "=", "4.0"}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"T", "=", RowBox[{ RowBox[{"2.25", "*", RowBox[{"k1", "/", RowBox[{"P", "^", "2"}]}]}], "+", RowBox[{"18.0", "*", RowBox[{"k2", "/", RowBox[{"Q", "^", "2"}]}]}]}]}], ";"}]], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"Vne", "=", RowBox[{ RowBox[{ RowBox[{"-", "1.5"}], "*", RowBox[{"Z", "/", "P"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"2.0", "*", RowBox[{"Z", "/", "Q"}]}], ")"}], "*", RowBox[{"(", RowBox[{"1.5", "-", RowBox[{"0.5", "*", RowBox[{ RowBox[{"(", RowBox[{"R", "/", "Q"}], ")"}], "^", "2"}]}]}], ")"}]}], "-", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"2", "/", "Q"}], ")"}], "*", RowBox[{"(", RowBox[{"1.5", "-", RowBox[{"0.5", "*", RowBox[{ RowBox[{"(", RowBox[{"S", "/", "Q"}], ")"}], "^", "2"}]}]}], ")"}]}], "-", RowBox[{"2.0", "/", RowBox[{"(", RowBox[{"R", "+", "S"}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vne", "=", RowBox[{ RowBox[{"2", "*", "Vne"}], "-", RowBox[{"4", "/", RowBox[{"(", RowBox[{ RowBox[{"2", "*", "R"}], "+", "S"}], ")"}]}]}]}], ";"}]}], "Input"], Cell[BoxData[{ RowBox[{ RowBox[{"Vee", "=", RowBox[{ RowBox[{"1.5", "*", RowBox[{"s1", "/", "P"}]}], "+", RowBox[{"3.0", "*", RowBox[{"s2", "/", "Q"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"2", "/", "Q"}], ")"}], "*", RowBox[{"(", RowBox[{"3.0", "-", RowBox[{ RowBox[{"(", RowBox[{"R", "/", "Q"}], ")"}], "^", "2"}], "-", RowBox[{"0.6", "*", RowBox[{ RowBox[{"(", RowBox[{"P", "/", "Q"}], ")"}], "^", "2"}]}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vex", " ", "=", " ", RowBox[{ RowBox[{"-", StyleBox["1.2", FontColor->RGBColor[1, 0, 0]]}], StyleBox["*", FontColor->RGBColor[1, 0, 0]], StyleBox[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"P", "/", "Q"}], ")"}], "^", "3"}], "/", "Q"}], FontColor->RGBColor[1, 0, 0]]}]}], StyleBox[";", FontColor->RGBColor[1, 0, 0]]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vee", " ", "=", " ", RowBox[{ RowBox[{"2", "*", RowBox[{"(", RowBox[{"Vee", "+", "Vex"}], ")"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"4", "/", "Q"}], ")"}], "*", RowBox[{"(", RowBox[{"1.2", "-", RowBox[{"0.5", "*", RowBox[{ RowBox[{"(", RowBox[{"2", "*", RowBox[{"R", "/", "Q"}]}], ")"}], "^", "2"}]}], "+", "\[IndentingNewLine]", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "16"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"2", "*", RowBox[{"R", "/", "Q"}]}], ")"}], "^", "3"}]}], "-", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "160"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"2", "*", RowBox[{"R", "/", "Q"}]}], ")"}], "^", "5"}]}]}], ")"}]}]}]}], ";"}]}], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"Vnn", "=", RowBox[{ RowBox[{"2", "*", RowBox[{"Z", "/", RowBox[{"(", RowBox[{"R", "+", "S"}], ")"}]}]}], "+", RowBox[{"1", "/", RowBox[{"(", RowBox[{"2", "*", RowBox[{"(", RowBox[{"R", "+", "S"}], ")"}]}], ")"}]}]}]}], ";"}]], "Input"], Cell[BoxData[ RowBox[{ StyleBox["(*", FontSize->12], StyleBox[" ", FontSize->12], RowBox[{"Parameters", " ", "in", " ", "list", " ", "c"}], StyleBox[" ", FontSize->12], StyleBox["*)", FontSize->12]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{ RowBox[{"c", "=", RowBox[{"{", RowBox[{ RowBox[{"k1", " ", "->", " ", "1.0"}], ",", " ", RowBox[{"k2", "->", " ", "1.0"}], ",", " ", RowBox[{"s1", " ", "->", " ", "0.3"}], ",", " ", RowBox[{"s2", " ", "->", " ", "0.3"}]}], "}"}]}], ";"}], " ", "*)"}], " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"c", "=", RowBox[{"{", RowBox[{ RowBox[{"k1", " ", "\[Rule]", " ", "1.02098865"}], ",", " ", RowBox[{"k2", " ", "->", " ", "0.64883648"}], ",", RowBox[{"s1", "->", " ", "0.26743072"}], ",", RowBox[{"s2", "->", " ", "0.21850553"}]}], "}"}]}], ";"}]}]], "Input"], Cell[BoxData[ RowBox[{ RowBox[{"func", "=", RowBox[{ RowBox[{"T", "+", "Vne", "+", "Vee", "+", "Vnn"}], " ", "/.", " ", "c"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"t", "=", RowBox[{"FindMinimum", "[", RowBox[{"func", ",", RowBox[{"{", RowBox[{"P", ",", "0.4116"}], "}"}], ",", RowBox[{"{", RowBox[{"Q", ",", "2.3"}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "1.29"}], "}"}], ",", RowBox[{"{", RowBox[{"S", ",", " ", "1.27"}], "}"}], ",", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "]"}], " "}]], "Input", CellChangeTimes->{{3.571460413544118*^9, 3.571460436788159*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"-", "15.768433978641188`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.4115849549473613`"}], ",", RowBox[{"Q", "\[Rule]", "2.300052256094539`"}], ",", RowBox[{"R", "\[Rule]", "1.289756706126975`"}], ",", RowBox[{"S", "\[Rule]", "1.2691086063840091`"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{ 3.5714594585104403`*^9, 3.5714595115037336`*^9, 3.5714597117300854`*^9, 3.571459830305894*^9, 3.5714599994257903`*^9, 3.5714600431370673`*^9, 3.5714601599188724`*^9, {3.571460318649151*^9, 3.5714603337499776`*^9}, 3.5714604484569793`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"u", "=", RowBox[{"t", "[", RowBox[{"[", "2", "]"}], "]"}]}], ";"}]], "Input"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Vne", " ", "/.", "u"}]], "Input"], Cell[BoxData[ RowBox[{"-", "43.4428700583461`"}]], "Output", CellChangeTimes->{ 3.57145945852604*^9, 3.571459511519334*^9, 3.5714597117300854`*^9, 3.5714598303214936`*^9, 3.5714599994257903`*^9, 3.5714600431370673`*^9, 3.571460159934472*^9, {3.571460318649151*^9, 3.571460333765578*^9}, 3.571460448472579*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Vee", " ", "/.", "u"}], " ", "/.", " ", "c"}]], "Input"], Cell[BoxData["8.584217262117951`"], "Output", CellChangeTimes->{ 3.57145945852604*^9, 3.5714595115349336`*^9, 3.571459711745685*^9, 3.5714598303370934`*^9, 3.5714599994413905`*^9, 3.571460043152667*^9, 3.571460159934472*^9, {3.571460318664751*^9, 3.571460333765578*^9}, 3.571460448488179*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Vex", " ", "/.", " ", "u"}]], "Input"], Cell[BoxData[ RowBox[{"-", "0.002989571242654303`"}]], "Output", CellChangeTimes->{ 3.5714594585416403`*^9, 3.5714595115349336`*^9, 3.5714597117612853`*^9, 3.5714598303370934`*^9, 3.5714599994413905`*^9, 3.571460043152667*^9, 3.5714601599500723`*^9, {3.571460318664751*^9, 3.5714603337811775`*^9}, 3.5714604485037794`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Vnn", " ", "/.", " ", "u"}]], "Input"], Cell[BoxData["3.3217848389445126`"], "Output", CellChangeTimes->{ 3.5714594585416403`*^9, 3.5714595115505333`*^9, 3.5714597117612853`*^9, 3.5714598303526936`*^9, 3.5714599994569907`*^9, 3.5714600431682673`*^9, 3.5714601599500723`*^9, {3.5714603186803513`*^9, 3.5714603337811775`*^9}, 3.5714604485037794`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", "Vee", "+", "Vnn"}], ")"}]}], "/", "T"}], " ", "/.", " ", "u"}], " ", "/.", "c"}]], "Input"], Cell[BoxData["1.999999999999921`"], "Output", CellChangeTimes->{ 3.5714594585572405`*^9, 3.5714595115505333`*^9, 3.571459711776885*^9, 3.5714598303526936`*^9, 3.5714599994569907`*^9, 3.5714600431682673`*^9, 3.5714601599656725`*^9, {3.5714603186803513`*^9, 3.5714603337967777`*^9}, 3.571460448519379*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"R", "+", "S"}], ")"}], "*", "0.529177"}], " ", "/.", " ", "u"}]], "Input"], Cell[BoxData["1.354092669478625`"], "Output", CellChangeTimes->{ 3.5714594585572405`*^9, 3.5714595115661335`*^9, 3.571459711776885*^9, 3.571459830368294*^9, 3.5714599994725904`*^9, 3.5714600431838675`*^9, 3.5714601599656725`*^9, {3.5714603186959515`*^9, 3.5714603337967777`*^9}, 3.571460448534979*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{"plot1", "=", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "P"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", "\n", "\t\t\t", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "R"}], ",", "0"}], "}"}], ",", "Q"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"R", ",", "0"}], "}"}], ",", "Q"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"R", "+", "S"}], ")"}]}], ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", "+", "S"}], ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", "\n", "\t\t\t", RowBox[{"{", RowBox[{ RowBox[{"Thickness", "[", "0.012", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"R", "+", "S"}], ")"}]}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "+", "S"}], ",", "0"}], "}"}]}], "}"}], "]"}]}], "}"}]}], "}"}], "]"}], "/.", " ", "u"}]}], ";"}], "\n", RowBox[{" "}]}], "Input", CellChangeTimes->{3.571459706878477*^9}], Cell[CellGroupData[{ Cell[BoxData[ StyleBox[ RowBox[{"Show", "[", RowBox[{"plot1", ",", " ", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", "->", "Automatic"}], ",", " ", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "}"}]}], ",", RowBox[{"Axes", "->", "True"}], ",", RowBox[{"GridLines", "->", "Automatic"}], ",", RowBox[{"Frame", "->", "True"}]}], "}"}]}], "]"}], FontSize->12]], "Input"], Cell[BoxData[ GraphicsBox[{CircleBox[{0, 0}, 0.4115849549473613], DiskBox[{0, 0}, 0.1], CircleBox[{-1.289756706126975, 0}, 2.300052256094539], CircleBox[{1.289756706126975, 0}, 2.300052256094539], DiskBox[{-2.558865312510984, 0}, 0.1], DiskBox[{2.558865312510984, 0}, 0.1], {Thickness[0.012], LineBox[{{-2.558865312510984, 0}, {2.558865312510984, 0}}]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-4, 4}, {-3, 3}}]], "Output", CellChangeTimes->{ 3.571459458588441*^9, 3.5714595115817337`*^9, 3.5714597118236856`*^9, 3.571459830368294*^9, 3.5714599994881907`*^9, 3.5714600431994677`*^9, 3.5714601599812727`*^9, {3.571460318711551*^9, 3.571460333812378*^9}, 3.571460448550579*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"plot2", "=", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Darker", "[", "Cyan", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "P"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "0.12"}], "]"}]}], "}"}], ",", "\n", "\t\t\t", RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", "0.4", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "R"}], ",", "0", ",", "0"}], "}"}], ",", "Q"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"R", ",", "0", ",", "0"}], "}"}], ",", "Q"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"R", "+", "S"}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", "0.1"}], "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", "+", "S"}], ",", "0", ",", "0"}], "}"}], ",", "0.08"}], "]"}]}], "}"}], ",", "\n", "\t\t\t", RowBox[{"Tube", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"R", "+", "S"}], ")"}]}], ",", "0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"R", "+", "S"}], ",", "0", ",", "0"}], "}"}]}], "}"}], ",", "0.1"}], "]"}]}], "}"}], "]"}], "/.", " ", "u"}]}], ";"}], "\n"}], "\[IndentingNewLine]", RowBox[{ StyleBox["Show", FontSize->12], StyleBox["[", FontSize->12], RowBox[{ StyleBox["plot2", FontSize->12], StyleBox[",", FontSize->12], StyleBox[" ", FontSize->12], RowBox[{ StyleBox["{", FontSize->12], RowBox[{ StyleBox[ RowBox[{"AspectRatio", "->", "Automatic"}], FontSize->12], StyleBox[",", FontSize->12], StyleBox[" ", FontSize->12], RowBox[{ StyleBox["PlotRange", FontSize->12], StyleBox["\[Rule]", FontSize->12], "Automatic"}], StyleBox[",", FontSize->12], RowBox[{ StyleBox["Boxed", FontSize->12], StyleBox["\[Rule]", FontSize->12], "False"}], ",", RowBox[{"SphericalRegion", "\[Rule]", "True"}]}], "}"}]}], "]"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5714591219086494`*^9, 3.5714592520752783`*^9}, { 3.5714593094677787`*^9, 3.5714593245686054`*^9}, 3.5714593736618915`*^9, { 3.571459441802811*^9, 3.5714594481520224`*^9}, {3.571459481426881*^9, 3.571459503173319*^9}, {3.571459749310551*^9, 3.57145982231868*^9}, { 3.571459888119595*^9, 3.5714599117224364`*^9}, 3.571459949224902*^9, 3.5714599907989755`*^9, {3.5714600331218495`*^9, 3.5714600380982585`*^9}, { 3.571460122666007*^9, 3.5714601519004583`*^9}, {3.571460313984743*^9, 3.5714603265895653`*^9}}], Cell[BoxData[ Graphics3DBox[{ {RGBColor[0, NCache[ Rational[2, 3], 0.6666666666666666], NCache[ Rational[2, 3], 0.6666666666666666]], SphereBox[{0, 0, 0}, 0.4115849549473613], SphereBox[{0, 0, 0}, 0.12]}, {Opacity[0.4], SphereBox[{-1.289756706126975, 0, 0}, 2.300052256094539], SphereBox[{1.289756706126975, 0, 0}, 2.300052256094539], SphereBox[{-2.558865312510984, 0, 0}, 0.1], SphereBox[{2.558865312510984, 0, 0}, 0.08]}, TubeBox[{{-2.558865312510984, 0, 0}, {2.558865312510984, 0, 0}}, 0.1]}, AspectRatio->Automatic, Boxed->False, ImageSize->{474.6690437440666, 393.}, PlotRange->Automatic, SphericalRegion->True, ViewPoint->{0.8678519459883818, 3.1829824026622537`, 0.7519681005113203}, ViewVertical->{0.11650603947212426`, 1.1710476667916796`, -1.0156409228522894`}]], "Output", CellChangeTimes->{ 3.571459458884841*^9, 3.571459511597334*^9, 3.5714597118392854`*^9, 3.5714598303838935`*^9, 3.571459999503791*^9, 3.5714600432150674`*^9, 3.571460159996873*^9, {3.571460318727151*^9, 3.571460333827978*^9}, 3.5714604485661793`*^9}] }, Open ]] }, WindowSize->{827, 740}, WindowMargins->{{76, Automatic}, {Automatic, 4}}, PrintingCopies->1, PrintingPageRange->{Automatic, Automatic}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, CellLabelAutoDelete->True, 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, 947, 25, 112, "Input"], Cell[1507, 47, 69, 2, 31, "Input"], Cell[1579, 51, 255, 9, 31, "Input"], Cell[1837, 62, 1060, 37, 72, "Input"], Cell[2900, 101, 1947, 68, 92, "Input"], Cell[4850, 171, 334, 12, 31, "Input"], Cell[5187, 185, 237, 10, 31, "Input"], Cell[5427, 197, 710, 19, 52, "Input"], Cell[6140, 218, 161, 5, 31, "Input"], Cell[CellGroupData[{ Cell[6326, 227, 496, 13, 31, "Input"], Cell[6825, 242, 653, 15, 31, "Output"] }, Open ]], Cell[7493, 260, 121, 4, 31, "Input"], Cell[CellGroupData[{ Cell[7639, 268, 57, 1, 31, "Input"], Cell[7699, 271, 325, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8061, 282, 92, 2, 31, "Input"], Cell[8156, 286, 307, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8500, 296, 62, 1, 31, "Input"], Cell[8565, 299, 338, 6, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[8940, 310, 62, 1, 31, "Input"], Cell[9005, 313, 323, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9365, 323, 206, 7, 31, "Input"], Cell[9574, 332, 318, 5, 31, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[9929, 342, 142, 5, 31, "Input"], Cell[10074, 349, 316, 5, 31, "Output"] }, Open ]], Cell[10405, 357, 1779, 55, 112, "Input"], Cell[CellGroupData[{ Cell[12209, 416, 633, 19, 52, "Input"], Cell[12845, 437, 771, 17, 293, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[13653, 459, 3492, 106, 172, "Input"], Cell[17148, 567, 1122, 25, 408, "Output"] }, Open ]] } ] *) (* End of internal cache information *)