(* 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[ 20182, 546] NotebookOptionsPosition[ 19359, 514] NotebookOutlinePosition[ 19859, 534] CellTagsIndexPosition[ 19816, 531] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ StyleBox[ RowBox[{"(*", " ", RowBox[{"Politzer", ",", " ", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Snyder", " ", "&"}], " ", "Basch", " ", "ratio", " ", "for", " ", "Kimball", " ", "calculations", " ", RowBox[{"(", RowBox[{"ES", " ", "19", " ", "June", " ", "2013"}], ")"}], "\[IndentingNewLine]", "ratio"}], "=", RowBox[{ RowBox[{"-", RowBox[{"(", RowBox[{"Vne", "+", RowBox[{"2", "*", "Vnn"}]}], ")"}]}], "/", RowBox[{"(", RowBox[{"Vee", "-", "Vnn"}], ")"}]}]}], " ", ";", " ", RowBox[{ RowBox[{"they", " ", "found", " ", "6.7"}], "\[PlusMinus]", "0.44"}], " ", ";", "\[IndentingNewLine]", RowBox[{ RowBox[{"here", " ", "we", " ", "determine", " ", "6.61"}], "\[PlusMinus]", RowBox[{"0.56", " ", "for", " ", "53", " ", "molecules"}]}]}], ",", " ", RowBox[{ "whose", " ", "energy", " ", "components", "\[IndentingNewLine]", "are", " ", "derived", " ", "by", " ", "Kimballs", " ", "model", " ", "from", " ", "published", " ", "structures", " ", "of", " ", "variable", " ", "precision"}]}], " ", "*)"}], "Text"], StyleBox["\[IndentingNewLine]", "Text"], StyleBox["\[IndentingNewLine]", "Text"], RowBox[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"t", ",", "t1", ",", "i", ",", "d", ",", "n"}], "]"}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"t", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"12", "crown4"}], ",", "6.8480"}], "}"}], ",", RowBox[{"{", RowBox[{"Acetone", ",", "6.6354"}], "}"}], ",", RowBox[{"{", RowBox[{"Acetone_G31", ",", "6.7126"}], "}"}], ",", RowBox[{"{", RowBox[{"Adamantane", ",", "5.6476"}], "}"}], ",", RowBox[{"{", RowBox[{"AdamantN", ",", "5.6500"}], "}"}], ",", RowBox[{"{", RowBox[{"Adenosine", ",", "6.8480"}], "}"}], ",", RowBox[{"{", RowBox[{"Aspirin", ",", "7.4301"}], "}"}], ",", RowBox[{"{", RowBox[{"B2H6", ",", "7.4840"}], "}"}], ",", RowBox[{"{", RowBox[{"Benzene", ",", "6.4920"}], "}"}], ",", RowBox[{"{", RowBox[{"BetaDGlu4", ",", "7.5590"}], "}"}], ",", RowBox[{"{", RowBox[{"Borazine", ",", "6.4920"}], "}"}], ",", RowBox[{"{", RowBox[{"Butane_TST", ",", "5.9644"}], "}"}], ",", RowBox[{"{", RowBox[{"C960", ",", "6.0308"}], "}"}], ",", RowBox[{"{", RowBox[{"Calmagite_cis", ",", "6.4850"}], "}"}], ",", RowBox[{"{", RowBox[{"Calmagite_trans", ",", "6.5975"}], "}"}], ",", RowBox[{"{", RowBox[{"Camphane", ",", "6.8650"}], "}"}], ",", RowBox[{"{", RowBox[{"Cellobiose", ",", "7.3045"}], "}"}], ",", RowBox[{"{", RowBox[{"CentroIndane", ",", "6.3010"}], "}"}], ",", RowBox[{"{", RowBox[{"Chlorogenic_A", ",", "7.0470"}], "}"}], ",", RowBox[{"{", RowBox[{"CoenzymeA", ",", "7.4850"}], "}"}], ",", RowBox[{"{", RowBox[{"Coronene", ",", "6.4690"}], "}"}], ",", RowBox[{"{", RowBox[{"Cortison_TST1", ",", "6.5968"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"d", "-", "Fructose"}], ",", "7.3814"}], "}"}], ",", RowBox[{"{", RowBox[{"Diazepam", ",", "6.0900"}], "}"}], ",", RowBox[{"{", RowBox[{"Ethane_G31", ",", "5.8427"}], "}"}], ",", RowBox[{"{", RowBox[{"Formamide", ",", "6.9074"}], "}"}], ",", RowBox[{"{", RowBox[{"Fructofuranose", ",", "7.2955"}], "}"}], ",", RowBox[{"{", RowBox[{"Fullerene", ",", "5.4843"}], "}"}], ",", RowBox[{"{", RowBox[{"Glucopyranose", ",", "7.2554"}], "}"}], ",", RowBox[{"{", RowBox[{"Glycylglycine", ",", "6.8995"}], "}"}], ",", RowBox[{"{", RowBox[{"Helicin", ",", "7.1642"}], "}"}], ",", RowBox[{"{", RowBox[{"Hexaprismane", ",", "5.8585"}], "}"}], ",", RowBox[{"{", RowBox[{"Methan_TST", ",", "6.1431"}], "}"}], ",", RowBox[{"{", RowBox[{"Naphthalene", ",", "6.3331"}], "}"}], ",", RowBox[{"{", RowBox[{"Decane", ",", "5.6736"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"22", "Paracyclophane"}], ",", "6.2380"}], "}"}], ",", RowBox[{"{", RowBox[{"Penicilline", ",", "6.6033"}], "}"}], ",", RowBox[{"{", RowBox[{"Phenanthrene", ",", "6.5972"}], "}"}], ",", RowBox[{"{", RowBox[{"Phenol", ",", "6.3711"}], "}"}], ",", RowBox[{"{", RowBox[{"Propane_TST", ",", "5.9887"}], "}"}], ",", RowBox[{"{", RowBox[{"Saccharose", ",", "7.4080"}], "}"}], ",", RowBox[{"{", RowBox[{"Strychnine", ",", "6.3313"}], "}"}], ",", RowBox[{"{", RowBox[{"Triacontane", ",", "5.6625"}], "}"}], ",", RowBox[{"{", RowBox[{"VitaminA", ",", "6.2740"}], "}"}], ",", RowBox[{"{", RowBox[{"Water", ",", " ", "6.6685"}], "}"}], ",", RowBox[{"{", RowBox[{"H2peroxide", ",", "6.3933"}], "}"}], ",", RowBox[{"{", RowBox[{"CarbonicAcid", ",", "6.4488"}], "}"}], ",", RowBox[{"{", RowBox[{"Glycine", ",", "6.7620"}], "}"}], ",", RowBox[{"{", RowBox[{"AcetylaceticAcid", ",", "7.1387"}], "}"}], ",", RowBox[{"{", RowBox[{"Ethylacetoacetate", ",", "6.9087"}], "}"}], ",", RowBox[{"{", RowBox[{"Diethylmalonate", ",", "6.9049"}], "}"}], ",", RowBox[{"{", RowBox[{"Ethylcyanoacetate", ",", "7.3889"}], "}"}], ",", RowBox[{"{", RowBox[{"Ammonia", ",", " ", "6.9183"}], "}"}]}], "}"}]}], ";"}]}]}]], "Input", CellChangeTimes->{{3.58022269470125*^9, 3.5802227809294024`*^9}, { 3.5802229334584694`*^9, 3.5802229925825734`*^9}, {3.5802231554156594`*^9, 3.5802231787533007`*^9}, 3.580223227144585*^9, {3.5802236410289125`*^9, 3.580223641980514*^9}, {3.5802237145986414`*^9, 3.580223714988642*^9}, { 3.5802237982927885`*^9, 3.580223809353208*^9}, 3.5802239530762606`*^9, { 3.5802239999075427`*^9, 3.5802240088151584`*^9}, {3.5802242167635236`*^9, 3.580224244827973*^9}, {3.5802243129532924`*^9, 3.5802244291422963`*^9}, { 3.580224598667794*^9, 3.580224615578224*^9}, 3.58022510889789*^9, { 3.5802259076504936`*^9, 3.5802259504725685`*^9}, {3.5802260632295666`*^9, 3.580226192038993*^9}, {3.5802262331762652`*^9, 3.5802262694775286`*^9}, 3.5802263958533506`*^9, {3.580226677839446*^9, 3.5802266780422463`*^9}, { 3.5802269657846193`*^9, 3.5802269660466347`*^9}, {3.5806369386006374`*^9, 3.5806369664466867`*^9}, {3.580637014759971*^9, 3.580637016865975*^9}, { 3.580637136611785*^9, 3.5806372020539002`*^9}, {3.5806374123734694`*^9, 3.580637436631512*^9}, {3.580639596439706*^9, 3.5806396294805636`*^9}, { 3.5806397476039715`*^9, 3.5806397581651897`*^9}, 3.580639791861249*^9, { 3.580639822686903*^9, 3.580639828911314*^9}, {3.580703302638239*^9, 3.580703365334749*^9}, {3.5810696828065357`*^9, 3.5810697757670994`*^9}, 3.58106981631157*^9, {3.5810698583848443`*^9, 3.5810698701628647`*^9}, { 3.5810699735754466`*^9, 3.5810699740278473`*^9}, {3.581253712556757*^9, 3.581253738546403*^9}, {3.581933151192544*^9, 3.5819331734693832`*^9}, { 3.5819332336542892`*^9, 3.5819332590199337`*^9}, {3.5819333209988422`*^9, 3.5819333222312446`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"n", "=", RowBox[{"Length", "[", "t", "]"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"data1", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "n"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{"Histogram", "[", RowBox[{"data1", ",", RowBox[{"{", RowBox[{"4", ",", "9", ",", "0.4"}], "}"}]}], "]"}]}], "Input", CellChangeTimes->{{3.58022269470125*^9, 3.5802227809294024`*^9}, { 3.5802229334584694`*^9, 3.5802229925825734`*^9}, {3.5802231554156594`*^9, 3.5802231787533007`*^9}, 3.580223227144585*^9, {3.5802236410289125`*^9, 3.580223641980514*^9}, {3.5802237145986414`*^9, 3.580223714988642*^9}, { 3.5802237982927885`*^9, 3.580223809353208*^9}, 3.5802239530762606`*^9, { 3.5802239999075427`*^9, 3.5802240088151584`*^9}, {3.5802242167635236`*^9, 3.580224244827973*^9}, {3.5802243129532924`*^9, 3.5802244291422963`*^9}, { 3.580224598667794*^9, 3.580224615578224*^9}, {3.5802251603779807`*^9, 3.580225230281704*^9}, {3.580225284476199*^9, 3.5802253105282445`*^9}, { 3.580225375096758*^9, 3.5802253823351707`*^9}, {3.5802254515680923`*^9, 3.5802254556864996`*^9}, {3.58022549028736*^9, 3.5802254953573694`*^9}, 3.5806373901278305`*^9}], Cell[BoxData["53"], "Output", CellChangeTimes->{ 3.5802269916138997`*^9, 3.5806369756975026`*^9, 3.5806370223727846`*^9, 3.5806371798706613`*^9, 3.5806372113671165`*^9, 3.580637397881044*^9, 3.5806396365473757`*^9, 3.580703338533902*^9, 3.580796731925087*^9, { 3.581069796780336*^9, 3.5810698223175807`*^9}, 3.5810699916402783`*^9, 3.581253756720434*^9, 3.581933192111416*^9}], Cell[BoxData[ GraphicsBox[ {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.6579999999999999]], {}, {RGBColor[0.798413061722744, 0.824719615472648, 0.968322270542458], EdgeForm[Opacity[0.6579999999999999]], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.2, 0}, {5.6, 1}, "RoundingRadius" -> 0]}, ImageSizeCache->{{92.88799999999998, 122.59199999999993`}, { 83.24592850322554, 99.25673802198298}}], StatusArea[#, 1]& , TagBoxNote->"1"], StyleBox["1", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[1, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{5.6, 0}, {6., 8}, "RoundingRadius" -> 0]}, ImageSizeCache->{{121.59199999999993`, 151.296}, {-21.829738128076585`, 99.25673802198298}}], StatusArea[#, 8]& , TagBoxNote->"8"], StyleBox["8", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[8, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6., 0}, {6.4, 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{150.296, 180.}, {-51.85135716559148, 99.25673802198298}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[10, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.4, 0}, {6.800000000000001, 13}, "RoundingRadius" -> 0]}, ImageSizeCache->{{179., 208.704}, {-96.8837857218638, 99.25673802198298}}], StatusArea[#, 13]& , TagBoxNote->"13"], StyleBox["13", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[13, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{6.800000000000001, 0}, {7.2, 11}, "RoundingRadius" -> 0]}, ImageSizeCache->{{207.704, 237.40799999999996`}, {-66.86216668434892, 99.25673802198298}}], StatusArea[#, 11]& , TagBoxNote->"11"], StyleBox["11", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[11, { GrayLevel[0]}], "Tooltip"]& ], TagBox[ TooltipBox[ TagBox[ DynamicBox[{ FEPrivate`If[ CurrentValue["MouseOver"], EdgeForm[{ GrayLevel[0.5], AbsoluteThickness[1.5], Opacity[0.66]}], {}, {}], RectangleBox[{7.2, 0}, {7.6, 10}, "RoundingRadius" -> 0]}, ImageSizeCache->{{236.40799999999996`, 266.1119999999999}, {-51.85135716559148, 99.25673802198298}}], StatusArea[#, 10]& , TagBoxNote->"10"], StyleBox["10", { GrayLevel[0]}, StripOnInput -> False]], Annotation[#, Style[10, { GrayLevel[0]}], "Tooltip"]& ]}, {}, {}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->{True, True}, AxesLabel->{None, None}, AxesOrigin->{5.2, 0}, FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}}, GridLines->{None, None}, PlotRange->{{4., 8.8}, {All, All}}, PlotRangePadding->{{ Scaled[0.02], Scaled[0.02]}, { Scaled[0.02], Scaled[0.1]}}, Ticks->{Automatic, Automatic}]], "Output", CellChangeTimes->{ 3.5802269916138997`*^9, 3.5806369756975026`*^9, 3.5806370223727846`*^9, 3.5806371798706613`*^9, 3.5806372113671165`*^9, 3.580637397881044*^9, 3.5806396365473757`*^9, 3.580703338533902*^9, 3.580796731925087*^9, { 3.581069796780336*^9, 3.5810698223175807`*^9}, 3.5810699916402783`*^9, 3.581253756720434*^9, 3.581933192517017*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Mean", "[", "data1", "]"}], "\[PlusMinus]", " ", RowBox[{"StandardDeviation", "[", "data1", "]"}]}]], "Input", CellChangeTimes->{{3.58022269470125*^9, 3.5802227809294024`*^9}, { 3.5802229334584694`*^9, 3.5802230700211096`*^9}, 3.5802231165715914`*^9, { 3.580223261261845*^9, 3.580223268110257*^9}, {3.5802240184559755`*^9, 3.5802240324491997`*^9}, {3.5802240793584824`*^9, 3.5802240800916834`*^9}, {3.5802256554292507`*^9, 3.5802256599376583`*^9}, {3.580225714490954*^9, 3.5802257284217787`*^9}}], Cell[BoxData[ RowBox[{"6.609049056603774`", "\[PlusMinus]", "0.5566365229672017`"}]], "Output", CellChangeTimes->{ 3.5802269916295*^9, 3.580636975759903*^9, 3.580637022388385*^9, 3.580637179886261*^9, 3.5806372113827167`*^9, 3.580637397912244*^9, 3.5806396365941763`*^9, 3.580703339033103*^9, 3.580796732424288*^9, { 3.5810697968739367`*^9, 3.581069822348781*^9}, 3.5810699916714783`*^9, 3.581253757282036*^9, 3.5819331925326166`*^9}] }, Open ]], Cell[BoxData[ RowBox[{ RowBox[{"t1", "=", RowBox[{"Sort", "[", RowBox[{"t", ",", RowBox[{ RowBox[{ RowBox[{"#1", "[", RowBox[{"[", "2", "]"}], "]"}], "<", RowBox[{"#2", "[", RowBox[{"[", "2", "]"}], "]"}]}], "&"}]}], "]"}]}], ";"}]], "Input", CellChangeTimes->{{3.58022345156658*^9, 3.580223507087077*^9}, 3.5802242712544193`*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"MatrixForm", "[", RowBox[{"t1", ",", " ", RowBox[{"TableAlignments", "\[Rule]", "Left"}]}], "]"}]], "Input", CellChangeTimes->{{3.5802235289739156`*^9, 3.580223538864333*^9}, 3.580796724015873*^9}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ {"Fullerene", "5.4843`"}, {"Adamantane", "5.6476`"}, {"AdamantN", "5.65`"}, {"Triacontane", "5.6625`"}, {"Decane", "5.6736`"}, {"Ethane_G31", "5.8427`"}, {"Hexaprismane", "5.8585`"}, {"Butane_TST", "5.9644`"}, {"Propane_TST", "5.9887`"}, {"C960", "6.0308`"}, {"Diazepam", "6.09`"}, {"Methan_TST", "6.1431`"}, { RowBox[{"22", " ", "Paracyclophane"}], "6.238`"}, {"VitaminA", "6.274`"}, {"CentroIndane", "6.301`"}, {"Strychnine", "6.3313`"}, {"Naphthalene", "6.3331`"}, {"Phenol", "6.3711`"}, {"H2peroxide", "6.3933`"}, {"CarbonicAcid", "6.4488`"}, {"Coronene", "6.469`"}, {"Calmagite_cis", "6.485`"}, {"Borazine", "6.492`"}, {"Benzene", "6.492`"}, {"Cortison_TST1", "6.5968`"}, {"Phenanthrene", "6.5972`"}, {"Calmagite_trans", "6.5975`"}, {"Penicilline", "6.6033`"}, {"Acetone", "6.6354`"}, {"Water", "6.6685`"}, {"Acetone_G31", "6.7126`"}, {"Glycine", "6.762`"}, {"Adenosine", "6.848`"}, { RowBox[{"12", " ", "crown4"}], "6.848`"}, {"Camphane", "6.865`"}, {"Glycylglycine", "6.8995`"}, {"Diethylmalonate", "6.9049`"}, {"Formamide", "6.9074`"}, {"Ethylacetoacetate", "6.9087`"}, {"Ammonia", "6.9183`"}, {"Chlorogenic_A", "7.047`"}, {"AcetylaceticAcid", "7.1387`"}, {"Helicin", "7.1642`"}, {"Glucopyranose", "7.2554`"}, {"Fructofuranose", "7.2955`"}, {"Cellobiose", "7.3045`"}, { RowBox[{"d", "-", "Fructose"}], "7.3814`"}, {"Ethylcyanoacetate", "7.3889`"}, {"Saccharose", "7.408`"}, {"Aspirin", "7.4301`"}, {"B2H6", "7.484`"}, {"CoenzymeA", "7.485`"}, {"BetaDGlu4", "7.559`"} }, GridBoxAlignment->{ "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$, TableAlignments -> Left]]]], "Output", CellChangeTimes->{ 3.5802269916451*^9, 3.5806369757755027`*^9, 3.5806370224039845`*^9, 3.580637179886261*^9, 3.5806372113983164`*^9, 3.580637397927844*^9, 3.5806396365941763`*^9, 3.580703339048703*^9, 3.580796732439888*^9, { 3.5810697969519367`*^9, 3.581069822364381*^9}, 3.5810699916870785`*^9, 3.5812537572976356`*^9, 3.581933192548217*^9}] }, Open ]] }, WindowSize->{707, 923}, WindowMargins->{{533, Automatic}, {Automatic, -1}}, PrintingCopies->1, PrintingPageRange->{32000, 32000}, PrintingOptions->{"Magnification"->1., "PaperOrientation"->"Portrait", "PaperSize"->{595.2, 841.8}}, 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, 7711, 176, 532, "Input"], Cell[CellGroupData[{ Cell[8293, 200, 1377, 28, 72, "Input"], Cell[9673, 230, 394, 6, 31, "Output"], Cell[10070, 238, 4862, 146, 249, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[14969, 389, 553, 9, 31, "Input"], Cell[15525, 400, 456, 8, 31, "Output"] }, Open ]], Cell[15996, 411, 392, 12, 31, "Input"], Cell[CellGroupData[{ Cell[16413, 427, 233, 5, 31, "Input"], Cell[16649, 434, 2694, 77, 839, "Output"] }, Open ]] } ] *) (* End of internal cache information *)