TrajectoryMonteCarlo_DetuningScan.nb

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

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

(* CreatedBy='Mathematica 12.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    208623,       3892]
NotebookOptionsPosition[    205656,       3838]
NotebookOutlinePosition[    206032,       3854]
CellTagsIndexPosition[    205989,       3851]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Off", "[", 
  RowBox[{"General", "::", "munfl"}], "]"}]], "Input",
 CellChangeTimes->{{3.7782469813079433`*^9, 3.7782469827193623`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"acf3f024-06f7-4b67-aa47-b28ae5a429d7"],

Cell[CellGroupData[{

Cell["Load force profiles, and set parameters and conversions", \
"Subsubsection",
 CellChangeTimes->{{3.7701329614446096`*^9, 3.7701329832348557`*^9}, {
   3.774612466089605*^9, 3.7746124720577526`*^9}, {3.7746226304517884`*^9, 
   3.774622638368577*^9}, {3.7746226690289564`*^9, 3.7746226695757027`*^9}, 
   3.776165628366666*^9, {3.801264123339542*^9, 3.8012641333422537`*^9}, {
   3.801275305033741*^9, 
   3.8012753227224874`*^9}},ExpressionUUID->"5aaf2c87-6956-45b5-ba7b-\
95459d133cb4"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
   "fname32", "=", 
    "\"\<C:/Users/Christian/Desktop/CaOCH3Data/uploaded_files/ptsJ32Jp12_\
DetuningScan.csv\>\""}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "file", " ", "path", " ", "for", " ", "force", " ", "profiles", " ", 
    "must", " ", "be", " ", "changed", " ", "accordingly"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"isat", "=", 
    RowBox[{
     RowBox[{"Quantity", "[", 
      RowBox[{"2.4", ",", 
       RowBox[{"\"\<Milliwatts\>\"", "/", 
        SuperscriptBox["\"\<Centimeters\>\"", "2"]}]}], "]"}], "*", "1.2"}]}],
    ";"}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{
     "simple", " ", "rate", " ", "analysis", " ", "suggests", " ", "a", " ", 
      "correction", " ", "factor", " ", "2", 
      RowBox[{"ng", "/", 
       RowBox[{"(", 
        RowBox[{"ne", "+", "ng"}], ")"}]}]}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"3", "/", "2"}], " ", "due", " ", "to", " ", "multi"}], "-", 
      RowBox[{"level", " ", "structure"}]}]}], ";", " ", 
    RowBox[{
    "we", " ", "here", " ", "find", " ", "1.2", " ", "appropriate"}]}], 
   "*)"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"mCaOCH3", "=", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       TemplateBox[{"\"calcium\"",RowBox[{"Entity", "[", 
           RowBox[{"\"Element\"", ",", "\"Calcium\""}], "]"}],
         "\"Entity[\\\"Element\\\", \\\"Calcium\\\"]\"","\"element\""},
        "Entity"], "[", 
       TemplateBox[{"\"atomic mass\"",RowBox[{"EntityProperty", "[", 
           RowBox[{"\"Element\"", ",", "\"AtomicMass\""}], "]"}],
         "\"EntityProperty[\\\"Element\\\", \\\"AtomicMass\\\"]\""},
        "EntityProperty"], "]"}], " ", "+", " ", 
      RowBox[{
       TemplateBox[{"\"oxygen\"",RowBox[{"Entity", "[", 
           RowBox[{"\"Element\"", ",", "\"Oxygen\""}], "]"}],
         "\"Entity[\\\"Element\\\", \\\"Oxygen\\\"]\"","\"element\""},
        "Entity"], "[", 
       TemplateBox[{"\"atomic mass\"",RowBox[{"EntityProperty", "[", 
           RowBox[{"\"Element\"", ",", "\"AtomicMass\""}], "]"}],
         "\"EntityProperty[\\\"Element\\\", \\\"AtomicMass\\\"]\""},
        "EntityProperty"], "]"}], " ", "+", " ", 
      RowBox[{
       TemplateBox[{"\"carbon\"",RowBox[{"Entity", "[", 
           RowBox[{"\"Element\"", ",", "\"Carbon\""}], "]"}],
         "\"Entity[\\\"Element\\\", \\\"Carbon\\\"]\"","\"element\""},
        "Entity"], "[", 
       TemplateBox[{"\"atomic mass\"",RowBox[{"EntityProperty", "[", 
           RowBox[{"\"Element\"", ",", "\"AtomicMass\""}], "]"}],
         "\"EntityProperty[\\\"Element\\\", \\\"AtomicMass\\\"]\""},
        "EntityProperty"], "]"}], "+", 
      RowBox[{"3", 
       RowBox[{
        TemplateBox[{"\"hydrogen\"",RowBox[{"Entity", "[", 
            RowBox[{"\"Element\"", ",", "\"Hydrogen\""}], "]"}],
          "\"Entity[\\\"Element\\\", \\\"Hydrogen\\\"]\"","\"element\""},
         "Entity"], "[", 
        TemplateBox[{"\"atomic mass\"",RowBox[{"EntityProperty", "[", 
            RowBox[{"\"Element\"", ",", "\"AtomicMass\""}], "]"}],
          "\"EntityProperty[\\\"Element\\\", \\\"AtomicMass\\\"]\""},
         "EntityProperty"], "]"}]}]}], ")"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"mass", " ", "of", " ", "molecule"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tdecay", "=", 
   TemplateBox[{"35","\"ns\"","nanoseconds","\"Nanoseconds\""},
    "Quantity"]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vrecoil", "=", 
   RowBox[{"QuantityMagnitude", "@", 
    RowBox[{"UnitConvert", "[", 
     RowBox[{
      FractionBox[
       TemplateBox[{
        InterpretationBox["\[InvisibleSpace]", 1],StyleBox[
         "\"h\"", Italic, StripOnInput -> False],"Planck constants",
         "\"PlanckConstant\""},
        "Quantity"], "\[Lambda]"], "/", "mCaOCH3"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ftoa", "=", 
    RowBox[{"QuantityMagnitude", "@", 
     RowBox[{"UnitConvert", "@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          
          TemplateBox[{
           InterpretationBox["\[InvisibleSpace]", 1],"\"\[HBar]\"",
            "reduced Planck constants","\"ReducedPlanckConstant\""},
           "Quantity"], 
          RowBox[{"(", 
           FractionBox[
            RowBox[{"2", "\[Pi]"}], "\[Lambda]"], ")"}], 
          RowBox[{"(", 
           FractionBox["1", "tdecay"], ")"}]}], ")"}], "/", "mCaOCH3"}], 
       ")"}]}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"conversion", " ", "between", " ", "force", " ", "and", " ", 
    RowBox[{"acceleration", ":", " ", 
     RowBox[{"m", "/", 
      RowBox[{"s", "^", "2"}]}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rtor", "=", 
    RowBox[{"QuantityMagnitude", "@", 
     RowBox[{"UnitConvert", "@", 
      RowBox[{"(", 
       FractionBox["1", "tdecay"], ")"}]}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"factor", " ", "for", " ", "scattering", " ", 
    RowBox[{"rate", ":", " ", "MHz"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"vtov", "=", 
    RowBox[{"QuantityMagnitude", "@", 
     RowBox[{"UnitConvert", "@", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"(", 
          FractionBox["1", "tdecay"], ")"}], ")"}], "/", 
        RowBox[{"(", 
         FractionBox[
          RowBox[{"2", "\[Pi]"}], "\[Lambda]"], ")"}]}], ")"}]}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"factor", " ", "for", " ", 
    RowBox[{"velocity", ":", " ", 
     RowBox[{"m", "/", "s"}]}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Beta]toB", "=", 
    RowBox[{"QuantityMagnitude", "@", 
     RowBox[{"(", 
      RowBox[{"UnitConvert", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          
          TemplateBox[{
           InterpretationBox["\[InvisibleSpace]", 1],"\"\[HBar]\"",
            "reduced Planck constants","\"ReducedPlanckConstant\""},
           "Quantity"], 
          RowBox[{
           RowBox[{"(", 
            FractionBox["1", "tdecay"], ")"}], "/", 
           
           TemplateBox[{
            InterpretationBox["\[InvisibleSpace]", 1],SubscriptBox[
             "\"\[Mu]\"", "\"B\""],"Bohr magnetons","\"BohrMagneton\""},
            "Quantity"]}]}], ")"}], ",", "\"\<Gauss\>\""}], "]"}], ")"}]}]}], 
   ";"}], 
  RowBox[{"(*", 
   RowBox[{"factor", " ", "for", " ", "B", " ", 
    RowBox[{"field", ":", " ", 
     RowBox[{"m", "/", "s"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"cooling", " ", "beam", " ", "parameters"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Lambda]", "=", 
    RowBox[{"Quantity", "[", 
     RowBox[{"629.483", ",", "\"\<Nanometers\>\""}], "]"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"wavelength", " ", "of", " ", "cooling", " ", "light"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dFWHM", "=", 
    RowBox[{"0.001", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"3.14", "+", "3.63"}], ")"}], "/", "2"}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{
   "FWHM", " ", "diameter", " ", "of", " ", "cooling", " ", "beam", " ", 
    RowBox[{"(", "mm", ")"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"waist", "=", 
   RowBox[{"dFWHM", "/", 
    SqrtBox[
     RowBox[{"2", 
      RowBox[{"Log", "[", "2", "]"}]}]]}]}], 
  RowBox[{"(*", 
   RowBox[{"waist", " ", "of", " ", "cooling", " ", "beam"}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "@", "intensity"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"intensity", "[", 
   RowBox[{"x_", ",", "y_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "2"}], 
     FractionBox[
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"]}], 
      SuperscriptBox["waist", "2"]]}], "]"}], "/", 
   RowBox[{"QuantityMagnitude", "[", "isat", "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.7761641907194366`*^9, 3.776164336741789*^9}, {
   3.7761653506587815`*^9, 3.7761653509707994`*^9}, {3.776165733958705*^9, 
   3.7761657855236545`*^9}, {3.7761660864288654`*^9, 3.776166096684452*^9}, {
   3.776166176176998*^9, 3.77616619823426*^9}, {3.776174190264378*^9, 
   3.776174356548889*^9}, {3.7761749521009526`*^9, 3.7761750385358963`*^9}, 
   3.7761751157303114`*^9, {3.7761754140093727`*^9, 3.7761755970208397`*^9}, {
   3.776175670767058*^9, 3.7761756742042546`*^9}, {3.776175798734377*^9, 
   3.7761758140042505`*^9}, {3.776175876496825*^9, 3.7761758797370105`*^9}, {
   3.776176225567791*^9, 3.776176247109023*^9}, {3.7761768649443607`*^9, 
   3.7761768726027994`*^9}, {3.7761787953527737`*^9, 3.7761787957998*^9}, 
   3.776179610088374*^9, 3.7761806957084684`*^9, {3.776181246312961*^9, 
   3.7761812481040635`*^9}, 3.77618714732848*^9, {3.7764500386062393`*^9, 
   3.776450043356511*^9}, {3.776453015047804*^9, 3.776453022894278*^9}, {
   3.776454290742094*^9, 3.776454291145746*^9}, {3.776512178631446*^9, 
   3.776512185775854*^9}, 3.7766090396807213`*^9, {3.7766108388396273`*^9, 
   3.7766108499922657`*^9}, 3.776611073420045*^9, 3.7766114070521274`*^9, {
   3.7766836914685593`*^9, 3.7766836917675767`*^9}, 3.7767639944156256`*^9, {
   3.7767641554678373`*^9, 3.776764156185878*^9}, 3.776771637345776*^9, {
   3.776782201463009*^9, 3.7767822197990575`*^9}, {3.776877846739606*^9, 
   3.776877846969619*^9}, {3.777021676241183*^9, 3.777021700023543*^9}, {
   3.7770217330344315`*^9, 3.777021762022089*^9}, {3.777022084594539*^9, 
   3.7770220859286156`*^9}, {3.7770222056024604`*^9, 
   3.7770222220113993`*^9}, {3.7770223350208626`*^9, 3.777022343628355*^9}, {
   3.777040229651377*^9, 3.777040270580718*^9}, {3.7771120748355474`*^9, 
   3.7771120752125688`*^9}, {3.777114031708474*^9, 3.7771140323655114`*^9}, {
   3.777124490246668*^9, 3.777124501578316*^9}, {3.77712482072057*^9, 
   3.7771248231207075`*^9}, 3.7772255723639936`*^9, {3.777225606641954*^9, 
   3.777225607937028*^9}, {3.7772264347433186`*^9, 3.777226485770237*^9}, {
   3.77737137364135*^9, 3.777371374136378*^9}, {3.777371871087802*^9, 
   3.7773718712168093`*^9}, {3.777372961831189*^9, 3.777372972679809*^9}, {
   3.7773735919552298`*^9, 3.7773736257271614`*^9}, {3.7773748914325557`*^9, 
   3.7773748935846786`*^9}, {3.7773765409949055`*^9, 3.7773765411869164`*^9}, 
   3.7773771379900513`*^9, {3.777377524087135*^9, 3.77737752418114*^9}, {
   3.77737832213278*^9, 3.777378323507859*^9}, 3.777378430727992*^9, {
   3.7773891257443*^9, 3.777389126039317*^9}, {3.7774610138511925`*^9, 
   3.777461020172554*^9}, {3.777677252838169*^9, 3.7776772531451864`*^9}, {
   3.778234441374858*^9, 3.778234480074332*^9}, {3.778234713548769*^9, 
   3.778234713812348*^9}, {3.778236292510146*^9, 3.778236324139155*^9}, {
   3.778248551681801*^9, 3.7782485597932653`*^9}, {3.778322789810979*^9, 
   3.778322790842038*^9}, 3.778322934753269*^9, {3.7784319254458*^9, 
   3.778431926013832*^9}, {3.7785050069928246`*^9, 3.778505095327877*^9}, {
   3.778505510204607*^9, 3.778505514157833*^9}, {3.7785056264672565`*^9, 
   3.778505627617323*^9}, {3.77850634806553*^9, 3.7785063761651373`*^9}, {
   3.7785068683292875`*^9, 3.7785068685483*^9}, {3.778508125528632*^9, 
   3.7785081344707017`*^9}, 3.7785089685196924`*^9, {3.778512730933878*^9, 
   3.778512732057865*^9}, 3.7785128451581945`*^9, {3.7785133717459326`*^9, 
   3.778513380488564*^9}, {3.7785135038623714`*^9, 3.7785135039511585`*^9}, {
   3.778513882983816*^9, 3.778513883052623*^9}, {3.7785139881792965`*^9, 
   3.778513989040989*^9}, {3.778580089267271*^9, 3.778580090294496*^9}, {
   3.778580193523275*^9, 3.778580198619627*^9}, {3.778580694010886*^9, 
   3.7785807067567725`*^9}, {3.778580977257877*^9, 3.7785809776647873`*^9}, {
   3.7785816253504715`*^9, 3.778581634876973*^9}, {3.7785818348308673`*^9, 
   3.778581834964508*^9}, {3.778582084632372*^9, 3.778582085116069*^9}, {
   3.7785839806908946`*^9, 3.7785839807437525`*^9}, {3.778584629331064*^9, 
   3.7785846330919995`*^9}, {3.77858620480285*^9, 3.778586204882641*^9}, {
   3.7785865438305635`*^9, 3.778586546577207*^9}, {3.778587063774083*^9, 
   3.778587079307542*^9}, {3.7943917315833445`*^9, 3.7943917462031775`*^9}, {
   3.7943993787477093`*^9, 3.79439940508922*^9}, {3.79439974047785*^9, 
   3.7943999102117624`*^9}, {3.7944000427045436`*^9, 3.794400069928785*^9}, {
   3.794400181990406*^9, 3.7944002039072456`*^9}, {3.7944003153392944`*^9, 
   3.7944003177707515`*^9}, {3.7944014839194455`*^9, 3.794401484215206*^9}, {
   3.7944030500942745`*^9, 3.7944030610929365`*^9}, {3.7944034255038767`*^9, 
   3.794403427639406*^9}, {3.7944036365259123`*^9, 3.7944036665855007`*^9}, {
   3.794413638482148*^9, 3.7944136399484124`*^9}, {3.794413711472114*^9, 
   3.7944137115628767`*^9}, {3.7944240465321627`*^9, 
   3.7944240531391163`*^9}, {3.7944289146814613`*^9, 
   3.7944289152098975`*^9}, {3.7944303389501343`*^9, 3.794430367759261*^9}, {
   3.7944355785451837`*^9, 3.794435604134654*^9}, {3.794440519009368*^9, 
   3.794440519526306*^9}, {3.7944405792578974`*^9, 3.7944405806060176`*^9}, {
   3.794440613511942*^9, 3.7944406136195626`*^9}, {3.7944415129220657`*^9, 
   3.7944415133168836`*^9}, {3.7944415450847225`*^9, 3.794441545232836*^9}, {
   3.794441630642764*^9, 3.7944416814348936`*^9}, {3.7944542963291955`*^9, 
   3.79445429639754*^9}, {3.794454591663227*^9, 3.7944545933616095`*^9}, {
   3.79445465437789*^9, 3.794454660437259*^9}, {3.7944556738825035`*^9, 
   3.7944556743542356`*^9}, {3.7944557208102355`*^9, 
   3.7944557211461773`*^9}, {3.7944557522253675`*^9, 
   3.7944557524654446`*^9}, {3.794455788580146*^9, 3.7944557891071796`*^9}, {
   3.794484261132514*^9, 3.794484261651701*^9}, {3.7944842976101856`*^9, 
   3.7944842977658577`*^9}, {3.7946054360981073`*^9, 
   3.7946054371171503`*^9}, {3.7946140583265257`*^9, 
   3.7946140644404287`*^9}, {3.7946181393658533`*^9, 3.794618141151183*^9}, 
   3.794655578350626*^9, {3.7946777806380777`*^9, 3.794677782018899*^9}, {
   3.7946780498786383`*^9, 3.794678050098687*^9}, {3.7947574879710608`*^9, 
   3.794757490437614*^9}, {3.794759610323228*^9, 3.7947596608794155`*^9}, {
   3.794775820754927*^9, 3.7947758294865265`*^9}, {3.7947759351731215`*^9, 
   3.7947759354891944`*^9}, {3.7947936440156813`*^9, 
   3.7947936500202117`*^9}, {3.7947975354674206`*^9, 3.794797536631342*^9}, {
   3.7947994308070927`*^9, 3.7947994325905094`*^9}, {3.7947994634169645`*^9, 
   3.794799467079652*^9}, {3.7948262468383207`*^9, 3.7948262484526834`*^9}, {
   3.7948264564614005`*^9, 3.794826460757368*^9}, {3.7948265945110607`*^9, 
   3.794826596095416*^9}, {3.7948358694855704`*^9, 3.794835872614273*^9}, {
   3.8012611162574234`*^9, 3.801261122825426*^9}, {3.801266892436345*^9, 
   3.8012669125845547`*^9}, {3.8012669477628183`*^9, 
   3.8012669493186655`*^9}, {3.8012671428375564`*^9, 
   3.8012671511164303`*^9}, {3.8012734036885853`*^9, 3.801273423059538*^9}, {
   3.801275191535077*^9, 3.801275225064637*^9}, {3.8012753113665752`*^9, 
   3.801275312173647*^9}, {3.80127746279447*^9, 3.8012774677496223`*^9}, {
   3.8012775148166676`*^9, 3.8012775157468753`*^9}, {3.801354980092315*^9, 
   3.8013549845919433`*^9}, 3.8013554408241215`*^9, {3.8014817866955547`*^9, 
   3.801481786951611*^9}, {3.80155691072915*^9, 3.8015569158790207`*^9}, {
   3.80155703681548*^9, 3.801557053096414*^9}, {3.801557230575369*^9, 
   3.801557258170372*^9}, {3.8018351988553405`*^9, 3.801835199228504*^9}, {
   3.801835251831071*^9, 3.801835253448409*^9}, {3.8018352993836184`*^9, 
   3.801835304281185*^9}, {3.8018435263363857`*^9, 3.801843527311673*^9}, {
   3.801843562268626*^9, 3.801843567225281*^9}, {3.8018604761108923`*^9, 
   3.8018605009090157`*^9}, {3.8018636503801975`*^9, 
   3.8018636924791365`*^9}, {3.801881478763352*^9, 3.8018814914698844`*^9}, {
   3.8018815346716337`*^9, 3.8018815372902107`*^9}, {3.8018816193803368`*^9, 
   3.801881631221342*^9}, {3.801881663856637*^9, 3.8018816826883764`*^9}, {
   3.801884502031747*^9, 3.8018845085764575`*^9}, {3.801885527116788*^9, 
   3.801885549893566*^9}, {3.801885591498884*^9, 3.801885609367434*^9}, {
   3.801886811254795*^9, 3.8018868266043053`*^9}, {3.8018871939628544`*^9, 
   3.80188720622418*^9}, {3.8018874912602634`*^9, 3.801887513696555*^9}, 
   3.8019126044408255`*^9, 3.8019126401020937`*^9, {3.801913703780259*^9, 
   3.8019137131538625`*^9}, {3.801914533535617*^9, 3.8019145465748844`*^9}, {
   3.801917715734974*^9, 3.8019177240653973`*^9}, {3.801918918158475*^9, 
   3.801918928524885*^9}, {3.8019189640064726`*^9, 3.80191896722381*^9}, {
   3.801919447247379*^9, 3.80191945816234*^9}, {3.80191967823343*^9, 
   3.8019196784274735`*^9}, {3.801919988170961*^9, 3.8019199882729845`*^9}, {
   3.801920080560355*^9, 3.801920080632371*^9}, {3.801920161054385*^9, 
   3.8019201630568333`*^9}, {3.80192058888855*^9, 3.801920588971072*^9}, {
   3.8019206919477973`*^9, 3.801920692909019*^9}, {3.801920855965064*^9, 
   3.8019208563286486`*^9}, {3.8019210370980864`*^9, 
   3.8019210372391176`*^9}, {3.8019214132849493`*^9, 3.801921419886386*^9}, 
   3.801921754357629*^9, 3.801921789960856*^9, {3.8019230402960997`*^9, 
   3.8019230460870066`*^9}, {3.801923687451543*^9, 3.8019237274919777`*^9}, {
   3.80192500696103*^9, 3.8019250193164663`*^9}, {3.8019251638999324`*^9, 
   3.8019251799082904`*^9}, {3.8019255208239965`*^9, 3.801925521139083*^9}, {
   3.8019256044624834`*^9, 3.8019256047814846`*^9}, 3.8019266520627556`*^9, {
   3.8019270021560082`*^9, 3.8019270088705397`*^9}, {3.80192810113472*^9, 
   3.801928105640748*^9}, {3.8019287570098066`*^9, 3.801928757096821*^9}, {
   3.8019287875099907`*^9, 3.80192879357106*^9}, {3.801929429615091*^9, 
   3.801929448310198*^9}, {3.801931321865648*^9, 3.8019313219472027`*^9}, {
   3.8019313699247885`*^9, 3.801931375989208*^9}, {3.8019314696501055`*^9, 
   3.8019314782739744`*^9}, {3.8019318193200593`*^9, 
   3.8019318490900807`*^9}, {3.801932472348931*^9, 3.8019324881582108`*^9}, {
   3.8019333927410126`*^9, 3.8019334579708796`*^9}, {3.8019341414483085`*^9, 
   3.8019341490697937`*^9}, {3.801934971747822*^9, 3.801934977863535*^9}, {
   3.8019350587902174`*^9, 3.8019350635305753`*^9}, {3.8019357693104725`*^9, 
   3.801935775399001*^9}, {3.8019361835221834`*^9, 3.8019362099822445`*^9}, {
   3.801938240069064*^9, 3.801938256336527*^9}, {3.801939291495164*^9, 
   3.8019393098834767`*^9}, {3.8019441450109024`*^9, 3.801944169672052*^9}, {
   3.8019446316809015`*^9, 3.8019446317390504`*^9}, {3.8019446855227337`*^9, 
   3.801944708947871*^9}, {3.801944898392271*^9, 3.801944957787821*^9}, {
   3.80194556260907*^9, 3.801945580814294*^9}, {3.8020237728458967`*^9, 
   3.8020238267919226`*^9}, {3.8020250819067717`*^9, 3.802025138044566*^9}, {
   3.8020251828445807`*^9, 3.8020252422776127`*^9}, {3.8020338864454813`*^9, 
   3.802033899292673*^9}, {3.8020340446779575`*^9, 3.8020340450990767`*^9}, {
   3.8020376917131567`*^9, 3.8020376986523886`*^9}, {3.802045550041193*^9, 
   3.8020455799706388`*^9}, {3.8020472326531725`*^9, 
   3.8020472365484123`*^9}, {3.80205583765518*^9, 3.8020558654649405`*^9}, {
   3.802192966157908*^9, 3.802193015278722*^9}, {3.802284200016081*^9, 
   3.802284203163167*^9}, {3.802286297496386*^9, 3.802286302325402*^9}, {
   3.8023075309357986`*^9, 3.8023075371552486`*^9}, {3.802439986721073*^9, 
   3.8024399924906583`*^9}, {3.8024604615931597`*^9, 3.802460462602696*^9}, {
   3.8024606886005917`*^9, 3.802460693720007*^9}, {3.8025241997037287`*^9, 
   3.8025242010632315`*^9}, {3.802601041649931*^9, 3.802601041835507*^9}, 
   3.8026022235362706`*^9, {3.8029665316506553`*^9, 3.8029665521514*^9}, 
   3.8029708884425173`*^9, {3.8029729099896936`*^9, 3.8029729114660296`*^9}, {
   3.8029799037006073`*^9, 3.8029799101612024`*^9}, {3.802981706395821*^9, 
   3.802981708037957*^9}, {3.802984167405116*^9, 3.8029841705401955`*^9}, {
   3.8029844858643*^9, 3.802984488527766*^9}, {3.8029852443625526`*^9, 
   3.8029852459628906`*^9}, 3.802985502581078*^9, {3.8029874407260776`*^9, 
   3.802987440814825*^9}, {3.8029875606705155`*^9, 3.8029876249280014`*^9}, 
   3.8029923468356586`*^9, {3.8029991465710597`*^9, 3.8029991568263674`*^9}, {
   3.803002843112645*^9, 3.8030028432952547`*^9}, 3.8030641141766253`*^9, {
   3.803082692456439*^9, 3.8030827081777987`*^9}, {3.8031220745175586`*^9, 
   3.803122077241346*^9}, {3.80314259386303*^9, 3.8031425982955956`*^9}, 
   3.803150262155367*^9, 
   3.8033056168689795`*^9},ExpressionUUID->"7824fddb-3943-46b5-acd8-\
799c34acddf8"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Load force data", "Subsection",
 CellChangeTimes->{{3.7701329614446096`*^9, 3.7701329832348557`*^9}, {
  3.774612466089605*^9, 3.7746124720577526`*^9}, {3.7746226304517884`*^9, 
  3.774622638368577*^9}, {3.7746226690289564`*^9, 3.7746226695757027`*^9}, {
  3.776165362372452*^9, 3.776165368372795*^9}, {3.8012614284506035`*^9, 
  3.80126143387082*^9}},ExpressionUUID->"c541093d-3069-439e-a54a-\
d38289364e3b"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"rawdata", "=", 
   RowBox[{"Import", "[", 
    RowBox[{"fname32", ",", "\"\<CSV\>\"", ",", 
     RowBox[{"HeaderLines", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"indices", " ", "=", " ", 
   RowBox[{"DeleteCases", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"rawdata", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", 
             RowBox[{"1", ";;", "4"}]}], "]"}], "]"}], "!=", 
          RowBox[{"rawdata", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "+", "1"}], ",", 
             RowBox[{"1", ";;", "4"}]}], "]"}], "]"}]}], ",", "i", ",", 
         "None"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{
          RowBox[{"Length", "@", "rawdata"}], "-", "1"}]}], "}"}]}], "]"}], 
     ",", "\[IndentingNewLine]", "None"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Append", "[", 
    RowBox[{
     RowBox[{"rawdata", "[", 
      RowBox[{"[", "indices", "]"}], "]"}], ",", 
     RowBox[{"rawdata", "[", 
      RowBox[{"[", 
       RowBox[{"-", "1"}], "]"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", " ", "=", " ", 
   RowBox[{"Select", "[", 
    RowBox[{"data", ",", 
     RowBox[{
      RowBox[{
       RowBox[{"#", "[", 
        RowBox[{"[", "4", "]"}], "]"}], "\[NotEqual]", "0"}], "&"}]}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Join", "[", 
    RowBox[{"data", ",", 
     RowBox[{"(", 
      RowBox[{"data", "/.", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "a_", ",", "b_", ",", "c_", ",", "d_", ",", "e_", ",", "f_"}], "}"}],
         "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"a", ",", "b", ",", "c", ",", 
          RowBox[{"-", "d"}], ",", 
          RowBox[{"-", "e"}], ",", "f"}], "}"}]}]}], ")"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Bs", "=", 
   RowBox[{"\[Beta]toB", " ", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "1"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s0s", "=", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", "2"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalDelta]s", "=", 
   RowBox[{"data", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", "3"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"vs", "=", 
   RowBox[{"vtov", " ", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "4"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"as", "=", 
   RowBox[{"ftoa", " ", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "5"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rs", "=", 
   RowBox[{"rtor", " ", 
    RowBox[{"data", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "6"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ainterp32", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Interpolation", "[", 
      RowBox[{"#", ",", 
       RowBox[{"InterpolationOrder", "\[Rule]", "1"}], ",", 
       RowBox[{"\"\<ExtrapolationHandler\>\"", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"0.0", "&"}], ")"}], ",", 
          RowBox[{"\"\<WarningMessage\>\"", "\[Rule]", "False"}]}], "}"}]}]}],
       "]"}], "&"}], "@", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Bs", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"s0s", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"\[CapitalDelta]s", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"vs", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"as", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "@", "data"}]}], "}"}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rinterp32", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Interpolation", "[", 
      RowBox[{"#", ",", 
       RowBox[{"InterpolationOrder", "\[Rule]", "1"}], ",", 
       RowBox[{"\"\<ExtrapolationHandler\>\"", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"0.0", "&"}], ")"}], ",", 
          RowBox[{"\"\<WarningMessage\>\"", "\[Rule]", "False"}]}], "}"}]}]}],
       "]"}], "&"}], "@", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Bs", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"s0s", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"\[CapitalDelta]s", "[", 
           RowBox[{"[", "i", "]"}], "]"}], ",", 
          RowBox[{"vs", "[", 
           RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"rs", "[", 
         RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", 
        RowBox[{"Length", "@", "data"}]}], "}"}]}], "]"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.778505649547577*^9, 3.778505653284791*^9}, {
   3.7785063666755943`*^9, 3.7785063691387353`*^9}, 3.7947758423822217`*^9, 
   3.7948263883006372`*^9, {3.8019197966919465`*^9, 3.801919800500352*^9}, {
   3.8020252504946136`*^9, 3.8020252515925426`*^9}, {3.803091642178816*^9, 
   3.803091642327849*^9}, {3.803091700347459*^9, 3.8030917004844894`*^9}, {
   3.8030917767375546`*^9, 3.8030917789280453`*^9}},
 CellLabel->"In[16]:=",ExpressionUUID->"a22cab01-84b6-4910-a8ee-e13c7c9bda3f"],

Cell[CellGroupData[{

Cell["Define function to initialize particles", "Subsubsection",
 CellChangeTimes->{{3.7701329614446096`*^9, 3.7701329832348557`*^9}, {
  3.774612466089605*^9, 3.7746124720577526`*^9}, {3.7746226304517884`*^9, 
  3.774622638368577*^9}, {3.7746226690289564`*^9, 3.7746226695757027`*^9}, {
  3.776165362372452*^9, 3.776165381438542*^9}, {3.7761656187571163`*^9, 
  3.7761656250464754`*^9}, {3.8012752430432863`*^9, 
  3.801275254375457*^9}},ExpressionUUID->"2086d6f6-0d0b-40d9-a62f-\
2851fbd41666"],

Cell[BoxData[
 RowBox[{
  RowBox[{"InitializeParticles", "[", 
   RowBox[{
   "nparticles_", ",", "daperture_", ",", "dcell_", ",", "zaperture_", ",", 
    "vzmin_", ",", "vzavg_", ",", "vzstd_", ",", "vxstd_", ",", " ", "zcool_",
     ",", "xstd_"}], "]"}], ":=", 
  RowBox[{"ParallelTable", "[", 
   RowBox[{
    RowBox[{"Module", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"vzinit", ",", "vxinit", ",", "vyinit", ",", 
        RowBox[{"xinit", "=", 
         RowBox[{"daperture", "+", "dcell", "+", "1"}]}], ",", 
        RowBox[{"yinit", "=", 
         RowBox[{"daperture", "+", "dcell", "+", "1"}]}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"While", "[", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{"Abs", "[", "xinit", "]"}], " ", ">", " ", 
           RowBox[{"daperture", "/", "2"}]}], " ", "||", " ", 
          RowBox[{
           RowBox[{"Abs", "[", "yinit", "]"}], " ", ">", " ", 
           RowBox[{"daperture", "/", "2"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{"Create", " ", "particles", " ", "at", " ", "cell"}], 
          "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"vzinit", "=", 
           RowBox[{"Map", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"Max", "[", 
               RowBox[{"vzmin", ",", "#"}], "]"}], "&"}], ",", 
             RowBox[{"RandomVariate", "[", 
              RowBox[{"NormalDistribution", "[", 
               RowBox[{"vzavg", ",", " ", "vzstd"}], "]"}], "]"}]}], "]"}]}], 
          ";", "\[IndentingNewLine]", 
          RowBox[{"vxinit", "=", 
           RowBox[{"RandomVariate", "[", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"0", ",", " ", "vxstd"}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"vyinit", "=", 
           RowBox[{"RandomVariate", "[", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"0", ",", " ", "vxstd"}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"xinit", "=", 
           RowBox[{"RandomVariate", "[", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"0", ",", " ", "xstd"}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"yinit", "=", 
           RowBox[{"RandomVariate", "[", 
            RowBox[{"NormalDistribution", "[", 
             RowBox[{"0", ",", " ", "xstd"}], "]"}], "]"}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{"Propagate", " ", "to", " ", "aperture"}], "*)"}], 
          "\[IndentingNewLine]", 
          RowBox[{"xinit", "+=", 
           RowBox[{"vxinit", "*", 
            RowBox[{"(", 
             RowBox[{"zaperture", "/", "vzinit"}], ")"}]}]}], ";", 
          "\[IndentingNewLine]", 
          RowBox[{"yinit", "+=", 
           RowBox[{"vyinit", "*", 
            RowBox[{"(", 
             RowBox[{"zaperture", "/", "vzinit"}], ")"}]}]}], ";"}]}], 
        "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
        "propagate", " ", "to", " ", "start", " ", "of", " ", "cooling", " ", 
         "region"}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{"xinit", "+=", 
        RowBox[{"vxinit", " ", 
         RowBox[{"zcool", "/", "vzinit"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"yinit", "+=", 
        RowBox[{"vyinit", " ", 
         RowBox[{"zcool", "/", "vzinit"}]}]}], ";", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
        "xinit", ",", "vxinit", ",", "vzinit", ",", "yinit", ",", "vyinit"}], 
        "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
    RowBox[{"{", 
     RowBox[{"i", ",", "nparticles"}], "}"}], ",", 
    RowBox[{"Method", "\[Rule]", "\"\<CoarsestGrained\>\""}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.8020534368028145`*^9, 3.8020534564815226`*^9}, {
  3.80205354327876*^9, 3.802053544925171*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"faefb1d2-c143-4cf4-bbad-8f8982efcabd"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Define function to simulate trajectories", "Subsubsection",
 CellChangeTimes->{{3.7701329614446096`*^9, 3.7701329832348557`*^9}, {
   3.774612466089605*^9, 3.7746124720577526`*^9}, {3.7746226304517884`*^9, 
   3.774622638368577*^9}, {3.7746226690289564`*^9, 3.7746226695757027`*^9}, {
   3.776165362372452*^9, 3.776165395656355*^9}, 3.776165630526789*^9, {
   3.794530301368927*^9, 3.7945303021651297`*^9}, {3.8012752498082466`*^9, 
   3.8012752521148233`*^9}},ExpressionUUID->"20effcbb-203d-40b4-8029-\
107270944d9f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SimulateTrajectoryFast", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"x0_", ",", "vx0_", ",", "vz_", ",", "y0_", ",", "vy_"}], "}"}], 
    ",", "\[Beta]_", ",", "p_", ",", "\[CapitalDelta]_", ",", 
    "nscatteravg_"}], "]"}], ":=", 
  RowBox[{"Module", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"eqns", ",", "tmax", ",", "tend", ",", "sol", ",", "nscatter"}], 
     "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"nscatter", "=", 
      RowBox[{"RandomVariate", "[", 
       RowBox[{"ExponentialDistribution", "[", 
        FractionBox["1", "nscatteravg"], "]"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tmax", "=", 
      RowBox[{"lcool", "/", "vz"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"decayed", "=", "0"}], ";", "\[IndentingNewLine]", 
     RowBox[{"eqns", "=", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"vx", "[", "0", "]"}], "\[Equal]", "vx0"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"x", "[", "0", "]"}], "\[Equal]", "x0"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"n", "[", "0", "]"}], "\[Equal]", "0"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"vx", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{"ainterp", "[", 
          RowBox[{"\[Beta]", ",", 
           RowBox[{"p", " ", 
            RowBox[{"intensity", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"vz", " ", "t"}], "-", 
               RowBox[{"lcool", "/", "2"}]}], ",", " ", 
              RowBox[{"y0", "+", 
               RowBox[{"vy", " ", "t"}]}]}], "]"}]}], ",", "\[CapitalDelta]", 
           ",", 
           RowBox[{"vx", "[", "t", "]"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"x", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{"vx", "[", "t", "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"n", "'"}], "[", "t", "]"}], "\[Equal]", 
         RowBox[{"rinterp", "[", 
          RowBox[{"\[Beta]", ",", 
           RowBox[{"p", " ", 
            RowBox[{"intensity", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"vz", " ", "t"}], "-", 
               RowBox[{"lcool", "/", "2"}]}], ",", " ", 
              RowBox[{"y0", "+", 
               RowBox[{"vy", " ", "t"}]}]}], "]"}]}], ",", "\[CapitalDelta]", 
           ",", 
           RowBox[{"vx", "[", "t", "]"}]}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"WhenEvent", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"n", "[", "t", "]"}], ">", "nscatter"}], ",", 
          "\"\<StopIntegration\>\""}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"WhenEvent", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Mod", "[", 
            RowBox[{
             RowBox[{"n", "[", "t", "]"}], ",", "1"}], "]"}], ">", "0.5"}], 
          ",", 
          RowBox[{
           RowBox[{"vx", "[", "t", "]"}], "\[Rule]", 
           RowBox[{
            RowBox[{"vx", "[", "t", "]"}], "+", 
            RowBox[{"RandomReal", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"-", "vrecoil"}], ",", "vrecoil"}], "}"}], "]"}]}]}]}],
          "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"WhenEvent", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"n", "[", "t", "]"}], ">", "nscatter"}], ",", " ", 
          RowBox[{"decayed", "=", "1"}]}], "]"}]}], "\[IndentingNewLine]", 
       "}"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"sol", "=", 
      RowBox[{"First", "@", 
       RowBox[{"NDSolve", "[", 
        RowBox[{"eqns", ",", 
         RowBox[{"{", 
          RowBox[{"x", ",", "vx", ",", "n"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"t", ",", "0", ",", "tmax"}], "}"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"AccuracyGoal", "\[Rule]", "5"}], ",", "\[IndentingNewLine]", 
         RowBox[{"PrecisionGoal", "\[Rule]", "3"}]}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tend", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"x", "[", "\"\<Domain\>\"", "]"}], "/.", "sol"}], ")"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"x", "[", "tend", "]"}], "+", 
         RowBox[{
          RowBox[{"vx", "[", "tend", "]"}], "*", 
          RowBox[{"(", 
           RowBox[{"tmax", " ", "-", " ", "tend", " ", "+", " ", 
            RowBox[{"zdetector", "/", "vz"}]}], ")"}]}]}], ",", 
        RowBox[{"vx", "[", "tend", "]"}], ",", 
        RowBox[{"tmax", "-", "tend"}], ",", 
        RowBox[{"n", "[", "tend", "]"}], ",", "decayed", ",", 
        RowBox[{"x", "[", "0", "]"}], ",", 
        RowBox[{"vx", "[", "0", "]"}], ",", "y0", ",", "vy", ",", "vz"}], 
       "}"}], "/.", "sol"}]}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.776174916418912*^9, 3.7761749431704416`*^9}, {
   3.7761753432633257`*^9, 3.776175343719352*^9}, {3.7761756976875973`*^9, 
   3.776175788865813*^9}, {3.7761758305431967`*^9, 3.776175863875103*^9}, {
   3.77617589861709*^9, 3.7761760192399893`*^9}, {3.776176176268971*^9, 
   3.7761762161692533`*^9}, {3.7761762609278135`*^9, 
   3.7761763252724934`*^9}, {3.776176423677122*^9, 3.776176429166436*^9}, {
   3.77617648990191*^9, 3.776176550190358*^9}, {3.77617658728448*^9, 
   3.7761766392574525`*^9}, {3.7761767284945564`*^9, 3.776176728813575*^9}, {
   3.7761767726930847`*^9, 3.776176835595682*^9}, {3.776176887459649*^9, 
   3.7761770346530676`*^9}, {3.7761771013998857`*^9, 3.776177125273251*^9}, {
   3.776177160488265*^9, 3.776177291839778*^9}, {3.776177416344899*^9, 
   3.776177424632373*^9}, {3.776178850516929*^9, 3.7761788921623116`*^9}, {
   3.776179057552771*^9, 3.7761790611119747`*^9}, {3.776179320394805*^9, 
   3.7761793664154367`*^9}, {3.776180333439748*^9, 3.7761803850937023`*^9}, {
   3.7761817269974546`*^9, 3.7761817663397045`*^9}, {3.7761818016497245`*^9, 
   3.7761818803122234`*^9}, {3.776182115720688*^9, 3.776182115839695*^9}, 
   3.776182195547254*^9, {3.7764541730239077`*^9, 3.776454251541815*^9}, {
   3.776454348026761*^9, 3.776454361679059*^9}, {3.776513553854104*^9, 
   3.7765135795985765`*^9}, {3.776683726294552*^9, 3.776683786049969*^9}, {
   3.776683962329052*^9, 3.776683969601468*^9}, {3.7766841501127925`*^9, 
   3.7766841599063525`*^9}, {3.776684714749088*^9, 3.776684741153598*^9}, {
   3.7771128820607176`*^9, 3.7771128872600155`*^9}, {3.777112920601922*^9, 
   3.7771129450683217`*^9}, {3.777123850644085*^9, 3.7771238832469497`*^9}, {
   3.777123924196292*^9, 3.7771239434173913`*^9}, {3.7771240840254335`*^9, 
   3.777124089256733*^9}, {3.777124204060299*^9, 3.7771242047783403`*^9}, {
   3.7771243989394455`*^9, 3.7771244157594075`*^9}, {3.7771246277135305`*^9, 
   3.7771246366570425`*^9}, {3.777124728838315*^9, 3.77712473172548*^9}, {
   3.7771248359814425`*^9, 3.7771248379875574`*^9}, {3.7772257683142014`*^9, 
   3.777225769659278*^9}, {3.7772258175640182`*^9, 3.7772258178970375`*^9}, {
   3.7772258898701534`*^9, 3.7772259413791*^9}, {3.777225991471965*^9, 
   3.777225993119059*^9}, {3.7772261294918594`*^9, 3.7772261556693563`*^9}, {
   3.777226351352549*^9, 3.7772264001163383`*^9}, {3.7773713668619614`*^9, 
   3.777371380557745*^9}, {3.777378502509097*^9, 3.777378530791715*^9}, {
   3.7773885607639847`*^9, 3.7773885869104805`*^9}, {3.7774602552878046`*^9, 
   3.777460344434904*^9}, {3.777460960595146*^9, 3.77746100123147*^9}, {
   3.7774610357414446`*^9, 3.777461074529663*^9}, {3.777553158625386*^9, 
   3.777553183258795*^9}, {3.778235013344737*^9, 3.77823501410914*^9}, {
   3.7782350693207827`*^9, 3.778235246047667*^9}, {3.7782356047904577`*^9, 
   3.7782356857981052`*^9}, {3.778235729419179*^9, 3.778235740906472*^9}, {
   3.7782357968991423`*^9, 3.7782358751388407`*^9}, {3.7782359642721443`*^9, 
   3.778236103984399*^9}, {3.778236216751554*^9, 3.7782362746022253`*^9}, {
   3.7785080714224567`*^9, 3.778508071629874*^9}, {3.7785812997398295`*^9, 
   3.778581304077222*^9}, {3.7785852223640146`*^9, 3.7785852225355225`*^9}, {
   3.7785856318281918`*^9, 3.7785856830401773`*^9}, {3.778585729782076*^9, 
   3.778585750770913*^9}, {3.7785858968280396`*^9, 3.778585917373057*^9}, {
   3.794398701583085*^9, 3.794398712997385*^9}, {3.794398817369732*^9, 
   3.794398840328929*^9}, {3.7943999492219834`*^9, 3.7943999538130655`*^9}, {
   3.7943999858247557`*^9, 3.794399986643861*^9}, {3.79440178016883*^9, 
   3.794401839307207*^9}, {3.7944022037112727`*^9, 3.7944022194774265`*^9}, {
   3.794402383940595*^9, 3.794402384172909*^9}, {3.7944865777073936`*^9, 
   3.7944865841324525`*^9}, {3.794487023673592*^9, 3.7944870248833704`*^9}, 
   3.7946779192618337`*^9, {3.7946927033924246`*^9, 3.7946927118438377`*^9}, {
   3.7947936150104666`*^9, 3.794793616164729*^9}, {3.8012754530356846`*^9, 
   3.801275453869988*^9}, {3.801299777839184*^9, 3.8012998056420946`*^9}, {
   3.801557108083917*^9, 3.8015571090401306`*^9}, 3.801557525411193*^9, {
   3.8015575822587523`*^9, 3.801557582541818*^9}, {3.8018854929418335`*^9, 
   3.8018854988534136`*^9}, {3.801885644081657*^9, 3.80188564416286*^9}, {
   3.802045571001005*^9, 3.8020455714890833`*^9}, {3.8020867031762295`*^9, 
   3.802086716510292*^9}, {3.8030917666130185`*^9, 3.803091766686035*^9}, {
   3.803121772061683*^9, 3.8031217725865717`*^9}, 3.8031218776190977`*^9, {
   3.803142661640807*^9, 3.803142661896698*^9}},
 CellLabel->"In[42]:=",ExpressionUUID->"dccf9f9d-0271-4cee-a2a6-51b034d09fcc"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Initialize beam with experimental parameters", "Subsubsection",
 CellChangeTimes->{{3.7701329614446096`*^9, 3.7701329832348557`*^9}, {
   3.774612466089605*^9, 3.7746124720577526`*^9}, {3.7746226304517884`*^9, 
   3.774622638368577*^9}, {3.7746226690289564`*^9, 3.7746226695757027`*^9}, {
   3.776165362372452*^9, 3.776165395656355*^9}, 3.776165630526789*^9, {
   3.794530301368927*^9, 3.7945303021651297`*^9}, {3.8012752498082466`*^9, 
   3.801275295145632*^9}, {3.801275345493616*^9, 
   3.8012753500168557`*^9}},ExpressionUUID->"6c519e3a-f10c-4538-afc2-\
24105e47eb71"],

Cell[BoxData[
 RowBox[{
  RowBox[{"nparticles", "=", "10000"}], ";"}]], "Input",
 CellChangeTimes->{{3.7944169993043137`*^9, 3.794417003826792*^9}, {
   3.7946539606021285`*^9, 3.7946539610622315`*^9}, {3.794657794485712*^9, 
   3.7946578025453887`*^9}, {3.79465906243653*^9, 3.7946590626755843`*^9}, 
   3.794660235224152*^9, {3.7946779111817827`*^9, 3.7946779164801683`*^9}, {
   3.7946854581590242`*^9, 3.794685469409958*^9}, 3.794688410701245*^9, {
   3.794694316618695*^9, 3.7946943181510377`*^9}, {3.7946970506091723`*^9, 
   3.794697050681189*^9}, {3.79477585523313*^9, 3.7947758587915897`*^9}, {
   3.794798994054731*^9, 3.7947989945407934`*^9}, {3.794837864660307*^9, 
   3.7948378661526413`*^9}, {3.794938980254684*^9, 3.794938980310358*^9}, {
   3.794939356136031*^9, 3.7949393564931107`*^9}, {3.794945721548031*^9, 
   3.7949457218564386`*^9}, {3.7949558349650292`*^9, 
   3.7949558350520487`*^9}, {3.7949577288327723`*^9, 3.794957734302003*^9}, {
   3.794962856825825*^9, 3.7949628571042256`*^9}, 3.8012641961977863`*^9, {
   3.801271432973773*^9, 3.801271433071795*^9}, {3.801273458376217*^9, 
   3.8012734584772396`*^9}, {3.801275141422189*^9, 3.8012751414972415`*^9}, {
   3.801275265309698*^9, 3.801275265618518*^9}, {3.801276120940916*^9, 
   3.8012761212788353`*^9}, {3.8013461928857665`*^9, 
   3.8013461929787874`*^9}, {3.801355521808771*^9, 3.8013555218807735`*^9}, {
   3.8014252159236016`*^9, 3.8014252161426506`*^9}, {3.801560314350685*^9, 
   3.801560314454709*^9}, {3.801600195044063*^9, 3.801600195104892*^9}, {
   3.801600500977229*^9, 3.801600501028126*^9}, {3.801600757940977*^9, 
   3.801600758018566*^9}, {3.801601077941332*^9, 3.80160107802839*^9}, {
   3.8016011647230873`*^9, 3.80160116478224*^9}, {3.801822691374462*^9, 
   3.8018226914154596`*^9}, {3.801833157849103*^9, 3.8018331579576316`*^9}, {
   3.8018384581285086`*^9, 3.801838458645624*^9}, {3.801838861356563*^9, 
   3.80183886143058*^9}, {3.801912403662136*^9, 3.8019124073968315`*^9}, {
   3.8019143277007885`*^9, 3.8019143278248158`*^9}, {3.801940350953227*^9, 
   3.8019403509978724`*^9}, {3.8019408059768066`*^9, 3.801940806027597*^9}, {
   3.8019412168526597`*^9, 3.8019412169567757`*^9}, {3.8019419731039495`*^9, 
   3.801941973230673*^9}, {3.8020534868364706`*^9, 3.8020534869669247`*^9}, {
   3.8020538917116027`*^9, 3.802053891788604*^9}, {3.802054279700254*^9, 
   3.802054279874982*^9}, {3.802054344828485*^9, 3.802054344921379*^9}, {
   3.8020886898661337`*^9, 3.802088689919146*^9}, {3.8020890297853622`*^9, 
   3.8020890302554665`*^9}, {3.8024780585779605`*^9, 3.802478058827526*^9}, {
   3.8031426170944967`*^9, 3.8031426173395014`*^9}, {3.8033058628457413`*^9, 
   3.803305863062233*^9}},ExpressionUUID->"9e84a53b-6a94-415f-8b47-\
20c1efb51727"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"constants", " ", "parameterizing", " ", "the", " ", 
    RowBox[{"experiment", ".", "\[IndentingNewLine]", "The"}], " ", "beam", 
    " ", "propagates", " ", "along", " ", "the", " ", "z", " ", 
    RowBox[{"axis", ".", "The"}], " ", "x", " ", "axis", " ", "is", " ", 
    "the", " ", "transverse", " ", 
    RowBox[{"direction", "."}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dcell", "=", "0.0115"}], ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{"Width", " ", "of", " ", "cell", " ", "exit"}], ";", "m"}], 
    "*)"}], "\n", 
   RowBox[{
    RowBox[{"vzavg", "=", "150.0"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Average", " ", "forward", " ", "velocity"}], ";", 
     RowBox[{"m", "/", "s"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"vzstd", "=", "30.0"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Standard", " ", "deviation", " ", "of", " ", "forward", " ", 
      "velocity"}], ";", 
     RowBox[{"m", "/", "s"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"vzmin", "=", "10.0"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Minimum", " ", "forward", " ", "velocity"}], ";", 
     RowBox[{"m", "/", "s"}]}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"vxstd", "=", "20"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Standard", " ", "deviation", " ", "of", " ", "transverse", " ", 
      "velocity"}], ";", 
     RowBox[{"m", "/", "s"}]}], "*)"}], "\n", 
   RowBox[{
    RowBox[{"zaperture", "=", "0.355"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Distance", " ", "from", " ", "cell", " ", "to", " ", "aperture"}], ";", 
     "m"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"daperture", "=", "0.003"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Diameter", " ", "of", " ", "aperture"}], ";", "m"}], "*)"}], 
   "\n", 
   RowBox[{
    RowBox[{"zcool", "=", "0.02"}], ";"}], " ", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"Length", " ", "of", " ", "cooling", " ", "region"}], ";", "m"}],
     "*)"}], "\n", 
   RowBox[{
    RowBox[{"lcool", "=", "0.01"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"zdetector", "=", "0.515"}], ";"}], 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "Distance", " ", "between", " ", "end", " ", "of", " ", "cooling", " ", 
      "region", " ", "and", " ", "detector"}], ";", " ", "m"}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"rdetector", "=", "0.015"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"xstd", "=", "0.0038"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"init", "=", 
     RowBox[{"InitializeParticles", "[", 
      RowBox[{
      "nparticles", ",", "daperture", ",", "dcell", ",", "zaperture", ",", 
       "vzmin", ",", "vzavg", ",", "vzstd", ",", "vxstd", ",", " ", "zcool", 
       ",", "xstd"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.7944038032008038`*^9, 3.794403827910453*^9}, {
   3.794403920340012*^9, 3.794403946682702*^9}, 3.7944039801799545`*^9, {
   3.794404078790533*^9, 3.794404085731656*^9}, {3.7944041379631567`*^9, 
   3.7944041509624677`*^9}, {3.794404224780773*^9, 3.7944042252380433`*^9}, {
   3.7944042806072035`*^9, 3.7944043037506313`*^9}, {3.794404355432145*^9, 
   3.7944043694529595`*^9}, {3.794404408351403*^9, 3.7944044111938033`*^9}, {
   3.7944044939003863`*^9, 3.7944044940756693`*^9}, {3.7944047408531065`*^9, 
   3.7944047422674427`*^9}, {3.794404777212698*^9, 3.7944047957653213`*^9}, {
   3.794404832928384*^9, 3.794404833193509*^9}, {3.794404869277589*^9, 
   3.7944048709071293`*^9}, {3.7944049223486595`*^9, 3.79440495658934*^9}, {
   3.794405183883483*^9, 3.794405183971407*^9}, {3.7944052288872166`*^9, 
   3.794405232583681*^9}, {3.794405440700643*^9, 3.794405440996295*^9}, {
   3.7944055240793505`*^9, 3.7944055249344473`*^9}, {3.794405576345329*^9, 
   3.794405576569295*^9}, {3.794405842103505*^9, 3.7944058541753097`*^9}, {
   3.79440589429871*^9, 3.794405895752221*^9}, {3.7944550459902945`*^9, 
   3.794455046060461*^9}, {3.794455096943061*^9, 3.794455097074314*^9}, {
   3.794455153145345*^9, 3.794455153320022*^9}, {3.794456061762029*^9, 
   3.7944560658981037`*^9}, {3.794491127841591*^9, 3.794491128653432*^9}, {
   3.794491633521778*^9, 3.794491633672577*^9}, {3.794653969111059*^9, 
   3.7946539691740737`*^9}, {3.7946673860088587`*^9, 
   3.7946673867930346`*^9}, {3.7946773687020636`*^9, 3.794677369117157*^9}, {
   3.794678291750182*^9, 3.794678291805195*^9}, 3.794678471016124*^9, {
   3.7946854384500413`*^9, 3.7946854527367783`*^9}, {3.794685908536018*^9, 
   3.794685909056135*^9}, {3.794686442002347*^9, 3.794686442520463*^9}, {
   3.794686849278145*^9, 3.7946868494861913`*^9}, {3.794687923601124*^9, 
   3.7946879236811414`*^9}, {3.7946884043512955`*^9, 3.794688406141698*^9}, {
   3.794690097667096*^9, 3.7946900986733217`*^9}, {3.7946913415571527`*^9, 
   3.794691347645033*^9}, {3.7946928054556594`*^9, 3.7946928064653893`*^9}, {
   3.7946931126780252`*^9, 3.7946931127500424`*^9}, {3.794693294290248*^9, 
   3.794693298174621*^9}, {3.7946943290981417`*^9, 3.7946943309806695`*^9}, {
   3.794694613098367*^9, 3.7946946159820213`*^9}, {3.7946946554204845`*^9, 
   3.7946946640011063`*^9}, {3.7947438292197638`*^9, 
   3.7947438292767773`*^9}, {3.7947990036830077`*^9, 3.794799003766839*^9}, {
   3.79482641928953*^9, 3.7948264197946434`*^9}, {3.7948365964156995`*^9, 
   3.794836596770779*^9}, {3.7948369100423627`*^9, 3.7948369101593885`*^9}, {
   3.7948548981224847`*^9, 3.7948548988553286`*^9}, {3.7949553878862762`*^9, 
   3.794955388329376*^9}, {3.7949638986837835`*^9, 3.7949639108986216`*^9}, {
   3.79496403222542*^9, 3.794964032595701*^9}, {3.7949670181691747`*^9, 
   3.7949670186502824`*^9}, {3.7949679922297387`*^9, 3.794967992892903*^9}, {
   3.7950160730758753`*^9, 3.79501607329093*^9}, {3.7950326637216578`*^9, 
   3.795032664504648*^9}, {3.8012606790717616`*^9, 3.8012606801910114`*^9}, 
   3.8012680957025213`*^9, {3.8012725782624454`*^9, 3.8012725783411307`*^9}, {
   3.80127346308727*^9, 3.8012734633513284`*^9}, {3.801274317945307*^9, 
   3.801274318569776*^9}, {3.8012761097027426`*^9, 3.8012761146139603`*^9}, {
   3.8012767042551403`*^9, 3.80127670438795*^9}, {3.801277395147415*^9, 
   3.801277395271443*^9}, {3.8012997747034316`*^9, 3.8012997748884726`*^9}, {
   3.8015591841791115`*^9, 3.8015591845361905`*^9}, {3.801838575083886*^9, 
   3.8018385764932175`*^9}, {3.8018391223894973`*^9, 
   3.8018391240368752`*^9}, {3.8018394101556597`*^9, 3.801839411915064*^9}, {
   3.801839892245731*^9, 3.801839893365906*^9}, {3.8018848100385623`*^9, 
   3.801884810168342*^9}, {3.801886136258749*^9, 3.801886136574029*^9}, {
   3.8019148627084208`*^9, 3.801914862864291*^9}, {3.8019304473360925`*^9, 
   3.801930447407585*^9}, {3.801939887274111*^9, 3.80193988787298*^9}, 
   3.8019400191077967`*^9, {3.8019402462791214`*^9, 3.801940252062274*^9}, {
   3.8019403003070107`*^9, 3.801940301300228*^9}, {3.80194046219112*^9, 
   3.8019404731366053`*^9}, {3.8019405275227976`*^9, 
   3.8019405279588947`*^9}, {3.801940797522706*^9, 3.8019408236412416`*^9}, {
   3.801941133025793*^9, 3.801941134554677*^9}, {3.801941292147977*^9, 
   3.801941292615161*^9}, {3.801941385485051*^9, 3.801941386295328*^9}, {
   3.801941960145096*^9, 3.8019419622646847`*^9}, 3.801942518635738*^9, {
   3.8019429725367956`*^9, 3.8019429726307974`*^9}, {3.8020261864534645`*^9, 
   3.802026186535722*^9}, {3.802026674478385*^9, 3.8020266747767267`*^9}, {
   3.802045898361003*^9, 3.802045898575239*^9}, {3.8020472616061616`*^9, 
   3.8020472616671653`*^9}, {3.8020493285148687`*^9, 3.802049328867948*^9}, 
   3.8020519498583937`*^9, 3.802052398002857*^9, {3.802053038466491*^9, 
   3.8020530412232695`*^9}, {3.802053290489812*^9, 3.8020532913135977`*^9}, {
   3.80205346624981*^9, 3.802053478849326*^9}, {3.8020536334883366`*^9, 
   3.8020536426363773`*^9}, {3.8020537285797825`*^9, 
   3.8020537292195463`*^9}, {3.8020538322847013`*^9, 3.802053832622427*^9}, {
   3.8020542492447386`*^9, 3.8020542834232807`*^9}, {3.802087341774027*^9, 
   3.802087342087096*^9}, {3.8020875816186676`*^9, 3.8020875818797264`*^9}, {
   3.802088672929885*^9, 3.8020886752659187`*^9}, {3.802088897723119*^9, 
   3.8020889008148165`*^9}, {3.8020892766623883`*^9, 
   3.8020892769714575`*^9}, {3.80212753404093*^9, 3.8021275343347106`*^9}, {
   3.802284650549883*^9, 3.8022846506366453`*^9}, {3.802285832044445*^9, 
   3.8022858357017956`*^9}, {3.8023095570312862`*^9, 3.802309583520257*^9}, {
   3.8024020835984106`*^9, 3.802402084013175*^9}, {3.802478068766712*^9, 
   3.8024780737609825`*^9}, {3.802478137009843*^9, 3.802478162609681*^9}, {
   3.802987390658433*^9, 3.8029873910361977`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"c0c8e4fa-0227-4b9a-82f2-c524254ed188"],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[CapitalGamma]", "=", 
   RowBox[{
    RowBox[{"N", "[", 
     RowBox[{"QuantityMagnitude", "[", 
      RowBox[{"1", "/", 
       RowBox[{"(", 
        RowBox[{"2", "\[Pi]", "*", "tdecay"}], ")"}]}], "]"}], "]"}], "*", 
    SuperscriptBox["10", "3"]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.801822763882579*^9, 3.801822876113387*^9}, {
   3.801845561644772*^9, 3.801845562344228*^9}, {3.80184571561304*^9, 
   3.801845716465281*^9}, {3.801873180440552*^9, 3.8018732154812937`*^9}, {
   3.8019154827791853`*^9, 3.801915505830362*^9}, 3.8019158582058563`*^9, {
   3.8019159284595547`*^9, 3.801915929195719*^9}, 3.801918980582033*^9, 
   3.8019190160605307`*^9, 3.801920372204812*^9, {3.801922642943591*^9, 
   3.801922642986601*^9}, 3.8019229636286483`*^9, {3.80193092265907*^9, 
   3.80193093436341*^9}, {3.801931330950056*^9, 3.8019313322610683`*^9}, {
   3.8019335017452545`*^9, 3.801933532921264*^9}, {3.8019349606493587`*^9, 
   3.801934962904294*^9}, {3.8019350367082405`*^9, 3.801935055018607*^9}, {
   3.80193543362868*^9, 3.8019354340935073`*^9}, {3.8019357597629538`*^9, 
   3.801935760448981*^9}, {3.8019370461516795`*^9, 3.801937046274697*^9}, {
   3.801937101702786*^9, 3.8019371025757465`*^9}, {3.801944887627026*^9, 
   3.8019448877695875`*^9}, {3.802036519635071*^9, 3.8020365197130876`*^9}, {
   3.802036583931672*^9, 3.802036595046625*^9}, {3.802037735457374*^9, 
   3.802037735692346*^9}, {3.802047269724803*^9, 3.8020472889897685`*^9}, {
   3.8020493051448393`*^9, 3.8020493058260465`*^9}, {3.802049382699054*^9, 
   3.8020493828726735`*^9}, 3.802055829723775*^9, {3.8020596030370884`*^9, 
   3.802059603317359*^9}, {3.802060350816439*^9, 3.8020603508654504`*^9}, {
   3.802086732244137*^9, 3.802086732334158*^9}, {3.802088372698949*^9, 
   3.802088374003744*^9}, {3.8020900987251835`*^9, 3.8020901193156157`*^9}, 
   3.802189248385887*^9, {3.802284598193411*^9, 3.802284604689617*^9}, 
   3.8022848864490767`*^9, {3.8022851532065525`*^9, 3.802285168992221*^9}, {
   3.80228531136736*^9, 3.802285321090247*^9}, {3.8022856183095093`*^9, 
   3.8022856183863735`*^9}, {3.802301699454156*^9, 3.802301699592894*^9}, {
   3.80230451109772*^9, 3.802304511205656*^9}, 3.8023047924645724`*^9, {
   3.8023082652772846`*^9, 3.8023082653668337`*^9}, 3.8023083401535454`*^9, {
   3.8023778109036283`*^9, 3.802377811057498*^9}, {3.8024607225509233`*^9, 
   3.802460722781674*^9}, {3.8024727213521166`*^9, 3.8024727221712637`*^9}, {
   3.802478078722689*^9, 3.8024780787928314`*^9}, 3.8026010670277543`*^9, {
   3.802966571249402*^9, 3.8029665712724714`*^9}, {3.8029672296118884`*^9, 
   3.8029672298993974`*^9}, {3.802973165738646*^9, 3.802973165798636*^9}, {
   3.8029734785536375`*^9, 3.8029734939981737`*^9}, {3.8030828067656994`*^9, 
   3.803082806938865*^9}},
 CellLabel->"In[29]:=",ExpressionUUID->"c5609752-0026-4bbc-8872-3b54364462a9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"visual", " ", "check", " ", "of", " ", "force", " ", "profiles"}],
    "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"curves", " ", "=", 
     RowBox[{"ainterp32", "[", 
      RowBox[{"1.4", ",", 
       RowBox[{"QuantityMagnitude", "[", 
        RowBox[{"2", "*", 
         RowBox[{"800", "/", "isat"}]}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "15"}], "/", "\[CapitalGamma]"}], ",", "0", ",", 
         RowBox[{"25", "/", "\[CapitalGamma]"}]}], "}"}], ",", "v"}], "]"}]}],
     ";"}], "\[IndentingNewLine]", 
   RowBox[{"Plot", "[", 
    RowBox[{"curves", ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       RowBox[{"-", "15"}], ",", "15"}], "}"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "Large"}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Heating\>\"", ",", "\"\<Resonant\>\"", ",", "\"\<Cooling\>\""}], 
       "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7944292168794184`*^9, 3.79442924734289*^9}, {
   3.7944294433179064`*^9, 3.794429444262847*^9}, {3.794429667520056*^9, 
   3.794429672372655*^9}, {3.7944297318387547`*^9, 3.794429789989504*^9}, {
   3.7944299590211124`*^9, 3.794429970832421*^9}, {3.794430010003907*^9, 
   3.794430033282007*^9}, {3.7944300885541506`*^9, 3.7944300895081315`*^9}, {
   3.7944301211262608`*^9, 3.794430122018141*^9}, {3.7944305708874083`*^9, 
   3.794430571692419*^9}, {3.7944312263760743`*^9, 3.79443122648833*^9}, {
   3.794431642360224*^9, 3.794431666895884*^9}, {3.794431755988937*^9, 
   3.7944317722270985`*^9}, {3.7944319768596716`*^9, 3.794431990160483*^9}, {
   3.7944320697057595`*^9, 3.7944321446200323`*^9}, {3.7944322115537214`*^9, 
   3.7944322133682013`*^9}, {3.794432243919973*^9, 3.794432246465009*^9}, {
   3.7944325638588467`*^9, 3.794432563947193*^9}, {3.7944327523300037`*^9, 
   3.7944328056614704`*^9}, {3.79443286552392*^9, 3.794432866813369*^9}, {
   3.794432980778113*^9, 3.7944329876315737`*^9}, {3.7944331662964187`*^9, 
   3.7944332261699977`*^9}, {3.794433562147122*^9, 3.7944335960883217`*^9}, {
   3.7944337507398605`*^9, 3.79443377420704*^9}, {3.7944339388827686`*^9, 
   3.7944339437564554`*^9}, {3.7944340044224443`*^9, 
   3.7944340208546658`*^9}, {3.7944343013561416`*^9, 
   3.7944343974877515`*^9}, {3.7944345273616743`*^9, 
   3.7944345345377007`*^9}, {3.794434721147224*^9, 3.794434786608362*^9}, {
   3.7944352213466597`*^9, 3.794435228832205*^9}, {3.794435368796913*^9, 
   3.7944353826397123`*^9}, {3.7944354134107738`*^9, 
   3.7944354181767097`*^9}, {3.7944370374387865`*^9, 
   3.7944370413617535`*^9}, {3.7944399400360465`*^9, 
   3.7944399401140633`*^9}, {3.794440127841544*^9, 3.794440168312812*^9}, {
   3.794440364473666*^9, 3.7944404524727025`*^9}, {3.7944405919719195`*^9, 
   3.7944406509609947`*^9}, {3.7944406864157286`*^9, 3.794440706679124*^9}, {
   3.794440741561021*^9, 3.7944407529959326`*^9}, {3.7944416101788206`*^9, 
   3.794441623091748*^9}, {3.794441672040619*^9, 3.7944417758268566`*^9}, {
   3.794442137051558*^9, 3.794442146003973*^9}, {3.794442361502695*^9, 
   3.79444239518848*^9}, {3.794453457585288*^9, 3.794453479257453*^9}, {
   3.794453608205964*^9, 3.7944536378703256`*^9}, {3.7944536920351048`*^9, 
   3.7944537225836773`*^9}, {3.7944538362883997`*^9, 3.794453862989058*^9}, {
   3.794454892932234*^9, 3.7944549580825305`*^9}, {3.794455178423169*^9, 
   3.7944553402693443`*^9}, {3.7944556296930947`*^9, 
   3.7944556633802495`*^9}, {3.794455738379207*^9, 3.794455747091197*^9}, {
   3.7944557788506117`*^9, 3.7944558127932634`*^9}, {3.794456032698623*^9, 
   3.7944560338538847`*^9}, {3.7944568895869493`*^9, 3.794456890241599*^9}, {
   3.794486377853352*^9, 3.7944863788808217`*^9}, {3.7944865019673615`*^9, 
   3.794486531116542*^9}, {3.7944866995368886`*^9, 3.7944867013328905`*^9}, {
   3.7944867782921295`*^9, 3.7944867783881493`*^9}, {3.7944868913053265`*^9, 
   3.7944869455424533`*^9}, {3.7944870070963454`*^9, 3.794487017172444*^9}, {
   3.7944912802458057`*^9, 3.7944912932224846`*^9}, {3.7944914657757635`*^9, 
   3.794491516238504*^9}, {3.7944915720995617`*^9, 3.7944915938110094`*^9}, {
   3.794529573326285*^9, 3.7945297797781143`*^9}, {3.7946028248126116`*^9, 
   3.794602824956644*^9}, {3.794614464068571*^9, 3.794614466014864*^9}, {
   3.794617688628434*^9, 3.794617695907029*^9}, {3.7946177466043406`*^9, 
   3.794617974775462*^9}, {3.7946181150902805`*^9, 3.794618162571054*^9}, {
   3.7946182155582323`*^9, 3.794618226840307*^9}, {3.794618260945631*^9, 
   3.7946182690562925`*^9}, {3.79466725486517*^9, 3.7946672937813396`*^9}, {
   3.794671990693123*^9, 3.794671991133561*^9}, {3.7946722243071985`*^9, 
   3.794672225115382*^9}, {3.794672256618478*^9, 3.7946722675164423`*^9}, {
   3.7946723250961933`*^9, 3.7946723276677823`*^9}, {3.7946732022922955`*^9, 
   3.7946732078655615`*^9}, {3.7946861840423374`*^9, 3.794686184082347*^9}, {
   3.7946876156381288`*^9, 3.794687628780711*^9}, {3.7946916885440454`*^9, 
   3.7946916887760973`*^9}, {3.7946926448311615`*^9, 3.79469269044518*^9}, {
   3.7946927390827312`*^9, 3.7946927431096363`*^9}, {3.7946937059893456`*^9, 
   3.7946937230237436`*^9}, {3.7946937619163194`*^9, 
   3.7946937706422896`*^9}, {3.794694551107609*^9, 3.7946945734466333`*^9}, {
   3.794757474363106*^9, 3.794757476680472*^9}, {3.7947575081418715`*^9, 
   3.7947575761072874`*^9}, {3.7947591154680986`*^9, 
   3.7947591266904917`*^9}, {3.794759917210444*^9, 3.794759950465684*^9}, {
   3.7947655559923697`*^9, 3.7947655700555425`*^9}, {3.794775867190753*^9, 
   3.7947759163637996`*^9}, {3.7947976326025057`*^9, 
   3.7947976355783076`*^9}, {3.7947990115471687`*^9, 
   3.7947990118771524`*^9}, {3.7947990801793427`*^9, 
   3.7947991162030973`*^9}, {3.7947992606671543`*^9, 
   3.7947994111055126`*^9}, {3.7947994528533535`*^9, 3.794799455253042*^9}, {
   3.794799499906472*^9, 3.79479959913795*^9}, {3.7948264436205034`*^9, 
   3.794826585605047*^9}, {3.7948266241804204`*^9, 3.7948266242234297`*^9}, {
   3.794835924335146*^9, 3.7948359549437733`*^9}, {3.7948361021597586`*^9, 
   3.794836162046491*^9}, {3.7948379612177644`*^9, 3.794837984788723*^9}, {
   3.794838031032382*^9, 3.7948380313884616`*^9}, {3.794850442120225*^9, 
   3.794850477877018*^9}, {3.7948505876622915`*^9, 3.794850612016514*^9}, {
   3.7948507731077075`*^9, 3.794850953895576*^9}, {3.7948547126531954`*^9, 
   3.7948548754870768`*^9}, {3.7948549212874117`*^9, 
   3.7948549214405203`*^9}, {3.794955679844499*^9, 3.7949557101345425`*^9}, {
   3.795091907249049*^9, 3.79509190738208*^9}, {3.795091956721109*^9, 
   3.795091977255028*^9}, {3.801264211592141*^9, 3.8012642292823505`*^9}, {
   3.801264337115242*^9, 3.801264339238716*^9}, {3.801268611655065*^9, 
   3.801268616837158*^9}, {3.801271129931566*^9, 3.8012712047630405`*^9}, {
   3.8012754867957754`*^9, 3.8012754913396645`*^9}, {3.801277217403945*^9, 
   3.8012772246591*^9}, {3.8013472095252814`*^9, 3.8013472134017982`*^9}, {
   3.8013564836776514`*^9, 3.801356495014716*^9}, {3.801826524753736*^9, 
   3.8018265272794857`*^9}, {3.8018449482138414`*^9, 
   3.8018449488054485`*^9}, {3.8018449947931657`*^9, 3.80184500886556*^9}, {
   3.801846532454213*^9, 3.80184666370492*^9}, {3.801850020632947*^9, 
   3.80185008790644*^9}, {3.8018507986055636`*^9, 3.801850841046332*^9}, {
   3.8018509572182293`*^9, 3.801850963990383*^9}, {3.8018627105724707`*^9, 
   3.8018627489466*^9}, {3.8018630497445116`*^9, 3.8018631021665745`*^9}, {
   3.8018633631561003`*^9, 3.8018633659897327`*^9}, {3.8018680433420076`*^9, 
   3.801868097348604*^9}, {3.801868132868515*^9, 3.80186816246635*^9}, {
   3.8018692404707727`*^9, 3.8018692529038377`*^9}, {3.8018697367686157`*^9, 
   3.80186978971426*^9}, {3.801870208238078*^9, 3.801870208329282*^9}, {
   3.8018703116168957`*^9, 3.8018703171090283`*^9}, {3.801870379586094*^9, 
   3.8018704064243746`*^9}, {3.801873165870328*^9, 3.8018731896516275`*^9}, {
   3.8018732226422205`*^9, 3.8018732446887646`*^9}, {3.801873306803525*^9, 
   3.801873322653352*^9}, {3.8018743559758654`*^9, 3.8018743845621805`*^9}, {
   3.801879527761982*^9, 3.801879540174575*^9}, {3.801879689071541*^9, 
   3.8018796896467066`*^9}, {3.801882290031912*^9, 3.801882291135378*^9}, {
   3.8018844627892456`*^9, 3.801884463844269*^9}, {3.8018845311715565`*^9, 
   3.801884542121196*^9}, {3.801885094340872*^9, 3.8018852029777007`*^9}, {
   3.801886748180935*^9, 3.8018867786069927`*^9}, {3.8018868498074713`*^9, 
   3.801886874707864*^9}, {3.8018875455564613`*^9, 3.8018875456410847`*^9}, {
   3.8018886234447436`*^9, 3.801888658278296*^9}, {3.8019118249308815`*^9, 
   3.8019118579138837`*^9}, {3.8019132989873466`*^9, 3.801913306565405*^9}, {
   3.8019136538105125`*^9, 3.8019136708474927`*^9}, {3.8019137473487635`*^9, 
   3.8019137518391223`*^9}, {3.801913901392661*^9, 3.8019139018518405`*^9}, {
   3.801915576751954*^9, 3.8019155836182966`*^9}, {3.8019158659190474`*^9, 
   3.801915865977061*^9}, {3.8019176712165775`*^9, 3.801917671407187*^9}, {
   3.8019190347731533`*^9, 3.8019191398190126`*^9}, {3.801919215231352*^9, 
   3.8019192736210833`*^9}, {3.8019196996029325`*^9, 
   3.8019197394377375`*^9}, {3.8019198317089796`*^9, 
   3.8019199094363146`*^9}, {3.801920187860766*^9, 3.801920335078472*^9}, {
   3.801920366695856*^9, 3.801920397443574*^9}, {3.8019206263992577`*^9, 
   3.801920684455345*^9}, {3.801920801011139*^9, 3.8019208435083637`*^9}, {
   3.8019209304070663`*^9, 3.801920981192596*^9}, {3.8019210978648834`*^9, 
   3.8019211091649113`*^9}, {3.8019213724767*^9, 3.8019213854674354`*^9}, {
   3.801921464644923*^9, 3.801921494930662*^9}, {3.8019218337275457`*^9, 
   3.80192184167323*^9}, {3.8019223608377495`*^9, 3.801922361454032*^9}, {
   3.801923075829405*^9, 3.801923096787888*^9}, {3.8019237139814157`*^9, 
   3.801923714447526*^9}, {3.8019240861754227`*^9, 3.8019241055302534`*^9}, {
   3.8019248915426216`*^9, 3.8019248978278913`*^9}, {3.801925292184738*^9, 
   3.8019253011038637`*^9}, {3.80192668857377*^9, 3.801926688978444*^9}, {
   3.801928158706963*^9, 3.8019281975411673`*^9}, {3.8019287228321943`*^9, 
   3.8019287324259934`*^9}, {3.801928913976655*^9, 3.801928943255873*^9}, {
   3.8019294134662976`*^9, 3.8019294248403587`*^9}, {3.801929485627909*^9, 
   3.801929489327449*^9}, {3.8019297902878513`*^9, 3.8019298608411803`*^9}, {
   3.8019299116529346`*^9, 3.801929911882105*^9}, {3.801930942606366*^9, 
   3.8019309501579776`*^9}, {3.801931432551155*^9, 3.801931441630267*^9}, {
   3.8019315243508773`*^9, 3.8019315244249344`*^9}, {3.8019319543734837`*^9, 
   3.801931977569975*^9}, {3.8019322809856367`*^9, 3.801932298626684*^9}, {
   3.8019323554153767`*^9, 3.8019323866821723`*^9}, {3.8019324246971073`*^9, 
   3.801932448966215*^9}, {3.801932534283118*^9, 3.801932562451703*^9}, {
   3.801932839499998*^9, 3.801932855219019*^9}, {3.8019351198504405`*^9, 
   3.8019351453014283`*^9}, {3.801935842742654*^9, 3.801935843290395*^9}, {
   3.8019362417483215`*^9, 3.8019362634885907`*^9}, {3.8019363126943665`*^9, 
   3.801936338732231*^9}, {3.801936630249535*^9, 3.8019367291985207`*^9}, {
   3.801937021565485*^9, 3.8019370271781917`*^9}, {3.801937364531278*^9, 
   3.801937368390484*^9}, {3.8019376362393203`*^9, 3.8019376637496834`*^9}, {
   3.8019383065593557`*^9, 3.8019383301921854`*^9}, {3.801939266031307*^9, 
   3.801939285079913*^9}, {3.8019394157012873`*^9, 3.801939468390563*^9}, {
   3.8019435168192854`*^9, 3.8019435269713173`*^9}, {3.801944250974132*^9, 
   3.8019442878920665`*^9}, {3.8019455280829277`*^9, 
   3.8019455446538677`*^9}, {3.8020172252160397`*^9, 
   3.8020172685863495`*^9}, {3.802025352710949*^9, 3.802025404046271*^9}, {
   3.8020255806367674`*^9, 3.8020255820874176`*^9}, {3.802028396150092*^9, 
   3.8020284054391403`*^9}, {3.802031607018956*^9, 3.8020316129618063`*^9}, {
   3.802033724908978*^9, 3.8020337416616087`*^9}, {3.8020338331127877`*^9, 
   3.8020338549836864`*^9}, {3.8020339234396467`*^9, 3.802033969118572*^9}, {
   3.8020340227333565`*^9, 3.8020340228957095`*^9}, {3.8020340529029665`*^9, 
   3.802034093795556*^9}, {3.802035748883009*^9, 3.802035750024272*^9}, {
   3.8020365898825765`*^9, 3.8020366075995464`*^9}, {3.8020377124634686`*^9, 
   3.8020377132083445`*^9}, {3.802038339890069*^9, 3.802038340384682*^9}, {
   3.802039203790666*^9, 3.802039207186472*^9}, {3.802039645032303*^9, 
   3.8020396486624994`*^9}, {3.802043898849061*^9, 3.8020439135977106`*^9}, {
   3.8020444498368835`*^9, 3.8020444761206636`*^9}, {3.8020445152969522`*^9, 
   3.8020445474986267`*^9}, {3.80204550439827*^9, 3.802045524292509*^9}, {
   3.802051727211583*^9, 3.8020517277927136`*^9}, {3.8020526939111147`*^9, 
   3.8020527023167715`*^9}, 3.802056336924117*^9, {3.8020593487851925`*^9, 
   3.802059349283702*^9}, {3.802059623032366*^9, 3.802059675132579*^9}, {
   3.802060005573262*^9, 3.8020600057064247`*^9}, {3.802090073109006*^9, 
   3.80209012716261*^9}, {3.802125032564892*^9, 3.802125039352764*^9}, {
   3.8021252886220427`*^9, 3.8021253014967356`*^9}, {3.8021311534461193`*^9, 
   3.802131176925544*^9}, {3.80213271111032*^9, 3.8021327233200655`*^9}, {
   3.80213704651925*^9, 3.8021370497176895`*^9}, {3.802172730167743*^9, 
   3.8021727518857164`*^9}, {3.8021870419251313`*^9, 
   3.8021870710444613`*^9}, {3.802188649673108*^9, 3.802188670491143*^9}, {
   3.8021923236072445`*^9, 3.802192330354847*^9}, {3.8021924460398345`*^9, 
   3.802192451772171*^9}, {3.8021924854528704`*^9, 3.8021925074673557`*^9}, {
   3.8021925827288017`*^9, 3.8021925828775835`*^9}, {3.8021927938333163`*^9, 
   3.802192928523094*^9}, {3.802193058338052*^9, 3.802193067236809*^9}, {
   3.802284300686278*^9, 3.8022843098492355`*^9}, {3.80228442144822*^9, 
   3.80228451614888*^9}, {3.802284547353369*^9, 3.802284611889417*^9}, {
   3.80228470895325*^9, 3.802284727719279*^9}, {3.8022854606013136`*^9, 
   3.8022855072631674`*^9}, {3.8022863124795194`*^9, 3.802286317301363*^9}, {
   3.802299530157411*^9, 3.8022995716277094`*^9}, {3.802301311263026*^9, 
   3.802301328301696*^9}, {3.8023021084399505`*^9, 3.8023021372453165`*^9}, {
   3.8023021970016317`*^9, 3.8023022034928637`*^9}, {3.8023041948615847`*^9, 
   3.8023042012494497`*^9}, {3.8023048130560827`*^9, 
   3.8023048374628477`*^9}, {3.8023078066403637`*^9, 
   3.8023078202470446`*^9}, {3.8023082201221232`*^9, 3.802308257117585*^9}, {
   3.8023083996502686`*^9, 3.8023084083431053`*^9}, {3.8023084685062017`*^9, 
   3.80230847744431*^9}, {3.802396758363549*^9, 3.802396758480236*^9}, {
   3.802399942549632*^9, 3.802399949772826*^9}, {3.80240130558005*^9, 
   3.8024013059147725`*^9}, {3.8024013950181885`*^9, 
   3.8024014034218955`*^9}, {3.8024016002481833`*^9, 3.802401600487198*^9}, {
   3.80244027949909*^9, 3.8024402831857224`*^9}, {3.8024727296553793`*^9, 
   3.802472733400488*^9}, {3.802473373301007*^9, 3.802473373358121*^9}, {
   3.802967477569319*^9, 3.802967479113695*^9}, {3.8029679771608706`*^9, 
   3.802967981080007*^9}, {3.80296912357218*^9, 3.8029691278240566`*^9}, {
   3.802970319359497*^9, 3.8029703194635897`*^9}, {3.802973834661152*^9, 
   3.8029738350220966`*^9}, {3.802974084774898*^9, 3.8029740900961375`*^9}, {
   3.8029745901990256`*^9, 3.8029745905640163`*^9}, {3.802974675116275*^9, 
   3.802974675524158*^9}, {3.802976772246581*^9, 3.802976784546658*^9}, {
   3.802982413240527*^9, 3.8029824137940683`*^9}, {3.8029838328951683`*^9, 
   3.8029839015199986`*^9}, {3.8029841504226356`*^9, 
   3.8029842001373396`*^9}, {3.802984264054482*^9, 3.802984264504074*^9}, {
   3.802987423069471*^9, 3.802987435655458*^9}, {3.80298757580832*^9, 
   3.802987579306053*^9}, {3.8029991822875986`*^9, 3.8029992237350187`*^9}, {
   3.8030514345676165`*^9, 3.8030514386725683`*^9}, {3.8030916130396347`*^9, 
   3.8030916131243176`*^9}},
 CellLabel->"In[30]:=",ExpressionUUID->"e65b6191-864b-4f9a-bf41-1a27cb9ce5bb"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxE13c41t//OHB77713qGSV0byfqZSUJClSNoU0kJFEZSRkvI0oRGTHfdvr
flIKZSuSrOy9R4mf73X9rk/3P/f1uM7rdc55ntcZzyNpecvAhoqCgkKFloLi
//4P/nCZ3NragxT//9dV+npW588/34ttWoxc+ee8i/IbctP/LNPyg0W/+59Z
arUUkwr+uTeX4w7c+GffR9krPm0K//NTfofPqc92/89iH+RTnE12/c9/Za7z
HlHa+T9rHrnUtHvXP9+9pB0guOOfx57KrC8J/XPbTH9PFt0/p5UYvxHslf+f
9c7o7l0O/udAmwNTgwH//N57Z2rLo3/WzKfnz3b/Zym+D78trf95pe9QTcvB
f05wVjyfPSH3P2s83Zk7N/zPLQkyzGoD/0zZIFRb2fnP1hL0+5s//POuxj6J
hYR/fj/Y/UA97p9N1752e0b9c4j0l/+og/95zqOEgdfjn4tkw+c0LvzzuUPB
Z730/nnsfEAm6vyz4IMH1jrwz17tN7pM9vwz77i1WqL8P+dumkX8kv7nvp1G
ZxyF/lnLRwsf0P/zj6jDojVU/+ySpelJtyn7P7NU7+08vf7Pqd8U9z1f+ucj
UzvD22f/+Rvljhn+yX++xS+hazryzwx7hNOTBmTRqdl40cLIA5K0+GiHe2Tx
stJQj8lhD9h/mdNyZ5csnnju9PGCjAfYP6YXITbJoui5xy9OLLhD4/fF5+/L
ZbGlKZuwM9QdRJh5vZKLZHEyYbGK0dkdHA+pX/fNl0XmWweOTFxyB5ZEdyC8
lcUz7HWHsiTd4Yz137myCFn8cu7X/j2FbtAwQ2dAvCGLH1oE96n03IOP1EI8
r/ll8WPiQ24qIVeo2gOx3s47ULgsxX+n9x3os/l8z9VpB47uKvzjYHEHKBKM
Ljre2IGk+I+3c4/fAS22m1wmZjtQ98G4yV7mO/Bx5kWwmu4O9AYlpcOxt6Hx
3aLPlNQOzKVx5Za9fgt6VN7eMGmTwfHhiw4lYw7w94bqqfONMkix1B5WnecA
YsmVsqfqZJCLyqCowd0BzLk6fqlVyeAhMT3KnwwO8GuB4hpnpgz6GmnHUO60
hwmSiUGdrwz+Suvj0Ay/DsxTw8pkLxk8s6FLN25+HRRk7rAXuclg4fmSPy+U
r4PTfwFfUm7K4JONsJE/zXaw4FKg/dBYBuUMtCrIbHawrsZ2UF1FBs3/vrE7
GWwD7vaplY8VZDDezOCphpkNrCUcglY5Geyr3sqUU7WBFXqHE45iMnje32SG
vssaXA9R1ZUKyuCzMXqOtUxrWLr94jQ9rwzWni5UGXtgDc6pyo2GHDL4N9vy
Qpe+NSx8/3QumVkGNdg5XOukreEOm1nbLJ0Mnr20OiJCYQ1zWiuGh6lksFgu
V8FoyApmsmRMutak8WmdcEldthVMPvC1ZhuRRgWm1aacw1ZgTxQYvTIgjTHd
OTyjklYwMfLuRkaPNFJlWZtI0FnB2Llep+Pt0tiu2zYc0WQJQ5IHPTxRGl1C
cjbczCzhZ+1SyEicNJZzWO/S8rUA09/POPZFS6PMgNDt+zYW0KMoHekbLo1h
+a2FBToW0B1zPlYkUBrNDQhH5bgswPjLmJD9Y2lskFrxN18xhy4Kn1fF3tKo
upj95UW3OVxS45eg9ZTGuPdWXO1V5vDtRm6ygas0sur02a3nmMPFhBM7km5L
4+M9NXF8RHPoaOt5O+0gjeucqY17i8yh7SBzTqClNI502+912n6/mfV6cdU5
aaxwXNkcbDIHPa2t/Sy60rjv/HcVinZzaLoXXWGsLY2ZahXWop3m8KXvQ/XS
oe3x2fRtuNRnDnX5kl927ZLGW2Gs0V9mzeHkSIme+47t+l3m6sYXzeGjkH5r
rYQ0mhq3/6FbM4cPj72/mfNLo47UC4ujFBZQffFHfzSNNEoWyOwp4rCAtdTY
Be8tKfTia9JU4LUAxZWLNHa/pbDT3e14sqAFWGtz851blkLlHxL6AmIWEBfd
IqcxJ4VBhxuuhEpZQMtIyH7xSSkcTXS2o5GzADoNXV36ESnUohJ19txtAYcC
GK7O9kuhKO2mWaOBBdztrHXq/CGFR0/2cg0EWUC63GMf8jcptH1aVbtUYwG9
bhDxtnW7/s8J7gx/LEBXoLzQ7ZMUfjpn1qvkYAkyxnkb/CQpPHu5P8Nb1wpM
Mm6yUeRK4e04NI14bAVh67skxtKlMLoniT2t3Ao2XqQeK0mQwl5zC9fG3dbw
tTsu6HKQFFrdGAQRFhtg2X35JfhJ4YOsmkWl4zagdZ83V95HCpOnk9OOedlA
rnBY65qrFE7csWJxmLKBIYezv/pvSyFbwTGyt4wtCFUwLdc5SKHqivTdCFNb
8Df1E3hhIYX3PYc6S7/YQkW21i5fUylMrPgQ1EizvX43tg7euCSF7zffHB44
ZAfyZyvPnjeQwjHwm1tysYNrrzzN9p+VQsMPBy4em7GD/6Y17kieksIv70O+
v3W6Dg2Hlx8xHpNC7ff9V1lmr4NG762075rb41vjb/t19gY4Ke4pqd4rhd7V
3yf237aHN94T9RmKUriMCrcS5uyBQ9xm2kNmuz1ym5vdvAOMmZnsE+KQwoZK
safrCzdBLI9fm4pZCo9X3mG95uwEhhRfL03QSmFVxYfwmkUnqE46d7/sjyRG
ltvHPVu6BXEDx2tMRiXxnemPr2x/bkOLClWH1qAkOvTQCBw9eAfoHpGHd/2U
RDlTRRPn+3fgrtQBxj9tkph0xbe3888dSL+7KvSrURKv/siUYDp0F3prChQ+
10mi4JUOy0Ned4GH++4R0ntJ/Nr9941TxV3QtVLSj6+SxPtbhHOctM7Q/26N
trtUEs3+7vI57u0MLhvV5QKF2/X94c13W3WGl1GGctFZknhldZKrd9wFZj55
bIbFSqLUbMy3zKZ7EK7wIdv/riTW985ePR7rCbIeIZa1NyUxr6c71I3zPpTV
GgnQ3Nh2dy05M+g+DF4bf+xrJonZ3+IlOR94wb5wtiteZyTRuenk8E8Lb6j7
2clRflIS735R5eP84Q1Xd73+uK4licYNoiePGz6EhXv2XppHJPFgHYO7W+ND
8H+/V9VtvySK/fIwvCjtA0Icf0cL90miqOXs1IyZD+Safny1pCSJIgPWfoEv
fUAr4/mFvbu337cJe5Mz7AOdy5cZ78pKYm95SuKMji84akmR8yQl0ZerOE4p
1xconk+6zIpI4v4bDVG3uR6BvLx3vyO3JKbzzT9b6H4EniYpxXYU2+N154j7
isMTECVP21ztlsBe2e/6myEBYBX4qOZUqASOKwomDY+HQN2PQvvEpxLomL00
9+xiKCgqjXOtPJHAzp0tR1WrQ+H313NWKfclMFsm4Jd37HMIkxal2bwugVoh
ntzBKWFQUVV8gnRMAkUejxntMIgAKa7JaUaCBLYeNXq4FhABATZi0eYHJDCc
4sPbz5URYMDiN8KqIoEM3olrd3ZGwpixQcB1MQlcdDeKq6L4D+QnvocfXBDH
46UrWRsBUbAYBoNjY+IonT6qIp0fBVUab1Wj+8SROqarWKc7Cgz9XNrnvohj
tUvZ+2iFaPCRYOdNeyuOB5S9fyi3RkOX0fFYjqviqPqWltlGKBaevs9NGP4k
hscfdrU41MVBzWsL1rpKMSR/sW0+8jcONh7yeGWSxFBNaLmRUzUenA55Gt9K
FMOdhZyfi+PjwaDwBM/6PTHknTxdS33rJTyLXHv0w1EMwzS/v/+W8hI+3Mma
r7QUQ2Z/u5qMrpegrsjZ/EhPDCkln5DPab0Cobc9T1lkxXDSqLI0njcBLvg9
X5sRFkPbN7olTqcTINhKy66VUwwH578XHX2YAJvi6cej/4piZ/AKaXQsATQ2
TUjui6Ko3/2EWCaaCLd7WKWujItioxx3fohBImSWYdjhPlE86vr6nXlAIvyK
dd4S/yqKVTVKuXsrEkHETdaJ6rMoqnNUZdPNJ4LRxe89QyiKtx9mToyLJcHz
vcG6n4pE8eLLgxLKl5KgjpNQlpEtigdKv1y89zwJKOfm5YOTRVH829VnFZ+S
4EDTmxinWFGkWZxBKorXkB3E5Lr3iSh+UeBUeH77NQxfr/zF6ymKRJ1ki6/p
r0Hs5G2DtVuiGGO7N0Z44DWEUX9TqrwiihZJF6nSzyeDq9frCe29ojjDHdeF
qimQa2JovHOnKLYr72ajd0iBMU36OmZxUSSdrTh2NiUFTJYdU1uYRNEroDf3
O/cbOOKkaW4yKIJsf6T8FpbegNuZyaZDXSK4xF9QprknFfJ2JRwWbxLB7/tO
zHnbpILUKLXwUKkIpjjZXWH+lgpXaouefnwnggHP1sLOs6XBfyk31tJTRdAx
/enHGO00aPIVsXsWL4IDy9yDykFpQG/e/PVmuMj2ebkzRfxnGsCRR8f1A0Rw
Sodgzab8FjxF1EiqD0RwYtFwx99Hb2GqKy5s9boIrp70edstnw4t5211fUEE
2ee+ZUW5ZMBHeRUqTg0RzEl8+n61OgPKt/6UJO0RQcNzh34Ys2dCWk64LAqJ
4Ivc10ximZngxVhJubUkjDI3HW+k9WXB3f6AktBJYfwgIu7LsCcb7IoNbokN
CqP9l9ZYe89sMLAZ6zncLIx5uzXqFHlzQL6au8QrQxgPTFDKFZ/OBbHYXieW
JGH8/qLgiGBsLnDfytjxMloYfXTsjO4P5wKDtkvP7hBhlFsXdPqp+g42RQiR
5Y+FsTb9ix/B5x0sLTKe1vUURo9E79qgL+9gvKGD4sdtYdRoMH0iTJkHva8T
i+3thDH/+O/UeeE86HC3d/p9VRh3kmM+fVLPg4ZzajuCDIUxab/a+KvzeUCW
pegR1BVG4YI2JhfHPMjsiNLZrymMLBmsehLJeeCrXC3jziWM0xGPO9xZ8+Ee
ffAPekZhtGOVXNGTzwfHXqOImC0h7Auo4t9xLB8uB09tFU0JYZPXukmrez4o
jvH/WP4ohPm2twZ2DuWDDHkw3K9SCHcOsFBTbOWDYHTOKd4CIUy5kinzTZAI
NMePFe17LYRR+sN2j84RoTvRKdz5vhB6HLgy011GhJZ7+09R3xXCuYI19vyv
RKg9S7MVcV0IHZSiVQLmiFAm01woZSaEwxl7L1xlJkHenxeOxItCaCrT6rJX
lgRpbdbSWmeEsD/s0+PdO0kQn6HU3aolhM07GBymd5PA/1LtyXklIcw+93T/
HRUSeCmGbfrICuHLoXqJvftIcIf2SiGHqBAGeTAxLKuTwJQ0J6XMJITXU559
cz9EAlV2kU2nIUGUXg1x9jlJgmjRve17uwWRnMqf9OA0CdZ3n05faxZEU8PX
XzzPkgBPuRs8KhfEqPyCHa4XSHDuUUdaVIQg0jv+6LxhRgJi2OR9k0BBfCNk
Q2NnSQK+RKrz4t6CeLR+RtnahgS95cp/0m8IoqcsVdA1BxJoNZxsuWkmiLxf
nxVdcSJBate1VNWLgkh6zPvr8h0SMIy6eq6eFkR91UR2IxcSOC4Hn6sAQZzq
lz90wY0ELdRvZHzVBfHpc+J1fU8S7OUqXz+hIIhn1tuXVNy345Foa2KSEkQL
kurOtu36fyuOpzTzC6LbzfCrd7f7c+0whcd/rIIYIjcXzmVKgmpdfj1jakFM
HtD7SDQgQeD1E2uDMwLYeJFFaZFAgql7po1vhwRwkN3BKnJ7PM/5OSc7dgvg
Wn19zN492/Emvz6zUiuA0kcCKFyEtuP58TeJ8ZXA/8XbtrREBIYJnntNEQIY
2m9OFzVJBMe13bqRgQKYGkc+oDZIhH28JssiLgLYwvYgxbWZCLHSdxoGbgjg
aN2PTt6PRPijEpiYZiaAfx4dYCmqIEKNXpGOsq4Ayq6uuqxkEEH2aqPYMgjg
oXyjjOgkIjx1GFosVRfA8w6FP9VjiDDl8afOW0EAbXfwcHWGEEE/kCvhmJQA
3u+7q+32hAgF0TudGQQEMOJFqyf/fSLwp8KpRlYBTLug/K74DhE8SZdEI6gF
8KSe24CSMxF6q50WjNb58YP3rR5KdyJotfh9Ep7lx6Pv7DrbvYiQ2vvyZf8Q
P5L7zNpSfbfj/dOgbd/Cj2WgX6fzbDuefXLxD97yYx6VSkF4AhEE0vuOvbnI
j/H+C88ka4kg9qHhb6wuP9a9t1/pqSeCTH9hcchRflyi+GUe20QEZYHg3W57
+FH3frsaexcR1Pe5DTtI86N7iW5SQw8RDulbJpoL8uOb5fdM/gNEOBmoyX2a
lh83bhX0bUwQ4cwb6cYjf/hwZ47C6ZJZIhggW8DeeT40nHhT4Lz9vS73rIP8
KB/6yomKK60T4dra0G+Rn3y4oiz6qISVBNY8LQWc7Xz44sMzpzppEtgrlzvR
1fPhgcu/Tbr2k+De9fDB2QI+fPiwc+/a9nzzeuL1ciiTDyW4tSUYvEjwKMnO
6HsSH75PK2ARiCBBaNfhhppgPmRoCh/WqNpe/6cm8qOs+TBM5EyMG18BfJU/
5nuQhw9TSvH3yscC6D6ueFCZiQ9PnVUapftZAP3mgssyFHw40f+qnW+xAKZi
Z6+zTfGiIsP9bHXxQlgo6JaiHuTFlvjxWG21Qlhrqe1Z7eTFu0qX/Yx0C2Fz
Ki96qpEXed9/vGNrUQg0jC/1B97zYpGR2rV7boXAtCOA6VspL6ZLB2t9f1EI
HEfvfmh4x4uqgqlaLVgIIh6nNAviefEUTadWFVsR7BtfEg9w5kXn7gPH4jKL
4ABt//f7N3hxs/nCsfDWIgDJz5G3zXjxaa3jscC1Ijhj/JreRJcXE/MSjt3T
Lgar+rOzCtK82OhPddxgsBgiMtKq2tp4UH5vw3EmoVIwrMpAl3oefFlrwGRx
pBT42rNr+JAHOS7/aC62LIX4DeJHkxweXPKaMrHJKoU358hNgwE8+J02Tv6Z
ShkUL3f2LhziwZaivKqYXeXgyfSj/7+9PDgd7Hy+VKccDon3Dqrv4kE2K/Wh
7uvl2/vf0IgnPw/qsVcwir0th4b4uRmqBW6ss/tk+Ea6AoLzFufejHHj6OGg
0VqtCtCrXVnQ7uNGep6znqMWFdA+s7ES9IUbT2Bb4q6kCug5yrjF9ZYbqwV6
J/JEKiHBiIWy8BU3/ppJetB2sBIsHNipL/3HjVsfrDiWTCpBxoeLdj2IG0Xi
ZVN4PSth5D9e+nhfbjx4Z1xN40UlpGcIMB5250bTk9l1l0sqwb5KmLnPiXs7
CfwdMU+sBIV2MVZfG248rmZWkPC2EmZHJdmlTblxTeHDV92XlUDckOGsNeDG
HJmdq2thleDCKc9tp8ONFiKhAml+lbB2QJE/S50bG5gvX6G4VQlUoQfE93Jy
48uJyf6Co5XwIfmw5Fd6bjw/qE9lqV4J/sUg7bbJhbTdhdLsuyuBeUBbrnyS
C2/WP7S9wVMJPPsuKB37yIWEdO4p0dEK+HbKSGW4ggsXE91ZP/+ogBdXjfcG
kLgwPeanontLBYgFmGl8TuJCroC3d9pKK0Cu24Fw4T4XDtocXPUProDLsuVm
u+5w4R4v329HfCog8C6TD6UdF7pEfCpcca6AkirjpC5TLqxIZ43KtauAMaYM
fGew3T/yBRfbKxUgcGmt3/8UF/pT/PJY564AnZSTlNeObL+vG71K+6kcMg+O
HGXZxYWnBjYWxPaUQ3eAmuUvcS5UVMi7vbu/DJg7njwq4+VCITerGY3IMnB0
lH5/nZILZ1gaxvXXS0Hxlfnx2i5OjNaM6X9UWwLXxt9Zv2ziRK/Hp689dy+B
52pbT5w/cKJ9098f8btLYK7xVa1kHicetrbuLAgvhvzNbm3vAE7sea7SNHK1
CAZP77K7+IATG7qHdBc5ioArxiNAwZkT83fE1m+9L4S7SgJ13de26y/f/CCw
qxCS79uN5RtyoiUdUWvH9n7R/qmI4elpTjx33gZVwgpgn/lFHQ11TpQe/Vx+
emV7f8t+c4NNgRPpdi5o+GaSIGpt8emwJCeezqoQbLhFgpWwiIZIVk5senf+
55XfRCiubtadG+LAppL71g/ZiTDGKu74qZsDuQ5qa9d15IOAiVNwQgsHGlRy
yHPG5YP7AkvjmQoObK5OnUyWyYcD0qf1MiI58GtD892P+/PA/tYLJ5+nHCgX
ty9DbPMdxJePhV56yIF5CfWOeYHvYONCQDOtAwcWv11cbH+VCwpJ32Z7zDlQ
LTuw2EY+F0yndnAUGHEgMU/0/ioxByqffNC31OLAktKTVMJ12TDTwn1nvyYH
QlVPbbZBNoiJWoVzKHJs34/uPD3yMwv0bhDzR6U58OAnurMtdlngXUjZViXI
gaWf4zksFzIhl/L8QhQ7B6q3KHcsemVC39kkrpu0HLhxOSp2US0TxPf12QSu
sKOxr7SadVwm+Hx5kKY+yI7FGfmtHZuZYGJ0xo3QzI7ZhluX/jPNgr39QqdO
VbDj260zvRfKsmBksXjcOJodYy+OTbS5ZsNZ4QWFB6fZ0ZlSnKZ1KgdkU/Gv
nwY73sp2DArbztcplJ43hcqwo/WlMg799Fwo0FK4nbTJhno5F0Wbrd6BkL0t
6T2RDWMVtONtb+Zt5+f7nnxJZEMuqpvXtF/mQeMD6otfg9kwrDNSUvZzHviE
J62M2LJh4KOBt8Pb+bOJ8K1PsxfYkPoyg0PtpXzYl3o4dg3Y0HuPkmKqfz6M
lnTvZxJmw3tdXgXW2/kzamUwcTOw4WJOittxbiLEfXH7IbzMik6PGw7IaBHB
xUg7W2aQFccvz/+l3s4v9Pp5HuxpZkVrRYHqX4lEkLf/dVa9ghVPqjw/05tO
BMqlfDFCBitWs3kkPfXbzrcf+MyejGbF/VOWS/sst/MX+nOo/5gVC+vPnOo/
QoTQcNFw49usqPRW/eUzYSLYCU9ZWF5lxcwnEnPqa/kgpPSU2kWDFV8SlmJC
8vPB1+i9dswkC/oXxo8e2J6PJv3h/EldLLgV4XdwhGI7XnvzsfRaFvS8fet5
+M88GHvw92lZIgve2n1MYyw6D/RSNRp/XmBB49cT/lGMeSCvRJcwAiyY9je9
0Hf7/kNV2uE0u4cFE0q8rnb5vYPCL3c4KBlY8ImiTI7fWi6EGsEA4zIz3htf
NezJz4Xr/WxErkFmdHzzeUPVIRdElrIuyFQw42Uh5zP9P3Ng5YGnzJ4MZtT7
qr2kHpMDzfQ6y2rRzAhhQi9D9HMgPZz/45HHzKiqO3NsiDEHHgmPRJ+8zYwi
xbkxc9U5YJpaYKd/lRlrO8p2Juu8A3Wlx5rGp5lRw+PXz4zreTCuJdFtL8OM
k9Gzt67M5UPCwYDRn+zMyN7noB/xgQiG+2aW9P8w4W65MeX62O37wY4Kdo02
JrQq7p9XP1oIsQyXT1D7MGFbZ6szV0QJ6FGSDe45MOGMuJ6hjm0p0PzeYT5u
xIRM1xv2+Rwog1uTi57Ne5jwzFrN8vRgOWg3Pc+L/8GItQIFbvV7ybDxcaWS
7RMj3lEWUKCgQSCSr372JTKit6HRS2EnBNH83SN2Txkx6WWbl4FWNbRlRCx2
uzAiETmmb2ZXQ2DyOoWeOSPikN7Vp3w1cCTenK1alxGbGEIa3/jUwFLkJ+F9
GozYo/D5ME7UQGaw4s63Uozoet0hdXmoBsz9otSF2Bhx3s9DlyKjBvi8N46F
rDOgU0rAPNPNGvh8z+o8xTADjmJUDK9KDfjcarjm3MKAFr0phyWWq0H9uorj
SDkD9v3J/7WrtBqSjbf8v0QwYJd6kxIcrYbLBrb/EbwZ0NCw5+tp2mpg0218
TbzBgG13Ju5frEfwOBRfEQsMWJdNV2d/HkFfXGPBeoYeb5/wxl3vq4BOIGGr
8zs93vCJYwHdKqjgoGXVraVH6/KiyxfbK0GOql1O5SU96qvMzj38VQGbQ05X
/+rQo4qoueRX6nIo+PnV/rYaPe6+7HVz4lkZ2H875P5Lgh6lI2NLt7jLQKI5
xc+IhR5FmwpoeV+WwtdPTJH1q3TIydh6fpdMKQThnaRDv+hQyZXkZV1QAlDa
lfOuiQ47/6z/jnUugZV8QrlUGR0+fAQejaolkJ2ZVheVSodyjAGrlAvFYJnC
+o0hnA6bnje6qucXg8BLl1/3vejQlY9nyf52MTwJ0dq0uECH76Vfz7XPFMGV
2717FSnp8NqR8vHUyUIwejLNRDlNiyezIhwYsgtBP3ZjoL2LFvcI2E/bOxbC
cRQK88ijxdV5gXml6QJQ5Lg09cGMFiNT762VzpBAXsb2fYwuLXpw6XmKvCOB
tKZrnL0GLVo83LHhvX3eCZhHnuJgp0Ul446tY9v3dy6XZPFfv2mQ92OWb1oe
EVgD81cKR2jwr+pjasbt/Ywqr/nNlSoa/MyiSt80nw8b73vvK2bSYJ4H41Nl
Yj6sdk4bUEbT4MkYm9Q463xYmNzY2eFLg4KRsv4XVvJgaouZ8u1NGhwJHbVl
CcyDEW7hLg9jGiQFpZ+sFcyDfrld786coMFNlnb9DaN38PXcqasLIjRI2PjW
3vdqe/3PIu/T+9SoVDrSd7M0DZKpW6au2FFjQ9711309qfCKv++94gVqvJU+
YXmeIhUiCH/vdOyixtyYmeF9J1Pg/vP9TeLdVKg1NdW5mpEI91JOpS7UUmHw
jzmTH3Ov4HbxJa/afCrEhqWfVRovwf6z7YXYV1S4XLpmnuwdB9Z9rrscnlKh
XMbGL7/aWLi2+ITyiCsVXomlsLvBEgPG9P91cVhQYVoAzcSZC1FgKJzy7tcZ
Kmw+vOf7t/VI0FMi+hdpUiG1D33P0bpIOHWs+upTGSrcXzPQmx0dCccutewz
5aDCmzQVA/w2kaD5cGaQcowSuwJvj05TRoJk8y7C2RhKzAr/vvDiYAQsOaWs
/lqmwPMpWYwLuWFg5zJ4jfMXBbYMvSXl+YRBt4fkxyMtFHhO9s3VWwZhUP0k
8b8XmRSYZLDf6vvkc9gX1PvnYwwFvvqqUmz0/DmkPxe1WnqyXX55F3OH6nMI
jYtXOWe2XX5NmNTkEQqUSd2xXmco8MUAN/0Z0VBwSRWkyNxPgbHWLFfqMQTG
Mi/bdcpSYPwozTtt6xC4khfTRMOzXW7/l+oDfQg0FX5TU6WkQMapcT5D2mfw
+N7uA+SeLfLJ9tGDi01+YO+bwSBUvEV+UjZsHhHrA/rBcp0u4Vvkfcc+MVt9
uAfqMampzQ5b5Gop/yytd9dBNFnaZZf2Fjno7/Sf9ZwjMFEsztn/e5Ps81jn
S8rMXXzyi19X13qTLLhjj8FX/VAsOcBAltT4S170fM60SpGMCSf8Q7w4/5L3
UOoffa6Xgn76NKadkxtkswAOd7mXb9DAlmI9OGmD/DkyfPiSxlucCl9TXWPc
IL/OjsSSm9koMT6W1tTzmxzkvPZ6fWcBBsTUh95/tEb+oc7qpUtClPVx/5Zp
vEZukG1RFJatxg/X5cS6ldfI5XyRAxOx1Uh1wC9Hs2+V/GJF4GSQdw169cCX
5YOrZOMiGa56nQ94V7KE8fbyMpns8qPlsHEdcjLZnU/8sky+2mqZEtJfh3kL
vC+aUpbJG3smXH/a1eP0e2f5PQbL5EOja0IP7jXgdVulkxO5S+RSYz6bisgv
eC0r7Yn19UWycWK6l6hdC/6NvPglkrBITj87ZVOb2YIvvWh43vMtklf/KJ27
OdOCB2xIVxamF8g6mc6avKqt+P2sZYpk7QI59nKxZKVrK7qrc07qv1wgj9L9
YbIpbUU+cVT1cV4gaxYeWWL524qF9Lc8351eICfkkBRun21DwznRml7JBbLl
Csva/Pc2XOz6wsi2Pk+WJdi+d7Ztx4jq++cPt8yTJwPIocsL7dgc8b0/3nue
7Cp4d8c681c8rRa1dfnHHPnpoU4DiiOdOC56/GQgcY581k9Z7FFDJwbSLYYW
P50jczY9Hae+1IW1nfpifJpz5HizQz70t7+jz5KAZ9rOWfK7R69z2JJ/YFXt
PUbarhmy8+ff7mGKPfgnuiPWyn+GrMljeJyrvAfv7Q8rlvg1Ta5JpfvB2/ET
Hbzpl+NeTpEdh9SesFH3YzDvjlor/Skyac/W1bTj/ZidrRWlQDNF/n2vTuOI
fz82HjO3WS6eJGthOOe3T/040/1ArcphkixAa8OwzDaA7HfjaQPEJ8mMs+/c
Mx0HUJmx9Ou59gny767fY2YNA3hXY8l14MAE+Wd2WH2D3yB6zPWvyH0fJdts
jOrecx7GuIDNj3PBo+RLI6oVu1uHsUxMJKYURsk6LQ8UBhRHcOPMJQ3d9BHy
7jfcrGcmRtAno9HNyW2YPKtLaJK0GMPXMHlSY/cwuV8t6Ehn1RjWdDIIUPQN
kVvFv+YGi4wjDd3xknDtITJp0f75auc4BliWrRXw/iK7x0frN+pNYvp6Z92D
+kHyDb8BfJQ9iXVhy7HaDwbJV24pqGgyTeG4HPcNdpVBspWO7pck5ylkIivv
7xoaIIdE728OnZrCUOG3Hn9I/WTVzwvd2i0zuCtDbvnxmx4yIU7V44fuPDp2
WkbxsvSQOzDD0yBwHnNpE9TeOv8gXx+V8Kr/MI8qljz3GrS6yRH72B8WH15A
TWHKVY6BTvJI0+STSKVF9NQ5FJN8qpPsuWzpz+S4iBVubhr78r6ROUS6A3zT
F5HQMe126eFX8v4bdUG3JJfQh2qnwPhIB7npOSF45OoS1ihbl3jqdZAti4pC
rsYtIY1Z4mWWonbyas+e5x3fllA7pHvtlWg7OZg6NUyXexmzo4xG9gS2kTMY
OeIi9JaRO6GtvXKhlewWZxjwp3wZPdP0qs9ebSVPVd88x6a9gv25Dbk/P7WQ
rcb9+SVbVvBksfbLm6otZAbF+Mbzqyt45aEf95/9zeTrxv6ajWUrKB/2YEaI
vYlc/+ROyinvFVxJcq0/MPSFbHL8u2PSsxX8kH/zjUnpZ3LAtxNOD0VWMbzG
5qFnaAO54Drx1rWcVbzWftUkzqqeHO6RQUpkW0OFoYtqZZp12/09V3WxbhXX
l85ydLN+IuOLpTrmR6v4kVZ7cn2wlizY6NgxrLKK//Ed+ShY8oFMd43vcqvL
ClrIqb/eH/KevDBD/lFRvIyKmopexpY15N6HN8zSfy/hxinZSx4a1eSKVyLG
YeJLWG8spvqCBcm/W3lci7QWUeGrgtDd95Xk/XSs4T02C/hpRaQl/2Y5Wfm/
i1qBvXNoKcDqP89fSj6STE0XZDqDG/v/HlSpKSKLiJgGUG9MYMyV6fnbjgXk
jUHzgUW7UUT/Eb6Jkftkhj9PY06de40KZEUetQlLgkNj0flVtwBYSQ6Ken49
gFBuYQPHmXOA4zPN4inmKAJboKLRCZEySDt+XPi0ZQLB70T0z4uv3oNYX/Xr
1J4UAk9UooYiYwuMxQ+oyQamE2zpXXzyj30DchDHu8jZPMJcM+VFi/EBkLkh
sX7hBIkws2w5yRwzDEEnlY/xxBcSpoU/+BYdH4fZHRDSMVdMkF883FycPwWG
NPqd/2mXEd5ULMiKM85B2aCZ5MWXFYTCh9q2lqXzIF59y4F3oYogZiFmnvN1
AWqayd0TKUjoU5A9HkBchOWqT1sNTdWExLU98hbPl0A+t1kma72GMCLApmNl
sgwmrzp1nsl8IKwFWNe68a9ASHCfk8O5WgLLatnR4I4VwPujkbqeHwn/Dd3i
uGy2Cgv2syW7Uz8RHhg20CanrsIOk9WfzC11BNsPMn8mJ1fhss4W1dTveoJp
raDv0NIqBGnSy3/Z8ZmgtDfnIa31KlTKsZ/N1v9CoHwN3rLtKzDHx383+H4j
odLZv8fOfAWk6MRjHNOaCKan4u9MvVyBi8uyFWdamwkbInl0d76vwPG7Mbf5
vFsIbK+MKM7wrMLPG8KP/blbCbGuhzX3B63APYvEqJX0VoKUnsxtWYoV4DCW
Trc90kbIkmVO5763DHXff3190t9GKMi4OBuwexl8Td5QpzxqJ4ykfD+2f3IJ
Fq7sMOv72EE4EzswFW+/BO3X5Pgun+sk8PnOH7G4sQjR1ruf6Jj3ELIMOH9N
2s6D3vBkvh3VT8LPM1Ear2Tngc42u8/vzU8Cx0nBYL2ROXCz23OwZqyXcO+g
pFq+zRwoFPJ7vCrpJ/iesmSbrpsBthJBZb6jvwgf9HT2uQlOgv3auvaOiF+E
1gbVk42FE/BRs/vqvl+/CL3aIibSBhPgXRr3zMBviLB+ZPZhc9D2fCkTHg2t
HybsUYr6LLcxCi2Vogn0BmOEaPYBy67eIVDY/FvAlzJGSHnW4Kp4fwgCj/R+
3rE0RsinLwh8wj8ER8kJ68eixwn1W/65yvq/IGHLm+PC6Djh2/3b1f5Tg/Cb
YCZnqTlB+LVq3NETOAhEFL/o0z1B+Dur8DuwegDYKCkcn++eJDA78rH2XR0A
+6P9jxK8Jgmf/hjj6O9++OiLL3IaJwnFTkVNMoX9IFWTlFchNkVIH+D6aXGr
H7ypfD99vjVFeGF4azJhZz90a1n0duMUgft5zGLxpz6IfC/Jsm45TegwYdyT
ndcLLEe0Bl/lThOmVgIt3BV74UmJZYnW72kCbSRD9PHsn3AvJ8U6OHyGsO8z
/VbP2x64HLOjUhxnCf8dpGtlTeyGMYYUnUHaOUJupx9tt0g37NAmFRTsniN8
cKY9kBb3HRKwPcjYbY6wmEWTciS6C54X8miksM0TDEWoXW+FfIMvCzLJrvvm
CfYljzIOMn8DBmU11lMm84THhlS99E+/gk/mxV9TqfOEwmDKk0lPOqBi1EaP
/Hme0CTve9+RqgPWZe6Vhs/PE4Y/UORp+rSDuqW/jDX/AuG3uc8QzWYb3E2M
fq5+eIHA/XdLoPV+G+T2pP1msFogUHDG7bgs0AaTgsU2PwK3ywWOuKV9bwX5
S59acnIXCDLig3VLca1g/V/nQZ+OBYKmrL/QMdNWuPhUYKzeYZHgp8Vn4WXR
AhEf5S+8DF8kxOiUERukWqCJen+VU/Eiweh1BYNqXTNoexv/x029REitPHPO
obEJNJ3jYPtcIxxacez52fkFhK+KvJirWybctMtZqZmqgwFlidP8smuEYEtD
TuXiarAN2zrIe26NkJz+WG7gWDVMzPbu4XZfI5TPEA9HtCAs5L7iZG9YI3Qt
S3WMtZOBao/wdzqndUKS7Cu/O/srQGYn3/WVwt8EmcDwsUc0hZAeuGy81Pub
cIlnjmdYtAAUxjp0F+j/EAKT9I6e1CBB3smCw3PKfwjlCjk3M/SJsO9tpNKM
8R/CVAlzHLN9PpTQOUtOPfpDYJHLXNMMyYNDtgbcE1l/CCtv5eNV3r2DEzs4
V4f//iFkXWmdyevKBltJFv+vJ/4Sone5HM71fg0TPpNu7U5/Ca5PTo3e5E4C
p/6GG60xfwlpFfulrui/gnuJT882jv8lSMg8qzdOiYEAUXre2pBNAt3IFeXc
iEBgeTBC975ok2B6Nqcze/gRhPXUrmHfJiHjxt+/Rnc8ITb+SU+FyhYh+pBA
d/DEWRD5Y9VUZrJFGE69fvnD3WuYZHIMSx5vEfxM3D6RVu6iTJkUsSh7i/D8
WYd7kb43pgtSvSn4ukXQ6xWIMv36BBU8BqKIm1uE9nufpq8+CsLLjv3Hurgp
IGHgmsA4XQgKibQcuiRPAQ/L9u9OdQjBns9ktW+HKMAykueIRUsIJtx/p3jx
PAVoOc7qi6qFovnuRLkOGwqQPtFg9f1FKA4FeQu2hVLAyMrDp+etnmPaASeu
8ykUUN9s8pK17jlen7jK3FJMARc74jqt+cJwSufw38Z+ClDPcZ2QuB+Gywwb
/fWqlLBxbTfHi+PhePfVMY5xbUoY2elVyHwvHOdUnhEYrlBC69IXE++34Thh
IpSg/ZgS0oKcUq2YIvD6rEWjTQwlRFwkn/52MAKHH2dsPMmiBC8JjrlTNyOw
P1vzyvt2SrhQlH9AsSUCrx31CRocpQTwpepPoozEH18/lVJuUIL8mQt+3Hsj
8bI9+7gEBxXw8L/Z5W8did82jQRAhgq2Bpaa16Ii0TAy4aSZJhVMZ59wdfgU
ia1yI/e8z1DBN7dood61SNSr2JP2ypwKXto42tzTicIv+q5fK1yoIMZ39bIF
ZQyeHq6g6QmkgohXj86cKY3FTx40+/68pAK3UlbQuBOHNcmREftrqcBoXlqO
deAVlizlnyvipYZg5XRPU/NkTImdqX9XRA2Q1HGKATJQYo/6elMDNagqxtX8
Fc7EhOoH8jO91KBSYXZocTUTYydYAhToaYC3a0Kp91028j00LNIVpgFu27yM
9mc5GMn9ctheiQZol1yl6+1yMfTQ7uMZl2jgd4APczd7HrK03nWuc6CBdT2r
uo4HefjUpix59CENLPJq+zVP5iHdb8o2uv9oYKpHXqvBOB+fhOpQyqbTwMbP
+gefsvKRSjpc+UQFDfQz1UxqTubjw+IuM+sWGqjRKDPO3EVEz367quQ1GggM
z1QLySDimsu76WoWWrhZlZyyOUZEV8ZVkQEJWjg3Gcd5W56Et1X974vr0ALv
iWfTBm9JaPvkjebLF7Twes0hVSC1AM/LDxCjDtBBsdke3jdJRWj0ee28yVk6
EGRtbGn5UYQmThzzYuZ0cK/MMfgvXzFaFxCU0v3oYD9vNvWlkGK8fulSk2Ms
HcTU6JIf1xXjzd9ON1Wy6GDt1qRnHnXJ9vz0Z1mppAMT0WfqP4+U4D1IyCpr
oYOShl0LjJ4l6Pmr8PTDX3TA596Qo15Ygg/9G8ePrdDBb7Hz4aeES/HJzuFA
BkZ6mKINe/wlsBQDv2zINQrTw/epJlf9lVKMu3zlTZ8tPUQFNhwxzy7HhD93
j73xoAffW4wqQ4IVmJIQNHg9mB6cjU5JXw+owOyhUomFfHowkPlIf9uyEsm3
BV7R/KUHHqxueShAxqHAr1E7Ixmg/r5p/jmtahzbPb1vJpUBCLP3Mzk9qnG6
iaaDWMIAJZbxKe3vqnGFZx/XoV4GSNfpjrokWoO/i3XzKeYZQKxyPVTQsAa3
TKz0a6kZIVpZMPBHUA3SbHrOPuVjBPY3mr6vqmuQ4XVEqN5ORvDjv+xptlaD
LMcz93AfYoRnvUOXXrTWIOdo9ZdOPUboznxDQ7xdg3xB3x1eWjDCbjfr/Ab2
GhTaM89k4cIID4/JXPuVW417Ss8FOJMZodZFmlN7N6KqqZ2sZhsjyD/6eL/y
PzKqb3nXbgwxQruQ9teZtiqEE7nU/kxMwH3mROD5c5Vo0MriE3uRCd7mHpvh
O1WG98br3SsnmaDFGcpe7y/ABFGdH/wUzKDarrPhYkfCT+frDt/lYYYg1QtH
TkURcc7vZNIXeWb4FW7qI/w+HwXKPlLJHWYG7Xmbmpm5PISZEza+55khXf8W
TY1YHt6Qqv30w4YZqMzng3e9yMUIo+O71D2ZgSRGw9m6lI1lQe+Dw0KZQaxZ
tpJjXw4OVmnNTiQzg2eF9v3hhznIvFh9/kQxM/zIsN1f9jkHTa8g3+8+Zoh/
klZoZZWLm7srk6xUWEDwgGxuUcQ7lDU/RF11ggU85LQdn/W+w3P/ldsImLCA
I9NeXmXePEzaKN3V+IgFGlcN2mks8lCrsahAvYMFQtoizuWu5aE9pTp/+BgL
HKxPzo0Vy8dItUKPyQ0WmCITWR8fz8ehV6QjSTtY4UxO2+dLYfno55RXx+jG
CoyBXKco5YmYm6y02/oZK5R5S72dPEvEb99yQ6oSWeGGqyrdN2cibjIpzgkU
sAKfo5YNviCiLCHHwLmOFT5MUsg+ySOinrNCYWMPK9he6vNW9yai29ssfvl5
VmB4X9k5pkvEOvbMnh5BNjgd5/n07Gg+zh3bSdBQZINpWuPBrYJ8FHRPfx2u
xQahdzQOEh/lo31/mq22Axu0nVqa4tuOhyU/Ze5dBRtcXr2p32+Yh/uGpS4w
tbLBhuWZjAipPLwqmFxoPcwG+19dpAnqf4e5vkmegmzsgLrNdhf436G+wSua
x2bs0JheozjyJAfd/UXsfjqzA4/Pw/7TEjn4uiy+XiOQHQwvHYp4V56NC1Jx
oVN57PCDtmjZfSELhS4JzmvXsoPkz7tvf4Zk4bFnsRdef2cHywIlY62dWehI
5i/6M80OKc+mmN5+yMQGD12W3ZQcMG6ZUcFsnolSws7LmUwcwHdLvFH4eCZ6
VsT17uLhAM5YK+7x/Exsu1rzKVOUA1iq3xoXiWfhzq3xvF1yHPB7fDLx8XZ7
PkmccZnKHDDBpTyi/ycLu47uf7zrAAeMHHRRELuRjYFPAi/uOssBP0I2SkqO
5+DJ57UJO19wQMdEqGu4cR4mKE8HZCRzwJmtPAH3sDxcaeW5szObA+q528uv
fcrDNB7rYzvJHPDhED+Vglo+0sVRjckPc0BZaGLoRw4iXju4qzV9hgM0UqpV
ck4SsajnfJn8GgcUFv/qiNz+3jbir4PlmTkhs19O2GKKiBVY55rOwwlSyzpV
J6VJyGM5d01ejBMSGR0tFE1I6EgtcCpdjhNExUJpeMNJ+OENQUVeZft5SYO7
680kFNG2E0o/wAlGQ3Gq0/wF6DIaSi1/nBOevf210G9WgNK7er/KXeKEyT2u
znWzBfjonZen3ANOKDwQ6xLDXoRHy0rfy9ZzwnnD3ntq50ow9spAdlobJzzg
l9PYGVOCcxsM0bI9nEDsvrUq0leCSYTL12VnOUHIgtKd5lYprvU/PJ+2xgnn
ZE5rrhWVov6jtwdkqbjg8WjE2uRmKVLUrrDI8nLB1E0Zj/bQMrxsK7aSKsYF
Eio393/6VoZ59Np9O+S54OJS4XqZWDkyZNysS1XhgqDizdJc23I0Ox2Vv+Mg
FxR5nvRMzi3HosmKuNTjXDBwOOxA9Eo5soUMPd6hxwV8lN9/Pz1SgbaKLDdT
L3EBKf+ooY1FBVY17zXaYcEFnbVFewccK9DFKsDE1Z4LVlbN90i7V+DO1e5r
tc5cwLmLWc7mcQX+J/bIzsafC3RDzYTGX1Sg/c0W99QsLiAbMVDOf6xACUqZ
B8sFXPAzkPhbta0Cv/7n5nuiigvWykyXXH5WIFSIBQ23cIGqeP7o2mIF8jHf
jN+xwgVpo8ZNFJKV+CUBE123uOC9IE2dlkIl+qryvKll4IY+3dzqJxqVOGVc
nm0jzA1CeVSFDHqVmDzNll8oww0ag9m5p40r8ZKvZSGtIjdc4LmUHmxdiTXp
jFWpwA3B7lnxHPcr0f3Q1ZplHW7IzLwYZeBfiXta8j6euMANtT1bof+FV+Kg
Fc3nKFNuGGTLDPz2shJjVy81D9twwxYYPhJIr0S9Z1ntare4QdR5874JqRKp
xbc6/dy5wfDq/Wbb4kosIRr0fPXlhrO+33OdYyvRSTutf8czbtBK1Qj18ahE
me71Idf/uGF/fdTNEJNK/H7z7HjtK25Qnl48E3ewEo9HLc3b5HGDmFoec8Hf
ChQa0qJO+8oNvz/IPx31rcCPvn07ZCV4IH9I8IleUDmKVQo4yBbygF/yF1e5
kFK0FZQ4f5TMA2579LoWbUoxx1VOw7SeB26WNB/AI6V4SFGdOuInDxg2tW1d
nitBk8QL8X9peUHmd9fToAslGOUb+rnDiBc+nR9+NS1YjD0/o/JnzXmhoseW
omyhCGUOvIphcuCFd3Zjlv6fi5C4kGUFD3kh7sGknPiDIvytR9K58pQXghlu
Bk1e3F4/WWVK9yJ54VHkzFSxYhG2WNX/yXrLC/YZ8/n6/YUogC0DH/N5wXSf
M49oaSGaiXR9GijnhfPkpXvj4YWY5t6Xs1HLCxerqF9/vVuIMx0jkfwtvBD/
+ZFlimkhqqvMeKh288JAF6XMHe1CfBCybHZ2iBd2jvgMH1EuRBZtGoXHa7xQ
TPHwejd1IRomM3MlUPHBJuvmzvTpAozf5ForYeGDE8IPJl07C3BXseSHGQk+
6FC778SZVYCn5AmmJjp8MGfv5nLKoADDnmhruV7gA3X3FTW+QwXY2X9WPuwq
Hzz0c139taMAbV+YLtXe4QPWJGfPh+skfMzkGawSxwe7v97yKUoiYYOt790z
b/jAeXDm6JMgEnK9D7xsl8sHpbM3qQ1cSJh0P0bmVQ0f6DA5+k+fJOFYZwJT
yRc+eM4/ebJchYRK+9Lm2r7xQZeMPeNTYRLeC8v5Nt3PBxKq4w1GtCSsmiqo
YJjkgw0nrYArq0Sk06lIll7mg7EGbYxdIOLZ1PeBR7b44Kus7vrXaSL2XG0z
dOHmh+zeCw76Q0T83TQ71XeQH67q2Zw70UpEP9W+oLMn+CFYa2N3xxcickQ3
yZfr8UOleiSDVd32+X01xzragh9ExaurfchENJi07zkTwA8/Z0X2VeQQ8aee
iWdZGD+wDpE4dLfz+etEHQH5OH443HV6+vsbInp7yBtS5/DDK3RPW40nYib9
yOfStu32wzsE9gYRUc3h6w25Hn4I8XNYrvYjIjZ9oI8a5ocqD6o2fV8i6qoW
pFLN8sPMzRe5fV7b+UZUyrHba9v9sVR+5uRORIv1iIGflAKgZ/TJ7u92/jFl
+uihLrMAPDh97Xjwre38Au+IlvIIwMDsFVH27eepZCzKZcUEYPiEaSTRh4gh
AfrG/8kJwES8KaPRUyIKTBJWKVUEYHbe9OF6OBEViWJ7fx4TgLVXVx0ghYgm
0JMZeUMAmFauHWuqJeJwyudTlM4CwH7GrPROExFv05ePOHkJAE+ymRJvJxH9
m15InX4uAKJ65sKm2/cboumlOIpCAVBOs1gcZyLhYdTWdKoSALUNixsh3CSs
k1b/9uOTAOw3sOxTFiFh7wQPV3G3AGhtWn5220NCJo+2pzcpBMHQyDqFVp+E
UT3Vcj8YBcEk21ow4zIJJSC/9hS3IFyjsnl+xoKEWSlJVkUigmB12YZ27gYJ
1enDKGVkBeF6rs39yLskrLZ/mBiuJAiONLbz6vdJeKbJ6fCWpiB0dO/ajPIg
YafKtR+OWoIgfiegt+MeCS2jznp06wqCPf1QFff2fJ5eO8R/6qIgFL2CRIM7
JHQ3VSgsvCYIlPtePQx3ImGoNPN82B1BiDE3Avbt9svz666fjBGE96V11UzX
SNj102Hs4WtBsFDvMWW7QsIlRvbrJVmCsEmcXeXcjkfR8qLdThSE/dl8ioIG
JEzmGrRhHheEdwnWcXLaJCQf8Rs+tigIZ4Td1XYfI2GPvbyN119BmIh51qII
JOR772Q9zSkEMuFEOvUDJNw7yzm0Q0QIalg/vt6vQUJ94UKra7JCYBb0/dDh
fSQMcv5j2XxACOIeUzgfVyTh28SEQfoTQqBJwcN2avd2/vH5qCWcE4JvXnIZ
utv304HVoQF3YyH4u0cnzG17vW5KB1rkWwnB3NqSwvVNIgrr7x4YvykEQ++T
6i8PEFHTq8lcyl0IukLP2Op8IOLdDh7zyGAhqJJ5k7hrez08pyjp+xwtBMTZ
c4eEbxIxW+GKGc1rIUgt+9PFrE/EkSevr7kWCsEz/Qtc07zb81FN8eqlXiEw
9qLye/c6H90sWnuejwnB2ZO5kklP8vG/EBfTugUhAC6TqjC7fGwaLruyn14Y
5NLzV+/syUet6JMmwsrCsNRubr+vNA/Nav5fE/caDuXWPgBcUiQpJGkG8zyP
GVSitnplR3eSJJVSEZUZg0SU84QcUgg5n9mi7ZQOhDQq7VuoEBXKKYVKQg47
OpLXh/+/eT/+rnute617rWtda31agx1mOjQYyJQQZWYUo9/IxUORBjToOs7/
WzagGMsNWy2mLWhQNbO4+4tBMba4ebev59LgVv3d0x9UinEsc4WFizMNChKP
LWsXL0aJhsq2PG8a6FWx7GO7imbfG2zzN0E0WEevmAyILkJDSqRNLpIGtK4R
h7I/i9BmT/5B0yQaLEpTfjXw4QZm5H86UFVIgx65mAd74QYusfDZ/3cLDc7J
HIumxq/hN3783mNMOjSKy6o92leIFsOKF/5dQwfFmuvbwkQKsUKpEM9o08H+
jKHNjvIr6BOCGgk76TAz6p3eIH8Fp8w+LapypcPaF52LnvXk4+FQ3jYTXzoE
RbmvjI3Lx8o7c8+0naND/XaJ7fsM8lFxJKrMJooOMnNyuTJf8tCfWDH8KZkO
3Du6ga35efh6fy51OpsO+rvYUX1H8nBzmKaVyFU6ZAzD+XrVPMy6ezcuuowO
XyMIv5LPuSg0ali/4j4dzFcJu6fdz0U22Twn7xEdbtf3HT97IRerDhzZuPY5
HaQcq9mO+3Px7D33gu3v6PCk4NxuncEcFAnPCvEQV4AtLNGVnbI5KMb8od90
UAFWEhK98s6X0cHivM8htgKE43DbHO3LWBexpOTdcQV4Z93Y9FH4Mob/yyJ+
+ilAZmbUvYqUbBxklliEhCjAL92TpdncbNx5SDdGKkYBLLr3FF5Yk40SaDaj
8rcCLKVLpRyqycITn19vKL2mAO53x6O2RGdhI8vRRa9cARotm8+rWWbhGsvJ
3Lp/FED1R4mfFDMLoy4Gdu+vU4CJtOSBuu+XcAQXyvY0K0D1Z7XVnx9dwj0T
SSZOrxQg2uTeSXrSJVxidf1u0OhsPb96vrisu4SnorQ/S3xXgKmD7jopQpfw
eVX1yhRhRagpmudf1ZSJcaqdqTdkFYHNWTlvqVMmLv0yn9f1pyIk1bjLVPz9
F8rHsrXWhynCdPh8zbmyGdheLhcaE6sILrUjUax36Zj0qqljKE0R3s28/LSj
NB2lVXUDLl9XhCaP/Ksxe9NR/B/5+sUtipB/1EhFMSoNp4abrQcVlIBUi8pj
rE3FO9LhJdtUlODbJrE5raKpyNPeMi9bUwmemZ61Cn2dgpPBRYXmW5WAx/Na
MhKRgiMrIidrHJSg6dFRn7v9ydhjtC3iUqkSnLbX2H0wIwkzXaa6f9xTAlOf
KwUL3JPwcEKp5sGHSqAaRc2t3JGEHW+IlxIds/lvyfGpr4mYMq9D1aFPCbLq
YqXbGhPx4KoY3+qh2fG6FzqH5yRis9cvhs8vJWDNEyLH9yaiUVNnxeBcBvxc
7uOXo5qIqpwN3BQxBiQ9fjiSMZWAohOxEoaLGDCt8mwg+WEC9od8uvVZigG2
oR19cTEJaNNsZVWozIA582bq/fnxaCYkO37uJAMcfyY4rbGIQT9v44UpHgxI
kHWSS1KIwZyRAObV0wyItT4b8rM2GideDR56Hjyb73Hn+rSuKEyowAcKKYzZ
8x+R0Db/Ira6nUgon73VjpiMrW4pvIBTH7Nv1NUyYPORTqMXmy+gMqft8at6
BhAuNbZtrWHosUd/WvgFA/qjUzK6foXi0tXL7fd8ZIB7C0i82xeCB95X/2dA
igB3y9ihiR9n0f/w970/lxEATr6iX6PPYl7LmhOSdAIoPzvqu/JZbDK2DSEI
AuZd3LP5Z0UQfqlKzdJiETDw10ar6d1BqLjx6Z3tqwhouEF5z7wNRMNikReW
mgTolu1qd00ORBcVnVHn9QQM6z1MrT0YiEmZJxcE6RCQXqdnJb8sEO/L5lIJ
mwmIL3DZ2FkYgP2Rnbr5BgSMV1rfC1ILwA2+29wadxNwY2DLg2csf3xpTuuS
5xLA1Jvf5EL44a8m08nVDgQEm301XZbliyzDkMXgTMBbh4GWSkVf9NIa32rv
TcBf8fUdEnQfXCb16FpJBAHLPka9L1zGQ72wqYe1MQR4/gpw2JfojfYza3vb
EwlokXEd+i7jjeWfMmRnLhEQq2c2biTlha9tmzWkcwkYMTPwGIv2xPmvRI2Z
hQTsPL7+a7KkJ5rXu/nvLJuNx8tN9y/0QMa2jAnRCgIekwnda+LdcfCfWsea
SgLCbi6577XCHct0RnsCHxBwL815MrjBDf1vLTfXfURARYJMRHO0Gxpp6jd+
byDgdlQFg9jvhtJXnbaWPyOgLMy6/ORyN8zLuq+h0UlAkd/VXolsVzxFG8gd
ek3Ada+93lZ2rqiTJEUveEvA1VNfJQrVXLExwlaM+ERAqe1W7e0lp3DCS7xX
WogE59RyhbmhJ/H++B/mT0VIsL8ovCNr8UkMO3GkMWIBCTZBuz10U1yQblNc
ISJDwqHj/fXeV5xx666DcV+YJFhvXMYbbnBCiccBYqUrSfBQt/n7wn4nfKl/
xf+kBgkniRtNrG5HdNSechzQJsFugSGTM3IctUqZvTm6JHCmY01/eR3HX+p7
zDn6JBwe7/ZNn3HAxwW8RoXtJFi8V8vXDnPAOOry1s6dJJh1eDa/WOKAhzMb
KpJMSdjTWDXtlnoMWfKTGmYHSNjFv/yq3ewYjsUr5i22JGGHdua6MqVjeEfS
iP7kKAmG/NSw6CF7PHfBNS6MS8JW7cTXjrftcbdIutg2BxI282O0DIPtsff7
p4lK19k4P7RnaoU9FnrIOfl4kbBTO3hDe78deoxC7wZfErbz/SNLS+xQ7H18
Y9E5EoDvqe1obIeazzbmZSeT8AefG9N22hZ/GHPpRzNIWKNt3V+yzRZraiPj
VmSTsJpvuSlKyhYt7r7xjy8kQZm/d8DgChcD8s6bn68kgeJvhpJ2GzQiihq3
PCBBTfvPpIs5Niid0b7110MSVPgbhh1O2WBe7CpN72ckKPLVU5TEbPCUxIG8
P16QQNdWG/nRwkGdUH/6WAcJ8nxlg5eXOCgiXBB37TUJstqMtJtOHGzyey52
/C0J0nzaWOR/ONjb1ToaPkDCWI3VbUM1Dk7otL+89okEce6b0UfKHJyf1lXZ
9C8JzDlc1R0MDsp/f50z9pUE/Uv97HoaB1db9EVIT8/un65j6k45Durdfu+m
JUyBZ9en50+kOWjrOQw8CQoK5Cb1ny7goHfrqEqaFAXVt3i+pvM4GP7HZ8l7
yyh4YzZV+lyIg8Xj31/NMCiQipnLbP3Kxp/OoqdD11PgJyYt2vGejZKN4uwr
OhQk5iVutuxlI2O15PaGzRQUG8jzul6x0XBwqexiYwreBTI+drew8dCO5VOa
eyiYUcwhrJ+y8UQB7e2+/RTIV6pY9tSzMc6evJl0lILd39c09FWxMbeWmcLn
UuCQXDLXtpKNfGW1gE4HCoLXb9j0ns/G+uDV9lPOFKS3VHjYl7Gxu09jl6I7
Bbddda9/KGLj2JY/tIBHgWG/Z8Ph2bhw9gaazRkKHuSlmJc3s1FWSEf43FkK
jI/dfbt4nI2q1rofc0MpeKLy+uTxxRz88z48exRJgdmA0NQDdQ7uVjC4/TGW
grYCKoxuwkGPLuPz6hkU9Kgdz3oaxsF/zC2IW8UUDK+aeLZe2Aaby63E2m5R
cGp42ZFohg2+k7Ue/XaHgrFrGz8O6NmgeKtd5aZaCr6pB8zJ8LXBg6buh2o6
KFioKb5OeNIGjxd5Qf9rCmLHVt+3kuGin6SPitg7CqRv7jG+tZaL2U8CJ3eO
UCC3LtHGwYWLZavOvXL+TEHGv7dHqiK5+DA8tDr6GwW00k4f2lUudnwML7w5
TcEl9+n5nnVcHDaKim0RVgamFiO+6QMXZ/JjeZOiylAwoa+kOt8WpUUTreUW
KUOjo7tV9VpbZNqnGG6UVoaFKWniQlxb1K5NV7eSU4bttVUVmxJsMXjLlbq+
Vcqg7nPUS+OQHdak6t8f1lQG7/Qgx5ALdjj/366SL+uVof5eztHuCjsMvyyZ
IQ7KcHJm0DBi9rzHzPVwWbd/dvxz3nIfuuwxs1ZP5qzfbL7oGH7mUQfk72g9
TDQqg+/aM8LXbzjhyN6ZUWsXJjydiVYaZ7ti8/VIkHFngpBBX2+NryveWrAi
9qE3E1aGaeWkJLmiX5XWOvUgJoQs6VCFJ64ovtbR40c8EzYR5Lro/7ghc8mL
bwkVTMjRLzNQl3THw02Fc+pFWHCFJrTL5KYHwkrtfWcWsMDyyQztRIMHUiG1
lzUlWTD3zMxgxHsPHNTt2Zosx4Ijr3+FNch7Iu+6bIjtShYszp6uMT7riQmR
geIze1jgxvq5aYeZF/IGFlmV7GfNrs8GU6azF1oZpF+1O8QCh+fttkIhXkhO
3TJ5YsOCvboKUeW3vbDYaSgq1ZMFTNm8HpLmjQ3GB2W00lnwoOb2+Z+93vgt
vLLVJIsFoeF/iYxOeaNyg3KSXS4LDE2Dg/vkeOi38/Py5CIWPOraHVS3i4cF
EZadRWWz7bO1hCodePiioSr9cQULTI6tCCgO5uEakxjFH9UseP7ve7/kCh5a
Rn59I13Hghh+w8/wVh6GPjmavaqJBQf8b/r4j/KwTOKhjUELC2gGyd9dxU9j
j4m68pF2FnQtOMOzY55GiYsJ7z27WZD21OarBZzGjY0/86L6WGCdaORlYnUa
7RdxHfI/sOD//1OL21WvhsMC37+4dqh9XOChxpRr418ENth9TIOao/Lbk7tF
1ofICmxhqgcmegKfi8mdY7dV4JvPJKrPGAksvrdrW9E+ge/t5e2UPiawklnJ
wfZogfsPsJxtewUuSw0KZ/ULfLb7Vf7A4P/0t4vvOzHxP/PzELLwFFX97fq4
Tv0QdYGvP41aXnBaYI8dX6uHpNR+mx9mGOi1aeVv63RKuh8JXPXba5a226Tf
WP3bxqE/JnpKBbb/QQ9lVQh8qYdz9Wa1wEuuD31+1C7w+LaZcxPC6oJ6vVn5
u8wFfjZotDH+sMDDR5wa2jkCMw2KR7knBE5aoqPtEyQw78quuryrAifQT1kN
FwtcHB33aW25wB8926QqUWBLfY5lywuBvW4FDy/vEjhONc//aI/A9ZJDlz8O
CtwftGi9xpjAwpMajzwmBVZ02Hfozg+B/+//y9/+L3Uoer4=
          "]]}, Annotation[#, "Charting`Private`Tag$5011#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxE13c41t/jP3Are9z25rZH0rI57leURCRKZkk2STRpyCZ77+y9d3LcB4mU
kREh2QkhISR+vtf1uz7v+5/7elzP1+u8zjnXmULWdwxtyUhISBgpSUj+7191
7N7SwcExRPL/fyOvM1cv/P3PDxJ7fsds/eeKq5J7Ej//s2jfGL3B6H+mb9eQ
zaj5zxNluLuY439+4VOy5d0v8z8Hczp/yH159H8WeCuZ7WEm/T//E3VgVz8u
9T+ne8heLlmU+J8Vg6XK1ub+c1+6KJ381H8m7eJph8P/2QZPpdz79j9Ld3/D
r6f/5zrxqDVFo/98SS1U74n+f164HFiELvxn7qdPbS5g//nJgOOI2bH/rOGt
gZ5S/eexOMDfSvaf7xUreVLui//PuZ9l5SI2/rP6slTUwOp//kwqtsK59J/v
cOJ1Leb/M/Ux3oKMKXFkUV5tZBt+D2ZocByZGxdH9FCiWrHFAyqbMFtLjYij
5a4UFtoNd+jkS8VX1SOOvOd9P5WZ3oXdX35HtL0RRyWqBelrF1wgHx37k6w6
cbRG/5OgEuYEXdQUHF5UiqPUiZNTvn0OkP7VI4yQL44ofN6IcF6zhRdt/q01
RosjLCrtslenBUyNE/iaFCaOEuUkYhkvmcLld4T3j4LE0fZwxefMoavwpZRP
psIzcYRUg+oj2/Vg1wqlYZXjYXsuX4UlWUyQBy+pHmUjjvBRlk2N0yLA6fIF
abcbh1alvoIbVgSNPk4cl8zEUd/ntZybExqApuYlmexVcfQo6qug6qcLwGSu
ZIXeQBx9xKgUs1uugAKOntElHXG08EA+IMv0OtB+jKsuxMRR5C/t6L63DiCx
6OSrIFVxFEo/qdwXeRssjBm+tFcQR90xb9bsZe+CQPW4W2Iy4sio3DDRfvc+
eEfOw5bJKY4G5ry/20U/BxzyqiTeLIf9p5xneXrPG9jZWSxfZxBH7iSh508f
9wFH3qe/5SMXR8fDr/GejvMDZ8NF7ieuiCHPwpXWUzeDQSzx7M2HP8TQKbfB
klOxIWB2zVbPeFYM/VFojD/V8RL4GhWIsY2Kobq3/k6njoWDfr/3zL8HxVDD
S+crp6wigHDd4r9PvWJIrVBSMOlCJGjlOvY5ol0M7d9hpEl6EgVYdPRbXZEY
GpW/de4PbzSw9rpTpvdGDP16ftZ7aiIakE5UBtBViqGLbFRbtTaxAMtWUAxM
FUNjaqFT190SQPMxLPGZhxjaCotvqAhMA99sPzy47yqG+G+hX/Tn0wFJuvFV
F0cxdE5pUdqR8hXQYLzNYnZDDOn8Su+J1MgAt7S21wzMxNDE2Okl9awM4PfM
t/f8VTHk/q6T6idpJni3khQqryuGklPWsQstmeC7uJizjJYYkg0ItPyDzwLU
NyouiJwRQy1ufJ653llAKkFVkkdNDF0xr4w3mswCOr3vKJkVxdCPc1rVpFg2
cKYynKM6JYaenBjrLX+VDUIJX9v2ZcTQsie/Er4+G5Q8dMjalBBDBWQ+p57J
ZYPu8t/ey8JiyDtkXma8MgusfH92Y4ZfDBmz6EqoHM8CjHha9VEuMcSaXC6U
WJIJDCLxfzsYxRAqfMRxJT8DDLrp3c/eFUVK0ewkicppYPxkvqNZvyjKZrqe
95ApDvxzPKV9uVsUXRaUSDlNGwsEsqC4dqco2pddi1iliAFWLIMz8s2iyFTf
57H9biR4oXOjVea1KGJoih/XWowAWT6LGSI1oshxTPJd87cwMLNOcp25SBTV
cesllXUFA4qjoWrUuaKIRfmbjzgKBKK3OHkPXokiSpO7Lum1/uBcStbOZrIo
mk3r4E+d8gN2A8dGluNE0cqT3BrTR0EgkO513UykKNo199XlZAoFBZpn40Zf
Hr6venN6MDcCLFabGXa+EEXhTxipCxxjAN3y3AniE1HE5vJ0gFI+DsiI3mWq
eyiKUsyX021JEoBrbODH7NuiKE+lS14kIRms36vRem4qiq7vtZ68NJ0BduQZ
VRVOiqKcxmc3upgKwCOnXOgrI4pKcq6t0cwXgO10NeyThCgKCj/x4kJTIdii
cj7nIiCKUq2nszodisF9NbLO19yH7198c5qaUAI23JJ0qNhFUalC7Nvz7KXA
I/dE9xXcYf/gb18NXCoF6186LmXRiSJEqzX/rqUM3GW80b9KKYoSFQzb8+PL
wJrG1hVAdugU0X6FmFJw52HYcMg/ERRL8meiPaIErBSLmo1si6Ao2/dLV0KL
we3JN+NiGyIositleyaoCCyzGd3wWBVBocddj3j4F4Klpy9sGOdFUMsOi2DU
s3zgVMX13XxKBDVfnzuK98oDi/PljoXjIuh3W71S+cNcsHBpwvXsgAhaC7Mw
7HbLBrNCqo89kQj6qHmRjvVdOvjavhE2nyyCZCTnKqgEwoDF7kucXLwIwjfJ
zmrigsG4rEjMiygRtG3wiNObzB+Y32pk7w0VQcuzLTpNG95gNOFyIl+QCEK/
OPbWuh8D048LPE6+IqiBu8jaseouGCHxTqt/JoKsfD2j247dAtfkOfFHPEUQ
STLlv6xaRfDZsSzL8L4I8jZ/Vi0voACvpp8Ty3ATQRm0q58izlwDg/3j+T+d
RZDB5+tBxkecQL8qXWmQ9f/VL35G2d4L9DI41DdfEkFcZaeijnKFAn2NA2V6
XRFk4kOvfKkyAvQ8iG8y1RJB36U93JRzo8DHb29bNtREEO/BRS5L9TjQWSn0
UVpaBAXlkzjkuKWClqtjk/EUIohsr9o3ySkXbOcmrj87EEZMt+eyLtnkAdmt
qxT2u8JIf4Kj9cj1fGCjxcpxaVMYhV7SnnpzrQAkx/dJKK4Jow/oMYn75ULQ
Nx+mLLgkjOhPFQtK6hYBSkVdXap5YXQhe1x94mwxUAuktlydFEapRpXtj4eK
gftwu+vwmDBytn4RFXO6BBRI+HoTPwsj5buXLUujSsDEQyw6/5MwovIWkupY
LQG6XG9qH3YIo+i0FrRbXApETSv2OKuF0esR0rWbouXArPA2I0mZMPL7/umN
l085iNyRxi8UCCPDrczAuMlysJeUq9mQLoy2aTIjbPQrwNBocohJyGF7JM5I
JNJWAvqjJqmYvzD6ISvFkKtcCTS82MskvYWRgQLz70qHSlDGG/lp+74w4j83
1fzhXSWYddabmXQTRv4X3+eMbFYCnibazU5nYfTTqDJkTrQKBFj4cyXdFEaN
1i+MD3yqQFOJhvQLC2Ek7OSoRl9VBdb3DlQdrwmjoLuXhbmnqoCkHtS7bCiM
Vh4pU4vjqsH1NM8bynrC6PvzvS1K7moQ+1PxrpC2MPIS7NVu5a8GXWDTh0ZT
GDEQM5OfClcDxYk7eV+UhNHJfS31jaPVwFX2WEPLaWH0No07svxENch5tvi+
UFYYGYPlKSf5aoATtP35WPSwvCdR/lPq1WDhhpkcD04Yvdsd+9hzuRoIVHBq
kdEJI/PkMoEQ42pwhWTo2uIRYbSq/MLtnHk1aMm45NX4VwgxPxZna7KpBslT
Z1vNvgshiz9u5oUPq0HfSbJBjWkhtBKvWWrzpBpQ+hDnpL8KIV8FjgPBF9XA
XViF5m+/ECq4/yYrPqQaFLj/4ZnpFkIq7OEblyOqwURrjcyHTiHUXWOlxRBb
DdhY3dWr24SQ9ZXTiZ2J1UD31nGDlGYhpED3nvxfajWIknlbEuAuhGyitxju
5VWD4U0TGndxIZTBo3cpJaEauGgIEyuEhNDTCYOmRv9qQBKxdG+VTwhdy7oi
NepRDSQln026sAohGmkLcm6DauBpll1vTyKEHio718dTVwPGfJfbeX/xyOCf
q2jdVhXI/i0vMreFR7It7lFDs1XgY2hnuPVPPJrV9nRma6kC/MSftpajeKRn
EiwY/bgKVNHV86YO4ZE0X1hopX0V0DLx/jTah0cUk5E7fVergOsvFmDSgUf1
9okDTKeqAJn6+Hp8Kx5FHk3FjuOrQEJIbsEQxCPX1Vel+oxVAIkosRnV4JHo
w/zAsMVKcMWNtCuqHI/+qRRvlIxUgh9NXc/7ivBodL/s5sfD8fqMJlaeKQ+P
GlqrepZqKgGLseWSXiYeRQfUqdJlV4K8LPHM0FQ8ctJpLJCOqgQqq6vGHxLw
iOw2qQH9Yd6j+pqeNgaPljmnQhy/VIJbQT6t2uF41NWK2t8xVYHOsVqnV8F4
NBAyqMhyrgrIHv/BsuWHR32GC4WWnlVgd+jSrWwvPPowzRS+cdhfkSL8FPsO
eDRCdsNYuLEabD0wKLlig0dDXe6dt1ergXmX75XiG3j0LTpA5bVoDRC/u5hj
YoxHc8JlAgYRNaCpuf5ctSYe/dL4N//UphYIsyz9pCHg0Qots+n7pFoQaCsQ
b6WCR9v9oh/YemuBIb3/PMNJPNq3vlherFwHGm40hNvI4NGutJXQH9c6wF+9
pPBGAo8of3vEaOTUgQVTw0AHATyi9U15+IWxHuiX+h8ncuMRtW75D9Gz9aCa
5PUwOzse4VjbzN0e1wOuK8vPXXB4xDP2uftNWT14li8o2UaHRxzZiwSq2Xow
u2vYx02FRz9XhTmp9urBBf2AR25kh+XdJrD18dQDS02PM+F/BZHaojlz0mH9
JBe/RKmuC6I79o8YrU1qwe9IbHphQRBlz8bSHX1YA5oV80/FfxNEn29WUm/E
Hc5P/3sDax8FEbBYJAsYqATeeCb2vHxBxJbVsGKUdrh+dty3NUoXRE9Sfy3M
jRYBDtfxWpI4QTQTLz3zkKsQlLwpNDb3EUQVL1OHU2JywYjx2UScpSBKXCR5
0cGaBrL/FS1AI0Fk8839/lJ4EnDNYVZ21hFEpwZnHZlo4wHF+sSXdkVBlOYV
lVtGEg56E89Je8getsf2fvjWVgBIJpR44sUEUVla1cqT0efgRNhjXi8WwcPz
BUv0bKoe+Ht60lmSRhBZfFpSzCfawHejWk1DBwLoEbtsl6bHIxj1opTed0sA
CQud3jPV9IUWkmyWJ34KIF/FS6wseiFQotez9OuMAPpDe6usbicYrt+f+hcy
KoB8epg42db9YTOftr7SJwHkHd30/O7iCxjcVpY+1yGA2Ev6+9LavWBr5k2G
TiiARlIdlzYoPeDec7YnRdUCiJGflD4x0ga6qnma3nklgLIIWqycgxbAsPYc
284DAWQ1r1I6yOkPXsZs+4y5HH7/9qqg1MNg8PZu8S9oLYASN7Ojn34OAwqy
zL0++gLIxodSLUYnBvDkjwfTix/mUXeE1GhSgZF/xPYKrwCyG3pvNq+UDkJv
adh/YhZAqfQsOtpyGWBfsOBs/D9+5GTg4rt+Kwso7ptVP/rNjwzcuTM6vLKB
2ziDsPkPfqQY+64pNSYHzCR6HAgO8aPvw/gtrbY8wPdQ3JXsAz/q2elm4RvL
B8ZXv4zPIn7UmLF2haepAEScDtXtqONHm/zN5sa6haCTmdBYWMKP5FJeWkeP
FgLStV+SoVn8yI3L1LHHsQio9OQkuCbyo/I4cTfanSJQEkJ7/7QfP5KIbHnq
w1kC5hzgDLsnP7rFEOHXnFcCBM67GW7f4UcZIRYvd+VLQST55+PQnB/x+P9J
dL9SBu4/yVzUOs2PDpo4zCq1K0CZ2RVTKSl+lO711PJSZAVYUKLqpBPkR/Iq
s1Y/hyuA2aZLbh8tP7pbX2kvZV8J1F2VrMym+dBy5cX7mf5V4OHFpR61ET4U
5Fb9iNBdBSqk04FgDx8SP87z5CtbNfhBfbmE9C0fevfT+7mXRTUQ/k7OO/ua
DzmUfPfhzjlcf9rrgt+V8yEKZ/2A+qXD/Tfbcbsglw9lSdUGXz1dA3pe8Nm/
TOFD1iwnIlRLqwGVVe/Q7Sg+hOwSW0JxVQBT9zlrEMiHhN+QbHz1qACefPLV
p57yIQPB/ovXy0rB8khy5B8HPjTi5sGRrZoP+i7b6b7A+FCFhIuRaUkseCd5
koxZkQ9ZvXfQkzAIA28O/jZkHONDXBo7v1POvwB5pVHiiIcPkRxL+Lso5gyf
0EDSgw1etLJ+mWXwfgp0nwxsCF/iRXujft/oYQa0rze8IzDNiz42TdYeJ2ZD
Q9uFcdDLi0S9E63vtxVCyRbWhieFvMiWnOI6yXwVFEiccKXP4EXiGyffM9vX
QNY7hWKp8bwIN3dDTmShFlJr3Rs/GsaLdobCXsk51sN9PkLMG19e1PjuDa3W
YgPc+E2jo+vJi9Z4lvBrBo3wR9cgyZgbL+rYwtufiXkNJzJf1TvZ86JX/cal
0UMNcPCRk+uuJS8KLQv9PcPZALsuyYuFXOFFj0NaleXN6iFRnGScW5cXGdpt
Pw9IrYNFg3EXlJV4EaeADb2UUC18caJF9BELL6oLUxVzla6CD6hCx6hoeFG4
411noksldJkwjk444EFe5/IrceUV0CR0+aBumQcV7oo9sbMvg7ILnGOb73hQ
85fB0rXHBVCUOB3lD3lQQhSmErOfB7njS7XZa3jQhQsl7+R9cyHFWc06uUwe
NNjg+80zNAuOvnKN8vDiQX3HbYVp1ZNg3wNlbXJ3HuT3Sk310vl42K5HcRDt
wIPmGdmuxBrEwEbR3lrhGzxI59mSyxfTSFjxN8ml6ioP2h7zpwPvQmBev42I
xkUe9DIksbcwPQKmFB4f/aTBg+5O6HG/PR8NA661n/91nAd54y4/yVJKgE9k
I/e9xXmQTWF/KXNlErx7xLwWx8+DIjWufPOWSoUW1WvCJ2h5kEHj0czjYRnw
FBPfvussN7qxLEvB+CwXxvOfHjg9yo30f+jk9w/mwZ2jOgXbvYf5vJ1OwtEC
iLQfGfq84UZWk+mR+C9F8JLPYF5cNDfCOwWGc/NUwKrIJS+zIG5U4MA+6dVe
ATlekV0WfHaY22efnHCrhBNvTvwtcORGOBviYFZHFdToOt93+wY3CrTWEz/i
UQ1zR67nnrp6mN8ce2gvUAOpv9/3/KPDjZJuOL5//74GumyGXmrCDvPrf3hk
7tfCPvIc0RcK3CjIwt8lHF8HT7O82Tknw40M15bEmU3rYDy+v4dWmBt1vMYi
HVdq4a7sj+xeTm503jdup8W3Fl4HJI9jGQ7zi4vWPNy1sEWXU9+UnBupcRA+
upfVwCCHc9vTK1zoZOFCusiXarj8wKI7f5YLVbgD6ieu1fCSv0eWyygXEleL
vjtIXg05sjIvbrVzIZ5e1bP+slUwd+xfBk0aF2LaDP8x71sBqRfZHvREcyHf
5hlDAncFdNk+qhsTxIUocXcfHbcsh3LsZpt897jQEYW3/FFVpTBR5G7XlCMX
onh/e+3M1xL492TQq7wbXGjVnLNtnaoEturXXTihy4W+vHByuGJZBMUtuwU2
MS40zMameiSoEAY7z/5+rcCFWvIhQ11VAVx+/LfzmQwXKlGxn7T7mg8NgljS
NYW5UHE3rpqTOh/WxEt5UHNxoUKrRv/OU3mQMxfT7mbgQvG/b5k8tsyFntXX
+KPJudDFsZIfPCG5cKLFdd14hxPVzekUuFHmQY0+/w7eVU4ktLZg984nD+ZO
pKZOznKi+N0AMb6DPOjyt0vLqY8T3Wdqy+r4kw//ykmkPM3nRJLKqmkCPwoh
V8E3zZyrnCg59Gj0xw+lUOBt179EXU7kEZZ+fvxcGRSdrK0PO8OJdMOZ/y0R
y+AJrtCjD49xon8Rf+zpasqhgtzDOWcRTuSsXRvOwFkB1QysX1lxc6LhTldH
9isV8HyQEqvOkcP6vp8SEOupgBdzRLrV/3IgSZ2UHRm6SmiIGANP/+JAsV1X
BuW0K6HJ+A4m+Z0Dkegylqv5V8Lr27O7fF850N5Tx0npu5XQhq2vhnmAA3kT
PBjOXa2ETifeuFK+50AUpE9VbihXwgcOUdOrNRyIzi8yNoa0Ej7xe5I6W8SB
Is8lt5TOVUCfDHvjLxkciJUqZ6XjfQUMHwFdraEciCekXnsvqgLmaS9Wxtlw
IKnIiT0b4Qo4JKn5QpWNA4UomXa5BJTB0bOyqidoD/3GRTRTvwxOWnFvipJw
oGh172dDHGVwOXHVgXGZHWWczT+lnl8K12tGhcmn2VF+R2Oo+51SuN3XPv5n
mB1V6vTM5ymWwv3livjlbnbU0D2FjR2UQAqaVIOpNnbUbLCZzNRZAmnFAmk/
v2ZH0/zfct46lEDcGfe3XeXsaDEnVL57txjyPdZWqklhR3tV340nBIqh3I8N
wUAPdsTXm5ZEYl8IVY5MfvFyZEfixrrSNDsFEBP6EON2gx0d/7rdyPyyAF40
zaQy02VHZ5aMxoXL8+Gt93qrMiLsyJiKVvDcn1zoMKdUKMR96PD6cr3gXOhK
KnqLg4kdWbLbYsa8h+NTeffzwS4bchVBN+0JOTC6MK+5v58NRREe5AQHZsEr
zYXo3ns2ZBu/ev0vPgtyDJS0ciA2pPzTgft2YyYc+V7+tqGODbGenR6YMMqE
KXtV78xK2dBasnm4wc8MeJ25rnMvmw31/BrUbg3IgHjx113pyWzIrWm09YFC
BpxWafqIRbEh3R/vx49bZ8CcS8Se6UA2JMbxemvhcL21s2nt83vGhkg0C3BZ
rzOg1OP2fvH7bGjoToK0+VwGLMv68NnJmg0FvL9/vVstE9ZvDk+sq7GhhSen
3lUuZUJP2rHJ2NNsqKFQaNKJMwuqCU5MK0izoYTPuF0RzazD9Xl23pOTDWmd
WD0Wn5wFu1LWVsjWWVHeTHGc54VsGFrxey1ngfVwv0gpP30/G+q3b61rfWNF
ZiDk/XJGNhxY2dsK+ciKaBMc/l3fzobjZ2gOWPJZkbOOmK1mfg5MN6YnrU1j
RWcfsj3f68+BN52ZyK/FsiLeHPKk2v0cKOrNcmQnhBWt9a1XuUrnwvlYdqqU
F6yo49/URwnjXFhQyEUDHrGiXOlP85MvcqFTMy/dN1dWJN/E6DAbnANlBgQY
XtiyogS2KtYs62y4+l2IScSCFbHevkq8oZoFq/ZEmdsNWVFc+7YTP1smvMcs
yWp/gRXNqyodq/vyCm6ryHIWK7Ci62ntYyVqKZAsXEXwNDMrGrSaVEomi4Zv
s4DQEBUr4hPRxx91iIAB9ZjIw30WlOE31iP0IQTSTWlJvFliQTjtraNMUS8g
m5zRcc13LIjkRIBKm7Ua+KxtfHKu6TDHeEufktiBJEvT04HVLIhr3P3xZZV7
QCDwhuKHDBYUVJR+Q/WaL5AYdSYYeR3m0TWGFXPRwET8zQ3puyxIoFltUdou
DgS503qT2rOg64tvX+TOJ4CGZtOMEQsWVMKhx423TwYLtIWo3JAFrWkMVSR/
TwVc17YnA7RZ0Odozj41w3RwIfs86XV1FtSgM9n+I+sVKFKdP0MvzYIufG0Y
ERLOBKOB8tYzgixIXznN6FFXJqAb9PNpZGdB6nEvenrcs4CLi0ibAykLktXT
eevVlg1k06zOto8wIyY4Vj5kkweu/yi3Se1hRozcSFqGIR9EyB/4ebxlRiT3
c3J9avPBWndau1AFM1qXuZ1ynLIQVO6Paj0LZEYzqfsBwfnFYFpH2v7qU2bU
vz1NOnmpBLAkPA6U8Tj0lY4nCtslwP04V+fodWY0Qh/pPqNdBrK87BcqrzCj
YYd7P5V/lYGBjjrqYB1m1PHWxCEyqRxQsFFKWWHMyDwy/e5vfAWQs7p6QVHh
0M24coH7FcCmJMeRUYYZcS8NS5UWVYC47d/Bc0LMaCCF+WmIehl4d1azqImT
GT266ZHXKFEMtiKju2IYmNEH8aHeRVwBEP86tehEzowElhV2eHZzgLHUSTqN
HRy6V5korDuTCepbenXXZnGo71HDorFzAlhgEHTpGMUhAYonoB5EAS4z19D0
Phzy53+OP44PAI/W6bsvNuFQQ3Nc9pOqK1BFREe/MAaHWE4cfZ5Hmgyd7iS5
egfjUF3/aY5szgyY8mYh/Nrzw5yhf9ldNhvuGQX2HnHGIV4fxmQWi0Iok/F5
ddwKhzqaStym3UugxbIYrsYYh9z/6JyvCi6H0O+tgbUGDqnXae4WjFXBlT7W
u8pKOHR7IHoOd3h+F+C/FYWTxaG2tam+R+u1UN+xqvK7CA5xM55smnxaD5/V
kvY3c+OQ61HvfG2a17CM9PJ6HBMOvdXuja6IbYTf9DJYbh/Boe8v/uWtPX0D
BeW+2QZtMSH2k09p7uAaoffHp3kK00xIY3LP+WdWAzQzvviQ0MuEqqN4Btr1
6uHpSR5t7SYmxKappJK+XQvnf9f/MI1nQvO5HtSX9KuhHu+6zFMdJqQ8PHjh
5u9iKJ6L/vkrMqG/yjgulguFkOR4RE+4KBP6lqo735qeB2s0ZNwy9hlRgXWr
j6hOJuRxsqtuq2JEnfXElXTfkMP7h5zfx1eMqC7A7NLbmuew+yn51aFQRhSu
7OwT99YGekdlbM3bMSIcb8ixK0LewIz3TseqESN6EpG6EdkVAuRyQeI2xog2
Xgx/nX8dDb43jCrT8jKikq0fOSK30gDSKKRlpWZEsYnKFFPmmSD548Mx3k0G
VCW/L3+CMgfcM9YqEZ1mQN39rfbPK/KA/iTb02O9DOj7ncCkHrNCIOk0o6fQ
xIA+v67eG9w8vF9vVAoQChlQKcn3O0aSBWD0qffq+XgG5H+eZ+aTWR6oobqE
DHwZkGu4nrFBWA4Ij+KPMnVjQBZD3u97iFnAnnf5prUlAzrFV6Omt54BeI4H
k99TZECLRvJasWXJ4IVxm1bCEj0y5nhFZPIPAmaTUZwZI/Qo76RLKM2lF0DO
yWqhoJ0eVSS7V1GeugcWnv4LbnxFj0aWK+VEL96E+rmK3V+N6FE05d5yZFwk
lDxOmT6P0aO6R3GUsSdiIdnrQdfVY4fPL8riEz4kwNqPd3Gk1PTocu9NozTS
VzDcGJui2aRDAxlPFQz0M6HDJGMVyzQdmjfVafvEmw35NoqNRJvoEO3HmfHB
ujy49dRT9FghHeLzr3A09iuAvVQXNuXj6ZCW+tOt4ctFsCCK8526Lx26++eC
r6lgCfThnY8/70aH9t3/3bnZcjg/cmvsDSzpEJ1Jd/m5OyVQ4bivkqkOHeIA
aatS/CXwhwZ+1EmUDslQgTvrj4phumrg969MdGjMaHN/R7AYXpFb2TD4S4ui
MkrDSTuKIBJrYlLsp0V7ygJlOPYimEhtco7cmxYNuhwsy1YWQH1SouEDZ1oU
/Lr+iYJJAaTYFbP6YUyL1Cnd6NUP8uGdpd+evcdoUfaryaN6evlQqyeiImWM
Bj3sb3Fy/pEL995tQcYOGiQt6LnrHpkLq4iWH15U0aBp51Mhnoq5kL/y6Lx9
MA3SOpJdGOyfA/sLo3+P3qNBO5fNlaNkcmBQ1g6JvhUNKktnfZ84kA3VU6wY
W3RpkO3SB5MMz2y4EdPBK6dIg3iU/BbyhbJhUaisVL4wDfL8rjk7y5MFrfzj
FHgYadDVH+wKpCgDfnhw6zLJHDXa++JR7cGWCrNMDwI+RlOj1gVyDWMQBU0M
7WIJzw7zkUsf+JnCIKNud2aVIzVymUxgicgOhI/VUpoSMWqEn7ikMZP4GBoI
Kq7brFChhvk7vtFtdwElV/rB8BcqNDL8baM8+Qlowh1h0G2nQo9mJarnGw73
T7IBiZOpVGhwKEGUIjIc7M+6Wv67QIXEx9/4Cgomg5qvQ05u8lTIZYRzcn4w
FTh9Vns0g6dCFYMeamUhrwC+N9vfmJ4KeS3Yf1TBZ4KhDtqY938oUcV8nKeA
VxYIQXcz1GYokYHC2RDz1GyAvR4pLe+hRHtjlzTp7maDrUrCG+FGSpT/wnyv
8Vw2KCnK64zLpUSGEva1TjzZwDqb4TN11OHzH91deVazAFfqvRmvJ5SoxP2Z
RFdbFvAL09i/aUSJSJrjkqRuZwFzt4nTsqSUqOzK26cLxExg7PeTlvTnEdQX
ycJjHZcJDBL3pgZGjqDVj1Z1Y06Z4CziiXxccQSdPPdvpYc9E8jiri2/vXEE
1ckrWNU6ZwBJUbu2BN0j6PNdvz3ZMxlAROl+spPiEbRd2p9YwJEBuKxitHFM
R9DDixNZir6vAMu9LMGZXQpU/9ZzTFr2FWAIqtyqnadAf9U42QS+pAPqVNQd
1E+BNGqrLzL7pQOyit4c82YK5H3MwJ/ieDrYa5vwki2iQC25y/DPlzTwZ/in
IWk8BSpdHugLC04F60t7UoMvKBALySvfxeVEsHxAR5p/mwJdZHVSOG8QB+ZZ
eUcemx6WJy7/I7s6CkxKSJdfPEeB7nmQKJHKhoKhS9qW63wUyPiFKeXCAy/Q
d+uaXDs1BRpJo8uupXYCXQ/t6BI3yA/PQxNy4jMKsPmV32vwkRzd1dn8eNHo
GSxYRezBXuTo1hFmByuqeJhF3rdsbk+OZNbP1ZLnJME0zm9tskbkqGPCkywf
S4PRhH93B6XJEYeFe8+WWhYMNaK/kM9Bjjz76e9r0+XAAHtevCcZOZrQzudN
/pILvSKUewRHyVC4/LgDeFAIH2Rr5663k6GJ4gdMEWeLoVv9tSftlWRIQ5i5
bpKlFDp9sDNKTCNDeYnFFqemyqDNt/vSzsFkyJ8qm7T1WgW8/tuPVP0+GarX
WBtcVK+EplSxI7ibZOjbU1DAKl4Fr/Bml89cJENX6oQpDb2roP7xqoA6JTL0
U4juQaF4JdTWbLEMFiVDTLzfP5Aml0PNa31yFjgyZLVeX1wxXwKVnq9Mky6Q
ooUMU2dG73wo1CtN0EsgRTl/lYdibJPghmv2n5lNEuQU2XDsWW8UsL83fZ15
hgSVbY3YmX+JB6OPhd6p95GgTYudV0ozKaDF71VsUhEJSmXjD378NwvIhUz8
fZdAgprPl4o5eOeCggj+Wxt+JIjoCVqNjxSA8OSUk5dukCCKKcu/p5lKAWnG
aOKTiyRInG0lQTi2HNzL5SYpUiZBOSKE5CD6SrBQZGI/LE6CxEDgwoF+FTCv
SOihYCNBdca9Cg+jqkFP7Wf5U6Qk6FfWbIitWA3wfXBUhTh+QGSMZjwmblcN
nF4UUvPUHxBlXij1zudVAYNQieF7UQfEs27Wd/O/VwKFhNzcXucDosWNUFYH
yUrAnyVyT1rrgOipX1cr6VgBFusFmSd394nXTdk2jIZKgd8Mp66uzT5Rsf/W
EdOxfNCgQk0UUvxHfB94xOBdTwJIPxcQ9oT5H1H6bOlI56dY4G9AYTG8tEfM
ILl688NgFDC0I9kJzdgjrqxrz2XUBgKlu886vnvuESucE7dy37wAgk/24jSu
7hHl3vcyGfs+BMtR26e2afaIJGOxTU5i3LA/9QGp0exfYmdbHo6z0gG+zt/o
LW3+S8S51di+uPgIZlS5p1Mn/SXiiSGZqngfGADXXG55/CVe+T0QEuMfAF06
XVWb9f4S+0JZK5lt/KDRwDINt+Rfoom40XCEhg/E/1jI6xnfJTZU5ZznOvCC
lBt296Xqd4k5cyKxbE0P4c/9WU2/qMOcK3sS99gDNrJNTSpr7RKD/mn8Zpm3
hVewLzy55TvEvsGAy+w2JiAw4X24l882MZlR7lEUlx8Q9370uch0m3hq9vIy
mUMAeOsgITB6YpvY8/qO1b36IECm4l+q9O0PccumWPuacRjIEJbbtK/7Q0xS
ed/UmRsBCHQzaglhf4icQR5cabuR4Mk49nFT9Q+x1DIqlFEnBvC2r7KKsf4h
PtLO0Oq4GwsaS9PNryxuEdVPl5N4J8UBk3i9bN+WrcPeobs3KxEL/jzbW6xK
3CKqGCbKfHWJBvH2xaem72wRF8jE5oYqI4GcgZkn8/ktooD9LdW0n2HAXaiB
xm1zk/hFKp7fmzQQMNPaX371cZOIvSwPv/vSF1Sssyf1ZG8SM5Y7D6zZvcHP
Ng/JY4abxPDrf9peGroDB7vj5xfLNognjnnZfXpjDakuTYRzB2wQRwZoPx3R
cYN5imGftS03iHzMIyvCCg/hDPWSbT7dBnH2nHKcbKAPvF6c52fj8JuoNuno
UHM8Ev6LufoxhvCbGHb8a/mbxSiY+oSCrY3jN/HrM4M/rbkxUMW22nz95zpR
sadNvcsqDn7Rs84Wal8nBvIrBnziTYCPFJiXDFLXicMuRd0jnxMhhyA65e2x
TjzdxM8+GZUMa6nueJbrrBOfzLJ8l95IgVfW+FsnhNaJrxsUuu9Wp8DfIx9p
GHd+EbdDzaob3FNgdIvXZdD3i6h081nSwckU2Bv9ZTLl2S9iNc0727CKZKgj
H3dgMrZGLDe7ul9QmgR/8J89H1S1RlyVfTy76pIEgyh/h9cHrxFlydO6FGSS
YPuwgQCH0hqxqHg2/m1RIvTe4PLMk1ol5u15HJ/MT4DOz6g2k1OXianp0Vac
WXEwlF2s/ZbBMnEk2d++0DYOlpRoxMlQLBM5Ex65qkrFwZXRp/LNzktEBW9J
8LYsFrorbtyfUlkkypFLRVmmxsDHa5NbEl++E0VppJUjH0bB5MD9d2uh34nT
UtLhW6eiYKMAX8Jr7DsxQ0d6xmIlEu5dvKaoWzBP5AuVDpOyjYTehd0PXR/O
EWUEjFv9c8NhJrZ0XvHoHLHohrGLIV84bB2m5iL5NkuUyDTmEIwJgxSUZxui
tGaJgqLXnBq8Q6FY2s0gs90ZYqrtNTb/Py+hltxzE5GyGSJn/rXmy64vYaB1
43YN+wyRXdqEZck8BBbsDHc+fT9NjHI2aarvD4adkZuJWk+niXSlJnZ+F4Lh
DwlWR6aT00SlweHLOjnBkJZ4Qnlkdop4aqIt+dmxl/CosT5NZuIU8fRC+UxV
XSi8+NP5i+PFKaLaeorMd0I4DOfNf/y3epLIRa7yTaIwEpZXvb3w1v7Q1BXk
rbejYN+Fae4w3kkiD4O4pMWpaCiypnIPUH4j8nGy3I18EwOlCyU2fXPGiVxH
F8l2uuOhy7B1HDv9OFHmhJVETHQCLDuSLp/vMUaUlP+se+xaIjxpzfagS2OU
KElojb05mQSVeEn/4KaGiXijZPGu9VToeUEtIUv70CY4XZv6NNj08KGiXMVn
4gnLgDv7XumQMPjz4bXnQ8TY08oWSWQZ0JtMiuvH/CARp3DPdd4mA7aesGnw
1B8kxiqVe5/uyIAUN16Z0NcNELlUF6O9pTKhVtjodhr/ADEViOV2v8yEJXHG
88eC+on0yy+DZZYzIWt6/wBc/0Q8VWvHN663Djzz9Fv0LD8RqYXzOfd2qdQn
y7rKvnb0ETvvheH87VnVz9drpd4+1UesqFSTE6sVazZ/7s/6V7mXuHbx7ddm
Ia1mycinKzxMPcSGOjVFHmej5q2M++9VZj8SXz9OJM+yTWp+W3k7x+z1B6Jr
4uXu9z/rmqNabZ97hncR1YInQtlb2pqvD1iaJd96TzRLU97JGupolpm9Kt+o
1EkMeWlr0iLX2LyzoYcbZeggnrh7Y2d9O7r53RGtpZ3pdmLXadKux7Wl6rEc
6u+4G94SZe5GfuApL1a/KaGQqRzWRgwqE+x+U1CoLqsk+8TUupU4uVTWY5GV
r76nLX7tsWILsbDN28+55oP6e1OBU0n0iBj7oAh/1v6LusyQDI97GyQWnAsh
SHlOq3ds8fVV3n5DvADKVrebN9WtuRgCfnG+JiYskK6waZMR9pT/qZ5srSMG
VcnYlFbQEBLMf/5yc6khel/7MSAvxUA49fRrfgVHFVHb7kHNbAkjIRGkvJl8
UU4MaXzRdYELR+jx9pKw+lxEPB7BIqnLiiOQvzWP+SadR4yFZTqpbxgJSlRq
B9efZxK7LJTOZRkwEMZilT435ScRox4NiCt8pyZo8e6UvjGIJN6U1lhKKDlQ
RwHzHIvzXkTNjkbmQPYldRmiLJv8ojUhKJTfTtOiv3krKyQuwiGQMC21rDrX
sNWM+0DxW5sujmD0SLLX4jYFMe/sWV4d63TCndYLwq5p9ESBby2ZuePZBAUR
JOFAzUhcSJmSFw8qIJD6KRyz9mAiVpuQduWdLiXYuRtzy97BEYkhuPKY1QpC
4tOA+7ouTERRR/yO0blqwgfXndjUBQZiyPkTmmwptQQSK5eanzb0xFUxLGxw
rZ4w+OWd4N21I8QrFAbDsVqNhG5BJaNKpn/NjdM3hK6mNhG6ONu7SZ4uNwu2
3HFmX28mqLx6GyDL+625tZc4upiNCM9DzCTx4QPNm80dB109LQSfpckYETLU
LFnWK1q800pYqP4W1VtQ0GyWNnzhpehbQugDg0jZ8qLmsNBvrs6X2glSyi3h
YbUlzcjre4yu5zsChYOYBXJMaF53Wm04mttBsCqippRSKlcXM/vzla6vk6BM
Fhx+MbhV3eTCAdny7nuCH9i90j/SoR6iRCX5UewDgZo02FKTn6gOJZj0Sgw+
ErYYVIXfMpeqr3Fwuod6dRNIYjiVWkOuqQtTCia45PUQKo54fmO8qa9+dVO8
6eKnXoJ3V3DaKVNV9bPuCW4cz/oIVfqbKvE4zuavjry+AayfCBtDD1wE9Jia
H9x8FbdV8IkQxEh+C/eYpBlnKlJgp95PoHXbSBQz6IKdX2aG/Cb7CZ12yq5y
1ZnghVkOebbPAOHjQZxUgU4mUBmzOdkiOkgoSVyf5Z3OAOvmYje+vRskJJ68
lBHxOAMUjc+F/nMYIvh1FZuTM2cAa8u8Rl66z4SFdzjZFYNXYOC6BIfJpWFC
gbQvLyxLA6Hfvms++DVM8LZQi875mgrOWhXcjY0ZIViFb1KH0qeCmptS3X3D
Xwi4dfstM6dkEG9z1O+C1TjB7/XFT9tiCUB/bqnSnuwr4crSEe3JK/GA0q7k
m3/OV4IMP7G5wzcOPLQ/ptq6MEFY8D5ZEj8VA04s/HSYDPlGaK5aFH6GiwH3
5K7pPueYJMTOZifZEqKBTC3n47SGSYKhNkegXFokCNr8E1FCM0Uw2Ej/q5gY
AWblR/LemE0RGE2Yf1BuhQHsQQPsKp4iNL/x/TxkFArS6hIHv+xNEVwFt9py
KkPA7tajpQW9aYKQr0OlB1MwMFY0JdtOnybguPnCjwYEg6qHytxUa9OEjDGR
JQ6uEMDYwH2C48wM4VT6UW2yohDgtL2jJRY9Q0BWp3N/qr4E75RGLeVmZgjX
RFTJvnS/BM9eJ7809J8l3CvQaSr/FQpWG3m/h7+fI7ypcjxhqRwB+iB/OpXh
AiFrxojeYjYKxLQJ0e9Y/yT032G8eoMQD+jVNabTyn4SuHYtz5p6xQO/BusG
jd2fBDO/0tNG9fHgQWm2TWjUCmEi8SLL+eMJwCRBDAqiVcJCS0ivrGAiWKDO
vjB9ZI0gfXG0WdI8EYhpVdfUHF0j3P4sVSackAjS0UCI6cM1wvpiZygHUxKI
qGVTzGb8RdhmpdLZ308CH9dFs+7L/SKAdGPlbZVkQH1CnkHb7BfhqWSe5PqD
ZOBddHVmOfcXgQyco5pfSQZN3231iR9+Ec52xG59k04BO6IPXkf9+kUIuDw7
98UuBShYB4jacK4TPo6dHhrISgHur+IjFMA6gd7O9233RAooG8/bpb61ThBu
s6RJPpsClrjrbceC1gnjudNhuKIkIHmto6+0bJ0QGWTPEsiUCGxih1W9B9cJ
V5yX4//diwdXg7kW3jv/JhhtHRQM00aC6HeSRqlRvwnsVTTmqZOhoIdcudm1
/jch6SGrTXBxMNB6ZhrLSr5ByCaTeHDrjC9Q8kjGLJM3CKeslRyv1ziCexVF
xcfRBsFzrZlHDJmCyp+NHGTzGwSSbV6GW2HDatIOY8t5JzcJylpHKT+lOkJe
S76ktc5NQvSbW/zeqr7QJFmGom1lkyC6ZcoW4xYAY4fV7sSxbREyThjQ5eUG
wz42vVF7lS0Cn7MW2evRUEhvaHlOxWqL8MEwfW+OKhJqR9yuoA/YIlC5cT+6
kxUF/T8+5f1WvEXQD4v9va0WA1tpwgMqP20RUouY7vgMx8J9rfRfvn+2CMkS
b4u3lOOgil+ZhTH/HwLJ0DXWFYlY+LCluUNS8w/B2mfJc449Bq6pfkvrDv9D
kPjKojP4KxJOncDrcIpvE5zE2vpuGQVDu8gDVfZL2wRa5rAjt0gD4eLqxDHW
R9uEhj1jFetyP7helsbM1LVN4BtczLai84Zkx3i/ULruELzpdMbvMzjDgNDd
LoqEHYJS491y9/abkHb5SxMZ2iGsfTp15NuuAWQtTszYZ94lRHrIlh0TuwJE
pTgctmp3CY8Iau2Xkx6CgqBN042JXQKfQ4G5EXgCZBYGddep/hKua9M+LnLz
BhXna8Daib+EEgvsbHGrD5DLjzm+YvqXsO/2gKmEzR80UHoILfv8JYw2zWtO
ZfkDNTtD1sXivwSHCvkHb888A6j95JGFwb+EE9/TbN6Bu+CcGPOfuX9/CdgD
rotC3w1Al9/awoz4HoHaROSpc+xNqD/bOzp1aY+A3ZfqO91zHxpnhzd/zdwj
zPqW7HAuBUI7IfqAoXP/CHJ0rowhO4lw0Xvp4YDrP4Lfv4HoYJVU6DrZ5fgp
4R9haFWZM9jrFXzwKliv+8c/guoiGe7tfhYM5Kdibw/bJ8z39HC1eRdC+qfz
lG11+wSuTtIxDaFiGDnevo2+7ROwFrm01pYSmJjiN9508oDQadqNu0laAfn+
3uppNDsgWHye/5XxqQJmmGmiBt8DwrohycBkZiUUbRSuqis5IAT0ctfg3atg
ATdZTs3QAYHr4uk4K41qKPN4Kq5q/4BQ1nnxQQZLDTRxmdQcYSXB9OMoL7rH
VkMevj61a5IkWODyBRED+So4/oEo/1mNBEOaYbvHPlfAdK9y2auXSbB1+cxs
zpUyaHX0lcSgLQlmMythOHC8BM6GPOPuDyfBtM/Il+tU58E8FVeWy9kkWOPq
G0vKzWzosGhJ11dPgh1N16BvVciEyxfAv+5JEoxn61W/+70EuEm9N/n+FCkm
HW98m0LMBLqnaeJ+aJFiZ/ISL2dR3AFrJ18SqM1JsQfiD+t+BfiARTOedC1f
Uiwp4uK/MzSxwGH1ZrdtAinGwHg1XNwlCcz5Fu75FZNiqqGWgnS96WCyRMm8
bYAUu322Hu/UlQOun/EOmf5OiuX5qjqOe+WDsaGO16R7pFhzK7FS/1gRMHFi
+oHHkWFDpGd30UQJ+LxvzIWJkmFMZzo1TkeWgysx6edvKJFholheez++EnyS
mH/w7CIZVnFj4cfLx1VAv+lYXpoVGfYsyPa+6tEq8NHg/lDTPTLMq5uVWHW2
EujMNVGMB5Fhj1haqaWvV4COxxRyf1PJMNLyyRyN1TLQmhUTrdxOhtG3JX0Q
vFoMGjYqL9Wxk2PCS3Tco/gckJ248r68jhwL/Yl6VaYCAP6Ywk5PFzkWf9RO
ZdH0OUhveSq5MkGO2XnpDF3/5QYSF+kDZagoMPqOLz/uEO0hx/Mrdbq8FFhd
DLWZprYnjGFNnXM6ToGlCkXfsDfxg+FqR88WXqPAGhaMrR9bRUH6T+4enc4U
WPtgmmrqbiwMtm3M+v6cAstCs2zE2ERIuUvaTxlLgT0vOboyJZsK/cIvkIoX
UGApSrattp/SIJlI1IlzTRQY+t6boSieDp/Xj9yw6aPAJuJVntMc3qc8J+2b
s7YpMOFNJrVS0Vdw+175zxb6I9j5HE+e549fwfs0f/im8EcwO6O5bYOeV9Dt
VICX4IUj2KDJV7Nd1Qxo55ejlJp0BOOur+JMn8uAlyWnquJUKLE0D8uoOaUs
aPxh+7KZHiW2zNeJu2eVBc1ccb8ErCgxtXenIsmCsqBNDeF4gT8lNs5FHSE4
nAUdrl3rcUmkxGRa3RnLDufv7V3X2yeLKbEnzl/D1MSzD8dnAP0WpMR62bQZ
PuhlwwdYenFjHyXG3VwVano/G3rO1Oo8n6HE7O356RdSs+HzgO4fmluUGBUv
72RvbBb0k5oLoqahwjiB3TSZSSYM+rgn0c1LhcnfqJyV582AoXfYOqJkqbCC
w9vsp6Y0GMUiY2d8hgrr1IroV9RMgckm5jnf7Kgw6d43Y+QG8TD9r7tmzmMq
zI7VcNLxcwzMTg+ZdgilwgKuLcz2WkTBktnX+PVKKgwRpcYVB4Ig0Y0rjeIf
Fdbne4c8g9sGzgYNxUnFUGMnVr6NplyIAgtHf8qt5FJjG4UXPsu3xYCfPRSD
VQ3U2KBt9adetXiwxSbHojZBjT34GtBJfiIF7NbrVpL8osYUktba0grTwIHZ
LYN2chosXLr0W8rheZRi33M1mIMGe0pt/dVBPxNQZ0aH60vRYNfnOcbkX2YB
+rNFx1jVaLCRO+fmmxWyAfP3lo/D+jRY/gIl8SAwG3CEfHFOvUmDPb7ZmYB9
yQY8x37R3rxHg2mOBru9kM4Bgn3URWKBNBibke6FVq8cIOqBv7CYRIPNfaAX
Ju/OAcdeXwr0INJgPjBiwO9OLjhlYS+u1E+DXVa4XNKOcoHCwbP2vVkaTKCc
xZ+SJQ9g58rIA2hpseaMOIWgmjxg+IneO/EqLbbjm5L0cicfGN8TFbR0oMXe
7lm4f9QpAOacas1CXrRY/H0BXYbUAmBj6bxXlEGLHbfP3AtXLwQPfrx/BJdo
MSed/BvRvkUgnf/CGCcJHRZq7r1QPlYEOi53Anc2OqzGxfRu9+lisOZ/PuOj
JB028vTU7uLLYsDV+I5MAtBh++F0vtSzxQBbOWf74jIdhs+YpRNXKwGOwu0d
Y7Z0mHYljNWMLQHRxmelFTzpMNfWeP6byyWgMaQtNDKcDhOzprz6na4YTDdr
rC5m0WG2tuY3svgKAd3vlsvn6umwEIcKR8tj+cDCHHHsfqPD1l3Nng3oZ4P9
ozDj1kl6zOuPxaXnIglA3EqNvPkcPbb1j9Jm82wMuBT7xpbLjB6Lprb+9flj
OMjYey3d7UOPXTzLFnQ99xnQ6K6rURikx7Sv6h7DNJ9DJ1IFzqgFeiwr7fLP
6uuBMEa+9vHSHj1GH/WvrYM3As6mVatniDFgr98UNfzRSYD+rhWdNA8ZsF0D
0uoI62xYlnX8qM1LBmxQr6Rg8HIu/Py5LKz5FQMWo3MtnftMPtynlV3jqmHA
jM6TxV4/UQjFCaWGHp0MGPUrm7SBi0VQ30OmtnucAcsWe5eX5JYPH+YXc0r+
YsC4SyQqbsTmwE6movFxbkZM333If7g+Da5pShEUZRkx3+eJibcOEiD3o4LM
KA1GzCnUvHhVKxo6TebZaTkzYiLJAZqCJl6QvjJ7rbyJEVMQY5ntoIsEcnPC
RrSfGDEKrkufVN/GAUvurFqbOUaMiy60ufzJ4fn4RYYnNyMT9mTb5+OHB9nA
wDCNwvcGE3ZjYi+v+nsZeBTAZ//VgwmbLu7u2ZqqAJmNKe8Vg5iwggW+LlaD
KrAunBy+XMGE4a3fID2ZWsBzjfuXVjsTNpBO2+SUXAc0XyYaZX5hwpLGTOsD
qRuAC5Gz7u9PJuw6V2FVzoPXoOuxLv1RUhzGfHW7tGW2EQjzemwW0eKwX+m1
lpxX3gDPpuQJaTYcJlQra3Zj+jXot2ztKOLHYQYf8o3z3RqA1MGPCmkJHJY7
hTda3a8D3hnMyUUncNjen6RLimG1YOSMsq+0Cg47ysh68TlvDQjyC7oqrYfD
QlSOnGNSqgSTYhXqRcY47G7mnk9ZaDlQ6hiWkLbCYT3dK17qhSVggUZiV8oD
h4WJD9y+Pp0Hzke0p0sl4bC8CsVstcJ4kH7iZ2BhFg7bp+GLs5iOBFuf2O5K
leCwJ+0kjDsKASCPzUZTiojDrNYb9eYi1SBlMtmC5BwO+xKU290WlgCvq0p/
KljBYXwnWsayr6TBuvHLjZLb/6+pO4+mqgsfBx4pQt5cMxfXnVLKkEjDridF
pFCvkKnMIlIhKomE1xCZIuM1z8O95toyk0qSIVIoepGhQZJKv/tb6/t9ff/8
rHOe5+xnn33O3mets87ZBOUucwuNEQxsL8sIl+cThBwC79oMo1z8sKHDM09Y
EJYnxHgJGgVY2OaTlbyMICTV0gQDpIrx+bXiOnmbBWFvhKr4l5VS3JJ1QEVe
RRB8GC68PGns9Zy2o2TeHkFIPamYYGRYhj3+vbNW/rAgNK/9TGOw13uUrW/7
NpsIwpanMwEeHSU4oPT61c2+gnDmFOfnVyeL8MG62mb6Y0FocNz+jOGYixPM
x4pyegRBspM5uaczB3/6xRNPHxYE+20aXL3bcnD6AVMn+rwgLH7S3Lv+SxZe
07rITxchgNxV03zn6xnY1EFmMVuGAE7Db1rWjjBwGbf2CE2eAGX7bUeTDzIw
T75rR7YKAX6lT/5Uy0rHZ47GldP2EsB4rZvY8/XpuOrjw/vZhwlg9uSDfXdP
KhaIGL9F0yfAQuTnZM6EFOygyO+abUKADlZEy6eSJFz/XNWYZs2OTzjSJ2ia
iD1sg808nQlg571FZYX/Ht7yfciq9TIBmKZ8EdONsThWJsDRPogA/BLPDzcr
RGFn127v7EICLDmYvej5fQ2L8rkm0RYJ8PDxzkFDZhB6mtqQ5vmHAFkbLsp5
64Qh/x3CWa08QiCsW3wu7W0kmjn9oMheSgiUxwm/vW7HooxZgfJKqhCQuVQY
od3xyMTfpnKdohD0Uwy0UqUSUVPehvpsEIIbtmERreUpyHufZdM3XSHwuJWv
MvgrDW3vLmvT+lsI7r5477xIYaB3tlxP4iyEwHnsy76buhko4bvJ8wl7IXD8
zPEX74VMpB9W+FLtghCc4RAci4nNQmtl/wzc9haC4x8IAhE3s1EN8+Rwn78Q
6IbGKomcykZu2jmjtDAh0FQUPZGyJRtRh36Me8YKgXrPvUu0lSw06Hp8qjVF
CNS8JGKLe7LQ4biFz/ZlQrC1njiA2fOh5Ljm2pw+IRDUp1i+fZaJuq/Ecy++
FQL2WLjhkJGJbvNN82lPCgFnPD19jn3/+bTjrvCHZSH48WbL+xXZTNTmP0Kj
k4Rh1FX5nOylDHRdRHWr1xZh6BdkhuZqZyCV/CDFth3C0FupWqQklYGSu7fv
ctAShrbf6vMHWhjopJ3/3ip9YXjIqNnUkcBA3Eu9B9abCgPW2rPD0JWBLsle
18lxFobSCOR5VpSB5FnPjy1eFoZslUfxk9Pp6I025YS2rzBk9UGN+6N0FD3k
dSo+SBhSfJoGl2LSkY5b5+kPkcIQL334502ndLTCIWOlnigM4Y2txA0oHbHi
LtoEZQjDrFqHyiOvdOS0pdWhv1AYZgL9PCuG05EMFnehVwrD15fqtfmaDOQg
QTpx8BF7f7Hq3cfKGajYc/Mui8fCMGS+q25ONgPtU1RfG/1GGNrf73qg+jsD
maX9nfR7nQjEf9XAuDoLZfw08xffJAJ3d9Wis/RsNGVi46gqKQIB13bXc8Zl
I+9NF1XPKYqAy9o9j45cykFx/nee9BqLwE6hvY0vtuWh4Tdx5fNnRUDO5MFB
j6Q8RN2Tco/XRQRkkvY2ifLmI+aXQlvwE4Fl8r5m83/z0bI+S9f8HxFYdHh4
aOVUATpYWKfkFSMCEwX7WtJbClC37eOfhbki0LUDtU4w2OuJhu6xtnIReOqF
tUI2FaEzxFftYw9EoLoOtW31K0I53iPFv1pFwK9Doqf5ZRGa6/0QI9YtAnll
Qoc/8BUjdZU5nx1DItCXsLGK53Ax8o34dub4uAj8vMktr3C9GPFrc227tSQC
x0/85HOfKUZGGXyEVE5R8N79zTeaWoKSVghLNfyikCo3P19hUYK2Vsu1zJFE
4fPndy9/PC1BOvIHLMx0RSE2ujPpVnEpigrU1vT8WxQar7ZszJkoRQOjx+Wj
LEXhksrIgXGBMuSQaLHQelEUUiQGy9cfKUO3eK+Gq9wXhZmpp3F61WWo08H/
0rEsUVh587jL4mUZIjSHmDqWiIJwTxu323wZOi0btT+gRhTk25rBj68cpV+7
R01pEoW9dQ0+UZvL0eRAKm/NU1EwLMFMxqFypLQz51NPvyjYZdR9ZJ4pR15R
xf2zo6JwJb6a2nKtHNXPVDzk+SgKhFYz/hLXcrRe92EG5Zso/BiqgiPK5eh4
dnPI/j+iMPGJ4Dn6pQwNW/YYeQiJQQ3xyRuCdxla7pqfGdkrBg8mvazmuUrR
7R0joce1xCDEx+e+eXQJ2hTfJf9AXwyMea/3t8uWILplsV28tRh8VfDXT99T
jE5+dB4+FiwGChfC9p9wL0Rv9M2u1kWJwY8/EVfx7wLkxNQVl78vBh1RUVVb
wgrQDR95o7XFYmDDjFPkzMlHBdwfntT2iEHStzQZ1utcpObSd27zsBg4B2WY
yZ7LRQ1dLdxxE2KwSyw7PmwxB+ntqMjmnBeD9Xm5Pd9v5aD+uMxD7kti0KtR
IGAnmIOsf0SPveEQh4zHRUe7U7PRjEWAnx6fOLiblQbt25aNrjRclK4VFgcZ
rhLbttlsxEm1fkCXEYc1e7S4TZk5KCLY8HTsZnEYvzBcMOWVi8Q/HvjOoSIO
LdmX9a/tzUOKTBnVN4fEIVQwIy61JR+ZwXBBzDlxIEytUCb6i9BE5hMdjsvi
sCAT3+6VVIzcuR98cLsuDgNG2114zpagoK5E8tFIcUhqMGcqTJUipoXJ/TWV
7PhjFqRa33KEGrQ13OrFgfPfzV84RstRB0W9/3U7O5//1+ajmkz0dlqYUD0k
Dv3VoY7D61mI16fnH9c1EpBEqS35E1mB4oYbN7/eIAHh9YE3db5UIBKUt+oI
SYDvacOTd40qUWFmum0VUQLcFqSoQ1WVSJ07ioNKlwCryH+/kSWqUKOzX9pd
JQkw3Mpqd7lWhY51uaE/GhLQ1PXW/9liJRpQsXp9XlMCQoblXd6aViKbuOM+
Q3oSoD99yWi+rgLNLu0T0zklAcJLD9Ea6QrkbbGtstJKAgbXcW8W9GOhOxS+
z1EXJcBOLunHjkNM9KC8w+nIPQnoLQtCs/Gl6NUbl0k/hgS8S3q0LgBK0MKG
v5xqCtn5gpeeiU4XIUWbU45bGiRA2dLZClAByiC8s+ebkoDzG/T9Yt5noUf7
b08c+ioBVxeCjshHZKJhZ3n7678lIHTk0V9YPQOJNrvZzQpKgoGLLTwTSkOq
84LjNKIkuB3s6150SEaGUpW2VnRJCBU7Yk2qS0Shl3/aPN8jCW3NWwMun41F
uWmp77i1JGE8MZmQwrqLWp4ctAEDSeAcJWpHbLyDxr6Pj3mfloSvdbJzSrQI
tEIJsS63lQS9yk5JlY67SMpQYWzKVRIkI27v7/wdizSud50le0vCBzuwsVVN
QJd6hc/GhEuCv3BVflxqKopcUzPyJF4S5L1qHMTY81PRNvMzXAxJ2PQubul9
YAb6EMiw8qyUhLe1hkTfumxkpqZoafJWEnzOtdmW0orQFesXw5GTkmDTl/nt
WkMxio3wsOj4Igk6B/2DdcxLUddEnflubikI40/tc9cpRx8FrV5fFJQCv6Zw
mQERJuLZz2FeICUFl7yvOaL3TKQZf8RMSlkKTo+b/thwowKdaZoe/HuPFBy7
f0TTXa8SXZ+LOB1+WAoOGqqH9YtXoURJlcEWfSnYuZ7Wu+9DFarS7jX9bSoF
8g+FpDNZ1ejlpSuv1GylgHiJ02GDfw36lCpp6uYqBQLyn0su6Nci/id4IOeK
FMy9GfneJ1WHtnw/azLiLwUVEtdXtqrXIm0K14BYuBR03xS7rhJXjWwMco0N
46VAdJL5Y9dCJUrOnT3VWCAF+lVTC4eZTLTJ9KpR5kspuJ5d0o8t8tBSTcwJ
RxoR0sNLfmRtd8GmMzL/fFEkgmGM5v6jiwG4VragwVeDCDWBEvsV5CLx1aAG
pVg9Isiz3qd6PUjCQ7V6jrKniJAc5xh5eTId753tTy2wIsKak5bPFb7+//fb
Zzc2XiTC2U4dg2SeAmwR7K117BoRnIL2RxoJFWNct9Z3IJAINnL3Hdf/VYZl
5u5U2NwhQtSf2GCb2HJ8Q05yZvYeEeLfRObWS7DwW6Nsig+DCF2CU/zLhhX4
QIiyOVchO75PU8VpYwVOf/AgOrKCCAsJyaf6H7PwmnntTsl6IkRbLPocDmLh
s+Qejpx2ImwjGaYyNVm48ZTlbpUXRGh6n99E+sPEAQ8v5x0ZJ8IXZ0u+31eY
mCs0PciDVxoMfFqSK8+VYx7asmaXsTQQt9H8jt8vwU6mt6+ePisNp1iv2rcI
leDHYZuY4+ek4eae8E3rw4tx6Be63M/r0vBW5yuj3rcIT9OYpkFB0iDYnTN9
f7EQ651GUYJR0rDXxEz1yoVCzN/w95/NmdKQaN/YomRdgM9/favOKpKG3hmP
jfxD+fgZ3dltf5U0LF+WN548mY8Vzb5lP34kDaSfr1NbnuThOxE33xg9lob1
I1aXgjfk4bkGPpHRHmk4M+L7KYAjFxssxB9zGZaG9JFktxs/svEm8+IH/vPS
AKNDzp5Tmdj9jsZX/h/ScH/0x6T7WAZ+0di8NYFTBoZHxR3PDzJwtPxQYomI
DHxpKm5ri07DwovrvV/vlQHb1uzqjJPs5/W7Z3eqhcjAAXkTB2fda/hVlVhw
1F0Z9nhvry3ecRnHD3cNfrwvA60Md8l3uxwwQR75ZRTLQLzofSU5bSPUfXzh
xe8q9vaxj5/+MXRGdy4XUk83yADVYl02xwFPxPtIovOvlzJgKEHwQ1UBqGO8
m+gyLAMLXaf7khqDUBBvyIW2CXa+QIbC8tNQdFj5QJPcvAz0b9yF4/pC0Frj
RWHfJRnYs+XxFdNWf9R0rdjxFYcsGP5TZafu7IluMuzqVPlkIWi9i+M83RL9
muk5My0tCw3Phvfu/u6B6wihTK3NslB51OL9YJg/9tY4uI6hLAt3FDvlxZJD
8LdbpQUmh2TB72fPoI5VDJ6TDP/W4iQLHdYmTOtH6XhURyssjSULA1tU0fBI
CU51+/Vm+aEsOJw40v7tRBm2iGUpG7fJwruN3y78Vi3HgyNy/fyDsjAXZNjI
v8TECesG5Z3eyULAoZVzwkMsbKwQda35oyys/CkkEB9W4B6vFdLVFVlY8Oa2
U7hZhXW6hmqn15LATa2SX9WmGstbq9sm8JCgNM24fh9PDeZeuMuvvZEEdfc8
Zh71VOMPQbOVXwVJ0BEZLXkopRq3SuieYYiSoDu4TKfNsRpnFWXxGEiR4K1f
l5fujmps02NuXkAlwbcLvC8N2qvwQftqLtMtJOBwkud4ebcKk5YIJesUSSBw
VlvJ2KIKv5XuXGO9iwQ0w4Awi8+V2OycRo7YURIYKS8fOidVif9eI/I58AIJ
cj9NVQRcYOHrV47yJXiQ4NG8rMwNNRbOmvOjFfqQ4N3cqWCfn0y8MDx9+sUt
EsjPNp52D2ZiohHJYzyEBEdnvje5HGfiw09O3fkewa7/4/ZtjkJMfF4zLI83
hgR3p23jbAbLcWxtQ5N0AgkqphJXLNPK8UPlxWHlFBLMrDjIxMaU4/Fche+H
Mkgw6mNwJC+nHPPLWgua5JKgZ2GX+8PacrwzPl7BuYgELRdIid1Py7HFxqda
vuUkqJ7maRofKceBgRxno6pIkGf/eXrpSznuvXQ+tqqBBBHmTfvkJJj41xSj
5HErCfz6C+zVtjEx1XqgY7iTBJdOxNzRPcDEHgaavzn7SGB8xG70oj0TC28T
dzCYIoGs6vrApnIm3pd5/KbNHAkIJXNF/S1MbCd5677nVxJwbRnomx5g4gqe
ua6k3ySYlMnbLLTCxKcmmndNCspBBe/RJ7ZHWfiGxY8TP0XloPD2joUrliyc
81LxvABRDlLWSEmHu7Nw11G7IDk5OYi6tlY7/RYLLzYmpu+ky0HA4ke3ingW
ltn9vO6Ighx4XOy915HPwtplXH1mynKAK6/4lZawsNvmPfOuanIw3Y/GNrId
n3phg/8eORBbWnvofDELq1/TuvRMXw6eXid2ThSwcL+J1GsJW3Z+DrUTZ/JY
WFSwvYgZJgczvA5nTmaysEnnpRt6FXJgInzPVSuVhacftTq3YDm4U/PmkVgK
u55KcRPULgfLnJeHbsSxMKHQ5VBVtxzUTjTLM8PZ9aXXKykNycG1DuErE+x6
9sQLEvPey8HeQvtW8Wss/CzMjkduVg5WIqqEjl1i4QUv3jHCGjLc/Nu0jHmW
hes/q5o85yLDWMtNk2MWLBxy3vJZ2AYyHFTPX5kwYWGiTVktlxAZ1kgsH5Mw
YOFDx42jF2lkuPU2acoPsTB/hx8PaysZxg1aoiR2s+vVzL9xQYkMhxtndrF2
srCzxi/nSQ0yrMtCQR8UWHgnizaWhcjgIOKw/eZmFl7ZbmBirUmG9qA7vRIU
Fu7I834mfYQMtKWqaywZFo6mZBwa0iND0LkR8nFJFrZIfVIbb0iGySHuzg8i
LEyX+Kb09ykymFx58rfVAhN/ipHJ+cuMDMnbVCxTO5i4TkCH+NSK3b6xeIe3
yUwc+M/F6BBbMmy99+uCzEUm1udK4tFyIsPFYzY+VlpMPPZjdgFfJANv9fbw
t7PlWLl7dw7jHhmOWZsPvI0sw8tHbYlWyWSIEW0clbErwy2t4dGSDDIMPaFP
W2mUYdMHIzdiCsjQfX78B24sxX45t01uYzIQxQha9bYlWEeu9NnBJjI89H9j
sp+/BBOSXx1aaWPnn8lzrq8oxjl3FZSvdJPBsfFAVP26YuzOfypHtY8Miwp8
mftLivCe4BvET4NkCIzvr6w3LsJcnHnRRW/JQODI6Nj/pxB3XX/Bc+49GdJd
XF/X5xbisde986GTZHB3ElRLelyAF/a86i+aJYP+jrO7fj3LxxI/3mZ9+k6G
PW2/99b352I7zxnw5qfAu1kNLc3JTHyld37zfUEKPKoOPpI5k4FDVb8KPBSl
QIp/vy7XZwYu+/xj+A+JAuVbJ5PDv6bhn67cPsFqFPjtY1UaK5qABZ7xns3f
Q4Gajb9YxrLxmLRN4MiTAxQYYCTWiMvHYu1pYZG/jlJA/3FvY/LuKHxaV/yX
sgEFhOvGw3FgOD6fJ/X+pBEFQsZk4w/Gh+BoB3J5vBUFPJTj83Rrb+LsVlpC
jS0FOkozbJPifHANdYvfkBMFGlbEvTJrLuLOW9scfrlSwDBVRtCk2ha/ead0
XOYyBdaMnS7b/fEA/nRQdSd4sz1keecCfTfiZKhL2fiy41mSVVU0SyyyZg9n
YAAF5Hd//VuT5o7lz6Cp7GAKnG09syzK4YP31kN3ezgFeuUduj3nbmJ96cPV
U3cp8MktmXLW4jb2eH309vZkCuz7ydO5U+MOfmRiKldZRgH3DRf55r/fwz1V
5jwDlRQI2MavNq54H4+LnJlfqqMA1SDXatA+GfP22uN9rRRgdM69GjuXjo0N
L59uGaRA8ybatqcDWfhcqRd8eEsBvYwvDdpfs/F1gaubecbZ7VFtONUokIsZ
T29+05ujQImxuV+VVj6uUAgcdv1KAfVJeWEV9nqsLTS4OXKJAsE+i3mF1wvx
4FRoQflvCgjwtSB6QhGe0blz9yUnFe4l3+1JZxXjP7l3vb9xU4GkeMZR6jl7
/HLHnRHbSAXW2ddz+n4lmOaQoL2bQIX7Xlvz1OKKsUZr0nZzMSoEhPtYEwuL
sB41TdiXSAWnjA7JtY2F2OpWxs9UOSoY1oj1TvUX4FsH8x+/U6CC3nildjVn
Pm5J1KyfUabCjyVnzXfEPLz+y2vmohoVvDeS9m/clYtDMwSSeYEKV9RD1Wxd
snHUWg+3HUZU6A6xov7Vy8A95htt952mgkGKEGnPXDoWrsgx0baiwvPyDil7
nnR8z24QzJyosFRpT/fyScaprfuFAq6z9zcT4Oo6GodHpV9xh/tT4fgt758U
vxgs53XxV1wQFfKK3n3xYd3FNl28n9PCqMBZlNib9jwSZ9GzJvKj2F5xbdbT
CMcfbqAhVhwV1hhqMr+nh2D5gf4ufJ/tDFFG5obb2FnJvbk9jQrn1hGalNJu
48LgDTUvsqhgkrvkurEgGM+MZBS9zqfCAd0RiY8V/2BFjX2MiRIqxH5sbe14
FIaZk26hP2rY25VjpAP7InGNbq+F3DMqWA3HO/iuicXLDNcTCj1UCNkeum9m
XRzet7xeW22Afb5u+BLM+eLxo4LdSrpjVOgh2dVrsK/XNr40jovfqKBlryK6
oJCMeew0Fq8uU8G9ijpjo5KCdR++mA78QwUHbvGmF+qp+Ol5rt6EDTRoNvpT
NUBKxwKtKR0ZAjQw/b0kF5mZjg2ld+EiIRrMZn8J16Yz8Mtn53IapGnwe3HC
plIhAwvT1yZ1kmngnTby7HxJBja+kRzZu5kGG3UGNagqmTihXy3w7TYaZHzq
yXzNysRDis+9J1VowHfOd4wrIxMTg51cv6jTYNN5MYkjmpnYcoTD5tdeGmy5
UG74z7sMPBq5U2+TNg20PScebaRkYPLkswOSejTQ8/b7btDMwHbguJNqSIMT
1ySUom0Z+N9PidIaZjS44H88VTQrHc+d+DN/xo0G26Rcfuw/mop7isNB6DIN
xju5X6XdS8GVGyTvtl1h1381q2rNRDK+3rhzx3Z/GlgOvbnc5JeEeVWcPZZj
aBCRaDinVZmA58K/txQn0OCI7uzTHM4E/GIyUMQ6hQabf/xTyG14Dyekp1W1
59CgwbTZ6fF0HKZt6luKraUBQVz9/TFSDOY5b6OrU0+DhfaexmLXaDzTPp/4
s4kGoYZqme2P7+LnFN/pknZ2f+72vUVEdzHTj3evzVMaOJFbbS+WRWGYP+Cr
NMJub9jjx//8DMcWXQUcnVx0KJLQ6RpQDsSwVeOk7wY6HP44cMdf7BamBLVm
KAvQgYwdDRRW/PE0Gj10T4wOBxsFGL/j/bB3sUiQ3VY6yBtEZOs99cIWGzL7
xZToYPaliJ6W6IEP2CtvfqJKB6H4p7lfHC7h9dJ6HSqIDpvqxIxU157H096v
xCcO0iF2jYnxUIojftZrfy5Bmw6LR+JN/TVscZny11o9PTr0yhRWGuZY4tjw
m7x/DOjQULilLvW1Efae3GjONKJDB+uQ9SPvo9j8cFKh/Wk6JBiahCVIHsb7
0+V/iVuxj/e6z/m9915M/lV57KkNHYC27Kvgsx2vNz2U4udIh5vHyInAuQZP
sbpnd5xn519yUuHzpqEyl493Ej3Z8etVvQ0lNdGTo8ZCO5PY/RUy8XhM0xot
heLeY+l0ePVxbUrbLxtEfUKNt8+mQ40+2b2wyg5d1/sqfq+UDu7CZ0Q9tzqh
vDCzodIKOhhe8Z06PX4O9T1pTOqopYP3UNLD/akuSPFYlMxyMx1C0l/Z8BAu
ILPw7yOEx3So8P95f9HeHQU/tWIodNFBhxXKNaV5EVXwt9kcfkmH0XEJt9ey
l9Dose1Uy1fs/KL5A89+XUL8EbETnm/o8PCIxsGGwcto97OfOXfe0cHIp72A
WeWBHDbaOuX+S4f//Z549PHOLQ0zq66PUPn46vOqPz5LKPq8uOrD+o5KFI7N
//mbPpdakMiqTQ33w7H9qw6MyuawP7Tq8m7+Zl+dVfOeeK1VenLVD0946xEc
Vy37N9P4VeSqP5yiu9qNrboi0T+U/mHVAW+Gcyen/0+8fcy78wv/p30ea0w9
ueX/c2f0kGbQ9lUXP78jnuezag/d780fBbf855oQ7Zte+7b+5z1DApctbyr8
Z0XhVzZJJdv+89Hg5YVR1qodlonB9NpVp41aF5Y3r3pT8cev7a9W/VnrT+AC
5/bVeq/Qc4+brLp7Wmd3jMWqZyxdnryyXjXtcNm87flVx2/ao3HVf9Xe+ccf
5xSuOpbobj5TtuqyyOhZlapVT3kOCOKGVZtpWpu97Fu1V+WtGfHXq46Wz7lh
NbrqToGPGVPTq/7gv1FN6dOqOb8ptXt8W7WM08nTdcur/p//Gfzn/wd71PmH

          "]]}, Annotation[#, "Charting`Private`Tag$5011#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxE13VUFd33MHC649LdjYgiKCjoPYLyiCipiKCCpCIioiCgIBiUiHRK1710
SMfd0l2CIN2SgpQ0P9+13vV1/pn1WWtm73POzOw5W8jsiZ4lCRER0QdyIqL/
d1Yeer54dHQciP7/MVCWuKKx989OkR3rIVv/nHdTcl9i+Z9Fu4bodAb/ma5e
VTbhyz+P5mCeoof/7Pkma8ujR+Z/9uV41Jr64dj/zF8nmfzMSPp/PhB9wHbh
hNT/rHThVscx6X92uKXuzSX2z3O+ojsb3P/c82t8OJPin9NKb6dwjUr+z1rX
NOU3/f/Zx/Lc0qT3P9e6S6V2vflnpXxKjiznfxZmr9s1s/jnrTGVmi7lf457
JqubtSDxPyv6SuWszvxzV5wo7emJfyZu4a6v6v9nC0HKs511/yzdPia4FvfP
tZODbmei//nOdt+ga9g/fxRpCyX1/+dVl1IqNpd/LhYPWlXU/2dtFf/rr7T+
eU7XOwM0/pnLzc1CA/3zq28PB4yO/zPbvMXpeMl/zjk0CZ4S+ecxKYNrttz/
rOqhCm6U/zwUdp6vhuSfn2cquVIciv/PdF/l+6/u/HPqd1mFTxv/fGFJKujb
yj9/Jxb7xbH4z084BDXvzP4z1XEeXMKEOFDXf065UBAECars5DPD4hDJb5I4
3h4EZw2ZzKQGxEHQWSjuzXwQ2Lyl5C3oEIczx9IiGgSDof3H+qfaCnG4F5Tr
p/UpGHhp2V4lFYvDXPZ/jSg7GGxVzjzwzBcH25YxUvnWYKCLd0bYdHFwJMW4
cVCGwDWLg9XyYHHwdrR/Mu4eAp/D+EeiPooDbTBVVs/nEFhqwDY7+4hDQE7C
XF15CHyQepN4xl0c4n523cdvhUDLLwq9gofi8OW23A0Hu1DgFpS8EGQhDmed
mgMt/EPBRldD2t5EHKqC77cbZIRC+Rsbdm0jcVDN3aHWaAoF6i8fSGRvikNb
a5C68mwoGM5k/aLTEYdP10vP+TOFAY69Y3DxqjicCBdNlFcNgysumEI8+jsf
iYPHb5LDIDJDLt5HWRzo7B/2SvWGwdyQ3gfrM+KQWdp3rpssHLwvhJmLyYjD
ukYOpaBVODSQcrMmcoiDi61JYpVkBLCfVibyYBYHzqJWSsvbEWBldWfpHr04
lB4o2tH5RQB5c1wdL+nf5/UJo2y8GAGXAkQcI3+JgXf+197t7EgIJVy6/2Je
DMR2jysnjEbC9KrldYNpMahTjU78jzEK3urjxFgHxYCu18Eu3D4Ket41M633
ikEx71jv+cQoEC5eOOjuFIOblprKM91RUMN5/PunejEI2RKhUpCPBuarWjV2
IAYTGafl+K2iwezlk5zrFWLAyxF3rDwtGohH871o88Xg84qd4JpEDKDkM4re
n8UgKAFDYyb9GaqPo0j3Z2LwkuTGyMUTcTBm2erkaCcGp7DLp/Ls4oAozuCm
7UMxmH/p5cOfEweqDI+ZjUzE4NZmqfyeTDw0/IryP60pBlwbDJeN2BKgPXfd
Y0lYDAQTr19JZkiEXz/dTab4xIDBufqVvUwiMAjSXBjkFAMS7RP5568mgk6g
4F4jgxiM7mO4B94nQq/9dcfkXVEIN+xdpDtIhGG59IdGPaJAiTH+5LSYBAcP
T13RbReFzdnWWjXqZOBPqhK/0iQKU1Uq2xiJZDBl7p06XS0KhEf89zPNksHz
qkmNTJko5Kh+CnP2SIakNwsJIl9E4TMXUcvluGSYWiO6x5QhCm6NE6fGfyQD
2TF/FapUUbCN07PO/pMMouYcPEfxomDqWBvjypYCl2OSdjajRUH59XjG9OkU
sPp2fGApTBQkOZt1e0xSwJu2rHgqUBRY8vO3Cb4pgFO7FDb4QRSONKLjswtT
YKHQSK/JUxS+v3y07EOZCrRLMycJr0ShhvVGqJNcKsiIPmUsfvF3vNkqyhbG
qWAX6t2W/FgU3o3R+2JzU2Ht+Rf117dFQV4tT3TLIA12TjMon5EThSiaTWPz
tHRwtkmteisjCo8LG2Jft6fDdpwK6pYQhbN3IsdiNtJhi/LRZVt+UZjMVjbv
VcWBowpJUxmXKBQb0KeuPsTBhn3UVUo2UfhwNDpLF4SDZ6kn229gRMEElycp
VYqDtR+N2km0f/PrvrG5PIaDpwwmPSsUouBHmx9cyICHVdWtG+dJRCGeOG5e
4DIefmWKGg1si0DT8ouI7Xw8LLp5WjDMigBDw7F1/IcMsCng/Gk8IQLClZxX
2WsyYGE29yF+WASOFZAnvtnOgDntUbtL30TgRtyYlrFlJkwLKbu4ggikOYVk
0GGzYKR+4+NstAhckNi7/2QtG+7sfsAohIuAPt9c6ZBkDgzLioR4BonAHZY+
xismOTAYoRvJ6yMC749yqgTbcuB22xy3zVsRiNyMYf1IkgsDRB6xJe4ikLPo
82hHKRduneYQJHcVgdoJxxrLJ7nw/WFOkp6jCDRX0RWrhOXCzbjLYgn2IjA+
Ntt9MSYXenuG05cficA68ddl9cRc6FGmzfYxEwE+dUcx3exc6KR/UFKtLQKP
O0ZCLetzQUv16Cydpgi8WS3Js2nNhQ6n8Mrb6iIQxhzc9qQ7F9rG6r5uqIhA
tYE6metILjTlC7VJS4sA41jOs4DNXPhvtlTLWUwERIl9P4Xs5UIDt053vaAI
fA7Kv9lGlAd1b92/m3KIQH7hh6fdFHnw9ebQeDiZCPz4g8UPMefBdmrkmvuR
MJwbPFAUYM8D2a2bZNa7whBdWdFgxpUHFuos7NqbwrAf53IzjTcPosO7JBRX
heGOp+L0vEAedM1+PCuwKAzV5psOx0XygEJRU5NyVhgE1AuJn4rngYo31d2V
cWFYxk+UH/LkgUN/vV3/kDCUml3s26TJA5zEWw/Cd2EgV1Qd+7GeC6MvUHB6
tzDE4ohZm/7OX5OzouhFozB0fPBwS/mYC6K38/Y5CoVBRs9d5y55LhjhHzMQ
5QjD19rz7zWnciBwR1pwDicMhqcPys5+zYH9qFS10jhheMv5SoTdLQf6BqP9
DP2EYXzUZatjIxvojhl+Ru+FwU3n7LGqnmxQfcmWI+khDCw12yaZedmQwxPY
ve0oDOdTXzR722aD1533nFH3hSHskeNnNJ0FlVmq0p53hOHYiEK3bE0WrO0f
KT+8JQygtUHOl5AFkterruvqCYMBFJ6jdc+Ce7GuJmevCwO9QZHz1wdZELqs
+FToyt/5nFySHbqRBS3nN99QqwmDJo3IzAbKAsXRJ2k/lIThU3WgriRXFtjJ
Hi/9Ki8MeZGNlKrkWZDivtCMlxWGbofDKuPfmYARsFx2ERUGBglb6U/NmTBn
YqTAjRGGD5/+I91yyQT+PA51ElphyHjoXsZolQk3iPpuLZALQ5Na0RMpvUz4
mqD9snxPCOi2hYfvSGdC9MSlGqOfQvDB9PBL7WAGdMmR9KpOCkHmudOPRhoy
gOINYUZ6RAhaWG2F/hRkgIPwOeq9HiGgbv7xUfrv941z+MM91S4EksmYS5de
ZMBozReZ1iYh+M/tv9275hnAyuJwobBWCKxuuee90M4ATfMTOjHVQkAimcxd
fjYDxnO3yQfLhKBfpuFzE1cGPN//WsFZJASpcvP8/Tv4v/uRGxLhmUKgqnxC
ZKPsb71pdDkMjBQCH62KY7Ln8BAkU5fl5SAEDI7fVJLO4UDc5aNZ/WMhmHLZ
qs7jxkF5vQEn2UMhKHDnukjYTYfJe/NvPU2E4LqPyeXh8nRQCGIwfnVNCEJj
Fq+zK6dD00g/puI/ITBLYOgS5UmHu9KJDTuqQqCYKqcnv5cGXrXyp16cFYLB
nBcGOhVpwI05+FmkIAS4wuiBezFpkHOnIXbjhBA4lVYZPX6ZBqr4T/ryx/6O
p1Iuh94wDfo3DakdxIXgUkiA3qXjaWCrKkzIE/o734eLW64kaX/3GYvPV3iF
YB97JSa/PxUkJd3HbVmEIGuJeJr/TSq4GiWXWBMJAb+6o+PO9xTgIyxb3h0U
hD/bxpE5f/9/BbQlPJ/7BMGws1Rl5mYyqBt6dA92CUJeKtsEz7FksPvNfN6w
URBM9DqlfPuSAESUWPW/CEJ3pmqFuXQSmPu8qbkSIAgaORkDtIsJ0DRUZBPv
KwgPLOeN+FsSQPbEPPPWO0EI5JUcOYlPgN0+bfPkl4Iw4pc6cdM6AQJF+MgO
HwhCbwfqwzbGQ2V1yeVCNUGguiizY10aC8LMi8vUWEG4mYs/8HeKBW9L/nDT
c4IQxidBUqAQC3p072fp5QRBaFeIdj/vM8zd1vN+wC8IKoUcfIH4GNDKfn+C
wCUIvkJhQkXWMVBIVNbPxiYITZ+YxQfFYoDzxtJrW8zffIefpI+mosE9XUCy
lvZvPlv6E6JJ0TC9q9fFRSkIqXYPPAlm0aCh5eVsTyIIuubrbdeUouGu2rOL
AXsCQGzozjlIHw2SCz+ClNcEIP8atYX1VBSsB6LJuTkBML0YmrtRGgXViumn
wscEgOmMwJ5nQBTceP/822qbANgLnA7+fDYKPAQZ2dLSBeDEmil0f4qEAYNL
kZi7ApAdUcqrohIByQcZc1X6AnDXX+1BM1ME2KUwnX10VQDoPDsKDX6GA9na
6I96RQF4bDN99WlwOHRGXpZ+JisAvCZPwg+twyEam+UqKCYAbfq7Ex/Oh8PJ
jy48L5kF4Nh5jEvaXBjsyY8/kqQWgCG5mDr56jBoGFSv7DviBz9xcczXkDAI
8syme7vFD8o8+cZaD8PgjiTr3ZPL/LDAqJI+dCEMJDpds0em+KFo5raEmXgY
rDlOHPgN8sNN71eX1tnDoJr3ipZSNz9sScbff0cZBr61OXEzjfwQ3vLVnW07
FGoS79M3VfGDE2ajxuBnKOy/Zn2VUcgPhgbilJHfQ8FOxfX2k3h+4J70+8Rd
FAp6RZdZd5z4IXZHP0HAIRQ+hGy/GbLlBzes17Tp/VCoe5r5u8qMH+6+L5VM
0gmFM7JMnW+0+EGAiS9f9MTf/iN92JdOnB8SJWe/Si2FgP77T9u/ePjhjR0n
xaOhEPA3V7XuZuIH8y9Xr2a1hMChAO5S+AEfiKLcHll8CCgeGhU6r/MBmdcE
u31kCNgP0wsbz/PBTCuLcb53CGSUQ+D5MT5oYlKPX3MKganIZ0cCfXyAv+U8
JW8VArwvxO1IWvnANzZDwvFmCBjc/DE8DXzgRn3GsFU3BD7J+2s2FvMBUV2U
SdL9kL9xsOX4LD7wdD+wcnkaAsSrvyX9k/7mP3vfTsczBM51pETYRfKB13qd
o0RQCGT50TjKv/sb/4H/u768EJh5UDXF5soHtCKrH7IgBPj/s9fbfsIHASP6
IW+7QiCQ9PuJKmM+CNTjSZJbDQHHV4kL6vJ8EK6SQfj4d71yjG7clpLiA84/
9I0W2FCYU6JsohXgg6j8px3K2qFgtGmb2kXDB7HiZ0fm//Z3F+yUTI0meSEF
07R7OScUXlxb7FAZ4AWJ1mMkfNWhkCcdd16ggxdw7z9Rb7SHwjyVbhZxHS9I
o3VM60goCP8k5Zku44WsXQPOpOVQMK4v9m3I5YXjReUCLgehEJr8cBuXygu5
T/gldOjDoMOT1/pDDC+wCbU4rl4MA0rTzr7HQbyQQTzy5j4uDNCFN5d0vHkB
Ta586mEIB1fe04Wn3HihpYYkVs0xHJYGogP/POCFzbeSJWKqEdCla6XpiXjh
KsXzxfmhSGiQlCNhUuSFXaerfB7KUVBxtFeacJwXvvwU1GaPiYK07CBx4OYF
vub2AlWjaHhFXUV8tMEDCx8kXGMGYsBh3Ls0YJEHovYPMuWUPoN1id4T/kke
0HvcO9IY8Rn0LOeGz3fyQLmW58UNg1iQ/MpS+grPAz5MQ1TX++KAP3LUji6B
BxTf5J+bUogHlid4sc/hPLC65m3rEhoPVOrPh4995AGc+b04xo14OOTFhlS8
5QEZG+65HqkE2FinvqrpygPhyTx0/cYJMN/SSzRkzwPHmocOySoTYDQxvsTG
mgdqf8X8PsX7t/9ytrHbvcsD2qx3pk1fJUKL9mkxvxs8MHyWtz9gOBEI4kTD
XJo84GAy3FypkgQZvWEaZ5V4IDTjTi7nQRJ4nvwq6szMAz3ormuXWwo4UfoP
UVLzgI0V3+PDkRSwHTUIjjjihs0PIyYyF1LB0H/pqHiJGxj77172OUwF2TmO
oc0GbjB4fA+DXqfDYLxd0LOX3DAZZZKW65EBpxh5D+2mueD9V7ZNz//yIJxP
/pv8IBfQ2XGekHiVBzvHruK2O7kgipvnYVteHsAVZ703FVyQ8UxwhJ07H7Tf
9KaFBXNBs9ix+sylfLDd9NeuRFzA5IfC+oIKoYs0RdTzDBeEnVHrdG0oBHnm
ip3LMlzA8TEGp79bCLuy88mdHFxAdexjLZh8AZ8Hl7cnf3HCnJX9TrR0EaQO
HSRQx3JC8ugZS20oBqoFVqeOYE6Izc5dI18vBtvtY5ohPpwQ9krSo1KsBBTY
jDZ5n3OCOzd3jNSHEogUedoy8ZATns8HS45XlcCenE98mgknPCmlLQ5fLYEa
rWKNk5qcYGJw0EVqUArid9v5NxEn3BBzulfuUwq+j6bXy85wgs7Gr0X7ilJY
ctlrcpfhhP9qrV0kfpWCjg9znJowJ6DgcYpRwTL4Ei71jIqTE87cvx0aql8G
HKnoSjs9J5w42SOk6VUGroW3+IJJ/94v0aKRS1wOo1/t1gx2OKDoalaET0g5
qHa9b+RZ4QBhu4CZ+2IVkDr6+fP4NAfEBdnLK5dUgO1ei7pNFwf4DSh0Lg9W
wp6CRIxbOgfoWlVR6AsTgBM3ppZykwP+oJ/lAQNfgb+u5SBSkwOUXmiQiAvW
gOh4UcnHixzwMjtTo8q6Bk5y+h97cZwDjrjsBxa3auCMwouZRyIccFGnR+Dt
hVpQ0TGLN+XigLdeCtbcXrXwn48Sy1VyDmBY3968wlYH11JE2i/ssYOhlPH5
8Tt1oAcM3vK/2SHapOrdi5Q6MBzeQZI/2WE4TKCNYakO7m1P7/KOsMP8kLmc
yo16sGDt+sL0jR38Le07Awj1YHOywo6imR1Orrx6PCHdAE4PgiZXvrDDC5Jw
vBdxI7x69+rzdAY78Pgn/ffDthHeJFgb/EhgBwJb7syxgUYIGDjfUuPPDhRS
TULdOU2QdmUhP8yCHcK0d6N47rRAn6SapzLr3+s/3/PLK26HwUuyyidp2OGR
+CNJUuEOGDfl2hQlYgfGvBcNNz92wFLkygOGJTYwrA0k2TPvhLUvg8Kkk2yw
fy024XpnJ2x31Q//6WcD7cUbAjp8XXC4lBe+1M4GQieN7Xb0uoCM+rPORC0b
rD+/X5Xk0wU0Yt4038vYQI8z4HKraxdgLjrUteSygcnrueYx/S5gv3vXnZDK
BrazqlobMl3A63JF6UsMG7hcj+2hougC4TD5NVwQG9A9XMk+V90Jkvn8WbHe
bCCmmFJsbt8JCvMbAt7P2MDoG31TUW8HnCMf//HyIRs4JtZ0jXp1ABJqDbE3
YYNPT178oDzbAdduJ1IaabJBLe3Ewu3YdjBvvr4iI8IGope+0B9atkEwPq26
p4cVlr4Y6av/aYYb1Xh43swKCwPNajk5zcD+LauGHVhhdl9Jgd2qGQZ+5taV
FrPClCBO1J2vGWL2CxqMsllh/hIH22xvE9xjKm7aT/4b74EXuZZ/EwiKl7XE
RbNC92seSnZsE0yeq2xDQazQQcskyf33eaZoEzomvVmhLYJCg/9pI1hZ1HS9
c2eFFpH9h8I0jSDlUt8j7sgKPbm//cSTGyAnqfW7jRkr/GgcbpPtq4eSzf7R
NRVW6P9ToIM9WweuNEPjofKsMP4W91St5+/7LTA6eUaaFcYY44L/e1T7t75N
z7pysMKAhG+vdmwNtMSs/iJZY4HpWyaGpsRfwT9vfTVljgXGp264WET/bUvr
t9bUx1hg9MnV6AfyAN9+7W/5tbFAI+Oj0omWahi+SH3EnP7XTziAJKQC4gzo
iItiWaDWm4SEtr4c7j9iJL0VygK98ctqLH/KQNSDmXzH72++koH3PFJlMBvK
Rhnj+Td+Z22jiHEp4PCc1OedWeDHzxxqmY8lYFPNQztmxwJkybl7DH/rn8w3
fnpPSxZgCTVzeNZeDCs/hRhF7rDA8fds8/2OxVCwL8pUr8cC6k5NJir8xfCc
SZLFWoMFDKxffk9oKILtc7IcmWdY4LnGRO1DjiIgCTgnIM/EAvX02XF7pYVQ
l3ReqI/y73gPTdhM7xeCVwkSeXHIDNMrzP511IVAO6EuUbHIDPQ9zi4fjQqA
VUH/hFoDM+iHX7ohsJ8H368YyM1UMoOF95+Wtyl5EHX3trx3ITO8cs64OHct
D/i9TRRbE5jhSpHgPTPlXJAYfITVf8kMA+dLWbz+9vuG4hUm0k+Z4bVMDd0r
yAQfBxoPYmtmYONpI3cgyYTS6tsJA3eYAU/9/dD6UgbM0eAhV48ZLmyP/bnr
hQfOW9vjXleYQbkujy7vCR40kv8jvneBGSIIAn0pD/DguhIudFqBGTbKA2Kj
7uMhQ3n2Ip00M2gXH1gGGOFh0Pu02ZQAM2Tm28q+1ccDbe+7N+VszECZPbT1
4hoebG1Fah8QM0N1cpn3/Qt4kI01vVQ/wASyQY54BWE83JvPtfjcwQS+/tNP
pXjw8On00btndUww7a1/jp8VD6vtsfVCeUwQ6y7XSkmBh/zDQXV3byagtV1e
GpzHweRVaeubbkxgbX2nqHMSB8wRLt4yz5ig1qzVrW4IBw4nOJsG7zGB6208
Q047DpJeWs/l32CCvhuc/UkNOPjWWEzle5UJTup4x0cQcEDGSiFlipjgo+aW
tX8pDhRMb2oonmGCeXXLk575OLDISnnIIMMEBUhXeQSPg7Dtdd8ZISbonuM/
7hKFg4ZLahmVHEywErjEz+aLg63A4JYQ+r/jPVuOyXfGQcnXTs3VaQy8/rHa
L6iIgzl6AdvGQQzEeVY3V4rjgNPIzj+uCwMVUv4Vhuw4cF6ja79WiYENF4n4
wM10OCdyVQsfggEb7ntWRF/SweZJlJ2HLwa8ao4Zfk5Oh5iKuYBbrzGQYrOj
oRSSDvv63p3kjzAwVh563N4hHWQSvq8Mm2Jg38xMgM4sHe4siWG+GGCAk/Yk
E043Hare1emYqWJAz7h1Y+xkOvzqYnl6VgkDDqRRsy8F04GfzzwII4uBgEyr
AQ5MOmg9LMj/KYKBTH2FlsKjNHAvIu6p5sJA4x5xpfZKGuQQ666FMWJgOrkz
e3E0DcauJzA/JseAdgQZbqg8DQQUxix9thjhziuNR5JaaeDR5pZ2ZpIRbO4H
yDpOpIKRwbUX2E5GeF/dtnD0MhXkx7mvXKlkhBge2nQ/9lSYXS+Zvx3OCG19
3gIJmilwnWdNxu0qIyhc9cS0FiUBt41VYW0BA+xazk1fZI3/u19VeNcWzwAn
BC3v3tKIg3Y30pt9/gxgNDjRZ+seCx5BCVuzVgxQpTXUEDEXAz9LB8/S8DCA
v2IHbrkyEkAVT8NCxQDFv68Kka5FQHTbiyGeTXpYzmyM4pSIgOcG6lmik/Qg
anWJWfZOOGiNs7od76QHY8GvfmpBYSBpM3X9TCU95GdcSXg5EQrEG/n8WDw9
nBdQY7fTDYUvlNqg85YeLKiUSPTlQiAgiC/otj097Lw65Xw5MRiseZbum92l
B9/fMr8UmYKB+4Qv6XNFesgaFBrk/R0Inga16hGLdLBzm8Oi/f5H0EpVbB/R
pwPZ5OraDdN3MK8qOGgjSgsqebHUZHwGEKfs/XOEkRYO3Sv57E9fhRsKvzZ0
9mjgmspLnbz7JwHEKhkVe2jguAjU3BrQRJFUhpdJPWjg1bzsbPbuA6RFTNBz
ekQDRYkBU99ePkZku2Km8wY0sCTzYvXVoT16srju2nmcBs7MfF9Oeu2I1Ds+
5cUMUUPhzfC5X57uaL9hq4qhkRpGOZPX0X0PVEC42+pZQA1LFHsOfp6eiC//
2Ky1LzUwTmU85at5i3rwweuDz6lBppvkt9XkO+STtEOkZUoNJwhG9nkkXuhC
jCnDV01quJhdsLIj7I02Qhp5FBSp4VoMzRM1NR+U4S8rlS5MDVwSV2PGTP2Q
6fuwM9wM1MB/LVuBd8cftTqZ6xLNUIFMa1lhC2sQSrp95NUWTAVabB6zapfD
kaGeVSjWnQr60uXkzYIiEINme2LBQyowPDf12mMkErmoxFRGIip4aqLOVeUY
g3QEFNcsflFC6w0KcR79BETBGXfU/4MSGPhNrknvJKBKDDm9Zj0laP8scTgb
n4gkSL5JyH2mhDGXh4Rbi0nocNru7oEGJazGtRmGvk1FX0b6bOxPU8KpB2Kv
k6XSkM13FecpQUp4JueeWtCZhgQ7k98b0FFC6e731q+O6aivkSak+Q8FkNSd
WOviwSE/eJqgMkUBn75MGR7PwiFUNpCd20EB5o3+/SYEHNrKx1YIl1OAwuBp
g+AeHMrKSGsKS6UA8uXR3roZHDJLpv9OFUQB/Ufe+n+2cYjz8/Opl68oAM8s
1yNFh0fvPqoe3tengGtKbzsDTuGRsf2ovCwxBYS+lWgxfI1HBu+WaYiXyeEJ
EVGHXDAe6UTuT3wbIIdrbgPdNKl4dAm4A13yyIHihe+PyhY8ksXcWqozIQcn
m8U5QfYMJClqVRuhSQ43ftYu7UhmIBElx2gbRXI4YfF5tUc5A3GahlzBMJLD
3N3r2+/uZyDm50kCU7tkUDsotn/3eQai98nfKpolg/hbh0dnvDMQ1Wdo9+kh
g5e930kx0RmIJK8zxbiaDAx1cynnszLQfu3oS9kMMjjd4U1bQ8hAf/qX9YjD
yYCP/bhBAVEmWlvcl+r1JAPNEjNn9+xMtHRES5z+mAzeGEZGXzXKQrMsPAMu
t8mgbKe9kp0yG41LSOdeu0wGq9GkY5OF2ahP+8rdNV4yuDFiJ/KSPhd1md9S
qKciA0/3lMv/leeilhdWtJEbpDDMuFzoK5+HquPflZ1vIwXmfOHvN8fzEG4F
2HxfksKL9Y/cv84WoCTSriVja1JgqcMduxFYgGI5xmpl9UkBH1qrUj5bgIKx
B097pf/GO71zzyukEL38dLZDYJAELjtbJPMvf0FOyVdS1+pJYPjK6y/v1IqQ
fcmtV/X5JODEFV2/EFWEbFqt9CNjSYBp4ct3ndUiZDHmKP3IlwSyyzt/FqsX
o3vr74gvOJKAxoeFbd7YYnSbMnQAc58Exo3Jad6uF6MbPMm5U9dIQKcZe3fU
pARpnSjwKlb6G9/542lxTCm6ovb1rq8oCcRIDNHbQSlSu9WlcAdDAmXfJWeL
7MuQ0utfk8RzxLCvUBd+ubscCXVKY69HEP+th7t/LIKr0IZd8p+pTSLQOq0w
ouv3FVk/n7zHNEUEbnFBvR+Gv6JBF6GGC11EkEm50lovW4O+vosPjcogAtJB
fPnZbzUoIDpGTtuECErdBSKFeOsQccJg5KtrRDDz89UnY7s69DyViyjjLBGw
6A56hUEdmsswtO4XJ4IL5Yruncz1yDgvooOMlQhsRcIcqS3rUUfR99OniP/m
031LkpVbj946HTtHGD4i3HrXPfpxsR7p+Ev0Pw86IuTNP47QNW9AZyJSUzsf
HRHu8FY+k49vQHxJIs+l1Y8IVNo0OmxDDWihRIBpfPeQcP9LGtUPvUb0bopD
U9PikMD8eszFVLUJlZ6jIggpHhCesereeSLUguIue318xXRAEPwvXkn3bgt6
r0N2p39xn9DmsswqH9WC9KyIdvwT9gmiY77tW5hWpPTUvfGn6z6hi2kAP3Ct
FQm82g9TvblPeHVJ3KvcpxUtBW2f2qbeJ/Tiay64E7Whns9OxPrTewTPYQyP
qUobKkvf6Myu3iMcZzT5c9G5DSUUOMRRRe0RBi5mfxP50oa8qlZtzZ/tER6I
51LyY9qRbZOdcvX1PUJvvFpa/Go70v+2RM0luUdQ5hq4JNTdgQTn59I6hncJ
5F5EF5k1uhDFhpWjVMkuobLmKka/rAstH06rvQvaJTw5Ch0LkepG5awT42fV
dwn9zlLubDQ96Ab6wZ2au0PIeKRXwdn6DXlHNAe8fLNN0NVNOS1wvR+Jezh/
z7i9TVApaJv41tCP6h5I8A+e3CZIsmx+9EEDiOTc+2ylsT+E/d7Ls7/lf6AE
YYVN6+I/hIXTdsFp2T8QlnZKJeLjH0JvePgFY4lB9GoYtW0q/yFkGf4Mr+Me
Qjz1KyxiLH8I4WWMai6hQ6g8O874xsIWwYNbaeU4wzAyDL+e/PbrFiE7eZ+L
/9Yw+uO+v1AQuUVYDuAOzooeRuHWmacmn2wRjrsq0SiPDiMFHSNXpv+2CE8s
Dd40C40gB6FSavvNTcKKcrDDLG4EMdFY68a3bRJkJfIWni+NoLw1tqiO5E3C
E+YOM9KTo2i59pnkcb1Nwu85an3BklH0wOrEfws5G4T1ME95o/oxdC8z7Z3F
g3XC3gul3dnVcXQQcrMtBLtOiHn835kc5gn0+RUZay37OkHF3MDBUWECnbMs
NF5bXiMMG1rmqBhMoB/XzZKF6tcIr7SeL5A6TyDnM0yLOp/XCLyX3oq3Rk0g
dgE45fFsjVB1NtgsuGICFVE+cc29ukaQuhedcGN6At1Y5asZFVojaCtMydLL
TqL1gTZqhp3fBCcamar6F5Mo+OtL3fNdvwmx48813b9Oos7gH+Mx7r8Ji/4U
D1ZuTKGrp8OODIdWCT4zUondL6fRPN+l/3wKVgnZFQ4n/OqnkQ/FekCJ7yqh
N6iiSpVxBtX36/CzK60SRC9cHyxMmkEeG5yuaVIrBEK4PUt48yyqrneiJh/4
RZi1LUvUYvmJ9sJ7I829fhHo1UhOUt79iZzOBpYITi0TjFdCrjmv/kSP3Ck3
oz8vEbb/K3lvxDGP/NnE6s11lghxfONiJ+7Mo6ws1TAZsiWC+jpVA2niPGpX
M7XcLFkkLDXJWQ3MzKNfg26nqx8tEjRPVduryy0gRocYcm+BRULBB4HuzIgF
dJK6rE/72wKBc8ZDjulwATkobjhOnFsgzESorQ21LCKX1fEtiR8/CdzmWpsU
h79QtPdhw6r/T4JHZe5NW4sVVM7PG1GGfhLm2JiKu1tW0P61W4qauFmC8fRD
5Q7NVeSBb39h92KGIBkhsx/J+Rt5m5Vvf2GbItTs57vJFqwh3E5/k1vzJMER
P3n8/swaagrcjFR3myRIGbCMhnCuo3kJloeMcpOE8NHnU+2664iGcPLswPQE
gTUi7TplyDoK4El32SscJ9C5PN5aithA0niJzbcpw4QDlb3/ShO3kG2/WRgb
3TDh5aZMwe/JLZRDHnc6/dkQYTv7Hu8x0T9IzozVqUV1kLDJX7Mam/YHKfEQ
/8FM9BOWiXyj3mZuI1cNlYikK/0Em7Jy0qqlbVT54oWiQt53wtzTpcdbx3cQ
tnf5xa3XfYTpSW3Vh3k7yINEinN+tpdgHuOZlfR7B9WctCh11eolTOgXsg+f
2kVkJvGGdMXfCCZ0Mx5sz3eR+sfB7Vi+b4SROvZFraJdlBVmMHvcp4ewO0Nn
jzZ3EUtcz7eqtW7ChNCLSxI2e8g1Tevr9bvdhPEJ2+CbB3toPKclZ6SxizCe
aDb+NnAf/Vei/vnxqS4CB+U1gebP+8j49XuWvbOdhLPzE4LkQvtIMtDtFzdj
B8G49YXwxdQ9tJXg2Hxuuo1w3Xa0IzNjD9XlP04xKmsliCY+1hUK30dBNZav
XQNaCHt9+9/CPQ/QvW93jaLNmwmpjPH5rDSHSGb65ulypSZCkGRU6a0zB2hn
4zpmkL6R4HYxhBBtto8ayNUXdybrCZlRORVP3u+hUPYLDVyldYS7JlgKNrSL
7kucSTz7sZbAINalU767jWSVZF/dNqshEBZMY0yK/qD9K+K3XBS/Eni5EgJH
FLZQ823+U1F0QPAzpp6ezttAMn0y3A61VYTtWAfFJZl11LjF25X/uIIwd1EH
WOtXkRknvddvjjICPUWZGP31JRRhvPzb3vYL4TyjHs+hzyQ65TaSnsdeQBh8
XSLJXTaMIs/HVIx75hIUJ1q4lUx7UYfHSwnT7xkEW7ZJCpOydkRaZxwyJp1G
6LR5KnFY1oiUKFWO7r1OJJwGoiux5V/RUKjS98r0KMLOWCatWWopUufZya7Q
CSTcUHD8NmKYi8Brln1h9iXhia6YwEp7NJIhyLKeXjDDRn/AdpcfewNbSX5h
nx54Y9/YndrufZUGmFay9Su0YVhGN5q4u4pfIO3SJZ6rZnFYMbUTucd9q4B/
7Gti6nAyVvYaVcmf2jqYi5k4Le6DwzZvOYcb1rZAoSFxS5p8Nraga6P8zv2u
vwuHyQ1ZycP6qcfc5o0eANGHgjv6lwuxYWu18q9dxsHvv5NqrDFF2NmL5edW
U6dhRQx97F0twYaKnVldKZ6HG2Q6/aHq5ViDZD5Nuo1fUD5pInTzcyU2IJBE
P5RzDQS+PnnEtlaN/Z0zUnj79zrUdBIGF5IB+8b2uame4yZsVjcetXR8xbJK
09Jr7myBZE6naOZODVbxWcEZLqNtMIrt1/ggWod9ny209Cx+Bz76j9k90q7H
9v4MTOyY3gV4+TNE07UBi3lP/pRpdw/WbFZKj6U2YkVsaW062vdBzOjPCG1X
E1ZJn8n8Q+IBGGockSztNmMDK5xkv28egJ8SpWSbWCu2zOtnpinNAVRJMF7P
0mnDTuoaSi3y78MqO4eD/8t2bKa2f6D4gz0QphCIsE3rwPo+3gpYmNqDm5vi
lde6O7FWH0w/5pjswyWHCHt29y6s/eh/Y8d/7MPIQ563Xizd2Kf8ekFHl/fB
6X582BauG+tw745ad8EeYG6L4Kwu9GAd4qw2kwT2oOnHVN+78R5spbMY7lnn
LngapZAmv/mGFcu3EWfz24U1YzGTsYZe7IbQprDh0Q58uyfBbqjdjw0hpeEd
nd+GcItj7zRMh7HfGuQZFqq3QGtmMd+aZASrfOTs/8FlCyisssbep4xgkxSr
aY4rbMEL6+PKNXOjWAfcFUp7/CbIFHG4xJaOY5n97hJthWwAQynXSfaLU9jZ
2C4fmrA1sNneURcLnsLGGuiuht9bgwalwbsKU1PYm4w9t0Qk18C9LPqD3vtp
bJ3HN3GVit+wUs7zM6B5Bpto/r3u8cQqdFXxxVHqzWFL9EqJk4x/gczhwRf2
5DmseF1ZV/mvZfC5MNoqtjGHDTtdEf/NcxkuEuJ21MLnsU85q8+T45Yg7sgd
o/9zHjvqS6DjV16CXayJhJnSAvb6Hgyd6ViEAhC46TG4gD02WuvyYGMBGIiJ
bD8dW8RGa9df8fReAJuL42/iXi1iZ04TGT7hWYAGT4jKbl/ErtjKbp7rmQfh
moS8Sv4l7G7ynWAK33lwJ/FsbH2yhKUY8jvRg52HQdX7o4OwhMUwl7XFbs1B
SK0Q3Y7ZMlbMg43ytMUc0F1QnYzNWcbml5gHTwvMwbtSs1LV3WWsyko+X+jQ
T3DKTrbwD/qF1bunpbCu9xMMI8SqBGAF66HifT//4izMUSVrTJKvYume9y2Z
HsyAmHrhly/HVrHhmSLOmLIZiINvfrdfrGKzuCHgyckZ+FTEqpjM8Bv7Y3u7
4rjANLStiSY5KvzGWpz877+RwSmgOnma/orRb+yqdViPf/gUeGTcnFpK/Y2l
7JebX6SfgsqfllqE1t/YEAaP5zHNk7Aj6lQW9Ps3lk+94+jq+0k4Y+YlasGx
hk134/2wiybBIT7805nza1j5Ihv2jP0JyBlO26UyX8N+6Xv541TzBCxylVgO
+axhvUhp22bwEyB5q7ErO2cNaygXXR3pNwEWof3KHr1rWGkTqXzNRxNw05dz
rvnROvYZu9VLjl/jENwgqf85aB176dLm45aOceggPVttV7KOZXd4Z+qWOw7q
7rdDWUg3sJXtSZen7MdB6Vk0uhu9gaWkIQjc+zkGz/MyMk/ABjbTcoSsDjcG
+cvl7CSzG1jtr3vzUjZjIP1gaClNbhMb4az0ZXNpFHju8katNm1ipX7mX/m4
NgKG0TJktb82sW2qXcfXC0cgtF/lSRjrFvZp3C/m244jQKd39/I50y1s+c1j
I6Lbw3Dl0+M8Oq8trEm+Ro1f2TC8b3PjGcvcwpLQP0hfdR2GGuoAr/zuLWzq
Ay9/A5VhOFSP+/32zxb2imCoxfDsEJx7l3PHgO8Ptvh9aDmr0xC8+FrdKKn2
Byu0GIq5Tj4Eq8pjse0Bf7C7RWGVVSKDMHFS8CqH+DY2VzOCNd50AKwCj5TZ
tLex0/5lH81n+2FhZfQ4i/M2lrtjiELSth/WcmKZGFu2sT46gjt5L74DyXGe
HxR2O1iLm/iRmoBe8PLfbSGL2MHGhLcaeLP2As3Sj0oS2MH29C93akZ/A5bM
yIRDpl2sitGpmt7UHhCVYn+wVbSLZTOpSJut7AKcz+btjdFd7LWEEYFM1S6Q
mevVXKPcw5LXHsmNBXZC3n9fzq+e3MM6XL4k+uBzByikh5z4dXsPO97ow/47
vR1KKZ4JLb3Zw7K+q1jX7m8DFSs9loXMPeypel1VnvA2gHo58rnePawOxVzg
7I02uCzG9GfmYA9r+5/7WD5LG7S8W52bEt/H+vmwyrr1tILWdOfghPY+Ftec
8epKUCsYJAdUjyTuY6c1+7nGGFrBSojOq+/yAfaezskbdDQtsOCx+OKb3QHW
Laghqb+pGezGWx52RxxgY3ru/E7ybganeN/r7fMH2IEbvgFnyZvBm4+Srf7j
IVbn9mSTFVET0LnNUtQWH2IfRztznCI0QuBw/TaMHWI/DDFYHbg1QmTMu+FK
uSNs011l0tC9BuDdM+8oNzrCzsR165qUN0CCkRqUvj3Cko1bJ0i7NACOiyTl
S98R9qJZ6PmvW/Ug4zIRVnB4hDVNlvb3L6oHQ9txtQEWIhRjKEPTZlkP3Lxd
KrckidCp+69LVenqYbiVcPq7ChFqethjVVZQB9N+7lw9AURI2J9fMPRaLWxS
7Y83nyJG3V3FwRoeAA6xaph5dWL0IeN9oZkkwKrcByyVMTHypMLj/iQQYMGI
O079LTGyeTJ97M7FahjPUjKu/UaMpM4bnxJ7UwH3Lnr4Tf4kRmGr289u9ZTD
UF9jGfE+MaJKCS/yFS4HQxvGeUEMCXK7pfCnwqEMvh8acCJREjRP06P0q6YU
boTE/WeiRIJuVD9xFWQphW6JWSf3aySo+Sl9pZ55CWhVHk+LNSVBJ5oabthv
FkObjmNf5XMS5LrewaMeXwxXZyrJhn1IUD1//ySPRjE0upAp7H0mQWxXx/C/
14qgJikk+Gw9CcpLWFGMVS+C0o187WI2UjRzHXNjY7kQkiN/NecWk6IbOF3/
JJV8EDx+ZqejhRSlfLut7zybB3Ff3SR/jZKilcP73FqBeRC5QOctQ0mGeDOn
ddYbc4H99Y1iTR4ylE+8ORrHkwshLJ9nbE6QIR1D8sdXn+RAgMqxS/hbZMiL
XNw3kT0b6LodnjU9IkN8d85wXLfJAl/L8qSfr8lQRYF66nZVJlDsEvdQhJIh
I+pb8ilMmfAuQINYHEeGrAMjsbivGUAiEnTyciUZKjzfqTGckwGvSwZMLLrI
EMki+Q3M5wxwHbeuTtomQzGXnz1wdsqA7ee5y1/pyNHcGt4hyzwDHKn/8P7d
+aMzCeOvxnUywP6U10sBDXLUuXs96MqxDLB6l6L0OYockeZJlnOO40FXcqIg
7BwFsuUepS3TwINB67au0XUK9EOh5NtJJTwY2WF+85tSIA3twBicOB4svmBP
4N5TILF3qsciSfHw4NatDttIChQSx7POuIaDx7t2j+UyKRBx2Ua59zju7/vn
RbdVRYHsv7W/OerAgROKyyzvokCjy2lXX1ThwHWq6OrrKQqkReXBvJKJg9de
7fNqWxRokPNRDJ8kDt5JzfhQUVMiKR7nDsfAdPBp25do56FEr/neE3dsp4H/
E9bGIFlK9F0gWEH8fhoEMctYGVykRGLC8dbuzakQbWicMmZFiZrEy9plo1Mg
bs9BLcWFEvFLNRB5k6RAcpzf5AN/SvT42Df5MZtkyJouE1zLp0QsJ5ejPikn
AcGeM5bsgBKlO6i2jZfFw7RPX5hUCBUqi2A+MMeGw9yxZYVfqVTI8rOMOSsm
DJY7yHoLSqkQeaJ6c914CGyxKjCrjFIhrQzXMLE3QbBboplP9JsK7eSE7vXp
BcKRkblOPSk1krS+W0v3XwCQHbqu+LJTIwv7oE+P5z4AVWJwgJYUNSK41Bt3
+PoC3aWM4ywq1GhcIlx3+dAbmH5+bevXokZmjo0XUv94Abvfj0ef71OjHzXb
x+6uvgfu479p7j+nRpYYaS62+XdwvEzb+xmBGtmqr7RvtHrAqTvW4ko91KhD
4qLTbd/XcObIvX5/mhrN1CTrNLu6AbqcQ+pFQ4NGth+Q4++6gF43nUfkTRpE
Yblu90DkKTjNNztXLdIgPjzlxblhMYjj0xjiIKJFbO2JFMw1SqhRt+m8Ayst
0iydYr92VgtxljeQSJynRWDw5tNzV1NU7lfrHxhAix6JFhO733qKDo9VJZjL
0aGZpZgHZ26+QeKmKqTVl+mQPFXoTUu/t0g7tMKS04gOBYv4q4YS3qGE/TLp
9jd06ILRK941KW+k2l785UwvHQptvNOVffgB2RCf4Qiao0OTkzeqhuU/opDT
RS6L+3To4uG1DNqHAWg6tvBCghg9cormr/nyMBC9t8tron5Bj3i7GT4z9waj
nKQTxyw+0KOWUT/mDLsQ9P17zsfqeHpkv0The5E6FB3SyK5yfqFHHLtvjgaS
Q5E4NlvvWRM9spnMqdPQCENaz2SK2ofpUamtZjqdSDh6kZ7JIfmbHjH8+enb
uR+Omhgzhoe5GFABrZD2zbxIRJefvJpbyYDU75Fb2LrHI4UZYX2abgZ0dUMn
mUMmAd3lSiqymGFAjmfjWXciE1COZ4IrFwMjaqpV/lt/E5GOXizZWxNGZDvw
vPKieDJy9uK1HnnGiEL4ao+LhCSjxPKYZkUfRlRtxhRPRpSC1oSjA5byGBHT
crZn448UxH2L67d6PSNSOrW/hlNPRWofIvUTfzAi8xdXLfwKU5EtgaN4b5kR
faqM7HskmIZaXDTpjhFjUDHxT/XrH9OQMM+zzQwaDNoQyXq//z0NuVZGj0qz
YtBakfK+9mwa6rlb05jBh0G//2t1SN5MQ1JH83nSEhj064fR/BZZOvJIYIrO
OIlBi48WTK6ypqOBi2ffSp/DoIUDl++xIunI553PTenrGDQrFFV7STUdjYvl
XcgwwKCZQslzkbrpSKmxX0LaFIOmLpfmLZqmozlqiV2pZxg09rA/Nvh1Ovrv
U32cVBQG/chncx6vTEdxJ5e98UkY1KeW+ku+LR1tdbM+lcrCoN4+BUvvoXSU
xmqhJkXAoO4dfT3Z3XREEU0yJzmDQS0Xg2VeKeLQPWXpbtyvv/4mlNypjkPF
w7rlktsY1GiZzyVigEOWAon+krRMqNa3i6LlOQ5VQpMjjpUJAY+pG987HGI1
W70nyc+ECNkr6/YhOGRLynkFJ8GEqrCvbeqScKguBSsnKceE3ifMXDnKxiFe
dWtu3Dkm9PQw2DjsCw49/xlAKnmJCd25g+yOVeCQiPRon8QtJiTPGRNyqwmH
3uS+cpVwY0Ljn3RGcydxaFAnxTzdiwm1Lh+sXp7HoVNrrdckAplQiWYm6fAK
Dk0q8AhIJDOhAEoKKaoDHLpYXlYr3syElF9XPDPlwKNI44mstB4mJD7ywGuL
D49W96nCxYeZELMye5S/KB4lYA0fiK8wofkt++pSOTzaHn+tm7bNhHpv8Hdr
KeGRzpv0c+IkzIhQ0Do1fQGPiOq36MTZmFG4nTg10zU8MrTi30rlZ0Zv2r7x
pOvhUR6l+piYJDN6LO0pe/42HlHhHzelyjGj2z6yF7+Z4JHJ1bB8MWVmdGl2
SP+hFR4VL1ZGp15iRrKXfK2ObPGI4eP0WzEtZsSddMYl7BkeWcnSPU69xYwE
RH/4iUzhUXWnvIHYfWa0UnSXuS80Az039zZytGFG/r2jFRRqmUjqz+C9+mfM
iH3dxFLpdyYK5X9jbenFjM6fNCuNuZ6NbB53OadmMiP1m/In5EjzEDvt4xix
LWYU0qnY96eiALXFQbzjETOavLeNx7AUIs9TrCn1VCxI4lepu5RNIVq6XZFl
ycOCKujOSRpzfkFJywz5RaIsiObz7v6zJ1/QLU+zInJZFqRzrKLbv+ELqsFR
V6ciFjSlofKy+nkRcla5W7OpwYLkfuxr97cWoeNdeQ2X9VmQ04Mq0VXhYjRp
TtYadocFlf9x26FyLUaRf251zlj+je99oUOouxhpfcj8dvoJC7rFfpR0TrIE
kQoc9b93ZkFHU3J/bENKUGmB3nCfJws60xlvI2daiuzU08bFPrCgN+X0o5sy
ZUh0cGfaMZQFtae+1C3fKUM/Hl+fr49lQWRB83XuDeXoUtjGb8s8FuRlXZ9J
aVqJuKdVSdP6WJAfq5sLVwgBNXiOiYkLsiINRSe/uP0a9IpNXtpJihWtyByv
IzKvRXJ4L9mGU6zIT3j6wKy5Fn3uOq5odZkVtdLrPZUIr0MOAq+upNmwouvT
xw3zTjQgycLOa1vPWNH6j+kg5vAGNKIuoqvuxoo+dca0Pt9vQMGDTjfDvViR
VL0eeb9ZI7pi13J79hMr6iqnxp5tbkSHxPz3zkSxIqc8cI450YQKw56aeSWx
os2bzK+2PZrQA6l6q++ZrAivrn9etLkJ8VdxPhIvYkUWiqGH2kzNyIpLUPci
gRV9J+ujSzBpRtmOEop3mlnR+R42ntXsZqQie4Y0eIQVcTyOUAy82oKM4vVj
DsjZUHNStH3X21aUtGfkyYlhQ2fth9wFe1rR/C0za3luNpR4nvejvWAbcsY8
lX8oy4ZcB2LxmKo2FOYZ0NprwIbEGBIndbba0fBIWP6KKRsKGJpYTbjUgUTP
xUbQPGJDRzjho9XgDlSwlmmOXrOhLrUUnqATnWhXq1DD2JcNYZlmpCbcOtHF
zPITTiFsCDcqpiTX1om6zJv3MtPZ0NdK/YwHCl2IE7omGvLZkIvI8/xA4y5k
wjvQOFHBho77hZaWvulCac5j2fv1bCjlTLLgfbcu9Kt3NoSjiw3lqTrdsviv
C52R++VyapANlWtpBFgzdSG3j5sm16fZUHiRkl9fcSeiUyeTebvNhjpm3llO
jnagG0m0zHEk7Gj2QPrbnEMHijlk3i6lY0eU7N1ohaIDSZcI1f0SZEdYdT7e
fdl2dEUSe8dIgx3lpRX1sL1uRYHv1FUd9dlRQ7Ux4mVpRf3j1yUD77Kjue/E
OcLpLcgq6s5G/VN2JEip5Xuisxm9pXH1l4tmRzHWs1gNgSbUYuXpcC2FHVW+
9s/WLmxEzLU+htb/18Sdx0PZhX0ALymSFpJ1htkMJUuhUOkXoUipZC/7Vlot
adNqeZAwYyxJlgzGGhJRyR4RkiRbix5ZoqKQ8s4f7/vM++f3c9/3ua5z7vvc
51z/nDxxdMRulLEwqkfyhVjanSpxSDQE/HQ6WYehN0lCpS/EoTxAc/FcVAdV
DfZEe6c49k43tp2MrYVfZG7n2IA4Tq06vd1PqRZPRosrBEfEYUf1y/ZqrcGS
3RWp1ClxGOikLXYLqYFpenWI7rw4NPa32tujBj2H2819Vktg+eV1YgcKqjHb
Mj7av0UCj7v7Lm6OrELgxv5QUwMJlIfkTCwyrcIqVoti+V4JlG0679K6tAr0
w7kuLEcJFEev2eN5/RkOjBzt2RMsgSzjPTK3/SrRu9fm/KNICbCnpW65q1fC
o3C3pGKCBAxMXy72GHiKgHOK5otyJbBl8ZLX8a+egCPwuamsXQIKvt7ef8oq
oHnstadCjwTIbStsWeoVqGypEYgZlICMMkdPNbccJhuL0/nGJSDxj8G6Bno5
OmPS9E9NS0BkcEDEMfkRHGei3/culMSyHRdnZqQeYdTu2mWTZZIQuCPxPppR
hrOVp4llYpJ4kViSMOdcBj6aYzldVhL1w6RhaJbhZrCZNVNBEpVaYdqBS8og
ObL918INkngUNBXy/E0pVApl1Xv1JZFDaVQ4cL4UNujhMDwlccvG29X56UMM
pjXtWugtidDM3uKMyIc4JVD++cRFSVz7acQ/6vgQQS3xFONbkvCNJqT58D9E
oZ1lwoIHkrBtrB0I3F0CoXPt/xxfIMWdd5J2ma+KUX6/wcMoVgo53ZQ/1zvu
o6v32NDlFCn4xPwOGL17H5NLV3qUZkthh1nHgkPH7kPF6ZD72kopNNcG8tP5
7iNV9IPrsi9SGCoYWtagWoBQ799OL3Wkob3isKakeC4y7iZ9EDCQRt31Fdpf
cnJQ07TDCfukcWjm6dZH+jn4Sw1xvO8sjZCjunLPz2TjTIeYAyNcGkkF6zlq
7Vmw0VQ5bNknjaatSyvnI9k469jWc2tIGmYtNalvFdlg3vSxa/gujU77K4FF
lencefnIVltABgPXfhm7T9yDHsvIRkZNBr8aBl+37EuDfdXw24M6MgiwSSnN
/DcVF7/etA7fKQO+Ubvb1y6nosSww+qPlQxWruxw2JSfgldnznZpOsuAmXxL
f5VRCiaSpK1OHJeB1EYT+nBfMoSbHr9hn5UBp3rJ0hq/ZO567GDZf1UG6UH9
drrqyTCk8r+RCJdBu47bxOzfu3Dal2FhxpKBvcdyhXOxd5GYMXboGUcGXtW2
TN+GJKyyOm+e9koGV89Nnzix7g6mSxn73eUJyBncQHP4Gg+rUdl/vqsQIH19
zaaym/Eok+NUXtIi4CJpxkhUOR7ngypVmSYE7LKtPFZzLA7dZSbucocIeDid
dom4LA5bxjqTOEcIkGQF3/LjxGLu4NjyZ6cJ+Ny6t0jxCwt2wf4Gey4QcPDE
xtqrISw8frTo0psbBJQsE3/TrcCC7NeIYqcIAsSzZobU62MQQJYeHYsl4Lph
72y4Wwz6zNOp51II8B2nhPWtjsH2EDVb/mwCPH9V5I/yxyC5vDz6VjEBh+ct
OmanmFgwbtgo/YSAAwLfpgX/ZcKB0r6QXc/Nf2UYUaKLiWeHDmtvaCNgq4S8
nvxzJq5VeGcafSJAXsE6bEc2E/yhyUE+QkRMGz4jnj/JhKD8rF6LBRFJQVF6
I78Y8LAKPG/tQAQzQsl9ZoiB52GrCj95EhHCqg0T6GYg9Dud/PsiEafYMx3U
CgaG5QutgoKIcMtjzGzIZcDEelukSCQRNiXKskhiQLjy4LxCGhH6dY7udlcY
8PrRt6kohwitlt9hR08z0Ew/ekK3hAjlzpgCfycGVGym0p8/JYLcp/o66CAD
ETev9Jo/JyIhQnZl3gEGvlYuWzPQToSjWFrQee79+yZZe471EKGUoPDX8AwD
q2xzy6+OE/E4XW2sP4qBUxFaP4RniAhUeuCSk8JA27PqdXF8sth7X7vH/z4D
0Yrd8XlrZNFfodck0saA2M8l/u+2yIKvwzxLfxUTUlEOGpohstjFd841I4KJ
rhKJ4MgoWVyPZzFpSUywelrejiTIokytuDollwlRxW2XU3NlsdZ+nJz4golW
08m2PyWycPgpvF+qh4kI72yadaUs4m6uu8IaYULoqVTjyleyWFLh2hcpFIOG
T62EYz2y2Hbw+vIV0jEIEgo5WTcoC5/h5K1ha2OwU217FXlcFr3lz/YXG8Vg
kcVPsUvTXOeEWu89E4OqC7nuXQvl0HvnoONQYgyupLg8Ul8mh7cRBM9r3O9v
brTdfpgoh9ZTef4lBBYeiYYWGijIocnx7BUzIxb8tXYsTlGTQ90BhAyfZmHq
ej7HUl8OVRrtsbL1LHyVDp+q8ZBD0fRUSdDpWAzsMgi7WySHuCvbpizq4pB0
Yq53tkIOzNNL/kxMxMGOWaRmUSeHSKeX/GEy8XjbT+4UfiuHsJ2OYk9PxSNu
8VtFjw9ca64jWN+Oh4VS5IXqETkE0X9Qf9TGo93vL+n8XzkECAaqK8gkYFdL
d9nwIhLOzZhueWaQAEXHTc5xgiQIFN9d7OabAIHJKGHD5SQsMB9fFPAwAZ+D
xh78ECFh9ocuH2smAU7ttrYcGgnvvS/9nlqYiB2uD/mt1pLQvbp5ZvnORJCm
RfMWq5DQUUSYlg9KRB+xcYHjZhLqf5RPHhK6AxtPLbaEMQm53rNjD0STcHDB
mm83TpJQU7Zl4pFIMi6eNV4W50NCJV31EkMzGfe+XpbPPkdCMYMi5GWdjMme
Yeu26yQkHV9KI6Ykg2BO8vkUQgKze65gqiYZO5sORfy6SUKw0cS2lqFkeOmF
ZQoxSLhQ/LGRLZwCZlllFTGOhNPkN5aX1VJQofazR+0OCVvikx7r2KTgU4bS
L/1Urt0u6H0KToEGi6V0NIeErQs092z+mIKOM17MkkoSdDUy7XvjUzH3JSXv
eS3XCwM/BdWngub4pqGnkYTtLY6ealOp8Nmn94fvNQnwkPG+bpYGsfWSbvu+
kLAjMSJorcA9HBqs3jwkQsZeft9cX590BNjN7P8tToZl2/6NcqnpYL9S8VpB
IMMqSeVhw0vuemPsEkQmk2F9bNnWM3/S8fNZfLIGnWutoUoZJTZktV8+MlLi
enGtQa0VG4YF/K9t1Mg4sz2DnxDAxgkFnfHjmmTc1a6VUU9mg5V0culVHTIa
1T9uNK5i48madCpzOxm/lBcaO35i43N497aMnWRQFeUc/ZdkYNMFgzPNe8m4
QLC9xTbOQKelzDspZzKUFr8a4XuVgb8tZlPrPbj5zk/wSU9lgG4YtBLHybgx
s0J6g0Qm/DS+6budJaNnzHiXvW0mxEXqcwrDyLjZWXWv/GMmdEPm6mojyXjY
OlDevphbn85veN8VQ8anxr/tXxS49exY4pr5u2Rse6qzUJJbz/a5tKuKppPh
UWYlqRqRhSU9AsbyHDKYRX6qhgVZsGw8E2BSTMZkRuFhn8kskAwSJwXKyOhW
F/QyEONg+Gnt0ZrHZDQ8PXxeXIODYp3xgStVZKil3KpqNOYg4IGk5bZ6MvaF
5heYHOZgl5pe80wTGce8Xya9OMmBaPYx/ZJWMkLsxsNNr3HATn6iqtpNRo2K
que+DA5OyQylj/SRMSCxz7K1jAMdlggh8yMZfxacNNj/goPmMBdB8hgZmq/y
yAe/cTDpJ/RedAEF7LMq3RZbsvHkm7rlS34Kah32NrwxzUaI1+HmsKUUvN99
osTKIRsEp4Iy/tUUEAh50TaB2dA3tYj+KU/BrUplkyMvsyHccFmwaB0FGVmm
2v3vs9GplxVwUpXbXvRxBYfJbBzVmjs6pEXBvEvuIiepHGgUyb+/t43b3t7m
bx+UuPsl5X2WjnoUbNk81u+sm4OGTP9mohEFVqTlLZ/MchBNTdXvNqHAb6ly
hatzDuySmspYZhREf9/D+eybA7rUlOrBQxQEu6/tVYzOwQRDlr3ShgJDs8LX
nfdz8GjFLsKLIxTwa29pudGWg/czY5OPT1Mw/e5IwVazXKi1arNTYikYIrN9
ckzzMGvsTDiSSEGmkOpxm+N5qKkNj5ZOocDtx0NXwZt5sCrvD2BwKPhU89zC
5UUeLrMDLQMfU9DlPqZFMMnHLnJ+844qCiLN/DY0Hs2HaGKX/t86CvZpz6/1
D80HO0pJ7WwrBc1CIjIdz/NxSvgQW/01BeE/4ldf+5IPneAAwsRbCugnRJbE
8ReAny8zOqePgsAPh/hOihWg5WKboOdHbnyLhL8GtAK8f9cxHjpEwR7fxFsd
XE/qdHXmjFHw20HkTii5AEsS3j1u+U5B1p4gDmQLIDXTd2/iF3d8tX4//Cld
gPVWH8JE/1CwmHaqNkeiALoPB89o8FFRvHKw3Ykbz8V3FP7CVIj82zLWsrwA
ZzvGFRJEqHjarv/7hhB3f6z+Y0WFOBXHn5QKbhEoQMG3mZ55EhXPY1KpGQsK
8Pu4wLlgTSr4/xkt/Ps5HyuahRyydKhwcOhsPjqQD9L6FUZN26l4srlyqPNt
PgyHxdasNKbi7GeGbP6LfFjvlpxT20dF2+NL2jJ1+fDKlPl4wJwKlRh38+Cn
+Yh2o9xnHaHis/6WUPvCfKTXyseVOlOhLyOf3pSdj1La2svdHlQkfV9RuTk9
H43X17vNHafiz/Pp7rSkfPR+UDWV9abCJuXD1Mq4fEzsUNeAPxUVP7uPDl7P
B1/KJhmnS1Rofy3WPrErH2sW6PDduEYFZzBC8JdwPhTtt31JD6ZCutfjzeW2
PGx5gtb6cCrCO/TYgqw87CXufPglihuvieAbZZMHn3fGgcqJVPQ/ahVN+5iL
p5ZW5AcFVOTGae2tm8qBhZm3dc1bKnaYC9YKS2fDM98Pn/uoKDL5wIjp4+Di
ivMKgp+ooOpXOMmmcZDy4sqUyVfu+9l4aoHaeu7/RelGz/EfVFxba/yydCIL
daHB1bemqZgn0ZJ2PMjC6K6IqFd8NAys7NpyUDcL8xlR/lMCNOwXKBTq4cuC
qECMvcRyGo6ITqhTX2VC3i3OUFuUhiLFqybumZnQqr2tbCtBw9Ltos7ZlzJx
fUfW8w9KNHjEWTwrb89ATbzek1E1GtbkuW6tz8zAku/vCn9q0lBe7fOwPSAD
oakrEoVAw+Lx6Nwv6zIQucjnxEZzGrINXsZLXGej3Xa581ZrGsxs+8So1myI
FbMtDY/QMHVq7JaKKhuxLm9h40GDUeKyIIN36Uiq1V197SINg9+Nznirp2OA
2CUQfpWGUEHLsYCl6SD7nZ6LCaJBS9bNI7T/Hu7R7w1mRXKv775xJCXsHj4H
bOsuiqFBzZ7xNsfxHhTfdLY8TqChwyfVvHTzPRxVPVVdf5eGnT625Crxe8gO
Xlrado8GEtFm2cR0Gkb7U3PeZdEwV2s1RXyXBhWtrSmDeTS0nbDsN3mchsKh
E6EzpTRcqjQvyriahtLdHXbkZu74O++ztRdKw2zK8f1K7TQ8EN5rcHM0FVtn
lxhqvqEh7MEe1fKWVDzlaKvufk/DVgHjRRKMVNQtu7vw9BQN8Zyd2S0yqXjV
7MmuJMrD6pv2723KKfi6f37c/oQ8xopf2Tw9mYT23HCs9paHyiLin380kvBg
qXRU3Vl5XNzvdtd85g4uPtPYqHxVHkJfpz9+uXYHQhuO+swy5EFXkD0uxkrE
1/BfNblx8vDwdV/Zb5OItqEbaxzvyONBdcH9LLlExCXfLalny0PfQf+nbtZt
yK96Pc0sk4dXvMdlz4oECHo57d71RB6P/r1P1riagNH68fjfVfIQG+E0cUwS
8JJ6aTivXh4b1TOjxOQSUHhZaIvTC3mYXUi3DPgeD4xvv6Taz413O+GkPOJh
18JZ2MhPR0DPjbve72KBdVoHLi2lg0G75tqbFwtqUG2q2go6CrwuKxldi8Xw
tgH9WAk6Ps6deyi9Nhb+uWuCXNbRsYt48uUzP259uDStU0KVDjtXrxglYxa2
u6opNKnTcT7X0zaGyMISoknDhm105G5z+dejJgbD/l2SgzvoeBbomNseG4Pm
DlfPOEM6+puPeG89FoMCtR9lJiZ0/Fljp83WjQEz/IrQ/D46RI5Yz68UjYH/
0HLbQnM6SlzJm5d/YcJ25+1sV2s6iha8br3dzIRusuKc5BE67t8OObqukAnK
3IM9L5zoyNy0lb+MxUTBsZGIeF86olKFjv1QZKLJ2GK1xm06PM5naHmYMjAd
+rhjTzIdzgcCo9mqDNCaaCzXdDpc1jmPfhJh4KLJD8nYfDrcumWTHTujkRlm
051fTId74dzM3dJovG56druhjA6n0O6DfQnRUNkTKTtbTYe9DkvA1j4aNuG/
+kWf0+Eg6uMYvyMawS+OpCi1cMdveH/5G2o0ioXrnHa+osOiSnWN+JJoDOxR
ph3uosMqYflJ86EoCN9kDvr20mF9ZqQhujEK2s2/2REf6DA3fk5py4mC23Jn
j4x/6fi/8y6jTRvXVo7y/OTmhpGubzyPNMflfPvJ88697qrUhQr/eWovv2bQ
Gp6tzHSxR5fnG5HpC131eb7fKlx9aRfPQvvfGeQf4Lliv7+JqDvPcgcLLbpu
8fz5EP24y3uei+OvhtI/83yttydjaPj/Pe/K+OA1+f/y81lg5Sug+J8bo7v1
gpR5zn0ZIZl5jmef3b+qR0TW/ufSEMMrflvX/Wed7hXeh68o/WcVsS6n23nr
/7Nx8OzkQBHPbrOEYHoZz3cHHLPvV/O8KnfkR30Xz98M5m9M8inz+nuWnmFq
yXPr8C5thh3Po4ePNXU58iy/s2Dc2Ytn1iodrfNXefbPMn3OzuaZSThlO1rA
c8Gt6LENJTx/8X0j8riSZxs9R5tXr3n2e3B9VPIdz9GK7IAjAzw3rhhJ/TLM
8+eryzVVJ3jmm1Kt95niWdbjgPWjWZ7/93zi//w/HwBg3w==
          "]]}, Annotation[#, "Charting`Private`Tag$5011#3"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
        Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{False, False}, {False, False}}, 
     FrameLabel -> {{None, None}, {None, None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> Large, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotRange -> {All, All}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{Automatic, Automatic}, {
       Automatic, Automatic}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"Heating\"", "\"Resonant\"", "\"Cooling\""}, "LineLegend",
       DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> 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], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], 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.368417, 0.506779, 0.709798]; 
                    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.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], 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.880722, 0.611041, 0.142051]; 
                    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.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], 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.560181, 0.691569, 0.194885]; 
                    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.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8024014038220644`*^9, 3.8024014462289486`*^9, {3.8024015995619917`*^9, 
   3.8024016011977034`*^9}, 3.8024016434732265`*^9, {3.8024019932563252`*^9, 
   3.802402002397108*^9}, {3.8024039017556725`*^9, 3.802403953038184*^9}, 
   3.8024039997331743`*^9, 3.8024040353894863`*^9, 3.8024040711283407`*^9, {
   3.8024402724085836`*^9, 3.8024402836382747`*^9}, 3.8024607434387436`*^9, 
   3.8024619217099557`*^9, {3.802472726908188*^9, 3.8024727337617497`*^9}, {
   3.8024733705349693`*^9, 3.802473373799682*^9}, 3.8024737957305717`*^9, 
   3.802478092525135*^9, 3.8025242346594334`*^9, 3.802601077532339*^9, {
   3.802602251946018*^9, 3.80260227745997*^9}, 3.8029665879470177`*^9, 
   3.8029674795280247`*^9, {3.8029679757230563`*^9, 3.802967981600068*^9}, 
   3.802968296817315*^9, 3.8029687295761766`*^9, 3.8029687959981074`*^9, {
   3.802969121890779*^9, 3.802969145373878*^9}, 3.8029694168199434`*^9, 
   3.8029694734614067`*^9, 3.8029696107145567`*^9, 3.802969976269147*^9, 
   3.802970032875019*^9, 3.802970319834959*^9, 3.8029709262354665`*^9, 
   3.802970974585147*^9, 3.8029710063948755`*^9, 3.8029729670059357`*^9, 
   3.802973168461779*^9, {3.802973512807762*^9, 3.802973519461662*^9}, 
   3.802973725744069*^9, 3.8029738355568533`*^9, {3.8029739243018894`*^9, 
   3.8029739533144197`*^9}, {3.80297408530324*^9, 3.802974090797762*^9}, {
   3.8029745874507174`*^9, 3.8029745913411255`*^9}, {3.802974672041303*^9, 
   3.8029746760393763`*^9}, {3.802975137169429*^9, 3.802975141481453*^9}, 
   3.802975853867917*^9, 3.802976543068199*^9, {3.8029767734838405`*^9, 
   3.8029767853323045`*^9}, 3.8029784587071514`*^9, 3.802978520093154*^9, 
   3.8029788328760366`*^9, 3.8029799539280834`*^9, 3.802980044539624*^9, {
   3.802982408791937*^9, 3.802982414320069*^9}, 3.8029825665803432`*^9, 
   3.8029832876103344`*^9, {3.8029838341483326`*^9, 3.802983852301343*^9}, {
   3.8029838825646124`*^9, 3.802983902018034*^9}, {3.8029841509364934`*^9, 
   3.8029842204931808`*^9}, 3.8029842651180744`*^9, 3.80298449443804*^9, {
   3.8029874183166347`*^9, 3.8029874525192504`*^9}, {3.8029875739488344`*^9, 
   3.8029875799306946`*^9}, 3.8029881061848893`*^9, 3.8029928031511426`*^9, {
   3.8029992019264326`*^9, 3.802999232581181*^9}, 3.8030001010490975`*^9, 
   3.803002876137822*^9, {3.8030514155723467`*^9, 3.803051439197686*^9}, 
   3.803051484000216*^9, 3.8030515963860703`*^9, 3.803091454768443*^9, 
   3.80309153490703*^9, {3.803091602313834*^9, 3.8030916141338654`*^9}, 
   3.803121623660097*^9, 3.8031219576853065`*^9, 3.8031221776019497`*^9, 
   3.8031426319137154`*^9, 3.803150270732959*^9, 3.8031503121964025`*^9, 
   3.803150710032954*^9, 3.803224993245654*^9},
 CellLabel->"Out[31]=",ExpressionUUID->"2afa9e28-1f3f-477d-8f8e-a6c2ba1cf5ea"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Scan detuning from -100 MHz to 100 MHz", "Subsubsection",
 CellChangeTimes->{{3.7701329614446096`*^9, 3.7701329832348557`*^9}, {
   3.774612466089605*^9, 3.7746124720577526`*^9}, {3.7746226304517884`*^9, 
   3.774622638368577*^9}, {3.7746226690289564`*^9, 3.7746226695757027`*^9}, {
   3.776165362372452*^9, 3.776165395656355*^9}, 3.776165630526789*^9, {
   3.794530301368927*^9, 3.7945303021651297`*^9}, {3.8012752498082466`*^9, 
   3.801275295145632*^9}, {3.801275345493616*^9, 3.8012753500168557`*^9}, {
   3.802999267499526*^9, 3.802999274522216*^9}, {3.8030000943189926`*^9, 
   3.803000094529231*^9}},ExpressionUUID->"8e7ddcea-c118-45c6-829e-\
126e7e3b1637"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dets", "=", 
  RowBox[{"Table", "[", 
   RowBox[{"x", ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "100"}], ",", "100", ",", "10"}], "}"}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.802378015195921*^9, 3.8023780618768625`*^9}, {
  3.802399859883916*^9, 3.8023998603848224`*^9}, {3.8029992764944267`*^9, 
  3.8029992867903347`*^9}},
 CellLabel->"In[40]:=",ExpressionUUID->"765a6f84-5baa-41bd-a875-c58ef6d443ae"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", "100"}], ",", 
   RowBox[{"-", "90"}], ",", 
   RowBox[{"-", "80"}], ",", 
   RowBox[{"-", "70"}], ",", 
   RowBox[{"-", "60"}], ",", 
   RowBox[{"-", "50"}], ",", 
   RowBox[{"-", "40"}], ",", 
   RowBox[{"-", "30"}], ",", 
   RowBox[{"-", "20"}], ",", 
   RowBox[{"-", "10"}], ",", "0", ",", "10", ",", "20", ",", "30", ",", "40", 
   ",", "50", ",", "60", ",", "70", ",", "80", ",", "90", ",", "100"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.802378057419541*^9, 3.8023780681395884`*^9}, 
   3.80239993288593*^9, 3.8024021412926517`*^9, 3.80244042565911*^9, 
   3.8024607801825094`*^9, 3.802461927920744*^9, 3.802472836851163*^9, 
   3.8024733799319644`*^9, 3.802473811105195*^9, 3.802478099526806*^9, 
   3.8024781885495105`*^9, 3.802524297771593*^9, 3.8026010807655983`*^9, 
   3.802966602847678*^9, 3.8029680539569335`*^9, 3.802968301953377*^9, 
   3.802973468206977*^9, 3.802988958419587*^9, 3.8029999395566034`*^9, 
   3.8030001184387813`*^9, 3.803002975517753*^9, 3.8030035495939164`*^9, 
   3.8030914548394585`*^9, 3.8030915351444387`*^9, 3.803091629855887*^9, 
   3.803121623887148*^9, 3.803121957900359*^9, 3.8031221777592106`*^9, 
   3.8031426321268525`*^9},
 CellLabel->"Out[40]=",ExpressionUUID->"38e5324e-0519-4a85-854b-e629e29b843d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FScale", "=", "0.50"}], ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
    "simple", " ", "rate", " ", "analysis", " ", "suggests", " ", "a", " ", 
     "correction", " ", "factor", " ", "2", 
     RowBox[{"ne", "/", 
      RowBox[{"(", 
       RowBox[{"ne", "+", "ng"}], ")"}]}]}], "=", 
    RowBox[{
     RowBox[{
      RowBox[{"1", "/", "2"}], " ", "due", " ", "to", " ", "multi"}], "-", 
     RowBox[{"level", " ", "structure"}]}]}], "*)"}], " "}]], "Input",
 CellChangeTimes->{
  3.8033056311626115`*^9},ExpressionUUID->"403930a1-cb1d-4166-abd4-\
f3d52b522ffb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ainterp", "[", 
    RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"ainterp32", "[", 
     RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], "*", "FScale", "*", 
    "2.25"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"compute", " ", "the", " ", "lower", " ", "bound"}], ",", " ", 
    RowBox[{
    "corresponding", " ", "to", " ", "a", " ", "0.625", " ", "times", " ", 
     "smaller", " ", "force", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"~", "50"}], " ", "rather", " ", 
       RowBox[{"than", " ", "~", "80"}], " ", "photons"}], ")"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"rinterp", "[", 
    RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"rinterp32", "[", 
     RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], "*", "FScale", "*", 
    "2.25"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.803142646692212*^9, 3.8031426513325024`*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"d788214f-4cb8-459f-9faf-7cc970c00859"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"images1", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"First", "@", 
     RowBox[{"AbsoluteTiming", "[", 
      RowBox[{"cooled", "=", 
       RowBox[{"ParallelMap", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"SimulateTrajectoryFast", "[", 
           RowBox[{"#", ",", "1.4", ",", 
            RowBox[{"QuantityMagnitude", "[", 
             RowBox[{"2", "*", 
              RowBox[{"800", "/", "isat"}]}], "]"}], ",", 
            RowBox[{"det", "/", "\[CapitalGamma]"}], ",", "180"}], "]"}], 
          "&"}], ",", "init"}], "]"}]}], "]"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
      "arguments", " ", "for", " ", "simulating", " ", "trajectories", " ", 
       RowBox[{"are", ":", " ", 
        RowBox[{"B", "-", "field"}]}]}], ",", " ", 
      RowBox[{"intensity", " ", 
       RowBox[{"(", 
        RowBox[{
        "2", "x", " ", "for", " ", "two", " ", "laser", " ", "beams"}], 
        ")"}]}], ",", " ", "detuning", ",", " ", 
      RowBox[{
      "and", " ", "average", " ", "#", " ", "photons", " ", "scattered"}]}], 
     "*)"}], "\[IndentingNewLine]", 
    RowBox[{"Mean", "[", 
     RowBox[{"cooled", "[", 
      RowBox[{"[", 
       RowBox[{";;", ",", "4"}], "]"}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"cooledf", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"cooled", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], "&"}]}], "]"}]}],
     ";", "\[IndentingNewLine]", 
    RowBox[{"cooledimaged", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"cooledf", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", "rdetector"}], "&"}]}],
       "]"}]}], ";", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"images1", ",", "cooledimaged"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"c1", "=", 
     RowBox[{"Length", "[", "cooledimaged", "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"SmoothHistogram", "[", 
      RowBox[{
       RowBox[{"cooledimaged", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", "0.001", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.015"}], ",", "0.015"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "150"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Axes", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True"}], "}"}]}], ",", 
       RowBox[{"ScalingFunctions", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Identity", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "*", "c1"}], "&"}], ",", 
            RowBox[{
             RowBox[{"#", "/", "c1"}], "&"}]}], "}"}]}], "}"}]}]}], "]"}], 
     "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"det", ",", "dets"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.7944038032008038`*^9, 3.794403827910453*^9}, {
   3.794403920340012*^9, 3.794403946682702*^9}, 3.7944039801799545`*^9, {
   3.794404078790533*^9, 3.794404085731656*^9}, {3.7944041379631567`*^9, 
   3.7944041509624677`*^9}, {3.794404224780773*^9, 3.7944042252380433`*^9}, {
   3.7944042806072035`*^9, 3.7944043037506313`*^9}, {3.794404355432145*^9, 
   3.7944043694529595`*^9}, {3.794404408351403*^9, 3.7944044111938033`*^9}, {
   3.7944044939003863`*^9, 3.7944044940756693`*^9}, {3.7944047408531065`*^9, 
   3.7944047422674427`*^9}, {3.794404777212698*^9, 3.7944047957653213`*^9}, {
   3.794404832928384*^9, 3.794404833193509*^9}, {3.794404869277589*^9, 
   3.7944048709071293`*^9}, {3.7944049223486595`*^9, 
   3.7944049733425093`*^9}, {3.7944050219432793`*^9, 
   3.7944050222423925`*^9}, {3.794405241266675*^9, 3.794405241352714*^9}, {
   3.794405291699999*^9, 3.794405295635968*^9}, {3.794405341608671*^9, 
   3.7944053424633093`*^9}, {3.7944053931197357`*^9, 3.7944053946027*^9}, {
   3.794406265296444*^9, 3.7944062654965453`*^9}, {3.7944064314303102`*^9, 
   3.794406431802267*^9}, {3.7944064758643723`*^9, 3.794406477226362*^9}, {
   3.7944070081982527`*^9, 3.794407008826415*^9}, {3.794407685798216*^9, 
   3.7944076876636014`*^9}, {3.794408702756246*^9, 3.794408720756444*^9}, {
   3.794409131122303*^9, 3.7944091312012205`*^9}, {3.7944092083583727`*^9, 
   3.794409211058243*^9}, 3.794409305889973*^9, {3.7944093859009943`*^9, 
   3.7944093862704945`*^9}, {3.7944094298659945`*^9, 
   3.7944094299601617`*^9}, {3.7944095382212815`*^9, 3.794409538368109*^9}, {
   3.794409685541462*^9, 3.794409685606153*^9}, {3.794409745826335*^9, 
   3.7944097459021335`*^9}, {3.7944098146212215`*^9, 
   3.7944098146771593`*^9}, {3.794409872469082*^9, 3.794409872545332*^9}, {
   3.794409949721157*^9, 3.794409956477316*^9}, {3.7944099983125935`*^9, 
   3.794409999117816*^9}, {3.7944100886040297`*^9, 3.794410101182096*^9}, {
   3.794410179842183*^9, 3.7944101801612816`*^9}, {3.7944102534876857`*^9, 
   3.7944102536181283`*^9}, {3.794410319055793*^9, 3.794410323690439*^9}, {
   3.79441082823357*^9, 3.79441083223265*^9}, {3.794410888563336*^9, 
   3.794410888645339*^9}, {3.7944109558748083`*^9, 3.794410956362916*^9}, {
   3.7944110169154344`*^9, 3.7944110172292547`*^9}, {3.7944156314039984`*^9, 
   3.794415632247884*^9}, {3.7944157809904475`*^9, 3.794415794746232*^9}, {
   3.7944159060668526`*^9, 3.7944159338799467`*^9}, {3.7944160245462465`*^9, 
   3.794416040202263*^9}, 3.794416274391674*^9, {3.7944164004988785`*^9, 
   3.7944164016408143`*^9}, {3.794417172930576*^9, 3.7944171742476263`*^9}, {
   3.7944172080348597`*^9, 3.7944172089930725`*^9}, {3.794417342365755*^9, 
   3.7944173425530586`*^9}, {3.794417400639179*^9, 3.79441740097908*^9}, {
   3.7944174710516615`*^9, 3.7944174796117516`*^9}, {3.7944175455501404`*^9, 
   3.7944175699649453`*^9}, {3.7944179061150904`*^9, 
   3.7944179064519157`*^9}, {3.7944179692596583`*^9, 
   3.7944179694270325`*^9}, {3.794418238394996*^9, 3.794418238470233*^9}, {
   3.79441832093019*^9, 3.794418322134024*^9}, {3.794418388936208*^9, 
   3.7944183892228327`*^9}, {3.7944184501769104`*^9, 3.794418451374069*^9}, {
   3.794418521794922*^9, 3.7944185225768595`*^9}, {3.794418588412101*^9, 
   3.7944185885945954`*^9}, {3.7944310886748285`*^9, 3.794431089484665*^9}, {
   3.794432573077078*^9, 3.794432576089105*^9}, {3.794433280923937*^9, 
   3.7944332842150507`*^9}, {3.794433682269907*^9, 3.794433682683097*^9}, {
   3.7944338156841516`*^9, 3.7944338157656584`*^9}, {3.7944338736185346`*^9, 
   3.7944338738794284`*^9}, {3.7944339482291546`*^9, 3.794433948972297*^9}, {
   3.794434556421958*^9, 3.7944345579455395`*^9}, {3.7944346067666216`*^9, 
   3.794434606864291*^9}, {3.7944353102988615`*^9, 3.7944353134568806`*^9}, {
   3.7944357159894037`*^9, 3.7944357167493553`*^9}, {3.7944357475452747`*^9, 
   3.794435782488765*^9}, {3.7944404712179456`*^9, 3.7944404712817264`*^9}, {
   3.794440982775674*^9, 3.794440986142047*^9}, {3.7944410285178275`*^9, 
   3.7944410291146646`*^9}, {3.794442439585224*^9, 3.7944424894807434`*^9}, {
   3.7944425217059593`*^9, 3.7944425259053965`*^9}, {3.7944425908812375`*^9, 
   3.7944426059566693`*^9}, {3.794442649831872*^9, 3.794442710327902*^9}, 
   3.794442781807767*^9, {3.794442988237514*^9, 3.7944429919029064`*^9}, {
   3.794448529796775*^9, 3.7944485424287424`*^9}, {3.794448895200401*^9, 
   3.794448895698408*^9}, {3.794492001722169*^9, 3.794492006918971*^9}, {
   3.794492725548942*^9, 3.794492725863717*^9}, {3.794527439855525*^9, 
   3.794527442545347*^9}, {3.794605039173044*^9, 3.794605103448554*^9}, {
   3.794648422840992*^9, 3.7946484230240335`*^9}, {3.794648550455897*^9, 
   3.7946485507009516`*^9}, {3.8012644175670223`*^9, 
   3.8012644184142113`*^9}, {3.8012700756628265`*^9, 3.801270077570756*^9}, 
   3.801347119141498*^9, {3.801356703875865*^9, 3.801356706094185*^9}, {
   3.801877911061778*^9, 3.8018779677003527`*^9}, {3.801958005764391*^9, 
   3.801958006387244*^9}, {3.802138195039628*^9, 3.8021381955969114`*^9}, {
   3.8021390514641275`*^9, 3.8021390799250855`*^9}, {3.8023780002612133`*^9, 
   3.8023780004977064`*^9}, {3.8024735600002484`*^9, 3.802473560058296*^9}, {
   3.8029669679940057`*^9, 3.8029669680549335`*^9}, {3.8029679917810287`*^9, 
   3.802967994034485*^9}, {3.8029681456571207`*^9, 3.8029681812982955`*^9}, {
   3.802973470774012*^9, 3.8029734722470617`*^9}, {3.802988264875614*^9, 
   3.8029882970454865`*^9}, 3.8029890051427517`*^9, {3.8029992909945745`*^9, 
   3.802999293538249*^9}, {3.8029999661573424`*^9, 3.802999991631386*^9}, {
   3.803000177323126*^9, 3.803000177851012*^9}, 3.8030828580217695`*^9, {
   3.8031426836876163`*^9, 3.803142684131429*^9}, 
   3.8033056348388824`*^9},ExpressionUUID->"ccc1bdba-34c7-4530-8f76-\
36d6baa364a0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"widths", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"produce", " ", "width", " ", "from", " ", "beam", " ", "images"}],
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dist", "=", 
     RowBox[{"SmoothKernelDistribution", "[", 
      RowBox[{
       RowBox[{"image", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"InterpolationPoints", "\[Rule]", "4000"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"pdf", "=", 
     RowBox[{"PDF", "[", "dist", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"iF", "=", 
     RowBox[{"First", "[", 
      RowBox[{"Cases", "[", 
       RowBox[{"pdf", ",", "_InterpolatingFunction", ",", "\[Infinity]", ",", 
        RowBox[{"Heads", "\[Rule]", "True"}]}], "]"}], "]"}]}], ";", "\n", 
    RowBox[{"Peaks", "=", 
     RowBox[{"Pick", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"iF", "[", "\"\<Coordinates\>\"", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"PeakDetect", "[", 
        RowBox[{"iF", "[", "\"\<ValuesOnGrid\>\"", "]"}], "]"}], ",", "1"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"PeakValue", "=", 
     RowBox[{"Max", "[", 
      RowBox[{"pdf", "[", "Peaks", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"GreaterThreshold", "=", 
     RowBox[{"Position", "[", 
      RowBox[{
       RowBox[{"pdf", "[", 
        RowBox[{
         RowBox[{"iF", "[", "\"\<Coordinates\>\"", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
       RowBox[{"_", "?", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", ">", 
           RowBox[{"PeakValue", "/", 
            RowBox[{"Sqrt", "[", "E", "]"}]}]}], "&"}], ")"}]}]}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"totalDist", "=", 
     RowBox[{
      RowBox[{"Last", "[", 
       RowBox[{
        RowBox[{"iF", "[", "\"\<Coordinates\>\"", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], "-", 
      RowBox[{"First", "[", 
       RowBox[{
        RowBox[{"iF", "[", "\"\<Coordinates\>\"", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"left", "=", 
     RowBox[{
      RowBox[{"First", "[", "GreaterThreshold", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"right", "=", 
     RowBox[{
      RowBox[{"Last", "[", "GreaterThreshold", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";", 
    RowBox[{"diameter", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"right", "-", "left"}], ")"}], "*", 
      RowBox[{"totalDist", "/", "4000"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"diameter", "/", "2"}], "]"}], ";", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"widths", ",", 
      RowBox[{"diameter", "/", "2"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"image", ",", "images1"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{3.801347246666169*^9, 3.802139092022823*^9},
 CellLabel->"In[49]:=",ExpressionUUID->"bc6dac95-1b93-4ce8-9af6-755f797db9e8"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ainterp", "[", 
    RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"ainterp32", "[", 
     RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], "*", "FScale", "*", 
    "0.625"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"compute", " ", "the", " ", "lower", " ", "bound"}], ",", " ", 
    RowBox[{
    "corresponding", " ", "to", " ", "a", " ", "0.625", " ", "times", " ", 
     "smaller", " ", "force", " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"~", "50"}], " ", "rather", " ", 
       RowBox[{"than", " ", "~", "80"}], " ", "photons"}], ")"}]}]}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"rinterp", "[", 
    RowBox[{"a_", ",", "b_", ",", "c_", ",", "d_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"rinterp32", "[", 
     RowBox[{"a", ",", "b", ",", "c", ",", "d"}], "]"}], "*", "FScale", "*", 
    "0.625"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.802139131920936*^9, 3.8021391342558975`*^9}, {
   3.802378249961077*^9, 3.802378260517517*^9}, {3.8024021790531836`*^9, 
   3.802402183816864*^9}, {3.802460787087497*^9, 3.8024608217286186`*^9}, 
   3.8029885569909687`*^9, {3.802989018917639*^9, 3.802989019474782*^9}, 
   3.803082852721512*^9, {3.803143417984676*^9, 3.803143422512904*^9}},
 CellLabel->"In[51]:=",ExpressionUUID->"e5f968fa-eb29-4f2e-a7c5-d8c7ac11e6d9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"images2", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"First", "@", 
     RowBox[{"AbsoluteTiming", "[", 
      RowBox[{"cooled", "=", 
       RowBox[{"ParallelMap", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"SimulateTrajectoryFast", "[", 
           RowBox[{"#", ",", "1.4", ",", 
            RowBox[{"QuantityMagnitude", "[", 
             RowBox[{"2", "*", 
              RowBox[{"800", "/", "isat"}]}], "]"}], ",", 
            RowBox[{"det", "/", "\[CapitalGamma]"}], ",", "50"}], "]"}], 
          "&"}], ",", "init"}], "]"}]}], "]"}]}], ";", 
    RowBox[{"(*", 
     RowBox[{
      RowBox[{
       RowBox[{"arguments", " ", "are", " ", "B"}], "=", 
       RowBox[{"1.0", " ", "G"}]}], ",", " ", 
      RowBox[{"s0", "=", 
       RowBox[{"92", " ", 
        RowBox[{"(", 
         RowBox[{"corresponding", " ", "to", " ", "400", " ", 
          RowBox[{"mW", "/", 
           RowBox[{"cm", "^", "2"}]}]}], ")"}]}]}]}], "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Mean", "[", 
     RowBox[{"cooled", "[", 
      RowBox[{"[", 
       RowBox[{";;", ",", "4"}], "]"}], "]"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"cooledf", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"cooled", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"#", "[", 
          RowBox[{"[", "5", "]"}], "]"}], "\[Equal]", "0"}], "&"}]}], "]"}]}],
     ";", "\[IndentingNewLine]", 
    RowBox[{"cooledimaged", "=", 
     RowBox[{"Select", "[", 
      RowBox[{"cooledf", ",", 
       RowBox[{
        RowBox[{
         RowBox[{"Abs", "[", 
          RowBox[{"#", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "]"}], "<", "rdetector"}], "&"}]}],
       "]"}]}], ";", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"images2", ",", "cooledimaged"}], "]"}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"c1", "=", 
     RowBox[{"Length", "[", "cooledimaged", "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"SmoothHistogram", "[", 
      RowBox[{
       RowBox[{"cooledimaged", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", "0.001", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Blue"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "Medium"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "0.015"}], ",", "0.015"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "150"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Axes", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True"}], "}"}]}], ",", 
       RowBox[{"ScalingFunctions", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Identity", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{
             RowBox[{"#", "*", "c1"}], "&"}], ",", 
            RowBox[{
             RowBox[{"#", "/", "c1"}], "&"}]}], "}"}]}], "}"}]}]}], "]"}], 
     "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"det", ",", "dets"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.80213921204575*^9, 3.8021392423139696`*^9}, {
   3.8023782691198444`*^9, 3.8023782718159704`*^9}, {3.8023783477688518`*^9, 
   3.8023783711872344`*^9}, 3.802400156327544*^9, {3.8024003452528543`*^9, 
   3.802400346292104*^9}, {3.8024735655923023`*^9, 3.8024735656749964`*^9}, {
   3.8029885726028247`*^9, 3.8029885728517056`*^9}, {3.802992534566959*^9, 
   3.802992535371936*^9}, {3.803000191454197*^9, 3.8030002129408875`*^9}, {
   3.8031434307465715`*^9, 3.803143430831636*^9}},
 CellLabel->"In[52]:=",ExpressionUUID->"ab82b3ea-5c09-40e3-a005-6f650494affb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"widths", "=", 
    RowBox[{"{", "}"}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"produce", " ", "width", " ", "from", " ", "beam", " ", "images"}],
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"dist", "=", 
     RowBox[{"SmoothKernelDistribution", "[", 
      RowBox[{
       RowBox[{"image", "[", 
        RowBox[{"[", 
         RowBox[{";;", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"InterpolationPoints", "\[Rule]", "4000"}]}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"pdf", "=", 
     RowBox[{"PDF", "[", "dist", "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"iF", "=", 
     RowBox[{"First", "[", 
      RowBox[{"Cases", "[", 
       RowBox[{"pdf", ",", "_InterpolatingFunction", ",", "\[Infinity]", ",", 
        RowBox[{"Heads", "\[Rule]", "True"}]}], "]"}], "]"}]}], ";", "\n", 
    RowBox[{"Peaks", "=", 
     RowBox[{"Pick", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"iF", "[", "\"\<Coordinates\>\"", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"PeakDetect", "[", 
        RowBox[{"iF", "[", "\"\<ValuesOnGrid\>\"", "]"}], "]"}], ",", "1"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"PeakValue", "=", 
     RowBox[{"Max", "[", 
      RowBox[{"pdf", "[", "Peaks", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"GreaterThreshold", "=", 
     RowBox[{"Position", "[", 
      RowBox[{
       RowBox[{"pdf", "[", 
        RowBox[{
         RowBox[{"iF", "[", "\"\<Coordinates\>\"", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], "]"}], ",", 
       RowBox[{"_", "?", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"#", ">", 
           RowBox[{"PeakValue", "/", 
            RowBox[{"Sqrt", "[", "E", "]"}]}]}], "&"}], ")"}]}]}], "]"}]}], 
    ";", "\[IndentingNewLine]", 
    RowBox[{"totalDist", "=", 
     RowBox[{
      RowBox[{"Last", "[", 
       RowBox[{
        RowBox[{"iF", "[", "\"\<Coordinates\>\"", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}], "-", 
      RowBox[{"First", "[", 
       RowBox[{
        RowBox[{"iF", "[", "\"\<Coordinates\>\"", "]"}], "[", 
        RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"left", "=", 
     RowBox[{
      RowBox[{"First", "[", "GreaterThreshold", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"right", "=", 
     RowBox[{
      RowBox[{"Last", "[", "GreaterThreshold", "]"}], "[", 
      RowBox[{"[", "1", "]"}], "]"}]}], ";", 
    RowBox[{"diameter", "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"right", "-", "left"}], ")"}], "*", 
      RowBox[{"totalDist", "/", "4000"}]}]}], ";", "\[IndentingNewLine]", 
    RowBox[{"Print", "[", 
     RowBox[{"diameter", "/", "2"}], "]"}], ";", 
    RowBox[{"AppendTo", "[", 
     RowBox[{"widths", ",", 
      RowBox[{"diameter", "/", "2"}]}], "]"}]}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{"image", ",", "images2"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{
  3.802139208841636*^9, {3.802378377457013*^9, 3.802378377557906*^9}, 
   3.8024001591204295`*^9, {3.803002984255173*^9, 3.8030029843224497`*^9}},
 CellLabel->"In[54]:=",ExpressionUUID->"6ce184cd-c0f6-464e-919c-89cc33289447"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{2560, 1357},
WindowMargins->{{2552, Automatic}, {Automatic, -8}},
Magnification:>1.2 Inherited,
FrontEndVersion->"12.0 for Microsoft Windows (64-bit) (April 8, 2019)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 238, 4, 35, "Input",ExpressionUUID->"acf3f024-06f7-4b67-aa47-b28ae5a429d7"],
Cell[CellGroupData[{
Cell[821, 28, 493, 8, 53, "Subsubsection",ExpressionUUID->"5aaf2c87-6956-45b5-ba7b-95459d133cb4"],
Cell[1317, 38, 20507, 392, 547, "Input",ExpressionUUID->"7824fddb-3943-46b5-acd8-799c34acddf8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21861, 435, 415, 6, 65, "Subsection",ExpressionUUID->"c541093d-3069-439e-a54a-d38289364e3b"],
Cell[22279, 443, 5981, 179, 372, "Input",ExpressionUUID->"a22cab01-84b6-4910-a8ee-e13c7c9bda3f"],
Cell[CellGroupData[{
Cell[28285, 626, 496, 7, 53, "Subsubsection",ExpressionUUID->"2086d6f6-0d0b-40d9-a62f-2851fbd41666"],
Cell[28784, 635, 4063, 95, 420, "Input",ExpressionUUID->"faefb1d2-c143-4cf4-bbad-8f8982efcabd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32884, 735, 524, 7, 53, "Subsubsection",ExpressionUUID->"20effcbb-203d-40b4-8029-107270944d9f"],
Cell[33411, 744, 9765, 193, 557, "Input",ExpressionUUID->"dccf9f9d-0271-4cee-a2a6-51b034d09fcc"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43213, 942, 578, 8, 53, "Subsubsection",ExpressionUUID->"6c519e3a-f10c-4538-afc2-24105e47eb71"],
Cell[43794, 952, 2758, 39, 35, "Input",ExpressionUUID->"9e84a53b-6a94-415f-8b47-20c1efb51727"],
Cell[46555, 993, 8852, 163, 372, "Input",ExpressionUUID->"c0c8e4fa-0227-4b9a-82f2-c524254ed188"],
Cell[55410, 1158, 2886, 44, 35, "Input",ExpressionUUID->"c5609752-0026-4bbc-8872-3b54364462a9"],
Cell[CellGroupData[{
Cell[58321, 1206, 15906, 233, 84, "Input",ExpressionUUID->"e65b6191-864b-4f9a-bf41-1a27cb9ce5bb"],
Cell[74230, 1441, 106249, 1805, 450, "Output",ExpressionUUID->"2afa9e28-1f3f-477d-8f8e-a6c2ba1cf5ea"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[180528, 3252, 670, 9, 53, "Subsubsection",ExpressionUUID->"8e7ddcea-c118-45c6-829e-126e7e3b1637"],
Cell[CellGroupData[{
Cell[181223, 3265, 461, 11, 35, "Input",ExpressionUUID->"765a6f84-5baa-41bd-a875-c58ef6d443ae"],
Cell[181687, 3278, 1309, 26, 39, "Output",ExpressionUUID->"38e5324e-0519-4a85-854b-e629e29b843d"]
}, Open  ]],
Cell[183011, 3307, 602, 17, 35, "Input",ExpressionUUID->"403930a1-cb1d-4166-abd4-f3d52b522ffb"],
Cell[183616, 3326, 1097, 28, 60, "Input",ExpressionUUID->"d788214f-4cb8-459f-9faf-7cc970c00859"],
Cell[184716, 3356, 9128, 172, 252, "Input",ExpressionUUID->"ccc1bdba-34c7-4530-8f76-36d6baa364a0"],
Cell[193847, 3530, 3247, 83, 324, "Input",ExpressionUUID->"bc6dac95-1b93-4ce8-9af6-755f797db9e8"],
Cell[197097, 3615, 1395, 32, 60, "Input",ExpressionUUID->"e5f968fa-eb29-4f2e-a7c5-d8c7ac11e6d9"],
Cell[198495, 3649, 3780, 98, 228, "Input",ExpressionUUID->"ab82b3ea-5c09-40e3-a005-6f650494affb"],
Cell[202278, 3749, 3350, 85, 324, "Input",ExpressionUUID->"6ce184cd-c0f6-464e-919c-89cc33289447"]
}, Open  ]]
}, Open  ]]
}
]
*)