(* 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[     23747,        664]
NotebookOptionsPosition[     23179,        643]
NotebookOutlinePosition[     23602,        659]
CellTagsIndexPosition[     23559,        656]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"F", "-", 
     RowBox[{"Atom", " ", "and", " ", "homologues", " ", "1", "s", 
      RowBox[{"(", "2", ")"}], "2", "s", 
      RowBox[{"(", "2", ")"}], " ", "2", "p", 
      RowBox[{"(", "5", ")"}]}]}], ",", " ", 
    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.24"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"T", "=", 
     RowBox[{
      RowBox[{"9", "/", 
       RowBox[{"(", 
        RowBox[{"4", "*", 
         RowBox[{"P", "^", "2"}]}], ")"}]}], "+", 
      RowBox[{"9", "*", 
       RowBox[{"4", "/", 
        RowBox[{"(", 
         RowBox[{"4", "*", 
          RowBox[{"Q", "^", "2"}]}], ")"}]}]}], "+", 
      RowBox[{"10", "/", 
       RowBox[{"R", "^", "2"}]}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Vne", "=", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "3"}], "*", 
       RowBox[{"z", "/", "P"}]}], "-", 
      RowBox[{"3", "*", 
       RowBox[{"z", "/", "Q"}]}], "-", 
      RowBox[{"5", "*", 
       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[{"10", "*", 
       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[{"3", "*", 
       RowBox[{"sig", "/", "R"}]}], "+", 
      RowBox[{"10", "*", 
       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[{"4.974012", "/", "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", ",", "9", ",", "18"}], "}"}]}], "]"}]}], 
    "\[IndentingNewLine]"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Virial", " ", "ratio"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Vir", " ", "/.", " ", 
        RowBox[{"t", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"z", "-", "8"}], "}"}], ",", "2"}], "]"}], "]"}]}], ",", 
       "10"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", " ", ",", "9", ",", "18"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"N", "[", 
      RowBox[{
       RowBox[{"Vne", " ", "/.", " ", 
        RowBox[{"t", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"z", "-", "8"}], "}"}], ",", "2"}], "]"}], "]"}]}], ",", 
       "10"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", " ", ",", "9", ",", "18"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{"Vee", " ", "/.", " ", 
         RowBox[{"t", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"z", "-", "8"}], "}"}], ",", "2"}], "]"}], "]"}]}], ",", 
        "10"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", " ", ",", "9", ",", "18"}], "}"}]}], "]"}], 
    "\[IndentingNewLine]"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Etot", " ", "in", " ", "eV"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"N", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"t", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"z", "-", "8"}], "}"}], ",", "1"}], "]"}], "]"}], "*", 
         "27.21138"}], ",", "10"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", "9", ",", "18"}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"PA", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"t", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"z", "-", "8"}], "}"}], ",", "2", ",", "1"}], "]"}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "9", ",", "18"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"QA", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"t", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"z", "-", "8"}], "}"}], ",", "2", ",", "2"}], "]"}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "9", ",", "18"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"RA", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"t", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"z", "-", "8"}], "}"}], ",", "2", ",", "3"}], "]"}], "]"}],
        ",", 
       RowBox[{"{", 
        RowBox[{"z", ",", "9", ",", "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", ",", "10"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5788210989071274`*^9, 3.5788211002799296`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "99.118413591089`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.17151811516117532`"}], ",", 
       RowBox[{"Q", "\[Rule]", "1.7802313774807539`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.7107404555821464`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "127.20192653643645`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.1539695104133493`"}], ",", 
       RowBox[{"Q", "\[Rule]", "1.3611975400364036`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.6037439898602533`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "159.1465442689991`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.13968594764946102`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.8707916972219253`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.5593241365504923`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "194.884959735859`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.12781953650869107`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.7535184461457577`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.4919673296981904`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "234.37651027426386`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.11780849308317222`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.6670897079090398`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.4383819123368437`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "277.6203315993554`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.10924960630320682`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.5991994427155762`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.39516168722479456`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "324.61594455821455`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.1018484989580641`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.544138181860866`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.35964577267654424`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "375.36301460264843`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.09538529534169143`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.4984799920331864`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.3299671152448272`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "429.8612906716075`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.08969246445504662`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.45996386233512276`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.3048049534400945`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "488.11057786826547`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.08464011821830424`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.42701595700537937`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.28320500847437313`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.578821116301158*^9, 3.5788211893560863`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"-", "1.9999999995279774`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999997944153`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999987714148`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999997376126`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.0000000000735003`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999990948705`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.0000000011994308`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.999999999691687`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999999967493`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.999999999983571`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.578821116301158*^9, 3.5788211893560863`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"-", "235.89859407100437`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "299.6997470705873`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "372.4737485420087`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "451.38227494426445`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "537.7811844548683`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "631.6769470046786`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "733.0708362036399`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "841.9633532235321`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "958.3547757591839`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1082.2452925825676`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.578821116301158*^9, 3.5788211893560863`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "37.6617668420403`", "}"}], ",", 
   RowBox[{"{", "45.295893971563714`", "}"}], ",", 
   RowBox[{"{", "54.18065980848533`", "}"}], ",", 
   RowBox[{"{", "61.61235542141099`", "}"}], ",", 
   RowBox[{"{", "69.02816392356728`", "}"}], ",", 
   RowBox[{"{", "76.43628355468532`", "}"}], ",", 
   RowBox[{"{", "83.8389474765653`", "}"}], ",", 
   RowBox[{"{", "91.2373239025058`", "}"}], ",", 
   RowBox[{"{", "98.63219441457154`", "}"}], ",", 
   RowBox[{"{", "106.02413683801737`", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.578821116301158*^9, 3.5788211893560863`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   GraphicsBox[{CircleBox[{0, 0}, 0.17151811516117532`], 
     CircleBox[{0, 0}, 1.7802313774807539`], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.7107404555821464}, 0.7107404555821464], 
      CircleBox[{-0.7107404555821464, 0}, 0.7107404555821464], 
      CircleBox[{0.7107404555821464, 0}, 0.7107404555821464], 
      CircleBox[{0, 0.7107404555821464}, 0.7107404555821464], 
      CircleBox[{0, 0}, 0.7107404555821464]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.1539695104133493], 
     CircleBox[{0, 0}, 1.3611975400364036`], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.6037439898602533}, 0.6037439898602533], 
      CircleBox[{-0.6037439898602533, 0}, 0.6037439898602533], 
      CircleBox[{0.6037439898602533, 0}, 0.6037439898602533], 
      CircleBox[{0, 0.6037439898602533}, 0.6037439898602533], 
      CircleBox[{0, 0}, 0.6037439898602533]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.13968594764946102`], 
     CircleBox[{0, 0}, 0.8707916972219253], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.5593241365504923}, 0.5593241365504923], 
      CircleBox[{-0.5593241365504923, 0}, 0.5593241365504923], 
      CircleBox[{0.5593241365504923, 0}, 0.5593241365504923], 
      CircleBox[{0, 0.5593241365504923}, 0.5593241365504923], 
      CircleBox[{0, 0}, 0.5593241365504923]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.12781953650869107`], 
     CircleBox[{0, 0}, 0.7535184461457577], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.4919673296981904}, 0.4919673296981904], 
      CircleBox[{-0.4919673296981904, 0}, 0.4919673296981904], 
      CircleBox[{0.4919673296981904, 0}, 0.4919673296981904], 
      CircleBox[{0, 0.4919673296981904}, 0.4919673296981904], 
      CircleBox[{0, 0}, 0.4919673296981904]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.11780849308317222`], 
     CircleBox[{0, 0}, 0.6670897079090398], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.4383819123368437}, 0.4383819123368437], 
      CircleBox[{-0.4383819123368437, 0}, 0.4383819123368437], 
      CircleBox[{0.4383819123368437, 0}, 0.4383819123368437], 
      CircleBox[{0, 0.4383819123368437}, 0.4383819123368437], 
      CircleBox[{0, 0}, 0.4383819123368437]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.10924960630320682`], 
     CircleBox[{0, 0}, 0.5991994427155762], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.39516168722479456`}, 0.39516168722479456`], 
      CircleBox[{-0.39516168722479456`, 0}, 0.39516168722479456`], 
      CircleBox[{0.39516168722479456`, 0}, 0.39516168722479456`], 
      CircleBox[{0, 0.39516168722479456`}, 0.39516168722479456`], 
      CircleBox[{0, 0}, 0.39516168722479456`]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.1018484989580641], 
     CircleBox[{0, 0}, 0.544138181860866], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.35964577267654424`}, 0.35964577267654424`], 
      CircleBox[{-0.35964577267654424`, 0}, 0.35964577267654424`], 
      CircleBox[{0.35964577267654424`, 0}, 0.35964577267654424`], 
      CircleBox[{0, 0.35964577267654424`}, 0.35964577267654424`], 
      CircleBox[{0, 0}, 0.35964577267654424`]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.09538529534169143], 
     CircleBox[{0, 0}, 0.4984799920331864], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.3299671152448272}, 0.3299671152448272], 
      CircleBox[{-0.3299671152448272, 0}, 0.3299671152448272], 
      CircleBox[{0.3299671152448272, 0}, 0.3299671152448272], 
      CircleBox[{0, 0.3299671152448272}, 0.3299671152448272], 
      CircleBox[{0, 0}, 0.3299671152448272]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.08969246445504662], 
     CircleBox[{0, 0}, 0.45996386233512276`], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.3048049534400945}, 0.3048049534400945], 
      CircleBox[{-0.3048049534400945, 0}, 0.3048049534400945], 
      CircleBox[{0.3048049534400945, 0}, 0.3048049534400945], 
      CircleBox[{0, 0.3048049534400945}, 0.3048049534400945], 
      CircleBox[{0, 0}, 0.3048049534400945]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}], ",", 
   GraphicsBox[{CircleBox[{0, 0}, 0.08464011821830424], 
     CircleBox[{0, 0}, 0.42701595700537937`], 
     {Dashing[{0.01, 0.01}], 
      CircleBox[{0, -0.28320500847437313`}, 0.28320500847437313`], 
      CircleBox[{-0.28320500847437313`, 0}, 0.28320500847437313`], 
      CircleBox[{0.28320500847437313`, 0}, 0.28320500847437313`], 
      CircleBox[{0, 0.28320500847437313`}, 0.28320500847437313`], 
      CircleBox[{0, 0}, 0.28320500847437313`]}},
    AspectRatio->Automatic,
    Axes->True,
    Frame->True,
    GridLines->Automatic,
    PlotRange->{{-2, 2}, {-2, 2}}]}], "}"}]], "Output",
 CellChangeTimes->{3.578821116301158*^9, 3.578821189371686*^9}]
}, Open  ]]
},
WindowSize->{663, 815},
WindowMargins->{{556, Automatic}, {Automatic, 14}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
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[CellGroupData[{
Cell[579, 22, 11169, 330, 692, "Input"],
Cell[11751, 354, 3304, 86, 212, "Output"],
Cell[15058, 442, 837, 23, 31, "Output"],
Cell[15898, 467, 832, 23, 72, "Output"],
Cell[16733, 492, 628, 13, 52, "Output"],
Cell[17364, 507, 5799, 133, 1065, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)