(* 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[ 26519, 752] NotebookOptionsPosition[ 25687, 722] NotebookOutlinePosition[ 26110, 738] CellTagsIndexPosition[ 26067, 735] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ StyleBox[ RowBox[{"(*", " ", RowBox[{ RowBox[{ RowBox[{"C", "-", RowBox[{"Atom", " ", "and", " ", "homologues", " ", "to", " ", "Ar"}], "+", "12"}], ":", " ", RowBox[{"1", "s", RowBox[{"(", "2", ")"}], "2", "s", RowBox[{"(", "2", ")"}], " ", "2", "p", RowBox[{"(", "2", ")"}], " ", "concentric", " ", "spherical"}]}], ",", RowBox[{ "with", " ", "exchange", " ", "correction", " ", "page", " ", "40", " ", "4.12", ".2011"}]}], "*)"}], "Text"]], "Input", CellChangeTimes->{{3.5667160227356663`*^9, 3.5667160242800694`*^9}, 3.5667160636077385`*^9, {3.5667163651250677`*^9, 3.5667164276031775`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Clear", "[", RowBox[{"z", ",", "sig"}], "]"}], ";", " ", RowBox[{"sig", "=", "0.29"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"T", "=", RowBox[{ RowBox[{"9", "/", RowBox[{"(", RowBox[{"4", "*", RowBox[{"P", "^", "2"}]}], ")"}]}], "+", RowBox[{"9", "*", RowBox[{"4", "/", RowBox[{"(", RowBox[{"4", "*", RowBox[{"Q", "^", "2"}]}], ")"}]}]}], "+", RowBox[{"4", "/", RowBox[{"R", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vne", "=", RowBox[{ RowBox[{ RowBox[{"-", "3"}], "*", RowBox[{"z", "/", "P"}]}], "-", RowBox[{"3", "*", RowBox[{"z", "/", "Q"}]}], "-", RowBox[{"2", "*", RowBox[{"z", "/", "R"}]}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Vee", "=", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"2", "/", "Q"}], ")"}], "*", RowBox[{"(", RowBox[{"3", "-", RowBox[{ RowBox[{"(", RowBox[{"6", "/", "10"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"P", "/", "Q"}], ")"}], "^", "2"}]}]}], ")"}]}], "-", RowBox[{"6", "*", "sig", "*", RowBox[{ RowBox[{"P", "^", "2"}], "/", RowBox[{"Q", "^", "3"}]}]}], " ", "+", " ", RowBox[{"3", "*", RowBox[{"sig", "/", "P"}]}], "+", RowBox[{"4", "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "20"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"P", "/", "R"}], ")"}], "^", "2"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "32"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"P", "/", "R"}], ")"}], "^", "3"}]}]}], ")"}], "/", "R"}]}], "+", RowBox[{"4", "*", RowBox[{ RowBox[{"(", RowBox[{"1", "-", RowBox[{ RowBox[{"(", RowBox[{"3", "/", "20"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"Q", "/", "R"}], ")"}], "^", "2"}]}], "+", RowBox[{ RowBox[{"(", RowBox[{"1", "/", "32"}], ")"}], "*", RowBox[{ RowBox[{"(", RowBox[{"Q", "/", "R"}], ")"}], "^", "3"}]}]}], ")"}], "/", "R"}]}], "+", RowBox[{"0.548528", "/", "R"}]}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"func", "=", RowBox[{"T", "+", "Vne", "+", "Vee"}]}], ";", " ", RowBox[{"Vir", " ", "=", " ", RowBox[{ RowBox[{"(", RowBox[{"Vne", "+", "Vee"}], ")"}], "/", "T"}]}], ";"}]}], "Input", CellChangeTimes->{{3.5667160227356663`*^9, 3.5667160242800694`*^9}, 3.5667160636077385`*^9, {3.5667161046982107`*^9, 3.566716140016672*^9}, 3.566716344252231*^9}], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"(*", " ", RowBox[{"Etot", ",", " ", "P", ",", " ", "Q"}], " ", "*)"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"t", " ", "=", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"FindMinimum", "[", RowBox[{"func", ",", RowBox[{"{", RowBox[{"P", ",", "0.27"}], "}"}], ",", RowBox[{"{", RowBox[{"Q", ",", "1.6"}], "}"}], ",", RowBox[{"{", RowBox[{"R", ",", "2.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"MaxIterations", "\[Rule]", "200"}], ",", " ", RowBox[{"Method", "\[Rule]", "\"\\""}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "6", ",", "18"}], "}"}]}], "]"}]}], "\[IndentingNewLine]"}]}]], "Input", CellChangeTimes->{{3.5667160227356663`*^9, 3.5667160242800694`*^9}, 3.5667160636077385`*^9, {3.5667161046982107`*^9, 3.566716140016672*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "37.54762137638885`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.263204963166588`"}], ",", RowBox[{"Q", "\[Rule]", "1.5414013734294478`"}], ",", RowBox[{"R", "\[Rule]", "1.7669172600613985`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "53.552327924755865`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.22400317124036692`"}], ",", RowBox[{"Q", "\[Rule]", "1.2707498945369435`"}], ",", RowBox[{"R", "\[Rule]", "1.1290222850583227`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "72.58727951672662`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.19496664985718593`"}], ",", RowBox[{"Q", "\[Rule]", "1.0674794873826865`"}], ",", RowBox[{"R", "\[Rule]", "0.8530105404224914`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "94.63366763304896`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.17259028185749714`"}], ",", RowBox[{"Q", "\[Rule]", "0.9137104906388269`"}], ",", RowBox[{"R", "\[Rule]", "0.6934491837746999`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "119.68548274326108`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.15481709896906395`"}], ",", RowBox[{"Q", "\[Rule]", "0.7962091107435088`"}], ",", RowBox[{"R", "\[Rule]", "0.5868435018278179`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "147.74042292026166`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.14035921537294688`"}], ",", RowBox[{"Q", "\[Rule]", "0.7045048134963547`"}], ",", RowBox[{"R", "\[Rule]", "0.5096781015363541`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "178.79739644991557`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.1283684565090239`"}], ",", RowBox[{"Q", "\[Rule]", "0.6313080973311753`"}], ",", RowBox[{"R", "\[Rule]", "0.45090754663420296`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "212.85579837636027`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.11826327169286124`"}], ",", RowBox[{"Q", "\[Rule]", "0.5716779463726016`"}], ",", RowBox[{"R", "\[Rule]", "0.40451949311168683`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "249.91525616140422`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.10963155236196531`"}], ",", RowBox[{"Q", "\[Rule]", "0.5222289576778898`"}], ",", RowBox[{"R", "\[Rule]", "0.36691159096276427`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "289.9755231034424`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.10217310010946866`"}], ",", RowBox[{"Q", "\[Rule]", "0.4805911196355063`"}], ",", RowBox[{"R", "\[Rule]", "0.33577546978536915`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "333.03642711894736`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.09566405451640556`"}], ",", RowBox[{"Q", "\[Rule]", "0.4450659780475779`"}], ",", RowBox[{"R", "\[Rule]", "0.30955616463884156`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "379.09784343264187`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.08993408093699519`"}], ",", RowBox[{"Q", "\[Rule]", "0.4144088478503389`"}], ",", RowBox[{"R", "\[Rule]", "0.287164631228629`"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "428.1596788168225`"}], ",", RowBox[{"{", RowBox[{ RowBox[{"P", "\[Rule]", "0.08485127778914286`"}], ",", RowBox[{"Q", "\[Rule]", "0.38768868409557133`"}], ",", RowBox[{"R", "\[Rule]", "0.2678138723489608`"}]}], "}"}]}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.566716157441903*^9, 3.5667161775503387`*^9}, 3.5667162185940104`*^9}] }, Open ]], Cell[BoxData[ RowBox[{"(*", " ", RowBox[{"Virial", " ", "ratio"}], " ", "*)"}]], "Input", CellChangeTimes->{{3.5667160227356663`*^9, 3.5667160242800694`*^9}, { 3.5667160636077385`*^9, 3.5667160803153677`*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"Vir", " ", "/.", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"z", "-", "5"}], "}"}], ",", "2"}], "]"}], "]"}]}], ",", "10"}], "]"}], ",", RowBox[{"{", RowBox[{"z", " ", ",", "6", ",", "18"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"Vne", " ", "/.", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"z", "-", "5"}], "}"}], ",", "2"}], "]"}], "]"}]}], ",", "10"}], "]"}], ",", RowBox[{"{", RowBox[{"z", " ", ",", "6", ",", "18"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{"Vee", " ", "/.", " ", RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"z", "-", "5"}], "}"}], ",", "2"}], "]"}], "]"}]}], ",", "10"}], "]"}], ",", RowBox[{"{", RowBox[{"z", " ", ",", "6", ",", "18"}], "}"}]}], "]"}], "\[IndentingNewLine]", RowBox[{"(*", " ", RowBox[{"Etot", " ", "in", " ", "eV"}], " ", "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"N", "[", RowBox[{ RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"z", "-", "5"}], "}"}], ",", "1"}], "]"}], "]"}], "*", "27.21138"}], ",", "10"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "6", ",", "18"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"PA", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"z", "-", "5"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "6", ",", "18"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"QA", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"z", "-", "5"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "6", ",", "18"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RA", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"t", "[", RowBox[{"[", RowBox[{ RowBox[{"{", RowBox[{"z", "-", "5"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"z", ",", "6", ",", "18"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.5667160227356663`*^9, 3.5667160242800694`*^9}, { 3.5667160636077385`*^9, 3.5667160803153677`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "1.9999999999972258`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.999999999999614`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.9999999999984033`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.9999999999999551`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.9999999999999105`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.999999998528455`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.9999999999994662`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.999999999386112`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.9999999999944276`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.9999999981558387`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.999999996391074`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.9999999977616192`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "1.9999999999976243`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5667161574575033`*^9, 3.5667161775659385`*^9}, 3.5667162186096106`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"-", "86.85694284699667`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "122.67445748901022`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "164.33793899720473`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "211.94690524606807`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "265.53622566738335`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "325.1169430324101`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "390.69317041081194`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "462.2667293068249`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "539.8385451207105`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "623.4091439724465`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "712.9788483493405`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "808.5478692919771`"}], "}"}], ",", RowBox[{"{", RowBox[{"-", "910.116353986621`"}], "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5667161574575033`*^9, 3.5667161775659385`*^9}, 3.5667162186096106`*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ RowBox[{"{", "11.761700094114811`", "}"}], ",", RowBox[{"{", "15.569801639477834`", "}"}], ",", RowBox[{"{", "19.163379963635563`", "}"}], ",", RowBox[{"{", "22.67956997996585`", "}"}], ",", RowBox[{"{", "26.165260180850453`", "}"}], ",", RowBox[{"{", "29.636096974480118`", "}"}], ",", RowBox[{"{", "33.09837751088544`", "}"}], ",", RowBox[{"{", "36.55513242343465`", "}"}], ",", RowBox[{"{", "40.00803279650954`", "}"}], ",", RowBox[{"{", "43.458097230800135`", "}"}], ",", RowBox[{"{", "46.905992909541794`", "}"}], ",", RowBox[{"{", "50.35218157812803`", "}"}], ",", RowBox[{"{", "53.796996351958505`", "}"}]}], "}"}]], "Output", CellChangeTimes->{{3.5667161574575033`*^9, 3.5667161775659385`*^9}, 3.5667162186096106`*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"P", "/.", " ", RowBox[{"PA", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"Q", " ", "/.", " ", RowBox[{"QA", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Dashing", "[", RowBox[{"{", RowBox[{"0.01", ",", "0.01"}], "}"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{ RowBox[{"-", "R"}], "/.", " ", RowBox[{"RA", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"R", " ", "/.", " ", RowBox[{"RA", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "R"}], "/.", " ", RowBox[{"RA", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"R", " ", "/.", " ", RowBox[{"RA", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"R", "/.", " ", RowBox[{"RA", "[", RowBox[{"[", "i", "]"}], "]"}]}], ",", "0"}], "}"}], ",", RowBox[{"R", " ", "/.", " ", RowBox[{"RA", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"R", "/.", " ", RowBox[{"RA", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"R", " ", "/.", " ", RowBox[{"RA", "[", RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"AspectRatio", " ", "\[Rule]", " ", "Automatic"}], ",", RowBox[{"Axes", " ", "->", " ", "True"}], ",", RowBox[{"GridLines", " ", "->", " ", "Automatic"}], ",", " ", RowBox[{"PlotRange", " ", "\[Rule]", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "3.6"}], ",", "3.6"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "3.6"}], ",", "3.6"}], "}"}]}], "}"}]}], ",", " ", RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}], "\[IndentingNewLine]"}]], "Input", CellChangeTimes->{{3.5667160227356663`*^9, 3.5667160242800694`*^9}, { 3.5667160636077385`*^9, 3.5667160803153677`*^9}, {3.5667162132432013`*^9, 3.5667162140076027`*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{ GraphicsBox[{CircleBox[{0, 0}, 0.263204963166588], CircleBox[{0, 0}, 1.5414013734294478`], {Dashing[{0.01, 0.01}], CircleBox[{0, -1.7669172600613985`}, 1.7669172600613985`], CircleBox[{-1.7669172600613985`, 0}, 1.7669172600613985`], CircleBox[{1.7669172600613985`, 0}, 1.7669172600613985`], CircleBox[{0, 1.7669172600613985`}, 1.7669172600613985`]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.22400317124036692`], CircleBox[{0, 0}, 1.2707498945369435`], {Dashing[{0.01, 0.01}], CircleBox[{0, -1.1290222850583227`}, 1.1290222850583227`], CircleBox[{-1.1290222850583227`, 0}, 1.1290222850583227`], CircleBox[{1.1290222850583227`, 0}, 1.1290222850583227`], CircleBox[{0, 1.1290222850583227`}, 1.1290222850583227`]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.19496664985718593`], CircleBox[{0, 0}, 1.0674794873826865`], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.8530105404224914}, 0.8530105404224914], CircleBox[{-0.8530105404224914, 0}, 0.8530105404224914], CircleBox[{0.8530105404224914, 0}, 0.8530105404224914], CircleBox[{0, 0.8530105404224914}, 0.8530105404224914]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.17259028185749714`], CircleBox[{0, 0}, 0.9137104906388269], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.6934491837746999}, 0.6934491837746999], CircleBox[{-0.6934491837746999, 0}, 0.6934491837746999], CircleBox[{0.6934491837746999, 0}, 0.6934491837746999], CircleBox[{0, 0.6934491837746999}, 0.6934491837746999]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.15481709896906395`], CircleBox[{0, 0}, 0.7962091107435088], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.5868435018278179}, 0.5868435018278179], CircleBox[{-0.5868435018278179, 0}, 0.5868435018278179], CircleBox[{0.5868435018278179, 0}, 0.5868435018278179], CircleBox[{0, 0.5868435018278179}, 0.5868435018278179]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.14035921537294688`], CircleBox[{0, 0}, 0.7045048134963547], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.5096781015363541}, 0.5096781015363541], CircleBox[{-0.5096781015363541, 0}, 0.5096781015363541], CircleBox[{0.5096781015363541, 0}, 0.5096781015363541], CircleBox[{0, 0.5096781015363541}, 0.5096781015363541]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.1283684565090239], CircleBox[{0, 0}, 0.6313080973311753], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.45090754663420296`}, 0.45090754663420296`], CircleBox[{-0.45090754663420296`, 0}, 0.45090754663420296`], CircleBox[{0.45090754663420296`, 0}, 0.45090754663420296`], CircleBox[{0, 0.45090754663420296`}, 0.45090754663420296`]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.11826327169286124`], CircleBox[{0, 0}, 0.5716779463726016], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.40451949311168683`}, 0.40451949311168683`], CircleBox[{-0.40451949311168683`, 0}, 0.40451949311168683`], CircleBox[{0.40451949311168683`, 0}, 0.40451949311168683`], CircleBox[{0, 0.40451949311168683`}, 0.40451949311168683`]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.10963155236196531`], CircleBox[{0, 0}, 0.5222289576778898], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.36691159096276427`}, 0.36691159096276427`], CircleBox[{-0.36691159096276427`, 0}, 0.36691159096276427`], CircleBox[{0.36691159096276427`, 0}, 0.36691159096276427`], CircleBox[{0, 0.36691159096276427`}, 0.36691159096276427`]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.10217310010946866`], CircleBox[{0, 0}, 0.4805911196355063], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.33577546978536915`}, 0.33577546978536915`], CircleBox[{-0.33577546978536915`, 0}, 0.33577546978536915`], CircleBox[{0.33577546978536915`, 0}, 0.33577546978536915`], CircleBox[{0, 0.33577546978536915`}, 0.33577546978536915`]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.09566405451640556], CircleBox[{0, 0}, 0.4450659780475779], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.30955616463884156`}, 0.30955616463884156`], CircleBox[{-0.30955616463884156`, 0}, 0.30955616463884156`], CircleBox[{0.30955616463884156`, 0}, 0.30955616463884156`], CircleBox[{0, 0.30955616463884156`}, 0.30955616463884156`]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}], ",", GraphicsBox[{CircleBox[{0, 0}, 0.08993408093699519], CircleBox[{0, 0}, 0.4144088478503389], {Dashing[{0.01, 0.01}], CircleBox[{0, -0.287164631228629}, 0.287164631228629], CircleBox[{-0.287164631228629, 0}, 0.287164631228629], CircleBox[{0.287164631228629, 0}, 0.287164631228629], CircleBox[{0, 0.287164631228629}, 0.287164631228629]}}, AspectRatio->Automatic, Axes->True, Frame->True, GridLines->Automatic, PlotRange->{{-3.6, 3.6}, {-3.6, 3.6}}]}], "}"}]], "Output", CellChangeTimes->{{3.5667161574887033`*^9, 3.5667161775971384`*^9}, 3.5667162186408105`*^9}] }, Open ]] }, WindowSize->{853, 815}, WindowMargins->{{214, Automatic}, {Automatic, 7}}, PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}}, FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (November 20, 2012)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[557, 20, 686, 16, 51, "Input"], Cell[1246, 38, 2866, 93, 172, "Input"], Cell[CellGroupData[{ Cell[4137, 135, 962, 26, 92, "Input"], Cell[5102, 163, 4303, 114, 272, "Output"] }, Open ]], Cell[9420, 280, 216, 4, 31, "Input"], Cell[CellGroupData[{ Cell[9661, 288, 2963, 102, 192, "Input"], Cell[12627, 392, 1083, 30, 31, "Output"], Cell[13713, 424, 1078, 30, 52, "Output"], Cell[14794, 456, 822, 17, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[15653, 478, 3480, 91, 172, "Input"], Cell[19136, 571, 6535, 148, 833, "Output"] }, Open ]] } ] *) (* End of internal cache information *)