simulation.nb

(* 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[     91146,       1969]
NotebookOptionsPosition[     88930,       1895]
NotebookOutlinePosition[     89268,       1910]
CellTagsIndexPosition[     89225,       1907]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[" "], "Input",
 CellChangeTimes->{3.573765829714208*^9}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\[Epsilon]", "=", 
  FractionBox["625000", 
   RowBox[{"22468879468420441", "\[Pi]"}]]}], "\n", 
 RowBox[{"\[EBar]", "=", 
  RowBox[{
   RowBox[{"-", "1.602177"}], "\[Times]", 
   RowBox[{"10", "^", 
    RowBox[{"-", "19"}]}]}]}], "\n", 
 RowBox[{"c", "=", "299792458"}], "\n", 
 RowBox[{"particlenumber", "=", 
  RowBox[{"10", "^", "3"}]}], "\n", 
 RowBox[{"duration", "=", 
  RowBox[{"10", "^", 
   RowBox[{"-", "8"}]}]}], "\n", 
 RowBox[{"timestep", "=", 
  RowBox[{"10", "^", 
   RowBox[{"-", "10"}]}]}], "\n", 
 RowBox[{"rmax", "=", 
  RowBox[{"1.5", "*", 
   RowBox[{"10", "^", 
    RowBox[{"-", "2"}]}]}]}], "\n", 
 RowBox[{"delay", "=", 
  RowBox[{
   RowBox[{"rmax", "/", "c"}], "*", "0.1"}]}], "\n", 
 RowBox[{
  RowBox[{"\[Gamma]", "[", "v_", "]"}], "=", 
  FractionBox["1", 
   SqrtBox[
    RowBox[{"1", "-", 
     FractionBox[
      SuperscriptBox["v", "2"], 
      SuperscriptBox["c", "2"]]}]]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]\.b2", "[", "v_", "]"}], "=", 
  FractionBox["1", 
   RowBox[{"1", "-", 
    FractionBox[
     SuperscriptBox["v", "2"], 
     SuperscriptBox["c", "2"]]}]]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"electricalForce", "=", 
   RowBox[{"-", 
    FractionBox["1", 
     RowBox[{"4", "\[Pi]", "\[Epsilon]"}]]}]}], ";"}], "\n", 
 RowBox[{"maxcharge", "=", "7000"}], "\n", 
 RowBox[{
  RowBox[{"elecScalForce", "[", 
   RowBox[{"Q_", ",", "q_", ",", "r_Vector"}], "]"}], "=", 
  FractionBox["Qq", 
   SuperscriptBox[
    RowBox[{"Norm", "[", "r", "]"}], "2"]]}], "\n", 
 RowBox[{
  RowBox[{"elecVecForce", "[", 
   RowBox[{"Q_", ",", "q_", ",", "r_Vector"}], "]"}], "=", 
  RowBox[{
   FractionBox["Qq", 
    SuperscriptBox[
     RowBox[{"Norm", "[", "r", "]"}], "3"]], "*", 
   "r"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"elecVecFieldFunc", "[", 
    RowBox[{"q_", ",", "r_Vector", ",", "t_"}], "]"}], "=", 
   RowBox[{"Function", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"affectedRadius", "=", 
      RowBox[{"rmax", "-", 
       RowBox[{"c", "*", "t"}]}]}], ";", 
     RowBox[{"fullyaffected", "=", 
      RowBox[{"affectedRadius", "+", 
       RowBox[{"delay", "*", "c"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"distance", "=", 
      RowBox[{"Norm", "[", "r", "]"}]}], ";", 
     RowBox[{
      FractionBox[
       RowBox[{"r", "*", "q"}], 
       SuperscriptBox["distance", "3"]], "*", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"distance", "\[GreaterEqual]", 
         RowBox[{"Min", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Abs", "[", "fullyaffected", "]"}], ",", 
            RowBox[{"Abs", "[", "affectedRadius", "]"}]}], "}"}], "]"}]}], 
        ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"distance", "\[GreaterEqual]", 
           RowBox[{"Max", "[", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Abs", "[", "fullyaffected", "]"}], ",", 
              RowBox[{"Abs", "[", "affectedRadius", "]"}]}], "}"}], "]"}]}], 
          ",", "maxcharge", ",", 
          RowBox[{"maxcharge", 
           FractionBox["1", "2"], 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             RowBox[{"Cos", "[", 
              RowBox[{
               FractionBox["1", 
                RowBox[{"delay", "c"}]], "\[Pi]", 
               RowBox[{"(", 
                RowBox[{"Abs", "[", 
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"affectedRadius", "<", "0"}], "&&", 
                    RowBox[{"distance", "<", 
                    RowBox[{"Abs", "[", "affectedRadius", "]"}]}]}], ",", 
                   RowBox[{"distance", "+", "affectedRadius"}], ",", 
                   RowBox[{"fullyaffected", "-", "distance"}]}], "]"}], "]"}],
                 ")"}]}], "]"}]}], ")"}]}]}], "]"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"affectedRadius", "<", "distance", "<", "fullyaffected"}], 
          ",", 
          RowBox[{"maxcharge", "*", 
           FractionBox["1", "2"], 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Cos", "[", 
              RowBox[{
               FractionBox[
                RowBox[{"distance", "+", "affectedRadius"}], 
                RowBox[{"delay", "c"}]], "\[Pi]"}], "]"}], "+", 
             RowBox[{"Cos", "[", 
              RowBox[{
               FractionBox[
                RowBox[{"fullyaffected", "-", "distance"}], 
                RowBox[{"delay", "c"}]], "\[Pi]"}], "]"}]}], ")"}]}], ",", 
          "0"}], "]"}]}], "]"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"start", "=", 
   RowBox[{"Array", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "rmax"}], ",", "rmax"}], "}"}], "]"}], ",", 
          RowBox[{"RandomReal", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"-", "rmax"}], ",", "rmax"}], "}"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"RandomReal", "[", "40000", "]"}], ",", 
          RowBox[{"RandomReal", "[", "40000", "]"}]}], "}"}]}], "}"}], "&"}], 
     ",", "particlenumber"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"save", "=", 
   RowBox[{"{", 
    RowBox[{"Select", "[", 
     RowBox[{"start", ",", 
      RowBox[{
       RowBox[{
        RowBox[{"Norm", "[", 
         RowBox[{"#", "[", 
          RowBox[{"[", "1", "]"}], "]"}], "]"}], "\[LessEqual]", "rmax"}], 
       "&"}]}], "]"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"acctualParticleNumber", "=", 
   RowBox[{"Length", "[", 
    RowBox[{"save", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"copy", "=", 
      RowBox[{"save", "[", 
       RowBox[{"[", 
        RowBox[{"-", "1"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"thistime", "=", 
         RowBox[{"copy", "[", 
          RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"particle", "=", 
         RowBox[{"thistime", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"particleVel", "=", 
         RowBox[{"thistime", "[", 
          RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"elecforcevec", "=", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"maxdist", "=", 
         RowBox[{
          RowBox[{"Norm", "[", "particle", "]"}], "+", "rmax"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"flashback", "=", "1"}], ";", "\[IndentingNewLine]", 
        RowBox[{"eParVel", "=", 
         FractionBox["particleVel", 
          RowBox[{"Norm", "[", "particleVel", "]"}]]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"tmpPos", "=", 
         RowBox[{"(", 
          RowBox[{"particle", "+", 
           FractionBox[
            RowBox[{"particleVel", " ", "timestep"}], "2"]}], ")"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"own\[Gamma]", "=", 
         RowBox[{"\[Gamma]\.b2", "[", "particleVel", "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"While", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"flashback", "*", "c", "*", "timestep"}], "<", "maxdist"}],
           ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"scope", "=", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"flashback", "<", "2"}], ",", 
              RowBox[{"flashback", "+", "1"}], ",", "flashback"}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"scope", "=", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"scope", ">", 
               RowBox[{"Length", "[", "save", "]"}]}], ",", 
              RowBox[{"Length", "[", "save", "]"}], ",", "scope"}], "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"basis", "=", 
            RowBox[{"save", "[", 
             RowBox[{"[", 
              RowBox[{"-", "scope"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"selection", "=", 
            RowBox[{"Select", "[", 
             RowBox[{"basis", ",", 
              RowBox[{
               RowBox[{
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"(", 
                    RowBox[{"flashback", "-", "1"}], ")"}], "timestep", "*", 
                   "c"}], ")"}], "2"], "\[LessEqual]", 
                RowBox[{"SquaredEuclideanDistance", "[", 
                 RowBox[{"particle", ",", "#1"}], "]"}], "\[LessEqual]", 
                SuperscriptBox[
                 RowBox[{"(", 
                  RowBox[{"flashback", "*", "timestep", "*", "c"}], ")"}], 
                 "2"]}], "&"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"Do", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{
              RowBox[{"test", "=", 
               RowBox[{"selection", "[", 
                RowBox[{"[", "n", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
              
              RowBox[{"vel", "=", 
               RowBox[{"test", "[", 
                RowBox[{"[", "2", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
              
              RowBox[{"pos", "=", 
               RowBox[{"test", "[", 
                RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
              
              RowBox[{"eVel", "=", 
               FractionBox["vel", 
                RowBox[{"Norm", "[", "vel", "]"}]]}], ";", 
              "\[IndentingNewLine]", 
              RowBox[{"VecOfParField", "+=", 
               RowBox[{
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"tmpPos", "-", "pos"}], ")"}], "*", "eVel"}], 
                    ")"}], "2"], "+", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Norm", "[", 
                    RowBox[{"(", 
                    RowBox[{"tmpPos", "-", "pos"}], ")"}], "]"}], "-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"tmpPos", "-", "pos"}], ")"}], "*", "eVel"}]}], 
                    ")"}], "2"], "*", 
                    RowBox[{"\[Gamma]\.b2", "[", "vel", "]"}]}]}], ")"}]}], 
                "*", 
                RowBox[{"\[Sqrt]", 
                 RowBox[{"(", 
                  RowBox[{
                   SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"tmpPos", "-", "pos"}], ")"}], "*", "eParVel"}], 
                    ")"}], "2"], "+", 
                   RowBox[{
                    SuperscriptBox[
                    RowBox[{"(", 
                    RowBox[{
                    RowBox[{"Norm", "[", 
                    RowBox[{"(", 
                    RowBox[{"tmpPos", "-", "pos"}], ")"}], "]"}], "-", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"tmpPos", "-", "pos"}], ")"}], "*", "eParVel"}]}],
                     ")"}], "2"], "*", "own\[Gamma]"}]}], ")"}]}], "*", 
                FractionBox[
                 RowBox[{"tmpPos", "-", "pos"}], 
                 SuperscriptBox[
                  RowBox[{"Norm", "[", 
                   RowBox[{"tmpPos", "-", "pos"}], "]"}], "3"]]}]}]}], 
             "\[IndentingNewLine]", ",", 
             RowBox[{"{", 
              RowBox[{"n", ",", 
               RowBox[{"Length", "[", "selection", "]"}]}], "}"}]}], "]"}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{"flashback", "++"}]}]}], "\[IndentingNewLine]", "]"}], ";",
         "\[IndentingNewLine]", 
        RowBox[{"charge", "=", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"acctualParticleNumber", "-", "1"}], ")"}], "*", 
          "\[EBar]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"vecOfField", "=", 
         RowBox[{
          RowBox[{"vecOfParField", "*", "\[EBar]", "*", "charge", "*", 
           FractionBox[
            RowBox[{"tmpPos", "-", "pos"}], 
            SuperscriptBox[
             RowBox[{"Norm", "[", 
              RowBox[{"tmpPos", "-", "pos"}], "]"}], "3"]]}], "+", 
          RowBox[{"elecVecFieldFunc", "[", 
           RowBox[{"\[EBar]", ",", "particle", ",", 
            RowBox[{"timestep", "*", "t"}]}], "]"}]}]}], ";", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
        RowBox[{"acceleration", "=", 
         RowBox[{"elecforcevec", "*", 
          RowBox[{
           RowBox[{"Sqrt", "[", 
            RowBox[{"1", "-", 
             RowBox[{
              RowBox[{
               RowBox[{"Abs", "[", "velocity", "]"}], "^", "2"}], "/", 
              RowBox[{"c", "^", "2"}]}]}], "]"}], "/", "mass"}]}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{"velocity", "+=", 
         RowBox[{"acceleration", "*", "timestep"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"copy", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "=", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"tmppos", "+", 
            RowBox[{"velocity", "*", 
             RowBox[{"timestep", "/", "2"}]}]}], ",", "velocity"}], "}"}]}], 
        ";"}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "copy", "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"save", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"copy", ",", "save"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
    ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "1"}], 
     RowBox[{"(*", 
      RowBox[{"duration", "/", "timestep"}], "*)"}], "}"}]}], "]"}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.570435569488064*^9, 3.570435579924032*^9}, {
   3.570436047681908*^9, 3.570436096107974*^9}, {3.570436182954269*^9, 
   3.57043619065565*^9}, {3.570436249351661*^9, 3.570436264057149*^9}, {
   3.570436482056537*^9, 3.570436505561217*^9}, {3.570436566891554*^9, 
   3.570436648778678*^9}, {3.570436801757094*^9, 3.570436878645121*^9}, {
   3.570438777096859*^9, 3.570438781114302*^9}, {3.570475770795468*^9, 
   3.570475870167328*^9}, {3.570475929249701*^9, 3.570476056997972*^9}, {
   3.570476099060521*^9, 3.570476157429703*^9}, {3.570476192905132*^9, 
   3.57047619621323*^9}, {3.570476234545084*^9, 3.570476250560668*^9}, {
   3.570476327853904*^9, 3.570476356872624*^9}, 3.570555156631707*^9, {
   3.570555204804953*^9, 3.570555215209332*^9}, {3.570555457830521*^9, 
   3.570555460082066*^9}, {3.570555554096252*^9, 3.570555665844405*^9}, {
   3.570555884011892*^9, 3.57055592390232*^9}, {3.570556007631363*^9, 
   3.570556028663843*^9}, {3.570556071931165*^9, 3.570556078170953*^9}, {
   3.57055613509858*^9, 3.570556159693936*^9}, {3.570556784875675*^9, 
   3.570556795396773*^9}, 3.570556887651037*^9, {3.570557567414678*^9, 
   3.570557619699433*^9}, {3.570557697255869*^9, 3.57055771367307*^9}, {
   3.570557808902663*^9, 3.570557828014281*^9}, {3.570558087750845*^9, 
   3.570558138002764*^9}, {3.570558779431265*^9, 3.570558861173751*^9}, {
   3.570558925104301*^9, 3.570559124981513*^9}, {3.570559256129127*^9, 
   3.570559258607362*^9}, {3.570559320548593*^9, 3.570559328165243*^9}, {
   3.570559398943368*^9, 3.570559432774058*^9}, {3.570559466013069*^9, 
   3.570559607137035*^9}, {3.570560111536153*^9, 3.570560181476921*^9}, {
   3.570560254068055*^9, 3.570560381237493*^9}, {3.570560432714346*^9, 
   3.570560507999654*^9}, {3.57056057401969*^9, 3.570560595577877*^9}, 
   3.570560643444715*^9, {3.570560723285571*^9, 3.570560731022263*^9}, {
   3.57056078189823*^9, 3.570560806874611*^9}, {3.570560874995208*^9, 
   3.57056089962925*^9}, {3.570560935760569*^9, 3.570560991207608*^9}, {
   3.570561021432295*^9, 3.57056134345827*^9}, {3.570561379957716*^9, 
   3.570561723870575*^9}, {3.570561863736884*^9, 3.570561910095651*^9}, {
   3.570562002947625*^9, 3.570562033626163*^9}, {3.57056209484844*^9, 
   3.570562146904855*^9}, {3.570562178813542*^9, 3.570562284329372*^9}, {
   3.570562337192585*^9, 3.570562447224684*^9}, {3.570562487647394*^9, 
   3.570562558973552*^9}, {3.570610926867229*^9, 3.570610932921216*^9}, {
   3.570610972573696*^9, 3.570610982568364*^9}, {3.570611298000923*^9, 
   3.570611305711698*^9}, {3.570611396899224*^9, 3.570611525612483*^9}, {
   3.570611619415633*^9, 3.570611635229945*^9}, {3.570611708683825*^9, 
   3.570611741760825*^9}, {3.570612279594372*^9, 3.570612370153102*^9}, {
   3.57061240465423*^9, 3.570612462531642*^9}, {3.57061249893905*^9, 
   3.57061254201962*^9}, {3.570612803774081*^9, 3.570612810066462*^9}, {
   3.570612874653041*^9, 3.5706128791641*^9}, {3.570613004156837*^9, 
   3.570613015708916*^9}, {3.570613127055634*^9, 3.570613259447728*^9}, {
   3.570613358877699*^9, 3.570613406392174*^9}, {3.57061345091028*^9, 
   3.570613479783803*^9}, {3.570613515842619*^9, 3.570613625882575*^9}, {
   3.570613874289561*^9, 3.570613875796937*^9}, {3.570613918900693*^9, 
   3.570613951408145*^9}, {3.570614032672703*^9, 3.570614151402813*^9}, {
   3.570614213200922*^9, 3.570614233819411*^9}, {3.57061428113302*^9, 
   3.570614286203492*^9}, {3.570614333369061*^9, 3.570614388596216*^9}, {
   3.570614625687794*^9, 3.570614747165774*^9}, {3.570615168316937*^9, 
   3.570615171833842*^9}, {3.570615203546132*^9, 3.570615256110603*^9}, {
   3.570615301766916*^9, 3.570615306405421*^9}, {3.570615445324176*^9, 
   3.570615458656323*^9}, {3.570615812691613*^9, 3.570615820685139*^9}, {
   3.570615851192446*^9, 3.570616055549274*^9}, {3.570616919547888*^9, 
   3.57061698688858*^9}, 3.570617018629981*^9, {3.5706221609351*^9, 
   3.570622229083275*^9}, {3.570622306505024*^9, 3.570622328345506*^9}, {
   3.570622493443955*^9, 3.570622510802594*^9}, {3.570622671473086*^9, 
   3.570622686018014*^9}, {3.570622730979934*^9, 3.5706227479121*^9}, {
   3.570622809965906*^9, 3.570622896360958*^9}, {3.570622933743848*^9, 
   3.570622944341255*^9}, {3.570623151040174*^9, 3.570623216547726*^9}, {
   3.570623763137385*^9, 3.570623785252065*^9}, 3.570623941538093*^9, {
   3.570624158285638*^9, 3.570624170877518*^9}, {3.570624328130849*^9, 
   3.570624341906576*^9}, {3.570624380462344*^9, 3.570624421133075*^9}, {
   3.57062467024231*^9, 3.570624692114484*^9}, {3.570624855661772*^9, 
   3.570624864135428*^9}, {3.57062496888636*^9, 3.570625026762862*^9}, {
   3.570625079775292*^9, 3.570625111204971*^9}, {3.570625346497323*^9, 
   3.570625457309383*^9}, {3.570625804728087*^9, 3.570626065615667*^9}, 
   3.570630641839235*^9, {3.570630953232955*^9, 3.570630972057603*^9}, {
   3.570631122495368*^9, 3.570631146285574*^9}, {3.570631206479655*^9, 
   3.570631235694284*^9}, {3.57063134756723*^9, 3.570631357572305*^9}, {
   3.570631573438869*^9, 3.570631580897513*^9}, {3.570632652379234*^9, 
   3.570632662106324*^9}, {3.570632882893345*^9, 3.57063298494683*^9}, {
   3.57063302136954*^9, 3.570633038983038*^9}, {3.570633085042765*^9, 
   3.57063321484628*^9}, {3.570633522927887*^9, 3.570633564251042*^9}, {
   3.570633602420724*^9, 3.570633726684702*^9}, {3.570633758651245*^9, 
   3.570633770693071*^9}, {3.570633804554027*^9, 3.570633897972427*^9}, {
   3.570634039513644*^9, 3.570634063596238*^9}, {3.570634166689269*^9, 
   3.570634178649679*^9}, {3.570634216642952*^9, 3.570634227582885*^9}, {
   3.570634261654088*^9, 3.570634308583783*^9}, {3.570634344479799*^9, 
   3.570634350082058*^9}, {3.570634451715806*^9, 3.570634535082523*^9}, {
   3.570634566181032*^9, 3.570634602300956*^9}, {3.570634690675637*^9, 
   3.570634699340708*^9}, {3.570634782018774*^9, 3.570634790685615*^9}, {
   3.570634831470701*^9, 3.570634834338797*^9}, {3.570634920405794*^9, 
   3.570634926496916*^9}, {3.570634962592579*^9, 3.570634976093327*^9}, {
   3.570635327349219*^9, 3.570635382145779*^9}, {3.570635476651309*^9, 
   3.57063547883751*^9}, {3.570635544362189*^9, 3.570635545679169*^9}, {
   3.570635576860983*^9, 3.570635579164588*^9}, {3.570635689111726*^9, 
   3.570635701636354*^9}, {3.570635751199162*^9, 3.570635770498916*^9}, {
   3.570635834576001*^9, 3.570635900649835*^9}, {3.57063597551328*^9, 
   3.570635980003112*^9}, {3.570636019994619*^9, 3.570636136675992*^9}, {
   3.570636209737639*^9, 3.570636259151493*^9}, {3.570636382299241*^9, 
   3.570636424259966*^9}, {3.570636456378872*^9, 3.570636521323339*^9}, {
   3.570636703206272*^9, 3.570636719211148*^9}, {3.570637038793014*^9, 
   3.570637272032727*^9}, {3.570637335531744*^9, 3.570637371165664*^9}, {
   3.570637438710652*^9, 3.570637488595597*^9}, {3.570637525562011*^9, 
   3.570637530990187*^9}, 3.570637609362729*^9, {3.570637683390642*^9, 
   3.570637698065461*^9}, {3.570637732119528*^9, 3.570637733483896*^9}, {
   3.570637773695812*^9, 3.5706378248991*^9}, {3.570637867614907*^9, 
   3.570637869598004*^9}, {3.570637945792075*^9, 3.570637959151289*^9}, {
   3.570637996452588*^9, 3.570638007881616*^9}, {3.570638073630775*^9, 
   3.570638128309501*^9}, {3.57063816395545*^9, 3.570638238867973*^9}, {
   3.570638533120716*^9, 3.570638539744157*^9}, {3.570638576356577*^9, 
   3.570638604733635*^9}, {3.570638952180334*^9, 3.57063898757261*^9}, {
   3.570639034349913*^9, 3.570639074734451*^9}, {3.570639107632211*^9, 
   3.570639152777478*^9}, {3.570639194078144*^9, 3.570639211853692*^9}, {
   3.57063926583299*^9, 3.570639278263086*^9}, {3.57063931099903*^9, 
   3.57063939015569*^9}, {3.570639423524086*^9, 3.570639427417193*^9}, {
   3.570639462113339*^9, 3.570639752084349*^9}, {3.570639792016393*^9, 
   3.570639821019371*^9}, {3.570639900901769*^9, 3.570639904986793*^9}, {
   3.570639939462665*^9, 3.570639988600002*^9}, {3.570640039786759*^9, 
   3.570640091004628*^9}, {3.570640396888854*^9, 3.570640430431286*^9}, {
   3.570640475254289*^9, 3.570640486303945*^9}, {3.570640564285672*^9, 
   3.570640683366645*^9}, {3.570640728895855*^9, 3.570640782119903*^9}, {
   3.570640827616505*^9, 3.570640836152946*^9}, {3.570640879945308*^9, 
   3.570640890095356*^9}, 3.570641798180428*^9, 3.570642461414378*^9, {
   3.570642643561061*^9, 3.570642684466409*^9}, {3.570642721750995*^9, 
   3.570642727868158*^9}, {3.570642810177964*^9, 3.570642863138918*^9}, {
   3.570643458884698*^9, 3.570643510576652*^9}, {3.57064358677965*^9, 
   3.570643603156504*^9}, {3.570648012121158*^9, 3.570648083659484*^9}, {
   3.570648123278113*^9, 3.570648153538664*^9}, {3.570648195018873*^9, 
   3.570648201646061*^9}, 3.570648361618552*^9, 3.570648429387898*^9, {
   3.570648462518191*^9, 3.570648501127069*^9}, {3.570648613818454*^9, 
   3.570648628750066*^9}, {3.570648702084752*^9, 3.570648703555202*^9}, {
   3.570649216445603*^9, 3.570649244578455*^9}, {3.57065274275366*^9, 
   3.570652785579067*^9}, 3.570652943844882*^9, {3.570652979664102*^9, 
   3.570653019288721*^9}, {3.570653234468196*^9, 3.570653245740237*^9}, {
   3.570653339546515*^9, 3.570653345473713*^9}, {3.57065348189522*^9, 
   3.570653499024075*^9}, {3.570653544155283*^9, 3.570653586960797*^9}, {
   3.570653778657421*^9, 3.570653782795195*^9}, {3.570653824230966*^9, 
   3.570653836852996*^9}, {3.570654000857963*^9, 3.570654101995636*^9}, {
   3.570688354434593*^9, 3.570688365715594*^9}, {3.57316264304309*^9, 
   3.573162652166056*^9}, {3.573162715966276*^9, 3.57316274899702*^9}, {
   3.5731627936878*^9, 3.573162879921703*^9}, {3.57316293248524*^9, 
   3.5731629522233*^9}, {3.573162983837614*^9, 3.57316303781854*^9}, {
   3.573163204789728*^9, 3.573163512662177*^9}, {3.573163550851895*^9, 
   3.573163604845626*^9}, {3.573163650899882*^9, 3.573163760703834*^9}, {
   3.573163793705012*^9, 3.573164039727103*^9}, {3.57316412529687*^9, 
   3.573164420477318*^9}, 3.573164460132301*^9, {3.573164591251603*^9, 
   3.573164679643074*^9}, {3.573193243314626*^9, 3.573193345161047*^9}, {
   3.573193387780495*^9, 3.573193403434025*^9}, {3.573193443140605*^9, 
   3.573193488597279*^9}, {3.573595517397467*^9, 3.573595518110782*^9}, {
   3.573595559222562*^9, 3.573595566521836*^9}, {3.573595649393553*^9, 
   3.57359568150645*^9}, {3.573765953067832*^9, 3.573766307404636*^9}, {
   3.573766361326684*^9, 3.573766441608101*^9}, {3.573766499094923*^9, 
   3.573766559511192*^9}, 3.573766597274201*^9, {3.573766653540774*^9, 
   3.573766891188721*^9}, {3.573766982140995*^9, 3.573767009513545*^9}, {
   3.573794673820723*^9, 3.573794727930543*^9}, {3.57379514795592*^9, 
   3.573795149252124*^9}, {3.573795518016146*^9, 3.573795519878416*^9}, {
   3.573795573908832*^9, 3.573795590214313*^9}, {3.573795682727774*^9, 
   3.573795743697661*^9}, {3.573795815396745*^9, 3.573795826655889*^9}, {
   3.573795864309755*^9, 3.573795929562399*^9}, {3.573796031707746*^9, 
   3.573796038714358*^9}, {3.57379615876562*^9, 3.573796220075674*^9}, 
   3.573796290359014*^9, {3.57379675351418*^9, 3.573796754223068*^9}, {
   3.573833692199235*^9, 3.573833715561714*^9}, {3.573833838627775*^9, 
   3.573833845935717*^9}, {3.573833912956329*^9, 3.573833939778685*^9}, {
   3.573833971573306*^9, 3.573834066906011*^9}, {3.57383410956691*^9, 
   3.573834132323716*^9}, 3.573835288275875*^9}],

Cell[BoxData[
 FractionBox["625000", 
  RowBox[{"22468879468420441", " ", "\[Pi]"}]]], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.570654103169445*^9}}],

Cell[BoxData[
 RowBox[{"-", "1.6021769999999999`*^-19"}]], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.570654103178141*^9}}],

Cell[BoxData["299792458"], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.570654103182712*^9}}],

Cell[BoxData["1000"], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.570654103187038*^9}}],

Cell[BoxData[
 FractionBox["1", "100000000"]], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.570654103191494*^9}}],

Cell[BoxData[
 FractionBox["1", "10000000000"]], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.570654103195993*^9}}],

Cell[BoxData["0.015`"], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.570654103200437*^9}}],

Cell[BoxData["5.003461427972281`*^-12"], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.57065410320484*^9}}],

Cell[BoxData["7000"], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.570654103209387*^9}}],

Cell[BoxData[
 FractionBox["Qq", 
  SuperscriptBox["r", "2"]]], "Output",
 CellChangeTimes->{
  3.570635922151923*^9, 3.570636530956614*^9, 3.570637282242571*^9, {
   3.570637414557991*^9, 3.570637489415976*^9}, 3.570637703192678*^9, 
   3.57063773411923*^9, {3.570637778170754*^9, 3.570637825555509*^9}, 
   3.570637870176173*^9, {3.570637947203473*^9, 3.570637960638698*^9}, 
   3.570638011984238*^9, {3.570638079333127*^9, 3.570638095658256*^9}, 
   3.570638134139608*^9, {3.570638167937682*^9, 3.570638206421284*^9}, 
   3.570638240767749*^9, 3.570638605370106*^9, 3.570638995545155*^9, 
   3.570639087003412*^9, 3.5706391533229*^9, 3.57063921246218*^9, 
   3.57063927898142*^9, 3.570639341941427*^9, 3.57063939604764*^9, 
   3.570640786506664*^9, 3.570640837634333*^9, 3.570640891284489*^9, 
   3.570642404279659*^9, 3.570642462177624*^9, 3.570642733273024*^9, 
   3.570642832360943*^9, 3.570643461261037*^9, {3.570643499458168*^9, 
   3.570643511459127*^9}, 3.570643608044922*^9, 3.570648019218054*^9, {
   3.570648056516137*^9, 3.570648086357326*^9}, {3.570648130178736*^9, 
   3.570648156246073*^9}, 3.570648203010915*^9, 3.570648362639135*^9, 
   3.570648429912817*^9, 3.570648501930945*^9, 3.57064862987696*^9, 
   3.570648704305191*^9, 3.570649248301603*^9, 3.570653858169797*^9, 
   3.570654016065744*^9, {3.570654050203042*^9, 3.570654103213944*^9}}],

Cell[CellGroupData[{

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.570648057018836*^9, 3.570648087927434*^9, {3.570648131773521*^9, 
   3.570648157902485*^9}, 3.570648204684953*^9, 3.570648364331845*^9, 
   3.570648443906995*^9, 3.570648515915768*^9, 3.570648651957161*^9, 
   3.570648725586769*^9, 3.570649269234037*^9, 3.570653875745453*^9, 
   3.570654016603846*^9, {3.570654050353713*^9, 3.570654103345306*^9}}],

Cell[BoxData["1"], "Print",
 CellChangeTimes->{
  3.570648057018836*^9, 3.570648087927434*^9, {3.570648131773521*^9, 
   3.570648157902485*^9}, 3.570648204684953*^9, 3.570648364331845*^9, 
   3.570648443906995*^9, 3.570648515915768*^9, 3.570648651957161*^9, 
   3.570648725586769*^9, 3.570649269234037*^9, 3.570653875745453*^9, 
   3.570654016603846*^9, {3.570654050353713*^9, 3.57065410334864*^9}}]
}, Open  ]]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Print", "[", "]"}]], "Input",
 CellChangeTimes->{{3.570654016799147*^9, 3.570654017551214*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FractionBox["Qq", 
  SuperscriptBox["r", "2"]]], "Input",
 CellChangeTimes->{{3.570653871115998*^9, 3.570653871207316*^9}}],

Cell[BoxData["\<\"Hi\"\>"], "Print",
 CellChangeTimes->{
  3.570648057018836*^9, 3.570648087927434*^9, {3.570648131773521*^9, 
   3.570648157902485*^9}, 3.570648204684953*^9, 3.570648364331845*^9, 
   3.570648443906995*^9, 3.570648515915768*^9, 3.570648651957161*^9, 
   3.570648725586769*^9, 3.570649269234037*^9, 3.570653858456173*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"#", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "&"}], "/@", 
   RowBox[{"save", "[", 
    RowBox[{"[", "1", "]"}], "]"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Length", "[", "save", "]"}]}], "Input",
 CellChangeTimes->{{3.57064838341959*^9, 3.570648410909831*^9}, {
  3.57064911792482*^9, 3.570649178271738*^9}, {3.570653937203555*^9, 
  3.570653951441748*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {RGBColor[0.24720000000000017`, 0.24, 0.6], PointBox[CompressedData["
1:eJwVl3cg1f8Xh8uOL6FUSpImUaJE6ERZCdkjJaKhyN577+265p2ue82ihHBK
ohAlhSQlDUIoKSM/v78+/55z3p/zOs+z0/6WsSPbmjVrNrGvWfP/71MxdesC
EyaucLiXLR8wA65h/R+ORQxIEm+OD+/Jgz8j100fZ2eAwHYd7TKpUEw18EsW
DPGFa1+8bN++ysNDCdu4HJPzwEjCh8Pmdho4HVA9lJtWBGOnBqNkP8Xg9JD6
qGQMBV4uKl/ZdcYTwi3ejp5MysaeLzxP5ZZzIOK1vNCFs3nowJ2rXB6vh39l
23qetBVhgdWvMK6cTPxsvWtfZkQJdD/x8fhoHIOivrl1Gu3BOMcm+1vW2QTl
6jzGTO8Skfe/uvdvsAgJ82krjYEZcFT5qEe0BBkOByoShNoLQfzcUEtCAhn9
b7LL312kISXiY2DgWSK+i7hA3l8eit2EC/yfSb7QJu0pPldFgZT9wfs+LmTC
jfb/4A1nBP6+7kDWlmegs9DaF8qGubiJcIX4kCccFX6+9RRQT4eLSS6XLutS
UCU92HA4kIA8j7VIzQvp6NhdfbsbivDewYMHB+ZzsbX42K2FoTxcfjjOVbqt
FOWNiuuNN2ZCSkqk8HFVIpg355ccSGNgneTct9B7RHwaJ8T80puL340Esi+k
JOPSYNvcu390fBqeKrPVigEthppRhc7OQH9+sU6X5zAap+m17U0qACdblPxy
gwU/rT1/1Egx8duv0NhBGzJ2lT/JV5KiQvacfnpgHx3ty21ocaRMXPvGrA9O
FWNYI5f+m/pCuNLnyRa2UAQzar02+sNRqHvLP2QDuQyLaWzPDCRT8OFZsw9/
wgrBvXC98N4Oe8yDloEhxxKIOiV1JELAA8N0X1amMrwxO7sHDT0doMNt0S/g
iQFWCNLwbUsMkOTGpB/F5kBPuuRhr6V0dPPduhQwXQZ3sx9t141NB54MtTXE
xDLMG1Y+9fyrJ7YWyi1dDiqH9IdvNZJPZsAQ140hoXkKTpkcuHZITQOXJ3o7
XjVkINn4x/KtARLcftdmV+3tip8krMvzs7Lx5jbFvespmTDOZp56bF8ehK3M
2y4YRODm4urGUvl8WJN/jZvtSzFuMbHlcepn4O9a4kj91Qxc1xnD321bBLb2
dR9219Ew4HjDFq3XVLxoVrDU201AvnkTi8bPGeixwm5M+UrFxbvlopoqR6BR
duNJIWoqDKl8nBW4SsHWiEb1vSQmap2JLEw1z0NrlTlD3hMUaNf3z7l1hwqn
L7h82naeiQ5vLw6Nc+bB+O6JgyrzMeCj1rbTrsMOD4u6GUosxkHckbFf7muZ
WHSQ62LOOzJsyIlZc49Rivc4R+beWuaA94s9sm73suGabEravj1U9Hg1ayv6
IBeo63ujdu+jwfVfHq3i/TQMN7II8fC/CdoMow1qG2KgWpIaMWkQCXp6Ro7b
wq/ivmzvtuiGSIiA4+mn9YvgVot1kmMeGQ1MBe4GalLAeyvn6/YAKjQvPo8d
2RAMMpVb9zUXk2DXwhK3K5WB6y9tDdYXp0Hrh7gh3mEayNz5LRmim4I99+P3
lDvbwZ8diqnndK3hpfi5NVPn8nAgZJ/Y3oVMTB9xFPJ5k48cssxeTYc04LB2
9LroRIBI7YZtljsTsTiQQ+oBfyzuc8lcsQkn4d5OAQcORjmwNdWGuJuE49Kh
tbFivJEooza7QSqTjHHeDyNnSHQsyq6+8XNrLthQM5WQSYHZeGaypxINZ7zO
xfu/oeDJ1Em+Sn4mrOnLaXweRAXnnuml6pDrKOsrvcXSqBxftH5OTWIlw3lO
c+6cYSrqcSKntw8FLgjQWw/6V2BZvbfk5hOeSJftdJbLDAXLal1V5tkCUJZX
q5qJY+KVgd4Dj3ek45scWU4bcQJKoeSpJ7XBoKNB1y6vJEOQiaK/kFYoPPP2
fS7alwwB7zKmh6Up4CM7I570h4ixFQFPGkXDsanUzYd/LABOXWfTEBKuQDJL
N3JkSyZkrHS7ZRzJx/7cuQhx/nw0Pl516MedBKiuk+q+xUaD3Q19TW/FHFHY
sinFy5KBsbKbeO96EUA/6L3kREgxpH3P2Tt4Pg4/znBYN5wl40CYg7zNXjLm
Z19harwKAYEzHNI/FJLxV+fdSG5xMt7LYwxYdhdjxcFz2hJa5fi0+HzeR3ZL
2B1kuNwwIY1fbYiEaDIN3pjf2Cj8Mgo0RhpXvk8S4Ge4g/b0Z004WKAeWJZN
QYH46IZHIdFoSk1YcH1BgGk1us1DZSqeuXLyytuMfHQrH7YdiPOC4dyvFVN2
ZfhBzEujpqsYPy76FUQ2BqKp6AvhF0+TscN+cbtSXQyU5FA//a7LhPffhopZ
X9Phwo+NS79YObB9u8zaQs0s6DgpG/ZmPwEniANXreZZYG4yt/+UjQN+Sq+8
aJGahBY2PLJ179Kh5FNR4u2gDBQ5xD3e8LYIH3lqKieeJUPzpSKK3+M89FsD
2Qpc6ainIPupu5GFyp2Hxe+SL+MZNrU8s7FYsM7i6v+T5Q6S0tKZX24V4egB
chmbLx19myCKcrsYFv+N1PyzdIV6lxHz19v9sG7JYUPReCaWLQ9fOCEcjrP/
xfm3nqRjojwxxnxLKR7/SN3mSb+FrjWxLfvmQyAhsC7V7I4nUG+L+CtFZ+AR
csnF9sIyVFBt4f09lAvhtRz3D8+lQW3HKPe8KQlnZqyTj6e7IO+n7LRCOyLo
9klC5Y4S7GCN5EoHR8BbH47Heqfp+FVqejQ3NwUx/NjhVzcTIVP9/COXCBLs
/sZskbtDxdfHSqqPmMRD0ZktDUlN+cBRZUD/Yx6K1ie0mtqE6MA91LbA25WF
6Xv9evN6KECV3iaX5BGMSt6Gpwd3xmC2pCH5r/95KG4lf323pwLZzRSzqi0z
kKfpi+h4Bgv3iyRe9zUkIvV6C686vRColqdS3unSUILE5hSYbQTtb/aVikbG
oeeUU81B1SJQ5PZ2P3KQgS+/aw2+CMqA73uKLifys7BEuOYSsTodn8fLpcd5
5cP70qoIzqUs4Nsiy+/xk4Jffy6cnrxcDBIc7+R+ipBB9naTqYB6Icb8tpCb
ZWTDpQ1qaolDTFysG25aE1yAV+nS5WnBNLDm/3RRdEMspFDtrRxfpKGb5K/M
fzqF+Dhp8jarhI4coXR+Dj8izoYtePSL50LEdOX55iUmDBjtYWdo5uOFXY4b
ggI9ob7W3/fGMhF+/deZ5U/PAH5h/QBTu2KochG0OpVLgFs7FAcf/KPC15Sf
H1o/uMOu1+yFio40eNf4mjfENgF2E1z9bAOSIT7+yN7GL2Q8UbLn1Wi9PZrK
W1vgFQ2sPp/X/2mFheXbL/we3Z6E5dm+e3ZMMUHSyqIxJICAvmkvz8VUkeHA
UY+p9vdR8O2syqGp1Zye5RjtWpzRwMKqM159o4U4E/h97x3zVKjPGuKKiY3G
F/IUP4/HRPxafs5cVYkIjqJ1O/s5E/DdVEvUd74SKEmRPEESscPdwc2GDqsc
tbOrVz1diwKClec/dMX64bZR/Vjpl3Fwdl39clFlEv76qvFXby0JlLbYJIRA
IRr5nt3kvDkJPD/5MiUa6MCXf4StL4sFni+s/66si0eFd+8M8i7T8IABuSl0
hozGPFQj30oa3gvyOPY5LRlDj2480mRKwMPcPFt2rMvCD5HVwpwj+eDEpX+e
a78bKEgeDDAvy8d7rwajRU8ScOrk99yPriQoKB54whGegekSLSmZuddgg968
nGsrE3f2vW7SfEzBFg1pY5fZJCwkel5aaCnFAtnDI0pm8ZAX9f7gbQoL9cJ0
WzSFcoCrriX/eQIJk12ekbrPpWKfmb/aaTIBk2fyYSKPgWo5ci1Lsrk4ZtVD
HcyPR66PJ9zKQmjwa17pyYNROrKP2wXprM2Cb32q6slRRFBwYJ38P139CCeU
W6xlQHxO0E1ZbgboTR8acCXthf4AJw2WiDUWRGpXW/7KwQCJjJN/d8diHKeq
Wt8fBvTV/Qg7IxgBVib3nsi1xyFbB1v1s+R0nPxlSjNTZ+H74Gjmg3g6PFTh
M14aTYDjGXffhX0no8zWfa93TJHwh9PlidgRV3Qr+yl083YY/rCZrN8jXojG
Sf46l4glwGqsDyNTriDnyYrSHstItAl/5DY2zgDNw1x65R1poPrG0VM7hohZ
w2VSfBeDIDE0teMOhYrVx+1ktD8646Dwobr+Y9m47tA1HiuDBEiZuZEXrUxD
jYvzLRmzNNg1097lE8LAI5mGdvV+WSD+ldCRpU6AsvYnrWFeNNg48r7VbycD
lCeV3lon56DwlZNGJZsJuIs8crf9bgaaDz/r5LyXicNcz1Kf7qOg5944286L
aUA4ThwtSUnAg0dy9aO9iyHq3viBdOVMvNjFMyKwmuefSly4j9US0dlT5qLn
qsdEW/6RjtRnwecC88DUbBLmxexfidNPgMHRcakG48twbyAmkr09DA9tevbx
/ipnXa25L5LcsRXj7Uo93pcxgRUXqFc54I/s+h5Z1/KLMSIg96LPGl/8b8WW
Ef6JBac/x0m1G6fjMaYqm+NSGcTf+fMgiByIzJynO4wn82C9zsSYsXIoVDjs
T1pHDMdvrXV2fFuTwNHXTGvsQSY0lfr1fK0lwsnWgG6Tn0SQ5njo075aT++w
hv3QJk/sv5H4Nc/IFa2vuO/Ap4n4XPdQLJsHDVoYfuXB3+gY83FURnq3L1AG
TgUuUpnwOUJ604uUNJz68afSVJWMLWNCMrezCuHaDaHK3zmZcJjuydrgSYTK
gt4HbPnJwKo541S0nQq3uB5Wp1jQMN87ZSHYkIENvnvJ7ECHKz+PpiRPZMON
yZRFdjEKyN2/8OqtYD6QDxPm/V2iIadIOk7vhDP6chUZj/+lQrqLvMTzPArw
2oZs1UhJhmX3q2FiB+nQp13s1rErDl8sLrwNac7Aq/eVRFT+JWCThHZb5MMi
cH48n3Fztd6wwi6zsJtMeB2lo/PpNRl9Rc5daWQRwTjegaM5NwvtAqk7LcpJ
eFq72EPavggr84d2cakRsLWr7r3w1wjcJPNIbv/GCugroT17YJSHIw6ZFwuS
xCD+Jt8r9SMFKLhyc7NQYDFa655uqubNx8InKtKnnzLxVLCj0GUVOgiWHb4l
9JMKTmWXT57Qp6GBO4Rw5WSD6Fn3xgQ5Al69PVBvbpMJ1uervdWulKMitSn7
e1UozKlO/ZQJ1wKNsw2rNzsd7gmdeyjfVwTrb0v1hmtkoeK1TlObj0SYsaQ5
d4xbAdsW3ZGYIDIu+Ae0/f2QgfzS/+p2DabC5fkNEZski2Be6Kye6FIG2Fap
k0buEsC+gY37P+tC9H8g429BLcAwu6iNHv5Z2DeoIW3JIiK//oJi0lgCmnZO
2xiEE3CMmfb68XI0Ct8xNP9zvAQpV/pM+Xoi4UL4+JdckVJsGf54VqkoHySa
+U6G8DNRuqL1bU9LKSSrvj9eF5UNXWPCaXHjBSCb/HziWjsJNjXTjThoyWjK
FyS+mVqMb8n5eZI8DDgWbPheqCsBNGnXeE+9zAB2N9I1g1NUlGMTjuooo8G2
qiTJEgk/nM9Y79DdQoBW9ftCgqvvlpi3agFHE7DkwP1dQitW2Pfr76+PPvmY
zKwi7R/1ARtP9/lhvACmbwiGp+Ur8PiS2tbSYSZ02T2q++1TAGxFYZYx28hg
tWmTr6ckA6of7HteX5aGdZ4cZh8/xuNya7HcrSfFwDsj5SEwnINVXUEeCVe9
cLue4FednVQkXP03rvUqD5hf5wpZh93BZ8zpkohxGFgMiGbW9pfjhafvz8w7
ReHVky81pNpZWKvfIxpUWQaNs8aOEi9M8cSn+ZzRHAr4ffhWAceKMLaWeYN/
YrWvtHTKrSUaSAvvleeJISD/nFyjSmcJxNfPqkvY+2Fh2EU6hrHQffcL5cdq
6aDdOkC7f8oNjyQ2PLypVwIeTt9H5u7F4NZHbW5zK6uc43kl9zI5Ara8WeQv
VUkE/kf6r4JW/W0+/pSbtn02rPjcD3Vri8DPyvVkQ3oaCvTZb9q5LxUyqn+M
5P2g4+Hjuo/Z9P3QqP/IZdvFMKzaeFvwvCcR8wIDMhx1/UF18+D63JcU2GNw
p/zUfxkYD8xuccVc/BT8aBvjDRP44pL688LzwUv3zY/DgklwfS+nM22V4+80
jA7tPpiJZraKinWCJRj6MXYgwdQLDwVmuG0nF+N1a+FyTl46pE479F4wSwHF
pVccbXHpkLnWdLNUJwPvRPmIDoqHYV4qcdRsAw0DaeNvJirykfVqivBb3hO4
Hj8g3W9jwqHYE6zGH9HQJ5q4+04RCTR0ApJKiq5BtuCmMlkHGnTEHrEjNkbD
JottqQXO+ZD9ub23SzoV09x09dsupmJBMFMjbjYOdVgbGDMXElH0CVvCqY3l
WGBuqdJlGwP1ozZDXt6FMLEmO03Un4xS6zqbdUSYYHdg3MLndQq0Psq6nkaj
g/wjg9Ia/VIIKthY178nF4nat9duViSDaOdVl69HinBn8Ngmf6XLGEkutbD2
34XflLoVzW+w0Cd4P7mtNBgyNuzM9tROAZ53AnrtlT7YqbPUxLMmBA+0Bqq3
m+Yim2S4f1YwExomYjcd35+HWhNNGoM+xRgn9yJOKI8AJCuGed+xDFDVb5zs
7aTiJiW3nKXDqSjY8nb8rB4RfxygvHNb54stIb5GNu0skJkvydpQXwYN7oKn
/ToCke+7vtUdztU7fKcn4cPHUozynuI/KkTBQU2TFZM6KvauPehA02XiHkqN
1/uX6WhhvN6Ac9X7DRR883YG5mLff6GHQvb7w4wNhC7GloNLr8uHKZ5ASPnB
Hl/jU4J2Do9H9+llwSeV8wXHLxFwu0zP77xuIgwIdSk9YcvDvyw3Xg2tPKg7
qW7lp0OFX78jjsrPFcHufVIcf27lI+X5+5fPrELw0pPHEvsMImBjzYnXu85T
YNqwQWO/ei68J2g0v02hgcJbGdHHoav3hG7nyq5KwltP48wLTicghYNvsVOz
AFwEfIwGDxFRpQACCVoZ4BLWX5hwjQgGFnebSsTz4aWpcb1aJA0V32TrqGl7
YvDDXg134VRkioTXPuCiAZHr0qlwpQRUpnts2QFFKKiToniJmQEfb9uPvCRp
g+JauYaJ76mgE/iPt6qdsspv2TVH9xRB1ZmrDSerWCh+beLq5Zw0uJz29Lij
BBk3nTd7pJwRhW4/tL7ktq9y84BhuKMSDcgm1k4ZSgZgWJHquW8iD+PDHkQ8
y6Ch49fiGS3zVHwv0OpW0Z2EwzIXye18VlhsICDSr5cJ6c6X3YPXMdHvh8zr
zy9TMLXlWMIMgwr8tZ9EIjbmwAFj7fbn8nRwPRcTqyplCRc5VrY8f5aEiS71
2xM2lIDbSuXvaP+rcLxnV0IoPRwtJk+GpF8rwUMO7y6FMpPBYc+KoOoLBtrN
+F/mzYzDtc3iw0viZcA93URpJqahgsKD5sDxMuBqpPWY9bmDpl5W+cbDVPS5
QH21YEdAJyvSM0lFBg5zTnBrloXhoq3q7CJfNu68W9/XwU7AeDmVabaaSFjb
WqVwmxwI6yejbpw5QUPWPuGWm+VXAAcvPcs/VIqxbDE+eb9ZGKfUo9r8nYjT
J09uNX+TA7r1DyyjqQXA/+msSEFgDnzfGmypKM2CQ9GtJ7NcGSirXTbqtZQO
jjw7nEzehMPHX5yR/5F08FfYPcHbzw2x4WYAV/nJCuB/bknS/pMIRTvvHO0V
JkKj08uFi/M02G7SRPgqbw/C22afKLfnYSLjtvScjiW0+X7SUYmLhbOyY6m1
MQTw+HMo6pZaPP75s4bcTwrE31VPLlQWMuDPQLJ8pmgi1Fhbuj4pKca60bLK
xKt5uF9jprvxlg5sfN/p9yvYF16+DT+9J7oEao4WaE1fLQAPrrGHm8tzQFlh
YDl5jIrc1kag5UGEpNMp9uU7Q7FJ+GG7hacBis3EKCqJGWE1946auptFOHh6
/VkILIJ/d0NwaMANkuICHCM3liLfyi+9fakMnMnkCXDYFw+CO2xjrWVDwPZP
nPPo6nxBasTauz4BZqUCdihvzIfY/Bdt2sosiLB3W2j5no13z2hHoTcTmyRr
W9xX83MxPOieQnMRNuu/cqw7XYSiIZfU+/ULgG/KJPGKFQuvc9z/yk5lYGB9
ceS4BBU/cfafevOTBUd4e18xHqaB+NJUiVdNJpQaPU5/sI8F2ZNXTnUXpEJZ
AJ9E4dIql92WmzS2o6P0nZp1NCEquD7UfKtikgh0/neNwWU0PJsT4r3FvxBC
jzq/Wo4ugL29tl8q9lDRaWLqn1pbMZwL6kxI3E8GmWNx62qekWF5VlkA/6Sj
RM/PiINPsyFaWueTqagrPlt7VkR7IQM2iXv9btoVjGKFTYdm/5WAEN3PwJpe
hCbcHxLOhqdi9y9WbcJICLw+oPTJqTIXhM9FLOg7sdDqYcy1zVJhgO1cLpfl
QmDt8bUjJ3UicVPbtMKRB3S88FeDrc+ZDLUySi4nTNVxKb/ZT0UwC08bcnC3
dibC2uuJERrnafjij8S//d8i0DbOffGUPBmVNCuSaNQycKE1qb/sjsH7f7p/
HXySgTq2PdTrShmY/f7ETc2HFFTmvUXj5GHitaFjRoemC0AtRWZ6UImF0sfW
3pjZn4yHO1wM8wTJ4PSoZCI+Ogec2RpxuD0dFQ3vOsseo0CUk1hb3OVI/PbF
+kQCkwR17+ayl1c9y9zrrd/E1atgcEPf9l17GSRtfK7D+6sQ/r7cpjc4lQEx
UhOPlczcwaK9NjhyOwvUvifMBStkQG+/JlhcYIKfvLmHO2cOdl6Y5fH77Ysu
C38cfHano2SH/JQtMsCXfdk28TQTT5NT9uxZb4XDc85F/E4pmPDTV8+Ei4rK
vdG291boIKvy2uzLTgIwDxzeyReQCrdWAr9ynCqG5qbHVVeICXhN15l/T1MR
Xra4F8g/log35SYN8QATFrcKzU4nM9E4/IfYnpAIID4yP39ZlQGPdtjv0xBL
w+Mt8+wmKzkQujQXFyWZicTRpCsfOulYQjSzXb+DCFkvYk6ubCjDSdcnLmP3
fOGNwfi9C/f8UMtfLWzdewoWvTnknnqJAjOO6ec9fuZDZXPBjaKwG6j7MWxu
2ZKGIuui84dLi7Aw2cCFn4eOcz6PX/8memPyra5H/HMsjAguvR4zmYdv1lmU
4EIBiNVKeCsSV/2lrzt9bC0VV2wE93yzvYDs598Vm0oRIeK8AO0gOxUGn0Zc
CP5FxME9jz5XCxFg6LeHYb15AD6z1dhZ5BeBQu+5TF8gEztVRhxKOKLBqHAj
/yWJYix+pZb47XcJdihz2lC7Y0HwaV/cc3VDZHTOvEt3C8dfHy4dJTUVw673
rv+9I1Hx4aeGeEEpL1w+t9PFfBsT7ij5BMbyr+aD733VobtJGEPBuP0O4Ti/
O7XP42AWbicdjDDeEARmlzpk70rQoS7k+pSasRl+k1bi7koyhptTxi45DQz0
OP6yjngmHyUeMp8F5hZjqddVuVp7Gga3xTW8jKHC1smnD3Y5+cKHnuJafiyF
CwO3rV+M5mDz2rYrFav59d3Q/ssOt1Tc8fPT7NKBPHBgX0wK1M5A0lLu7rne
ICzR5EUDyTJQ5dyaUtBJgb8FrXzzKamwUn7HNvOXL5h4SPRGc5ZBWWlFTf8g
BetVIjgaeZOBzdXQMy61CFQ9dmTlc9MhreftQ9abVNQVuq4it7MY73q/lQpO
jsWYhhfxKjpEqLe42RTxMQGyjWfHhjcQoOOlC2fgIg1+1J7JLuJLxg/r+yzv
3M4GmSBOS4dHEeBFMwqgTOcDu/ErpqI/DZ69saO5RTGwsuyB1i1COPTU/hv6
q7Mer02lSE86pKGk2xOx6tW738h5tFMvKR/e8H77aNacDtxWF+cyV3341DY3
2bgv4fCcJ3n8cnEYuqFtev2X6/ClZypROJcAj7J2SJ/RykWCaKvdwzQytnmN
Nz2/TwS7JmUntdQkVM5wOnzVtwCI0k6bDlHTwF3l1UNuMQK6BD/aWn2xGDl0
KlyCKbkwmii9x+ZJIYjVz4iEeZJAwnzP16B7DNS55nRLadQZXleXGZBky/Cg
8bJa2OZo3CuecI9WwYSTszD5+1sRzHTUE2xDc/FAu2BOTQQDSj58bkweTgAe
VR2KwwwJPEd6Gxv7GdD8bEzKxr4AXrHtEnlemYT3+DS3MVRjUY4zYJ+FTzq2
BI+rdP6NwuXhoUSzxnjsXF678u1jDhTP3/lAUEuCZ7u2Zy5ord415jo56qNE
dNGq2P1jigq8BiruqW4RsLZA5NUZZjGk7N+x9HY3BVqPn6W7XSDDf6c2z4xv
j4EbYpd5r0lmwZJjbhmlhQKhB2d1rliwYMattLb9JRHSsHZszi8LX039uys8
5gFHfWQf2FgmwgGHiXA/7wSo+IebHp+RBROi2vKeend4fr7jvGwdC55zdS5v
D83Hrbt8CZ+o2fDsUfe8Y0EaOqrWTH/nJ2OZRlm1uyoZdWsWBDYPkaDnA+FG
smk6hpznMRuMomJd2N+Vb5VJEOV6UWlAigZ6O+TeTKtk4uI6y+972MgQ+emt
j2JqIlSYD3rNqJbgbpOEhL7XBDxT8djLjjsTlc+r0PdtW92jtWtDVbdTkNw/
IUq1ZGLfvbVBTfUs5JW+GTbLSUKGx7PBK7lkfPJZVyX/vi34WeXTu3USMbL/
BpvZDwr2F5+p2xxcBEnhd1Xb18WizZlvLdV9ScBa6bxtdiMXT6edcj1/MgkV
L6kdT+wkwEutTDuN3CJ0lBWlDR/2RqNIXxUV40y8tEtHJfa/1TzjWsfRJk+C
0dTnbeZBfjiwMld2ImLVj4lRKi87wvFe53TXznd5KKEy7xuewcJHVccbNXkI
aBgdbWWyphRY81eWS1VIMDgQzn/GMBwbh/wLurew4OuVh6ZVA4UQa2EzKelS
jDQh5RdZlflYs6ZJvGO1v8bXWv/uyVCgaF3fCYZcJsT5PvAyvcjEJ6mZ64aY
JajwCY9Md0aDtV9kvaFCMZg++ZzocD0ba3rfJTU/zIPb7LYVRxdouDnnWp0u
gY4LhzKDN4nGA29k8gsnIgusJoL86tlICIYem3UmSoGHedCZKZaNi8UBBqNR
0SDj7jXfK0PFuKr6w8y9qZj6Z8rj8Or+BH3t/hUV44B2+77cOXV6tf8X98OD
9PPAefejbx6SLCzdrhjy+1wBdK3v5WnjjkH3+lNgURUHEq+exaorknC7GLcp
y90cfm+VsHKszsOFx4ZDf7UywZixJkolMxHsyt1IMWwUCK6j39vtR4UxPz7e
/9zt0bpDk6PCvBxH/EX/lL+MxJqt30Jz0u3hTfOJmb8HUyA50SF2XiUL8i39
67i/JsEtD0y10WVhms43x0vZpUBYtM93HXCHX9+TM+75pULdsJiw4GEGXnx5
2zN0lcPvcgsuj+kaglKy67MFOyZqKD1ulZlJxFsz96tyHVmr7/sgN4M9HV+c
uhDJ/ZwKunZN+yNrqSDfbVX+wyMTLz6xQ5krZHgrVqpvf5+IsuL+a1be5uLt
ArnZDXuyQTj0cuubgWyYcDpmxhNrDM8u7fFnnzRHHyf7JdKTCOCTX3C/+q8U
nqwIsV25SUZrp1A2LrVi+N54JEZ1RyHOvsoS69MOw5pf3PqbflLxqyvz7tNv
iZhS3tS0syQZpg+Iyi5vK4HxQ8Pc783KscxZc+kLdyAKD9/tatQkQUR/PMFz
JQwyfjkLe70oxuWpzouXm3Mxa7fyjQhLCrBV6FUJ9uXCsDct/qw6FbfF1Xk8
TSJAfv8E+RVnGu48ekZWSrgMbt5sLGQEe8EVKV3zbemeGKlhuWs5YJXrFtLv
1L9IxzcH+zu8tsbByuJw6hNSFm5lbjYnzhfgMQaeJWMepsnMVcmLxeKxbPEi
18UwjOXk5JzniMV1OoWpfw7T0ccoln+SmYl/9n/uVakk4HuTpc1Ovplw9IOB
mUb4dSwLefP44aALNP9gaa45XoJaP24cTVpjg6oatoLzq3nRWT3t0aYYBDO3
RbtXNKkoenHZjLHq6+LfFVz5wnPAcrQq6qNTMeRbKZhsWfVZix2yhZ628Tgp
NZf6OjoZLy5+mwqQ0ETLvAO6r/RdIFZvgkvtaRz8Szv0dzbzAmQ7pHAPqVNQ
VPlYNc6GQLvTwIlGWXswJH/g+3qRBgE9thrzeymQEezQUBfqgh82sF+NPZeB
4tkWZ4YPl2GAbew1O/c88FQOP17dtjqRP8f91BuZuMZTDa+dTodUyeSvv8JJ
cNGqWZ1zgIXXLrlUMs8V42DVqGvXVhquM+u1cDNIhwRSjluZGBm5yj2Pci5c
gwNBEgsHl8uxeP2pMdfIVR9YeR93YFsRkGy+XTKfpWHtDxf17oQi6PrqqaS9
uv+2tzctdutl4I+LS0WnHhORO3x7gh93HJTEamT842RCinas2bvt6dBBbemZ
dMuFu2VchPM7fPFHmNQu+n+24LnxR+QAWyFUZHdF1S9TYNCae1dqGRUO3B+d
P5zLhL0W+RJ3fA3hReXVvQM7PUFCoFvgVXMuaLopv7odHQ96LlGXxo5RwUSh
aYbeSIKZuh3eGrn+IL/bxKL3dDHkGiWtbfsZBteW4tTanWhgfcZgpaHABQZi
/RUUpclwVTIn5vqIJ7T7nq/7/awUA925r/Q05uB9s+DhzfeZWJvATqGzVuvS
vPI+oEAd6lO4ZB9wMHAMmTwKQeX40FW1s6s6HkaHsv17vIlorPKZNyImC193
RsZ3RVQA71vDx3p5qlC6sVpg4TodLDr+xcvnUdHLSzvm3et0cGhrLM+ZoiBu
FNK5TSoAdr4zfO/t80FbbP6jg7IQiNEvW3cH0kB/f8yZbYN01Cyh0c8G5MP5
DVs0dxaUgnpHZWLgsBvcyFCU5xWgwPqhoBEpOzcwfnBXy7966MSV9T9HfnNk
QDTVZPqDbA7YzcWGSZQVo5T3WF9nXSHoPvNPPitGhBsnajfWmlHw50LMBP1c
CPxr6H/oyuuH68rkA1lsRdgY6RZ7/FEGLL0USOsh5eM5jp9JBF8m1AwlvAhs
9UI04j4mVEKHP2amhDvU1f0buX9g6UYqXvdbnK21I8KL9+n7jFrSoO+gcMN5
k3DgnpT9atsShyq/yr0SYorBSKHqlsqVVAxniBrx25Yj01q8ZbErBhs1Qh8E
CVOR2LW0vivfEcOaWm73bC8C+2NeQjWGIWCoyD+7ib8YdhSWmWl9pEPuwS6y
0TYfGPqvIIWeToeHwgJW1XfssG2TU5xCEwNfDlFTXE5R8WXtodzNqZkwepy/
Y6I7GUUumS/9HUtBrbrtGkAmgQ13okCPdxrsI24rIP1HBapYbJb3En01D83X
NvHT4Ihifa3zzQQ4gv0RidQ8FPr+70PLf3R8Ptl306OcDIRNvumPS5h4zmfv
m/P1BfjIinQrX4iB8l9ag4a68vDFIHVxVDkNdg03DKRKecPJCWvXZyeZUGQn
f9uHOxWNdjG0BE/Q8ExCdcKtPwWwRSPE3vgwBTe0CZqqr/Ijv97R6QMGGRj1
4FDoBwkCyBu/E1fppsBcllLZgT9JGG/QG31VOwtNZSe2s8dng1th9wA7lYrv
F8gr+s47oCb1b+9gWz4cCiF7+rKRQIQzZFPM52Loeas18Wx9JIgL2gRqYyyo
3jPpkf6Xj5Q16PEthYKV9ijgxeGOCv9co/BfITzZkDDcrJwPQ18rOUJYWchp
3Fn64DgNHr9OiA6kpaCs85rmdY2rPPnvizq3LBns/514+8UmGQRkztXYThFA
IW/XwG69JBx7+9BwbzUJlR8vRD/9IQJiopqttX1MuCn3yEtzaxbccLTft7G3
BIk5a03Pu/jAmTN3oGxtATJ0FraP7GTh9wrpPVH7yqDahpKnYxkKJnr8Lrdu
JaLG1UIRvpfh8KvbbbcDZzg89Byy5vgcjPej9xtXiNLhyae/yYH5kTBS5Z1b
W5WFwiR3IisrBwN6bTc9olLhkFGSOoNYDOJtid8CtBkgdI1NvpCRjuwco5O6
vaHQJcCjnHeDCp+vBZcG8MdA6SbNfknbXLQUUtbpdU+Bc31LRQef5aPj8JWt
+vYMDGaJyG5874o/4wK+hq4Jh9oDIj7UKAokfdo/uN0sHyOUHGNv/SlGB6vQ
5+4X/OAHq8NtszkDjoW9n3wpkw8CcUeCC73zIOb1Huf3oQz4tt9bQTCYjPfZ
XiT9PrNaZ9Fx5leVQsyu7ai/2EQC171+Vwv3UbHyrkmCMJJhaEaroeUPEwsS
6gvhVCHUabDZpOTQYMM53eO4+t8b5GLA6MZLkL2lf6tVQwY4HdhAeLBCAsk0
IZ+jUgRMP0jqksukIEV0fO6ECQHsKyRdj87cgDFvf9txlSxsVlDSUtjpDR5K
BzefFFzlAqU2ZXulPPz9TfToD70yVJ9UPXh9NgPHRUdK03VjsJL9QSPylKFI
t+iNkrXOsG0mjtlhUAGTgjUL10nF2NN8Qe2uYiJwMmRy2m5Fo8+fAIV8Og3S
iNa5nQ8LkOat1JX+hwa08czZc70FeCtjXsuWzgKfzAHx/pI8gP1H7QkcJdjq
L5+tf4uMkyfOzvwNo2JFmeyJpQtFcGd3PFH9fDqUqX82lXxQjKcmLddv2ZiF
j8mDNz/dYUCkp9G+kW8mMGoK1HtV7uihr8nomyrGxpqC1q2WBeh3KORIvCkZ
qpYvbTb9l4F2sm30wzJkzM1V2zVJy8S1P1svreVKRQORBcdgGQK+rOta3JHi
DqSEq167tVk4dljr3QO+NOAT97kX60nEDtKQghPLFzcuyZY/jYvE33jDUXwk
GiODtopMrsmBJkGR2R/Pg3H+u0pDlnExpjlGnw+4cgOUjqsKRamW4V4Sz/Id
KW+ceVhS2/sxFUTO7lkJXYoGWrKuBPtXKiT3iX/Yf8QaU8xDFj7NkWGvZd/G
FM4c0Eq6K7BhLAvbVKbj7V76w/EUi9L2HCasPfrpc8PbQjSKfrkAWILP2pfX
iFUTMSjsRVO5YAX8tina9swrEnaTtmwUel+K8lKb38eNp2NyRWxQzfYM5HE2
kbK5mQcKbWGerolm4FOTxJbgng+Vus/GOJxzsOe+6nUFs2KILNSx+21BB59o
RkIY4Rqq2YkRTvPQkXF2WFXnfhIUtF+86+2Wj36Vd59npkfi1HtBpciEGBS7
87zpWgsZ8gOuZWV9oaK9SNr3qtx4+NfN+wqUo9C0cFlGYLQYRAzknlgtXcDb
NPfghJ1M8PilmQvXEkDkAEm4vIYGE44dp4YNlpuipqLLf9MCoFi5c9q1ww1a
eRZTjx2IxPCtaratukTMD97H9K4vQpnbY5GKW4qxQjs5U2FDHLyS/CeURA/H
rzoKrAJ2XZATddxVP0yDkMOGac9PZYH0jf7F2Z8s9Im50yH1ywMTBGTqHCJj
gfIzIkarm4xUS5szQy88kCt58unYk2JsaJSrUwhOheMleplnbzJAwM7uMffP
LGSsbCUVlVLQ6GTA3q0N6SAxVfp5pSIfO+eVXrEtZmFF7fTB1jckIKYLXU3P
ZUFShnCX3DcyRlN7AhqmclHz0okuttJMiHE97TokEYkX+k2l2XQZGO53Zfzd
M1/IMRo4cy62Ao6aSc+9/FYEc6wbd48Q6fjtW29AanooShcfrT5ilg6K/cV8
g2EFeP/uB2URm0KUv7xrZ4SYEez5vd/XuvwmJkz8TokdLUWpim2q1hnh8E69
yfVdVTJsue67KeocA4T/PAvbvjYDVSeSN+uTGVg3eaxi80cy3p1yf7WdPw8p
W9XV5uXLUFthOoKdfgDKFwSaqiwzIcNrirJ7FwlV/Jtn19YSkHMRyx5douAx
vs/eXi8S0XmzXODIt0tAL31t45UVCZuk8Y2LbBSGjk+Lkh/nYLfREVkn4yK4
T+qpdWlKQ+PoOOKb1bnUufJv/yMegOwmjRHTMoHY0HVpbtmbAeF7/cdfZ4TA
UvUXkQx6Cai47V6ySEyGUycluc+NrObdgNWKUQcD9v4s2uJz3g8O0A5G5jSy
cChxu4TrKxrGXnX2sLgUhXzLThcUbFLhJlPOk3c0F2mqR+SS2uLB8ybXgppP
KnbTzquJVVCxm03tkXTkNjwp+Y51eZWLkxjnxLaZp8PN/Z18v4gUoO9/yGdl
eRWrdqbuPDyTA4rs+dP1cxTwKxy4vm6FCLysq9L5b6/BeOTxXodbTFgc4uYb
4MnAd0Ovsm68KkWrwnH2n/wG+JCUQI1xK8fpSwaRCxyhWPi6v+BTZil2zZdk
+90h4P8A5tJDZA==
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0., 0.},
  Method->{},
  PlotRange->{{-0.059525930164480136`, 
   0.05959935608771053}, {-0.058977255549888113`, 0.05963374055559995}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.0023825057250438132`, 0.0023825057250438132`}, {
   0.0023722199221097614`, 0.0023722199221097614`}}]], "Output",
 CellChangeTimes->{
  3.5706484115836*^9, 3.570648530354097*^9, 3.57064868964726*^9, 
   3.570648935579919*^9, {3.570649121559589*^9, 3.570649179739006*^9}, {
   3.570653853484044*^9, 3.570653882272814*^9}, {3.570653931454498*^9, 
   3.570653952341613*^9}}],

Cell[BoxData["1"], "Output",
 CellChangeTimes->{
  3.5706484115836*^9, 3.570648530354097*^9, 3.57064868964726*^9, 
   3.570648935579919*^9, {3.570649121559589*^9, 3.570649179739006*^9}, {
   3.570653853484044*^9, 3.570653882272814*^9}, {3.570653931454498*^9, 
   3.570653952371455*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["", "Section"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{" ", "save"}]], "Input",
 CellChangeTimes->{{3.570640795050957*^9, 3.57064079716756*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{367., {2., 8.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"-", "0.011832929127991814`"}], ",", 
                "0.01809904035954689`"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"5130.2892981156665`", ",", "12140.64418810957`"}], 
               "}"}]}], "}"}], ",", 
            RowBox[{"\[LeftSkeleton]", "7733", "\[RightSkeleton]"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0.00729928565359462`", ",", "0.013985508958292895`"}],
                "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"6278.8252602145085`", ",", "23142.180747275987`"}], 
               "}"}]}], "}"}]}], "}"}], "}"}],
         Short[#, 5]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{63., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 1290, 23400506243115741165, 5/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{67., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 1290, 23400506243115741165, 5 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{104., {2., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 1290, 23400506243115741165, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{97., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[1290]]], "Output",
 CellChangeTimes->{3.570640799871598*^9, 3.570640847222903*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Show", "[", 
  RowBox[{"%1134", ",", 
   RowBox[{"ImageSize", "\[Rule]", "Medium"}]}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 GraphicsBox[{{}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  ImageSize->Medium,
  Method->{},
  PlotRange->{{-1, 1}, {-1, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0.04, 0.04}, {0.04, 0.04}}]], "Output",
 CellChangeTimes->{3.570638632857294*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Rasterize", "[", 
  RowBox[{"%1135", ",", "\"\<Image\>\""}], "]"}]], "Input",
 NumberMarks->False],

Cell[BoxData[
 GraphicsBox[
  TagBox[RasterBox[CompressedData["
1:eJzt2l9IlGsewHF3z17sdRAR6MU2ZkHQn6kRdOhig8DLOlMqoxDnWLlXrenG
drrpIkULpMuoUGKISsFkiATHVGiYCuuii4gKCf9VzIwzjjOIo+/MMzvjaXNe
dTvnd9Z/zPP9QPE6r+/4PvP6fnleef728z9/PPvnvLy8hr+m//vxp3//vb7+
p18cf0l/ceSXf535+Yf0xkj63z/+lJeX2U4BAAAAALBxjNDbFxOzSnIID7OA
xozwm0eX924v6fySXLInEexvPtfY1uFqbbjuDSfMO+kGoLfYUNVu+9JuJEN9
zv0nB6ZUSk0NVhyseRoxzUfoBqC32FD18m5M+xyWQ7dGjfSmMXbbZnH4prN3
0w1Abyt1I+l/WJJf2u3PvKgCbnuB3R3InnDkma3vCQPYcCvON6LPyguL28YW
5hvj7cWF5c+j2btpBaA38983VDz4KWqkVMhTecDpjaRfiXirrE5PyNQVugFo
LBl752m2bi2q737tn1OZycWdo9baV7H0VqC3pb71bpfrWl2TJ2CYD6MbAKTo
BgApugFAim4AkKIbAKToBgApugFAipWiAKQoBgApugFAim4AkKIbAKToBgAp
ugFAim4AkKIbAKToBgApugFAinXmAKQoBgApugFAim4AkKIbAKToBgApugFA
im4AkKIbAKToBgAp1osCkKIYAKToBgApugFAim4AkKIbAKToBgApugFAim4A
kKIbAKToBgAp1pkDkKIYAKToBgApugFAim4AkKIbAKToBoDfouKTEzPJxa/p
BqC1RLC/+VxjW4erteG6N5ww7VPhwTO2nRaLpch2+kmIbgDISIb6nPtPDkyp
lJoarDhY8zSiFnfODd+obvH559Wyw+gGoLFpn8Ny6Naokd40xm7bLA7f9Ld9
85+76o4f3rNty65jVwYmTTORPLP1PmsAGyjpf1iSX9rtzzyCqIDbXmB3B5bM
LtTsiPv8vh2OniDPKQAyos/KC4vbxhbmG+PtxYXlz6PLv0lNPi4rbXofX3yF
bgAaUyFP5QGnN5LejHirrE5PKJlS8eCnaLokKhFPLEw+5j/ePHHpZSzrMLoB
aM0I9LbUt97tcl2ra/IEjMy8485Ra+2r2OyHq2W2I6caXZ0P7vUMz5geX+gG
ACm6AUCKbgCQohsApOgGACm6AUCKbgCQYoU5ACmKAUCKbgCQohsApOgGACm6
AUCKbgCQohsApOgGACm6AUCK9aIApCgGACm6AUCKbgCQohsApOgGACm6AUCK
bgCQohsApOgGACm6AUCKdeYApCgGACm6AUCKbgCQohsApOgGACm6AUCKbgCQ
ohsApOgGACnWiwKQohgApOgGACm6AUCKbgCQohv4wzT/5dF5+DqPPaX38P//
sev86aX0Hr7OY0/pPfwN6YbOh2zOs+IQLv1aH7IhPzRnDtmcZ8UhXPq1OyQP
AP43aX+gIX5PAEjRDQBSdAOAFN0AIEU3AEjRDfwxRujti4lZtdGnsYmp+OTE
THKjz2Jt0A2znL3Wq3qbG+E3jy7v3V7S+WXpR5UI9jefa2zrcLU2XPeGE6vz
4zaf7w1ThQfP2HZaLJYi2+knoVz8XUpp1Q19r/Va3Oaxoard9qVvmAz1Ofef
HJhSKTU1WHGw5mkkJ+cj3x3m3PCN6haffz4nR/6NNt3Q/Fqv+m0eG6pe/obT
Pofl0K1RI71pjN22WRy+6dU4+c3me8Oc/9xVd/zwnm1bdh27MjCZsxMubbqh
+bVe9dt8pTdM+h+W5Jd2+zMvqoDbXmB3B3Iwxb9jmGp2xH1+3w5HTzDX5q5f
6bK6WPdrLb7N4yPtF87WZKm9eH987vtvmIo+Ky8sbhtbCNF4e3Fh+fPomo5q
7Xx3+L9rmGrycVlp0/v4ep71+sn9Ynyl+bVe9dvc/OCj4sFPUSOlQp7KA05v
JP1KxFtldXpy7k9FC1Ya5tdPIKUS8cRCfOc/3jxx6WVsg091rWjTDc2v9ere
5snYO0+zdWtRffdr/5zKVOfOUWvtq/QHZwR6W+pb73a5rtU1eQLGmo1ngy0b
5n8/gdkPV8tsR041ujof3OsZnsnBp7RfadMNna+19rc5VptG3QCwSugGACm6
AUCKbgCQohsApOgGACld1osCWD0UA4AU3QAgRTcASNENAFJ0A4AU3QAgRTcA
SNENAFJ0A4AU3QAgxTpzAFIUA4AU3QAgRTcASNENAFJ0A4AU3QAgRTcASNEN
AFJ0A4AU60UBSFEMAFJ0A4AU3QAgRTcASNENAFJ0A8BvUfHJiZnk4td0A9Ba
ItjffK6xrcPV2nDdG06Y9qnw4BnbTovFUmQ7/SRENwBkJEN9zv0nB6ZUSk0N
VhyseRpRizvnhm9Ut/j882rZYXQD0Ni0z2E5dGvUSG8aY7dtFodv+tu++c9d
dccP79m2ZdexKwOTppkI3QD0lfQ/LMkv7fZnHkFUwG0vsLsDS2YXanbEfX7f
DkdP0Pyckm1dzxnA2ouPtF84W5Ol9uL98bmvO6PPyguL28YW5hvj7cWF5c+j
y99BTT4uK216H198hVYAGlMhT+UBpzeS3ox4q6xOTyiZUvHgp2i6JCoRTyxM
PuY/3jxx6WUs6zC6AWjNCPS21Lfe7XJdq2vyBIzMvOPOUWvtq9jsh6tltiOn
Gl2dD+71DM+YHl/oBgApugFAim4AkKIbAKToBgApugFAim4AkGKlKAApigFA
im4AkKIbAKToBgApugFAim4AkKIbAKToBgApugFAim4AkGKdOQApigFAim4A
kKIbAKToBgApugFAim4AkKIbAKToBgApugFAivWiAKQoBgApugFAim4AkKIb
AKToBgApugFAim4AkKIbAKToBgAp1osCkKIYAKToBgApugFAim4AkKIbAKTo
BqA5I/T2xcSskhxCNwCNGeE3jy7v3V7S+SW5ZE8i2N98rrGtw9XacN0bTph3
0g1Ab7Ghqt32pd1Ihvqc+08OTKmUmhqsOFjzNGKaj9ANQG+xoerl3Zj2OSyH
bo0a6U1j7LbN4vBNZ++mG4DeVupG0v+wJL+02595UQXc9gK7O5A94cgzW98T
BrDm4iPtF87WZKm9eH98bnH/ivON6LPywuK2sYX5xnh7cWH582j2bloB6M38
9w0VD36KGikV8lQecHoj6Vci3iqr0xMydYVuABpLxt55mq1bi+q7X/vnVGZy
ceeotfZVLL0V6G2pb73b5bpW1+QJGObD6AYAKboBAAAAANj8/gP2OG2E
    "], {{0, 224}, {
    360, 0}}, {0, 255},
    ColorFunction->RGBColor],
   BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
   Selectable->False],
  BaseStyle->"ImageGraphics",
  ImageSizeRaw->{360, 224},
  PlotRange->{{0, 360}, {0, 224}}]], "Output",
 CellChangeTimes->{
  3.570638661359959*^9},ImageCache->GraphicsData["CompressedBitmap", "\<\
eJztWl1IFFEUnm3Vwn4JIoICac2CoB9LQcWXaHdNCTJLQ42wzdSHylaD6KWH
FC2QHiNDCbM/wUwiISuFxIrqoYeICglTK3Z1/UVcdXe+7ty52Ubzs+5Y7crM
w52595z7zTnf3Lnn3sPdm1damH8ir7TIlhdltecVFxbZSqIsp+ykyWjgOEMh
x3HdUZzwDPLICnoVCQWrSDy30JsRM/qk1iSKbtDbclJ4MfahFRWxqxBjb8Jb
xyR40jrdex3m2AK8GRMqTjyqtKOqvhF1l4pR3urENOkdJg9fT2/LSDGGVzmb
kNTwnbyIXbwb/V9HCQQPV+shbM/uwLDQPtyBnNhstLq8CsjVTOTursWZ4zbY
bDZuAS2NpCzA2du9mCQaC6hemGhB7owFRtq8kBSjeJ4ZjfiaHsEXwWHUxkcj
88Woul8yqIsImQ7cS1iLxCaH6C7vRHPSOiQ1OwVWqVq4gNvoB5xg5Ag6M0zY
Wf2FGdmDa3EmZHSO+G1kjgSqF67H2dh2sA1DxCp+qB1ZO2x4NswroYojJlyw
AoPvHuD8ljVIEJFZtwjA04+nFSdRVnMXdVUluNwxCA+ggHqTiaZd7/Gyb0Jg
iQ4bGXWFER1MIioJQrt0DnQOgkgUWvTMxDTpcOgTMifw6WIK4nYdQVldA+7c
akHXOK86ta4ghWxE9Ima5NHjhocXMaY+X8WBc6/JVM8m+FlGzcW+UZNd8qEx
guHwAw+RkliOj26hpuKYalwUqQkDP9GN5tNbsT6jBf3eP8OlCKccF0VrwjH1
rRHF6cnYvHolNu67gLYBj3p0Uw6ORmYmJrtwJbcSnY4pwfpwtSEjGxeNP8UE
ZrA9H3EbTDCZYhB37AlcXqXveZ+JhJ7ugT6MexW/Q5D8QfNrPtA50OlREUXS
m7ZdlpViBBx2UiSsS9MGaZ4Dr8TtGYk+zJLA9okW2l1z4LRKcJQ6N9BmbQ4y
msS5HSx6053uHO53k5n7f2NxIE+tsk1SWObAXfxtuAW6fTf7pyazmqFMUCJS
NeEosqAKavCDCOUFlsUPHaVFmNSElKoR0xK4O1IjY3Y5E4sfOjJLxz2KXMwa
zhq4E4yGSEZyAEkeq7JYZa0rNU+kaULcHbgrjIwlzCbf3NRh1ua78JayPUtC
zyKBJ74jWNYrCqIIVuW4o0LB5pGlEh2k0ndz3fa/3huKfoihVP9UIeCHwqfa
L9GWrkHv378qSCayENxG6hzo9OgcqIpCOUH/K/8cTMl3NVs1pOGl8/p68l3/
14NTpNOjczCv6AnZE2Cqh6b0k10heLKLVlTOM3KGH4Priv0=\
\>"]]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.570638197170214*^9, 3.570638199246207*^9}}],

Cell[CellGroupData[{

Cell[BoxData["save"], "Input",
 CellChangeTimes->{{3.570638023550785*^9, 3.570638023892122*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{367., {2., 8.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{
              "0.02604243982619442`", ",", "0.00016422405474030287`"}], "}"}],
              ",", 
             RowBox[{"{", 
              RowBox[{"7654.375792752504`", ",", "36097.29562815452`"}], 
              "}"}]}], "}"}], ",", 
           RowBox[{"\[LeftSkeleton]", "7810", "\[RightSkeleton]"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0.022908601689979994`", ",", "0.004932741367174467`"}],
               "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"3263.6518442094784`", ",", "21008.6576241998`"}], 
              "}"}]}], "}"}]}], "}"}],
         Short[#, 5]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{63., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 1038, 23400506243115741165, 5/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{67., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 1038, 23400506243115741165, 5 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{104., {2., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 1038, 23400506243115741165, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{97., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[1038]]], "Output",
 CellChangeTimes->{3.570638028993516*^9, 3.570638109733272*^9}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.570637716501714*^9, 3.570637721837632*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fieldFunction", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.1"}], "}"}], ",", "n"}], "]"}], ",", 
   RowBox[{"{", "n", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.570630309831367*^9, 3.570630354718379*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Plot", "::", "pllim"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Range specification \[NoBreak]\\!\\({n}\\)\[NoBreak] is \
not of the form {x, xmin, xmax}. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Plot/pllim\\\", ButtonNote -> \
\\\"Plot::pllim\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.570630355804634*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"par", "=", "working"}]], "Input",
 CellChangeTimes->{{3.570638719868534*^9, 3.570638725890078*^9}, {
  3.57063876639718*^9, 3.570638812369996*^9}, {3.570638869637427*^9, 
  3.570638910047913*^9}}],

Cell[BoxData[
 InterpretationBox[
  TagBox[
   PanelBox[GridBox[{
      {
       StyleBox[
        StyleBox[
         DynamicBox[ToBoxes[
           FEPrivate`FrontEndResource["FEStrings", "sizeExplanation"], 
           StandardForm],
          ImageSizeCache->{367., {2., 8.}}],
         StripOnInput->False,
         DynamicUpdating->True], "Panel",
        StripOnInput->False,
        Background->None]},
      {
       ItemBox[
        TagBox[
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"{", "}"}], "[", "1", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "2", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "3", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "4", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "5", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "6", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "7", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "8", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "10", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "11", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "12", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "13", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "14", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "15", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "16", "]"}], ",", 
           RowBox[{"\[LeftSkeleton]", "9969", "\[RightSkeleton]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9986", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9987", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9988", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9989", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9990", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9991", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9992", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9993", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9994", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9995", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9996", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9997", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9998", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "9999", "]"}], ",", 
           RowBox[{
            RowBox[{"{", "}"}], "[", "10000", "]"}]}], "}"}],
         Short[#, 5]& ],
        Background->GrayLevel[1],
        BaseStyle->{Deployed -> False},
        Frame->True,
        FrameStyle->GrayLevel[0, 0.2],
        StripOnInput->False]},
      {
       RowBox[{
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowLess"], 
             StandardForm],
            ImageSizeCache->{63., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 1141, 23400506243115741165, 5/2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowMore"], 
             StandardForm],
            ImageSizeCache->{67., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 1141, 23400506243115741165, 5 2],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeShowAll"], 
             StandardForm],
            ImageSizeCache->{104., {2., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>OutputSizeLimit`ButtonFunction[
          Identity, 1141, 23400506243115741165, Infinity],
         Enabled->True,
         Evaluator->Automatic,
         Method->"Queued"], "\[ThinSpace]", 
        ButtonBox[
         StyleBox[
          StyleBox[
           DynamicBox[ToBoxes[
             FEPrivate`FrontEndResource["FEStrings", "sizeChangeLimit"], 
             StandardForm],
            ImageSizeCache->{97., {0., 8.}}],
           StripOnInput->False,
           DynamicUpdating->True], "Panel",
          StripOnInput->False,
          Background->None],
         Appearance->Automatic,
         ButtonFunction:>FrontEndExecute[{
            FrontEnd`SetOptions[
            FrontEnd`$FrontEnd, 
             FrontEnd`PreferencesSettings -> {"Page" -> "Evaluation"}], 
            FrontEnd`FrontEndToken["PreferencesDialog"]}],
         Evaluator->None,
         Method->"Preemptive"]}]}
     },
     DefaultBaseStyle->"Column",
     GridBoxAlignment->{
      "Columns" -> {{Left}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
       "RowsIndexed" -> {}},
     GridBoxDividers->{
      "Columns" -> {{False}}, "ColumnsIndexed" -> {}, "Rows" -> {{False}}, 
       "RowsIndexed" -> {}},
     GridBoxItemSize->{
      "Columns" -> {{Automatic}}, "ColumnsIndexed" -> {}, "Rows" -> {{1.}}, 
       "RowsIndexed" -> {}},
     GridBoxSpacings->{"Columns" -> {
         Offset[0.27999999999999997`], {
          Offset[0.5599999999999999]}, 
         Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
         Offset[0.2], {
          Offset[1.2]}, 
         Offset[0.2]}, "RowsIndexed" -> {}}],
    DefaultBaseStyle->{},
    FrameMargins->5],
   Deploy,
   DefaultBaseStyle->"Deploy"],
  Out[1141]]], "Output",
 CellChangeTimes->{
  3.570638778333104*^9, 3.570638816989153*^9, {3.570638890705642*^9, 
   3.57063891108276*^9}}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"fieldFunction", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0.000000001"}], "}"}], ",", "n"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", 
     RowBox[{"0", "*", 
      RowBox[{"10", "^", 
       RowBox[{"-", "10"}]}]}], ",", 
     RowBox[{"2", "*", 
      RowBox[{"10", "^", 
       RowBox[{"-", "10"}]}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.570630363844919*^9, 3.570630492432846*^9}, {
  3.570630537377378*^9, 3.5706305967412*^9}, {3.570630661383976*^9, 
  3.570630666370619*^9}, {3.570630732894344*^9, 3.570630929645386*^9}, {
  3.570630990500772*^9, 3.570631091707191*^9}, {3.570631161943139*^9, 
  3.57063118861886*^9}, {3.570631246703161*^9, 3.570631312821492*^9}, {
  3.570631376245216*^9, 3.570631514845055*^9}, {3.570631645917844*^9, 
  3.570631673950176*^9}, {3.570631764535102*^9, 3.570632006212935*^9}, {
  3.570632067882786*^9, 3.570632130647645*^9}, {3.570632161290466*^9, 
  3.570632206740678*^9}, {3.570632674937517*^9, 3.57063282372795*^9}, {
  3.570633183107412*^9, 3.570633185050881*^9}, {3.570634076777074*^9, 
  3.570634135675058*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxN1Xk0VXsbB/CDQ6IkIaWEStFECblOjzGukAyRDBE64uoYM5wt06t0M6VM
XWMlEd2USOYiStIxhA5JEqJUCJ14f9Z63/1rr7XXXp/1fZ7f+MeWcTpt5sJN
oVBeoHfx2yLs2VDJMtOg/O8pv3rRRU9XifZ/9wmtrNmgq0WaYWA+vkz3MOl9
LpMRPLqOpNO/676c1/Ei/VJ93JejE0aabl+r/1MngbRbj8/6t7+ySfsmeuz7
WZ5POl7j7/S1uXdJhzpHtt86+ID0MfN/bTuzy0mbnqFITllUk36eIuq6craW
9Imj2h+nNzwhfV45PMLSr4H0Rp9jjdzXGkkPcbKiSuufkVbJnnH4IP6CNCdv
5J2j5kvSN138q7c1t5J2XldkmP/tFWl25G4FU9420lfnIHn3rnbSYrJp1hp6
HaQ7jhA3w707ScvfFb9nlPaatFolR2R/URfpmE53ikd3N76P7C3atRM9pI+7
yeTyT2HLKkkKmM5i59UIsfq43pAufjvlyBHBblj/JEx1L/aX1OO1hYG/1Tva
bJ4isH3lLaI1whfNpmqwJvarfjUej4hatG3LIa9NMFemf/j5BeSsuu+qJ/ZA
RahWiUgccqjCwszfGnDW4I81NomLuZIcf7c2ULt2vhu+uph/5/WYPQgNmVv1
FLOQ6dKbp7RNIfqk7K0z15EZMH7nnBkI/RDz4itEll71oVrQCiTEf1E2VS32
M1pPzjhAT++0s3sdskflK1NxR0i/MdFY3IBMdbjVsdMJZPcOxmu9RG5enllk
4wzbLZ5LO/Qj80vTn6fRQetSqmYaN5tGGYpVczJngFpIU9L+JcicmBqRLgYo
npodGxBEVndlj9h4gbT20dRtYsjLHsWxbLxh/qvEt4otyP6jiku1fWG618DA
cTtyVpw2/YEvfG4KyOBVQk65tiNsqx/0ZncZmqgjt1aVFPH6Q8XhlGtvjZDl
pBTyc87AfVrjbMRh5IDWT+d4AqBAfubQ1iPISf9W1jkGQBqXNYfhgBxvFywn
HgiXxs+ZiTkj/8NK+cMjEC50l+Y9pCN/K9oeVR0IgXdXW3J7I3fMeyXbBQEj
Xb8g1x+5Zb7RKC8I6NFnuA4GI+9KHhCdCAJrx9eFiZHIG8S2VfkHg6nxEqpa
NPIsNSG+JBj096nasGOQGeXy1l+DQWVlMt/m5MX1xPIXOjBh568G26aryIMV
SjsvMUFuZLr4ryzk87MWF2uZINUht1TkBrJs4/66cSaI1R5xeHAL+ekD0efi
BCwrjCqxKWLTQnusLXM0CKCmPhBcKEZ5sV63jgMBnMghx2ulyBZCbQUhBEwy
xMv0K5C9Wl92phEwZntAaKwGuUGhrPYeAe8N/J3j65E1o166NRHQo5xbrvwM
2Y5e0vyGAJZ0p3B3C5umubrDeXiUgGfL+E4SbWxajb3F3kfTBNTN7K2U6Vrs
T+zRWSCgfNBlVQMb5TsSnMOoIXC39YrbqXdsmmi6uqYPXwjkVdRXCw2xaaZm
lSpreEMgK29K7N4o6p/a7elDCYGUy5s9rL6waVkCIm7hMwTEh1rW/fyOxvPJ
59MfJ+C8x38ksmZQvcmj8Lo+As5al3jq/kLrYx/0m24mwF/3w5Nhrl4ahced
NVhKgKeimGQMXy8t1CpgNC6TANd1el5KgigXX+c2F0GAPb/f044VyGHvLbe4
EHBk8vr6IFFUv7FbZK0OAcb97T5Sa5C11ew61xOg20x9Vrce1df7Gx2fYoJG
mbL0SVnkuOuHK5qYsD3+cvOdbcgey2Xm6UwYLRKroSoia5rWXFJlwq0XSfeO
KiNX2Jb68qD7F0xN46Eh602wlROD4YP82lhrLWSJoYb1VsFw3eBqWKEecnR2
iJtEMMhEpdOtTJBdGxO0EoOg/7qU7W0zZLDI6zEKgozHmYe4rJBVh7gmeIJg
HVeOSoEDsrdVesGpQBBn5lIXGMgtrLNqkgHQnrZlxtwPWcGDO7L2DCQ+zPuU
F4jceljogssZEP6RzzILR95/VG4k1x8EvO9k5SYitxf3TK/wg4WTZRomD5Bt
KwtWRXpBVdQ+xWvlyMqq9ikCXsC8Ub5xpgrZwuV7cBwD5gYqBHKeIlsn8kjJ
n4ZJu9quqS5k0UrJ02vdYdj8mW/6z8Xz0mlVPOcEud4H6d8WkCdpjDJ3R3BJ
aD6mT+1D55N564rJcRhoadH+ugy5/4oKc4Mt9P7ZJqwnhSx88UASrzn8Q7eg
pskiS6cI8Zabgs25jh+f5ZCzaG/udxtB15PXfSm7kOPHm5TTdSDpvTVrfM9i
LizZ9YMGltw99dpqi/2ElFuxMojKHHuYrIFMuS+60CEHLGDfHtNcdN3491Vc
0BCeeClDr4/8P5TXGwaYGmIX8XPbcx/Czj74UOe+OfblWIa8qzX2+VdbVkjY
YTOsknqCXbGd04xrdrhjW/VSc9+ext5/wsdLJxB7+WlTfsGL2JTiJZ8r4rEn
J6vaPK9gs4N2ZLIysPOjBFTS7mIbZDw5If8aW+Nd8J9v3mArbtqzK6Yfe3V+
9tzECPZQSUhCGQc74oVatb7sW9JVnNtrXf/CNpCwWsHtjc3aw0XN8MceOmU5
3nEWW6j7V7XeJWz7EhOXzaXYCyozVt6UftKZX1JzlAyxKx/yDDxuww4R2E2f
pL8jve5+VIraJHYkQ+VmFXOAdNy9fM6A8HvSAYf0OGuvYlO9r2t/VRwk7Tku
v+dNBXZOsAD3kgMfSAfG31n9qgd7x3zQ6yKXITz/N4E+BQ527uxU3XDcR9I3
ji4xK18zTFpfs3eLwh3sp2e7bxaqj5BeyVLk83mMPZ9vVNBpNUq6kR07ZzyA
3WozpFU2iN3VRYuW/Yg90j62+scnbIEXhnuzprCNKvkY3/g/4fHSQz4k7cLu
kuzczrUbuz91h6+7MvbXK2xuzX3YIrHq0iPa2BYh0zZ/HMG25Rjn3LDGdg66
MbLiGLafv0XAoAN2kmfxlRg37Iyxpb0/3LFzTzlucvLELnUVvqfig10zeHIu
yw+70alaSzDgt/32i0f7Bf22X3vP1rdM7P8CJsp99w==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->NCache[{{0, 
      Rational[1, 5000000000]}, {0., 0.007330370138937132}}, {{0, 2.*^-10}, {
     0., 0.007330370138937132}}],
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.570631515302749*^9, {3.570631646820415*^9, 3.570631675368379*^9}, {
   3.57063176552899*^9, 3.570632006751635*^9}, {3.570632068519837*^9, 
   3.57063213145214*^9}, {3.57063216221128*^9, 3.570632208187944*^9}, {
   3.570632670481921*^9, 3.570632825056477*^9}, {3.570632888731405*^9, 
   3.570632960774162*^9}, 3.570632994294821*^9, {3.57063302806047*^9, 
   3.570633043127115*^9}, {3.57063310724133*^9, 3.570633146852947*^9}, 
   3.570633736007751*^9, {3.570634073265116*^9, 3.570634136038734*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.570631012536021*^9, 3.570631014350272*^9}}],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.570630470392396*^9, 3.570630471934311*^9}}]
}, Open  ]]
},
WindowSize->{740, 599},
WindowMargins->{{267, Automatic}, {50, Automatic}},
FrontEndVersion->"9.0 for Linux x86 (32-bit) (November 20, 2012)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 69, 1, 32, "Input"],
Cell[CellGroupData[{
Cell[651, 25, 26019, 540, 2828, "Input"],
Cell[26673, 567, 1386, 21, 50, "Output"],
Cell[28062, 590, 1358, 20, 34, "Output"],
Cell[29423, 612, 1326, 19, 32, "Output"],
Cell[30752, 633, 1321, 19, 32, "Output"],
Cell[32076, 654, 1346, 20, 49, "Output"],
Cell[33425, 676, 1348, 20, 49, "Output"],
Cell[34776, 698, 1323, 19, 32, "Output"],
Cell[36102, 719, 1339, 19, 34, "Output"],
Cell[37444, 740, 1321, 19, 32, "Output"],
Cell[38768, 761, 1363, 21, 50, "Output"],
Cell[CellGroupData[{
Cell[40156, 786, 400, 6, 23, "Print"],
Cell[40559, 794, 399, 6, 23, "Print"]
}, Open  ]]
}, Open  ]],
Cell[40985, 804, 119, 2, 32, "Input"],
Cell[CellGroupData[{
Cell[41129, 810, 138, 3, 56, "Input"],
Cell[41270, 815, 337, 5, 23, "Print"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41644, 825, 444, 11, 55, "Input"],
Cell[42091, 838, 17225, 288, 235, "Output"],
Cell[59319, 1128, 286, 5, 32, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[59642, 1138, 19, 0, 81, "Section"],
Cell[CellGroupData[{
Cell[59686, 1142, 112, 2, 32, "Input"],
Cell[59801, 1146, 4951, 140, 140, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[64789, 1291, 148, 4, 32, "Input"],
Cell[64940, 1297, 363, 11, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[65340, 1313, 122, 3, 32, "Input"],
Cell[65465, 1318, 5061, 89, 239, 3630, 64, "CachedBoxData", "BoxData", \
"Output"]
}, Open  ]],
Cell[70541, 1410, 92, 1, 32, "Input"],
Cell[CellGroupData[{
Cell[70658, 1415, 96, 1, 32, "Input"],
Cell[70757, 1418, 4883, 139, 140, "Output"]
}, Open  ]],
Cell[75655, 1560, 92, 1, 32, "Input"],
Cell[CellGroupData[{
Cell[75772, 1565, 291, 8, 32, "Input"],
Cell[76066, 1575, 464, 10, 24, "Message"]
}, Open  ]],
Cell[CellGroupData[{
Cell[76567, 1590, 220, 4, 32, "Input"],
Cell[76790, 1596, 6664, 186, 206, "Output"]
}, Open  ]],
Cell[83469, 1785, 1160, 25, 32, InheritFromParent],
Cell[84632, 1812, 4092, 74, 224, "Output"],
Cell[88727, 1888, 92, 1, 32, "Input"],
Cell[88822, 1891, 92, 1, 32, "Input"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)