cache_params0.nb

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

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    438911,       8970]
NotebookOptionsPosition[    431456,       8828]
NotebookOutlinePosition[    431854,       8844]
CellTagsIndexPosition[    431811,       8841]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Load packages", "Title",
 CellChangeTimes->{{3.823627675287674*^9, 3.8236276781228657`*^9}, 
   3.824662923566228*^9},ExpressionUUID->"6c4d229e-9b28-434b-98d0-\
4ac2feec97ed"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{
    RowBox[{"NotebookDirectory", "[", "]"}], "<>", "\"\<package/\>\""}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Get", "[", "\"\<funcs_rxns_moms.m\>\"", "]"}]}], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.823627678658452*^9, 3.823627699574668*^9}, {
  3.8254373085051603`*^9, 3.825437309291643*^9}, {3.826721938406748*^9, 
  3.8267219498400784`*^9}, {3.8281014443716908`*^9, 3.828101444721506*^9}, {
  3.828102306538101*^9, 3.8281023070071983`*^9}, {3.829243256885638*^9, 
  3.829243257099379*^9}, {3.8292435710493813`*^9, 3.829243571757708*^9}},
 CellLabel->
  "In[443]:=",ExpressionUUID->"05763728-f6c5-4ede-9f24-9fae817503de"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Setup data description", "Title",
 CellChangeTimes->{{3.820847002491816*^9, 3.8208470027424498`*^9}, {
  3.823095691227759*^9, 3.823095694918809*^9}, {3.823631729574567*^9, 
  3.823631730145997*^9}, {3.8281020860181837`*^9, 
  3.828102088719445*^9}},ExpressionUUID->"6bda052d-3995-4c7d-a3f7-\
82dc21431621"],

Cell[CellGroupData[{

Cell["Data description", "Chapter",
 CellChangeTimes->{{3.825081508054371*^9, 
  3.825081509510104*^9}},ExpressionUUID->"a0707f31-6742-4c81-91d3-\
b9207f4e0850"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nv", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nh", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"noSeeds", "=", "1200"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tptStart", "=", "100"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tptMax", "=", "500"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tptInterval", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dt", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"volExp", "=", "14"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"noIP3R", "=", "100"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataDesc", "=", 
   RowBox[{"makeDataDesc", "[", 
    RowBox[{
    "noSeeds", ",", "volExp", ",", "tptStart", ",", "tptMax", ",", 
     "tptInterval", ",", "dt"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"noTpts", "=", 
   RowBox[{"dataDesc", "[", "\"\<noTpts\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"times", "=", 
   RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.825080522455871*^9, 3.825080637239822*^9}, 
   3.8250827645979347`*^9, 3.825089172520834*^9, {3.8260386956711893`*^9, 
   3.826038697406164*^9}, {3.826038734170746*^9, 3.826038734309355*^9}, {
   3.826134279591666*^9, 3.826134279864841*^9}, {3.826286984753158*^9, 
   3.826286984981619*^9}, {3.828102344664966*^9, 3.828102344798826*^9}, {
   3.82810248290851*^9, 3.828102485867107*^9}, 3.8281061513687162`*^9, 
   3.82810811642267*^9, 3.828110344333633*^9, 3.8281110797146397`*^9},
 CellLabel->
  "In[445]:=",ExpressionUUID->"55953178-9b1d-471a-b725-385cb9d01d37"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"cdir", "=", 
   RowBox[{"getCacheDir", "[", 
    RowBox[{"dataDesc", ",", "noIP3R"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"exportDataDesc", "[", 
  RowBox[{"dataDesc", ",", 
   RowBox[{"cdir", "<>", "\"\<data_desc.txt\>\""}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.825081520868742*^9, 3.825081529210565*^9}, {
   3.825081770376055*^9, 3.825081808961793*^9}, {3.825081971609789*^9, 
   3.8250819780954742`*^9}, 3.8250820230515423`*^9, {3.826038735787772*^9, 
   3.82603873664104*^9}, {3.8281023464774*^9, 3.8281023470758038`*^9}},
 CellLabel->
  "In[457]:=",ExpressionUUID->"e2d11938-a1ba-4e63-a093-3dd1ecc121f8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Setup latent space", "Chapter",
 CellChangeTimes->{{3.82309565596686*^9, 3.823095658526761*^9}, {
  3.824918733217098*^9, 
  3.824918737210104*^9}},ExpressionUUID->"aa83c9d8-c43c-4e6a-8bc0-\
fe6d494712cf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"muhs", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"varhs", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"AppendTo", "[", 
      RowBox[{"muhs", ",", 
       RowBox[{
        RowBox[{"{", "0", "}"}], "//", "N"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"AppendTo", "[", 
      RowBox[{"varhs", ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"{", "1", "}"}], "}"}], "//", "N"}]}], "]"}], ";"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"tpt", ",", "tptStart", ",", "tptMax", ",", "tptInterval"}], 
     "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.823957832392046*^9, 3.823957839056408*^9}, {
   3.824477673948764*^9, 3.824477674304894*^9}, {3.824485644691148*^9, 
   3.824485701755266*^9}, {3.824490063834647*^9, 3.82449016748188*^9}, {
   3.8244929356295967`*^9, 3.824492946372348*^9}, {3.824562135648368*^9, 
   3.824562135856285*^9}, {3.824564769257641*^9, 3.824564769584779*^9}, {
   3.824565639601884*^9, 3.824565643671432*^9}, {3.824566710674176*^9, 
   3.824566711037525*^9}, {3.824654328354985*^9, 3.8246543319397707`*^9}, {
   3.824656622741021*^9, 3.824656638814486*^9}, {3.82467175880761*^9, 
   3.824671761617558*^9}, {3.824682390376358*^9, 3.8246823943111877`*^9}, {
   3.824736111741261*^9, 3.824736130249453*^9}, {3.824736173337019*^9, 
   3.824736173851604*^9}, {3.8249186806809587`*^9, 3.824918685871724*^9}, {
   3.82500600893268*^9, 3.825006009177383*^9}, 3.82508056440022*^9, {
   3.8250806000725527`*^9, 3.825080600315156*^9}, {3.825080641382023*^9, 
   3.825080641668108*^9}, {3.825083300319828*^9, 3.825083316853464*^9}},
 CellLabel->
  "In[459]:=",ExpressionUUID->"f75a5fb0-864a-46bf-8f9c-ec10f26dcadf"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Calculate transformation", "Title",
 CellChangeTimes->{{3.828102093468718*^9, 
  3.828102097404912*^9}},ExpressionUUID->"c6f21c0e-a550-4a01-8485-\
28468aafd902"],

Cell[BoxData[
 RowBox[{
  RowBox[{"importVizTrans", "[", 
   RowBox[{"ip3_", ",", "noIP3R_", ",", "dataDesc_", ",", 
    RowBox[{"noSeeds_", ":", 
     RowBox[{"-", "1"}]}]}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"data0", ",", "dataDesc0"}], "}"}], "\[IndentingNewLine]", ",", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SetDirectory", "[", 
      RowBox[{"getDir", "[", 
       RowBox[{"noIP3R", ",", "ip3", ",", "dataDesc"}], "]"}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"dataDesc0", "=", "dataDesc"}], ";", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"noSeeds", ">", "0"}], ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"dataDesc0", "[", "\"\<noSeeds\>\"", "]"}], "=", "noSeeds"}],
         ";"}]}], "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
     RowBox[{"data0", "=", 
      RowBox[{"importData", "[", 
       RowBox[{"dataDesc0", ",", "noIP3R"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"data0", "=", 
      RowBox[{"data0", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"tptStart", "+", "1"}], ")"}], ";;", 
         RowBox[{"(", 
          RowBox[{"tptMax", "+", "1"}], ")"}], ";;", "tptInterval"}], "]"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "data0", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8269024532393293`*^9, 3.826902495539579*^9}, {
  3.826902596690381*^9, 3.8269026379881144`*^9}, {3.8269028631319304`*^9, 
  3.8269029024123497`*^9}, {3.826908953945223*^9, 3.826908954873314*^9}, {
  3.826935953006494*^9, 3.826935991830913*^9}, {3.826939757446775*^9, 
  3.826939757659273*^9}, {3.8269398159004507`*^9, 3.82693982021043*^9}, {
  3.826939966821697*^9, 3.8269399680891848`*^9}, {3.827705475114802*^9, 
  3.827705503042603*^9}},
 CellLabel->
  "In[437]:=",ExpressionUUID->"1cd31e32-6f73-40b0-9cbd-d75a91c20604"],

Cell[CellGroupData[{

Cell["Example transformation", "Section",
 CellChangeTimes->{{3.8292517404587383`*^9, 
  3.829251747453292*^9}},ExpressionUUID->"125aa747-e921-4736-967c-\
d80e2dbd3a42"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dataVizTrans", "=", 
    RowBox[{"importVizTrans", "[", 
     RowBox[{"\"\<ip3_0p500\>\"", ",", "noIP3R", ",", "dataDesc", ",", "5"}], 
     "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valsCa", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"dataVizTrans", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", ";;", ",", "1"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"valsIp3", "=", 
    RowBox[{"Transpose", "[", 
     RowBox[{"dataVizTrans", "[", 
      RowBox[{"[", 
       RowBox[{";;", ",", ";;", ",", "2"}], "]"}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mv0", "=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Mean", "[", 
       RowBox[{"Mean", "[", "valsCa", "]"}], "]"}], ",", 
      RowBox[{"Mean", "[", 
       RowBox[{"Mean", "[", "valsIp3", "]"}], "]"}]}], "}"}], "//", "N"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valsCaFlat", "=", 
   RowBox[{"Flatten", "[", "valsCa", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valsIp3Flat", "=", 
   RowBox[{"Flatten", "[", "valsIp3", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"sv0", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"mv0", "[", 
            RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "2"], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "valsCaFlat"}], "}"}]}], "]"}], "/", 
      RowBox[{"Length", "[", "valsCaFlat", "]"}]}], "]"}], ",", 
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"Sum", "[", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"x", "-", 
           RowBox[{"mv0", "[", 
            RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "2"], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "valsIp3Flat"}], "}"}]}], "]"}], "/", 
      RowBox[{"Length", "[", "valsIp3Flat", "]"}]}], "]"}]}], 
   "}"}]}]}], "Input",
 CellChangeTimes->{{3.829253979411178*^9, 3.829254047900337*^9}, {
  3.829308898649387*^9, 3.829308934805881*^9}},
 CellLabel->
  "In[1041]:=",ExpressionUUID->"f9e9cab3-c784-43e6-b7d7-2f9b7152cff4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1568.4852867830423`", ",", "3019.7386533665835`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.829253989816741*^9, 3.8292540482619057`*^9}, 
   3.829254095676833*^9, 3.829262742527626*^9, {3.829308914876142*^9, 
   3.829308935455669*^9}},
 CellLabel->
  "Out[1044]=",ExpressionUUID->"072c77dc-f31f-4505-a5b5-88637bce2a32"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"972.1662067640724`", ",", "7.552544264674678`"}], "}"}]], "Output",\

 CellChangeTimes->{{3.829253989816741*^9, 3.8292540482619057`*^9}, 
   3.829254095676833*^9, 3.829262742527626*^9, {3.829308914876142*^9, 
   3.829308935457182*^9}},
 CellLabel->
  "Out[1047]=",ExpressionUUID->"c46ac126-6425-44bd-9a82-baf9c7f70737"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"valsCaPlt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "x"}], "}"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "valsCa"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"valsCaTrans", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"mv0", "[", 
             RowBox[{"[", "1", "]"}], "]"}]}], ")"}], "/", 
          RowBox[{"sv0", "[", 
           RowBox[{"[", "1", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "valsCa"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"valsIp3Plt", "=", 
   RowBox[{"Table", "[", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "x"}], "}"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "valsIp3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"valsIp3Trans", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"x", "-", 
            RowBox[{"mv0", "[", 
             RowBox[{"[", "2", "]"}], "]"}]}], ")"}], "/", 
          RowBox[{"sv0", "[", 
           RowBox[{"[", "2", "]"}], "]"}]}]}], "}"}], "]"}], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "valsIp3"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"pExTrans", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Show", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListLinePlot", "[", 
          RowBox[{"valsCa", ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
         "PlotLabel", "\[Rule]", 
          "\"\<\!\(\*SuperscriptBox[\(Ca\), \(\(2\)\(+\)\)]\) before \
transformations\>\""}], ",", "\[IndentingNewLine]", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Time (s)\>\"", ",", "\"\<# particles\>\""}], "}"}]}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "6500"}], "}"}]}]}], "\[IndentingNewLine]", 
        "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Show", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListLinePlot", "[", 
          RowBox[{"valsIp3", ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
         "PlotLabel", "\[Rule]", 
          "\"\<\!\(\*SubscriptBox[\(IP\), \(3\)]\) before \
transformations\>\""}], ",", "\[IndentingNewLine]", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Time (s)\>\"", ",", "\"\<# particles\>\""}], "}"}]}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", "Automatic"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}], ",", 
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"Show", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListLinePlot", "[", 
          RowBox[{"valsCaTrans", ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
         "PlotLabel", "\[Rule]", 
          "\"\<\!\(\*SuperscriptBox[\(Ca\), \(\(2\)\(+\)\)]\) after \
transformations\>\""}], ",", "\[IndentingNewLine]", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Time (s)\>\"", ",", "\"\<# particles\>\""}], "}"}]}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3.5"}], ",", "3.5"}], "}"}]}]}], 
        "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Show", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListLinePlot", "[", 
          RowBox[{"valsIp3Trans", ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
         "PlotLabel", "\[Rule]", 
          "\"\<\!\(\*SubscriptBox[\(IP\), \(3\)]\) after \
transformations\>\""}], ",", "\[IndentingNewLine]", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Time (s)\>\"", ",", "\"\<# particles\>\""}], "}"}]}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "3.5"}], ",", "3.5"}], "}"}]}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "}"}]}], "}"}],
    "]"}]}]}], "Input",
 CellChangeTimes->{{3.829253856625827*^9, 3.829253962348981*^9}, {
  3.8292540525615263`*^9, 3.829254117660995*^9}, {3.8292626925205812`*^9, 
  3.8292627225197678`*^9}, {3.8293088059048853`*^9, 3.829308817768897*^9}, {
  3.8293090665749826`*^9, 3.82930916263163*^9}},
 CellLabel->
  "In[1083]:=",ExpressionUUID->"be994f1b-9be9-48d5-bb8d-4f87bef4994a"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{}, {{}, {}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxd2F9s1WQcxvFKiNkFMb3YxbkgpJqFLAshFadORKg4deLAikPnv1kRcOKE
ilOmTq1zIurUgoioiHVOXRTNCeGCGC56wcWJWcwJ8eKEGNMQQhazmF4Qsxhi
jP6+z5JtN08+e/v2bd8/bd9z9dbdm7cvchznwBWO81/aX7nu/+jaF/APy6FR
3GRZUblr6b6Nmy1n38EVy2l5qWUse5aT7+NrLC+luMVy6gBebtl0ELdyfrnN
snYIr7BccxivtBz8GPuWPSq/1rJTXmXZ0PHXWa74BLdzvk/x9Zbdn+EbLOvy
jZaR3GGZ63w3Wc6ovdULrudmyyHd3xrLSd3/LZaj6q+1luEHeJ1lqf4PLL39
lgkusXOr5Szjm+BU473eskv1cfYW5bdZNt6kHHdgp5P2mF8J7tB8u91y6A3K
cX2E8jssY5VjDzt3Wu5XOfZVv8uy9jrl2MXOXVyPynG/6m/genT9ONf93c39
sV4S3Kr+6eb6VY5Dra+NllpvycYF599Eqhw3VP8ey5TxTnBF6y20bGK9BdjF
Cc45PsfpGPXvtcw4f4Brmi+4wfzIsfrD2Ww5y/0EeFrzBat/cxxqftzH+Rjf
AJ8aoT7upzzHker3WHo4wK0aT1xV+zjQ+G2xrHB/AU50/dhV/S3z23Pux1xv
gCPNN3wqoT72X6P+A5bxK9THyTCJA5zj7GXq91qmOMCF6uPsVer3zr8e50HL
Wa43kLmfBDdwjrWenYcs1b8BnpvvuK75I79L/Ycte3m+BbjU/MUDPB9zPKXn
5yOWw0eoj8/wPE5w/1Hq49oX1H/U8mxGfTwyTn3cNUF9PPo19fssf/yG+vgE
TvBFnONj2HnMsvNb6uOfcYIv4Bxn2Iksj2IP13Q9uB1H0fzrT/AOyjNcUJ7j
P3GBD9IfzuOW9a9oH0/jAJ/DEW6jfoJbcYbn+huvpn6Bz4/T/lbL5djDf2g8
cYAjnDP+Ca7iDPfgHDvHaB9f0vv/Ccsa3w8e7scBLpiPEZ7R/MTbcIZDnONW
vicKWd8T2yw7PqJ9mfIAlzjCDdZLgie43gyPar3gdt0/7qY/ne2WA1/SPp7C
Ad40Tvv4b8Yzwb0afx2v8cc/4QI7Wn87LGuUe3gDDhaUR3il5j8+iTPsab3i
3zX/8SG1/6TleuzhUu3jtWof+5r/C8oz3K37x8t0/3iE/nP6Lf8ap318Wf2P
z+IIz+AEt1E/w32U5/gE413g3/T8fMpyAHu4HQc4Z/5E2Pmc9nHIfMvwDOsr
Vzku8El9b++0bGY+e3gx6yXAFc1/rPWS4EHeJxme/pD28QAu8Nz3+tMcz/e6
h/X9HuAKjvAwTnQ858twC9eT4zFc4JjrcQYsL6t93FD7uKb28QTtJThV+/ik
3rd4Chd4UPuTZ2hH7eNM7eNOtY+run98Cmd4ifofT6j/8Rm9/3dZLtX44yV6
/uKE+RPhFs0/fJr5meHFev7jDZr/uE/Pv92WIfbwS3r/LCiP8CKtP1xQnuGr
xmkfH8YFXqb1H1u62MUxx3t4H+35+LCeDzoeh7hVzws8hmPcrOvHFZziXTjD
63EV/6PnC17N9dbxacoLPE3/lPi8+v/Z+eUu/kXjgfdgHy/R+OBBHOLjGi8c
43hB/QRrfFM8ovHEvzKfqrjB/MvxIeZnHev5VuCC51mJHb3/99AO68HFVdar
h8f4nvZxjf1fgPV7Qoj72f9FOGe/FOO53wuwfh9Ksc/3fYYruIr1+0OOj3C+
uu6H/VeBtd8rca/2X89xPvYjLtZ+xcPav/kLjg9wLw5xSf0IJ+yPYuxpf4f1
e0SKtf/MsH4PqWLtl3Nco3/rOGf/VOAhXOK53+8Gqcf5XKzf+zyccn0+ntuv
4l4c4gr9EeFWHOOGfo9Re9RPcUb/ZGqf/WYVu9oPyxxfx1Vc4BiXOp/2n89z
HPfr4iH6w8M+9nFVv1fgfvozxB2MRyRTHuNZ7W91PuZvipuY35nOz/qo4lbW
X44TXMf7WS8FnsYlbrxn6bzA+dk/u3iF3sfY53ng4228TwPcoDzECY5wyfli
3KXvB6z3f4p79D7HLsdXsb6fcnwG1/ElfW/gMc5X4iP6/tjLfXK8u3f+9XpY
30c+jjg+wJP0R4j1+3OEL/C9GOMe7Z/wYp7XKW7Wfg638D1Sxfo9OcfDvA/q
eFTfG/hK3oelzj9u6QxZrtL7H1+k3MPT2MdN2p/g0+x3Qrx50jLCbd9Zxngf
TnDle8tU7eEMn/vBsooP/miZYx/X8U5c4D5cqj3O57xoOXbc0sW148G/A1qy
dw==
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxd2E9sFGUYx/HRcNgYY/bQkMYQHU1DNgTJioirooyoWLXWEQErIg5YcFX+
rIha/+FrVayIOiDqqljHWrEq6oQQ0oMxcyCmMcTsgZCNIWYOHjbGmAnx0AMx
Rp/v79ByefLhmXffd+Z9532fzmWbdqzafL7nefvP87z/ov0rlv8fqsMB/2Ex
kEsWC7lssSJ3WfTlbouhPI8o+xYH5Mstdl7GPbR/Bc+36OSKxZFX8QKufw0v
ZLx78CLGO4KrFmvylRa7X8eLZ7W/ymJV+SUWm/LVFtvyUouJfI3FklyzOKTx
Xsv1ur/r+L1hfD3jU36ZxVD3f4PFhn7vRosjGv9y4hvEgPvbZ9Hh2tvkb7IY
vEUeh++QX2GxjB1uHyB/s8Vqkzw+cYj8LRZ/Scjjns/J32rx5y/I48oE+ZUW
//6KPE6/IX+bxdIR8vgP7PUy/u/I48Hvyd9u8YqUPO7H3h0Wh5TH25W/0+Ia
5fGlyvdZ/Iv+HD6q/u+yeE7jw3Xs9Vvc8i15HOr+7rb4D8/D4V49n9Di4a8t
BvgnPU88l3yGI/LePRb7cIAT5sfh37+kPV6NvVUWKzjAZezw2GHa47XYu9fi
Ihzgi7DDo6yfDE+P0361xd04wL+z/hweH6M9PvkZ7ddYXMf6DfD4KO1xwnrP
cPER7ddarH5Ie7xQ7wvue5/2uPQe7e+zOPEu7XEv75/D3THt8STvuzdAZD8I
cJP9wmHHfpLhWPvN/RZT9qMAx9jhEvt5pvxLtF9nsfUC7XGEnfLP0R4n2HsA
P097HGKH82dprzz21nMdDrDH7zvl1T+uqv8HscaP/RdphyPuN8MdR/sNtOf5
BBtm5h2u6/nhIe3/D1ls6/njluYPl5nfDHdr/48sDnD++djhAE9zfYTjN7kO
T3FeJDjFGW7iHHs6XzZaDDlf/FkOcH0v/W+cOT6HU87TBFe4/wzHOMcNnYeb
LJawjzv8XoBb9BfhOs/DYZ/xJWqPM+x4Xjn2yHsPMx49f1xT/9jHEVZ94bDm
O8Ge7l953tccl7V+BskP0w9OcIBTHOFA7zdWPZbgBs6w6rtcv6/+N3M/ev5Y
9VIga/3hpuYfF5p/XCef4Rrtczyl9b/FYlnrDzv2y2CWIzypegcPaf3jhP01
wznznet6zf8jFkc0/9hpP8YB6yfCqd4/PMn4E+zjDNcYT67fV/91ix3683Gs
9x9PMD8R1vpyWPV2ggdYbxmeYr5zXB/mdx61OMR+5+MG+2WA/d30jx12WOdJ
gtvaL3FZ6x8Hqo8fY7xaf1jzFeARPX9cYr4dXsb6SPBqnbd4Cedxjvs4r73H
Ge9B+scHP6B/PEA9EOH11A8Oz6O+SPChT+gfH6A+yfFh1S9bLXZR7/j4YtVD
OKd+ivBR1Wd4FfVfgk/gDJ/FufqjnvS2WTxO3t82s32AD3F9hDPVp/gc9WaC
2zjDv+EcX6j6dbvFuvrH/eofl3CEd6l/7Ov+8Qr1jy9Q/7pe9e8Oi73Uqz5O
ed4BnqPnjxeqPsUrx+gfX8L8Zniv5h93Y69h8SDrpSx/zHhwTH1axedYjwGO
cIjPUK9GeJx6tYHbrH+Hj+2nH9yn9wln7Gcp1v6X4Wne1xbu6LxVf+QLWX/v
P8E42P/KONZ+iKe4viprf8YTOJx1fYRVbzRwk/3I4YL9McYJ+QSr3kv1ezpf
NX6ub+FJ7be6H1zgkur3nTPbl3GG/Z0zx1PF06o3cYV8iFWPRriDG7iq+gGP
6P6x9udEv8/5niqv+gY3ub6FWzjHNa4vcEn7/5MW6/RfxpPkfZxr/nGv5h9X
NP9Y9WmEVX80cKDvLTjDMW5QXyR4F+9HitfjDPdwvrSwz/uV41PkC3yE88bb
ZbGL97OM/8Q+Lnifq7it9x8Pch6FuMN+EuFTn3JfuDJm0eEf2c9iXOf8SfAZ
nOLT+nsez2U/beEfcI6Xsv8WeFTfj56yuAeX8WLs44O4ikd1PuCTOMTzdF7h
IdzAB/Q9BvfxvSbGOfkEH8Mp7uh7DN6OW3g+zrHOswIP6/6ftnhc949run98
WvePQxzgQZ53iI9wnkX4LPPVwAv0PU+/z/zGGo/mf9b1KT5JPsNduIX7WE85
/pXzsMD9Ov+esdjD95oydjr/8FbWdxVnWv94js4/HFG/RXhK5x/ex/vncA3H
eJL3NdHv4xQ3VV/imPOxhQv9vYM99qMCt7X/DXHf2v+x9msf+7iK9b0/wBH1
dohr1PMRblCvN/R7+r6DW3yviXGGE7Xne0uKQ9pnGj9u6fdwrjzfYwqNl7yn
70Lky/ou5IJ/ATS4puk=
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxd2F2IHWcZAOBRQlmkwkGCHEqQsYQQStGjjRpjtGONdf2LxxrrGlMdt9sa
q7anscZYVx3XVddY66mmcdVYx7U/a416CKEs4sVchLJIkXORiyBBBsnFXkg5
eCGLSBH9njeQ3ZuXZ9/5fmbOzPe9M6+dfeCOe16eZdljL8uy/8X0N7n1/yGv
Cv9IsfgGT6XYjXwnxeXw9hSXwt0Ue+EdKU6F8xR3h29MsYzxdqbYD+9KcRDe
vSV/05b8zSnm4delOIzxeinOfJPfkOKJ8Bu1D9+i//CeFEfhN6W4FH5zit3w
W+QXeG+KG+G3pjgJ7zOfb/HbUhx/m/en2PkOvz3F5e/yO1IsTvKt+n+EixR3
/yDFijc5e2eKlxxfcT/a35bi2g/leduP5N+V4uIpeZ5/XP5Air2fyPOeZfl3
Gy/yXHJ2e4o7Is/tafn3pDgVeZ6P9tMp/uen8tz9hfx7U7ztV/I892v596V4
3VPyPH5G/v0pHvyNPJ/j7AMpHnlWntcj/8EUb4g8n+bs4LWueDbyH0pxX+R5
Kfrvp/i31RQLfpgrPskNn+bswykej/b8d+df8SI3fCDa35HizmjPF6I9l9E+
8k9r/xHjuf4FV0+KfMTv1fA/V7Q/lOJFv2/BV39vPsZNHF9r/9EUJ1zwq6I9
T8s3/Opof2eK/V9qz2ee0J6XuOELcX9+LMXuGe1582fac/5z7bnv+GzG/OUL
vpkrvux5bPiFeL4+nuJez3PB+3+sPZ+3HjQ8FevD4RQvOb7gNtrzCW4Ob2n/
iRRnHtOeJ7EecaxvDXeH2h9JceNR7XnEFR+N9jwT6+ld2i2JPG09rnhjUfs4
nrNPprhufS8444rzBe25jv3kU47jgnc7vuI1+YanY/8r9Wd/zLn8uv54wCX3
ueLia/rZ4oZzx7c8ls8+nWJv3nE84IKHXHJm/lXY+dW8Kd9w1DNt2HyyWf+P
8Tkzv4LzGJ/rrxo/juc68g8bnydfMc4WZ3fr3/E5j7jgof5LLmP8u6+dT73F
DTfccp+zOY7xuTG/Iixfcsf1qfio61vzVNxvHPVVy+tx/93j/5xz/J4FH+WS
TywYnyeep5o31D8Nd79vHF6K+uVe7TzPOXe/Z3xe1V/JPa648vzX3Bqv4ViP
Wi6tV9lnUoz1MudHYj3kJetryUPrb8Uz1uea++qZhqO+aXnR+p4d1Z/9Jefp
2A/5r1zyX1aMzzfZX2ues/82fJ/9ueUq9u/Pprhp/8/5JfVKwTO/NT4/xxWf
4poPnDU+7/qd8fnO3xv/PvP/g/H5eS74lpHx+UGu+JVc8+3aN/wP47W8L8b/
XIqbnPP1+iv49TE+X9R/xYe45pf01/C0fMt/ivE/n+JDMT4vu14Fn3M9Sx7G
9ecFv1fN27jh59WbLV+M+vMLKZ7hnBe54FkueSXqU15QH9Y87/5q+Cy33I37
7/4UB5zzdi447t+SW/d7xS+uGJ/XuOFXcMv/ivrvgRQPqP9yvhL1HPc9ryUP
oz7j7VzzRP3X8A5u+Xy8Xw20s550eM77Wh5561WPO9azgtetd31esh6WPGO9
HER/3l8rznjIa+qfmkcLIl+th2J8HvMk9psYnyd8KfafB50Xd7iNeohH3OMq
6gPuqw/60Z98yfG9Y8DxfaOK/njIUR/V0Z/8iJuorzjqs/GWfBvzN78JRz2T
HXMe3OGoH3KO+qN37NrzLbg0Xp/zOH9uzH/Acb0rjv19yGtRT3B8bxrFeFFf
8DqPecr908b5ub8mcT7xfeSL5s0dXrX/51y5v3u8oV4oeC/343gu43j1xoCv
vl/wvOdrGPZ+U/O6emDEi+qBhuP7yZgPxX7PL3j+J9zE+99D5uV9shOOeoAn
3OPL8b7K13Of43225D3WuwEvc8VXeMgH1Rt15HnE51acB2/ymGM9bvlenvAu
zr6U4jR3eJv1PedZ9UyP7+eCr+M+n+WSV3nAx+L7BO/kIb8Y9VQczyN+Ir5n
8Gt4zGPn0/KIJzE/zo6nOKN9h0+ZT84n4/z56Th/ftb+2OfjsV/yHA/4XHwv
4zX77ZD3x37Oj/KIr34P4rH2Y74S+z2v84RPx/7/ZfPhDv8x6gGO+qHHk6gP
+Dz3eTPOn8s4/y2ueMRDfo5r7uh/xDfINxzfu8bR3u/Z8mGexPxXUsxOpPhv
7vAFzvlG7vGf43sXn4/nny9bT0qO70+DsPqj4q76Y8hD61vNhXpkxKfiexI3
1s8xb/q+0/IRnsT46pfMe25ufe7w6lLxX7QrrVM=
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxd2F+IHVcZAPCxhLIPRS4lyD4EGSWURYJcddVVYzrWGK91rdca69qadoxp
umra3sY1rlLruK511aq3tdZtXes0rXWtVS5SZJE+DH2QIH24iJRFpMxDHvah
lIuIhBJE9Py+wGZfPn77zfkzM+d+Z2bedPzuG2+/IsuyB1+XZf+L6W9y7f/D
8rcK/0hx9E2eSrEb7qTY/wbvTbG9l6dTnER+X4rlfZyn2Kv4zSlW4f0pngtf
o314xvyiv7dcNr8DKc7F8W9NcTncTXEmzvdtKRbf5rcbf5XfkeJ0eDbFhfA7
U9wMv0v+u/zuFDvf5znzfYDfo/0P+L3mF8e/L8X17/HBFHuRf3+K7Q/5kOOH
fK35P8hFinMPpVjxvp/IfyDFF7niwz+Tv875PCbP41/If1B/v5Tn85wdTvH6
Wp7v4+xDKV48K89X/Er+SIrzT8vzmV/LfzjFlzbl+Q3PyPdSnPqtPJ/h7CMp
lpHnzchfn+Lss/L8MmcfTXHjd/K8zdm8+fxenv/I2cdSvCvy3Iv8DSm+EP3z
nuj/4ym+PubH/Zh/P8V/ux4Fv8gVz3PDvd9o/4kUT7q+BV9w/SveI9/wlZzd
mOJFxxf89WjPFTf8H/c7+2SKh7jgsfVR8QFuuB/r52iKS09pz9tntefrntCe
z8X6/VSKq9Z7wZvxe+ATj2rPO+va32Q8v6eCDz6iPVcPa88P+71mn07xWb/n
gl/xe6946kfacz/qxUKKi2va8+R+7Tn/jva8HvXxMymOV7TnbfmKd9TDhi/V
y5vNJ9rznHpccdTrhidRv29JcdrxBS9G+1t2z6/hOc4+m2In2nOr/4ob+0nD
k9hvjqVYyxfHds+v4u2Y/7Hd55PdmuIaFxz7V8V5tL9193jZbSlOR3teiPO/
bff5NHxp/yxT3HR8zsMV/fHE/Sx5J+4v97jm2B8bLqyfNvrn7HPGdXzOtXzB
Peuz5Dnrt+KB/bPmbftfw+vWf8uzsR8eT3GVc97PBQ9/bHxe54obrrkXvzfu
m0/LtXz2+RRHnHOlv4IXzKfkSYzPz8nXfJ4bPqhetLwW9eNEigP7e87T6k/B
s+pTya36VXH5c+PzBfWv4Up9bHlv7O+3p3iEcz7BBU+pvyW/Fs8L/DjXfJgb
nueWn47xT6Y4E+Pz1TE+X+SS6xifD5hfzS/H+Hw6xufjMf4dKc7G+Lwa49+x
e74lr8XzFDeub82nuOGluP68sWH8xRSH7l/OV7l/BT9g/yq54oo7XF+Wb7ix
XlreF8+PX0hxy3rLee2nxuej1mfJe+x3FS/6/dQ8VB8a3rGftbwcz+NfNK76
knMrX/A5LrlwfMXL+q95FPslr6tvLQ9WjP8lx0f95SbqOVfqfclF7C8c9b/m
zaj3HPtBy7E/ZqdSjPqd8zQXvO34ksvYXzjer2qeifG5sV+2PIj9684Ux/L5
nbvPp+DYn8rIx/gc+2vNxYpxedH5tNyN/ecu83f/cq7j/nO8r5W84/2r4inr
oeae/po4PvY/npHP7jb/2P849sOC12L/5eXYfzlzvjV34vrzIK4/N/E+Pkgx
nmc6HO/TOXe5e5kLnjJen3txvzju3yCOj/vHW9oPL2tfR55HHN8nGt7h8WXH
txzrdcLDWH/3yHOH8zh/jvXZvWd3+4Lj+bDPsR5L3llJccDduH8xvvUx5Atc
R956HPG09dfwuvU5jvnKt9xan5PoL743nE5xQf3s8FH1NeeR54Uun+OC93o/
6fMpLrlUzwf8D654Xv0fcsU1r9o/RjyI5wveetx5czwPtPxPnvDi2RSzL6e4
58kUO/w3zvmg98Uuz8T7Jm9wn2/wvlryH3jA18T3CJ7mIT/ENbc84vvjfZpf
1f+Ya255iSf8VLw/Lzne+XW4xzkfifPn1+J9mXP5Pu/nkv/s+AFfcH0r/isP
ecA1v5FHvMQNn9b/mB/jljd4wmucfSXFA9zhbc75ZJw/v8AFXx33n2e55Jcc
P+CV+D7Bh3jIzxi/5hM8ivnE+fPRsymOeYFbnuYJjzyvZmeMzx2O7x05v+r3
0+V7PX8WfN7zZZ+f9zxZ8sjz4IAvev6reKgeDPk5z3s1t+rNiOP7RsM970Nj
Xoj3rehfvZtwP+rfV+XVzw4P1M+cG/Wzyx3fZwveMl6fMy65q/8Bt/H8EP3z
MPKOr7mnv1HMz/k2/C/XY8y1+t3yyPWc8FXqa7acYnx/6vAB9TbnVfW2yzve
HwreivvPh62Pkq+0ngbccsWP8JB78T7Ff7H+RvyK/hu+SX7Mf4/6z5fqPz8f
6/9rzudsih3+05PFfwFQVqwo
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxd2E1oHGUcx/HHEkqQUAYpEiTIWEIJIZS1vsUa27FWjbXWtVaNWusYtzXW
2q41apRYH2vUtda6rVFXjXWMUaP0sEgoQTwMJUgOoezBQygig+SQQw97KCWU
IKL/709IcvnxyfPyf56Z2Wdfrus9uGPPCufciSuc+zftr77pv8gPRvzDMpYb
LctyYFl9E6+2DDxutszJLZYVObScl9dYzsqtlqnmX2sZqr3NMpPbWe9buIN2
eZ1l89s4Z7mg8ddbetVbz3j5Bsui+t9o2SffZDmpejfTX/VusWx8F3dadh/F
t1qOyxssB97Ht5Elssuy7T18u2Wg+TdaVt/BmyxLao8spxnvcaD57lg6v8cV
1d9sWWc+j7s1/530H6Ide12PLazvCP/HIXZ3sV6ur8eNut53k4dpx6Gez3ss
U+yxp7/rttT98zjS/bvXMqf14ZLWt9VSz6/HPVrffZbdasc11d9mGWv9uKr2
+9mPxuO85t/O+lmvx9Na/wOWFa0fZ1p/fun+IqzXk8d63lMcq/6D7IfXR4Rz
2g8uvsF43Kn17VhWH5d4PjxOeX5S9dfz/JDlAI7wpJ5HXMYp9no+d1rOMn+E
m5nP44rG45LqP2xZoz3CsxqPM14/Kc7p9fMI/XCEGz/k/zjDKa5i9yj/P854
PP8R43FrmX64k3bXY5loPG7DHk8fYzyOsXuM/XBeRbgPe7VrPC4yv3ucdtYX
yVo/Dumf4k7t/wnL4APGY52fHlc4P1NZ59su5qM9wvPcD48bdf9wWeOftJzV
/cM6z73M+lIc6XzfbZmpPtb18rhJ9w9XsXvKsqjrh5MTjMcXcIpnsIst95+0
DPGvtEe4i/YY1z5mfhx8Ql08jFPscIZnsHvasgeHeJr5Izyo+ngGe9xM/wQX
aE/xEM5wiF2vZV77x1XtH9dVHx/T/vHvw9TXeO1f839KfXwBu2csx3CI9+MI
LzJfjKdp92qvUF/+nPo4wRmew65gucD4EA99Rn3cRHssM97jC6pfWDp/iju+
oD5uxG6PZQv9Q5xjvgh3qT6e1P5xTc8fXuT+pLif+5PhCez2sh4cYq/nDwc4
xs309zjT/ccjrC/F81zPDBfZj3uW+l9SH8/gCEcj1MdNX1EfL+AET+IUjzE+
wyXmd32WE9yPEJfpH+GxU9THUUJ93D1KfbwPp/gizvDJb6n/nOVlHOLeMerg
SRzjld9RH/fTnuBzqo8vfUN9vB27fZbHcIjPsr8Ib8YxHvma+rgNJzjBKT7P
+AwfVv3nLcdVHxdwtKw9xtuwx7/gBF89Sn214wyv1PXfb7lR1x/ncIRbdP1x
qOuPZ3GCt3xPfXwtzvAZ7F6wrOMQb/2B+ngOx7hhnPp4DU7wME7xCM6ww+6A
5UXVxytwhHezvxjv0P5xQfvHJZzijTjD57ie7iD7wyG+hv4RPqP6eEr1caD6
+DjzpbiIM7ye/q5oeSUO8JDWgxtxDm/T84GPjFrm8Xk9r7gJFzW/zg/ci8t4
HU5wjtdTFec5j1Ks118N99Ce4X7Ow/oyuxct++gfYMd8IQ7on5PpH+FhnMcl
xsd4Dhdxpv3jo9o//lP7xyu4flX8F+0p3o5ruFXnDZ5ifXWcZz3uEHVwgOvs
N8SDjM/hEe3/0NL587ig/eMrWU8Rj+n8xO3aP96g/eOtuIr1vKT4N+0fH9D+
cU37xx26/y9ZduMAL2r/uEv7xyHrj3C/9o9P6/0aT+AibtP7N45wWfV5f05w
Dlc1H07xTlzDq/V+j3fhOm7V/vstG3T/8WWuX4ineP5y6j/KuvE6zoM8XsAx
Ps35UcQTOr/wIi7jDs7fBHfjKv5Z7y94Fed5De/90TLDF3Edn8XuZcv2nywD
/DoOl7Xn8Foc4Unmy+NVtMd4lPYibsB+WXsZT+v9DJ/i/a+q+XGKR7geNfz/
+y1OuL513KLz/xX+z/0JcEHnP75K5z9u1/mP/+b5yOMBnf+4Qec/1vnk8SDP
Xxm36PMU1uetKp7W5yuc6vzX+nGGL1Gvjnfo89erljp/A1zV+Y9Lev3jZp1/
+DSvpzzW+0+MC7iId/J69HiQz99lPKfvU7jC94cq1vfFVOvl+08N9/F9JcNl
vr/WcV3f/wcsp3CAF/g9IcR5nMOxfm/AnvF53K/vy/gP1lPEw/r+rPnpX8at
zJfgEepVsX6/SlWf30tqeBxnuMLvL3Wc6PeX1+jH7y8BbitF/wCO4qrd
           "]],
          FontSize->24]}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0., 0},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm], 
        FormBox["\"# particles\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SuperscriptBox[\\(Ca\\), \\(\\(2\\)\\(+\\)\\)]\\) before \
transformations\"", TraditionalForm],
      PlotRange->{0, 6500},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{}, {{}, {}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmMuKXUUUhktHDs/AgQMHWxERETne76aSGBNz0ZPupJPOpXt3d/p+233v
zAoRERE5ioiIyEZERUTO2FE9wnmE/QjnEUTrXwv+P5PFl7Vq3WpV1e7z1OLu
1PKjIYRvHgnhP1n+Tc78L779PeI/ivze+LEifzbuFfmH8eNF/mn8RJG/GD9Z
5A/GVZFfGz9d5FfGzxTZGj8r658r8kfj50X/gvh/Uez74v+lIr3+l4scGr9S
5G/Grxb5pfFr4v91sX9D+E2J/1aRfxu/Lfp3ivT9eLdIr/e9Ir8zfl/inZF6
IuebwD+Z/qzoz0r8cxw/nZP150V/nv2FD9g+CYcLRdr+pQtS34dF2jwmsM/P
Rcn/ovi/VKTNZ7ok/j+S/MA+75eLtH6my7L+SpHWr3SF44WrRdr+pqucb7gm
/q/J+o9FD/7U9J8U+avpwT4vA44XwZ+ZPdjOQwb7+b8u64UT2OrP1yX/qSKt
X3GK80tg638W+zDN9cVpzjdNs788LfFvFGnnI4JtftINyR/s9d9k//Em55PA
f9l6sJ/nmSLt/ogzEh9s859n2F+4xfoI9nm9xf4y+Atbf1vyB/s8ga1f+TbX
F2Y5Xpxlf2mW42Wwz/edIq2/Eezn+Y7kD/b7+S7nG+9yPgns/RMO9yT/e6xP
wvme5H+fOd6X/IUz2O/jOa4vgv0+mGP/eY7zDfOcX5xn+zTP/jPY7++a/VVg
m69Ys7+6lvrAdh5bsM1HFvtO4oWFIq0fFdjncYHX12KfFjheC7b7Ocv6boHz
DYtcb7XI9UawzVctnMB2PtpFjpfB9p53Ei8scbxqif1HsNVbiz4tcbx2ievL
YDsvncQLD4q0flfCEWzzUj+Q+GCvX+wz2Oa5A/v+L3P+lXAE2/1RL3O8tMz+
22X2n4W7Zc4/rBTp8wf292iF66nBfr+D7Xy1K5xfFu7Afn+tcn4V2Otf5Xj1
KuebxL4F+/yD7X7oJF5Yk/hg62cEe/1rHC8Jt2tcbxZ/Hdjnb53XV8Jxneut
13l9EvsW7O+9cLfO9YaNIq1flXDc4Hg12N/nDfbXgv38ge3voU78h03OrwL7
e7gp8cE+f5scrwX7/QP28y/+wxbrqy1eH8F+/sD+Pm5xfi3Y9jtvcbwO7N9f
2xJ/m+3jNvurwX7/bHN+7Tb7z2Dff7Dv/w5ztcPx4g7nV4N9/sFeP9i+5/KO
xAf7+7Mr8XfZPoL9/IM/t/i7En+X88+7HK8D+/43Rdo89hq2rxq274N9PhqO
PxB9LdyA7T1MYKt/KPat5DMSzrJ+DLZ+dWC7PyZST9gr0vrd2+P4FdjmrQ/2
+QDbvA32OL9a7Bvxn0Q/3ON6WvE3knwy+B+rX+rpwHZeJxIv7Bdp+9fb53gV
2L5X+mIfwdbvwT77r8E2Xw3Y3y/xNwR7/cIjsH9fCI8lfifxJ2IfDoq0/eiB
/T46YH/9A14fD7ieAdjmoQbbfjQHXE8S/0Ow3+diPxL7DLb+jWV9J/qJ1BsO
mXvCFdjOa1/08ZDzGYCt37XYN4dcTwLbfTkEW/9bsPVvJOuz8Fjid6KfCIej
Iu33jt4R6yuw9a8P9t8bwNbvAdjOWy365ojrS2C7z4dg+15owfa+jcD+voPt
e2QM9u9NsZ+A/fwfc769Y15fga0f/WNeH4/Z/0C4Fm7A/v0m+qHk00r8kXAG
e/2SXwe2fk/A/nvtCXPvhP1XJ7y+D7b9iCec7+CE86nBNl8N2P9+Afv+g+1+
acF2349En4XHYD//ks9E4odT9t8D+/kH27z3T9l/BPv7D7Z+1mDrV3PK9Saw
ne+hcCs8Avv+Sz5jyac75XonYP/95WGR/v3z0OP9Cwvz98k=
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmEuLnEUUhktXLnvhwoWLTxEREWnvd1Mm5mIupjOOySTRTDmZyWRymfky
3ZMZd/UT2o2IiHyIqIhIIyIiIoWIC3HRP+H7Cf0TvNT7HjhvNodnzqlTb51T
l6/z0NrO0sa9IYSP7gnhP1v/LQ79b379OuIP1X5Dvq/aH8mDar8n31/tF+QH
qv2O/KDEN8IPV/sH+RGZ/9FqvyI/JvM9Xm1HfqLaz8lPSr6h6Huq2m/JT1f7
A/mZaj8jPyvzPSfxz0u+F6r9kvyijH+pWqvvy9VafV6R8a9Wa/V4TfK9LvGH
JD56fwbP6H+j2k/oB1u9D1fL+ubDMv8RyX9E/G9Wy35k8Mf0H5X5j4r+Y5L/
mM8XjlfL+ufj4j/h8+UTfr7wVrXcHxls6z8p+k+KvlPVsn/5lNcTTlf7E/2n
/XzhTLW/0H/Grze8XS33WwZb/856zme9njDy64ngvxg/8vnLSPSd8xzPiR7h
IvFhqVrWK4J/5vglH1+Ewzt+PRFs/RAu4N84ftnri8s+f1728QVcOP5dnz+C
rV9g9ruIP5z3641g6xf4d44/7/WGC15fBNt+AvM+Lxe83rBSrdVvxevNK369
BWz36cVqrX8Xvb4M5n1ZxB8ueb0RbP0H8z4sl7yecNnni5dFP5j1LhIf3pPx
YOu/+Iv4w/s+fwTbfSRcwPa+XqnW6ge2/XvFz1fAdr5X8XeOX/X58qqMB9v5
Tz6+AbNfMfnxSTgnr7cTfwF/Cu7B9r594OMb4Qhm/ZP4M5jvSQe28wbm/daD
rf5r3t+s+fVEMOuVwHY+Jb4Tf1nz+nsw93u46v2NcASzP+mqH58lvgPbfpPx
vcSHdb++Zt3Hx3Ufn4Qz2OoPtvti3evphcNGtdwPzYb3RzD7mSQ+g1nvTsYX
MOvVS75wzXNzzeuPYOu/xGfhDsz7q4Ct/2D7Ptis1vb/pvfHTa8/gblfs/g7
4QLm/uzFH65Xy/uruS7zg1nfBLbvGYnvwHZfS/4ebPtvy8c3Wz4+bvn5knAG
2/4TfwGzP/2WzH9D5gfbeyScwPa9C2b/OjDrUW54fb3Eh5vVsr7NTZ8/gtnv
BLb3RbgTLmDWo5f84Va1tv/Bdv+Bbf23vJ4s4zuwrV/y9WCej3C7Wn6/NGDW
K972+hPYvk/F34Ft/4Ht/IHt/dz23IDt/RF/2vb587bMD7bzJ9yDbf071Vr9
wVb/HT8+gfn7OO94vd2O11PAvM968YfWzz8AWz/A7OcQzPcztn7+UevnS5Kv
BfN7Nku+qXAHZj1mYKuv5JvLenow75OFcLiDvFw/2O4D4SHYvtfveD0jyZfA
rHcLtvdT/FPxd2Cet5noKRI/Fz298EL0hd1q2b+BcAPmeRzu+vmixI/A9r0C
Zv9asL2fu359U8nXCc9k/iI83/Xr7cG8Dxdg2//javl9Ohj7+Gbs44djrzeO
/fpGEp/GXn879nqz8BRs75nMNxO9RfTOhXsw+7EQDhM/32Di9TYTr2848fmj
8Gji9SbhduL1ZzD343Ti9XVg7peZ6CsSP5d8vaxvIXrDXrXcL4M972/EPwTb
7+U9r2cE5u+nJP52z+vJYOu/xHcy3wxsv2f3/Hrnwr3oX4Dt+/eu5wHY7n+w
3X93vZ4IZv1Hki9JfAvm+5DBrMdU5u/Adv5lviL552Db/2DWdyH5w77nAZjn
udn344dg1iOC2Y+RjE/7Xl8r4zPY7j/xd2D2cwa2/88B2/6X8b3oX0i+cOD1
DcDcLw34T67/wI+PMn4knA68vhZs/z8GZr+mMr478OudSXwBc3/MwbZ+MPux
AP/N9X/o5xuA/33f/wFdfBam
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmduKXUUQhluvvNwXXnjhxVJERES257PpGI2HHNwZJwcTk/TsmWSOyaw5
ZhSRRkRERLYiIiKyEFERkf0I/Qj7EdYj7Efw0H8V/H9uim+qu+qv7upePZMH
xtsLN+4OIXxzVwj/2fpvfux/8/PvET+o9jvje6r93HhQ7cT43sjz76v2W+P7
q/3KuKn2M+MHZfxDEv9hmf+I+B8VfY8JPy7jh+J/QuI/KXqeqvbI+OlqfzJ+
ptovjJ+V+p6r1tfz+Wq/NH6h2q+NX6z2B+OXxP+y6H9F4r8q9RwTPZHry+Bs
/uOsLx+X+K9Va/Vm8KfmP8H58gnR/3q1n5gf/LH53+B4Gez7d1Lyn+R44c1q
rf4MPjT/W9Xa+mXwR+Z/W/SDfb/ekfhg75dTXG8+JfFPi/7THC+c4Xj5DMcL
Z8V/luOFd6v90fxgX79Rtda/EWz9lkccv4C9387J/HPsz2Dbv3KO44cFricK
5wWOXxakvvdYXxTOYNuvAvb+XWSOixw/L7KeAvb9Oc/1xPMcL4u/nOd44UK1
tj8R3Nl8sN2n5QLXEy6KfuF8kespFyX/JdF/ifNlsN0HBez3x/usJ4J9/cHf
23yw989l0X+Zx2fhcpn1hivVWj/HK6If7PVfkfwfsN4I9vMC/sXmiz9c5XwR
7PcB2PvvKusN16q19YzX2J/Btj7lmui/Xq2fH7Ddb/k6jy9gPz+J9Tdg74fE
45NwTlxfl1hPEX8v88NStba/zRLXG4UT2NcHbOvXyfgCtvr7JdYXxtXafjVj
9scxx09g748xx+/GrK+MWU8vHJYRx/KD/Twtc7y0zHryMsfrlllPkfE92L/P
K9XafjRg72ew7U+S8Rls69etsP6ywvr7FdYTbjA3YPt+xxuSX8ZnsO1XB7b3
QwHb+e5lfLjJ+ZqbrDfelPxg268M9vqFC9jWuxcOq9XafjXCcZXrSWBff/F3
YDv/ZZX19GCvf61aX/819kew7Wdak/xrnK8D+3tB4vdgf/+sS36wr/8660/r
kh9s+9eB/fyvs54e7Ou/wfU2Gzw+bnC+BLb3SBZ/t8F6CtjvP8kXNqv1+oUj
2PotbXL8vMl6OrDfP8L9puTfYv0N2Ptvi/UksH+ftzh+t8X6Ctj7D+zvl1vV
Wv82YF9/sO1XAvv7Buz1g/29dYv19cLhNutpwH7/3ebxCfyX5Qfb+6AD2/eh
gH+1/ODfLP92td5/26w/gu09mMC+/tusr9tmPQXs67/NekLL+QdgW/+m5XjD
luuL4D/AI7B/r1uup21Zb5bxk5br62T8VPQW0TsDWz/1oncuHHY43wDs9/EO
5xuC7bxEsJ3P0Q7rTTK/Fc4yfrLD9XRg68+p5C/CM6mnF56D/feXXebBLudv
wLY/w12OF3dZ3whs+512WV8r/iz+icTrwLZfU/EXmT8D+3tP6plLvWGvWu9/
sL8HwF7/Hs+P4h/tcb60x3pasL9fJN8EbPddB7b7bSp6C9jrl3y9+OeiP+xX
6/2/z/Obfc43BPv9uM/xRvucL4Ht/mrBdj4z2NZjAvb+l/FTsP8+KvNnoqcX
/XOpLxzw/MEB528OuJ7hAceLYOvn0QHHT2DbvxZs758s+SZgu587sPc/2N83
B1zvTPw92NZrLvrDIfJa/Ydcb3PI+oZg288I9vrB1h9J/C3Yfz89ZD0TsN//
4p+KvxxyvTOwv7dk/hzsf9+8w/EGd3h+A/b673B9EWz7MxJOYFvfFux/H5D8
E5nfiX8Ktn4t4p+B7Xvdg2195mDf/6NqrT8HR6yvEf/wiOuJR5x/JPMT+E+r
H/y31S/zJ2Drr054Cvbvn+Sbgf29Bbb31hzs/z/xIY8fgP/d738A0gbl1w==

           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmNuKXEUUhkuvvOwLL7zwYisiIiLt+WzKQ46a2JlJJiaTmdkzmYmZY+85
d0SkEBERkVZEREQ2Iipe9SPUI/Qj7EfoRxCt/1+w/twsvqyqtf616rCr57G1
4dzGgyGE7x8I4T9b/s3O/G9++SviP4r9gfxQsWNyr9hvyA8X+x35EeFHi/2W
XEm8x4sdkZ+Q+U8W+yP5KfE/Xeyn5GdE37PFfkHuy/znirV6ny/2S/ILxSby
i1LPSxLvZcn/SrGfkV8t1up9TfyvS7w3JN+bMv8t0ft2sSfkM6I/+ngJ/BX9
73hO4K/pf9fXl8DWv/ckPvgn+t8vluufwLY+Z4tl/emszD9X7M/0n5P55/34
dF7quyDxL4j+i6LvovgvFfs5/Zf8+PBBsVY/2Pr3oY+XwLa/Lxf7K/2XxX+l
2D/ovyL5P5L8YOvfwI+PA8kHbsEZbPv5qtcTwbYeV329Gfw7589J/jnRC+Z9
lGV8mPf1xHmvN817fXle9F8rlusfwX9y/jXJLxyuF8t+xes+XwL/zflg2z8L
xbI/ccHXlxZk/oLMvyH5wbbfb3g9GWz9/9j7I5j3RxJ/Bv/G+TeL5f6LYOvf
Ta8vg+3+uiX6wbZ/wNb/W76+sCjzF2X+otebwXb+b/v6ItjOo3C+7fOFpWK5
PhFs9+GSrzcvif5l0b8s88HcD3nZ1xdWimV/4oqPn1Z8vLzi6wm1H1+BeX9G
MM9HXXs9SbgF8z7MYO7vTsaH1WLZn2rV++Oq5Afb+oJZfyvj86rkFw5rfnwF
tv0AZn9qGZ/WvN4WbP0W7ta8/nCnWH7vqzs+fgTzPNVgux/B3D8t2M4LmOvd
yfyw7vVXYJ6XKP563cdLYPazXffxM5j3SQe2+jckP9jq3/D5ahmfNny+VjiD
uZ7dhtcT7vrxFZjrFcHWf7B9H+96fS2Y76ss8Trh8EmxfL9VYN7PEcz1rMHs
dwLb/gPzfsvgf5gfbP2/5/NV97y+CGZ/auEEtvrBPC8ZbP0XDpvF8vtRgW39
N319tfiTcLvp68ubXl+36fWHrWLZr2pL8oN5Hmow1yOB2a9W/HnL6+/AVv+2
52rb64vbPn4t45OMb8G8vzOY76FO5oedYnkeqh0/PoLt/gNzf6cdn6/d8Xoz
mP3oJF7Y9eMrsPV/18+vdyW/zG/B9r0Ec307GR/2/PhKOO5J/j3JD2Y/W7C9
d2V8t+f1hGGx7F819Pki2O6/oY+fhl5vO/T1ZTD73QmHpliel17j41WNj9cH
23sFzP03APM812Dur6bx+ZPMH4u/BfP3/ARs95vwVOJ1wjOw7f99X09v34+v
wHzP9MUfhQfCNZjr1YDtfQ1m/8f7Xl8L5v6ZgO19IzwF23kDsz8zGR8OkJf1
C1cHXn8fbOt/4OsdHPh6ajDfN43ESwdezxjMv1e0YO6HiczPYPZzKv5O9M3A
9vehQz+/B7bvgfj7YPs+gtmvgXAN5no2h15fEv8YbN9T8U/A9r449PVNwbb+
YPZ3JvHCkefekddfCffB9nsbzH4MwLb+Rz5/I/nSkdc7BvP700r8icTPMn4K
tvsWzPfNTPSHY6+nd+zzVcc+Xx/M9YnHXv9Axtdgqx9s76djr2cs8VvxT0Rf
BvP351TydaJnJvHCidffA9t7BMz3Tx9s38cTr3cA5vmpZX4j8ZP4x2D7PQHm
fTORfFniTWV8J/4Z2N7/p8Xyfu+dev0V2L5/YKtfeAC29QdzvZtTnz+d+nrG
YPv+SbwJ2O7/U1/fVOJ3YPZzJvWFEXSw/pHXU4G5P/ojnz+OfPzByMevwexP
A7b9D+Z6jcH2nhv5eibiz5J/Kv5O8s3Atv/ve3/vvtX3L7am6B0=
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmNtqZUUQhluvvNwXXnjhxVJERES25/NMj+N4GHVmm8xJM0k6yeR82kl2
MhkRaURERGQrIiIiCxEVr/II/Qj7EdYj7EcQ7b8K/n9uii/VXfVXdfVaa88j
y/szq/eHEL6/L4T/bP03Pf+/+eGviD9E5geq/c64V+0vxg9W+43xQ7L+YVnf
VNsaP1rtz8aPif/xar80fkL8T4rep8T/dLXfGver/c34mWq/Mn622rHxc9X+
avy86H1B9r8o+1+S/C8Lv1Lt78avyv7XqvX+vS773xA+V63347zEi9Xa+WTw
j+a/UK2dZ74g+9/k9Rn8ufkvVvuT+S+KvrdYXwZ/bf5L1dr55EscL7xdrZ1H
Bv9h/nckPtjn8V2pD+zn+R5zBvv8XWbOlzleeL9a61cGe/0fSHyw9/9D0Qf2
+q+I/4rUd7Vam5d8VeIPWH8EW//zgPWWgdT3Ea+PYD8vsNVfhMMM64kzkh9s
96nMsJ4wy/XGWal3VvTPcr3hmuwXztd4fbkm+a+z3nid12fwp7b/OscPN6q1
84w3uN58g9cXcLb9N6u1fsabrC+Dbf4L2J9ftzheBPt9Btt5llscP3zM8SPY
6wfbvBTh8AnHi2A/f/EXsM//HNcT57iePMd6Ctj7f5vzRbDXf1v0g31+55nj
vOifl/3CYUH2L3C9Gezzv8D6wmK13v9FXp8Xud4iHBLrbZLoSawnJdafhVuw
Pc8K2N5nXZL8Sxy/Adu8xSXWk5a43rzE+luwzUcB2/u/A3v/lllvA7b+xWWO
l8A+38usvwX7eS+z3k7ihxWur1nh9XGF46UVzpfF34Kt30XidSusP9yp1u5P
A7b3ZwTbeSSwzzfYzrO9w/UUsPW7A3v9qxy/EY7gLyw/2N+X4m9XOV8BW7+6
VdYf1nh9s8bx4xrrTbI+g62/LdjPf03yS/ywXq29Hxqwv4/B9j5L6xw/r7Oe
Fuz3HWzn0Un8sMH+ZoP1xQ3Ol8SfwX7/Nlhvkf2d5Aubkh9s5xk3WW+S9Vn8
7SbrKWCb7w7svwe2uJ5mi/fHLdaftjhfBvv932J9BWzn0YH9+327Wp8/sH8P
bHO+JOsz2N53rewv25J/m+sLO6y3Afvzb4frS8J5h/O1YJ//Hdbfgf33yG61
3v9dXh93OX7aZX15l/O14i9g608HtvkKe6yn2eP1EWz9SnucLwu3exy/yP4O
7PO/X+3flh/s36P7HD/ts94M9vu/z/EL2OatE38Ycrwe2PrdgO08+kPOF2X/
AOzP6yHnH4J9foTHYJuHVuKfge0+F7D1ayJ6O8k/Ff3hgPP1wH4fDjh/XzgK
D4STxBsesJ4MtvkYH3A9rcQ7Ey4SbyL7O8k/Bfv3+2G1dl96YH8fg60//UOO
Hw85/gDs8wq2eRrK+gz2+g9ZXyv+M4lXJN8E7PMOtn5NhcMRc++I8zdgm+f+
EeuPYPv/jsER60sSfyjxM9j6Pwb7/AufHXG9ReJNwP68Adt5TSVfGLG+3ojr
a8DWzz7Yn4/gU6sfbPcrjVjvcMR6svjH4M+sfrDd9zPJX0ZczwTs9x88svpl
fzjm+L1j1tOArR99sPUjin9wzPWlY843BNv3eZb842OupwXbPJ3J+iL+Cfgf
qx9s93kK9vt/wvX0wP4+POF8fVkfwV7/CetJsn94wvVlsM3LWPa3YJ9/yV/E
PxF/B7bvvan4w91q/7T6wX7/wXae/bu8PwoPZH+6y/UOwf79IPvHYH+fg/35
L1xk/0T2d2CvH+y/P07Z3zvleptTjtcXjmD7vTiQ/Qns7z/hfMp6xmCb1xbs
9x/s33dge95NJH4Htu+rKdjP/161dh69e67nXzY26DU=
           "]],
          FontSize->24]}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{0., 2999.5555555555557`},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm], 
        FormBox["\"# particles\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(IP\\), \\(3\\)]\\) before \
transformations\"", TraditionalForm],
      PlotRange->Automatic,
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]},
    {
     GraphicsBox[{{}, {{}, {}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmHdck9caxxkGsYLSWmu5CEiryB4JGcz8smPFAo4qYtWLCkKoUpE6WhUZ
dVGtiloQ0RZFxdFahrOoKG42ggiiCISpbNRW4ep9n8TPve8//JHky/f9nfOc
c55jFbx8+hI9HR2dnbo6Ou/+Ms9ElAa4xt2y6bjsxnn3TESzxYzShA+fXw4N
efdMxIr2PadnB3VcTkl+90zE3+FsuzKP1suF9949E/FxwHx5oaD5MsObhCnx
dplHpzQTbxLmDcvYa3yrmXiT8Gfcl/LVXzUQbxJ2uh/TFVQ8Jt4keEXs6bOW
1xLPGp9EpJkFTakhnjVmCXrle5KriGeNacu+G4wIKSaeNWTupj9cmXyNeNYw
GTFz9uyCM8SbjCtlPxbFfZ1PvMlYFtHS8VVjPvEmw8ZkwlmThRnEm4zEAcUC
w8UZQoY3Gcb3fjNoW3xFyPBscDbk1gSjjTeFDM8GO1O+qQmsvitkeDYoDck3
SLK9JWR4Npi190y9rCubeDa4Nlpg2f1XOvnZan0Yni0C+c5T5cNKyc8WZ1S5
cZ5HH5CfLfQNul9ujH5E72uLwbBlTnFHnhLPDqfDpas9RJrxsMMEla1+Gr+N
eHYIKb3T/eO8VuLZYXm8VVyUvIV4dvAtLRk5lNVCPHv8qz1zxA/GbcSzR9Gw
bVbf5ml49phy7ob31TTNfLFH8Lkrn09RPCOePSrSqhotdz8jngPy2uMWds58
TjwHiKd/MsrBspN4DhhQDUyyKukkngMeqV4Lkyd3Es8BbapX7EffdxLPEcaW
X2QGjOokniMMeS8TZnp1Ec8R39X6ffGvqC7iOaJdz9pQr6KLeI5oyQ8Z2Z3X
RTwnhNdOn11p0UU8JwhZkScrsp8RzwmmrDXlhuc07+sEc0GAqnxVO/GcUB9v
MKrKq514zrhT+ueWjMF24jmDJ5gaEDShg3jO/1dvzlo+w3OGRKCUHlzZQTwX
PIvX1zXb2c5839QF3QeMi+dkNF/+L57jgj3+P9ya9LyB+b2vC9bo18bIa+rp
/7lAUjLaPOJOPcOLcUE9L/UPF29NfbrAg79pltG2JoaX5YKL4SLV+j3N5OMC
E4sfT+utaWF4ahfwLNZtKopuJT9XbR6MnyseBTh9Z7Sug/xcMSbh72r1T/R+
vq7/l68rnqWV3jnq+Zz8XOFclmJ149Bz8nPFzXPHLi5t7SQ/V6xOePqtgYtm
frjirIoVWmhH65naFdsFvAHeMuLpsNFr4X/99hLimbJxQmW4ckvlM/Jjw0Qw
c/WOz2k8fdm4GD+aOxKa+c5GV+nx4BX/0HjEsHFdpTf3ww0aP7b2/zF+bKT7
1Z29KtXMNzaaYo+OenKc5qeajcs79qXM1esmPw7S5xWMN0zpJj8OzK7NrdIx
6aH5w8HEuF8KOX495MfB3NzFrqMW9pAfBwt5DXYuW3vIjwMnSeW1kO095MfB
DJ6a38ElXhYHNcX+63ovd5MfR+vD+HGQseNAdlmgpj7c0NW+ymHoCNWnqRuC
ppv0Zd3U1J+btp4ZPzdtvoyfm3a+M35uKOUvOu+5XrMeuSHvgKn+lFlq8nPD
Iv/Nr8ceeEp+brgRsXLJR02Pyc8NVapT84YfriY/Lp4Or+Odk9L+YMrF3PAi
ZzPDQPLjwmHR08jfOTnMeuzLhTjUIG/cNyW0fnOxNzWgJ+hIHbPex3ChzLGw
j/RuoPWcix4/qWxXYBuz/mdx8VmsdT67tYvWdy46ltrYNMX2Mjw1F+tq0xxP
DvTT/sHDpwPxC0yH+hmeKQ/9YreWwxEDtJ/w8OF3BiEvKvrJj4eTqeWvM9kv
yI+HyIHlw/p9X5IfD49Tb966EPeS/HjY27ph9dq+F+THwz/FyXLjjhfkx0N7
7ED3t44D5MfD1uLsi8f7+8iPr/Vn/PhIHv3ticH5/eTHx/2civRsaR/58RE1
em0ZO7iP/PgoD1I8+iShm/z4eKG/oKzwQSf58XHALOnjAYsu8uNj6OrzplW6
mvz4+DS/5e7Q8S7y42NqTj/79pEu8hNo82b8BEiO6+eULHxGfgL8Mz7s0Mjn
7eQngEVu+7Te+y3kJ8DWluaN239rID8BLJdu7PKtfEJ+AtjzztsdjasjPwFm
hm3e74068hMgptj5cNqlWvITILMoeKPZxCryc8cct9uPsw0Lyc8ddezPQ/Js
rpGfO/a6Zi3YN3SZ/Nxh9IYftGvkWfJzx85FdwyL758lP3cYz08zTLp2ivzc
cezr3MiVVifIzx363r0vHG7kUn24Y777mGBlyTWqD3f85HHX9mjuXaoPD/xx
8Iwkeso1qg8PXI9Mu9cTfYHqwwNJuYn53xzfS34eGJd889+LXl0lPw9cKNy/
2qShhPw8sHjp1V3soSry88AVXbVZrWE9+XmgdulMR+WNJsrPA03cNZuvzm2m
/DzAz23ifL++lfLzROV2y+h6qWZ8PfFTS96W5g+6KT9PbD02lFjZT/PF1xOP
g6Qlc6u7yc8T/WYbzpdG9JCfJ9bltA4+GOgmP090bjcNCnummX/vP2f8PBEu
nrXqfGEP+XnCKbV7vX5LL/l5Ic6Pl7/pbh/5ecHweP0H69FHfl6YXXylM/lw
L/l5ITK/PLLmBfFCvLA1R909fqrGzwsW4tACqwp632QvxLRc3Zueq/F7/znj
54VL+436DnZr6sMLymge79zPmvrwxkLzAIH9z8/JzxuG5iG7/cQd5OeN8NSR
vMGJLeTnjdxYe4sRK2k8Qryxu/hhRlJ9M/l5Y2br2TOF6hby88ahnBElU7c1
kZ83Usz+MjqQ+5T8vJGe+mXTwVd15OeNa3qv/r5k9Yj8fFDGLUq4y60lPx9c
WnqSP2raQ/LzgafuV9tjn5WRnw903LxDXw3XrM8+2Bj6i//Ugnvk54PPCxe2
XPntJvn5oMTZ0m2EdTb5+aDHvKRuUW8q1YcPdkZm6jRMPE/14QOj8pUxZrOv
U30ItfXC+AmxI/yf0xPGllJ9CNEcrp7xOric9jchlqYdClv2zX3a34Ta8zrj
J8R1lo6HU0kN7W9C7fmd8RPiVMTaDVu9NP2Q8G0/sOUKb98j8hMiSdDIavXR
7G/A1fDOtS4hZcz3jQBfPnuO3h8l5AtwVBWspHnkYw2cZekr2r6vofMNkFLm
cnvfGOq3AHx78N9zdGfX0vsAzWmxzWPPUb8RCPSmbXgYaFRN7weYlAXMObny
AcOLAgrTNutuH615X+BhmdXm9nPUnyQCSRExyXpJdfT+wLaDQT5bhmoZXgbe
rlfZXJu4OjovAdlldr9bXiK/K4AyYldzeAr53QNWqAquN+tWMbxqYHVpdN8P
GysoL+B8xagbVpuLGV4v4Hl2ypJxD1IoPxGUd/xjzbrPM/PLSASHlASJB/82
zUcRLIviTFwSypn5Zi3CJu6Tco7XQyGTnwhfFns+2K6qYeYfRJjUMtS6TKee
5qsI7JbXtX/OrGd4gSIMuP25Ide0nuavCJlf7tp34k49w4t6/zmTnwj3zM48
ODm8keElihC/NGxzxGrN+UOE2tjPXlRE0n6WIcKgn0hQeaqN4WWJYGW+cE1V
WwfDuyJCU9jY8TW/d1B9ihAT5hh/0biN4VWLcD5HP7eco6Z6FeHnWDeZ9yo1
w+sV4aPUCTs/q2qi+hVjql5B4s2j5Gckxla93Klm09SUnxg+ereS42Y0Un5i
rOQmvfl6cSPlJ8aqWI8FOUXEgxg2fivHzhhL+4OvGKzc7lCVI603gWLY57aA
b9dK+YkxKkz5ava4ZspPjM4iXX+rFM1+LoZFrN+F6pgGyu/950x+YnwUO/3m
HocGyu+tb8ur4oFjNB5ZYtxOleWpBh5TfmJU6z7RXXyGxvfe28+LPlg168BT
yk+M9KIxaVsO0fiq3/+eyU/8v+OrI8HYHLsFCzuIZyQBn5dr3l5VR/lJsLNo
6f7d31dSfhLIUjbY5j++TeujRLu+MflJcK923trw6Ueoft/+3n240xyrAqpf
CcDnLskLKqH6fctjWVz6MeEBs/5ESRCXy/6IU/CE6leCwTivl6P9m6h+Jdr7
BCY/CWYE+LGs6qj/y5AgOK0n8FIq3Q9kSbT3BUx+Eu39EJOfBA8OjGkteaOm
+pXgWFvB+k/H0X2RWqK9f/gvr1cC4/ZTnwjOa/pLKRJUH+7/q5r6RyOptt9j
8pNiekL7Lx4c6v+spVjBWry6kaXpT6TafoXJT6rt35j83n+fyU+K0+dO338C
zf2EFNtY8+dHnCZelBS/+9VkspKpP4qRwr9VWJl0l/q9RKn2PoLJT6rtP5n8
pP97H5Il1fbLTH5S3Iw3svFLaqP83n6/NGdvcCb119VSuJy7N9t9oJ3yk2r7
KyY/KRpLTy53Oqq5P5Bp7/uY/GQITd09t2AE+ZnKtP0qk58MrAHBFslkzX2I
DAkJjxd/Ea/JTwa/6WN0I6M0/Z4MOpbTzhpfoPEIlKE4P2JS2Cea+xgZ1o4f
rbDfTLwoGfKLv9qnGkf9b4wMyambrO/PpX40Uaa9r2Hyk+Gxnu3YvA3Ey5Dh
i7CrtSt+JV6WTDt+TH4yfFCWrvw7XXMfJcO29h1Jj/WfUX4yvCnNmJXrR/2p
+u37CGT8hlua/GRY0v7LxTHDNfnJcSLAI/O1Pd0PGMlhkPBG/Zs73d+YyhFr
oXIPWU7jYS2HV9o/MV0HWyk/OfbEfzpPKKH5DDlemCfeWltC9eErx7h4Xt2+
l02UnxzLw2ecV+9vovzkcIl3uW75K/XHUXI89w/9RtdLTfnJEWF+avYO10bK
Tw5H80u/eCY+pfzk+DViXaK8pY7yk+ON6jC3/NBDyk+OimHurp/vuE/5yeHA
mlg5WFtF+clxR/VH2DW/aspPjjkHQ1esOV1D+clxQVBTl+1JvF65dv9n8lNg
U0RcRp6wjvJTIJNlMDNjMp2PTBXa8xOTnwLuLKvbYldarzgKZKdtNzMIraL8
FNh3cI5r4Qw6b/gqMMDqY/lYPaL8FCgX3L/u1fiQ8lNofZn8FNrzEZOfAqtZ
H23eW1lN+SkgSTv+82+RFZSfQnv/zOSnwEYDdvoU4xuUnwIrStwn6bA3U34K
5Pevcr5t+SvtHwqsmTd4bKxnOu0fCgTsi36UlHCR9g+F9j6ZyU+Bv9xMDve9
qKD9Q4k/ikx2FvZp9g8l9PzWeW36tJH2DyVOFlckjt9K5wNr5dvx/zrCTKjp
j5Vw9ecOUw+20/6hxL0wM96M4XQ+8FViZcv19AXB1I8EKmHGk86z+5juC0KU
0P166HC06hXDi1Jikd3oI3emvaH9V4lpqy5OSBk9SPuvEvXmH+TZS4Zo/1Xi
xLFFXSd/0AGTnxK7g/dN99iiByY/Jdb9LikaMVUfTH5KVPTr2Jc06IHJT4lV
zgUVzRP0weSnxKgRHSOkH+szPLUSx6K3zXl6SZfh9SqxK8d/ucpWl+HpTMH+
6O1L0pbq4j+K4FUg
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmHtcjHkbxtOBRZQ2JTTJ6nyamg7Tca45NpFVsWuLxeZcWlpksWg7kFe7
WmyOlV2vKMdVKryUFLGtmoSickjHKR0lCS/73M/47M4/ffrMzHeu53p+931f
z20aujJosbqamtovQ9TUPvxlXlPwiWt//Cyvznxn3ofXFERM1JvVxOvMX7rk
w2sKdmjNm7fidEf+gf0fXlNwV6Tk7EBn/l+lH15TcGRGXe5VSWc+wzNDhbrt
5A02LM8MVTGZEw59wfLMoNXH3y626CSeGYQZsY2CUJZnBr+KPcM+9+sgnjmO
8bk1Vww6iGeOP5RbI06oPSeeOX4JH/3zEPt24pnDmB8YfmedknjmiA8UK7gO
rcSzwAzOuogvOa3Es4BBXkXkH9OVxLNQfZ/hWUAWPqlmuTPLs8ByTuTMuuss
zxK7AlG0JpblWeK25g7TyCutxLOEvzL17o55LM8SO5Q79zzSaCeeJbwq9uqP
ePGceFaYE6Tbm3WDvV4rxMc/WjQ1roN4VmhPVdw65vmceFYw14q67q/N8qww
EKfWO69BSTxrcFPf/nRyWgvxrPFS48rbdrMG4lnDurVeLbK0nnjWUGpcHZmp
eEY8a7xd/q197NGnxLPBXde0y23NT4lnA1utKffe1twnng0ic9a7VO3+lXg2
MBgy/3xOp0LA8GygFxN041fbegHDs0XXcj0dE812AcOzhbrVwjFzDXoFDM8W
FgE6Rq/1XgkYni3yylfEflIzSDxbrHwxbvdZoRoYnh0MdAZzv0lVA8OzQ0To
4fXfJg4Bw7PDsp3LFk4oVAfDs0Nq2QRbL0tNMDw79IduaQ220SKePVxzrK7X
rdIinj10rxkFBd/UIp49tGNDvpBnaxHPHloLf6hN2aJFPHuEDH9w6eEolueA
6cNrS/Ze0CSeAyR+aRWLNmgSzwFXY1YcOXtRg3gO0M2YllDK0SCeAz7vGP1u
hI468bhIeKG3nt+qxnzeiIuxKw+5V+9Ww994HhefBd7Rn3r8HeOXPxdTJG1n
NGa+JX+5EGcmF0/aOMjcj2guvs5MOnH8szfkNxdfGttMx39fC/7GZXERkHJy
JmfDa/Kfi+kBQ7uv6wwwvEYuHh26UXIxtp/uryPGaawomj/rJcMzcsSqloS0
0y/7GB7PEWUzpqwxKe4jfY44ubNt76LaF6TPEfYZVfV+3i9InyNMMx52arX0
kj5HTK3J/ObQ0V7S54gQnei2zAs9pM8R+c3nvng5p5v0OaL0YUl9b0gX6XOC
uvrppwkGnaTPCR4aib9WNLeSPic0uKxPuBrSRPqcMJjNXV8lfkL6nCBRN9w0
9n416XOCk7Mjb3iwgvQ5QZdn6HR7fRHpc4J7Usamh63ppM8Jf7V4fbf5t2Sm
fhqdsDct9+v2w4VUbzwkD+uMmzTtL6aejHgQp2Yk/b6qkuqPh4v8h3XZng+Y
evXnYXSK+MIvF55QPfLAy/1kbuuCBoYXzVP1A0YfD0WBzklxlUqGl8VDpyIj
9LvXbVT/PBhUHPb06W8nfTwMTfvzrMMztl854zutRd8/06L5YOSMCzpGv/Gr
2P7vjAqdT7cVRHeRPmeYiqvLJ3t0kz5n5B/a/O7w7G7S54yyGo+OFwXdpM8Z
bhr6F/f/1U36nLHAtd6a+59u0ueMhVG/WwjTiNfojKpD3zdYqvWQPheM0dWU
6Zv3kD4XZLRYb1xl1EP6XOAduyvr0kvi+bugYuKAcug9Vp8L7s690GyoZPW5
wOLa7FuSRaw+F3A0xleOMWP1ucDDtS1w0U90vaUueC5q0Py0heZfowtyyoL/
a3GNnZeuqvcZfa4YF5W9NuMo658rREEGo21NOkifK9RMpueOusjOP1ckpLY4
Jeynfh/tioEwJ+sKD/b+umJ+oH//Iifq/1mueJZbd/S3wRbS54o6twUnt1S0
kD5XrIwzjV0tayZ9bvg1bOquc/saSZ8bZMY5m68515M+NxiGLdMf+Xk96XND
c874zKCl9aTPDUtS7OdFDHtG+txwvrz3WFnBM9L38X9GnxteGieWbChvIn1u
/9Lnhn2KK5eTT7Hzlw+vvJtTN01tI318zA8fX9hVQ+eZx8ctxbnt6W9pfvvz
cZwTque0oo308TGXs2bBge+IF82Hwm3hBc/NrH98zAycoWVa10z6+FiueWR7
4MRm0seHX5x15jG/JtLHx58pBn2JGY2kzx2VYZ6BQ32aSZ87Pg231Q2pZ+ex
O04EemQO2rD63LExtU0gkbJ5xF2VLxh97qr7zehzh5gvl6StaSN97hBorTpZ
mc3mAXeYpBUn5yZSfmh0R194n5lpOZuvPFAac8ryqyHs+fNAaMXP7Xe72Pzh
gc1a34RbhrDnz0OVxxh9HqgNHxTstyBetMe/8p2HKt8w+jzQHqcxZMIvbJ7y
+GdeavSAYarm8SlH2PPniVHKUwb8C3Q/jDxxVfNne7swNm954nScnuiGks6z
vyd6W7O4Z3XpvCzxhC5n62n19cSL9kRiipmbu2YD6fPETI2GYxvqHpO+j/8z
+jxhapx/9KXbU9L3/n3jrMhh2+tJnxc0NS91OW4gnpEXnqXo1ugHNZE+L1xt
zV90OJ/Os78XxJwNG/Rusfq8EKOZsrK6iNXnhd/DfOP72qje9nvBWvPcrTdR
jaTPC1WxUhPJTDafeeHLsOA783qekT4vPAkI23C5ifq9mjfMFdVOvNwm0ueN
o7ntjdNn03nmeeO45h750ausf974mbPMNvMae/68VeeL0ef9r7ztjaB45T4P
Hnt/veEaZDSh+dZz0ueNsJqg2fc4bP/zhnWfQ6jOlC7S54MIq1d5dtu7SJ8P
fF1bJMefdJE+H0S1uJ5ZUMLODx/VPGH0+aCmcPm4U2HUT6N9UBSuHjJmC5uP
fXAj9UHXQ5920ueDg5zFJs8N2fnmo7pfjD4fcOO4RSa/sfUrwJ+xclu1d5SP
jQQ4lGPbfzHiCekT4PXEklIbzyekT4Ab/CpF/84HpE8AA756grD3LukTIK1S
//H+R7dJnwDnJAcvjZ11hvQJcGl51oksg62kT4Axf046F+KST/lFgB3Ol08U
Bd+m/AKE344svLH5LpMntIG2H+c8v+nwlPIMsHTG4sr0i43M982B8SlPtpwv
aKN8A5yaE6A5LaFTQDjcPV95JFvSS3kHKJs7snrx+H6GFwzkXYvnFG59TfkH
iEo5YtsaNcjwVgPKa+tbFffZPAnsTEnR+87kDcNLBKrEb9+EBw9SPvr4/b95
6cAkTbusbu+3lJeAh7GXB374lngFgFvKuYhkxQDlJ6A45+DJ/PgBhlcN2NWu
WbdwF5tHgd81prlM6xlgeD1AYsDLs+PPvyb/hDDOTGubtZnyrLYQw1oXadS1
Es9IiK9TMmSht+l6zYXIiL1pH2FMeZgnRHLfktoCv1fknxCcJMXkkjv95J8Q
Hjn/86xs7CP/hEiawTv/pwmbb4XYHTNyevKjHvLv/fsui5U+a7vJv/e/X555
745ZO/knROmM6Suuz20h/4SQxMh2H930jPwT4scJ18zHjn5K/gmhtWzbiGK7
x+SfEO+WVg/ofU3npVQI6YEtVoWPbpJ/QogGl9rMvPEH+SfEksLs7sl6h8k/
IaYfSs8b//hHqg8R+lbt2qd+4xJzXrVF4EfkTUy2LKF6EeGKm2H94vQ7TD2Y
i7A5bd406YmafMY/ERwD9nCH+j9heBDBO2x++72p1N/8Rar+x/gngn7gPNlf
fKrXJSI8D1gaMcSrkeGtFmFLbt+omJAmqjcRXDmbtt1eS/0tUaTqt4x/Ivgr
yke+y2pmeOkirAj0Ux7f2sLwskT/nB8FIvwQx4nKPcDO/4+fZ/wTqfIG458I
G/MuDld0tDO8HhEcKg6YXj/M5mcxHqdW3l/YRPNaW6zKe4x/YtV8ZfwTw18r
Im3ccOq3PDHC4xs2Fz4kHsSqPM74J8b8+OYdm7dRPwz++H3GPzHW8r10zxRT
f1z9UQ/jnxh78rI7vtpH/TxRjB5OQNHNxWx/Ff8zj6aLcUsZPZOXwc4DMbL5
dmXq4ZQPCsQYZTI1M3A06SsVq/oz458YT+KGjr7vxfonxopww/MujpRvesSY
FP+y1PopzSM1CZ4pTq60P0b9XFuCofFvGn93Z/OgBBpBZjOq1tPzi7kE38c/
jRzKZfONBNmc+VpRBcSDBAc1937xTQQ7DyW4kttUevcdnZdgCaw50Xv+Y8rO
b4kqnzL+SVT5g/FPAplbnDzgUQP5J8G+lMnWm75i84cEuzTuLbkdS/kiXYIH
FaYJyrxa8k+CiUOVdcM5deSfBKlaw78JvUPPe6USLA4vURw5dY/8kyCU3+le
3U77mEYJ0lLK3R2sysk/CWZVmturN5aSf1Jkug/Rf3yzmPyTomhVamn32ovk
nxR7chILIzKSqf9Jkb8optzuf/m0r5Fi6cH91m+u3KP+J4Wba46x8n4d9T8p
LpQptiyoa6b+J8VWY/mYl4kd1P+k6P98duAh2y6Gt1qKWJdl/QOT2P4nRcXa
sceOONA8SnzPj3rjc01B/XT/+/cP3bob5dBP/U+K4oxs3/XcVwwvS4po8afB
SSMHqP9JUZdx2m5I9Svqf1JYJ90eq21J+6VqKX7QmDV3S98r6n/vfy9zf0WN
+SDD65HiZPnKpKJtNI/UZCguXx7lz6X5pi3DGWOD7gndtD8xkiFs7ICh4WQ1
Zr9jLsOlZpPHQxrZ/ZQMujs3XRGsof0VZPBS17Ztkqox+x5/GdJasXRU3Vvy
T4YTtV++GFH7hvyToUTXavXX0jfkn0w1zxj/ZJAklbzeXU7XmyiDae26OBMf
mm/7Zdidc+zxGWe63nQZ+jOOf7r9xwHyTwbnAG1twVKabwUyxC7XTNSPekn+
vb/eshN71na/IP9kGG21QPNwGO3vGmUos1wp9S/uJv9kmKCz0262Pt1fNV9I
RPNS28u7yD9f1ecZ/3wxrqyMK3vXRefv/edd1rkf29hJ588XI8O0X6SfbKfz
5wvTlmsNl39l9zW+mDOhdLrfmCfkny9+OpikcfPSffLPF7YH4sUebjfJP1+4
vYtcF21aQP75YmXMqy8SZieRf744u/b5srd7DlP9+kI8XP7ZUoMsql9fRN6Z
O87z1XWqX1/4uzl9pX62nOrXF+fDure1jamg+vXFg9T4XsXCKqrf959PC9vi
EvKQ6tcX55ZH/6A8Qc8nPb6o0ygat2QTPU+ryTEiddj5x5/TPNKWY4fi6q2g
4FaqXzn88q57X02l511zuSofM/7JVf2a8U+O1vBXTrUb2fkhV+37Gf/kaIg5
NvpxBrvPlyN5bolVkZTy+mo5JH1W8r2llO+j5XhRNnXhxmW0X0mUo19nxILE
Tez+RI7iiW/6C3+kfUu6HGlW7XHeD9h9ihyJGZH77s+h/UuBHIU13oN/rGD3
P3LVPonxTw6lzqgIuRW7D5Kr9kuMf3IYxh580DHAPn/4wTkn4ivRwq78/wNq
ymgU
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmHdYFOcWh5GSGAtIoiBK0RtEusCyu/T9bWMXBRGNsaIYFEU0REEUNUoA
jRgNmNhoEsUC0cREwoItGJBYQBAUAgFFpAtIU4qIXLxzZn288w/PPLu8+85v
vjnnzDf9i+D5a1RVVFQOjVJRefuXOYzxJvLki7Xzu3LsOW8PY5R5l0aVHOnK
WRvw9jBGYezhgyc+78pJiH97GONlrv8b+0+6cu4Vvj2MEVftYXNqalcOw5sB
/8Crua88WN4MrE3fnjN2JcubAduwX5fZzmV5M+DEa/NZfZDlzcBocc2zhEMs
zwQbzQayrWJYnonyc4b37nOGZ4KvArMz3U6wPBPkFn9+LEiX5c3EpdiEczq/
dhJvJr5eXiR2Se4k3kzMaxGUHy7oJN5MzA78q3rzyU7izUSNqtmkP3d3Es8U
T0XN2sWHWZ4pDHvtgguKWZ4p7NP39gyOZ3mmMDGSxFUqOohniu80VqzY8GsH
8cwgmq+jaWnUQTwz1JdcCLY+10Y8M4zX2Pnkpn8b8cwQaLhpweO/nxHPDEPJ
Y3KTXjURzxx9an++aZ/RQDxzXJ0XcrLrWT3xzDEqa2Lcv1r1xDPH7XlfHeYK
GohnDm317PotRQ3Es8B0g5wzffynxLOAZ8r63dylVcSzQHbyXaOskvvEs8D6
jReaz4TfIZ4FFqYeqlwiUBDPEjpRin7bvYeJZ4kTLmP9xhv/QTxLiD+Sf7pW
J4N4ltiXuudMYFwW8SxhdHrVR/FRV4lnhSup4ZvCa7OJZ4Uvgrsdot1+J54V
2o4elG6pyxYwPCvssjdq+Gn+AwHDs4Kpd+ikBZMaBAzPGl7JZXPytZ8LGJ41
fEWLo7eEdwsYnjUq9D2Kjy/pJ541DH5Oafts1yDxrOFqPrnwzbzXxJuFkPUF
h42yhog3C9pZMSsW7X5NvFnoywt7NMlyiHizkP1oQfNc2zfEe3fO8GxQFXd6
ZV4efV/PBkVx5zbsDh4S/A/PsYG/gSmi+8nH0wZWj0K3+v/win7PBpq+r49d
zhlgeBE2CM87vPLL2gH6fRvMniB7mflqgOFl2CBErBPgmTVAPjbQjns4K3p3
P8NrtMFSHnfqrst95GcLf7WlYX1exNOzxQGeWdPBMcTj2GL0/aOOPugnP1s0
exsuPbexj/xs4RM44Yb6jF7ys0Vq7i2XVvkL8rNFQvPVnRYru8jPFrU81+gJ
ne3kZ4vSlvhZW2zbyG+El6Q9L2xnE/nZKe8342eHC5kf5MXWNJCfHZ4Wqfs+
ktaRnx2WchN0y6/WkZ8dUptr1+rMqSc/O+wv0sse1f+E/OwQNPdkxaIZT8jP
DrOT/HHzfDX52aEycVemX2Yl+dmhMPGbXP1VleTHQXRRUJr3zHLy48CoyLhe
y6GI1g8HTcOyv/jXb5IfB1NUXA7KNP8mPw5U7F3XDnx4n/w4aL9nM1mlqZD8
OFjO0ahfE/I3w8vgoLPFe/iTrGPkx8H80wvL0h5eY56fRg4OOhWYnVMU0PNm
j3Z1ju55fjnzfOrZY0Kpz+ILoRX0/NlDZ8OJqcs8qpjn1dMef/J169acfUDP
oz0WlOya+nv0A4YXYY9b6i5uNU5l9Ly/+3/Gzx7zHbNE9daP6fm3R0NgqHzw
dS352SvrG+PHhWay+PKhy7Xkx0WVwiBL85M68uNCd/26iWPn1pEfF/VRoo/3
nWPrIxdWPostF9ZSPY3g4g/1Q84tk56RHxclPrZRt03byI+L4OzrOgcT28mP
i09Lk60jPZ+THxe8+XpTm+8+Jz8eFpYeenUouYP8eEj1fpz1l4TtJzxs19eS
Weyj/uPJw0Xvqp814tn+wkOZqNXwO1A/iuBBu5e789sdbL/hYVD0tO9zV+qf
GTxoqE17HrOT7Y8j31czqL13n/ppIw+SXjP5sUK2X/JRozVhu3oZ9Vc9PqJa
OKdO63eT37tzxo8PGa9FklbL9mc+ZoelCS/3Ei+Cj5l5i+5KVneTHx9dsd8F
rF9AvAw+FoWdsR+aTbxCPuwVGxeL/Fk/Pvbqj3MKrmb7rwM+MxsuPfOErlfP
4f/mGQelD+PngAW8Rn4bt5v8HHBZX+WD3Vbd5OeAl8Wz/XesY/0c4MerM7fZ
z/o5IECxynj+H6yfA/hqE6/E3yNeowPGxu3x7B4knoqj8pzxc8SpwAvfzO1g
83PE+t5p0/3vsPk5wlpcnhfwPevniKOBF78fk8j6OSp9GD/H//NzRL7+UH/u
N6yfI/zDTs0UprB+jnASP1D8/JT1c0KIYoXu0dE95OeEpBarfZb5rJ8TWrXG
b5SbsX5OyNfSObzTkr2/TrispXfSoYJdf07K+Yrxc4Jx2O/r2gdoPWc44Zp3
RbJHOztPOSnvJ+PnhMlhf2xJP8PeX2cU526YEajD3l9nPDzxT73Rj+3k54zl
hqF+CZtp/vF0Rtqz/F2TdZvIb+T78zZ+G/4jzS8Rzri6Xhi060gT+TljpY9n
/2q7FvJzBqf1dIeagp2nnOEeNK060L6V/JzxmO93YXdpC/m5IGa9V8qXkkby
c1HWI8bPBY2lhjtmjad65emirJeMnwuuqgvmJDY+JD8XmDrVHfp24h3yc0Fo
6XH9Nv8b5Dfy/cCM8xk6e8nPBWm+iq9Cp5+n/uGinG8YP1ccVzEc27H4DvUP
VzioTtlfEllJ/cMV/Ykm5xOsG6h/uGJ6S17D9SNN1D9c8Vx/wy+34lupf7gi
V3HzdIBBO/UPV6zgbjKaZdxF/cMVX+fe9zfy7KH+4YrRitvBN4+8JD9XJEUV
OpvdeUV+bgjZemlgzbhh8nNDbFZQ9Zs7w+TnhtR9e7apylXA+LmhJDFktZ2x
Chg/N0wrdvz18CMVMH5u2Pqfx8EnC0aB8Rvhd2hUlI9VA+PnhsEjiyKNW9UY
XqEbZDErirfEqjO8Rjf4xSzOHOJrMDwVAYQ6t5wSrmgwPD0Bph+du6yzSZ3h
cQSI73j926nR6uQnwHfePwnK09XIT4CyI37pi5+rkp8APVvCx2xXqJGfAFe0
yjTLGoiXIUB+8OaouFka5CeADu/3RvsTrJ8A65K8b6/SVSc/wPSjxo6Ca3Q9
4wCVsLCh62PUyRd4luk8UbaVfEyAbcXGC76yUAOND1io1R6WKSY/ALYXF+pv
9hlF1wOoxUYUDBqpMLwlwCXfsueWH76h9QEY8zXmXB96zcw3IYD456P503bQ
vBsB1Kq5vDhx/DWzHg4AgclnHc/+5zWtH+C2mkhTt3OQ4Z0d4ZkbNoalDdK8
BEzxHdg/9AmtlxvAATNRpCyzj9YXsDHpqeuigy8ZXiVwsfj84S3d7HoDvPTX
r/jlyguG1wMkedukaYW+pPUnRIZqtCUuvWB444TK9cvkJ8Ta5lu/TdXsZHgm
QiQp7hUkTGuj+VAImVrMPh1Xej4gxFnvz398tbKZnichLCI9fzEoq2N4S4RI
Vx2eyA2vpvyEyEu48SBmaynlJ8Sn9/yab5y6RfkJ8S+nadX4P+9QfkL8U7iZ
Z5aeT/kJMYGja1cUfpPyEyJ16JOcv95cofyEuHx/pcDCdz/lJ8TBTV++tr2S
Q/VDiAC+pdv+xSVMvakU4ruUZW4xw9VU74Qo46Vcb2t+msPkJ8SSrGF7hW8j
1T8RxIbbt398t4XhjRNB0HryqWxMK9VDEfYEaSder6T3VxMRTgSN/UYa2c7w
OCIE7WnYlVtF8xBE+KL0+/ayLno/9hQp5yEmPxEO7ale9H1FB9VPEUKS4rw+
WtHJ8EJEyv7D5CdCzPICXkQX9ZsDIuX+BJOfCMXFC/ZfDKJ+dlYEfq/lwgXb
uhhehgheirVud8dSv7whwoH0Tcf/Wcb2VxHm9Zo4V02jflwpen+/o1Gk3N9g
8hMhRf+DaX3R7HwlVs5HTH5ipC7P1x+dwM5bYuhGJf7b8Yp4JmLlfMbUn3ef
M/mJcW15jmqciO3X4vfnmSViLFWsttX0Y+cL8fvzQ4hYOX8w+Ynfv94DYjQX
e33Fn8jOH2IYqk15qD2DeGfFWN/ieE0/lJ03xcq8mfzEyv7O5CdGTuyxhKWq
dL2VYuV+E5OfGA2R5zSfpNP80CNGWLX37Ckh7HwgwZXs87eNj9B6GSfBrRP/
dlW5tVN+Eqg5LNozp/gZ5SfBv+r7JmZ+3Er5SbAz2jAsK6GZ8pOgIFmn90B6
I+UngUe0+c/nPGheWCLB8azOno/Umik/CUxKKu04WU2UnwQ/GJy2WWbNzhuS
998vDkjw5YaYG7xjjyg/CVRSdt5L9quk/CQ4oi7fXNzygPKT4Mefdixx4d2h
/CTK/RMmv5HzPt1YWdp5qn8jvvFXrUJm51H9k+DJvR98qmtKmH7aI4F+4vlt
a/IfUv2TYv+67KA3gxVU/6QQFrs1zNatovonRWrS3IaUgcdU/6S4zH2YIj5Y
Rf1ZqnyfZfKTYleRfv711CdU/6S4XjQ+WtvjKdW/kf9P5La5x7Dvz1Lcaa7A
U1kDwwuRwjRQVFOTQ+/nEVKEKcq7iz5tpfonxSmeZ/612W1U/6TKeszkJ8X2
ll/3x9e10DwihaGi1aunrJnqnxRrAzknOGtaqH9IIbn/W+ecr4lXKUWc6a69
/UZdlJ8Uq7bY6MOR5pseKc5WlYwxW9FJ+blDqJpysvpqF+XnjrPN2cHBGV2U
nztef68z9xch8Uzc8Vui1qjlyZ2Unzs0RBtr4i2IB3fEzJuW/pfnc8rPHRVR
jd2fftBB+bljuoFf+D/P6HoDRr7Pm19jf6qV8nNHVVLnjVVT2XltxCfQ2Pfb
MWx+7rigtmkar4ad39zx0zqnMK8Y8jvrjmTTHeEuoew8547Kqvxyh4tdlJ87
LJbbRXaXsvOdO+ZqRQ0ErKF+WemOSUl9x3cIeig/d6yKfdNQWNdD+bkjQn+F
+fWxtJ+jIkNY4Ifx96dTPx8ng2/YC93Yoj7KT/b+fpCJDNMVuQs93XopPxlm
8oTeX64jHmRojezt2mTVS/nJUC1yUjW4SfPBEhkm90av1Bum+SBABi8zn7we
LeKFyJTzA5OfDP2RPfWZ3xDvgAwNqtv6vdV6KT8Ztno7Fou3vqD8ZNgeqb1W
k0/Xm/HunMlPhh8jx3odrWHzk2EwrV7XqY3Nb8SvJflVaTrxGmVYnVv+9bHU
bspPptzvYvKTY0rWRQ9RUAflJ4fMYNH81Ca6v3py8O9nDH1oRuvFRA7XeXZ9
ZgvaKD85mpPaM84Es/PLyHmk0bPJ+ez8Ikf13L3+V6ey84sc+5M+G9b1oXoQ
IMffo7jDGw+UU35y5f4Tk58cT6L2mm66G0/1T45xD0Ijpi66SfVPDp+Nl1QN
S25T/ZPDQ33pDX5nCdU/Of4MygjbPVhB9U+ORxqvjBTbqqn+ybHsg+pk37wa
6h9y5LcMrvMxZ/eD5EhRe7Dk4wrar+6R41Ky/gSNUez84oF/smov+aa15PwX
XptPrA==
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmHlYjekbx9NCWcJYRiphWmk/nXPaz/fsBw2yjLGbfpLKMgYxiLQwxhg1
g2jRWDJlGyYUhSZbjbQgKgftddpLpWz9Mu/9nrnM+aerq/N++rzf937u+32e
CT5rZ/lqamhoRPXT0Pj4k/mYInhRntg9vvWmE+fjxxT8Luu5sze33fRb8fFj
ihOL7hjpxrTdjDny8WOKy0rorRnTfvNB7sePKWbzaviN3PabDM8MfyzKGurV
3EY8MwzXMi5/UMDyzPBWVPH6Kw+WZ4bFKvecYpM24pnBNOjiyqaeVuKZ41cj
PZsUe5ZnDv1bi6sy0lme+X/8zHFoUbbVbSnLM8ekLjufoaZtxLNAmNLLY8k9
9n4tsF3nm0DLBS3Es0DpuK9eCK83Ec8CVrOMLE8GNRPPArMiGg67cpqJZwlZ
RHNi14sm4llC0HCsQj6wgXiWSOCvbZpsU0c8S2wLmHl2Ums18Sxxx/jwu4Ad
NcSzQl59xryqEXXEs8LF1PqSqDN1xLOCT7hppF17LfGsUKh1z2yiVRXxrPCn
f8i2hjNlxJuEc6u27PjR/SXxJiFKZ/CacTtKiTcJsUcPcLffeEK8SVhauFW/
s/gR8SbhixPxQ6Y2XyLeZJhE7xwe4XRNwPAmw2xlwaMX858IGN5kRGrq2J0r
eCZgeJOhr1V7do7hSwHD6/t+Xa9qjUa5gOFZ4+XOJW8jnpUTzxrF/mOsohc2
Es8atyy/m6W7rp141pjsb1DrbNlJPGtkKPc39sa+Jp4NupOTRuzZ+YZ4Nlh8
OvJM0hfviWeDoNR1XUETeolng9z0OarD2hpgeDa4U89HSWkv8Wzx+JnjN2IX
DTA8W9THrp56LVcDDM8WOu73zv+9ox8Yni2+MCob2ijXJJ4trJXG/U12a4Lh
2SF+YpFidbYm8exwZWK+bee3WsSzg8Q9bfU4My3i2eGkKCXz8/cszw5Zo6oz
2teyPHskcnMXFv5O/9/AHtOOr4xPOamBf/Ace8wPT9hserWXycvLHh6SmoN7
336gPOzxP36X3vATH5j7DbHHAG3Og4CD7ykfe1wOuzvh4rq3gn9wKfbQfR58
NPpgD+Vvj2ojWZbyXDfDq+n7vn/3PNN73ZSfA8KCGloX3O9meAYOCOFZd0y5
0s3wOA6Y17Vx3OqTr8nPATeNZqiGXXxNfg44pDw8wimhi/wcsG/ohrRrAzvJ
zwEBM9yVvRM7yM8B8VyfF6E57eTnAH2j7xPmj3pFfg7IidWrrZS2kZ8jOuPq
T6luNZCfIyxnbBg1e1Q1+TniUJx3+8LEF+TX9/fYpMBkgyLyc0Ro71KrMYZZ
5OeIIUuO6h64dY78HKEVfuRy/7IY8uu7ftj41GHLTtH6coTUxWBbpsUtZj3W
OKK54FBYVEUBrTcObgSmBO14W8ysTwMOVDqvP3uTq6T1zMG7BOQ0dr5keF4c
3A9TWGv0VtL65iA7wHNJlqqW4YVwcD78M9G9BhWtdw6Mnb0DH21qYHgpHHB0
1l+NXNZEfhw8bQiWbXrfTH4cdAV2mU0oaCE/J2iYfJk65Foz+Tlhbdr10fti
2X7opO6XjJ8THmpaT9wyuZX8nFCXtWJQ2w3q9yFO6n7N+DlhAq89UFlF/TrF
CeO6HNfez28lPyeMCbq0MTmReDVO//HjwtVKp8nYuZX8uGjQNNfVfMz2fy4y
ZhTHT2kinhcXASqXDKMN7Hzhonh/VEjFaZofIVzoaI1v3rON9eP+x4+LPYvu
80LaWD+u+n4YPy4ilVPsjxuy84j36fwy4OFD6LEOv1nsvOOp/x/jx0Pu/gP7
jn7F+vHw5/6Y30efZ/Pjqe+H8eN9Oj9TeDg71Oh8Rxjrx4Nf3K8L7uix+fFg
9zBmwt3f2PnGx98NIbM5yezz5aOyYYtLuncL+fE/nY9efNw7Wtr2zLOJ/PhI
P/r8Q3R9I/nx8bMzr4u3hnhH+IgIHB57vaSR/PgY23Bab9uQevLj43Bq6ys9
LZp/NXwkxpsY/3W2mvycscr43Lz9DlXk54y6K2NPz/KrJD9nPFR1Lzy4vZz8
nJGm+rBxyJMy8nOGx8yoL6b+Vk5+zrCI90gw8KkgP2f8FDZv9dn5FeTnjF1a
Jet/tKsgP2d0XPk8/lA6rbcaZ1wu6Pg9P7OK/FzwZbzT5uolleTngs8DVo4c
NJ31c8HiAj2tju+I5+WCZVoVMTccy8nPBdX+GxRv37F+Lgi6wjVp+baM/Fzg
FLYqu2BQGfm5YOFDwUDJmlLyc8FSnTHH9W1LyM8FnMDHOgcWFZGfKwY/2hBi
OO82+bli+5NlU1vfXiY/V0wzHuF+7fZh6n+uKFyR1f+AVTb1P1fU9sr/4l+/
Tf3PFa/8lAPydYuo/7miwCn9VL1RGTOPU1zRcomz60BLGfVnV2hy//juzepy
6s+uiF/5vzUd46uoP7vhm8tjhndXV1J/dsM+w0yD+T4VNN/dMCf2yzkWtcTz
ckNmvxpDpS7xVrihZ+fX5UPCK8jPDUqntCO268rIzw1cw6INwSNZPze8y/sg
8m2uJD83WHJPTbsbUEF+bgjhRrUeS2P93KGaHvZV71rWzx2edT35XUns+4w7
/AxzsM+3nPzcsT3P6M71E2Xk544LecOiHnTQ+1CIu9qX8XOHm//Ply9HPyc/
d0yPTZBsHP2E/NxR4/dy5N5Lj8nPHd55m5SCJ4/JzwPvNHzzbRWF5OeBUk7t
N0Nu5JCfBxR/zww1bLtKfh4ItOPHqcIukp8HarJPNp+9eoH8PHA/K+5H0aXj
5Pfv3xk/D6wN7Zn7w7xI8vPADyciEv0jU6n+PBB+csqxNLMbVH+esHStjNo9
MofqzxNnCv0zf3pYRPXniWurNn2XF8nON0/smbmjqPwIO9880RY/JP/rU+x8
80SaNz8eIQ20PjzxOFzP8Ne6elofnhgfaKV1lM/2F0+85i/4ZcDWevLzxL3w
wZYzDtSTnwCXtKPcVKPqyU8A+7TceS5dNC85AsxwlvIrsxvJT4Ctadf0ClvY
/idAXP7SGwlj2f4swEtNq1E3drD9WYD20JP9TD+w80OABKP+41+Hs/sXAbJn
FEXuE7LzQ6Du/4wfsCA5OPfeQPr+YKjnAeOLT+ejOdT9m14fEBHxcvnUcJqX
AJRZ/mPOBbDzEKgO/V2/LJl486HeXzH3BzgEnV/oML2N4a0HhFcCpu1KZecl
sNqqJ81mD/n9BKxP3vTnjBR2fuLTeXYK6vnEvC9BPe//4WXiP/O1j2/02Zxa
DvmVAJsjKtb1t6f9XA3wvvDU3CszmhjeK6B/xPua4y40jzSEyNPeO2HdDaqH
wcJP92sGQiSmNtV8OY/mj7kQbanPDlfPrKf8hCj0dgjLtiQehBgR8aakZh9b
D0K4p+VMDZ7aSPkJcbJhzxa/s2x9CNXzkMlPiCEmU09769PzCBFCNGu0vrVJ
C+UnRHHoacO4uWz9CHEkbrd50QI2PyEkXVaK6Fx6HilCfB4WW9ryhp5HplD9
PsPkJ1Tvp5n8hPjequvMuudsvf37O5OfEH7JW24OWsrWnwhfJoeUhF2h5zFY
pH5+TH4iXB1qcMy5mK0/EW7uj45ZoEk8zr/XM/mJMLyLu233Vrb+ROrzCSY/
EYTJYTUCH/b98d/vM/mJ1PXK5CfCw6EjdmeGsPUngiuv0Xv5Prb+RJDzVJKk
cjY/kbo+mfz+vZ7JT6R+P2TyE6nrkclPBHMTSWTJFbb+RLjkbJOvGUjr7ZUI
i5xFkyyMmyg/MZ572wYNDqZ6GSxGYmH6hdJ+1L8MxFjq7dW93FFF+YnxVbhF
fEN8LfUfMTZq/7bt4Ld1lJ8YsdrRc79ZraL8xHhW0BASe72a8hPjZtg0l4zT
bP8UY/eqsFM3BC8Y3noxpDrjMnZFFFN+Ymg9nOO7cnwx5SfGYf74gTHJDyk/
Md4U/BpUxCuk/MRY4Pp0cbTv39TPxPj6kY9jysy7lJ8Y0Qmpi5t+y6L8xJi4
6o3rzfpMyk8Me037wq/nC2meiXHcd6CAK85k5ssrMbw1R347f3IpzTeJ+n2A
yU+CzukhU8S32XkswUitgxn9G1UMz1wCScGF1mnBjTT/JLDhT+YlqVoYHiTQ
jXuTyG+g/aOXBFdDNc19lB0Mb37f9f4jHmQWdNJ8lOAP5S896fLXDG+9BPmL
BpX4jqX9b4gEC8RGIbf1ab/8kwQZqiBvWRvth4/0Xd+17JaivYfhnZLgrcpv
WMwhOr9IkeBF8nmbfiU9DC9Tggrlrjv3D3fTfJXgkGrH5i0drxleiQTN+XGz
c6Jp/1wjwZa4l/ax5Z2UnwSWRusjyq+/ovykKKk767ZD+xXlJ8Ug5dXjCo1X
lJ8U+zoTm22WtVN+UuTW/aFwu9BO+Unhp3loS1JaO+UnxYWkLt/j7W2UnxS6
odbK02il/KT4xViq7VbeQvlJ0cxz3TRH0kz5STHBeNn3T+sbKT8pTAP6P7Od
20z5SfHu59HTzwnbKL8+/v4RwraDbZSfFE9i+5daxLRRflLkG/5QpvMt7fcz
pajJe7acd76V8pNCZRh6d98YOl8qkaIiqd7hTzF7XtB3v52Hzu3U6aD8pKju
jPxV73wH5SfDj/mX0pM7Oyg/GR5uHPX7CTuqFwMZxi3i7j+/nXjmMjxJavJc
08LmJ8OGzjO6p1LJDzIs4a4zsTNl85P17WfSgx3HNlN+MuhqHc7JiqZ6XiGD
J2+5TXySivKToULzWGtXTB3lJ8Pq/MoH2VU1lJ8M7YZJFzdrV1N+MvV5B5Of
DJmGl6pXplRSfjIcybf60dz3OeUng+PKB3cnnmffP2XYHLO+s9D+PuUnQ49P
88mEihTKT4bByRcTTx4/xvSDVzJ4r/5Tc1xhNvU/OY5pS31HeD6m/ifHX0f3
6k9Nf0r9T64+32Dyk+NI2JxlredoP8aRY2yqfpBPGu23IIcrf/fcwXvpfNVL
juHaaVUb89j+J1e/LzL5yZHG93+UUkTnrevlGBBoZzx6v4r6nxxi7bMXIkxq
qf/JURwmNZHMpv3mETmyCtpiRoyqpv4nB6fwidmmQcRLkQOFj8akL6X+nCnH
Gf6qsrU766j/yVEVP0w5chad55bIMbO+tMQ9p4rmhxy/aD1ZkRdG9/tKjiiX
pH7Oj19SfgrsTVjouadXSfkp8JQ/PKdp+mPKT4Hp/T2fumTcpvwU6vMnJj8F
Hqjcv9t+7BDlp0C6r7bZ9YZMqj8Feh78xF/+w0OqPwUqnQYEZ3aw518KJGv2
juR+r6T6U0BzRrD77jG0PwpRoJ0btFXnj1qqPwUiQ52kHptqqP4U6I41PxNj
y9afAsrpu/6XbsjWnwJb/Hds0PN4SfWnwN2dy0d9cKT9VK4CKYap7aZLqd+X
KNT9n8lPAX1/Rc+8z2tp/SqQ62/Imz2A+ovGlL68t54z2tYi+D/J7ngK
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdmHlcTekfx1PIksYy1krNSCqpW3fp3rb7ufu1VjRDC7KMSowhauxLMZbG
hCmaUoxEY8uYoiyRyNZySxuhtGillYjxY873NK/53X96eZ3rfd/n/Tznec45
Xy1cMfM7bS0trX29tLQ+/2U+pghPWnmoxLstg8f9/DFFRuymj0dmt2X4Lfn8
McXs4OO8D1PaMn6L/vwxhf1rq29m/diakfPg88cU0bE/mRV5tWYwvPFYFHA5
893kVuKNR2fmor95w1qJNx4vpTW9h9W3EG88dvncF2xpbSHeeCytF10xXM3y
zPD3tqMdfjNZnhmuuJYentzcQjwz1Gw7oV+RxPLMoJ8avDl4Ccszw/btzxZP
CXtFvAnwsPhYcLyihXgTEG/Y1+RNGOs3AXl5s3afC2wl3gR0aY/rVpiz5zsB
t74Y8esGK9bPHENe8zf8tJ7lmeNJ4Htx9IRXxDPHybELh9otayKeORaGmUbY
tL0gnjlM3L1FQ35+QTwLGI0NParMqSOeBfZobtyb6dlAPAtUhvXVL3FqJJ4F
BvXZUJG1qIl4FnAVKuyr7jQRzxLvwrQ65tU0Es8S2WF65q6/sjxLnNdcOjb2
W5Zn2cNneJYY1HhmhDCtnngTYSR0DywMYXkToXG3Db1j3kS8iVh/Kb2/5lUz
8SbihJBTfm3EK+JNxMKCvc1Frex4WOGY69OLN+RsPytElE/m/G7AjocV/JLW
ZQycz46HFZ675gUPb2DHwwqdeVMWrfdvI94kvHR9EODpws7nSQiuF5zzvcPy
JvWMH8ObBIPUoFXp6ex8mYR+gq7tHk4txLMGL2lHe/cg1s+6Z/4yPGv4Wry/
Vc9jedbolj5/860z62eNoKSQP10vsPPFBkN0jCpz8tn5bAP9m3Orr1xm/Wx6
5jvDs4G14NU8ExHLs8Go4L/WJB1n/TgILnedMiaI5v9oDqJ/OXJjb5+WjH/w
XA5uCC0zlRnUfxqn5/yY3+P0XE//4LZweuY78/scHDDsP+kCp5XhXeAgtlw5
rnYF68PBWovXp1Y+If9aDgxuepVoDWbHwxZ1mUsGtl5j/Wx7fp/xs8Ug4yl/
uOuzfrZYI3QafO5WM/nZ4oMm8ZtU12bys8Wexl9+fabDzi9beDbG3Mn7s5H8
bDE/cExmazk7f20RGVc7/kFzI/nZIqFx1zq/08TTskPOWM/GD/7EG22HLHde
RNhD4nHt8M2lm5w+7XR9TbPDzrh6u53RxFtih8mXbjvfiKPrbYsd3th77ddd
30B+dmiwnxt/06yB/Ozw1N739OaCevKzw4SLAwMS9WrIzw4anezxX1tUkx8X
QYcnup/3riY/LioFsckc5yqaP1xsDvVa59/nOflx4ey2b9yUI5Xkx0VuqknW
vWvPyY+L6Yd5P9bMqyI/LnyNkhdPfUK8C1z8HerU9YVbDflx8Ti/cUvMVdaP
C66meHzIwDry4+GNUfiddfkvyI+HDUvdTlu21JAfDy8F0cdW76siPx6W6zz7
Wfsn1o+HgPy+r+2zWT8eugVRUZdqWD8edhidcB75qJr8eJD1Pp283ZhdP3k9
6yfjx8P5iw1l+06xfnwEjF056+ltGo/RfHQ0XOAkD64nPz60GpPHdSym8ZjG
x7TGuKI989jx5UNHOHv71LwG8uNDMHbjT7lr6smP37OeM3586LovmLWrupb8
+PhweEBm7DvWjw9oCkddns/6CXp6MX4CPK3vnFFWUEl+AgzJN3D3WVtBfgJk
BGxcYaPF9hNgT7y3y66P5eQnwN4CbvGsjMfkJ4DTssgOM2U5+QlQEnjGRzeh
jPwEGCa6HRqxq5z8BPAuEA+Qf/+I/OxhEXfujzF3CsnPHhkOGZ2pujnkZ4/a
vmMcA87dIT97LH9o8uXuvTnkZ48+y7PcdpTcJj972Or2a9ZKukd+9ojsrV6V
V19IfvbQit+Qc9iX9bNHTtzOXnu/KCU/e2g0vtFz8orJTwhpgcL0yq0y8hPi
V2F1n3qXMvITolBYlOVU/Yj8hHAtkI7UGvOI/IT4q8DynPEVtp8QDRqvzRUh
JeQnxOXe4qkxtQ/JT4iBjmdOzOiVR35CdIpe3Qq5mU1+QliJjKOEmzPJT4Tf
nPO8fdLSyU+E1ATn5XeCM8hPBMdlHSaqAzfIT4T38fGderJb5CeC+codi4eO
ukp+IizJ/Kvt66FHxIyfCE1RPyvWVF0SM34ixNlM9H/78E8x4ydC1V3/hu4Z
F8WMnwgr3RNPxo+IFzN+Dkgpihhz/mIy+TkgKezbOcn68eTnACMLx2UrJv3O
8KY5YN5Fn7bTzTEMb4lDD5/xc8BHTkm3n94V8nPAyg/G7efPpJGfAx7+cqPm
sjqB/D4dT13LLz0QSf0cMN+Qs7lm6X7q54iwhMlHL42/Rn6O+K2v1S5Nym3y
c8SjpfW+l/QLqZ8jflnafdZkuIb6OYJrL1y1Tjef+jlCpAnjW5QX0Pg6wifu
WLDl6CIaX0c4Cd/6DmotpvF1xMLeHokZhwrIzxF3davdOLG55OeExS7xe2I+
ZJCfE1YmRTtnyRPIzwmV2mOOa2pWkZ8TIqOTng2Q36J+TjDjFQ07fvE+9XPC
zNxRyca78qifE578lp42xKSQ+jnBxf9e2hLtEurnhCqe7sbrHUU0vk7w9/sQ
VRWgofF1ho5fasGxdXcZ3mhn3LKz2CLYksnwuM7w9tNKiB+uofF1hlx75Mbh
JWXk5wxj/60t04oryM8ZfgHcOO539eTnjHOG618GddSTn/On9X3LgueiJvJz
hn3D1uxfC1+SnzOK9xqvqZS3kJ8LIsw37egybiU/Fwx1dbc3LWolPxfMlc4J
W7O2jfxccDem/4sqRSv5ueCl4bIz2dGN5OeCaFfPI6kD68jv0/frSvFcVUN+
LtitnTrVYHot+blgZV1zTN93z8nPBelb/b5Of0rnqyWGKmDPybeNT8hPDNvY
AC8nnXLyE2Nj7Gy9h++fkJ8YFwwutpnOryI/MWa4Br4cO7SW/MTQDpja98ub
teQnxg/aV747kMD6/Xuc8RPDOq9Nf424hvzECHJdmN2g/4L8AFV9+rVd++uY
7+sBzw1XpIcqGskXn/aTqK/Ttjcx/98MyEu9cfCPlc1iun3AAZ0Qh7OCZjHh
sM5fdnhreAudD/Cg7pzaMbmN4XkCR7b1wyNuB50f0MmfHjpvZCfDCwJSpTIL
9+wOOl/gwheB+3bovmZ44UDXtvbqlK2v6fyBL2+ezp4hfsPwEoFnsdl30kO7
GN4FICWga7ZpdhfDuw5kWAhmzO77lvoAG3Q8fDa/fsvwyoA/BSbXPXXfUS/A
wG2o2cVrxGv/dL6xZSPG7X5N/SRY90vXfY/wDuonwek1Y3NL7NqpnwTl5suE
EaPbqZ8Ew2PfHFovbqd+EuzYpu81c0879ZOg+GSzy/ev2PkqQc3jzLsbdNh+
EqT583yKbNuonwSLM4s3HjzWRv0k6D5ZPdKhiXhbJIjW3q281J/8wiVYsG3k
1h17iRctgVC64FTSBroeEiWw3jYuJdi5lfpJ0MfHMcmsuI36SdDl7ZL6fCv5
PZCAp/372UN+dP2VSbC6LuvY/IUt1E+CgUv1OhNP03xpl6DNVa7Y79lA/aT4
qv5mzdXIF9RPisIYm4Jc22rqJ0Vy7uB9OR2V1E8KP4O7+Pm7SuonxZmtS22C
d9P1BikOa2t/3WpaTv2kKM/9dvrENaXUT9pz/TH9pFDzX31ZEVVK/aRwzw0p
Fxc/pH7//pvpJ4WxtknC5EfEi5ZiVOyK1X95PaZ+UgzN3WHUxCmkflJsjTkw
eLtfCfWTYjm/tvnUgTLqJ4VjwN6UlIO0PpRJoa/z4rSHwTPqJ0WYf8DOZT9W
Ub9PPIObZsP1n1M/GepnhH77cUUV9ZPhgcH50tO6bD8Zxm5zTS/bQuuJmQze
Bg+mTx5SSeuPDCd6NfE9fNl+MrTF/BhTN/cR9ZNhSuwiZJ0qp36ynvWK6SdD
YS+7tvMVxQwvSIaJ2kYHf7Yuo34ylMVsSvFNofMN/5fP9JNhdqwvt58W8RJl
OBCw1mtfzTNaz2S4kDfuh7ODnlI/GUJmxN2PWVtB/WSYYZDn1edqBfWTYXzd
x/rvtWi+1Mp65ss/vHYZEg3SP1YMqKJ+cvRLmbTM8FAl9ZPjAP/J7ZAI8hst
x26eYWl1YiH1k0Mn5vz+J4YPqZ8cq2OijCTDaHwhR36up9cLk1LqJ8dtvmb/
T5WPqZ8c12PC8kr12P1RjsKcyHmH9mionxxinrXZ9DO0/26R45tebqsHRBVS
PzkO8kbfN+8upH5y2PR69/3YaTnUT47s6MOnxkTepn5yHM2RLvFvvkf95NjL
fXtuTVY29ZPjL79wQ+8RudTv8/eP7t/pkE/95DDODR3M2U73D+1yzMhzLN0b
+Jj6KbAgZdSQrhp2/imwLq/iup7oBfVToEg74cOfyjrqp0BXfUQ/iXUz9VOg
3zar8j9A+zkUkGjHHy2/3Er9FLCObd2kU0frqacCQwKMe53fzO4fCnjE1s3O
q+6gfgpEuHJT7ht3Uj8FRr0Omz/6Yyf1UyAt6aIHv7yL+imQIes9qjq5m/op
cCl/WWi/8vfUT4GTEckHLqx6T/0UWGT5xfF70z9QPwU2WPbfM/P1B+r373Gm
nwJ3BlsEzVV8oH4KHHdrjfp9LvG0lJgQkqXKHUo8PSUKbm7uPcXmPfVTYnn+
Js0Pz2k/Mvv3ONNPCS83nZoBi99RPyXulIc/k7W8oX5K9JLZPq67TvulpxLy
gGE51/M7qZ+yZ79l+ilhbhi0vfIqu38oYZt3d0TuCVrvw5XYnVLbajiV3T+U
mMdfaWxjyu4fSoSYhx35IaSF+imRmZqVsMSI7g+uK9EntdUvcBLdbzxQYqN2
2pySrhrqp4Qf/+CAMYOrqZ+yZ31i+ikRnWex2+y7J9RPhQjtPjZn8h9TP9X/
3W+pEBXr3uZ9/Cn1U2GiIM3yROhT6qfqWX+Yfp+Ob5t2xqiI5vM0FT4aHE+4
Mof8PFU96y/TTwWPgJ0xziBekAoPYrZmGi5g1z8VmnpZlYp20f12uArSmN/d
bTOLqJ+qZ/9h+qlQnzsLK+6WUj8V+H797xeOyqd+KlQfKoycdfI69VPhhFvx
j74F0dRPhd6nRIelOWfpeUP13+fFdlXP8ybTT404zbIc9aYi5vlCT432uM2P
PPXY52E15sT7rVp79jHDM1PjRMGkK4/96H0AVw3vvuWH5958xvCgRpTg7N+H
ZJX0vKKGZf5w++qvKhmepxpC0VUfnx1P6PlKjcA+wyNnbqPn7SA1dvaeunlP
ZCE9b6nhGpcYWpv1kOGFq3uev5l+augVDvfo7v+M4SWqMdLttymbjlXQ85j6
v++vrquxYumstNoY9v2UGgENDzOyVtL7kzI13rkt9lVE1FI/NS4vlQRuiqT3
M+3q/3v/Mhnb3WUajk1Dxv8AqLpXmA==
           "]],
          FontSize->24]}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, 0},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm], 
        FormBox["\"# particles\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SuperscriptBox[\\(Ca\\), \\(\\(2\\)\\(+\\)\\)]\\) after \
transformations\"", TraditionalForm],
      PlotRange->{-3.5, 3.5},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{}, {{}, {}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdWE2IW2UUTatdFMYurCBZuFAmmf+ZJC//f+97/88SpLhyFkKxdVq0IGVA
wYVGZtEKsdCNMIKt7WI2glRSkS7KjNK60FStXWgoRRAJVkutplZwJTM33HBO
NsOQl/POd+655973nn7ptedf3p1IJM7sSiS2/8pn0jz31aGz+wo/buat7c+k
OfXYZ4929l7ePLqy/Zk0r39ZqTy4cMv+YH37M2lOXDh98Fj7L/t6b/szab59
vHD1ytmhLXgp8+mF4h/fHRjYgpcy5+4ffvX9z8/bgpcyH05+/dTt/b9uCl7K
vLDnyT2nDv62KXgp8/CLO4+k9v0ywkvr7wUvbZ54e6J85tC1Ed74e8FLK77g
ja8XvCnFF7wpPb/gTZmrJ/87fuSTn0f8pszUke8vp67eG513yuwfHL6be+/u
puBNK77gTev1gjf+X/Cm9f6CN23eHb7z8bFb/474zRC/GarHDJ13xlzce/rc
iTeuj847o/cTvFk9j+DNkn6zJrHro1fOztwc4Y2/F7xZvb/gzVE95vT3gjdH
/OYIb3y94M3r/4I3r/UTvHk9n+DNqx8Fb179I3gLVI8F4reg/hS8BdJvgfgt
qt8Fb1H1FLxF4reoegneot5P8JaovktUjyXy35L+XvDG3wtexrQvfeP/uflQ
rk9mzPG1tR/ePPm7vQNvZbQeO79vZeh+GfOMn7qxfv6B4LUz2g9y/4zqvQPX
zVA9CW+QIb9kUe9kVvUSflnil6V6ja8Xflk9n/DLKl/hR3i98f2FX5b6I6f+
EX455S/8cui3Vo7yLKd8hF/OzK/dKu2/8s+IX07rLfxymh/Cb3x/4ZdT/ws/
C/GSln4v/rFUL+FnId6KZY4e/unOvSP3R/pZ1J8W5kPXIr9Zej7hZ1F/5BEv
mdf7Cb88+qWVpzzLq77CL4/1WM/jfOrmla/wy6NfBnnSr4DzJlmgvCngvGgV
KH8KOD/a4/+FX0H5C78C5VMB58GgQHlVVH8IvyLlV5HqWyR+ReJXJP2Kqrfw
I7xeUf0l/AgvUcL5nyxpPwq/kvpD+I2vF34l9Eu7RPOwhPOkWyL9SqRfCfst
UdZ8Fn5lrIdVxnxvlfG8K2XSr0z5W6b+KFN/lPG8gzLN8wr1b4XqW0E/tyq0
P1Qw79sV2scqWI9uRftF+FUonyuqt/CrUv9W0S9WlfhVMU9Xqpj37Sr6eb2K
/datUn2rpF8V8ypRo/lRo/lZo/6o0fyokX418l+N9KvR/K5R/tWof+vEr077
bx3r0aoTvzrlX53mW135Cr866VdX/wu/OuVfA/e7ZIPyr4H7aKtB+dwgfg3y
XwPP2yW8XoP8R3iJJuVLE89rNWl+NClfmujndpPmW5P816Tnlybp16T8s2k/
sEk/m/LF1uch4WcrvvCziZ9N+WzTfmWT/2zchxIG/TBhcH9LGqxn2uC+ZBms
hzHaf3Ieg/Nz2dD+aHC/WTWUBwbzskP81onfBuF1DfbvFvHrGey/vsH9bGC0
Xjt4Q0P7i4N+nXBIPwf9lnb0/KKfg8+DxqF91sHng2WH+n98vejn0D7pmGs3
33rRX/tbzttxaP8Y8xf9HNyvuw7WY8sh/xO/voP1GDi4/w8d6g+X/OdSP7s6
D0U/F+thueQ/l/rJJf1c0s/F551VF/f7tot53nGp/1ys74arfhP9XHwfseXS
/Cd+fRfrMXBJP8JLeDi/JjzES3r4vJn2zO0Dly5eincbyR8P8894tM96OI+X
PepfD+ffqqf7iujnYR51PJpPHvnPw+flrof12CK8nofzqe/RPu9hPg49er70
qX992gd9yj+f9kNf+130I7zW+Pein0/7mY/zb9WneeRjfTs+7Ue+6i/6+TSv
fPKfT/r55D+f5i2dd+jT/A2ofwPtV9EvoPwLaP8KcL4ZwmsFWN/lQPNS9Avw
+W41IP0C0o/w1gOc3xsB6Rdg3m8F+r5D9CO8fkD6Bep30S+g+Rtiv02E1L8h
vl9Mh5rnol+I709NSPM3xDxdDun5PiT/hbSvhejnTkjvX0Pc5zdC0i8k/4W0
fxK/fkj7fIjPO0Pil4hIv4j21QjzIB3p+UW/CPmZiPbtSP0m+kXkvwjPuxph
HrQjrEcnIv0irMdGpP4S/SJ8/7cV4TzvRZgv/QjzfhBR/kWUfzHOy4mY9tUY
65uO6X1wTPM3puf5mOZvTPMjVj1Fv5jeN8W0v8Q0f2Pc1zZieh8QU//SeXsx
7kN9Ou8gxueJYYx5lXhW7/c/o9HWEw==
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdWEuIHGUQnk1i1M3EQ+LBOUlgd/a9OzM971dXv9swiI+DrJeI0c1DQWQw
By8ZXSRGBiEiklWIusJ4EESZBAkSXUPEyxpfuayLih5GVBBlNBIQkd1qqqlv
LqFJ79ff/1XVV1/3gYefuO/RHYlE4sxIIrH1L//GKLl86vgPD+ykvLH1G6Mn
V1+852jnT/PI0tZvjFbdp3YfK/5nvrqy9Ruj08Nn3jm6+Y/5+frWb4zeXy3+
9sXBgcl44zS7vFnaf+lvk/HG5X7Gi68Zb5w+O3zt3hdevpkYb1yez3hpmnjk
y4vjV36P8NLyPMZL0/VPftk5fttPEV6aTlyuVP5a3Yz4pQFvAvhN0NV9hSuX
zg0jvAlyr119af8d/0Z4E5QYeeP4ualvIrwJeR7jTcr9jDcJeJP0+PLy10+f
+jXCm5S/Z7xJ0ZfxpkQfxpuSv2e8KdGD8aYAL76f8aZBv2nAm6afD0/e+dGN
GxHeNL3+x+HHXvngzQhvGuo7I/oy3ow8n/Fm4LwzwG8G6jFLz++9sKt768WP
GW9Wns94s3DeWcFnvFnAmxP9GW8O+nkO8ObgvHPSH4w3L+dnvHnAmwe8eZiP
eeHDeAvU+XZv49B0Ipq3BXke4y3QdwfPv3c+3EGMtwDnXZB+Y7yMrl8qvt6G
NzKaTysD85Oh+5N3nxy9PErbcJ0M9H9G+G3D9eNr5hPfv403yAC/rNzP/LKi
F/PL0rv7frx+ujLC89/Kgh5ZXY9OFvwjK/VgfvE188tS7cMHx0aP7CLmlwV+
OeCXk/uZX46ODee+z5+4KeKXg/rnpF7MLyf1Zn7x/zO/nD7vek7qxfxydHZm
5Oyh53YzXsLQ9UgZwo/7x5B+Yn6G+DnzM/R8dAzQz9Dz0jf0edcNmXfmZ0j9
mF8e+OXFL5lf/P/MLy98mV9e9GB+edg3eeHD/ABvPa/9dpDX9UgUgF8B/Lqg
+7lV0P28VID+K8B8FmQ+mV8B5rWg6zEogH5FqQ/zK8J+Kkp/ML+i6MH8ihqv
U9T9vFLU+6Qf38/8ilIv5lcE/yvBfJSEL/MrgX4luv1ksnzmoU8j/Up6v3UA
b6Wkz9svQX1L2g8GJdi/ZT1vqTL4dVn0Z35l8L8yzEcZ5qMs+jO/MvhLGea3
DP5SkX5nfhXovwrMR0Xqw/ziv2d+FfDnCvRfBepbAX+uyPmYX1Xvr1QV+FWB
XxX2fVX6kflVYf9XgV9V+oH5VXUeGVRhX9a0H6Rquh5GTc9bqwb+UtN4nRr4
cw38pQb7uwb+AniJuvgX86uDfnVdj1Yd9lsd5reu+2Wlrvu5X9d+v17X5x3U
IQ81oP8a4l/MrwH8Grqflxq6XzoNyDsNqQ/zi/GZXwP6rwF5t6n9NNWE/NuE
/NKE/msCvybUt6nr0W9C/zVBv6aet4Qp+4/5meDPJuhnAj8T9ocJedvUebpv
Sr2ZnwnzYUK+J93/SdL+lSK9v9Mk+kTxQfcLEeQJEj7beIsE7zek81wb8Dqk
806XJL/w+Unr1Yv5c14inU/XCOaTtD9sEPQb6Tw8jK9ZP0vvr6QFedoSfNbP
0vwMS/cLWaCfpf1h0QL9LJ1f24DXsfT7cdeC/Wnp9+ueJX7G+ll6Ptbi57N+
lq7HhqX3z8CS/cn6WZAPbJ0Xk7bGS9mSZ1k/W+MZ8TXrZ+v92rK1fy0C3pKt
+7ltQx63tR91bZg/W9e3F1+zfrbOp2s2+C/gbdi6HgNb+pH1s2H/Onq/Jh09
bykH+s+B/eJA/znQf47mt+jA/nG0n7Udna86wK/rQP85ul96js6HfUfvyzUH
/A3wNoDfAM47dCBfufq8SVfnj5Sr65F2JZ+yfq72U3Jh37jgfy68/7l6X7Vd
8HsX9HMhv7ngfy7s+5gv6+fC+wWcd8OF+XX195+hC/nZA//z4H3J0/sn7ek8
Z3j6+xB5ur4tT/izfh7kC0/za3uQ14Bf14P8AXg9T87H+nm6vmsezK8H+nmQ
Bzxd36EH/ufr74NJH96XfF3ftA/z62s88qH/fJ2PFn3Qz9d5uO3D/vC133d9
yEe+/j7S8yHP+bA/fHi/ALwNH/zP1/l66EP/BfJ81i8A/QLdz+kA8mEA8xvA
+0qg99FioM+7FGi/agfaXzqBzovdAN7/A+0HPeDXD3TeXQvA/wLILwG8Twb6
+/wwgO8HoeaXDGF+Q42XDkG/EPZHSNdfe3vPhbduifZHCPsj1PVdArx2CO8z
IezfEN4PAa8X6vP2Q5jfEL4/hqBfqOsxCOlZ90Cl8NWeSL8Q9u9dst//B1wo
utY=
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdWEtoXGUYnapdCLELI2gEF0oyeTaZ9zMz89/nXGWQ4spZCMW2adGC1KCC
Cx0J0gpjoQvFFGxtF7MpiDKKVigZpXWhqa8uNJQqiAxWS1ud2kqxqMl3+S7n
zCZc7s255zvf6/z3wSefeWzXbbFY7NCmWGz9r/xGzfOfFYvXjp+vZdLrv1Hz
3p0Hj+574ezK7oX136g5c+6lJ9ylP1cOL6//Rs3p/Tf37nz3p5Wzq+u/6P8F
b8w8+vn2I1uy368I3ph5fPO9mw9s+zXEGzMPuWPfLh+7FuJFzwvemOILXlz/
X/Diel/w4sQvuha8OOGN633BGyd+48pH8MbN1OBV5+yJWE/wxk1s0ztPHZk8
F8Y7YXbv+OHi5Z1XQ7wJjU/wJlRPwZsww/0dl1KvXwr5TZi3R7944MLwLyG/
SXP06o6n3/zoWJiPSb0veJMU76TiC96kxiN4U8pH8KY0PsGbMhdGn/3Y/fHv
EG+K+E0pvuBNU7zTpvXBl+6Vlesh3jTld1r5C960Kb9x38zhf26GeDPmrc0r
R6/cfyvEmyG8Gc2f4M3o+wVvhvC2Ur38fz3dvHXjk009wdtK+m0115/bNewV
/w3xtip/wZtVPQRvluplluplluKdVXzBmyP95ghvjvDmCC+6L3gJxdt4fiRh
7nl5qHBo+5naBnw6gf3aSGj9yvsSWm8bcK0EvT+hem3AdaP/Fz7R/Q28fkLz
J/ySii/8khqP8EtifI0k8UtqfMIvSfyia+GXpPpN4jzrJ6meU6RfivilND/C
L6XxCL8U4rVSGO8y4XVTmh/hlzLXP714+9iWnwWvn6J5mtZ4hF9a3yf1k8b+
b6Q1HuGXxvnSShO/NM7/blrngfBL4zzrR3yEXwbzMZIxB+768I72nSdDfhmc
x40M7ZfoeeEXXQu/DM7Dbob2T0b5C78M1kssi/0+kqX9lMV8NLLm/eO5379+
pB/mN7ov/LL6PuGXxXnTzVL9ZXFf9bM0X3I430ZylN8c6ZejfZDT+Sb8cjTf
cjhvujnlL/xyWM/9HOmXp/7I0zzMU/9G94Vfnvo3T/nNY7zdPO2zPOmXJ/0K
uF9HCrTfC8SvQPO2QP1RoP1V0PwLvwL5iwLxK9B8KRK/ovaX8CtivTSK5G+K
GG+L8JaLGG83el74FXGf9ouU3xLW80iJ+reE+7ZRIv1KOA9aJdrXJfQf3RLx
K+n+Fn4lnAexMuZjpKz5En5l9Q/Cr0z+pkz5Lev7hF9Z+Qq/sr5f+JU1X8Kv
TP5qXq+F37zqLfyia+E3j/tyIboWfvMaj/Cbp/6dx3hX59Hf9OeJX0XjF34V
8oMV6o8K9W+F+rei7xN+FZyn3Qrlt6L+R/hVqH+rNP+q5N+qVH9VrJeFKu3f
KvmDKuajWyU/VcV66VepP2rqR4RfjfxbTfkIvxrpV6P6q9F8qVF/1Gj/1qg/
anT+MLgPhwzpaXBfxI3yD+0D1p8xmL+GwXndNDSfjPLbgFs0WH8tg/Otbai+
DerfMZov8UsG89sz5D8N+pk14tePrjfwBob8i4X7cMgi/Swzs3Q+P3zqL9mP
cUv9gehnoT8wltm7tPTdi/t/C/2EZcZ3fnNy7PRl4de0aH9byl/0s9QPin4W
zqM28Vu20K90LNVf9Iv4iH4W1b+F/bJGeH0LzxMDy+w7fnDbntYfYf3ZuK+H
bPL7NuYjHj0v+tk4741N5xUb51fTpvluaz2Jfjb5NRv9Xdsm/2HjPO7Y5Ndt
nAc9m/rTxnys2ZjfPuENbPoe4eD3jyGH/L6Dfj7u0PxxSD8H66Xh4H5qOrS/
HZzfiw7NU8JrE79lB/1jh/h1HTxf9hw6vxPemqP5Ev0c9JsDh+azi35syKXz
iIvxxl3yDy5+PzAunadc0s+l84tL+rm0z12cp22X/IeL/qzj6nwT/VzcHz2X
9HPR76+5WC99F/fpwCV/5ZF+HvkFD89XcY/2s4f5MJ7OL9HPw3nf9Oj7mEf6
Rc+Lfh72W9uj/elhfjse5rfrYT56HvkTj+afR/oR3sDDeo75pJ9PfsFH/xP3
6fzp43w2Pp1HffT7TZ/618fz06Kveol+Ps77tk/7w8d4O8Sv6+M+6vkav+jn
4/lhzafzpK9+UfTzsZ5jdZwvQ3Wqv+i+6Fen83Ed97mpk5+t4/fNJuEt1HG+
LNbx+1qrjv6gXdf8iH51nFedOp0n6uiHehTvKuGtEb9+Hf3hoE79G+i+Fv0C
Om8G5P8CnC/pAPmZAP1VI8B6aQakX4DzYDEwX92dPX3qyCDcv4F5bfDKiT3n
b4T6BbR/A/z+1YmuRb+A9m+A3+NWA+0f0S9QvyX6Bfh9axBgv8Ue1nz/B+sS
YLE=
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdWEuIW2UUzqizKMQuHEEjuFDymPfkndy87n/fVwlSXJmFUOxLtCB1UMGF
Boq0i1joQnEKzthZZCOIchWtIBOldaGOry40SBVELlZLW02pUizq5FxOOF82
w5Dc7//+75zznXPufY899fCBW2Kx2MmpWGznL32S6s4X49WTe8/pxcLOJ6ke
+nTv+u7Sd1uHDu58kurssRuH97/109aptZ1PUs2E+y7lX760tf3FziepXk9+
du+FmV+2CC/F/xNeSj0yfdf08T2/RngpwEup+dFL1vabsQHhpQAvrd7edWLj
yHPbEV6avye8tLr+zIEZR/s3wksDv7Tqvvu5fWXreoSXAX4ZuG9G3W+nvlk7
fS3Cy6gLyac/sH/8O8LL8H0IbxbwZvl8wptVr01vbVy552aENwv3nXxPeHOA
Nwf6zfHzhDfHfAnv/98vdG7+9eHUgPDmmT/hzQPevDp3/oVH7aN/Rvwm/xPe
vDq07/uLl/dfjfgt8P0IbwH0W2B8wltQx29/77berjMR3gLHn/AWOT6Etwjx
XeTnCW9RbVzd9+Sr75/WCW8R4rvEvye8Jb4P4S0xPuEtMX/CWwJ+y/w94S2r
+it3L57650aEtwz5vMz3J7xl0G8F8FY4vwlvRcWm3nhife68TniT7wlvRR0+
evTb54/9phNeVp6fyPL5Y/hCVurfnvyezsvyeWO4blZd//jirandP0fnZzne
Y7ggC3yyHI8xXpiF++bUO5vl3796MCS8RI7PJ345qVc7x35E/HIyHt0c5EOO
+RK/HPDLyXoMc+AveZXZ//WZ1NnLEb88n0/8Jv8TvzzrRfzyfB7xy6sjmyf2
PN79I9Ivz/EmfnnWh/jlZTzCyfPEr8DPE78Cn0/5U4D4FiCfCqw/8Zt8T/wK
7B9jvKAA+hXUs59o2rXNH6L4FiD/iqBfEfgVIb5F0K/I+UP8iqw38SvKeg4m
zxO/IuRfkfkSv5L0t0QJ+klJ1n+7BH5WgvooQXxL0g+DEtR/ifkTP8CLlfl5
4lfmfCB+Zel37TLUR5nxiR/grZWl3wRl8OMy+yfxK0N9VMBfKsCvwn5I/Cqc
38SvAvVbgf4AeEGFzyd+FYhvhe9P/KrSzxNVPp/4VWW9tavQX6pQv1Xwl6rs
x0GV+RK/KvjL5H/ipzF/4qdxvyd+mrxvW+N6In6anDe6GvQHTc5vgQb9TJP9
PtSgv9W4XohfDeJbg/qoQXxrwK8G81ON70/8aqBfTcYjnJxH/OqQf3U+j/jV
wV/q4H915kP86pB/dajfOutP/OrSr8I68GvwfEX8GjAfNeQ82m7w/Eb8GuDP
DfC/hsznoAH6NeR8EzbUl3eUzn60Porqown51+TziF8T+DVhPmxCfJuyH601
wZ+b0D+aMh5hE/pHC+q3BfnXgvpoQf22oH+0gF9L5kvQgvkW8MIW9A9dxiOh
Q3x1mA90mK908Bcd+q8O/HTYX3TQT4f9Q7F/j38fV3J+Syj5fFpxPUTjA/8+
goN5Qsn87ijZLw4qOR+uKunPXcDrKehPSurfV3L+Cibnj/EGCvRR0h+GCuoB
+I0U+J8h6yluQLwNPp/0M1hP0s+Q864y5L7YNuT80TFAP0Ped9WQ/tI1ZP/q
GbBvGLL/9A3Wm/Qz5HwwMGB/Arwh4IUG+x/pZ0D+mVzPpJ8p/T9hyvknbcJ+
Ykp+yuR9nvQzQT8T9jnAWzXBr0zpRz0T+qcp/a5v8jxD+gHewIT5zpT9ZGjK
/hiast5GpvSrmCX5xS3oJ5asj7QF7wcsWW/Kkv7WtqS/dizwJ0v67aol87lr
yXm7Z0H/tOR81rfkfBMA3sCC+c7i9xWknwXzsiX738iS/Txmy/qI25JfwuZ8
Iv1sue8UbNaL9LPl+5S2Lf2qY4N+Nuhng98Dv54N/m/LfaNvy/0ksMH/bMg/
W/rV0IZ+Bngj4BdzwP8cmLccqF8H+p8j81k50K8ded+OA/uLw/2H9HPk/Nx1
pF/1HHg/4Uh/7jtyvgkc8D8H5hNHxnfowL7hyP1p5MD+4Up+cRfmGVf6S9qF
91Ou9HvlQv91If9c3j9JP1f6waoL8xDg9VyYL105H/Rdnn9IP1f2y4EL+4Ur
/XnowvsCF/LPhfnKg/r1pD8nPFkfaQ/2d0/u08qT8W17sh91PHh/5zF/0s+D
/PNkffQ86L8e+J8H85wn/WrggX6e3DeHgBd6Mr4jD+rXl34V91lP0s+X/TLt
w/tgH/LPh3nWh/7hw/7ng34+7Pu+9KueD/3Xh/nFh/dRvozHwIf3Zz7Urw/7
ri/rbeTD/PIA3+8/KEI12g==
           "]],
          FontSize->24]}, 
        {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
         1.6], CapForm["Butt"], 
         StyleBox[LineBox[CompressedData["
1:eJxdWEmIHGUY7URzCIw5GEFb8GCY6dlnet+Xv/ZSGgmenIMQnCyiAYmDCh60
IUhyaAM5KE7AxOQwF0GUVmIOMqMkHpKJWw7aSBREGqMhiXYIEhRl5iu+4r2+
NE1XvXrf9t7316PPvPDkvq2JROL4lkRi41s+o+aJL/ec3FH4fjWf2/jEvw/s
3/iMmndHLz5ydeevqyeWNz6j5oHXR8rH91xoXV7f+IyanYPF69k3r68K3phe
L3hjer3gjZk7n1+7Z2zHLy3BGzOnbi0+//bZ0xFe/L/gpcwud+zb5dO3I7yU
/i94KeUrePH/gpcyT217cNvR3b9F/MbNy19UKrfP/NgSvHFz4cprT7uH/4ri
HTfnj9w9uPeDnyO8cZPY8t5zJyevRHjjylfwJvR+wZvQ+wVvQp8vePFvwZsw
H50p/vH144MIb1LvF7xJyt8k4U0S3qTmQ/CmCG9K6yN4U+bD7cdOHXrlcoQ3
pfUUvPh+wZvW6wVv2tTeemjmxD93I7xpc/S+T+7tbj8X4U0Tv2niN2MOLP5w
7cbeWxHejNZH8GYIb4bqMWMOHj783atHfo/yN0v9PEvxzmp8gjdL/TdL9Z2j
/ot/C94c4c1pvgRvjvpvXvEFb17zKXjzhDev8QvePM1bGuczmdZ+2YTPpRV/
8/52mvinNf+bcJ009Vdan7cJ14uvFz5prNcgTf2SwXlKZpSP8MsgXjtD85jB
/HUypEcZjLeXoX7LYLyD+H7hl6X8ZfV64ZdFvHZW+Qq/+HrhlzV3Xtq306v8
F/GL8YVfluqZxXgHWeKXM1dHX/zU/enviF+O5jlH/HKk3zmdF+FHeMs5nOde
Tusp/GJ84Zej+c1r/MIvr/0i/PKoJ+084u3PU//lqf/ymi/hl6f5z2s8wi+P
9UgUqL4F0psCzUdB+Qq/AvZzp0D+QHi9Aukn4Q0IL1HEeJNF8pMi8StSfePr
hV+R5qOIftwr0vwW0a8GRdKrEupRskT1LaF+tkvqZ8KvhP3cKVF9S+jHvRLp
ZwnjHZSwXxJl9IdkWf1f+JUpf2XlK/zKlD/CWy6j/vfKpC9lqm+Z5qOi+MKv
QvNb0euFX4X6r0L6VyF/qGi+hR/hrVdI/yqoB4mq+qfwq9J+VCV9rpKfVmk+
qrRPVLGfe1XSlyr5R9V0Pr7k3ly9E+WvpvUSfjX9X/jVqL410pca6UuN+NXQ
j3s15Sv8aujPgxrVt07zUdfnC786zUdd/UH41ck/6upnwq+O89arY7zrdazH
oE760iB9blD/NYhfg/qvgftQp6H5FH4N5Sv8GqR/DdKXBvFraj2FX5P2rSbq
QbtJ+0uT6tvU/hZ+TdSDXpP2vSb6+aBJ+1WL8tei+raIX4vmo6X5EX4t6r8W
+Vv8POHXov5rqd8JP4P7xIghvzMYX8oo32h9QP0zhvYJg3q9ED9P4jO4Hy4Z
6meDetQ1OM/LBuu5EuPLvkT81gz1l0F97RvaB4z21ybe0ND8Wnq95M/C/k5a
OA8pC+PNWahXxiK9tHBfWLDMoTPHdj/b+TPyHwv3wyUL+69jUf4s6h8L52vF
on3YwnlbI7x1C/2ub5FfWLivDy3Kn63xS/5s1K+kjXqcin9L/mzUF2OTH9o4
zws2zZeN+/qSTfNmo152beo/m/IXP1/yZ2O8a8Rv3cb3D33CG9hYj6FN+4uj
8Uj+HMRLOrj/pBzU25yD+5VxSI8cml+HzlcO+v2SQ3pP/LoO7b8OzseKQ3rm
UP85tH8Sv75Dekx4Q4f02cX3USMu5c+l/Ln0fsDF/cq42M9tl+bXpfcdLvJb
crFfOi7qaddFvVp2cR9dcWkfcTHeNcJbd1Gv+i7tAy7uX0Pil/CwX0Y8ml8P
9TTlmanhG87l9xNrkj9P50vy59F5z0M/WvBov/DMO9tWT918+N8ofx6dVz3U
565H+fPIPzxzZHHm7K6LW4Vfz0O/XPPo/Ojh/tb3aH49nLehR/uLT/Pr03nd
x/NQytfnS/588l8f/bztk/755L+++er+wvnPTg6j+fV1niV/PvWfT/ulj/Ox
Qvx6Purpmk/nM5/8I75f8udT//nYL4mA9peA9v0A33+mAnp/FiA/E+D733aA
8S4EZnzvN+fGzt+I/DfAfW4poPNqgPrSJbzlAP1tJaDzTkDzS3jrAfp5P6Dz
boB6NaR4EyH620iI79eTIepLKqTzcUj+QXjtEPkthHpelPyF+H5hKaTzYIj9
0g3Jf0M8/62E1H8h7X8h+UeI+twPcb8ahDS/IfnHY8rnf4XwP5s=
           "]],
          FontSize->24]}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, 0},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm], 
        FormBox["\"# particles\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(IP\\), \\(3\\)]\\) after \
transformations\"", TraditionalForm],
      PlotRange->{-3.5, 3.5},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.8292539054174223`*^9, 3.829253921976029*^9}, {
  3.8292540769329243`*^9, 3.82925411810842*^9}, {3.829262707134327*^9, 
  3.8292627433065147`*^9}, {3.8293088077280817`*^9, 3.829308818212449*^9}, {
  3.8293090627122993`*^9, 3.829309100657683*^9}, {3.8293091320666447`*^9, 
  3.829309163171029*^9}},
 CellLabel->
  "Out[1087]=",ExpressionUUID->"2a036341-bfbc-4094-8418-7c8fb4f30403"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<figures/ex_trans.pdf\>\"", ",", "pExTrans"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<figures/ex_trans.png\>\"", ",", "pExTrans", ",", 
    RowBox[{"ImageResolution", "\[Rule]", "125"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.829309164476184*^9, 3.8293092110980453`*^9}},
 CellLabel->
  "In[1091]:=",ExpressionUUID->"8144ff8a-6650-48e9-9d95-77730eb805e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Transformation", "Section",
 CellChangeTimes->{{3.8292482240052347`*^9, 
  3.8292482264135437`*^9}},ExpressionUUID->"0ee6851c-875b-467f-a594-\
00ffe24a2630"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<ip3_0p100\>\"", "->", 
      RowBox[{"importVizTrans", "[", 
       RowBox[{"\"\<ip3_0p100\>\"", ",", "100", ",", "dataDesc"}], "]"}]}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<ip3_2p000\>\"", "->", 
      RowBox[{"importVizTrans", "[", 
       RowBox[{"\"\<ip3_2p000\>\"", ",", "100", ",", "dataDesc"}], "]"}]}]}], 
    "\[IndentingNewLine]", "|>"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.828101595140192*^9, 3.8281015953874893`*^9}, {
   3.829248650495158*^9, 3.829248666591535*^9}, 3.829248752875609*^9, {
   3.8292491122648373`*^9, 3.829249118094824*^9}, {3.8293092399874783`*^9, 
   3.829309240633594*^9}},
 CellLabel->
  "In[1094]:=",ExpressionUUID->"41c26feb-a9e2-492d-ba83-51fe7f88a788"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"m", "=", 
  RowBox[{"<|", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"\"\<ip3_0p100\>\"", "->", 
      RowBox[{"Mean", "[", 
       RowBox[{"Mean", "[", 
        RowBox[{"data", "[", "\"\<ip3_0p100\>\"", "]"}], "]"}], "]"}]}], "//",
      "N"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<ip3_2p000\>\"", "->", 
      RowBox[{"Mean", "[", 
       RowBox[{"Mean", "[", 
        RowBox[{"data", "[", "\"\<ip3_2p000\>\"", "]"}], "]"}], "]"}]}], "//",
      "N"}]}], "\[IndentingNewLine]", "|>"}]}], "\[IndentingNewLine]", 
 RowBox[{"mv", "=", 
  RowBox[{"Mean", "[", 
   RowBox[{"Values", "[", "m", "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.824688207126327*^9, 3.824688215075446*^9}, {
  3.8246882839228697`*^9, 3.824688284413463*^9}, {3.8246883317112837`*^9, 
  3.824688332680327*^9}, {3.8246884231857967`*^9, 3.82468842860527*^9}, {
  3.82924867695217*^9, 3.829248726978096*^9}, {3.82924884607204*^9, 
  3.82924886189885*^9}},
 CellLabel->
  "In[1095]:=",ExpressionUUID->"0215b4ca-7186-4858-827b-3e8417340314"],

Cell[BoxData[
 RowBox[{"\[LeftAssociation]", 
  RowBox[{
   RowBox[{"\<\"ip3_0p100\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"370.72222360764755`", ",", "600.9338757273483`"}], "}"}]}], ",", 
   RowBox[{"\<\"ip3_2p000\"\>", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"3444.63929758936`", ",", "12050.874644638405`"}], "}"}]}]}], 
  "\[RightAssociation]"}]], "Output",
 CellChangeTimes->{{3.8246882111361237`*^9, 3.824688215301063*^9}, 
   3.824688284617117*^9, 3.824688332976324*^9, 3.824688428810453*^9, 
   3.824689714816896*^9, 3.824691122816163*^9, 3.824736207023519*^9, 
   3.824743782244916*^9, 3.824744637271234*^9, 3.824746983349704*^9, 
   3.8247475443311663`*^9, 3.824748545201275*^9, 3.824749323373549*^9, 
   3.824754383325046*^9, 3.824917440136991*^9, 3.824918756289958*^9, 
   3.8249227153782578`*^9, 3.8249922085885887`*^9, 3.824994265793292*^9, 
   3.8250060274230328`*^9, 3.825020216788187*^9, 3.82508072887497*^9, {
   3.825082819273644*^9, 3.825082845726207*^9}, 3.825089189629304*^9, 
   3.825093631225666*^9, 3.82511984837361*^9, 3.825119915217579*^9, 
   3.8254373329804087`*^9, 3.8256951558355227`*^9, 3.826038807664619*^9, 
   3.826124837642541*^9, 3.826134314672365*^9, 3.826134446514167*^9, 
   3.826288099807637*^9, 3.828101632832781*^9, 3.828101786671226*^9, 
   3.8281018603288*^9, 3.8281020286985807`*^9, 3.828102403280957*^9, 
   3.828102465740995*^9, 3.8281061567543163`*^9, 3.828107047118209*^9, 
   3.82810725749028*^9, 3.828107466950243*^9, 3.8281075339504013`*^9, 
   3.828107635605047*^9, 3.828108187069017*^9, 3.828108856975806*^9, 
   3.828109074289997*^9, 3.828109264313899*^9, {3.828110336282488*^9, 
   3.8281103500260143`*^9}, 3.828111118724764*^9, 3.829248280410696*^9, {
   3.829248724740531*^9, 3.829248727311016*^9}, {3.829248850772583*^9, 
   3.829248862573402*^9}, 3.829309279013756*^9},
 CellLabel->
  "Out[1095]=",ExpressionUUID->"578565c8-e300-46e8-9ca7-e44571d9c507"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1907.6807605985039`", ",", "6325.904260182877`"}], "}"}]], "Output",\

 CellChangeTimes->{{3.8246882111361237`*^9, 3.824688215301063*^9}, 
   3.824688284617117*^9, 3.824688332976324*^9, 3.824688428810453*^9, 
   3.824689714816896*^9, 3.824691122816163*^9, 3.824736207023519*^9, 
   3.824743782244916*^9, 3.824744637271234*^9, 3.824746983349704*^9, 
   3.8247475443311663`*^9, 3.824748545201275*^9, 3.824749323373549*^9, 
   3.824754383325046*^9, 3.824917440136991*^9, 3.824918756289958*^9, 
   3.8249227153782578`*^9, 3.8249922085885887`*^9, 3.824994265793292*^9, 
   3.8250060274230328`*^9, 3.825020216788187*^9, 3.82508072887497*^9, {
   3.825082819273644*^9, 3.825082845726207*^9}, 3.825089189629304*^9, 
   3.825093631225666*^9, 3.82511984837361*^9, 3.825119915217579*^9, 
   3.8254373329804087`*^9, 3.8256951558355227`*^9, 3.826038807664619*^9, 
   3.826124837642541*^9, 3.826134314672365*^9, 3.826134446514167*^9, 
   3.826288099807637*^9, 3.828101632832781*^9, 3.828101786671226*^9, 
   3.8281018603288*^9, 3.8281020286985807`*^9, 3.828102403280957*^9, 
   3.828102465740995*^9, 3.8281061567543163`*^9, 3.828107047118209*^9, 
   3.82810725749028*^9, 3.828107466950243*^9, 3.8281075339504013`*^9, 
   3.828107635605047*^9, 3.828108187069017*^9, 3.828108856975806*^9, 
   3.828109074289997*^9, 3.828109264313899*^9, {3.828110336282488*^9, 
   3.8281103500260143`*^9}, 3.828111118724764*^9, 3.829248280410696*^9, {
   3.829248724740531*^9, 3.829248727311016*^9}, {3.829248850772583*^9, 
   3.829248862573402*^9}, 3.829309279015688*^9},
 CellLabel->
  "Out[1096]=",ExpressionUUID->"43dd6ed5-535b-43e1-8516-e7cf0c82f6e3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"dataTog", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Join", "[", 
      RowBox[{
       RowBox[{"data", "[", "\"\<ip3_0p100\>\"", "]"}], ",", 
       RowBox[{"data", "[", "\"\<ip3_2p000\>\"", "]"}]}], "]"}], ",", "1"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"sv", "=", 
  RowBox[{"Sqrt", "[", 
   RowBox[{
    RowBox[{"Sum", "[", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"x", "-", "mv"}], ")"}], "2"], ",", 
      RowBox[{"{", 
       RowBox[{"x", ",", "dataTog"}], "}"}]}], "]"}], "/", 
    RowBox[{"Length", "[", "dataTog", "]"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.824688973906128*^9, 3.824688976854212*^9}, {
  3.824689064280539*^9, 3.824689129395973*^9}, {3.8292486928980627`*^9, 
  3.829248695243862*^9}, {3.8292488964694138`*^9, 3.829248898218061*^9}, {
  3.8292489329752893`*^9, 3.829248945848856*^9}},
 CellLabel->
  "In[1097]:=",ExpressionUUID->"1eb623f4-d461-48a2-8ce2-13c34da7e21b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1719.3568247601338`", ",", "5724.9741292141625`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8246890934437103`*^9, 3.824689129806535*^9}, 
   3.824689721498144*^9, 3.824691122861308*^9, 3.824736207826329*^9, 
   3.82474378231175*^9, 3.824744637341722*^9, 3.824747544490678*^9, 
   3.8247485452762613`*^9, 3.8247493234480057`*^9, 3.824754386178347*^9, 
   3.8249174402103167`*^9, 3.824918756342114*^9, 3.824922715432321*^9, 
   3.824992208626068*^9, 3.824994265821292*^9, 3.8250060274488697`*^9, 
   3.825020216851824*^9, 3.825080729613409*^9, {3.8250828193060093`*^9, 
   3.8250828457516336`*^9}, 3.8250891896637506`*^9, 3.825093631253736*^9, 
   3.8251199152537737`*^9, 3.8254373330139017`*^9, 3.825695155855887*^9, 
   3.8260388087266417`*^9, 3.826124837671772*^9, 3.826134314799219*^9, 
   3.826134446580441*^9, 3.826288100420055*^9, 3.82810163286445*^9, 
   3.8281017866949987`*^9, 3.828101860335966*^9, 3.828102028717849*^9, 
   3.828102465747582*^9, 3.82810615677528*^9, 3.828107047140047*^9, 
   3.828107257504754*^9, 3.828107466971925*^9, 3.82810753396863*^9, 
   3.828107635626506*^9, 3.828108187078566*^9, 3.8281088569826937`*^9, 
   3.828109074314028*^9, 3.828109264337838*^9, {3.828110336290831*^9, 
   3.8281103500490828`*^9}, 3.8281111187320642`*^9, 3.829248281626795*^9, 
   3.829248901631729*^9, 3.8292489528880777`*^9, 3.829309283099489*^9},
 CellLabel->
  "Out[1098]=",ExpressionUUID->"12fe1ace-fdfd-4c97-91a5-5808314e7ff0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"SetDirectory", "[", 
    RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{"s", "=", 
    RowBox[{"StringRiffle", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"ToString", "@", 
         RowBox[{"PaddedForm", "[", 
          RowBox[{"#", ",", "16"}], "]"}]}], "&"}], "/@", "mv"}], ",", 
      "\"\< \>\""}], "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"s", "=", 
    RowBox[{"s", "<>", "\"\<\\n\>\""}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"s", "=", 
    RowBox[{"s", "<>", 
     RowBox[{"StringRiffle", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"ToString", "@", 
          RowBox[{"PaddedForm", "[", 
           RowBox[{"#", ",", "16"}], "]"}]}], "&"}], "/@", "sv"}], ",", 
       "\"\< \>\""}], "]"}]}]}], ";", "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"cdir", "=", 
    RowBox[{"getCacheDir", "[", 
     RowBox[{"dataDesc", ",", "noIP3R"}], "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"Export", "[", 
    RowBox[{
     RowBox[{"cdir", "<>", "\"\<transformations.txt\>\""}], ",", "s"}], "]"}],
    ";"}], "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.824920389823053*^9, 3.824920454686111*^9}, {
   3.82492051209151*^9, 3.824920518933715*^9}, {3.8249205800966587`*^9, 
   3.824920580807519*^9}, 3.824993774406777*^9, {3.8250818173406477`*^9, 
   3.825081836378707*^9}, {3.8250819927331467`*^9, 3.8250819936738567`*^9}, {
   3.825082027943391*^9, 3.825082036200411*^9}, {3.828108191960947*^9, 
   3.8281081928595533`*^9}, {3.829250354648354*^9, 
   3.829250357431588*^9}},ExpressionUUID->"76c38316-0e94-4c2d-8a31-\
d996b99a14cc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot before transformations", "Section",
 CellChangeTimes->{{3.829248213945924*^9, 3.829248220294899*^9}, {
  3.829248593159013*^9, 
  3.829248594218664*^9}},ExpressionUUID->"1647805f-e915-415c-a281-\
63d221f1c1cf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dataVizTrans", "=", 
   RowBox[{"Association", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"dataVizTrans", "[", "ip3", "]"}], "=", 
      RowBox[{"importVizTrans", "[", 
       RowBox[{"ip3", ",", "noIP3R", ",", "dataDesc", ",", "5"}], "]"}]}], 
     ";"}], "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"ip3", ",", 
      RowBox[{"{", 
       RowBox[{"\"\<ip3_0p100\>\"", ",", "\"\<ip3_2p000\>\""}], "}"}]}], 
     "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.826902487086822*^9, 3.8269025696555777`*^9}, {
   3.82690294270575*^9, 3.82690294292881*^9}, {3.826936446223634*^9, 
   3.826936446316719*^9}, {3.826939825594249*^9, 3.8269398530523252`*^9}, {
   3.826939971423752*^9, 3.8269399802145042`*^9}, {3.8269762122297907`*^9, 
   3.826976212294887*^9}, {3.827705436780267*^9, 3.827705436858532*^9}, {
   3.827705514649535*^9, 3.827705516329184*^9}, {3.8279284993119373`*^9, 
   3.827928499443269*^9}, {3.8281015549888973`*^9, 3.8281015646790953`*^9}, {
   3.828102361761084*^9, 3.8281023623731623`*^9}, 3.829243940778122*^9, 
   3.829247936724597*^9, {3.829249026835601*^9, 3.829249028382218*^9}, {
   3.829249084674658*^9, 3.829249086372634*^9}, {3.829253834532529*^9, 
   3.8292538347587137`*^9}},
 CellLabel->
  "In[1099]:=",ExpressionUUID->"e3b311de-f7f2-4682-a265-0fd94b9d46ce"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pltsCaBefore", "=", 
   RowBox[{"Association", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pltsIp3Before", "=", 
   RowBox[{"Association", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"col", "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<ip3_0p100\>\"", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{"Blue", ",", "Dashed"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<ip3_2p000\>\"", "\[Rule]", "Blue"}]}], 
    "\[IndentingNewLine]", "|>"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Do", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"valsCa", "=", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"dataVizTrans", "[", "ip3Key", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{";;", ",", ";;", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"meanCa", "=", 
       RowBox[{"Mean", "[", 
        RowBox[{"Transpose", "[", 
         RowBox[{
          RowBox[{"data", "[", "ip3Key", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{";;", ",", ";;", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"valsCa", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "x"}], 
           "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "valsCa"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"meanCa", "=", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "meanCa"}], 
         "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{"valsIp3", "=", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"dataVizTrans", "[", "ip3Key", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{";;", ",", ";;", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"meanIp3", "=", 
       RowBox[{"Mean", "[", 
        RowBox[{"Transpose", "[", 
         RowBox[{
          RowBox[{"data", "[", "ip3Key", "]"}], "[", 
          RowBox[{"[", 
           RowBox[{";;", ",", ";;", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"valsIp3", "=", 
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"Transpose", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "x"}], 
           "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "valsIp3"}], "}"}]}], "]"}]}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{"meanIp3", "=", 
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "meanIp3"}], 
         "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"pltsCaBefore", "[", "ip3Key", "]"}], "=", 
       RowBox[{"Show", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListLinePlot", "[", 
          RowBox[{"valsCa", ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"ListLinePlot", "[", 
          RowBox[{"meanCa", ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"col", "[", "ip3Key", "]"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
         "PlotLabel", "\[Rule]", 
          "\"\<\!\(\*SuperscriptBox[\(Ca\), \(\(2\)\(+\)\)]\) before \
transformations\>\""}], ",", "\[IndentingNewLine]", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Time (s)\>\"", ",", "\"\<# particles\>\""}], "}"}]}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "6500"}], "}"}]}]}], "\[IndentingNewLine]", 
        "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"pltsIp3Before", "[", "ip3Key", "]"}], "=", 
       RowBox[{"Show", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"ListLinePlot", "[", 
          RowBox[{"valsIp3", ",", 
           RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"ListLinePlot", "[", 
          RowBox[{"meanIp3", ",", 
           RowBox[{"PlotStyle", "\[Rule]", 
            RowBox[{"col", "[", "ip3Key", "]"}]}]}], "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
         "PlotLabel", "\[Rule]", 
          "\"\<\!\(\*SubscriptBox[\(IP\), \(3\)]\) before \
transformations\>\""}], ",", "\[IndentingNewLine]", 
         RowBox[{"FrameLabel", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Time (s)\>\"", ",", "\"\<# particles\>\""}], "}"}]}], 
         ",", "\[IndentingNewLine]", 
         RowBox[{"PlotRange", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"0", ",", "12500"}], "}"}]}]}], "\[IndentingNewLine]", 
        "]"}]}], ";"}], "\[IndentingNewLine]", ",", 
     RowBox[{"{", 
      RowBox[{"ip3Key", ",", 
       RowBox[{"Keys", "[", "dataVizTrans", "]"}]}], "}"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"pBefore", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"pltsCaBefore", "[", "\"\<ip3_0p100\>\"", "]"}], ",", 
          RowBox[{"pltsCaBefore", "[", "\"\<ip3_2p000\>\"", "]"}]}], "}"}], 
        ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "6500"}], "}"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"pltsIp3Before", "[", "\"\<ip3_0p100\>\"", "]"}], ",", 
          RowBox[{"pltsIp3Before", "[", "\"\<ip3_2p000\>\"", "]"}]}], "}"}], 
        ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"0", ",", "12500"}], "}"}]}]}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], "}"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.829243992671373*^9, 3.82924403639753*^9}, {
  3.829244080743187*^9, 3.82924421510826*^9}, {3.829244253974111*^9, 
  3.829244318364161*^9}, {3.829247969658951*^9, 3.829248193387583*^9}, {
  3.829249011621642*^9, 3.8292490543388443`*^9}, {3.829249090686504*^9, 
  3.829249097826489*^9}, {3.829249379120862*^9, 3.829249430698986*^9}, {
  3.8292494684662952`*^9, 3.8292494686381083`*^9}, {3.829249514040082*^9, 
  3.829249525764616*^9}, {3.829249556265224*^9, 3.829249587198359*^9}, {
  3.829249746341721*^9, 3.8292497503650427`*^9}, {3.829249902962214*^9, 
  3.829249919816259*^9}, {3.8292500858708143`*^9, 3.829250088665327*^9}, {
  3.829250148931691*^9, 3.829250151547024*^9}, {3.829250794181583*^9, 
  3.829250796894608*^9}, {3.8292538321080837`*^9, 3.829253832733707*^9}, {
  3.829309354655467*^9, 3.829309357248541*^9}, {3.829309667649529*^9, 
  3.829309669422327*^9}},
 CellLabel->
  "In[1131]:=",ExpressionUUID->"15df02c8-3928-48b9-a103-c0fd14ba679a"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{{{}, {{}, {}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmLtuG0cYhTepXahVxwAxY1m2tRJlybpmrUiUArAQ0rkTAsQpQ0DQxR0f
QAVdMhUr1wL4AnyABFCrjhVrAnqBRDzf+X9w2Sw+zMyZM2duu/zh979+++P7
oii+flcUz0/9fqzmj/ObarP1/IPLm+rPz88/+OKm+nvw/IMbN9W//zz/4Psb
PYuXUV96cGW9l9FeevDQevDkGr2mnj3rwcUX9OCu9ZrhX3rZXu1+0nPJesnS
gyfWgxu36MHVLXqv0L9FDx7eoveqpgeP7Q9+sL8V5sN6K1FfeivhV3pw9xq9
lchbeq/xc40e3LtG73W0lx5cWQ9+uEJvNdpLbzXaS2+1ppcsPbj0/L5hvNZ7
U/MHz6wH31sPLj3et+RlPbjr/LJcem+jP+klS+9d+Jfeu8hHenBhPXh8hR48
dH5rjOcKvWTpwZMr9NYiL+mt1fTKKJ/XXy7D71y+VS7m1SnDr/oroz+NO8vV
f/JcbpQsP9bH/7SMfFRvPVj+1iN/+YMv7G89/Mgf7PXXc3vnk/ryBzfsD/Z6
msLnXi8bevbZT8vw//tH/mDv185GtJc/eAm93kbkL3/Ws79k+bOe/cFD59eK
cvmDS69HuOB86rRiPPLXivHIHzyxv1bkP9cbJctf9id/yep3M8Yjf5uLei14
7PmF773+NhfH20uWv83IU/7gmF/Y+2cK970/3kd9+YMn3n+w13PnfbSXP7jr
9Zcsf/AQvRG8ZH9wrD/43PltRZ7yB9/bH9zjPOnAD/a3Ffmr3laMT/7gsf1l
e/nbquW3VfO3HSx/yfIHF94fcN/zC3ftbzvykL/tmB/5267ll/3Jn/uzvw+R
l/zBsf7gmefX9b0/4Ni/WS5/cMV9PLK+7294Yn8favntRN7ytxN+5Q/2fdGB
zz2/cJzPsPfbYCfykr+dyEf+Ul/+anrFLrr2t1vzl+Xytxvt5Q+e2R/s/TbY
jfHL327kI381vWn2L397evbtDy7tby/ykr+98CN/e5GX/Lm+/cH3zi/L5Q+O
/QtfeH73o7387Ud9+YP9vtyB43yGZ/YHl15/sN/fRtmf/O2HH/nL+vJ3EH7k
D473GTjOP7jh/Zvl0oHjfDmIfOXvoJYfHPdHTa84jPbydxjjkb8slz84zr9k
+YO9ngfJ8gfH+XIYfuUP7tvfz8HyB1f+foB7nl946PmFJz5f4HPPL7zk8yXb
yx/cQG8Kx/tuFe3n9V/A/l5bhv390Kyif14fxF30qmSNp4rxzfU+wbF+s/5c
7hL290wv/cz17uC437N8rvfN7f2+lKxxeDyev+S53qP9ej5hv389wT6vio88
0XsBx3n9MfJSfnC8H8JDvgcruP+F/ODxLfnB9/4+dH+35Gd99Houd35u7/zg
GeP9VvM3cv/Oz+XOz/6dX+orv6yv/LJcuR0xXucHX3i/wP4+bB6FH+WX9dUP
7POjc7To71Oy8oMb6F2mvvI7WhzvHez5HWR/yi/LlR/s+2gMz/z+VBvvI+zv
q2my8oPj/v0lWPnBM+9fuM96abq+zx/4wusP9v8VnWyv/Gp6n+GC8+cy2ys/
uETvruZvAD84P9j/J41gv1+N3b/PN+uj9wj7/JxaH70nOP5vOkbf599xlCu/
4xif8jte9NeCfV9WycrP9b3+4Hi/hX3/XcJezz2z9+/x4ngHcOzf9Kv87If5
GLu+/4+Cu8zvI9xgvFOz84O9P4oTnt6/JzF+5XcS41F+cLzfwP4erE4iH+WX
9ZXfSeSl/FJf+WV9PZOVHxzfr+7f94f1vf7guD/geH+C/b3+mOXK7yTyUn7J
yq0d7ZVfO/JQfrDPl2bWV37tRb2qHeNTfm7v+9ftff+6P8Z76fa+f+G4P+DC
668d+Sq/9uJ8jHI88pnlyi/9Kr/UV37txfl4guP96hR/zu808lB+sP+fbcJ9
799k9QN3ff7BPZ9/ycrP/Tm/08hT9WCvl7tk5XcaeSi/9K/87Mf5udz3x+ni
fDzCPg+mtfE+udzn3xlPn3/w0OffWYxH+cE+D1qw/2+vzhbno3MW/pUfHPsX
9v8Bl+7f+/cs8lF+8Mz3b7ZXfmeRr/JLVm7pR/l5/F5/Hp/zS1Z+2V7tfg2/
/wHplnBf
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmLtOY1cYhU9ST+GWzpESZ5gLGDwMEAbmTMIMRHJhpaNDkeKUsYS4TOcH
oGBKp6Jybckv4AeYSLR0VNSW5gUCXt/6f7HdHH0+e6+99jr7ds4Pf/7zx1/f
V1X15buqerzq92O9uDTP6jedx1/y3/3HH3xzWv87evzB9Vn939fHH9w+07X6
Sddr68FX1oNvztCDZ9aD2+foteK+9FqhLz342Hp5X3rw/BS9n3WdnKIHD07R
S5ZelpcefGW955GH9J5HHtJ7Hv2XHtyzP3jo/JZ1bZyjtxx5SW+50FuO/ksP
rqz3gjzc3xeFP7hpvReFnsv7ebwMP9KD59Z7GflL72WhB9/Z3yvad3/h+hw9
eGI9eGC9V4Xe62hPeq/Dj/TgmfWSpfc6+iO9FV2H9gdX9rcSeUhvJfxKL1n1
VnW9sr/V8C+91dCXXt6XHty0XlvXBu0vwQ/jaSHfaUd7i/rddvhVe3B9QT2X
v6B987n0pvDsHD9w70J691lf/tbwi97SWtSXv7XIV/7WIi/5Wwv/KrdW5AMf
2x88d15wm+d1D/ec33q0J3/wjf2tR//lD276+SfLn+t7PCTL33o8H/lLlr/1
wl+H/tlfJ/LQ+IHbfr5wrN+w14MhPPf6Zj3Wh2mh97VT+IOv7e9N5C1/cKxf
cM/5wcfOz/Wdn+97/MEP40n+4InHX6F3n+3J3wbl7W8j/MvfRjwf+YMH9rcR
/ZM/s8cfXNsfPLvA30b4l79k+Xsb9eUPHqDXgRvodd8W+cHXzg++sz/4iucx
zfLy9zbylD/Y47naLPKDKz/fzchH/uDY75PlD+55fsAz+9sM//JnffvbfNrf
aivykT849qetp/3twl4P+snytxX9k7+t8C9/qS9/8MzzYyuej3S2g+Vvu/AH
ez/r5n35237a3yF8ZX/bRX7w0OPP9z3+4MZn/P0S9+UPPvb4g5uf8efyzi/r
q13Y43kE33h+wBP7s779wXfOb4f+2h9cfcbfTviVP/jG/nbCr/yZPf5gr1dT
OPaPLC9/bs/r3zt0PT/gmB9w7fEHx/x9F/rSyfryB8f8heeeH67v/Fzf68tu
1Je/3chH/najvPzBXg/6cIy/Qm+0G/nKHxzzN+vLHzzw892L9uRvL/KRP9jn
ny7cs78sL3+wzxujvaf9ne6FX/nbK/ztFfm9R9f+4InnL9z0883y8vc+8tL/
cMP5wd6PpnCsL3CcX6zv8Vc/Lf+sjv7JL3zN+GiZfb6BK/zVhV4XHqB3VEd/
1L86/C3kTpLlE/b+f1n4G7k8/sYuf8F5CfZ6MMv2lU8d+S/0bpOVVx15L/S+
ZX/U7w+6HqP3DI79Dvb8b8Ftn6/hG94Ha9jvx91k5fch/Ci/ZOWX7Sm/9KP8
7NfrV6E3zvLKr9CbwU2PL9dH7xa+4n343nqn5Jf9UX6/0n+PP9jr1xLs968W
fOf8YK/PtfU8n2CfB4/gBuOlD9eMlxPrez+yH9a3y0JvVOiN4YHfJ2Cf12aF
3lff9/iDH/ZL5QdPPP7godeX38K/8oMf9jfl5/votZK1/sBD9vMavvN+DTfQ
O4K9HvRdn/35xO07P9jr2yUc3x+SlR/s9+8p7O8vM/vz+HN7zg/2+efe9dH7
luV13UfX428/9JUf7PWzBcf5P8srv/3QV35wzF/r+XwGe7862Q+/yi/1ld9+
9E/5wX7fHadf5Vf4m2V55QcPPH+zf8ov+6P8zJ6/H/HL961nycoPbnj+wvH9
DJ55/cvyyg/2eDn6GHkqP/gOvRP4Gr1h6is/uOf3V3jIejXO+sov70sn7yu/
9KP8YL8/37u+x5/77/w+Rf+UX7Lyg/19p/Upno/yg31+qWGf77rwwOsf3GM9
6MMNz1/Y82MIez29hL1fjmB/bxvbv8ef/Xr/tb7XP9j7+W36UX7pR/kVetUB
7Xv9Owi/yu8g6is/2OtB5yD8Sucg8lR+1vf5JdtTftme8sv6yg9uOD+47f0D
9vvLGJ44vyyvnNwf52d99G7dP59fsr7yg2P/OIz7yu8w2ld+sM9DLTjeP13e
6x9cef7Cfl8/gv09qA9fO79klYN93r6E4/uE/Tg/t8/+Nk2WzmHkpfxgv2/e
Jis/+3F+8Nz5/Y6fi/p/UlZ1xg==
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmL1OY1cUhW9SU9BOR6SMwyRMYjCMA2Tg8jcQyQVK586KFFLGEuKvuw9A
wZSkckVtyS/gByCSWzpX1Ei8QID1rb3lS3P1ce5ZZ511frzt7/7854+/vi2K
4us3RfH61N/35dtjcl6utl7/4PK8/Pvk9S/539vXP7g4L/+7f/2D5y/4/3s9
Fy7QS5be+xhPenDPenBhvYaeTevBT/bXiPelB99YD54/570fgqUHD8/Qg/tn
6OX70vP71lvUc2y9xchDevDU812M+UtvMfKR3oeaHjzwfD/U5guXF+jBT9b7
kXwv0YOn9gdX1oMn1oNvrPdTjC89eGA9eHiJXrL04P4lOkt6HttfsvSWanpw
Yb2lWn4f8ev84J7zg48934+1/JKl9zN5Wg+eeL9ku/TgvvWSpfdL5C09eOz5
wuUVenDT84Un1mtG+9v77+CX9X+Tb8Hebx248HrBY/ZzBQ89H7g6l94oWX6a
kdeb3mP21zjLoS9/y+FH/pLlD479nu0aF477aDnGkz+4aX/ZLn9ud34rNX9w
z/nBXs8OHPdZvi9/8I33F1yhN4KPvT9Wav5WZudbtCIP+YP73o+tGE/+zM6v
NbseFfzk+w2eojdqhV/583he35pesYqe/a3O6rVg75fOauQtf3Bpf9azv5re
KPvLX+rL32rkI39r6LMe7+CJzx887/zWavmtxXgaB17w/rO+/WW7/MG+fx7X
wq/8fdKz6fzgwvnB4zP8wce+f+CbM3ST5S9Z/j5FvvIH+z57zHb5aDOe/bWj
Xf7a0V/+2pGH/LVjfvLXjnzlDx46P7jv/Nq1/NqRr/z9WvMHx/6DY33hoc8v
XPJ5VMEDf95Y/wp/cNzHbvf5gOP8rqNnf+uRj/ytx3zkD553ftkuf+uRp/zB
Q6+vx/P6wj2vb/aXvw2e9rcR7fK3EfrytxH68pf95Q+u7M/MeRttRD7ytxHr
I3/W8/28qWfcz3Cs72bkL39w3M/5vnxsxvjyB/e8/3I8+YPjfoajPvgt9OUP
XnA9Aw+u8Ac3r/AHux6q4MKf//A8eiPY9/09PHZ+bnd99Tn6yx8c9x/cc35w
1NefY/7yB/edH1w5Pzjqb/jY+eX78rdFns4Pjv0HL9jfVs0fPHR+8MTnFx47
v3xf/uAp9dfjVi2/bfw7PzjWd7uWHzy1P9j1eGU91wfbka/8wfH9Kln+3N/5
lehyPueS5Rf2eW3AL+eZ8kHs70dlGflrPvAYvS4cn49lzPdN7tTje79Yn3yu
4b7n73byv4Nf7mPVS2XkLx/JyqeMfN/0HuzX5wGeUH8927/P706w8oObrhfg
Cr0G3Hf9Cvu+Kq2Hv85OzE/57cz6O4EX8HcKRz1pP+hdZ3/ltxN5KT/7cX7w
MXpjOO5f2PX+Q85f+Xk89J49nyvG2cU/99vcbrQrv2xXfmb0WvCA9S3hvvOD
ff668MT5wa6vT63n/HZjfsoPju8PsOuLO/t3ve5255fjKT/re/9lf+WX/ZWf
5+f9txd5KD847mu4dH57kYfuH7jp/PZm/XVgfz51k5Uf7N9/TuEnn9+9Wn6w
65lb2PfTnf36PrM/9MbZrvw8f++/fF/5wWPqm2eP7/z2ed/nF576/MLeL439
WA/l5/7OL99XfrDrjy4c999++FF+sH+PqJKVH+zvI7fZX/lZ3/US7PtlDA+9
/2Dfpw+w76tH+0fvGfZ9UBzU8juI9VF+sD+/GweRh/KD/X2rhP17Xucg8lJ+
Nb0TOPYfPPD+q/m7Pog8lV/6UX5w1CPJeg+O3/MOIl/lZ3/Oz/6dn/NxffAF
/84PjnoBXuB+bsCuR1ru7/2XrPz8Pv66X8KP8qvpncKF66Hsr/zg+PyFXU/d
wVEPez7OD47zC/s+eMjxlF/N33PmI5+HevrzbQ7uOb/D2fVoHIa+8oNdj5fw
1PvvcNZfF+57/+X7ys9+fH7hOL/Zrvyyv/JLP8oPdr0xrs33Hna9/wBXrkc9
X+eX+ajfEf6c31GMr/yO4n3lBw+8/7K/+h2FX+UH+/edLuz7/gT2eTu1ns+v
+1OfXtuPPz/sx/mlf+Xn950fHL+v2o/Pb/pVfkexPsov29Xvdz1fPq//B6Gg
bo4=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[{LineBox[CompressedData["
1:eJxdmL9OW0kYxb1bU7h1x0oJ2RBCjC+BQALcgNO5QNvRoZU2W64lFAOp/AAU
btnKFbUlXoAHyEpu6Vy5RuIFNvj8zveJcXP1Y2bOnDnz587ltz//+eOvXxuN
RveXRuPpqd+LevE4Pq83q6cffDeo//769IPrQf3v9dMPnp7X//14+rn8Qs/G
S9pb72XUlx78YD14NEDP7QforeBvgB48sz94Yr2V0Jee+Ry9V3oO7Q9u2t+r
6E968Nh6cN/+fo/+pZcsPbhtPfjhG3pww3qvI2/pvS7GC/fP0YPbng/42ONd
jfFJbzXyld5q6EtvtRgvPLK/N9Feem8iT+nBp/YHL9sf3LC/NfKw3lrkKz24
aX/wxPmtRb7Se1vkBx9bD55+Q+9t4c/17W89WHrrxXzAsf7WY3zSg2vrvSM/
68Gx/uCp9eCZ9eC+91sbfxeq30peyFfw3YXa9+C++2vH+BfPYZarf7cfSO+2
XYwv2y/05vDQ87ERLH9wG70K7rPeehuRp/xtRN7S2Sjygcf2l/3JH3yK3hx+
sL8OeTHeVifylj/Y+6vXKfKDPb/DTuQhf53wK39ZLn+d8Ct/7t/+qshb/qrw
p/UDjy7xB7cv8QcPWS/DbC9/VfhZ6N0my5/be36rmB/52iz8wRP724x85G8z
8pC/LFc/m0V+qS9/cNP+Cr2529vfez19nrfgOL/eR/7yB7c9v/Cp1x8c70P4
53kkf9mf/CXLHxzn6Vaw/G2Ff/nbKvxlffnbKvIr9K63Yjzylyx/sM+zORzv
t+3n421tR97yB0/sL1n+YO+34Xboy9925Ct/cNP5bT8f7zzry98HPcdef/DP
80/+4FOvvw+Rl/y5vvMr9K7hKXq31uM8/QEvX+APbvt83tHzzv5g77cK9nna
S5a/rC9/cNwnYL/fb3difuRvJ/KXvyxXP7uM1/MLzzy/cMzvbvQvf9le/nZD
X/4KvVs4zmc45nc3/MrfRz39PmrBXs8VHOfLx8hD/rJc/cJDz6/LPb/wxPsD
Hnl+4Znn9xNsf/DI/uCx/cFxH4abPp8/PR/vdZbLH3xsf3C8f63v/Pbo3/O7
F3nL317kKX9w3A9hn/dDOO53cN/zmyx/2Z/8JcvfPv3b336MT/72o778wX6f
f92P/uQPfvD9Do7zGY7zBV62v9SXv4Pnei14hF4FT7mP9rJc/g6if/nL+vIH
N5zfQeQvf8ny5/q+T9boU38Jbns9wt7/K3XkyfUBX4y3dnvnDc/we+L+PL46
8lvIncHHno/khd4VHOd/HfOx0LvJ+rov5fiUQ13kA5+id1+Md57tF3qPWa78
PuOH9b8Ej5wf3GD/r8C179fZXn93ufcT7Pvlyefwo/zcn/NLVn5m3jdX1rsk
P3iKv5ssV36wv3/v4PieKPzdw3Hfg5uM9xEe+/w71HMZf0uHkYfyS1Z+8NT3
a7d3frDvdz3Y36cncLwfDyNP5Qf7e3AIe71cuX+vP/vz+sv+lB/s9XKX+srP
fr3+DiNP5ZfjU37pV+M4Ik/v36PQV35Hoa/8YN+XKtj/P6izvfKDfX87sZ7z
Owp/C70zeOL3ZZYrv6PIU/lZH70b+/N9xPW9/sy+P9kv6/kenvl963x4/z0W
eo2uniPv3274V35m5+f6zq9b5AfH96jLvX+7RX6w78Nn8Nj5dYv8XO78YN+/
b9Kv8sv6Gjcc9yf79f7tRv7Krxv5Kj/44ZJxfaF/vh+XvkS58oOb3xkHfPG9
/h+dHy9e
              "]], LineBox[CompressedData["
1:eJxdkzFrAjEYhkPnDq5udnEu2LlkqXcFC9LNTQq1YwXhvNPlfoCDq52cOhec
C/4AC65OdXKt4NC1Z7/nvaCBIzwkefPlSe7q6fXx+cI591B8x/57/PP5e3vn
3bGlI+s93B75r1XRWnA382+zonXgaeZfesem8dTfNIo2gPdD63M4H1reBK6k
ljeDt6nlvWs8s7zFWd5S+6eWt4L75G3C/P+8HTwfWt4BXifWuybrE8u7hLeJ
5VXhWmJ5dbhLXgO+pj4Pz6mvBefU11Ge/MFt+RNnrIMr3MdE+dzHDP6Qv5Bv
/pqlL/MHO/JWOg95G9hT307ryTvIF/W5iP0z/MFr8qrR6X3UA5s/uC9/UenT
/IVx8wc7ztvT/uQNQr75i8rzmz94qfcXxs1fYPMH53p/Id/8wV3q28CevJ3q
I+8Q9rdzxPTyB+u9VOPTvDq8lT94Kn/xmb/4tL4OXJO/s7wBPJc/eK3/N8w3
f2Hc/MFt8haaz/+21HnlT/XIXxg3f/A+wR9coT53z/6J/wOIBEdz
              "]]},
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[{LineBox[CompressedData["
1:eJxdmD1PI1cYhSepKdzSESkxm2TZmJjP5Wv4cihcoEiJRIcihZSxhJY1W41S
U9CSiooaiT/gH0Akt3SuqJH4AwHOc95XM25Gj++dc8975t471/7mj79//fPr
oij++aooXq/6fFu+XZ7OyoXu6yf5r5PXDzw6K/+9ev3Ak7Pyv/vXDzxzpmvx
na4d68GF9eBj68ED67n9M/e1uX5GDy6t147xpdcOfenBLfub1fXQ/mYb/mYb
9c426oXH1nuHH/uDL633LvxLD779jB586Hq/R9968OE5evDgHD24OEfP95/z
/Q+6Xp+jBx9bL1l68HiIHnw7RO9H6huiB5dD9OBiiB58bD24Y3/vdW3Z3/vo
Lz14YD342vnBE+c3R172lyy9uYY/uGN/c1Gf+n2IPKT3Ie6XHlz6+bq//bm/
/f1Eu+cfPPJ8yXbpwTGf4UPPvw550H8afllPb/Jd+JL7+/CMx4Mnn3Stsr/G
b+jddcKf/HTq/h/hjv3N6/pkf/OhL3/zcb/8wbf2l/fL33y93qvsL39wx/nD
L+tL/uDKz+Nn/DAfpuFqiD94wPzowx0/f3jMfKng0usJflmf8gfHesjx5A++
tb8uV/vrxviaP3DL/uBr6j2BvT4qOOar25mPd3A83248H/lLlq8FruhNL8Tz
kD+48vOFO36+sPfnCn76hL/sL39utz945OcLzzi/xchD/hbr9XbhJ+ZLfzH0
5Q8eOL/F+vO4ynb5g1uef4uRp/zl+NJZirzkb6lebxf2+7G/VH8eJ9kuf/Ch
18dS5C9/qS9/sN+njw29Yjn8yx98bH/Ldb3+cl3vZDn8yEfeL3/ZX/6W6/Xe
J8tf9pe/lchf/uCO358r9efRX4m85Q/2/lxZz/58v/3BM/aX/eUPjvPLKv3t
D750fqsxvvzBldfvatSn71ejPvlbjfrkbzXykb9slz/rO7+PUY/8wTH/4EM/
3+wvf/CT3x8NvSt45Pw+Rv3yl+PJn/ujV6zpest+MJ0sf3Bhf2vhR/7WIg/5
W4v65W8t6pO/bJc/ONbvWvjVuOuhL3/J8gf7/d1fr9d74nbnB196/1uv13u3
HvXJX0PvcT3y0HWD/va3EfnLHxz7C3xtfxuN/JLlD473B+z3+T3s9fa4EfnK
32Yjv82GP9jrrb8Z98vfZuSr7zejHvmDx87PbH/J8pfjy9+Wri372wo/8rcV
eckfXHr9wj5PVu7v9Qt7v7pLlr+G3iMc58ky6n/rPwW3vN/A3k/a8MTnL9jn
qzL7qx74Er0jeMb1Zf83uVN45P3K/tC7gP2+u7I++d/Apc9z7s/6GGW78oH9
vB/KeB7Ky3mg95ztym877ld+2+FX+cE+77W3oz7lB/u8VsIT55ftyi9Z+Xl8
5wf792UF+7xzsR15Kz+4QO9mO+pTfvaL3ij1lV/D30O2K7/MQ/nl+Bp3J/SV
307d3/RO3V8b9nm9C3u9lXC8r2G/7452Ig/l53b0TuHYD+AJ++UFPPb+6vF5
X9xkf+Vnv55/sN+H967X8w+O80Cj3ufsr1x263pTcLyPd8OP8oN9Hulmf+W3
G/Upv93IV/nBcX70/ew/p7DPL5X9ef3Ccf7weJ5/cMnvkzvrsf+NkpVf9ld+
Hs+/h+wff885vvLbq/ub2ot6lN9e5K/89iJ/5QfH/gfHeSzvV35w7O9ud34e
3/t9tis/eOT89hr57UV9yi/H030Nf/cNfw/wseef+1Pvs8fz/NuPvJTffuSj
/OCW89uv63V9v/Nzu/PbD//KD/bv8ZMcT/nB3q8q2O/XC3ji90eOr/ySlV/6
l26Op/xyPOWXrPx8v+df+lGdPerx+u3FeMoP9vms3av768I+X5W9yFf5wf69
dATH/4vW8/zr1f1VvchL+SUrP9jr4ybvV36w58sox1d+Wb/yS1Z+vchb+Tkf
r99f8OP5B3f8fwf85PcvfOv/C7Nd+cHeX/rJyi/1lZ/12K9O4ZbXL1yhd+Hx
vH7hgdev251f9ld+2V/5wWO/f83e/2D/n/kMe38pDqiH/3+nDuJ+5QePnN9B
5KX84MGX8vffXj6L8PBL+T9/ey0f
              "]], 
             LineBox[{{48.51315789473684, 423.5}, {48.6, 407.}, {48.7, 
              384.}, {48.800000000000004`, 386.}, {48.900000000000006`, 
              382.}, {49., 376.}, {49.1, 377.}, {49.2, 376.}, {
              49.300000000000004`, 371.}, {49.400000000000006`, 374.}, {49.5, 
              363.}, {49.6, 353.}, {49.7, 344.}, {49.800000000000004`, 
              355.}, {49.900000000000006`, 362.}, {50., 374.}}]},
            FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
          {RGBColor[0, 0, 1], PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6],
            Dashing[{Small, Small}], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmH2IHWcZxa9NTWq6myZtdLNNsknj7t27u3d37/f3xzN35s69oUu0BaEL
hUjESIViJZJAhJIKAaULYoXCCgVBScGCIKtQUGhoqSCsUFCQBhQKehEqClkq
tKTUmZz394Y6/yyTmffMec9znvO8N49d+NaTX78vk8n86DOZTPpX17wFr05/
59Z9V6xSTq95y77x1O0X912xb1xMr3n75r5Xau8kz3+ynV7zdndZcv/H3fSa
1987l/XvmQV77RfJ9cllh7dgL9+58If1jy47PPfc4y3YLUsI3A/egh38y8+e
634CXtauv//E63MfgZe11rM//dP+j8HLCid5X3hZ+2r+w7df8vyydve15F54
i3bs8ed/9Xe/30X73rnj//z1Z9nvoqXwrf3wW7Tk7ZnHp8BbtN/9NrmmwcvZ
lfTaD15OeA+Al9N7D4CX8/jCy9l//p1c+8FbEv8D4C3Zx4l8Lx8Ab8m/Lzz3
/oPgLWm/R8Bblv6HwVu2r6TXEfCW7TcvJIQPg7dsm7dfXHjjMHjL9o+ZRLCH
wFuRPz4H3oodSAsyBd6K/DIN3oo9+frc9fc93oqN37t69JfHwMtb+rmnjoKX
t0JKeAa8vP15f/KBR8HL29cSOe58Hry8/f6l8/kPHwZv1VJ6C9PgrabuumWH
wFu1dPkFz2/VUjojz2/V1094a9L3IHhr/1ePNel9P3hr0usAeGvyz4Pgrcsv
U+Ct239zT//wzWnw1oX3EHjrWn8IvHX7bkL3vcPgFSy5u3r0kHt/tqD6JPW9
C18u2FsfJB9gfxsFW0o+94Gvf8HrfxfuWkE4X+D7Bek34/B2CpbSef44fBze
CYc3Kei9WfgVtf4E/IpaPwu/ovScgV/R/vbX5PL1d+uPw69o3TQgTsOvaF9K
yvXCHPyKlrDJPX0SfkX5+RT8inYogXv1NPxKWncKfiX7+XPJF07AryR88DZK
FqXXHPxK6seT8Cupn8DbLln6uWnwdkrifwJ+JUvcdT4/C7+SpXY77/ujbPV3
ntn3ylH4lYX3CP4p248T+7/9MPzKyievX1n+mIFfWXofh19Z+ftFh7dTVt7m
4Oeen4FfWTjsN1NRnh+DX8V+8P3kmoFfRfPlGPwqlqh57vhJ+FXcOvhVLI3n
GfC2K9r/MfhV1O+Pwq+ieYCfJxX1/yPwq6renl/V+1P8qnYkvU7Bryr/sd+L
VUvb7eop+FUtpVPDz9tV1dPzqyrvvP+q0vs0/KrKkwX41SwdB8+uwK+mfMjC
r6b9ZOFXU78uwK+m/HgMfjXlme+Pmp25e8GvJj3m4OfWU49JTfr7+tbt2+kG
T8KvLj3m4Vf3/SR+deW/168uP87Br65+8Xle9/qKX1395vujrvr7/q3Lzyfg
15D/2O9sQ/X0+jXEbxF+DfHx/Nw99bjWkN45+DWUBwvwa2g+gLfbUF6vwa+h
88Uq/JrCX4dfU/spwK8pPVbh17RUvmfy8Gvq+xX4NbX/Avya8us6/JqaF+Dt
NjVvs/BrKn+9/1qWHrcOZuHXUv8vwq+lebYCv5byoAi/lubpGvxaOg/k4dfS
flbh1xKfAvwc3ir8Wpa+vg+8TFt+B2+2rf7Jw6+t/FuDX1vvleHX1veq8Gur
HhX4tb2+4ueel+HXlp4F+LXFz9e3o7xbhF9H5y38Uu5oXizA795z8etonp+B
X8f+lch/3fdvR3nj87kjf4G325Efl+DXkT/y8OvKb95/XZ2vq/Dran5X4dfV
e1X4dcWnDL+u5pv3X1d5uga/ruZvCX5d5TX1mHQ1D/Bzpmdpu58rwa+neY2f
yz3lUR5+PfllEX491WcFfj351fuvp+/7+vZUL8+vp7xahl9P+uXg15cffH37
Xk/x62ue4eeNvtaTBxf7mu9ev77ypQq/vtbV4NcXH++/vvKQekz68h9+zpjy
jfenTOupz6wpv2tufdakf5XzjWldy+GZyY9d9mPK55bD2zR9v8n+TDgVh3fJ
VP8C+zXNP+q3ZerHIvs31bfu8G6Yzj9Nzkum82vD4d00zcsG+pj8UHZ477r7
Cnq5/bPfPXfv/RconyroF+h8VUO/QP4k77LuvoB+gfK3iH6B5m8T/QL9numg
X6D3OugXKI/76BcoP8+iX2Cn0kA+i36B/DtCP7d+iH6Bzh8h+rnnAfoFlj5+
oo9+gfJkgH6BztvUdxKo/+G35/i00W8gv1CPqYHPF+k3UD7T/9mB3vP+G+j3
CvWwgX4f4+eNgc5D5MPmQP7y+T74tJ8v3cOXfgP9Xiyi30D9SH23B6pXC/3c
fRv9Br5+0m8gf/TQb2BpfOYM/QbqD/AmA51Puujn9uf1C+WnNvqF0rePfu55
D/1C+bdF/oSahzX0C9Wv1GMjlL7kwWbo80L6OXzy8VIofiX0Cz+dL1uh+tfr
F8pv5NONUPX2eRbqfNxEP/ecebMbKk99/4bKU/JqEup81HF4e6HyvYt+kfKW
vJqKxI/5PhvZVnJ8uO39F2m9n3+R9PL6ReqvFvq559R3M9J+x+gXKb/Ool+k
vIrRL5I/h+gXaX5G6BfpvDpAP7cf9rsTSQ/y+Wak+tTQL5K+1OPdSP3RRj+H
Tz323H7wc2ao85v3n7v3/huqHwz9huqHPvoNhReh39Dnj/Qb6vcFebU51N8Y
/YbKnxj9hurXPvoNNc+8fkPVh7zaHur3TYR+7v0I/YbKD/jdHEqPAP2G6k+f
f0P9O3k6Geq8Bt6ew+uhX6zzUwf9Yp2n2+gX6/xBPbKx9kd9y7HyYoB+sdYZ
+sXKgwD9Ys2/AP1i9U+AfrHyALxrseYT9di69z3pF6t+3n+xzifUdyf2/Sf9
YvWTzz+3vxD9Ys17+mMSqz4h+sU6b4foN9K6AfqNlDcx+o3UD19Gv5HqS7+V
R+on5puN1I/Mtw2H10M/9z3qcXGkPG2g30jzro5+I9WffNkaSb86+jl+fn6M
pH8P/UY6v5H3N0f6fVVHv5HOr130c+vPot9I9WC/eyP5lfNBZqx5HqHfWHkw
RD/3nHmeHasefn6M5Q/mpY3lLz9/x+q3JvqNxb+Lfu577PfSWP1PPa6NVS/6
bWusfGS/22PlCXg33Pfa6Oe+Z+g31u8d379j9Yf331jzDj9Pxj5vpN9Y/180
RL+z6t/ke/8DbQXyVg==
             "]],
            FontSize->24]}}, {{}, {}}}}, {{{}, {{}, {}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxF2H+M13UdB/ADiRjd8pauZGPOmFyUSnqHAWr4TU+hdn84/iDOWWNUcJlb
2i3WirmLGCWecefMgExB3Qn3++4LBy1GN0ZO3VXOueLKFTn7jjlW1BWRuWzw
fjzh/nnvAXeve35e3/fn83597qPrv776KzPr6up6ZtTVnV/L17WVC8v8gcqS
5vNffKK/snHD+S/eM1DZvev8F7cOVX41ef6LHxwqa93Csq4ZUo+3DKnHbw+r
xytG1OObR9RrLOuiEfUaL/5/qcf3jajHj6ceP5B6HyvrxtTjzanHf089fjX1
+HDqLSrrl1KP56Ye/zXXy6eH1eP1w+p9vKy96R+vS//48KB6fHZAPZ45oN4n
yvpsv3o8d0A9vj/1+K1B9bg1+a4r67Zh9bgh18tfTv+4J/3jwfTv+rK+lv7x
e6nHp1KP/5163DSq3g1lPT6qHh8bVY+/OKYevzymHp8aU2+xfo+pt/ji95d6
vDX1+Depx92p98myrk89bk09ro2qx98dVY9fyPXeWNYW3z+P/zRSuVC+mfv1
q5U3pb+80OfRyaezX3nDcKlX5Vdz/+f32581rg3Kd1NZ5wzJxw8Pysd/tH9b
eVP2Jz/dLx+/3icfv7lfPl6zTz7e0isfjz8vX1NZ33lWPq7tlY+P7JGPX3pG
Pn79p/LxyE/k46275eNZu+Xjcz+Wj/c8KV9zWVc9KR/P/5H9w3uekI9bnpCP
Tz4uH0/2yJf63aVelQ90y8d1O+TjfT/070vK2v2YfHxiu3zcvl0+XvuIfLzo
Efny84/Il/qPysc7d8jHLyUfn9kh381lHXC983hrj3x8lett5Wsek49PdsnH
7V3y8akd8vG69I87e+TjVT3yfaqs13bLx8t8Hs08v0c+fimfLz+/0+/h256S
j9uflo9XPSMfD9jPteTZK9/Sst6Y+4P/8Zx8fOwF+Xg88wPPcn508ufzPOf/
eP5XeUaen/y252ONh6ryLStrxwH5+JcH5ON1B+XjroPy8fGD8nHDuHz5+XH5
eNu4fPz9cfm4Oi7fcush+fjP6jXzWfVa+epD8vGaQ/Lxe8nH3cnHs5OP17re
Gj96QK5byvr+9I9Hq/JxQ1U+fijnFX/E+dbJ23J+8Qecx1W+MecZf8H5XOOv
5Xy7taw7c75xLec7N9svrTyWfDzTfunkn+W85pucx1VuzP7jxdl/vDzn+W1l
/W/y8b+Sj99wva18JvMIn3O9nfx6+nfJJR+/kv7x2fSP30z/Pl3Ww8nHDyQf
H8x8wEszH/CJ3L88kvmAL8/9y/Myn/HmYfn4SN4XVpT1mswHvDbzL58zj7by
ikH5uGLe6OR3877CQ95vqjyWeZlPmDdqfE/ml9vLerf5eB43DcrHH0o+Ppr5
hecnH292vbt4tXm6mnp5P+ChzFd8dfpXKesHzWP1fCp5+Q39auTNmb/4He8L
FZ7IPMaz9bONt+b5zqv7S70OfrHP9XJrf6nXxaczv/ErfaVeL5/MPMdr9svF
y/r055Iv1JvK9ezXL35LvWk+ol7dZ1yfevV873794zP79I/nqNfMTepVeO5+
/eP16rXxVvk28Gn1OvLz6R9fJV8XT6R/3ODz6OXNA/rH9fbfRPLn/Y677Zcp
vt9+qfFh+2U635/9d0dZj2X/8Yu5n/m4/dvIe7xPNHOL948KT+Z5xHM8v9r4
njw/efmo/vHRvM/wd9Tr4vbMH7zM866Xz+R9h+epN8Er83zjy9Sb4gXq1S65
9I+/mfffO8s6y/O8nl/O85qvdP40cm/eH/kK51uF1+e85h9U9Y9nHtA/Xmle
6uBF5oNObj+gf9xkXtjFC9Tr5S71qjyq3gT/Vr1JnlBvirerV+Nt6k1fculf
S1nvVK+eGzLP8PvUa+SjmW/4q+kfL0n/eGH6x7/IfMFX+Tw6+Oc5z/k1n28X
T+V85y32cy9fl/Oer1dvgodz/nNVvSm+PfMKb5RvOvkyv9xV1nfMO/V3Xfz/
0j+ezP7jX2f/cVW9CrdnHuMW9dr44t87+Nb0L78v/eO96R//Jf3jkfSPn0v/
eGf6l9+f/vF7uX/5d7l/c73mm2mekfnq7rJelvuXr8j9y7fI18iXZ/7i2epV
uCHzIq/M849vyPOP29Xr4AfTP/52+sffS//4D+kffzjzMH/O5zvBbZmPedLn
O8UX39d4qfttmpfk/W1lWU9n//FD2X/8v/SPH07/+G85P7gp5wevNa+2cXv+
nsrLzHMdvMk81MkN5qEu7uvXP77DvNfLV2be5OP+fjXB5zK/8FjmF/6GeajG
Lfv1L9eT+WVVWbebN+r58cwvfK96jXxfn/7l+80bFW6Sr5W3ytfG/1RvA7/r
78sd+fn0j3+f+Y/3pX/clfnlkkv/eCD942+pN8lPqTd1qX7pH7eoN81nXG/d
Z8u6oL/yf05Gz28=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJw92H1olecVAPA7KY6FVIqT0Yh16cjSzGWta7J+2Ky9c521bRDrpNMgbJQu
yhitM6VI5uZFpIiEkdpEjdMY0+Tm+/PGTLYyQpHiJFul64bZpKyru7BSutBs
rQ1jrPb5He8/Dz9yc+55z3uf85z73v7Us1t+uCSTybz4mUzm+ppeFdlPlzv7
srU111+8qy+7s/H6i9/qy57ouP7izQPZ389ef/F9Q2nNfDmtbcPi8bYR8fiF
UfH4vTHxeGhcvMq0fnFCPN4/IR4fmBCPJybE42sT4t2R1pJJ8fjjiMc3T4rH
jZPi8Y5J8arS+k7kx+cjHr8Z+fHhyI+/G/l9Ja23Rzz+y7h4vHNcPH436sfn
xsRbk9bsuHj8eMTj1ojHPxsXj1fF/fhqWneNicflY+Lxlbi/3DoqHn84Kl51
WpdHPH444vGBMfE4E9fLUxHva2kdHRWPD4+KxzdFPC6P/Lh1RLw707oY32d+
flg8XjMsHncOicf7Yn/cldaWQfE4MygeTw6Ix9sGxeMtg/5vbVrfHEzvL1t7
4++fhq/hnP+v55PxeXxhwPu4IT6ft/aneAV+JS8f7upN8Yr8Xq/8vp7WJXn5
8cpe+fG2Xvnxhrz8eHdefrw2+hEP9smPf94vP77SLz8e75ff3Wlt7pcf17ne
Gs6IV897xWvkGfFy/AfxOvimAfnxVPRPrhqSHx8Z9rk1aV1tP5VxbewXftF+
redrsb/5c/pLjv8Y/Ygf0g8L3BH9LuJNyo+fLMivNq0lBflxTUF+3FCQH3+/
ID9+Qrwcbxavg0+KV+DXxZvlt8UrxudNye8baX1sSn6cmZIfPxv58c2RH5/Q
73P8RJwP/LZ+XeAt0d/5T+5HkfdHP70nrY/qv2X8StxfLtfv6vlq9DPeqP/l
eEP0X54fkR+XjMiPD+pnRb4l+t+9aX1DfyvjXPRDHh6WHy+J855/7fuc430j
8uNl+nWBR6Mf83nXW+SGON/uS+uDUT/+TZx3/K/YH7wY+4M/cj9yfEfsD14V
95ffifORL8b95b/H/b0/rT2RH38Q+d1/I5+UH/8n8uOK2L98b+THY5Ef/yO+
f7wp9i8fifllXVrP+T6X8eOxf/l7U/Lj1in58fv2W46XnpUfrzsrP37grPx4
w1n58U/Pyu+BtDaJV8avi1fDS6flx+un5cfD0/Ljj6blx5em5ccviDfLO8Qr
8m3iZerS+t/Ij1+L/Ph511vPP3G9jXU36pHy4wX9qoPf1a8KfNH9mOVfuR9F
Phr975tpbYj+xzuj//GTcX95IfofH4/+zBXRn/mROD/4xvePHzMPF/nj2B8P
pnVP7A9+K/ofv6Ef1POt0f/i/6O/8J+H5MfrhuTHK2Oe4qoB+fEG81DmobTu
Mg+V8d0D8uOemA94U8wHXBHzFWdjvuJ+8QrcEPnxb81rRT4Q8182rfeYN0v5
susv44Pmi0qeHTLfxN/VL8trnQ/13KZfb+ctUf94/2iK18SH4zziefevhf8W
5xNfEi/PJWPmJW7W72d4NOZ/Lprn5/g1vx+KvGI8xVvgpfH9+1ZaL4hXykvE
K+OrzrNKfmZY/fhD832Wf+F+1HOb+Xw7N/i+NfJy82YTf/L7O9Uv/t6nfrzb
PN3Br5q/87zZfF2I6+tRP27uUT+u7lE/Xv2y+vHBbvXjzjPqtz6t+S7148un
1Y9LT6sfXz2lfvx0p/rx3k714wud6scV4jXyydPqx/Nd6serzqgf/7hL/fic
eHmu7lI/XiPeTHy+653lKtc7x/u61I9XnFE/Xtmtft9O62K3+vH/utWPn3E/
Krm0R//hPe5vljfG7ylu9n3ZzvPx+4rznv808cX4PcPd+lELz0R/5TbzY563
xbzJ0Q9meFPsXz4U+5f3xzzFTeabBf5rPC95OK0H/V4p5X/GPMN7nWeVXBXn
H7c7L7NcF+c1jzvft/NtMV/wZ80PTfy7OM+52jzRwp+P+YNHzAN5rol5iY/I
b4avxe8f3uY8nuPFmPf4aefzAvdH/b6T1ruc16X8oziPeZ9+WsnN8XyFy93f
LB+N84Mr4vzg5fH8hEv8nmjiZXGec04/beHopx08rZ/m+YN+9eNW/XSGX7U/
Zvn8y+rHtd3qx6vPqB9/ST/IbEjrVv2qlC/9Uv34uRPqx4c61I+7jqsf33pc
/SL+MfXj2mPqx7ccU7/4/6Pqxv9uUz9ua1O/eH+7+nG2Xf14Rbv68Q/a1S/y
EW+Od7+kflz+kvrxfJv6PcLilfJu11vG1R3qx+Mn1I9zp+TNn5wPqX58Oc4P
PtSpfnzhlPrxc86jHF9xf1sifpwfkZ9+n+eZLvWLeM7LGV6v38/yon4/x/1x
/vLWXvXjHZ6HZTaK73lcKV+L521c7Xl+JZfaHzUc82mWvxDPC7kz5hc+GPML
Z8yvTTwa8y7vif0b8eJ5KU+ar/L8VJwfXOd5xAy/73nDLC/TX+b4sHjFqI94
C1wSzzceTev54ez/AV/Axh8=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxd2H9ondUZB/C7bpMaQilzFO9WiuvcXa3a1aQ67Wq9as1quYgUVppu1JHV
a/+QbiZSg+vKRYqUEUqV/lFDKc2vm9v8vMkNsmnJYulKkWwwkNGUUeqUbBQt
WTKllE22eD6PBfPP4WPsN8973nPe9znvd1p+uf3ZJZlM5rWvZDKLY/q5M//5
cE9XfkPj4g8f6Mo/V1z84Std+c43Fn/45935P00v/oR70pj5XhqrPfJ4oFce
H+uVx9v65PGpsryc+vrl8Ui/PD5ZkceZAXn82YD//v007h+Uxy2D8rgyKI8v
DcrjA4Py1hgjj1dEHi+LPF4eebwu8u5K44UBebx/QB4/PSCP/3NaHh+K612b
xiNRHx8fkscHh+XxxLA8LozIuzuNK0fkcWVYHu8dkce9I/K4Gnn3pHFz5HFr
5PGmIXm8PeaPG2L+7k3jkrjee7+Yn5THG0/L42pFHp+oyFuXxvaKPL4e64+L
/fJ4V7883tkv7wdpnCzL4xfL8vhGn7z4fewPvtgrb30aj9tPWd7dm/88vpFX
96Z/X+CrPf4en7R/S/yN2J98rSfl1fiMvGne3JfyZnlN7N/70rjK/GT5dxX1
cbf1W+D22D+8c0h9nI/1yieG1cedsX556Yj6+Nqw+hrSuEdelmflNTZ88e9T
fbxLXpHfsp5L/Hqsf74S9fFI1Mfz1vssn4r6GtM4F/XxHbFf+EN5BT4W9fGV
qI/XjqqP3xxNeTW+OKo+fruqPn5pTH0b/P0x9fEfxtXHL9TUx7+uqY9/U1Mf
t9bUx5tq6uOfyJvmP8qb5Tl5mfvT+Jm8LG+ZUB+3TqiPn5hQH38Q9XFn1MfP
RH3833H1cfu4+rhuXH0PpPFozB8/NKY+zoypjyvuR5Enqurjl6rq4+9W1cer
4v7yttgf3Brr74dpPOT5m+UNQ+rjq57HBd4R7xfujf0bebF/uT7WH2+M+nhy
VH38iOvNPJjG+1xvlr/teht5l7wCL5dX5K2j6uO/x/7gx2P++EJVfbx0TH38
ZOyPh9L4j7i/vD72B99uvRT4FuulyL+XV+K75b3Bf4n6+M2oj7fG/uXGmL+N
aTzverP8fDxfeGU8X/hw3F/eHveXc/G+5q9ZLzVuj/c3X/Z+no2/F+/fH6Xx
3bL6uNinPj4X7zc+H/0mb/G+LPHZHvXxvH61xn/tUR//s1t9/Ktu9W3y/+uP
szwV/TS/16U+XiavyB92qY+L0W/zK/JqfEDeNB/Ur8/yDnmZh9PYFPU9/KX6
eD7q44vR//O1qI/Xd6uPJ7rVx5U4H/DxmD++FPO3OY0vy8vyOnmNfFJegfdF
/8ItcX95LvqX+L31UuOG6Kf4vehf+KM+9T2Sxuv6sSz/O9Yf31lWH98e/Rzf
0A+VeG30i3xcP1jjuugfeZ+8WR6K+vJpXO566vlw9IM8bj/k+GD0h3zO/OV5
IvYT/9b1N/P5uD4+25/y2vhb9m+Jh/TXHTwd5zX+qJLyylw8rV/io6fTOBXX
F+cdXqufn+G98Tzhp+QtcCWeL4+mcbf66vkO9WX5jH4/x/Nl88fL3d88d7of
hUe/NH83f5/mj5vktfE3nRdK8e+thw4ej/njpa63zC/H/PF0zB/viPnjU/Jm
bjrNH7+qX1+I+ZCXeSyNu5y363mn826WV3tf5PjB6K/5Z/rTPM9Hv81F76dm
/mn0P/xa1fxxe/RDfJv+qYOfivcnj3p/l3lyzPzF3/f+neKvy5vmC/qPGT4a
71t+Rn0LvDfev4+ncb33dT1PxvuYh/RnOX5g2POHl3j/5rk3+jEuux/NvCne
3xzv5zZucp4ucbf728FH4vsDt/g+Ueazvl/UOL5HTPHlWH/cHvuX52L/8jZ5
CzwV3ze2pPFGrD/eE+uP65yvcvx09Dd8MtYf3+p+FPhj97eZf2G9FPkd/Xob
36a/L/EHsf74cKw/PhPrj9+VV+PXY/1xNdYfX5U3w93Rj/JqeQu8IvrTJ9J4
ItYfvxL9NI9bzzluiv6aV1jPeZ6MfpvXxf7lQ3E+5TjPtvEq548SXxoyf/y3
6C+503ouc8b+qHHB/pjiBnnT8ffkzfAyebP8qe9JC3wuvjc1pXGf/VbPG2L9
8RrfM3Kci+9T/Kq8PC+L/cv19lszH4rvWfz/92OaP573fC7x5di//Hx8j+SO
mD8+F/PHV+2PKd4T5zPeHM8/PhbPP37felngd+L59+M0dsb647pYfzznvJbj
EefFRt7t/Jbni/H+4E+dN5v5ejz/eGU8//jFOM/wGnkd3BDnQ77V9ZZ5R5zH
uNX1TnFLnM/4k5g/fi72L38c+zeuN74fbE3jv5wf63l1fO/gr/o+kuPHfK9o
5J2+b+RvOs0f3y+vmW+J7zd81nm2jY/E84/r1NcRv4/nH9fH848PxPzxvPs7
xU2x/vi6720z/Of4nsH7PV8WeCC+bzyZxstD+f8B3grNEw==
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxF2G1slWcZB/CiNVliJfuAaA0xSLCrE7HSqljZdiY4mWtI1c7YxGi3zE4X
VGIXRVzMCS6z0ENoS4G+8NI3DqU9lNLTNqjN0uhc+FDJsixoCZqGkIaYZiGp
IfgSo+z+XYMvd36h55//uc45z30/z8ee/fHXv/eekpKSjlUlJffW9G9j5p1l
32CmpvreP/7IYOb55nv/eNtAprfn3j9+63TmT/P3/nHDibSWfDytz/XI438c
k8ffPiaPF4/J4+5j8irSOnFUHq87Ko/vHpHHy53yuPSIvIfSOntEHtd0yeNC
5N13yuP6LnmVaa3skse5Tnm8rlMe90c/XuyU94m0vtgpjzMd8jjXIY/rOuRx
ZeQ97PXRj2/H/Pi5bnlcd0Ie1/fL+2Ra1wzJ4815eXz1rDzOjsrjhnF5m9K6
5aI8rp6UxxuK8vhKUR5/c0rep9J6ekoeL0zJ4+3T8rhtWh4/PS1vc1p/Pi2P
L0/L44dm5PHTM/J434y8T6e1Y0Yet8/I4x9EHl+Nfrwr+lWZx1T6+3LeP5V5
J76aR6bS6+u4MebBteaX5Q/J6+FqeUUulzfP6+Ut8XJRv8+ktdfnV86Fon48
4POs4/1F/fjP8rJ8I74P/Lq8Ik/F94OfkrfEf5/Ub0tafzepH788qR/3TerH
/4rvJ6+KfnxLXg+PyivyAXnzvFbeEp+8qF91Wt97UT9+ZsL3h3dM6Mfvm9CP
r1zQj1+/oB/vvZDyinxzXD9+7bx+PFvQryat3x/Tj9eN6sd3R/Tj/57Vjzec
1Y9r8/rxX4b144oh/fi3A/px5YB+n03rE/avcv7RgH482K8f95/Wj5tO68cN
p/TjWyf04+U+/fiNPv14Ta9+n0vrsOtvOReO68d13frxmuP68YT9KMuvxf7F
GftdMRz7Ba8/rB8/eEi/z6e1/YB+3HRAP84e1I8XD+rHIwf8HVe16sf1v9aP
97Tqx90H9ONbbfptTevOnH682KYfr49+fEleM1cd1O++Uz9u9X6L/ECbfrw1
5sdzcd74Qlpzx/Xjm3368TbnqTqe8X1u5heG9OMtw/rxG/H74Otn9OPhEf24
f1S/2rQux++Xd5/Xj/e4HtTxnQv68R8m9ONR16ue+Hv7e5E/GNc/Ho7rH2+J
/eOLaf1F7B/cXNSPm2L/4O/G/sFH4/rMc7F/8GrnhSK/HfsH/zv2D74R/baZ
X/Tjv0Y//mP04+ejH6+Ofjwe+we3T+rHr8T8+MmYH38g9rdH0job+wfn47zF
mYv68fsv6seH4/Pln03oxyftR0XutR/N8yn70RK3ySt5NK05eeW8KvY3/v/+
lPpxa3z/eEvsb3xjXD9eHNePV8f+xp2xv0Xeef0eS+uJgn68r6Aftxb045qC
fnzZfpnlTef146/6vRX51nn9OD+u32Pvvr/UL5PWa/6+jNfKL+e9+lRwVcH5
hiv0y/DBMe+H210fGrlyzPvj+tGU18JXznm/0e9cysvxjlHvn98cTXl57pRX
5AbXqzk+FvcT8f70W4jX67fEzWMpb4VLx8zvcf3klfG710MujflxScyPfy8v
w7Py6rjK+23kF86ZH58aMT/eOGJ+fCNvfnzzjPlx9xnz411nzI8zZ8yPu4bN
j0eHzC/+3/3/UsxjwPx4YtAcvpTWNwfNj3cNmh/n7WcVPCWvmn8iL8Mfdb6r
44K8Rv5lPJ/g2kHz4/84/2X5rQHz44PxPCP+vt/8+MV+8+PvuP+d4z3x/CNe
f9L8eCLOe+Fe8+MH4/y3Pa2LvebHmT7z46295sdN8XyFc91ex/3HzY/3On80
8u04P3Jpd8pr4WyPles9D8jxsvfbw7tPmR9v6nc94zKfxxxf93nM84d9vgv8
8JD58UueN6zEPIbNb0daC847Zdzq+UM5X3P+qeDec+bHV12vMvxo/H55OX6/
vCOu71zl+t3Cl+wfWd5tv8nxq3H/xRfsj3neH+clXnI/OMebY//nx50XFviZ
OA/wgPPDCj8S54Mvp3XF/l/GE3Fe4DHngQr+VZwf+Gv6ZXg4zhP8trxGro37
Z/6Nfi28Pc5Dke/8lOMfxvntvtP8+CXnryL/VN4cfyPOd7xW3gLfifnF+4/5
cVfM74m07vZ5lPGGeJ7Af4v58dGYH//TeSjDubif5y7fl0a+4zzQzM/G94/X
xnmDN9rPc7x0zvz4Vb+PPF8+a368J29+XBr3F3zX/cgCXxs2P25wf7LCV+L3
+5W0VtqPyrjJflTOi673FTwSz6t5ctD8+BX7UR0/EPsHr4v7K65xvWrhEtf7
LF9yvc/xVL/5cZm8PL/s+UKR98b17/7r0/y4yvOEBZ6N/YNL3S+u8Ldcn0t2
pvW6630Z13i+Xs53Pd+u4J3x/JsvdZgfj7SbHze1mx83xPNoLm03P67y/CDL
9e6Xc5Ef99fRL2d+fDtnfrwob44vHzI/Xn/I/OL9yFvirfJW4vU583uSD2f+
B4NNyC8=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxF2G1slWcZB/C6za3BhgBBw/kwhwvrcMpQGC8iY0dglZkTgh0SOudcyNbh
skxMp2FsIdW4l2g1ewEWGHTlpV1b+n4a0U0T3JghBMmCi6GOGBOxW/hASDr4
QKJReH5/e77c+aXtv9dzPfdz3/dzvrDph42PXldTU/Pyp2pqro7FZ0752rBh
uHzXwqsf/udQ+bHmqx8+OFTes/vqh0eGyn8+efXDtwwXY81txbg+ebxmWB7X
Dsvjy8nj6cmrL8bPJI/nJY+/kzxeOyyPFyXv9mLclzw+lzyuH5HHL43I4/4R
eXOL8dKIPD4/Io+PJI9/nDyelbwvFuOF1MdbUh/PzfXyslwvXxqSd0cxvjsk
j5/I/eWbcn95YFAenxiQ96VivDggj88OyJt0kcdrBuRxQ/K+XIyzk8czk8eN
/fJ4b5+8/H6fvHnF+EmvPL7cI48/6JbHv3hTHh/tlHdnMa48JI+3H5TH6w7I
y8/3y+Ot++XNL8al++Xx7/fL4xf3y+NpyeMpyfsK+/8lvnygfC1+IZ87WPx9
hY+lft58qBhbua7T/09eZ5FX5d+kX/yw/o7zpl71fbUYf3JYffxgn/q4zf2s
8IF+9fEm86WVNw6qj1cMqY93ZD3hQfN9nK/k+VhQjNM9TyW+flh9vMLzVeFN
eR75futLKz+S55N/Ja/Kf8nzykfkjfPbWa8WFuOt1o8Sb8x6wy9bTyr8x6w/
PL+qPv52VX38RrXIq/JAVX28s6o+fkxezV3FeDn18b9TH3+U+vhHqY/XWf9a
eTz94+PWw+qki/r46fSPl6V/i4rxQ+tbiW/OeshzrXcVvi7rDz/Qrz5ekfWI
G/rVx3f2q49f6VMfb8t6tdj15vngzx1WH7/Vqz4+3qs+/pvnrZXP96iPT/Wo
j//Uoz5uy/PLc/L8LinGQ/JK3NutPl7drT5e+6b6+K9d6uO2LvXxuS718YKs
L/zbbvXxrh71LS3GF3vVx71Z/3ngsPr4ivvRzG+5H638UJ/6eHWf+nhr7i/f
aL0a53rzpeZrxbjHfCnxHPNl4aSL+rgt6x+fzvzjU5l/3Jf5xxtTH2/L/OPF
mX/LinGm6y3x+cw/Ppb+8enMP77gfrTyjZl/XGu+VHldl/p4Wqf6+Nbsv18v
xkfsRyXe0Kk+Xt2pPp4qr5lPZn/j04fUx+/b36u8Td5JfiD18X/k1Swvxsfl
lXhKzgt8Ovsvzz6kPv576uNd2X/5hOut8pOpjzvkjfMN6d/dxdjteStxJc8v
j1oPKnwh5yVuy/2NPW+7OeetKjfkfMblPB+8N8/HCtfjvFji1YPq44asz/zs
oPr4+/bzVp6X/YPbs3/wvuwf/G72Dx7L/nFPMZayv/Hz2d/4uexv/FH2N27I
/stbsv/yqey/PGVUfXzHqPp4yaj6yv//+bXfr+Plo+rle/19Pf9y1PmGfy6v
PPnz4nr4cXlNXJLXzGPVIq+FO3O9vN15oo0bc/18Ub+6+H/vT8V5if/lfHCU
j+X9iee7P2O8M/eTLzkfTvALOf99oxhrnRfreLvzZYnfN9/q+cqg/vFn5ZX5
NnkVzvtVE5/I/OWyvBYez3mXZ3l/auON2Z94zmH94wM9+scPd+sfX8z6y1ut
N2O8LusJn/U+McGzD+jfymJc4f2kjh/q0D+uvKF/PNqufzyrXR947j7946f2
6h/X7NW/5L+uf7x3j/7x0t36xx2v6V9+vkv/Us9O/ePNO/WPa3foX37/Vf3j
9Tv0jy/u0L/8v9dcx6pi/EB9dfzS6/rHm9v1j2/osP7wsx36xx936B/vcD+a
+PMd+scz5LXw8/Ja+RX3t41H8r6b+syXLm7MfsVn7EdHuTbzj6/Yn8a43flx
nBfYryZ4l/lcs1r99q867s15lX/mvFLPZ3I+5G8d1j+em/MOT3M+b+Ljnrdm
vuy81MIX5LXyJ/La+Mmc33iB940u/rXvQ6q8flD/+Om83/Jz1pcxfibvu7zK
/jfB7dnf7i3Gk/bDOp6d/Y6PWJ/ruWK/Wsjfs96Xeb31vsL3WO+b+Gbvk808
VV4Lz8j+wUuyf/Cq7B+8XF4Xb85+yo3yjnI577f8A3ljk/lF//hReRO8Le+/
DcWY/a2O35FX4j559Xws/eP+9I93pn+8Kf3j0fSPT6R//FT6x4vTP56Z/vE/
sv/yZuebavKy/3K+bzjJjdl/J130j78rb4Kfyfed3yzGWfLq+FK+j+HazD++
Jecvvl1emQ/mPMa71dfE7+V8xr+T18Jn830EL0r/+KfpH7+a+cd/yPzjtzP/
+MHMv1xv+scvpH/8RPrHd6d/a4rxwzy/vC7946nOQ/X8Xr7/4IacX3h6zi/8
6ZxfuC7fH/MJ5/UW3mK9auUzzu9tfH2+b+YB56EufifrH89wHjrKG/J9Mm/1
/jDGu6yn47xW3gR/nO+f7yvGlYPl/wJB1Mao
             "]],
            FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
          {RGBColor[0, 0, 1], PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6],
            CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJw9mXl0jXcexkOmFMHUHoYKuUlkvbk3601u8r37daIZSwdxbMdYqo5jiU5L
W2M5iiNaZSxxTlutGR1Jx0wndDKoaKwRKsog9tgNk1KD2sa8eb7vc99/cu72
vJ/f8/tuvzdR46YNntA8LCzs42ZhYU1/9YqWGc7Wp/ac3yxp9qYrWjLrJoeP
eqlMJk1suqJlcGWvRQWWMllf2nRFyyvGNUPK5MjhpitavMY1fkiZqJ5FjJ9/
MvTNMlPPIvtXjkmMfJ96Fnl10e1Bw1dQzyJVw39aZtlEPYv82NjYuKWSejFS
ZHycX0O9GKlJWfOs+RnqxcjSJcZ1lXox8jBu5Edf3KdeDPQKw8tNvVist2/H
clMvVrbNL+xxsHe5qRcrDXM6bTnQt9zUi5WCuV9fXZtQburFgn9dGvXipI9x
uXOoF4fvReRRL06Mr1fuEurFyZ1Blb0sPurFKV8B9frJ430rxwx4jXr9xLrm
2bjNBdTrBz9eDKSevs4fTL1+YuB2TRhCvXiZdUa+bDucevHS+tTG6aNGUS9e
YowNKB9BvXj543TDoBHUi0c8PB9BvQTZEmiY89+h1EvA/ZYVUi8B60n2Uy8B
fsaG1psg/UZ+VL1aqJcovzU29L1s6iXK28b1yEa9RGlnLKBlIvUSjcUYb0RT
LxH8t/tQLwnxUd2XekkS/klG3eQo6iVpfEVRLwnxOTuKekmIhzd6US9ZgsYC
GiOplywG/oM32lIvWZreLW5JvWTs77U21EuWsYmP982MoF4KXg8Op16Kxl8z
6qVgvV82o14KdL4Kp16KGLePy21GPSvi2fM/M/4jrWJsrzP+aRm47HYr7rfy
iZkPA6zY32FPmD9WKbFUDbc9NPNtnlUunD9//vld5pMV8Tf5nqlXYYXOndvM
LyviO++WqXfdCp0N15m/qfIb43rrMvlS8Xf2OfKlYv9zT5MvFfVmWR35UsVl
bPiTWvKlioFTc/Qw+VIRf7VHyaevpxwiX6p0MxI4+hD5UlEfLu8lnw3xlvkt
+WyyoLDHzVn/JJ8N3+u9lXw2+Pf2VvLZkP/j/k4+m+ZjBfls2K9zFeSzIR9u
bCOfTX7d4+bWqG/JZ9N82k0+uzSl7+tV5LPDj+1VrId2ebfTlkCzKvLZwd9p
O/nsUl5mXN+Qzy6GfMForrfUrvux19SrsCN/vthHPjvqXeVB8tk13o6RL02m
bjje4sm/yJeG9S0+Sb40WTUm8bGvnnxp4P38NPn0+zcuki9NTrRwTL3EeClN
Q75+eJ18afJ8XE3K0FD8pWk83yWffr7mEfnS4decn8mXrr97TL507NfFR+RL
h99pD8iXrv3sJ/Klo/6l3SFfOvJl1A3ypcO/BdfJl677eY186bLnQdzIlCvk
yxDj9lU/nyNfhhjhf3tQHfkyZOeOHTue1pAvA/Xn4D7yZaA+Fe4hXwbqWT3j
pTQD/frrXeTLEGO7HK9tJ18G+s1XfyNfBvJjwSbyZcKfzz4lXyb8yCglX6au
Zx359Ptj1pIvE/53X0e+TPB+v5J8meAb9CH5MuGfewn5MuVN43a/XEi+TPjd
cx75slCfWs0mXxb8iSsmX5YY6TW/cCb5slDvOswkXxbi0zKFfFk630wiX5YY
4drgmEK+LK1X08iXhfr6w3TyZYmRHhvvTiNfNr5XMoN82Vh/8izyZUsTXs4s
8mUjPxpmk0+/3+5d8mVrPvyefNmIr4IS8mWjv59fS75szFf7PiVftub/RvI5
kN/dtpDPgfUfqySfA/229y7yObQ+VJPPgXpdu598DuRv7zryOVD/O7MeVDhw
/7wz5HOgfydcIZ8DvBMayZej/TqUvzmIhxXN2T9z0C8XtzT744Ac8JSH+nMO
+uuSLma/nJej/aQn+2uO5m+CqVeRo/NjOvttDvrHXs5z13P0d6H5JVea2muV
19SLzNX+EyRfLupFp4HkywVfwkDy6evaQeTL1fUNIV8u+kbHQeTL1fgdQr5c
7M/YoeTLRT/7x3DyOfH57iLyOcH72VjyOdG/L4wnn35eNZ58Tr3/aPI5tb6P
Ip9TfzeGfE6d50eSz4n+9vkw8jm1Hg4jXx7qyTecZyPz8LvEQvLlaX/vT748
xOcrLvLp74dmky8P++m0ki8P89i+0P7moV4stZAvT/tjX/LlIb4vh+a/fNTL
tj3Il494Xt2LfPk6L75Kvnz0j1ndyZcvDqNBbupGvnytz53Jl496MrI9+fK1
vkWQLx/706sF+fJ1/njG/BBdb6OZTxGCfH7nGvNF0D92nDPzK0awnuWnON+I
XOtaMPfYUVNPBP3gcB3zXVBPg3tNvSKRpnHaw3llokhLY4H3OS8VC+rfCp7f
5gniuW6HqVciWr92sj4I3h+w39TbJKh/849wXhLMTzuPm3q7BfVjLueJw6L5
XG/q1Qv+1p9lPRHsZ58Lpt59Qb2fcIn+uRAPNezXES7EW/kt+udCPC+6R/9c
yK9TofnapedFzuPi0vNzqB650H/aRZj7XeTS+bk948OF8/NV4zyq/rlQPzeE
6pVL57tOpl6JS+eVDowfF+a91zubeptcyLeGLqZehQv1MdDd1Nvt0vzpzvjS
9S7rburVu/C7Vb9ivLnQ33+MNPXuu/R8yngOc6O+zepi6kW4dX4jX6Rb5xWu
N8atfrcx9exu5NO2NvTPjb+9W9M/t+ZHyD836vH4dvTPjfVvbU//3Hpeak//
3Lp/zKcS/TziZfrn1vW1pn/Kt5R8FW6tB23pnxv7HWhF/9x4PvAonP65ka+j
m9M/N/KjYzP658bzirjQ+c2D+nPoF/TPg3mgRwv650H9eqkN/fOgvzvbsv54
UH9ebkX/9PXNMPrn0fMzz4dFHswz258zfz1Yz6QnZn8u1vuffcD89WDeX8j6
UuLR8xzrS6ny+S4zfz06Xzaw33v0PMR5d7cHzyP+cpn569H8bWD+enTeu8T8
9aCebr1o6t3X+6fzvBDmRf07f4H560U8bj3J/PVq/J1g/nr1+cZxzjde+HOA
5xnx6nm3lvXPC53H1fTPi/pdxPPQRC/m98r99M+L8+m0GvrnRb3oyvNoiRf1
+XQt/fNq/aulf17kr+t7+ueFn/+po39e5JccpX9ezCvVPA/Xe1Hf/hQ6r3l1
3jtC/7zI/3sn6J9Pmr72AeexCJ/G6yX659P6cZP++RB/Pe/SP5/2V56PxKfn
iYf0T19HhOLPp/PvC/rn0/0LM+O52Kf94QX98+F8fZnxXGL+nvlR6kM/utKB
+evTeYb9ucIHP7/j86HdPu2P7NeHfXj/Uh/mrw/xOZXPA6/7UH+joky9+z49
f8Yzf/3gf9/G/PWjn36cyvz1Yz8WJTN//TofpjB//Vqvkpi/fvh9ox/z1w//
7sSw/qmeJZr1z4/++B7XW6zfH9CD9c+v+xXqH3r/2rb0z49+PT2c/vmRP394
yvjzY746+Zjx59fz6QPGnx/zTYt/M/78Wv9D510/nr/1v8L482v+hc6/AdTP
zLOMv4Cev39g/AV0Xqph/AX0vMh8swcQfxN4/pCA7k8ofwM6Tx1k/AVQ33aE
8jeA+btNKH8DWP+J7xh/Ac3vauav3s/Ceag0oPm+h/kbgP8l1fQvAL9mVNG/
AOrLrUr6F9DnE3+lfwHkY8xG+qf+dN1A/wL6vGU9/Qvq+WU1/QuiXiSton9B
fV69nP4F0U/PLaF/Qe03i+lfEPW6ahH9C2L/Ns+lf/p66Rz6F9T5/S36F9R6
UUz/9HXs7+hfEOub+A79C+rz4Xn0T3lPL6R/QT2/LaV/QT0fl9C/IPr7Nf4/
oT6IePxgPf0LYn/a/5n+qT/Lt9O//oh/64Ey+T9NYci6
             "]],
            FontSize->24]}}, {{}, {}}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, 334.30555555555554`},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm], 
        FormBox["\"# particles\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SuperscriptBox[\\(Ca\\), \\(\\(2\\)\\(+\\)\\)]\\) before \
transformations\"", TraditionalForm],
      PlotRange->{0, 6500},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{{{}, {{}, {}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmC1sW2cYhb2hgoDBmW3S6iZp2iax49j5vU4c25MCpqGVVZOWhS1SSaGV
koKCjjVDRVXhpJDCwIFMKlxYUTQ4KaRwjZ/znlf3M7k6ut893/M+dq6v8+3P
v/34y5eNRuP3LxqN2yOv76rZ4eK06rRvX8rfPK9+Pbp9Kb85rf44u30pvzqt
/r68fSlPTzk27nL8K/ruup8+5X+iT/mn6FP+N/pa3o++VtGn/C76lD9En/L7
6LvneehTPok+5cZz9d0r5lU+jr55jq+jb97z0af8LPjmzUvfvOenb6GYd6GY
d6GYd8G+6cv19C16f/oW3U/fon3Qt1j0Kb+IvvvO9N03D33K0+hTfhJ99+2H
viVfT9+SeejLTN9SwbdU8D0o5lX+M/oe2A99yv68PCj6HhZ8D309fcrvo+9h
wZeZvkfO9GWm71HB98j99Cn772OZ44nWN5c976y+vVy//jDPs1/m2XGq/DH2
z/5Z3Xmuh2fZ/mZ910VfY4Xjq+BbMT98ytPgWzEvfMpfP9e6Fe8Hn/Kb4FN+
HXwr9Xmvcz18q3XfzdV6X1s53s/D1cKfcnyep6ueD75Vzw9fXg9fnocvz8PX
LvjaPs/np13vO1T232PbPuBrex74lD+q77zou2x7PviU/wu+Dsc7ul82O+6H
r2Of8HUKvjwPX14PX8c+4cvr4evU34/rjn3Bt8ZxPvwpfwi+Nc8H35p9wLdW
75uuFXxr9gHfWuFP+VnwKfv7qGse+LpeD1/XPPB1fT18XfuAL9fD1y38devv
x2XRd921D/jW6/M2170ffOv1eQ+VXwdfrodv3T7hy+vhy/3gWy/4ir5Gr97X
7BX+ep4HPuXj4FOO+/205/3g65kHvp7ng095Gnw9+4avz9H3P+VJ8PULvr7n
gy/Ps0+//n6c9b0ffH37gK9vv/Blhm/D+8G34f3g27Af+DLDl9fDp+z780bh
r+i7zPPwKfv+vFnvayr3gm/T88O3aX74Nu0fvk33w6d8Enx5Hr7N+rzXyn7e
3fL+8G3ZL3zK8fxzqPxD8G2Zl94t+4Bvy/PDp+znga2CTznu941tjvH82dz2
9fApx+flcNvzw5cZPmXfX7a9P3zZD9+2/cO37Xng2/F5+Ha8H3w73g++HffD
p3wSfDvmgU/58/cTfDv2A1+uhy954Nvl+CT4du0Tvl1fD9+ufcKXGT5lv7+7
5ocvM3zKcT+43vX88FUc4/47V3k+eJW/0u+5VmX/enzw9aqzf+ap7GPW9zjP
M19lP7O6p5V9MG9l3lnfy8r+mF857p9v8zzPS5V94LGyT/xk/6zvKs/jq7Lv
Wd+N8iT8DTjG/WNuYD/4G9TnbQ3sF3/K8XuwyvP4G3h//BV9RwPz4m9Qfz+m
A/vB36A+71lm/A3q78e58qfwV/RdJg/+khd/yu/CX86Hvz2vx9+ez+NPOe7H
rT37xd9eva9Sfhb+9rw//oq+o8z4y37m3Cv87dkH/nI9/pTj99N57o8/Zd/f
inmvMuMv1+Mv+/G37/3xt1+ft7nv6/GX57n/KMf9uVL2/TL78afs3//Kcf95
qhx/H9Ncj7/9+rxnyg3dX94WfOe5Hn+Z8VfwXRXzXivH98tNZvYden78De0X
f8P6vC3lafhTju/fauh+/A3r8z5WfhL+hubF39D+2WdoH/gr+s7yevwp+3ku
58NfzoM/5ePwl/vjLzP+cj3+DjjG39vcgXnwpxz/H2sdeB78Kcf/N6oDz4e/
A/Pj78C+8Zfn8Zf9+FOO+/3Lgu8s1+MvefBX8F0o+/dZ0XeVPPhTjs/LjbI/
fyNfjz9lP8+M6vO2RvaDv1F93mpkXvyNzIu/3A9/eT3+RuaHe1T4Sx78KX8K
f8mPP+X4PF/kfvgb2Q/+cj/8Zcafsp//xhzjeWdu7H78Zcbf2Dz4G9sH/sb2
iz/leN54rOzfL8rH4S/3Y66xfeIvM/7G9XnfJg/+ir6L3B9/xbxX2Y+/cf39
uMn58Tfh6O/fiffH38Q+8Dfx/vhTvqP/r1XKn+/n+Mv1+FOO57WjiefH38T8
rFOOv7eXuR5/yY+/vB5/uZ5j0XdZzHuV5/FX9N2kD+b83j7/B8gTy24=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmCtvXFcURqdFBf4DAyu1juM49jz8GL/vjOdVySAqSlhUqY5ZK4UEjlxi
YJCyuqjICow0pNDQYCoF2izICqxkUlh51t7f1tkmV5/Pvd9Ze83rznz70y8/
/vx1rVb7/ata7fHI33fV/PD+rFpvP/5Z/nhWvTl5/LP84az68/Lxz3LjrPpn
9vhn+fUZx9r3HP/2PssT77P8yfvifPos33jfIse/vG8x8Vl+532Wr71vMfU9
0Tp9lk+9z/K/3vck8cU6fUuahz7Lv3rfUvK3JH76lsRD31OO5973VPvTZ/kP
73sqP/RFpm859S1rnb7I9C2Ln75l7U/fM+1P3zP5py/W6bN8632R6VuRD/pW
dD19K4lvRTz0xfn0Pdc6fZHps/ze+54nPssT71vl+MX7LF9732riW018q/JD
31qad03X07cm//StaT/6LOv51+B4aufXGzp/Xt+2/MGuP25oPvZrlP4mlm98
/4b45nXTyPBYPre++0aatykf8DW1H3xN+YCvmfgsv3e+1HfZ1P7wNZOv1Hff
lF/4Whz9/aje0n7wtcq+41bia5V9k5b8wGf5tfO15Bc+y7fOF/vD1+b40vks
n/rzpy2f8LV1PXyWPzhfW7zwtTX/vG8a6/C1NT98bc0P37rW4bP8zvksnztf
rMMX19O7rn74LPvreRrnw7eu+eFbLx+P2oZ8wGdZr+cN8cC3IV/wxfVwbYgH
vliHb6N8PGap734j8W0mvs2yr71Z9h1vyg98m8mfZX++XG5qf/hS3yz2g8/y
Z+fb4ujP5/qW9odvS/3wWdbnqeVz50t9l7EO31b5eMws3zhf6qt1tA5fJ/F1
5Bu+jnzB1xEP11n+5jfj68gXfJb1/t4RD3yWPznftq6Hz/LY+bbLvmPLX5zP
st9fTbaTP8uV822Xj8fMsh7fbfmFbyfx7eh8+HY0H3w78gtfnM//dxJf6pum
vtmO5oMv1uHb5ejvV/XdxLcrHvh2NT98u+W8E8u3zpf6prvl4zGLdfhiHb49
rcO3J3749rQ/fHvJn+WPzreX/MX18Fk+db5Yh8+y7of2Of7nfPtlXzsyfPu6
Hr59zQefZd0fxDp8+8nffjnvvWW9Pg7KvvqB9ocvMnyW/flyciDf7GNZ99uW
l5zvoJx3diAe+KIfvkOOev5Z1veRQ80P32HZd3Ko+TnG9fClvqnlyvmiHz7L
+r5QcRzb+QuVfMFbyc8bvi6RX/j9TVXyVXE+81Taf973yrK+f1k+tb63lhs+
b1w/77uI/Zg/+Od9V7HO/VLMw9yxH37SvHeW9XoI3nnfQ6zjr8vRPx8Wuslf
ZPxZ9vvhdmT8dcWPv658468rH/jrigd/ll+6P8t+v3PR1Tz4S31XsT/+Yp2e
xDdLfHfBgz/Lfn/9ENfjr1f2LfR0Pv4s+/evxV7y15N//FnW/URk/PXkA3+W
9fyL/eDqaT78xfX4s+yv16uYB389+eC64MefZT3/4nz8RcZfXI+/o3LeBcv6
PDlK/iz75337qOSrLOv1Gxl/lj+7v+if9709kk88xPn4C178Hckn/o7kg/cz
y/5+em1Zv3+kvrs0732sz/sewg/++uW8C5Hx15cf/PV1Pf4s++utinX89TUf
/vqaB3/9ku+tZd1Ppr4Ly/r8tKznn2W/P5zG9XD05Rd/ffnEX5yPvzTvQ1yP
v4H48Tco+eqW/X5+cSAf+LPsv+dUA/nB30A+8BcZf3E9/izr9RsZf5b1+TEo
572KefAX/HAP5Bd/sY6/gXziLzL+Ul9tmPwNy776ULz4G2p+/A3Lvmoov/iL
8/FnWa9fyy/cX5zPvsPy8biwrN/nLL90f8Ny3umwfDyuYx78DeUff2ne+1jH
X/DibyRe/I3Ei7+R/OBvJN/4s6zPj1HyNyrnfTUq5z2JjL/oZw7L/nvNxaic
9zL48Rf74y/xXVvW741xPf5if/yN5BN/kfE3Fg/+xuW89bH48Rfn4y8y/uJ6
/I3Fg7/Ud2K54/7GJd8k9V2M5QN/4/LxuLKs7zup7zrNO7Psv8fcWX7h/mJ/
/I3lH38/aP//AeqVr5Y=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmD1PHFcYhTepUlCkpUukeA0Y8LILNt8M7LJsJAqUynRWpDjuYokm5YrK
BQXpTKpUyKWlbVxSuiCSS7tLxR/gD0Tsc97z6l6a0WHuPfe5zywzs/z46x+/
/PZtq9X665tW6+HIz0/N9PDivFntPfwo/3Pe/P7q4Uf59Xnz99XDj/Lb8+bf
24efnE/fI47j6FP+M/oeeTx9yu+iL8fT16762lVfu+prV31t89L3mOOH6MtM
n/KX6Htc7TfH0zdX8c1V/pRvok/5MvqUT6JvnuPL6Jt3P33z3h998/ZBn/Lr
6Ftwpm+h6lvwfPoWqv1mpu+Jx9OnPIq+J94/fU+8f/ryPH2L1X4X7Ze+RfPT
t1jx5Xn6ljh+jL6lqm/J69G3ZB76luyXvmVn+pa9Pn3L7qdP+U30LVd9Tyu+
p/ZJn/L76Mvx9Cn789Ipfc92vP60vtcx33T+ccd9rNcp/Y1zPOt3vN60btLx
fuBRfqG+O+XL4FtxP3zKo+BT/hR8K2Xfq8zwrZT7vVqxP/iU/flQ7gRfjoev
6/3A1/V8+LoeD1+34uuaH75uxdf1/uGr+m679gWf8vvg65kHvp7P8/nJ8/Ap
+/r2yr5x1XfVM8+0b5Lz4VP+Lvh69gXfqn3At+r9w7fq/cOn7L9H5fg8j5X9
97nq9eCr+m6rvrtV+4Rvrbwes8o3wbfm+fDlefiU3wSf8vfBt2af8FV9t3ke
vrWK75n3A5+ynyfPvH/4lH19n5V94xwPn3I83yfZD1+uD19m+J5XfMr/Bd9z
7w8+Zd/PnpuHdZVHwZfj4VM+CT7lH4JP+WXwrXs+fMr++1j3/uFTfhN8yvE8
Gq97P/BlP3zZD996eT3ucjx8GxWf8mXwbZTX43jDvPBtmJdxyr4/K8fzfbJR
Xo/bXA++jfJ6tDbL/c5umge+TY+Hb9P7gS/Hc9y0T/g2zQtf1Xdb9d0p+/m2
ZX74tjwfPuW54NvyevBtVf4yw7dV+csM35b3A1/ywLdd9s1uez/wKfv5tm1f
8Cn7/rxtfvi2vR58OR6+bfPCp+z3tR37gk/Zf7/Kcb8/3vF8+HI+fMqfg2/H
vPDtmBe+ncpf9sO3y9HPj13zwLfr8fDtej34lP38yPHwVX2TnA/frn3Clxm+
PY6fgm/P+4dvr+w73vN68CnH/WCsPA4+5Xj/nexV/pR9fau+VuP50/EzjefD
25T+2433p9eH8no0yvG+ftx4vWnfafazv8b7mdadZeaY/dO+i4rvSvlEfddV
3yR54Uoe/CjH9fmaPvCl/E5998r+/rZf8s0oz4W/ffPgT/lL+Nv3evjb9/7w
pxz3h9M8j788j79cj6NyE/6U/X1IOd5XrnM+/qq+G2V/38n942/ffvGn/CL8
JS/+Dip/B/aNv8z4y/H4O3A/+1T2/ejAPPg7MD/+8jz+Dkq+sXJcj4tcH3/K
8Xm5Vo7vJ5NcD3/Zj7/M+MuMP+UP4S958NcXZ/jrez389c2Lv759cf/J8/jL
jL++18Nfv+R7VfWdKfv7YMV3kePxl+Pxpxzv15O+ffJ7ZT+/lON9/2tm/KWP
ad99xdcamAd/yr5fK8fnuT1wP/4GJV8zsB/8Kcfn+XTg/eEvz+NvUPnL8/hT
/hj+Bt4f/pIXf1XfjbKfX7l//OV+8Ff13ed8/B2W+51RjufTrLI/f8on4S/n
40/5c/g7LPlOczz+cj385Xr8/tD7x5+y/z9yWF6P66pvUvXdHNo3/rIff8mL
P+V4/7rPfvwNS76ZofvxNyyvR1vZnz/leL9qcj7+cjz+hl4ff8pxfc+G9sO4
oX3jb1hejyvleJ+6zn78DSt/yv7/wNB+8Jf9+Mv5+Mvx+Dvy/vCnHP9/nVWO
69s+KvfbOyr5msz4q/pOj7w+/nI8/o7sCw/K8X30Iufj78g+8Kfs7xOZ2Yey
73+5Hv5yPfwp+/6X6+FvxDHuLzOjyt/I6+Nv5Pn4G5V9zcg8+BvZN/5G5sGf
crz/n+V5/OX6+FNuwl/240/Zz48cz++V/f+Lqu9rxXdX7fd+ZL/4+9l9/wOM
EpiV
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmL9PW2cUht1OHRgy1lsqNY6BpDEYAwYM1zb+UclD1KlZK5WMHfgHULJm
6UinTlZHJJaMHhlcKWPYMqGMkVg6Nvg55z36jperN/fe93vOc6+vL/nhtz9+
+f3bWq325ze12sOWz4/VavPhTbXTfvhY/vymen328In81+XDx3LtbfXv8uFj
ufXW/v0J2/+8z/JH77PcfGt9lh973xP1s22wvfG+hvrpa2h9+ix/732WP72x
vqfaT9/TNK/lLz5v7Kfvqeahr6lMX1P99DXTvJa/cz7Lj3zedbZX3ree/K1r
fvrWE18cT9+G5qdvI/nbkG/6LFfOtyG/HLcpfvo2E9+m5qcvjqdvU/30PUt9
zxKf5cfe90y89Fle+LzPxUOf5Rvvey5f9D1PfHE+fT8lvsj0Wdb9Epk+yx+8
74UyfS80H32WP3nfC/HQZ7np/lpsr+z4uuWv12tV327p+NX5s5b8sV7k1eai
ldZPfdct8cLT0ryrvrvYT++WMnxb8g+f5UfOZ1nfn62y7yL1XW7JJ3xbmge+
LfmDL/az3Wbr36f6tvrh29Z88MV++LbVD5/lhftLfdeW3/v13JZv+FJfrc3W
nx/1tni5f9pl38yy7s84Hj7LU/fXlo9V33WsB1+cD19bvJy3o/Xgs/zIvy87
Oh8+yy3ns/zZ+eJ8+Cz78/o61oNvJ/mzfON8HfmEr6P98Fn2+3nW0frwdeQX
vo7mga+j9eGLDF9H/PDFfvh2y776btnX3hUPfLuaH77d5C+Oh8/yF+fb1fzw
xfrwWdbzeS/529Px8O1pPvgsN51vTzzwWdbvzZ7mgc9yy6+vZf++3e0lf/vl
vHXL+37/7YsXPssf/Pcgzocv9V1aXri/1Lfcl3/4Yj983XLeele+4OtqPfgi
w9eVf/gs6/emKz/wdeUfvq58wWdZ1/dAvPAdyA98BzofPssvne8g+TuQf/gs
+/ft+kD88EWGL/XVDjUPfIfJ32F5PWaH8gHfofzDFxk+y7r/Dst5l5bfO1/0
03NU9tWPynnbR+qHz7LeN4+Sv9gP35HWg+8o8VnW71usB1ePrf8e1XvJX0/8
8PV0PnyWv75fwNeTb/gs6/nS0zzwRT98veTvuOyrH5d97eNy3tlx2XcW++GL
/fBZ9vv5+ri8Hstj+YAveOg50X74ThKfZX9fnlnW9T2RD/gs6/c3+uE7Kedd
Wtb9F/vhq8S7On6t0nzwVlr/NX8uyYe9PpR9leWXPk+cv+p7Feczn+WP1nde
yT/zWvbf13fBy/xV6X8e/LwvVZp/tV1Y1vMt8qrvNubBV/Cv+u4TX63P1p9H
a/1y3rplv54Ny1fur6/58BcZf3E+/lLfWV+8+LPs7y8XlhfG964v//jryyf+
Yh78Wfbfj0VffvHXl3/8xfr4i/34S/PWBmXf2kDr428gfvwNxIu/gebB30A+
8Bf9+Ivz8We5aXzng5LvYiDf+Ivz8WfZnyfzWB9/0c8ccTz+Ut9tmvcujsff
QD759yFbf16uDbU+/oblvI2h5uP5E8fjL/XN4nj8Wdb791C8q75zy39b34Vl
v77vIuMv8c2Dh+fZsJx3kfiWlv37cRsZf5FXffdD+WR7Kl78Wdb9dyoe/FnW
/w+cih9/cTz+TrUe/uJ4/MXx+Iv18RcZf4nv0rI/T+eW/f31+lS+8Jf6lpZv
3N9p8mfZ32/uIzPXSMfjz7Let0blvI2RePA3KvuqUfIXx+NvVM57Ztnv5/OR
fOMv1sdf9OMv9c0t/+P3X8yDvzTv0rL/fXMbvPhL896neWtjtr/693csHvxZ
9t+3hmW9P4w1P/7GWg9/kfE31vz4G4sHf2PNh79YD3+W/X65jIy/6MffWH7w
Z9l/j5axPv4s+/PlLubDX/Dgb6J+/Fn296N67Mef5crvP8t+fatJOe9sUl6P
V5Pkz7L/PXtuWX/vT8SPv0k572Xqm0/kH3+R8Rbn48+yX99by3pfTn33sR7H
TXU+/qaaH3/T5G8qH/ibaj78TbU+/qZaH39T+cafZf//6vPgwd9UvPgLHvwl
vnn04y/1LYIff5bf+/fXsu6/1Hef+mo/s/16//8Pkz+PDA==
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmK1vm1cYxb2hgoLBmnXSlqbNR504H86HYyeOHU8yGtrYNGktHOg/YGVk
IKBjy1BRFBjJpLBwwJMKN1YUBU4qKdzi33nOo3tNrk7ee8895/d++HW+/PHn
b3/6vNFo/PZZo3E/8vmqvxjen/e32vcf6S9+6b98cf+RfnPe/+Py/iP993n/
r/n9JzV+X2v8RX7Sd+fyk/43/HI+fnmcvy8x3kQ+6QeRb8nr8ZP+M/LlfOY9
YfwUfk+cHz/p68gn/SjySX+IfMvmhd+y98dv2f74Sb+NfHkcv6fuj99T74df
HsfvadVX+n34Pav6Sr8Lv2fmg9+zKl9q/FbMG78V98dvxf74rTgPfivOj8+q
+eK36v3wW3V+/KQfx/lYrfitVfzWnBe/NefBb63qm/MZ1z0fv3XnwW/d/PFb
93r8cj1/f+71+EnfhJ+077fn5omf9F34tRhfa36z5T4L+7b0d8ozaTkv+7XK
vtNWxbtlngu7Wct9yJPrF3630p3gt+H15JP+/3oh34bzkG/Dfcm3Ufad5nHy
ST+Q30z6Q+ST/l1+t7kf+TY9n3yb7k++TfMkX84n36b7kW/Teci3af7k2yz7
znM++XI/8rUZ4/nRTM31Ix33w6Rd8UtNvtTka3v/hd9M+ibytd2PfNKvI9+W
j5MvNfm2Kn7Sfl5sledjKn0X+aTjeTOr/Oa5nnxb7sO6bUaf3+2yb1s6rudJ
avLlevJtez/ybZfnYyb9KfJtV/zSn3w7Fb8d9yffjnmRT/o68u2UflPpR3H9
VX6z1OTbcT/y7VT8dq3Jt+v9yCcdz7uJtK+/3Yqf9Nvgt+u85Nst+85zPfly
Pft2GDuRr+P55JP286Xj/OTrlH2nOZ980j6/nbLvvFP2vc39mbdX9m3uVfn2
yr6TnE++Pecln7Tvj8pvJu3rb8/5ySd9E/n2y77N/Srfftl3Iv0o7t995yef
tN9P9it+ld8815Ov8mscVPykH8f9K/0g8kmPI590fB9NK7/L1OQ7MA/yHbgP
+Q7Mn3yH7ke+Q/cj32F5PiZ5nHyH3o98h/Yn36F5k0/a32+H7k8+6XjeN7pV
vtTk65Z+E+nlyNd1f/J1nZ980q3I1y37zrvuQ76u++BzVPZtSvt9Oo+TT9r3
71HZdyrdj3y5nnzpT74j9yffUdm30fNx8km/CX69su+k5zzk63l/8vW8P/l6
5km+nvmQr+c85Ou5H+v6jPF77GHf+5O373wv+bnk/Hp9KM9HX/o6+kjH8+F7
ab+v5v4Lu1fSfl713W/hd9E3D/r3y35X0svxvpR9GHM+fFIv/P7JPvCq8n2s
8jWOGeP6fygd56d57P7wk54Gv1wPv+Oy7+TY+8NP2r9f0x9+xxW/Y/eHX+V3
mRp+0vH+Pzs2H3yk/X6X+eGXGn6ZF37SPwS/E/vD76T0a0r/GvxOSr92zodf
5Tc5cV745Xr4Sd8FvxPzgJ903E8XuR5+0vE8vpJuxfUnHefjXZVvnvvDTzru
t9vMAz9p//4YuD/8BmW+pvSb4DcwD54/A+8Pv4H3h9/A/eE3cB/4Ddx/4fcq
94ffwPnhN3B/+EnH+8qVdDy/Z3kcflXfec6HX+4PP+l36vsx85D71P3hd+r9
4Ccd78tLp/aH36nzwO+07DvJ+fDL/eB3ar7wq/ym0vE+cVH5XeZ+8KvyzXI9
HE7NH36ZB345H355HH7S/v/G0HzgNzRv+A3dB36p4Tcs8/VTw2/ovPDL4/DL
4/CT/hT8huX5uBiWfS+l43q+kvb7XPZhHJov/LIP/PI4/KSnwS/nw2/kvPAb
VfxG5gu/kfvAb1Sej760f8+P3Ad+0vH/jBe5H/wyD7lHzg8/6XieXo7ME35V
vllq9sn58JP2929q+OV8+OVxep85D/zOyr5NaT//zsq+bWlff6nhJ92K+zfX
wy/3g1/mgVvOh9+Z+cIvNfyk/XtM2t8fZ+4Pv/SH31l5Pm5zPvxyPvzGjH7/
k/b3x7j0W5K+Dn45H35j54df+sOv8nshHc/7V6nhNy7Px0Wuh9/Y/OE3Nn/4
ZR56jyt+Y/OFn3T8frnN/eAn7d8f31j/B2A2wBc=
             "]],
            FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
          {RGBColor[0, 0, 1], PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6],
            Dashing[{Small, Small}], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWHuMXHUVXiRWAkWDaawbwkPYx+x73jM7z3Pf13RTBWLokhKkQLWSarE1
BDTNUqNRWUOopqQaTCNYjJoasmCIhbRh39vFYNDAklRTApsatRoaMBgk3nu+
OV9D7z+T2b333O985/vOOb/5zI6v3XzPR7q6uh69pKsr/cTVI7PvZLZ/4tQB
KRbSq0f+t2N57NDqAfnSzvTqkcfLL+/6dvL/nxxOrx6pvLzr0muS7y+tpleP
bDoWnfnvygFBvF759a+S6yWL1yv/uOm5a79zyuL1ytlnHtr602WL1ysLB+8Y
fo/xeuX730uuVYvXx/iI1ydfuTRBtGLx+vS+qVWL1yf7Xpenfsh4ffKF9Dpl
8frl01v2P/0m8+2XBN3fb2K+/XJf8/JXn2C+/TKw/ZEX31mxeP3yowTu/LLF
y8i7meQG4svInzbUdl/PeBn5y+nTp28nvozcnL5w2eJl8HfGGwC+JYs3IF9M
XvdJ5jugfDy4YvEG5Ibk+jnjDUhKz99Yj0FJstnzAvEN4u+sR+c76zEoaboZ
5jso9yfXf8jfkKT07CF/Q3Ji29sP9xLfkFyVXI+SvyHN917WY0ieunLf6ycZ
b1gS9p/72bLFG5a+JOAVxDcsb23esj/HfIclYWfzFsYb1vr9kfmOyO4jr2z4
/arFG1E9DhLfCPTBfEeQz5LFG4EeWY9R1c+fme+oHHp/x/Jvly3eqCSvq+1m
vqPgj/hG5cDWq88+w3hjmu+1jDcmaTofMN4Y6rdk8cYkPvPgplHGGxMnIfA2
8pdVfZ2293dnVT93J/E0fCGrfNSsnhNZ6GfJ3pdVP15t+KaykspvM/nOwl8W
byaLelBvWfjR8K9n5fnjx4/XFw1fTv517ty5rxJfTvvLp1YMXw58Gf8Tnf8v
Gr6cvDefFIT4ctpPPkp8OZnuPbHt60uGLyefS+h+iPhy8myS3pct3/Uc+Fsy
fHmZTOR7wvjuzms/fIT85UUfI3951cu/yV9ePlbbfeQWizeV1/74OOuXp96A
Lw+/EB/+fyX5y0sKZxvxFdQvsmj4CtAj/VyAHslfQfvVN8hf537iK8jH0xcS
X0H9epX5b6YAPy4avgLuI38F1cdjrG8ReZG/oiTTI0Fk+Iqaz2sWb6KIT+Ir
qt8eYH2L4Jv+LKL/Wz+cKaIf0a9F+N3irRf1uW72gxL6hcXr7nxnfy1pf2xa
PSZK2k9voB9LkpbzdxZvqoT5R/5K0Nui4StJ+vUPrG9JUnlvZ31L8BPrW4bf
WN+yJHY/Flm8Qhn9n/jKmCfkD88/xvqW5a6kAN8if2XWD/jK4Iv8ldEvyF8Z
emF9K3JdKgjWtyKpXPctGL4K8FJ/FeX3FPFV2G+Ar4J9wvI9XEF/IL4K+y/w
VXQe30j9VdDvyF9V/f/2guGryjfTF7K+Vcxj6q+KeU//VlEv4qvKk3uSF7K+
VdXjTuKrMh/gq+r8dxcMXxX9esHwjas/ZohvXJ+bYH3H2T+Ab1znyT+JD/ev
WrypcfiT+PD8K1aPmXGtxyLxjWM+sr7j2AdY35qkj3+X+qvpPNpPfDX0E+Kr
YT5ZvjtrmO/EV4OfWN8a/Eh/1NAvFgxf53niq7GewFeHP6i/OvsZ8NWBn/jq
6Jfkr/M8+0td58FZq8fhOuYH8dXhL+KrQw+sbx34yV9DUjlsYn0beB/90cD8
of4amA/kr4F5Rv01dP+9jPw1sD+wvg30e/bnhs7fz7O/NMDnvOFrqn+rrG8T
epw3fE3MP+JrYt+lfzvfWd8m/Ql8TejR4s00sR8TXxP9ifw1se+QvxbqR/5a
2I/IX4v6Br4W9wHga2HftHhTnf/THy3sN/Rv66L+0sK8J76W9o87yV8b5xHi
a0MP5K+NeTdv+NqYZ/OGD89fZvGm2qgP8bVRP+Jrox9Tf23MG4u33sZ5jf4Q
6kXv3yjsd8Ar8Ivl1yeSVOfgXxdtvxHo0/DJhfuRjzA/jTcpWt+A+hD6ScPt
FZ0/77Mewvmr8aYF9Z6z/AX7vsU7Kjh/zdu+JNhfLd5J5HeE/Ij2o13G55ro
PvlL1lOwf1i884h/I+vr4Puc8efA/+w3Dj7Jn4P5YvkWHPjJ8IkDf5I/B/Uk
f47q8zfsTw74Mnx7HfZH8OeoP9umr2kHerZ4h50P++toB5/Vdwbvf9PyPelg
v6E/Hcwbi7fmkH/w5+D8bvmed7A/kz9X5+dWy3ejS7+CPxf+tHh9LvRg+RZc
1dcb1J+r+9Ql9JPLeoI/F3jZP13yBf5cnPepP1f3t7Lhm3bpJ/DnYh8mf66e
X45Tfy7rCf5cfLJ/uNAL+XM5D8Af+LiF/LnYf8ifh/MP/evpfnu/xev28En+
PO0/t7L/eDwvgT8Pn5yHHvxtfpv02K/Bnwf/Wby9Hs5v1J/H/gz+POwTnJ8e
+qfFO+rhPMF56ul+d4768y6a/x5+L7J+teYp32PcBzzMS8N33sO8JH++4ttg
etno49Py7fbhtznjz8d5i/z5qBf15+P99K+PfZn+9aFf6s8Hnzav9vrUK/jz
ld+H6d8LeMGfr/dNGb6jPvzNeY94mVnjz+c8AX8+9DRr/PnQA/3rY1+dM/58
nGfIX4D76d8A84/+DegH8Bfg9y7O5wDzes74C3B+o38vPA/+ApzfLN+dwUX8
Ac8hzssA/cj683SAfYj8BfAD/Ruon/vJX4A41F8g6Xr6A4u3inzPmF7WAujb
8K0HOL+TvwD7M+dviPupvxDnBatHd4j6zxp/IfqdxSuE8AP1F+r54Rj5Cz+8
T0+G2G/o3xD50r8h/Ef9hfh9ivyFmN/0b3iRf0PUZ9b4C5Wvy62+J0N80r8d
vBZvLVQ//Zj9L6QewF+Ifkr9RdA3+Yuwb5K/iPUGfxHOl+Qv0t9TfkH+IszT
WeOvcz/1F2FeU38R5x34i7gvgL+I+zL4i6AX6g/f76R/I/Bp+GYinKc4PyLO
a/AXsd+Avwj1of4695O/CPs6+YtxfiZ/MfkFfzHmPfmLdf+7w+pbiDHf6d8Y
/dj0MhFjHpg/JmPogfqL8XsV/Rvz9wHwF6P/kr8Yeqb+YpwXqL8Y9ab+YvoT
/MU4b9O/sf4+cpD8xdxXwF8M/9G/MfYV8vdZnBeT+/8P9zPQZQ==
             "]],
            FontSize->24]}}, {{}, {}}}}, {{{}, {{}, {}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmE1SG1cUhTsZswENUxULG2wskAQSCGj0g5QqRpkxTVXIMANtQFWJ7TiW
U5UhWQAbYAOeMVEWwAbYgDeQ0N9959R7mnQd3/fO++65rVbj73769cefv62q
6u9vqur5yuf7urn88VD3us8f9Op//cvN8yfqfz7U/9w+f0J/eKj/3Tx/Yv3H
B/69eiGN3wv54xf1D8nPGj9r/NroT8kPXa2TX9TfJ7+2+PGL9Z+S33bBty1/
/NDV5+S3LX78tnUefi/Rfya/lzoPv9Afk99L7cfP+/F7VfChq/fJz3X8Xuk8
/F6pf/x2VMdvR3X8dop57BT97hR+u+jfkt9u0e+u+sFvV/74hf49+b3WefhZ
44devUt+r5Unfq8Lvjc6Dz9r/N4U+aF9P4fWPPZUx2+v4Astvj3x4LdX+L0V
P37oleYbdd1/b7Ufv1iv+7mT593qqL/GvtuRf7P/ynXO6+R+q474OL+j8xu7
+47yhMf1xu+pU8xjn+unxLdf8O3neV1Zw7evvOGL+jrxRX2d+OwP337B5/3w
HeT9tg4KPtfhO1A/8B3k/a68H74D8cMX+q/EZ3/4vB6+rvzhC63nTVf9wNfN
/W666h8+74evK97G7z605hv6XeLzfvh6ygO+0Pq+uA5fT/vh6+l8+Hrihc91
+Hr5PDZRT9+fp57yha+vfuDrK0/4+vKHry9++Pp5v6u+zoPP6+Hr5/1uQouv
L374DnO/Fvr5eQLfofKH71D5wGcN36H84bOGz+vhO8z7ffL58B1x1f13lPfb
PSryO1Le8B2JH77C79YavsJvYw3fkfKEb5D32xqoDt+g4Bsob/gGOh++gfqH
z+vhC635+nz4Bvk8qqF44Bvmft2h9sMXWu83w4LP6+Ebige+oc6Hz+vhG+bz
qI7zebTQfr5EXd/f49zvxnX4Yr/eJ0Jrvq7Dd6z5wHes/OE7UR2+k4LvRP7w
nag/+LwfPq+H70R5wVf4baKu78dJ3m81Uh2+kfKBb6Tz4RtpXvCNlD98Xg/f
qMjP/vB5P3yjgu9UdfhOc7+uNXyxXvffaZHfqfKC71T9wHda8IXW8y/W6/f3
TOvhO9N58IVO98tVaD3/Qqfnweqs4PN++FyH70z9w+fz4TvXfvjOi/xCf058
57nfjTV858V8z5UPfF4Pn8+Hr/Cras23Wb9Vqw5vne9v15pXvD7kfnX4Ke9a
+TZ+17X6pb9a82vslrX6oV+f1/itvZ7+rRu/u1j/Lr0veX+z7kus1/PXvI3f
o3nJy7rx++r95HfBNd0PWxc5X8ua/C40P/KzJr+LfH5XodP9eO06+YV/en9d
+jzyuxA/+RV8tz6f/EJ/SPkVfl+8nvzMQ34Xmh/5uU5+hV81Vv7kN1ae5Oc6
+Y2VB/mNi/zG8ie/seZFfuMiv6gnvqX3k5/3k5/r5Bc6/V7cuU5+Y+VJfuYl
v9Dp+/FoHvKLevq+ffV55DdR3uQ3kT/5TcRDfhP58fyZKA/ym4iX/OxPfhPx
kl/U0+/f0pr8fD75xX79/eXzyC/W63nrOvmZl/zsT34TzYv8XG/8vpqf/KZF
ftPcrxU6Pa/aXk9+0yI/7ye/qXjIL7R+H6d5v8up5kd+UU/v72ufR37eT35T
9Ud+03weX0Irv8Lv0fvJzzzkN83nUc3QiW9rpvXkZ01+s3we3ZnyIT9r8iv8
rmd5vzezfB5L+5PfTP2Q36zIL3S6X+4KvnufT37eT37mJT/Xyc+a/Aq/6jLn
27rUfMjvMu+3fVnk5zr5eT/5XRb5hdb7T6xfp/wu83msfB75hdb7UcF3537I
zzzkV/Btin4ffR75mZ/8rMlvzjW9P22h/b41z/3aUdffx/O83zrq+v+Qec53
PVde5DdXHuTnOvmFX+p3XfDdFnx3rpOfecjP55HfXHmQX2g9/3w++c01H/Jb
6HzyWxT5hU73S9ua/Ba5X73I+72yP/ktlCf5LfL5LqOu97+Cb+315LfI53G3
yOdx7/3kFzo9rzaF32PR75P3k5/zIb8f1O9/lxJuPg==
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmDtyW0cQRZ8dcwMMXWV9+cWHX4AkfiTgKkTOlLrKcuhAG0AkyRZlSc7o
BWgD2IAyJvACtAFtgBuwgdNzb00jQXX1zJ3TZx5ASD/88vvPv37fNM2n75pm
/c7rx8Hm7fZ+0O2sX9SLP+8Hv71cv6L+437wz936Fev/r/9drV9Rv7vnvXmk
9eRF/VfJe6R88qJ+V/IeKZ+8x1pPHnXzvuRFrTzX5Hk/eU+0n7wnad6ob0ue
++S5T95TzU/eU81DnmvyvJ68pynvWbqPZ4nvmXyS5/XkRf99yXuumrznKY+6
Ud5z+SfPffJ2NA95O8onbyfl7Wg+8nbES96u1pO3Kz/k7eq+yKNeiG835e1p
PXl76T72tJ48rydvT37J20951IsPJW9fvsjbT/exr/PJO+Bdz7Nr8g40H3kH
8kveQco7pC7P//ah1m/iO1G/if3zQ83DeYfi37wvXHN+yltG/0PhOdS8m7xv
h4mvpfngo14/D/BFv3we5i35h6+l8+BriR++lnzBF/XHwtdKfK163qat+eBr
ix8+6vXzCV9bvPC1dT587fo+7trihc99+KJ+W/ja9bxNRzzwueb5cQ1fRzzw
dep5Fx35h6+jeTZ5y47uC76OeOFzDV9X++HrKh++rs6Hz+vhi/Xl87boih++
qF8Xvm4978o1fF35hu9I88B3VM/bibp8Xueu4TtKfEfJn9fD5z58R+KBzzV8
x/IDX9QfCt+xzofvWH7gO67zFq7hO67nXR4nf67hcw3fic6H7yT5i355XubR
1+f3RD7gO1E+fO7Dl/JWJ/W8307kC75T8cB3Wt9HJ2rxndbzvjxN/rwfvlPx
wOfz4PN6+E41P3xnOh8+av89PtP88J0pH74znQ/fmfLh83r4zuQLPu+HL+q3
he+8nnfbNXznyd+5eOE7r+9jcS6/8J0nPtfweT18Pg++XvLXS/6i1uejl/z1
lA9fT/zw9eQHPq+Hrycf8PWSv37i68sHfP06b97X/cDXr/MWffHAF3lvC5/3
w9ev5/3Wlx/4LsQD34Xmge+ivo/5hfbDd1Hfx8L74Ut5S++Hz334zAPfpc6H
7zL5u9R++C7lB75L3Sd8Xg+fa/iiLs/Lyn34LnVf8F1R6/vvSrzwXel8+K60
H74r5cMXtb6fY73uN+rXhc/nwef98A3U36zfGtTzb1PreXs80Pzx80H7I075
zBN1eR5fDMTLfAPNu4l75fOY1/1N3q37zO/zN3mfzc/vpVhfnr8vad5Vyvvq
+fDl9Zu8h5TXDOt5t4bq4899/A3lA3+xvnzfD6Kv3zuu8RfrXxd/w3reV9HX
8+I+/obyiT/n429Yz7sc1vfxJfGtUt5Xz48/9/HnfPyNxIu/kXzgb6T1+HON
P+/H36iedz6Sb/yN6nlfjnQ/+BuJF38p79Z9/EVd/j332evxl/i+mAd/Ke+r
a/x5P/7Mj7+xfONvXOdtR/2m+BtrXr5/vB9/Y/nFn9fjzzX+vH6T92osH/gb
J38+D3/u488132fOx1/iW0WePr9j+cVf9Mv340PU+n01qfO2JtqPv6jL99Xj
Sc3X8X78TXQ/+Et5Lybixd9E94W/lLeIvvxF/bH4m8gn/qIu97v0fvz5PPxN
dF/48/n4S3wPzsfftebB37X6+KP295/7+LsWP/6udT/4cx9/1/KPP+fjL2r9
e8s1/lLenfv4S3nL6+TP5+MvavkzP/7cx1/ia27q+9iibj4Vf1Hr72/U+v+f
m/o+BilvfqN58Be1fl/caB78eT3+fD7+bpI/1/jz+fhzH3/mxd+N/OIvztP/
Z6S8h6j1+3la38fWtObbdo2/qebD31Tn4881/qbyhb/ofyz+nI+/qe4Hf9P6
Pm5T3l309ffXffx5P/5S3irW/138eT/+vB5/5sXfTOfjbyZ+/M10X/ib1Xmd
mXziL+XNvR9/3o+/WfLnPv6i1ufX+fhzH3/Bo78fM/nAn2v8eT3+nI8/8+Mv
1uvz+5Pm/w9IFHEG
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmDlyW1cQRWHH3ABDV1mQRIoUiIEzic8Bg6sYOWPqKlOhA20AmSZrcAgv
QBvABpgpgRfADWAD3ICLOP3urdcIiLrV790+fd//n5/85Y+/fv/z51ar9c9P
rdbTN59fm6efs79/NP3e0wfd+vKjeXP39LH+d/70ifXvfzT/LZ8+3o/fM77l
h559Ln7PtB6/WP+h+IX+VPzaquPXVn/82snPGr+2ePB7nuZ9rjp+oT8Wv1gv
vufJ7wX1L8Uv9Lfih259LX4vtB+/0J+L30u+3xc/9Oxj8Qv9qfi9VF74eT1+
W+LHb0vz47el/vhtJT7X8dtO+W0nvm3x4Led/EJ/KX6vlDd+rzQffq+SX9Q/
Fz/X8dsRD347Wo/fTvKzxm9HvPjtSuMX+mvx29U8+O0qL/x2lRd+r1N+r3U+
+L0WP36u4+c6fh106b/ZEc/avtep9990NC/9OuJdf89Cfyj97b+2W3R0XvB0
6vNauQ7fXu23uad+8FnDt6f98LkO357yg29P88AXdT2f9up8V9bwdRNfV/3h
C12u35tuOq9ufR6zrvrD1xUvfPaHr6v54Iv1ut96ia+n/Vw/vXreG6+Hr6d8
4OupH3yur/0W9oevl/ILrfutr/3w9RNfP+XXT/n1a79ZX/PD5/3weT18US+/
D1ah9XwZKH/4BvKHb6Dzg28gfvgG4oVvIH/4BolvkPhCl+fFalCfR2tf6+Hb
r/16+zov+FyHb1+88Hk9fPvihc8avn3lA581fAfqB9+B8oLvIPEd1H53B7Xf
LPnNk9/CGr5Yr+sv+bUOlSd8aJ/vofrBZw3fofKH71D94HMdvsPE5/7wHSpf
+I74Ls+DzSOdF3xoP5+PUn5H8ofPGr6jxHdUn8fS/eGzP3zHygu+0F8LX+hy
vdwcJ75j5QnfseaD71i88Hk9fNbwHdfn0TpRHb6TxHei9fCd1Odx5/XwJb+5
NXyx/lvhO1Ge8LkffKeJD+374zTxnSof+EKL77Q+j7n3wxda7wOuw3eq+eE7
o67r70znB9+Z+sGH9vv/meaBz+vhO1M/+M6UB3yxvvitrOE7T/mdJ75z8cN3
nvLzfvhch++8Po/FeX0eS9fhS36toeaDbyh++Ib1vDfD2u8u6vr9MdR88A2V
N3xR1/lGXdffUPzwNZp3vX6jUX94G/V7w59LmideH+rzaJo0TyP+td+t/ZnP
em33Ntbreo56ub7+TnzzRvOu/b43mpf3Jev1973Xk4/ra7+HxLdKfo/eT34X
td/GRcrvos6/7Tr5Rf1dye9C+ZJf6G8lP/cjvwvlQ37eT37uR36h9fy3Jr/E
t3A/8kt8y6iX95kH7ye/WF/8HhNf61L5kN+l+pHfZc3Xvqz9eqELXxNa97vX
k1/yu3M/8nOd/KzJL/S7kp/9ye9S85GfNfldKi/yi3q5nx9cJz/nQ35eT35X
0uQXuvBton3/WvP8ifW6f6+UJ/ldpfxiv+7f0OV96e1VPe/MmvyuNA/5XdXn
8d11nmeej/zSvEvvJ7/Et/L6td+j5ye/65pv47o+j81rzU9+Xk9+1+pPftbk
l/xurzUf+dmf/K7FT35eT37Jb25Nfolvkfzu07zLqJf77cGa/JLfozX5jeRP
fqOUnzX5jep5e6OUn+vkF1rPv1iv94uR8iG/kfjJz/3Jz+vJz/zkN0r5Jb57
18kvzfsQWvdv7Nf1F1p/n49rvo2x5ie/0OU82q6T31j85DcWL/mFLu9vt2Pl
Q35j8ZLfWPORnzX5mZf87E9+US/v14ux8ia/0Ho/Tn4P1uQXuvw/89H85Dep
+TYmyoP8rMlvUp9Hz5r8Jim/ifqRn/uR36Q+j7cT8ZNf7H9X8vN+8nM/8vN+
8kt+92nepfuTnzX5hX+5Px5dJ7+pzof8puIhv2k9b3taz9ub1nyN95Nf8rud
1udxZ3/ymyov8rM/+SW/eehyv333POQXurxP3k+VB/m5P/nZn/ysyc/rye83
5fE/ltZofA==
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmEtSW0cUhm8yZgMapioG87INEpJ4X71AqdIoM09TFXmYARvQLBDjGA/J
AtiANuAZE7IANqANsIGE+3X/f/XR5Nap0/33d74Wkuyffvvj199/rKrq2w9V
9frk9XPdPL481p326yvVt4/1p/nrK9V3j/U/968v9/99en2l+vMjz+pN81zc
5rxUf855b7SevDchzzV561pPHvXir5y3rvXkpf6XnJf6f+e8DdXkbYR5N7Sf
vA3NQ96GfJH3lv5NzqOuxJfqm5z3VvOQ9zbMuxnm3VQ+eZviJ28z5G3KN3lb
4iVvK/jbCv62wrypvs552zyvc9528Let+cnbFg952+IlbyfMuxP87Wg/eTvy
QZ7Xk7crXvJ2g7/dkLer/eTtyhd57wLfO+0n712Y133yUv8m570Pee/DvO6T
l+qvOe+98sn7IP/N+laq/39/NPHtDyXPzH3Oc908Fx/ki/Od38QtU//PzON+
k7fyefDtaX749jQffK7h2yvz5tSLfB8Lr4cv9cW3F3x5PXxpvT4P9rUfvn3d
B3z7wV/qf8l8+5oPvrT+a+bzfvhSfZf59sv7WO1rfvjaWg9fW33eP235ga+t
8+Brixc+1/C15afJW7oPX8rL78+V8+HryBd8He2Hr1PmzVJ9l/k6Zd6io3ng
65TzLr0evk7wl/q63wOe+T5aB+rDd6D54HMfvoPyPhYH5bz37sN3EPhC3irV
ut+u+OHrige+bpk362oe+Lq6P/i68g1fyFt2dT58XfHD5/Xw9bQevl45b7sX
+FKtz9ueeODrlfdx39P88DkfPtfw9QJfP/jrixe+vu4Lvn6ZN/d++Prih899
+PrlvE/Oh69f3kd1qPPgO9R++A61Hr5D+YLPNXzeD5/3w+fz4DsMfGm/vt+O
5Au+I50HX+pfZ74jnQffUXkfi1Tr98mRzofP++FzH74jzQffsfrwHSsfvuPg
71j74fN++FJf9+s+fO7Ddyw/8Pl8+E546vvtROfD5xq+k3Le+YnuC74T+YTP
NXyu4TsRL3zOh++0nLdF7ftN/fx9OUu13n9pvf4+vB++0+DP6+E71XzweT98
Z+W8rTPxwkdd6f13VubNz8p5F2eBL+Xl34NLnwffme4PPvfhO9f58FH78+Vc
58N3Lp/weT18qdbf77nOg899+M7L+1idB381z3x/a9T+vVAr7xP/XFJe+vlQ
8tVezzy1fDd5H0Pe3HUTd1WXfItU57xb18zv85u8B/f5veS6eX43P35q+W/y
nt3HV5j3xfPgb0A/v1/XBuW8rVTn7+919/HnPv5C3mwgH/gblPPOU32T/Q3K
eRepn+/3diDf+HONv8C3HMgP/tzHn/nxZ378OR9/5sffsLyPtWHwN9R8+BuW
ee1hmVe7xt9Q/PhLtf6+hvKLv2F5Hwufh7+Qd+/1+DM//obygb/A95TW58/X
Z+fjL+S9hHmrkdbjj9qfh6m+zv5GyuPzJ9X5/VKPynlno5Lvo/fjb6T5mryr
Ucm3GMkv/lKdPw/v0/r89/YQ8paj8j6+B74n8+DP6/Hn+Zq8F8+Dv7H2429c
ztsal/exPpZf/I3Leetx8DfW+fhzjT+vx99YvvDn9fgzD/7S/ny/D16PP8+D
P6/HX+B79nr8hbwX1/ibBH8T8eNvovnwl+qv2d9E94W/ifzizzX+Qt58UvJd
mQd/ge827dfvN/fxN5Ff/KX1d9nfJPgLfM8hb+Uaf2He6qKcd43avxdSP/99
rF9oP/4u5AN/FyXfzH38hbx5yLu60P3h7yL4C3n37uMv5C19Hv6cjz/38Zfq
/Pm88nn4C3zVZZm3Ru1/j1yKB3+p1u/ry5Kv9nr8pVrvP5+Hv7Q//968SrW+
Py7Fjz/vx1/gezAP/jwP/tJ6/f9P6uv95/34Mw/+Al81LfnWpuW8ral84W+q
8/A3Df6mwd+0vI+PPg9/zsffVH7wN5Vf/Pk8/JkHf96PP5+Hv2nw5/X4C3wr
8+PPNf5+Ef9/h/ZoFg==
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmEtSm0cURv9k7A1omKrEvIxB+gUIEEJvKVUaZcY0VcHDDLwBRoHEim2G
ZAHegDbgGROyADagDXgDCTrd31d9NYjq5nZ/fe5pvfAPv/7+y2/fV1V1/11V
vTzz+LH/8t+b28d+u355pPrTY//d9cuDuvrrsf/Pw8sj9f+v/316eaT+x0ee
q5/UJ881edTVMuel/jLneT15r3U+eam+y3mvtZ681P8z56X6Q87bCnyp/pDz
tkLeVuDbCnnb4iFvO8y7rf3kpVp82/JB3o74yduRX/J2Qt6OeMjzfvJ2g79d
nUferuYnL/X/znm7IW9PffL2Qt5e4NsL87pP3hudT55r8t7oPPJSX3xeT96+
fJC3H/L25YO81L/PefvyTd5bzUdeqvX+eBv8vVU+eamv1/NB8Hcgv+QdiJ+8
g+DvQDzkHfJ8l9Y3DsWzia8Pdf5m/+JQfJzn/ub/37jm/FTfpbyV98NzWPKv
D3U/8DWp8+uh0VQ+fE3th6+p+eFraj74muH+Qt7K++Frige+pnzC15JP+Fri
ha8V/LkPX0t+4GsFvpbOgy/kPbV0X/CFvKqm/pz5avng9VMrHz7X8NWaD75U
6/1Ui2eTt6rFD1+t+4Ev5FXtct5GW/zwtQNfW/cDX1vnw+c+fKn/MfO15R++
tD5/Pq7bmg++o8B3VObVR/IP35F44Ev7bzOf18Pn9fD5PPhcw3ckH/Adax74
XMOX6vx5tzjWfPAdiwc+1/Ad6zz4jnWf8LkP37H8w3ei+eA7CXwnZd7ipJz3
2n34Qt7DSeDzfvhSnd9va++Hr6P98HW0H75O4OtoPvhcw9fRefC5D19H58Pn
Gr6O7ge+U9XwuYbvVPzwuYbvVDzwnWoe+E7L+1g5H77U1+fLafB3Ri2+VOv9
cabz4Ut9/f46C/7ch+9M58N3Fvjch8888J2LF75z9eFzH75z5cN3rnz4XMPn
/fCdyy987sN3Xt5H1ZV/+Lq6P/i6Zd6iG/i64X678gmfa/i64ofP++EzD3wX
ZV7josyrU32X+S7ED9+FeOG7KOd9uAj+3Icv7Zc/nw9fj+ePma+n9fD1yrxF
qv/IfL3gryd++ELeqqfz4evJJ3zeD99lmdeg9u/zy/I+Fpdl3vWl5oMv1beZ
L63P35cr1/CFvPWlfMPX13yb9a/65f00+lr/jj+XVKefD1qf4uSTefrytcm7
SrXe/yHvferr9dKXr03eMtX598yD12/yvvh8fi95vs3z137p+8nnb/Ke0/r8
+3zt/Zu8b16Pv4HOx59r/A2Cv4Hmx98g+BuU97EYBH8DzYc/1/jz+fgLfEvn
4y+dL3/mxd9AvvDnPv5C3vMg+DM//nwe/obUn7K/oebB31B+8Dcs76N2H3/e
j7/Uz98nV0Px4G8oHvwNy3lvhuW8y7Rf30/mwV/gWw3L+/hqXvylfv58ePb5
+HONvzBvNdI8+BvpfPyNNB/+RvLB54/348/78Tcq7+NqJB/4G8nHJu+99+PP
+/EX+B5C3peQtxoFf2m9vl/Njz/X+HP+Ju9bmLca07/N/sbKx59r/I3Fg7+x
/OJvrPPw5/X4C3nXY/nAn/v4S3W+32Xge3Aff67xl+r89+DXsebHX+rn+31O
9X325/nwZ178Tcr7eDUp8xqpzt+3ryflvPWk5OtPSr7FJPjzfvxNyvt97/Px
l9br+8Pn4c/r8Rf4Vp4Pf4HvaSI/+PN6/Pl8/Hke/E11Hv5SrX+PmWo//qbl
fdSu8TfVPPhL+/X+nYoffz4ffyHvxjX+vB9/Pg9/7uNvGvx5Hvy5jz+fh7+p
7gt/rvE30378zcr7aKRa378z8eJvpvnxN1M+/mblvFfejz/n42+m+fDn9fhz
jT+fjz/z48/z4S/M+xTynkPeOsz7zfPgb17yvaL27xfX+HONP9f4c42/uXzg
by6/+JsHf3PNj7/At5xrPvzNNQ/+Uq2/Z30+/nwe/rwffyFvbV78pVr+ftb6
/wC/y3O4
             "]],
            FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
          {RGBColor[0, 0, 1], PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6],
            CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWGtoHOcVVRtwwTSFQiAVhpQWa/WW9v1+3J2ZnZli4ZK4TixHsRQplizb
smVL8UN+rfyo5VrBrQMOLhgCCUpwwBDcgsEFi4a0GFIwpBAUcMGQikCKCzEp
BFLo7Lnd8zE7PyR2d+bM+c6999z7fT8bP/jC7u+3tbX97nttbY3/em2Wo8H1
0qW/SjLRuMznqcnGtVkafw8En39/vXFtlsZTs8Hnv33SuDbLj+Y/l8b9itch
n70zWzpMvA45/eEXz+4jXodU33t6/jfE65D7g9e+20m8DnnhznMX9hEvIjfS
D6YniBeRRwvP3JoiXkT2PnUjPUu8iDyYfurGLuJF5OzWTV++RrxOGev79uO9
xOsE33Hidcr24HqFeJ2yMbhhN/E65b/j9wd3Ea8L6z9IvC6sbyfxuiT4+b0Z
4nXJ3zfkZ4x+XbLccW/HYeJ1y78fP358gHjdLfy6ZeTKn7+pE69b/nJ1tO84
8bpb+PXIRCDwPPF6oNcY8Xqg9xzxergexeth/BWvF79fJF4v4nGReL3SHRA8
RbxeGf76cscZ4vXKpi//sGjw+vhZ8fqQD4eJ1yc/2XL6w3ni9eG5OvH65B8P
Hz58g3j94PcW8frx/THi9TP+itcvwfK/epV4/RK5t+Nrk38D8oP8zNv7iDcg
l5aWlgzeAPLzBPEG5MJXz9+ZJN4A9D1BvEHwO0O8QfllIMBx4g1iPa8TbxDv
WyLeoHxw8+bNs8SLys+D62zz/vaoBPQvN54HfCIajudQFO+b5vui8q/n7zx3
qolXj0omKKALfH9U/tM1cmVvE+92FDgnyScq174bv3+0ibcelTdH+77dTn4x
CcL3xRT5xYBzmfxiWN8e8ouh3k6RXwzrYXzrMfAZJ78Y6m2B/GJyqLTxswny
i1FP5RdDfEz+xeXEM7e8afKLSxDuTyfJL873Kb846usI+cWR36PkF5fA7rZM
kl8c/Ix+cfih4ReXoJy7TpJfXN7+dEP+dfJLIP8myC+BejvK/Em0xDcBf9lD
fgn56JuukSnyS6C+TP4nED/61+2E/Di4pskvgfWzHtcTjJfyS8KP9pBfEu8/
Rn5J+O88+SVxn8m/pAR29OA4+SXpt8ovyXpSfknk/wL5JeWPi1s3sR7XkxIN
FnSJ/FISyP+54ZeSwG62mnpOhf1pKEW/U34p6qX8UvBzU58pxOsV8kvJu7Ol
jaPkl+L6lV9KAvu5avplGn60k/zSyL8j5Jdm/Sm/NJ4z8U2H/aWepn8qv7Tc
8h4tnCS/NPJlivzS8s9nt5xmPNbT0PsI+WXkT3fv3qW/tWfgx/vJL4PnD5Ff
hvjKLwN/uUB+mRZ+GSk1Ak5+GfqF8stIEJ57dfJTPFMfWfZL5ZelPyq/LO6f
Ib8s5gNTv1nWn/LLol+OkF+W/qb8ssjXRfLLShDO0RHyy9K/lF8O9c7+2p7D
c78ivxzy8R3yyzF/lF8O+TtLfjnU5zD55aDPEvnp86Z/5+hHyi+Hfnua/PLA
O05+efQzUx951PsO8stDb+JN5lmfyi+P/DhPfnn46zD55bke5ZcHH8Mvz/xS
fgX43Sj5FeCH28ivwPlK+RUQfzM/FJD/8+RXwHxi/KWA+vfIryAB3UdmHi0g
njPkV8A8Rj9oK+I+5kt7Efk9Tn7FFn5FzgvKr0i/VX5FzIPGn4uYR2fIryg/
DQQfI78i7hsmvyLy1+hXgh7Eay8B3/AriR8IfID8SugXZv4vod+Z+JYwb5j+
W4K/0Q9ul5DvL5NfietXfvq80a8M/zD5VwZ/+lWijPUyX4bKEtjjhr3kV8Y8
c4j8ypynlV+Z+aD8yviefvVJWZzgOk9+Zcx/28ivwnlJ+VXwnJmnKxIs7+n9
5FdBfpv5sAJ/53xfr6AezX6qwvpUfhX2L+VXoX8pvwryd4b8BPnD9fxQ6LfK
V8CP64sI/LzhR/8fH5DPV5t4ItCb8+aQsN8Ab1g4b+n6BP13tok3J+H5uS5c
P/CWW/hdF+5ngLci3C/qvKR4c028VeG8ovoI/Gmsibcm6Jfcf60L+sueJt4T
YX6rflXOf6pfFf35IPWrwh/YzyJV+Ml+6lflflH1q8IPX6R+Vfiz0a8KPztD
/fT9h6hfFfMq8erVcH9d1ve/Rv2qmHdfpn5VzC+7qJ/iMV9Wq9Db+Ec1HN+1
ass8oPjbqF+V+03Vz0K9nqd+FuaRc9TPQr98lfpZ4Xk9YcFvF6ifhf0Y4zFk
QZ9F6meF/W7S4nyv+ln0J9XPQj5wXly2sL8x+1ML5x2Mx4qFfs743ra4H1D9
LMT7DepnhefLNYv+rfpZ0Gua+un66FdtNuOl+tno32a/ZOO5CepnM1/Vf2ys
h/OQ2DwvUf3scD8ettm/VD87PB/O2YjfBPWzUV/vUz8b+7Ht1M9GPHk+sWJz
f6R+ZnNeV/1s7ndVPxv+y3xeU/7nqJ8NfceaeE9s1Cf3M20O5xXVzwmfV7U7
1Ev1c+C3L1I/B/tVU78O8C9SPwff83xp2OG8o/o53M+ofk54/qs7jKfq58B/
WR/XHeaD6ue0zMNOeP5b1fcZ/XT9nC/XHMSX/rzuhOeHJ+Z+1a8Gvz1H/Wqc
D1S/Wnh/FamhXsx5Vy28f5Ma5n/uf4Zq8AfGd7jG/Y3qV0P+kt9cDfl+jvrp
/b+mfjXOG6pfDfXO9a7UWvp9DX63g/rVOM+rfjXE+yj10/XyfGy9xv6r+tWQ
P2Z/5FIP1c+Ff3C97W54PxRx6Ueqn4t8YL8UN9yPhvQz56NhF36ySP1c9JMr
1M/lvKT6uchvzp/LLvQ4Rv1czBs8f1pxme+qnxv2+1WX+w3Vz+W8o/q5nOdU
P5fzmepn1q/6edRT9fPgJ5zf2j3k52Xq50FfM395nOdUPw//f0v9PK5f9fO4
ftXPYz9S/TzOq6qfh/7P+C57LecnHs87VD+P59Gqnwe/pB+sejyPVv085qvq
5/E8TvVTfa5RPw/zn9n/+qwX1c/nPKb6+eF8ifi4z+zffazvIvXzWa+qn8/z
NNXPbzkf8XH+sZv6+ex3qp+P+vCon49+b+Zzn/Oh6udjf/cm9fOx3+R59qqP
fDfznx+er9Z8xMPUr4/65nnrEx/9ZoT6/YLnW/8DxHXJQQ==
             "]],
            FontSize->24]}}, {{}, {}}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, 574.6666666666666},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm], 
        FormBox["\"# particles\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(IP\\), \\(3\\)]\\) before \
transformations\"", TraditionalForm],
      PlotRange->{0, 12500},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.829244209037747*^9, 3.8292442154854794`*^9}, 
   3.829244259240368*^9, {3.829244289877029*^9, 3.8292443188861227`*^9}, 
   3.8292479388329678`*^9, {3.829247972940401*^9, 3.829247991857854*^9}, {
   3.829248058005785*^9, 3.829248113027342*^9}, {3.829248166360594*^9, 
   3.829248193946347*^9}, {3.8292490157509108`*^9, 3.8292490556854486`*^9}, 
   3.829249100350212*^9, 3.829249179643229*^9, {3.8292493904444427`*^9, 
   3.8292493999098043`*^9}, 3.829249431995779*^9, 3.829249470044332*^9, {
   3.829249522341957*^9, 3.829249527030116*^9}, {3.8292495618416862`*^9, 
   3.829249588556665*^9}, 3.829249752537814*^9, {3.8292499152232523`*^9, 
   3.829249921112162*^9}, {3.829250063319236*^9, 3.829250090561718*^9}, 
   3.829250152836198*^9, 3.8292507986419477`*^9, {3.829309351737257*^9, 
   3.829309358364479*^9}, 3.829309670346258*^9},
 CellLabel->
  "Out[1135]=",ExpressionUUID->"c71180ed-6c69-4015-ab20-7dbd4dceeff8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{
       "\"\<figures/trans_ca_before_\>\"", "<>", "ip3", "<>", 
        "\"\<.pdf\>\""}], ",", 
       RowBox[{"pltsCaBefore", "[", "ip3", "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{
       "\"\<figures/trans_ip3_before_\>\"", "<>", "ip3", "<>", 
        "\"\<.pdf\>\""}], ",", 
       RowBox[{"pltsIp3Before", "[", "ip3", "]"}]}], "]"}], ";"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"ip3", ",", 
      RowBox[{"Keys", "[", "pltsCaBefore", "]"}]}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<figures/trans_before.pdf\>\"", ",", "pBefore"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.829250531122817*^9, 3.829250607496114*^9}, {
  3.829250783069553*^9, 3.829250791265327*^9}, {3.8293093758917923`*^9, 
  3.82930937626997*^9}},
 CellLabel->
  "In[1136]:=",ExpressionUUID->"48e171cf-ddfb-48b3-a3db-003a79c25c6d"],

Cell[BoxData["\<\"figures/trans_before.pdf\"\>"], "Output",
 CellChangeTimes->{3.829250801254685*^9, 3.829309378024378*^9, 
  3.829309673424313*^9},
 CellLabel->
  "Out[1138]=",ExpressionUUID->"3b7acc66-e877-4271-b40b-4ac16419869f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot after transformation", "Section",
 CellChangeTimes->{{3.829248284814577*^9, 
  3.829248289296021*^9}},ExpressionUUID->"33707b1c-3f0d-4d54-adb1-\
371cfd706449"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pltsCaAfter", "=", 
   RowBox[{"Association", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pltsIp3After", "=", 
   RowBox[{"Association", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"valsCa", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{"dataVizTrans", "[", "ip3Key", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", ";;", ",", "1"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"valsCa", "-=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"mv", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"Dimensions", "[", "valsCa", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"valsCa", "/=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"sv", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"Dimensions", "[", "valsCa", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"valsCa", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "x"}], "}"}],
          "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "valsCa"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"meanCa", "=", 
      RowBox[{"Mean", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"data", "[", "ip3Key", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{";;", ",", ";;", ",", "1"}], "]"}], "]"}], "]"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"meanCa", "-=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"mv", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"Dimensions", "[", "meanCa", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"meanCa", "/=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"sv", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", 
        RowBox[{"Dimensions", "[", "meanCa", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"meanCa", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "meanCa"}], 
        "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"valsIp3", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{
        RowBox[{"dataVizTrans", "[", "ip3Key", "]"}], "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", ";;", ",", "2"}], "]"}], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"valsIp3", "-=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"mv", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"Dimensions", "[", "valsIp3", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"valsIp3", "/=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"sv", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"Dimensions", "[", "valsIp3", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"valsIp3", "=", 
      RowBox[{"Table", "[", 
       RowBox[{
        RowBox[{"Transpose", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "x"}], "}"}],
          "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"x", ",", "valsIp3"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"meanIp3", "=", 
      RowBox[{"Mean", "[", 
       RowBox[{"Transpose", "[", 
        RowBox[{
         RowBox[{"data", "[", "ip3Key", "]"}], "[", 
         RowBox[{"[", 
          RowBox[{";;", ",", ";;", ",", "2"}], "]"}], "]"}], "]"}], "]"}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"meanIp3", "-=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"mv", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"Dimensions", "[", "meanIp3", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"meanIp3", "/=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"sv", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", 
        RowBox[{"Dimensions", "[", "meanIp3", "]"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"meanIp3", "=", 
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], ",", "meanIp3"}], 
        "}"}], "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pltsCaAfter", "[", "ip3Key", "]"}], "=", 
      RowBox[{"Show", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ListLinePlot", "[", 
         RowBox[{"valsCa", ",", 
          RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"ListLinePlot", "[", 
         RowBox[{"meanCa", ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"col", "[", "ip3Key", "]"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
        "PlotLabel", "\[Rule]", 
         "\"\<\!\(\*SuperscriptBox[\(Ca\), \(\(2\)\(+\)\)]\) after \
transformations\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Time (s)\>\"", ",", "\"\<# particles\>\""}], "}"}]}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}]}]}], 
       "\[IndentingNewLine]", "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"pltsIp3After", "[", "ip3Key", "]"}], "=", 
      RowBox[{"Show", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"ListLinePlot", "[", 
         RowBox[{"valsIp3", ",", 
          RowBox[{"PlotStyle", "\[Rule]", "Gray"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"ListLinePlot", "[", 
         RowBox[{"meanIp3", ",", 
          RowBox[{"PlotStyle", "\[Rule]", 
           RowBox[{"col", "[", "ip3Key", "]"}]}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
        "PlotLabel", "\[Rule]", 
         "\"\<\!\(\*SubscriptBox[\(IP\), \(3\)]\) after \
transformations\>\""}], ",", "\[IndentingNewLine]", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Time (s)\>\"", ",", "\"\<# particles\>\""}], "}"}]}], 
        ",", "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}]}], 
       "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"ip3Key", ",", 
      RowBox[{"Keys", "[", "dataVizTrans", "]"}]}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"pAfter", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"pltsCaAfter", "[", "\"\<ip3_0p100\>\"", "]"}], ",", 
          RowBox[{"pltsCaAfter", "[", "\"\<ip3_2p000\>\"", "]"}]}], "}"}], 
        ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2.5"}], ",", "2.5"}], "}"}]}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Show", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"pltsIp3After", "[", "\"\<ip3_0p100\>\"", "]"}], ",", 
          RowBox[{"pltsIp3After", "[", "\"\<ip3_2p000\>\"", "]"}]}], "}"}], 
        ",", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}]}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], "}"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.829248328238309*^9, 3.829248343335338*^9}, {
  3.829248382396925*^9, 3.829248462238798*^9}, {3.8292496757401533`*^9, 
  3.829249738245698*^9}, {3.8292497762123547`*^9, 3.829249805555221*^9}, {
  3.8292498805573883`*^9, 3.829249938018683*^9}, {3.829250163641533*^9, 
  3.829250165289152*^9}, {3.8292507439039392`*^9, 3.829250752384997*^9}, {
  3.829250832920649*^9, 3.829250835306405*^9}, {3.829309383416018*^9, 
  3.829309383626573*^9}, {3.829309658191401*^9, 3.8293096648681393`*^9}},
 CellLabel->
  "In[1139]:=",ExpressionUUID->"4dcc315f-fd35-4af7-97d6-6aa8602e12d0"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{{{}, {{}, {}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWGuMXGUZHpo0QrsqMUXYmoLi7ux9O/f75T33YzIa0lDDpvzgUmhQKMqS
iiSYKTV46SYtVTRjlILiAoHQ1FEMkHYXQ1VMtygk1q0FBex46VRIRuWmxOw8
+70n7zt/Jl/O+Z7zfM97/d5PXHfrlhvWxGKxe8+LxVb+8RuiDRvbb12yv7uQ
Sa/8higdPn3LA63uwo4bV35DtHbPocrWvd2F77VWfkNk/+nI6Pb7uwtLx1d+
Q/TzfT+47+7Z7gLwhvl94A3TJw8/+ZPT3zZ4w7wfeMP0q/iDV/h3GLxhapaP
b5g9bPDi1LnykV8u7TZ4cbp9Ykvt9g8bvDj9++xju++9x+DFmT/wov3AG6Et
u559feRHBi9aA2+EvvGbA9vzNxi8EWrs/Oodo1sM3ghN0V1rHgwN3ii98frO
jx7IGrxR+u3PdjywbtLgjSq8UXrk7dapozsN3ii1rv3OZe/dZPDGaNOjXw5e
dgzeGL8PvDHmC7wx6l59Jrn0osEbY72BN05Hv3sqdvdzBm+cTh97ddcFJwze
OO8H3jhtvPzN6y551eCN0z3OBc3b1pxbxZvg/cCb4P3Am1B4E4rfBI091dt0
+ozhN0nr93YfvvK0wZtU/CbpCw/9eubQ4wZvkp6InfSOLhi8SbY38Kbo4E0v
ffPdpw3eFPsH8KLnwJvi7wEvWgNvmvkDb5r1Ad40XfWV9z8z8i+DN033nRoo
5z5wbhVvmn56/obDRy40+m2mHRetWXf2bYMXrYG3mb70+NpjT/zP4G1mvYC3
WeEl+Hn//cEE8+3DpxNSr0aC+eJ7Cf5eH66ZUOeJ1n24drQGnwT9+IsX/ued
9eeA10mwPuCX5DX4JVl/8EvSe72/dfefNPySzAf8ktL/mknWF/wifPBLUvGK
t/5w8B+GX1L6UyfJ+Q78UvT7Iw+tX3eX4Zfi+AG/lIzXRor3g1+K4xH8Usr/
U4pfSsVXiv0f/FIcr+CX5ufgl2Z7w3/S9Lnv7/3noW2GX5rPA35pmQ+aac6v
4Jdm/ft47bS0x/Hoe+CXVvGbUfbNSLx0hu0Nfhn2R/DLyPM2ozX4ZWT8tTPK
vhkZP50MPXfw4pt3X2TiI8vvg1+W/Qv8stKfG1neD35Zem3p0tfOv8z4X7QG
vyzHI/hlKfzru9+6/g3DL6v8L8v2BL+cit8cxxP45eil3MdGvI2r+aSR43gA
v5yMt2ZO5Y8cxwv4RfvBL6f0yyl+eeV/eZWv83TtB4/df/Zho1+elqZfecZ7
3tg3z/YDvzzrAX55tg/45ZV+eRUfebYX+BVYL/ArKP8rcP0AvwL3K+BXUPEb
PQe/Atd78CtwfwN+BY4n8Cso/YqsN/gVlX2Lsl40inTef4ev2j9q7FtU+bko
461VZL3Ar6jyc4QPfgovVmL/Ar+S4ldS/ldS+bnE/gN+JRlvrRKfH/xKrA/4
KbxO9H3wK3M8gl+ZPj4+deLilOFXZr3Ar6zqaVnFR1n6c6vM+Qj8yopfWcVv
mf0L/Cq8H/wqqj+qyH65UVH5ucL+CX4V7mfAryL7t3ZF9T8V5gN+FVU/qjLe
Bquqn6mq/Fdl+4FfVcZbs6ryS5X1Bb+q0q+q6ofCi9VU/aip+K3JetmoqfxX
U/1BTfpzK1qDX03ll5rKLzXOX+BX5zX41bmegl+d7xfgV+f7DPjVuf8Hvzr3
D+BXp21rv57uftboV1f3oTr7D/jVVb9LvL///gDJ+9ogyftDnPj7q+0D98er
cLzGeYjP18ebIeW/0ft9uFmS95kmyXw5R6q+R8/7ePNE+1584YXck6ZfitZ9
vEWS/cRxkv38Mql4Jdl/9Ujmq5gl/X/AUvnakv1e3FL9ocX3Pehn0d//mHzs
wF/Orupn0eGvXTO+53Kjn0XPXrr9jD9i9LPoh29efevCJqOfJe+XTYv1hH6W
zDcti/MH9FP82hbrA/0s1X9a0h7LluzPOpbSL3oO/WyOD+hnc/xCP1veD+O2
6v9tmU/JlvmjYUt+M9Ea+tmcr6CfLc/btOV552xp35Yt438+eg79bFmPFm32
H+inzrtsy/tVx5b3p56t6q/Da+jn0J3pfY/OXmP0c+jPjc9vO5Ew+jmcT5B/
HPrQR3bNDdaNfo6cVzSi/dBP4d3o8P2hjzcb7Yd+DlVONo9s/7TRT/FrORyf
0M+R86S2I/urRYfzB/RzZL1bdmT+7Djs/328nqPmTa7Kf67s3wZdPh/0c9W8
y5X1kqI19HNlvzDjqv7WlfVv1pX+3HRV/nNVfXdV/LrSHm1X5pdFl/b8Yus7
+Q1GP5fev/O2320tGf1cth/0c7l+QD9XxkfMU/nPk/E26Mn+Iu6p/saT90Hy
ZD5oeLL/mPHU/MST9X7Wk/OXpifnM3Oeur96cl4578n63PZU/fBU/+TJ+/qy
p/KfJ+dJPU/p58v51oCv7nO+zC9xX/VfvsQjn88H/XzZL8z4ap7l8/mhn6/6
DV/VD5/va9DPl/Vy3lfzAF/ad9FX8wFf2mM5wod+vrRHz1f9VcD2gX6BrOeD
gZzPxgPOH9AvWkO/gOMB+gU8n4V+0Rr6BdwfQb9A9lfNQPrLXKDqbyDjYz6Q
/tIO5P13MVDzwUDaYzmQ+aCjztsLOP9Cv1DOfwZCzp/QL5TxEQ9lPkiHct5O
obRHI5TxMROq+A3lPGA2VPOcUPrLXMj1E/qFqv6G6j4Wyn5jMVTz5FDOK5dD
eX/phHK+0AulPWKfYr7/BxN6Tss=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmHuMXHUVx4fGRmirElO0U1MasTv73s7svB87c+a+NSMhG0rYlD8At9vg
o2iXVCTBTKnBRzdpeWcMUgq4QCTUOogR0+5iqKLZpQqJdZv6ANIR3a2QrNpC
gZid7/zOzTnzz+Tm3vu9n9/3d37nnN/vszffOrpjVSQSueeSSGTlH78tlL/m
/J8P/WtpJpVc+YXXOydWflvobvuy+u5V52Z+2Fj5baGNV71z84bXl2bm51Z+
W6j3l8ubzpxdmoFeFx1/6HTkrpeMXhfND/31V+7vjF4XHXj15MnM80sdvS46
dMtrP3jvBaPXRcngha892jB6Mb4PvRjrQy9GF5ffWjp4yuiF96EXo51XrFqz
eMHoddOPv3H5/95de66j101vzF/5xqWbz3X0wmvohc9Dr5teOvTpr+694lxH
r4f9gF4P+wG9Hh4/9Hpo7f6lJ689Y/h66MyJ1/dc9orh66XRPS++2f240etl
v6DXq/R6efzQ66Xrv/3h1d3/MXp99Nyl648eu9yMt0/x9fF8Q69P6fWp+ehn
Huj109efeHnsyDNGr5/9h16/0uunenFu/eRRozdA1t+O9Yw/YvQG6HNHn//Z
mfuN3gA9GznlHp8xegO0dMPZxPyrRm9A6Q3y96A3qOJlkOMJeoMq/gZ5PNAb
ota1T/1mfq/RG6KbPnbikcUnjd6Qiuch5oVeeA29rTx/0NvK/NDbyvrQC+9D
byvPF/TiFPzjvfu+9Hbn+Wic46ktn4zz99rv1+IqnuI0SHeuOhx09Opx+nvt
K9tfiZvvx+lPx55Yu+bOjl4zTk9daJw+vsvwxGnT09/y/2J39Frh++BLUG3X
d27vGTV8CX4ffAn2F3wJ9gt8CeYHX0L5k6DV+46Utu03fAmeP/AlOH7Bl+D1
B75hGV/RYWrc9ODmi7cYvmEeP/iGOV7BF16Db1jFQ3gNvmGeH/CF1+AbVnxJ
md+iSRU/SV7P4Euq/J2U+aCe5HwIviTns7ZeU+nNJRVfktcT+FLsN/hSKn+l
aP3G5vkNBw1fiucLfCm6I3ng6ckbDV+KPv7JPVPRiuFLcTyBL0W/OPCjB+6a
NHxKrxV+D3xpNb9pVZ/SPD/gS9N/F3+y9567DV9a5oN6mnnBl+b1A740Hf3u
jX37rjJ8aeYHX1qtjwy/D74MfXjH7j9uKxi+DG1f/b3k0nWGL6P8y9BvY4ev
8W43fBn6/u/vHc/uMHwZjl/whc+DL8N+gi8j4zmSVf5lef2BLyvXWy2r6n1W
rd8sxzf4spwPwJdlfvBl2W/wZeV4Izn2B3w5VZ9ycry1nMwHEzlZ3+o5lV9y
cr01czJe5nJcP8CX4/kBX56vwZdXfHlZz2p5lZ/zan7zPJ/gyyv/8vT2m7s+
dW/a8OU5HsGXp/H7r9730zWGr8D3wVfg9Qe+Am374AsvL602fAX+HvjC98FX
kPHcKNBj79xw68wmw1egF68cP+t1G74C1wfwFXj+wVeU9ShapNv6R8u3fcLw
FZkXfEXO3+ArMi/4iqr+F2W+ahZV/Siq+S1yPgZfifMj+EpqfZS4nwFfSa3f
EuuDr6Tir6TWb4nXA/hKan5L9OWH9//7yHbDNyLjJTrC/oBvhJ8H34jMBxMj
Kv6UXmNExd+IWr/h++Ab4fwKvjJ/D3xl9gd8Zdn/1Mqc38FXluutXpb9RqMs
x9ssq/6lrPjKyr8K9yfgq3A+BF+F8yX4wufBV2G/wFfheANfRdajZkXll4rq
Xypqv0Dy+XXE4wMv0R9+vvPRNQOd92PE4+20DxxvHTlVD4nnq603RjwejI+Y
ry03SSqfkqz/U4qvQVQ6VT82/sWO3jRxP4l+iWQ+mCXZj80R+9/WWyDZn7WI
/W7rLZOKvyrHD/yrqnpXles/VuX+CP5VeX8M/6pyf1wLr+FflXngX1XyTVZV
PqjK/cRUVe13ld50+Dz8U3qzVe4P4V9V7h8WqtwPwr8q73/hXzge+Gep+LNk
/opacv8Vs3g9wz9L5meyeL3CP0v2g2MW13v4Z3G9gX8W3Tc29tzFDcY/S+a3
KaXXUHrTFscH/LNkvzar9OYsmQ8XLK6X8M/i/Ab/LK7P8M9mfvhnc32DfzZl
TtqjO95f7PgXXiP/2HRhd3riun8udvyz6eG3Nn9kdm6x45/N9R7+2TIfTNjM
09abtGX+q9syv03Z6vzBlv3etC33301bnr/M2mo/a8t4WbBl/9OyuR639ZZt
ma8ijty/r3NYH/45Mn/GHNX/O/L8gBzWh3+OWr+OOj9xZL2adNR+wZHjnXLU
/tCR+93pkBf+Kb5ZR50vONw/wj9HrreWI/uRZUedD7k8P/DPlfvDqMv5Af65
6vzMpQdOrytmPmryX/g8/HNlvIy57Cf8c+mbz6w+8ewHxj+Xz6vgX6gP/1y6
5P2u6w/2mPM5l17LfKbb3djJV9OuPO9qhvfhX3gf/rlyfhdcuX9uuVxv4Z+r
znM8eb6yzpPjjXryfCfmqfjzZP9Cnuzvah7vB+GfR905eujw+U4+mPA4f8E/
T66Puifz6ZQn62XDk+dt057qNz3Z/816Kv95sp4veDKftjwVf0ov4qv85zMv
/PPleVvMl/kg6cv+inxZz2s+jw/+hd+Df77sDyd91U/6XF/hn8/9Cvzz5f5l
2ud8D//C5+Gfr/zz5f51wVf73fB9+Oer+hHwffgXqH46kP1QLFD7z0DGMwWc
H+BfIPfrY4E8D5oIeD7hX6D2C4Hst6cCdT4R8P4Q/gVyf9cMr+FfIM9D5gK5
31wI5Py2Aq538C+gfb/e9m52vfHv89wv/B8kfCkO
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmHuMXHUVx6dNGqFdlJii3ZpCLN3Z9+48dt6vc19zr2YkZEMNk/IH4HYb
fBRlSIMkmCk1+OgmLS/JEqFUcYForHURI6bdJQFFs9sqJNZtqgikq3Gn0rhq
kSIxO9/5nZtz5p/JL/fe7/3c7zm/8zu/3ydvv3N89/pIJPLgukhk7R+/HXTo
tdOn0y+05saSa78dtHX7xdu3vNma2zO59gvHj0+v/XbQzV/74Ibef7XmFhfW
fjtofN9Lb/d+vzUHvR6y3zjRN/Gk0QvH0Ovh90Gvhy6v/q11+IzR66Hbrnrl
yZVnjF6UksGLX3pq2uhF6ctPv1o/9iOjF+X7oRelxZE//9L7jdGLUvDX9x7+
3DtGr5fH0OulH3zl6v/8d9OFjl4vvbV47VtXXHehoxfeD71e+nHkjHdyzuj1
0ZE7Xv/2ey8avT72A3p91CwsbG4cN3x9/P3Q62N/oNev9Prp5GNnI/e/bPT6
1ff20/XHX/jpuUeMXj/dmzz0XONWozdAH/7ovqnuitEboG/99qGJzG6jN0DL
Nz37q8X9Rm+Apm/7znWX7zB6A/SHE09v2nif0Rvk90NvkH4dPXpj9R6jN0gv
XTtxvtpr9MIx9Abpg3vv+v3OvNEbom3PfdX/k2P0wjH0hpTeEH3+uwf/cWyX
0RtS/g1z/KE3zPkFvWHavHX20pbDRm9Y+ReOoTfC+Qa9EXrAubJ513qTL+F1
6I3Qv1d+uP/BB4xeOIbeKPsNvVE6/o1bBw5sN3yjlD7tjO9+f6WjN0rFM80T
E58xeqMcH+jF+Hr7/u4Yx78tn4zJfKvFOH54X4zzrS3XjHF+4/0xOvfKm/uu
PNXRmw3H4ImxX2295ZiaH3HWB1+cecAXV3xxle/hdfDFVT2K8/vAF6f+X6xu
O3fe8IXXwRfnegK+hOJL0IYDx4o7Dxq+hIxnLaHqWXg/+BI8X8CX4HiDL8H5
B76E4kvI740k2Q/wJal1y/n44msmf5L8PvAlOf/Bl5TxaCZpzzXrN668a/iS
XJ/aerNJ5gVfkr8ffEovMibzv3tM6iXHZL7Uxthv8I1xPME3pviU3mz4PPhC
ffCNsT/gS3F+gi/F8wd8Ka7X4Esp/1JqfqQod+OlPx75u+FLMT/4wuvgS8n6
s5xiXvClOV/Bl+b1FXxpevRsVyH9oQsdvjSte7/n5sN9pv6k6eUjH//i/msu
dPjCMfjCMfjS7C/40rKeLYfXwZehTQdbz9x0zvBl+Dr4Mvw8+DKqf8jw94Ev
w/6CL8P5BL4Mxw98GeVfhv0FX1bxZVX+ZVV8s/TzQ088en/D8GVpmO5bfzQw
fFn63c/2PLVxyPBlqTdLjx29tNLhy6p6nOX5DL6smr85NX9zMl+SOZkvtRz3
G+DLye9t5mS+TOe4fwFfjp6/YvPxE1d34rGQo39ObH9i4XoT35yMRyTP+Qa+
PF8HX571wZdnffCFz4Mvz/kNvrxc72bzqv/Jy35pOa/6v4KqzwUV34Ksp7WC
qs/h/eArqP6zwPkFvoKqLwVVnwuqPyjK/q67SLW9X7+nb9zwFemsO3Lx1Bsr
Hb4ieZP+Vf3rDF9R9kPNIt09OF6++yOGr0i7Nnwz2fqs4SvKer9QpGffnT57
cq/hK9Jfal/YdSpm+Er8PPhKqv6VeP0CX0n11yW1fpR4foKvxPEGX0n13yWe
n+ArqfpXlut5d1nlX5njCb6y4itzfwi+Mn3v4i13zm0zfGXur8BXVv1omR6u
15+/vMXwlZV/Fe5HwVdR8a0o/yqcD+CryH68WVH9Z0XVv4raX4Vj8FXYT/AR
vZ7+RK+3tTM/u8IxeEnO1yjxfO60D3J/RCT7pxrx+tPWq5NaH4m/ty3XIBnf
Jsn6O0XcT+D7ifOzrTdDXI/RLxH739abD8fwh9jftt4SqflAnO9tvVVS+xlL
zqcui/tD+Gdx/YJ/Fuc//LNkvSKL8wf+WXL+1S3JN2lxfsM/S/WTllxvpsLn
4Z/FfsE/i/dH8M/ifIN/lqq/luz3l8Lvh38Wzx/4Z9HEIzcc+MlG459NO//3
6VdbG4x/Nl+Hf+F1+Gfz/IF/Nq+38M/megj/bDn/6jbHE/7Zsr9u2LwfhX82
fx/8s9X+wZb9xYzN+Qr/bBmPeVv1xzb3E/DPVuuZLfcTq7baDzrsB/xzVL12
eD8I/xy1X3Y4P+CfI/lqjlyf6o6qT448/2k4XF/hn6P8c2Q/M+3I+jTjqH7Y
kf3GfHgd/jmyn14K74d/Dteftt6qI+MbcTlf4Z/L5xvwz5X5EnU5HvDPVf65
8vyj5sr+o+6q+ucyD/xz5XlE05Xr15Qr9yPTrjw/mXG5HsE/V9aXeZfzDf65
sp4uubJeLbtcL+CfK+tBxFP+eWo99uT6HfXU+ZQn91vkyfO8mif7/brSm/RU
/nmcX/BP8U157Cf88+R+csZT/Ygn16N5T53nefI8bclT/bwn47Hqyf1CpCrz
pauq+oUqz2/4V5X9SLLK/Qr8C8fwryrrfb3KPPBP6TWqXP/hX/g8/Kuq9bcq
+6mZquqHq7LfmK+q+VuV9WCpqtZfxbdalet5xJfrW5fP55Xwz5fxiPoyn5O+
7MfJ5/oG/3zJV/c5X+GfL/cTDV+eDzV9NX992R9M+7KezoQ88M+X/ca8+t4F
X/b7Sz698/bejz2UMv75yr/QH/gXqPUjUOcdAd8P/wJeb+Ff+Dz8C9R5UiDP
d+qBrPeTgZxvjUDtVwN53jAVcH7Bv0Ce980Eyr9Arb+BOl8N1PwNZD4vBzK+
q4Fc3yKf4vX6/9rxNK8=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[{LineBox[CompressedData["
1:eJxdmGlsVFUUx4dGPrAZY0AZIkGhnenemXmzr+ctFUxGgwSME/gAyBJcijIG
kYgZwKBCExBUUoIUFAsEAsEqRgydmoCoaUEhEYt1IciIdhCSqiAoMZ0z97yc
8740k/fe//3u/9yz3D4wf+mMhRUOh8Ma5nAM/cWrEsZO6Lw+flMx79eGrkpo
X3J2/c2jxfziRUNXJUyYfG3++AvF/La2oasS2ua9PenWkmK+t2foqoQGWFWx
a1oxj3pVsPdG2/muFqVXRc+jXhU8u/uLzKEDSq8Keht//LT5S6VXRd9HPReM
2lDcM7Nf6bkgF+sZmz2s9Fxw0HGuuSuv9Fykj3ouWKlt3Jedq/TcUJi59/Pe
1UrPDTOWf3bR/Z7Sc9P3UM8NXVvPO9YcV3puKM655O09o/Sq6fuoZ/9GvWqo
+WRwYv8lpVcNi8dVjBy4ofSq4fGXbz/i/lPp1ZDfqFcj1lsDfw3sX/3GOqVX
A9q0o8/sbFN6NRRP1Kul9aFerYhvLemjXq1Yby3FB/Xq6H3UqyM/Ua8Ohq89
FJ+1QenVgfHTseoFO5ReHcwbc2LHwB6lV0/xQr168hf16mHarze3PHFV6dXD
+8/d9fc/o66U9erJX9RrEP41UDxRrwHWmSNyyyqulPUaBF+D8K9R5EejiEej
2H+NtD7Ua4Qph4980P+m0msS+dEk9l8TbDxz+nTwiNJrgte/2rwgtFDpNcHt
lcu+mRVVeh6YuO/FqT+Y5eed9u+SvOaBw6/OrV07ufx+2kP7B7/nofWX5HIe
sb88FO+SXKdHrM9+v6RX8ED/iQvLR5xSfF76jXxeihfyeSneyOcV+eMlv5HP
K/zx0n5FPvt7yOeFW4OXi5vOKT4v7Tfk81F8kc9HfiOfj+dX2if88/H45nzk
B/L5iBf5fGK/+YgX+Xx8vQ6N/EY+jfhw/2jw2/fe/Zt/GSjzadC8aOqYmmGK
T4OrF1vu2RxQfPb7yKcRT0mvUxN8Gs/vgkbxQT6/4PPDxxvfeWtNVvH5yR/k
85MfyOcX/vmFf7Y+8vkpX5BP6BX8EJl+/bv23xVfgNdzZ0DUrwDfL+kAxRv5
ArR/kC8g+mGA6hHy2d9DvgCvP4WAqKdB+o18QeJHvqDgs59HvqDwT+i1BWk9
yBcU/SLI61khKPpbiK/XGSK/kS9E+wH5QiJ/QzzfciHSR74Q+Yt8Iar3yBfi
6y2EeDwcYTjp2jX9wRWKL0z1D/nC1I+QL0x+IV+Y1/uc0GsLw7vX5izNT1R8
Ybjz7uWtzpTiC0O65ZUV1TMUXxji53LHFjys+CJU75EvwvNNi/B6mrZ/I19E
1OeImCcivL93Rig+yBch/5HPvo98UaqfyBel/YB8URHfKH0f+ez3kS8q6rPQ
64yK+hwV8Y2K+hzj/cgZ4/tZi4n6EhP9NCbyI0b1DPliNL8iX4zqF/LF4Of0
U7NPeRRfDLZkMh/eGq/44ryeOuPw7bHdo0auUnxx2k/IFxfzcBxmD39NKz6m
+OKi/9r3kS9O+xX54qL/xkV8EyK+CfIb+RKivyXEfJjg9T6XEPNdgvIZ+RK8
n/ckRHwTov4l+X52JsW8leTng3SS9/NFSV6vckmar5EvKepzUtSXJNVb5EuK
+pLies4UHG+/9+nV48p6WormSeSz7yNfir6PfCkxf6Zo/ke+FPmPfCkej0JK
zM/A83M0UDyRF3j+u4D8LI8PfF4DoHjgegBeODD8xMH/ynoZoPXg+oD8K8ll
gfodrhd4P2wFUf+B4lHS67Cfx3kJ+P7rBuEPULxKen1ivQX7/ZLeIIj6olO+
oX865S/6p8OT2zf8cWi28k+neoH+2e+jf7qoRzqfLzO66I86j0dW5/mR06n+
oH86uMOwddf1gbJ/OvUn9M++j/7p/PzbrYvzhODr08W8p1P9Qf90+PqjxTtH
1iv/DOp/6J8h6rXB52WXQfUP/TN4fwODz3dpg59PM4bojwaPb9bg58GcwfdL
qyH6k8HPmx3299A/g++XboPnR4/Bz6d9BvmJ/tnrQ/8MMT+b/Lw92hT10OT5
4TL5vKSZ/P8HYIr8Nfn8ljFFfzT5PJI1qf+hfyY/D7Sa5Cf6Z/J5qsOk/oD1
zKT5B/0z+Xm0x6TzCvpnUn9F/0zabyW9QaHnsChf0T+L+NE/i+ebyxL9zxL+
WeI8avHzTcYS/ll8Hs5a1O/RP0v4Z/F+3Gbx+bvD4v9P6rT4fNVtifnJ4vnW
Z5H/6J9F/qJ/FrQ+et9D/54cKPvXDNsvT7qju6d8fhzdTPfRv2ZomTLu7PNd
5efvb4b1vau2vNQ+kP8fzNUCmg==
              "]], LineBox[CompressedData["
1:eJxdk3tIU1Ecx4ewiGkFYeWEChOm2ANlaVpiP7LzKFbIyGCsPzQ2paIVTcSs
kbbo5cjSHixKHUklK5bYA4S1JEqRTdMgMhMD06hdNIrYH1a0dc65l+0Hl8vh
XD738Pl+T8b+I0Zrkkql2hV9Yu/JE3P+SAmCiyFH68n2cEAVG0CQ27/gi9Ub
DoSC0TEgWOEp/jjxIxy46Y6OCcHX8Txvy+dwoLoqNggWL611abdKgY366NgR
1Oubu+wVEuM1IJjZc/91qFFiPBcCs/q8XtorMZ4bQavJ9Hg+TWK8uwgsV3c7
H2k4ryeB9wLBJ8Mh81Au5wUR/K0/NlK+mfPGlO//82YQ9Os8ZbiO834iaB4d
Hi54ynkqDNK+6bzQKOelYGjYEky1d3OeFkNRWeR9+zfO02FQO33F5U2cp8eg
p72HO9ycBxjePKnu0KzjPAOGuSnb8pZ8zjNhKP+zc0BSc14VhpVdx8lEqfCH
IasQbngiPI8GDLbMZW9rnvM8XBg+bN/wfWiS5+HG0LfKMo2zhD+Fz/xh2Rfz
h8HRm3ap8CXnBXF8vmMYCoZLjdbfPN8ZLOfN/GFYqCnKSJ/l51MRGHyYk588
znkpBLynMgPOEc7Tkvg8dMqa+SPwK+xtvHJW+COyT+ZP2Wf+CBy81TTrMwt/
BJ4137522i78kYT+kfi+uAh0n6vIca4R/VP2mT9lzfwRub/Mn8Jn/ojcB+aP
wHpwJHmo6B+R82H+lP8zfxRq1hpLapaI/tH4vmhpPE9H4cJgi2WTVfij8M7f
maxxCH80wR+NP5+JgsF2pi7bKPwl8OxUvi/MHwV35fXV8weEP+V75k/ZZ/4o
pKb3RNIuC39Uvk/MH4XKRa/awveEPwrbJv3ZljbhT9ln/igc7Rww+R4IfxSM
tX1TWXeEvx3yff4HTWhO5Q==
              "]]},
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[{LineBox[CompressedData["
1:eJxdmHuMXHUVx4cmjdIuvlKEbVINbXdm352ZO+/nmXvn3pk/RkI21Lgpf/DY
luCjIEsqEqvTrkGlmxR5SMYIdQUKBKTWSTBA2imGopLdNmBi3bqAhHQ0zgIN
q5aHotn5zu/cnDP/TG7uvd/7+X1/53fO+f2uuP7miZ1rAoHA/osCgdV//LbS
LY/8fvLIU8utmLX6869v3LX620qHbvrjXR8+t9z6aWP1t5Xq2fkN00eXWwvz
q7+tlL7qwp8P/WO5Bb0BGnp2ZdPSOaM3QF/57sdXhv5p9Aboo5W/L999xugN
0PI15yILrxq9AVo7cyS3/YDRC9J1l5x8qPOY0QvSxs3nr7/8TaMX5O9DL8j6
0AtS9W8f3nvDu0YvROsPLD929ZLRCym+kBpvSI03RAdfPX068YzRG6QtR5/5
9dJ9Rm+QFsZff979g9EbZH7oDdJvDj54//5pozdIGzY2L1x+t9EbosZ1P/ni
RzcZvSEKpeiBuQudnt4QfXJd+oqN73R6ekN028hE4bZPG70hevJ7W1ozr3R6
esN0tjx+/tQbnZ7eMF02l1t67T2j519Db5h+cf6am1ubjN4wvfCFqXNeyPCN
0F9rX9txKmz4RmiM9q6Zq5rxjtBXf3bgnSM7zHhH6FOf2zPbXzR6I+Tuqlwy
dJHRG6Wp+66c+dU6ozfKz0NvlD6+49ZXtmeM3ij9Ljh3lXe70RulH718z1Ry
p9Ebo01PfLvymmP0/GvojSm+McqdqR+b+pLRG+PxQW+c/YDeOL8PvXGef+iN
8/xBb5znH3rbOH6gt43jDXr+fehtU/G8jeMXemE6/sDZwP4Xe8/3h3k9deWt
MMdj9/1amNcLvhembz219uTT/+3p1f3n8X2l1wwzH3jCkr8d5vUPvgjnE/BF
WB98EX4ffBF6OnDGPd4yfP774IvI8Tb858EXIav63Dd+3jB8EV5f4ItQ++rH
X1rYZ/iiPN/gi9K7b+3+/D1xwxfl+ANflOMFfFGOD/BFKXHamdj5H7Oeorw+
wRdV68H/HviinB/AZ8l47bf4+4gfi3as/aG1/GXDZ/H6AJ8l10fdUvFqcX7r
6jUtNb+Wml//Gnwxmd/6Yzwf4IvR0sk391x8yvDFOD7AF5P5uR6jGy9ds67z
vuGLyXrSjHE8gC9Gj7/fOHt8t+GLkf3GscGphwxfnP0AX1yO14rTHdbBJ6av
NXxxVf/i9K/Ok/t+fKfhi6v84d8HX5wm9rzwVuhhwxdnP8Hnfx98CfYLfAlV
PxOyPtYSKl/498GX4PwAvgT7Dz5fH3wJWU/bSi+QlPmoP8n5CHxJqVdLqvqc
lPmqnlT1338efEnVD/jX4POfB1+K/Qdfitc/+FJyPmoplV9SMj/XU/w98KU4
PsGX4vwJvpTiS6n+Jc3xCL405z/wpfn74EtzfgJfWsVfmscHvjSPD3xp9gd8
/n3wpTkewJeR/VN/RsVfhucPfBlVPzK8XsGn9BoZjlfwZWQ9ms/IfNDO0P1n
+7KJT7zd48vSo9/8zL8/WP92j8+/Bl+W+zfwZZkHfFkZL/Usjx98WdkPNrMy
X81n1frNqvqWY33w5WQ8WzlZv2s5lf9y9N7U5gfnt/TGW8/Ri4cu+/q+S3vj
beTkeJs5Hh/4lF47x36AL6/qb17FX17llzzXV/DllX95Od5GXtWPvKzn83m5
3tp5FX8F5V9B8RXkeqsV+H3wFdhf8BXU+i3Qnc7F9VvXGP8Kqr4V1Pz63wdf
kdc/+IrMA74i+wW+ItdX8BVlP1kvynrUKMp81Syq/kXptYuqnyQZX33E6x28
JPNJkHi+eu2D7K/Ifx7jIfrTsUfWr9vb05skzmcYn/98V26auB5jvMT5sKs3
S7LeNUjulw4TxwP6JeL47+qdIJXfSM73Isn4bRPPX1dvxb8P/0oy/vtKzAv/
SrLfC5Z4fPCvJPs1KnG/Bf/8+/DPv4Z/Jc7v8K8k95f1kux3ZkvsN/wrcTzA
vxKPD/6VZL92oqTiX/EtltR68P2AfyXVP9tyvffZkq/flnxBW/brli3XG9mq
Xtuy3k3aqj+zOf/BP1vlA5v3N/DP5nwA/2zOt/DPfx7+2Sr+bFkP521ZTxZt
1Q+o8a7YKv85Uq/PUfXYYR7458h+xHLk+Qs5PD7458j93KSj+keH13NXb9qR
/Uvd4f0T/HNU/+Hwfhf+OXwegHzm8H4H/jlq/+M/D/8cuV9vO5x/unor/vfh
X1ny9ZVVv1WW9SdYlv2wVVb5r6z6sbLMV5Nlld/LvH7gX5lqu79/++CE8a8s
z3tmy5w/4F9Z+VdW9cD/HvxTfPOKb7HM8Q//ytwPwL+yOr9y2S/458p47nc5
3uCfK/UsV8Wfq/xz5X5z0pX78V2unI9pV+aruivr66zL9Qv+ubIfPezK+tx0
5f7yhKv6O1ee9y26ar/ryv56xVX1w1Pr11P9gif7s6Cn+gdP9lfkqX7Wk/ul
SU+dL3pq/XqSr+7J88tZT/nnyfVx2H8f/nkyXk54qn/35H5z0b+Gf56c3xWP
/YR/FVkv+ypcb+FfhWZ+u/2D5AbjX4Ve/uVwfP1fzHmmfx/+VWR+qfnX8K+i
zm8qfL4J/yp8ngL/Knw+A/8qfF4A/ypcv+FfRZ6nN/3n4Z//PPyr8PqHfxU+
T4J/FXmeuVKR+SVQ5fNU+Ffl9+FflY7+4Nrhmc3Gvyr7Bf+q9NnG/255fa7T
2r76i1fproW9937nUKf1f7sD+E8=
              "]], 
             LineBox[{{48.51315789473684, -0.8632185822192906}, {
              48.6, -0.8728151940234179}, {48.7, -0.8861922892655347}, {
              48.800000000000004`, -0.8850290635923073}, {
              48.900000000000006`, -0.8873555149387623}, {
              49., -0.890845191958445}, {49.1, -0.8902635791218312}, {
              49.2, -0.890845191958445}, {
              49.300000000000004`, -0.8937532561415139}, {
              49.400000000000006`, -0.8920084176316726}, {
              49.5, -0.8984061588344241}, {49.6, -0.9042222872005619}, {
              49.7, -0.9094568027300859}, {
              49.800000000000004`, -0.9030590615273343}, {
              49.900000000000006`, -0.8989877716710379}, {
              50., -0.8920084176316726}}]},
            FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
          {RGBColor[0, 0, 1], PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6],
            Dashing[{Small, Small}], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdlnlczXn7xsM8emTN0siaaN9OndPe6VxnP9LPGiPmQTGhesQ0JoxGjUhK
tO+7UhgkGctIYZhSCcPIzrQZURhkf/Lkvuf1/L7/9Dqvc7q+1/2+rvvz/U7w
DZr5VW8tLa24XlpaH//2XJPQHNhr1NBd7SdFwo/XJFz73UByq6j95FK/j9ck
aA/LNx7R/X162sdrEjakLzGZ1f25rvbjNQlLurp23CluP9mjZwTb8x+0/1FM
ekYYdKiruqiE9Ixwe1yHlwHrGWFxSKtBahHpGeG9T2msEesZIyv4szt7SkjP
GKpc/8n1xaRnjKqt/cfqFJOeMW68/OprE/ZnjPFjx5WIdpGeCarOLho4mOc1
wbJacZITz2uCnC9HPBlSRHomWK5oWy3bSXom+KZ1+v7fCkjPFOdDZhS+LyQ9
U4wwsLo/q5D0TNEolVdFFZKeKev36JniussH3RuFpGeGomt/qXeznhk6p5yU
l7CeGf++R88MfzwVeq9lf2YIP1ljdiKf9Mwx98zlYv0C0jOH7oar7qfySc8c
t0ds+eV+PumZI2CfTtfjfNIzR/moOIWE57WA3YYP14axPwu0qbfW6e8kPQtY
ZQxOri8gPQuYRM2susd6FgjOT7SJzyU9S2irdkTezCM9Swi+TZ18NZf0LOHv
q1P9Lof0LOG7+0r4wjzSs0TgH6OdlTyvFer1Ni3rtZP0rFASYtr/xwLSs8Ib
26oxHezPCvMffhk9tID0rDi/Hj1reFk2Jf7Cetb/Lw9riHefsM3kvnR/bhlq
mFdIeta4HppaGruT9GxgNF4gsWc9G2jXNxddYn82WGxnkTeb/dkg8mLk+xL2
ZwMPm2d1TTyvAI8z70qP0e/1BdhdFvqmtPv7/8oLBViyqMvuHfH3FCChpNfa
eM5fwPz/KxcmQIaPQ6Ugj+4vQOnXL568z/2kVybAqOJVPx3PIT8CHLUNapuS
80mvRYASu8Bof87XFutnbToXTvnp2+LtqEvWXqQntMW9Q8e3NOeSP1s8NPtC
0MD52+JRjH2f+hzyZ4uTx69mybLJny2GBFloXc0mf7aYe8jU34r92aJ2+k9r
QrLJX/f3naHz7LLJnx36XPcwyiM9fTsYTpoxaHYO+bNDePENV0PS87RD06yO
KW2k52eHQ7rm5b3Ynx0kR0SqAPZnB8v44r5xpFdmh415KTHB7M8Oep6/JwTS
vC12uKpasqOE+QlxVu0j/JXy0BfCKOX6eEk+9UeI0YaSNV6crxA6JSvmXWd+
QjxP2Wc6gPMVYuyF12mHeJ+EKP9hR8uXWZ/0yoSYMWGe0asM8ieE8c8wLMki
f0IkRdff0NC8WiKY2dQIE3LJnwjHW+PSHuSSPxEEoTe7IjhfEe4bGR4D9cVP
BE250UBPmjdMhLqLv7ZVkF6aCL19cxUppFcmQtPn6fP/YH4iBE8symmkPreI
YFqxuLcT74c97h7/4JjI/uy5nz3+7DHR23fanmzyZ48hB8/kRNG8fvYYMK2l
Npr6EmaP3FdGv0UwP3uoI+d+t5P92cM/e+HR3uzPHm37o4IcuX/2WD526uTj
meTPARkNa3XfpZM/B+yd7GETkkn+HHB23bTE7ZnkzwGbV9/cUZtJ/hwgmjHh
3a0s8ucATy/vhqncPwfgkTKyivN1gMvi2xdraN5aB3Q53H84iPfXAakHv6iQ
cr6O8DE7ozuS99cR12xW5w8iPaEj71OPP0e0NaUf2Mb8HPFML+vIGebnCO0K
l2UtzM+R+fb4c8TTe9EhK5ifI9ov1OeHMz9HVK4Rv49lf07IW6yZY8v764SB
53b8mMT8nCBbsPfIGObnBBvbm9UJ7M8JtyLO6+2nPMKc0KTdMeZlBvlzgtn4
8c+LSK/MCUstru4aSXq1TigX/+Y3Kp38OeFXg3N9penkzxnBqgdVh9LInzMC
PozauyqN/Dlj5zrj1+J08ueMuxM/NJaSnp8zoqvOr7ZJJX/OePRmjVc66aU5
Y9a5iym7Sa/MGY03BWdWkF6tM5TfP3noR31pcUbp8u2+Vdw/F6y9+6Y8JZP8
ueDUPB0fJfNzwbxLHifa2J8LIhc8yrdNI38uCKjpFzCa5g1zQbX+xi/iqc9p
Lgj6c2r2V+nkzwU3JYNTAtPInwumKPbF+TI/Fyy0br7ryPxcEfSHTsdh3g9X
zIpev6uQ9ISuqGzs6nxHep6uuHBH8m5bKvlzxS6D7MCOFPLnCneTNSmOqeTP
lfn2+HPF/kWmlzemkj9XbBYY6G6leVtc0bA0aUwE+3PDnumxt42YnxuGD1p4
+hrzc0Nd1djdl7h/f3/f488N3kbbM7bw/rphTVBShBvvrxuilnrZBfH+umF6
u6Ypn/vnhk1HVgvCMsifG0rvOcvPsz8xbjqdbz3B/RPDXLHp5RCaVyhGaZLz
8Osp5E+MR4F3Nj1PIX9i6FmG6yVy/8Q42Ro2bT73T4wl618WmnG+Ygx/XxbR
zvy67//dkshVlEeLGFdEyausSU/LHY8EW5M6KQ99d5w4WnaijPfDHa+8PpPU
cP/c8STzwksL5ueO49PiXLUzyJ87HqSmh2dy/9wRIDs0xYjzdUfDtTf/d4f9
ucNHX/+yBfNzx+pzr23fkp6WBG90A3L0OF8J8+zxJ0HY/YGeqdw/CS6saDxv
x/srQda3TzbuY34SmIx9O3wk90+C2r/6909PIX8SLBveejSU/Unwp3JOwVvK
o0UCTeYwiSHzA17sXd4eRb8fAByvfBnoy3kD3ttixUX0/8bAkjfN9vdT6P0G
6Dd4ypjlyZ/0AATpvZr2fRLNAxhienh48ic9byDi8MzpT5JpPqBi4lXJotRP
esHA85XD30ak0bxA1ntVwU7KLwYI6LtwvgH3Bxh/a9W+jeSvCFDf2Xv7SjK9
LwEn/ILuDKP9rQRuN2/uN476WgsUPoyxSCOejYDo4M0OT+4bUHPWfe1TmvcZ
4KrVccid+Ukxd27o22nMT4qyn0+9uJRC/KRY4O9y0Y3231iKCwV/DohKI35S
fO21ymAozQspFEcmvr2ZTPykuGVqUHIxifhJ0ZockjeQ+UnhmFgys08S8ZPi
XUpMYkcc8ZPiwDunwy/jiJ8UMYaRy7LjiZ8U8a5b2p0TiJ8UhZ873ipNIH5S
zJkw+YZ/IvGT4rujPlFDKN9aKSL8Z07QSiR+3fe7GPvZHfLXIkXNOnePXuTv
Wfc8E26+MqS+aMlQYO+/7g3NO0DG50sPPxlijkWeDaM8jGUQW/+sauH+yeDU
+NUlJeUBGU7LRwfvpjw8ZViUqr24ifS8u+93ps/kXD7fZf/b5+C/9Xv4yaDt
u/31P2k/Y2TwqLnbUE35pslw+fvgyh00b5EMvsrTEQrun4zz6+Eng+UT6K9i
fjIkjxSFNTA/GYaF5g8vZH4yXLk3IyGW+cngtiYtScP85PjLYu56GfOTY5Tb
6P5PSU9fjvwN6up/JRE/OZJ31U1dnUznjxwPPNNn7qF5IcdnZQe69Pk8l+Nt
hXHVt7Rv3nI+L3r4ydG/wmzcXDofg+UQhZ7f94LPK/n/ni8xcji0PhIUMD85
LrteN7jF+yuH86CQYZl8nsnx0/i86gaat1KO3WqTaW28v3KMnKXzKob3V47r
Ue3N9XzeydF37OV1Z5M+6T2TY/mvLVtjKA8tBQS6mz2PUx4DFBg5b2qxK/dP
gclJF7YHc/8UeJKwbNlj8idUoMVId+VB5tf9+4HrVoby/ioQ2mo9+gjl4a3A
qq5fDoriiZ8C1pcHrjeJJ34K7JDVZrTFEz8FvJbcXzcugfgp0O7/c6FfAvFT
4OD3HsaSROKnQJ6HwxZtyrdMAb2dFi+zmJ8CK1N0Kn9hfgro1JauL6c8GhUY
/So8wJ37p8A7m21PL9K8zxRAXUe/B8xPif139Ba7cf+UePhq9jf96bzSV8LK
eOa8c+TPWImt6we/aE8kfkoc7bXCMjKB+Cn5/Onhp8TKmi6DbXReeSsRmGmx
vZn5KVEZEWd3gfkp0ShuP3yLzqswJUJ0NkZOYH5KVEm74kdTHmlKSDxvp+Xx
+adEm1x4+t8JxE+JoNgCwRbyV6nExCOvfaITiZ8SuafuLtPl/VXCOuVItCHp
tSjhp//PqCzSe6bEiNYzyTOYnwrpfZZ9fYb7p4K9eWTDHHpe6qsw+8D9ksGU
h7EKln++XX6K+ixUIbrUwFFO80KFoc89n+8jf54qOFUfS/Dm/qnQfNerM4jy
8FPhofXSch/KI1iF7IwvNo9kfiqEeQx8XM78/r5fDz8VMr6pLxjP/VOh4rZ+
5VjyV6bi/evhp8KKseIPlnz+qVDXtKj2R+pzowqyw1pjplK+LSoc2BR75RHz
U6F98ZoXP1EeWmoIfmgP1aN5B6iRuHz29/eoL/pq1Netuj10B/FTo2zSqdTO
OOKnhuTzurlTmJ8aKbqdDRP4/UWNMfa/z5fz81cN9fCK8Zb8/FUjZJT12YG0
H8FqzFRVmizm54caoXsazctIL0YNP7Oyc1F8/qmx8UTyhxx+fqjhEz5y9WTm
p4bikUgs5P3t9n+6b1E4768aNUqrfnvIX6Makf02N/Vmfmp45ToGTKT9eKbG
VsHgc2/o/UBLA1V654IEyneABgErFrwTUx76GhgM3djRyP3ToHhr5eMMfn5o
sG/FAdt7fP5pMOwfXcIMfv5qcExlvrea3/80GBjQLDlCzyM/DX7QEuTMonmD
NYjcmuLlwf3TwLVT/u1MyjdGgy3q94eSad40DQI7gv69ifSKNLh2uVpky+df
9/0rfou5zO8vGjye3Zkyj/dXgzlz5o2p4v5p0L/8VOwo6nOLhs+bHn4ahK+5
vuFf3L/J6C8euW9I9/3+AywuG70=
             "]],
            FontSize->24]}}, {{}, {}}}}, {{{}, {{}, {}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmHlYzdkfx1vIUmOJQWSIVu33tm/3ffeLUBSyM0qJDJFdURND0wghywyD
ylKGTJaxRIofJWlEWiRp16Jd24/f93PyPL/7j+c+5dXrvL/ne877HJ1la2Z6
qygpKUUpKyl9/Zf76GJCeXjbuQ11Aiv+148uRrzSmBCXUytY4fP1o4vImpsj
B82tFxyL+frRRc9gB1Gh5ydBZsbXjy72Lp738m7IJwHH00PsgNTo9KWfiKeH
Gburfjc//Il4erj1p+miHlET8fSw+pLFnvL6JuLpIT7s1N2g/Cbi6SPVbEDw
jttNxNPv/TnH04dHuM/2xXbNxNNH0/pHNn1uNhNPH89dQj23L2omngGMpJ+V
D81sJp4Bprb+YXo8rJl4BnDvbPDzPN5CPAO8uGdTcN21hXgG0LqoPmrfsBbi
GWLgyMZ9GpMZzxAFHjm/qG1gfoZ4Ym+plSpn4zWEKOCy41IpG68hEg8k7VY6
3Ug8I7zJHcgbep/lZwRXVdfKy6tZfkZIc/jb4eC5BuIZwUt7t+uOu/XEM8I8
x7mb/7atI94kBFVc9FWZVUu8SThyxMf74ZQ64k3CKPu6rRcUjDcJATcKxJ15
DcSbhLyccaoZ4czPGPYlOaNLnjYSzxgDRxfdcg9l4zXGgZL1fgFT2fMwxurz
Uq8/k9nzMIa0ZuPB2e3seZigZLbDka3uLcQzwZ2x6rsv324hngn2/bv0VOnP
7HmYIPh+57FT59nzMEH6+bI4M5tW4pnC+E5NR3dUG/FMoa1fCcdf24hnimcm
yk5FSp+JZ4rdLsLstJ7PxDNFy/u2M39M7iCeGcJu/TlG9uoz8cx6f5/jmaFx
mXSs93zGM8Pfqq4qQwd1EM8Mbh/nBXds/Ew8c3yc1/+q90DGM4eksDi+82U7
8cxhmWa0orukjXjmiNvUpLLsUyvxzJGRaFda4dpGPAu4t6s5Dlnayv2+lgXS
L2XnBv7UIvgfnm8Ba8/1rw80Uf6uFhjLi+6cEcTmuwVMMkLL5v5N71uIRe/8
5P6+Be4aXRc9PNfI8ZIs0Lnnr4WjGtn7b4Hid7wMT1ean2UWaAldpLOooIH8
LNHeryu3sM8n8rOEt4nyxO1LGsjPEl1Ra6vKT9P8dbXEKofhNWr69eRniTm3
zn7aMrmW/Cwh0nGYJPKtIT9LtN3anXbXoIr8LKHxIWX8gk1l5GeJpuebzAPH
lpCfJax5Ozx4F/PJj4dNfMnnmytyyI+HpIQn13x/ySA/HrK6Atxurr1Pfjwc
NkhZn//sKvnxcClxwMKNupPJj4czsWdvXOZfu8f58ZB2ddCAgEX37nF+PIx6
NzN8+NAH9zg/HmKHX3K/nv30HufHw+U9ghkLtbPvcX58eAYXBirXZnM8LT4W
qrT1u3Lj33vc/OFD62juzFHFLzmeKx9Ft7d+FP+Ty/F8+Dic9rl5vvobjhfC
Rxm/Kq3oRAH58fFktrsgRruY4yXx4fG8WL3S9i358ZH5qk96zsB35MfHRk+T
LCfBO/KzwoHO80t6PrwjPys8n1lSGxr2nvysEBc93Mju0Xvys8K1c5E9Nn6l
5GeFIRZnl2b+XEp+Vrhj5TmjQ7uU/KywOuU3ndoRxEuyQvzplFLXv4rJzwqu
Iy/uSj5YTH5W6JkYk/9+azH5WaPw7MSg0ZU0Xi1rDF3nr+mtKCQ/a4T6b1NN
9ySeqzVWCgqOJRmWkJ81PrS2rcueXkJ+1sjMNvOdfLiE/Kwx6J8Th+NCWH7W
CMhwLFRRYn7WsDi1bk+NeyH5WeOt3qtOj1eF5GcDz9i1L7bIi8nPBv2TFhvH
mxOPbwO+jv5gAxSRnw0+PIlMzgx5SX42mHJYdNH698fkZ4Nf8wO8bDoSyM8G
D5p2XVz+4jC33iTZYLbFzBKMuETvhw1stFv3DXx4hd6PLz63vMT33dLo/bDF
SZWiF/unZNH7YQvfvXf15vR9TeuXLY44XB/6eOQHej9sMSQrKzluF+sPtnho
9bagvyXtHyG2SIwoNAoyYfuDLSLnKs1enkjrf5Itdjq9SXWb2E5+tui7tXPR
j9M7yM8WNdMXtLjpdJGfHebXOvufaukmPzvkjMte1H6zh/zsEJzAdzkZrQTO
zw6GxvPlak+UwPnZQSng1523NJTB+dlB72z2MuEKZXB+dvBaq9WzL10ZnJ8d
VkX8syarUZnjZdjBYt22RUrNyhyvzA55dWdW+BmpcDwlezxQP2+r87MKx9Oy
h7r9tOlWS1Q4Ht8e2prjS203q5CfPZLbxLzCeBXys0ekY9CqqGrihdijW69C
UR9KvBh7aIZLUm/0MD97BF9QDJ47n/nZY0mwyePvI2i8ZfYYrupnnmneQ/k5
YPTQbW2zm7soPweEXnkXGWTYRfk5YNIVoCqe9jNXB7yTn7mkY8b2PwcY31LO
vDmnnZ6vA6at2z57ajftRzEO0IofXynNY8/XAcma72tWWrL9zAFReUkFv59o
pefrgK7PGe1td9h+7ojX909WmhjRfqjl2Ls/cn6OUO3i9ws4RvPF1RGzm49U
fX7M/Bxx9zeDift3034e4giNcN32uDy2Xzui0dvC9UJ0O/k5YlzciUcbtrL5
54gFqheTwiJpfy778vcfuNjdjKfxKjlh1sasA32/byc/J+hdfbj0lhrx+E4o
zR6ZYvy0jfycsOOG46Dsz6yPOOH28Cmf337H8nNC3IYB/2rfYPv/t++cnxO8
drWaTDlFvAwnJGyXCbQHMD8naB6Z0BCUx/qBM7J4r2J8N7D8nPFz+vRX81Ja
yc8ZuxThwd4a1KdcnXF9zNnNDsWszzmjecvJQ5GmrB84Y/6hzbLKrkbyc0bo
9AWFdSHUz5Oc8VwYEPbgKOu3zjhQMeVR271G8nPG5ejfk6X57LzggtkHNO3X
67B+4AKzl5JAw+Ws/7rg9sXaqmcN1EddXbDmn0frhMMbyM8FLeGT3c6MoL4R
4oL6HRofzqSx84oLJNtl+v/41pOfC2YNn/Jux2rWl13gY17j/uAY9Y0yF1i9
n+N01Yj1FwEiK59VPB5L/VhLALTcFrb0bSA/AdKcT/m9fsv6iwA78zw0n2xl
/UWAVbZGd+5X15OfADd0vdUG/kbjjRHgJ5tzxxt+pT6dJMCWNP/qv4WN5CdA
ex/N+KNPWL8S4Fn6/vma41h+wP6Vu9aoalAf0wB2zCjuvlfEfAG3vS8z1z+n
vPSBoiXB0jGLWP8C/JL29hOlkh+AAedy64x3sPEAm/wW1zkJ6zieFxA5KChw
rzpb34HvpmtbrD70keMFArk947+rkNXQeIG3e4b26IR/5HgRQIe1d23Aadbf
gGZTw9A1bjUcLxaonBg2sGMC63PA/VURf9q/qeB4KcBvoyeY/9FURfl8+/4/
Xh5wJevqL9VLqigvoP/MfSG7TIjXCOSEiUttMyspPyEGzXtcvXM78TSEKD52
cNT99xWUnxCXPV4ucSwvp/yE8PVT0vMdX0H5CXEpc+q2oDDygxAblfoUG+tV
UH5C/NB6us/zFuJ5CaHbU7QmS15J+QkhTYxZFSUgv0AhTPdkLR2wu4ryEyLm
fMWOH+PJL0KIeIcRBSfsWH5CDHl5bjivleUnhOrJmDAT03rKTwiz/NHZV1/T
800RYpxk5Ii6HDb/hTD2iKr5uIHmS56w9zzI5SfsPW9y+QnRd9TGhIJYNv9E
kLVNnOFfwuafCJ6/GQw0L2fvswjPUs+ZZJbS/NUXYayd/7w3VXSe4ItwfK3j
TV4PrS8Q4VqUuY+FmK1HIuySHncb/4LOf14iJIRqn4zdTvuFjwjbHAKT82Wt
lJ8Iip9GTM7VofN5iAipxj+42e+i80+ECFeGbHvb7MH6hwiCcr05J0povYsV
wb1vUovulCbKT9S7nnH5icD7N8V9rho7z4qg/1C21Ws5nZfyRIj2657GTyRe
2bfvXH5fvvsMG1cbyM6/Yvw48tCbo49pvBpivEjeMKPiJFuvxTg0Z5vVITda
3/XFaF+5a8/yS+z8KMb9YemvB/9F+xvE+LMkhy9e1Un5ifFo1Kjvn6R3Un5i
rB/ZeHZ1ZRflJ0b/xtq5z37t5niBYsRMsw1vEndTfmKEm18o8y/opvzEKMNk
00fzqW/FiLFyj4nneetuyk+M48+qNMx51L+SxLC3TxjisZf6RooYuWfWDN9c
0kP5iWGir1AfkthD+YkRYVvu7m/aQ/mJsXpAcf77icRr/Pady0+CyoflJbIw
8tOQoNhO48GjgawPSqC+ZZPzwXoar74Evv02PwuQs34jwdzAJaL6bZ2Un+TL
grnTJ6Gb9R0JXH8s829400H5SeAw1XxSYznrFxIk/Rx6Ycw82u8DJfCJXsCL
3Eb7b4gER4r6ankl0X4dIcG0NQcM1B6y/V0CM0lQcWoTzedYCYZozYvZqUf7
c5IER0vzg94bUB9KkWCAuvx562K2/0tgaD9dFuxHvDwJFu+e7NfnOusDEhzy
iOo7YwTNl0YJxow1vOZfxO4jpNjJ17LduZ7GqyHt/TmXnxQ/nE73q1aj/q0v
hZndE93L6h2UnxSFKVqPFzwlHr78//HD3v81iu5TXKVQ2/ni9scH1I+8pP93
3yEFvESN2xJYflL4aXWUf3eO5SfFyUrTpJMuLD8pLrTH/XKimOUnRVTu4wSv
ZdSnYqVICLEMWCpmfUna2x+5/KSI9PzeYNx61j+lvfdNXH5S7HFLrVq+kO6f
yqRINeTrNMmpvzZKkXFtkCjwPrv/k6FgqmaXTTp7f2WY08f8pUcN8bRkUFVr
Pug8mZ6vvgx2uQaLM0vYfZcMgYlHohdkEg8ypJw+72T+ga1/MlTMj8ix9qU+
7SXDuL8WekgnsfVPBp+j8qU5yTRfAmU42+Q5reQ/NF9CZGgoX9F07R2NN0KG
5MFtd/RaWT+XYYHa4ZL/PGb5yXCmNrhujifrwzJYyQo/2mVTP02RwZC/qaKp
ifVjWe/84PKT/d95TYZXV9V6XvTtpPxkve8Xl58c32sqjTaYxeafvPd8weUn
R1Weh7GxNlv/5BgyYs1Kp2rWX+UQetcmRh1m+X35+YQx+u7/Uv90laN/zCSr
kdHUV73k8Lectdh2I7tPleP1XNGbMd9RnwuU994/cfnJkbZg7eHBXnWUnxxJ
klseQ31qKT855GOf5pk8p/vUWDlK927SOLKM7tOT5NhWX5GjfJbur1LkmJOy
xa3v3RrKTw4nra67opG0n+fJMd1276KnO6opPzlsxq4aPPdyBeUnR7bq/oVd
RdQ3lBSY+bDy1OjZlZSfAvvHt0UY+VVSfgpET1h87Hcp8fQVOHdzmeeyKdWU
nwLS+NRB/Z5WU34KLPUc2T2rjPqGqwJ54RcaLp2vpvwUsDsQ+Gb7NeobPgoY
B01TrDSi8QYqkLE8UXnwBbp/DlFAL2BI4crXtZSfAmcTkmOmLWX5ffn9lWGL
Y36gPhn77TuXnwKp+XcGv1zJ8lOAF7ZkaFMt9ckMBeQTT9telxAv7xufy0+B
0yaqw4YFfqT8FBi9fNXylgvUT5Um47huetywCR8F/wUPaBZA
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmHlYjen/x0+NQSpNWbMM0aaU6pz25bzPfkoxDENIosUS2ZkshYZUE5WJ
soWUyFqEUCTKkjUqW0kl7Xsp+prf83nOdc3v/ONyVa/zet7P/bzvz/3oLAyY
7qPM4XCilDicf/9lProYt/esMi+jnM/j/vvRRVnqEIsFgk98P99/P7oI2FI9
efOcCn583L8fXcQkb1tV//Az//Gjfz+6kByvu7D5jzo+w9ODp8H5yjvOjcTT
w++anpdsuU3E+/HzX+vdW+KbiacH4Yrz9l6SVuLpwXLm2qLo1jbi6SMtUmxd
07+DePrYX9YoO1LXQTx9mIrXl+a0dhBPH9rHXcIzvTuJp48bg12+flDvIp4B
ZN5L/75t00U8A4hLH74W/NJFPAO8v9egV8XvIp4B1HZrGNYN+ko8A2T98y14
RA/LM0T8wsSCojedxDOE8c3a7u9RncQzRPI6lZejrnYSzxD+CSGPnvdj/Qwh
rjxm+Sikg3gTkKMnbz6nzl7vBIxJk+8I824n3gRMkHxV2je9jXgTcP24yfxe
IZvfBATeCb6xsl8r8YywWcQTnWlrJZ4Rpinn3f+g0UY8I1S8y9mEdJZnhBd3
dFS/7WwjnhH8EltGfT7K8owhabMZq3+qhXjGMPujs2vh9BbiGcNoSmbkIqUW
4hnj5+Ebzr5NaiaeMQYmTi+YO7aFeBMRmLus5rKA5U1E5snhf4u3sLyJmDD5
qeev91neRKQffqMjmdhCvInY67cft541E88EXX20Th140Ew8E6y43DQ442gz
8Uxwl/fhbX9zlmeCP6K1bNfqsH4mMJ4RVVu3rol4pliSFtZPmMOuZ1P42w2u
7avfSDxTRPZPGMLZ30A8U8y6ntgc6FxPPFNMu+S3a1Mn+3xMwrDyq+8yb9QQ
bxJK9928bhXwhXiTsDPK3NHncjXxfvw/fO6HEtQQbxJm3/vt3B6LGuKZQahj
ZyRcXMv8vraZ4uf/h+ea4frsE5v0EujvXc0QfbDwcvHHGvo+M5hpuEsLqqsZ
XrAZSuNjht8u/0zfb4Yet5s+B9ZUMrw0M6TVlc4/mvyRfMygP778uPpPpQyv
0gwr9yzzGXm1lPzMMUI9ZkVIbSn5mcOeV+GVvOsd+ZmjIz8ndeD59+RnDv3R
6pIdkWXkZ46l22YfimouIz9zWBhcvNmRWU5+5nivF+F28P0n8jMHLvW/mfS6
kvzMMWTFRa3YjCryM8ed1Qs5d6dUkZ8FdEKUZGMKKsnPAiLb6GPL7Oh6uRZY
95d+xqYzFeRnAa26b+Fz8yvJzwKOxkFFZWuJF2yBFNcDbfaxVeRnAWf7rnOl
Qz+TnwViDS07Da9Xk58F8qufFs03qyM/CxTNNVHxkjWSHxcF9/bO1RpDfanN
xRbnAccsl7LPCxfLUyTux6/Q8+rKRb+/t25UTmX7gosBmqNNt79sJz8uxpze
1X79MttHXHjucl7SJ4P6MI2LIUNq5P5/s33HxapDQzbfDOgmPy6ks289S53a
Q3489NRYahyN7yY/Hq6G9IZO7ukmPx58dubKeO495MeDavCUg6N9esiPh6Pz
LbfmiIgXzMPwmLQEL0EP+fHg1Wu/KKC9h/x4WBY+LKQ+4Bv58dBWYj3safw3
8uNhxMCofM3M7+RniaMz1za17PtOfpbwDm6oTvn0jfwssctm2Rr7cNbPEjFT
MpPvHqPr9bXE4VJ//YI9X8nPEl9eLempKGP3B0uEP0wYNOQ19X+aJW6MGDt7
6fYO8rPEn9eyJh2bTfej0hIf3fXuZYez+5sVhMvuqo1Spf7VtsJu95ANPDW2
r60U/cr4WcF5850+NQPYfrRC40arXdrTqP+CrbD4bHpKxhR2f7XC4S1Va2Wf
m8jPCkkacS2/vWokPyuMe5jwNc2K+qzSCo6rf41Y/45df9YoeOR77VBMI/lZ
Q4t3mN9ozvahNW5cvCt39yWeqzV2lUVtyX/E9qM1Vgunzeq7gXjB1ni/IEgy
cn4T+Vlj79LtAT+pUV+nWSv6m/H78f05Jyc+/kT9XWmNPd6pmn/uZ/cPGyxP
NQutamwlPxtcVI+6cGFEO/nZQOBTfy4qtp38bDBUdzv33gX2+bBB0O2e+IQU
9vmwQdOX6eO/jmTnCRuMmph1JFeJ9uM0G1SUFLl2/0m8RzZI/Gp8xt+Jvb82
8NCYFRC3gXgcWwTdrcqvKGfvry2K7q+RZRxm/WwVPoyfLVYadX14m8j62WJO
6OOwl4NpPgi2hf+JgO5hQtbPFiqqsqcdnuz6s8XpruTdh0rZ+cIWv6/9tCi7
hOabSlt4hsy3y9pM65ljh5Drx0dKX38lPzusijNy22hJzxvXDjvOqJrXpn0n
Pztc72nafsW+l/zsIJvnVvtcnQPGzw6JlQunLDHigPGzg3901GP3xRwwfnYw
2zj9RtgSDhg/Oxycdeh74noOGD87GFSH+9+7TDyOPfpnhrQ7pRJP2x7L3F7n
vNRWYnhcewSdlmvMnqvE8Fzt4Ruytc/T40oMz9ceW5M9SrV0lMnPHh86Sp8v
DlQmP3uodGxZ0zpZmfzs4R+RGfCkhXiP7OFSMkScd5t4lfYYNvXw9pvrlcjP
AUUXsjJXTFUiPweE2mp4jtJg/Rwww//+nWfn6XpdHRDcoKz9LoWu19dBkQfj
54CRxZqx9wex+TnAJtfZXEOFzc8Bf2rPufQxt5furwP8vmcIjh6g+1HpgOrb
PWlKLr10fx0Vfcj4OeL7IkOVASXf6f46ovvD7t/DLrL31xHBRrNPX8ylPvV1
hOgZr66qlu1nR9zd7x25p4j6Ps4Rh8tnzRz0gN0/HP/f+nNE0C1N/7kBNK9X
OiJyNucP73Ps8+GE7z9F7szzZ58PJ0S8G2eSzmP7zwkhMyzsA9uoD1ydYO2t
mlM7jJ3nnDDvxC/mIh22X5zQFyp+5QX15OeEGbZNyzC3jvyccAq1tgZnv5Cf
EzxLbAtP+H8mPydI0wMejEz/TH58uN5ItRz5M81j2nykPp68eX3IZ/Ljw+ez
6xETiyry46Mg9BLPzYedD/hAqoXnqEXEC+ZjeIN33NOT7HzFh+2RMbHRh6vJ
j49/xnnGH5Gw8x4fB05o6RRza8mPjwcNSVbViez8B1iqfmm7Oq2O+X01YOhr
tXHJL+j6tYHIgevXhKnWM3+vD1xz7cj6JaOe5hso+p9wuGZk773vpya6HsCu
Zl/yxUDqa3cgdnVWibIHmz8QUz9WbwevmeGtgWLeZq4X2CB4bGmlTftXxA9e
xS1ng77s/A30hF7wGN5CvCRg7n7vdaY2LTQvAaqj86tjb1LfZwMv8joW7+pm
53/gjKrRCXsn6v9iwOx39Yejh7dSXsAEeYVZcUQrw2sBbuo/GhS0jD3PCJDx
655TQSPo/KQmgMMSj94kU/LTFmDF1beinmI6v+oL4Kamvj5oVCPlJ8C3C8Jh
Y0Y2UH4CvFEKHeExnuZ/VwFm8O/nP3hSQ/kJFPM1k58AnEKpi8erCspPoDh/
M/kJ4OK2KS9obTnlJ1DMw0x+Akw0HjtQfQbN30kCbNJMftkY+p7yE2Dys1uB
bZy3lJ8ABx4kBU3/u4TyE6AyJzLkvHYx5SfAiVW5Ugx6SfkJ4BF96N42y2eU
nwD9Ludun/omn/ITwrDfM+MhCdmUnxA7VLiF0/3SKD8hPka1Rt4+kkz5CTEz
5UiFyuwllJ8QhVq/TK6zjaX8hNi4eYqJkBdH+QmxTVP3zYPI45SfEKet3S4Y
LE6h/IRwtgsxjjG+SPkJoTXvk7OjVw7lJ4Sn89iYv/rkUn5CzDb0eptXf4Py
E+KUxG2wt9Ulyk+I+uEPitSNr1J+QqxecJbT2Ocq5ScEx3rWxtjoDMpPiGOn
di5YlJ5C+QnBrZUezhhzi/ITYnFR5Ufnq3cpPyHaVXGudmMB5SfCRq746zW/
F5SfCFf2TK/MC3xB+YmwLulTxtK9hZSfCF1lI3VtthVR/4gwWissmedXQvmJ
wHEP63m+kD1PiZCxdqnIe8BHyk8EscTJI3h8OeUnQlZHyOtBhZ8Y3hoRwn6N
CkqPYM8zImQvKK3UbaI+ihDB406ZR2A8268ixfseJj+R4n0P02ei//ZBtghe
R4+Vmuxmn18Rbp+d2SkqoOetWKSYj5n8RLCf9aai3zOav1pEmNc39mN+Xifl
J0bLQslon7l0XlETY+v5wG1Krux5RAzXBd0OqQl03tAXI87NemeriN3/xPBq
D3x1VEb7JcRo9Rh0JnMpu1+LkRa4qaSqlfZjd7Fi/2fyE0O4V+V76Dza79eI
8eLLNOPzWjQfBIsRlfsl6GAozRMRYqyaOXjSy6U0L8SJsTjfZuDMJpoHksTQ
dJks/WkBu9+L8SCmzTEQ5JcthoFu2bf4Z+z5R4yZDbcjVs6g81KxGNu42tbb
1rLnNTG+Nakun6DxlfIT4/fA67ddprL5STBJ5qWhMonOK2oSZCcHxV9zZ/dj
CaI/u9zvzKLzhr4E5u7lhqci2PcrEsX7EyY/Ce5cGfrXoC3s/iFBmI8Z17mN
zg/uEhS2rJ32wqOB1p8E+/f7+tx1aaD1J8GV3OVvJs+gPg2WYGXpim/KytSn
EZL/9mmcBCezbNJqb1XT+pPgVk3RyN6aKlp/EgwN9Cg4nUB9mi1R9CWTnwQn
fLTDjY1eU34SDM/8evrcyieUnwSHTpoG7RuWS/lJ8NdWu4SN/hmUnxRjw8X5
GkUxlJ8UeR9vdWQrp2Ux+Ulxad+2JRXtWVlMflLsUftlVLnn3SwmPylCm3/b
L76Yl8XkJ8U1C9smvu3DLCY/KXaWdI4Z+aGA4blLsfbGsuDoDU8Ynq8UU7es
943QfMrw1khx/xS3Z86C5wwvWIroJ/zE7mGFDC9CivXjatPP9RQyvDgpNpv1
brG585LhJUkhX5RRVrfwJcNLk+Lg/L6tWQ9fMrxsKaY1bzG/NPQlw3skxZx1
B3K9yl4xvGIp4Nw5b2p6EcOrlCKlfNc/n1YXM7wWKS5+k47YoVPI8DgydK/b
dOBk1nOGpybD6xn7zlxyp+vVlmHEH3Om2Q29R/nJsDH3eZZe5k3KT4af1/f3
mLJqF+UnU+wPTH4yzCtUOXQt6wStPxlM+ow4Pyb2IK0/GYz++tlPv89vlJ8M
YfFvHj04eIDWnwzTpSLXNtVEWn8yRf8z+ckU+wWTnwwuV8INX++/TetPhs7x
B/SGTs6j9SdDHjzHDGt/QutPpuh/Jj8ZWj6kD81JfEXrT4Zryy9n9x58T+tP
hqfxvCm1d+h9GEeO3ec9tbR7ymj9ybH9mKvzHit6P6Ytx6CuFNnKS9T3+nI8
03DQ1sqroOdX/t/5FD94WhU5R0/QfOwqxzGL4pWHq9j5RQ7d3vcBT2T0vPnK
YaTebOOuTvPwGjn8Fhndf3eGfZ8oR5+smaWnSmk+jZCjr46NXepM6oM4OUyL
Jh1ffoTmqyQ5ugZ8/nk8n90/5KhqkPzzQZPex2bLYVcf9Ko9nX1/IceVpEPn
Br8hXrEc+5pUZ+StIF6lHFkWG5/EzCBei1zx/oPJzxnDHUpON2xv5P8P+u76
Ng==
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmGdUlOfWhiGA0QiKigVLbDAC0tvQ554+GkBELOCJnaKCnYMVMSCKoIKS
CCq2EKKIihLEgoqaKApKC016GwSkjtLRL/lmv2TlzB8WC+aaa+73KXvv2eu2
unp+paCgEKWooPD3T/lLC47zT8sGz//BMTf7+6WF9ui8wsVnMjneXn+/tNAf
c7HD1iWbczb275cWTN2m7R0Iy+W8yf77pYW49XcO3HUq5Mh52tgSk9dW/bqI
eNrYP2NJpMqOMuJpQ3eOcqDZqDLiaWPmkagdHr6VxNNGeeJNrZYNtcRjYULf
NfG2O3XEY2Foyennc97XE48F9lyeX+3cRuKxUB396IHl1mbisXD48OFDLtkf
iDcPc1r/s8y4uZV483B0hPXI8AetxJuH+Bt3Y53WthFvHrS3qFdsKmkj3jws
vuN9ZF9vK/F08OP0MDuNvA/E04HD2WThARWGpwNFhyvuW7o+EE8H6oW/aJj2
fCCeDnpulo1KdGB4umj4SSvz+ncMTxd+nlF/uh5tIZ4uJEZOsiyDFuLp4qnX
XcEtT+b76qI0NLEz6VoL8fRQpnh06vdz24inh62P71wOde4gnh489RXnHljT
STw9pP58+2DOpU7i6eHLWBtexdIu4s2HaGBMYPL0LuLNx5HKBOeQU53Em4/N
JktWswO6iDcfrqPD3G497iLefBzKPX24P5vh6WPBwRtmxkKGpw+2d3eniSvD
04fmioyrNU/biacPNefpxn7RrcTTx6SK2oMmEiY/A8SnRPQUFzL5GQznI+cZ
oEnXw+fwmffEM8CzHesUfnduJJ4B5kU43Pl2ZiPxDDG+dSh85Ssp8QzB1p2S
5RvTQDxD5E8cH3Derp54hvAPH9QYMaueeIbw+tjrzptWTzwjPA+p11yfVEs8
I4TdWj1ec7CGeEYoTw75wb+0mnhGSFikMzvAvIp4RuDyevVMnMqJZwzvwPGb
eNNpP2kao0nAG9389TvO/+PNjOFYscnym+YS+fsdjfEh77KTdVUxfZ4x3Psi
M2f4F8l5QcZY6msS+jauhD7fGHqGydaSrmI5L8UYp9JP3818WUY+xvDa4XXT
wKxSzpMag8MvXjRaXEN+Jvi1OFJvUlQd+Zngy9ttH/LXNpKfCUaXaniKTzaR
nwlMQ9aM+9jG7B8T7Hba07nwqw7yM0F36AKXnycx69UE7prnZ1iHdJKfCfKc
pqL4ELN+TdD39VBRhXIX+Zlg4h3PMw0NneRnikNFG+tCuMTTNEV38KrZq8qJ
Z2Y6/H65nylSL71wOeZFPC9TzHs9vbSuhNZzkCmO1/Uec7jGrH9TrJ5detSq
kPEzxbdc/cZrsYyfKbQWbHS91kzrXWoKn+SLJYNHGT8zxB1o3CV+z/iZYdmp
8da7ZjP7xQxb7pXzB0uJ52iGibf2+ly6zviZwabh8YJ5I2TkZ4aiRYecHFfJ
yM8MXd2fK8eofJTzUszwaW9c9AmDj+RnhttqUcnJU7vJzwweh2tXnnzXQ37m
mGPISrKp7CU/c9h8Z6Qna+wnP3P8lLPF8MvJQfIzR92zoMK8XwfJzxwy95DI
H5MGyc8c357rGL321CD5meNA0knX9HGD5GeOxxF2Hxc6ES/7r/+PUamYtmKI
/MzR9DJ/XMTjIfKzwNKmFkNp1RD5WWBb5MaMq6Gfyc8CBXPSjzt8/Ex+Fuhd
2RL3Tdhn8rOAyg7b/NMXiRdkAVcfq6vXOxk/C4wOcj43w5Pxs8CUny7kJOwb
ID8LnCkxevjWoZ/8LCDesOn4U6s+8rPEWc+TQzMmMflZYr/Nzrtloh7ys4Sg
KWLDuCfd5GeJC11tHL/WT+RniYH9yleUvukmP0vED016d3v3J/KzxAyLoPk/
JjPP1xJXj/13uqKLjPwssVtwb8O+Jcz+sBw+f+V+bMzJutSfYtlBfmyUDdxO
z7/ZTn5sXGYZpB79TPejIxs1Su3z8r+0kx8bccGP8vP+w+xfNgZPhD684s3s
Xzbq1kldI21k5MeGRtJJ65XbGT82xmmPWPrTmI/kx8angDueC2Qfyc8KYcti
Je15H8nPClUl2zmhcfR9zaxwckPSuD1niOdoha6+JjU3joz8rPDabrpk5A/M
/rDCuV2s9wHWxIu1gkbC/bLcQSY/K/y4XqfjqjU9j2wr/CA85zIrn9kfVujp
Onmiz5fZH9a4H3ldsKaBeb7W8D17c4vkdB/5WSPlcHDiNI8+8rOGjuX6yTZG
feRnjWWfVwS8DuglP2uoa3rEHtLuIT9reITfu6+5qJv8rPGNxsjvX45h/Kzx
4CLP6MFIWi9Sa8S0nldKKWLys4HxErWsGVOY/GywL3PZ1IF9zPliA1+27qOn
LR3kZwOTdfGpAbZM/WCDZ4WNtxd2t5OfDba+i7m4+zhzX9tgY/5K8z12tF5S
bIbPd7mfDUojghaxv6X7WWoDp8wVnUZtDeRni5lj+/f1ZdaSny1yVLulzzor
yc8Wav7JJ6StdB852kL/5zTlLT1MvWmLFa31qqMiSsnPFiHs8RPjZxWTny18
jj3WXq5SQn62uKfscbvtYDH52WJ9tNKf3eMKyM8Wun+46bGLcsnPDi+ylrt1
dmSRnx1mFt43cpqZRX52OLp1gU9tRRb52SGktkn79Ii35GcH/8Xpme7/zSY/
O0gumN2+8cdL8rPD1WuDsYG5meRnN1yfy/3soN9Z9XRNItXrUjusTM9wsTR4
SX722PLOqeNx9Avys/8fP3toF8+yfzaQTX72UNLxgoJyNvnZI/FbZc/4QsbP
HnFfVeZHLswhP3twGyTF5lPzyc8eR3NnTBhZk0d+9ji1un5ddnQe+dkjfHFe
LC8nn/wc8Pz67t3lKnnk54DVCTnSQ+wc8nNAW1Pf7+tuE8/RAf4J9WmbIgvJ
zwGsyy49vVPfkZ8DUjY7pxx7Uk5+DohKbuxPqaT1kuKAG9/bNiv0V5CfA9L2
4nJbYDX5OWDbyc2e0+5Vkx8HbzQPvbz9J9VjmhzcbNmzWC+rmvw4mDUxtzTY
vob8OHh+7EFA6yymnuMgyspFeYltHflxoLQuISLpBtVDsRxccL5kVb6Y6sEU
DtQ6fcu3ra0jPw48mt1q3rQST8pB8I1e5fiZjB9w2enphK9W0PdRBbapld4f
kfuOfIHewq0+c2NoP7CAIlbq5rWXmPoQw/uHcJikHFCZeJnZT0D/wgCzBXFV
cp47oFjTpbLjSS19P+CMTdq4zMkNct5OwN5kqaVvE+3fIOBnwcpjdkKqryOA
2NRom91RTL8GRLLeNqdUNMp5CYCd9rW9yxWaqF4CgsI+5nluaJLzMgC+gbRh
2WKqF7OBLdvtI723Uz1fCjimJ1lMU2mivIBg9cC7ei/fy3kyIGSSm0aqLVPf
c7GQm6O6OVxK+XHh273aO62ngfLjYqN/UvX+UVTvs7hwK+dOEejUUX5chBom
hVeqUb0LLjoeJteFNFG97sj9n/z++bs8Py5YM9SEwSdqKD8uPOoDg/l7mPXC
ReNvrnGrT1E/EcFF3iivh0eWMPlx4bNRQdtn1nvKj4vi0W8yB42Y/LhYZL8m
famMyY+Lp74RV6zfvaf8uBA9EOok6BCv9J/f5flxEThm8rXUZinlx0VBCL+e
/YZ4Cjz8OGf12QvCFsqPB9sJ89beu9JK+fHgkhSl2xlM9QCLh5IVvHfT1Jj6
mgd7X4nhBx+qn8HDZ9VFE2KmMfc1D49103i//0L1qjsPbx7UXxyyYOofHvyu
Cd2v3P1E+fGg/yombcK+T5QfD8uVjQrdPtB9GMHDhQ9Tamt3M/cnD6NGi3N7
VvdSfjwM9dS8Tgnupfz+er+iIGHsHbrPM3hoqZ14r/81c7/yhusBeX48NFQ8
34ffmPv2r/9/3zLxMIf8ZDzcVt9f9cmN/BT4UAyfvPl4DtXbqvzhekeeHx/b
rSNfW2ZSfcbiw+V4xuD9bzrp/OHDw3bFnlQ23b/g4/DBW3NfLGfqMT6iJ6VU
hv2H5hnu/OF+Wp4f/9/3804+kp+PeFsUQP10EB8Za6qlWp30fCP4YO1Njzn4
lJk/8FEQ6Bd6YwXNJxL4SMvTPLPGnvrvFP6/5xEZ/OH7Xp4fHy93vVKznt9E
+fGxofxS7ZQFTD3Ax9RNvGdBM1vkPBkfV20mlZ+3YuY5AngvDxz96hnNU1QF
iImze+78hFl/AiSMjZW5FFG9whJg7K/2Q5c8mPpGgIdXldLD0pj1J4Bb2OKk
+B30PBwFMH3bLHsTRc/XXYAnFx6rNSf2UH4CRHt4ry891kv5CaAa0b/M1Jnq
+yABzq6Lf1tS1kv5CfD9qEPjxipRPRgrQNuayrEdgcz6E8D9hx79hZeIlyJA
4uCpezVTqf7LECCqKPOG+zriZQvgIjOuOPyBeKUCaKfeivwC4kkFWNj5Kkdd
nfoJ2V+f5/Wb314Z9QsKQvB8SiuKcj9RfkLsSU9cJT1F/YOmEC0NCo0cFapv
WUJcH8nZ1a30ifITwrrqfcv5KKonIRxev/L8hJBKQ0aqr2f2rxDFrr77o2KY
/lT47352pxCyr66fndvG9AtCtPb7GWnFUf0ZIYT/i3bV0IvUj8QK0RNmfvC9
Cz3fBCEUJqlf8n7dQfkJEa1eEfSlkfZHhhDZG24qjk1sp/yEMAk8lrJxL9Wr
pULc/cOv7Ds32h9SIYaSeZNnTqP9IRNif8f7AsX4NspPhIZI502zi6meVRWB
tUtq88mRWX8ivGrKLVllTPMMlggPXN/MODefmT+KcOGXPYbO6sSDaHheKM9P
BLuZBdPfhDdTfiJofancmiOm+81LNHw/yvMTYdfO+Lhyp2bKT4STGo55GkHE
ixChsG/hre/zyS9WBG7fr9tsweQnguzLk82VKXS+pIhQXSmOUx9P/VGGCJar
LDzX/cz0ZyL4JRkfbeyg86pUBGXVrM6Xj5jz76/P4xdGsf2pP5GJUJV/rmZA
h1l/YpjmFc6ZkM2sPzHK3QrCRvgz558Yi1VSurUWUv/HEqMgs8fnyAD1i2Zi
XBy4lW13nvwgxrS0tIKLg8y8Rgzzal81v3bqN93FqGkcqVedwfQvYsxpDO39
xZ85/8So33JqzC9zmfUnhn+G5q0BPeJFiPHpwNHnBd7M/EQ8fF7I8xOD9XSl
o4Ye7Y8UMT4rnQjN9KXzPkOMH77bfjNRRN83W4xten1V5fHM/SFGZfYfwdt/
o/NFKkbj0rv+12V0HsjEeKuvaFep0E/5SfBwdJif+mqaN6hKkKqwtiCrYIDy
k0C08ppCV9gA5SdB0vazwV/PonmFmQRL259GbHOj+Qv++V2enwSZ05QEYxVp
3uEuQcUjw9jJUcTzkiDvxm/PprTTvGenBFi2/Hf2TvILkgzPO+T5SRD+Npzn
MY45/yS4vPPKi1/L6HxJkOC7nosG50KY/CQozTX/M9SRzpcMCXjbz25KOMis
Pwl+2vrn9Udz6HmUSrDrkWHQ3Q5mniHB7GdVfvVH6HyRSTA2UUdfGs3MNxZg
KGp7c+PlDs7/ASVBMGU=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmGdUFNnWhlHEBAZMIyqYiIqEbpoM/XZuEXFUxoRiQMUwqIgBRRTzOGIa
wwVUxCtgRMU2gIGg4BAlJwEDSREElAwCH/PVLmetW39YtaAfnnp719n7nMmr
Ns9b01dJSelMHyWlf34ylzZe3fb2LlHJ4ptx/7m00aKKu7Xeb/jua/+5tGE1
pL/zNt5rflDgP5c2Bs4d02UmUPDT0/65tJHIG2OZaXonluHp4KnDmXXrVRNj
GZ4O9OJuhMA5M5bh6eBZQLTO0pisWIang/jwtLrKg5mxDE8HtRWzbX43ziKe
LqoX1rVNWJRDPF0s69s2IDIql3i60Dfod3/ulgLi6cLapvJsYl0R8XSxX/dp
RsCjIuLpobVkc5Cgp4B4eliyPSBx5cd84ulh63n/rct1Con37z3D08MBztrj
EcH5xNPH454IvbaufOLpQ+vkmVDvnLfE04dv4JITM98VE08fh657LMi59pZ4
+riQ2NHsovqWeAYo+O/zdWFqxcQzgOaBys9uX0qJZ4Cc0ct0F/BKiWeA+NaM
I+nppcQzwORhkumK+GLiTUPXlwNuqQms3zR0bvcJCIvNJt406CzR/107I5l4
0/Dgl2MBspQ7xJuGIPWMwXpFT/kMbzoGHb/aFlSeQ/UyHR4Dy/wW/PaR6mU6
TCcXL/eQVVK9TMfTRdd8dEJqqF6mQ8teELV6+XfiGeL1zarrRuatxDOEchd3
wKagduIZ4pHSypzUnE7iGaI89ny4v0cX8QzR+f7Y/D8ju4k3A3er/X23Lu8h
3gx49G++E1zdQ7wZmBO+mDPCSwkMbwbWSIIW5SUpgeHNwKg31Z0H/lACwzPC
Fc3Bp1YrlMDwjDBc5YztXvU+YHhGiJHr5ocf6EM8I9SfyXjuGd2HeEaw//u+
/aHKPsQzRv5GlQfVSn2JZ4wRR8SvonpYnjFsD390E2exPGO8Pq85a/oUlmeM
6MPXthn6sX4mCJCt1N+Q0cPko2ECp+LCNUvH9fD/H881gZe6pqx8Ww+Tl6MJ
/hIOq70X1U15mGDq5YUa+ZsoPz8TXEgOyNw2vpvyNoGHWupgA9duhqcwQdiK
S8ctJ3VT/iZw+aYfVGlCvCoTpASmXuz3qIu+D1PMW2d54/a3H+RnitIni2xO
TOgiP1MMbE94vKgvfZ+OpgicP6Rib9QP8jPFjU86W7oOEM/PFL7h0U2ml7vI
zxRhbkef+i4hnsIU40a5610yZuvDFJ6B02Z784hXZQoVnx+ubk6d5MfBeE39
hxvfdZAfB42rJJprXDrIjwPtO3XKJn91kB8H+7kaFvu3dZIfBxYJYRKjw8Tz
46ClvO3alZlsvXIwNvBYd80j4ik4CFr6ZouTO/HSOLhWt69+4W9U71Uc7Hum
azeG10Z+XJTMGtFl/rqF/Ljo3FefKRc3U31zcdHTJprT00R+XJi7OJhrrm8i
Py6c9o8ShE1uIj8uTOYPSdUc20R+XBycK1PjPWtkeAouZu552a9mcCP5cdHY
E7vxneIb+XHRMSTHbN2uBvIzw5NUkVV+0lfy670vqG/6EvmF/Mzw9X65o0PH
J/Izw9q6KT+ehFeSnxleqwSEXA4qJz8zJP/VWlbr+ZH8zCAQtk0znV1CfmaY
OK1My9Uql/x6eXEnN06qSiE/M2Rt3TH+/Y5E8uNh09vZDTHnqH9p8MAf5rGy
Wj2J/HiIcHo4v3VXHPnxkPA9RDlybiT58aCVf0v5+vsI8uNh0nFx8rDCs+TX
+/uypFjjGVeZ9VXBw/qC5qENrZG0fvKQVBbTGtdXway3VTxM3qKRX5gQT+uz
ORwuCG/zgpOY9VfDHNZfn+dn26TTem2O/xzc2+QrSGF4juYwmbO5od9Atp+a
I/h99O6O6DyG52eOaL+Vdzm1bD80x4OtTpU3dIvIz/xnP2H8zHHap6UoofUD
+ZnjmEf5cBtOGflZQH5oe1mJrIL8LBA69LjYa3UF+VlgV+agttqocvKzQNyz
d9y4feXkZwGN2A2RZ6wqyM8CdbtHDtivUUl+FghW8vapDq4kPwt4vWwxcmus
ID8LWH711NMQVZCfBV4J1409XMb6WWKwkZ3zoptl5GeJnKKNOfJPZeRnCU6l
2XON76yfJTpPu9kMNiHeWkuMfDJD+tfncvL7957xs8TC8bsuhzjS8yos4ZWU
5v/VnXhpllj5uObGrmo2P0sU3l2n/bS5gPysoJdhbOGQm05+VlghN46dLn5A
flbYWhqWdcL0NtWfFWoGbD3bN47qea0VLBzyU11886j+rCB0Cq2SmBdR/Vnh
9bHieSP12PfDCs35Tie6znyg98MKaz47Bs/gfKL3wwqRySXTV9bW0Pthjfsv
TLY4KtfT+2GNkH6ei9VmfaP3wxp/Ll+SF+P3nfysUe1uecphLru+WKNu/ZVL
sTNayM8abuoxe4Y6t5GfNSJ8pfwJg9rJzxoTpnart8xrJz9rfMnZmx5yvYP8
rGES7Xu7up1dn21Q/tIvL+s62z9sED+8+GbK9h/kZ4OzszK997n/ID8bqPo5
XdRcw/YPG9zZdM/5ZeUP8rPBzuA9xziObP+wQebVgQP69e8mPxu8NclYkBTN
9g8bxBxZeyGusIv8bH72H8bP9me/Y/xsUXDH5Kr8TBf52UIrQKV0/CK2v9li
ZsnSo4berJ8txo+zO6wbyvYPW1j8fXqbVyz1o0Bb/Pp1yb7OnR3kZwvlDnmh
/gq2f9jizm6X4QVv2P5hi3ev63U+8dvJzw51K94Na9hL34eGHcTlj/sfdWgj
PztwUnsS/ljYSn520LgxqVpS1EJ+dlg2Qhj8LrKZ/OwQ2jXmbaR3M/nZIZnr
8swyh/qRopeXlTdlZFoz+dlhbk9JQFBeM/nZgV9hrb/wBvGU7PH63nOV6FvE
07DHLzNEceeXN5Gf/c/+xPjZIz7itzbRm0bys0ez7x+vctwbya/39/ehd2xg
I/nZw7oyZqZef7a/2eP0hgObldWontPs8WDiyJQ53mx/swdangtaVL6RHx97
f3u81GF+A/nx4ZP1y/WUaQ3kx4fpqtBHO20ayI+P4s7I59l368mPD/2c0jWK
o9Qv/fi4edbiZmY38QL5uOyXfc1/Cr1vit7/N+dDd+y7b+THx9v8wRz1+O/k
x//5fIwfkBQzv2HEG/p7NSAv95r2pQrWF2hSuZC8Tr+B+bwu8Dz9lnRWWD3N
N8DmtwFXvE/U8wmHFzl+oXkadfQ8QE3A8bxJ+nUMbzGQXJ1Z6GrylZ4PkBvP
bkydUcPwvADXXLedGm3V9LzAM9ddRfdGfWF4/kBtqMUZnnoNPT/A+dN88163
WoYXDkhuvBo6IJV4CsB9mfP6+Ra0XsUBq/NTDp3MZfcTvZ8/tEK9qY7mjyKg
w/jU6QrDOsoLuG6GvSMSvjK8RuChw+kHF9/WUn4CbKkSu5zYUUv5Cf5nPRRg
fbaL2S5b+j51BXAIdY75xmHzE+D3xZVj7a/UUX4CHFMbtna0MfEcBZgXM1J0
+uMXyk8Al/n3G94Nqqb8BLCYKvQom/qJ8hPgT233Uvs+VZSfAIVTdaDbt5zy
E4DLXbZLLewD5SdA1ombHl3v31N+Aiwrv+K6ft87yk+AwyEe2o9s31F+AhhM
6beXO6iY8hNgxNDn/g538yk/AZyV83e82J9F+fU+38tm7/Mv0yg/Afods67R
GZBN+QkxPPBhvPbNbMpPCM1Hb+dbmmVSfkJ06/RwjutRP9MVIuK22/XGOymU
nxDyRpeQmPeZlJ8Q1zwTpRhJ852jEK8NDXvGNGVRfkL0GXh0dc1Y8lsrRFaG
zubimxmUnxCLQ9cVqbmkU35C/LF55rqy0lTKT4jgceYOTyckU35CHDpsnX0h
5xXlJ4R0cK4tjr6g/IRonxDQ2Fr+jPLrvQ88nXB++D3KT4gvB8518Vp3U369
/uGhUfe4D2keEMI7MTtW59mLWCY/IZan6b38VMDOfyLcn7g7OPbbM2aeUBNh
Um6SS6NrFM0LIrSYBhybpxHP8HRFaAu/4uytxZ6viPA8NoB7angyw4MIjX0+
B/VsS6d5RwSXSztzznHfMLzFIkxOTzLIa02l+UeErz1+J/4MSGV4XiKoJho2
KR1JoHmolx8+57PqXjoP8Bdh9Oq1LbGbPSm/Xv/8ZtWSDf+h/ESoG5tSOGR6
FK1nIni6R3CG/p5A+Ymw78OBsVrT0ig/EaLvmb4sXfOG8hNh6ZGGwR6OuVR/
IsyuHvNdKyeP4TWKcKUwWl4yr4jqT4yDEW39QifSvKMmRqHmnLKLJyqo/sRQ
KYhYmP2A5h9dMdL39N9luaea1m8xLplsddNX/UL1J8aL94YrvvSl9cVRjE7e
mrpNV2up/sRY8PDNuYZcdn0XI3qazepzyrR+e4mRaP3I+mwY9Q8/MXySFozr
9KF+4y+Guk7/3y4MZfdfYjgf9HEa1039MVwMI/GOD6+a6DxEIYZpooF7dxnt
B+PEWKp8W3HoJDs/ibFZa7Z20rN2yk+MNaeO5CoPZOcpMeZ7tpv5hND80CjG
rw2Su3jAzgcSjB4fH97Sh3hqEpzJT4pYvIqdFyT4UsJfsmVBG+UnweNhbS90
WtnzGgl4c4J3D/Rrpfx67x0Vs15J2ig/CTZPtpw/pIV4iyWIPhE3evxt9nxH
ArUj2u3Xi8jPSwKu3YSV66ew85oEV1x5e1+JaL7zl2DnVfeonUdoHgz8957J
T4KNJ/squLdoPlRIYJfcuv/zReLFSXCv2dLqqJx4aRIs3jHLk/eE9utFEqxS
GRHfvoH291UShKxWLZkdxebX+zzjVzUf2N9B+Ulh7TRuseUUmsfUpFDadX5u
nSd9HxpSNK0b71OfweYnhWD52LkDprDzlxQnFyktWH2X5mdIf85DTH5S1G9d
YXCqhOaZxVIMDZ33xmUSO/9I0T74s8pUPlt/vf9v8p6/l7hTP/eT4taz5FUF
ul8pPyl+qT5pIzWlfhQohdE5H02tLfR+hEuR2BMvHKlbSflJsWH/oktnvn+k
/KT4bHlhTp5WKeUnhbH2xuM3KksoPylWbOkJiVpQQvlJ4eSq9UJcWET5SXHd
JbfkuGYJ5SfDDXe/gJD+RZSfDJfdHvg+np1H+cnwubiqs7Amm/KT4Y9MzZED
P7Ln1TJMeSJYGTGc+hFk2BN3zXYQP4vykyE1PWbl2vR0yk+G5TMnnT3cL5Hy
k6G4w9bq8Ctar7xkcLafJ/WteEj59fpJZo9abf6A8pOh0J8X4qsTT/nJfq5v
TH4yVKqoHjlRTucLChm8Sh52cT2TKL9/P8/kJ8Np7vaUp63+lJ8Mpr5OJgvi
2fMCGZZc26miCHrKrM+Nvbzlzw0viBOpf8ixIGj464kL06h/yFG/ps/LcM1s
6h9yeF21NNo2NI/6hxzbx/S2sJF0HsCVw2/c0FGH0kqof8gRuaTFY5/ze+of
cmxKsyntq/SB+occBy/GB8U8Zc+j5ch0PXkrwOMD9Q85ZqnnaRtOpP25nxyf
ve+0q9rRftlfDsPS1l/HXWX313I84dQJjqCM4YXL8Xfytx8zJbR/V8jRNvrI
iCWPPzK8ODl0i0+LwhI+0v5bjg38kiCFPu3/i+Tg1gweF7qWeFVyGCwVp7x/
QLxGOUa9UA6dsIw9P5gJx19uH3h89kPs/wEA8zLI
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxVmHlYjekbx8uSLYQsFUpDJe2nc9o737Ofkm2sTVmyRGZM0RgpEQ1RsjRk
MpaxFCMlso0ta9GvRIyWCQktKlpUp9Wvmfd+zlxz/uk61zl9zuf9vvf73Pfz
jFsc+PWyHhoaGns1NTT+/su9xuMvpenj+pgWoT3v79d4vC8u9Gpf3yxc7v/3
azxUqmU1kW+ahAcT/n6NR/V7jQph72Zhbs7fr/FI3yV1qO7bIuR4E5Bz/qth
VlGMNwGBpoPOH1jZQrwJ2CL7dbpRfjPxJqClKfSm+ynGmwDFqkn6eyuaiWcC
vdNGVbKiZuKZwDBt/iyZOeOZYFZ4Yt3uHS3EM8GRmlFlZSEtxDPBfO3vMMuN
+Zli03UTtxF8FfFMYWxlctb5lYp4pjA8dShrbVgr8UwxvfabTe3r2ohninPt
gw4MudlGPDMUO+15e2BFO/HM0DusY8GSqe3EM0PHRyP3d8/biGcGjR/PGP/u
wHhmSN8aecbgm1biTUTgOMeZA5uZ30Sc/Dx7Stkjdr0Tsf7ycw3fsex6J6Kn
VtPPbh7seiciyLz1dclJlp85PgYcPZRhyfIzxxP3yNnhC5qIZw5Zw5T60lWf
iWeOZw9bVkS1NxLPHMtMJj1oqG4g3iSsE+XyBXqNxJsE86nXdy3RbCTev+85
3iTUhQii9GY0EG8SVqRc/P3KVMazwJy4oU4/jGsgngVMc/v0nTisgXgWuJFa
pKdrUU88C2ycfdnXc2Yd8SzwLjpE+8DiT8SzhGNccHH4xRriWSLuWPKwpXM/
EM8SBUNOmESdrCCeJSoufn14Ydw74llizL7RMz2mlRLPCk4ZL+M3bykinhW+
HTl2RVLJn8SzguvbN48y3J4QzwoW9a/vLDrzkHhWCC652Mlb/ZB41rg1qyps
zuBM4lnj5OjDc61bs4lnDb9bpguS+z0injVqDbP7W8TdJ5417AcclX+Zd594
NuhnnjtlbWku9309G7gU8Aclz3om/AfPs8Eexc7q43cLuP/3ssGJZXoxk8wL
6PdsEDnJ33u3QzHHi7DBkvoLpo3Sl/T7Nri5JVz7Y14px0vv5qcdO2fbzvKy
waBFRzy0Gyo5XrkNnm1ctS1lXjX52cK41neOzYda8rPF9ncbzg7qU0d+thC1
ngpyAd1PL1vUhY27vCCmnvxs8fxxbuaQIKqXCFv0TTC3H7mf1ZctVp212V5R
95n8bNFL+3/1WTebyM8WsyLDpup3Ub2X22LE+C28zDT2fNip1xvOzw4lk4d2
CjKbyc8OxvYd/R58Tc+Xlx0cn7nabD/Nnkc7SMuP8XN+ovUlopu3EtWTU9jz
aYeePfsvUw1SkZ8dDM9ENV+7pCK/7u8vn31DK5jWn3I7+O/3tdu1QUV+PGis
3z/j42paj/R4+G15c/+fG1qpfngouFriOz+U1hMvHjzK7N5frmkjPx4S5qiG
3m9oJz8eji7gb7wn6SA/Hlr97rTv6+zgeOk81Ez1bZ4+rpP8eDj7/blZd993
kF83v8Q3yiKkg/zssbj30DutK9vJzx6j4o/kJYWx9dAe349al+mmaCc/e7xR
nDg7zor5df//gMqxP72m9S/CHrYPJi7vKlORnz08qxtXb/uV1sP0f99zfvYI
GF0+YuZruh/l9ur1kPPj49TG7EU1/uz+8vEpcG2bx/HP5MfHtJ++BH7wofXO
i4/Fievcr3ay+uPjr5LS3b/y68mPj8DrWWtEumw94mNX1ePKh2PqyY8P24V/
bLPTrCc/Pgp9LPv5KerIj4+wpyNPZZvXkZ8AW1QThJpNH8lPAPeDabLw3rXk
J8D6tQOSZ5jXkJ8A7+PHP0yeXEN+AgSVS31if6whPwEEI+PP5zp/ID8BFjxf
sk5PVUV+AhiFzI7p/76K/ATw86n1efVNFfkJ0MTrKm29/4H8HKAfNMpowL4q
8nPAzylz80JQQX4O2Lz/t9jQKeXk5wA9zYoLgT3fkZ8DNiQMfrX7fRn5OUB8
P/qFjF9Gfg6ovGbWXqX1lvwcILp1MeT67bfk54Avj4Nq8v0qyM8BqVO/9Di/
por8HKG6eH65fXo1+Tmi68bHfF4vtv47In/NnexfAj+SnyMC0qP7iO/R/fB3
xBrxjLla6+h+RDhicFrXjqB+deTniDkXH++re/6J/Bzx+FFY9Fxvdn8dcSBk
v2PsU3Z/HTHU9oJOcgu7v054OkUfBZupXvScEL3MhufRVEd+/77n/JxgcDPW
1nw1qz8n/L7HKzTmPqs/JxxsVWZkZbD6c8KBtWf6KQ+w+nPCzCELLzjxmJ+T
ut44Pyd8iLu0Lj6d9Utndf/k/JxxzMTy0vauj+TnjA11lc80T7L8nGEXLQjc
uITVnzNmyw6bzpZSvUQ4wzu/I+CkQSX5OSP9jf2J6Fvvyc8ZwTqGNbOT3pBf
9+9NuTOsx7yX5OeMyzWazg9SXpKfC9JefQxyqXxFfi4o/PWGICrxFfm54G5H
mM79aa/IzwVbDK8dDp1KPH8XbLfM9e+lW0J+Lnh/pezhQZsS8nNB5o6/vh5m
WkJ+LuhZ7BY5cMZr8nPBCFW2cfzVV+TngpjUiFr3HszPFce9V+WNEBWTnyuK
03VT09YVkp8rQk9PfvD6O9Z/XWF5bsntLaWF5OeKIzkDY7MCmJ8r0hceb1n7
4jX5uWJllFWbwfJS8nOF54OhGaUjmZ8rygTW4kXiv8jPFZWO8dP+HMv83KDX
56ZO2zp63vTckFGfun7HonLyc0O8GV9ldo3WAy839f3k/NzU6wPn54aRb6++
vH6DnrcEt//OW+lu8J+cP+1i0Sfyc0PzNo/pJ0ZQPZe7wVvv0Binn6ieNdzR
Y19hi+/GBvJzx/XEUbHScDZfukO8+uDKpE1sfXZHXKVnliqDzZvuqK6sHr5V
2ER+7ur9AefnDq2o0/ohDqx/uKvnf87PHSfqV449vJv1X3dMCYwz1brP+q8Q
zjN6bw/3Zf1XiJ5tykKzRW3kJ0SYVVZb5nzWf4Xqfsf5CfG/o8dad02kfhkh
xKBetdMPx7L+K8TbjP1JO1d1kp8Q54M1927oYP1XiNPvnEVXlV3kJ8RO5/yI
tOVd5Af15/98Xxvg2fs8TwjuIl9A5VN9uP8O+n8TQLdngHWu9Reab4AFa0qM
jAy/CAmn/py7HmB/Zsox6zfE8wYSFx2KcTQinj9wdePESXeiOjleMGBqmmNR
OqCTrhcInaD1fUtqB8fb2f25+RWfCXJ2/YA9+uxJ9aW8kqDeP3HzErBwc/CA
UDHNL7eBUunV8JJGtn8C3j222Fu+h+5PESBaOGpGH2N2P6HeD/3DawSMLvMu
5B2hetEQIfdm3mNx0GfKTwT9izknv7lL86WeCC+84sf2Gf+Z8hNB1eXiOWgO
zZs8Ec4PWz7IZfdnyk8Ei5zI8nmXiOcl+u/+ylsE4QedbW9GE89fhORBw/Mj
QhopPxGeKqRlXgMbKT8RHJYOuFczkvZPO0UImbK+3rMH608inLn+aHGBSS3l
J8KAIt1lit1VlJ8I3oX5WVZ7yik/EaQy9/kRX7H+KsK7ZMHAbQpab4pEGNJD
5yn/QRHl183fVDg4uzCf8hPhnNG3a/QuPKb8xFgXoItIZSblJ0br6F8aW95e
p/zEmHIsJm7D4rOUnxhpJb1W/jbkGOUnRtChoTLj/K2UnxgrEpeEVOX/ksHl
J4ZOquflhrzfM7j8xNBw83/xjdP5DC4/MVLPrHmWUHMlg8tPjDcLF6uurb+V
weUnhp/IOnbgywccb6cYjZqVB7/8kMvxEsR44tA22VA3n+MlibHB5ku4493n
HC9dDN34QNmJns853m0xUoIqCnieBRwvR9w9CcVvbtxaxPGKxFjSa+Fwk/0v
OF65GOc75fqR4/7keI1iCBbN3xe5NI/jaUjQwfsSn9V0l+NpS7BxZfT6I0sv
cTw9Ce5+3pK8ND+e8pNg8rmY5qs2l2j9kYBXIz98xfAW5SeBQfWZBM3h96j+
JGjfe/TWmKoMqj8Jdg3UrHM1ukL1J8GZa7Ne73C5zPGCJTi07cWfXq+IFyHB
/pjAtqYVj6j+JDC+IvJL0cmn+pOo949cfhIcFKZ6hsRRf06X4MVpxcgft9N+
+rYEyvzDR/PaSqn+JNjrOL3XTJe3VH8SbPn1x+ped2l+LJegWRbR9osx9atG
CVozeZuf6VRQ/UlxyXdojrNjJdWfFB78r2bMOc7mVSmyPyUJqk5WU35S+E0T
/fZoNZsPpcirHyhdsLmW8pPiUdWTwgU2tZSfFDp/JuratdRQflIcHFvnsSPl
I+UnRWeaeKShAc2HwVJkzLKfpNOX5qsIKT7qCX19RlA/3CmF2ZMGwfdT2Pwm
hcG14z3eC+i8I0mKjV5NeaEn6TwkXQqVpun6mXtoPbgtxcV9+vvXhrP9bbef
oU3LgIN0Plckxb1JY6c7bWH73e7rsdw6P3UBncc1StX9kMtPhgC99oqBidQP
tWWoe7M33nwV63cy9fkVl58MrUvPmhc70H6R1/15pWep9yLqb5BBcOfaiCpP
Wu+9ZBg+eHj1m1G03nvLMLhP4aayLNYfZTDQd9tqcpL2i8EyOCul7SkpbL8q
Q8EFrS/5vVn/kIHnNtovwJj1DxnCz+7++sYQ2p8myfD01Kulu0LZflam7jdc
fjIcKo5/KDEgXo4M84IXies2EK/oXz6XX7ePzDtnRTDxGmXwaelqCUxk+1/5
f/ubthzb+BHS5umdlJ8cL6/Mc4kd3Un5yRGfE/nlj9nU73lyLIssHvVpLPVL
yNX7bS4/OY6XPeNJvmP5yaGvu9z0kDXx/OW4v3eXTe+lxAuWw9Luc+b4A2ze
kGNaxU/jVvdk+cnh8VpxefUF2q8nyHE16sOVPQLWf+UwMBr2Nm0UzTfpcoSc
MZMp+HTeeVv+3/OGHDnWHK8uUrxj/fff91x+cjhkh5242krnFY1yWLlcmvlZ
xs5PFerzTy4/BSZcuO93TYvVnwIOuf75nTzimSgQMELnj4cr2fmHAklrxiYW
hNP5ARRY3Lfzk3sim8cUGD68WvldLJ2/eiuwQsfZx72ZnT8ooL1tfOupIrre
YAUSvN+K+lmy+lPgoUFP6WBNlp8CQ7bHaI25zOpPgUMFyQldpaz+FCh1aanT
lrF5ToEnJxv5HqD7e1uBH8Y86qGaz+pPoT4/5vJTIPpB9qXoxeRXroDzVH1v
R2Pya1Rgep0sFRfYebESvlrxZY8esudXiZTI0YeTwmn+1VMirX/S5m9L6Tzf
RIkujRNzI+3YebASyX2FPzT3pHkISsS9X/hL+lY2vygh8PEUjAlg84sSNdUv
pNnr2fyiVM8zXH5KLP0K8Snn2fyiRFPo4X27LIm3UwmT+/Iw76XsvFmpPm/m
8lNCrvpq2rdlbP1T4jfNbeZZOnT+d1uJpH739mf6sfNkJX6P9Zssj6b9Q5ES
h0I7ZD1SaT0tVyLqr+uGwnnEa1Ri3rDMjNTB5KfhAV5x/Lmy0Ebh/wErJA3i

             "]],
            FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
          {RGBColor[0, 0, 1], PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6],
            CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJw9mHlYzGv/x8tSWkhIkiXUtK8zUzNt8559siaek+xLRVGWqWwhhNAjVIho
QQqROsRJJEQIB6WIEqekhUqL5eiX3/P99P2nq2tmXvPqfb3v+/7cjVu80suv
j4qKygFVFZXfP//3GGOxdp9fZ0Z/EnDYvx9jvFlUffLfjZ8ES/1/P8ZI9Nh5
Ruf+J8HRhN+PMZLHJoXlDWgQlDz6/RjDK//7smpug+B/PBNcWdl6f8+KBoZn
Ahvf0NcuCQ0Mr+f1cu08vXsNDM8EsU3TnvT/QTwTxDg/zLQxbWR4LLzPOzbs
1NRGhsfCipt56+LCGhkeC4X5MunpmEaGx4K1wykk5TQyPBa6bW5VtZcTzxTb
l+QPyvxFPFPkeb9JtRrbxPBMccza2mk6q4nhmULre8mkZl4TwzNF1IVYg4VT
mxieGaY4VZUK5jcxPDO8+OC+sNaXeGbodym8Y/py4pnB7EHu/JJQ4pnBIkhk
FR5JPHO05vZ7zN9NPHPwvx5Nn7GDeOYwCLCdqHGQeObYfkY3qW888cwRffzG
Fe5h4llgwNnyuvJU4lmgecWWqREXiWeBEOu11/UyiGeB5ZcO+4VnEM8CZYnc
yrIM4lkibFW3rksy8SzB85QNt48mniWGOGscl60jniVWDP+29nnv32uJ441L
F38JJJ4V3jRtn6M+m3hWmHeWq7FlIvGsoLbK/1Ann3hW+CaPr1ltSjwrpI1U
3pQaE88ad8ZVD5CxiGeN4gzjt5lGxLMG/7J6lNc44lljtfJ86DMj4lnDZ1gx
J9KAeDZYnd2s+WoQ8WxQmBG/S62F+meDC3r7857XUP9sMEhtdXxgE/XPBknb
3mteb6b+2SJg3Mn+3eXUP1tMzjZ56lVKPFusXKAZ3a+UeLYoNCzaVFpBPFvE
Ldu9vP8L4tnh2ad7Y1ofMe83sMP6/17eHXO3UfD/eLYddq5Q5rDuMJ+fbIfb
6yz8j9ym77PDvP6sndeuMbwIO+iuqrGakUnfb4fUtiPTZ1xgeDl2aFj/w06Y
Qj52GJ+cVPD2KMOrtYPq/od1yXHkZ4/kwIpHOXvIzx5xxrV314STnz1i5ra3
+6whP3sYZyUMU19Ifva4laRUZ/2H/OyhHqKJ8d7kZ497D0RnXeeTnz0eG2ec
DJ5OfvZwVZo0FXmSXw9fbjcQEvJzwKXJhf4/7MnPAbbSV1PVzMnPAdfrsy57
jSI/BxhozRs8fjT5OWDMDoNdViPIzwF89xAtl5Hk54CVkcEjLhmSXw+vVV+6
34j8HDBXor//nj35OaAlUM77yCc/NjbnFrv0dSI/Nran/mvd6UT9YUOsx9Vy
dyQ/Nnx9J63fbkF+bCw0zrq/cDz5sRE1/eE/3g7kx8ZrnTxVmZjh5bCxxWrX
Wk0Z+bFxVXNbzeIp5MdG54ROmxuLyI8DbzXPs50ryI+Dj9sKx3oEkx8HdwS6
ds9CyI+Da8NmvPRQkh8HKt5LEk9Ekh8H4YtmN2XvJT8OtsYGCdbFkR8HS9YY
L3mVRH4chO0YcfPuOfLjIHXlUVeNfPLjojxi+wDzm+THRe0i3yHTCsmPiw1B
C7Rz88mPi8wVG67NySU/Lh7H1IZGZZEfF0l/j/3akEJ+XOibv+P5HSI/LqJt
DxbPiSM/LmJKNVwHHiQ/LqbqDuwKjiY/R9R/cTmfson8HNGycW7lpgXk54jS
C4N9/DzJzxGf9E2afWXk54jT7Pdh4SA/RzzlDpwHHvk5YsrNd22bueTniNWt
dac0LMnPEVoHN6YbDCO/Hn5Bve/7H3SeOyGQV3VwRD1zXhs4wTZuOM+xks53
J0SvUht6u4I5vyc74RmnVfv5SzrvnZCytUhyoILhRThhpfGj7pZHdP47Iap+
w1UUMrwcJ5Sp7P75PIfmASf4nTD8c/UZhlfrhGPP5KkrksmPh+yqrOJ9MeTH
g9s9o6f7tpIfD4Gz1f12biE/HlorooZ2biY/HvodPFa0Lpj8eJgyzo97yo/8
eGiMeB13Npj8eKh9d9XQcR358QCzysJ/N5IfD4fLfmm9X09+fDQ81mm+uon8
+JhhaVL9czv58RHATVk8KpL8+BCo7DY8cID8+DiyTTVnXhz58VF3kWM0Ion8
+NiSvLswOJ/8+Mirq/zUXU5+fOzJyh4YUk9+fBScTvRf+pX8nJEnqOG1D6T+
OWM/e9evLabUP2eEdlj7mXKof874WKxa9cGd+ueMa7YfPzxSUP+cMenaiK/q
C6h/zmhh5+Tygqh/zljLenJr3FrqnzOOnVtY5h9N/XNG8gn7WOMztD5csGmU
+6C03vXrgvBw7LR9SX4usG7w3dr3Pfm5oGGZ04jTveezC6JbAiNvqTHneYQL
+H+r/dg8gs5/F0zgz9Hx5THne44LzM+NnPvKk+YBF3x+6B+W6M/MD7UuGFDl
EfWtd35xRUxXc8jrEIZn4IqE6XszEjbRvOAKe4MJglcxDG+yK87fCx6vu5/m
EVcsy15k8SWW/FwRVDM9kXWE/FwR795vMP8g+bmCfz2x8Psh8nNFgzBp0esT
5OeK5CADZdAp8nNDqSc385808nNDh+pqpTiX/Nywd3fQrEW3yM8NOwPMTPRv
kZ8bNsQdm2Z/ifzcsO4l5/OHi+Tnhq71hjOnXCY/NwxKPuSRcJ783HA7ofHG
yxTyc8O/a8uqUlLIzx0dnUmb5x4gP3cUlGmFeO4lP3coi0c7V0eQnzv2FL0e
P3wF+bljTZ/aD+d9yM8dPt/YpqoS8nNHnNt3jdl88nPHqci0vREW5OcO85K2
Edos8nNHzCL1lvSR5CfAj+OXDXfqkp8A1d7trZ8NyE+Ad1UTh9Qakp8AVhOP
cwwGk58A9Yabgx9rkZ8AS+PPFBn1Jz8BzDyj7p9vp/UhwHMj8d2W3vlRAN3Q
k4npVbQ+BJB4vJ2bfp/WBzA3Il+rKI15vzbgmFa6rfoArRdAzdvLa/Am5vMs
IFv5k311Fc03wHoN//pJ8xkegDWufnEpC2k9AUn+NeOeiRieD5CWdbxS34HW
F/A08rsdx4LhKYFOdsu2WhbtB0BeeMq+kzYMLxpwsx3/McCO9gfA4Mu9Pkly
hpcGKEfp6BfPonkJaM/rjE5eyvAKgL9LMufMCqV8AOtb0cYRYQyvAljQP/RY
+wbKC/jJUlosi2B4bUCDxtQND3dQfkIYvdOL6BtP+Qkxxu1WU/Uxyk+IdOel
Sw9doPyEuHMl1dHqHuUnRLzJl4fTSyk/IVIjLlafqKH8hLD0zrMuaaL8hFAx
cPXu10n5CfFWMWz9WpUmJr+e98u8Q3707ldCzMiYcvi6CtOvaCEefNAJ0PhF
+QkRafck85++TN/ShLBbMKvrkDrDyxFiXmzahgs6DK+g5/vu6Pla61D/hTjT
9VHfczDTxwohhKq14031aD0IETcrRv/NIIbXJkRFnElrhyatDxHupj8sPKjG
8LRFaN6TFapNfgYimDRltF/ooPxEyJ9Uvt2sifITwT2s742uRspPhBkek8ay
6yk/EQ409bHb1Uz5iWDR0e08v43yEyFdv9R2Swf1T4Qxaa+rlndQ/0TouqR/
52Mz9U8EdsebNOEHyk+ElOVfR41roP6J8Lp8rfb+RuqfCNFvlrmYt1L/RNBJ
dCu2raP+9fhUHFoc9Yr6J8KLaz+PXyuj/onwwe7s61PPqX8iPBn7KaPsOfVP
DMtFjVs3V1L/xJin07khuYryE6NLmdQ2k/xYYgxLELw68YXOPzE+XB7yx5Fa
yk8MR6OZNm7PKT8xTr4ZWryI7oc+YuhtSH157iHlJ0b0Ry/NgtsMTymGyof1
lp+uUn5i8E9r3VhxhvITw6lkvl8F7S8JYoyZ6tiCPZRfz+9fM5e07qL9TIxz
Sx/ExtG8WyBGVldoF38v5SfG8tHHBsfspvzEyN4nsuqOpPzEuP9iaNKESIbX
JoZpfNv19m2UnwTD63Tnm2yj/CT4i3+tIieY8pPgbb+Cj0aBlJ8Er+aaHKpe
SvlJELzSV9C5mPKTYFP+zFWPZlB+EsTMX8fNEVB+EjxbW+kUMZnyk2C+yp+W
yQrKT4LRfiFf9adRfhIYB2QEnqH5PVqCgrTcKy9mUn4S3Kz3/CNqBuUnwVNV
/62xsyk/CabFRJR/Xkj5ScAxlXu1zqX8JGgJ2Jffh+7DFRIMW7bd2qn3viZB
P82P+aGzKD8JKi4GhEQEUn5SvNc0311C85i2FP5fm6eo76D8pKh8NtnpwBHK
Twrx9Nc7Xc9RflLMaxx6NeYS5ScFi/+NX/kX5SeFbdihH0G9/ZOiz4UTJkZP
KD8pRn2eWmz8nPKTolA58p3aU8pPCpdg/zYb6nO0FFfdLTkltD4SpPi0xDR2
6C/KT4qVNZ+LToyk876Hn5U/5t0E2v+kaC90y9YeRfufFNlXDnuYG9P+J8W5
p5Gs/4yh/U+KdF78EFUjhtcmRXGUXu1nLu1/Mkzse8RnngftfzLsibjsZiGn
eUGGK7I97HoBw2PJMGv1W3UtEc0PMvSP0C1978bwIMOOpOykOg7NEzJsKL3I
f2zN8HxkGH5maYW9Kc0XMpTWH/+eQ/OIUoZVnWf3jBpC54cMPl8MM7t7zw8Z
TutlT/vSQvnJoDgmt5JVUH4y1AY+TIkuov71vK7GUfoXUv9kiKkdU52aS/2T
wSvwr7C8ROqfDEPvVO0o773v9vib9P83M5r6J8MfeqLgX/+l/snhmWO9MGQ9
9U8Oo4S8Vd+XUP/kGG0+tt9Q+v8NSw7eyiqrDDn1T45cyZ+t5XLqnxxBqg3Z
J3rXrxxFg4ubWydR/+T4831XdwCtD385hr4s2tyXeEo5NG7dru9ypf7JIXh2
/vIIAfVPjrvOngXhNA8lyNGcFHD7ESg/OYzTG7ovuFN+ciywD1480Ynyk8Mm
Stl8zZTyk8NkbcRb6FJ+ciw7xRXUtNF9TY4jB2L1jzYy97s2OQaP8T8eUE33
NwWSOqdItZ8z9z1tBWbkrj77ooTumwqo1NclRBUwPJYCc96V1Qkv0/1TAU39
2MNDLzE8KHD0QI1VWSbdRxUQ7aie1JHI8HwUyB5tfnR8LN1PFXj76pDKqV0M
T6lAWcn372Vb6b6qwM+OJ95ZUQwvWoEtdfe3au6j+6sCv8L0+0YmM7w0BeKX
OQZOzaD7rAKPXzZtf3WF4RUoMN3QMvrFDbrfKhBz38PK/z7Dq1Ag83KDlXcV
5afApPD0nPhuyq8nHz/FqFRL6p8HjoRsfJDv0Sj4P6vjI1A=
             "]],
            FontSize->24]}}, {{}, {}}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, -0.8604882330696317},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm], 
        FormBox["\"# particles\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SuperscriptBox[\\(Ca\\), \\(\\(2\\)\\(+\\)\\)]\\) after \
transformations\"", TraditionalForm],
      PlotRange->{-2.5, 2.5},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{{{}, {{}, {}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWEuIm2UUTVtrrQbdiDTdiTOZZ2byfj/u//7FwYq7iApWOgOiCKb1tYpS
CkIQRKSMgrhxFkWlkI0iOgEpuIiUihWyqH3yuxEnNZ2O+KgyuckN9/yb4WeS
k3PPvffc+30PH335yWN7Q6HQe3tCod2//EzRry+98vSZUH8zndp9pujoz5d+
m+1vba6t7j5T9MZ6486pff3ND9d3nykyl48f2b6rv/lDd/eZovC54588f3d/
k/Gmab97Yy34b2uENy34jDdNjcPXzx38d2uEN01vl26/sHNwjDdNV3+/+kjs
r60RXlR+j/GigBelDx4fXDy/d8wvSuWz1x96/c7WCC9K3S//OPncnjG/GYmH
8Wbo4lMnbl44MMaboVOxK/Fr22N+MxDvDH316XbknXvGeLP07I1BtCr8ZiU+
xpul/gPb3x8+MOY3K3wZb1biZ7w5iHcO4p2DeOdEb8abfJ7x5uX3GW9e8Blv
HvI7D3jzNPPmrdc+2z/GW5B3xlsQPoy3IPXAeAv0cf+ESZLfBdGH8Rbl+4y3
KHwYbxH4LQK/ReAXg3hjdHZf4/NDwi8m+jBeDOolBnhLwG8J8rEk9cV4S8Bv
8s54y9Afk3fGWwZ+y4LPeMvQH3Gp3+HnI3GJdwifiuvvr8RBj8n7EK4ZpzMn
rx3/6O9x/U/wh3DtyeeZT1z0G+IFgBdKSL0xv4TwZ34JqRfmlxC+zC9BCy/+
Ujl9cxRvMyG/x/wSUh/MLyH9yPwSOt5g8nnml9R6R5IaL5XU+VxJgn5JXc/N
pMTH/JISP/NLgn5J3Y9BEvRLAb+U/J/rJ6XxVlLQjynRg/mlJB7ml5J8D/Ha
gNdNaT8LUnSofvXHb/8c11+avjl9+XLj1ggvkob6TouezC8N/NI6H8008EuL
nswvDf6Zhvymwf8ydOmfnWfM+8f6ZaR+mF9G4mN+GdGD+WU0XjMD/DKiB/PL
gH4Z8SPml4F5lNX1HMmCf2WFD/PLQn9kRQ/ml4X+zYJ+WZ2PLuAFWfDnnI43
kgM/zEH95aTemF8O+OXA33K6nts58M8c8AO8UB76Iw/65SG/eZnfzC+v/b6Z
Bz/P63pu58Ff8uJfzC8P/lwA/yvQYxduf33svjG/AvArQH8UwF8KUH8FyG9B
9GB+BeiPAvhLUe8TkaL8HvMrij7Mb/LO/IqQ3yL4cxH0A7xuUc+/oAj+XIL+
KNGDazvhn8Jj/UoSP/Mrwf5VEv2ZXwn2iZLMN+ZXgv4o6XiDEuy7Ze33kTL4
c1nvPytlWjv16vtf3DvWrwz5LUN+y9qv2mXYB8rAr6z9PlTR+2ekIt9nfhVd
LysV2L8q4M8V8JeK3gfbFeBXgflWkXiYXxX6owr7eRX8rwr+V5X8Mb+q8GF+
VZlPzK8K/VsF/aq6XkI1yR/zq4G/1KA/arAf1mB+1CC/Nai/yTvzq2k/CGow
P0j7b5gkPuZLdGvP5Xf3D0b9ECXRf7Q+aD8ggnlNOj91gvog0WcI1yDwU9L1
0CI4D5H2z43J/3lfIp3fDoG/kfbrHmn9AxK9h3gDEv9l/QztH2ED/MbQ8UYN
0Zf1M/R5kAxdXyuGzncd8FYN4cv6GbCPG3o/bhkwnwzdDxuGzkfboCPfXXnr
iZ1Rv3UAr2toP+wZ4MeG1B/rZ4C/mHpeh02oP1P7cdSE+jM1HpmSf9bP1POp
Dnirk3fWz9T+0jRBP1P0YP1MfX7ZMPX5qW3q+dYxwd8g3p6p959g8nnWz4T5
a+nzZ9iCeWzp/EYt2L8s7c9kgV9aup7rFpz/Le0/DUv3R9PS9x8tS8e7bsl9
CesH/NqWzm/HAv8Ffj2IN7D0fBlYcD63tV+FbdGX9bN1vFFb6oH1s/X8JRv8
3Nbx1m3pL9bP1vO0YYv+rJ+tzystwFu3oX9t2Odsnd+ODfdRtvgP62fr80tg
6/PdwIb7K0f3W9jR/hJx9P1Y1IH6c/T9Bjngf472l7oD/evoed9wYJ90tN+3
gN+6o+fjhgP7JvDrOHA+A7yeo/05cHS9DByoP1f7QdiFfcYF/3PhvtDV8ZIL
9w2urue6C/uPq/PRcGFfc0E/F+5fXfFD1s/V949tV9dzx4Xzt6vv+3ouzF9X
3y8PXNj/PL3vhD3wP0/nN+rpek55eh8iD+rP0/tG3YPziyf9wPp5UH+e9peW
B+cHT8e74Wk/aANex4PzD8Tb86D+PJ2PgafzEfJh/vrQv76eR1Ef7m992Y9Z
P1/8nPXz9T5d9/W+turr/DZ8qD9f91vLh/O/r/eNDV/7QdvX+3MH8LoQb8+H
8y7gDXzYXx4VPf8HOqL8yA==
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWEuIW2UUTl/W0agbkaZ0I87cec8kuXk/z31fcbDiLqKCSmdAEMFMrbqK
UgpiNiIioyBunEVRqWSjiE5ACi5SpGIXWUitLXFnR9N2fFadnN4Tznc34XJv
vvv93/nO4//vf/r5R4/tjcVib+6JxXZ/+Zoke3n96PX921sZc/eapDP7mh8f
2ru9tba6e03S2w8PL3z7//27G7vXJP3x6YnsG3dtb53r7V6T9P72cZsmtrcY
b4p6n/128qk9Ed4Uxc+uf/DMbRHeFFXOXL7vpZtXb+GN32e8KTrgX1kb/Hv1
Fp5BL280b57aF+EZwM+g7Xuuf3P4YMTPoJ+fe+Hx07EIzwC8aXnOeNP0+YfX
E6/fHuFN06HGpe+++j3iNw38xs8Zb0bWw3gzdOGx47+ePxjhzYB+M8Kf8WaE
D+PN0vQr1058dCDiNyvfZ7xZevLK0Kjtj/BmRR/GG98z3hzgzclzxhvfM96c
8Ge8Ofk+483L9xlvXvRnvHngN0/Nw5fPTvxz9Rbe+J7xFkQPxluQ/zPeAvBb
gHiM32e8RfDfIui3KH5nvEXgtyh+ZbwluvTLpQcW/4ziuyTxYrwl4LcE/JZE
H8ZbhvUuQzyWRX/GWwY/L4P/kuLf0fuJpLw/gjeT4r/R/1eSkI9JrV8rKfnC
308KvxFcJwl+S4q/RniDJKw3JXowv5R8j/mldD6spIBfSuLF/ABvIyXfZ34p
0AvwBinRl/mldT1KpOV7zC+t8VbSwC+t8Vpp8ENa6iPzS4u+zC8t/mN+ab3e
mEmvlW88uzMR6WdKvNk/pujJ/Ez5P/MzJf7MzwR/mbp+dUzIf1P7fWBCfmTk
OfPLSPyZX0biw/wyUC8yuv61MoLP/DI6nzsZiG9G14tBBuKb1fmeyEI+Z4UP
88uKXswvC/7Lgv+yun92sjoePcAbZIFfDvjloB/nIL458F8O9Mtpv2zk5PvM
D/B6Oe2XQY5On/xp/b2/ovqS135O5OX7zC8P9SUP/TQv8Wd+gLeR1/2pk9fx
6OUlX5gf4MUKul4lCsCvoP28UoD6XdD9slWgL9+5eLF5Lap/Bd3vOgWo7wWo
fwXJJ+ZX1P0wUaSHzt/44tidEb+ixlspij+ZX1HPV60i6Fek5JETV47EI35F
HY9eEeJbhPpcAn4l8F8J8rcE/itBfpSAH+B1AK9XkvUxvxLEt6zrVaIM/MrC
h/mVIX/Ler2tstRb5gd4nTLEtwz6lWEeqkD+VmDeqkB9qYB+Fel/zK8C+lV0
Pe1UJL+YX0XX00EF5qEqHf36x1cf2Ynyowr1uQr8qjB/VSG+VZgPqqBfFfSr
Qv+tQn7UIH9rMF/WoP7VtF9Wa1BfajBv1+iHv3eesO+O+NWgvtSED/OrwX6m
Dv6rw36kLutnfnWNt1rX/bJVh/gCXqcu+cz86uC/OuwXSOrJ6P04QT6Trk8G
0dqpF9/65I5oviHNjwjynbS/GwT7LxI/juCaJPtDXi9pfdoE/X3Mf4S3OX7O
8xJpP3cJ/A/r7RPkw5jvCG9IUP8s3R/iFuhn6XwwLD0Pm5buH2RBPbJEb9bP
gvnMEj6snyX9m/Wz9LzTtmQ9rB/gbVqgn6Xztwv8esCvb4F+lp6vhxbMf7bG
i9vyPutn6/2XYYN+tp6HyIZ5wtb53LChf9vgP1vX55Yt62P9bD2vbtg6Xzdt
0M/WfunasP+xwX826Gfr+A5t2J87er1xB/qJA/o5ut+bjuZHDuSvo+PRcGS+
Y/0cPV83HdGT9Ru/z/o5UF8dHY9NB+YlR9fTrgPnH4DXh/UOHD2/Dh3YH7l6
vXEX/OfqeBguzA+uzjdyoZ672i8NF/qPq/k1XZgnAa/tQv90wX+ung87LuSv
C/O7q+tB34V+AesdujAfeOA/D/qxp+d5w4PzM0+f55An+rB+nu53DQ/OO8b/
Z/08yF9PzxNtD/qHB/XPg/2Op/3c9XS/7Hn6/KTv6f428PR5zRDwYj7o58N5
jK/nH8OH+cHXeOTDeYMP+vmQv77UN9bPB//5Oh5tH87nfPE/6+fr9XZ8HY+u
D/3D1/WqD+sd+OC/MV/WL9D1NB4IX9YvAP8FOr5mAP0jAP0Cvd5GoNe7Or5n
/QI4Lwn0eU07gPPDQPt5M9D50QF+3QDOGwMd334A5wWB3s8OA+i/oa4v8RDm
l1Dvn40Q6l+o6wuFMG+H0H8BbzWke9d24t9H/agZwrwLeO0Qzp9C8F8I+x3A
68J6e6E+j+mH4i/WL9T9aBjC+fOD8v3/ADtgsq8=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWEuIW2UYTa1Vq7HqRkwpgjCTec/k/Zi8/vu+YlBwF1FBpR0QRDGtra6C
lII0GxEXoyBuzKKoVLJRXMwgFFyMSBdFsujGlrjsaGxLUVuZfHO/yzl3Ey65
99zzf4/znf9/5vW3Xzx+XyKR+PhAIrH3K9eM+bB2683bh3e3Cvm9a8a8v9m9
e+7g7tbGib1rxvzw1c3URw/tbn22uXfNmLkP/j799aHdrV929q74fcGbNclL
J79844EIb9bsPnbz56MPRniz+rzgzZpXr0/SzfsjvPh5wUsTXprw0oSXJry0
8hW8OXPxYPebp+6L8OJ7wZsz3aPXLh3+78Y+3hytN35e8OaJ3zzFb9788da7
L19IRPzmjb128oWbym/ebJx775NvH47wFswXu6dso/lYUHzBW9D1Cd6CxkPw
FjRfgreo94K3SHiL+r7gLdJ6Fyl+S/q84C2Z5y7f+vH4IxHekq5f8JZ0/YIX
/y94y7TeZcrHMtXfMvFbpvWumJ3v/zr72oEIb4XwVvR7greifARvReMreKt6
L3ir+n3BW1V8wVs1V1469edlzccq4a0RvzWq5zXz6fOTK78qXvy84K1RvWQw
3qmMfn8Kn88ov+n77YziyfcyGL9ehtaT0e9N4YYZ6q+M9t8Ub5zR+hZ+Wcxf
Kqv1Ivyy5pB/fWN878Y+vyzinciivvSyVF9ZjZ/wy1J9ZM2d704Xzz8a8cuS
vuSwn1I5fV/45bC/2jnil1P+wi9H/HK6fuFHeDs5jZfwy2n+hV9e+Qi/vP4v
9ZPH9bbzlN884vUIbzOP/TzMU73lzTvzd+49/UTEL0/1XED9TRV0/cKvoOsX
fgXqxwLWc69A/VnA/hsS3g7hjQtUf0Xqj6LqkfArUn/E/wu/ovaT8Cua81fP
/LbxeMSvqPEUfoS3U0S9GBeJX4n6o0TzpIT91i5RfkuI1yvRfCjhfB/G+MIv
/r7wK5Gelolf2Vw4+/vJz/+5sc+vTPVXJj0rY730ytr/wq9M9VfWehB+ZfNT
cObcnSMRv7LWh/Cr4PxKVag/Krp+4VfRfAq/Cs6jXoX6o0L8YnzhV8F8jCuk
L1XiV9V8Cb8q5qNdJX2pUv1VSZ+rON+HVdK/KulLlfp3nfRlnepvnepvnfIb
Py/81kn/1tFvDQlvh/DG6zTfaspf+NVoHtfM1X9vv2IfifjVSF9qFL/4XvjV
KH410pca+rlxjfq3jnipOvmjOs23OvmvOulznfJbx3oZ1qn+6tS/dfJrDZpv
DerfBup9u0H+pkH92zD1i9eePHM38scNym+D/G2D4tcgfk2aH03yR03Slybl
t0nzo0n9S3jDJulzU+Mp/Jo0f1uaP+HX0vULvxbNjxbpcwv1oNfS/Au/Fvrf
YYvi16L8El7C6PvT55OG+sVg/NNG17dvHzAfxqBfbxvUr45BPTlhdD1TuK4h
PTCYvz7x2zSavynegPCGBvOxbcg/GczPKI6HxMto/U7xJob2bxbyS1qqJxI/
C/s1ben+UOJn4TwyFuavbaE+dCyKn4V+vWtR/CyTOXb6+rFkFD+L9kMW+pWB
RfEjvG2L9jsW9svIIj22tD8lfhbqacKm+NmkN/G9xM8mf22jvzc26ZFN9WfT
/tpG/9+1Se9tzEffJn2wsV4GNu5Phjb6g22b9nc25ndko78Y21pvEj+b5oeD
8z/pkF91UI/TDp3XONS/Dumlg/3Wccj/EF7Xof0g8es7dN7ioD4NHPTXQ0fj
KfFzaH456PdHDvWvg/uJCfFLuOjvki7ptYv1nHbpvMFFfsbF/LZdrOeOS/sD
F/1I16X4ueh3+q7Wt8TPxXoeuOQ3CW/bpfnlYj5GLp7HjAlv4pL+ebjepIfz
KeVR/Xmq1xI/D/vNeDofJX4e8ut4VH8e+s2uh/Xc89CP9T06H/FI/whvSHjb
Humfh3o68ug8w0P/NfFQTxM+8kv61L8+5iPtU/356K+Mj/zaPvZHxyf/6GN+
uz75SR/z2/epf330UwOf4udT/Hw6H/BRX0Y+xc/H/fHEJ/0LyL8EeP6aCjC/
6YD8dUD6F5D+EV4noPkbIL9uQPMjwP1oPyD/EqDfGwS0nwiofwPSv4DmR4B+
aByQ/sXfk/iFqC/JkOIXoj6nQ/LXIeKZkPQvpPkb0vwN0f93Q9pPh9S/ofoZ
iV+I+jwIaX7Ez0v8Qjq/ILwR8RvTeich7S+fVbz/AWoaohs=
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWEuIm2UUzbS0IMxWadyJM5lnOnm/H9///pWgogsZcGPB6UYpmC505Qil
q0EQkRK7D1IRCkEQoU5A3EUKgkJqa1+SUh+d0VR8YZXJ7X9/zslmCMmc/3zn
nnvu/fLEiVPPv3IokUi8O5dIHPyV14JpXLz92BsP9nYL+YPXgrl57+aT6b/3
dk9uHbzi9x/0Dl4L5mz6RubW73u7X40OXgvm8oWrT3d+2dsVvEXz7Bc33n7u
jwhv0XQfv/3lI/9GeIumZ66d/+xehLdoTnx77efl/QhvUfEFL2WO+D+cnPwX
4aUUX/BS+nzBS5m1V79vnvs1wkuZC2dunT7/T4S3pJ8L3hKdd8kc27z59ed/
Rnjx54K3pOcRvGV9L3jLii94y3TeZXPp3PXr3fsR3rK5P3f9nSPTCG/FXDzc
/fjYof2HeCuk34qeX/BWiN8K8VvV8wveKum3qnoL3qppvvXdh6d+jPBWqb5r
yl/w1ojfmp5f8NbovGuKL3jrhLdO/NbVH4K3Tv5bN3dee/2lC4n9h3hpqkda
/SN4afJzmvilSb/jxC9+L3jHyS/xe8E7rv0leBvUbxt6PsHb0HoJ3obyEbwN
9ZPgZdQvs+8nM1qvGXw+o9+f/X8no/rJ8zLYb9sZej7hDTLUrxk97wxvEn8u
/LJYv2RW9Rd+WfW/8MtS/2QRb5vwelnVU/hlyR9Z9OckS/mSw35K5hRf+OWw
np0c1SuHftnOqR+FH+ENcmb06W9nXp7bf8gvp3oLP8JL5DE/knnK1zzidfLk
z/j7wi9vTt+98uLc3Ui/vOoxwxvk0S+jPPbjJE95WtDnCb+C1lP4FfT/hV9B
/ST8CuoH4Rf/v/ArYF4PCtSvBdKvoP0u/Iqqp/Ar0jwpop87RX2+8CuqvsKv
SPlbxHwdxO+FXxH9PCmSfiXyX4nyukT9UaL6lki/EulXUv8Kv5KeX/iVqL4l
yucy6Vcm/5Vx3nbK6h/hV8b5tl2meVPGfB2U1R/Cr4z9NimTfhU8b7Jijj56
9a9rP0X8KuS/iuaF8KsQP8LrVbSfhR/hjSq4P0wq2G+JKp43WaX9o0r1rZL/
qpQvVZo3VdVH+FWpf6vUH1Wqb438V6P5VEM/d2rmoxeuHH3vTsSvRvrVVH/h
V8N+G9RoPtZofhBeok75Vyf96lTfOuVzneZbnfxXJ//VqX/r2v/Cr07zrUH1
bVC+NDCvOg3aNxukX4P2kwbVt0H8GjTf4ucJvybOo2ST9GvivOw0KV+aul8I
vyblX5PypYl+HjVx35g0Sb8W+a+FePkW+a9F+0sL82C7RfVtoZ8HLZofLcrn
FvVvG/fZZJv4tXFf7rSpvm2qb5vmb5vmW5vq2yb/tSn/DPp/3tA8NpgnKYP7
Ut4gnjHa33Ieg3m4aSg/jfpvBtc11G8G5+uOIf8Y1L8f85d9yeD8HRrKN4P5
MDaUdzH/Gd6U+CUszKN5i+aJhfVMWdoPop+FfjYW7RMW9vMm4W1Zylf0s3B/
2ba0f0U/S/UX/Syc3/34PKKfhfNjaJH/LfT32ML70iT+XPSj8yZsxJu3cT4l
beUv+tnKV/Sz8X5kbOp3G/28adP90Nb6i3423RdsvB/v2OQ/G/Okb2M9Bjbe
t4Y23S8Ib0znncTfF/1s1VP0czAv5x28fyUdPG/KwXmQd6h/Ca/j4H1p06H9
28H9puuYN3vdB2cPR3nvYH13HKxHj/j1HdqHHTzvkPiNHOyPsUP7VPx+hjd1
qH9d5Sv6ueQ/F/Mg5dLvAy7mvXHJfy7Ok02X/Ofiebvx80U/F/Nlh/j1XMzT
vov768DF+TEkvJGr/Sr6uaSfi/vN1KX9wMP+mPdo3/LIfx7d7zzEMx7p59H8
8Gh+eOjnrkfzw8P5tuPR7xOE1/fM+89Mv7kc/X428Kh/6bwjD+83Yw/n5YTO
O6XzJnxz69L4k4VJpJ+P+Zz0cb6lfNoffJofPvWvT/r56OctH+vb9ek+6JP/
fPRLz8e87/vUvz7NDx/n0cjHPBj7mC8TH+s79bE/EgH+vjUf4H6UDHC/TQW6
b4l+AdbXBPR7TYD12AxIvwDvs92A7vsB7S8B5R/h9QPMq0GA9RgGNH8DrO84
oH2Z8KYB7X8hzY+Q8i8k/UK634Xkv5DuAyHtLyHd70P8vbob0r4bYh7shNhv
PeLXj/FFP8IbxvxFv1DrJfqF5D/CmxJe4in1//+PwwZh
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWEmIHGUU7skGgb4qaW/ipGef6X1f/tpLaYx4kQERjJhclIA94nKxhZDT
IHiQMAbE0yBBIdAIIsQZkNxaAoLCaGJWWuKSGe0EN4wy87pe8X11GYqu+ep7
733ve++vR4+fevrFfYlE4t2JRGL3r1yTpnHh1sOvP9jeKOR3r0lzb+LaOwdH
2xsnT+xek+aNte6DM/t3Nt5f270mTfeRW5cO/7u98dVg94rvBe+oObNwPXPz
foR31Ny4e+Oxhb8jvKPmyPKNr7/4c3uMFz8vePHvgpc2F/Z3Pzmyb2eMlzYX
z1671r0X4aX1/wUvbQ76t08O/4vw4ucFb8oc+/L620/9EfGbUv6CN2Xee3L0
zeV9UbxTZu6lH5pnf4vwpsz50zdXzv0T4U1rvgRvWt8veNOKL3jTZvDZ76ef
n9gZ401T/mY0fsGb0fcJ3gzlb4bindF6Ct4sxTtrfnz5lWfPJ3bGeLOaH8Gb
JX7xveDNUX3nSC9zii94c8pH8OaovvOaX8Gb1/cJ3rzyF7x5c/zbq79M70R4
85S/BcrfgvIVvAXlI3gLFG/8vOAtUn8sKh/BW9T8C94i6XmR6rFE9VhSfQve
EvXbkuZT8Ja0nwQvY+yllWP3D4yfT2U0nj34fMbcvLj16eRwzKeTIX1mMN5e
hvKd0XzuwfUzVM8M5neYMYceuvLX1Z8jflnUayqrehF+WdRvJ0v6zGK8vSzp
K6v6FX5Z7RfhlzXP3R6lWwfGeMP4fcIvp88Lv5zGL/xyqI9Ojvoxh3ru5aif
cpp/4Zejfs2hnw1z1G959I9UfC/6yWM/dPKUv/he+OUpf3l9/x5eP696FH55
jU/45VVvwq9A9S1Q/xUofwXyiwLWo1fQegu/AvpNn/AGBdTzsEB+X6T6FjHe
fBH13InvhV8R/b5XpH4vYj36RdWP8CtS/orkByXKX0njF34lzZfwK+l8En4l
xOuV1E+FH+H143vhV0I9D0uUvzLqOVUmPyyj33XKpL8y5a+s9RN+ZfT/fhnj
HZSJX5n6o6J+I/wq+rzwq5C/VKi+FYy3V6H6Vqi+FfL3CsY7rNB+UMV4U1Xi
V6X6Vmn+Vam+VeoPwutXSX9V3G+GVe1v4VfDeFM14lej+ta0XsKvpvyFX432
kxrlj/AGNfSDIeEl6pS/uvqd8Ktr/YRf3azc+e6ZiTsRvzrOox7hrcX3wq9O
/lyn/q3T/G2QPzdoP2pgPToN2kca5H8Nqm+D+qNB861B86OBfp9oEr8mzY8m
4nWaZs1cPff53Yhfk+Zbk/btprl8/soTnV8jfk3SXxP3/2FT4xF+LYw31aJ9
uoV+1WlR/7ZovrVM863vPzr1U8SvRf7XIn9pkb+0aD9t0/xo634m/NpU3zb5
X5v2l7a+X/i1ab616bzRJv21NT7hZ/A8ljQ431MG99W0Uf7j9QHrYYzOF4nH
oD8sG9pX4/fvwXUN+ZXBfl81pG+D8a0b1Z/sSwbruxk/L/kx6DdbBv1pSPxG
xC9hof6TFtYnZeF+kbZM8tLKhy8civJnod8bi/zSwv5btuj8GuNL/izKn4X7
/yrhrVno7+sW7v99C/W8adF+Z6G+tyzqBwv365FlPth51TaHI3+xsR5Jm/rF
NlNv3nvt44NjvaRtxMvblD/C69jKV/JnU/5s1ZPkz8bzYM/Gflq1aT+30Y/X
bfUzyZ+N9dgkfgMb9bxlY78NbdKfTecPh/Tn0L7laL9K/hz6HuKgvxiH/MjB
fXDZIf900H+6Du1DDvrLqkPz3cF9Zd1B/+47uK9tUrwDB/tty6F55qj+9/BG
Dp33XZwPSZf2BRf35bRL+79L+nMx3o6L9Vh26XuWi/O5S3g9F/eJVcJbc6l/
iV/fRb1suqQ/l/Tn0nnIxfk3cun7hod+n/RofnjoB2mP9kMP+RmP9m0P9bLs
0fcHD8+LXU/1K/nzSH8ezQ8P9bzu0T7n0fzwcF8ceOR/HunPU7+X/Hm03/vY
b0mf8ueT/nzav3ysh/HpPO+jnpd9/J5xwsf+6PqUP1/5S/589NM1H/W8Tvz6
Pvbbpk/nR5/mr0/7ik/682m/CnAeJQPq34D8L8B48wHpLyD9Bernkr+A9rMA
9dIN8HzUC2j+BvR9LEC/Xw/oPBbQ/AiofwPUy1ZA+3KA/TEKaL8Paf8LaX6E
iJcOVY+SvxD93oR0HghpfyG8EyH6fTek82BI/hdS/4Y0P0Kcb/0Q+20zpPyF
+D13K8TzyzAk/YV0/nhc7/8HFnjHwA==
             "]],
            FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
          {RGBColor[0, 0, 1], PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6],
            Dashing[{Small, Small}], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmHlYjekbx1PZkySRtXTa19NZO50637OfyDTMNBFZxzZ2UpZBSBNiQpaG
MEYYLoMajWzJmn3J1kTETLiMxk7D5If3d75d4/2n672u93zP5/3c93M/z8lj
8LheQ21tbGyWNLCx+fBXuETYJQvtlvDu72Kp5MMlwk3HkYNd3t8PH/bhEqHz
LN8M4/v7H3I+XCLI3G3L49/fnz3z4RLhQdyLZ4nv74U8LzyqmFtzp86a54Vx
+21VRuZ54U1d/NU1zPNCZcM3KaHM80Jv0coyV+Z5M1/I80bjPnnLhzLPG0ef
fJHQjnnesP/bWKBnnjfWNBYd78E8H7h6H/KQMs8Hummxq9yZ54OODn33aZjn
g5e5wyr7M88HN95sli5nni9mjy1rNIJ5vuiSsWKiH/N8kexjntyZeb44jZEz
FjPPF1tLZohymecHbX/31APM80PzI/ZTvmOeH4wDGpYnMc8PUc8P5a5mnh8O
Px7bYBDz/JFVaHhSz+eP31ukNU1knj9iJEdz9zDPH5633VLnMs8fi0rdj4cy
LwCbb5y4a2FeAOYMHdoxjXkB2DjyH1c98wJQKAo/F828AKR0Ll+gYl4g1kx1
UK1hXiAc902vTmBeIAqdE2tnMy8Qe1Y2Wh3LvED0XjHLPJR5QZju+nltC+YF
YXKn5+K5zAtCsku6eR3zgnDJxVd3iXlB+DwgwiGTecHQ1LWukjMvGEcqlwbm
MC8YjQa3To1mXjC+OVu7O455wdi9wkO3inkhSE+8sSCeeSHQ3z3psZB5IZC6
7li+n3kh6Dcv4/SXzAvB98X5FTHMC0VZaHyCzPq8Wyj+/NJp9ab39x/jJaHo
Zlw/MdX6+ZhQ7EkzjrnA7wtFfJMR+wqseamh+HfaskXp/P5QPPb7dc+P1ryC
UIz3mnFkB3lCcWjUsQHLrHnVoRiSOKbE3ubx//nE+GrdIzH9uImxLbKoIp18
YixvmOByi3xiPNzr0KnJ+88LfGLMHFOzfSf5xEi7HvZgPvnE8Oxl+/wi+cTA
8MXf/Eg+MTR3/igtI58Ye185q67SXxh6uQ1QHCVfGI73HFi7lnxh6JK8N3cQ
+cKQ3Lxd4j76C0OK7daJ18gXBvvYXr1OkS+M/SbwhSFiyrzqXeQLw6VOKwIL
yReGkXuVGfV8EvQrksZ88CnwSfDaSbrta/aPBN8+yX95nHwSzLx11eMd+SQY
JU/SHCKfBPcPjptRSj4JJq3qlrXbmlcggeO6mHOvyCfBkMu5NafIJ8GZn+82
qiWfFNMnp2hu0p8U2W3lDzaRT4rjRyxjHpFPiizXnll/k0+K7dLuTzaQT4ry
jN+Hf08+KfpOl2UUkU+KIpvZor3kk8It6fHDp+ST4rM9YzTp5JPB/4ApZBv5
ZLh7fljtdfLJkHcpaf128snww78X5uSTT4YeJRV+35BPhkG9ByuqyCdDfua5
urfkk2F88MPty8gnQ8+uZz22kE+Gn9WX55wnnxzZ5bUvGrO+ctRJHuywe38v
8Mlx9IpIt5t8ciw4/KygAdeHHK1XHlGfJp8csTvefbmBfHLWT+CTY+CgCx7H
yCdHQOSWtsyrlkMUnd20hnwKtBS9HHeM/hSYlOCY60o+BXRx+cvLyacAypMr
6+ur4LwR+BSwO7Vl51vyKTDnWo+sS+RTcP4KfAps7HG67hb9KVA34rc9B8mn
REdFTs/m9KfE+rujOh5kfZWonLg67INfgU8J72PnD10jnxJ+2uZTSsinxIFJ
nz0pJp8SNRubtb1MPiXfR+BTYlCVuFkH+lNixgSXWx05/8JRWvrFKyfyhePl
9ztV9fUN5/wQ+MJxJWtIbf18CUdetnK7ozUvNRxxmYH29fMlHKaWj5wcrXkF
4ajuvmHnYfKFY+65W3k19BeOfTUbY5/Snwp5hkQX1sNNBWfn9qv/pT8Vjp0p
jL9IPhXKcl+5OLD/VPAvGT2wLflUcPg24QfOqxwVIl9Xn2tMPhWSz1aM7Git
xxkVzv7Wb7oN/alYT4EvAuPXl3ncIV8E55nAF4G/xJHdzpEvAu8GRJ/7nf4i
ULioIP5X1jcC/rOaqR3IF4EbX3c9+I71jcC903Y57cgXgZUxJw63IF8E2h89
ndaQfGqszwvx68L6qvHkTtOKzqyvGt9Om3PShv2nRoQq+pkz/anx6t+JM/4k
nxo/H/sprin51Bh/Dxec6E8NmX3ZoeesrxqdJl8xbGV91Ug/9a0xmHyRcHZf
1rIh+SLhdWnIDR/yRaJ54KwGT+kvEh5Xj6vv018kxiRNsmM9UiO5PgW+SGCw
aZcf+SIR63G/9DH5IqGvnD2iNf1FYneTZoXV7L8o7NgW9bcL+aKwNPFgVL2/
KPa3wBfF84DAF4X5v07T/EN/UVCkOk6pJF8UnDpkzKtifaM+mS9RqDXcDnAh
XxSynWtCQuhPg/hTAaX1fBo8j7u2WUQ+DdTiiiYh5NPgZPGfDkGsrwaDrx/p
oqA/Dar65QSWkU+Dq9+9cOR+VKBBhmnP27bsPw1MlqpuMvJpsDl6xNou5AP7
5ePzDuC8E3iBmqDfH7B/vYEmRbukf/F8A8gWbVjGfkH988L7gO/3Ma8P8FWb
t1ft+H7gevoYNwkYejrE/h7rAe6/H/MygREH+xfp2N9Are3Mxk2teZuA8IMt
1H7WvAJgX1TqfZ4nDwGZKZ55zvQDLOlSPI0+y4ErTseqWtEXsCbpaKrImvcM
uH94+S9S+tPCcCZvWXf606LvxBO5VzhvtHj4dqyW/eutxXz7r67zfSVaXJv5
nei59X2hRcrCqcZW9KfFn7GlVcH0p0VFct3SE+xfLUa9VsR40J+W81Hwp8WY
7cMjw6x5mVqs9Xs+QUZ/2v+ur01aJLxcWP2Q500t5N0xzpP+tEhfktGc++EZ
LVL/qNrW1ZpXrqV/wZ8WjRb1dG1Df1o8Wxl+pn596PD2t+2v3ehPx/Uq+NOh
bvTNB/70p0PjtLsBYvrTYXHgFyvIBx1KElvuV9CfjvUU/Okgqrh4vDn7T0df
gj8d4NcrxZb+dDjRrLAD95tMHdeT4E+HoKfXmnAeb9Jh7KiGbj7sPx3rKfjT
8fey4E8H/ZXWM7k+ynXcDwR/OrxoPXmuG/3psC8lqWsg/enh4xA5rhH96eH+
42tJEP3pYW40y7venx4bEga0D+X80fP3kuBPj4amP4ZXc57rsXRF/hQj/ek5
rwV/ehS0WXtRbs2bpEfxsBmbOtCfnvNZ8KfH2sfvFKxvjh5xnz12CqA/PZ71
Ny5twv1AD1+782ld6U//yf6vhyHGsO0F168eJ9OfXGpIf3qs0ve5zv3lmR6t
Vj8Yw3lqY8Deoqsm9ouDAf03905R058BtwcWJ2roz4B+0oVb+b4SA97+onGU
058BXlkN9pAvxoDjMe3gQ38GbJtWZmpPfwbc7S0/40x/Bvar4M8A+1auAwLo
r55X8GfACf3WOD39GaB1/yOT+1+BATniGXaD6c/A/UTwZ0DSguy/+rD/DMg7
G3ivfr8w4Ny9O6f09GfA5JZRi33ozwjL0Y62XejPCGXTym7t6M/I9SD4M6Lg
xs8rW9KfEd3HVzaJoT8jbo0MsnjSX/3nBX9GnM9L3aSkP+Mn/ox4WboxyZ/+
jFhxopMH6M+Is48/3828HCNMPWNlbvRnxI2XA6Z3oj8j2mm63mW/HDKi6I1y
lI7+jNC1Td6goj8j4u3cbdX0Z0Sz8NaddPRnxN7UOw5O9GfCm9qWnbzozwTT
7Ctp/ejPhAOecr8+9GfCQ9mQ6Sr6M6Hs6sPPJPRnQkDymp6+9Gf673m6jwni
foqHEvozQWkzfqCU/kyIHRGXwvNBqgkLn061M9KfCfmdHfa3pz/TJ+v3/ffv
yFoYS38mDLcpudmD/kzYL3Ouc6c/E86PzhzN+VxuwtP1mwvrz3sm9oPgz4TL
2fP9fenPjNudE8Ol9GfG3Kyf8mPpz8x6C/7MKMwYtVZNf2bcufGPix/9meHV
vLdrLP2Z0WdW3yIv+jNjdsWkkij6M3O/E/yZeV4Q/Jl5Xhb8mVHdYtgBT/oz
40mHOhcT/ZmRH2/zUkt/Zgx1zs1vQ39m7teCPzPnjeDPjFHiwHQL/Zmx7t6S
Hv70Z0bxllunvOnPgmuN418F0Z+FfgV/Fmg2brkipT8LNjby8EikPwuK1024
raM/C5S6S2ka+rNg6tTc8dH0Z0GzVztfy+nPgppxakc3+rPw/wOCPwvmxu+Y
wn7OtGDEvG9mdaA/CwZ6Zgd7058F6XYTZsXRn4XrU/BnQfvnPS9b6M+C6Dl7
b7amPwvPK4I/Cwa19zbUr18LepccuBlKf9EoOmwQf+D5HyLSjJY=
             "]],
            FontSize->24]}}, {{}, {}}}}, {{{}, {{}, {}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWD1oLGUUncTEQrawEDWluNn8J7s7+/833/yPvAVFsFh4zXtg7Eyxhe0i
oiBBEEXZtPq2sLBwC+EVupWNeVhYbfEKCxexMHlGfKgoJrmZO5wzTVi+zJnz
3Xvu+c7MC3ePXn192bKsD5cs6+qvXHmzdDsc//TPmVOxr668+f5R+OvL/545
bxxeXXnz0fyzNx9Y587J+OrKm6Ni8HjlrzPnwenVlTdffvBi9OzluuCt62/B
W1d8wVs3je+CZPj32Q1e9lvwst+CVzDmfv6X35dTvIJZX7339BdPnN/gFczk
xJ988jjFKyh/wSuY20eff9teTvltEL8NxRe8DfPbyb07z6+m+91Q/oK3oc8T
vE3zVj7/6TtLKd6mPk/wNs3H70Xtb/5L+W3q/YKX3S94W8Rvyzxc8V/b/DOt
X7YueFv6PMHb0v0L3rauC9429Xeb+rFN+90mvB1z/pyZWWepXnZovzu6H8Hb
of7umLd99+7DRyneLulvl/Sya5458lbu/5Hy29V6Ct4u8dvT5wle9lvw9qh+
e6TnPdW74O3ruuDtE799c2vuTm9dpPz2SX/7hHeg/AXvQPUgeAekvwO9X/AO
VK+CV8R6rxV1f9fwdhH11s/W5XlFxBsVSa9Fff413LRI/czWr/EWRepHSfUh
/ErEr4T16pdInyWtt/ArmadeWW/eWUnrU1I/EH4ZvvArEb/sfuFXxv2ulYlf
GfXWL5Pey7jfUZn0VVb+wq9svi5Ovnr3yZRfhi/8yrhfy1Z84WeT39i6H+Fn
I96hjfob2TSfNvrN1Kb+2jp/ws8mv6pQfys0LxX0p35F7xd+FTw/RhU6byrE
r0LzX8H5WVS0vsKviv62VtV6Cr8q6qVfVf7Cr4r7HVXpvKnifqdV8uMq+vei
qvyFXw3x1mrqJ8KvpvUXfjXU82GN+luj+a2h30xr5Cc13O8ie77wq6sehV+d
+lun+tXJb+vKX/gR3riO/j8lvNM6+tWirvUUfg2a34auC78G8WuQ3zbIXxrk
59n/C7+G+qXwa9D8Nsjvm8pH+DURz26SvzQp3zSJX5P628R8NG1Sf5vEr4n9
sFrU3xb5S4vmt0X+0sJ8NWpRnmjhvE1b5C8t6m+L9NdGP11rE782nR9t9KvD
NvlLG/103NZ6CT/CO23TfLQpT3Z0Xfh16HzvkP46lDc71N8OnR8dql+H/K+D
eWTRIX5d6m+X/K9L9euS/rpUvy75c5f01yV+XfK/Lp2/PZrfHuXfHuql36Pz
o4d5fNQjfj3Mg9MezUcP88aiR+8zDp0fDtXPMT/+vP7+D6tpfx3KLw7lA4f6
66BfTR3Sn4N+uiA8y2BezxnKCwbvv3ydSvt1Ex8Q73IZ8nDf4Pk0MLpf2Z/R
/l3DDQ3688igXx4b8i+DfjIxOr+Slwzm05mh89Xg/M0N5YHs9zXehaH5cFEP
OZf06CK/gkv50EW9GJfmycW8NXBJHy7m16GL+WDkYn4/Jn5jF/1z4mq/pX6E
N3PpfHVRL3OX5jVbl/oRnuWhXnIezt+ah/5Z8LQeUj+P6ufReehhvhx4VD8P
8/XQo/p5qJdjj+rn6Xkj9fNQz1MPv0fMPKqfh/Mx98iPPZy3C4/ON1/rLfXz
6bzzSX8+fQ/xaX598ksf88fAp/zj4/k39ClP+tiPY5/ev3z0l4lPedin+vnk
bz72Y+7j+9XCx/P0wqfvLwHVL6D5DfR9WuoXUD4MqH4B6S8g/QV0Pga432FA
52Wg/Zb6BZQ/ApyPSUB5M8B+zAL6PkN484D8L8Dz9CKg72shvl/kQtJfiP5S
CCnfhOinJqS8SHiDkN6vQuzHMKT5Dcn/QqpfiHlqQvymIfZjFpL+QuzvPKQ8
EOJ5f0F4VoT8chHlrYj8L6L6ZetSvwj724+ofhHln0j1KPWLKI9HNL8R5SPi
N4lIfxHm0xnxO6X9ziN634hIfxHVL9b5lPrFlLdi8r9Y9Sr1i0l/MX0PiZHf
IKb5jcn/snWpX4x6OSZ+Y+I3iSlvxph3ZzHlzxj7O49Rz4uY9BeT/yXY31xC
9UtQL4WE3p8SxDMJ5ZcE/XSQ0PfPBPs7TCj/Eb/jhPJvgv2YJPQ+llB+SdBP
TwlvTvtdJHR+JOR/L+l+/weMV/57
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWD2IY2UUzew6riwp1EKMnZhk/jIzSV7+/973/p8QUOwC26ywY+cWKSxE
SCEuSBBEUWaw08mKiIUpBAudahuziFiFrSwMYuGOG3RBUXTmTu7jnDRDmJeT
8517z7n3y7Mv33zpxqVUKvXuWip19ldeWZNbP378s8undsU6e2XNa9nsh2+u
ndqvHJy9suaLd54Ln0qd2keHZ6+sef9W2P7m3/v23dnZK2uu3fzk2/alU1vw
cvq84OXMR6/n73WvrPByii94OWO+zv7y4P/PC15O8QUvr88LXt78dnR8/en1
FV7evDf/+NW7yi95L3jJ5wVvQz8veBt03g1z9cVc8/ojK7zk/4KX/F/wNvX8
grep5xG85L3gJc8L3ibhbVE9tojfluopeMnzgrdlfvw59/b36yu8bX0veNuE
t22+Kk6+fOvRFd421Tf5v+Dt6HkEb0fxBW+H8Hb0fIK3o3wFr6DPC15B9RG8
gtZL8AraX4JXILxdqu8u1WNXnxe85HnB21V9BW+P8PbMjSc2Cp8/tsLbU70E
b4/qsaffL3j72p+Cl7wXvH3y277qK3j7hFdEP2WK+vw5vFU0jTt+PPzrop79
IvmniH4bFek8hDctmtGdyeU/rqz4FPW853iLIvEroT8zJe0H4VdCP/RLlBcl
/T7hV6J+KKlewq9k9m5vvPHM1RW/EvErUb6U9XzCr6z8hV9Z+1P4lak/y/r9
wq9M+VZWvsKvTHlSNt/9Hvz6wj/3L/iV8bwpC/MjY5H/LMzPvqV8hJ9F9bUo
3yzMr6lF+WlhXiwsytOKfl74VRRf+FUwT/oV0q+CfhtVqP8rZnLkTT54eP+C
X4XmRQX9vaio3sKvSv1Xpbyuol/7VeyXgyrxq5J+VczraZXyrop+W1SJXw39
lqlp/YVfTb9f+NWovjXEG9XIHzWqb430q5F+NfJvHedNpk761bGf+3X1i/Cr
43wb1Wke1rFfpoQ3q+N5F3Xyb4P6r0Hzs4H93G/QPGiQfg2aDw3cP6YNmt8N
ypcGzcsm9V+T5nET+6XfJH800W+jJs3XJtW3SfOxSf5tat4IvxaeN9Mi/Vqk
X0v5Cr8W5UuL6tsifi3Sr0X9l3yf8GuTfm3Sr03+aJN+beznUZv826b6tskf
bapvm/TrEL+O6iH8OpTPHfJvB/FGHZofHbN2LTj86e9V/nWovh0876JD+1+X
8qVL9e3S/O3SPtfFeoy65A/Cm3ZpX+mSfl3yb4/82yP9epTPPdpfe5QvPeLX
I349nOezHvHrUf7ZlH825Z9N/rUpX2zcT0c25bOt9Rd+ts474WdTfW2aHwbr
lzbkZ4P9ljd6/tX6APc3Y3Af7hvs74HBfeXA4L40NLQPGez/saH5bvB8k4S/
7EsG8++EzjsjvLnB+bNInj/HWxJeysHzph3apx2c33lH9RD9HNwPjEP7joP+
GzhaX9HPwfMOHepnB/t/7FC+Jviin4PnnTpYjxPiNyO8uUPzwsH6Lh2677vY
/2mX/OJiffMu8rNcPK9xye8u9Z+L5z1wcb8eupT3hDd2ST8X73MTl/qP+J24
tB8T3tyleebifWfpUv55uO+kPdr3Pb2/iX4e3Uc97GfjUZ57mDcDj+5/HubZ
0FM9RD+P9PNoPnmYnxOP8tbDfjkhfjOP/OvhfXjhYT4uPbqf+5R/Ps1jX+en
6OfT/PMp/3zyL+ENfJrfPt7HhoQ38tEfY1/vp6Kfj36b+LjfTH3qP5/2E1/r
Jfr5NC+I39Kn/SDAfSId0H04oPwLaP8KqP8C2scC7JdBQPerAPt5GOD+PApw
Xo8J7zDAvJ8Q3jQg/QLs51mg9y3RL8DfHxYB3seWxC8VYj3SoXnywe3jH1b1
zYSYV/mQfv8JsR6G8Poh+Tek/TbEfh6GdJ8JsZ/HIekXUv+F2C/TkOZvSPtd
iPv0PES/LQhvGdL+HGE90hHN3wj55SPKv4jmR0T7WIT75SBS/4l+Ee7/w4j2
3Yj2F8I7jDAPJhHddyKcRyeEN4vMvVuf/mmnV/pF5N+I9Itof4nJvzHlX4z7
fD6m349i7BdDeP0Y82AQ034bk34xzd8Y82Ac0/4Xo98mMc2PmOZHTPMjxn13
HtPvBTHm1TIm/z6v5/8PUINCkQ==
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWDuIY2UYzezuuLpMoY0YO3FyM4/MTN7v5P73fRcCitgEplllx84pUliI
kEIUZBBEQbLY6WZBxMIUgoWm2sYsFlbBysIgFroaRFQUnfn2fpdzbhMu9+b8
5z/f+R7/feqF0+duXspkMu9sZDLnv3Jtm2vP5lo3rty3q5Xza9t8Xpx+9sZD
9+2XTs6v9P7W5PzaNl//Gvz0zD+/2PcW51f6f8HLmdzm7Uc/vpzg5cy3P+Te
+mYzwcvp+4KXM++9GXa+/DfBy5nj04++6lxK8Cx9LniWri94FuGl94JnKR/B
y9N+8/pc8PLm3eWHL9/LJHh58+nbT4ePZxK8POHtmA9etb7rXU3wdszhnfxr
T15L8HbM+O708u9XE7wd/b/g7Zifb92+8cRmgrdrNo6Dyfd/J/vdNa9sb7//
+kaCt2vMF9s//nYpwdtVvQQvfV/w9pS/4O3p/gVvT9cXvD3it0f89km/feK3
r3wEb5/w9tVPgldQvQWvoPsTvALhFdRPglcgvxwoH8E7IP8dEN4B6XdA8T0k
Px9qPAXvkPLjUPUSvEPKjyPS70jjI3hHyl/wjsh/RxTfovrv4v1sUflcwFeK
+P9BUfcr6xUxvuOi5pusn+JfwM2KGi/hU8R4rdLnwq+EeNmSrif8SqjXoKT/
F34l4leifC/pfoRfiepTCfVdpffCr0z8yrq+8CujfwdlilcZ4zEu6/rCr6x8
hV+Z9Cvr/oRfWf0q/CrEr0L5UsH9DtL3hV8F82NcoXxPn1/gzSrEr0L6VTTe
wq+K+ZStEr8q6Vcl/aqIN67q/oVfFfNvlr4v/KpaL4VflepLDf2SrSm+8Ktp
/IRfjfxXQ7+Ma5TvNeJXI341c/OxfOGThxP9alSv6ljPs3WqN3XKjzr1qzrm
27hO8a0rX+GX3gu/OvaDVZ3qVUPXE34Nqq8N4teg/tJAvDHhTQhv1sB4LBro
5xXhZZrkvybFt0n+a5J+TfJfk+pf+lz4NYlfE+vpqkn+a6k/hV+L8qNF9blF
+rUof1vUv1rEr0X9p0X50SL92phv2bb6Vfi1tf4Lvzbxa2O/HLdpfmpTfWnT
PNDGeKzaVF865L8O8etgvg061N/S94Uf4U06lL8dnd+EX4fqc4f4dYlfl/Kj
S/y6VF+6Ok8Ivy7Vvy7Ft0vzQJf6b5fqSw/7UbZH80cP56lBj+b/HvW3HvHr
UXx7FN+e+kf4pffCr0/69Ylfn/pbn/Trk//65L8+1Zc+1ec+zq8rwsvYVF9s
mvdtqi82zcO21hPhZ9P8YlN9tim+NvnPJv8Z7NdbBufHrMF8tQzOS/+3c4iH
MbQfg/VwaGh/6f0F3MiQnw3664z4TQzOA1OD8+HM4Pw3N6SPwX63JH4rwlsb
mv8cxNtySD8H9bcc3G/FMadF/48rfz6Ir3HwPDFwzPXjO8+/+MgDvKFD84+j
+oh+DtV7B/vNmUPnPwfzf0r8Zg7ud078Fg6eH5YO6efgPLwmfhkX+82Wq+uJ
fi7ys1yar13MD+NqvxL9XMznIeGdpOuJfi71cxfz/cw1zbt+PPor6e8u1pOp
S+cJF/c7d7EfLlysX0uX6p1L/nOpvniYb1ue+kn08yh/PaqPHs4bxsPvKQOP
9PMofz2cl0Ye+c9Dv5x5NF965L/0udQzD/c7p/0uPPTzkvitPOzPa4/mFx/5
bfnUT3yMr+Vjv6r46BfjU78mvKGP9eDEx3lu5FO/9DE/zghv4uP8MyV+M8Kb
034XPubb0qfzGuGtfcrfAOvLVkD6BcjPCmh+DUi/APvRIKD6F2B+nATol1FA
560A/XIWkP8C9Ms0IP2I3zwg/Wi/ywDnn1WA+bYO6HweUv6GmG/ZEM8vVkj6
hRhfE5L/QpzfhiH1jxDnh1FI+RtS/obkvxC/p05D7d+iX0j9N9R4in6Etwxp
ng/xe+Y6pP4bUf5G1H8jjK8VUf2LsB6YiPSLMD+GEZ0PIsrfiObJSPuF6BfR
+Sui+hfReYLw5rTfRYR+WUZYr1YR1ud1RN/XYuq/MX1PiHG/Vkz+i5GfiUk/
whvG1D9izLdRrHqJfjHlL+FNYqwH05j6R4zz5Dym778xxmMZ03koxvPTOqb6
d131+A8a8Snr
             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdWDuIY2UYzew6ri4ptBFjJyY3856838n97/suBBSxCUyzysbOLVJYiJBC
FCQIoiBZ7HSzIGJhCsFCU23jLBZWwcrCIBbOaLBRVmT2m3yXc24zDPfek/O9
znf++/yrt1++dSWVSn24lUpd/JUra/64c/fms9vndqV8cWVNbvvuU19cPbdf
H15cWXPj5N4rrz15bt+ZXlzJ/QenF1fWnNz+/Pv2lXNb8HLm+ku55s3HNng5
Y77N/vbXlQ1eTp8XvBzhJf8LnqXPC55l3sxmP3lna4Nn6fOCZ5mffs29/+P2
Bs8y3xRmX7/7+AYvr/8LXp7izev7gpfXeAQvr/kSvB3z1QcvhM+kNng75qPl
Z288SG3wdszH74Xt7/47u8Tb0XgEb4fi3aV4dxVf8HaVv+DtEt6u5lvw9qi+
e5S/PcrfHsW7Z374M/j9xYdnl3j7ZuskmP7y79kl3j7lb1/jF7x95SN4+9Qv
BxTvAeXvQN8XvAPNh+AlzwveofIVvEPK3yHhHer7gndI9T0ifkfUz0cU7xHF
e6T1F7xjwjumeI9pPo7N+P7s6t/XNnjHVN8C1i9T0P54BF8uIJ9+cl9+r4Dz
MS5ovuT3E/xHcPOCadz349E/Z5d8Clj/VYH4FbH/M0WNT/gVsX/7Reqnos6j
8CtSforar8KvSPlKnhd+RfPpW9bP3WsbfiV9X/iVtB7Cr0T5K2l/CL8S1ndc
Mreezh98+cSGX/K+8CuZo3v5t5+7vuFXwnqsSqQHZX1e+JX1vvRPGfWuX6b+
LGM/j5P/hV8Z+3Ge3Bd+ZdSLVZnqW8H+z1RIbyqI16/oPhF+FcQbV0h/Kxjv
vELzVaH8Vai+Ve0H4VfV+8KvqvEJv+S+8KtiPcZVmvcq8asSP8JbVbXfhF8N
9TxTUz7Cr0b9V9N4hF8N9XRco/oS3rxG+l6j+U2eF351mo869V+d+NVJb+vU
f3Wsx7SO+3heJz9QJ3514teg/DXIfzRQ3/sN0pcG6V+D9K9B/BpU3wbq96pB
+61J+tzU94Vfk/SvSfrSpPw1aX81aX6blL8m8WuinqZaVN8WzW9L96nwa6Ge
DltYj3FL+134tfT3hV+L/EqL+LVIX9qkL22a3zblr03610Z/MG5TfdvEr03+
oq35EX5t0pcO7bcO1bdD89Ghfd8hfeloPoVfh+a3g3p12sF5W3XID3Ux3kyX
6tvVfSX8utofwq9L89ElfelS/pLnhV+X5rdL/qqH8WZ65Kd76jeFX4/mt0f1
7RG/HvrBeY/y19P6Cb8e6Yutvy/8bNIXm/TF1nwKPxv1fmzT/NpUX5v0xcZ6
rGzKn0G/kzbkFwzOg2UU79I+ID9jqF8N6teA8IYG/c3IkF4ZnM+JIf9mcL5m
Bv3h3KCeLgyd7wzqw9JQvijetSF/5eg8S/4c0msH/YXloB8uOzgfhvD6Dvbj
wMF4h472u+TPoX3u4HxOHOofB+sxI35zB+dj4dB+cHB/Lh3yKw7Wd+2Qf3Gx
HmmX8ueiPlku4pVd6j8X/UnfxfoOXPI/ruZX8ueSXrnYzxPCm7pY35lL+XNR
7xfE79RF/V+6tM8Ib03xpjzUj7RHeuipfkn+PPJfHvaL8Wh+PeQ38Eg/Pdyn
I4/0ykP/PvFQD6ceztuM8OYe1mNB/E497JelR37eQ3+z9ug87WM/p33axz7W
w/LJX/vUfz7lz0e9Gvjkf3zc9yOf9M8n/fOp/3ys78wnP+djvAsf/dgp8Vv6
tM8Ib+2TPw0ofwHqVSag/RGoHkn+AtK/gM5TAfbzgPCGAfIbBeSHiN8kIP8W
YD/PAvIjge5DyV9A+SN+S8JbBThva4o3FWK86ZD8QojzYYX0/TFEv2tC8tsh
6v2A8IaENwqp/0LKH+FNQ8of4c1DPC8sQvo+EOJ5fRmi/1mFOB9r4peKEC8d
0Xkkov0b0fezCPmZCP1nP6L9EdH5KkK/OYpQ78cR7Y+I/CXxmyV8JH8R6ssi
0u8fkr+I+i8i/xKhnq6JXypGfumYzksx6pUVk/7FlL+Y8hdjPQYxzW9M8xtT
/8V4nprE9H0nxu9LsxjPJ/MY52MRU/5irMeS+K1i9OvrmPbvDeX/P1Q4StI=

             "]],
            FontSize->24]}, 
          {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
           1.6], CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmDuIY3UUxrMvV9cptBFjJ2aSeU/e78f/vu9CQJFtBrZZZdfOLaawECGF
qEgQRFGy2OlmQcTCFIKFTrWNs1pYBSsLg1g4o0EWFUVmzt7/5fzShHBvvvud
c77znfO/T79w8/nrZzOZzLtnMpmTb/nkTPOuH+//fTSoVk4+OXP98cLWZw8f
D166cfLJmffmH798L3M8uDU5+eTMK7nch6+fOR7cOzz55MyXxekXbzx0PBC8
VXtd8NLfgrdqVi/cfuzTcwneqrn03Grr2vkEL71f8PL2+YKXN2euBpOf/jl6
gJe39wte3rz/Ztj5+r+jB3h5c/XmJ990ziZ4BfArGPNV7pc/zib8CsArgF8B
eGuWj+CtId41+3/BWzOfv/NM+EQmwVuz+RC8dctf8NZtfgVvHXjrlo/gpf8X
vA3kb8M+T/A2bPyCt2F+u3X72pMXErwN4G3a64K3CbxN8NtEvOl1wduyzxe8
LdRjyz5P8LbMDz+vvv295ZfeL3jbNh+Ctw28beh529zvrn331qMJ3jb0vGPj
E7wdM7o7PffnxQRvB/nbsfiCtwM97yJ/uza/grdr+QveLvK3C70Urf5O788W
LZ9T+EpR9+uwaPnJ84qa36gI/RfNt78Hvz7775HgzYqIr6j5L4q2PsKvpPWQ
LVl84VfS/Tos2fiFX8nGJ/xKqB/wZiX0Q8nyEX4lm0/hV9Z+lC1bvsKvjPyl
14Vf2eZH+JXBr2yfJ/yAd1jW+lwAL1MxO3cKrz11KeFXgd9UtD6G6W/hV9F6
GVXQTxXth7MK6ltBfYGXqep4s1XLX/hVwa+K+lahvyr0XzUfvZr/sXcx4VeF
H1e1Py6qNj7hVwO/msar1Gz+hV8N/l0zN4v+/fN/JfWtod9ryF8N+avpflvU
oL86+iP9Lfzq2u+GdRuf8Ktr/xvVwa9unyf86piPda2XRR3zraH9INsAvwb6
twF/aej5MQLepAF+DeSvoefLogE/bdr/C78m5l0T/JrQX1PHO2piP2nqeTJr
on+bWi+LJvTX0v2WbcH/W+iPFvq3hf5t2XiEX0vXY9bC/G7BX1rIX9vqS/i1
0R9t+3zh17b9LfzayF96Xfi19XyftcGvDX5tzI8O9Nex14VfB/7cQX900B8d
9EcH/dtBf3RQ3w78r4v+7Wo9V7rQXxf8uqhvF/7Xhf662q8Ou+iPLvarnsbL
9rAf9ew8EX496K+n9TzqYb/rIX89+HMP/teDv/Stfwu/Pvq3r/GGfTO95U0/
uJ/or4/89bUfTIA362M/6EN/ffjzAP4ywH4+wPwYYN8c6H1yNLDzRPgN9Lyc
pb+FH/AWA/Sv0X65YqBHo/WbN9i/jNaLMeh3o/WzZ3D+At6+gV6M1v/YmMtX
71x58ZGkPkb3wzR9vuxLaXyneAcG+jfaH+ZG7+eL9P+neEuD/Dnaj1Yc+LWD
/Dk2fsmfg/w5uh5DB/lzcF5ydLz7DvIHfmMH+6Wj99upg33Y0f534GB+AW/u
IH8pf8mfA3927fsCyZ+LfdrV+3Le1fWouMifC/25ep7suZjfruUj+XPh966O
d+zq89LE1f40Bb+Zq+tx4MLfXD2P5y761dXnsSXizXjaj1Y87Kuerm/ew37t
aT81HvTn6XrsedhvPX2e2Pd0v408XY8x+E2ANwXezEP+PJxnPd0fc0/Xd+Hp
+bJEvBnfvr+S/Pnwa1/Ps7yP/cvXejY+9glf+8Ee8G74er7s+3p+jHztV2Pw
m/haL1Mf+5Kvz4MHPuaXr/1+7tv3GZI/X+9LS1/XNxPoeqwEmB+Bnrf5APM5
0PxMoPkNA+QvwPkg0PXdD3R/jALMjwD7ZaD9ZQp+s0DX4wD8DgO9/84DnIcC
Pe+XAfb7EPM3xPuYUJ+f8yH21xD6C7HvhOjfEP4XQn/AG4X6/DgOsV+GyF+I
fTNE/kLsx6HW8zzE+5ZQ+9UyxPuNCPqLcB6JMH8jnD8jrWcT6f1pGGH+Rnh/
E0F/Ec6rka7HOML+G2F+RLq+swj5Q7yHwJsDb4F4lxH8L9b8VmLsL7Her/Ix
/C/Wejax3jeGsZ5vezHOfzHyF0N/4DeOMT9iredprN+3zmJdj4MY+0uM+QG8
RQz9xXhffNne/z9x71Ki
             "]],
            FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
          {RGBColor[0, 0, 1], PointSize[
            NCache[
             Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6],
            CapForm["Butt"], 
           StyleBox[LineBox[CompressedData["
1:eJxdmHlc1OUaxcGFCMEFhcAVU/ZtmIGZgWFmzuxj4pKVsVxxSw0tl8jlZiqa
VnrJsDSD9JqpqJmkgblESqhQKELaVXFNRVS8uIAbonjB986ZzzD/+Pl9HM6c
3/d9nuc979t/3LQRE9o5OTmtcHZyav1XfAbCr39c5p5nt7XRstaP/XnSxNbP
QIz67k7445bnnOzWz0BsdAssbm55Lj/a+hmIQ9/cur275Vno+eMj529XtXO6
8389f7zcJXX3Her5Q318lMq/5f+Fnj/2xfqsK6aePy753r99l3oB+GvIgcIz
9BcA5d5N9TXUC0D7rPdSn9Ffy7NXb6dy6gXgnYaKdhepFwjv0v8evU29QCTc
6Tf2FPUCceTeyJF/UC8Qp4oyl/5NvUBY3JaUHqFeEKp29133hHpBGPZOis9v
1AvCF8Ouuz2iXhDGee1//Ix6QThz+afCVl5CLxhHpm0vaKJecBt/wTj4Qfmm
l8gvGIeUUxa6tzwLveA2/kLQabT2bkeuRwhemTdi5Z/UC8G6FYsmd6BeCN9H
6IVw/YVeKB6lBW72o14o3rj9nqF/y7PQC8V8z9XdulMvFHc/yvTwor9QuE/w
/tCuF8ZnoReG6yEDN7enXhjGY4SPC/XCkLd8gNmbemGQPt3bJ4T8wvF6uiJT
QX/hcFr2zQk36oVz/YVeONRb8mad5PuGY93AzKAG+otA1rmemnr6i8DuO41f
daJeBO4XPNzVhf4i0OXSq7Jq6kVgyFdu57vQXyQGTVgX7UV/kZi77g+jB/Ui
EXi7f8kL1ItEj8cvfvgy3zcSmqwm757Uk+CT4LWv+dq+7yuB3+Abw1v//rm8
TOK4ngkSqMPSD/yX6y/B9DL/QE+bXoYEpXU57/Xh70uwW7de0srruVy+BGkB
dTu70Y8Ew0tnLiHfGgky5wabC8gvCqs1d5dfs/H2jcJ3TZcSAugvCruOnRh/
g/6iMGtq6hpP8ohCaNLCLcH0F4UU5YrBp7l+Ufj79yEjO9v08qPwZeLI+2fJ
P4o8hb8oTKkd69NEf1Is6H/u45v0J8X+DbMXVtveVybl7wl/UkR8maxypT8p
Zlw+/fExm16GFK+e3Pf4Mv1J4bpg7uVb5CdFScehx6voT4rkC3NLu9KfFD6b
d5x14frKEH3CLeks/cnQeHVcqhvrR9ZmfWXo6J7ndYPrK0PYjGjXGvqTIT1B
mXaH/mQwLjnr32yr73wZ/NZk1dbSnwzLNp12Yz/WyLhewl80pldNXlNLf9EY
3eXatE70Fw3P9nMmutjqJSEay9OGzLDXXzSOZ5yb4sH1jea8Ff6i2U/CXzSy
/pW+sTPrLxqJU/Ie2+svGpUd1hcMIL8Y/OZtGmr3F4OFK7e+dpf9HOM4nxJi
OO+EvxjyEv5iMCfsyWx7f8aglzTK9Q/6a/m9fvnKY+QXw/cX/mJQeWX0mT3k
J8eogqPtiulPjvizR/xfJD85+0/4k8Pi/NL5a/Qnd5wvGXLOT+FPjnGLCuK7
2fTy5ZiX13nfVfqT40Ju4ACuR40c1Y17ml3JT4EniZLQrpwvCqTNXjn4Pvkp
0Od0r8XO5KegvvCnQL+K7dl96E/Rxp8Co8sXD3aiPwXnhfCnQPc9m998ifwU
KD68tsDeH0rul8KfkvNR+FMicFHo4gfkp0SmT+4pe/8q2X/CnxJO3w2VlbL+
lJxvwp8SGUveuuDD+lNife/2q0vIT8n5JfzFQuuuOMb39Y1F+77LaneQXyw6
3sw8YiW/WNaP8BeLLlnfZzvRXywmLZ3u9yv9xaK4MLLsZfqLxQfSE+3s+3cs
55HwF4srql4DetBfHN59MzHZnf7iEPVmxXp7f8ThyS/52b+QXxymTlxbUU1/
cexP4S8OBwaNe9qb6xuHks6Fhb+yP+L4PsJfHHakuKy+Qn9xrC/hT4VzP67y
qOT6qvBBUe3y7fSnYr4S/lS4/PHNKHt+UCF/XlhZR/JToca1Of0S+amQUrLl
1FL6U8Ftdv1wex5VQVa2ZupD+lNhS2Ok+Rb9xWNMYE4F68U3Ht6GoMVV9Bff
xl8884LwF895K/zFI7HwjZW36C8ei1+Y7feQ/uLRqJ1z+U/6i8d/RoZv3k9/
8dhXMPXpPfpTY1KH0vnMO75qNP1k+vEU/anxavICQyP9qZGe2kNjz/9qbOy+
6ofL9KfGmvDHnqfoT43fn1y8xnmQr0baE3WdnZ+a7y/8qdEod3tUR38aHD23
4YG9/jTYO750POeVTIOfRnz9A/NyggaD3q/eWkd/GpTn6I47c301zNPCn4b1
IPxpMHNvxDbOq6MajDnkPbY354sGS13/8c88+tMyLwl/WvzSf4LWhf60SLi2
c1YD/Wnx60qpuzvXV4vYt5sT29OfFtsvll1sJD8t+1P403L/Ev60nF/CnxZ6
z85Jj+gP2D+i8hr7yR2ct8IvsNP5riffLwAY+vqWPR2Yv4D4HkWjJTZ/AN5S
VIczbyaA+81zvSQwb4n3A14rT+j6zJZv0uGYnzPA93+ul9nGXzZ4nnmulwue
F0VeApq9j7mwf4vAvCL4AImHD84/bvNX1fL9iIUTef6qAcataNx5w6bXANa3
4Kdj/hP8dLj67POlT7neOpTfvD6F+1mADm711h/vMR/qeF4U/HQYeSwq7WfW
gw7dXu/nxPyRpMPm2tpKL/LTYarXgxhn23qk6xBb3P18GfnpHPfXTB22X1eW
nWf96CAfZu562OYvV4eNn1eOP0p+OtT/JdvMeinSoUdl8u4T5KdzXN8qXZs8
oMMZkzw0j/x0PG8Kfnq8/fawk71Zf3o05XwxrBfrT4/lVz8NOkl+ese8LtND
MzS7vjPrT4+cnftT6shPj7K+Lr18bHpJesd5N1HPfC/46TmfBD89lN+Pmce8
mKmH7w1PJ0/Wnx4PAw8v4nrk6pEcOWAs1zdfz/OA4KfH3K9SkoPZn3rHfFml
5/wW/PSoTP1ZeZP8Wv5+1CQ/+3nfwPUS/AzoG3ywz1XWnwEzf0/3O0N+Btar
mD8GTK5e9hnzEAy8LxH8DI77cZKB+5fgZ3DMh+kGLO561e0s+RlQ7h5iHk5+
Lc/Tv/DIZ/0ZsG3mlKe8n8g18Hwk5pmBeV3wM/C8K/gZMHR8XTjrucqADXsX
BPXiPDbgLY+YtBO2920wYOmDBRt5nnEyMq8IfkbH+ypfI3kJfkasPpgj2UV+
RlxfHBvK+xIY8dRjTO/+nH9G3ncJfkbmHcHPyPOM4Gd0zH8ZRq6n4GfEtlF7
1rI/so2sB8HP2CYPGx3zX5ERA/b/3MfOzwjLjmkG3t9UtfBwCXLlfK4xOuaH
Bvv3BT8T1nhZ8nuyf03MB4KfyfF8FWCCXD1Z9ZT8TI7nN5jgt6n5L55/EkwY
tS3V5wL5mXi+EfxMmHOgo/wB+Zlw70HSGd5vZJjwdfVZNz/Wn4l5Q/AzoWqg
1yXen+Sa2uz3JuwueeV4IfvXxDwv+JmwvsNwhRv5mZCzL8zM+7EaE/dfwc+E
Je+/O85+PjKTh+BnRrN/9w9Zz75mx/NQgJnzSPAzt2yYyKxn/Zkd96MEM3r3
nL+F+SjJjHR1QwP3y4lmdLj3eFcY+9fMvCT4mbF+ddJ95s9MM7xmmWTUyzbj
/aasCuaVXDPrXfAzO877IjPPG4KfmXlH8DMzzwl+ZuYzwc/+/oKfhTwFPwuk
hw5fYX7zteCVnhX+Aaw/C1LW+G6w32damOcEPws6fS0LDWf/Wvj+gp+F7y/4
WbgfCX4W5lXBz4KQ+4+G8zyVaWlzf2LhfYfgZ+F9tOBnwbFhMw5yHhRZeB8t
+FlYr4Kfhfdxgp8Fmk8+C5OTnwUVHl3WvUB+VvaL4GdlHhP8rI71EmCFb9y+
bPv53YpvP+2R4Ud+Vvar4GflfZrgZ21zP2LFHJWu7iL718r9TvCzYlLnnsXL
yM+KrEHdMuznfyvzoeBnxY4lu1Kk7F8ruo36rLac/WvFquJdp9hvR62O+arK
iq3t/i05zv61YtiLp7fyvrXBivqk89YS7h+DeL/1P4ZcLPU=
             "]],
            FontSize->24]}}, {{}, {}}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, -0.9964361057527753},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm], 
        FormBox["\"# particles\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"\\!\\(\\*SubscriptBox[\\(IP\\), \\(3\\)]\\) after \
transformations\"", TraditionalForm],
      PlotRange->{-1.1, 1.1},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8292483110011272`*^9, 3.829248346595627*^9, {3.829248403341308*^9, 
   3.829248463104718*^9}, 3.829249604963374*^9, {3.8292496803885517`*^9, 
   3.8292497556023617`*^9}, 3.829249806665813*^9, 3.829249884616699*^9, 
   3.829249939228368*^9, 3.829250166505109*^9, 3.8292507545181913`*^9, 
   3.829250837277154*^9, {3.8293093807658167`*^9, 3.829309384463426*^9}, 
   3.8293096741059113`*^9},
 CellLabel->
  "Out[1142]=",ExpressionUUID->"8b4dbe33-8bf5-4bae-bd5b-f9c5ba4bc03d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{
       "\"\<figures/trans_ca_after_\>\"", "<>", "ip3", "<>", "\"\<.pdf\>\""}],
        ",", 
       RowBox[{"pltsCaAfter", "[", "ip3", "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Export", "[", 
      RowBox[{
       RowBox[{
       "\"\<figures/trans_ip3_after_\>\"", "<>", "ip3", "<>", 
        "\"\<.pdf\>\""}], ",", 
       RowBox[{"pltsIp3After", "[", "ip3", "]"}]}], "]"}], ";"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"ip3", ",", 
      RowBox[{"Keys", "[", "pltsCaBefore", "]"}]}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<figures/trans_after.pdf\>\"", ",", "pAfter"}], "]"}]}], "Input",\

 CellChangeTimes->{{3.829250679653831*^9, 3.8292506871645727`*^9}, {
   3.8292507575730553`*^9, 3.8292507773775043`*^9}, 3.829309385958681*^9},
 CellLabel->
  "In[1143]:=",ExpressionUUID->"1fc0dba8-2a3c-45f7-8ce4-edfdda7ba52f"],

Cell[BoxData["\<\"figures/trans_after.pdf\"\>"], "Output",
 CellChangeTimes->{3.829250779511221*^9, 3.8292508404479733`*^9, 
  3.8293093874615*^9, 3.829309676400235*^9},
 CellLabel->
  "Out[1145]=",ExpressionUUID->"c6f56ccf-ddc0-4945-ae37-f8d813f6dab8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Legend", "Section",
 CellChangeTimes->{{3.829250867984047*^9, 
  3.829250868556525*^9}},ExpressionUUID->"ee24e686-9030-46d1-805f-\
3e3c74f3f542"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"leg", "=", 
  RowBox[{"LineLegend", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Directive", "[", 
       RowBox[{"Blue", ",", "Dashed"}], "]"}], ",", "Blue", ",", "Gray"}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Mean for [\!\(\*SubscriptBox[\(IP\), \(3\)]\)]=0.1\[Mu]M\>\"", ",", 
      "\"\<Mean for [\!\(\*SubscriptBox[\(IP\), \(3\)]\)]=2\[Mu]M\>\"", ",", 
      "\"\<Stochastic simulations\>\""}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.829250869317074*^9, 3.829250956332582*^9}, {
  3.8293094105797157`*^9, 3.829309417780291*^9}, {3.829309717448721*^9, 
  3.829309723933612*^9}},
 CellLabel->
  "In[1146]:=",ExpressionUUID->"ad5df1ed-1bdf-442e-97b3-0194c89888f0"],

Cell[BoxData[
 TemplateBox[{
  "\"Mean for [\\!\\(\\*SubscriptBox[\\(IP\\), \\(3\\)]\\)]=0.1\[Mu]M\"", 
   "\"Mean for [\\!\\(\\*SubscriptBox[\\(IP\\), \\(3\\)]\\)]=2\[Mu]M\"", 
   "\"Stochastic simulations\""},
  "LineLegend",
  DisplayFunction->(StyleBox[
    StyleBox[
     PaneBox[
      TagBox[
       GridBox[{{
          TagBox[
           GridBox[{{
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1], 
                  Dashing[{Small, Small}]], {
                  LineBox[{{0, 40}, {40, 40}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1], 
                  Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 40}, PlotRangePadding -> None, ImagePadding -> 
               Automatic, BaselinePosition -> (Scaled[0.4] -> Baseline)], #}, {
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]], {
                  LineBox[{{0, 40}, {40, 40}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 40}, PlotRangePadding -> None, ImagePadding -> 
               Automatic, 
               BaselinePosition -> (Scaled[0.4] -> Baseline)], #2}, {
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0.5]], {
                  LineBox[{{0, 40}, {40, 40}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0.5]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 40}, PlotRangePadding -> None, ImagePadding -> 
               Automatic, 
               BaselinePosition -> (Scaled[0.4] -> Baseline)], #3}}, 
            GridBoxAlignment -> {
             "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> 
            False, GridBoxDividers -> {
             "Columns" -> {{False}}, "Rows" -> {{False}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], 
           "Grid"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
        AutoDelete -> False, 
        GridBoxItemSize -> {
         "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
        GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], "Grid"], 
      Alignment -> Left, AppearanceElements -> None, 
      ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
     LineIndent -> 0, StripOnInput -> False], {
     Directive[FontSize -> 24, FontFamily -> Automatic], FontFamily -> 
     "Arial"}, Background -> Automatic, StripOnInput -> False]& ),
  Editable->True,
  InterpretationFunction:>(RowBox[{"LineLegend", "[", 
     RowBox[{
       RowBox[{"{", 
         RowBox[{
           RowBox[{"Directive", "[", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Dashing", "[", 
                 RowBox[{"{", 
                   RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
           ",", 
           InterpretationBox[
            ButtonBox[
             TooltipBox[
              GraphicsBox[{{
                 GrayLevel[0], 
                 RectangleBox[{0, 0}]}, {
                 GrayLevel[0], 
                 RectangleBox[{1, -1}]}, {
                 RGBColor[0, 0, 1], 
                 RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
               "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
               FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> 
               None, PlotRangePadding -> None, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              StyleBox[
               RowBox[{"RGBColor", "[", 
                 RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
               False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
             Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
             With[{Typeset`box$ = EvaluationBox[]}, 
               If[
                Not[
                 AbsoluteCurrentValue["Deployed"]], 
                SelectionMove[Typeset`box$, All, Expression]; 
                FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                FrontEnd`Private`$ColorSelectorInitialColor = 
                 RGBColor[0, 0, 1]; 
                FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                MathLink`CallFrontEnd[
                  FrontEnd`AttachCell[Typeset`box$, 
                   FrontEndResource["RGBColorValueSelector"], {
                   0, {Left, Bottom}}, {Left, Top}, 
                   "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
             Automatic, Method -> "Preemptive"], 
            RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", 
           InterpretationBox[
            ButtonBox[
             TooltipBox[
              GraphicsBox[{{
                 GrayLevel[0], 
                 RectangleBox[{0, 0}]}, {
                 GrayLevel[0], 
                 RectangleBox[{1, -1}]}, {
                 GrayLevel[0.5], 
                 RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
               "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
               FrameStyle -> GrayLevel[0.33333333333333337`], FrameTicks -> 
               None, PlotRangePadding -> None, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              StyleBox[
               RowBox[{"GrayLevel", "[", "0.5`", "]"}], NumberMarks -> 
               False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
             Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
             With[{Typeset`box$ = EvaluationBox[]}, 
               If[
                Not[
                 AbsoluteCurrentValue["Deployed"]], 
                SelectionMove[Typeset`box$, All, Expression]; 
                FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0.5]; 
                FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                MathLink`CallFrontEnd[
                  FrontEnd`AttachCell[Typeset`box$, 
                   FrontEndResource["GrayLevelColorValueSelector"], {
                   0, {Left, Bottom}}, {Left, Top}, 
                   "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
             Automatic, Method -> "Preemptive"], 
            GrayLevel[0.5], Editable -> False, Selectable -> False]}], "}"}], 
       ",", 
       RowBox[{"{", 
         RowBox[{#, ",", #2, ",", #3}], "}"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.8292509566212797`*^9, 3.8293094181161423`*^9, 
  3.829309724303238*^9},
 CellLabel->
  "Out[1146]=",ExpressionUUID->"c46053d1-9c31-4972-a894-8d9404798598"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<figures/leg.pdf\>\"", ",", "leg"}], "]"}]}], "Input",
 CellChangeTimes->{{3.829250961165104*^9, 3.8292509702750797`*^9}},
 CellLabel->
  "In[1147]:=",ExpressionUUID->"04d01796-4115-4dcf-b06a-b373a12bdc4f"],

Cell[BoxData["\<\"figures/leg.pdf\"\>"], "Output",
 CellChangeTimes->{3.8292509709471617`*^9, 3.8293094200478992`*^9, 
  3.829309725093184*^9},
 CellLabel->
  "Out[1148]=",ExpressionUUID->"d3865317-b4f8-4b8c-97c9-19ee9547563b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Import transformation", "Title",
 CellChangeTimes->{{3.82810215127492*^9, 
  3.8281021536019583`*^9}},ExpressionUUID->"452a89f5-b1ce-44b5-98e1-\
267d103096ce"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cdir", "=", 
   RowBox[{"getCacheDir", "[", 
    RowBox[{"dataDesc", ",", "noIP3R"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"{", 
   RowBox[{"mv", ",", "sv"}], "}"}], "=", 
  RowBox[{"Import", "[", 
   RowBox[{
    RowBox[{"cdir", "<>", "\"\<transformations.txt\>\""}], ",", 
    "\"\<Table\>\""}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.828102180652925*^9, 3.8281022079804688`*^9}, {
  3.8281081830406313`*^9, 3.828108184341004*^9}},
 CellLabel->
  "In[165]:=",ExpressionUUID->"98182347-ef2c-42e6-9fb9-ff023049c5ff"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2118.57855361596`", ",", "6323.6072319202`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1934.711856329346`", ",", "5726.045271865995`"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.828102200011612*^9, 3.8281022097553263`*^9}, 
   3.828102470250225*^9, 3.828106156805036*^9, 3.828107047167142*^9, 
   3.8281072575333157`*^9, 3.828107467000327*^9, 3.828107533996208*^9, 
   3.828107635655876*^9, {3.828108187110209*^9, 3.82810821492276*^9}, 
   3.828108857055872*^9, 3.8281090743448353`*^9, 3.828109264368499*^9, {
   3.828110336325397*^9, 3.828110350079112*^9}, 3.828111118766735*^9},
 CellLabel->
  "Out[167]=",ExpressionUUID->"90d2cc39-8f9a-438d-8556-4eac3913cc88"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Import and export to cache", "Title",
 CellChangeTimes->{{3.8249187558212757`*^9, 3.824918757617359*^9}, {
  3.824920013852209*^9, 3.8249200167331753`*^9}, {3.8281021166086807`*^9, 
  3.8281021175051937`*^9}},ExpressionUUID->"5b2f86dc-8908-4d59-ba29-\
a4e29e381f3c"],

Cell[CellGroupData[{

Cell["Functions", "Chapter",
 CellChangeTimes->{{3.824918724001965*^9, 3.82491872568325*^9}, {
  3.828102142029704*^9, 
  3.828102143479677*^9}},ExpressionUUID->"a17943ef-0506-4075-b9cc-\
039c60827f0f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"getDir", "[", 
   RowBox[{"noIP3R_", ",", "ip3_", ",", "dataDesc_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", "}"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"noIP3R", "<", "1000"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Return", "[", 
        RowBox[{
         RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
         "\"\<../stochastic_simulations/ml_training_data/data_gillespie/vol_\
exp_\>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"dataDesc", "[", "\"\<volExp\>\"", "]"}], "]"}], "<>", 
         "\"\</ip3r_\>\"", "<>", 
         RowBox[{"IntegerString", "[", 
          RowBox[{"noIP3R", ",", "10", ",", "5"}], "]"}], "<>", "\"\</\>\"", "<>",
          "ip3", "<>", "\"\</\>\""}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Return", "[", 
        RowBox[{
         RowBox[{"NotebookDirectory", "[", "]"}], "<>", 
         "\"\<../stochastic_simulations/ml_training_data/data_tau_leaping/vol_\
exp_\>\"", "<>", 
         RowBox[{"ToString", "[", 
          RowBox[{"dataDesc", "[", "\"\<volExp\>\"", "]"}], "]"}], "<>", 
         "\"\</ip3r_\>\"", "<>", 
         RowBox[{"IntegerString", "[", 
          RowBox[{"noIP3R", ",", "10", ",", "5"}], "]"}], "<>", "\"\</\>\"", "<>",
          "ip3", "<>", "\"\</\>\""}], "]"}]}], "\[IndentingNewLine]", "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", 
      RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.826939909482703*^9, 3.826939951278837*^9}, {
  3.826940507528801*^9, 3.8269405091937304`*^9}, {3.826940560998782*^9, 
  3.8269405642619143`*^9}, {3.826976195290765*^9, 3.826976197387344*^9}, {
  3.8275005947609386`*^9, 3.8275005967860126`*^9}, {3.827694490707921*^9, 
  3.827694524980011*^9}, {3.827778128049621*^9, 3.8277781460438623`*^9}, {
  3.829243695556534*^9, 3.829243697424871*^9}},
 CellLabel->
  "In[464]:=",ExpressionUUID->"ebc22556-38c3-4360-9a25-0b3bc7e82023"],

Cell[BoxData[
 RowBox[{
  RowBox[{"importAndWhitenAndCalcParams", "[", 
   RowBox[{
   "nv_", ",", "nh_", ",", "ip3_", ",", "noIP3R_", ",", "dataDesc_", ",", 
    "muhs_", ",", "varhs_", ",", "mv_", ",", "sv_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
     "data", ",", "d1", ",", "d2", ",", "dims", ",", "mvArr", ",", "svArr", 
      ",", "dataS", ",", "params", ",", "paramsLD", ",", "tpt", ",", "nd"}], 
     "}"}], "\[IndentingNewLine]", ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SetDirectory", "[", 
      RowBox[{"getDir", "[", 
       RowBox[{"noIP3R", ",", "ip3", ",", "dataDesc"}], "]"}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"data", "=", 
      RowBox[{
       RowBox[{"importData", "[", 
        RowBox[{"dataDesc", ",", "noIP3R"}], "]"}], "//", "N"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"data", "=", 
      RowBox[{"data", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"dataDesc", "[", "\"\<tptStart\>\"", "]"}], "+", "1"}], 
          ")"}], ";;", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"dataDesc", "[", "\"\<tptMax\>\"", "]"}], "+", "1"}], 
          ")"}], ";;", 
         RowBox[{"dataDesc", "[", "\"\<tptInterval\>\"", "]"}]}], "]"}], 
       "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"dims", "=", 
      RowBox[{
       RowBox[{"Dimensions", "[", "data", "]"}], "[", 
       RowBox[{"[", 
        RowBox[{";;", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"mvArr", "=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{"mv", ",", "dims"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"svArr", "=", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{"sv", ",", "dims"}], "]"}]}], ";", "\[IndentingNewLine]", 
     "\[IndentingNewLine]", 
     RowBox[{"dataS", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"data", "-", "mvArr"}], ")"}], "/", "svArr"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"paramsLD", "=", 
      RowBox[{"{", "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"AppendTo", "[", 
         RowBox[{"paramsLD", ",", 
          RowBox[{"getMLparams", "[", 
           RowBox[{
            RowBox[{"dataS", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"muhs", "[", 
             RowBox[{"[", "i", "]"}], "]"}], ",", 
            RowBox[{"varhs", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], "]"}]}], "]"}], ";"}], 
       "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"dataDesc", "[", "\"\<noTpts\>\"", "]"}]}], "}"}]}], "]"}], 
     ";", "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"params", "=", 
      RowBox[{"makePStructFromLD", "[", 
       RowBox[{"nv", ",", "nh", ",", "paramsLD"}], "]"}]}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"Return", "[", "params", "]"}]}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.8245147397526608`*^9, 3.824514807878134*^9}, {
   3.824514846639819*^9, 3.8245148802794027`*^9}, {3.824514956439622*^9, 
   3.8245150040122137`*^9}, {3.824517026879054*^9, 3.8245170335072947`*^9}, {
   3.824517190008441*^9, 3.82451720481282*^9}, {3.824524193798472*^9, 
   3.8245241992461147`*^9}, {3.824567297421316*^9, 3.824567308240299*^9}, {
   3.825080347409485*^9, 3.82508037505847*^9}, {3.825080512188274*^9, 
   3.825080515327641*^9}, {3.8250831588874273`*^9, 3.825083161381933*^9}, {
   3.8250833453253202`*^9, 3.825083351401018*^9}, {3.826722155298086*^9, 
   3.8267221562531424`*^9}, {3.826722939911149*^9, 3.826722944737013*^9}, {
   3.8281014156957607`*^9, 3.828101421338204*^9}, 3.828101536180122*^9, 
   3.828101912699232*^9, 3.828101989704384*^9, {3.828102244749414*^9, 
   3.828102245007058*^9}, {3.8281025187679768`*^9, 3.828102519079575*^9}, {
   3.82810872963999*^9, 3.828108749167592*^9}, {3.828109002209515*^9, 
   3.8281090080588703`*^9}, {3.828109222386271*^9, 3.8281092264000072`*^9}, {
   3.828109805820961*^9, 3.828109806064042*^9}, {3.828110282079844*^9, 
   3.828110284201416*^9}},
 CellLabel->
  "In[439]:=",ExpressionUUID->"e94e5721-01c6-4f71-9020-6014ef39c86d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"exportToCache", "[", 
   RowBox[{
   "nv_", ",", "nh_", ",", "params_", ",", "dataDesc_", ",", "ip3_", ",", 
    "noIP3R_"}], "]"}], ":=", 
  RowBox[{"Module", "[", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"cdir", ",", "x", ",", "fname"}], "}"}], "\[IndentingNewLine]", 
    ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"cdir", "=", 
      RowBox[{
       RowBox[{"getCacheDir", "[", 
        RowBox[{"dataDesc", ",", "noIP3R"}], "]"}], "<>", 
       "\"\<params0/\>\""}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"SetDirectory", "[", 
      RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"!", 
        RowBox[{"DirectoryQ", "[", 
         RowBox[{"cdir", "<>", "ip3"}], "]"}]}], ",", 
       RowBox[{"CreateDirectory", "[", 
        RowBox[{"cdir", "<>", "ip3"}], "]"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"x", "=", 
         RowBox[{
          RowBox[{"params", "[", "\"\<LFDL\>\"", "]"}], "[", "k", "]"}]}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"fname", "=", 
         RowBox[{
         "cdir", "<>", "ip3", "<>", "\"\</\>\"", "<>", "k", "<>", 
          "\"\<.txt\>\""}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"Export", "[", 
         RowBox[{"fname", ",", 
          RowBox[{"StringRiffle", "[", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{
                RowBox[{"ToString", "[", 
                 RowBox[{"#", ",", "FortranForm"}], "]"}], "&"}], "/@", 
               RowBox[{"PaddedForm", "[", 
                RowBox[{"#", ",", "16"}], "]"}]}], "&"}], "/@", "x"}], ",", 
            "\"\<\\n\>\""}], "]"}]}], "]"}]}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"makeLF", "[", 
          RowBox[{"nv", ",", "nh"}], "]"}]}], "}"}]}], "]"}], ";"}]}], 
   "\[IndentingNewLine]", "]"}]}]], "Input",
 InitializationCell->True,
 CellChangeTimes->{{3.824920020940955*^9, 3.824920033604898*^9}, 
   3.8249205862264767`*^9, {3.8249227190779123`*^9, 3.824922741180743*^9}, 
   3.8249937782592173`*^9, {3.8249942373762417`*^9, 3.8249942405717497`*^9}, 
   3.82499430571625*^9, {3.82499460863276*^9, 3.824994608908469*^9}, {
   3.825081876887329*^9, 3.825081901974927*^9}, {3.825082049663172*^9, 
   3.825082056060379*^9}, {3.8250821014943247`*^9, 3.825082104325766*^9}, {
   3.8269033146463337`*^9, 3.8269033193710814`*^9}, {3.826904119871441*^9, 
   3.826904140561885*^9}, {3.82742177057823*^9, 3.827421776175953*^9}, {
   3.8281016853648243`*^9, 3.828101685489317*^9}, {3.828102474675482*^9, 
   3.828102477329994*^9}, {3.828110798209044*^9, 3.8281108450146713`*^9}, {
   3.828110879823497*^9, 3.828110880369894*^9}},
 CellLabel->
  "In[440]:=",ExpressionUUID->"4c06e99e-84ad-4e02-9264-924ccb8e9591"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Run", "Chapter",
 CellChangeTimes->{{3.828102140146022*^9, 
  3.828102140361281*^9}},ExpressionUUID->"530af25e-34eb-4591-9e8b-\
f0cc28b6bffa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ip3s", "=", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
     "\"\<ip3_0p100\>\"", ",", "\"\<ip3_0p200\>\"", ",", "\"\<ip3_0p300\>\"", 
      ",", "\"\<ip3_0p400\>\"", ",", "\"\<ip3_0p500\>\"", ",", 
      "\"\<ip3_0p600\>\"", ",", "\"\<ip3_0p700\>\"", ",", "\"\<ip3_0p800\>\"",
       ",", "\"\<ip3_0p900\>\"", ",", "\"\<ip3_1p000\>\"", ",", 
      "\[IndentingNewLine]", "\"\<ip3_1p100\>\"", ",", "\"\<ip3_1p200\>\"", 
      ",", "\"\<ip3_1p300\>\"", ",", "\"\<ip3_1p400\>\"", ",", 
      "\"\<ip3_1p500\>\"", ",", "\"\<ip3_1p600\>\"", ",", "\"\<ip3_1p700\>\"",
       ",", "\"\<ip3_1p800\>\"", ",", "\"\<ip3_1p900\>\"", ",", 
      "\"\<ip3_2p000\>\""}], "\[IndentingNewLine]", "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Monitor", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Do", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"ip3", "=", 
        RowBox[{"ip3s", "[", 
         RowBox[{"[", "idx", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"params", "=", 
        RowBox[{"importAndWhitenAndCalcParams", "[", 
         RowBox[{
         "nv", ",", "nh", ",", "ip3", ",", "noIP3R", ",", "dataDesc", ",", 
          "muhs", ",", "varhs", ",", "mv", ",", "sv"}], "]"}]}], ";", 
       "\[IndentingNewLine]", 
       RowBox[{"exportToCache", "[", 
        RowBox[{
        "nv", ",", "nh", ",", "params", ",", "dataDesc", ",", "ip3", ",", 
         "noIP3R"}], "]"}], ";"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"idx", ",", 
        RowBox[{"Length", "[", "ip3s", "]"}]}], "}"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", ",", 
   RowBox[{"Row", "[", 
    RowBox[{"{", 
     RowBox[{"\"\<IP3: \>\"", ",", 
      RowBox[{"ProgressIndicator", "[", 
       RowBox[{"idx", ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", 
          RowBox[{"Length", "[", "ip3s", "]"}]}], "}"}]}], "]"}]}], "}"}], 
    "]"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.824514813879434*^9, 3.824514821317256*^9}, {
   3.824514886847212*^9, 3.824514890519498*^9}, {3.824515017322155*^9, 
   3.824515017499618*^9}, {3.8245673119713087`*^9, 3.824567313018511*^9}, {
   3.824654343282338*^9, 3.824654343498234*^9}, {3.824686965850917*^9, 
   3.8246869726781683`*^9}, {3.824687933422776*^9, 3.824687937884179*^9}, {
   3.824688505349246*^9, 3.824688516342552*^9}, {3.82469109394636*^9, 
   3.824691096631825*^9}, {3.8247430845587673`*^9, 3.824743089960844*^9}, {
   3.824743778101099*^9, 3.824743787950286*^9}, {3.824744542890533*^9, 
   3.824744565080987*^9}, 3.8247446314990664`*^9, {3.824748543139062*^9, 
   3.824748560211381*^9}, {3.8249174434505043`*^9, 3.824917468890876*^9}, {
   3.8249187649195023`*^9, 3.824918781234889*^9}, {3.824920041227687*^9, 
   3.824920166594193*^9}, {3.825020233197007*^9, 3.8250202426938753`*^9}, {
   3.825081748737749*^9, 3.825081749816296*^9}, {3.825081883618374*^9, 
   3.825081884261736*^9}, {3.8250828152237387`*^9, 3.825082847020215*^9}, {
   3.8250829796270313`*^9, 3.8250829816797447`*^9}, {3.8250831761871643`*^9, 
   3.825083178378099*^9}, {3.82508336622204*^9, 3.8250833664236403`*^9}, {
   3.825083619681981*^9, 3.825083657620921*^9}, {3.826038824350354*^9, 
   3.826038829212943*^9}, {3.826124771504074*^9, 3.826124790290563*^9}, {
   3.826124824442074*^9, 3.82612483197116*^9}, {3.826134301378297*^9, 
   3.826134347458788*^9}, {3.8262881112076073`*^9, 3.8262881179315023`*^9}, {
   3.82690320669491*^9, 3.826903250146805*^9}, {3.826903289734578*^9, 
   3.826903321100934*^9}, {3.826903372739031*^9, 3.8269034179231243`*^9}, {
   3.826903690458674*^9, 3.826903690832739*^9}, {3.826906756056284*^9, 
   3.826906756870408*^9}, {3.8269320892332697`*^9, 3.826932103404048*^9}, {
   3.826936456005248*^9, 3.8269364562216682`*^9}, {3.826938369702421*^9, 
   3.8269383746148033`*^9}, 3.826938899968616*^9, {3.826976223781077*^9, 
   3.826976228543065*^9}, {3.826978965836822*^9, 3.826978974178686*^9}, {
   3.826980562451014*^9, 3.8269805659182463`*^9}, 3.8273661389404373`*^9, {
   3.827421781292437*^9, 3.827421786922031*^9}, {3.827421928741074*^9, 
   3.8274219293852873`*^9}, {3.827581751479424*^9, 3.827581766507601*^9}, {
   3.827705647592916*^9, 3.827705666122311*^9}, {3.8277781604508953`*^9, 
   3.827778171548482*^9}, {3.827841685612946*^9, 3.827841688027691*^9}, {
   3.827853289343924*^9, 3.827853321732172*^9}, {3.827865621197872*^9, 
   3.8278656258503532`*^9}, {3.827880019478031*^9, 3.8278800257461863`*^9}, {
   3.827880337179306*^9, 3.827880337652151*^9}, {3.827928506930719*^9, 
   3.827928554530328*^9}, {3.82792865219034*^9, 3.8279286527321033`*^9}, {
   3.8279340959937572`*^9, 3.827934100561226*^9}, {3.827952045758597*^9, 
   3.827952050297303*^9}, {3.828051628739169*^9, 3.828051640748774*^9}, {
   3.8280518925788937`*^9, 3.828051894244475*^9}, {3.828053446971134*^9, 
   3.828053447470604*^9}, {3.8281016619959707`*^9, 3.82810167506439*^9}, {
   3.8281081377881613`*^9, 3.82810814890156*^9}, {3.8281102962614317`*^9, 
   3.828110299110016*^9}, {3.828110635546864*^9, 3.828110636523012*^9}, {
   3.828110688857684*^9, 3.828110698315596*^9}, {3.828110872758397*^9, 
   3.8281108787441196`*^9}},
 CellLabel->
  "In[171]:=",ExpressionUUID->"4fa10a0a-264a-4834-aeea-661699ac3f9c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Re import and viz", "Title",
 CellChangeTimes->{{3.8269322120924664`*^9, 
  3.8269322170239058`*^9}},ExpressionUUID->"752ea693-0c23-43d8-996f-\
1eecdb97e942"],

Cell[CellGroupData[{

Cell["Import cache", "Chapter",
 CellChangeTimes->{{3.82492098526615*^9, 
  3.824920986504221*^9}},ExpressionUUID->"5c6291e5-7e75-4b31-a56d-\
404452f50e09"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"nv", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"nh", "=", "1"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"volExp", "=", "14"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cdir", "=", 
   RowBox[{"getCacheDirRaw", "[", 
    RowBox[{"volExp", ",", "noIP3R"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dataDesc", "=", 
   RowBox[{"importDataDesc", "[", 
    RowBox[{"cdir", "<>", "\"\<data_desc.txt\>\""}], "]"}]}], ";"}]}], "Input",\

 CellChangeTimes->{{3.825082330083366*^9, 3.8250823508182898`*^9}, {
   3.825082391904275*^9, 3.825082400708823*^9}, {3.8250824353831463`*^9, 
   3.82508244992666*^9}, 3.8250838347220507`*^9, 3.825089493560918*^9, 
   3.825117766963459*^9, 3.825121617980295*^9, 3.826041382092779*^9, {
   3.826906574194427*^9, 3.826906575709621*^9}, 3.826932226015285*^9, {
   3.827422871816772*^9, 3.827422874365368*^9}, {3.828107377352742*^9, 
   3.8281073928527813`*^9}, {3.828107513569064*^9, 3.82810751642388*^9}},
 CellLabel->
  "In[173]:=",ExpressionUUID->"355d51c9-fe2b-4e06-9032-9a11d9ad0463"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetDirectory", "[", 
    RowBox[{"NotebookDirectory", "[", "]"}], "]"}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"params0", "=", 
   RowBox[{"Association", "[", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"cdir", "=", 
      RowBox[{"getCacheDirRaw", "[", 
       RowBox[{"volExp", ",", "noIP3R"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"pLFDL", "=", 
      RowBox[{"Association", "[", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"pLFDL", "[", "k", "]"}], "=", 
        RowBox[{"Flatten", "[", 
         RowBox[{"Import", "[", 
          RowBox[{
           RowBox[{
           "cdir", "<>", "\"\<params0/\>\"", "<>", "ip3", "<>", "\"\</\>\"", "<>",
             "k", "<>", "\"\<.txt\>\""}], ",", "\"\<Table\>\""}], "]"}], 
         "]"}]}], "\[IndentingNewLine]", ",", 
       RowBox[{"{", 
        RowBox[{"k", ",", 
         RowBox[{"makeLF", "[", 
          RowBox[{"nv", ",", "nh"}], "]"}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"params0", "[", "ip3", "]"}], "=", 
      RowBox[{"makePStructFromLFDL", "[", 
       RowBox[{"nv", ",", "nh", ",", "pLFDL"}], "]"}]}], ";"}], 
    "\[IndentingNewLine]", ",", 
    RowBox[{"{", 
     RowBox[{"ip3", ",", "ip3s"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8249209869689837`*^9, 3.8249211241479197`*^9}, {
   3.824921158487419*^9, 3.824921161729622*^9}, 3.8249937827704277`*^9, {
   3.82500622453537*^9, 3.82500625640954*^9}, {3.825006299014001*^9, 
   3.825006301879929*^9}, 3.825021300178388*^9, {3.825082466348402*^9, 
   3.825082473700411*^9}, 3.825083421265256*^9, 3.8250838381822653`*^9, {
   3.8260413897373*^9, 3.826041394629735*^9}, {3.826041588632831*^9, 
   3.826041592347362*^9}, {3.826125071815489*^9, 3.826125095725113*^9}, 
   3.826134774624893*^9, {3.826288831017214*^9, 3.8262888381672163`*^9}, {
   3.826906561579976*^9, 3.826906628384384*^9}, {3.8269079111117153`*^9, 
   3.826907962927865*^9}, {3.826932235506043*^9, 3.826932235958108*^9}, {
   3.827422862514534*^9, 3.827422864652926*^9}, {3.8274229314800386`*^9, 
   3.8274229323339767`*^9}, {3.828107399862031*^9, 3.828107407954587*^9}},
 CellLabel->
  "In[179]:=",ExpressionUUID->"d413ae26-aa45-4c53-8cdf-a5faaf399315"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Viz", "Chapter",
 CellChangeTimes->{{3.826928291844615*^9, 
  3.8269282922241096`*^9}},ExpressionUUID->"61490640-1c95-4df2-b0de-\
1dfac46c00aa"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"pltEvery", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"timesPlt", "=", 
   RowBox[{
    RowBox[{"dataDesc", "[", "\"\<times\>\"", "]"}], "[", 
    RowBox[{"[", 
     RowBox[{";;", ";;", "pltEvery"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"colors", "=", 
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"ColorData", "[", "\"\<BrownCyanTones\>\"", "]"}], "[", 
     RowBox[{"i", "/", 
      RowBox[{"Length", "[", "ip3s", "]"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", 
      RowBox[{"Length", "[", "ip3s", "]"}]}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.826928606496649*^9, 3.826928607053494*^9}, {
   3.82692996444331*^9, 3.826929967104707*^9}, 3.8269768193982153`*^9, {
   3.8279520671547337`*^9, 3.8279520672518787`*^9}},
 CellLabel->
  "In[182]:=",ExpressionUUID->"7767cee3-f2fc-465a-9d2e-addd13f0806e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.4328202, 0.2875746, 0.16778140000000002`], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.2885468, 0.1917164, 0.11185426666666669`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{
          "0.4328202`", ",", "0.2875746`", ",", "0.16778140000000002`"}], 
         "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.4328202, 0.2875746, 0.16778140000000002`]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.4328202, 0.2875746, 0.16778140000000002`],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.5179634, 0.3752862, 0.2504938], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.34530893333333335`, 0.25019080000000005`, 0.16699586666666666`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.5179634`", ",", "0.3752862`", ",", "0.2504938`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.5179634, 0.3752862, 0.2504938]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.5179634, 0.3752862, 0.2504938],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.5943548, 0.45806840000000004`, 0.33588], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.3962365333333333, 0.3053789333333334, 0.22392],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.5943548`", ",", "0.45806840000000004`", ",", "0.33588`"}],
          "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.5943548, 0.45806840000000004`, 0.33588]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.5943548, 0.45806840000000004`, 0.33588],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6619944, 0.5359212, 0.42394], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.4413296, 0.3572808, 0.2826266666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6619944`", ",", "0.5359212`", ",", "0.42394`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.6619944, 0.5359212, 0.42394]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6619944, 0.5359212, 0.42394],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.729634, 0.613774, 0.512], RectangleBox[{0, -1}, {2, 1}]}},
       
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.48642266666666667`, 0.4091826666666667, 0.3413333333333334],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.729634`", ",", "0.613774`", ",", "0.512`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.729634, 0.613774, 0.512]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.729634, 0.613774, 0.512],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.7668376, 0.6736248, 0.5867076], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.5112250666666667, 0.4490832, 0.3911384],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.7668376`", ",", "0.6736248`", ",", "0.5867076`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.7668376, 0.6736248, 0.5867076]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.7668376, 0.6736248, 0.5867076],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.8040412, 0.7334756, 0.6614152], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5360274666666667, 0.48898373333333334`, 0.4409434666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.8040412`", ",", "0.7334756`", ",", "0.6614152`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.8040412, 0.7334756, 0.6614152]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.8040412, 0.7334756, 0.6614152],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.8253242000000001, 0.787301, 0.7308212], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5502161333333334, 0.5248673333333334, 0.4872141333333333],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.8253242000000001`", ",", "0.787301`", ",", "0.7308212`"}],
          "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.8253242000000001, 0.787301, 0.7308212]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.8253242000000001, 0.787301, 0.7308212],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.8306866, 0.835101, 0.7949256], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.5537910666666668, 0.5567340000000001, 0.5299504],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.8306866`", ",", "0.835101`", ",", "0.7949256`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.8306866, 0.835101, 0.7949256]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.8306866, 0.835101, 0.7949256],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.836049, 0.882901, 0.85903], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.557366, 0.5886006666666668, 0.5726866666666667],
       
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.836049`", ",", "0.882901`", ",", "0.85903`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.836049, 0.882901, 0.85903]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.836049, 0.882901, 0.85903],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.8065450000000001, 0.9053942, 0.8961547999999999], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.5376966666666667, 0.6035961333333334, 0.5974365333333334],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{
          "0.8065450000000001`", ",", "0.9053942`", ",", 
           "0.8961547999999999`"}], "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.8065450000000001, 0.9053942, 0.8961547999999999]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.8065450000000001, 0.9053942, 0.8961547999999999],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.777041, 0.9278874, 0.9332796], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[0.5180273333333334, 0.6185916, 0.6221864],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.777041`", ",", "0.9278874`", ",", "0.9332796`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.777041, 0.9278874, 0.9332796]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.777041, 0.9278874, 0.9332796],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.7376514, 0.9364448, 0.9557662], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.49176759999999997`, 0.6242965333333333, 0.6371774666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.7376514`", ",", "0.9364448`", ",", "0.9557662`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.7376514, 0.9364448, 0.9557662]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.7376514, 0.9364448, 0.9557662],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.6883762, 0.9310664, 0.9636146], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.45891746666666666`, 0.6207109333333334, 0.6424097333333334],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.6883762`", ",", "0.9310664`", ",", "0.9636146`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.6883762, 0.9310664, 0.9636146]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.6883762, 0.9310664, 0.9636146],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.639101, 0.925688, 0.971463], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.42606733333333335`, 0.6171253333333333, 0.647642],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.639101`", ",", "0.925688`", ",", "0.971463`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.639101, 0.925688, 0.971463]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.639101, 0.925688, 0.971463],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.585357, 0.8967528, 0.9580974], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.39023800000000003`, 0.5978352, 0.6387316000000001],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.585357`", ",", "0.8967528`", ",", "0.9580974`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.585357, 0.8967528, 0.9580974]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.585357, 0.8967528, 0.9580974],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.531613, 0.8678176000000001, 0.9447318], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.3544086666666667, 0.5785450666666667, 0.6298212000000001],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.531613`", ",", "0.8678176000000001`", ",", "0.9447318`"}],
          "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.531613, 0.8678176000000001, 0.9447318]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.531613, 0.8678176000000001, 0.9447318],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.4723912, 0.8128028, 0.9049796], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.3149274666666667, 0.5418685333333334, 0.6033197333333333],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.4723912`", ",", "0.8128028`", ",", "0.9049796`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.4723912, 0.8128028, 0.9049796]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.4723912, 0.8128028, 0.9049796],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.40769160000000004`, 0.7317084, 0.8388408], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.27179440000000005`, 0.48780560000000006`, 0.5592272],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{
          "0.40769160000000004`", ",", "0.7317084`", ",", "0.8388408`"}], 
         "]"}], NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.40769160000000004`, 0.7317084, 0.8388408]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.40769160000000004`, 0.7317084, 0.8388408],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.342992, 0.650614, 0.772702], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       DefaultBaseStyle->"ColorSwatchGraphics",
       Frame->True,
       FrameStyle->RGBColor[
        0.22866133333333336`, 0.4337426666666667, 0.5151346666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      StyleBox[
       RowBox[{"RGBColor", "[", 
         RowBox[{"0.342992`", ",", "0.650614`", ",", "0.772702`"}], "]"}], 
       NumberMarks -> False]],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.342992, 0.650614, 0.772702]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.342992, 0.650614, 0.772702],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{
  3.826928308631868*^9, 3.826928607415926*^9, 3.826929890609589*^9, 
   3.8269299674120207`*^9, 3.8269322398246183`*^9, 3.8269364772082043`*^9, 
   3.826938425175478*^9, 3.826939332884081*^9, 3.8269396340732718`*^9, 
   3.826940017230506*^9, 3.826940522143551*^9, 3.826940583686737*^9, 
   3.826976133414658*^9, 3.826976822242136*^9, 3.8269792022567053`*^9, 
   3.826980092627574*^9, 3.826980134816321*^9, 3.826981233651293*^9, 
   3.827366335780837*^9, 3.827422882743421*^9, 3.827505624280167*^9, 
   3.82758205519239*^9, 3.827705867479815*^9, 3.827853587618215*^9, 
   3.827880075804264*^9, 3.827880361551981*^9, 3.827935666810761*^9, 
   3.827952811349308*^9, 3.828021645361005*^9, 3.828053519895698*^9, 
   3.8281074112367373`*^9, {3.828107503040731*^9, 3.828107519862015*^9}, 
   3.8281075714926023`*^9, 3.828107669811179*^9, 3.828108214690031*^9, 
   3.8281088761036263`*^9, 3.8281090946410646`*^9, 3.828109283534193*^9, 
   3.828110390449932*^9, 3.828110483321308*^9, 3.828110566944154*^9, 
   3.8281106419452543`*^9, 3.8281106819006863`*^9, 3.8281107340204887`*^9, 
   3.8281109192318*^9, 3.828111530351551*^9},
 CellLabel->
  "Out[184]=",ExpressionUUID->"c0c83de4-5efd-458a-aae4-cb35e157fc66"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"lfPlt", "=", 
  RowBox[{"Select", "[", 
   RowBox[{
    RowBox[{"makeLF", "[", 
     RowBox[{"nv", ",", "nh"}], "]"}], ",", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"StringLength", "[", "#", "]"}], "<", "4"}], "||", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"StringTake", "[", 
          RowBox[{"#", ",", "4"}], "]"}], "!=", "\"\<varh\>\""}], "&&", 
        RowBox[{
         RowBox[{"StringTake", "[", 
          RowBox[{"#", ",", "3"}], "]"}], "!=", "\"\<muh\>\""}]}], ")"}]}], 
     "&"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.826980398099983*^9, 3.8269805083122053`*^9}, {
  3.827422894396042*^9, 3.827422897663806*^9}},
 CellLabel->
  "In[185]:=",ExpressionUUID->"b6d6b6b5-da1f-4049-a374-82f6cf568aae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"wt11\"\>", ",", "\<\"wt12\"\>", ",", "\<\"sig2\"\>", 
   ",", "\<\"b1\"\>", ",", "\<\"b2\"\>"}], "}"}]], "Output",
 CellChangeTimes->{{3.8269804166180696`*^9, 3.826980508524413*^9}, 
   3.826981233781098*^9, 3.827366337010749*^9, 3.8274228979896173`*^9, 
   3.8275056243360786`*^9, 3.827582055804637*^9, 3.827705867525667*^9, 
   3.82785358763925*^9, 3.8278800758157473`*^9, 3.8278803615693703`*^9, 
   3.827935666858466*^9, 3.8279528114001513`*^9, 3.828021645382572*^9, 
   3.828053519953636*^9, 3.828107413153255*^9, {3.828107503089251*^9, 
   3.828107519882942*^9}, 3.828107571540454*^9, 3.8281076698578243`*^9, 
   3.828108214704364*^9, 3.8281088761167316`*^9, 3.828109094662184*^9, 
   3.828109283550462*^9, 3.8281103904716177`*^9, 3.828110483359377*^9, 
   3.828110566963313*^9, 3.828110641961462*^9, 3.828110681917666*^9, 
   3.828110734034639*^9, 3.82811091925583*^9, 3.828111530370268*^9},
 CellLabel->
  "Out[185]=",ExpressionUUID->"4e6b2a93-2604-4285-862c-af1f7f1201c4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"rngs", "=", 
    RowBox[{"<|", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<wt11\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.4"}], ",", "0"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<wt12\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.01"}], ",", "0.01"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<wt13\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.00001"}], ",", "0.00001"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<sig2\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"0", ",", 
         SuperscriptBox["10", 
          RowBox[{"-", "4"}]]}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"\"\<b1\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.0"}], ",", "2.0"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<b2\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1.3"}], ",", "1.3"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<b3\>\"", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "2"}], ",", "0"}], "}"}]}]}], "\[IndentingNewLine]", 
     "|>"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"plts", "=", 
    RowBox[{"Table", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Show", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Table", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
           RowBox[{"ip3", "=", 
            RowBox[{"ip3s", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
           RowBox[{"xPlt", "=", 
            RowBox[{
             RowBox[{
              RowBox[{
               RowBox[{"params0", "[", "ip3", "]"}], "[", "\"\<LFDL\>\"", 
               "]"}], "[", "k", "]"}], "[", 
             RowBox[{"[", 
              RowBox[{";;", ";;", "pltEvery"}], "]"}], "]"}]}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"ListLinePlot", "[", 
            RowBox[{
             RowBox[{"Transpose", "[", 
              RowBox[{"{", 
               RowBox[{"timesPlt", ",", "xPlt"}], "}"}], "]"}], ",", 
             RowBox[{"PlotRange", "\[Rule]", "All"}], ",", 
             RowBox[{"PlotLabel", "\[Rule]", 
              RowBox[{"labels", "[", "k", "]"}]}], ",", 
             RowBox[{"PlotStyle", "\[Rule]", 
              RowBox[{"colors", "[", 
               RowBox[{"[", "i", "]"}], "]"}]}]}], "]"}]}], 
          "\[IndentingNewLine]", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", 
            RowBox[{"Length", "[", "ip3s", "]"}]}], "}"}]}], "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotRange", "\[Rule]", 
         RowBox[{"rngs", "[", "k", "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"PlotLabel", "\[Rule]", 
         RowBox[{
          RowBox[{"ToString", "[", "noIP3R", "]"}], "<>", "\"\< \>\"", "<>", 
          RowBox[{"labels", "[", "k", "]"}]}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"FrameLabel", "\[Rule]", 
         RowBox[{"{", "\"\<Time (s)\>\"", "}"}]}]}], "\[IndentingNewLine]", 
       "]"}], "\[IndentingNewLine]", ",", 
      RowBox[{"{", 
       RowBox[{"k", ",", "lfPlt"}], "}"}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Grid", "[", 
  RowBox[{"{", "plts", "}"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8269282967339783`*^9, 3.82692829746688*^9}, {
   3.826928346292224*^9, 3.82692834788262*^9}, {3.826928401388977*^9, 
   3.826928401533798*^9}, {3.826929842530972*^9, 3.8269299404023447`*^9}, {
   3.826980236402684*^9, 3.826980262008171*^9}, 3.826980520004281*^9, 
   3.8277058778435507`*^9, {3.827706000709993*^9, 3.827706006921629*^9}, {
   3.8279529159107428`*^9, 3.827952931065899*^9}, {3.827952984646207*^9, 
   3.827952986479375*^9}, {3.827953097157241*^9, 3.827953097282063*^9}, {
   3.827953137850564*^9, 3.827953138021324*^9}, {3.828107424839799*^9, 
   3.828107443700904*^9}, {3.828110927735319*^9, 3.8281109295601*^9}},
 CellLabel->
  "In[186]:=",ExpressionUUID->"20b15ab5-f161-41bf-91bf-a565a2ee6575"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{{}, {{}, {}, 
         {RGBColor[0.4328202, 0.2875746, 0.16778140000000002`], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDtL+KWF/Zev2Q/gaDiyfmxIDv9ZC+ToOVmqc
y3fLN0D5Bg4X779uDqqFqTdyyP51RbtRDCZv4uDNefb4qnqYvJmDyL0E5nJN
mLyFg3bXpO6rG2B8K4clUQ2K70/D+DYOTu4Oq+84wvh2Dn6sEqutr8H4Dg7Z
z7xbOY0boXxHh3WuSdLM3DC+k8MEf1F7o58w9c4O+/pfMljvg/FdHN71fu94
0w3juzrYbNPP194P47s5JN/cG9X0CMZ3d/BpUCxJYYWZ7+GwWCnyQ+x6mLyn
Q6ohT7a+XuN+AKQJXvw=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5179634, 0.3752862, 0.2504938], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDreMec8G8C7aD+FrOCyUZpzJqbYYytdxMLZf
d/1h/VIo38DB8rT60ZvzlkD5Rg7eU87q746HyZs4vDBO9c5QXgblmznsTMg8
Gn8JJm/hsO1Y0bbn22DyVg6sM3+4c/CugPJtHFZKJkcrqsL4dg4VMs0zGHYu
h/IdHI6bbbzRIwLT7+jAdPiyVuZ7GN/J4Xurw27TvJVQvrPDzoPMim+vwvgu
DlNW//u4NAnGd3WYUc65+thpmH1uDkUi/lvW2sHk3R00+xqE9FJh9ns4ZN0z
5lDng8l7OixvScwqub5iPwBA32Rt
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5943548, 0.45806840000000004`, 0.33588], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDiZL849bPzqyH8LXcHBb++RmlckJKF/HoTdr
lWhh5Gko38Dh8+ludzarc1C+kcODh5V/r4jD+CYOOczc2xPen4fyzRw2TciW
cauGyVs4RHW+mtykfhbKt3K4GXRl75c8mHobB9YoWcsT589A+XYOkQF3jmql
w/Q7OOS8P2jkIncBynd08I7praqWhul3crhx7kaytjiM7+yQcJP76glHGN/F
YQq7wqVCMZh5rg5z8rVZ261h5rk5TOr0ePVnEozv7rCe3YKD1Qem3sNB8rGP
51cWmHmeDg99U1nO3ju/HwBW4Wf0
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6619944, 0.5359212, 0.42394], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDg3HA01Vjc/sh/A1HDLvcSqyrbkM5es4CFd5
Tl5w6CaUb+CwJMpI73jpHSjfyOG+hbLhvDYY38SBMelwjqsbjG/mcKU4f99j
/VtQvoWD/Zce+wlPYOZZOSSvfxz30Akmb+Nw88pMt2sLb0D5dg4vrE7OOrEE
Ju/gIHDd/Le7wW0o39Fh7j2RQzc2wuSdHHbtlI2Vewkz39lBT3v5kuc5MHkX
h1n93UXXfGF8Vwfte/Ytx5thfDeHZ4F3Usu/wcx3d7h3OEu5Qgom7+HQ/l3Q
uj4JZr6nw6c3AbMeONzaDwB0wG4B
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.729634, 0.613774, 0.512], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDuwz6v0FblzcD+FrOLCc2jb5a9gdKF/H4Uaw
bEkI70Mo38Ch3FHjz7qJML6Rg6Gnx0GpchjfxMHwC98Mv54HUL6Zg41Ev2CN
1X0o38KB6ZFsyNm2u1C+lUPsJT031Z57UL6Nw9Rdv9oinGH67Rxys/cyP1sO
4zs4lNm7T/V5C+M7Olx5mHpc+j6M7+SQaJ58Z/t/mH3ODuuM1e+9MITxXRxm
drYzvHOHqXd14NjfKHsmFsZ3c+D6n/y6gx3Gd3c4G9/45zHcfg+HVcfExPuk
YXxPh70cLxJX2j3YDwA0a2mh
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7668376, 0.6736248, 0.5867076], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDnwr7/3Ul765H8LXcFBL2ff7bstDKF/HYfqu
JUz1QY+hfAOHL6eXxS6TgPGNHDiWLfFLu/YIyjdx8Fv1Pvy0OEy/mcODScVi
5TMfQPkWDjI7OrbO6IPJWzkcSEm3MpsO02/jIB1cteNpC4xv5/DIWNDQIRLG
d3CI6L5zM/YdTL+jw/yrqvN/LYPxnRxY2YT25C+H8Z0dDKpXfw6thOl3cfj6
/dDEmBkwvqvDyZO8RfP6YHw3h0r9R5/nVMP47g7fs3sF7+6HmefhsMdQdoP1
CRjf0+HcbcE94hMf7QcAR6RvzQ==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8040412, 0.7334756, 0.6614152], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDkc+T+BZIHJ/P4Sv4fAw7sh1w8rHUL6Og9zU
K9snPXsC5Rs4uJ19vvbpcpi8kUPRG40rv/JhfBMHl0KBhXdCHkH5Zg6y6zse
WHrC5C0c3I492/AmEsa3cvB9V5x3qQjGt3HYUvlqgmc2jG/nkJ10KN7QGcZ3
cDguMm9Z8UyY+Y4OnsUR0jxbYHwnh86FrWHHjsH4zg56Kw8I7GOA6XdxYN6n
cel7DIzv6jCfpV1qmTqM7+Ywk1lP4Mo8GN/dwSR6hsTnjzDzPBy0K6/4dc6C
yXs6XPB1+uK84vF+ABvIbm4=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8253242000000001, 0.787301, 0.7308212], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDsWPp9SaeDzcD+FrOCwXW55U6fEEytdxODb/
ePG3P4+hfAMHaybNhpsdML6Rg23ykT3MmTC+icPUz8UFc188gvLNHE63fDRZ
2g6Tt3BwfX/km48ZzHwrh7YbPn7FOjC+jUOcQ/OEgmMw9XYOdS4zgnY1wuQd
HA479S+V2gyTd3SIrRT/ZFUF4zs5mEt5MJqHwtQ7OyhN2bM72wQm7+Kwtn5T
90e4f1wdmM9b17EYw9S7OcxQqfhxvB3Gd3f4fWKJ3sX/MPUeDg86K9xy5GDy
ng7XQ+yi7/g+2Q8AoQdtgw==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8306866, 0.835101, 0.7949256], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDrxvI57Pu/FoP4Sv4XDlXJwrw8knUL6OgxTX
BRO3MhjfwIH1oOuDz+ceQ/lGDnnh7GK7r8D4Jg6f5n0RsV0E45s5XH19Kmw1
XN7CgffnlVX7tsHMs3L4njHrkIknjG/j4Dw/qYY5Aca3c+jjKDlrZQ7jOzjs
+Wq6SWMujO/ooLiWVzykAcZ3chDLbO6UiILxnR1s/stJv+mD8V0cXq/I/dbx
EOYeV4ddMVoLlzXD5N0cglZLtkyDq3d3uH4qvlX/J0y9h8MM7x3bvqyA8T0d
psnoVD//8Hg/AD3/b2M=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.836049, 0.882901, 0.85903], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDipJ/8NcTjzeD+FrOLxlZTaasvwJlK/jYM0p
Js7MC+MbOCxftmvCrn6YeiMHaaNFdpOSYHwTB3enLULnMmF8M4fMrVYrd5+E
8S0c6vu73+64BuNbORxZ1aNkmAwz38ZBQbRMp0oQxrdz2O3Kf75bHsZ3cHhR
fbD051OYfkeH89tnlD2Kgck7OSx47DdHHq7f2SF6q7Jo718Y38Xh1JX3WlL5
ML6rw8EHGaoVqTC+m0Nf5xON5wkwvruDnGJtcI0yjO/hYJS1YuN3uPmeDieT
vgZK6z3ZDwDEbWmO
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8065450000000001, 0.9053942, 0.8961547999999999], 
          PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDh/evRXZ/uTxfghfw+GkXKDeHdWnUL6Ow02x
eAYW7SdQvoGDu65jl60SjG/kYCzg2e/yAqbfxOHVNm8Ln3UwvpnDwZf+z6Ok
YOotHDRS+//OmA2Tt3JosH6YPsUEJm/jEKD++feDnzB5O4cpN1cbOTDA5B0c
3LWkZRMnweQdHTYlhh1x3ACTd3JgtlH4UbgVJu/swBofM/nVFRjfxeF+i87O
HLh/XR20m0s6E+H2uTlI5Hm/mOEEM8/dwTc/7aVMEozv4XDZPfl21xaYek8H
hsevj523fLIfAJN1avs=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.777041, 0.9278874, 0.9332796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDrMyGJw0RZ/sh/A1HFqu1zt7TYTxdRwE44++
25T2GMo3cDgvv37/vXoY38jByiE90j0exjdx+OmwXyaWEabfzOH3br4dpS9g
8hYOU0y6N9bMgvGtHI7pG4pKcMDU2zgUrq9X6NgJk7dzkP5zrTB1BUzewWHt
pOrAVa4wvqPDi33zkmNCYHwnhxNssmt26sP4zg7yb2d/S+iEmefiYLW7pF56
FYzv6hBwJ9lE7x2M7+Zw1Hq5gPo6GN/dIarqgPWdWzC+h4OzdEiLQR2M7+mg
f5d58t4Hj/cDAF4eacE=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7376514, 0.9364448, 0.9557662], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDvktcRM7jJ7sh/A1HHiqT/R42MH4Og5dDJU1
tVcfQ/kGDtv3rJjtsQfGN3Iw/qZQePIbjG/i8MnJaJ21NYxv5mDUoOshKgIz
z8LhbjH/bi5/mLyVw8RUHY97pjC+jYN+lMm88iswvp3DLT+fjdHrYXwHB9Nz
MRVZK2B8RwdZUfPXNUthfCeHZfctLSaugvGdHV6cZlz3ogDGd3HgizZx2rYG
xnd1+BtYcr9VEMZ3c1h3/VGYsCKM7+4gcPI4r+UkGN/D4b5C8zXjABjf0+Ge
a5Jck9Lj/QDL2WgZ
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6883762, 0.9310664, 0.9636146], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDkX80t/PJjzZD+FrOOjpXE7XWvsYytdxWF2j
IMKjC+MbOOT+nJueGgjjGzlcONQTPmHLIyjfxOHNe80zv+H6zRwWv7v8Ik4c
xrdwUDb/INTuCONbOcxwYu9ocIXxbRySHx+79EsMxrdz4KxYkH3OHsZ3cFh8
Kqm5bTaM7+jQ0PChg2sKjO/k8GfiV98tojC+s4NlT1yikQGM7+LAJn2DvVAM
5l9Xh7XT77/bfwMm7+ag0ubU0PwAxnd3KFX8o2qwGMb3cJCtfRO0RRKm39Mh
jptjrdSBx/sBeitrAg==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.639101, 0.925688, 0.971463], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDorTVsceuf94P4Sv4VDR4fjykCmMr+OQ86Tv
qoIJjG/g0JnTd8D+1CMo38iBb8Jl13OhMHkTh8MZs/MtGGF8M4f3VX9kDIVg
fAuHPdXv19w9A9Nv5bA8zOW792wY38ZhSfI8/h52mHo7hzlNRVz2FTC+g8Nr
tckdyz1gfEeH1TI3z556BNPv5LDbI/+Q2FMY39nhvOPl/ZdiYepdHPbU/Z+m
cxEm7+rgeTboRO0FGN/N4aHvWh17Hxjf3SH/X2r/1qswvofDwSbfiZ5SMPM8
HeYEO+1pzX+8HwASYnCS
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.585357, 0.8967528, 0.9580974], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDqZy/t8SZZ7sh/A1HLbFuSu9jn0M5es4PF4s
I9Zp+wjKN3AQOXjnn2cFjG/kcDBUslS5CcY3cTA7IbSIMwCm38xhueKTPL1D
MHkLB8ny3ZP+ecLkrRz25d1edJUHxrdxyE4TXDBjNoxv57AuiTlqaRWM7+AQ
etZmw8w5MPMcHRZcfXL2RTyM7+TgxXZq5v/jML6zg/9E80fPTWD6XRw2V8a8
3CQC47s6vPhl4Xi3EsZ3cwifdEdj8iIY390hOmfxLK5UGN/DgSHmZNGGWzDz
PR3YuN5yKbI+3g8AVEVrQA==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.531613, 0.8678176000000001, 0.9447318], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDpfOvZ2deeDxfghfw+FuUMASIz4YX8eB1bV+
xoeoR1C+gQPfyrtXQqpgfCOHdzo8pc0eML6JwxwxHedZn2B8MwcvmbUZy7bA
+BYOG34ujr4dAzPfyuHHlPmnxFJg8jYOhbcmXK6YAOPbOXhy7Vi4ZhKM7+Bg
e4Zz+p0YGN/RweK2ya6ePBjfyWG53Qz12T9hfGeHlGWyF1JVYfa5OCyYv4OH
rR8m7+oQU+dosno9jO/mYPtz9f99Xx5C+e4OT64p3UxdB+N7OLR6e3S5w8PD
02FNRu1blqWP9gMAT65vGw==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.4723912, 0.8128028, 0.9049796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDm6uNrsv3n20H8LXcGDveCiouuEhlK/joP6i
rddlEoxv4DDn8YOpJx/A+EYO0b1HbLaehfFNHDhSPFP3csLMM3OIT1haerUY
xrdwODDp+rwvTjC+lUPc3VQvRnUY38Zhi9KqFXsnwfh2DjbMC+O3asP4Dg68
NX/e/OaA8R0dfn25aXrCDMZ3clArXnz94B2Ye5wdHq9waJ3iD5N3cTj/zIDP
qwbGd3U4JBxs394I47s5hFQ/f57eCuO7O7A//DhlxXOYeR4OaS/f7zaLhcl7
OqxcWGMQuObRfgDI9HC3
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.40769160000000004`, 0.7317084, 0.8388408], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDnfu9j+/6fd4P4Sv4WBxmCfhwvxHUL6Og92M
Jj6WCQ+hfAOHaU77j1lvh/GNHNbMsbSbXQ5Tb+KgWCPbGO4D45s5ML29dspC
C8a3cKj6VBYgIQ3jWzlcCNh7ZMEnGN/GQYgxaGVRFYxv55DdGTZnSxuM7+Cw
hXv5A/sIGN/RQdY348bdqTD3ODn4ROeuyNsD4zs7sPAfnhLgClPv4hBzdZGz
yA+YvKvD9j2C8zQOwvhuDi+eVaxebQdT7+4glXTAdF0kjO/h0GLEdWN6Mozv
6SAzdZX4n4BH+wHYJWqE
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.342992, 0.650614, 0.772702], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDvInU++EWjzaD+FrOJw8zbNonSeMr+NwRWLG
smnxD6F8A4e0nSFbq2bB+EYOX7N9ZosHw9SbOKxjNBf+JwrjmznwrNKPfnsD
xrdwiM5wV87cDeNbOWz/wHHG6BKMb+Pwb6Gu/opOGN/Owf7gmrAOfxjfwWEF
68erD2VhfEeH5un8M15sg7nHyWHhsXk/LOF8ZwfxD3pLbn2D8V0cDhhyNybk
wviuDgf0DFTO5MH4bg4XT1/attoAxnd3eM2iEd4YA+N7OCw0kgqp/QDjezo8
fs4rcy7m0X4A3DdtLA==
            "]],
           FontSize->24]}}, {{}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, -0.007253803974184199},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"100 \\!\\(\\*TemplateBox[Association[\\\"boxes\\\" -> \
FormBox[SubscriptBox[StyleBox[\\\"W\\\", \\\"TI\\\"], \\\"11\\\"], \
TraditionalForm], \\\"errors\\\" -> {}, \\\"input\\\" -> \\\"W_{11}\\\", \
\\\"state\\\" -> \\\"Boxes\\\"],\\n\\\"TeXAssistantTemplate\\\"]\\)\"", 
        TraditionalForm],
      PlotRange->{-1.4, 0},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{{}, {{}, {}, 
         {RGBColor[0.4328202, 0.2875746, 0.16778140000000002`], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDmUxxftMmr/ZQfgaDhmnmp89fCxsD+HrOFRl
XG1K6haA8g0c6hdP9lTJE4LyjRzM3syeziUuCOWbOFzu/bHJxRUmb+ZQft+v
VkYJxrdw0A3em+vLyQ7lWzkoeE2TNGwTgfJtHIyywyPUHSShfDuHKNPk2BdF
H6Huc3BwijxetVYE5h5Hh4aWO3H5ETC+k8M7PvGJFyXFoXxnh8+68y5wactB
+S4OErN2VvrdloHyXR0+NSmabAuVgPLdHLj4/km4XYK5x93BxH7ta0VFaSjf
w0FOmePHxgMcUL6nw3TFWG0vMSF7ABpLS3s=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5179634, 0.3752862, 0.2504938], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDv4ftKVzOrjtIXwNhy+8rzgf9StA+ToOT2Q2
hnVycEH5Bg5th39tdfkmCeUbOWg3Kd9304SpN3G4Hmlu95NVAso3c9BxieUQ
eyoL5Vs4fFwyIVDopDyUb+Xw6swJ25ArAlC+jQNbCJeB0KJndhC+ncO+ty+Y
X2mLQOUdHAz+6DSxiEtD+Y4O/9+dTN9ygx/Kd3K4dStqumOHIJTv7MDgzLP+
/2GYfheHQ+2rPQU2wtzv6rC687tlzUJGKN/NoWga9+37e5igfHeHJe5Nj59d
hrnXw+F4yefafHEY39Nhb0Bd/oI/CvYAwGVUow==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5943548, 0.45806840000000004`, 0.33588], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDkZ6h6K354vbQ/gaDitsHViDHFSgfB2HxZJL
9p6Kh8kbOHz1+/hPLemXHYRv5HAu33Zz3iJ+qLyJg8e3/RzbjL9D5c0cXnf9
WjppNRtU3sJh/2ThCAtOGN/KYfFcxr4byxmgfBuHUsUrDN8ZuKB8O4fkc5sZ
vLrv74PwHRz+fZ5j7+/zF2q+o0Nmtc1LhfqPUL6TA6vznLjZzApQ/c4Otxg3
/JpxQBDKd3H451byeyarMJTv6rDsZcmqcBnO/RC+mwNPtWOtntNzqH3uDpvl
S7bHqd6D8j0cHjWIaVQ4ikD1ezosZZ7yI/IBoz0Av/5W2Q==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6619944, 0.5359212, 0.42394], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDi1TdCozu8TtIXwNhwDmN1fnigpA+ToOils/
lO3OvL4PwjdwsM7wFZ/btA3KN3L4rPMwxXmewH4I38RBUTBmuaTfezsI38zh
8OsXnq8yv0LVWzjsXX6XrVvmN1TeysHHMZxt46OPUL6Ng6lSZvm6zwxQ++0c
tu2cOb2JhR3Kd3BYWN2YvYH5MFS9o8PsBOFgRctvUL6TQ8ihIPdL2l+gfGeH
uVJ1VRe+LoLyXRxY5EPaGGZ9hLrH1WFqwDuLup0w+9wcZkX/tTy34h5UvbvD
VG6+/Ze+fIXyPRy6s3J89m2/C+V7OrQLiS6Lsv9gBwC8wVvA
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.729634, 0.613774, 0.512], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDsHHL4hXZ4naQ/gaDu4sC1YUz99mB+HrOCQ3
3LreO/vxPgjfwEGwrZSXO/QPlG/kYN176EhY+k8o38ThXFWLVkA0K9Q8M4c1
UyOX+hTzQ/kWDtdlKk1MHwlA+VYODoelmW65c0L5Ng7VXfkROX5noPbbOVz8
xHvsqiPzfgjfwaE77nuXrPFfqH2ODnPCeBWZjDmh8k4OR9dbVl5y/Q6Vd3bw
Xeh5S7AMZp+Lw3NVk/zERZeg8q4O2+WMri19ehrKd3O4+rvsdZjiD6j97g5f
zWTTYjfBzPNw0Dp6cd6OI6xQ+zwdTjl3yzzM/LUPAAw0XgQ=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7668376, 0.6736248, 0.5867076], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDvtfRWZXq/HZQ/gaDqcvxxp+0PyzD8LXcbhj
ueWmVS/7fgjfwKHvIP8JfpsXUHkjh6WKq9Nl58L0mziIbt8stCaIFco3c9i0
bvsBBYOPdhC+hcPbrX8irqz5CNVv5XBB3NhDLYcNar6Ng6jyzgq3kk9Q9XYO
F4P2HN6WxQOVd3CY/b/5hlM9TN7RwWD/fn3T5V+hfCeHV1uu39XSgbnP2SH4
bf3fhrC1UL6Lw9WT9rJHt/+Eqnd1qHpy7GzIJ2ao+W4OP6q2/8tS2AOVd3dY
3MrV8dv8CZTv4XD59FHNd5OYoP7zdAhrOxyvqXVmHwBbh2Tq
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8040412, 0.7334756, 0.6614152], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDjbL9Xif/vq0D8LXcLi0t+El9xbe/RC+joNB
k07x9yYeewjfwEF21+Z5DCtEoXwjh5fajF5nIjmgfBOHU+GuKnODr9tB+GYO
TBP/PVms8ATKt3AoVlwUmb9SAGq+lcPHT2Urf1z5DbXfxkH27m4O3/jXUPV2
Do7Hi8Tv/oXZ7+BgkN6tox31Eyrv6KC8wvfigc1fofqdHHa+PW0ilcoOVe/s
ENfNfCrahwnKd3EQ6XYv+8X/HKre1UG8fDvL7ipBqHvcHJauqpL28LkKNd/d
QVnrVZdjARNU3sNhiYrhhoAaAah5ng66LJ96l9i+tgMAoIJZ9w==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8253242000000001, 0.787301, 0.7308212], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDm/953xtszlrB+FrODxx9bqyXvEJlK/j4OoU
5h4gw2AP4Rs4PEsqry0K2gOVN3J4tsl2RlHoCSjfxEFNaqF/iOilfRC+mcNp
93suiyI/Q/kWDiLhV9Y93P0Jqt7KYUlw2C0/hS9Qvo3Dg4fvhG5l/ILy7RxK
rJ2imkWFofY7OHy18rXZYfANap6jg4/sFZ17egL7IXwnh9u8P2P593JA1Ts7
rDhkrbx753eoeS4O4Vq3FqVthcm7OgjEzddIbLsLlXdzyFkodb5t8Qeo+e4O
DSdCTQI/foDKezgcE+MzXrX/NZTv6RDMcMWyjZvHHgAJfVuY
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8306866, 0.835101, 0.7949256], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDhN7ma4x/Xi2D8LXcEjkzTQLufPBDsLXcYhg
va/6yFHMHsI3cKhUrC1X+ScL5Rs5aJs+mnk1ghnKN3H4+e58zKH5V6HmmTlc
fXK3pu8LF1TewuFqX/wk2/2XofJWDm6Pstkv2/ND5W0c0rmsNS0+CUH5dg73
P4Qd2DtbAsp3cHA9+69JKP0WVL+jQ9Nh8fs6Txj3Q/hODvnKUy99r3wNlXd2
2H3odqVBLQdUv4vD8s3nijcrTYHKuzqcLF4bLZQrAJV3c1B9u/Hb9M+/oP53
d/Dds/CGsOotKN/DQfL5e9PawldQvqeDqNNJMa4Dv+wArMxgyA==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.836049, 0.882901, 0.85903], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDtX9z/z1vC7vg/A1HHymNTatPMi0H8LXccj1
blnQMYPJHsI3cFAy2Fq6s0oCyjdyUJCJP/t58l87CN/EYXHQuZiZ6keh5pk5
/HN8qj+fAyZv4aD+KCpcz/4alG/lcOi0fSbfu/9Q9TYOIfemftA7wgk1384h
dN0SaVdHfijfwaHczDg8I5MBynd00BFoUlBR4IHynRw22leJ1UvC5J0dXsfk
rbdPg/FdHP6yuqTP3wAzz9WBW2X3Mq9HfFC+m0Nf52fTq9VfoO5xd9BdEsJ1
Z+VzKN/Dwf6TaAJv73eo+z0dJkz8Isw3c88+AIrLVuk=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8065450000000001, 0.9053942, 0.8961547999999999], 
          PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDutaEyZX7ju+D8LXcLCY9WLuJ7H/dhC+jgP7
+6UnD135A+UbOGhf52s9189mD+EbOXxN/vHWy+svVN7EIUblzO4wt+dQvplD
fmicxcW+T1C+hcM1/hX+igzMUP1WDha8v/5bf/0Dtd/GgVHpfpPCr39Q9XYO
xxXruO2sTkLlHRziJjrZpT7khup3dDghKaR+IVwEyndyeGA1c8cpww9Q/c4O
ddETLmz+8RHKd3E4J79s30IlmHtcHXZY8girneCE6ndzSJ27Y8+paTDz3R2Y
PZ1b/n9hgfI9HO5rbnt+KoUVyvd0+L3zjNurRzz2ANrQX1g=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.777041, 0.9278874, 0.9332796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDrwr+xYtr3u8D8LXcJjmfyj83goBewhfx2HL
o7tb+7N+2UH4Bg4T3lWbTmfghcobObj7xNpOO/YNKm/isOMDw+9FKUJQeTOH
rxtcl65L4YDyLRz2G8dIJ3KyQ/lWDpt7ORncZN5D7bdxSHTIOsRYIQqVt3NI
2pV1+FDofaj5Dg4X1TdtE1D6DVXv6MDFPOmAVM0DKN/JoUq11VCyEOZ+Z4eD
DxrnTk4RhvJdHGwuiezTucQF5bs6WH9tjrj4hBvKd3OwtTRrSgi7B7XP3YF1
h1XoWflfUPM9HA7ffGytkvgXKu/pULp69r0pPfL2AJC4WbY=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7376514, 0.9364448, 0.9557662], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDn3Cke7VHr/tIHwNh5b/K/gfb+W1h/B1HJhZ
A+enfX4OlTdwaBJr5HluwgqVN3KwqfzFV1kL45s46MVN6Nh++xtUvZmDUu30
M4+S2aDyFg7W31ec+Xl6L1TeymG9RuZxoTfMUHkbByGljiXJX2H67RxCl984
P/sn834I38Fhk3Dg9KkRn6Dyjg5/DQx1ZPukoPqdHFw/OkV2B0tA+c4OR5SE
Px27KwrluziYbrQ921wAc6+rw/Vu9eDCgrtQ89wcOC7OYFFYJQ2Vd3coDz0e
+HLdO6i8h8Oc19/YirJ/QPmeDssYXtted2O1BwAHXFj3
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6883762, 0.9310664, 0.9636146], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDud5Dkq98HlrB+FrOGR+4vhaZyVoD+HrOPzP
VXTViJKB8g0cQkQ3GCjuZ4XyjRz0uT3zjXm5oXwTh4Il2SnWn15CzTNz2Kn3
ZNGDgn9QvoWD8qdzW1/5f4DyrRx6/BqtQqR/Q/k2Dv9iS0xm5bNBzbNzmM/w
ZsFyV3Eo38Hh7ku+60vz5aF8Rwdlk/Mxe26JQvlODrNSBdVnXn8FNc/ZoW/R
JtXZp3ih8i4OR8I85inf/AiVd3XIYFGemrEcZp+bw0z2rtVS24WhfHcH20Xi
l0sPfIGq93CYvHqh1r5fTPshfE8H4bQylmL+P3YA7GdWIw==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.639101, 0.925688, 0.971463], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDqdOvE3iXMlgD+FrOLivW53rc/yrHYSv46D6
/cgrRSZhqLyBg+bHxiOM+wShfCMHlYXPv28vEYLyTRxMLhu47FQRhfLNHMrm
mzD9VPkHNc/CobwttjDWFSZv5XBb11exp5wFyrdx8Dk5ZY9bPCOUb+fQl3N8
m/9fKSjfweHgtYy/HeWcUL6jw9InUau2FT6Emu/kMFW+b8LUbYuhfGeHTrXO
7mIJAah6F4fNfQeNFzvC/OvqUJcmtNzf4wtUvZuD2r7yndvLOaDy7g47XION
G8Jh/vNwyKgvjBL1gpnn6dB1zfaLrgOfPQDuwVRS
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.585357, 0.8967528, 0.9580974], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDp8Uji7Ybc9rD+FrOCiai5y/7/vDDsLXcbg7
8+e8hXYMUHkDB81wPdcJtWxQvpFDR5Lxq5hNglC+iYPiZYZ2o2oBKN/M4Z7v
B3ZPSxEo38KhYcGVZyyxd6HmWzm82Mr3S8yaFSpv45Dna/IvhlcYyrdzOCy7
4dWi3zC+g0NVFf+mUCtOKN/R4aLNIZ1P9i+h5jk5PFCVf+b66CuU7+zg4aEU
GXqCD6rexWHNpitTkn1g/nV1OFQu2babQwHKd3Po2uo2depLbijf3YF/yZZz
T9lg/vdwsGXZL8pnvw5qvqfDyV1iL+1qLtsBALfMU20=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.531613, 0.8678176000000001, 0.9447318], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDkUnzoeZv/5gB+FrOLTpul144s9hD+HrOPTL
vdu33g3GN3C4u+3/qmsHGaF8I4e7gbPctuoJQvkmDv8dr6Q1PpeG8s0czqV8
W/pqpziUb+HwpZa1pnnRf6h9Vg7PrWqNd/W8g/JtHC7uMFMRuywAVW/nYD3T
Jfuv4meovIPDqsql1Q1drFB5R4ffx5zSWIp4oXwnh3axE1HLNzBA+c4O4n+m
BJ52hLnfxcG26eIei5kyUL6rw8kKozwjP5j73Rx6jypM3+T+fR+E7+4w+wV7
yO6ZH6H2eziYhtpO3VzCDFXv6VAYoefeWCRoDwC751ok
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.4723912, 0.8128028, 0.9049796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDjXs0u/3ruS3h/A1HFIOqgSmr+KG8nUcGnk2
RV1eIgblGzg841yhnOkkCeUbOSwUutByz08AyjdxEOYpTyncCTPPzOF19YHy
76s4oHwLB614ZfOw0+/tIHwrh7sz7+t6dm2G8m0c3qZrKV9bCLPPzqFm+6d5
HxaxQfkODg4Pn/g/P/kdqt7RITfdZYqOKUzeycF58l6Gjjcw9zg7XEi1D7+0
F+YeF4e3q06/WF33Barf1YHtwtf+47tZofJuDhcmT645ZgVT7+6QFxlSkqPC
BeV7ODx8z2SioCwD5Xs6dKiv53SaIWgPADTTVdo=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.40769160000000004`, 0.7317084, 0.8388408], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDpOtrTkTTSTtIXwNh13aXLH7X/2yg/B1HBi3
+bFN7+CAyhs4GO7lOcC3gRPKN3LY/zFzUbqZAJRv4rDOTfnZ5UV/ofrNHKJb
q1LWz2GGyls48HRUZIZVCkP5Vg7Olxe+ZowShfJtHCqVbDaVn4PZb+eQYGWs
1LDoP5Tv4CDGVOB7du9TKN/RQbZP8C9DuiJUv5MDY81HuRQ+KSjf2eHC35OS
CuaCUL6Lw5cHUTFz58P4rg4eQd+UdhZzQ/luDls720TKxESgfHeHHEeLl1/z
hKB8DwdhJfWDEYIw9Z4OLZ1OxbNFRewBHTpN0g==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.342992, 0.650614, 0.772702], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDkahMXoBu1nsIXwNh0c2P2232YtD+ToOLSsZ
Ap42sUH5Bg57Sg7MSlWA8Y0cLm7xl1jSzQrlmzg4XT8jFyIOM8/MYbELe+GV
6dxQvoXDeWFml/uWslC+lYOg+g6GrQFiUL6NQ+oZ9fBpv37ZQfh2DocW9N87
tZIBKu/gIP1tvc7HB8JQvqPDOfeWw+pSMP1ODoIX0g/uq/oK1e/s8P8Em+Xl
dT+hfBcHE+s/3L8WwNzn6uAhpaZqoiAI5bs58Omvzvx4Aqbe3eEJs+H/GUdg
6j0cNvosuxbnCrPf04FdZr3HEgE+ewAde1G1
            "]],
           FontSize->24]}}, {{}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, 0},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"100 \\!\\(\\*TemplateBox[Association[\\\"boxes\\\" -> \
FormBox[SubscriptBox[StyleBox[\\\"W\\\", \\\"TI\\\"], \\\"12\\\"], \
TraditionalForm], \\\"errors\\\" -> {}, \\\"input\\\" -> \\\"W_{12}\\\", \
\\\"state\\\" -> \\\"Boxes\\\"],\\n\\\"TeXAssistantTemplate\\\"]\\)\"", 
        TraditionalForm],
      PlotRange->{-0.01, 0.01},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.02], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{{}, {{}, {}, 
         {RGBColor[0.4328202, 0.2875746, 0.16778140000000002`], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDv19pv8/mOywg/A1HHYy8Zut2Ajj6zhMs2yJ
MOffCeUbOEx5Gf76nj1M3sih+FtwbYgKTN7EYbLvW5Yf3DB5MwfmOsG9bJNh
fAuH3beXrj6lAVNv5aDtnrlkUwJM3sYhYuez3F/1ML6dQ91ulpXXkmB8B4dI
Bq7bSadh+h0dPuhVcNpshfGdHLJn9p41E4HxnR2Obnh+usoBxndxuPRHpqmQ
exeU7+qw0cjDIERvO5Tv5nDv4pZLYQth8u4Osf7x76oOwPR7ODT3zdjcJgyT
93QwDAyMaSvdaQcA9+tdTw==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5179634, 0.3752862, 0.2504938], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDmo1/5Z5LdxpB+FrONgpO7wJdN0F5es4vE9d
dbzmCEzewGED/6G2HXE7oHwjh/Irt6Zt3bUHyjdx2LhU2H9WAUy/mUOVkbSx
6QsY38Lh+qGmORoMu6F8K4ej6+fNLdwD49s4xHYuEWbcBFNv51BfW50eKAGT
d3DI8d1tNq0KJu/o8HOKZFvIIZi8k8O7ujMTF0vB+M4O/74WFEd/h6l3cXjE
H9tksxwm7+pQvOLVdg8pmPvdHH7N5Vhv4g7zr7tD1Tv74HPmMPUeDizf2KpX
isP4ng7huw4U/ru0yw4ALG5gmg==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5943548, 0.45806840000000004`, 0.33588], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDt+fbr4kdWSHHYSv4fDWYspK8x07oXwdh8W/
JS60TofxDRyyk0RuJfbB+EYOXQVxOz1mw/gmDotnHnfY9gPGN3OwW7Yg9J4n
jG/hcHRGSsxFbxjfyuHElq1fRCthfBuHp5a3Tk7ghvHtHERbbgTdhqt3cIh4
zKiWtBPmXkeHKf2CZtv5YPJODj+Szi50r9sF5Ts7rMtab3xnCozv4pB+8JPf
ug6YeleH6ETnt451ML6bQ+CjcmfFKJh6dwcD36n1c7phfA8HrQC54zclYXxP
h6jiz0bG63faAQAIAWFJ
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6619944, 0.5359212, 0.42394], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDuvCDf/yS+y0g/A1HIqUxSY+t9gB5es4iL54
ckNgIkzewOG/pkmkgP4uKN/I4Ufbi6+rf8LUmzjEsVZfUpSBqTdzsDif7L30
1HYo38LhXEH/lbpHMP1WDk0yKatmtcL4Ng5dpU9KbyrBzLNz+CEfIbB8Kozv
4JB7tsHFuAXGd3S4dFSy4mU5jO/ksG77+su39sHsc3ZY/GzBnpnvYfIuDj6h
XWd+fYfxXR3knsTX8IXD7Hdz0N69dGuUEsz97g481puzr96Cqfdw4LS/F3ep
Aibv6RC/K+reLceddgA7bmJk
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.729634, 0.613774, 0.512], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDi2p+s/4T++wg/A1HP7VP6mp+rIdytdxWK9R
cv8b604o38BB21VPaZL8bijfyGHOqU6lrhAY38RhqkPIp0lSMPVmDkYR+97l
noTxLRzWbH3GoT4FxrdyEO9IeV9mB+PbOGw5d2QOazmMb+fA8y5Kz+HtLijf
wWGx3u7bJTkw9zo63PzhVql6FKbeyWGvyjqf939h6p0dbhyNWXHaGMZ3cZh3
4Uzt5hMw9a4OS+fEH1/fDZN3c5DvVjt5jxMm7+5QLfzgiU8gjO/hIOLRnR0V
D+N7Oljp9MktubbDDgB3M2C+
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7668376, 0.6736248, 0.5867076], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDqdEJ8Uxp+2wg/A1HGr+7deWuL4dytdxuH5U
3PHRB5i8gYO88c9nvjy7oHwjB3+J1u02/DB5E4fftSeXKCfB5M0cvjN43Q1P
3QnlWzgc7FQ6r80A41s57Oo+U8fuCePbOJTN69LYfxNmnp3DKtaeqGtfYXwH
hxdi2YG6BTD1jg4v3JUElujD5J0cXs4q23tWA8Z3dtiecelQfD2M7+KgZDrn
I/dbmP9cHWbHXV28UQ3mXjeHaO3P8ZfdYXx3h6R/5kvllsL0ezhktijouSrB
5D0dLuwpDuyU32EHANboXKA=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8040412, 0.7334756, 0.6614152], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDtf1Ul++Sd5lB+FrOHz/nL+OPRTG13HYF/fi
0bdNu6F8A4fJQmt32Z3aCeUbOaifWC3KVQZTb+LwnWtjyDVbGN/M4YCNZkdK
Oky9hUNJmvW+qRth8lYOE+qLwlyXwcy3cfh39shCT2aYvJ0Dy2P3Y++3wOQd
HGQnpp5cfBxmnqPDSfZvTA56MPVODr895VSX6MPUOzu4RqmbMJ2DqXdxeBx4
fs8yZ5i8q0PBLV4BHXaYfjeHtckT38jshal3d/C5NtEoNRqm3sMhcqLOz+L/
MPWeDps373nh93CXHQDbBmA1
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8253242000000001, 0.787301, 0.7308212], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDtYsop++VO60g/A1HG71riz/4LcdytdxqLwh
ve7J4x1QvoFDrcuz1KB0mHojhw/OMkLTxHZB+SYOsvxzvkqvgKk3c9h7r+D2
wTcwvoUD/xP9uybBML6Vw9Lf598eXgAzz8Zh+QWJ+aFZML6dg+2EF+t01WB8
B4epJfJWM3/A3OfoILt5zcK3WTDznBz4Hx4pVP0B4zs7rPT7Xx65F8Z3cVha
lBw/+QtMv6vDa/3vOnXbYPJuDiWLeE2ewc1zd5Cqzni1iBNmv4dDadLNWanb
YHxPh5PuRkrOU7fbAQDoD2IQ
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8306866, 0.835101, 0.7949256], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDvum2Xs2Su6wg/A1HFqi46qWSMH4Og6Pte1m
PP+2Hco3cDgadctNLAbGN3KwdejV8ni1Dco3cSgVby2Z2geTN3N4zGi89bwR
zDwLh7T/M0MO18PkrRwebJ11jPEjjG/jcOarnIrD1a1Qvp3Dx5mXNNdGw8x3
cPA4Wvwvtgmm3tFBa8cOUV4vmLyTw5y4RR2eyjuhfGeHhV4yk5OlYfa7OBjX
XIljt4bpd3WIlOFaX/UYxndzOBjvv7AyHqbe3UGFoXBN8nWYvIeDQfGWdwq/
YfKeDr9D+NhKGXbaAQCN7Fqq
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.836049, 0.882901, 0.85903], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDpc8f02ZPGG7HYSv4ZDXPunNQy4YX8dh7yp3
Fd7b26B8AwfNor+bQtlh8kYO3t8tZI582wrlmzhoTnuzJPUfjG/moHsrijX5
Hoxv4fBfKP/XZ1eYfiuH71xlR4W8YObbOFxaoiimfBGm3s7BYWbQGbWDMHkH
Byed/uLdDDD9jg4HHJhstrTD5J0crpzbd377UZh+Z4fbIbYi9212QPkuDjfn
PL9cvwem3tVBh2HJNz57GN/NIdB7aZxCCYzv7iAS8lQrdR/MPg+HkJbXZ7b9
g8l7OsRqWRmyB2yzAwBwKl6j
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8065450000000001, 0.9053942, 0.8961547999999999], 
          PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDmyByXFFGdvsIHwNh9XzC95v6dkO5es4sDba
KbOdhckbOJy0cIiLNNkK5Rs5KPXa9G4tgsmbOGxvFMvSFt4B5Zs5GLX9deWa
BZO3cHjI3Lwv7tUWKN/KQfub14rFfjD7bBxEP7rXTZgFk7dzcHrJt2LSKph9
Dg6fT1jOd8iDqXd08Iq4m+98E2a+k4PWbG8xvXaYemeHC3J7Nx4Ig/FdHDbx
Tv3JMBOm3tVBR/qXdKEvjO/msGqRgn1uLozv7uCUmfOS8QqM7+HwbfMOrr0L
Ye7zdEjOSLxXI7TVDgC4+Vmo
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.777041, 0.9278874, 0.9332796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDmIpAg+3WW63g/A1HDJyPh2/eBbG13HQ2TuT
I2/dDijfwGHhjmPHbj6AyRs5qHC8imWWg/FNHM6opUZY+cL4Zg5s8kwsrO+2
QfkWDknO32IFpsLkrRy4/r3wdlkM49s4KHv8SuW4B+PbORzoUHSv2AXT7+DQ
9jb61cQYmHscHTLnuwok/4Cpd3K4fqKTo7oGxnd22Btx9i7rZJh6F4fZc86q
6nvBzHN1MLRT5Nk2CcZ3c5ics3Hio48wvrsD32OPh3dFYPo9HE4vi9w49xqM
7+kQ8I/70QyJnXYADAtdVg==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7376514, 0.9364448, 0.9557662], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDhtEV7mzPdtqB+FrOKzNfbZV0WEblK/jcHLy
JfV+z+1QvoHD79Ppt16qw/hGDol1Bh3M+TD9Jg7Jcyqj6t7B9Js5sJgIXxN+
DZO3cCjSX3c2Rgkmb+Vgrnh66acnW6B8G4fDJ2SsX/PA5O0crp/7XCE7A8Z3
cFCUWZ8jIQez39Hhv52WSG0GzHwnh3u/PuX3TYTxnR00Zu/wdEuD8V0cdL4e
mFe+A2afq4OUg3vYn1sweTcHi+Lz23+1w/juDnt9J3b3P4HxPRwiFrH6sd+F
ucfTwbKy1Ovdpa12ALizXu8=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6883762, 0.9310664, 0.9636146], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDrPVX8xv4dxmB+FrOBz91tauJL0VytdxSDBV
ZrvIBZM3cFi8rNt+pTiMb+Rw9CtH6c1IGN/EYfKP3JX2lTC+mYO4ghmviAOM
b+HwIqxpeiTTdijfyqFor2h/vCNM3sZh7ypm0WRZGN/OgaHP0n9nE8w9Dg7v
eaZE//PYAuU7OrC0bK53XQqTd3J4mMD71moDjO/ssMGnMPSeIcw+F4f4F5GB
b8xh5rs6WNnuOCDxHKbezWHiw5u/TxvD5N0dGhO9XCRtYXwPhwq7bc39TTC+
p4M7n/YVV/VtdgAmp1fB
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.639101, 0.925688, 0.971463], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDsv+rxJz2b7VDsLXcCjp1Vg+5TWMr+Owat+f
1ZdSYXwDh2uFagGb/2+B8o0cbr5eXOt4eBuUb+Iw7/mjT+cYYHwzB0uNgj/V
s2H6LRxsDiXV52+D6bdysGztbfy4BCZv46DOnsIe9B/Gt3Oo4HnH4fMHxndw
OCPoOXtiDUy/o4P0qRTmc6dgfCeH2wxrTmy8A1Pv7MBRtUhQ8i+M7+LwZdP0
FT1aML6rw+rmqpfWcHk3By2rOYwJe2B8d4dlJ6edNeKE8T0cQvzCV3qIw+zz
dIi2kF4ts3irHQBBFmCz
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.585357, 0.8967528, 0.9580974], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDntmpG+IZN5qB+FrOKyxsG0te7MFytdxOGYc
HrtxNoxv4KAfWxnkrgBTb+QQLyi854MuTN7E4fjXRUyzvsPkzRwmJf03vycI
41s4/HvCdXeJNoxv5VD4ztvhfjqMb+NgF/y6qNt5G5Rv57DyygK7tTtg8g4O
i0LK2JJXbobyHR2m8v/90R8Ms9/Jofo6/yJjZZh+ZwdbyYXL0qNh+l0cjpfZ
RvJqwuRdHTQzV+XtE4bJuznUfFq6eONLmHnuDqqWTQv1HGB8D4cnvWInZqyA
qfd0KDWSvLfaZasdANppXIo=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.531613, 0.8678176000000001, 0.9447318], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDrPVzmZtvL/FDsLXcMhydpp1KxHG13HQT1nE
fusFjG/gsG+vmf65FVuhfCOHCz3+cVMWbobyTRyEYtpCer/D1Js5nN+eofHl
Doxv4XCF815zdAGMb+WgmisyefZmmH4bh3WRzeEFN2Hydg5Sdy7/vywLs8/B
YVuzZpv3D5i8o4OI016XhRoweSeHxElteyo3wuSdHer27Gthfw3juzj4S0w1
DvsOs8/V4Xv8M77zIjB5N4eSq/ETip1gfHeHH9uUZv3eBjPfw2HCv8c9ko4w
eU+HX2+exzS+3WIHAPdHY3Q=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.4723912, 0.8128028, 0.9049796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDpptCQn2i7bYQfgaDrWPvnQ73oHxdRyM7/ow
B16C8Q0cbon+3Zw5A8Y3chCMnOGv6bEVyjdxSDlf4dGgDeObOYTKXC9KPQ9T
b+HAsuPbDjUOmLyVA8OH+HKzRTC+jcPl7MsRr6fD+HYORSE9ygrxML6Dg8Su
g3F272F8R4e1K0UPsEfB+E4OrNtufpcph/GdHbif3pV2KdkM5bs4HD6hX+D6
AeYeV4dIeyehXHaYejcHjQSH3RJw/7s77P/iuWNZJUzew+HykiYvAWsY39PB
fue3faLc2+wAkCFaYg==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.40769160000000004`, 0.7317084, 0.8388408], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDoc+tfx+NXObHYSv4bCppLZvvdxWKF/HIbp5
zxqlrVugfAMH7tBA4zWsMPVGDgfX5dSqtMLkTRx4vWaYTF0M02/mcOT5qwLt
bhjfwqG0TH/OMweYfiuHuYcV61ddgsnbOByxXcnDmw8zz84hXXvVafE9MHkH
h7tvPyv+fgiTd3RY2sRR+V0IZp6Tg5DygZnHSmDqnR1WKUfsrteGybs4uKmK
9i8Kg8m7Ojzn95r/SwEm7+bgzFTvZd8NM9/dwSG7embhLBjfw4E77abA1ziY
fk+HhEXM35Zu2GoHAG+2XQw=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.342992, 0.650614, 0.772702], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDr1srxQcJm2yg/A1HLS6txce+A7j6zg8V9EK
/Ht5M5Rv4MCv77ciUArGN3Kwe5RzUfkHTL2Jw6qWN4f11GHyZg7LjSMMTfJh
fAsH656/AXm3YeqtHF492fyvSB4mb+Nwhi3u9ENBmLydwwSZP16blsL4Dg4b
j6y6P9sbxnd0sHzTknP6CYzv5JC8cuWWaZIw85wdtom5tzkJwvguDrf0L7t6
H4apd3XouGuz8vPDjVC+m4OX4LSPoX9g8u4OOnMY+1bchfE9HFrEohJvHIOZ
5+mw//ozF/cDm+wA0AdhpA==
            "]],
           FontSize->24]}}, {{}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, 1.370271839063327*^-6},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"100 \\!\\(\\*TemplateBox[Association[\\\"boxes\\\" -> \
FormBox[SuperscriptBox[\\\"\[Sigma]\\\", \\\"2\\\"], TraditionalForm], \
\\\"errors\\\" -> {}, \\\"input\\\" -> \\\"\\\\\\\\sigma^2\\\", \\\"state\\\" \
-> \\\"Boxes\\\"],\\n\\\"TeXAssistantTemplate\\\"]\\)\"", TraditionalForm],
      PlotRange->NCache[{0, 
         Rational[1, 10000]}, {0, 0.0001}],
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{{}, {{}, {}, 
         {RGBColor[0.4328202, 0.2875746, 0.16778140000000002`], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDmouh1Kmfn6zH8LXcIjaGztzwScYX8fhUn2I
85d3ML6Bw+Z7lRfmfIDxjRy2G7/4KfIGxjdxuP728/Tzb2F8M4e4H/bLbryA
8S0cLOy+ztn4Gsa3cpD4bjnV9RWMb+MgO+lk5oOXML6dQ/+Uq91sz2F8B4er
IuIBq5/B+I4OXVoKl8vhfCcH9c28Fp5PYXxnh4985ReXPIHxXRzeTHu4VgfO
d3VIPfAvdT6c7+ZwhEfsvAmc7+4wOatk27ZHML6Hw+yLN/Wd4HxPh3WPSvsq
gOoBjNt6pg==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5179634, 0.3752862, 0.2504938], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDrelO+8HG7/eD+FrONRO0Dn4SADG13FoffxN
0+DfKyjfwOFISViZESdM3sjhc+SBrwKfYfImDgsj/AxM4Hwzh4jG3WIN72B8
CwcbpobkvLcwvpXDl5W/N797DOPbOET0OUzoeQPj2zlYbpv4If0hjO/g4DY7
u/zePRjf0WFZJt/ljgcwvpPDm7uzHogfgPGdHZrcLY8uOwTjuzisswnZWQaX
d3UIz7a9teoSjO/m8ONl8W3v0zC+u8PyAMY3zidgfA+HX4pbpVvPw/ieDrN1
9IqzL7zaDwBG/HR0
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5943548, 0.45806840000000004`, 0.33588], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDtNyrn3YrvBiP4Sv4bBd4uMK/+TnUL6Ow5uu
51/EZjyD8g0c+q9MaZv/5ymUb+SQL7ebJ+88jG/i4Gcse/vxEhjfzGHL62mH
Pp6F8S0c9GOn8DJ8hPGtHBLaMkPdb8P4Ng7d0qssrp+E8e0csm7MTPQ+DeM7
OISwRsZ+KIbxHR0Ov3/Me3ITjO/kUNv+sZ/xMYzv7KCYyDr36wEY38VhbVgh
24b3ML6rwwU2X5PHe2B8N4d5y9jyI9fA+O4OyyQY/Dn+wvgeDk1vtEN3MsHC
w9NB01WxmeXa0/0AJthvEw==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6619944, 0.5359212, 0.42394], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDswX03INfz3bD+FrOLzexd/Uo/MEytdxyHKK
+lcf9QDKN3AIWpH8SdzzDpRv5HArVWzb9OrbUL6Jg8qXt3x2FnehfDOH+pzJ
ISWKMP0WDiJJ+Wu3LobxrRxKJA2uvcuB8W0cRLxF8t7awPh2DuwBc5SPrLoP
5Ts4nDDdHRajBOM7Opj+2BAZ9QLGd3KYmO533Atun7PD0z953G+uweRdHLZf
mXa+4gKM7+qwSEFD5u6We1C+m8MFU7EVtSowvruDbM2y5gOtMPUeDq8uM+5e
Ww0z39PBbmPfU6W+B/sBlqNrIg==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.729634, 0.613774, 0.512], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDsUlm8S/cTzdD+FrOBxpkRRyP3EPytdx+Lgi
g59D/SKUb+Cwp3a1zcuYo1C+kcPdO0FeOQtOQvkmDjqzmidOmX4FyjdzmB2m
u89F8RaUb+Hwd3O4y54nt6F8K4dbKp0Bks43oXwbB76smjNpk65C+XYO+WrM
aVu2XoLyHRzUd8m6PzwD4zs6aL2R6kg4ALPPycG26mvJuxnXoXxnB7aE1fnC
2TegfBcHT40bhuevXIPyXR14fRbt/VkI47s5qH9uYLXoh9nv7jDp0u2lZ2fC
zPdwWKNeZDZBCCbv6SDAzjSt9viV/QAg62gu
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7668376, 0.6736248, 0.5867076], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDrat5tLhIQ/3Q/gaDjJrf9fEb70E5es4eD87
UKprMQfKN3A4fEHrwyXBlfYQvpHDzvuNSXlntkHlTRy+s7ycUvLkApRv5uDY
3GhryHYVyrdwiJ5r/4/7IUzeyuF/w5u9SizHoXwbh84sK62Vvw9A+XYOTqt9
fM0ij0D5Dg58EaWbphechvIdHc6yVWz/vfcclO/k8Pj60d23m85C+c4ON1c+
99OuPwHluzjovArJUVt2DMp3dfjkNenJ3miY/W4OpqFSjc75J6F8d4fNczc9
Cv0CM8/D4ax7aoBe43ko39NhWvVZhgm+Z/YDAF+pa3k=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8040412, 0.7334756, 0.6614152], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDm5bmt1jrW/uh/A1HCbyRnQeW70LytdxeB9s
4LA1/qA9hG/gUCX0rtXs/mYo38hBYsfyWU3pG6HqTRym6WSLnFt8BMo3c3h0
M0WWZd4hKN/C4bx80LlbQTugfCuHZzVbHC51LofybRx+L7y+w6x5KZRv52Aj
e66kxHQdlO/gsEfquenezXuhfEcHzgPTVxzdfgDKd3LYGr3y8t67e6B8Z4dM
sY9Kjr1boHwXh/Mre+a871sD5bs69Od+qpwpDpN3cxB+t/vctQsw/7s7WJxa
YNP2ex+U7+HgV16vccV4K5Tv6ZB/5Kvf/r6N+wHE1mzO
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8253242000000001, 0.787301, 0.7308212], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDi+cWO72xl7cD+FrOHw8G2C9SnyDPYSv43Bn
xufGTM3zUL6Bw0LRlvuba45C+UYOsQLdPoGOrVD9Jg6xZ9lfawVshvLNHPiS
HvyeuW4ZlG/h8O/s6s9dOYuh+q0cTBM+HPjPswXKt3E4XHRGIenyCijfzmEy
g+7XJ3MWQPkODtecIjbtjZgC5Ts6/LxRU35oezWU7+TQn2O7ozOwBMp3dqjk
y6q/MD8Har+Lg9u5VUyLpedC5V0dXB5s49A1nAfluzkUnFm4/mD/ZCjf3cGp
5kvId0OY/R4O06Mjj8fuXwrlezoU2d5/vURzqT0A0H9jFg==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8306866, 0.835101, 0.7949256], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDluClSorlQ7uh/A1HAS0Gf79X33MHsLXcbgm
qStfP/kylG/gsMLCP0OI6TSUb+Rw2NM+0HvpDijfxCH5afgKW5YlUL6Zw3WZ
va8nXtoG5Vs4XNjbEVn+8TCUb+XwZ7L28uD6I1C+jcN+u3unZnTtg/LtHAx5
P3xksd8C5Ts48HyZyDLr3XYo39HBeG51Wr/3bijfySHdffOX90cPQfnODuIH
ajm2lx+A8l0cEpv3P92SDXOPq8PfqpN5CzRh7ndz2LygKvl/Mky9u0NOPWOp
qjnMvR4On8T4rtau2A/lezpMWXQ3YCHHLnsAWMJfOQ==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.836049, 0.882901, 0.85903], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDns2nne5umXOfghfw2GvX9gbuSUX7SF8HQej
DK51ZRI3oXwDhzd9rx7KX7oA5Rs5TDEtYenXPgzlmzjk7pUKVXLaC+WbObxq
YvVI8jgO5Vs49M64fpivEqbfyoG/zvbDvAAY38aB+RTL3LNnj0H5dg5t887U
Tt17BMp3cOhds4+LbzOM7+jAsbn0zI3VJ6B8J4dmhpsNk4RPQfnODmfssjS5
7p+E8l0cEu0+yK1yhJnv6tBbwZE4QxAm7+ZQcrCq8iXrGSjf3WHl4Q0N6rkw
8zwc9oaucmwxhfE9Hf5NOyXtuO2sPQBiTV6O
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8065450000000001, 0.9053942, 0.8961547999999999], 
          PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDs4GNnF+ctvtIXwNh8wNXyfXHLoO5es4dJ55
ZMnUeBvKN3Do/8menbfrCpRv5FDO+meenN8ZKN/Eof2/kt0U/tNQvplD+17O
TMajF6B8C4dSYYNVP15ehPKtHJzOHmA9JHAZyrdx+BrOd2ztTRjfzuGv+QJn
lepLUL6Dg9/OkrX/TsLMc3TwaLizTVUMZp6TQzWX6M+W8vNQvrODkk/W61f/
YepdHC4JMi6+9h2m3tXhlvNL1w8zYea7ObzIKF4hcwam3t0huGw+26ISGN/D
4WH0HZ7GGzC+p4M1C+P/l/cu2QMASS5hlg==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.777041, 0.9278874, 0.9332796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDhXvS/zvLz1iD+FrOOjzs3FN1b4F5es4nJXc
kJNtew/KN3CY09HwvunRdSjfyOHIxd//ntdfhvJNHGY+YNySPv0SlG/msKFz
k/HN7VegfAuHB/9OP+l6ANNv5bDm/XqmRMYbUL6Nw1yz2139sTD1dg4LnWf7
3DkCM9/BwfNGA1+uIUze0aG+bqEKRzzMPCeH9qk16taLbkL5zg62Qvb7Fny9
BuW7OCT6bRVPKYTpd3Xg+lTd/V74KpTv5pB+9GjNj6MwvrtD+dembLsOmH4P
h3cz7Za6voLJezpoPL3nF7Xwmj0Ai/JlQg==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7376514, 0.9364448, 0.9557662], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDrN+fKn6cfWCPYSv4RDTvWTWytZ7UL6OQ8JP
npjfbg+gfAMHG9fduz/03YHyjRwOqiUdmOBxC8o3cbBqCM7O7oTxzRwCPlea
bL5/G8q3cPgYoa/iLQXjWzl8W6YWuqn9JpRv4/Bs1iKl7fthfDuH42vCnhia
wfgODp2fW9pl02HmOzpk/jz0990OmLyTA9fEn0tvxMD4zg5RMUvkFuyBqXdx
cOeuK6u9C+O7OjDGF3N/yYKpd3Owr+L5cEsG5j53B8e+m9qde2HqPRyC1Hf8
/+MI43s6aF5jue1x6bY9ALqaZYo=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6883762, 0.9310664, 0.9636146], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDiftVb0kUm/YQ/gaDtfrN03//+IhlK/jEHNz
Pvvc6zC+gcPbs6G6XAX3oHwjh9wd32afqL0N5Zs4TLmb6pY94y6Ub+bQXmji
w3scxrdw+Jvucs2MBca3cli3IpLt2hEY38ZB0KFfvvoTjG/nsN/xdX7VKxjf
wcFA3e6y6jSY/Y4OWy93zZNZDpN3cjgWMmGJEt8dKN/ZwYqv7IGpBUzexSH8
u039+X6YfleH1Xe69/uthPHdHNR1yo+viIepd3eY3HnmYA0zjO/hYP5vKefO
gzDzPR3+in5NX77xjj0A1YhjdQ==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.639101, 0.925688, 0.971463], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDlvXp6zeduO2PYSv4SD+KfQDH8NjKF/H4Tvz
T7OA7Q+hfAOHBNtGRxOlB1C+kUPZ67m8pd/vQfkmDt6vZ+zN4YDJmzns3Kg8
pa4TxrdwCPC6/KIqGmaelYP6z7wax+0weRsHlYS/0nVaML6dw+3iCus3yTC+
g8MXXy72FRUwvqPDjScFVzrrYHwnB46nDGc/ZsH4zg6VSxgf8RrB+C4Oh18w
+Ey8fh/KdwW6R0aCNwMm7+bw+JV3835NGN/d4fHzc7/uwf3r4fAgL1OkwAXG
93RwlttppSh33x4ADj1gnQ==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.585357, 0.8967528, 0.9580974], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDt/OJovECN+zh/A1HJj4ROV7Tj6G8nUcOnxK
WprcnkD5Bg57Zee/nhn2CMo3cvjN3lS41/oBlG/i4HnEUux3/kMo38zBcI6n
vsBWmHoLh87eFuMVrDC+lUOA9srgNQ0w/TYOESfDVE4awfTbOSx/pNvrvwrG
d3DYWrk342IyjO/oIPBZ7s9HfRjfyaE03OCxtgyM7+wgMrGjnj8OZp+Lw4qU
mWXNwjC+q8MBttPzqw7C1Ls51O9NemUaDuO7O2z0ThF4vBfG93BYk6Zv4b0P
pt/T4Xn2KZlP5Y/sAed6XcI=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.531613, 0.8678176000000001, 0.9447318], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDgetN/RO2HLfHsLXcNixeFn8V40nUL6Ow7nZ
u5Wt1sH4Bg7y2RuFIs4+hvKNHFJf6dY3mj2C8k0cFuyu+28eDuObOejN2BL9
5yeMb+HQLiHo/p4Tpt/KYc7E1//Kj8DkbRy2b9j9suoyTN7O4dNv2fMVR2F8
B4f/eS8kSrRgfEeHwk3/Eq6rw/Q7OTy/fTCvLgbGd3bQcf27e7IFjO/isFfy
MldzC0y/q0MUw6mynjoY382hS1/DcscbGN/d4fw9v9NOcL6Hg1gdr0TeE5h5
ng6u34Js9bMe2QMAWnJmkQ==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.4723912, 0.8128028, 0.9049796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDr/6NbPZTj20h/A1HFYsTf556NZTKF/H4Udr
7hqJLzC+gcNUcZtFqYsfQ/lGDhJvy33XWsD4Jg6zep2T6u/C+GYO33vuWx90
eALlWzjoe1w7fMAAxrdyYNx+nGWXGIxv4xDvv3vfMR0Y387BT9/p4sE2GN/B
4c6Cy/6lL2B8R4e24FuMUaIw9zk5+LO1lHZHweSdHfJXCdUdK4O5x8Xhq+oF
wyO7YHxXB5PsaZd//IHx3RxOCvrv7HeC6Xd3uLnV8PHabBjfw2H9O2/mdRow
vqdD6KTjRWozH9sDAFAMZK0=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.40769160000000004`, 0.7317084, 0.8388408], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDo8jQqY/bntkD+FrODAkxb/+P+kZlK/jYMsW
yahfBeMbOIROYZPjmvIUyjdyeP5F6yp/2hMo38Th1uTig3e4YXwzh8ZfzhV1
YTC+hQPrnOnHuZhh+q0crhhpf7t1DiZv4+DP59Y9NRHGt3N4Zm72SHIOjO/g
sPGZ7ledlzD9jg6Tk36WZwvA3OfksEZd7eetzzD1zg6HV38/JvgMxndxCHjr
mzEVbp+rwxSDHLXiAhjfzeGAwfot3P9gfHeHZy3L17qrw+zzcDCNDCw6kAzj
ezrckU7bb3HmmT0AY4xiig==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.342992, 0.650614, 0.772702], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDi8Z+W9X7XhsD+FrOJi8PJGROucZlK/j8PNB
tPHSGTC+gcOjd8LmLtIwvpHD91Y/r96JT6F8E4co/2c7fxyF8c0cCr4qPDx+
Bca3cNCPNBIwZYTxrRxkrtYv6SyE8W0clOWPnK3ZADPfzmGPe//MiydhfAcH
0xe7Hob/hKl3dOhUeZTV/xLGd3JotHq0o8oPpt7ZYdGDsi5RTRjfxeGt9Pp3
p27A1Ls6bDCrvjrzPIzv5nDHSpHnWidMvbvDrEupswUvwuQ9HLTX98fp28L4
ng6yz0KXrFr21B4AdYxm/w==
            "]],
           FontSize->24]}}, {{}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, -0.9025019581540785},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"100 \\!\\(\\*TemplateBox[Association[\\\"boxes\\\" -> \
FormBox[SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], \\\"1\\\"], \
TraditionalForm], \\\"errors\\\" -> {}, \\\"input\\\" -> \\\"b_1\\\", \
\\\"state\\\" -> \\\"Boxes\\\"],\\n\\\"TeXAssistantTemplate\\\"]\\)\"", 
        TraditionalForm],
      PlotRange->{-1., 2.},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{{}, {{}, {}, 
         {RGBColor[0.4328202, 0.2875746, 0.16778140000000002`], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDkq/bPZ0/Hq/H8LXcDh7yrxiGpyv49D++MOK
U3C+gYP2SY1zyXC+kcMrp8gln+B8Ewfm/XaruX/D+GYOKw/4htrB+RYO89Ws
eFzhfCuHkMmr6rTgfBuHkMaGnTlwvp3DLq+ZbhFwvoNDzqt6EUc439Eh45h2
11E438lhz+PfEUlwvrOD56Sf7tZwvovDndj6T3PgfFeHPTVx2Qj73BzMzdYv
qIDz3R30GK9fnwbnezhwOqeEdMH5ng7XOXhOpQD5AJhCdx4=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5179634, 0.3752862, 0.2504938], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDqHbZA8vmvtmP4Sv4fB7H/ObeDhfxyE05Ouz
CDjfwEFYpFxkBpxv5DBt3waNLXC+icPh63tkpsD5Zg7fmJfwKML5Fg5WXtxH
GObB+FYOS3peMy+Ay9s4HFvQ9OwynG/n8OXlx4kv4XwHh8Mo8o4OM7o6px2E
850cFrhY2AvCzXd28G90/XUALu/icGVi9tHHcL6rQ/874QcI890cQvOy/gnD
9bs73NkieZIdzvdw+NLMevsRXL2ng8u6qbyaQHkAdzh0ig==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.5943548, 0.45806840000000004`, 0.33588], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDrMsZp3psHq5H8LXcMi9fktYyhrG13HIt06N
dYLzDRx+yNxcLgfnGzlMOtN+9hlcv4nDrcVsrpfhfDOHTd94AqbC+RYOzHJd
93jh+q0cNoq4OSH4Ng62PZy/VeF8OwfbKJdrgnC+g4NhZvR3Rjjf0UGPrenJ
Cbj5Tg6pzxdl/4TznR3Kb897dw3Od3HYLPq94g+c7+ow7V3LLGm4eW4O/loP
5e7A5d0d/Cc/qNwA53s4pN3o9uKEq/d0OFC/nOsAUB4AuINnnw==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6619944, 0.5359212, 0.42394], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDmzcjy3Fbj3dD+FrOHApua5lvg3j6zisUlqs
4A7nGzjMs3T6vgGu3shh6/JtyYZwvomD8blT587dhPHNHBi25Qveg/MtHOxL
3ro0wdVbOQhf4yo0gfNtHNbZsl3KhfPtHErs1kQchet3cAgWLpuvDpd3dIgz
OWSKUO/kcHDGfCdHON/ZQVNH/0I0nO/icNg45ZAmnO/qEP4ocSMTnO/mwMPZ
eMYczndHs8/DQUvfqQSh39Nh/Y1TgWFAPgAt0mu4
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.729634, 0.613774, 0.512], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDnMfy9tEVT/aD+FrOBw0qjjTVwPj6zj8ltw/
OwrON3CI/lX2fz1cvZFDYn/QrMoqGN/EgWlKyQsE38whd8M8g/1wvoXDhqIH
dgpw/VYOOo+knfbD+TYOb+/6bM+C8+0cvjt1mDfB+Q4OVfv4T4fD+Y4Oq1q4
WO7BzXdykChQiPsH5zs79GkciJGGq3dxuN167FUKnO/qsH1p2CxlON/NYZ+u
g1w8nO/u8GTXvM1ucL6Hw6b5BkEdcL6nw0mZ4/0TgHwAvRltYw==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7668376, 0.6736248, 0.5867076], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDg+3x4setL63H8LXcPjp9ngLly2Mr+Ngs2bx
6k1WML6Bg3plPPMUCxjfyMFceMN6TnMY38Th5jbZr0ZweTMH+RSlWRyWML6F
w5XLGb72cPOsHK5o3Ckth/NtHJodj0dOgOu3c9C8771rFpzv4FA75YbIKzjf
0aGr8a+ELdx8J4dP7sxM0XC+s8O6B7KMgXDzXRyMFZ88U4XLuzqUsFfVM8H5
bg4b9vOda4eb7+6wrsQjVRsu7+EQ/oB9oSKc7+nwtraHUQfIBwBuoGJj
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8040412, 0.7334756, 0.6614152], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDkdblr7zqru+H8LXcKjfWngyuh7G13GI3jTh
RlEtjG/gcKyg4xJ/NYxv5HBV10teF843cfi1Ul/NDc43c1BhTte0hvMtHNKn
Z3WdqIHxrRzUeEVeisH5Ng6V+pEn4+Hq7RwU2LVZflTB+A4OEVZr+CfD5R0d
3jTtdU+F850cPn6TmskCN8/ZwcxIJUoSzndxqDof+r0cznd1uLUuRuUeXL+b
QzGK/e4OK14KKbnD1Xs4nFI9lLkZLu/p8IT5gg/I/QA1CGZj
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8253242000000001, 0.787301, 0.7308212], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDiEFTboTDl7YD+FrODBXbJePg/N1HOQZ+21Z
D8D4Bg5Jaf4ma/fC+EYOld3xS9fD+SYOUYLzV/zYB+ObOfx/F3li/X4Y38Lh
rHwymy2cb+WQu9/ziiqcb+PwTVeQJQiu387hm2lMmD9c3sFBJPaciQGc7+jQ
WOHu1gbnOzms3VPnnAPX7+xwQHq+dgNc3sVhU4K9jyOc7+pQ+/XS5W9w9W4O
70+vPtINl3d3SGiPSy+D8z0cvjFPN7SG8z0dZlmezU0A8gHLcWxG
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8306866, 0.835101, 0.7949256], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDvPecpX+5zqyH8LXcDjSLf/HkBPG13F4IFCw
aAYbjG/gUGqy7swTFhjfyME48bP+VjjfxKGhqEluMyuMb+bAH7u17z87jG/h
YL78agELB4xv5eB77M+f53DzbRzinY++vQI3z85B8YmW/Qm4vIODzb4S9zy4
eY4OUc89JuvC+U4O8zj7isvg6p0dGhnarT7BzXNxkP7smLADLu/qYL96pvdB
uH43Bwmuh2ZKcHl3h1KeSBYDuLyHQ8QuLeNVcPM8HbS4E3bpAP0DAHn+Xe0=

            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.836049, 0.882901, 0.85903], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDmte8Iu+iFi1H8LXcNhguLH4URiMr+Pw+5wV
yx8fGN/AIUe6n3eyPYxv5OD5N8fuoCuMb+KQ90xnniBcvZnDB4t1Rs5+ML6F
g2iaW+R+XxjfyuHyPq2ZHHB5G4eYrV7JFz1hfDsHQ8btQa0eML6DA69Bw7dC
fxjf0eGT24FpinD1Tg77qnKTpOH2OzscltQoWAqXd3E4uH6LYxzcPFeH8+mT
0vLg6t0ceG4+P3wd7j53h+m1Fp+vwOU9HNKKeDa8g5vn6bAmJk25A8gHAG4b
Yx0=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.8065450000000001, 0.9053942, 0.8961547999999999], 
          PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDuu0jz/Xb1htD+FrOPh2fLW2bYbxdRz8z0x/
9LoXxjdwuN68ojZ8Koxv5DDr66mU1MkwvonDpVvRDgZ9ML6ZA2d8z0y3fhjf
wmFyzcN7xT0wvpVDfuS38stw820c2i04JTzg5tk5XC0427gKbp+Dw2FTu/a+
STC+o0PJLusszwkwvpOD4yffW65w85wdyt83efbA7XNxKHMz40lthfFdHf6G
3L+ZBXevm8NEFPe5O1QLXpnzeCKM7+Gw/1tKxTq4vKfD72qR0PNA/wEAZNRi
uQ==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.777041, 0.9278874, 0.9332796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDtmGO7mWRB2xh/A1HGyN4if+joTxdRy+pm16
7BMD4xs4hLdtynkcC+MbOcQtttLIiYPxTRwuXe0vXgFXb+bgGTmFJyEaxrdw
SNqx5UsxXN7KQWBCmz4PnG/jEGDKLJ8BN9/Owf/3p+VhcHkHh77af9+44HxH
B7GryZs94e53cjCewfe0FW6fs8N0h5Ua7nDzXByc9jsnvILrd3WYIh87iREu
7+bQXGkl4weXd3d4u3ZL4Ru4eR4O22oiCjbD5T0dltm1yD0FygMAnEBa1g==

            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.7376514, 0.9364448, 0.9557662], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDu6/nvw//PyCPYSv4RB4bG/uRThfx0Eh4KD3
9RcwvoHDrsALXzlfwvhGDr+6yj0d4HwTh2c1bOuXw9WbOZyy4BG1g/MtHGJD
HXml4eqtHLIEFr6JhPNtHArWiC02hPPtHDRfXZlyAa7fweFM6JQLx+B8RwfJ
ZwK7hOHqnRzWnDC1vg+Xd3Zo2TIvYjWc7+Lw8UnI5R4439XhVoXTlVdwvptD
r5z/qzw4392Bb9mtX2lwvoeDaq4newLcPk+Hsu93uPuA8gC2GGu9
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.6883762, 0.9310664, 0.9636146], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDpwTe69pL7xuD+FrOMxz3HA+bRGMr+PAH9/t
NxvON3Awv29iUAjnGzloqf2KmrIYxjdx2KXc1NsGlzdzeO71JTsdzrdwMLjJ
9+IqnG/l0Lol0KoezrdxWI1iv51Dx9W5F47A+Q4OUWzL+YLgfEeHaBbXhcVw
vpNDhEWOMUK/s8Omx97nbsL95+KwZe2hcxxweVeHrf8KZVrgfDcHBRnf2Tvg
fHcHhu82WtvgfA+HnbOeX4qG8z0dyhu0VvQA+QBbWmNq
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.639101, 0.925688, 0.971463], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDlmBCpFN0ffsIXwNB7EVi7Tfwvk6Dp783ier
YmB8Awf28G1VX+F8IwfZqcf1HeB8E4f8xmaBHXD9Zg6T/SRSfeDyFg7mAer8
9XC+lcOVt6vzO+F8Gwfpmd1cf+H67RzcHAXe9cHlHRyWf5vjcQ/Od3SIO5fX
XAbnOzmczLjaLw3nOzvksEV9UIXzXRx6Lr9z2QXnuzp0PTvpkA7nuzmIxNsZ
5MP57g4q+rcrLOF8D4ffrOy6iPDwdLiys+XuNCAfAJzXWzU=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.585357, 0.8967528, 0.9580974], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDlK2qx5u6XpkD+FrOHjxBt0S64bxdRxs/e+H
ccH5Bg4FctckauF8I4cFZobXcuF8E4dflYd8/sDNM3O41dm15Dacb+FwRrZi
qSVcvZWD4qGGg0pwvo3D/A0r9wvA+XYOSQYM96zgfAeHP24+H3/AzXN0KFaw
aIuGyzs57P2RbmIO5zs7/D1nWmoC57s4MDH+nukB57s6dFdf/KYH57s5PF1R
ctYJznd3yNk5a0YqnO/hoI3iXk+Ha1D/AADNx2Km
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.531613, 0.8678176000000001, 0.9447318], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDqwBzZYTXz61h/A1HJbudipth/N1HBIkXvf3
wvkGDsa77KrfwPlGDjJT9bhewfkmDiwvn3rPhvPNHMoXP98+Dc63cLgVda3+
CJxv5ZCzyKxxOZxv47DkxikDgVcwvp2DRoqUzFG4vIODzbtU3vtwvqODodzJ
IyJw9U4O3yV/WR6Ayzs7rHCQDP0K57s4LN275FEqnO/q8Lfp55QpcL6bg3VI
0JGncL67w5Gz5a/uwPkeDidmBkQg/OvpIBn35bIm0H4AIxtuPA==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.4723912, 0.8128028, 0.9049796], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDh2rfn494/bSHsLXcHi5rOPebjhfx+GvH+8h
X3cY38ChqTA2SA/ON3Jg3x79zAjON3EI03i3TALON3OI9PF9qA3nWzikPRdM
FIHzrRyOuGtPRsjbODzREfiK0G/nsE5JWkkTzndwCPha7i0K5zs6XDvw92sZ
nO/k4Iliv7NDCdeBFAs438Uh6GDATiU439Xh2c+ZMxHmuTm0LjOVFoDz3R1E
b3G+CoPzPRyu5VizIPzv6TCFQS70CzC8AAs8WjA=
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.40769160000000004`, 0.7317084, 0.8388408], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDnuDGNfILXljD+FrOMzulxRPg/N1HKR8aj/Y
w/kGDpMj7j9YCucbORxe9P/QKjjfxOH6TcufWXC+mYOV7rzyAjjfwkFQ7MuH
PDjfykEpX/tLMpxv48AgMql5Apxv5yD1bIKlJZzv4JDl4vGvEM53dDi2RbMj
A853cnA5vvFAJpzv7NB0mYPRAs53cTDlZZaQgvNdHdLKeJXb4Hw3h4/KUbfz
4Xx3B3t9hqd+cL6Hw2xN3YR4ON/T4QHDmuveQD4An/tgWA==
            "]],
           FontSize->24]}}, {{}, {}}}, {{}, {{}, {}, 
         {RGBColor[0.342992, 0.650614, 0.772702], PointSize[
           NCache[
            Rational[7, 360], 0.019444444444444445`]], AbsoluteThickness[1.6],
           CapForm["Butt"], 
          StyleBox[LineBox[CompressedData["
1:eJxTTMoPSmViYGAQBWIQDQEqDuKHmY7uYfhgD+FrOLCduHzmHpyv43B5e8zu
u3C+gUNQ0rTzP+F8IwczN2nHa3C+iYO9/YvTV+F8M4c/XEINB+F8CweRgwvC
EeZbOfjP/XDtDZxv48BuHpp2BM63c+hdZlL8Fs53cCh8/yXlIZzv6GCJYr+T
w5LpskF/4XxnhyORIRuOwfkuDvNL8v1uwvmuDgbl+vq/4Xw3h2Vnvkrdh/Pd
HTgTze6/gPM9HJoqHcIQ6j0dHvA/bn8M5AMAvd5d3A==
            "]],
           FontSize->24]}}, {{}, {}}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{False, False},
      AxesLabel->{None, None},
      AxesOrigin->{9.166666666666668, -0.9993057982433253},
      BaseStyle->{FontSize -> 24},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{
        FormBox["\"Time (s)\"", TraditionalForm]},
      FrameStyle->Automatic,
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{{0}, {0}},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->400,
      LabelStyle->{FontFamily -> "Times"},
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotLabel->FormBox[
       "\"100 \\!\\(\\*TemplateBox[Association[\\\"boxes\\\" -> \
FormBox[SubscriptBox[StyleBox[\\\"b\\\", \\\"TI\\\"], \\\"2\\\"], \
TraditionalForm], \\\"errors\\\" -> {}, \\\"input\\\" -> \\\"b_2\\\", \
\\\"state\\\" -> \\\"Boxes\\\"],\\n\\\"TeXAssistantTemplate\\\"]\\)\"", 
        TraditionalForm],
      PlotRange->{-1.3, 1.3},
      PlotRangeClipping->True,
      PlotRangePadding->{{
         Scaled[0.02], 
         Scaled[0.02]}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.828107445021368*^9, {3.828107504442342*^9, 3.828107521008284*^9}, 
   3.828107572780501*^9, 3.828107670972536*^9, 3.8281082147831793`*^9, 
   3.8281088761895313`*^9, 3.828109094754986*^9, 3.8281092836324263`*^9, 
   3.828110391740872*^9, 3.8281104844719963`*^9, 3.8281105680595303`*^9, 
   3.8281106420384912`*^9, {3.8281106784353323`*^9, 3.828110682007883*^9}, 
   3.8281107341202803`*^9, {3.8281109204858093`*^9, 3.828110931112019*^9}, 
   3.828111531655851*^9},
 CellLabel->
  "Out[188]=",ExpressionUUID->"a99ee48d-4aaa-4d49-a4a3-eb7b42c9fbfb"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1180, 948},
WindowMargins->{{Automatic, 174}, {Automatic, 0}},
FrontEndVersion->"12.2 for Mac OS X x86 (64-bit) (December 12, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"1e00323c-8c6b-455f-8bcf-37279403a824"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 181, 3, 98, "Title",ExpressionUUID->"6c4d229e-9b28-434b-98d0-4ac2feec97ed"],
Cell[764, 27, 725, 14, 68, "Input",ExpressionUUID->"05763728-f6c5-4ede-9f24-9fae817503de",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[1526, 46, 313, 5, 98, "Title",ExpressionUUID->"6bda052d-3995-4c7d-a3f7-82dc21431621"],
Cell[CellGroupData[{
Cell[1864, 55, 161, 3, 69, "Chapter",ExpressionUUID->"a0707f31-6742-4c81-91d3-b9207f4e0850"],
Cell[2028, 60, 1803, 44, 304, "Input",ExpressionUUID->"55953178-9b1d-471a-b725-385cb9d01d37"],
Cell[3834, 106, 667, 14, 52, "Input",ExpressionUUID->"e2d11938-a1ba-4e63-a093-3dd1ecc121f8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4538, 125, 211, 4, 69, "Chapter",ExpressionUUID->"aa83c9d8-c43c-4e6a-8bc0-fe6d494712cf"],
Cell[4752, 131, 1877, 40, 136, "Input",ExpressionUUID->"f75a5fb0-864a-46bf-8f9c-ec10f26dcadf"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[6678, 177, 167, 3, 98, "Title",ExpressionUUID->"c6f21c0e-a550-4a01-8485-28468aafd902"],
Cell[6848, 182, 2111, 48, 320, "Input",ExpressionUUID->"1cd31e32-6f73-40b0-9cbd-d75a91c20604",
 InitializationCell->True],
Cell[CellGroupData[{
Cell[8984, 234, 169, 3, 67, "Section",ExpressionUUID->"125aa747-e921-4736-967c-d80e2dbd3a42"],
Cell[CellGroupData[{
Cell[9178, 241, 2376, 69, 222, "Input",ExpressionUUID->"f9e9cab3-c784-43e6-b7d7-2f9b7152cff4"],
Cell[11557, 312, 362, 8, 34, "Output",ExpressionUUID->"072c77dc-f31f-4505-a5b5-88637bce2a32"],
Cell[11922, 322, 359, 8, 34, "Output",ExpressionUUID->"c46ac126-6425-44bd-9a82-baf9c7f70737"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12318, 335, 5696, 149, 717, "Input",ExpressionUUID->"be994f1b-9be9-48d5-bb8d-4f87bef4994a"],
Cell[18017, 486, 70428, 1271, 605, "Output",ExpressionUUID->"2a036341-bfbc-4094-8418-7c8fb4f30403"]
}, Open  ]],
Cell[88460, 1760, 612, 15, 73, "Input",ExpressionUUID->"8144ff8a-6650-48e9-9d95-77730eb805e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[89109, 1780, 163, 3, 67, "Section",ExpressionUUID->"0ee6851c-875b-467f-a594-00ffe24a2630"],
Cell[89275, 1785, 831, 18, 94, "Input",ExpressionUUID->"41c26feb-a9e2-492d-ba83-51fe7f88a788"],
Cell[CellGroupData[{
Cell[90131, 1807, 1077, 25, 115, "Input",ExpressionUUID->"0215b4ca-7186-4858-827b-3e8417340314"],
Cell[91211, 1834, 1927, 32, 37, "Output",ExpressionUUID->"578565c8-e300-46e8-9ca7-e44571d9c507"],
Cell[93141, 1868, 1663, 26, 34, "Output",ExpressionUUID->"43dd6ed5-535b-43e1-8516-e7cf0c82f6e3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[94841, 1899, 1006, 26, 54, "Input",ExpressionUUID->"1eb623f4-d461-48a2-8ce2-13c34da7e21b"],
Cell[95850, 1927, 1484, 23, 34, "Output",ExpressionUUID->"12fe1ace-fdfd-4c97-91a5-5808314e7ff0"]
}, Open  ]],
Cell[97349, 1953, 1750, 42, 199, "Input",ExpressionUUID->"76c38316-0e94-4c2d-8a31-d996b99a14cc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[99136, 2000, 221, 4, 67, "Section",ExpressionUUID->"1647805f-e915-415c-a281-63d221f1c1cf"],
Cell[99360, 2006, 1456, 30, 94, "Input",ExpressionUUID->"e3b311de-f7f2-4682-a265-0fd94b9d46ce"],
Cell[CellGroupData[{
Cell[100841, 2040, 7433, 180, 816, "Input",ExpressionUUID->"15df02c8-3928-48b9-a103-c0fd14ba679a"],
Cell[108277, 2222, 67369, 1190, 305, "Output",ExpressionUUID->"c71180ed-6c69-4015-ab20-7dbd4dceeff8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[175683, 3417, 1250, 34, 157, "Input",ExpressionUUID->"48e171cf-ddfb-48b3-a3db-003a79c25c6d"],
Cell[176936, 3453, 232, 4, 34, "Output",ExpressionUUID->"3b7acc66-e877-4271-b40b-4ac16419869f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[177217, 3463, 170, 3, 67, "Section",ExpressionUUID->"33707b1c-3f0d-4d54-adb1-371cfd706449"],
Cell[CellGroupData[{
Cell[177412, 3470, 8728, 225, 921, "Input",ExpressionUUID->"4dcc315f-fd35-4af7-97d6-6aa8602e12d0"],
Cell[186143, 3697, 93236, 1617, 317, "Output",ExpressionUUID->"8b4dbe33-8bf5-4bae-bd5b-f9c5ba4bc03d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[279416, 5319, 1221, 33, 157, "Input",ExpressionUUID->"1fc0dba8-2a3c-45f7-8ce4-edfdda7ba52f"],
Cell[280640, 5354, 253, 4, 34, "Output",ExpressionUUID->"c6f56ccf-ddc0-4945-ae37-f8d813f6dab8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[280942, 5364, 151, 3, 67, "Section",ExpressionUUID->"ee24e686-9030-46d1-805f-3e3c74f3f542"],
Cell[CellGroupData[{
Cell[281118, 5371, 745, 18, 30, "Input",ExpressionUUID->"ad5df1ed-1bdf-442e-97b3-0194c89888f0"],
Cell[281866, 5391, 10618, 230, 189, "Output",ExpressionUUID->"c46053d1-9c31-4972-a894-8d9404798598"]
}, Open  ]],
Cell[CellGroupData[{
Cell[292521, 5626, 387, 9, 52, "Input",ExpressionUUID->"04d01796-4115-4dcf-b06a-b373a12bdc4f"],
Cell[292911, 5637, 227, 4, 34, "Output",ExpressionUUID->"d3865317-b4f8-4b8c-97c9-19ee9547563b"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[293199, 5648, 165, 3, 98, "Title",ExpressionUUID->"452a89f5-b1ce-44b5-98e1-267d103096ce"],
Cell[CellGroupData[{
Cell[293389, 5655, 708, 20, 73, "Input",ExpressionUUID->"98182347-ef2c-42e6-9fb9-ff023049c5ff"],
Cell[294100, 5677, 747, 15, 34, "Output",ExpressionUUID->"90d2cc39-8f9a-438d-8556-4eac3913cc88"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[294896, 5698, 272, 4, 98, "Title",ExpressionUUID->"5b2f86dc-8908-4d59-ba29-a4e29e381f3c"],
Cell[CellGroupData[{
Cell[295193, 5706, 202, 4, 69, "Chapter",ExpressionUUID->"a17943ef-0506-4075-b9cc-039c60827f0f"],
Cell[295398, 5712, 2160, 45, 257, "Input",ExpressionUUID->"ebc22556-38c3-4360-9a25-0b3bc7e82023",
 InitializationCell->True],
Cell[297561, 5759, 4420, 98, 488, "Input",ExpressionUUID->"e94e5721-01c6-4f71-9020-6014ef39c86d",
 InitializationCell->True],
Cell[301984, 5859, 3035, 70, 299, "Input",ExpressionUUID->"4c06e99e-84ad-4e02-9264-924ccb8e9591",
 InitializationCell->True]
}, Open  ]],
Cell[CellGroupData[{
Cell[305056, 5934, 148, 3, 69, "Chapter",ExpressionUUID->"530af25e-34eb-4591-9e8b-f0cc28b6bffa"],
Cell[305207, 5939, 5312, 93, 262, "Input",ExpressionUUID->"4fa10a0a-264a-4834-aeea-661699ac3f9c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[310568, 6038, 164, 3, 98, "Title",ExpressionUUID->"752ea693-0c23-43d8-996f-1eecdb97e942"],
Cell[CellGroupData[{
Cell[310757, 6045, 156, 3, 69, "Chapter",ExpressionUUID->"5c6291e5-7e75-4b31-a56d-404452f50e09"],
Cell[310916, 6050, 1286, 31, 157, "Input",ExpressionUUID->"355d51c9-fe2b-4e06-9032-9a11d9ad0463"],
Cell[312205, 6083, 2523, 54, 283, "Input",ExpressionUUID->"d413ae26-aa45-4c53-8cdf-a5faaf399315"]
}, Open  ]],
Cell[CellGroupData[{
Cell[314765, 6142, 150, 3, 69, "Chapter",ExpressionUUID->"61490640-1c95-4df2-b0de-1dfac46c00aa"],
Cell[CellGroupData[{
Cell[314940, 6149, 927, 24, 73, "Input",ExpressionUUID->"7767cee3-f2fc-465a-9d2e-addd13f0806e"],
Cell[315870, 6175, 36855, 978, 34, "Output",ExpressionUUID->"c0c83de4-5efd-458a-aae4-cb35e157fc66"]
}, Open  ]],
Cell[CellGroupData[{
Cell[352762, 7158, 784, 22, 30, "Input",ExpressionUUID->"b6d6b6b5-da1f-4049-a374-82f6cf568aae"],
Cell[353549, 7182, 1025, 16, 34, "Output",ExpressionUUID->"4e6b2a93-2604-4285-862c-af1f7f1201c4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[354611, 7203, 4285, 103, 516, "Input",ExpressionUUID->"20b15ab5-f161-41bf-91bf-a565a2ee6575"],
Cell[358899, 7308, 72517, 1515, 325, "Output",ExpressionUUID->"a99ee48d-4aaa-4d49-a4a3-eb7b42c9fbfb"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)