(* 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[     24871,        692]
NotebookOptionsPosition[     24303,        671]
NotebookOutlinePosition[     24727,        687]
CellTagsIndexPosition[     24684,        684]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"O", "-", 
     RowBox[{"Atom", " ", "and", " ", "homologues", " ", "1", "s", 
      RowBox[{"(", "2", ")"}], "2", "s", 
      RowBox[{"(", "2", ")"}], " ", "2", "p", 
      RowBox[{"(", "4", ")"}]}]}], ",", " ", 
    RowBox[{"all", " ", "p", " ", "equal", " ", "size", " ", 
     RowBox[{"(", "?", ")"}]}], ",", 
    RowBox[{
     RowBox[{
     "with", " ", "exchange", " ", "correction", " ", "page", " ", "40"}], 
     ";", " ", 
     RowBox[{"8.12", ".2011"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   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[{"8", "/", 
       RowBox[{"R", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Vne", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "3"}], "*", 
       RowBox[{"z", "/", "P"}]}], "-", 
      RowBox[{"3", "*", 
       RowBox[{"z", "/", "Q"}]}], "-", 
      RowBox[{"4", "*", 
       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[{"3", "*", 
       RowBox[{"sig", "/", "Q"}]}], "+", 
      RowBox[{"8", "*", 
       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[{"1.5", "*", 
       RowBox[{"sig", "/", "R"}]}], "+", 
      RowBox[{"8", "*", 
       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[{"3.035534", "/", "R"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"func", "=", 
      RowBox[{"T", "+", "Vne", "+", "Vee"}]}], ";", " ", 
     RowBox[{"Vir", " ", "=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Vne", "+", "Vee"}], ")"}], "/", "T"}]}], ";"}], 
    "\[IndentingNewLine]"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Etot", ",", " ", "P", ",", " ", "Q"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"t", " ", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"FindMinimum", "[", 
        RowBox[{"func", ",", 
         RowBox[{"{", 
          RowBox[{"P", ",", "0.23"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Q", ",", "1.4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"R", ",", "1.4"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"MaxIterations", "\[Rule]", "800"}], "}"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "8", ",", "18"}], "}"}]}], "]"}]}], 
    "\[IndentingNewLine]"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Virial", " ", "ratio"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Vir", " ", "/.", " ", 
        RowBox[{"t", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"z", "-", "7"}], "}"}], ",", "2"}], "]"}], "]"}]}], ",", 
       "10"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", " ", ",", "8", ",", "18"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Vne", " ", "/.", " ", 
        RowBox[{"t", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"z", "-", "7"}], "}"}], ",", "2"}], "]"}], "]"}]}], ",", 
       "10"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", " ", ",", "8", ",", "18"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{"Vee", " ", "/.", " ", 
         RowBox[{"t", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"z", "-", "7"}], "}"}], ",", "2"}], "]"}], "]"}]}], ",", 
        "10"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", " ", ",", "8", ",", "18"}], "}"}]}], "]"}], 
    "\[IndentingNewLine]"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Etot", " ", "in", " ", "eV"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"t", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"z", "-", "7"}], "}"}], ",", "1"}], "]"}], "]"}], "*", 
         "27.21138"}], ",", "10"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", "8", ",", "18"}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PA", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"t", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"z", "-", "7"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "8", ",", "18"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"QA", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"t", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"z", "-", "7"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "8", ",", "18"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RA", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"t", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"z", "-", "7"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "8", ",", "18"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\[IndentingNewLine]", 
   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[{"Circle", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              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[{"-", "2"}], ",", "2"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", " ", 
         RowBox[{"Frame", " ", "->", " ", "True"}]}], "}"}]}], "]"}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "11"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5662212532363873`*^9, 3.566221264842808*^9}, {
  3.5662212962924633`*^9, 3.5662213013624725`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "73.51610713326836`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.19485280070452177`"}], ",", 
       RowBox[{"Q", "\[Rule]", "2.0099071876554904`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.8155727419609299`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "97.08077640913612`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.17253636836542802`"}], ",", 
       RowBox[{"Q", "\[Rule]", "1.137145523074045`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.7418032152086241`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "124.2512159216429`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.15479301300359544`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.9469119219721417`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.6275995505273363`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "154.92519559785282`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.14035371898771593`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.8157495387816119`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.5425014235835766`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "189.10182994135667`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.128374926323186`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.7171295072919519`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.47759133933602654`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "226.7805458888148`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.11827742834407914`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.6399913531608139`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.42653251713804846`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "267.96092538089613`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.10965056813287248`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.5779325615208022`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.3853362884117278`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "312.64265442059127`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.10219508340497807`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.5268982646846884`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.3514012046500518`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "360.8254925870627`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.09568772920788783`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.4841781116276828`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.32296410504819933`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "412.5092528291617`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.08995858474144741`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.4478869189075017`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.2987890670601977`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "467.69378755767076`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.08487602504171357`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.4166712154209106`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.2779845480385566`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5662212719096203`*^9, 3.566221306947282*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"-", "1.999999999918766`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.999999999942713`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.0000000004938827`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.0000000063556196`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.0000000008327095`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999999445535`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.999999999801448`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999998981708`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.0000000003045226`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.000000000006276`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999949836953`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5662212719096203`*^9, 3.566221306947282*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"-", "174.34698038108257`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "228.76280025663647`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "289.2240387662877`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "356.6796104938861`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "431.1330660298976`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "512.5848972670243`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "601.0353953023453`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "696.4847802043652`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "798.9332262660805`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "908.3808787533318`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1024.8278531491735`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5662212719096203`*^9, 3.566221306947282*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "27.314766108573814`", "}"}], ",", 
   RowBox[{"{", "34.60124743280275`", "}"}], ",", 
   RowBox[{"{", "40.72160698436744`", "}"}], ",", 
   RowBox[{"{", "46.82922028282614`", "}"}], ",", 
   RowBox[{"{", "52.929406304651124`", "}"}], ",", 
   RowBox[{"{", "59.02380547682057`", "}"}], ",", 
   RowBox[{"{", "65.11354448734905`", "}"}], ",", 
   RowBox[{"{", "71.19947133134642`", "}"}], ",", 
   RowBox[{"{", "77.2822412018346`", "}"}], ",", 
   RowBox[{"{", "83.36237309759743`", "}"}], ",", 
   RowBox[{"{", "89.44027568773745`", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5662212719096203`*^9, 3.566221306962882*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{CircleBox[{0, 0}, 0.19485280070452177`], 
     CircleBox[{0, 0}, 2.0099071876554904`], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.8155727419609299}, 0.8155727419609299], 
      CircleBox[{-0.8155727419609299, 0}, 0.8155727419609299], 
      CircleBox[{0.8155727419609299, 0}, 0.8155727419609299], 
      CircleBox[{0, 0.8155727419609299}, 0.8155727419609299], 
      CircleBox[{0, 0}, 0.8155727419609299]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.17253636836542802`], 
     CircleBox[{0, 0}, 1.137145523074045], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.7418032152086241}, 0.7418032152086241], 
      CircleBox[{-0.7418032152086241, 0}, 0.7418032152086241], 
      CircleBox[{0.7418032152086241, 0}, 0.7418032152086241], 
      CircleBox[{0, 0.7418032152086241}, 0.7418032152086241], 
      CircleBox[{0, 0}, 0.7418032152086241]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.15479301300359544`], 
     CircleBox[{0, 0}, 0.9469119219721417], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.6275995505273363}, 0.6275995505273363], 
      CircleBox[{-0.6275995505273363, 0}, 0.6275995505273363], 
      CircleBox[{0.6275995505273363, 0}, 0.6275995505273363], 
      CircleBox[{0, 0.6275995505273363}, 0.6275995505273363], 
      CircleBox[{0, 0}, 0.6275995505273363]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.14035371898771593`], 
     CircleBox[{0, 0}, 0.8157495387816119], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.5425014235835766}, 0.5425014235835766], 
      CircleBox[{-0.5425014235835766, 0}, 0.5425014235835766], 
      CircleBox[{0.5425014235835766, 0}, 0.5425014235835766], 
      CircleBox[{0, 0.5425014235835766}, 0.5425014235835766], 
      CircleBox[{0, 0}, 0.5425014235835766]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.128374926323186], 
     CircleBox[{0, 0}, 0.7171295072919519], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.47759133933602654`}, 0.47759133933602654`], 
      CircleBox[{-0.47759133933602654`, 0}, 0.47759133933602654`], 
      CircleBox[{0.47759133933602654`, 0}, 0.47759133933602654`], 
      CircleBox[{0, 0.47759133933602654`}, 0.47759133933602654`], 
      CircleBox[{0, 0}, 0.47759133933602654`]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.11827742834407914`], 
     CircleBox[{0, 0}, 0.6399913531608139], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.42653251713804846`}, 0.42653251713804846`], 
      CircleBox[{-0.42653251713804846`, 0}, 0.42653251713804846`], 
      CircleBox[{0.42653251713804846`, 0}, 0.42653251713804846`], 
      CircleBox[{0, 0.42653251713804846`}, 0.42653251713804846`], 
      CircleBox[{0, 0}, 0.42653251713804846`]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.10965056813287248`], 
     CircleBox[{0, 0}, 0.5779325615208022], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.3853362884117278}, 0.3853362884117278], 
      CircleBox[{-0.3853362884117278, 0}, 0.3853362884117278], 
      CircleBox[{0.3853362884117278, 0}, 0.3853362884117278], 
      CircleBox[{0, 0.3853362884117278}, 0.3853362884117278], 
      CircleBox[{0, 0}, 0.3853362884117278]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.10219508340497807`], 
     CircleBox[{0, 0}, 0.5268982646846884], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.3514012046500518}, 0.3514012046500518], 
      CircleBox[{-0.3514012046500518, 0}, 0.3514012046500518], 
      CircleBox[{0.3514012046500518, 0}, 0.3514012046500518], 
      CircleBox[{0, 0.3514012046500518}, 0.3514012046500518], 
      CircleBox[{0, 0}, 0.3514012046500518]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.09568772920788783], 
     CircleBox[{0, 0}, 0.4841781116276828], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.32296410504819933`}, 0.32296410504819933`], 
      CircleBox[{-0.32296410504819933`, 0}, 0.32296410504819933`], 
      CircleBox[{0.32296410504819933`, 0}, 0.32296410504819933`], 
      CircleBox[{0, 0.32296410504819933`}, 0.32296410504819933`], 
      CircleBox[{0, 0}, 0.32296410504819933`]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.08995858474144741], 
     CircleBox[{0, 0}, 0.4478869189075017], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.2987890670601977}, 0.2987890670601977], 
      CircleBox[{-0.2987890670601977, 0}, 0.2987890670601977], 
      CircleBox[{0.2987890670601977, 0}, 0.2987890670601977], 
      CircleBox[{0, 0.2987890670601977}, 0.2987890670601977], 
      CircleBox[{0, 0}, 0.2987890670601977]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.08487602504171357], 
     CircleBox[{0, 0}, 0.4166712154209106], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.2779845480385566}, 0.2779845480385566], 
      CircleBox[{-0.2779845480385566, 0}, 0.2779845480385566], 
      CircleBox[{0.2779845480385566, 0}, 0.2779845480385566], 
      CircleBox[{0, 0.2779845480385566}, 0.2779845480385566], 
      CircleBox[{0, 0}, 0.2779845480385566]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}]}], "}"}]], "Output",
 CellChangeTimes->{3.5662212719096203`*^9, 3.5662213069784822`*^9}]
}, Open  ]]
},
WindowSize->{739, 815},
WindowMargins->{{Automatic, 463}, {Automatic, 16}},
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[CellGroupData[{
Cell[579, 22, 11214, 331, 632, "Input"],
Cell[11796, 355, 3626, 95, 232, "Output"],
Cell[15425, 452, 907, 25, 31, "Output"],
Cell[16335, 479, 903, 25, 52, "Output"],
Cell[17241, 506, 681, 14, 52, "Output"],
Cell[17925, 522, 6362, 146, 881, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)