(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     20014,        576]
NotebookOptionsPosition[     19442,        554]
NotebookOutlinePosition[     19869,        571]
CellTagsIndexPosition[     19826,        568]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"C", "-", 
     RowBox[{"Atom", " ", "and", " ", "homologues", " ", "1", "s", 
      RowBox[{"(", "2", ")"}], "2", "s", 
      RowBox[{"(", "2", ")"}], " ", "2", "p", 
      RowBox[{"(", "2", ")"}], " ", "concentric", " ", "spherical"}]}], ",", 
    RowBox[{
     RowBox[{
     "with", " ", "exchange", " ", "correction", " ", "page", " ", "40"}], 
     ";", " ", 
     RowBox[{"4.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[{"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[{
     RowBox[{"func", "=", 
      RowBox[{"T", "+", "Vne", "+", "Vee"}]}], ";", " ", 
     RowBox[{"Vir", " ", "=", " ", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Vne", "+", "Vee"}], ")"}], "/", "T"}]}], ";"}], 
    "\[IndentingNewLine]"}], 
   RowBox[{"(*", " ", 
    RowBox[{"Etot", ",", " ", "P", ",", " ", "Q"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{"t", " ", "=", " ", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"FindMinimum", "[", 
       RowBox[{"func", ",", 
        RowBox[{"{", 
         RowBox[{"P", ",", "0.26"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Q", ",", "1.3"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"R", ",", "1.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"MaxIterations", "\[Rule]", "200"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", "6", ",", "18"}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Virial", " ", "ratio"}], " ", "*)"}], "\[IndentingNewLine]", 
   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[{"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]", "\[IndentingNewLine]", 
   RowBox[{"Do", "[", 
    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", ",", "13"}], "}"}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.5410883434087176`*^9, 3.541088349414728*^9}, {
  3.5410883867767935`*^9, 3.541088397728013*^9}, {3.5410884330464745`*^9, 
  3.5410884384284844`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"FindMinimum", "::", "lstol"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"The line search decreased the step size to within the \
tolerance specified by AccuracyGoal and PrecisionGoal but was unable to find \
a sufficient decrease in the function. You may need more than \
\[NoBreak]\\!\\(MachinePrecision\\)\[NoBreak] digits of working precision to \
meet these tolerances. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/FindMinimum\\\", ButtonNote -> \
\\\"FindMinimum::lstol\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.5410883093694572`*^9, 3.541088353860736*^9, 
  3.5410884033440228`*^9, 3.5410884429212923`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "37.54762137638886`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.26320496313974656`"}], ",", 
       RowBox[{"Q", "\[Rule]", "1.5414013732976544`"}], ",", 
       RowBox[{"R", "\[Rule]", "1.7669172547785716`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "53.552327924755886`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.22400317095606564`"}], ",", 
       RowBox[{"Q", "\[Rule]", "1.2707498969808981`"}], ",", 
       RowBox[{"R", "\[Rule]", "1.1290222855577208`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "72.5872795167266`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.19496664981299897`"}], ",", 
       RowBox[{"Q", "\[Rule]", "1.067479482969741`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.8530105497780686`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "94.63366763304894`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.17259028193847992`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.9137104891566615`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.6934491841590332`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "119.68548274326102`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.15481709894040513`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.7962091086429901`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.5868435013141402`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "147.7404229202617`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.14035921486216152`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.7045048095456835`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.5096781091042409`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "178.79739644991557`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.12836845699201382`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.6313081133706757`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.4509075524854554`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "212.85579837636035`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.11826327169549937`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.5716779461373449`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.4045194946379936`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "249.91525616140422`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.10963155272644187`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.5222289596625294`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.36691158139087693`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "289.97552310344236`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.10217310011227812`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.48059111871096144`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.33577547208183245`"}]}], "}"}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "333.03642711894736`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.09566405402543961`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.4450659826683152`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.309556156015758`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "379.09784343264187`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.08993408088660201`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.4144088510852344`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.2871646303733988`"}]}], "}"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "428.1596788168225`"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"P", "\[Rule]", "0.08485127779122989`"}], ",", 
       RowBox[{"Q", "\[Rule]", "0.38768868384711874`"}], ",", 
       RowBox[{"R", "\[Rule]", "0.26781387248814553`"}]}], "}"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5410883093850574`*^9, 3.541088353876336*^9, 
  3.541088403359623*^9, 3.5410884429212923`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"-", "1.999999999599507`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999983263248`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.0000000003904064`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.000000000476866`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999989137758`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.999999994620647`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.0000000150195087`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "2.000000000179968`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999997755558`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999993532485`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999846633882`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999983353465`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "1.9999999999896654`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5410883093850574`*^9, 3.541088353876336*^9, 
  3.541088403359623*^9, 3.5410884429212923`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"-", "86.85694287527485`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "122.67445757072684`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "164.33793891232486`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "211.94690520621094`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "265.5362258324874`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "325.1169435097612`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "390.69316721613814`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "462.2667290850289`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "539.8385455322517`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "623.4091435294087`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "712.9788526843508`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "808.5478690016813`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"-", "910.1163539903707`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5410883093850574`*^9, 3.541088353876336*^9, 
  3.541088403359623*^9, 3.5410884429368925`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", "11.761700107459582`", "}"}], ",", 
   RowBox[{"{", "15.569801631585875`", "}"}], ",", 
   RowBox[{"{", "19.16337990721012`", "}"}], ",", 
   RowBox[{"{", "22.679569985240697`", "}"}], ",", 
   RowBox[{"{", "26.16526021596001`", "}"}], ",", 
   RowBox[{"{", "29.636096874489958`", "}"}], ",", 
   RowBox[{"{", "33.098377001756056`", "}"}], ",", 
   RowBox[{"{", "36.5551323706154`", "}"}], ",", 
   RowBox[{"{", "40.008033153351235`", "}"}], ",", 
   RowBox[{"{", "43.458097134981905`", "}"}], ",", 
   RowBox[{"{", "46.90599333880567`", "}"}], ",", 
   RowBox[{"{", "50.352181505331`", "}"}], ",", 
   RowBox[{"{", "53.796996352300766`", "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.5410883093850574`*^9, 3.541088353876336*^9, 
  3.541088403359623*^9, 3.5410884429368925`*^9}]
}, Open  ]]
},
WindowSize->{604, 815},
WindowMargins->{{214, Automatic}, {Automatic, 7}},
DockedCells->FEPrivate`FrontEndResource[
 "FEExpressions", "CompatibilityToolbar"],
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 10735, 317, 672, "Input"],
Cell[11317, 341, 756, 14, 90, "Message"],
Cell[12076, 357, 4310, 111, 259, "Output"],
Cell[16389, 470, 1100, 30, 50, "Output"],
Cell[17492, 502, 1095, 30, 69, "Output"],
Cell[18590, 534, 836, 17, 69, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)