NN50exact.nb

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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    288179,       5813]
NotebookOptionsPosition[    283687,       5666]
NotebookOutlinePosition[    284044,       5682]
CellTagsIndexPosition[    284001,       5679]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["\<\
Calculation of eikonal corrections at KE = 50 MeV\
\>", "Title",
 CellChangeTimes->{{3.58783893472805*^9, 3.587838967532401*^9}, {
  3.5886257282142897`*^9, 3.588625728972596*^9}}],

Cell["9/19/13", "Subsubtitle",
 CellChangeTimes->{{3.58784408294383*^9, 3.5878440862374496`*^9}, {
  3.588446149659945*^9, 3.588446149696396*^9}, {3.5886168438662367`*^9, 
  3.5886168441851063`*^9}}],

Cell[CellGroupData[{

Cell["Define Constants", "Section",
 CellChangeTimes->{{3.5878452824422293`*^9, 3.587845286977789*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"mp", "=", "0.938272046"}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"GeV", "/", 
    RowBox[{"c", "^", "2"}]}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"mn", "=", 
   RowBox[{"1.00137842", "*", "mp"}]}], 
  RowBox[{"(*", 
   RowBox[{"GeV", "/", 
    RowBox[{"c", "^", "2"}]}], "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"M", "=", 
   RowBox[{
    RowBox[{"2", "*", "mp"}], "+", 
    RowBox[{"2", "*", "mn"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", 
   RowBox[{"M", "/", "4"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[HBar]c", "=", "0.19732697178"}], 
  RowBox[{"(*", 
   RowBox[{"Giga", " ", "ElectronVolt", "*", "Femto", " ", "Meter"}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"r", "=", 
   RowBox[{".535", "^", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "/", "2"}], ")"}]}]}], 
  RowBox[{"(*", 
   RowBox[{"Femto", " ", "Meter"}], "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"B", "=", 
   RowBox[{
    RowBox[{"1", "/", "4"}], "*", 
    RowBox[{
     RowBox[{"r", "^", "2"}], "/", 
     RowBox[{"\[HBar]c", "^", "2"}]}]}]}], 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"c", "/", "GeV"}], ")"}], "^", "2"}], "*)"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"A", "=", "4"}], ";"}]}], "Input",
 CellChangeTimes->{{3.5874084444526567`*^9, 3.58740844476388*^9}, {
  3.5877515704162197`*^9, 3.587751588861207*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"En", "=", ".05"}], 
  RowBox[{"(*", "GeV", "*)"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"EnL", "=", 
   RowBox[{"En", "+", "mp"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s", "=", 
   RowBox[{
    RowBox[{"mp", "^", "2"}], "+", 
    RowBox[{"M", "^", "2"}], "+", 
    RowBox[{"2", "*", "M", "*", "EnL"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]", "=", 
   RowBox[{"EnL", "/", 
    RowBox[{"(", 
     RowBox[{"M", "/", 
      RowBox[{"Sqrt", "[", "s", "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"P", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{
     RowBox[{"EnL", "^", "2"}], "-", 
     RowBox[{"mp", "^", "2"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k", "=", 
   RowBox[{"P", "*", 
    RowBox[{"(", 
     RowBox[{"M", "/", 
      RowBox[{"Sqrt", "[", "s", "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"s2", "=", 
   RowBox[{
    RowBox[{"mp", "^", "2"}], "+", 
    RowBox[{"m", "^", "2"}], "+", 
    RowBox[{"2", "*", "m", "*", "EnL"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Epsilon]2", "=", 
   RowBox[{"EnL", "*", 
    RowBox[{"(", 
     RowBox[{"m", "/", 
      RowBox[{"Sqrt", "[", "s2", "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Kappa]", "=", 
   RowBox[{"P", "*", 
    RowBox[{"(", 
     RowBox[{"m", "/", 
      RowBox[{"Sqrt", "[", "s2", "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Eta]O", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"\[Epsilon]", "/", "M"}]}], ")"}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"mp", "+", "M"}], ")"}], "/", 
     RowBox[{"Sqrt", "[", "s", "]"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Eta]D", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"\[Epsilon]", "/", "\[Epsilon]2"}], "+", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"A", "-", "1"}], ")"}], "*", 
       RowBox[{"\[Epsilon]", "/", "M"}]}]}], ")"}], "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"mp", "+", "M"}], ")"}], "/", 
     RowBox[{"Sqrt", "[", "s", "]"}]}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.587408191942588*^9, 3.587408212763638*^9}, {
  3.587408391587672*^9, 3.587408401367611*^9}, {3.587408435278034*^9, 
  3.587408452998206*^9}, {3.587751596357411*^9, 3.587751627572439*^9}, {
  3.5877516798124647`*^9, 3.5877516855568647`*^9}, {3.588625734019938*^9, 
  3.588625736627187*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
Import data and convert it from degrees and mbarn^1/2 to momentum transfer \
and fm\
\>", "Section",
 CellChangeTimes->{3.587845302829598*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pp50a", "=", 
   RowBox[{
   "Import", "[", "\"\</Users/Micah/Documents/JerryDuty/eikexp/pp50a.csv\>\"",
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pp50b", "=", 
   RowBox[{
   "Import", "[", "\"\</Users/Micah/Documents/JerryDuty/eikexp/pp50b.csv\>\"",
     "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.587742114571766*^9, 3.587742117569474*^9}, {
  3.587757975453336*^9, 3.587757977809454*^9}, {3.5884450543707323`*^9, 
  3.588445059024131*^9}, {3.5884451195750847`*^9, 3.588445120787801*^9}, {
  3.588616944448687*^9, 3.58861694673514*^9}, {3.58862576194697*^9, 
  3.588625763493123*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"pp50a", "=", 
    RowBox[{
    "Import", "[", "\"\</phys/users/mbuuck/JerryDuty/eikexp/pp50a.csv\>\"", 
     "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"pp50b", "=", 
    RowBox[{
    "Import", "[", "\"\</phys/users/mbuuck/JerryDuty/eikexp/pp50b.csv\>\"", 
     "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.586893625596829*^9, 3.586893768096984*^9}, {
  3.586894693570779*^9, 3.58689469895422*^9}, {3.586894735082232*^9, 
  3.586894735139288*^9}, {3.587407733432084*^9, 3.587407733527143*^9}, {
  3.587742066671813*^9, 3.587742156702121*^9}, {3.587757980762945*^9, 
  3.587757985512987*^9}, {3.588445061491499*^9, 3.588445063232147*^9}, {
  3.588616949815431*^9, 3.588616953335446*^9}, {3.5886257638589697`*^9, 
  3.5886257647204037`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pp50a", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"pp50a", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"pp50a", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "+", 
       RowBox[{"I", "*", 
        RowBox[{"pp50a", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pp50b", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"pp50b", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"pp50b", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "+", 
       RowBox[{"I", "*", 
        RowBox[{"pp50b", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.586894995933079*^9, 3.586895005187623*^9}, {
  3.587407733545117*^9, 3.587407733645219*^9}, {3.5877420938039494`*^9, 
  3.5877420979522943`*^9}, {3.588625765507903*^9, 3.5886257675908422`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]pp50", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"pp50a", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"pp50a", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "+", 
         RowBox[{"pp50b", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ")"}], "/", "2"}]}], 
     "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.586895023659334*^9, 3.5868951115438128`*^9}, {
  3.586895208168799*^9, 3.58689520974796*^9}, {3.587407733661124*^9, 
  3.5874077337278557`*^9}, {3.587408122344294*^9, 3.587408122542446*^9}, {
  3.5878422906869392`*^9, 3.587842294812872*^9}, {3.588625768285748*^9, 
  3.588625769134479*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]toq", "[", "x_", "]"}], ":=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"2", " ", "\[Kappa]", " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{"x", "[", 
        RowBox[{"[", "1", "]"}], "]"}], " ", 
       RowBox[{"Pi", "/", "360"}]}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"x", "[", 
      RowBox[{"[", "2", "]"}], "]"}], "/", 
     RowBox[{"Sqrt", "[", "10", "]"}]}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.587408181012211*^9, 3.587408187444201*^9}, {
  3.587836643314015*^9, 3.5878366516569138`*^9}, {3.587839184568799*^9, 
  3.587839193953685*^9}, {3.587842283543548*^9, 3.5878422858615017`*^9}, {
  3.588013778919056*^9, 3.5880137801436768`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pp50", "=", 
   RowBox[{"\[Theta]toq", "/@", "\[Theta]pp50"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.587408129350005*^9, 3.587408159725465*^9}, {
  3.5886257694347153`*^9, 3.588625769734421*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pn50a", "=", 
   RowBox[{
   "Import", "[", "\"\</Users/Micah/Documents/JerryDuty/eikexp/pn50a.csv\>\"",
     "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pn50b", "=", 
   RowBox[{
   "Import", "[", "\"\</Users/Micah/Documents/JerryDuty/eikexp/pn50b.csv\>\"",
     "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.587742114571766*^9, 3.587742117569474*^9}, {
  3.587757975453336*^9, 3.587757977809454*^9}, {3.58784240703041*^9, 
  3.587842408967124*^9}, {3.5884450681823473`*^9, 3.588445071284073*^9}, {
  3.5886169572554827`*^9, 3.5886169591749763`*^9}, {3.588625770567761*^9, 
  3.588625772383486*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"pn50a", "=", 
    RowBox[{
    "Import", "[", "\"\</phys/users/mbuuck/JerryDuty/eikexp/pn50a.csv\>\"", 
     "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{"pn50b", "=", 
    RowBox[{
    "Import", "[", "\"\</phys/users/mbuuck/JerryDuty/eikexp/pn50b.csv\>\"", 
     "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.586893625596829*^9, 3.586893768096984*^9}, {
  3.586894693570779*^9, 3.58689469895422*^9}, {3.586894735082232*^9, 
  3.586894735139288*^9}, {3.587407733432084*^9, 3.587407733527143*^9}, {
  3.587742066671813*^9, 3.587742156702121*^9}, {3.587757980762945*^9, 
  3.587757985512987*^9}, {3.587842410112143*^9, 3.587842411491207*^9}, {
  3.588445073573656*^9, 3.588445075607877*^9}, {3.5886169610551853`*^9, 
  3.588616963574781*^9}, {3.588625773013294*^9, 3.588625773860207*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"pn50a", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"pn50a", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"pn50a", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "+", 
       RowBox[{"I", "*", 
        RowBox[{"pn50a", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"pn50b", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"pn50b", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"pn50b", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "+", 
       RowBox[{"I", "*", 
        RowBox[{"pn50b", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "3"}], "]"}], "]"}]}]}]}], "}"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.586894995933079*^9, 3.586895005187623*^9}, {
  3.587407733545117*^9, 3.587407733645219*^9}, {3.5877420938039494`*^9, 
  3.5877420979522943`*^9}, {3.5878424122631407`*^9, 3.587842415156559*^9}, {
  3.588625774180436*^9, 3.5886257761626596`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Theta]pn50", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"pn50a", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"pn50a", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}], "+", 
         RowBox[{"pn50b", "[", 
          RowBox[{"[", 
           RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ")"}], "/", "2"}]}], 
     "}"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.586895023659334*^9, 3.5868951115438128`*^9}, {
  3.586895208168799*^9, 3.58689520974796*^9}, {3.587407733661124*^9, 
  3.5874077337278557`*^9}, {3.587408122344294*^9, 3.587408122542446*^9}, {
  3.5878422906869392`*^9, 3.587842294812872*^9}, {3.5878424181180363`*^9, 
  3.5878424193338614`*^9}, {3.588625776596884*^9, 3.588625777552043*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"pn50", "=", 
   RowBox[{"\[Theta]toq", "/@", "\[Theta]pn50"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.587408129350005*^9, 3.587408159725465*^9}, {
  3.587842422315405*^9, 3.587842422932054*^9}, {3.588625778790806*^9, 
  3.588625779160623*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"NN50", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"pp50", "+", "pn50"}], ")"}], "/", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"f", "=", 
   RowBox[{"Interpolation", "[", "NN50", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fp", "=", 
   RowBox[{"Interpolation", "[", "pp50", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"fn", "=", 
   RowBox[{"Interpolation", "[", "pn50", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.587842451561008*^9, 3.587842473051257*^9}, {
  3.588617581938747*^9, 3.588617598767539*^9}, {3.588624989441337*^9, 
  3.588625020838483*^9}, {3.588625779879662*^9, 3.588625781924789*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NN50", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"Re", "[", 
       RowBox[{"NN50", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
   
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Real Part of Scattering Amplitude for NN Collisions\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Momentum transfer (Gev/c)\>\"", ",", 
      "\"\<Scattering Amplitude (fm)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.587842526540153*^9, 3.587842548425576*^9}, {
   3.587842978542938*^9, 3.587842994748707*^9}, {3.588445471430801*^9, 
   3.5884454841078*^9}, {3.588625782909336*^9, 3.5886257832913227`*^9}, 
   3.588625891034732*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVVnk81IsXlSKUpxTPki2UFpNQKXFkL6TUQyVtRpaURC8pSykttsquUBFR
ZCllSca+z8w3szDGLLa8orzQotdvfn/cz/3czzmfe84/536u1vEzLmRxMTGx
clH9v8eNmJx8NUrG52QFjo+XEH4KxbURoyEgL2gw+HRcCOuggYuHAiLx+vKx
9xeOCjFr+lIlb+Qagr5HqcscFqLsSMepqCO3kfS3jtxDdyEermcmjvsnQkZ6
9azFPiEqtzmcp6y+B888FdKYoxA0qdn6bcJkfCE7Ps+0EeLD8EeqTVYadls6
dR4wE6LH+ag4wz0TxSGrVpGMhdCa/VA5IJ8FVmO3huxaIQr6hwtXe+fga5h+
noSGECUWGQ/jKQ+x9JYXefkyIeZULafvqz/GoqUG4haSQjBqWzgOF3PhJ6VF
XP8mwEzZl8Sk3jxwy0tUZz4IUJgW7RhokA/JH/GCG30C6I56ObJuFcBAYvys
XbsAf5a+7mkaegq7kSyVTW8EWO4urWRoXgSdOt9w93wRvonsq5j6DGU5ehMV
SQI4G0fJnJp8joHMN1VOUQLwT/RZr7crwdc+O9K6AAH2Vfkb6jm/gPvfmpYu
7gIYKU5zfH68wKlbiZMtlgKEeLl37M8rRaL+8IY76wXIenq7YMy5DMtv73R6
pSDAurPbtbR+lEFQnpm27T8+DnnzhD8el+N9W2q5zggfakNNOUFOFaBMfEdY
Fx/1YToy12YqEGUdPmhdwYd8kP57UvZLHJ925tzM4KPEcMXLU3av0CfN5TpE
8qH5xpZsOvkKK2s3Xkkh8xEyqZ+dmlKJbL20utO7+FgiHq8RbvYaOqe7TPpJ
fOwuOJ33j/A1lPLVR3nyfLw9ZjTFufkGzb9eLb8xw0NMflHb7g1VkExyOcFk
89CxVHvK7H0VVietUGPW8HA38Kxx/oVqnNeziE3I5kGSJeMRs6IGfgfWHxC/
wkNettyW/roarDnXesbciweN/R4p2cdrYRqQt9rSloe4zHQn2oK34FzpVFXW
4+HZIkejgCdv8a1R9UGzNA8DX4SagXZ1OPn7K6mcMYgbi7umGKN1UPemKeSm
D4KuAuseq3cok9e+GugxCIkIa8Gxe+9Asz9epasxiMf39zc/FLwDyXHhbyqf
C9b2ca+4jfVwvGK7+XouF7pvdYy1I+sxo1bl4nySCxKlp+hYdz3mLNRnDNdy
oUn42ditoIB17Jqr/acBPBTbeInuS4HnoyKFlBcDUAzW7JpXSYHrpnWrVgUP
QGNuXiUxvwEGdxTfypkMQDMhsMp2TwNYzQ4k1zkOqht5Bw7cbwDb9Pch2XoO
/rMpUJYZa8BC+U9jptc5sDOWiHQzaoR4lr/vlAMHN6/rKliENyJWXoG6TV7E
9yCdoLQ2IiGyJUCJ3Y/vu6xmOPJNOBi5V+VpTj+aU+I84j2aIDavN/qDTz+i
z1it6s1rgppbwY7xjf0oUCoZLploQvBLstXLn33YtGjzBrUtzXh55FqXW3Mf
fBYfTVeNaEan97BB750+NGzl1jxtboalQZXLDs8+2MrcNW6WbQFn4oHuk3Ui
3DrpwZn9LYgqP/1D8gcbK/8xTc3NaMFIfe7ys21snFHRbTjBa0He6RSp6XQ2
7g1uaSrSbcVIaoxxrD8bOWIlVmF+rZjutQ3cb85GeJX6KLW4Fd8llVTs5Nl4
HxR2sGiqFQkRe5uDR1kw8NR0kN7chrCguJOjtSyoqTB8PlxoQ9K8G9l5ySwo
m7LJu6rb0GqmUVd2mgVyN29m7a823I+NKVq5kwWPHh3ipnk7Vg0Ilk3psOCe
6FVBjmiHeHRM7EZxFsT//ORaW9cObuMn9wkeEw3+2aEJv9sxdPkAU6ueiSuc
mYE+8w5Qpiwd2I+YgKGcfdblDihdENupe52Jp+zCcFZ1BwSyd6kS/kwE/2fi
cON7BxY39RqG72XCMb0/9NnmThhNaS3I3srE4cAAttW5Trgnn7f20WbCTOaG
qVNJJxTnr70x/gcT6+/dDG4Z78Qp0+09unMMnKvIOFSq2wXDo77Vmv8wMHK4
ol36aBcs7wVM8PsZcI3Ky+pJ78Iupfqi890M0OuUKucRXTARs7QWUBgolcqY
yVrUjZlD3VJ6bxgwXXvf8olVN+w9xT7uLWWgc1/4VcWwbvy7NYjnW8RA4M07
uROl3RD+nrflXD4Dr6TUk/THuiFeH2dxNo8BWpaPFV2tB4ovSiYDRHP1ZOWT
fpceyHBtkk+J+CeLD7y0j+lBQnxr8EXRvoamfF+l6h48rt8SnyrSywySrd85
0YPFhfrvu0R+ZFdLcgOWUMHd3Dmt3MhASK5mifcaKipqfGNiqQwEdBgz/7Ck
4qLjEFtvkAHfJqN+8kEqJKW+xU9PMvCg9PEO/yAqDk3mPpkSZ8Jk/qO76reo
2KuTT1mlxEQ1c9gt4iEVhey03swNTDjbUFbEvabCRdPd4K+dTCg81Dtt10OF
07chuguZCY/awr7nw1ScuvrTM/MqExSNy1N1P6mIE7qd35TLxJoNoXaXl9KQ
voblq9PCFN09jYDhVTTc+evSVp+PTPAN0r/NmtJgksFlyixnITOqOrJiDw2d
jV4u4uYsbPKUylIh0zC2hmx2xI+Fkzql42tCaSjL155VSWdBITRNXBBLg4U+
hWTYzsIP0/1XLXNosPrv9eqyXyxRPjYsdiinYSEzISvOiA3p9evNfzbRcLlV
Z6hFlK937hI1LiwaXtWn5x9+woZrlsHaveM0tJYuSXMQsrFTg0ea+UkD63zX
stsr++BpuiBohywdhFaxv4ZXH7TtnB4YqtNh7BRe9TW/D1Xb9D3aSHTIjh0p
WTjRh2439iEJ0PGsuE/SYXM/OpodHEZ202EWYajxOrIfFuts+v096dCUWOpl
3tWPQxt2v00OoKNw7tcdqioHtyXfFJy4RMfxyZEgt1McbBp9tKf3Fh0vboQE
Ud5yEBg2HTCeRofRjjfSs/ID6Lb3qXr0RMQvv7yP7zMAbbkrX36V0zFl+/Xv
E+8GsF09g/rznciPS+BuD2UuUh6xFe930UFynren9BwXn8e2X+Oy6UhyvrLE
uIcLaloSlzJMx+NC25MN6wbBGb4+av+FjiPRC7ca3xzEkteJ3oFzdAxNZiu7
jw6iuV1SZ+tCAtqRIbvFtHmIpyiOP1pKIJSSJx3qwkPb1tbo56oEpCwGj/yK
4kGm8Ve9uy4BOfchakApD4ZjIWdzSYToLxuJfsbjwXZpp1fiFgKCT/k/0+X4
mAsJPbPCgoCZsqzXMnM+Ps/0etvbE6jZuOL+lD8ft/9VWrl8DwGdeL0wxXQ+
EhQOXoxwI+AanB9zsIkPi2V3d93yJABlg9mUz3xs9ck8Y0wmMJQTVpyjIgBt
gVHrZX8CfxwfiHa1EkDl6zdj77MEnt/5WJLoJ8Clb4Fpn84T2O3wr//KRAHY
6vOZyy4R6H7vjdFyAWzs5xisSAKLgmteVPUK4FAYH7n9GgE/7x8Pzk8LUGlD
rzW/SaD5S3LcjLwQH/c1XRyMJeAZsve3CkmId4WOeeqJBNJJRrRaWyF6FY31
5+4SEM/X62rxEOLiM9KCC8kEnG1PqKoGCiErx1S7myrSS6Fey4kUglpccmZX
OoF6DU+GRbwQe36t/JKTIfKbqqP1KU0Io7SrmcmZBBQKumhJOUIk+i3207tP
oMxk8aRhnhD/A5bgmI8=
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm], 
    FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  ImageSize->{617., Automatic},
  PlotLabel->FormBox[
   "\"Real Part of Scattering Amplitude for NN Collisions\"", TraditionalForm],
  PlotRange->{{0.002673965698502928, 0.30640611988352706`}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.5886259123901873`*^9, 3.588964411711061*^9, 
  3.588966604249463*^9, 3.5890324245630836`*^9, 3.5890331100175962`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NN50", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"Im", "[", 
       RowBox[{"NN50", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
   
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Imaginary Part of Scattering Amplitude for NN Collisions\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Momentum transfer (Gev/c)\>\"", ",", 
      "\"\<Scattering Amplitude (fm)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.587407827321944*^9, 3.5874078281284733`*^9}, {
   3.5878389831975727`*^9, 3.587838986125537*^9}, {3.587839021860114*^9, 
   3.587839091116008*^9}, {3.5878392289563303`*^9, 3.587839269020014*^9}, {
   3.587839313261364*^9, 3.5878393229475193`*^9}, {3.5878425045509367`*^9, 
   3.587842511772339*^9}, {3.587842886449902*^9, 3.5878429162494497`*^9}, {
   3.58784295651138*^9, 3.58784299954167*^9}, 3.588445491143935*^9, {
   3.5886257853697166`*^9, 3.588625785790943*^9}, 3.588625897203017*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwV03c4l9//B/AiezUlIRWftKgolfIUGUVS+ZWiJWRkRklmJSQlK5uKEiEi
ImS8bd7jbhiN+34v0vpE6WNU3/v3x7nO9bjO67rOa5yz1NF7v7PIjBkzntDr
//c44ebTT4ecYX7tSdfRLCHcF5TUhQ0FwGKvTlJMphA7/d4F2XuGQ9W0x1sr
Q4hfBpXK+cJI9B0pldNPE6L8eNeZiOOx6KiZUV2XIsSdNW/iRzziIWLLU32W
KETVVstzTSsSIa82nLIiXgi25K/GrbxkOC0N7ZK+LsRHwWeWaXYqbKJZYh5R
QjD3nhB5bZeBq1oVU7gkxNJfH6vezc1Gu15zTmKwEAWDgsIVLrkwit1hc/yc
EKVG6XduNN3B1oNHDhV5CzG92Phnpto9GMdly55zFeJ1Xdtby6A8VO+yd2s5
IcR4+ff4pFf5yIyN90yxE6Iw9YqVz7oHcLEvbvyyVwjNIServmsFOM/5c4xp
JsTCsmomg/8QNTNPpRhuF2K+nZTSBsMi1JDuDVt06fONzm6Ktx/hVPiPVS1a
QuzVi5A+860YojKrlwtVhaBODexcY14KjcCcv1lzhThQ47FBa+9jaFHZz/4V
F0JX8edb18nHuGydOvFhUoAAJ7su2/wyaLDdZnt/FSD7YWzB8N5yhPleup9D
CbDad9vSpZPl4B2WEw96KYC9C8mbvPcEAxEZV6dbBVDlM3L99lSgbJ6dn84z
ARovakhHjlcg5I9ToEKRAHP91r7UzqlE7Jkv3LxMAUo3qFSeMX+Kdi+myFic
AOrPzJwNvj3FQ7mg8KlQOp9va3Nup1ThluPW/2v2FmC2yI0lodur8TMgbKXV
CQGsC7zyP/GqUeImlpNpI0D9Sd3RtzHPYLbxqNwTIwGiHhR1WOvU4Me8eIWM
dQJ0zVk+uv1lDQQ8StRaXYAEH1+9B4G1sCbtI98oCCDeJ+0QpfIculJ/EvX/
8pGfo6A/2PAcod73w32/8rHE1iElx7EOyhq6mdHv+IjLSNvDnlWPn/qX9MO7
+XgkY6Xreb8ek7W+9+xr+Xj3nafuY96AwIE1q5YX8hEt2zP6eqgBskEuHHYq
Hxxl7GSavIBShUfymSg+xMJ2ck8mvsDZwv/mTwbwcS/TtvUO9wVSnIMnLjrx
0bdtxClufSNCBOPGo/v50KzX0Fse3ggRK43EUzv40G5iFp3sbYRW2qwRpg4f
6oS7qblKExq/Hvi4XY2POzPWB3PcmiA00DMqlOVD0V+9Z2ZVE7iFrM2qUzws
mZ5ZRYg2o9JgJZHykQf1mz41ZjbNaJGIlVTp46G2hTx8OLMZ6n8WRj9s5eGP
acEi6eFmLNw1lWFeyYO5nlj4Id0WbCQZGT/u8RBzVXOBUWgLBt62hFcm0PEO
2qea2lsQYn56LDaCh4ndJuNv5zKgpl48dt6Hh9aUOIcbDgwUnvfnBB/n4Yq3
yT+v8hlIOrhmc6Y1DwVKpYLSrwx09ZQH9G/nYaPMJh1V/VbseScRq7eWB1fZ
E2mLw1ohkSLV8ViFh+Yt758/bG3FxK8qHWtZHsykE/Ra5dqQJnPptPw0F807
k7K8bdvg0P9aaewTF8s+GdzOS29DjZvm59+DXHgrazafItsw93XNgG43F4kf
9BlFmu0QE9v96eZzLnJnlJpcdG9HiESZ14JiLkJr1IZYJe048LdIvCuLi5d+
F48UjbZjS5OCW8ENLtYdU7eU2tSB4CAJsjKMC1Xl164fAzvwYIlG83cfLhYZ
9Dvvru3A4q5ymZOOXDj3kuOrfndAxP7Xwt8HuHBgahAxhp14PmxIdZpyYRfv
VOEc1olNkaere/S5EFn45WBdQycuL0m0EllF1+eRc+Hm306Is+Vve6pwcent
+LsBwy44hMdlSytwgQ0KFtkhXRg2c3B4P5OLh/2FoX21XVBfOxI48oOC/5/N
ltETXchdNDK5cpiCVdrghUebumGirXTl3iCFoz6e/SZnu6FyJKX5AJPCdulo
gz2l3VAsMZY2bKawJjHGv22kG2aLIHG8isLZinT7Ms0eLM2bdKwuoiA8WtEp
daIHaof4DMtcCgcj8rOZaT0o3+rRp5xMgdOgVDWT6IGbmfro8msUyiTTx7Nl
etHpm+TuHEbBYFWm8X2TXjT35Cdw/Sl0Hwi9rHixF+/3CRrT3Cn4xNzK+1rW
i3jxptzrJyg8lVRLWjvci4FPBjq1Bymws11NOKpMmE3wWpbvoVD7rer+4H4m
6pFa3mFC4XTJ4UqLKCYOlwQ9eLiVQjPjgZtSLROxeyYtGespZPjJNe76ysRB
1YW5KispyK0Qf+85m4UdCxynitUpBOSpl7qsZGGL2bOSYCUKnl16b+SNWbDN
MXSLnE3BjaE76HyEBfGVJ4kOSQpZZfd2ePixYMNT/7JrJoXNoncT1K6xUMuQ
l581SaL2jeBQ2B0W6vvS3k+Mkthr2qQSV83CGRm+nNZnEgvuaHmZM1ko9+r6
fEtAwqGucKBYwILyJMnZ+IFE05KQ0YYpFu4Va7yY109ipc4F85A5bDgGVp/S
Iki4H17iKfiHjWdnPz4N7CFBrUv775cBG+tvW8wRbSeREVEbXmHDhmtH9IWm
JhIbj0lmKzuzob/G5VZdHYnTGmUjKy+wYZNcKf+5ms7nQqoI9zob89VaRvZX
kJg0sL1snMtGWuWTl19LSfp/6MhaPmFjv9OYf2MRCak1awynGGwYr7rc1fmA
xAs7sef7+9j4/mdMRyqPxMHsdav2jbBxln1634VcEruWkNrjU2xUlj8PV8si
ccxglt8OOQ46b833/JlGYrn5nqwNahysOv++/m8KiZqtax06tDnw3dUTvDmJ
RO+hfnsxcCCyTDs37xaJrlZLS6E1B7M+7IzafpOE0WrTQY9jHDjd+nZJPI6E
vY51fbInB5u0bIynr5GIFX9WcCqYjs/4paIaQ/dj6K7Nq2scaIvqynpFkfC5
+NNzJJWDEM0Jf14kfZ+Fa83d+xxU6PF3RV2h81O49P33Ew6uiHcY7btMYpta
OmvqBQdf0x8c3nGJRMrdfsXMHg5Gv4clHYog8e/wtsj3/RwsEuVZJISTYKUm
vW8S0PGMk73fwki8FVwdsvjOgfzS0tUetGdXx7v4THNguylKRIZ2a6e4xhYJ
Al6D9ZJtoSRuNCmO3J1DYFhiKDmLdseW9ivFiwlsbvHaH09buuV3o50mgelx
SdN02huGA3zztAkUFmgo1tE2m9PtFK9PgGzw7x6jPR1wwVvFiEDWtonThvR9
/46/crGwIBAh5vztNu3YMaVl820InFud8kSUzv/mgiNBYYcI5F9nzb1I22he
wu5rxwikquc7TdPe4prhredMYO/QvIdRdP3sWbrtIR4EXNuYwoV0f5R//Kfn
4kvAs9otoIh28H8+qV/OEThWQ9ka0/3sVxN9My+YAKOl/e0AbVOL6dd94QQ6
Kx09vOj+WxbeCN8WSYB5f3piJj2fKlNOnWEMXW/AgPAG7c8HGEEfrhMYUI6L
mXeVfo+FVvlq8QTOJM/n3qT9SlFv7XQCgeaXCTkz6HkHPdKeFZhMgOqTaHKm
LafwRjXhNgHH6H9samizSkq9d6cRkFGM2SYZTcLm97LvuekEdqztHzWkrZt6
OSM5g8B2KXV5d9rx7rLuWpkEHodt2BlB+3+0nqte
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm], 
    FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  ImageSize->{623., Automatic},
  PlotLabel->FormBox[
   "\"Imaginary Part of Scattering Amplitude for NN Collisions\"", 
    TraditionalForm],
  PlotRange->{{0.002673965698502928, 0.30640611988352706`}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{
  3.587407828546053*^9, 3.5874081670100718`*^9, {3.587408208324787*^9, 
   3.587408219624072*^9}, 3.587742171284443*^9, 3.587758026415271*^9, 
   3.587836656174357*^9, 3.58783676695798*^9, 3.5878392702503033`*^9, 
   3.5878393232372637`*^9, 3.587842308864788*^9, 3.5878425121325817`*^9, {
   3.587842888181568*^9, 3.587842916781806*^9}, 3.5878429592631903`*^9, 
   3.5878430034755573`*^9, 3.587843126298381*^9, 3.5878453748948793`*^9, 
   3.5880138083111677`*^9, 3.588435058794497*^9, 3.5884451068240547`*^9, 
   3.5884454914272614`*^9, 3.588616994790659*^9, 3.588617833191369*^9, 
   3.588625831239725*^9, 3.5886259125275993`*^9, 3.588964411749167*^9, 
   3.5889666042846193`*^9, 3.5890324245828133`*^9, 3.589033110052075*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NN50", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"NN50", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
   
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Magnitude of Scattering Amplitude for NN Collisions\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Momentum transfer (Gev/c)\>\"", ",", 
      "\"\<Scattering Amplitude (fm)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.587407827321944*^9, 3.5874078281284733`*^9}, {
   3.587823938891843*^9, 3.587823939618092*^9}, {3.587839427034511*^9, 
   3.587839438136798*^9}, {3.5878430300608664`*^9, 3.587843031440772*^9}, 
   3.588445493815647*^9, {3.588625786720571*^9, 3.588625787192795*^9}, 
   3.588625901071251*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVVXk41G0XRiuS8KZSmLJUsmVNlltZ31S0KUtarJFItEmUNsry2rIlRLZK
ZIsUI0MJM/NrIdJifrOZqaioSN98f5zrue7r3Nc59/1cz3PO8oMh230lxMTE
Hoji/2cCe51/HccXrs2J7IDnQgQuvNcczYnAgN6NMnqnELZh7057BMfANSQ3
Yw1NiAnzWqVi9kVMrLVUOU4Vonpf1+Fz+66C/8Ejq65ZiALtN8n8oGQEWf1+
JKgXon6903HqylS8UbnioFglBGPuROv64XSwlzT0mpYJwSMFdLu8TOxYEVrh
mi9Er/N+idd7crCmO94kPEOI5RO8+nfyeVg5lZqbfFWI0gGyfKVfPq4LQkvu
RwtRaZ1dkEgtwD712rK+MCGmlm78katyC0kzm/ulfYV43dwx6HS6CO8Eqyhb
XIUYrx5NTntVDL4MaVtsL0R55oXNofol0I52jZc3EUKD47O5L74UvzRYLnnq
QiyqauhtZ5XBKNvq3BZ5If7ZI7nYwKoCjPPP3dX+CrDI2PeQ4vU7ODmrqVN9
RABno3NSh7/chaLrnzj31wJ89H5rq+1QiSjG4dHOFgF2NAYZrHK+j/mXve1P
lAtgqPhjMOD3ffy9pmQfmCpAhM+erp3FVbBrqv1eEilAXtnVUq5zNfqtHXRM
vQVYc9Ri+fLf1bj+d1cTZZMAHn4fhn/feoDVVibv/PUFUGa154dtqcG+wYio
RYoCtEaqS10cr0H2V++EtZMjkA/Teal7sxZzUxZJUN+PoNJgWe1hhzoMB6l1
vGgbAeWhva/5lzps7/3vqXvJCCK+6Ny8nlGPH7ayNsfiR7BAIlH1rGUD8hyl
xJcFj2Br6ZHikeEGsGLZyXudR/D4gOHYYNxDHFUTV7VYO4LLJRXPtuo1YnSV
lGa7/Ai65NTGLF82wtB3+NPPb3ykhB41KjnZhOnzlxnkSz5m90l5Xl72CJXb
N6xLqOWj+Kas6cCTRwifStGcTOdDdadnxs2DzTCRswxYe5yPhJysLYyZj5FQ
ZvndzJWPO9KbDYNvP0Z45eLCJSZ8vBsdpoQ6PMHgeTvnDwv5uDKve+w15wkk
9liujf/BA1MJtr02Lfji8tef8oqHWdG2nw6ktsBoV93eOzU83MrdSSv41IL4
wqOxhmk89FnwfRLWtmJvW7Gw6RgPGo/VjdRiWjFUFzS6ZQcPutTeigM9rRiw
lckYMeCBQgTaOSyjYo6UcHmBPA8FYmvPMA9RMd9G+1PwGBeK4ZRu8XoqxFqm
D3swuVCdEq8nZrTBTLzremg1F5Sk0EZ7lzaMQvff6hQump5+cHPLbcNvbliG
2jEupu1Kl0hx28A/8la8ewcXDkazYnYbPkXD5FJulREXcZc0FlqffQp1qUjJ
/oUivqeuN7VTlLewj7Wd4ODXJpvxQfl2hH8NoU31cUDLSPBM9GxHa8OHTTOa
OLgQYqP5qrgdRi3Nn/fe4KB0cSVZ+bkdEUkNE3IxHBhLm+gpm9KgIN/7cYU3
BwHz9mctjaYhrlRcLM2egzazoUdlNBoorhFFgVoc2EulGNFkOjDfXzy3fL4o
b5t2I2RnB46rZ3Xv+sbGihHz60XZHbip8PVzaB8bIUoabd4fOsC+0eY+8zEb
qe9N2ys0OjFaE35bsoiNfLFKm8jATigE5EZdjWfjbKMKh36vE/k5YvMSjrLx
MizSvWKsEwHtZ/Kk3djQ96I4SZo8w1Sl+sEFG9hQVnodwDv5DMHREq45q9lY
Yt7vu6npGa5Hp8lXybPh2/NhXOuPCMd+VN42RcKzV52Is3qOettM87NsEnuS
fWp8o5/DaWzNNjBISCwSujY/eY7+sY+9aY9ItAXdPJX09zlk9scXxJSSOD84
/u6tVRf21aUPiqeTgIGsY15UF47YOBOU8yTK+svP9jV1QcvnfeJQCInw6XVO
V3514fM1nUhTLxKbswZO3TF5gQOznL2Nt5DYGxrcb3PsBTT1nPHKgoSl1BXz
LZUvMF7xQ11Fh4R2alx4B/8FwneNUGRUSByryfao0ujG+zW77ItlSbD31jyX
3N8NKm1vLU+chOu54rzerG5sGBs49P47C8wni+vFiW7UzEkbvchloWpu9nie
dA9W1BvyBwdZMNfK3XjbpgeyFP8pHoOFFzvOxipG9kCBvav+XgcLoXH/FX2u
6kFyqmOdzmMW6uaqpOlwe9CjfsImoJYFRl6ADVO5F+8sTLX232Wh6Uv97YHt
vfhj+6NoyW0W/O+51Tpe7sWjhzsNMm6y0NZecmhxUy82H9z++U0WCzlhMq3/
fu6FUFzB91MaCzIrZw8FL6BjmDekX5PMQkQRpdJvNR15O+NLdyWwENxl9Gb+
Rjo+xmrMp8WzcKjdcMDXnY41Z8y6JeNYuFF1a0NQGB1ahQy9FVdYWDejMEUl
ng7T3B4FORFuekPuji6go6B2ZPmgCDvbUZclNNAxo7BaM1ZUb2HBqiMOvXRQ
/UuSpET9PJvL394l6bCrUC0PF+mhqkaNPZmkIz/toVW7SO9qvVMOUXIMZBhM
XJkS+Ql0Uw0mNRnAuO49Sj4LH/Wzfk6YM2D1662XcYnI77mmmBoXBhpD1QTG
lSwYe83NU/JloGLYjNRtEN2XehV/9SkG5s0NklWiivScypT4dI0h2qtlgqkX
LPw23xm7MZ+Bc16JzgN9LNH/0Jvn9EBUr29Mv5ZkQVJb22qynQGu5DbdxG8s
tOyZ9Wh7HwMK2//k+UmI3keevtY2PgP/jF1LsZQn8a/qB93xSQYeWRbtUFQj
4WU+M2yDDBMKDL74mBEJNYctNwxUmMj61HGkx4FE43odz2e6TGSaS+8o8yDR
s7vfYxaYOHsi6veFUBJdNCcn9lYmjNf1VHteImG9xm4gyIuJCg2Khf4NEh56
Wx+nBzMxa3fkyskaEldnPyz1PiPiB4h9r+smYcwpdHkVz4SWQdJSHw6J0Mgf
wfxMJv5W5i/7Js5Gj2NAY+FtJpJDDt71U2ZDTfb86J8HTDQ1Cuzum7FhoZJN
n2xhwujxgDHNlY2Mwn7F3G4m3puRDfnhbHzlWlwc6hf12+BN00tlg56ZNkQl
mdBM6jjtX83GIHmJ4zjKxO+X6wljJhsLGpL9QqeYMAlouZs0xgbt+Wx1szkE
rC8GPPRS4CCRqsgvlCNgkBR75JoRB8/MOi/cXUog9nh1xRxXDqSe/mndo0HA
bVjzQu0JDgy4EUeLdEX8jzgZkyWap3IvfJJNCZy/ENa5WTSvpyJOhSyzJkCT
nvb/O8jB1/FXfo6OBBTy2bNOTHNw9dviFf+4EFDTHrHIUeUiaaH76ejdBC64
KCzYZM2FtULKpngvApIThPbB/VyYBeSEGPkS0BwqTm+J5oIx07AzKohASUPx
tF0eF0rffxr5HSUQ4WKxgd7ExZmfoZnC4wS2O9N81vdx0a8y443CGQL969x2
+nzjws5x6nVfDAG+e/ZNLRkenMoTYywuEuhylzYL1eCh3o7ZbBVHQMXqU6mc
BQ+CHe2n318j8E3DMnXMhYeW8s3FKskEety8Osa8eXilaKQzlSLSe4fmPRnO
w+k7ujNPphNo1Prv41gsDzKyb5RTrhPYd+lHd2syD/R7lSGbsggoP1Mod8/h
weXPitH8bALHTp2JKr7Fg2FmbE56DoHpl6vzc8p4SA6cF7gql4ClZle/wV0e
/geWOK9m
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm], 
    FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  ImageSize->{627., Automatic},
  PlotLabel->FormBox[
   "\"Magnitude of Scattering Amplitude for NN Collisions\"", TraditionalForm],
  PlotRange->{{0.002673965698502928, 0.30640611988352706`}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.587843126326964*^9, 3.587845374927541*^9, 
  3.5880138132882967`*^9, 3.588435058823783*^9, 3.5884451068564157`*^9, 
  3.588445494094068*^9, 3.588616994825412*^9, 3.588617833224277*^9, 
  3.5886258312718267`*^9, 3.5886259125585318`*^9, 3.588964411780925*^9, 
  3.588966604317795*^9, 3.589032424611244*^9, 3.589033110085289*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NN50", "[", 
       RowBox[{"[", 
        RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"Arg", "[", 
       RowBox[{"NN50", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], ",", 
   
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Complex Argument of Scattering Amplitude for NN Collisions\>\""}], 
   ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Momentum transfer (Gev/c)\>\"", ",", 
      "\"\<Scattering Amplitude (fm)\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "1"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.587407748259241*^9, 3.587407813439806*^9}, {
   3.587823940899152*^9, 3.5878239419380827`*^9}, {3.587839486988488*^9, 
   3.5878394991874733`*^9}, {3.587843034421137*^9, 3.58784303648345*^9}, 
   3.5884454968079767`*^9, {3.588625787942355*^9, 3.5886257883593407`*^9}, 
   3.588625903894032*^9}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVVnk0lA8XplSWiiSVylKpVNr4VZY8IkshvvIVEZUlJT8SlRJaVIiEKVuE
hokissu+ZDczb9m1icE7M6+lRFHffH/cc89z7j3n3uc59557lc64H3GaIyQk
9EZg//ehg3vP5nOcUEwzXruDRuL8ssxSf443zlol2LEE+IBn3zUbtwCUN+rN
73lM4qdWnhx9MBBCs++tTaNJ5Ng3XbhpH4L9eou9t8SSSNraET7iGo7SRxL5
l+JJFGiaXK7aGIn+4V8NyokkWKI/KzX7aViuE26FZBLDA1ymQUI0soMt1evp
JNrMT81pt4qD/g2xiuwXJJR+Dhf0SSdA7tbW/yzKJMHoGUjf6PwMPVu6uhtz
SGTpxiaFVSWhQGv8y0QBiZlVej/i5VNgqCTfeKuURHvpu16Ta8/RLcR4dKOa
xGTOWHjUBzp8rojZdzeQSI++Y+qxIw1HvnJKE5kklDmOpp3BDIjkdkc1dZBY
nl3YVvvtBQztn7DtPpGQsRJbsUsnA08tbylacgTxf5zOyT55CXaays2XFAlz
9ZviF6hX+PNRM/zCFIkvDt0Hthplof3SQXqoMBdHi113bTJ/jZXT7SlSElyo
yf7odfn1Gr3jdSu+y3Dh7WjVZEnPhpndvto9ClwkvAhhDJnnYLoAJztUuNhy
UVtJ6VcOLD54pXaoc2Hj/Ln/V8obuHgaO6jpcrHmW+0zT7NcWEw0+3BNuKi8
vl48cDIXYZFurjPHuZD2VH2/LTEPKxb8inZw5CJr1+q8C0b5kIHUy/UXuVAs
MnTSovJBX8hQ3+sn6IdSTXzyuADjUoYLEkO4kJoTpuC3rxCpf/8uOBbDxWHG
v3SyvxDB9M1q9mlclJ1WG+8NKsL2D2qn3+RxcS8to+Hw9mL4TtMij9Vw0bRk
3fi+98XYXPq1YR/BRYTHRfW0qyWgF4hYuH7lYn6nuO291W9hYhGx4NMYF/RE
yT095W/xNsa3IEyYBwVL28eJZ0qxuNj4pf8SHkLjYsxYImVQoUk9Slfi4aWE
qZpbahnYbxs7JXfx0DfWr+hhVI4zFtQphh4P9xe2jLdzyvGdZ3764lEe2HI4
0KZfgTHHb6fOOvIwz//A19ORFSi9kZIc5M1DSrxlXdLXCvSl5YYQd3no1B5x
DN1ZiUeWs7Va0Twol61XXxdQibk9vg1VL3jYVtWWcbq1EhvfFyQ4lfCgSJw3
MFpdBUXnvvo1LTwkCe30ZZ+rwiUYXRv4yIOsl2KLcEEVZE+So6WjAn4zwgXE
3GocP9qzMG4OH4oPPYoNLaqh+0E2xU+Gj5Kaz9bW8dWYuy/NxmYDH38MGCvF
h6rhF58TpbaXDyP1eQHH1WrQK704duYgH0F3lZfp+tUgYqhHNddGkG+7zaGq
vgajzg9/W7nxMX1If7JXuhavb0e3d/nxUfc41DbMthYm1dbTGuF83HHX3/CB
XgvLjHEbjyQ+GCuyBrL4teid7Si8msPHPxK7t6/ZU4cnqtrqh6r5cFl4KmaV
fx2aypSm+gk+qjU+vn1RV4d990QUNb7xYSgeoV636B2ethX56n8XxA9EPXW3
fAeeRnSokAiFtaTWk+ex73Bpdp+oy1IK7nLK1Q6f38E8fEDFcy2FyE97ajOU
65GTZJ+5eieFZ0JZ+tfP18M6bendY6DgVyzPYWbWY8/Ky9c3mFF473n9RMZ4
PXb4/6j3OUFhh52iidjuBhgZH045fJbCGrl2l+GrDbjtmKrx9BKFlVpdTodK
GjCU1/7H0Z+CU+vnyc2zDYjL8RaLCKZg27aeCNJphL2cfu5GGgWrcMdcJ/9G
dO2WmliVSGHOct6x0vJGZCy5Z3KaQaHaNdHn4d9GbHEf2zL7msKt3sm+bp0m
iNdvrPlcSAG7JI0TbjRhou6L2twKCi+60v06S5rQUPZNw6GOgtefvSb3p5vg
VPd3x1QTBdOYHp+Xu5uRqHbyeTGTwkkPty79S80YZRd50t9T2Cd+X8ssqxmX
L/vezeygsDUyyOvdSDNcrdlfmV0ULuXG2mQrt+B7fE/wgh4KgydzG8VOteDX
xO5EMwE+dpOe0BbTggHjdqXYbgrs8hUFwkQLxr7LtnE6KWSLxk4mSLTCJ0gi
aGc7Ba3N8Xqp+q1w8BfX8WRTaD7qd1v2eivkz1X2PWuh4BH06Dk/uxX5BfGR
Je8o5IvKR6kOtaJ0mHGyXMCXleCiz17ThqXk2bIUgR4lVEFqz5E22KcJj7lk
UTibaZ1nfK8N7e7etnPpAj1r086tKGlDTZn5Fa8YCnGeiyoP8ttAK3JWyn9A
YdHG+R/dpJj4K/U6o8GPgvdzxSxnFSZG9OykGe4U3JrUOxbrMTFxPjvAzJ7C
uVq1HqcTTIQGglYomJen2Sn7XT2ZMBtmrCI1KeydmxwhH8zEXTl4fdkg6K9j
4Lh/EhPftLtXxiyhYG5QtTq0kAlGaki95G8+liVt+teojQlS3SvIpJ8P29L0
7lcDTCRMXVx1qJGPKoUb4+W/mRC+f0Va4jUfKtt9jG4sYWHUtTcwNIqP89YK
bgMbWJCouuLafYWPLztipn5qsRBgON3Ht+Yj7mZJQK4FC7tPdLSzNAX7Zyea
IOfEwn9pm67ckePj7PrsERUfFjQkF+qJTfOwzCd6ztcHLOz4PmfyQjsPv7Qs
b+s9Y8HXKfp9eg5PsB/bF5q8YSFnts+aCOVBbOtWnd+1LKSL9QeSZ3mosJr3
9kgnC2+XVir81uXhWMKOzf8ZYYEZWPRIdCUPBxU+b5v8zUKRWGbM2lEu7LRE
PPcvYkN2yniOaR0X64zMnu6SZ8MsgiYXG8dFsaaqbcM2Nh6fpK2V9uCi9XiX
zTywwdEPelivL7gPdSYmg4fZcPWS+Vkly4XuFoMeVzs2SG2xqWXDJGy2Hy6j
ubGhk+nU3FJMImR+EcPBlw3hmeTI2RAS/3CSLT4Es0FEFWcW25LwuP7DbSSa
LfhTNhZIqpJoNXYpTk5lI9Fg+t3y2RGsk7w1NvuGjfLcUusvzSPQlo9l/q5g
Y2p6cuh2/AgeJ3fJxrewkdrv8lr6wghGh7QDP3axUdHJ+MnQGgEzOupj1QAb
Fz7rrTohMYLegbsc4zE2qr+UX9HsGYZUYbizxwwb+Xp0/fMZw6hrnL9eYwEB
zYRZpV/XhxFWJTuSvITA7iCru/PNhtGgUX/n1SoC4ec4Qwz5YYjXzFZaKROg
O7iETo8OYdeQ98Xn2wicychWk6kZguGSZsfwPQQOaDf6LI4ewoy3j/tqXQJd
od2JIm5DGJ384GxsTKBslW6jpP4QQiZWrJWxIBBo6rzfRG4ID5eduOZ/nECe
HxnWOM6B7tKIQ8F2BFryF35Na+ZAwyXOXd2JgKdGQIsQgwOWiFr9DVcCNNm3
pt/ucCD3fUrd+SIB0Xr55HMOHPhOeUTzLhM4Kh2y+ZU+B13yczuW+hJYHjXy
sVKZAwPjmfbOAAIPQ6Wi8sQ4MEkPC9AOJCB1XPPfZGoQBQbsUp0gAvG33g/T
OgbBPVp77dMDAgd3zeokVA6iIt2ULh8uqE9oTTFfDeKDrLrqTAQBuUIZmnr8
IK693CZylUZgSFqlvfPBIBZJdqyJeEJA/ABdqsZ/EMzMLPdDMQSUK4+WS3gP
wmJ27dizWAIT8x+dTL0wCLXo23G0OALJ5xwb0pwHEX5+4flN8QSCFM40ijoM
4n/Mvcl1
     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm], 
    FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
  AxesOrigin->{0, 0},
  ImageSize->{621., Automatic},
  PlotLabel->FormBox[
   "\"Complex Argument of Scattering Amplitude for NN Collisions\"", 
    TraditionalForm],
  PlotRange->{{0.002673965698502928, 0.30640611988352706`}, {0, 1}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], Automatic}]], "Output",
 CellChangeTimes->{3.5878431263478727`*^9, 3.587845374961525*^9, 
  3.588013816335821*^9, 3.588445106887838*^9, 3.588445497113035*^9, 
  3.588616994855311*^9, 3.588617833256339*^9, 3.588625831304943*^9, 
  3.5886259125919533`*^9, 3.588964411813891*^9, 3.5889666043512287`*^9, 
  3.5890324246467733`*^9, 3.5890331101301603`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Fit data to complex gaussian (see model on next line)", "Section",
 CellChangeTimes->{3.587845328635953*^9}],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"\[Beta]", ",", "\[Rho]", ",", "\[Sigma]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"model", "=", 
   RowBox[{"\[Kappa]", " ", "\[Sigma]", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"I", "+", "\[Rho]"}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"4", " ", "Pi"}], ")"}]}], " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "\[Beta]"}], " ", 
      RowBox[{"q", "^", "2"}]}], "]"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.587839568504426*^9, 3.587839634901552*^9}}],

Cell["The fit is only performed over the first 50 degrees.", "Text",
 CellChangeTimes->{{3.58784534133727*^9, 3.587845349407783*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Npts", "=", "50"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"FindFit", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NN50", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"1", ";;", "Npts"}], ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"Abs", "[", 
       RowBox[{"NN50", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"1", ";;", "Npts"}], ",", "2"}], "]"}], "]"}], "]"}]}], 
     "}"}], "]"}], ",", 
   RowBox[{"a", " ", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"-", "\[Beta]re"}], " ", 
      RowBox[{"q", "^", "2"}]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"a", ",", "\[Beta]re"}], "}"}], ",", "q"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"a", " ", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Beta]re"}], " ", 
         RowBox[{"q", "^", "2"}]}], "]"}]}], "/.", "%"}], ",", 
     RowBox[{"{", 
      RowBox[{"q", ",", "0", ",", 
       RowBox[{"2", " ", "\[Kappa]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NN50", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"Abs", "[", 
        RowBox[{"NN50", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], 
    "]"}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Gaussian Fit to Magnitude of Scattering Amplitude for NN \
Collisions\>\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Momentum transfer (Gev/c)\>\"", ",", 
      "\"\<Scattering Amplitude (fm)\>\""}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.587407827321944*^9, 3.5874078281284733`*^9}, {
  3.5878240360003*^9, 3.587824128334293*^9}, {3.587824222900638*^9, 
  3.5878242688987417`*^9}, {3.5878243073213043`*^9, 3.587824346759548*^9}, {
  3.5878243789319267`*^9, 3.5878244041696568`*^9}, {3.587824435909391*^9, 
  3.587824443012466*^9}, {3.58782471784054*^9, 3.587824780046219*^9}, {
  3.5878366876168747`*^9, 3.587836732070019*^9}, {3.587839521133895*^9, 
  3.587839566758225*^9}, {3.5878396288728724`*^9, 3.5878396316832657`*^9}, {
  3.587843041861566*^9, 3.5878430471434507`*^9}, {3.5884299740018044`*^9, 
  3.588429980400425*^9}, {3.588625789048132*^9, 3.58862579242021*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"a", "\[Rule]", "0.9297784002346322`"}], ",", 
   RowBox[{"\[Beta]re", "\[Rule]", "8.9270917212192`"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.587843126393835*^9, 3.58784537502687*^9, {3.5880138205927763`*^9, 
   3.588013826189992*^9}, {3.5884350794484262`*^9, 3.588435085327141*^9}, 
   3.588445107138784*^9, 3.588617000695324*^9, 3.588617839799124*^9, 
   3.5886259188811207`*^9, {3.58862614730724*^9, 3.5886261574623003`*^9}, 
   3.588964411879921*^9, 3.588966604416781*^9, 3.589032424712351*^9, 
   3.589033110194736*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk01lkYB3BrqxRRSg2GKGEolRp8i7JESFS02JfEUCTeEtIy2XqH7LK1
UYrWt+wq62v/ZXlf25DsvyiDSpjbH/fc8zn3nnPP/d77PDL2nuZOfDw8PLfJ
+DUbaSR5vWrfpb37t6fpRSU0fI75t224IwEFlgXjl7UZQjLjGRsRraYj8Mt2
sp8fyjO2QOUffxQS31l8eF9zhgZEOn5sLiDuGyvsDmFro2pteVUe8coRUa01
DB0cONou8YZYvUsv1CtyH4Qydq1hEVs2MlorMgzQu7Cv+gWx7/snclIsI0gm
tyo/I45l9Z7xZZvA11tcJ4f4uGVYd/+YGWTu3V6YTTxqsuGaKMMcBfu9LmUS
XzQoVtIWsMCRoIj7d4mX6VhRpyIt4eU4GZhGrLItQro04yisi+7pxREXqShU
jCpZ42TA561RxKYbSz0kWMdgFHC5KZzYS3Iyz5N9EuvpcNlg4qDQitxaRVsU
vOFvYRAbXBe78nHMFqyg8p0+xJygJ4rLGfZY2KQq7kycETAzKwcHJNa0hZ8k
dmMYNO4ScIRARu3Lw8Q/vHvPO0c64WlbiqQesaTLqrLCDFfodfZvl/mVp4ND
POVyCtaCsxqribNtc08PKbnhiLb9qBCxpvV+UXHWabgpSbpMF5N8DlyycWf/
BY0Qs+xKYrn97C2XmZ7IezSoUUDsKyvEX6PoBTNWk28Osba0VUvPmBcUlqcs
iCGuXzNxcRnjLGY81vseJ1aPT3CO7zgL5n6ziAPE8at2m8nCG35+bZbaxLYr
I2R3Cvgg5/Hwj9+Ix4UUqh0jz8HOWC6mo4iGCM+x1QUZflCrt19iSFynGP0f
c5k/mgyz/95KHG7JbnTy88fpydCH64kXPPozfLkJA3dFl3LGC2n8tFzH6/D9
AnZcV+6JIu5/1Dm82CwQRt7FKWUF5P+1iFd25QXi0Je3hx8S5/I8aOKIBmHk
66lnkcR/be7OeRIQBLmw+xaHiQeDTN2OHgrGMbHpvT35NLo2q3Y/mruM7peD
zZ/yaGjtqTmwSj0ELvF3K98TJx92LQg6FYLsx+I2d4itgtMSLD+EoOLguvM2
xB9aVljMZ13BK6euQ9QbGlXBXyrNLa/BZORIadZrGi9anz37/ugGZH/0nBN5
RYN1vv0rp/MGvFxn2gZe0shbLbA1b3kotHeUjRQSFx+xfM7wDkWIkaf0KeLq
1unnM7vC8K+qbnn+CxrdrZovZ6vCYXVURtD8OY0lbeUs3sGbiK6attLJJfkV
TM+MCzFhcLX3pTDxIiGhdT0bmNj/++NSbg7Zn61+vPQIEwcTBwfPEK8YvdoR
nM+EuL6Cb/ITGmvdN3byhfyDuoU6Eb3ZNFTdPboERKNxNsUpb0sWWRc2f3de
MRpGBbzGU5k0BHK3Zw7rRMN1rJH5hrhtYv5Mg3c0bs+Jq4M4+EKUYHJzNN7K
2vXoPaDRFMpS2ppwC+M6T9r075F+k8V7wU46Fg3FE/or0mmcNOq3+aARCx7P
Zt3qNFJfdPVe/YOxEBxVnAghXqd2S1j5ciwUe3e6T6XSKHstn/HtYyzmdOQq
W1NorKo0qrr5IA7GzFWbwpNJ3v0xq4tUEqAbaZCaH0fj9cRJf13DBCxK4DV2
+mWeje2VDglgTMymCP/y2rwUKj4Bzfy1O2xjyfuYdG0Y4kvE75rrts3fIv3i
lby6WGsittTo2SlFkfOvsczcApNx1+1prG44DUqec2NVQyp+8rnvcA6kIe/v
+qFlMBX+U4FNPMQFny7cZPOkQfuWsnTSJRrCGku5YWvSMOZnT9UF0HjesclT
yCgNv4mFJ2y5SGN2g0vCsidpCKrIeTDiR4P5uode7pOOImv0yp4l9+tsiRXj
uYO3N84yHzuQ+go1uephfR97zaojNXfTmPdpWCZ1Lwvx1emtyyRoeC6WzFFm
ZeOhml9YCz0KyyD/qTLBXKRu5xuazRvFysaq9DvRT3FqTb9zx7VRnNgtlfh4
zXN03XB4d8F0FEJ2+bbdJS+Q2vmxJl94FO0t+c+LjV5hmwb1TLhuBMvn+Jor
pll4FNCj6B0ygnpdU92fSW+QlJC0qG7bCHK65rW6ZfPhXck/kDg0jP8UpxcM
1xQgzNhHcTZqGFY15sfvWBXhvUL8+SjtYUTd/IG3/CVwNNW/5tA9BC0Dk2+V
LSW4l7OX3+bSEPw2f5i6n1QKhouMFkd6CM4uAR0SZ94ibi6ywfr1IPpqjy6y
13iHm7ybUldYDCLz3Svr0pl3KFHTLzg2NgApUY1bL+rfQ4flU5wWOAD5sJGV
gTFl+OmiemuH+AC6j79ldJ4uh1i/yN+lqf3oKpRcZK5dgYihjJIAxX54GD5o
v81XCa+Hrd9u5n9CjvLh2IDWSlT4OFFlez4hWHNHnHpKFQRXKol11fUhgZtY
xGtXDbHkrPI9J/rg2ChTa6/ORuA011a85yOKvnJlkr6zQUtMHWC6fwTbnXXC
pb4GLwdT8JruhatIefeSuFps0p8x/s+3F0b7jvz93roOavNeprZ8vehpXCoh
+kc9quOWyX0J6cHCG1/p7ZP1OPPZcni9cA88jS81Tzs1YE/5CeXayH8xl7RX
36a+AWVf222sRP9FM4/c8WdqjbgR5LutXKsbgqIxjqbJjWidcjAT2deFAA2p
FW3zjcg7t+R13slOJNwfrjtt1wRpnX3b+i91QLhUP9iQ3QTBb8J91yPbwR4v
bBFVoVC4la1UncuFY1rOOPsPCvHlDj+/ZHMxZ5q+5KoahesL3XnXZnGhmnNF
e1qdwplE0Wy3dC5iPYzut/9JgV8186pwFBe2w23n7hpS0NJysbL15mLy44TY
dicKsUubZpW2cxEZ/UllzJmC0Ljn7WNbuNio22qQ6UqB0ZntE6rChXVG3sW1
7hSeXjOoHpTnosQ2uG/uLAWzyf6Vmau5CO0UflERRMF9Ue4fat85kI3gqQu6
TCGfs+egwyQHBZpfB3ZeoaDqGPIo5gsHY0nNktnXKQgqWy2ZGeLAwjo5hBlJ
oVlXwbuSy8HnxZG3DZkU/F8IH//ZwsH1N4Esvihy/3NKl1QpDvIkHEZ8Yih8
aT/wVwKbg0OVFoIqcRQ+fD6rWVfBweh5PamBeAoByiJ7+d9zcE1BY2daIoUF
ujuvapRwINW66ZBVMoW+5pl5jwIO/gdSr/+y
      "]]}}, {{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVVXk41G0XRiuS8KZSmLJUsmVNlltZ31S0KUtarJFItEmUNsry2rIlRLZK
ZIsUI0MJM/NrIdJifrOZqaioSN98f5zrue7r3Nc59/1cz3PO8oMh230lxMTE
Hoji/2cCe51/HccXrs2J7IDnQgQuvNcczYnAgN6NMnqnELZh7057BMfANSQ3
Yw1NiAnzWqVi9kVMrLVUOU4Vonpf1+Fz+66C/8Ejq65ZiALtN8n8oGQEWf1+
JKgXon6903HqylS8UbnioFglBGPuROv64XSwlzT0mpYJwSMFdLu8TOxYEVrh
mi9Er/N+idd7crCmO94kPEOI5RO8+nfyeVg5lZqbfFWI0gGyfKVfPq4LQkvu
RwtRaZ1dkEgtwD712rK+MCGmlm78katyC0kzm/ulfYV43dwx6HS6CO8Eqyhb
XIUYrx5NTntVDL4MaVtsL0R55oXNofol0I52jZc3EUKD47O5L74UvzRYLnnq
QiyqauhtZ5XBKNvq3BZ5If7ZI7nYwKoCjPPP3dX+CrDI2PeQ4vU7ODmrqVN9
RABno3NSh7/chaLrnzj31wJ89H5rq+1QiSjG4dHOFgF2NAYZrHK+j/mXve1P
lAtgqPhjMOD3ffy9pmQfmCpAhM+erp3FVbBrqv1eEilAXtnVUq5zNfqtHXRM
vQVYc9Ri+fLf1bj+d1cTZZMAHn4fhn/feoDVVibv/PUFUGa154dtqcG+wYio
RYoCtEaqS10cr0H2V++EtZMjkA/Teal7sxZzUxZJUN+PoNJgWe1hhzoMB6l1
vGgbAeWhva/5lzps7/3vqXvJCCK+6Ny8nlGPH7ayNsfiR7BAIlH1rGUD8hyl
xJcFj2Br6ZHikeEGsGLZyXudR/D4gOHYYNxDHFUTV7VYO4LLJRXPtuo1YnSV
lGa7/Ai65NTGLF82wtB3+NPPb3ykhB41KjnZhOnzlxnkSz5m90l5Xl72CJXb
N6xLqOWj+Kas6cCTRwifStGcTOdDdadnxs2DzTCRswxYe5yPhJysLYyZj5FQ
ZvndzJWPO9KbDYNvP0Z45eLCJSZ8vBsdpoQ6PMHgeTvnDwv5uDKve+w15wkk
9liujf/BA1MJtr02Lfji8tef8oqHWdG2nw6ktsBoV93eOzU83MrdSSv41IL4
wqOxhmk89FnwfRLWtmJvW7Gw6RgPGo/VjdRiWjFUFzS6ZQcPutTeigM9rRiw
lckYMeCBQgTaOSyjYo6UcHmBPA8FYmvPMA9RMd9G+1PwGBeK4ZRu8XoqxFqm
D3swuVCdEq8nZrTBTLzremg1F5Sk0EZ7lzaMQvff6hQump5+cHPLbcNvbliG
2jEupu1Kl0hx28A/8la8ewcXDkazYnYbPkXD5FJulREXcZc0FlqffQp1qUjJ
/oUivqeuN7VTlLewj7Wd4ODXJpvxQfl2hH8NoU31cUDLSPBM9GxHa8OHTTOa
OLgQYqP5qrgdRi3Nn/fe4KB0cSVZ+bkdEUkNE3IxHBhLm+gpm9KgIN/7cYU3
BwHz9mctjaYhrlRcLM2egzazoUdlNBoorhFFgVoc2EulGNFkOjDfXzy3fL4o
b5t2I2RnB46rZ3Xv+sbGihHz60XZHbip8PVzaB8bIUoabd4fOsC+0eY+8zEb
qe9N2ys0OjFaE35bsoiNfLFKm8jATigE5EZdjWfjbKMKh36vE/k5YvMSjrLx
MizSvWKsEwHtZ/Kk3djQ96I4SZo8w1Sl+sEFG9hQVnodwDv5DMHREq45q9lY
Yt7vu6npGa5Hp8lXybPh2/NhXOuPCMd+VN42RcKzV52Is3qOettM87NsEnuS
fWp8o5/DaWzNNjBISCwSujY/eY7+sY+9aY9ItAXdPJX09zlk9scXxJSSOD84
/u6tVRf21aUPiqeTgIGsY15UF47YOBOU8yTK+svP9jV1QcvnfeJQCInw6XVO
V3514fM1nUhTLxKbswZO3TF5gQOznL2Nt5DYGxrcb3PsBTT1nPHKgoSl1BXz
LZUvMF7xQ11Fh4R2alx4B/8FwneNUGRUSByryfao0ujG+zW77ItlSbD31jyX
3N8NKm1vLU+chOu54rzerG5sGBs49P47C8wni+vFiW7UzEkbvchloWpu9nie
dA9W1BvyBwdZMNfK3XjbpgeyFP8pHoOFFzvOxipG9kCBvav+XgcLoXH/FX2u
6kFyqmOdzmMW6uaqpOlwe9CjfsImoJYFRl6ADVO5F+8sTLX232Wh6Uv97YHt
vfhj+6NoyW0W/O+51Tpe7sWjhzsNMm6y0NZecmhxUy82H9z++U0WCzlhMq3/
fu6FUFzB91MaCzIrZw8FL6BjmDekX5PMQkQRpdJvNR15O+NLdyWwENxl9Gb+
Rjo+xmrMp8WzcKjdcMDXnY41Z8y6JeNYuFF1a0NQGB1ahQy9FVdYWDejMEUl
ng7T3B4FORFuekPuji6go6B2ZPmgCDvbUZclNNAxo7BaM1ZUb2HBqiMOvXRQ
/UuSpET9PJvL394l6bCrUC0PF+mhqkaNPZmkIz/toVW7SO9qvVMOUXIMZBhM
XJkS+Ql0Uw0mNRnAuO49Sj4LH/Wzfk6YM2D1662XcYnI77mmmBoXBhpD1QTG
lSwYe83NU/JloGLYjNRtEN2XehV/9SkG5s0NklWiivScypT4dI0h2qtlgqkX
LPw23xm7MZ+Bc16JzgN9LNH/0Jvn9EBUr29Mv5ZkQVJb22qynQGu5DbdxG8s
tOyZ9Wh7HwMK2//k+UmI3keevtY2PgP/jF1LsZQn8a/qB93xSQYeWRbtUFQj
4WU+M2yDDBMKDL74mBEJNYctNwxUmMj61HGkx4FE43odz2e6TGSaS+8o8yDR
s7vfYxaYOHsi6veFUBJdNCcn9lYmjNf1VHteImG9xm4gyIuJCg2Khf4NEh56
Wx+nBzMxa3fkyskaEldnPyz1PiPiB4h9r+smYcwpdHkVz4SWQdJSHw6J0Mgf
wfxMJv5W5i/7Js5Gj2NAY+FtJpJDDt71U2ZDTfb86J8HTDQ1Cuzum7FhoZJN
n2xhwujxgDHNlY2Mwn7F3G4m3puRDfnhbHzlWlwc6hf12+BN00tlg56ZNkQl
mdBM6jjtX83GIHmJ4zjKxO+X6wljJhsLGpL9QqeYMAlouZs0xgbt+Wx1szkE
rC8GPPRS4CCRqsgvlCNgkBR75JoRB8/MOi/cXUog9nh1xRxXDqSe/mndo0HA
bVjzQu0JDgy4EUeLdEX8jzgZkyWap3IvfJJNCZy/ENa5WTSvpyJOhSyzJkCT
nvb/O8jB1/FXfo6OBBTy2bNOTHNw9dviFf+4EFDTHrHIUeUiaaH76ejdBC64
KCzYZM2FtULKpngvApIThPbB/VyYBeSEGPkS0BwqTm+J5oIx07AzKohASUPx
tF0eF0rffxr5HSUQ4WKxgd7ExZmfoZnC4wS2O9N81vdx0a8y443CGQL969x2
+nzjws5x6nVfDAG+e/ZNLRkenMoTYywuEuhylzYL1eCh3o7ZbBVHQMXqU6mc
BQ+CHe2n318j8E3DMnXMhYeW8s3FKskEety8Osa8eXilaKQzlSLSe4fmPRnO
w+k7ujNPphNo1Prv41gsDzKyb5RTrhPYd+lHd2syD/R7lSGbsggoP1Mod8/h
weXPitH8bALHTp2JKr7Fg2FmbE56DoHpl6vzc8p4SA6cF7gql4ClZle/wV0e
/geWOK9m
      "]]}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm], 
    FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
  AxesOrigin->{0, 0.4},
  ImageSize->{627., Automatic},
  PlotLabel->FormBox[
   "\"Gaussian Fit to Magnitude of Scattering Amplitude for NN Collisions\"", 
    TraditionalForm],
  PlotRange->{{0, 0.30641778733395214`}, {0.40212583540355085`, 
    0.9297784002346319}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.587843126393835*^9, 3.58784537502687*^9, {3.5880138205927763`*^9, 
   3.588013826189992*^9}, {3.5884350794484262`*^9, 3.588435085327141*^9}, 
   3.588445107138784*^9, 3.588617000695324*^9, 3.588617839799124*^9, 
   3.5886259188811207`*^9, {3.58862614730724*^9, 3.5886261574623003`*^9}, 
   3.588964411879921*^9, 3.588966604416781*^9, 3.589032424712351*^9, 
   3.589033110196995*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"FindFit", "[", 
  RowBox[{
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"NN50", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"1", ";;", "Npts"}], ",", "1"}], "]"}], "]"}], ",", 
      RowBox[{"Arg", "[", 
       RowBox[{"NN50", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"1", ";;", "Npts"}], ",", "2"}], "]"}], "]"}], "]"}]}], 
     "}"}], "]"}], ",", 
   RowBox[{
    RowBox[{"ArcTan", "[", 
     RowBox[{"\[Rho]", ",", "1"}], "]"}], "-", 
    RowBox[{"\[Beta]im", " ", 
     RowBox[{"q", "^", "2"}]}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Rho]", ",", "\[Beta]im"}], "}"}], ",", "q"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"ListPlot", "[", 
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"NN50", "[", 
        RowBox[{"[", 
         RowBox[{"All", ",", "1"}], "]"}], "]"}], ",", 
       RowBox[{"Arg", "[", 
        RowBox[{"NN50", "[", 
         RowBox[{"[", 
          RowBox[{"All", ",", "2"}], "]"}], "]"}], "]"}]}], "}"}], "]"}], 
    "]"}], ",", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"ArcTan", "[", 
        RowBox[{"\[Rho]", ",", "1"}], "]"}], "-", 
       RowBox[{"\[Beta]im", " ", 
        RowBox[{"q", "^", "2"}]}]}], "/.", "%"}], ",", 
     RowBox[{"{", 
      RowBox[{"q", ",", "0", ",", 
       RowBox[{"2", " ", "\[Kappa]"}]}], "}"}]}], "]"}], ",", 
   RowBox[{
   "PlotLabel", "\[Rule]", 
    "\"\<Gaussian Fit to Argument of Scattering Amplitude for NN Collisions\>\
\""}], ",", 
   RowBox[{"AxesLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Momentum transfer (Gev/c)\>\"", ",", 
      "\"\<Scattering Amplitude (fm)\>\""}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.587407748259241*^9, 3.587407813439806*^9}, {
  3.587824169042266*^9, 3.5878241698495493`*^9}, {3.5878245298788033`*^9, 
  3.587824602251981*^9}, {3.5878246614448977`*^9, 3.587824692944474*^9}, {
  3.587824768536281*^9, 3.587824773238481*^9}, {3.587839657976323*^9, 
  3.5878396630709953`*^9}, {3.587843052182188*^9, 3.587843055714649*^9}, {
  3.588435089920156*^9, 3.58843509062379*^9}, {3.588625793998651*^9, 
  3.588625795791368*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"\[Rho]", "\[Rule]", "0.8573867189981697`"}], ",", 
   RowBox[{"\[Beta]im", "\[Rule]", 
    RowBox[{"-", "3.516797972227385`"}]}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.587843126461711*^9, 3.587845375061026*^9, 3.588013830899199*^9, 
   3.588435093415143*^9, 3.588445107289399*^9, 3.588617000729165*^9, 
   3.588617839849552*^9, 3.588625918968286*^9, {3.588626151884883*^9, 
   3.5886261600909843`*^9}, 3.588964411964625*^9, 3.5889666044552402`*^9, 
   3.5890324247449217`*^9, 3.5890331102296658`*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJwVVnk0lA8XplSWiiSVylKpVNr4VZY8IkshvvIVEZUlJT8SlRJaVIiEKVuE
hokissu+ZDczb9m1icE7M6+lRFHffH/cc89z7j3n3uc59557lc64H3GaIyQk
9EZg//ehg3vP5nOcUEwzXruDRuL8ssxSf443zlol2LEE+IBn3zUbtwCUN+rN
73lM4qdWnhx9MBBCs++tTaNJ5Ng3XbhpH4L9eou9t8SSSNraET7iGo7SRxL5
l+JJFGiaXK7aGIn+4V8NyokkWKI/KzX7aViuE26FZBLDA1ymQUI0soMt1evp
JNrMT81pt4qD/g2xiuwXJJR+Dhf0SSdA7tbW/yzKJMHoGUjf6PwMPVu6uhtz
SGTpxiaFVSWhQGv8y0QBiZlVej/i5VNgqCTfeKuURHvpu16Ta8/RLcR4dKOa
xGTOWHjUBzp8rojZdzeQSI++Y+qxIw1HvnJKE5kklDmOpp3BDIjkdkc1dZBY
nl3YVvvtBQztn7DtPpGQsRJbsUsnA08tbylacgTxf5zOyT55CXaays2XFAlz
9ZviF6hX+PNRM/zCFIkvDt0Hthplof3SQXqoMBdHi113bTJ/jZXT7SlSElyo
yf7odfn1Gr3jdSu+y3Dh7WjVZEnPhpndvto9ClwkvAhhDJnnYLoAJztUuNhy
UVtJ6VcOLD54pXaoc2Hj/Ln/V8obuHgaO6jpcrHmW+0zT7NcWEw0+3BNuKi8
vl48cDIXYZFurjPHuZD2VH2/LTEPKxb8inZw5CJr1+q8C0b5kIHUy/UXuVAs
MnTSovJBX8hQ3+sn6IdSTXzyuADjUoYLEkO4kJoTpuC3rxCpf/8uOBbDxWHG
v3SyvxDB9M1q9mlclJ1WG+8NKsL2D2qn3+RxcS8to+Hw9mL4TtMij9Vw0bRk
3fi+98XYXPq1YR/BRYTHRfW0qyWgF4hYuH7lYn6nuO291W9hYhGx4NMYF/RE
yT095W/xNsa3IEyYBwVL28eJZ0qxuNj4pf8SHkLjYsxYImVQoUk9Slfi4aWE
qZpbahnYbxs7JXfx0DfWr+hhVI4zFtQphh4P9xe2jLdzyvGdZ3764lEe2HI4
0KZfgTHHb6fOOvIwz//A19ORFSi9kZIc5M1DSrxlXdLXCvSl5YYQd3no1B5x
DN1ZiUeWs7Va0Twol61XXxdQibk9vg1VL3jYVtWWcbq1EhvfFyQ4lfCgSJw3
MFpdBUXnvvo1LTwkCe30ZZ+rwiUYXRv4yIOsl2KLcEEVZE+So6WjAn4zwgXE
3GocP9qzMG4OH4oPPYoNLaqh+0E2xU+Gj5Kaz9bW8dWYuy/NxmYDH38MGCvF
h6rhF58TpbaXDyP1eQHH1WrQK704duYgH0F3lZfp+tUgYqhHNddGkG+7zaGq
vgajzg9/W7nxMX1If7JXuhavb0e3d/nxUfc41DbMthYm1dbTGuF83HHX3/CB
XgvLjHEbjyQ+GCuyBrL4teid7Si8msPHPxK7t6/ZU4cnqtrqh6r5cFl4KmaV
fx2aypSm+gk+qjU+vn1RV4d990QUNb7xYSgeoV636B2ethX56n8XxA9EPXW3
fAeeRnSokAiFtaTWk+ex73Bpdp+oy1IK7nLK1Q6f38E8fEDFcy2FyE97ajOU
65GTZJ+5eieFZ0JZ+tfP18M6bendY6DgVyzPYWbWY8/Ky9c3mFF473n9RMZ4
PXb4/6j3OUFhh52iidjuBhgZH045fJbCGrl2l+GrDbjtmKrx9BKFlVpdTodK
GjCU1/7H0Z+CU+vnyc2zDYjL8RaLCKZg27aeCNJphL2cfu5GGgWrcMdcJ/9G
dO2WmliVSGHOct6x0vJGZCy5Z3KaQaHaNdHn4d9GbHEf2zL7msKt3sm+bp0m
iNdvrPlcSAG7JI0TbjRhou6L2twKCi+60v06S5rQUPZNw6GOgtefvSb3p5vg
VPd3x1QTBdOYHp+Xu5uRqHbyeTGTwkkPty79S80YZRd50t9T2Cd+X8ssqxmX
L/vezeygsDUyyOvdSDNcrdlfmV0ULuXG2mQrt+B7fE/wgh4KgydzG8VOteDX
xO5EMwE+dpOe0BbTggHjdqXYbgrs8hUFwkQLxr7LtnE6KWSLxk4mSLTCJ0gi
aGc7Ba3N8Xqp+q1w8BfX8WRTaD7qd1v2eivkz1X2PWuh4BH06Dk/uxX5BfGR
Je8o5IvKR6kOtaJ0mHGyXMCXleCiz17ThqXk2bIUgR4lVEFqz5E22KcJj7lk
UTibaZ1nfK8N7e7etnPpAj1r086tKGlDTZn5Fa8YCnGeiyoP8ttAK3JWyn9A
YdHG+R/dpJj4K/U6o8GPgvdzxSxnFSZG9OykGe4U3JrUOxbrMTFxPjvAzJ7C
uVq1HqcTTIQGglYomJen2Sn7XT2ZMBtmrCI1KeydmxwhH8zEXTl4fdkg6K9j
4Lh/EhPftLtXxiyhYG5QtTq0kAlGaki95G8+liVt+teojQlS3SvIpJ8P29L0
7lcDTCRMXVx1qJGPKoUb4+W/mRC+f0Va4jUfKtt9jG4sYWHUtTcwNIqP89YK
bgMbWJCouuLafYWPLztipn5qsRBgON3Ht+Yj7mZJQK4FC7tPdLSzNAX7Zyea
IOfEwn9pm67ckePj7PrsERUfFjQkF+qJTfOwzCd6ztcHLOz4PmfyQjsPv7Qs
b+s9Y8HXKfp9eg5PsB/bF5q8YSFnts+aCOVBbOtWnd+1LKSL9QeSZ3mosJr3
9kgnC2+XVir81uXhWMKOzf8ZYYEZWPRIdCUPBxU+b5v8zUKRWGbM2lEu7LRE
PPcvYkN2yniOaR0X64zMnu6SZ8MsgiYXG8dFsaaqbcM2Nh6fpK2V9uCi9XiX
zTywwdEPelivL7gPdSYmg4fZcPWS+Vkly4XuFoMeVzs2SG2xqWXDJGy2Hy6j
ubGhk+nU3FJMImR+EcPBlw3hmeTI2RAS/3CSLT4Es0FEFWcW25LwuP7DbSSa
LfhTNhZIqpJoNXYpTk5lI9Fg+t3y2RGsk7w1NvuGjfLcUusvzSPQlo9l/q5g
Y2p6cuh2/AgeJ3fJxrewkdrv8lr6wghGh7QDP3axUdHJ+MnQGgEzOupj1QAb
Fz7rrTohMYLegbsc4zE2qr+UX9HsGYZUYbizxwwb+Xp0/fMZw6hrnL9eYwEB
zYRZpV/XhxFWJTuSvITA7iCru/PNhtGgUX/n1SoC4ec4Qwz5YYjXzFZaKROg
O7iETo8OYdeQ98Xn2wicychWk6kZguGSZsfwPQQOaDf6LI4ewoy3j/tqXQJd
od2JIm5DGJ384GxsTKBslW6jpP4QQiZWrJWxIBBo6rzfRG4ID5eduOZ/nECe
HxnWOM6B7tKIQ8F2BFryF35Na+ZAwyXOXd2JgKdGQIsQgwOWiFr9DVcCNNm3
pt/ucCD3fUrd+SIB0Xr55HMOHPhOeUTzLhM4Kh2y+ZU+B13yczuW+hJYHjXy
sVKZAwPjmfbOAAIPQ6Wi8sQ4MEkPC9AOJCB1XPPfZGoQBQbsUp0gAvG33g/T
OgbBPVp77dMDAgd3zeokVA6iIt2ULh8uqE9oTTFfDeKDrLrqTAQBuUIZmnr8
IK693CZylUZgSFqlvfPBIBZJdqyJeEJA/ABdqsZ/EMzMLPdDMQSUK4+WS3gP
wmJ27dizWAIT8x+dTL0wCLXo23G0OALJ5xwb0pwHEX5+4flN8QSCFM40ijoM
4n/Mvcl1
      "]]}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk01WkcBnCEZK0rETUylmSbMqa5Sp52ZEKWkaWyJVFIqShZU9kyGTtl
G8skVMY1khLZriV+1nBvi4lcy3VvZdLIvP3xnvd8znvO+z3vc877qLj5WR8X
EhAQyCbr225Oz/SvGt5m3PCxgV2XzME5p6BB9XwF1Nuc4X6zcbCkCjdPEyMH
Ln7/hNhVdeZPjWB9rB4eDPzm/BW/7uvLo+OkcNLkN4/NPmZHMo0x3FQY9pRY
lkPbsTZ4N05+v5peT2zA2h/jn7APcvLDK58R23UHDzTnmYJV8EW8gfh8Y5ma
MsMcjcxAjUbiFMabM+eZFmiONXN/TuxsF8t+N2uFd2Pn65uIpyzUo2nB1lAd
WNzZQnzZ9ImOsbAtQtxYr1uJpXY7UCcT7PAhWqGASaz3U/yG+rzDoGemx3UR
1+ltbJ7ScYRo7KsH3cSWmvWnFRhO4MqGL1DE/kofa/yYR7F+rnN6kDgsprmi
Q8sFR/ddTh8mNr22OurtrAse60d6soiHwsq0ZILd0D2Y7TFGnBfyZVEN7rj2
2/3kcWLvYNPubcIecHj73cQk8cLZNxc8E47Dzlp0bo5Y6cSa54/zvFByRCxJ
MIXk6e6eRp04CRP2RKcIcalLhc97HW8ILnyvI05s5HiAJsfwQcdC/gFZYueD
V46dYvqiftOQ/EZitQNM/YhEP+w/F31Uh/i8quSydi1/vLePb9pCbLzBof/1
rD+iJosWjIi71vIvSwUHQGHHSr4tsUFaumfaSACuWsXsdSJOW7PTShVnIbN4
hOFK7CIbr2oofA6XVGiCfsRcyY1tHgmBKEu9pxZLvErASb427yIiDe+XthJ3
aiV9SJQKwsUlw7Ye4jg7Zvfxi0Gwl/woPUIsend7nIxFMKgFQelZ4v/s1gm6
f76Eeq0Lb9akcvDu7ujkCqtQBPZ3jp0mzu+Xa2HVhEJM4nJgEHGFQFHPEC0M
UdFOuleJfbXZ5WUhYdhufZ+WTTwRZul92CYc2UbVDzuJWdqb2Xe/RmD7kR8t
DdM42LGr/eAag0j4CIjYmBBn/epVG3YyElcnxa7YETuE56Tb9UYiMKnILIC4
t3+l7VJJFA7SdzLuEbeGz7VY20Wjt4PF0U7noHLgwYPPd29gt2Z3zb4MDhgX
hnlDozfgFtDrZk9cIy/8Y41MDAK0hXVPEj+xt3sYfDYGRycnNsYTtw3MP/yy
LRa+mc2MfmL2gNFfi61x8Gwbgn8mB+KDTQzBiZuoczo0V5tF8qud/8KVTERj
5BtWD7GYpOS61+qJqFHMmZkgFi81cK63T8TZ5JxzctkcrJy6OhL+KBHr66oU
/YkVT2mOCkX+BtORn7u0b3Ow+dRpljAtCaK/xA/V3iHn0tYNF7SS0C7SfL2f
WLhia/Hk7iTo2w4d5hIP8pfOvDibBFbZNSe1HA7CL90SyepLwl9OEpx44p4Y
hs6P6b/DPalM/0Qu6ZsSwUuuG1JQF+zhoZ/PwVHzd8d66SmIaqnQsyI2nW7b
a3IoBe//7FvrS7xuy+/SuhEpSNYtsf6T+Hm1Rt6/b1Pgo3XBQq2AgzUt5q03
i1IhL1Tu+90fJO93yfJ1eunw3ZRwSLuIg2r+0aA9ZulodJqQt/pmAc3hFvd0
NHEmhAO/WbHmNpWWjg61UesnxDUWLPX3QhmYXPitzq6Y9EWVhsHqgQy4/qzb
d6OEzI9mWHmHZmHH3KYl6VIOKI2hG2te3EGVl9H++PscaAR59fZP3EFxc25m
NXHtP5duMgVyoLNQQRsjlqZLvIxdm4Ppofbj2x9w8HBkk5+keQ4ORi3c4RAv
qp9IlyrLwfUoXQ/rSg4Sq19Py5zLxbg+T9uQQd432p+yWiAfZiafqn0ek/8V
Y3H1tGMhLA3ePChu52Dp3Asp5T9KsHR5fEKExYHfCqVyXUYpHPirFo9wSf+G
BX16LlIBc7ZifbroFGS7W3Pzk+7j2DIdm4T1UziyUznj3tqHEE9bJ6i8dQqS
ro9c2E8rUbshxkjOZgrD/Y8ePjGvwgvDR9L7/acg81Wor3megffLCnRMbk2h
a4/lnv8y/wZNab2OVNUUyllLO9iqj/DB+ElI3NAUPmjNi0621yJx9/t/XISm
4dBu7ZzvUAf3a/uelGpN49bNBTxb9hQxEb0T1YenscPU4t+W/qfoXfRk21+f
xkXt3k+FmfVQyB/0naqahueJkBGFM89wu0j7fhNnGmMdh8Xc6A1YrrT+mK3y
DIobqhzrvzTAPS0xlGszA2Ua/ffKrkZs/Sna2/bmDDRiObKhyc+RxPc6NN0y
A7bzs+BRnyacqtbjVq+YBeuxkpi1cTM0WzYNPTKfxWmzouFsoRbovhDfFRA7
i3LdX1NCBlqgZZl7/FXPLMKNfk41uN2K8oxwkVcSXKS/zKgTdG2DVp5+aIke
Fx7dKh1uBkwIl2yovGnHRR3vpUrmZybaHu66MxvMBfMU48iJrnYUGmqn5BZw
4bWqiS2e2oF1kXLflbZzYb7P/nqjYyd4m89enP/AxetuCQXaD10Yeem9vF9l
Dstv8Ka3fuzCuIUt1fHLHPx+udI3f/wF4kyU3BIuz+Fr5l6TY10vsP/CZnpB
6Rz6BNScH2zpRuWNEP9bL+cgQkv2sMzqxkgQTSJOiocQuvLKwaVueKnsXDAy
5iG9cLLTx7UH3iUhcoJ+PEjXm4SbMXswc/Zd3Ko/eGByH/fT9Cgc5l/Rzxjk
wSOnnMv8gYJftVN5xBAPXy1zxa9uoUCzVNzl85KHzeVRxvMGFL5wjfKNRnhI
OW1eOLydgvNyBbdXbB5cJgcDC8zIfVfU27THefj4lr9663EKxsnZe3o+8pCQ
9I/erCeF7thK58efeNDcM2Ba7EVhzuZeTPE8D455NZcVT1GgDu9VD/3Mw1OX
8LGvARQ2/iRmp7vIQ8yodGVzGAVx+vjteGE+VOMFOsMiyHwTJdFgET5qjXjj
hlEUDDW3RHiK8jGb2adUeo1C2lGhvyHGh61jVmRiAoV32dtU+BJ8zKxIyDZL
pJBqGPLDK0k+rv0dyhC6RaG3MNe6Q4qPGgV3zrlkCryPNweKZPiwabEV0Uul
0DPgYJi8ko+pC/uVx9MoIFakImIVH9Eb6YY5GRToK5O2+9P4UB7YZOOQRaHW
U2jkiCwf/wPd+Pdm
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{
    FormBox["\"Momentum transfer (Gev/c)\"", TraditionalForm], 
    FormBox["\"Scattering Amplitude (fm)\"", TraditionalForm]},
  AxesOrigin->{0, 0.7000000000000001},
  ImageSize->{624., Automatic},
  PlotLabel->FormBox[
   "\"Gaussian Fit to Argument of Scattering Amplitude for NN Collisions\"", 
    TraditionalForm],
  PlotRange->{{0., 0.30640611988352706`}, {0.6995891526030259, 
   0.9955204114590963}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.587843126461711*^9, 3.587845375061026*^9, 3.588013830899199*^9, 
   3.588435093415143*^9, 3.588445107289399*^9, 3.588617000729165*^9, 
   3.588617839849552*^9, 3.588625918968286*^9, {3.588626151884883*^9, 
   3.5886261600909843`*^9}, 3.588964411964625*^9, 3.5889666044552402`*^9, 
   3.5890324247449217`*^9, 3.58903311023184*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"NSolve", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[Kappa]", "/", "\[HBar]c"}], " ", "\[Sigma]", " ", 
      RowBox[{
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "+", 
         RowBox[{"\[Rho]", "^", "2"}]}], "]"}], "/", 
       RowBox[{"(", 
        RowBox[{"4", " ", "Pi"}], ")"}]}]}], "==", "0.9297784002346322"}], "&&", 
    RowBox[{"\[Rho]", "==", "0.8573867189981697"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Sigma]", ",", "\[Rho]"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.588435126918639*^9, 3.5884351391166*^9}, {
  3.588625933980233*^9, 3.5886259575214376`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"\[Sigma]", "\[Rule]", "11.424258898051162`"}], ",", 
    RowBox[{"\[Rho]", "\[Rule]", "0.8573867189981697`"}]}], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.588435139792482*^9, 3.588445107474835*^9, 3.588617000794015*^9, 
   3.588617839883443*^9, 3.588625919014741*^9, {3.588625987229204*^9, 
   3.5886259948900414`*^9}, 3.588626170641913*^9, 3.588964412068186*^9, 
   3.5889666045008373`*^9, 3.589032424775292*^9, 3.5890331102800207`*^9}]
}, Open  ]],

Cell["Fitted parameters:", "Text",
 CellChangeTimes->{{3.587839676979177*^9, 3.587839682049595*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Sigma]", "=", "11.424258898051162"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Rho]", "=", "0.8573867189981697"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", 
   RowBox[{"8.9270917212192", "-", 
    RowBox[{"3.516797972227385", " ", "I"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.587826267717149*^9, 3.587826298274109*^9}, {
  3.587830344267045*^9, 3.587830344569378*^9}, {3.587836805316648*^9, 
  3.587836815083314*^9}, {3.5878432175976048`*^9, 3.587843260114891*^9}, {
  3.5880138448751497`*^9, 3.588013892784466*^9}, {3.588435149612636*^9, 
  3.588435158286289*^9}, {3.588617897108161*^9, 3.588617958053137*^9}, {
  3.588625940008761*^9, 3.5886260065743647`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Glauber", "Section",
 CellChangeTimes->{{3.583850643672845*^9, 3.583850655640636*^9}, {
  3.584120278585313*^9, 3.584120292887951*^9}, {3.587391392503902*^9, 
  3.587391397965102*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"\[Sigma]1", "=", 
  RowBox[{
   RowBox[{
    RowBox[{"-", "\[Sigma]"}], "/", 
    RowBox[{"\[HBar]c", "^", "2"}]}], " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"I", " ", "\[Rho]"}]}], ")"}], "/", 
    RowBox[{"(", 
     RowBox[{"8", " ", "Pi", " ", "\[Beta]"}], 
     ")"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Fcm", "[", "q_", "]"}], ":=", 
  RowBox[{"Exp", "[", 
   RowBox[{"B", "*", 
    RowBox[{
     RowBox[{"q", "^", "2"}], "/", "A"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5878257377899637`*^9, 3.587825738446464*^9}, {
   3.5878257735645437`*^9, 3.5878258775209017`*^9}, {3.5878259873914633`*^9, 
   3.587826024711348*^9}, {3.5878261193368464`*^9, 3.5878261295757427`*^9}, {
   3.587826304329524*^9, 3.58782631629187*^9}, {3.587830351291313*^9, 
   3.58783035337062*^9}, 3.588430017173819*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1.5143632945942331`"}], "+", 
  RowBox[{"0.524618901918842`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{{3.587826001726019*^9, 3.58782602521132*^9}, {
   3.587826120628701*^9, 3.5878261302336893`*^9}, 3.587826322236547*^9, 
   3.587830353896243*^9, 3.587836818480969*^9, 3.58784312654602*^9, 
   3.5878432640914927`*^9, 3.587845375126726*^9, 3.588013902133751*^9, 
   3.5884351649150057`*^9, 3.588445107626472*^9, 3.588617029499489*^9, 
   3.588617962166767*^9, 3.588626046545636*^9, 3.5886261802666483`*^9, 
   3.5889644121470823`*^9, 3.588966604565009*^9, 3.5890324248272257`*^9, 
   3.589033110345677*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"F0", "[", "q_", "]"}], ":=", 
  RowBox[{
   RowBox[{"-", "2"}], "*", "I", "*", "k", "*", 
   RowBox[{"Fcm", "[", "q", "]"}], "*", 
   RowBox[{"(", 
    RowBox[{"B", "+", "\[Beta]"}], ")"}], "*", 
   RowBox[{"Sum", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Binomial", "[", 
        RowBox[{"A", ",", "j"}], "]"}], "/", "j"}], "*", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "\[Sigma]"}], " ", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"I", " ", "\[Rho]"}]}], ")"}], "/", 
           RowBox[{"\[HBar]c", "^", "2"}]}], "/", 
          RowBox[{"(", 
           RowBox[{"8", " ", "Pi", " ", 
            RowBox[{"(", 
             RowBox[{"B", "+", "\[Beta]"}], ")"}]}], ")"}]}]}], ")"}], "^", 
       "j"}], "*", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{"B", "+", "\[Beta]"}], ")"}]}], "*", 
        RowBox[{
         RowBox[{"q", "^", "2"}], "/", "j"}]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "A"}], "}"}]}], "]"}], "*", 
   "\[HBar]c"}]}]], "Input",
 CellChangeTimes->{{3.5867075057631598`*^9, 3.5867075084509287`*^9}, {
  3.5867075724975643`*^9, 3.5867076271846123`*^9}, {3.586707915953889*^9, 
  3.586707922574651*^9}, {3.586892264400138*^9, 3.586892296890935*^9}, {
  3.5878263270491743`*^9, 3.587826394734709*^9}, {3.587836877179749*^9, 
  3.5878368806977797`*^9}}],

Cell["\<\
Glauber approximation  for p-\[Alpha] scattering is below:\
\>", "Text",
 CellChangeTimes->{{3.587839710457749*^9, 3.587839749824522*^9}, 
   3.587843057809849*^9, {3.588617024373234*^9, 3.5886170253950157`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"40", "*", 
  RowBox[{"Pi", "/", 
   RowBox[{"(", 
    RowBox[{"k", "/", "\[HBar]c"}], ")"}]}], " ", 
  RowBox[{"Im", "[", 
   RowBox[{"F0", "[", "0", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.587826419916177*^9, 3.587826431154049*^9}}],

Cell[BoxData["340.80429677099715`"], "Output",
 CellChangeTimes->{3.58782643266638*^9, 3.587830358555717*^9, 
  3.587836823989852*^9, 3.5878368834185038`*^9, 3.587843126611931*^9, 
  3.587843268040864*^9, 3.587845375176565*^9, 3.58801390813632*^9, 
  3.588435175232546*^9, 3.5884451078283987`*^9, 3.588617029580078*^9, 
  3.588617975120037*^9, 3.588626051420561*^9, 3.5889644122799883`*^9, 
  3.588966604632159*^9, 3.589032424876739*^9, 3.589033110411894*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Rho]0", "[", "q_", "]"}], ":=", 
  RowBox[{"Exp", "[", 
   RowBox[{
    RowBox[{"-", "B"}], " ", 
    RowBox[{"q", "^", "2"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.5886174859136343`*^9, 3.5886175063088903`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{"f", "[", 
       RowBox[{"Sqrt", "[", "q", "]"}], "]"}], "]"}], ",", 
     RowBox[{"Im", "[", 
      RowBox[{"f", "[", 
       RowBox[{"Sqrt", "[", "q", "]"}], "]"}], "]"}], ",", 
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{"\[Kappa]", "/", "\[HBar]c"}], " ", "\[Sigma]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"I", "+", "\[Rho]"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"4", " ", "Pi"}], ")"}]}], " ", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Beta]"}], " ", 
         RowBox[{
          RowBox[{"Sqrt", "[", "q", "]"}], "^", "2"}]}], "]"}]}], "]"}], ",", 
     
     RowBox[{"Im", "[", 
      RowBox[{
       RowBox[{"\[Kappa]", "/", "\[HBar]c"}], " ", "\[Sigma]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"I", "+", "\[Rho]"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"4", " ", "Pi"}], ")"}]}], " ", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Beta]"}], " ", 
         RowBox[{
          RowBox[{"Sqrt", "[", "q", "]"}], "^", "2"}]}], "]"}]}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", " ", "\[Kappa]"}], ")"}], "^", "2"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.588618937782789*^9, 3.5886189576047993`*^9}, {
  3.5886262892567244`*^9, 3.588626295936125*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Input value \[NoBreak]\\!\\({0.0013849464165206031`}\\)\
\[NoBreak] lies outside the range of data in the interpolating function. \
Extrapolation will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \
ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{
  3.588618958898381*^9, 3.588626056481194*^9, 3.588626184791202*^9, {
   3.588626290199831*^9, 3.588626296358034*^9}, 3.588964412375123*^9, 
   3.588966604700678*^9, 3.589032424940435*^9, 3.589033110478067*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Input value \[NoBreak]\\!\\({0.0013849464165206031`}\\)\
\[NoBreak] lies outside the range of data in the interpolating function. \
Extrapolation will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \
ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{
  3.588618958898381*^9, 3.588626056481194*^9, 3.588626184791202*^9, {
   3.588626290199831*^9, 3.588626296358034*^9}, 3.588964412375123*^9, 
   3.588966604700678*^9, 3.589032424940435*^9, 3.5890331104803534`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nc8lV8cB3BJRhHtSBKVUfYs8qWIkhGFSkpFkaysrIQ0lFB2Gcm69z7P
vVbXPjSpZJaWXHvG08KP4nf89bzef5zznPk9n82nPaycuLm4uFYu4uJa+LYb
PHclfSX1zvrLZmjzclBo56RWiOqc3tMZh9JoAQ66qLrbUUd1OTSZrapoEuSg
PnuOr5iqBAxoza+1XcVBkj9VuJaqKkLBy4IOJ0kOqqk69mKRqh48PHW9/cou
DhKSmsj7p2IO1070OKS6c1DJ4Z0psyoOEN8qc//cBw6S6rmfvdrfA7jX+JuR
pd3Io/XPJDrpD2Zlhv+eR/QgKckuscTOUIgaCNgQYNqLfrS1ZP8NjYDB+A2G
ezf3oZiKZbbP9l+HzaJHXeb7+5CKXnFMs1M0GGoSM/3sfjTPLl9Cut+FBJck
PbfwAWQ48uagSEocbBm/YUzpDCKhVz8+umXfg1EqZG7toiGk7hvxa1V0AqQl
HpjaXDqEPNOfK0i7JEHzB6o4zXEYKSfq0t57pECbVRBX17oRZH5SsrTVOg22
cwRWr6oeQROTu7gvnXoId6PbdFxcR1GuwBKPoDMZ8FN6yP308jHU6bdRYzAr
E2bf331tmzWG5JrbrE/nZoHcWr+65zu/oy0ra8vDUx7B0BBvIH/dd+RY+ar2
d2Y2tG3SCXIxHUeyUnkdqdmPgS3louP4ehyle1VpDNzPAXTS+oaN9gSykf2u
HpGaCxL7IrKTcyZQ9SvroBcxebDn4LK+Di4KMbfEt+iE5sNtfe2TXHIUqo32
+HEgPB9+BRkaZ2M3/zy44lhUPniXFb8xkqfQz1q+QwEx+bBeIang5nYKaZ4I
aS5JzwdTT/8yQUUKVSWcb1JA+WCt0i3GpUahBl5o3MRVALyph/Y80KVQ79Bo
/eLwAoiw2DOVYU6hRJmBkMZrBRCvLbtO0oJCB5w5qkk3C6BCIflzBnZRb/sD
+bgCkG7/bZpuSaGwb9WehzIL4F1DWUeiFYXE2++uz6gpgO6vDQ/8bCh0GKmd
3zVbABakSCR1gkL8cwobeeYLQExKabGTA4UqdWVbG7lpcOFTtfQnbKkKcV3H
pTTwpNpMak9SiCpZInJDlAbhl4MlbzlS6A6tg/1eiwabgpqmlzlR6GVCEJ+X
Dw2c2Y6Jry5QaO2eGe7bATRQ3vv8g7Ybhc6NB8zlBtOAMih7XIDNb+z352sk
DXq+dQ/dvIjnN+3Za5JAg+tgL2XkQaGmY85I8gkNVFzm+HK9KfRx0yH/5inc
/4zUS+HLFJJ92+Q9OkuD4lQFJ2/sywHm7rxcdBjJMLvdji3WYuqky0+HBBtP
76RACtmH77POX0+H3orStHXBFOru01EK20kHO5Mt5ouuUGikYNugUhAdtPp+
pV2OpJBKaV+R1hU6COc9uPMGO6D2UShE0IE1M86/8RqFlnRIrLWIpoOnn+aD
GmxJnnVG7ml0mA/rUv0bRSEbB75sRiUd5iz3CznepNBDlxfuJYgOZw7L3KVj
9/lE7Kp6Roc+B4uUP9he0fMtb97Q4amg7L4btyh0u2yKa/QLHUqnL0nlR1Po
6cohB7m/dHjwR1u95Q6FBCRy5VW4GHAxhqW2OoZClnJnJ7V5GKDoJFVug90J
nDsmggywqjpy5DP2tNvHqnPiDAjckPfuy10KKb6qF8vVZcD2/TE5r+IolBJU
8EEqhAEf1fe1GSRQKNwhUqs/jAGTF6g2L2w3g5PJeZEMSJwTcs7C1uNbc2zH
bQbY7ZPUm8fuiw/r1EhjQIzxiorSRAop02z7TMoZMLz3TKZQMt6PO6pGy6oZ
cL/r0WNN7MWeQrmNtQxQvkTXPon9QePZOat6Bky7vBBmYgfXKY4e72CAZny3
//4UCtV/XPLT/Q+eb7iohEsqPv+VHCuV/xhQbOe2Jho7Lb2y+NdfBuyxM05j
YLuf9fIN4CGANmxsNY69mvo6fXUVAc3b+Dzc0ig018o+ariOAEeHsk+3sAdL
4yt4NxAw5mHWmo9dEWQSHC1FAKXe6NaLfYqvZP6+CgF9JY2G1g/weR2JOWWr
QcAx0ljcHVut0aVOdCcByf6zYTewee9tikjXJ0D+ZdWPSmyGRDRvvgUBm6xO
uW98iO/3IudzrtYE1JueJtSxr/Tp1++wJWA8ZDrAFNuKNnmz0IGAgZWxpf7Y
UxqnhSovEqCaqvH0NXZoVF3JOy8C0shAPg42T4ekfY8vAUnKixt/Y68I6KIJ
hBLQvrytWjydQsn1elYbwwn40V85pIQtIZr+n3IUAXq3nW/twd5eYW9iF0NA
FmGk4oxdtLRq4kI8AWdZ4pr+2NrHNyRdSSSgLm6GdR3b6O+n/tx0Ari9V/Dn
YZ/Us434QxJwPiFTswt7IOaJvEAxActiHg2MYrt1rWkVZxOg/EFn2TT25bB2
SUNEQI7wlcLlGRTialGrt31GwFTRO1VR7KjN9zwuvCLgk8AiWWnse08P1cQ3
EWBMP3ZRA1tsVaFTbhsBmmzZ6t3YmWdEhCo6CAj5b1uYEfa2Eo+Sxi8E5KU6
Fh/EJniajnd3EbBH0NDGGlv9iOLiP70E7EocunAUuyLnDo1/iAAXJ5XfDtj6
k2OHxMcIEHjGNXEG+9W+g/8pUQSUrt5pfx7bPImeufc3AV5fq3TcsNsHl5rY
TuP/lbnf8cA+pu064fqXAKWzKoe8sbtvNCSGcpFg9mQwygf7/CdZvXgeEsof
+Sj6YY/L3ejP4SchbWelsT+2T+Dg7XJBEhLy0lsXPPt6n3qjCAnPNbibFhy+
IfcLZzUJ1fsbdBfM77Yk4vd6EhKdOjYs9BdTdVaefyMJAzIibgv/WyP0vGXD
ZhLemNoqLIznwQnpy0pbSejPjz25MF4pMlxyrxwJZ9QyuRfmkz/X/cpGgYTZ
WZe1C/NVsjDwcFUhYVKpNXVhPZ5kZK4N1SBhu2j13YX10qXmq+N2ksArIfzH
Dvup/kmnnN0k3KpjvLbC3h9XI1huQIJ1dqDIwn40d28seWtEgmtwRpshto1q
yHHOfhJs4uT4FvbzTJsOjc+KhK06LVXbsUek0w5tsCFhdaG/nhS2p8/MtOIx
3F6UV2k9dsiacmOb0yTMWI8f58bmcV4/4eJMwr6jrUmT+LzdeuKfGOKKx8su
MhjBTrLV7H/sTUJJSei3JuzaK0WbL/mR0CT37vlT7JE8RQeDQBKWhIpuL8XW
nd7W0XmVhEuFg37J2JzkdQ1r40gwbTfkPYotUHdvSf99ElKpw4PG2KrDwnuK
k0kIFh7bp4l9bSd/pUUmCffMpsJWYMt/nmbcYJIwGvD2ZR2+r9bcvsM2xSQs
bgm5xcAOlv+xdSubhF16994kYjcFDqfX1ZAgIp31wgXbZ8Pn2JlGEgx9zJIE
sGvsK33cxkjIOG+dpYzrzWCkVuEuioSNvl2qq7BFiOLv/L9JmKsu0f+D69mZ
f3TnnFkSTlhNNbOx+dMf2H1byoRWf76nmthWXSG6lnJMaG7JlBHH9TOIbyZA
QoEJX86rhE3ievxYya90TJkJHRs1rJuxp664K97UZoJw4+i5cOwHkiclnxoz
oeKXnzEH1/MBR30edWcmjG30rwhPwvVxeFZkwoUJZkJKsUewt3qyN9IuMsF0
QqRXBvtsqKKWpC8TBLdWzL/G70l3qrirYCQTeIve9S7F/to23dSXxYRrW1wn
ve5T6O+xkq8ZOUzYGkVd18Xe0OMxfKwA9+eQlMCLfYwa4G5h4fmEiW9NuYfz
hOB7jWrEBHnX3lVl8RRqMypMS+hkgppQj0JnLM5zb93yLbuZcLHmyf0M7JWH
ZUuX9TPhTfVLP0dsy9MZ766OMaHWg0Hvxe/pu9A7i9xnmaC4Rqq1G7+3/V9K
1LIFWcDz4uO357fxeVkdlxIkz4KmFWsVttzA76ewyrOrO1hwFSQb3l3H6yXQ
MnZdkQUt23TqArCPzono31dlQf0nkRevcZ5oHYwdYOxiQYOq0bpzOG88r4hV
+3aABZ2HC16GhVMo71Rso/4FFrQWnU7TwvmG97jy1L6LLHBefMK/MQiv55Fm
STMPFtRetqWdxpY8IOJz9BILsmZjV0fjfJSsFivmHcQCGbe5320B+L7wxp7L
jmZB3RYRhpEvfk8ZdxfxMlggtrxoeT7Oa+kra3yHCRasPEEJqGA3BowNv2Wy
4BFrj3s5znc7jPa33itmQQHfW696nAdHO7mzN1fi9qZFAV0uuP4J+xnufs2C
cvtG+R84Pzp621/3GWLBobRBnyycT2M/3pq1HWHBW7vj9uuwa/XKPXTGWODW
+i/vtj0e/7K1dtwUC/QtJ119j1PoW3aTbOwUC2z421PgKN7v93te03kLYZNL
l9uTwzj/assJ9W4pBBvC4uwOU3y+36dsmdhWCDtCx0WvHsD76b1Ud1a2EHKD
TVa830+hg4xR11UKhfDD1/N5oAl+7yTJ+r0ahWCR4KFVbYTzPb9a5GOjQmhK
mZKR0KfQ+o+6s07OheCT0fTLXJ1CX/wth4fyCiF58KnDWTEK0cIsTFsLCmFv
UFZDoiiFAm+aE5X0Qri6d2lU/XrcPu2gVwyzEKRPaY3JrcP1sMbkPzV2IfA0
tJzrW4X3n8dA4MrLQhCx9xzVEqLQ6zgVuTX9hRD4PdiGOTeByukrXQykiuCI
1Nm4b08nEM9ZFbXNW4ogu22k7UftBDIXt/zHta0Idid+oi9GE6jv9p24Wrki
KB57KyZdOYGWu/NXgEoRqIeof7csnkCnleeW6ukXwefQuNbz2RNoWekwY5cD
tuXWRxHhE+hETS2llloEDZtqVPfrTqCsyL8mFuLFEDJQodQZM452Q5thdUIx
pI/O5hxq+Y4CCa0Vh0VL4EjOynyL3jEUPHO9PzK1BPYKNks3vB9FH3QuneBf
VQric07bLrFHUIvyWE5JQiloVrX+FrIdRtJiXPHFwk/gKOenQnTPINLpmb92
8PoT8PTiP/fZeAD9OnHnwHIBNsi8XHO8xrIPLX5XWiQVjp3oORy7uwdJrOi2
hUg2bHXrlylT60G7Dgv+Ox7FhrYdvzs/yfUgz8+njRNuscHcQuS94Noe9G1A
+CvfPTbYafqfVx7vRhXzLku+Z7Mh3mi9xsWH3chbRcKO/YINT+TX2JdOcVCM
z/5/ba/Y0M28fFH2OwcVsH0eUQ1ssJL5k5rQw0Gc3W/G5N6x4bDjHgOHRg4y
PxBw9cEHNphJywznP+Ig+TOttKuDbEivNjIVO8hB+3L/WaQPs+FhUqy0ogEH
OQ7L/qkYZUNVQvkVHU0OSva4Ar8n2NBlvqXdQJKDeIN3tDtPs8FJO+o/3qEu
JIVsL0fMsCE1NlfnVUsX2s0dIZH5lw1Tkbukgyq7kM+NT+c/cZWB6eXH/bUx
XejuG57lk9xl4JVnwXswoAvRlisXr1xSBp5zWn9bHLvQy0PH7ZT4yoAM+ixl
ZtqFuu9H/TMVKIMn1w11SfUu9D9Yjh0T
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwd1nk81Nv7AHBxXVkrlDVbsuQia7qWh5KIqLgtUjeKkkSJEMpSbvW9urYY
kbVxLaHMnI+lOkqolGx3LGWfibJEllIjvzO/P+Y1r/frM5/zOc9z5nmej6pX
wD5vfj4+Phb58L47bZ6fLgtWsZJLoNXkm7JwVN/ClkjDn1beU/0dnVtZ2N/Q
0tPcUAIqzihOLlqwMNtjMFjeUAn+EM6PdN7OwipfDPhEDPVAWsfO550LCz95
5N6wwtAKjgkcVuOeYmFxtc+FSwbOIOY8IDqawcIMt620HwZHYY2/gfXgEgur
DafkS18MgJE+bxnz1i4c0D6/gP+8CKE6wU+u3urGaioD8rf7ouDzRZEPJ+x6
8ExHWz43KhZeT4a1VAj14oQa0QP1DvFQuff71SCqFxtYVSa0et8EyfrLXtzA
d3iZqhYsO3sLnu7dudta7T22/dTstJqWCIXtptkn6t9j8aaZ7jP5yTD4+g/R
XP8+bBwcOyt1MxWcCzeVnlzZjwPvPtfd4JsGkgfsTjtn9uPNty2K/wugQb71
G/UiswHs/KcKs931DuxdO1FX3jiAPy/8zh90LAueVw+4OugNYrqwYMCl49nQ
LKZi8TZ4EPeFrDcZzc2Bfct97rVoEGu3drh60XPhdpNLhfmPQawuWVcdQ8uD
sIascZ+tQ9iztqluLicfjtRacrrCh7CWWmFXRn4BzNu/yNWpHsJ3zz0y+ZBy
D6JpF4wKZ4bwfq1J49gMOphkLGgL6w7jx02ulxoSCmGv//y2l17DuFw9qc08
6l94ZqU+PJA6jEfGxl8IxBSBmc416krzMG5MvSR07kIxjOnK24z8GMafijRG
9S+VQAYr9o8IvRFMu1TEUossBdHEYSunoyP4q4mXeK3/fXj3JW/M9PoITjtg
yik4XwbdnuZpI8wR/MHT+hdjn3LI8NkDbX0jeFA6kXZpUwXYpkTG2Qmw8dnS
Wyt+La2AB7bi8YvabOxmpi0+ov4AjH5b9cLEiY3fXdzzcazwAWQ9f3rHPICN
q0skfW3UHsIK7qwc+282PvKkbtoo4yGc+yWl6nMRG+fGce1dFCvBoISGBRvZ
2BI6bB+nVkLymscFE31sHH5/yxo3OQZsnRI5KzfPxhHf4zlxGQzY/0Z8/ONK
Do4pPDnrk8mAO3nNm/WEOTjebecKh7sMqJ3ttT9PnFT263rxPAZk/9w2tUhc
6HXVLbWIATHGifxCohzc/iqm/l4VA5bT62vWiXOw9p3I3EYWA1yM5gak13Cw
nv2R8n+7GVDnlRDgSmw8b/H4Ri8DHM0a2xOJrVy43c79DMiSyZaUkORgN4FL
q7s4DOgPmvD/RYqDr/iFXh6dY8C7/1iaY9IczDIPOrJSigmNzR+SrstycLFy
qoTUWiZcDr7Y1kgcJUDh9TJMeOu82CMgx8Eazd9VjRSYkFzL5xJJHOIe8+HI
BiY86AvO8Jfn4LVhiQGVRkyQ6/1csV2RPB+VRx91Y0J2+qtDjcocrJXRZui7
nwlI8VkIl5gbOTsSdJAJfZ7/7jFU4eCCHVvsrnswIbRgnXQW8WznExHGCbK+
aYbfWVWSv9k3ycLBTJDR9DwuuIGD2zZP3GOkMqF8NW2LhAbZz5XM3Mw0JjhC
TO1WYsVWp6w4GhPa6wX4vYl9Au6nuGUxIUJgXXsNMff+2di5AiZQdy9reWmS
+HRmjhkzmOA70Sd/T4uDwzcuKDDamTBY+kiQX4eDlYPpMpmdTBh5FyGgQfz8
+X6pOBYTes9XNTkQrzpBibj1MoFxk573D3FBXuji7BD5fadGjsJvHNyi/INl
NMMEj9j1/hq6HLxBni+pchUC/qZ768T1OdhWrnU+cQ0Ct5WbOrWIT8jmHAqU
QqA9OulqS1ywzlpVVwZBO7uTFk6sIXWlgq6EoITStGITa4vxvaXpIphMz24u
2czBu0RbDUP1EYxOpeXWE58Wybm93wDBYelNZu+Ii1daH5UyQfBWtYIubMDB
vwlemfyfBYJPfqE7jhPr/1wWveKIYENk/KCIIQfvWXobcHQ3AilGfoMScSA3
u8PCBcF7jR8BhsQV3+HO4j4EJr59VoeIDb9e3hTkjsDU0OZVAfG+BZeEvR4I
hnu8JSjioHnlL/pHEZzql1v9kpgxi6snPBH42trbTRCbTC/b+/giyHwf4aZv
xMH7P78ttfVDcMC0+zAQh0xlr97gjyDPJ0bKhRhNQPdAIIIay/LpM8RmHy+f
PBSKYLvCE6l7xAfHXJq3hCN45P/I6yFx2Kiy/roIBBe8j/ti4hoOXmi/jMAq
Lz23m9h8ePmqUzy5zl3dI2TMwZtkJf92vY6ggo4kpYllndVT3G8iMHbqEVAh
Xqi2zzt1C8E0/dySKTHns3tRQCICHW684Dbizo3+FSHJCOx3/IOdiB8mJj6J
S0OwM6PK3pM4tym/4SaNnCcOk/Ej/meJ+TrpDoLvogFpF4jP+vb25mQjCJs1
K75GrG2z4eujQgQKfi2ehbz9XDT5WV+EINZiuLGM+Nf7OwWbSxDMVR3vYhKz
Zc9I9ZST878nuvCMuMM5Sn7wAYJV7wZXvCR+FveP6mglgoM7oxktxDnTDP15
CkFKR5xwD/EtjSZTbjUCSk22qI84yqPHUuARybebJB4i9k8atxV5guBGkXko
h9jjxZLjmjoE0SX2/40RO/5c5Sr7DEFB1SRrnPh3YzV35efk/PgHIqeItU4b
e2o0IniZ0Ppqmlgmx+6U7gsEYqYhT77w4mEdDDB+heBbQeyhOeI5Ub8Q89cI
Kg+XZs4Tj9hERm5rQbBwP/+vBeL2i7fiHFrJ/fWKSl+Jn97PvbmnHcGZ9UYn
ea4YqUw60IlgxP7vaJ6z5RppR1kIft6g2fKc4NKd492N4M+9Q2W89SKvfio8
04vgXeDUE97zztRyy4LeI4ja6BjE28/hGQkU3o/gjmTMK95+d2mqPo4eRNC8
TameF8/WI0bP/xpGsKRZcvj/403e0XyLTe6/w0ji5WPdywPttz8gEOhv9OHl
S3DZtydrDAEz7SyLzYvXOGKw4BMCTbW0mkHi4dMJoyUTCF4tZOq/J27LyZl6
OIVAtsvNuou4jvVwvnoagbNJ2mQbcblYA7fuC4LF3RZmr4nvbusSeDFH8qWp
qNpIHFH2Yw3rGwKsN95aRezHFpfr+47glsd12gNid3kVFTaX/D931wkUE5td
s9X7wkfBas3Jfhrx7JG/d0kIU+CpoxodTMxY1s38IkJB7mvmxjPEF3JbJlli
FGyxaAjy4sXDXpWYvZqChbailc7E835JXZtlKaB57Kvm1RMSN9JeK09BeLVT
IK/eQso7whcVKFC4O93Cq8eFL9JKz5TJetND1yZJvX4NSzvhqkmBjYzcDwZx
lYIZ2qJNQVr6KmE6cejjbiFFHQqG3/gLpRF/45MvYetRoPvi3MpQ4sX4zJlg
Uwo4E+NPTXj9QNtyu7sZBfEqOhbqxOHNfSlWv1MgbXfSRZL4u4SymZAVub5p
ZuUk6Vc/UnOj0ndQILX+dHYm8aMt21ojdlJg+b/Qa/HEET3Dqp4OFOwJTxY9
T8xVVG/Q3k3BU5virzuIl/LporVuFJTQr499JP13+UFJet9xEv8ZI3FV4jpX
p09PvSnA3eyDvxJfmZ8wp5+kwPTYhM046ed8W/UGzvpRcEqinl1JvKKuYiNf
EAX8Cu1G1sQCLcyHajEUzDC3hmwn80JpzdABiKMgzFrGRYn4dzexpcPXKFiU
UH38TY/0916vnak3KODSVYxLifs/rHovlExB8kx3tDhxzbKv4GQ+BRHWUrJV
ZL6xtqUWC9MpmO1WablBPHO1zkXjXwqy9jd/9CDWEpPJ+LOUgs05RbuWyXy8
Lftcr51BgVgs7Y058XkDpYNUA4n/kINcjjapvwsOSx1NFAjpmHn5EhdRF/Km
X5Lz4RNqMiAetGye0G6hwJwmHlFH5rXzrtDoTBYFsjitoYvM803H24ujRyno
F3CMn9jIwXb0JZe7HynwlXGRLyX2/Kg1XzNOwc7ASSM/4vSAyzD3mYLir7dt
x9RJv4n4rdPnGwX50cdmesj7hho+EBb7nYKowK616cSW/LFKOVwK6FGMMjfi
C3/1nOrhqwLWcFQFViP9svkXiQX+KhhxdLgZQVwssblSUrAKQpmL542JG/ce
PqgvVAUDGtyxMfJ+M5RybclRuAribA3i6cT/B8dFDFc=
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJwVxX040wkcAPBFUh3SqrsIabke3J1QSrR96V2iLivRSdPloSfmrXArFYon
11ayairnpYiEQr8RvilyPe68diSWbd6al8bMvO7n7v74PJ91fuzDpzUoFIrb
f/7/g3PNmYJzpgzN98M7jKlijBGptl60JRlBR8SG1qvEGGRLZzna6kFyYev8
jtVi7P1FfM7Q1gQSFRWjASZiNFXYUJbaWsHKqsLgUksxVlV41y6wZcBdvbrO
QzvFqEuT56ht3KHXZ8/lWxFiLGFuE8zanICie+vWOrSLkSZNyVoZyYZ0ssng
0zMJslsmVOgbCXsyK6vNIqVIM+02vCOKgUGmyfUj9B4ca23OmouJg2lNo3iX
Vb3ILf/G861LAmxyWirE7l60YRRzm04nwe8PLW5aVfThPFGmVRDMg51rAj0e
8/tx12D9AX3BLcjxXmoczhpA3bqxj2ezboP+BLflCnzBzefixlck8eGyOEPW
skyGIWk1P60PvAvSaGmWhkiG1ne25/3DFkCjwRqdqopBdPc1LW3xuA/ZOlQV
lzuEcpWDRvjJh0BZW7XcMnwYs5dosTmn/gBJQUzDX8wRFJ03thvISAeH6t4h
pvlXtGhq9fDLzgDf78MT5/TkaEZ9XRYryITniqSWsAE5sl7VvVamZ0Gekzs7
J3AUzWk57alZj6B29mye0edRTAutsOtPeQys+AQ3X9cxPGo+sjkuNRvGWY2r
r74Zw8o6D04tNwf2S+X2Z20VWGiW3OwY8wS8kj0D3qQrsOfL0J+asbngnjR4
2MpgHN/xOdqhEXlwOCqZ5XR9HAdzNwxs5DyFzB5lUbKWEgWc3DbaxXzosLkz
HXpJiZN2frqvgp4BRbFv0acxJd713NL3KKwABH7bQiuDJ7Cf5bRws38hVAbd
dzbqnUDxylsCjmUR/GD+0W3EU4XB+bwFi/KL4Gh7/PaoNhUy7S10e8yew+L3
XwW+bpPYGXlI9iXnOSwMn8qxa5zEsqfUQGfaC+iUPlJ5uUyhT9Xr0U2pLyAj
1JgxVT2FGfFz+w4aFUMqL8S1Yfc00qF1VyW/GAKyV8iaqqfxt2dblzMNSoDK
13F2cZnBCzMJffGpJTDCK/xwpnEG2xzDfRavKIViNY+Z4jaLzdbDj0v4pXBj
782upPZZXG9ISS5e9hK29XHecLzm0FE6f/VAwks4cf5CzUTHHI773Nivt4SA
LomT/UN/NWo2lL6gxRLgoNXN+HZIjSbLJZ4QT8D2Zq3YgBE1OjB11MevEdDm
mSgql6sx5JPfXv51AiLiCkS+SjV+7l/WpX2bgBpticZTtRrL5wO1RrIIKJr8
2rNbn8QwG5NjRC0BErmXAdeORG6Ei7q1jgBOybvgnq0k5hIRmaPvCci2oojs
HUgU0+uHLRoIsBQMaPYySHTfH3XlQRsBO+qHOY77SLQ81ZJ3ZYCA/qjJ7+Te
JO7JVh9MkxFQ5t49u9uHRJbMfKJ8iIAk3t9TD3xJvMe+BEo5AYld9XTXX0lc
dOHHD/5TBKy+X6p8EkQiDT2j42YIOFi+JYMSQiJdI84kfY4ARXCn/7EwEiMS
OwI6KEIQ0tPoiyNJ5NUv1FNpCOFq/lv3k9Ek5ulZF1O1hLDBe020kEPiu5+P
H9uoLQTq+JMK/RgSJSnX1K5LhJBoFmIQeJnEfwF9o5kS
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwVk3080wkcx2fCOeFC5xBpeVU6R5ZSia8kIYfiFZcUcxVdmkktTes8lCKk
LE3lMA+hUOg3FV9dIek6D7tlQjOPG/olpS7k3B+f1/u/9+v9z2cZg7nrAJVC
ofw8v/8p2vL0cNlxU4fulYubXXeIkdszZXua/tWBtV6pW8dTjOF0+2A7uhak
9alRe7zFOLBXetyQbgIbbgUnsnaL0fS9NeVbuiUY2VqxrweLse7RngYlugMo
sqMU79li1KSRRbPWnjBNRYOKfDFW+W7kT1vvA5tetyMhX8VIk2UI9NhMCPF+
AwOPXyGz/eMU7meDRWhD+p3oTqSZvjG82sMFn2w9FaqVBCc62gQz3HhIop3g
ffkgwdQHGn5P3BKhsdf3t9GyLrR2qExtPZAMLhqdOZXRr3GOqFEpO5oGz+0e
Z2o7daOzosXjO346bNULEut97UbNponOI4IrMOGeomnZ0oM2x+MndZN58GJf
+ZJnyb0Ykf30p+VhmbBctXMm3+0Nrrm6ueQfJh8ENTnthxZK0XO/aXW7z3X4
lGPqxQ+XIjm1iXos6CZM6r7gXXglxUJ1FSYn5A+IDrQcW+rYhz0njNcN5+ZA
bZkkzTKvD81bO3wYhbmQ9GfG4R80ZWimU18Tx8+DpbL1G0NZMgx+2FT/IUcA
I5kbd5b0ynAVrehVliAfKjiU+2fc+zGb9WjdUEYB/DUYNnitvB93rxq3ic8q
hNdhroNoPIC1TT6chtQiSBFdsjE4O4DlZpfb7Li3gCs3FMkUA9g/MvpMOa4Y
VE9q5Yl+GcRGHkeNFVUCUse5xZLHg6goXjFsxSkFOWUZ12jtEPI5xWLa6dvg
p+W/oSNvCD+tY2g+DL8Dlyz9jbkaw5jpt34wP7IMjOor9GJPD+NQsOMCm4Pl
0MrIXnJoZBileul8zuqK+T6wz9s5gkdvpymp3q6AraHdcZ5PR9B3g7lmv9ld
6Igk4uut5Pia7S0fKboLo81ee4T5cqwp1QnbQrsHDmadzIM6Cgysq3+3Nuse
XOiyCArgKjA3YcbVa0kl3OCkFb2dVKA9dDjX8irBYxtFZsQYxVN3bBf5GlTB
v7nupdOSUYz5kjiYkFUFpa3GGSu9x1BsdyzwG91qSNaPMW+rG8O2NWMFVbxq
+KyoqN1mO47LDSmXK7XvQ5tDfZL5rXG0k82d9Ui8DwUJThc367/FycAUdy11
AgqIaX36pbeo/LL6Hi2OgNUTPV4xSiSaLOrzgwQCkmy367OVSdzku3A24BwB
f1cJh1gqJEZ0Mbbzkgiwv1x585A6ib1D2t1qVwiQpSgf8VlE4oO5MJVxAQGi
LbILFstIjLQ28ScaCGhkuzUPOJKYGuU229FEQOCKvelSJxKLiai8d80ESNVY
wd3OJErtW8bMXxLAy88xELmS6Ol+MvaGmIA6DR3FE28SV4e0l8QOE8Ds0tUo
CCLRpXDWK1tOgPnetT65DBKD5as+PhglIPX7XYKbv5J4jXkGPpAEnGBfDLga
SqJqjIXo4Od5Xw354/kIEmnoFx3/hYDiVuWqhEgS7anxJjkzBFALFjvHRpEY
dV4SKqEI4fkz65hTJ0lMa1mgNUUVzv/Lzox9isQSrTWVOipCeFniJDoWQ2Lj
zgB/KzUhaIe7XIzgktiXcW52h7oQzNpcPMJ/J/E/8/yJag==
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -1.9063502305673712`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-2.3025850929940455`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.00\"", 1., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.00\"", 5., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.00\"", 2., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.203972804325936, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.30\"", 0.30000000000000004`, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.0986122886681098`, 
       FormBox[
        TagBox[
         InterpretationBox["\"3.00\"", 3., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.897119984885881, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.15\"", 0.15000000000000002`, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.4054651081081644, 
       FormBox[
        TagBox[
         InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.3566749439387323, 
       FormBox[
        TagBox[
         InterpretationBox[
         "\"0.70\"", 0.7000000000000001, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.9459101490553132`, 
       FormBox[
        TagBox[
         InterpretationBox["\"7.00\"", 7., AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-2.3025850929940455`, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {-1.203972804325936, 
       FormBox["\"\"", TraditionalForm]}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm]}, {-1.897119984885881, 
       FormBox["\"\"", TraditionalForm]}, {0.4054651081081644, 
       FormBox["\"\"", TraditionalForm]}, {-0.3566749439387323, 
       FormBox["\"\"", TraditionalForm]}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm]}, {-2.2072749131897207`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.120263536200091, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-2.040220828526554, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.9661128563728327`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.8170772772123447`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.7429693050586228`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-1.6739764335716714`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.09531017980432493, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.1823215567939548, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.26236426446749106`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.336472236621213, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.47000362924573563`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5306282510621705, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.5877866649021191, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {0.6418538861723948, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{
    0, 0.09389186039463512}, {-1.9063502305673712`, -0.3470849344505225}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-2.3025850929940455`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.10\"", 0.1, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.00\"", 1., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.50\"", 0.5, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.00\"", 5., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.20\"", 0.2, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.00\"", 2., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.203972804325936, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.30\"", 0.30000000000000004`, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.0986122886681098`, 
      FormBox[
       TagBox[
        InterpretationBox["\"3.00\"", 3., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.897119984885881, 
      FormBox[
       TagBox[
        InterpretationBox[
        "\"0.15\"", 0.15000000000000002`, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.4054651081081644, 
      FormBox[
       TagBox[
        InterpretationBox["\"1.50\"", 1.5, AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.3566749439387323, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.70\"", 0.7000000000000001, AutoDelete -> True],
         NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.9459101490553132`, 
      FormBox[
       TagBox[
        InterpretationBox["\"7.00\"", 7., AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 2}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-2.2072749131897207`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.120263536200091, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-2.040220828526554, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.9661128563728327`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.8170772772123447`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.7429693050586228`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-1.6739764335716714`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.09531017980432493, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.1823215567939548, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.26236426446749106`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.336472236621213, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.47000362924573563`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5306282510621705, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.5877866649021191, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {0.6418538861723948, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{
  3.5886189589436913`*^9, 3.588626056530061*^9, 3.58862618484214*^9, {
   3.5886262902103453`*^9, 3.588626296398584*^9}, 3.58896441243892*^9, 
   3.588966604734685*^9, 3.589032424973569*^9, 3.5890331105449743`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", "q", "]"}], 
       RowBox[{"f", "[", 
        RowBox[{"Sqrt", "[", "q", "]"}], "]"}], " ", 
       RowBox[{"\[Rho]0", "[", 
        RowBox[{"Sqrt", "[", "q", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"Im", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", "q", "]"}], " ", 
       RowBox[{"f", "[", 
        RowBox[{"Sqrt", "[", "q", "]"}], "]"}], " ", 
       RowBox[{"\[Rho]0", "[", 
        RowBox[{"Sqrt", "[", "q", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", "q", "]"}], " ", 
       RowBox[{"\[Kappa]", "/", "\[HBar]c"}], " ", "\[Sigma]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"I", "+", "\[Rho]"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"4", " ", "Pi"}], ")"}]}], " ", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Beta]"}], " ", 
         RowBox[{
          RowBox[{"Sqrt", "[", "q", "]"}], "^", "2"}]}], "]"}], " ", 
       RowBox[{"\[Rho]0", "[", 
        RowBox[{"Sqrt", "[", "q", "]"}], "]"}]}], "]"}], ",", 
     RowBox[{"Im", "[", 
      RowBox[{
       RowBox[{"Sqrt", "[", "q", "]"}], " ", 
       RowBox[{"\[Kappa]", "/", "\[HBar]c"}], " ", "\[Sigma]", " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"I", "+", "\[Rho]"}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"4", " ", "Pi"}], ")"}]}], " ", 
       RowBox[{"Exp", "[", 
        RowBox[{
         RowBox[{"-", "\[Beta]"}], " ", 
         RowBox[{
          RowBox[{"Sqrt", "[", "q", "]"}], "^", "2"}]}], "]"}], " ", 
       RowBox[{"\[Rho]0", "[", 
        RowBox[{"Sqrt", "[", "q", "]"}], "]"}]}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"2", " ", "\[Kappa]"}], ")"}], "^", "2"}]}], "}"}]}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.588617518656707*^9, 3.5886175611078672`*^9}, {
  3.5886176531915283`*^9, 3.588617773748783*^9}, {3.588618121258091*^9, 
  3.588618128967257*^9}, {3.588618836209324*^9, 3.588618889503882*^9}, {
  3.5886235431381474`*^9, 3.5886235969529047`*^9}, {3.588624699010845*^9, 
  3.588624699353561*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Input value \[NoBreak]\\!\\({0.0013849464165206031`}\\)\
\[NoBreak] lies outside the range of data in the interpolating function. \
Extrapolation will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \
ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{
  3.588617562200221*^9, 3.588617606896782*^9, {3.588617745164205*^9, 
   3.5886177744107523`*^9}, 3.5886180314354362`*^9, {3.588618123421777*^9, 
   3.588618129448097*^9}, 3.5886188371586*^9, 3.588618893477374*^9, 
   3.588623556104259*^9, 3.5886235975557623`*^9, 3.588624699908107*^9, 
   3.588626196744967*^9, 3.588964412462845*^9, 3.588966604766717*^9, 
   3.589032425015875*^9, 3.589033110579192*^9}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"InterpolatingFunction", "::", "dmval"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Input value \[NoBreak]\\!\\({0.0013849464165206031`}\\)\
\[NoBreak] lies outside the range of data in the interpolating function. \
Extrapolation will be used. \\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", \
ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/InterpolatingFunction/dmval\\\", \
ButtonNote -> \\\"InterpolatingFunction::dmval\\\"]\\)\"\>"}]], "Message", \
"MSG",
 CellChangeTimes->{
  3.588617562200221*^9, 3.588617606896782*^9, {3.588617745164205*^9, 
   3.5886177744107523`*^9}, 3.5886180314354362`*^9, {3.588618123421777*^9, 
   3.588618129448097*^9}, 3.5886188371586*^9, 3.588618893477374*^9, 
   3.588623556104259*^9, 3.5886235975557623`*^9, 3.588624699908107*^9, 
   3.588626196744967*^9, 3.588964412462845*^9, 3.588966604766717*^9, 
   3.589032425015875*^9, 3.5890331105810757`*^9}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k8VN8bB3ApslRERYWk0ioklPBRIVHxRVnbN4XsS0hJ2XfGvjMz5tpm
bGMpqSQRRVIptCiSNhFF/M7vn7mv9+veufec5z7nec5dfcrJ9CwvDw/PDvLz
/2PX7saLJR6y2gfqHQMzO6a0/Xt/q1/ZNqM9ERQUw8m6CMdtWid3bVuEp95X
xu8+ccVCX4in05eBd/pbFZPPCwO2bz1WbJMBq7PLzizGB8eydBwO9MvBKMXm
kFnxFewXjc0Ip8vD2dodstrXsD3gXXuL/SZo8FsqjwYHQHZUmUdo21bol7sK
ovY6gpTvJq+dVoJs07qTBq8CMX3hgrJu/zbsKBseXj90A4M9NacC6WrYPVBv
otcXBFvxU1O5ITtg+OqI3aPmYHQaCSXcs9dAhJCe9ndWCOpvWT+Ys00bK2+k
Fb40C0Oqz5zSGCEdbGHOV10pE46uxMO+stM6kC8wXbDofTgMn/wT1+nfgz0y
n09NW0ZCTeeQ3lW6PoYWdwt08cfAxTZ3sUjSPvDtN0wxtYxBkffv3swQA0z2
DfnOK4iBHCfTs97eEBX7DjSd3xOLhXLfmf+UD4G1XP+gx9k4GGjvdY9cY4xQ
1welX6k47C42yo4SMkHuaccz277Hwe9RloPMtAkEON52Zu7xGJ1jwKfdbwqh
8fG/G1wT0OuarHaFfgRLq2din+xNxN9r96T0ZCywctuO+DSfREhGj/AuTLLA
2PyfgdXsRJgW6jxJD7FEf+jouT8rktD8Yej8LXtr1FryJy0ZSkKF+c6UKeVj
eCiaLTZzPgWuy34aj1QcQ2y9jAstJQVKLwv4e9WPY6u5llxeSwq6FRZo9Muc
QPp/XfO3bk6FGceX2bD2JD6zxY3NPqXiQLX19UCl02B6pq4V3ZeOzSlVvVMu
p/Gr/p3KQZd0CPmI7XQvPw1Lm4VH1qelo3lXy/czamfwR05quOZrOvTu7Dyq
r3kW+2LHlwVHZUC7SXKHoMF5xO43EhBpyIQ00z0+IPQ8qJpOzZcDmZgOfvrt
T8t5WM47fOOwYBZq94fQhw/aISJw613n/7Kg3jYh9tjsAiYDyxL39WVBqav7
a9Rxe0xcPb2X6ZENufcJeUu8nBC2c7ntXoccbNGqN1GrcELmR7u9nZdzoJ48
+M/ipxMiV3qoGQXnQH69dFGbqjMqtgitm87JgWavE/9itjPcF8Yqn+jOgd3+
pXVJ+S7wddjqcmxXLhpWn1hLj3RDTtEHc4+JXOg/GfurWuSGvGX/PcznzUOr
X2hHU4sb1I55fLm/MA/dL8r8h+a7I/V9dkfHmjyMRPK92nzdHSMV86oVjfMg
+ZeKLPP0QES4nq1IXh6cOsd/3znuheHCgPQNOvlgeN005l7xgp2yXr/V/ny8
kVpaUJLmheTsnDf+pvkwPL/dKuOFF1lPMUfzz+RDftq1zsfYG4Lhpx4eDyHX
r/txVRWXMfnefJTVlg+Dy8MChTK+iDKx01pkQsdVGZ+TuZq++L3VLOSNBR1V
9wVrU6x9kRZQ/jr7OB1rFm20D0n0xWTHvFFhJzpmcs+3nV3kh6v7ffUcI+mo
fDwQKzvjh13VBmvtmumQk+1fkdjrD7cPPWKp6gzs3hbHlJjxR+CZFWe7tBk4
oau3PUXmKtTz0ufz6TOQaVd4MP34Vezq3m+435yBFRyva7nvrkJ13+s1x50Z
EFwt4PbC9Rpe5s1IPmYwMKcs++UHzwDc8bobO28hE6K7/mauJXXnJR9lKSvO
hGyj2dmzSQH4dj5sVGU5E+jmH/3EDYCRbEHLnnVMXPnrIDw8GYCDH1PVebSY
+LNnp/YPn+v4XfR5lteeiZ/POvKm/QOh1tNAd7zLRERdZv36qEA0BzO90cSE
fJ79K9OMQEhfDtMSbmXC2pVPhFUXiIPPD9bEdDHRKLrT5/Akud70pIb5IBPJ
B7NNSlxu4JIzY8994QLoPLz07/iZmxDKbfO/ZFKAnpJdkuFuN+GvwGsdbl4A
j0QBlarrN+ElrjCWa1kA6myu3YKcm3DX3nHl3okCLJnX/ay69ybOL224ft+5
AIM6WtRiiyAsyQvb2xldgKhaYYv7+4PheGd7uUFLAdIth8NVrINReCauQay9
AIW/mxvyLgYj3Djv9IuOAjRvC9p0IzwYcV+sA0xeFYC3kGdGty0YLXs+ivMO
FcArbTy/ySQErcLdQRfnsXDCr3/0kUUoivWuG/jvZOHSivr1GnahqJYSTGRo
snClOt2W8g7Fge6EzS1gIXXMqiksJRSJb4x05uqz0OXQlWL0OhS1TrnuWqYs
GBx9pNN2LAzHrsxb/PwCC8ra5VFPz4YjuKXnVQ2NBUnL6HljHuHY028gYpDM
Ao+rvY9EUDhUWS76nakstNPXnDvGCMfPlJnmniwWLi5M0Br5FI6sjdrBt1gs
5L9xH5lvFwHjr5W+D26R+/mqGeJiJNbVaFYLvWVhNkGs4ZRPJGK0wtiy71n4
VPJNNSgsEpq5z+VVBliofM9Y3UZFYk6QXcrBIRZMDSX+WH+JRPHZW58tf7AQ
sXyS6ekQBbmO4cbWWXI/bg1fyaVobFm/1EBVioKrkuDTuivRWPBDb+a+NIWB
AsvURxHRyEm+/td4FYXmlImtH6lofP/9s/24HIUYX1VLqcFoaIhRKsc3UIjN
sjz8QDEG5hLe430qFFpsrmkcUI9BZrSD4l5VCvMkC1Y9047Bz/Ovu/LVKHjG
THx+ezAGaxIk7E/spGAdkOg/bR+D0NPic2u0Kcid7mKqkL5mNaTX/NOAgs2q
6Yja0hgcWd7doGBIIeH1Gtfd3BgIpWfsO29Egd/cTdO4KQZb9XYIPDtIYVhX
rOPiQAwO/xqJjjSlUC5v8jdHNhatTTw3Y2wo6A63HhBNiYX6G4G01/YUuAHT
9TtzYpEzphz/zoHCpuUKyqdZsfje0zg54EhB1CBqaVVNLF6OH1o24EShl27S
Z9MTC0cB51/33ch8Tj53Yq6Mg49s9YkFvhQ+T/K9f7omDodp3BPDxLYxauZ/
N5M+3Cj764EfhT13knYc1IyDS+DdFx7+FESkref8so3DRHHN6+oACgUv++K0
M+OgM6FS1xZMYaWzCJ8dIw4HTk29vxlCIWq+jldsSRyOnxKq3xVKwV0tx2ag
Pg6n+mpo2WEUdiecXhvWHwfX/AVzjCMpVGxOSCwfjMPmy48nx4g33G8U6CV9
X+XHsvLkKAqLRtd9VeSJx7fpZs9X0RR6jIcqn8vGg/KjX9KJo3BwUHLD7IZ4
0HtCMrqIG/z3p25Qjsc/N53Yc/EUmMWUv+/ueCwdNfodmEDGI+y4b/WpeAiy
IsfyEyksfPjzpUNePLqHOAUBqRSaFtp6CBfGw2fBzKkRYn/zpsVUWTyqTuSZ
H06j8ONdquHg3XioibcMrE6n0Dm999bJt/EINmVJMzIohO0tseQZisdcj5HX
vJkU9oZJjmd+j4fBPbG+o8QVEl8V3szE4+ghl/JFWRQStyVmHZFOgKHfwmab
bAqHLvNojq9NwNQbwVaKeH7DxZfxWxJQOpMqNUnsfRCLO3YlQPHWbXZkDsk/
u6HrRtYJwJn4u/m5FJaUmq4aPpmA70ceH/1E/Hj8Vl3IhQQIWvGYyedR0A6M
HXvgnQDP354Hc4hlMzXO6SQl4PDd+wmB+RReDuTz9mcm4MuMuEQ1cexmkawr
jAQIzTRMDxPz1nx4UVuZgJdtDhNGdAp1swfdrW4ngBbLL+JD7K5fLTrZmIC4
2W3RDOKPzyL2q3YlINXRsf0vceaKiY/PXifglfPCGDkGhSMnT153/ZAAk/Vn
7hgQN39TrSsdTcBkykGHGOJrqtkWh/4mwD3uwgiHeKef0NjIHBq0ag71dxBT
gv1bNi2mQXq9r9xCJoVTJvsfNUvSEC2812MD8cqk8rPnZWlwsnmOPcRdvdK8
/BtoCL3tFGhNHLE2JDNfkYZ3LYd2uxDr2Y9q7FWngWfw/vkg4hmO7Yt32jQk
DRTMTyWummxyu6ZPQ4PL5LoiYicoi646RINzzcbGW8QbgtKKbh+moZ5T9qGV
+O1jvv22R2mQlRYIekWcIu788e8ZGqrCM4o+Epta9wSkONDgZ/vR8gexUI6u
zA53Gmj1JhF/iO8PltR2+9LgU2ZsMKeAgt/W5RYegTRoCv8XNZ94u0fgL/Fw
GthO944vIH512UEpIo48P6yQLULs73/YcV4qDX8+a2YuJl4TqE355dBg0dK6
UYy4OXj94FgBDaMWReb/P+8YIbrWkU2DZKmy7P//Lxb758RHLg02vcWRwsRc
2vuMo3doSH/vkslPbJva2vO8iQb5sjYzHuI5WRUSh9rJeFRESyfJ+Bl5GeZN
z0n8dYM534mNCoJitXvJ/auv2v5//j+KnNqrBmhYXH2t4v/xoXEshRVHaEjg
xD97TKxRtduA+YsGMUEqs564r3bTzVVTNKhsqV1WShx4R/xeEm8iVt6u0cz8
f/wbp2dEhBJhH5+xOIL4cfPHXSGLE8F32yrRm3hZJ7fSWzYRN46sLz9IXNed
PfpjfSIy/kgdVCM+8TpU8YJiIjZZlqdKE1MDNiwr7URIK1w3HyL5ZvxZ91OH
XiJ6CpPvtRKPfVVYY3gwEQ6TwkPFxNoTs+katolQYN+yvUTcKZgfs5J8h8T6
8c9/S/Lfa1FkW3xAIrqzmvfXEEuJewotCE1ERfguo1jic1IGN6aTEnGA/SRS
i/jv1hGv3spEjBTFPQgi6y9L5XnF4duJYFrkzRwm1t1R/7OtMRGfn7yZWUMc
tTvGvv5ZImTvnLS6Rdb3avPtx7N+JoJ3MzOxj9SDJkvpdIk/iXCRmNzw/3px
8Sj/q2ieJHRKhIXbEVece2l6TSQJPz+NPPhK6ovBZT/9kwpJCCvp2zpM6o9z
ZqPCmgtJkFTbIlxE6pmxf9WElksS3hnuybck3nqs4K7l5SQcrvP+Mpd4RDri
cFRoElb7V4UcIfXRLsPsyh9WEupfGkuPkHp6Iv394yfDSfDmPsh9lUwBfl2J
w6NJELZbnONCLGPbdIJvKgmisx3HBIjfrKTGNIST4bihRHJbEgXLNBcpxuZk
3JbS9PakUTBJ5XHwc0iGSxjvr8ZYCoo+o6pJ7smwni4/vZ94kfXALMcvGRED
3xiPY0h+LG+OH4xIxtGFD1lPSH8xSImuMy1Ohv+H7fcekn6kkywjvPFbMnbv
eewdQPqZUqIm9dwpBakN7JrV1yiYr7PLPOuVAm/axiORVylcroiPG/dPgUp4
kuAk6Z/3Ood9lkalIEBYqKXlCrleJMXocFEKJpISAs+S/usdMj7SNZSC3LQ1
Ns6eFO74lCh2nUzFROyZG/2k/x86LlvZaZYGm9yoOnNzCkWPzNX4bNOgoOZ+
1NeMgvD2UK76mTTcn7mwPofsJ5oFRmvS3dNQqzGuOmxC+nnZ/fpztDRs3+J9
yJXsP9T4zjf/7U6DS7BhqrU+iW9h8Ws563SkP0taH6tOkX2UBq/biQzECKyW
b5cg61eQz8n3dBaME0eXq3ay0OsprTqYk43nyzlHIsJY2Pj0mdkpRg42rBg2
S1FnYa1YQ831lFzsD2RE/v1UgJN1DxvGsvPwaCX9YVtkATbIMV+k5uWDK6na
+0G1AJkut1Q/JdCxOeZMImeAiSMbvm4PTGVApmzz1oooJm4/NPN9QI43DB0a
VXczUbo2rmOXfwHEvJKcCicZ+DD0pXnudRaUwkK3ZJQw0ETzne/iTurghncd
tEsMDLPkBxV9C1Gtzf/YTZGBFF9Wt9yVIrRFaCyLm6Tj+rEb6h+vFYE/bXvC
swk6HHYfT2beKMK/S/5XlxJrz19qvSWiCK1i9Zmp43QMxF3rVU0rwozdIj5q
lA4lymLAoKYIAm201t4ROppf8o1eGi/CivZZq5R3dEyonlpY51iMxsmIG+ce
0+EfdLei3aUYuRR/XVUrHfNeyNq+9yjG9coIp/nEi737KUH/Yuy4n+lFPSJx
qbU1sIwqRlbMSuGJJjqOa1sEjpeQ68u7vam7dDzUP/BH8UcxFplpW/tx6TiU
VJi9d6wYW/88N+iroqNrUMjAYrIYejEDzTrE70IeJfrzlKDq+QL/+ZV0TLXo
b28TLUGS1MK7aWV0KBrvdrqoXALT53Zt/cV0JFmofcx3LcEnS/fz3fl0NFwt
W+3mWYJD458WmxMPM7ce2+1Tgopes92deXRoTsq/6A0ogdje1UpPc+l4myzx
aFlsCbKO5Zh3ZtOxqWeyKKS0BD1pZgt/pNNRb1vn7jBSgiIJtbdxNDoGb6hz
NH6UQKFwMHM1sWhx+VeBsRLcrXs4yCZ5cvpf4Tn6VAmWGnlKdsTTIZCZbtkn
VAp7Lc1JiTg6TPuvaJpsLMX4rKrNnSg6Pp3Umbf9XCmMA1PbvULo4P88Jfr9
QinELeUnlhOvc+ZKU46l4Lz3pW4F03HGf6u6rEcpWiSty+YSv0uVurjgRimq
dj0NSb5Jx5tnk08GckoxObLR7811OqatK95k0UvxXUncJZh45Xunz9asUuz9
ZTK6jdj6xyfeDnYpTGoXpIYH0PFywXPV23dKIbHa/Nrea3Q80+Ok0XpLQTcZ
Km67QsfoY4cCk3elyAv1NQ4gFjPfUCn8sRRXIhr9VYlNTmW1B4yUImPF3eAs
Pzra/SPnXJoqhfIWqwM+vnR8fF2hkreAjVXHeQcNL5P4L4lN8d3ERvT2iX5r
D5LPIsr3A7awUaAf/mclcbpgx0jwVjbpf4WNve50WM2I6iRsY8Pc8aLzaeLO
wZhPRRpsDPqXr/Fyo6OxNkalz5CNb1sz1je40CFXqXR04AAb8UMdrhHE10qf
Bg0fYuNyf4+rFbFWvmjPb1M2/Fapxo0701EVGXNNxIaN4Kt/tqkRM0/EtOnY
s/FiTLv+1SXyfmyUJvQd2Yg0lXfgEJ85/FT2oBMbR2hiz0KJZQ1F3a3c2Kj2
W9SmSZysErPC1ZcNWUrycqEjHb8VlHS9r7AxHVb8O4TYfMNTR/+rbLiutlc8
T7xYWvRuWCAb7/dderaOOIw/5nxeOBuNPb7zihzoGOJRimVFskF9Y16IJtaf
elJbGs3G0eUN4W7Ec3+ILLoVz8aXec7ztYlPDZeq36OxsZPn7Mm1xA0Dxieb
k9iwCua5LEzs9yq6oiuNjPfRh3ev7enoeabY15PBRszxYJUHxDvan8x/l8VG
klro3lLi8XsiNl/z2DjtdzTrJvGloug5/EVs3CtWN9pFnClW7/G5mI3ssxbF
m4nbvEc+Py5lQ9/sbJUU8Ra9/Z3x5WywNry+zUNsW+il71XJxl77sFu/LtIR
sZhRa81lY/GuO8cGib/08uatrmND6lNb8FPiFbrKEny3yft46SfZRGxIHQ8f
qifzc03/7xaxj2jUbGsDG7/lHVXKiSnPW26l99go01Ksp4h73gwPxjWyseyJ
3GguseDe5baeTWz0PAh+kka8g7XvqVUzG319GUdoxHYinrpaLWwos/KDo4mT
PfKrZR+zoRD0+lQY8cPXnVvmtbMRxAoYukn8e/ecnMEnbPy3vFvyOrF8geLS
1g42VpdIjPkTH1l0LLTkGRtLxW/6+BHfdI/4F/ucjQ8PbIt8iCt6al08XrAx
tqw39DLxgM7nj5av2LiwUVf8/17ClLDWfM2Gyq8nBv/33oX67at62VivVb/p
//93dXPfM7efjbl5B2p8iXNf5VZ9estGRHz12BXiTnRsanlP3qcJeq8R8zJm
M4sHyPi+S7vdIN62YKt47CcyfovYqhDik662we5DbIRxntIjiWNehk1ZDLPB
tFuhGU/coF3jtGuEnD/Uei2F+Ef+4AeZb2wIbd3unk0sK7zMkvcHG0Np9GUF
xCYuuo8//mRj+LeTHZv46gtXnUe/2Ph+/sOFGuK+vCcbYibYOCvHd6WNeJHQ
TLrbH5KfbNPol8RazlsWW0yxMdEXbDpAnK4Z+kd6lo1ii48j/4gf53Id58zh
oF2jsFGY5NeUwKd3A7wcWH2PP7SC2Pr5npZCfg5EKvh9dhKH7XLRjhbgQKp8
i5QhcU1OVpmrEAfXTxa72BBLXppO3bmIg4DTY+rXiA26NolIi3KQM2POiif2
1rAK5BHj4MhL3SdM4hf8VfYPl3KgFD9Po5OY33Ggn5Lg4Mcyx6tDxGrPxMyj
lnPAfXnbb5Y4MctJ87A0B9555TmKZD2a79i48MNaMv5Zf99kYtPnKWu/y5Pz
Nz72VRGbuAppTm3ggMOzdUU38YGiLxfFFTjQ7UhcLkHqhZ5sSfNeVQ5+d0no
5hHr3pZ5a6zOgWJb/6Vm4j3W0RM2OzkQMBt0+0asneAs767FAY9W/0ItUq/U
BFRu5Otx8C4+InSAeDs9L429jwP7MocoUSeSH3uWlN/az8GqyfXOWsRb/cbf
dR3kQG9QvC2FeP0PLviOcPArxOazLamfki81p86e48AladmnBa50LPMoFnO1
4+B1rsRzfeIlYjKb/C9y8MXuaX4AseiBWcvESySeAvaDf4gFG+5WNXlycOaY
Hs84qe9/mfqu64M5cPrQYbnUk45JXW6oSigHd8rWnztK/Pvd+hyEc7DVyNuK
QTy6UvCpRTQHJldZvzS8yH4gulUhJIk8ryJ5jpM3Ha+9TD4PMcn75l3ay0v6
E3XN2KiTRZ734EqFGbFP6KHiukIy3hWyFnRiybQDLlGlHBz+uVjAiPS3I/UG
f1S4HAwLNchlk/7XOW+34NUmEn/p9eEupH/mLtSxt2vm4Jtrv/0TYpdlaPuv
hYO5UtayW0m/Fd2gFbu2nYOpwj9834gPGe1c3vKcA6wLb/MKpKMlVnnj0o8c
3L8jmVEeREdqqlL4zCcO3ErtPsiQ/n8hT/Hr4BAHGwc/8IYTC1QqcGpHOHg1
t6j9LNk/6L/cuPPEGAc7Hubnrguj456M3P7CuWVQX3DzRnskyfdCsQu75cog
w/Ofw0Oyn5l3Rlll9doyONs5tRslkvFImfzjkS9DWOtroQ7igYjI2IaNZdD2
rBHvSyLr85JALZTLcKpmpyNvKuk3SjNC2jpl0NmrJOCeSYdw5ecijWNlyNl5
MWKWSeLlKOC14gSxpWhvVgEd2evW7/57sgz+p9WW7maR/Es887zmbBlES+XP
BFF0nPDq/7fDsQwzc/T5pch+r2Ln80PqfmVwfdUl7Eb2g0frG36opJbB8vPx
409v0+FZvPqYZnoZ5m3eJpJZT+pV+vVW3cwy9Pau7nG4Q+bvo8s4nFsG80Pl
jQvJ/lRevdnGiyrD46GxuUcb6fhW+qSptrYMajnfPyiT/e7VnL703a/LsFrq
e1/dK1L/YyBk2FuG09xIr5IeOsquZnuZ9pfBINVdO/c1ic/RU6anP5D4tMRY
RvaSerHi0/ybX8qwgvuqzoXst0Xjv7o2T5WhXelutNtnOnJuTBsYS5VDVmeH
w/G/pP/1f+FRlSnHf7VPuWenyHw0XlevkC2HzUXmcsdp0u9+1Gz4tKYc62I3
r7k6Q8eYjZfAlc3lkKvWOM3mZcBAZfQhpVGOqjeWew2EGfj+blCf36ocqX9c
FphLM9Cj+WLmi3U5BGyUaP4yDDQmNVV12Jbjm/2sHrWKgeSDdPmME+UY3zIl
yyfHwJ6aU/zb7cphOxjR2CzPQGJM74OTXuUILNi6LViJAS08071NI+Mxi3Ad
0mXg99N52a1J5ei+cHTRYX0GSk6pTb1KKcfhrEcr7+9jQDYohfM7oxzTB7Kj
8gwZmNd2XEaJUY4Vd08Ne5gw8Nh6ZCK3ipjXauNJWwZsPfkKQ16U4873z2+P
eDDgU6y+2Hx5BRi/18d/LyT3/xbSZbmyAinr13lWFTPwXrEn6ah0BS7Ojf7l
X8qAYZmfzPnVFTDRDL23pJxB3sPdzT4bK3AjbfEzs1oGahuM9LN3VqAs0OSv
7CMGpp4d9x2xqsBj41XPZgYZ8Psb/PFGagWmMxzNv2xi4jrz/K9z6RWo3WsS
/HcLE8Hm++bsz6zA+RcJFsKKTMSV8EsvzCXjiWY8U1ZhgnnqpjmNVYHowev/
xe1iorPl+n16dQUi/wkE5xxgYmPalZymbjKf/l3v5zoz0b3L7aiAeCVe309T
X3KLCWoVbZH40krwBw18a65nwn8u9460RCUWLtv/7updJuRb/65WWVkJmbqR
wLEmJjytr386uqYSbW/XVUx2MLH0cqxTuUol2g9P/HQcYsK8qjTgmHklVLLe
1CyRKECH0gi9glaJ+wmTIbW+BfC8lp6TnlQJbn9Gdgf5jpV6eiDjRkolmDdP
CH4JKMA5p+IE84xKTBiff742pADTxZcCx/IrIR9dml2RUAD5zT9PbK+oRAMP
S1y/pAA+636vrOisxD8bAY9dHwqwZgVPXLlIFX55SYV3mbOgu/zpeOziKsDq
53xfSxbOSGZbOYtXwdWmS2GtLQv5y3RWK0hUwdHCzcf/NAvy4tfYDJkq9Lwv
qTN1Jd/3C3iepChUwVZZ6M6VGBYUZ2aFrxlV4UI799KPdhZ2vZ+9eSC4iny/
hP98aE5hk6RYpFloFajGBSJhVhQkD61NsA6vwr7zCXwmxyj8rjHItYuugi7v
tYDB8xTKYmPrbyRVQfuRCK+eL4WNu9dM3GJWwUCrh/dWLgWJbH07heYq1Mwq
tleOUfh1NNJwkSAXCy2eNtyiF6JiViF9VIiL5JT9MQqFhXDPaf/avYCL3QrD
SbnsQowNiMRmiXIRVSZ7LKWuEOP2cS+UJLm4nnZrV21HISYuJ50xW89FsU/b
VOtMIaZoOf7JelzM1Di67bMtwtz2yjK561wYjRsZc9cVQ2bxOwvc4KKNW0dJ
KRRDw3zBP5sgLlr61zwP2V4M555T+2hhXLyf7Ary2FuMvk8ib+bHcyH/iOe/
nJPFqJ29wPc1j4u+/BbFfVnFcFWWseQ+4GKtk4PRr1UliHLf/+/ZQy5sJhQl
tDeUgMV1z/3xiIvK4+fSYpRK8FardWRjOxf6XtrDB3aT73BD74D0bi7pT33z
15wuwabTnVTAIBciHhdfmhaUQJ/xzzjzMxfXIroTpDglOPl5w3jtFy5Uk4N+
fqspQbLTVYx952J2RCespLUE/H5bus5NcpFt+zYu/nsJ5O5YXA78y8W3tsrO
3MkSaPEGymRPc6E1Z21S7ZxSuIe8snvFUw1XWTNj3iWliG6dt+g3bzWeBXrG
q0qXglqkVC7GV41/TU/HHeVL0fSfjaXi/Groq2jsLFEsxbuEoH9GgtVYVsju
/LejFP8D2ghDxw==
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13c4lW8YB3Aqe7WHSpGMhlBUyJdCtAhFUkbDzh7ZIyGy9zjTPOY5pWNU
WkSlYTSUSEqklDT4kd/TX+f6XOd53/e5rud+7/v7Stu7m56Zw8PD483Lw/Pv
t0v3nnOV71ptlzChzgM7eBDa+2t7iOpf7QSzmnuxYu5wU91lp6kqjk6xu5vE
x30hFoRF+UVLkepRSvv2JhCD1v2+kqpSqD8m9iWCJwwnqTquB/pk8C3HyU3H
NAJG81MK4ovkIH9qvK73VyTWjqvwCKsqIW9aWGOwLxoXVW5ny04rw0db7M0p
5RhMOzmp6PWp4tfTBlnZc7EY6qm3jypSh6BtXdnVxkuwXmT/HyN2B2h7N+82
exKPjv3C6XdcNNAas1ZQ8mUCbl63auZV1UbV9mY33/ZE5AbyVicL62Dx1xOb
2xqT0JV5JGjttA5212sxnQ4nY9+TmUU6fbsxt3tMpEwpBeo6h/TDigyQG3b5
h0JrKjytGQsksvaibPbE4UqFNFQE/OqlxBqCNiWmLh2TBhk2xe+myz6M/g2o
M9JOh5jMWMmMyiHcXZp+c1d2Bgy19/hcXmcMHm+dzvGRDOhW7qclCpvg4bJ6
7b1amQhuo7pKTZug+fVqLaHXmRjnNeTT7jOFntvNJceEs9Hrla0eUnQUPpc0
pSd35GIq/M4qfSkLjD3OzxsJzMXypNE5YlkWqIhuV1xyPRem5TpP8mMtoaR1
5slGrTy0vv/kcN3FCvYn7Xd+3ZqPq+Y7c/5TOYljuW4+SXwUeC39bjx69SQQ
1jL4UZcC5Zel/L3bbbC7tCSMEULB882iGn1Sttg68SLD/AcFZuygkluydnhw
qcmO9yUVB+qsIqOUT8E2zC0t8h4N2i3LdwgZOoBTpKN+9QADq0t80iLiHPA1
cG5SySkGpmOefp184ICg6Q/7PAIZaDCKLRo56Igr8s9CLpQwsL3998JHZk44
tob5sXWWAeWu518SbVzw92v0J+0yJmQG0pmL/d3xvXPJ3iXvC7Fp100T9avu
GHpcGuY/UYjt2UMzFt/dETwTqHabrwhy8qsr2tU8sDbmm6SoQhG0et35F9R4
QHqfRM5FlyI4Gi1pzCr0BM2K7qz7tQi3pG1liy574wTv4bidg8UweDIxpVbh
DaHdN1f+Gi/Gw+C4Zy0PvFH+pyKMxluC5y84oZ8EfNAtFHGsSaoEo5f5Xm2M
9IGastkFRcsSLJ9iXeb4+UI8Qkjg6f0SuHf8/NVk4w+vCCTvyStFsX+0MTfE
H11eadzrJaV4s2pJaVWeP8ZbNqgrXC3FPodtxwpe+GPvg6nc549KITft1Rho
HIAbVbYf0mbI+vXfwtRwHsqXV/syrctgeH5EsFwqCM5Hy80oC1gIkwq0Y2gF
kXpb0xC/ioVrd4UacqyCwMN3ctZNnoV14oousZlBeBSWErJgFwt/GQ7tZ8SD
4TNgMtHtwELto8GUtX+DMby4c6d9Iwsya/skM3tDEehyVOCbVTl0VVNLlv0N
xc9f4RqOZ8phq6e/LUcqDOWxfp7d7uWgOJYfzLcJQ/DnB7pJF8ohyfYPZ7wL
A2777YqsLIeQtKD3C69w7Gl4Pek1Uw5eDu3le78I1BasnR7IqCDn/Iw5HRoF
dkBFb3V5JRIaKTflE6Ow02Kw3+hKJeSYLq9MC6IQ6BE+r7ehElZefBJljVGo
tPZo/9pWiXvzdwYe+RMF8b1fDG4PVSL7IM2kyvMCbnP5JxRkqqBz/9yMzelo
fDGWfqWWWoXEBhGLu0YxWBt6TzPathr5liPxW61iUPBtMk3KoRrlv1pvMZ1j
IBvwoortVo1W1YsbLsTH4NYRSf3mwGrMKef5q9ceA8p9eV9GejX8834WtpjE
Yr/h7BuN+9WwDe4bb7OIg/3YTDH/4hqoaF9JfHomHvynTty84lqD5ZZJ8yZ8
42FWINi1270GPF4ugcsuxiNop1nCE88aPC5ad/ZkcTzEfih8eedXA2ex9F2j
H+ORMfS5bCS8BoVvfEYFHBNwMsKz9nI6uV+Q+j44X8Z6F/UBhYYazHLr+arO
JYE1QP+xcrYGXspCTxtDkpBwUHJgloeNwVLL3LaEJGz/s339wBw2WnN+K31g
JUF54aUqOj8byUFqlquGkuCscndUVJyNFKrlkeYtyWhrLNDIWMWGzKmukq2l
yfhsQ9/jt4ON42umExqqk5EfUbtLXoON9NfrvHS5ybBuoV95rskGv7m3lnFL
MnSr9ixTARsjegufOQ8mo3hM/XWnPhtX5Eym6GtTMJJRod1hyobeyMMD83NS
UMPpza13YYMbMX1zJz0FQl+vpVm7sbFhxWaVU2UpiLI+Ojxzjo35holLrtWn
IP1ZdLWmFxu9RSZvj/ekoNZBrZEZwIafXbd7ycpUKL3teCQXzUbpy7ep2pRU
PFYoGJ9TwMZKDwk+x+JUWD/99tabwkaigI5/SlUqJDW3HHpPZcNHnX588GYq
WmgB9TcYbOimn5K91JeKcpnjfbalbPQYf6rtXpuGmIfCBnZX2BC7//2lKzMN
L/oFPpq0stEiZu0rUp6GLqtPFaFtbISatyxgcdJQ/ShCr/wBG9/e5e4bup2G
+WlGwzztbHRM77lu15+GY20PdSnP2MhUzaQeXZ2OZzSrWHoPG2spGmd1stJh
uK6xoP0zGy8HC+f0UdIxbL+18/koOa+NEtSQ4nTc3m469vYLG3Pq379oqE0H
pef6289jbHzoTDBS60rHnSx2zZ8fbLCE+jZtWJCBYwqmHW//Y2Obb9SPRfEZ
iHdd9HlAmINX512VE1IzoPU6YqxZhIPQ0CNu83Iz4Hj4xH8lohwyl+WHJkoz
4MCTstFJnAPr3Ic93S0ZkMzcN9O3gIOopkV3suZkIlMspom6nIMOocLklYGZ
+DLCXee6ngN/8cvtaRGZiIiXUFSR42DVIj9h0TiyXt/J8Cfx2VWGF6azMjFk
6PMiUIGDKaVR/97aTCiV0QOCNnIgbb7Nhvo9Ex4n9p8yVeHAg3Jv8zqnLCw1
WZ9wTIsD49Brv3d5ZiHPJklgwS4OlE6W3rY8n4Wxycbo+8SjqxOOJMZlwdnJ
6rIKOHAsMAuZLMuC5OvAt5O6HNjmDzx6MpKFJ5/fbLLey4FJLo9rsGs2DvSX
LnE7zMGWwHG1LJ9s+I72mvKbciBuNTjLDs6GEGtjCYX40YrWtKGEbHjZC2c9
MuPAMCep0bQyG0blSfTVRznQyZYSUfyaDYul2pnpVhwoZ2qxut1z4OUvWt1j
z4H5ekfKGf8crNXw9DM+xcH5q2mpP0NzMOmeFHmX+E7HSOCSxBzEhpd6l50m
6yVy9h+pyEG5qGyh61kOAmJ/jnZ9ykFjoH7iUycO8pdJvzv9LQf9vni505mD
28UHuid+56D6cIgbg1i4mXljsUAu1N8cC/J0Iet5TRPN1+difnbeFgE3DpoC
q7Z02eWi+78Z6wUeHAwK9aw77ZQLgwT3BHdiwRy+5RMeuRA5vUOsndiEa82z
ODwXus2a8y56cjDwQ/iZGSUXucJjz8a8OOB3c/Dq7MmFa5OHBtOXg0M2a2s7
zPLgxTrmHx/IQUWbuTqfdR40awsyeohFtsVxt5/Og6iK1oRCEKk/wfH6fJ88
jI16+Nwl3s25e/NsRh5Yw7yJY8EcqPM5tE49z0P09eEM2TAO0t3zjDb35UF7
148JB+Ifr548sBnKw8kxbh6LuKZqR/u933mYtFe8szmcgw2Wwh2Jy/ORYZcT
ujGCA6nyytcyVvkkh61ZzBfFQfCSAesj9vmQvMWU3kX8Omzp2xjnfKxRywvx
Ic42D+sfDczHWeNYmXfEC/+afLiWlw/RhPp1nAukXh2jzw4z82FRH1o5SPyk
o35oZUU+CuyWxi2N5iChRGYk/Ho+Oq76bw8g5j888XVfbz6uLBEN2XqRg9ON
Ch4hH/IR98qDbkt8d/2J79VfyP44S1ZeJg6fav6x+G8+qqeeSgwSTzGz/ryV
KgDF64XwpRgOxn5pzPG2LYC4auCVa7EcaKz5ui7MsQBZYY53XhJf2EvXj/co
gIv2b9UpYslsgThmeAEGUg01NOM4MNjZJdFFK4Doxm8jtcQpdjEq/aUFWLZy
xfxO4jdxGmajNeR+PyNyxog9e2iZ824XQEbGpkfuEqmvILfVau8KoM89uDqR
eIi5FrrDBdjSEeJWTKz6qNP24PcChA6Eyd4kbl2lUXiGlwIuD1o/Ey/S/9Ls
KUSB5UpKLW88ByfdaEMhCygQnTouvIz4xw3+jZnSFBw/VPMexNof6w8wFClo
lx50MyOOFXc7V6VCwQtmnt1ZYimbTnYLycmzfKIxl4j38dB2/LajoCpCuush
cYaCmdVcZwoWVDKv9hD3m/AHS3hRUCefzDtM7Ed3bZKPpODc7NKBuQnk/Wpb
827rJQqY+o5+84lFxzvm6KRS0FaZErCKmL57p4ElgwI/zZf3VYlHnUcdTrMo
8AlhLdlFrJ5GjfPgUFAu2dRhQBzRaFoe3ED2v9Bj1pj40Xu+9tg7FAxsWpZv
SbxMtP5r+gPy/N9iZbbE9ttc59M7KKC1Vso5Eldar1Gt7KGgT2hoqTvxnwsd
ZvUDFJT+1Av2Jd5TGe3bPELB0eN6ZkHEid07sp6NU5B2Wjk/nPjVzOe63ikK
xETNLaKJZeWoPcNzqGCtnroQR+x+yHT6pzAVDHW39ZeJG/z4pOYsouJq8+8d
ycTzqHUQX0nFbpHBplRi4/sudpLrqIhcEdyQTpw7JhUlt5EKepeQYibx4LKO
QtWtVIyMPxfJIt6iE92irUnF2PSmU/8c6Ljj0749VFQcPLLln5uTPwtZ7Kei
dmGOx7/r59dTNp4yo+LwAV35DOLj7w4fdD9ORWV7plkacbEQn3vQKSpmtAZ+
/tuf+rvvDdPOZP8bXuklErfUveUP9aICShqr4omPJj80nT1PReojBMcQDznU
UcIjqLjnKHsmijgARSO8cVSE68m8CCUWXJaqHpVMhWi4d8d54uyvoZHzsqlw
kTS18CFWaHF5HE2lwun77zPniOsKLCUFSqh4ubh22oHYyFf/bGwVFRcXzl1t
R+wsu+bvpRtUTEpazhwmnvpPZJ9oM3l+5ZsbRsSXOv9kXH5ExXanPCFd4vLI
js3Jr6ng9N/ao0SsZdV0fsF7KuQFClVl/9WPSkVz6gj5ztvYULniX/31R5/I
mKSCet3P6F/9alvXm8fz0DB0Ptv5N6lv/tbqqf3zaDjY/X75Z+Isar5BuwgN
uDi6+hmxrUja6GUJGnoWy/reJVbwj0s9tIiG/ivnrWqJ6w75vX0iScPRFV5P
s4hfzhj7dSjSwHtjm4cFMc3JYFXaZho2Tk9pGxA7dmvdMVOhobDpdsE24j8V
iuLdO2jk/dssOp94hfXc4hd7afgbJHHlNukHA/cn92fvp8GxTF+wkpi19dt3
S2MaOsMtxrKINUR6d/UcpWFh6KS3K7FVw7XuN2doaLlKOTGfWEauMqjAiYa2
VSsN/5B+NZLClCY9BbzBBi19xEFOyW59PjQsPZESWkmcv9yZbyCKhq6Dez7s
Ie71W602RKdhvtyH69akX+42yZaeLKJhTHf3SU3iUsVF4iIsGrZtcbqwgtjr
jeCQEoeGATtV2y7Sj/l3T2T73aHhg0TgCT1iZbGH03zvaXigkVYhRvp3xkf9
4WVDNNwNv9Y4SObBVNOtbsXPNIyLCZo3Ejd7Xas6+IOch7uRtAOx1Uu6bcZc
Oga3f9haT+ZLFDPgnqwsHTKpfRZ7yTz6FPyjRl2BDicJg6XLiA8dPVdguImO
5e6Z9h8jOVgudNrPdRsdPnO3FUcRV5wzVriqR4eEx8KBOjIPn++US9hzho5D
Lrs9xcm8VHzaaWZfTEeeegzLkcxf5QiXbiUWHds+Tr9VIt6hOtfiv0o62rvM
r02QeW2YrmqVXktH2RaZQ2HEjpYpti336Nj57Nz6ZDLvS/sPuW14T4dz1rAJ
LYADue9tF8fXMEBfKJYT7EPyHMNOsGkdA+WXWK7bidXNJuPi5RmQNZ349N2b
zKdahcuyWxi43mjz5gzx2fMxaUe1GXBTOFxhRPJHEa8+rcGagbtj1oq8JK/I
LrxVH5nDgFlV+jUVkn/alN9E0AoYsDzUa/ua5KNzxn+MbtIZcG3XZ18grktQ
7pksY0DJLfnUc5KvDgjQpzwaGFB+WOvo68iB93SEps1rBkT+rpjHOEPy2sc9
NzRXM3E6uT2g1oYDu8b7tyZoTOgJfvz+lOTF6R3rjs0WMhErzTl9ljj7Wuh3
oTIm5HXMY/8jefMxW01mDZuJF+ZlA7LEGqXMKKPbTETsDhzyNib5IiPMgPKO
ier5FXvmHuDg3rntj/bKFIK95/6GT3rkfZQpeZHLLITcbOedV2ocUDyvq31M
L0JTtGTip6Wkvyl82RaVWwyb4hqbmu9s3LhvFtScWAKardH414dsVMumPtMM
LYXGdX+5iEI23n/63Do3sgwOvi5xTv7keycjSMDThwXxkMcF/vvJ916Z3NCW
oHIk/DpWu16SjZygsucyIRVgSv4wOvSpBr/V7MUa3Spx492znLa6GmRZqH8o
9KqCrc3TLzYXavDRTmfetrPVaBobvv/UtAb9i1NygjbUwL6xqrhdugbnKpJ4
+StqsPDGPYGil9Uw36Eo9l6WjXe11yYzfKrx2t9k+FMJGz+r9TOkBatRX77Q
SVeG5AbTJ7/lmVU4cfPWt625HET6KS3k6FSBfmHa0HjVFWh6Mosbn1diFzr1
bmRcwcuG6kW9PpUIrNy+wHzFVag16l3SEq1E8FTMhwu5V7El8onnzpIKPNf0
PiG4qBYiUzEb2vdV4JnyaNHVjFosjTq5oP9TOdZJ8qRekbgGDZUcr+mkcmgO
zEYfiLmGt++U/uZqluPHicv7xIW4+KH39vTV9yzMfVzLkYnk4uu7K5EvMliQ
WvDOAhe4SAtcrHcxnQUNc9GZ4xe54C/zNlNLY8Gjx35vxiXy/+6gwPRkFt5+
lHgjkMZFyZcP40fjWWiYdeL7wuQi7Paz1i/hLHipSFlym7m4y6xhuLmykOhj
NNN5n4tlc16lKLqwUMb1YXxr42LzpQ2qH51Y6N/1cFTxMRcCbTcF7RxYOLQv
ICL/ORfy26e1jtuzsOFUBytiiAu1Y+pP7C1ZMCieMaYMc9GqtElEzoIFu2GF
nw2fuShTolGHj7CQ7R6GiTEuqEzLDE8zFviDN3Wd/cPFPMH0zzGHWJBpsjgf
NcVF1NCNyf0HWdg1J0qKNs3FTiuu7oIDLPjEvnJ8xVOHewHyFiVGLCQ9nCf+
a04dtvSfMnA1ZIElrnxlIV8d7ta/11Dby0LL4eOWWwTqkI7y3zwGLLxLvziz
X6gORzR0ZZv1WPgfLH0zFQ==
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13k0Vd0bB3AUJZnSrCSz9GbIEMWXSiEikSElypiSWYSQzNdwr2uW+d57
lDJeUUgyRTKkEmkyJEW9KW9Rv/P766zPOnuddfaz9v4+e2939DR34uLg4DjM
ycHx/+egXqt7uZ+4zkwTI8ew/bdO6OgPjRCVPzq7kwIYy+juuKCi7bBXRQC1
Ly1/r+j0Bn8wRHJK1uOc6Mj+pCV/fLB747dZRQw97pdSpKKDcPqGrofxmAQ8
lq1I0ykKgaFQSm58iQyWb5LOr95zFarhb590nd8BWs2HFyoR4RD/psyxSmUX
lttbaWlUR+C68oMMqUUlJDw42885EIlFNzflg2MqMLiw8kLZ22uYHL7rGFmi
jn6jYXnv59dhJ+L4uzBmD0rX30waeBCN/iOraC3ntcDX5f/2VWEMGu/ZPuJU
0UH81tSGDOM4ZAVx3k5epYsw2dWHutfHY5BuGSy+qAv3hx0/qobjYdS7JKI7
th+eLg39accSoa57VD+s5BDWbpIRl1iWDC+7QmHB9MNY8EqsKLZIxs3AH6N5
MQYwWaaaYVecDImKPP/G80aIL5Fj9+qkgF9ilrGkfBQcny5UrnBMhYHOAd9E
SVP0D09cS2CkQu/WkXzKKjM8ztoe9PpTKq503vAQWzRDgF9N4hYvKr5xGnDr
jJlD/0CGp7onDaPeGeohJSdwzIZ5JEKPjl9XW7boi1lB3qG+3SmQjo1JM1z8
6VZofv3xa1Y5HeZlur05MdZYdrGlnX9TOjreT7ncO2+L/a5hFikT6ai20Mz8
rXwaoYO/P51wyYT3+q+mM9WncUG+T1kgMxNKL5g8oxr2iJHVVdrXlYmhf1Zr
jYmdQUb+2/aVClk4XhHMaJZyAN3Z+HP1RBaM62wjIpXOQm/GyyvOIAcKmbWj
v73O4mmQS+4n7xysClqj6Vt1FqIzbSunc3LQsbdr9pz6OUgXjZY+ms2BfpPm
qUP7nNB3yMBYJiUXOm0b9/AauKCfqP/44mEetjJ8qeGxLlAVo3a2T+VhMfrp
l/+6XNA1odTjzn8D9YYxJdMmruAUVazss7wBjZ6fa7qPu4FHeDRa9/0NKA0O
fabYnwdvybjE/cB8SLyjFa0N8MTqhruboi8VYKd2o5l6tSduRT3Qkw0tgEbG
5JLVV0/s3KLrVhFfABnZrTd71C4hfbgs61ppAfaNevII37mEu/JGCTtfFcDV
cF1DerEXshWKnt3WLUTz9jNSJYk+WLw++OfhUiEO9X7/pXbTBxuUDwRy8Rbh
8ZXYvrYuHzjlqscprS3C0PPK0KkVvuA9zuaw21GEmUTulwoRvlCwHxj517II
G38RiZX+fmDuSeQ4QBTBs3/+R5N9APQuzZbIGhSjNCDKlB0SAN/aUo9zx4ox
smUdszw7AGlJxk9ptsUwclG1yX0egLe1nQ+fehRDZtG7Icg0EKZnO4vYyeR4
6bkwNVxG5LxOp/lQMQwuT68sEwuGTumrx7ApQZhYkEPhvmA8VSrzWOdQgtqH
vPWZtsFY1NOYfeNaAkkB+fMx9GCM3lcfsgkswZ9Clx4ngSuwlfXpHqSXoKb7
Q4r4nyv45fB06ndfCSTExzbTR0ORku2d4qFXCj2VVMaGP6GoNLWrYhmU4sxB
fdVMsTAIDYiOjZiWIs+1zCTHPgzz5U2J0qdLsbki4Grh2zDMVJUP6AWVgnf7
Sp/n3lcxPZqxUHGnFJyV+S/e+4cjeu8bra71DAjt/ZUnFR0O2y9KGu+2MCDe
etzJKT0cGgIyfV8lGMAQz7cJdjiqX2TxLuxiIOSXB9/0QjgeLq25W3CIgf/2
a+rMBUXgdmjILh9fBr4O9BUthkbiiay82vEuBhIa8hplKZGgvLuwW7SXAZmi
8y/NcyOxe4fwt5EBBmy9uQVZDZFgNSl3m4wy0CqkGWS5EImu2/5V47MMZJjk
m5V7XcO6Bzulv4swodt+ccn+XBROz2usq7NiYrh878Z4nygIf0y713qSCT/6
yt21EVGgHon6/NieCcKp0HV1QRSie8u4ulyYWLt8aKBuNAoiFmr0qAAmJnW1
CWGr61BIUJf9m8YEpZ7P6qFhNJS2X/YS72Uix3o6frdtNJT5RM/39TNR9qOj
ucg9GvfDuu9dGWKiQ+X6jmvx0RiWVrjaMsoEVxnHn4M90ehc7aPAN8NEQPZ8
cZtZDPbkvxalr2DhzJWxb51WsdDzPDVZp8XCxc2Nslqusfh6ZqCtSZuFkLoc
OyIwFntaCm8+0GUh67tNW1xmLCw/Cd+oPcTCoMdg5pFXseiaWcl0MmfB4FSn
bs/pOORuHgwacWVBWaeK8tQpHqqBHyxMUlnYaJ20/LtfPIYcJuoraSxweJ8P
2nA9HhaGDW9F0ll4UiLpfLo0Hq13isI7s1lw56dpz0zE49ilewFcJSwUj/jO
rHBNgCa/TXp5LQvxP8wcFQITwKEc8LKvjgVvoX9eHI1JwMZVhzd9rWdB7+D4
wzRmAt42UPIlm1h4XWaZLfkxAdf3tavYtJP/E6xuBPdEbAxtDeN9zsJf2ppm
x6BE9Nxea/jlBQsT5V/UrsclYtszF4PeYRZq3pVu7yESMbkt40fUaxbMjTb8
Z/spEQ6KHRfbxllI2LTA8PegIHHxQTn9X/J77Lvc5ReT8FHdlIhbTcBbifdp
Q0gSZh811r7nJ/CBaZ3VmZCEitiHTzQFCXRk/tw1TiShJ4tXYVSYQHKwmvWW
ySRMeLsOcWwgkHLD2vKRYjIuzET/vS9OoOvkVS1jjWSUfJwcmdpOYPlG5rYB
nWQwQ+9OC0kS8E/++fGNSTKGhun51tIEbMPpoYvnkxF5h6uqTZ6AxNlBxm5m
MlwJhs02FQInty0m1N9Oxnszz4NiuwnQXkl667GTcawEEZtVCfBY+OwzbUvG
AN3y7yp1AtMH1/S5f0iGcYajZrcmgSoZs18F4inIF23z79MlMPMuYExOLgUn
YrNiSvUIyNy40XpbMQVp47/5L+8nkLFhlnKf7MO5BvuD1x8kcGUlRfKlXQr0
2KHrdx8mcHD6sbFQZgoYTnf+fDcmwA5fbNQsSEGY0qGKOyYEdmz6R/ksKwU8
ZmMxbkcJCBlQ1tXeTYH014Q7/aYERkvMXp8cTkH5P+6SkeYEzLTDzaLepcCI
sxlyxwm0Dla0lE+noMOvkdpFmlgmwuD8nQLH0lefeCzJ+jk882SIpmJPiFTO
aSsCHxe43z2VTEXwG7uaz6TtktUtfimkImTCdGOQNYH9Tel7TPalYin2YGuc
DQHBrbac/9qlgljH/S3+JIGI6jifLU6pEP7WSOe2I/DjSMO4/oVUqFLr6FdI
jwRt6coISQVLjbvC8RQB5ovXqTp5pLsexQnaExC9JMjtWpoKn4tH9X1JU1bo
BqSUp8JVap3HEGlf9YKTHxpTcUqmhod6hsBkT18Pf3sqWvJrQj+TtnXi0tXo
TcXVpP3n9R0I6NHOSsWNpULrpBbxmXS1Ao1eNZkKu6x7HDqOBOQetq4cnU1F
4IZfA/GkBb5Jf1bkoMJHs3lh21kCw6ZTNc/Eqdi62OSz4xwBk8mNcn/lqIgv
vjTlTLo51DBLTpmK3/OjH/NJM24RocF6VOiyHmfxOxHYrP9qrtiQitHfakd1
SVNG+M4+OUbF7KgS/RJpX74Lh7c7UnFdNuNTJ+nJwty7Ru5UdC+MLX4jbav1
RMHXm4p7yp7EJmcCPX1/cnODqOATUvyhTVrXTVGoPYIK09Ur3tmTruI4EzEX
R8WpkRHPMNIyGcnfN1GpyPKjFeSQzlJ84Hwgm4p/BIUus0nzt3994VFEhZWU
0kIv6TZ+Oz++Mipehl6o/0A61KJNmKikYkc83fcnaY1spXKDetLyu+RWuhCY
e5tlNPmAivVfaobWk2bKcU9GdVIhKFMeLknawdMzUqqPipvP0nbsIr259uW2
hy+oCGyY7lcn3b944J7DGypCjslf0SYdd6DcmmOKiq4n3bL7SR+I2zifN0vF
nJzp84OkF59GpGj/JOu1Tj5Bn3T1hs//jPyhIpuv//D/33uctuoK4qFhj34z
nx5p6ZIHzpsEaHjV7PpyL+nXnxSW1a2j4cV+VKqSpqvQb5zYSsOnE7XpCqSP
XubYNy9FQ9wxxIuTXtHs/oK6kwaXY0YUEdLNPM98VVRpGNQ9VLicdKAJhPv2
0qDwPL/jX7I+yjTWLc8DNOhktXG9JT09LGIkcISGqjEJ827ShdtDJ26a03D2
yba6GtInXacijtjS0GUvo55Leu1t823TDjScc8jriSDdPX+vIcaNhlm/L2HO
pHUiU74/CqRhKK1MS470j87fyeeu0pC89Y0+D+nbQs7/LIuh4WZVsNc7cv2I
52k566bTUHnRXTGN9IsPxVxjeTQIzAW3niedoiB4I6SUhqN7vcL+vz657r5/
Xl9DQ3lCgMcHcj03/DXxtblPw9cF7YIq0r6H6oQWWml4u2TOGU56fCDBUG2Q
hvNB7QbrSedt/jk+8IoG97gBldfk/jnh4BDh/Z4Ge+dok2LSHV/UGm5/o2F9
2+7NCqQJ3rGdO4TTkLIUpiZJ7j9HM8POjo1peDBW2TlC7lfR9ConF/E07Dq1
OpNGOkEqJq9YMQ3aCae//CH3uyeUhbYdTUNMsF96I5kPqn6R/4rEp0Hft+Xv
NJk3Ly97KCWkpsHX9E5fHOnQUMsLy7PSoMvRt0yedEe07OR3ZhqG1U0Sz5D5
ZZf1ePhZWxqSTDwt75H5Ftkk0pLORUfodre7sifIvGhd/CO4io6PnLUbysn8
7O4Y3xsjTAekbaZUSK/vZ9cEitNxYWn1uIYFOb8PJ1k2OnQcYE66K5L53M9b
nCwaRMepgczsZ2S+Bwgk9lDD6VCY31B4gPQWEf9Vq2Pp8BDcs/MO2Q+ctxhc
W0yngzFD6712hMCvXTMBozV0cDDXXtpiSGC7har9ja901Nloc/CQ/eVSXus/
km7peO4j6t+5h4BpaO1Pba90ROxoo/2nQWDXaeYD68vpEL3auEmO9MzWBEtK
bDoGva+evKpGwDX3eMh/rHSUPrj4ZivZL8/kvOvunU6HZwT3H34Fsr9kcXhc
8chA3XPtji5RAopB39TSfTOQ6Jn8t3MzmZ+2H/5WXMnAEVZFS/smsj6bOqiT
CRnomR6cayT7u0FmUoP5rQzMjRXw5YiQ+ZUhxif/JQP1xjVKa/gIKNH3Ec88
MxFZJHd3foEFC2nXPKeATEQNPK0Z+cnC5Wpq6nxoJvQnBRJafrDQ0j8dtI6S
ieNKmR1x38nxgplHLG9mwn9mNIN/joXAmPmZwalMrIoWMh6dYKEpqFxx0CEL
na+rkogBFo7ai9f0H8/GuiYFN1mChZudFurcdtlwnt5deovJAp9qLFvjXDaG
UuJbVBgsdKz8djfHNxum1bU5msUs7K982Oiclo2o3tpZzTwW1LldOn4NZcPD
e8cgN3keFCu79UrCNgcruj3TngayMPtDi8vnTC4i+tV4zhxgoZSX2zP47A3c
0uj0/Uuef0f9t6pNFuTDevNLgyc2TMg/HTjuSN7zBlkdZ7WeMiC1pvluRGYh
Fp7t868zYMChob35e34Rki5fM+i7XQo5CcbzrKJiWAkZ9nKsI+8rXvfUJmgl
4I55MxAWXoITcp9VI7NKsfyd5R79sWLcbz8e/IjCwHxi61zQoWLclkrt2xvK
xNRmdYrEnSK8n/rUsSyChXsajp/X8BehLS14hZcveW5YeL/sil8hplkyk4rB
ZZBOPWRu3V+AzGDWkETITbRkKKzq3V2An2qO/A0XbsHHLVPkPjmvdCv18WLv
cohEJt7J487HhIPuclXn22ie0h5PncnDm7UpmcE77uA05dQKvxe5uHgziZPn
5h202be+ranMgcUeef73UhVw2Lrf81JpNl4FmH2cYlQghCHjpBaXhbtla9z0
JCrxIP6wpFJ0Jk41Ns/tzqrE4+W8nGeSMlBwbdHAdEsVfPu9XBPJda+NgYP3
06qwdruCSn82HUG3NIQtNlXDut4/JqggDVd+RY9fy6rG6hNWc+uqyNzd63Nq
pUgNsozC9Y1fUdGnNFNSnVYDpkF7QPBCKiQ3c6RWCdai7XrINjfy3LT33d8o
4+haxPLiF9U1Bf+eSjQS4GVj0HhttHBOMpY9qamUiGDD6nW4u2p7EsSE31rh
Ghs5VHbNm+YkaFmsXjp5nQ3VJptvifVJuDTseDgtjg2mZj4+3UrC6wnBkRVU
Nijpp+QqaEmo/+vG/bmIjT6hVkl3xyR4K4tZsx+xkdFhaJT8hwKKr+HSQDsb
gT3LC20XKGCxfQvnOtkQdOP5KP2Ngjfaj2fkn7DxbE36waZxCo4aBYbnDLHx
6CaH0lI3BTvO9hPhk2zc6fXrKMmm4FDpkmneRzaCCs1Wh6VR4PBRbr7+Exuc
0id0bJIoyPAMw/dZNqICMj2EIingubJz0HmBDZse3rlYdwokmqwuR/5iQ6x5
f5H7OQq0uSLF8hfZ2Hl0/UHj0xT4xrx0fclRB9OOg0fXmFOQ9Hi5wA+uOnz3
CGb/OEIBIaBUtYa7Dn1blwuM6FPQduykteKKOlxhdR9rAQVvadeXjvDWQeVl
SwRLk4L/Ac1Hw9k=
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwV13c8lV8cB3AjszIbNCRJ0SCjUPlYSRok4ieFysxOKauQ7D3vcI1ru7j3
hlsIDRqUjDRFKSQNUUbo9/TX83q/nvM65zmvc77jWX/ay9yRh4uLy42bi+vf
s0fvvlvlBVkdcpeCjoQaF0L6fu8KVl3QCa37b4HD6wUP1b0Ou1VFoMj4Fbr3
ywUsDYQktXAFnvZ+PXWnJwAfbQcurFKVAZefvIrOVAhO5ei6H+qXw5PVi0u2
HA7FAbHk7NhCBfy3+egd5/EwyP7cwSWsuh2GPQYT3a8icH3HnSz5ORXoG6eY
r1CKxJyr6w7DflU0bqo2yneOwvDrW6fDC3ei+NVfz4HqGNhKnv6TH6WJpSaT
LXYPY9F1UDjt7jltZJmEdC3pjENjg00Lt6oOKlwi4vVbE0AO4K5KEtZFuaNv
TFR1InoyLANl53Rxuvyh8f3DSTDpmJfU7deHTn+N0F+lZOzUPbLvSqERJPOt
rsTeT4GPbb64aOZ+LOpvNlixMRWMS7/7aFHG4M7cbJocngo5Fu1i4zkTVMzE
eLRpp2Gp3Pfi+R1HUNRe1fQjLR3GOgZ+8RtM4bVd+Ef1cDr0Kg7mJgibQVPU
w1ZaKwNBj3LcZebMYCoYVz7/IgM/uY35dPrNYSX55xlJIAt9vlk7gwuPw3Q9
H/nnTjJmr95ds0/GCmqm7MT5S2RIJY7xLM20ggCFNa9XR4Z5uW4HNcoalAff
a+K1KXg4OOLccM4GN+sj7JpUqai20CL92XEKsQ2UsaN8NPiuGDcdqya8e0tP
mx4NKi9L+Pt22aGI9VqnLJiG3m1LtPtl7CHWcXEkf4KGY6zA4mZ5BxzfskNg
4GUODt20CQtXOQOzTDPW9ZZc6LRKaQoZO2ODs73x9yP5WFvslxoa7QyJXStK
fjvmYy7y2beZx85IvvjLpzsoH3UHogpHD7tAgX2mXbQsH7ueTEm0H3PFZPIB
nwIeOlR6er8m2J3Dm6EJjZsMOuQ+pNGX+XuBznup895wAbbubTTbWe2FHRxZ
6q6ZAuzKGp63GvfC9MrTPSnChVDYtJbxRMMbvHxiiVzbCrGnz4tfnOkNaduI
qSbvQrgcWF6fWeCDuRC7IO7JQjSvt5cvjD8PvdFVB6dGi2DUMTmrwTgP3W9h
4vdmitAWFN3Z+vg8ml5tTA4SLEbvC3bIiIAfTGuuWd7aWIyxeL5XW8L8MHhw
O/8pu2JIzZbFsy9eQFIx74xvRzG8un79brLzx7OcapFyegmK/CNMOcH+YH2t
M1RmluDtmuUllRR/ZJoNVhY2lMDEWf2/7Bf+uJftFeL6vAQKc771AaaXIPZj
MsWUvxRvN/64ooHL+Jwb9KfEsRTGl0cFy2UCUTO9rHnd6jJckQlwyN8TiN1L
JhokFcpQe0+ojmQTiF7ZO95zKmXYIKJ4LiojEF+TJHUZRmVYyHd+4igShFXF
acaRPmWoaf+YLLsQhEYD6R7NljLIyfavyugLgf/aO+0/zpZDTzWleOVCCMTj
xU3dvMphb7hPnSRzBZr9zYyXl8tBcyk/TLW7AplV5lppCeVYxfK/mv/+ClID
Eo2jOOUQWi94/oXvVSh7/jX3EWCAm537cvBiKN68EHxdksOA2O5ZmnxkKJ40
/Lr/qoQB2fvHHB0zifdGTw242Qygl//nECcUD9ilW9XvMxA86754dDoUNjcc
x5VGGJjR19L5ERCG92H9Sk7bKzDe3UmfCwnHuv9Shk5WVyCunta4KSEcry5W
BI/VV0CBfu6VeXY4ePcdXuR3rwI2vnyipfXhWKQiseDRVYH7YloBltPhIMen
+or8qEDW4VyzSp9r+ODSyBBQqoTuA895u7MRmFOcsVlMqsTryt1SsecjIN26
IrglpxIXMgTVasMiUBwS6ny5qBJljvkuS/IicG7H1YqnNyqxbFFv982+CNh+
7S5UflqJYd29ZeJW12Eql+/0jLsKCXWLre4diATl5czh6rNVoFqPxqrZRELH
rbhZ9VwVyn8/bKa7RcKH4lNb5lOFh6rXla7FRkKZr9MwMqQKPOVcC4ZPIiGd
1kSdyKyCP+VXQatZFCZFk0m0R1WwD+r/+cgqGmcS7vqqLWPCc1XjJm2XaITd
HqsUW8lE8E2qbdmlaEjElgt9kWaCPPlfawwpGqKjHhsz1zHR495DOvgmGo/2
fdB5osSE8clHuk9OxSCbx1r9hi4TO3RuJDxzjMXeIFFjfzcmpKwTF01eiIVY
cr3buDsTXL7nAlZej0XQfjNxVy8mnhZucDpVFIsjLSk/zfyYcFuatndsKBbq
XCHgDWGi4K3fmIBLHCKWGj+eSCLmC9xpArd42PSf/U+ihom/aRLNpwPisa9U
r1eXw8RQ5TeN6zHxUI7etNzjFhM1H4rWPymLh9CC+kDjbSbMTVbO2HyJR/Wx
L2/3tzIRJz1dfNE9AZKTob9/9BLzcW7xVXomgtVywLP8NxO+KkLP6oMT0fzy
NtVvmomPJdbkR3GEBdby75ll4iFpavunskS0hOcmtMwzkRSoYb1mOBEbRuJI
9xaxkJxjbdminISTmcal7hIsyJ3pKVYrSULlu3DuwK0snFg3F1dXlQS7icOD
S7ezkPZmg68eh6hb6+5uzFFmgd/i/B7T1iR8sZDobFBlYdRQotPtYxKuB0/3
f9Rk4YaC2WyebDJ4N8c/GzFkwXC07ZAYKRmuO/QsHpxggRM616iVlwx/38Xi
RidZUJLetuNMKeGHd5bcO8WCmHHC8tpbyeBr+tbCcWChr9Ds3YnXyWh6OuwQ
58zCRYfnXsWrU1DpoX100JeFkpfvUnRoKdDYLHDcLIqF1d6ifC5FKXh5OtqA
FM1CgoCuf3JlCpZLpaQPxLDgtzPvxMfGFJxbknPOLZ4FvbQz8jH9KWAp7Vtw
S2HhtelIzXPZVARKmlfJUllY+mD8pTs9FeK85VmOlSy0LrW9sLg8FfbH2mhu
VSyEWLSKl7FTMbbO/IQnk4Uf78kmw3dSIRR2f9aHzULXnEGDw0AqVOW9P7vW
spChmpFzfG0a9pEtNdY2siBL03bSzUyDeJbu+4x2Fl5+LODpp6Vha+ojNb8n
xHltEc0JLkqD4jJhS7OnLPDcGnxRV5OGrlcp/HzPWPjUHXdAoycNX6+1adl3
s1Am1L9VSTwdkS57rrx7xYL6hfAJydh0rO1Tsf37iYVXl91V4lLSoa5crFc9
RHx/iKXHInI62mt6V7gMs/AwctPwZAnhvt6U9hEWbMltr5+3puPu9ksfor6w
EN4keTeTJwOxcoXOHT+I/QkVJK0OyIAlUrdlzbLgLxL/JDU0A1IDVNWtf1hY
I3lReEl0Bs58U9VuIuy0xvjaXGYGCoz1j32YY2F2+5h/X00GskSjG9b8ZWG9
hbpdzngGtE30hk/zsuFNu79tg2smWo0OOWouZsM0pHZqr08mfC316ziEt58q
uWN9ORNXjeRnNJawMbY2zjIhOhO7Ak12KS9lwyX7WPBMaSYKbE88WCbKhj31
Q3vHaCYijne2MiTYQFBPxujPTLh/Xy24WpINGdtWe74/mbjFl743ivDb1WWT
2ouzcKo1JdJuGRvWFJ81RVuy4E7fUMq9gg0zMpd7kHsWFH2PM5ZJs6Ec8FMj
0y8LG7dQAnwJi9h8/MsKysJdu9dGHYTbpR+mDsdlobq5/E3EKjaMSYn15hXE
+G/aAsOr2dDNklms+C0LBvfLPl+WYWPdJbHnBr+z4LzM7t0DwgtWPDmnFoj5
ut1eL1vHRsPKIdU0ERJ0TnSOlhPWzKyw+budhKbld4KeyrKhkrGn7LkXCVJz
YoOf5Niw2OhCc/QnIV+6xkl2AxuXq1NTfoWQ8H6IJm1D+G7XaMDyBBLUjwqL
thG2ECUdtGSQoJSaY0iXZ+MS7T4+3SDh+dmuIy8IZ2/7oXahngStqWexwhvZ
GDq4f036YxJCFn3P8SR8KerXWM8I8b786Z5tCmxQV65/f/YHCSSn0M82hO8U
HXo+OUXC7OT59kjCwi3028sEyGBYP9nZ/288t3mCxUYyVBlqpdc2sdGcFBz2
cSsZ+088kmQQ/rSu9KKfOhmjvtw3uwhv1+GySzMgY0yMr2rtZjaaAiqVexzI
aK7lOlNG+KPQ6w1nXcko3mle1EZYkMQnNelNxqKaTIUxwmYcW65lV8kIuZ7f
r6TIxocJ4c5jNDISxeWRQ5g/fGfLYCEZ9NHwC3WEt0icvnW+gozuZ1JjPYT9
VG7lpTaQIRwcTBFQIsZ7OPt2vybDw8VJ5CxhpbkUpzMfyMgKLTh6mbBpbKPN
xGcy1OjGL+MJZ5UuN5CcIWPxs+OsasINmnq76FwUtG2KWfSA8PsH7lvUBCnw
XV9LfflvvqF7ksdWUnDkS2T2DOEjF74LDMpQ4LDqF7/QFjbOL1o956tAQXTp
59qVhBvkfD+maFDwmv/XF1XCA6zsl3J7KRg51OkDwnx6j9rZhhTsG2zCQcJH
7GRruo5RUG1jW2NPmPHIYiefLQU3LKU2niO8WD2as+ssBYkDcY1+hN1otzXd
3CkQuKcRFkz4oeDPW1Q/Co6fT/COIKxwXmF3RxAFsSskYuIIR/TZNHBHUNBz
dXdHCuGP+xP3qsdTcE8jQjeLsD77XqNTOgUZLq7vqIRz10yDlE1B8pxDaS7h
v9e33mkrpEAtYiSPTvjUuL3+QgUF8UYXHxb+2++J9HsqtRRc17i2tpjwqtZH
hmcaKVCcjsn758sqCy3prRR8+MRj+c8vyar7Hz6loFPgrGYR4Z18zg9neykQ
l1Y4VEA4zYtyYFs/Bb+uNyflEZ541fHYbpiCUz5l/DTC5oaLDqV8p2C8zKaS
RJhZqfnk/hQFHrf2R6URFpH2ODL1l4JPz4fTEgh7hOd1KApSIfaV2RNJuP3r
czNbMSqCcqSMrxJWshbuSpCi4qde2nd/wlF3dY7dkaUisy+rzZPw8NbzPROb
qTisQnl7lrBRZrGlwg4qPjJEN9gQLuB+22utRYVroFvOEcI87mLWsXpU2F1e
Z65P2KHX8NXtA8T62vm7NQjLlFe8kbOhgq+/r1qKcNDyD7aWp6kYuhS07999
enNlxbtINyp09KpF/t23LIsrA2MBVGwp4BzqJfy78YbDunAqChhOd+8RtlQc
+XA0loo3TRd8mYQlFsw+1VKI9R75h0cS9naJcPpMp+LA14OffAh3dN0aXs2g
QuuyfvgJwnHFcqNXG6hwWXH8wtZ/8XR08ptJHxWqMgY6LUS8na3f7B38iYoX
StbxpYTvbTw5XvWVCrNVAmviCV+dbZlYtkDFM43PM0cJz9Izp9/JZMP9XMW9
LiLerUXaL4tvyobY1bDVLMKcS1x/DJSz0VFlVZtA2O+w63wJstF3kVm7n/D3
39o85+2zIVPU8ZVJ5Bvtdd82XHHJxkpfXvkYwtf25+2L9c7GpMm+4tOEV2UJ
RNOvZiN+X1iGOGEjrR7RntxsHF/VKOf8L78FeqzVeJ+NORU743Einw7TZaH3
ORsKb24HNxFWbe+2PzyejUrpQ/zxhB+u0S5w5Kbh6Q1/CQXCE7f5t2Ssp8HK
L3S9GZGvTbhyNaccaFB4Z+lxbT0b6ZuP2fC60VDiYMBjTHjAjD9I1JeGdEvj
H8KEL+a5N20KI/67R4VfJRD1Ik9fy8g6n4aVLpHDCUQ9mb7WdezWBxqMnxw1
9l7LRpEQn1fgmRy0LJqKr5Mi4uP9eN2cWw7+7ilw8SLcevMdf4hvDtZsel2/
gfCw803a1dAcnL001R6zko3NreeeRuTkYLIuNc+cqJ/lYV3bkt7kwPxtrdkj
ot6+nDe92KWYi8tTlvkWIkS8uxqtSd2WCza7XmLmXz1/vufusR254JOUXZRN
eJqhKPJcMxcyRqNug0T9l7blLXqxPxdmmXRTN6I/sKmrff7WMRcXRNQr7QXZ
xDmu1RjOy8WbE4eDx7mJ/GKWtX6mMBefPTv9gwmXKEqKLC7LRc4loyFBwr5v
BYe3s3PRtWaPrAwXcf/0J7Mu3s3F668vxfQXWFBZ2jbHN5gLQXunzd5E/xNO
v3RfXj4Pm0uyDZ1/sqD4rPvY6aI8fM0qMOkcIMaHnnu+vSwPMecCA40Ia6ry
Wv2pyAP1u5Z+fT8LxmmqNmk1eQhYfSiF/o4FF+tk+9b7eYBnp77XW6LfHTji
oTSYhzh5t+UTL1hQGH90/ee6fIQeLf5TQfSH8hLNt8JI+RDKaTg8V8eCQ/2D
5slcOoKXdxp4xrKwWa74BZlegEeaA/LTx1mg+TRoDKUVYp9Rrm/CehaOb/6q
Hk4uwjPuX56eg0zcfnAssCWhGIJ5E1W8RUxUyad07g4pgZ+PV6moMxODI18e
8oaVgtoYfmaTLBOt6YECPn5lCBu2Zj3nVGG0VGFYObAcYLfpq8lWgRRY2isX
zMDj/uwKo6hKTGmcXlrvUYGOj5GxrtMVyLTa+anAtxI37A+kkWwqMOSgu0jd
qQo2WnxbRFsZGFiWTAok/vMKNsdtYKox4MlI5OZnMHH+91CLS1o5LDQVlw7K
s5D/Z26w5m8Z3vibfR4pZqHXrUXizqky3CqXcNUj+iBDab/VUw9LcbKx+Yca
mY2jR0a0uneWIu/anLHpmhuIXuljb0UqwV50G95Ov4HUIsrjSIESBFTsEreQ
robuWqn6BbdiBM1GfrpGrobyh13v/3QVoXf3+ZOCkjVwvH1QodOoCJ0qY4XV
6TVorZyNaWYWYsMqrpQborVAYolhkkIhdn/4G3EoshYmOqpqM7kFmDgZbyIi
xEHFgQt92hIF4H1aw5YL42DB+xpbMZEOGfH3VrjGgdDynVqf4ujQtlgyf+I6
ByHzMqO5MXR4vz69Pz2GA26t0sdS1+l4NyT6ViCVA4Uh2UjhYDrq/rryfaVz
ELudNv7LjQ7fHTLWnBYOSjUUGGNGdCT4HZjvfsCB5M/wsApDOko5fvk/HnFw
92RxuKc+HQN728YUn3LgpGzGP76XjiMml0KpvRykBuQsnVanQ+lMV1noMAfW
gy82iWygw6ho3pT2mYO24AhGpywdDp83/6r7woHevLZtugwdWV5XMPmdg6bW
J3vWrqKDP2hrj9M0B5uSeXiVxemQa7K6HD7Lgbq/3cCECB17ecJlcuc4+L7x
48jNJXT4Rb1yecV1E04pfoEGgnQkti0S+c1zE2y5KD4hfjrKRFRuSPDdRJNs
d91TXjpaj56wVha4iSGP/yhp3HS8T7s+f1DoJixGZIpt/ubjf3TJtb8=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0, 0.09389186039463512}, {0., 0.07245775386126117}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.5886175622830887`*^9, 3.588617606902885*^9, {3.5886177452065887`*^9, 
   3.58861777444868*^9}, 3.588618031439246*^9, {3.588618123428752*^9, 
   3.588618129455576*^9}, 3.588618837214397*^9, 3.588618893524568*^9, 
   3.5886235561638937`*^9, 3.588623597620699*^9, 3.5886246999446077`*^9, 
   3.588626196783794*^9, 3.5889644125023127`*^9, 3.588966604798581*^9, 
   3.589032425043392*^9, 3.589033110612933*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[CapitalGamma]p", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"I", " ", "\[Kappa]"}], ")"}]}], " ", 
         RowBox[{"NIntegrate", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Rho]0", "[", "q", "]"}], " ", 
            RowBox[{"BesselJ", "[", 
             RowBox[{"0", ",", 
              RowBox[{"b", " ", "q"}]}], "]"}], " ", 
            RowBox[{
             RowBox[{"fp", "[", "q", "]"}], "/", "\[HBar]c"}], " ", "q"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"q", ",", "0", ",", 
             RowBox[{"2", " ", "\[Kappa]"}]}], "}"}]}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"b", ",", "0", ",", "50"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalGamma]n", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"b", ",", 
        RowBox[{
         RowBox[{"1", "/", 
          RowBox[{"(", 
           RowBox[{"I", " ", "\[Kappa]"}], ")"}]}], " ", 
         RowBox[{"NIntegrate", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"\[Rho]0", "[", "q", "]"}], " ", 
            RowBox[{"BesselJ", "[", 
             RowBox[{"0", ",", 
              RowBox[{"b", " ", "q"}]}], "]"}], " ", 
            RowBox[{
             RowBox[{"fn", "[", "q", "]"}], "/", "\[HBar]c"}], " ", "q"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{"q", ",", "0", ",", 
             RowBox[{"2", " ", "\[Kappa]"}]}], "}"}]}], "]"}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"b", ",", "0", ",", "50"}], "}"}]}], "]"}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.588617164833888*^9, 3.588617282090921*^9}, {
   3.588617425879696*^9, 3.5886174735509043`*^9}, {3.588617511031172*^9, 
   3.588617515541795*^9}, 3.588618804734928*^9, {3.588619011350041*^9, 
   3.588619062757913*^9}, {3.588619171781661*^9, 3.5886191720345297`*^9}, {
   3.588619207865962*^9, 3.5886192088818617`*^9}, {3.588619440418806*^9, 
   3.5886194570932617`*^9}, {3.5886200854246902`*^9, 3.588620132362315*^9}, {
   3.588620287527567*^9, 3.5886203029466143`*^9}, {3.588620383881051*^9, 
   3.588620404767295*^9}, {3.5886250462836447`*^9, 3.588625071296966*^9}, {
   3.588627696325533*^9, 3.588627698477886*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", "b_", "]"}], "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[CapitalGamma]p", "[", "b", "]"}], "+", 
      RowBox[{"\[CapitalGamma]n", "[", "b", "]"}]}], ")"}], "/", "2"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5886277006114197`*^9, 3.588627729290546*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{"\[CapitalGamma]p", "[", "b", "]"}], "]"}], ",", 
     RowBox[{"Im", "[", 
      RowBox[{"\[CapitalGamma]p", "[", "b", "]"}], "]"}], ",", 
     RowBox[{"Re", "[", 
      RowBox[{"\[CapitalGamma]n", "[", "b", "]"}], "]"}], ",", 
     RowBox[{"Im", "[", 
      RowBox[{"\[CapitalGamma]n", "[", "b", "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "0", ",", "50"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5886191409404087`*^9, 3.588619154033499*^9}, {
  3.588619283996973*^9, 3.588619284276929*^9}, {3.588619471172351*^9, 
  3.588619506264772*^9}, {3.588619634818076*^9, 3.58861964696069*^9}, {
  3.588620006389694*^9, 3.5886200077883873`*^9}, {3.588623656948885*^9, 
  3.5886236586843653`*^9}, {3.588623719199264*^9, 3.58862372342295*^9}, {
  3.5886237602496147`*^9, 3.588623776633377*^9}, {3.588625081396534*^9, 
  3.588625083377095*^9}, {3.588964613490575*^9, 3.58896462115586*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlnk4lN8bxiVFpchSSKWSLVmHxIzzMBMjISXZDWJIlhnLyFISiSJb6SvZ
11ZbiDiWsmVLZYl2tFsKUeL3/v6ZuT7XvOe8z32f+z7X7HD2OeLKzcXF9YT4
+P/3ziv/cjO2leombBX+kePci6r45Ld7uV9B48mOkEtwY9C9PDn3TPTxcZJ9
JsHJmqN26+MLkUxa4oFUgltUWMzV7veR0T9YiCU4VHS5ejmrHH0diDodTPC1
pAO6i3FVKFf4QKsrwfcFLjfPB9cioTSXj4cIbrvcR59lYtRn0dKtTPBUJP+n
oFuNKHzvkdgNBIc135f/ndWMqtZ/3/TFqRet5T56KiD1CRJ5GxSACb4Gc/d+
xbUi0qXXBYkE7zr73zQrsh2V/l267UhwSR2ZNBX8FMlLNEXJE9yuff7hd2YP
CuJtrClh9KLbZOEzGvd70cXils3eBE8Pn8j0v/UMcWetMJEl+IwE34efWc9R
scptapxjL3r80HqlWvoLtCHj42ptgtda35Zmpb5EJqvH8j849KLUVFPmZNwA
6vXqD5Yl+I1m1kWlmEF0CBLKmu17kXT/dLFX5BASrihotyW4ROTq92/Bw2h+
d9h/Z+16UUfiMOsz8y2SaxgavGpDzHX9Wnuy6jskrhAhvZFgRXdko37/HdoX
cc/yonUvYvMmhrBvvUdeuTLsk1a9aOkAqX4q6yPq1szI+HesF2WLvjZN2DaK
dDN99lkRTBuLequcPooe6X+vu2fRiy5FDnD5pI4hy/fBqWZHe5FYczD1R9wn
JLD291XG4V5Um7TrxeV1nxHv4J4HaWa9yMG584RizGc0tVe9vde0F+Wt2HbB
M/ILWiFm8lzFpBepQmPbl+BvSItddbHBqBcdrOM1HWdOouuFZbBdn/h92Xl2
09QksuC6N8Kt14suSzl27yJPId5LX9veo17k71wTYPF4ClWOP7iWSCHmHfd9
/ODFNNoRGyr7UKsXffjx2ilo9hfaI8a1VV6pF/XHX3qQsH8GpZFbDzQpEv4p
719THDaD8izWPrPc04vKWCklQ6tm0bRAsjBbrhedmz24rL1pDplduOrO2tmL
pP5Vpf/TnEe71lw1TxHtRSIZrlOiIfMoUfiFwqhwL+JDwjQlPI90n7cHKQv1
oslw728OhguoYac7p3pDL6rn2a3dcPwP0ntpuT2FtxfZ8ycNRAQtorO6bmrj
Uz2oa73mGh57LsiZUGIV3O1BfcZC17tDuWDEWkmHVdyDBmMmZP5L54Ll3Cw7
Un4PGl1VSFMa4YLk8z2luek9aPHf5nAr2xUwpPFzXuZSD1KYWJi7Y80NUtfk
U5vcetDF7rrRY5Y80IjN/ziL9aB4/jQ/qUAeCL5aF6Ir3INSDgZyf7vKA1fr
5SuENvSgzBYlqfCXPHD24cyx/JU9qLI+0/aWxSpYKzZd4jfRjcbunetbOrIa
qIVOTlVN3Uj/yoGGQjM+yHMen/ns2o3CD1YU93nzQWx64tiiYzeqX7Ur+V8c
H9jMNZDW2nQj7VAut6OdfMDizvgnaNqN1D1q1y3T18BZo8nsHo1uJE1VPW6p
vxZM/46cFuHpRqt/S07waPCDp7JVfP+NLuSq/Ge96npBaLdWa1n3sBMdGo7O
F9smCGqpv4ynSjoRKVqUwqUsCIlmZdu7izoRz1uVUz2HBaEl+m9rwPVOlBPP
7PBKEQRt/8jaAE4nevvjxYVbWzbCFaXbihRSJ7K+c395l4IQbCnfJS9U/BSZ
yLtObzIUgYHk1Ynrz3WgshdhAe1aYlB4lLZDa2cb0hFSuM9zVhLcTu4cTzr2
BDH/Jt3Mt5KCtzNrqoL9m5BPyyf1+yY7YSImqPx8KEaxNqt3/zslDY9qjE5H
PnqIXFpD3FTdZUCzt/dTfX4FauQVN/e0loO3FyT5rdeVINWN4de++CtA6OBb
+3SlQlTDNyDXGqoA+mfMV9QJFCJ9LqXavEgFIOmmRU1OFSCLyeG3jikKUNOp
ZRhbXoACu/bJ95crwLAr41Dq/gL0KGaytumnAjCS1x0SMcpHdG7H9zd894Av
yTm+MSAXMX5RFE1PKQJ7omL9Pd4stF6Iq/eFvyKsHKhZm9KfiWpUmvxswxRh
Kcapff5mJhLxNqh1j1cEK3NOK31vJmr7bHrwfIkiHBzTPLjSNAOpvHF0r55R
hNLtaVHjqemIq/1c3s6wvfCqI6Hkgsl/6O4nKr04ai8YeG3OdZL4D9msXv1d
OX4vCJzd+9fj03VUQY1Vp2TuhWjZngnuiOvIvT6p6XjjXmhbZ8u0fJiKestz
311epQTjziuTr6pcQ9kZTyR/xymBicGz3hD9ZJRupzhw7JoSbClISJ8STUbX
JZITKzKUQGDnye2JX5JQ/DXGavZ9Jegq+LD/WGISCo7/O/m9VwlCvBRNv3xI
REfOqDZ/EFaGF2ifJSU+AfE43PTo/k8Z5Gauf5lcexktb+GR3pujDAcMtlKr
Hl1Cf4ZOvrl0Sxmsjxlxv/S+hKaOaR01qlWGPxLRCcIvYtGIyXPy4xFlULHa
tio9Jwa9yuDhey2gAm80VmQ6HI5G5fHaw31HVKBJRLZa6UcEcr6xYVWNpQp8
kwr0O3ovAgkVfVDKtlEBaeFGu0afCOTbGBvh46wCiVuQV9Cvc0hx5pU8P1sF
FPpjWeZL4SjPOiToQKIKJMSUt5OpZ1CK9CPR6h5if02txxQyB1FVE1DmcxUI
eXxzQ0xvIPpJOeFxYUAFeDT1Z5xcA9Hh4/x1Fm9VIKxQZaE2IQDxx9qdmJ5Q
gez5FY38E34ocnKxTGGDKug3NXt1Nfsi/xrK4ZuHVOFW7oylepkremDTyj10
WBVyvBfe1EycQHN/Dj8QOaYKTT/zz4QrnkCndU5IXLZXhZ+b/pU233ZGZx7F
jgZ7q8KXtiJDdbYjiq4fCLJKUIUq7+NbVm61QG0OTntSUlRBMWH+rlHdEbR2
+evrnuuq0FwkNbjgaI4uoyV9w2xVcKbJpklbm6CEBun1mmWqsFT91HH1E32U
1sTKFn6hClwUD87EL1487Pz3qNmgKlTfzSu5m7IdS66MWn1pRBXene4X+RMp
jzOo1z25x1Th18qO99ucNHHu43qN6VlVSMCaiT6pNHynZV1H92Y1mM8tcRaD
oxh35P+MsVWDq56GHbU1TrhMrJcV5qgGlged3QT2OOM8tz9Tvi5q0L1vxT5W
mjOO5TabPO6pBk23Ng84BbpgC+35b7tD1KD9TV0t7y5X/LX44FhjmhpkLBQ4
fjNzxyO//U88yFCDx1a/b3mUuuOeA5kfi3LUQMj/3/3ljR644v2v91duEXyQ
Qw/o9cBnxW++sa9RAwMXLbtUfU8sEjM5sDCkBtTmwuPkRS+8ekD8+I/XxP6B
9PwwM2+8IE3rf/deDaySe1XfZXvjNw3XX7R+UYNPfh/d19F8cPG83rOrC2oQ
xhANXYV8sa57SoequDoc7F5jMOnCwqqV9Ua7t6oDaflhcO4FFpbm+dImtkMd
XBI9bH4UsfCaLErrspw6xOG/bOp3Fn4xMN7cpaUOEOfA5vZmYw/D/XUeVupA
0y2Z3eTghyfkxJ+U2qmDvJYBPT/UD7PXLnQuMNRhZHxYoi7ND4d2VY/EeKhD
YcX0bOxLP5xwVGuxOFgdfE01w24f8MeiGmI8P8+ow9Ce/e2JDH+ctml+nfZ5
dXjsJLRiVYg/zh2q2tJxSR1+yKl/Tb7njysd9+l8TVeHC043bzgKBmAdvc1U
tWx16ENN6KFsAG7Y+ftgcL46HJJI0cnVDcDtY5U2a++pwzVRhSl5zwA84qkZ
rIDVIdQ53mADJv6CmmyKYDerwxrH2Oy5vgA8rjQXU9OqDj5/1zSwxwPw5PSD
/w72Eutdz/6T5Q/E3EEaD0++Vwc9cplf0pFAHG0t2lg2pg5e/tqj0i6BmF9n
tu3PF3XYOiUZaeoXiEWXKgZjfxJ+rBzh9UgKxGlvU971zanDK9q9FpvsQLyt
0f+zxF91UNrScnLsfiCWiyTN31pJgln1uU+Pngbiu64iXL94SRAp9vMb31Ag
VjOc4dXhJwHDKj1lciwQk9dWbH4qQoJiGeuM+KVAbJagvu/bbhLIFnBJSu3h
4BcsYaSuQILW9YtdJhocbHX0l0GIEgl4DzIeiiMOdt5UbrluHwm2hDWsjjfn
4E+/kxyO6pCAKvTNZJ8NB58aYrvdQCSorh6+Hu7MwYHpaoF76CRQDTzFM8vi
4L9hQmf8DpEgdo/O2h2nOTjc8WdU7WESDCvtfTNxloN59PriVh4jwaGeoZ8O
Fzg4ZmfZVWNrEqyzG6xhXebgDTxJN5PtSaAn3VAkm8TBSWOs/GEnEmzmyCmf
S+Xg9CLVB54nSXBsYaBHKpuD24Zc2jK9SZA4v+2+RT4Hz6y9NvycTeg/aEhS
LeZgKXLbBC+HBDKjTU8r73CwsdefFeQQEiQ8XPlh7D4xf4aiqO9ZErBwyMf6
Mg7O6XGQyztPAvOv6WT9BxzczZWoMxhNgodKQ9a+VRz8R7XZlP8yofdcTqHR
Qw6WcZl1ggQS6PefTOqu4eAjKbIB/ikkCNiZd2G5loPPPLG+WHSdBEdsGqZG
HnHwrblLN0bSSeDMVqUw6zi4X7b+nmA2CZQcPQYzCOa2nmqk5ZOAIvpKKZJg
pdidL4OKSSAeM3tnM8HWtRaf79wlgfH9vdia2C/y+4W/70pJYBs68+wg8b6S
rQ83iFaSoG+01vwbMd+I6bcdRjUk0Ho9e0unmoP5wrdqhNWTYJONyEFyJQeT
Ss3opU0kmDGLufGjnIMZH87ZjrWQwK68Zd3hUg6+LFzhLf6UBC+DdHlP3OPg
atr4OZMeEnxNcf4jf5uDRwPErp57ToIdi3nmOYUcLFh4sOjBAAl4cjmnu3I5
mDwYWvtlmASSZw69uZ3Jwcw197u3viPB9Lmr3yk3iPPVfv/efJQE63MfC0Ze
4+B6T+HZqM8kmHtpXHUmkYM3dXO2TEwR501VoCQTedFfLlbaOUuC126us3fD
OdhbZUTPcoEElt4N788Ec3BLErjXr9AASbWarwZeHPyzmR3yc5UG3KD6R+u5
cfC22bx4mbUaECXpxTvjwMEBx9c8iBfSAIkRe9sIMw7OuqjT1rRJAyK3cXgc
DTm486HX8JyEBvS/3agzq8vB0pJ9Kxx3aUDVtQ1/zfYSfXqXZqpM0oCPQ7+9
OlZzMJdQl5OLlgYIiU0pnF0MxIrUZf9UsgYo0Cbbp6YD8fl8lxvLNA1I2nrA
in+E6O9Jxc89xzSgbGiHg8rdQJz4q+6cL0cD1tzYZxJDDcTefQlOdiEa4Okf
e1FDMxAfKnXRo5/VAPXJ79vvygXi1T5rVkhFa8AOqd+Plon7KPSrRXjPNQ2Q
evZIhvw8ALu9/3ZGqVIDNM9MedlbBmBaQ72DRI0GxOcOz386EIB3ZCbqrq7X
gLYWZTpVg7gP7fYtvX6iAT/s5eO9hAOw+WBEWNxLDXivsrQ3rcsfk3vEQ7/P
aEADZyM7c78/Fr/33XZwXgNcShT6HGT88dxlrPN4UQNsqKsdZ4T8celB1783
eDTh7nLJjupvflimpSTYWEQTPKMNyQE3/PDGOsPTt9Q14cwlAZT6i43HbwUE
urM1wfvJs4jbF1nYcuvSm6JATZhWe3RsxJuFn1y5YPglWBOKaotefbJg4Tz/
VLGT5zVBvnJbcoIUCzvrPqzxTNGEaP/0r+qVvvjNs8Ul70pNOBmaJb+v0ge/
nD8fHfBHE0LP02r9JE/hxwZJ1yMi9oHYduPqdNcTeIXZqw9XwrXAyljg9Isr
NMylV7ki6/R+eEXdaLcr5AiyoX3qGAzbD8mdl1UTp46gCkOxlI0R+2FgruZb
qetR5G4aLHM+dj/Y6XT08ZlZoGe2usZuN/bD6PPpp7NbLVFOYEuKYt1+EKs3
O7X5jjWi3emXfcilDZG+r8oG9Rgo4z7v9DSPNjTZr+C6HshA82VaNQprtKFv
a+XyrtsMdOdh2qH0jdqgu8VHNFvYCYm2OrDO7tQGz73FCXIfnND4+/GaAzRt
2I3jg0kBLuji5t8mfdHaMCtRVB/GckMpbW0fmy5pQ/LUnRB6uhvKPJ12uvyK
Nlh9VIp/2+KGKocp+Smp2rBGL+oDawsTjWVGLloWasNQw+mEHU1MpC8ndHu4
RRsEp331zq7yQItae/nGVunAyKq+MkNnT8T3denmyzU6cCVEK+tjlCcSvtGr
3rJeB1r8cgoOFHsihX9+joWiOiDFp1NkO+mJrBtrKj1260B/1NWdXUGnUKUR
3XWCpgM/uQpEysO9kK+NS9Pv8zpgbTH+65eLD9qQ+fUd+aIOlGnerjwf4YPu
fGQtn7usA/LDD+idWT7o06lwMv9VHThT3XIqesQHOZy9WSlVoAMFfsvW5nK+
6FDewC2jNh1giqxKv3XVF3397NAe36kDAfKCF8tyfNHFveOfnvfqQGmtENe1
+76ouXJG2mFIB2rOCNtPtvki7faNmeyvOnAsIfXg1wVfJDdhnHyDnwyUcJvQ
EAsWalF7XvpOkAziZrrj/I4sdIJj07tblAyXloUNTnuwUCaXx/qSrWT4krv7
94cwFtokfCH6sRIZSsz7L/3JY6GK4+sL1qiT4UgkRejEPRY6kp7y2HQfGZZf
Vt0tqmKhuN25K4YQGZQCAtWb21mIR6sh5MdhMqz8I/CJ8p2FckIN09SOkWFt
KM/58BkWgsbuao41Ga7Y7D2aschCIQdfz65wJkP70zuZnvxs9NPuj88mPzJs
77e0NFFgo4Tsc/G2HDLIJX/gOqnKRkrjfHezQsiw82vzkpMWG5302fxVIZIM
uTxiPKMH2Oj9OdIJdJUME/p/slUc2Uhm04Z43//IIGtr85jflXj+1qeq7Jtk
cFtz6/aTk2w005e2jqeADMoRfQNdAWzEJ72ivK2SDHp2jPVasWxkUv1qZKGG
DCLpx+r/xLNR0qGK1Xsw4YfMffO0ZDbaEsC0iWslA/I3UvJNJ+Zr6VpxZJAM
B7zUZTh32MjPpnDP+REydHNczHeUsFH1RPixindk2H3uVGhRORvpbSYVb/pC
Bt+vze9Matjowu31zw1/kCGM47PjVB0bdaBPi0HTZIi1v+fLbGAjC/e0w8ML
ZBiKzzKafcJG/y36BfMvkUGdt/RVdBsbvUkwyaNwU2CA723UWAcb7dwt2+29
mgLAu+KWYBcbMR9yzWeupQD5mgSfeA8b3TF5tePZBgrQMmpLl3rZaOp9uTG3
MAVe8vpXN/axkUZgXID6Zgp41D7f6/yCjYLXMjNPbKFAaPbJXe9eshHOgPar
2ykQk9N2S2eAjXjUJX617KLA2sKwl/6DbERv/SU5L0uBkFTxB5eG2CjOtstA
XpECVnaKtuGv2KhvssDXRoUCEm8ODB0ZZqNNkeFpl0gU0F01BytH2MhWzObx
Iy2CazpzEwnOuqM+8YNMgWtj1sJLBI/BerHtehRo9NmbTX/NRgovx/UOH6DA
fr0BBxbBPh4NnueMiPfrf7IPIrji339Xy0wosMLux317ghcS/fBHcwoYBJ52
20GwrozJFxFLCjw5vSW5mdg/okZG2MCGAn9MXQxpBLeaclE4DhRgvHmXkkvM
y/9xyK3ImQIsQem494Sew5zyhCE3CtzqeqS3ROi9ui6uZq0nBSKXtB8vEH68
ynQb1fEh/LukJPOC8Gs7CTZ4+VGA3172dFw/G51oE9fK4FCgxPZB927C32K7
X049IRT44OOudfM5G01MdV7iCqfAtoje1l/P2Eg9quCBaiQF3gaHxcsT5xck
Hv7W+SIFsvSXb+p2s9EKfXX1JwkUEHjf8Ho1kQeDfn77uRQKlF+UUq1pZaPY
k+MXZP8jzj87RdiEyJNI8n+vYrIpsLl14elGIm9rXwo/Y+dTwOmf46YAIo9c
m+NbbYspkDz9wuURkdcfaREVe0spIPLgG/yuYKPRkcVbmx5QYNPL9T++lhJ6
t3Gyl6uJ/Figl0332KglxzP+WQOxn9CzpO1FbPRodCyy5jEFarJLI/Py2KhM
hhGS20aBDtWcb+uz2SjzloV7QC8F2LPl5vH/EfrKKPri74jn/TPWG8awkfdM
lRb3KJEHv5X7piMJ/zTVlL99osDvB6cNw8PZyLxGRrJukgJ3CtIsTThEPpoE
5hjLFHiUXfYoz4WNpHhivxut1IWJcweHXRzYaLMBz0c1Xl3QOGt/g8eayHPH
fA+PgC7E+z2/NmfCRq+fvS8u2qYLcouhcxmabPRC2C4rcacuNAsaPY9WIfp6
rP9asIwuOL98/sSSuL8qhzrOH1LShY9owqBwK3GfvS+3n6LoQvGRCpLoSjbS
n47aqGWvC4IafmlaxP2ppc7Ft8NJF3b1lAXGNbKQUkDw0hpXXVB3ePG8/SEL
bVnw/jZ8ShcuKF7wXChmoRkuqydnQ3Xhof7Oy5oxLFQgqHC69YYu8GxR8CZT
ifXj1vM8WbpwnHpp4tB+FqqqjeHo5+lCZOceE31lFmpz+xJQd0cXqqx/iY1I
sNDXR0Xs8jpd4LRvEu2Z8kV7PWRPZb7VBRnTiF9PU31RRaO0I2cXgnsKrrI9
eT6InGrxpkIWQZeAaOXpWB/05FSk/c89COr3b6qb9fFB/ZtHbb1ICIry/pm7
aPug3165Vi4HEDx+tuAu2eWNtCV2HjFjIhB08RmkffVCjeztB2RvIzilFr/L
ZdUp9Gd2MkHyPoL+Ma2cD588Eel0w8jGcgSuP0xs9Do8UdFZJ//FGgQHLps5
3oz3RAmXc3OfdSC4I/BarF/UEzEKZLlDvyJYdjq3J2zbSbT8PdXxswjAOp1d
LTXi7ihDKkuSYgGwlSk5ONfigupC/3C59wK4ibR5tu4/hnYY8y7uOq4HpNCu
PMY7QUR6Se2TsNaD3qQHlRtu8CEDx/CijbZ6oOJwc/TH1JLuSb8Fi2UHPeAa
vNiVJt5fX3Hj291XbnqgFX8jJzxGGBt873FMDNSD88PCcpSmPfhk3PXmpat6
8G7iuwCXP8IVPfKXhl7owbbqMtHvKodxwq7G/D/9eiC513JaOPAw9uRYNWwZ
0oM9VrFzK2sP453bo2ftX+uB5qR5nzbNHF/xHnX8MKYHa2fEpeaPHsEn12eS
vs3pgf+cZ9pRdwssZSzyZlFMH66/MRnlc7DCixm357du0YeqdNmw7Tes8MBP
fWG0VR9qr/Rk/BywwvFpLPq5Hfpwp/Cfbddha/z3S3fZKgV9kMj5O3QI2eD+
izHRG3T0gfG65QlJwA5fbllSkbLXh/MHh93uBzliYI2rbnXUh7RV/8g2xY54
Zku3moSTPiisIzGbhhyxHesmScRVH/6knh4flWTgvZJkLT4vfeAip2odD2Hg
btZpNBWqD5lvlUa6VJ1whKQT/DijD9nB33dx0Z2wZitd72u4PnyV8+dftHfC
GZJi1NFIfXC2DFm2i3HCPq2VBoOX9cFrHgsEvnHCgltnTBrS9WFjyLN78+ec
8ePWYdO6DH2AEr+zrVedcRC72awmSx+u1gRS2MXO+F1rknlFnj4c8uE+aNvr
jEvZqseK7ugDnTK+PVjSBR9p87ZLeEToi4tPeXPXBSf7fTnJGNGHPKFh0/cV
J7CEQTDr6Bt96L95faGl+QTOEVsXZPBOH37kDh662HcCl9UpRimO6oOfWlD1
zckTuJfXN3P+mz4ovbTXEJJzxRvS554n/NUHRxFes01Jrviad/Sr8//0wdC5
3r4kwxVv1RN7H7isD8JsK+ru265YcXz/hN1KKlRreDKtm12xsUoYn/w6KmRs
Pf78+7Qrvvh4JaVRggqFN8wzJehuWDA1hVohSYWDxrsk9h9xw6keuw8WbqPC
pKGEj5qdGy7YYHg8bicV1hqN3nng44afWMWyrBWoEGP2+uZSihs+tGdL0CFF
Kngf6haYuemGX/y7fQYpUaFv4JHb4wI3PJrTdWm3GhUaa5baZqvcMPcPwYLp
/VQwubY26sagG47F2XdGdaiw9fsIzf2dG96YpFY+QKHCwMaoGYHPblhqn0VD
nR4VXvxokpuac8PoXOqrGCMqzHd+WTsjxMQtR+XehxpT4VC0o891cSY2lXn4
yceECquOnu/eLMXEDk9fzRwzp4IV0osoVGTiUNFtAjutqZB4+NLYWhoTd5Wu
sUG2VNjJcyFq0YiJt5nO5tnZUyGhOj+3yYyJ8YVO7VQnYp4K5NRpw8SCu6qj
KlyIeZ8o8wgymJiBc3ufuVJhI1NFUc6Vibnng934T1Lhy5SpUL83Ex9JcSuV
P0UFtewPzz39mDhX5ciigTcVuP3ZO/o5TEzzkE86x6YCnxCbKRfOxFdXib7O
8KdCcf5xF8FIJh7P5pJ7FEiFvO/SPzujmTj61UDdXDAVQnY79zTHM/FgYDOf
SBgVmt8a7lhKZGI54ftHVc9SQesN1/r1V5n49P20DNNzVIgIzPwxkMrEHcYX
vniep4KwyTcd9zQmlvjMIsVEUeFDlCGtK52JPSPtzxZEU+GJnIw4byYTP5Iy
6miOoUIyZaFTNJuJ+etIou8vUWFbpxp7IYeJ7a2lGEtxVEAjtC1leUx8b3bd
7S0JVOgIyH6FCph4KfH3rFYSsT6rpimnkInNlD6CZQoV/E5wj78qYuKsju5L
fteoQG7/avm5mImn3Gr6E65ToaV/TPbpLSbWW1mw414aFcZSXD3P32bipMzE
U0/TqeCzbkR94x0m/qgTVvU5gwr79WuT/QkmDbpzr86mgrhewM27BEf6W5js
yiXWC4S6PCL4pSBch3wqsCr15rMIlrm756N9IRVSyFretgQHGm1WCikm8nDr
2cA34n2tY9ynr9+mws/V4YZHCBaLmGh+cJcKgzYPeuKJ+Ty2vdrw/D4Vbt/9
GJFNzF9T88R6qpTwgzfML5bQt/Z4ad76Cip4+vwqNyL02/5Kn1SopALPRLXl
23wmvnPloja9mgpvYpG3MeHf4h7/KNcaKjwzWeCPJ/w1aXPsjXhEhRJdqwOF
WUycccJ4S1Y9FY64dsunZjDxJNc+t7oGKlxu7+q0J84Pbu4sfdVEBXW/Nvj7
HxO/f7lgINpK6KnkjNWkMLEaeyxRrZ0KQo6COq+JvERseDZi9pQKbadO3e4n
8iRtWMSO7SH6+1JTxuwiE/t/TK4rfEaF5xBzrJvI45OzZ/mePKfCd2XmF+lz
TOxWbZmxPEDk72HcRavTTFwsv6rD/x0VzI8vFQ0zmbhPUu+v1wcqsLW/pp50
IfQJhCkyR6kge1GzsN+B6OvcTLz1ZyqsGfjmbHCMiWeaRo/qTlHB8VTxzygg
+lgpFbXvJxX+dQVdXNZmYsNiu0qVGSpcPZdZaanBxGlXXojtmqfC4SMTmzPk
Cf12j1/zctGgekpEPEmQiU+acQms4KZB97BW/vAaJk7WJ8OflTQInZg5tHIl
0S+5ipzvvDRYE1J4/MeMG748m8t8JkADl8fCGsoDbngw/vx02nYaKJfPfg6/
StxfEXhnyg4a8BjMeVZfdsN7Av4ejdtFA6cmyzs9593wGVu/yrOyNNjqXtx1
k+WGpeVcQk4o00Dgb5lXrbEb9mnUX6WEaLA8RF0U+uOKr1ec0ZTVo0GK+s2k
I5OuuKmwhilFpcE1rW0X/UZdsUi8WoeQIQ1CNNYsWHe74hqbnVd+m9JgMi6r
qzbLFa+eWSHe6ECDLotGia/IFc+XXI8fZdCggUfelKzmir95KfPwudDA0ZKL
c0raFfd+sps0ZdLg24bPe5l8rjhtuOrJiA8NImRWPm/vPoGVmr3Y8+E0MEgd
ZlkeO4Etk4aeKufS4Ev0RSM7IxdMN/PVO5pPAyXThM4b+1ywDj9vVWAhDZbU
jLbU73bBUhdIOXW3aTA/09N2e4UL/nr6SpBxBQ18c8jbVaqd8RmnA7uZT2gg
PvY9kVvKGReqlJ7J+ESD+k0h5v+GGdhbdHqh6gsNxiRlcw+1MjDpj0rAs280
mJAZXhlVxsANzSWePFM02L1V+FrpRQYetCyxOjlPA2/fds6SOgPzhd1X01xz
AAS0vbhv8zti9/a7410KB6BjcIrluM8OyzvfMv3ndQDSgk/2rpW3xMNGD8uO
fTsAPCE7jAZX0XBfbvBe5GcA9cWd8mYz8kiIq/KhdoABnIpRFOry24OO2k0f
0OQYgJbuf0dqfiqiFyLuDntDDGCFtFT/0IQyGog6dmXLeQMoOzHnLzOphkaY
KtO/kwxA4pbv6uFOLTS2Z7yipMwANtqd/3dypz6aLzcn7/xpALtE1+w/unAI
8WtpdgvPGABvqUlc4EETJPVIgrFqzgDC1N8MWN8wQfTHH89/XjCAnLiDlx3I
pui/FwFP760whIR7yfWrQ8yQ9ux/NjobDaGz4PqlxpnDKFTzQ5CFiiFclX4u
P0A/ihJqWtYaqBnCfM5ugQ+njqI83dvp+0iGoP07Org14SjqNPBvkNAyhIWQ
v7Bj8Cjaenw133tkCI99xbfwu1qgeo5CqpeZIdQP8Qfd4BxDy9XsBxe8DWGA
UuIXeeY4GllddinH1xD+jm25o5Z1HNVYTDvVsw3BQ0u0/V7jceQ/5bNhLtAQ
pNPl3gvwWKHPsl5M17OGkJkt9trnghXqu8YUpyUYgmZpSWfXWWt0f7Rg0jHJ
EDbvUavkz7BGl9XGn4SkGBL/5z4JbX5kjQy7T7DLrxvCObZHRdxva/RolfPT
ndmG8FlGKGzZ0wbl+9uFrSgzBImiU2YjB21RRNONo1srDGFQyWHbE1dbxBAc
lt9faQh8N5lpnHBbJHHHut+3xhDOiujI7X9gi+I/Wiq/azIEwXK18D2Sdijo
iPn7+ueGwN/Sb1zx1g4dy0qoevXSEBqvszIUftshtYmeuLkBQ+ge5x1032CP
fsSYaiuNEH4PZcaTyfbIudE4+eaoIWg5Pp2gXLVHxioGB0JnCX8XI/KvkB0Q
18uXK/x/G8L6b4/lpM0cUOVp13rPBUMQuNNgdMHJAe1sjtxn+88QZL4U8pVH
OaA/x5rltVfRYdhE8LrEUwd0KwQ2zIvQYc7g8PduY0fEkOrtmNxEB3ar3Xku
W0e06Ylj9CcxOnT/3aS87OGIIjac5RqQpMMVg+9VLtGOyCa77ucDaTooPAvX
bMeOaE2r9oAfiQ6yifqJ54QZqN6zI9lTkw53BW1pEeIM5C9oc9hFiw7/5k67
e2xnoHfWp9uPkOkgNxz476sCA1V/r6pVpdFhl5aUUi0wkHeiYZC8AR0cpLdT
Jg8wkLTmAGkHnQ6dlNCSNcYMlHB27q7gIToEDC/WTVswkLuQRtbkUTqEzHcY
xjMZaFvVY7tPx+jwJNLbZNaTgV7YWoi/PU6Hezxtt/R9GQjy/ZK6bemQ1ER3
SwhiIDGtssi7LnQQ8yJV/I5moO4RPb18Vzr0dmobJ15ioMhzz/6lM4nnx033
brzCQFMdU4GXPelwas+hzuarDNRqr+zh6UeHLyqmRjPZDCTk4l57M4AOTqY4
Y2M+Azm4Z6/v5dChfPTs8IYiBppjC5eRQulg93wHd/FdBtIPOsTDPEMHv+Pp
nw6UMFBcWJTlf+F0eH37+u2mMkL/xd9//kXSQW2rUYttFQP5xqmYqETT4ZXr
NbGghwxUm+SR6RxDh6P9qeBfy0Crr+dMp1yiwxkeCfLhOgY6cnOY2hpHB50L
X/j4MQNl5IhcW7hCB4/pvrzCBgb6UmjyeU8SHcaGc9bvamIg0t0L2g4pdEgY
3q13ppmBwsvw5YRrdDC6IEd5+JiBOqvm3zRdp8MUi7P8/AkDba5TVZ1No4ML
6W1UdwsDOTedPC97kw4RLordRa0MdK8196V1Jh0Ur+7pd25joD+dI7KXs+kA
jsU3Fgk26BMNrs+lQ8ZxtmRgOwMlDZh2TuXTYbfIUcsegl+PRG/bVUSHCgUx
Q74OBpL70OB77BaRP9X471IE+39aaIq+Qwe3unM0cYIbvquJ1twj5nXFh6aJ
9fw/PZnfS+hQUi+8sphgq995D7eV0yHU0dgVCM5dfL3O/AEdLr1WY1UR80ys
2OxwvooOdd3XpDcQrM17uOTBQzr8bKOG0Qg9F/hjuD/X0oHXefVpG0Lvs41N
FhL1dHijfFv0MOGH5Oa/BYca6GDRtnR4N+GXuyRp4UwTMU9jl9wrwt+KHV7G
pY/pkF4ymubdyEBcsgU3P7bQYa+iYP4H4nxSVcX06U/pELV9IMjjEQN90DRP
Ce6iw7rmdbqhNQykRI4dv9NDB+OD0Une1QzUYrAYu/EFHYJso95NlxP5O6Tx
mtpP9Glj9suIUgayN/dWDhykw2puTfNf9xhoxvbd81cjdJj+/q+PXUz0wUlc
Zv1bOlQKdbw4V8BAl9yOBKH3dFB9qmfhm8tAO1mPJfPG6NBo7Nb8LZ3oZ+A/
7/5PdEhBd+4F/cdANSGajXxf6fDf1t4NY0QfzC8UuXpN0KFq8qO0XTwDpV96
X5U5RYd4Aa9+t1gG+pwgsbbvJx2EWKtnDl8g8nXj8j3N33TIPZx+sjmMyFfW
Ey6PBTp4/1HFxqeJfBUsHbnxlw7ulLWccn8iX7f35Xf9I/p3f/rKHx8iXyW+
v5eX6WA1XsG7g+j7/wDMVrU6
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3k8VG8bxinZQoWIKNGm/GQdy+DcM2QmlSWUnbHM2AYzWqylKEpJSPal
0oKyFFLxKLuQmCQkJJVkKWvIe95/Zj7fz3POee77uq77OTM7XP2Peazh4uIa
wj/+/y1/feVO1rYSg6RZ71PHX3FQBb/idqbndewf2tX5f34V9PjuXs9srP5x
qcoxnBMJIw7CcfcxFZ7tCVScG1RYDF7PIuzSmqB5HZzDNq8+W815gomMt9B2
45yccNBg+VoFJrJ2V6cwzkUbrtYuhLzA2i4nHpqq4aCmq53UWQbCkl4rNLfh
PBUl9C0o/xV2f3LY4h7O4bVFivM5tZip5cBIMM6Cayx9T92qx94dUIik4pwM
c4//XGvETjVW/yeKs8K51GlWVDN2waH6azfioOIqPY2pkDcYpnqgMBnnZt3I
ynHGW2zkdqonH84FemJnNYs6MNu6Ry7Pqjlous89+2T+OyxV2dPHHeez0vzD
v3O6sFujPFWPqjiortJ2rVoGB/vyjJv3MM6CtgU7WbfeY5s/ffT48pKDbt0y
ZUxe+4Ad2mnhtw7nAUJOjPLlHuzjG0Gp6y84aGf39ENm1EfMp50zIIZzsfjN
8Z8hfVjJr3Yk8pyDWm70sb4zPmOXOe0zzRUcFJOS3JyoOoiNJ569qYSzkidm
p140iMXUPLC9Us5BbL4boez8ISzGO9dcq4yD/h3UqJ7K+YJ5km5JnCjloNzN
n0zjt41gJ/KvTSWUcJDR14ufD2SMYOUJnnPNxRwUG/WBy//WV2xojOuKYhEH
bakNMfx17RtWsKA88biAg14kKHCurv+ODWS8NKrL5yAn11Z3pcvfsWedKW85
DznoLve2Sz5RP7CIZdalb/c5SBVeNf0I+YlJxkgnd93hIJMqPtNRxiTGCh/Y
25iGr6+6zkpMTWKBPzJHTqVy0FU553YFvSlsKN560/YUDjrp+vyUVd0UtmVE
oNblJl7vaEBdGWcae9Qr9Cj3OgcN//pEC5r9g+3796hROpKDuuNiy+J1ZrBp
9FqddR7X74COwMPwGSx2HWn363McVMpKKv64bhaz9uu+YxnGQednTVZ1Jeaw
uZmx3ZqnOEhupSJjhbCAbW8dD/rjwUHiWR5Tm0MXMFVvn/HfbhzEj4kZKaMF
LIJTtzRO46DJCL+fTpRF7Kez+58ORw6q5tmlW3PiL1YW3+9jY81BjkIJHy4E
LWMNZl8e0Q05qE2YIMDjyAWW3WlpUVs5qPOwaEp7GBcUMddWr5PioJ7LE7tT
M7igc4PI8QsSHDSy7r6Rcj8XaFeI/GRu4qDlFckIG3tu2E4f/ijCx0H7Jhbn
Cm3XwPqhRcvg6S4U0141Yn2cB3pVtq1ded2F4oTSAuVO84BgmNWOKdSFkkxO
r/l5kwfcvh8fH3jZhbIblOUi3vOAI6P+elF5FyqvzrbPt1oH/J1Mfdn8LvT1
8fnOf8d4YXxOtGp/fBciXz9Yc9+MH74PZpbL2nahCJOnDzv9+CFodMUyzboL
Va9TSFy5xg+fV9dzix3rQrphXHTLVnzddDFhwaQLqXu9WL9KFYCysJiuJL0u
tNNQ9cRxsiBYK/0tFdvehXjnZSZ4NIVAwFydojvUiTwO/BVWFd4Iz9dczLlr
14mO9EXnbdm2EXqS+j9yrDuRRvRmfa4DG8HSe7ckt0Un4vms4vvWfCNEes7k
H6V0ottxjBZm0kZoZqndrFDvRJ9/cS7lb90EFRXLtHfrO5FtYdGqwj5ReL7h
r4lG5Tt0VNFjWoIiDp2xV9f5C7xDpZzwU83aW+BpaExgHektIoruK+I5JwOY
TOl77V9vEGMpITPPRg56PUJUfp5tQv4N39SLjsqDWahsyRdSPbpix7trxXcn
YI6S98gdr5BbYyhd1XM3HF8Mk9I8X4Ve8UlZ+NjuBYniDB3qZAVS3RSR/OPk
PvB7Jk0VjChFLn/0lUx9lWDbod7ULfsKkbAoVwfnpBL0t4xJVPEWoucqrwPt
w5Wg+l04J+RLARL3M37hGacEBaaMreTMAtT03dQkslgJhBR+bucSLUAqA86e
z2aUIHDXW9Djykdczefvyof/BwLCHS0Nk/dRbla9zPw1ZUiLanPyk7mLMhyU
PlgnK4OfYHswH9ddlCKdeONpljLE3FNRrfxyB8Ulu/Cyi5RBvNHYh15wB4XE
LU2OdyhDyIGhxm/EO+jYWdXaYbEDMNEmvxxJu414nDK92lMPwJ76kK2bUA5a
3cqz87/bB+AMgb76LC8H/f3oPRCbfwDif/CrBl/NQVPW2paHXhyAa8+zAsl2
Oaj/aJdeXf8BiNzKdJ36lY16s3j4P21QASGBhf37vbPQkzjdvs5jKhDRGvDW
JjoduaaLrHt+XAUu/3hoXOOYjkQfDCvn2qkA5cyNYXONdBTw6soFf1cVsF/o
cvg1lIaUZnoVhdgqECS5qiiKpaG7tqFBB2+oQDlXaSY3dypK2vly87O3KlCj
XZiz/04yMlSNx7K7VMCmVib+9tlk9Fvf3evSBxXoswmjkOySkfkJoSqrzyow
WhEwPLspGQldcXCfnlCBpVbeFN3Imyhqcrl0n4gqBCbu2UZjJqGTz/XNM4+o
Qsq1x5dpzgmozK5xzUdzVZArOflZRj8Bzf01LxO3VoXQBPSJZ2sCCia6S191
VIWgG9Xn7D7cQGdfXhkJ8VOF0iQnIeljN1B09Ycgm3hVaDDbMPjBLB6lvWbl
inFU4arStMvpD1dRn+uSpVmPKkQVfHhYn3kVyay9yBvbrwp1XWe4vdyvoizD
FJ81X1WhY1e6RsHvWHSnrlpzelYVlucZG6XEYlFhw/qWdkk1OHLzyPZVt8sI
teT9vmyvBmffFtl/Il9CpVs6WOHOarD5bX1IgsQldJf+dyrADb9emfdM7NhF
dGWN2eQJHzVwfhfjQE28iKx0F37uClUDsrii2o9vUWjsocnXV2lq8Lg34GVu
ZiQSvzz5YfGjGjj0zU/X6pxHvB+kTvz6pAYxJSU7bm8+jxZ3GnUPDqnBskRh
b/V0BBqoSeE0/lCDbuuv+k/yI9DDBdK7m4tq8F1oZXvk9ghk4JnUoiqlDqQ9
CjxDimeRF0WnystGHZwthXs22Iagib1S9SUO6hC8R+uJ5NYQxBZcbF10UYeM
fKHmu5+CUVjbs/7LXurgHjqGjrgHo3hL7eWHIeqgfAalNJwJQuXOWsSxDHVo
t4Yf8+WnEZEkaaiWqw5zllVZ0udPoxr5eZOQPHV4O3936fnh06j5a7md4GN1
ODbxpYE9fAr1+xBC9iF1kGvwo5VsPoXWBGlWeg+pw+ZsxVSuxEAUbbv5VelX
dahR+zFT5x6IhIizTX9/qEO3a6f7KiEQbf73tOfKb3w/a4sMTj8b7Y3SWMhf
qwHDXHc9l/5jI7N4da2fuzQgPDNLauxrAOKwxDD1fRqQMuDG+VwdgGws/xiH
KmtAQKLxN8OUAOQq8eT4ei0N2LaVV876SAA6naF2ej9VA3gmn5jJBPqjjAeq
ZT7eGrAo7t/00YyJmj66NWX7aUDtRvknxhuZaEYwua+LrQEtO4pIwe980WHm
X269UA3wrne9uf+4L/qrWmsqdFUDjD+f3Vng6YNsX1h9L3ykAfGvuY4Yl3ih
qPFLS4MlGmDUdA/LCvdCxbKVIpvLNcBpzHLtIxMvxB8hqxlerQFl9e0Hf456
omdGo+ePvtWAG3k36zr2eCKJ9jNbJ6Y04J/fgFhACx2RVx8qy89qQM80pas+
l478VPpJxxc1wD7la1xtMB01JIBnNbcm1B+CHwX76ejUCYGyOFFNaPyV2LGU
7IFyYohNryU0gSEoKkUP9ECtlcy+OWlNqE3L28oy90A7ZTq5nRU0Ic8vvMJD
yANxBtNMD2hogrDJml3Fse6IS7SN5qatCS0+BlJ8THekZLh68paeJqwpCUiZ
N3VHkXlu6atGmtCwsicnV9wdqXkrfX9rrQmhfDNFXPfdkFO609JaO00QLfzT
LXjNDV1pjRfRdtKEPoUW2/uBbmhYeVYjh64Jn0d8+hLJbujGn6rzAWc0oVTs
5sMd31yRX2c8zSFUE/54sQiiXa7oSIkbiXpOE35teDEVilwRr78At1y0Jnyz
XVrzLNUVhY1ZRbxN1gSVo3/Uqy1dkW3zHpcXaXi/MSuv3AxdEeHBX+x+liZk
qWIPwtRd0bRHzurZe5ow8bEtYd1mV0Qf+nlWuVwTTo73nXL+RENGNdVO0s81
4dGiu31sBw3tyL5hwFutCS9vTNburKOhfgetf5/qNWELy089s5CGKomCA83N
uF7Y5vqQXBpKlv5UVdamCZsfyE++TqYhi54L4dfea4K2VfeO+As0pFxh7Rj8
URNObz9QJhZMQ0LJe/U9PmnCpkTLuX/+NNRg2b6s91UT9l9wvyXgTEN31XL7
9/7QBIGLay/sOUFD5zedfCn+C/cL6zqQb0ZDem+lwsZnNOHgN6+xXhINST0e
t+9Z0IRPDl/ORxNpaO4qItYta4Jzyu/pm5o0xPFJ2FrMRQDPw63uKwdoqMTE
YymdhwDHmSd3Ze+joThF7b5ofgLwHbK4nbOLhnz5178IFCJAioebKvcOGjr0
7VOa80YC7DYp2FsjQ0O7G4pDDosToDVccaB/Cw3x5EXaaW0hwN3ogfvHN9PQ
UORxXQUZArRPtPQpidJQtaui9AY5ArjrTr512kBDGaTlxb8KBDg/fbj3pxAN
Bcu9/Ti6hwCG6UPmXYI0dHw1t7JzPwHqqosviwvQkMbAydTqAwTY8aWy9zEf
DW2qogTnqxPg9PWV1FxeGppIl7ZN1iLAZ5Mw2fF1NNQa8kv7ApEAZzIIL67h
/NC2ZosfRgD79f81X8T5knbigq0hAe5vc8nswtldkt5zkIJf79hx7TT+PNKc
9jPVwwQYNT07xcT32/Z+fYqsGQE2hXhvreSnoeUnA2cELAkgTr/pfgKv92NC
yYnZ4wQQTFvdQcX7KWdFaQ3ZEWBD5sOHV0RoKMn8hGSbEwFIc4kW2zbREOvA
vvlnrgSoVEL+a8RpyFRkpfsunQA3G/fbESRpSOnX2/J4bwJMH+2lV0rT0Gj+
qdOebHxdZ9UgXx7XR/bfwIPTBNg77ZgYvIeG6q9fovwIIYD+s0NVt5Xw/Jy8
tcU7kgAMe4UDq1o0JP5t+/n8aAJU5FfXqxjQUKTtgx9jsQRYmSS9fWZEQ64G
lc99kggwRrbvaTpGQ53FJIXCFAK01GbtNrPD9VBoiR3PIIDEjl0X97rSkBx/
nwMzjwC+J6w3vmPT0MC75X9+5fj+XDWFQ7fwfowuMoqe4/2VJLd8x+ejqly4
Y7KaALFCdHU9fH4y0rflBjQSIP/uoci6VzRk5wGG7B4C8BTmeBlO0VDLh6aC
0n78+bPPlG4u05COiYX4n0Fc/7Jzp5QEXNGWA65fA3/g+QwP1Nyr4IreL0RG
n/pLgNKIgJd6dq7IyEdoquwfASyag/7e9nRFTz8l2cyt0YLPb66ai51xRQmv
8xTPrNcCwStx9HNJrsj8auObIBkt2GGeR9/b6Ypat6/fGGagBfxhW/fK2Lgh
vYTEoJdkLdjXMVv5xssNFfDIDC0ba0ELgRL0OBQ/734olYabaYFAwKtbgjlu
iPrE1OqcixbEcKurCPx0Q3XGCSkXLmiBoxSv9tnL7ugr/UVbyCUt2PAxYKAg
wx3xRo+sCbyiBU0KZjLLRe6I2khguiVoQZSSybo1H9xRK6WPZHRbC260nJRJ
3O2Buqg7f657rQXhGuwh4zceaNikXP8ytza8vfdUoWI3A3Gb9Q5fj9CG1wGv
dlxZ8UJN1dYKJ6O0gdVNbSaIe6N45XduNjHa4JepkTWyzxvJiTSNyMVrw6Gj
fGJkG28EbWWjJdnaMLWbuDxf6o0iDt8Y66rWBqL1uNcEwwdxUam/JVe0wVlr
Ou1vqy9qqqhVW+bSgUDe4Uufhn1R/B4scJBHB0YnJ+8wF3yRHB9h5oGQDkQR
pq7QFZgIGhTmdGR0wHVM5WJpEBNFGK0u2hN14E7+rik/OT/ERSrnzgnWgePh
7DcnXP2RndG3lp5wHbBX4qj5nvFHTylbkjZd0IHBR+276Vf9kadpyO7IKzqw
st5qt0C5P3pnb3CYnq4D1eU85lw8Aej26YYkpSodyDJ+qnLAMgAtB887erzS
gTy+usB2hwB0PHzvnqx6HdiwWODiSA9AglFXKje060CX07eAQ8EBKPCG6cDv
AR1I74RFq6wAZFTYvaeSSxe4BZQPr8N/r2QV8U1P8+gCsyvOx+pXAFoo1X6+
T0AX0jefU4ufDUCFlWlHMjbpgq/RV3LbOhba3OjEOievC8byBdZ2u1hodGj0
+UEjXSi7oX7hvgsLwVfJqLNUXdj4rL7pCYOF0r5Tj1Yc0YU/rkbT+X4sZDqZ
/3mvtS5EXx44bRvGQhXLfjxCdF0wmPLUe5rMQjGS80c7o3XhXff4JKWRhZKa
mr68jtUFak9qWVIrC2UHpwU/ua4LHkfex7W9Y6HyPv28pFu6IEjhllvbz0Jf
s6OWj9/XhYPZLJ3QSRaaMj+eQCnQBTWzbsndMyy0zL13r3YRXu9ov8XLBRYS
d39jKVWhC78vfQzL52Yj8l7Rgr4GXbiQx9kXK8pGph+/QGuLLtgVXHWNk2Aj
2ytl3S/b8fuF/+qHSbNRwLjNmqxuXfC5/S9SUp6NsouzbV1GdUFu15+mQyps
lE9jTZqP6YLl3rS0bHU2Khc1vEia0IXFZQGbzwQ2aj85Wiw/pwui74/qyuiz
Ue+uZ8Zif3UBle1WlQI2+tp9uX/tP12wlu+sWCWz0bL2f/xf1xGBK1Ko/yCV
jfjH/mW+FyBCeLrEkxcmbCSW3qHeIEwE85R3o9JH2WjfSqDz/c1EyCt7d+im
BRsRHh+cvSVFhOAbnT7Flni/zpKxMbJEONq09PapNd7fq+flXruIcKvKwCjY
lo3c2VeP2CkSwVVLnKJjj/er4DRs8h8Rui5cZg07sFEY50AQUZUISeHLL086
sVHMRW4RJU18/3Vv5Kec2SiJ0HVHRocIxfPHMqxouD7f7uoI6xPBUe23/G1X
XI9DVI8JIyIcmv+lt+DORq//Si0NUInQr8dby0Vno7aCn/FvjxDBnfSI+Bvn
Hoeq3TXmRIgdhpxWBhuNCF9/WWxFhOWVbWPXPdloqtrlWK4NEVxYeaJ6Xrhe
/mrfbzgQgSatJvYOZ/4dPGcvuBDhYbf8V1NvXK/O92KB7kT4Evn+fBnO2yLv
P3TzJEL56v1hHh9cP41gzMqXCG/3LHDp40z4avLeKIAI3R8Vuh1xJifL+Gie
JMLpPzH2DJxNKRNcu4OIYHvs4hVbnG0XULJEGBH2cE47aODs/vCGEl8EEa4e
f9Eyj+8XYOf2ej6SCKoVxe13cBbJHhvUiyHCRc6MmTLOhV9Yq+evEoHIQlgm
Xr/J3kXZxnhcj7ysm1N4v998I/SEbhJh42W5Q3txjirhs7dIJYKFRpeFEa6P
/FxccHImEbSQ0X0jXL8aXYmUvlwidJLWkhQ92MjpXGa53D0iaHAyJH674XrV
7nzvkU8Ev7js7dm4P2n8hX/yHxPhekyqpQrun/ZRddGpUly/3i35ebi/7288
V9GsIEJbRoH0qiMbsbtJZiEviLD+2+cMPTwfG7c2MxEiwsl3hnud7NjoyN0P
+YeaiCD4rVP76HE2Gvvu1BzXSgQbsvQjaSs8P/+NfuvqIMLmrGb+VjyvteUz
O50+EmFrRYpV7xE2clkKNbzziQiX7nLUtfC8/8PWun4fIsLt38U9ZyhspNu8
KZs9RgSVTZEWd0l4XoRTqyomiFC76aZ4vAEbnT4m17/8mwgmXedCnYlsVNKn
LBW9RISgRUmxhxr4/7uJw4npQnrA+vBVyXsXGzWodZUMbtQDB9VddtQduH9n
7Dp2bdaDDVnzyoKyeJ65vISLZfXgpU3prLY4G0mIXYquU9aD5Gk+HiP8PHl6
QviegLoeaEZ4hsAyCx3LSKoz1dKDwMDNX+XmWejarjvcHzE9qFQpqbo2zkI8
2jWhv8z1oO9uUMyWbha6HUZJU7PWg69zdY80O/Dz9VX7szO2ekBflRDXamGh
UJNPs9yuelDev7dltIqFfjv89ZcI1IM1jKvf/95hoaHzGu7YTT1ofXTr2D9v
FtotIRIXkKoHS+DRFu3GQt753ypyM/VgZce47Lw9C810pq3nuacH153Y7tFH
WIh/J/eTpnI9yKgMuuivxELKDW3cx3r04NFTJX76N/z9Ynd/f2Q/Xu+umO0W
AwHo2USE9dNBPdBXfJsp/z4AkSQ1Hkr8wOs74/sn6HUAsvJMM+9b1APp/ctc
M+kBKESQke2+VR9URCw+2xwKQCgLmm9u14emfcVW1w0CEI+69J8GBX24cZqx
55F6ALpm32asqKQPuzu+G2TLBqCcQvWJX3r6UD2zZIMG/VGjKZf+GSd94KXY
e7bI+yPxxNTey7n6ILhlWYQUxUSC78XesfP04aP5f0/KvJmISzKu0f6hPuya
7nHgsWCiX2kXnv5Xog9y0uiYiiwTNdz2iXtXow+RP+82NjzxRUGl+mSpQX3o
CK5vFe71QZ/eDT18sM0AnIMynrwW9Eb3Nu4Lbkw3AKeSj5WhAnSkPGq7wJNj
AL+tHHQqRzxQxYvLZ8h3DSDixY+MD8gDNdF/nKoqNIBnjeESz055oLGXD9hP
qgxA+tbiqsigO/rPa49v9mcDMBkt22Ba5IaevtrpfEYBg4CEoqLtOjT0ir39
4J4CDJ7X2h3aIWmDsuRyZPStADysomfffVJGVWF/uTw7AOKYu+fXbjDD5opG
py50AiSs9jnJF5thKl86BzM5ALtEDwae2WuO3T1UUNPVA9Ay5S3a2GSOXZFw
iMCGAB4/VFzrzncMO15ctSrxGyCyUMxye5gVNvkl4l+9GAm2e1/zv6lvi+2V
ZE4MbibBs6wO1YZoW8zVxHZgSZIE6R5WDtXvbLHuYtVqVRkSHNnKja31sMNe
hg+HZ+4kwT7Yc60rxh6LkTRaOalJgsckxoBKvSO24zDfssIJEmyydmIt8tIw
jfeGndK2JDBVEj79YxcNM3aOeLDJngSJQcVCL4xomHfgotWqEwkMe1zIay7Q
sKfpPx/10klwOBbbJLOEXz/+1vnGaRJInyk4fOKbK+Z9LaX2300S8E0KreHO
c8fCJN+nzt4iwQ+SOi0fuWNxuZsCxlNJAKJv01R63bEnZVdkejNJYMTLs79L
xANb/hR2qiyPBN+1HmUxT3tg15Vpe3zLSFCcd6RtwICOPX2rGPuRQ4KWZgPp
sScMLF7hVd7fbhL+vjNR6HjDwHzO2NRs/UiC4Bbag5gvDEx+e/Ss4ycSfKqb
TQoQ9cSu+404D38lQf/LO0uSfp6Yt3C2xs85ElRZhW/Lk/HCjGkEM6FFEswF
BHJyVb2wHWVtXv8tkWC66hryM/bCehyWs/xXSSB59NSdIH8v7GChrcAMHxkO
Hy3Wi6v2wuQOiw8sbyGDyVErpShLb2w5q2BBdisZJtq6SBQPb+zDb7IYJksG
yZZ6q4+nvbG4NBb1/A4yrEs+TfBO9caWfrSXrttHhlPyJJJ+vzfWHXM5WoRI
BhrsIaTb+GCl/XK3D+iTYe3764IUhg92TeXZS3OMDE2eMFZzygcz6hmdTjAk
Q+3ERNy2BB+sZI+Rg+QRMtyXrqg/1+SDXW34pyLnSIZPO3PzW/f7YsAaVZV1
JkNpqaFtPMEXm9nariZNIwOfa8W9PSRfzIGVqSHuQQYz+8bxDmtf7D8ZPW1+
JhmE1c+2CoX7YsMNCjrr/Mlwl5K1xfeSL5bMWq+7hkWGsR+LOVnXfbF/Db3E
5ZNkKBaW0gzP9cXaWcHYVBgZOo/83LS91he7IEODX2fJUHOof1TijS9GaKSS
xiLI4Ju8peFNpy+WJbPFcCSKDI9EDw+FDPli/o3lxj1X8fqrrGpeLPtiO9lZ
lPdxZLjCljfbupaJ9chconbGk2E/v2DPUQEmBmxrk9YknB23/dq/mYltlJ05
WpNBBkEnuYrWfUysrrHPtCqLDNYt5x/WHWBiQexas+c5ZDDeNY6uazCxwcYE
i6d3yTDzXxczW5+JJbFDjpXcI4NM9psNIyQmRpV1tXz8ANf7Yt3Y0kEmVsJW
tX5QSAY33SKXvKNMjC4rdTzvMe7PGxleLQsmJt3EdeJ2MRkibC8splsxsXb2
9xPZpWQ4WC8LnBNM7IJsh03GUzJ+Xih9/mzHxAhNFbap5WRoqPrVV+3IxMbY
2XbJz8gwKZxFZLkwsWNNfg7xL8mQXV2nbe7BxHgDjzteqyZDwnD5YBiDiT2X
NXC6UkOGyxvjucK9mJhf0y7n6Ndk0N0Xl2nuw8TkA4VdourIYL9p8uW8LxPr
lp11Od9Ahtv3p9zYfkzsSlM/7WwTGerbO27V+DMxg8A619AWMgR7tjkOBzCx
37KFbkGteF6P73zxgcXE7jUlup9qJ4NfiFhZDpuJ2QWGerA7yLC1vMdcP5CJ
iWxzo/t3kkHlZ0niI5xfN5kwfDlkcF/qvzCN8+lANU+vbjIwm24pCJxkYvu2
SXvRe8jApSEXOoOvDzRxe7v1koGz/WncE5wTA394u/STIYt5w80YZ2njEJbl
ABlSdp5lFuP7396yPsh4EM8jlf53Eq9v38/0szrDZGi0192wDufSKqWLSiNk
cBoYK57E+9ONr4rdPkqGQQvPkSK8/1eupgmi38kQrnXn8UEm7rfm55R1Y2Sg
b7wqXoLr18EXkL3wE/fLUWzrb1xfm16uez9/kaE3R7GR3xPPT+GNwoFJ3D87
JDuL++N5Tv7Ju2k870L1ChVuTGzS4kll3R8yLGjtHzCl4f3vNKqpmCVDpuOw
xUsnJvZvjtOQP4/X8683ctUe1y9jrit+iQyrz44R+I4zsWS/6N7IFTIYcEpr
3hxjYrKkLUOnV/H58JeQpZsxMaVRnQmHtYZQs/5dbyeFiT191jJjts4QKmIc
j9QZMjG9WPslMp8hWNdubovFmNhhlXB+xfWG8Erz+pFMAhPrXCOyQUbYEB6Y
JQZ+U8X9fJ+1ecMGQ/D8Sf3L9x8T8w6pkZ8VNYQSX9MzrfJMLKZurf4raUPo
+uPt5iGEz9utJMOnMoawJuTOC3deJnbLa5fJ/W2GECyYKk7kwvMiQjlxTd4Q
XEVIUsw/vli9zRWW7T5DSFtVyv3+wRc7sn9r0BElQzihOad2u8MX46wUnMWU
DeHlSjRdvdkXG7ndFrtLDWfB2LWfKn2xNb823pvWMYT1gRVUs1Rf7ArKLRwh
GsLVdKZMU7wvtilB7ckHfUPY9XleTSrGF5PTsqqpIuH9hooEG532xbDzt3ov
HzIEKc/xjFfmvljY5m0b5G0NoXLh0SDjnw/WViJgh9kbwsekiaSzv32wbaaz
dx0cDeH18GMez1EfDF1q1b1FM4Qgb3b4kzYfbM1CCF3I2xDE+FzuHEjzwaJ7
P1TNhRhCp2shsWufD9ZzupZfPNwQbLC+0h0yPthesSJL1XOG0LYnNcJI2Adr
OXzph0+kIVxKaV5unvDGhKo0Ng/FGsK2KAfx0iJvLCH7hu+bDEPQ5NvHvK7o
jX0hhld8zzKEMFOViA1bvDGNHs81vLmGENHI5Ufn9cbeb4QUyMP1qLgRkTrs
hW25MFFb9sgQZn2ZG6RSvbAs98Nbc6oNIXdLn+Htf57YQ8V1LScHDaG5nfcS
1yMG1ilDWmIOG0J9kdzsvhQGtrwhXIkxYggL70+KESIZmOncTJztd0O4KEb4
OmHDwGZej1gaTBkCr97aGxNrGBg41H3i4zKCq5bqBw0t6FhPXOR02nYjsFJw
M63sdsd4Z7ilXjkZgfLITDQ9iYYtFKfEjbgYAVVPRfPyaRr2k3mAh9/NCJTq
m7Yl2tCwjm8Ok6YMI7i3c/y8owwNS+urqO/3N4JXWvORnbddMOVaJnshwgiK
Q48KtB93xo4nfHxz4I4R+IdU3Je3scfuq5SczfpmBO07xTx6549hiq75pivM
gzB4cH3xFklZrO9QZan1z4PwO/RVyXr3w4hsdtfm1K+DQLr1ssBl5DDKt7r+
L2nyIDyzqjrj734EhTh7mHD+HIR+3z58vo8i6VObho8tH4QdEv3bPjiZIZsc
r03mwsag27wlZfdtC9Q9JxVgcsAY6mTv2CUyrJHBMo+Et6oxmHs2/2Petkb3
uKdeXFY3hvU3p3ukPlmj00INfM1axkDLHWn/YnEcbZZnZ1PAGN725WzT0jmB
rI62tBtZGAN/bKtW3D8b1Hkn5D8s0Bh4vBru3KQ5IFGu8krdU8bwx2q758kE
B2TpMH2QcMYYVCwZHXK1Dogj7un0X6gxvH66zm9IwRF9uGh9fWukMdxbLzaQ
PuyI+hkq0/MJxpBB/Rkpae2Mvu4ffVpcagyRF2QSi/hpaHfMDlLhU2PQHn/A
uCtLQ/QRh7b75cbg99O7MkyNhr5ndH3Nem4ManlhrA/2NDQm/Eri2mtj+PfZ
4qzaIxqamEwP8uo0hqCDaU5eJq5o4YmFnvxvvB932x4lPzckpE1oF5sxBoXa
GuH159yQ3Etpl3VzxpA4jX1pue6GqHVfIr8vGoPR8f82TRa7oVTOqTePuSkw
88OA+XDaDenOptoRN1HgY6Zjyhlfd2QafHZcSYwC2rxPB4xC3ZHriuvZbZsp
YJb9puH3ZXd0ZZ3SbW4pCsS2KppN3XNHfZurfzTKUSBqetM61md3FEYYDrJS
oUDgiY2K50w8UPzzBkFjNQr8J7HR0OKEB7prUJChpUEBtYdnTda6e6BW45M1
0toU4C9LnOEN90CyJ3j5hzAKKJCFQ2IfeaDqM/tuMc0oILqzinmOn446l0QU
nS0o4MEGicNidDR67s9zc0sKpGoPzs/K0pFIzMsB9RMUuHjTReeHGh05pZju
/utEgWf+nGAjezpafcYuu+RHgaxbfOJ1eXTUz1saezuAAnxf7DDdIjp6bjVN
q2ZTwNTyCNflZ3R0cspfZO40BeblzggUt9DR9z1Mhsc5XL/RsTz5X3RUf6pQ
//x5CnzLFIiBWTq6XftTLDMS7++SUtr+FTpydPau4URTgGgaZ3pFiIE6kxlS
RvEUCL/evNNbkYGKRu5NOidQoGFKLc9AhYGuqo3WhyZRYMnByeUngYEo7e7s
Jyn4/fu9r7UZMtDLda5v5HMpcIHtOPnUnoFSLXNzDe5QIOffAPswjYFO5w6e
scujwBuMy+A5nYFU9J13JjykgEN5fIkci4HyTjqEc5dSoJ8yrbspioEuvE63
lH1KgU9mQXu9YxjIZWOfok45BTZUhHmnX2Ug6ULb7oDnFBAJ8v19KYmB5hdT
Cq++xPXXu04kpTAQh9Jz4UE1BZY1sj53pTNQ3JfjBwZf43xr0uDCbQbyUU1e
t1xHgV++XiuZeQxEPfe+T7KRAgcOG8gmPGCg3W3iperNuP/fBXKcChho7Var
GLM3uF8LjOi1jxlo0DPRyaeNAtFqM5yIYgaqLu/UiH6Lr5uYXOkuZaCgYxZD
1V24Xz9fq62vYCDrnPiK3vcU0B+QURx7xkBqE2+vzX3A/Y4qupb7nIE26m1w
F+2lQEWihKvqSwb6ddlUV7mfAi01v+6nVjFQy4drG00GKCD7qsOlt5qBHuxq
G/UYpMCfQ/ZxfxADXQwUqjo/TIEbGxXVvtYwkOurw4mZI7g/Le+PFr1iIGxD
rFflKAU0lFaGLV4zkIxjC/b+OwVqf+r+acV5MV9AYnqMAorV+yLkahmoe4E6
LvSLAo9sPGOP4PzEOOb13kn8+QHXJSxwjk9qTDGapsDWF0QFZZz9hnn9Xf5Q
IO4X/5Mv+PMOqxgfDJulgHJVQiMLZ67377lPzlPgyOFXn7/g9ZQHe1T7LFIA
ZJZS1XH23TYb4raE6/8kbt4Fr1++NkrLfoUC5MSWRR+8vx6G+MyxVQpkYyu5
Vnj/cUJ3i024qXDWPrKSB9fHqESdSV5LBdYPnqFLLxjor3Wtou46KrTL1TaM
VjJQ8d9jo6p8VHD6Yx20E9efnj18W1GACj+OWa+Fcjz/37llpISpIBqx2LcR
9y/m2o2ejRuoAKrtRg1FDGSgtuMm/yYqXCH4V9k+YqD8UBBZEKdCAs9p8a14
XlzkOlomJagwVLxe5BCeJ4l65+hvW6jgG9R21BrP2wWRc1wfZKhgI6fZzZ/B
QNpPRKrat1Hh0IigbjGe14kTWcENclRIueIrTbjJQHa5Vb/LdlKBeVA9+tM1
PB/GR4se7aZClH6T8uplBmoY6/fJ20sF6c/Uy6sX8TxpLI8kKVFh4KvvtYxw
BhJo1P0QqEGF8sAB00M+eD59WhJ9CFS4o+gv6IrP38mNduZu2lQ4Ilnw1Raf
z0Hb4OZjelT45xKl+u04Az0br3ihakSF6u326cGA+3uDEqRoTIXodSMdV3UZ
aCfhg8YOKhXMSj4knNPA83Bu7tHGI1RYK+/8e+1eBvIU1cyZtKTCh49XMy4L
M9C2ijqHb9ZUiKEJlqbx4vNpbyX1+QQVQvRLa2JX6QjyAhPa7alwsHJwVXia
jrZol0Y9cqPCCbUTF5I66ajR8YCXTyAVblVmhpVdpyNRN88XmadwP1gPCa8u
4uepZ65wxxkqVH4Z33IvlI7m2GKlGmFUWCdenbtEp6OdMfN/V6KocD1g9f0H
Ih1FlKKr8clUaAwptPIYwM/7ioWB1ylU6CVZ+At1eiDJKlXV2TTcT63ng9fq
PdDjxjvvbbOpMNwWKiZX6IE+9UdvU3hAhXGmekvkGQ+ky2deXFZJharP8vy2
fB7oktDlNd9fUOEd117fxwvu6N2m11bS1VS4XB9u/fmHO/KU0Vg8+5oKf45X
r+W8cUe3VLeQqW+o8NtDYFAwzh3N2A929fZTwTj5lAJa746AJrVb+DMVdBxu
V77/64Zi6ceCsCEqhOsWrm3+4YbkWXUyd79SQcDx77+DjW7I4tIDD+YEFQJ4
5+6kR7ihjNihiuwpKvyyOz+Wir+fv8dLC3b+psKaNSphpxzcUET61ceEeSro
eaS11mm5odacei6vRSrMFe0p0d7lhiTv/TuWvoTnzztU6YqoG3It0MprW6HC
foezFpWrruhxccD86irOR6TUG8Zd0f8AIJH7ww==
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3k4lO8XxhGSJKW0KAmVLcyQMMNzzGCmkkoqWxuFSERKJEKMfQbZxjqU
knZLKR5bqG8LskSSLdlDkq383t8/XJ/rfd/nnHPf93Muttq5mZ8V4OPj+0T8
+P9vuZi/2ekyTwx4OsFPImnDqFhEaYurUwyyf2RWGEVwhffDHEWnDMT/eNWz
EILjtPtsV0TnosMrc/OvEFyjcdFR2OkR0uANZJ8i+NraxeeLmc/QBf3HKYYE
J8QaGyxEFaPvha2xGwl+tDKyasbnJTrfpRM9bDiM6iIbmb8dMWrjPIguIHg8
WOyHd14FEspYmeBFsF/VI6U/mVXodYfOHTWCRQUOn/dKfI0mtiyp+AbE+TD9
8FdULTqlzxxgESzvnzxxMfgNGlzWs1mZ4MelVK1xn/+QvXWefRUaRm/0gl6M
OH5EN9t37ug0GEb3qZLXdz2qR1+epd49SfDElzMZl/Ia0PUzWYZt+sPo+kaR
nsnMT2hpxqeKAuowqn5htYSc2oS4jQX5UgSLWt1XuJjYjD5rxBW5U4ZRYqKZ
48+oVnS3/KHaCr1h1KmdyVIL+4yGuBmZB3SHkULLxD3X4Dak8XtKJ1yH6G/N
rZFhny9I0Uur74f2MHrL+XJxwPEbYk62WRprDiNWUsKbOFIX0haqJO0hDyNV
J2St+agLdVG/ImPSMPJYyvH1yOtGda5rlmxXH0b/jLXKxjN70bnNVlbhysMo
a+1XM7ZMH6pKe7DyoNIwMvp+85t6ah+KHVwiKq44jCKCW/ncEr+jEe3NjR7b
htH6Kh/6aNQPJDHe3PttyzB6GSvfFLl8ACVKio05ygyjE3bvzqiGDaB991bv
G9g0jHL4ZUJcggdR4vUZwcYNw4gEFXWDPsPIcP3c/T2Sw2hv6VKzfsefiM/I
7ex/gsTzRbvfUuM/0a/5p/BIYBhFyp78IE8dR2c/03TD+YbRJbsSL4vqcVT1
qzBi28IQMup3ry5smkC2jpN/JiaHUM/o19Pev3+hW23L/vV2DqGW6IhCtu4U
osRIvNHrGEJv1XWX3fObQpb6W1pZbUPo6cX4x21Cv9H0larXok1D6MbvvYt6
UtPo2QYN9Tt1Q0j2b3HqX+0ZVHHnG03/8RBak352fK3vDMpMdrBa9mAIiSBJ
IzU8g0Ytn3x+d28I/Qy4MHyCMYuaSfzSetlDqExwm175sTn0ZjF2/MGtIXRc
LLY10HsBNWdX/1zwHkLvV2gvEzzOB0HFWrFIdwg17lud9OEaH7yX3ldE2zWE
PoeNbU9O5YNaRM42IA2hPqFcI7UOPvjlV9crqzSEFv6uC7C04Qe95vNHY9YP
IeWx2el8KwHYxXekQGp6ELE+lPYdOSoIW95nD/TdH0TRYimespcFIabzqOzS
3EEUv/eywPAtQRh2YgXJ8QZRRo2abECzILAzXn02ShpERWUZNnkWQpCTULFG
h/Dx+8Mbjf/MheHWq783v1gPIlqMcXnuARHY7he/bduSQRSwt+Be4wUR4EWr
NEb+HUBlQvJxf6NEoLfA7ODYnwGkd43P4fA7EWgX5danjwwgzXMvly8yl8FT
5xnTouYBpEAnHTtKE4VYZ+XYyjsDSPjPpjHBXWLA+Rmt62I0gM6qz60grZCA
ulMBCY0XfiDTL6G318tIwHHD0nVkxx9IK3StPp+6BMg3RV+OOPkDCX7TOP/x
IPF+8qE+lYM/EC/a8a1rvATsduJTUCD9QN9Gm0LypFcBa4fVoT8T/cgq/9Gi
vPJq0PmWa3bIrR/tVzo7IcVYA1dLs3vWWH9HT5v8vN7orAe3qyY7Xyj0Ispq
5UeC/psgx7ne5310F3Kcj027bSkL5HvXxdd8+YLcan5oPtovB+Nvt4sn/mlB
4dbC2/6eVwCganNzOxuQfa2vA8lpO1zeP75N88dbVLF0wyEXK0WwPhT1QnhT
FerPVtvbdloR9krHvbJbqERiYERnOCuCTo6HcGNHJbL0dtsl76sIjp28+KG0
SvRz4PWGL6mKwGe/JEdwayXa/NajZ2+XIuQoZH7uU65AVyPfeSo7KkF5JLNe
nVuGSKsCEgYvKcOaXN72X7xiVCLSqlh7TRkCbX9sCrxYjGh8ai9zgpWh3v+E
oTYUI4ufX76djFcGK+lmknhnEbr8frdSyzNloE/7+PpJF6FXYT9fVk4qQ2iJ
vfCptALEFDjZzXVXgctX/DIdS5+ghtlCz6veKlDm1nA6j/0EWU+ICR8LUIFd
pC4dyTNPkEtXifJqtgrISG8xPrb8CYouk7rEeqQCee0vMu/ZPEZNPh+EvcZU
YLMExWNe+CE69Utf1ey8KmSJBp5x6bmLVqzmq2+6pArVP2u3ikbeRSUalZ42
fqpQIm7pskT7LlpzweSlU7QqmHqbpgpF5KK6AbO9QY9VIdSVasTUvYM0Ok86
PZ9She++I1tf38lGfG9u5Mj57QSdZRbBWyPS0IMfdOa9mztBIALQ/FQqshYW
HlGP3gmv7Dfwwk6mogJ6uKZ+xk5wlPI9VK3NRU5lsZXHKnZCsKPL1OPRJFT/
LLsrUkgN+pd1P071i0dZ6a83/YlSA4ZSgluGOQul2qq2HklQg3UVH/YmWoai
pI1xnIJ0Nfgy/yf1+8kQFJ1wStjjkRr4PnvpGewRjHyi53+O1KtBQ4J9eGVu
ADK/TqrqkVQHxe1bH85leyDBE2nnPiSrQ2zD2tE8j9N4UVpQYSdPHUB2e3b3
kzN4rs25MyJPHRzfs970DTvi8SM6h/e8VAf3rlqNIwcv4I79n6jVHepwgfvt
t7+rF25PFxT5ulIDWClfzBZeBuBn0XpfGs01ILV8cInM+whsxxUXKjmqAXqn
BzyOOEXi1Xd71LKsNaAye03nFYEo7F4RHuhmpwFpSt72/prRWHWqXUnMQwMs
/y1kmRuxcY6Vr7cxRwPeuKjHt/jH4sMOB3iqtzTgo8vLjX3VsVjAU/6dZLIG
OFyyi3deFodPRf63pSdTAzQf0Ax62XF4E5auvf5YA7CM5NWw5Hgcr/Bq7fOP
GmC8Qn2ijZOA6SQ2yvikAUt1lieyPyTgSf0z50JaNUA0W/h2lWgiPnhMrNTi
mwZUMFJbMm4kYrFw2zMTYxpwdqdomva5JBz8c+GpsjgJrvnWF+3fkoI1F+o7
Vq0mwcKDKPrjwym4R+S28OxaEgTvOyQUF5qCQW6/de1mEqz2lT7UPpqCFyzS
+M/sJIFE/DJl7wIuvlSifzDNlATdIy97ScppuNC6VqDtIAlE5mN8rlqn4em5
g4VrjpBAsNVKTyM8DV+lnNkYeZwE+skLj0Z+pOHrr8L7fC6QIOF+acP91HQc
WtbqbckmQa2GUvet4Qxcd+K0Snw8CZZctaJcX5aJRReHvn5MIoFQ4JTEyKZM
HIn+0RhZJPD5St84Q8vE7HKFFdpPSdB03rGpJSITp1RezJJsIsGzG/jkZ4ks
/MVu/vCBzyRQPBwXs1c2C29aclM4ooMEbtFJ4KOehdPpSS4C30nQvPpD7+r9
WTi7umzXxG8SRAoJnVC7mYX7zjAHVOdIsONzUA0nNgtvF2pMcfpHAvPC0yoF
GVn4rvH3xW/CZFDV3lMk9SIL59csf/thHRnGdw90vBnIwqMOt66JbiKD7d8l
RuumsrDa0i3qJrJk6Fi4YLVtMQs/YZDjSxXJ0Pms3TV4DQ8X1VmeyNclg4lJ
1mELKg//ceqRGNAnwzPZj/QHxjyss+x8lTyNDJiZmlFnxsMle/wVuXvJcDni
lTfjFA/jt7cnw2zI8HrLg1qXAB5+ur7+ot9JMuxmmAidDuXhHIe5cXd7MthR
Pm2Wi+bhcIEDP4+5kKFirjlehMvD1w5evbDPjQzHrzfuV8viYbf07FEDTzJE
oPoE2VwettCbGd7mSwbX4Y4ol6c8zGDJuWzwJ0NktEdCdTEP67WYDokFkWF1
l1Tf0Cse3uKRNfArnAzbFpOWZNbw8Ory/xx/RJNB5uZfdfX/eFhQfLq/PZYM
5srXj0Z+5OGhe3u/V6SQwZjebfKklYc7/lw6U5hO1HPb63L1Cw9/NM7ovcsj
Q67KVwOJbzxcGffGLvUOGRSbOsa8eni4oPtXd0weUe915N287zycqy5zOugh
GZqtNZIfDvBwih+z6/JTMrhMiI7dGOZh/w1pncdLyCAf63E1cZyHPRxrjx8q
I8MjixDR9kkePlM40WFUSYYZVmfByBQPH1uyyVanhgxaEWW3P07z8N5DJl9U
3pIhqficaNAMD1Mz3K23fCCDpbO8xNI5HlYfTWlb3UiG+4tqfTbzPCxHeW0p
3EKGmk8fn91Y4OE1YT9bZ9sI/2l78r3/8rBw64Zjo1/JoHyvcw7+8fCsglFL
VzcZvtp9etdO8IjHhSNN38mg9s75gMkiD3eWJzXVDpLhsOHAoyCCG8SrDr8c
JYO/TIx0HMHVtqONDyfIMIR5+BLBRXnrzHm/yVB3w+GNIsH3Zgwbbs2S4UD5
ZodHxPmpJucPhv0lQ0Hr8ioRgqPjEz5e49cEgYzboSSivxs95WbuQprAGGqM
3UH0f0lj+L39Mk2oSS4eGifmdbi+dv+xFZpw7uaS8qhZHrZ6h97tXaUJa246
0P/94WHTjc77DNZqwmN39m0aoZ+BU/xb0gZNkJclrbMh9CUVle3ZtlkTLFxm
6hiE/gqCg3Xrt2qCsnLCsAjhj5S5JFNsmyZEaZU8Sh/l4WWZ+rWLippgb7fG
ZBnh58Koo8kvVU2Ij7D4xiT8HqPEvu7X0ARhlnL+cSIPTa39Ve91NGGv9bHs
pUR+aratoldQNWH42wr1NCJfLzwplQVA9J+04YnIZx5OX8ku5zI1IZl/3Nqu
nofPMXRLz1lqgoR5U9I2QtMxxQ2vn9hqglcNNWFZCZEf0dl3s6c0wTpbTris
gLhP7593hJ3ThPTzKruS7/Ew+7DOwj0fTZiTikvYwuHhtbvWC05e1wSje8yx
qHAin1Izy/WCiH4PCt39EMTD2W3F0m8jNOH3Y0vdOi/Cv5O7KUOpmnAi5U0y
7xgPUwzX0clZmmCTt6Eu7wAPl8v92etzWxPe+swxQhk8/OZ7kbXoQ8I/TU2t
Mm3iPrlo+yhjTXjS3hOsLMnDAt67Xjh3a4Jryx49zeosHGq1tuLpd00w4C8O
TyP2mRjld93cIDGfUd3yrodZeO2/gs/hk5qwfoibOJaUhRWDtWbylmiBtE2/
io5LFj7A1tw9vE0LxgzeSj8VycJNFyWRprIWxDxuEXo1n4ktD/8y8VXTAuvG
Gn7eWCa2k3p2dPluLbB7PrNjSVMmvpxKvqzC1AIHMdKcbFomTr1LKnRx1oKm
avuN/EqZuK7Nvi7jghZETDAH1Tdm4inRhC+fPLRgR2/CJ7Q8E+9zneOn+mrB
AxPf/5a2Z+A5UpWZWKQWFE43dZqcyMBWLy0G8h9oQeyhCvkfNulY6sMV6bFx
LVj5za38h1oq5vwqveF+ZRf0MPx+rz6QiC80sk/b+u4C0YiRRWfFRGz6xN6Q
6b8Log+GKN3hT8TCbsv4ZUN3QWUojVb7LAFfG7II+JiwC7LvbrYrk0rADt3D
19WKdgGl5sTmj63xmPpxw7WRqV1wf0EsdpwZi/vzvC47eWiDecMyrU3zYbja
JDYpMHA32ErM72ycssDfHV6+9wnZDaw3Sm4Ce8yxcGifgGf4bhhYLHo3RjmA
mbXarvaxu+Hz6vL7AfFG+B3ji6ERbzcExNjoDX+YMvjEVBgWqtwNzIvXz5fY
HUE9e4v0w/h1YGSz995YazfEf6C9JyZAB3S8yi84ZtxAdWVH5C8F60C5dPF7
4cEbiK3WYG/J0gENenu4BzkQyYrX9cmydcB6fjr3QXUggveF/U8ydCDiVPmO
u/1BKGAfZ+hTmQ7c8jVeaSsbgviYzMl1f3WIv/fzl6s5haO64iryAp8ueKZd
rA/LC0fsHcizS1AXSFvzDtiMhCPZpdpTd8V0wWP7CjvkFoGgRn5ad5Mu/Oe+
9bKQRyQKMFqctaHogsS+wmNHXaIRn2ERf+ZVXeDKi198sZaDrI1+vP3spwuc
Tn5ZoV0cVMBYH78qUBc+TrdTd1hwkJOZz/agcF3wCrRVGeNwUIONwT4Hri4U
fb3yJnB5LOJdrolXLdWFH8f7ve9Mx6KFq3+On63QBZGGtjiGZBw66qe4I/21
LpQ8VH/zSj0OiQaHv1j5QRd2jG4dk3OKQ54cs87JTl04t39evL0lDhnlt+x4
wacHo0dUOt7cj0fpj5ZOTAjqwU5j3d1nX8ejmac6JcrL9ECiJcazsTMe5b9I
MU1dpQdJyPGI3KpbaG3tiYv+cnpw8fuEXILnLdTf3V9ibKQHxhvFVlaoJyDW
uj/7G0P1wGUDv3dpcCKKr6vrrYzQg2DVvnTFxESUcTXl6rMYPdB0b1nifC8R
FX3Rvx2fqAf/lHdbur1PRN8zgheO5uoBtK38GiiZhGiKq+9/qdGDH+6HBioT
k5BZWy+8e6sHMn4nrCJzk5BVeGHLqw96YACFe1SKk5D7iKVAeosedEVGew82
J6GMxxlWp/r14GGeVMXZVcloQWenyHchCowGH10tHpCMRIb+pTUvo0D9L6XI
+chkJMmt16xZQYELX5+NlyYnI+W/nidz11JgNW6NqniajKwqSorObaOA2srP
2dU9yeiMR6SptRIFNHNb/1mNJSN3+RM9e3dSwHza4Xz1bDJi3eQXV91FgcVj
W+PWS6Sgoj3Ms2NGFGBe80sp00tBlXMb5juZFNCV9Vz71ygFvb8/zP5oSoHE
4oa3EgdSUN+KmFePLSjw8UTRTLFdCpJsbJb0PEMB655bI0KsFCQTlHvP3okC
05f21YyxU5Cy1lVkcZ4CtrvpAg+SUxAtYZPLrksUyBv8XnAvLwW5W9tX/gmi
wI1j7uyctylIPGOoi8qiwBKR4NK2xhSU33tx8UYkBcbGnot+bU9BP84HUMVu
USCIv0/GbCgFBT9ZanMomQLjf1mTLydSkNx09NWENAqYNeYv/plJQSf804pk
71DgZM6Hb+3CXLRQpdB8No8CzR6++MYKLkoRyf+V95ACFSWCk9OSXNTMKdHY
VUyB65ai50xlucg0pzVvTx0FjLUvHswh/v8bGjjxJvodBaQoHO8yChexdvb/
+FRPgXMLzO25wEVVRVMKJ9oosOnoV5W+PVx0at6Xnv2VAoCd2DpmXPQPLbEb
6Cb8DBmMszHnIr03qzI8hijgXK/IWWHNRZ9XJJcWj1Hgr3xCYupxLrpsLtux
MEmBLVeOHp07xUVrEnPnDP9QgESu+LT9DBc9+aK2IXSeAgmlO6XkHLnITLZo
97tFCjy68Ut+5BwXjZzRP7pKkArCfsXStue5KPxe9aWjIlQoiVSYSrrARYpj
++K4YlSoeVr7Icedi2rIn550SVCh55d5tb8HF525Yl2/bS0Vai28R5UucZHA
q+4x5w1UUGsftMv24qIMvnMrHm+mQj3LSn/kMhdRjcdVfm+lwtmzV28JenNR
e9iVvXrbqZB7aT5ohGDvD/+c/JWpcOAlZ2vOVS6SkgwJrVajwhqDsRAVHy4q
OLbizjJNKjzmr3oXSLB5any12W4qdIhWLs8jeLxLujeOQoWDJ9JsswiO2pbN
34ao8Jpv6WcngpWdlWVljKjwe/pxAh/BdQ+fGNgzqZBovP+JE1HP4ZfO8bum
VDgzEQVZRD+COuW+owepILWocDzvChfxrjFSyEeo4OBZvSWYmAcqPjy/YkWF
5YdlstSIeTuFjra+Ok4FzOubvefJRb57v/7mt6MCxfENbfoiF62PObOG4UAF
ndvX4yUJPYs+DZMjnangerpoqQCh96TtnJuUJ3G+o1ehOeEPO+tGtM0VKqSW
nNpa6MBFav0iDzJ9qTCWnrBq0J6LnN3WDSkHU+G/nXndr4k8iBSki7izCD+6
hycvEHm5M7NtR2EkFSp1YXjwKBd139A6g24R5w0M/DpygIu2S4lHuydT4dfH
Lbes9xHn5f0ozkqjwuyFLTs0GVw01ZiyXPAOFZ6vmvA5ZcBFuo6Xdu3Ko4KJ
lr9LoS4XXZ/ff9LhIRVUTc3yOrWI+gr8z+qKqHAveYf7Q2Uu2v+8vWO2hApr
x0a3HdnGRbGmBcIqmAqBXq6h9Vu4SNrL0TqqltDPRuK+8Rpivpr3/OafqeCl
ob5EdT4FeVrnqgR1UCH6nchtn6kU9Hws4EhBFxUWpCIfpI+mIMN1WvekBqkQ
MLX0oOO3FGThlHLwyywVqm/InPtbnoKSFzx9xP5RQR5iPsw+T0Gd7P05+gL6
EKRhPFnyOAU5vuCbyRDVB9ebNi1ZGSnIR9Qx44y0PlA8snX8fVMQToc3t7bo
w2dDmb8rPVKQoObGXzXy+vCGtH6Jt1MKirJ5b6Kkqg9saorDB4sUlJmvOTZK
1Yc1QaacJJUUVGvGp3/lhD4wFtdmVTYkI7HeNoe7dvrA8fN58fl1Mjp45Rm7
zUEf2ulZJ+teJKP2DIc+ips+7PEwGdDKSkZj4+8i+AL0YX3HmXGTC8loTVxy
e1iWPrwVT1/qxp+MRJslGzxu60OD96qabVNJiG9ddK3NPX0Ie/poZWl/EhpN
CSzY+YSob1r5Muq/JFTDc4luKNeHEumkkpK4JOT9VJ+2oUsf2lCN63GZJPS1
ofveXRkDaPses3JhUyJqkrTN5MgZgNLK/H9DyxPR2yMtCT7bDcAufMyjbC4B
FbW9DTJVMwBJja7rkp8TELv72fFxfQM4s2+vhg8nAdEmbq7SOW4A1Vbtx6wX
b6E7EspXa7kGIBg/9tCpLp7Is9WMYKYBbNyb9fTq03hU/DLsCi3HAO6zfn12
S41HdQ6DXqX5BvDBWn2vmHs8Gnp11+NZqQGc9Fw1ICoVj3ae23E+4xvxvveA
FfN4HCqoUDh5RR6BiKWsbmkbB1V4bDHecR9ByKH3xt6qUShdNnOTvgVAfFRt
vsNnf1R6bY7PqR6g0aGubI3qETT9qH88sBGgslX9qZjTYaTR29iV1gTgNOcs
w8o5hHL23C//9BlgvTpWVjIwReFStgGoG4DZYH97jwsVHX1cuig1CaC94k/L
fRoF/+wN+Pda0hAEI91KjERP4637li7IHzOEbIMfAm+vemGtZnrjRitD0J77
qh3Z4oVNTgbcXWVjCNLDZYkrNS9jZ89Zi8UThrBJwETIcvgyLuAOP2h3MARl
qcTYHktvbDLy8STnsiEE2xTGXN7hi52jkqr+3TKE5/wPGnnGAfjauubk34mG
kFvDo3m7BeDorFXuI8mGIOVk8WRHcgB+Vhi+qT3NEM7IC/RKjgTgha/XvApv
G4Lpox18m9k3cIza6R3nCw0h4FWqw/v6QFzwUSmirckQlPIoYjc0b2K2fMXt
uRZDaA2eUba2uYldrliWS7cZAr3J/CJf0E0styX09/GvxLzO0+nPGm7imAt9
J3u+G4J+TmLOw/Mh2HlFhtbwtCEsVGlG1yWFYtl9azoX1tNAry1b0P91GF5I
vz+zWZoGHY3xa+36w3DrJE0SbaaBUUlEh9jScBydcpF5YysNGKEuG18wwvH8
4IenQsrE8/A1u8/VhOMWVlioOIUGss/X/RV/EYEja/5pyB6ngXiDgeA9jygM
F/tJm0/SIPFTxduU8Cg8Jf2BvPE0DSjXD9pZ8qKw7cU0rTVnabA893audkMU
3rmJqiPiSgMf4wo+P9Vo/OHiVTR+jQb6efuTN7VF48BNp2H0Og3Mvy1Elo9G
Y+1apuFQAA12ri5XWSsQg9M3raf3BdMgrlBjZbdSDHarLTL5HEmDx8qTMHU5
BktsntpfnkoDreHVYkFL2Li69otZaToN7p2mbFwuxsbeHlUHSjJpcFJWW997
DRt31cYeKsgh3ueyX/FvY+MnHqQjd/NpIBlq69dgxMYOmzccvf2QBjKQIh5o
ysYb6/iO8R7T4El4SN46CzYO3FxvmVpAA4VZy78TdmxsXnfBlv2KBqUUp2E7
fzYW9jx6PKqM6O9G2kNKCBuXbDY4EV5OzM877jEbycZynitOBVfTgJp8flo+
hY0nN+fbe7+jwZwN873WMzaO8xx0PtVB6Ku3MsWoi6hv4nPxcCcNpgeN1A9/
Z2Pe+uXeJl00OOH/tZQxxMZPS1VvqvbRIPSYe2XPLzauX+qeMTNM5CH1PqNL
iIMt2/nuDI/SoNY6NERGlIO78jn5nT9pMPJ7dyFNnIN/Hnr2ovoXDeilB79S
pThYPHX6E3ue0N/tp/aMAgcnXAhtD/pLg0sTfJ/OKnLwZsP13ZcXadBrYnXk
hQoHq/brjtkuoUPdzksC/SQOLnj+duqAEB2+HIgta9DiYGqEzTxtKR3EzOYu
Ze/m4H0afiJKy+mQdZY+PkPl4EYB8ZWbVtDBgzZZfQ1xsHVz+tqVK+lADQx5
1m/Iwc4+5XK/V9OB82Tu73kTDp40PaQ0sIYOYWfungtjcvDVLT3qX6TocIi/
VTxyLwezqpfoV2ykA8nffJuRGQdLJMbTCzbRoVDe9c7sAQ5OPLdtb64MHfp0
cgJuHeJgGWrRwRRZOlzK7Hy57jAH3xFnHIuSo8Nm6pJTARYcrNbdejxAgQ63
RmcufTzCwUXPnM54bqdDbMIdAaFjHGwQMuvsoEiHN+t/SWy15ODXluEXrZTp
MHnkda68FQebqkh7m6rSoVpd8KOYNQc3/b1/HanRYSo0IbqDYNt66k2yBh10
wX4s1oaD+3jvI7aR6bBX79C0ui0Hn/c6Ebteiw4dxxgPnxH8i/Ezabk2HXJ9
VGVkjnOwz8aAjH+76XAq+Md+N4IFRiXuTOjSAR89aZxLcDjOyu+j0OHqJx+x
GoJXxZKfterTwbhD9v5/BCedqXrxFtGh3VxH6TnBsrstyksN6TC6/m50BMF3
l32veUyng7bEsV5jgjU6vN5nG9PBeaOq+g+in+cPhZsSGHSADeI+bgSjG4nt
YXvo4DbW+18nMU/NYcXua/vo8NA3XnUXwWbbX/xw20+HJzzhHA9i/paZPWN2
B+igYbxVL5HQ68R/7VNHDtGh2+i/aR6hZ3+ayzzzMB18g4a7bxF6u7ov8FOP
0KGgx2mJ+1EOvrZWZqWcFR2+hkktayf8e/9kmTWyoYPMaNzDPeaEv2a/c2yP
02Hj7MSB1IMcjEPe6SWepkNg3p2HQ6ZEPuSf3yywp0N0hmJAP5GfUzi7vuEs
4XdHt9drIl8CMz4OYs50aHx/cFrViIPN4x2eKJ2nw70G0q1CIp/ZGuYLJhfo
UPIqM2ArkV+jc0qxNzzo8P7H9bPZuhwc2t5aOu1Dh4sjKTcO7uTgz5erRNb4
EX4G78mYUuJgRclHh0n+dFhC17S+tp2D3+4LGXQJosNbrcU3Els4WKxUa213
BB0ui+d/bSbu63Er2VP/ouiwe1uJ1g3iPj/8vfy+NJv4/utQiYQwBx9Q64Wj
8UQ/CldyOhbYODaDc/6/VDrk18ZsVB5k416KX/FAOh1eJy/dMNvLxlqfnQSE
s+gwPL2jP7+TjZslIAlu0+EkYxu16hMbrw8cqyp8QIf+Xw5CD16xcfqZfdKZ
ZXQol8z3Dwlj4598ux1Ky+lQZXqz4n4gG0Oa3JP2Sjp87lu9qtiXjbubZ03W
1hL53iGuFODKxgqMux7hH+nQktvm3HmAje8pCb291EXsDw3nux0r2bhxk+G8
aw8d6h+tml9YysYLK/1UHfvowPcvvW4pHxubTU9FWw3Q4R1/iHLJtxg8Vdl3
2GCcDsWdGl4SaTEYbKu/LuUzgiuv5Uy+rozBn6ODJlK2GMGrSFHBn01RWCAQ
y8VvNYIp2dP5kzgKq3jNH46SN4JNdJ5CfV4Uvm7jWeS/wwhibR5qbwiIwgqK
9r5n1I1AeKlX6YBiFHaroAmpISNov/VbN8czEgtP8W+oOGEE8vzREtVj4Xjm
cVJ03ykj2PY1snnXp3A87KouKGJvBEylZtMbxeG4/oftTzNHI7AKCdS64x+O
U74Uv+5wM4KGAMn1auLhWK3K1WMmwAh6tll2HFcIw0dj2/5TzzYCf/17vdW7
QnGuxpPr6T+MQNZbOGYzXxBWsssz++tqDP/c3fwO3PHEX/a8eHpk2BhWR9xj
/5epjxuzfXYiTxOwCveKv2HqjlbzFb3Q8zIB5ZjtcS0R7uiw7YSx9hUToM7t
fSrwnztqWuN0YqevCWwv2zvYybyIWm8eiZEOMgF7h7GvdJoH6nDUmPgTawKm
1+e736lcQt9V+gsePzWBEyoODfs7rqDtrK2G+QUmUPcmabFkrTdy6LN9n1tE
fD/vozNt5o0GUj99Ty8xgYX47sLmcm80tKJCKqrSBFjCcJDEu4rGfnK9zzWa
gJ7kzQgZG1808+wQVW7SBEL37zkxmn0dielof5CcMoGGosGUxObrSPbVxlNC
0yagwKfAWrbUHzGre4MGZk1g493fbvRz/ii5yeu/h/wM8HdJ9XNYG4D0fidb
U1YxgC/i/cGc+gB0TbvH20KDAVEPyF9eagQidkmNqAmZAdslBIZeGAeiHIP7
qbu1GCD/2Hk2yToQvTO5VL5RhwEPok/VzQYFos3HhEW6EQMKV+8fpjcHorIr
yomuBxjQweU6DVwMQovPPQpDLjDAojPLtjc2GHUIP43guTPAULpgz57bwajE
YuJ0mQcDWhnzRaHFwejSuJv49GUGGIl334v6EowGdrg6nvVngNVtqXUvt95E
jQmOG4zYDOC2LZ0yv30TPeq78/NkLAOsN2xhiRfeRJHk/te+8QywNxiKyqq+
iRgfzng8S2LAgArvzf7em+iVkN1/clkMSNGv/FcqE4JuX7L143/KgPNBEnt+
R4WgwEru4c0FDKjmrc+W54agUxJflHSLGPDYa6Rd8W4I2phv1eJewoAipb9l
xRUhKLr3qHpXJQNue44c6Z8MQS6kBKGFaqL+Z1/u238hiOnf/GVdLQMaW3su
3RQNRUukLVgH/mPA0RT9sutbQ5G3+aHusk8MaGk5cPf6/lB0JJNd3N7MALGS
12FSlqGIPPYxarqVAVJbthQG24Wi0TAzPbUOBuyyC6zuvRyK7Cr2xaX1MeCm
l1bV/bRQtE/DxPjabwborY9XsukNRXzNzfyX/jAAf9i1+91QKCq6erbMZZYB
YeVdHusnQ5FcVfBum78MeK7GOErjY6G5I1VKekJMkK1+4uK9kYUez5n3k5Yy
ocpmBylNloUcMnp4SsuYEHW5d0PadhZqHODftGEFEzz5N7qqkVkozxfEZ9Yw
wXVxuCKRwUKnZOvf/pRiApXOvyfBlIWkXp8M/bGeCb1ZZHn3QywUKO7P17qJ
CQm+TQOF1iyk80y89IMME6Jt9bq2nmShsWPpV2tkmbBbIZd2zp6FrLNKJwsV
mHBZM+BUuAsLSZjsf/RgOxNmurp3nHFjoZqhDpfbikwQMtzlscGThchaC33x
qkyI7+PmSvmw0MDniKxINSYIRuekn/BjoXQ/6RPBGkxoLgzTCAxgoWW1eq2e
Wky4YtpEtQ1hoTKXt3Eu2kzQ2qpetTqMhS5JWB+012HCTji0kBPBQsqFg2I2
ekw4ZrtrbHU0C3VZXX1jTmXCXcWWdFs2CyX8EwnZa8CEdZZqawJjWcg0O4lG
AyYkp+lYBMWz0POR4pckIyY80TYz3ZDEQhc4DG8lEyaQx80kHiazkIJ2q9ZW
JhMyIkaKZLgs1N7uMLF+LxPGXm41cUllIbb/9AMJUyZIaQ1WxaWxkIlCiLOI
GRPEcvW1k9JZaKFu7Q6+g0yoqd2Q7Z3BQk9db/f+OcQEyh5viV2ZLOS0elfm
z8NMONV5OPg9wTLF1bY/jjBBVS9XkJbFQk02Fhu+HWPCrZWuibEEh/P1NbdY
MSF2VSYNE0wEP/aDDTHfLz2xOoKn9yw5UHOcCdKOOnP5BOePxS4vO0l8Lxu3
+gLBdnFydYWnmeDbaGyznOD1Ok+DH9gzoVJ9X3swUf9Dh6Hh7bNMOD2cdqud
6Df4RsPfVEcm7H+uEydGsN720yXx55hwfY9U20ZivvG345cjXZgweIjkKkTM
f8ctQDPYlQnBwcFH3hF62a6RGPd1Y4JxvGiSWwoLrX6Rke95kQnyWmV6Pwm9
a4+rn3PxZMKadSn0fYnEc3unl2leTJh833bB9BYLnXDKWlF/hQmzx76Zbo0j
8u3aflLAhwnVC/Pf3xD+TntIPtW6xoTRJTdoJoT/NG9TQcfrTJAoxM4JRD6i
/G4eTQ5gwptjyxxLWISfrD9zf4OZYMcW+OsXyELuURr7NUKJvBVa5G72Z6GX
secy7MKI+zU0bcLxZSHztC/02iii32z30CkizwFPcSQ7gQnf5TZP37djoXfF
M52VSQSnftIcOc5C60pJpN8pTCi1P3OPz4qFHtZmN1tlMMFq2ur4HTMW+toR
KiN/lwkkwasN33ezkGJPufuRPCY0vvheVEci8v1jtjI0nwmbZ4ukAlRYSGzS
xXHkMRPkNN85nJch9F968HHhCyb0nLtNogqwUIhYmMDASyY0GG78VDUXihpW
VVpsLGOCSZcfSfZXKHLapDV7vZLYJzFHTY4R+yiRtJ7G/I+YL4z0AleEoh7t
Q/E+7wm/nPlUxp6HIjVqeH/+RybUmzFTJx6FohqThfBVTUz4hljpV4j9NmXT
9am9gwnvkvJFbxD7D05v2L7iG7EPzu04bXk+FEU4mHujbiZY+NyeFST2pdzF
6k0534l94Du+qtM0FB0KuXvWdYzYJ+9v17FlQ1FqRHdxxjgTDl6SWS+5NhQN
sDeKNk4y4VySwojzslAUwI18qP2HCRsuy9C5EyHoXeZrvnOzhN5lBS2e30PQ
ujv/zLnzTNiRvVlCri0E2d3fffv9XyZ4Oef9uf0uBD187P5ncZEJZ23zby3i
EPQ/plpduQ==
     "]]}, 
   {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3k8VN8bx+WLNkm2sqZSIWSQZSznMZaZVFJUsraoiKyRRFnHNoZsI2Qp
SaUSkogjhIgkW2RNksqWPcvv/v6Zeb1f9845n8/nec4z9+4453L8AjsbG9sQ
8fH/753Ry/fTJF7orJeRysyX6sev1slsv2IfjZy4k70LCH7r/SxL2j4djYdR
KM8JjlMdstrEfIiOB1quPiC4RtHtEpf9c3Ty684XLIJ9BVeLVzMKUJlPu3kw
wYmxBjpLUa8QTbdwzpHg55sZVfM+peg1/yLTmOA6Rgtt5hJGn9q+b5cjeCKY
+4f347fomOPLJxwE+1U9l5nLqEL/XmUrd+7qxxvYTZ08We9QTPpccTbBiTD7
7G9ULWrhHNZyJXjXrTuTbsHvUUDT8woVgvPKtFQmfBqQbU+swfTOfvyeHPT6
96WP6JlV6ik7gp9o8d888LwZ3YvX+SFA8GS3XfrVx59Qfeakb8WOfnxTZN3g
VMZnVFYfgNcRXP369H9Kqa1o47Mu5weShJ7TT6TcWG0obkZTRptgFsv40nhU
BzoJm6utt/fjXtWMMIXwTiSwcTl7WKIfS7VPProS/AXxvR+9c5ngPIGE3798
ulHz07LC8+L9uP52t9vIpT7k/x/XgIhoPw5LSnwfR+pHtseKL/qK9GM5e2Sh
/LwfheWd5voi3I/d196+4f54AJWTziYFbevHKwYq5RMZ39CANE02TbAfZwr2
GMdIDCH1UbV7nQL9WP97SN/+1CE01MWpw0NwZHAHmwvrO4IvysOX+frxtiof
vT9RPxBJ+a7oKE8/Lo3d1crYOIJOmuu1LW/qxzbnPtjJhY+g7vqiN9wEZ62R
oDsG/0Qb9i4Li23sxyR4W/fT5xeSevBBcc3afmxUttZ4+NI4GmLXamj414dJ
q+dmhCbGUa7Ld77dC32YIWnbtEtrAnlEnFfxmO3DV8+VeJpVT6C8XfQtYxN9
WH/Ytfpl6yQqMV9l2Hzvw4N/es56z/xFlY4JR+Q/9OF2ZuTLGI1ppKGp/6yt
rg/X79dY/8hvGrlvdxD1eNeH893i875wzqD+W2V7o8r7cMCM0SpZaBZ5C+w7
q5PXhyWXX6Uuq86jU/v+iCbd7sMCaRcmBG/Mo5L3r3BsVB9eh/j1FfA8yvp2
515geB8e93f+ZUNdQGXfDitRAvpwOcducsWpRdQdtq4FXPuwNXdsR6D3EvLj
fNyhc7gPN25SXc9hzQa9bQ8GqUu9uOUQX1KTLxvcVGw2oc714s7wsT13UtlA
eseGMu2pXjzE+VBf4SsbXIlWzNg80ouXlrf6m1uugcR9gxy0z71YdmxhNvc0
O0i8zR3iyenFYU1lQydOcgDXqcChLYd6MZM72UPSiwOO53sKLOj34ngjL/Zf
CRxwcjGxpkOnF6fXKEj6txEs+uPtDaVeXFSebvnYjBOE5c3DbIR78fdnAS0r
x7ng/NixydjvPZgSbVDx8Og6yI96qdxwrQf7GxU+anFeByV5ErwNrj24nHNX
3HLUOni118ewyqEHk33ZLpp+WAfdAcy2VMserOxQunGVth665r9wz+j0YCk9
0qmTlA2AAu2sdTh6MNec2BjHAW4YoDPczMO/4gv7FzeRNvFC+2iMX+3Nbny4
O/TBNgle2H0chA08u7FKqKA2235e0Ghb1Sh17MYcfYpOH014QXz7G5nb5t34
HvNS/ZV4XvhoFpwyROrGfX9a6Y9Ft0B23944xW9d+HTu89VdsnwQSDojEwdd
+IjMhUkhqgCcnm/skR/pxPmtfp7v1bdBSv/w7QG5dqzJJ/uc45YY8ByoCP65
2oIv/Yu9+8BcEsSdRIb+JX3ELjU/lJ8f2Qnh9MbhvUXvcYQF1+5lJylgo9PM
Vx9W4fO1Ny6S7PfAnFyDdt/yG2yntcd41mUPhBglQEnHG3zxRfOB0mt74OAx
P82cF2+wfcpuToPQPZCsvHy47MIb7Ozy8b559h4oXBQybGwqxT5bdw3cGtoD
QzxhDdFZJTj2Ur1l05m9MKLAvThvU4zfrhU+5nhaGrQd9M9/4ivEw/cVjL6c
lYamr2WfeMcLMDfo61EvS8OzS4M8lxsKsLm3y4FdN6TBWahM9HJwAR4feSfc
nSoN28SfRGXO5WPxevdBo35psJ//pzs7+AJfZ3zwkL0kA1x2HC3Tyc9xmvSg
U5KLDMxFRb3ktniOq6vnLnB5y8CokHu6hfBzzLu803wwTAaWf135nJT0DD+8
cl0r+bEMkOQFOzPuPMVtxns4N4zJwDUbQ+WJB08waYt/4s+rsmBju1O38udD
XLKuQ7rWVxZuDowXvi54iClsCqVZwbIQIEBOHvB7iM3Gu/ts42Xh59rohkq+
h9irUU2mvUAWwvz1DzboZOM34eOllVOyMJUk/WI+PQvT2G0HUlz3AYe93IHv
9Ez8aeGlx3XvfWAQdr/w78lMbDHJzXXKn2DFX2rKezOxY3+JLF/MPrCOVbUy
qMvAzHKhq2HP90H/Yk1KEXcGbvVp4vIc2wfdPkpjmdp38Zm/2nLGTnJwOP/J
Y67PLLyJj6259aocxE7PBOZ6s3CJYqWHpZ8cTPHJe7yTYGEBZ8NSe6Yc3IjP
tjFxSsR1I8ZGQXlyMOL3sLiOOwEr9traF0/LAUfwj/2q52Mx2/uArJ1+8lB+
SrZWuSECP/2hR3sUIg/+bf53NyhHYAsurt/7mfLwlW+poyolHBfqRShrp8uD
ofzo6leXMGxfHlt56q082IZefJ+9k46bC+73MzgVgGHiF1uTH4Az096JzUUp
gPx66QQyuwdOtZLrOJGoADsKrgeqbXbHSSJxtwvTFOBE5rhst7gbZiae4XJ/
rgB0jYk30v7O2If5b/x3swLcS4g38VW8hI/fJFUN8u+H4ugHu4stj+MjWkl+
umL7gabx0S5y4gimLa6oZUjth/lcF79YVSrW8fqQa31gP0jarnPMalHG+5wv
JXaeJK7fZPr+FALEYXPXoenOfrD66duW4HQGrYpySMnf2w8RZp6RMr/OosUv
l3sjH++HEFHp4viL59HECXXTg6X7wUvYmn/W9CL6euSzVvXX/aBmfUmSc70T
6krjWNezWRE0J4TD2Z08UAGT3N1yXBH0jri6/OXxQ+dSeDhLTiqCqBcwemP9
EF/OoEKmhSL0W/PQbgneRK5vIwJdzilCaSm/05DQLSQ33SXD7a4ILO9fYdIh
/ijr9A1vg9uKsCvdPlnaIhCZXjx6Ty5BEX77mNJmbgcido9dH/jvKEJA1127
ne8D0RlGw/bBDEWQNV5vkn4gCIlh0dqbeYogv1e/Tn5tMIqXeiNY/FERmHdj
x34xQpAeKQalf1YEydANj3+WhKApbTsHeociDCdVuh8ZCUEmp7jLzPqI/W2e
xNF06Yg7wspuckwRtkfb/xT6TUeliYrMzilFWPkyOmQsGIou3+coxrOKoJ8u
XjauHYrq3uRuZK4ognjlYccrUaEoeHwpX5aHBGXJJaVBUmFIean56xY+Ehwb
qLzzkRaGBtc94FoQJNj3VXioUxiCnUcsasVJ8KiK11Y7Pwwtmd1dYydPAl0p
knijaji6WqJtcvcwCSxuJ7T2SkWglxa17F9MSOCu3LPDnhKBZhdNXgqcIPhY
1vNDthHouqadCMOaBMpnemt3sSLQzTcRQz7OJMg9i8L3rkYgbCXAKnIngZBv
hXfs1kjEtnz34JQXCZybRbdb7Y9EgdovnjncIsGPEGbDJutIFFre4W0eQ4Kt
ZZm6i3mRqM7m7L74eBIsISX65epItGF1tOdjEgk6SubmtDsiEQOtUKiZJLCe
M07j/ReJGvtCZwIfkIBpf22Cl5uBePy35JQ/IkGBIvsTLzEGiqmQ2qSaT4Ie
Kaf4q5oM9OnMM+xWRAI7tsH+TUYMxLdG3f1pCQkGbv9o5jFnoATdQx1SVSSo
PfCx/aA7A7UPtIafqSXB0znqhpCbDLQt0EYrtYEE0U1+YrIRDJRc6ZbJ30oC
bRHjbYXpDNR97p/p0U4SMHRubU9+xEBi/4VwRX4l9Lcnw+98BrK+z/O6pp8E
fWSnDU9KGShNL8mR/Tuhp7J8Y0cVA/V92yGh85MEe99Zf3ZtYCDJ4CfN1/+Q
YCRZYMK7hYHOSR0IejlJgsspzybGOxnofnX5gckZgiXmzrf3MtCQHW1EbpEE
j2+87pQbYqA9nC3J9isk+LXhbc/fEQa69MDySBa7Epx9vY7E/4eBcgy+r/Zx
KcHInO/BhAkG+vndOV90oxIcf1/8OvwvA8nS5+1ObVaClMuaOyZnGMhxT+DW
OH4lqNgWvP3DHAPl1mysb9qqBGW8fGaiCwz052KC7wYxJYiJtrPpI1hh7fb9
hpJKoNKy2LNtkYFcH+YMBEgpwQNBM/c64voLqlJ8mbQS9CeOl4zNM9DUj1LD
BTklGIw9fIpBrK8SZrCgQlKCh4ajw5nE/p7SH5+4HlACuXHqekVCX1GduU2u
hhJceT9krUbon7Mf5B3RVoKLfBBc/JuB1Nc7Ve2iKIHA2i+ihYT/649mPG0N
leDqkEK1LJFPycFb0ilGShDwo0JMvI+B/v1c191urAQaR3jeRX5hIK2I2Cg+
UyVgHU+0uvaZgXD9g6lwSyVQVzTtqH3HQPnbmt38bJWgKmhrekE5A2VdXJxw
Pa8EJ6ZvW+x/xUAR7EfHTzkqgZina0FnNgP5mlx3PuSiBOky6mZr0xjIJe3+
Hx0PJSjV8xuvjWcgM/L8r903lMBq0lBsTQADUcN2OgrfUgJpmf0vfLwYiNx+
eJQ7SAl2b7aihjky0Hb3zJG/EUpAVTh086wZA40+Mvr+NlkJVF9OGojsYKCv
c1ftXqYpwV0LdwEKPwN9NEj/lnNPCSxRzeQaTgYqHPg7EP2Y8L/5ed+hH5Ho
lvDdXusSIp+auVdCDyOR+6Va62PlhL9zIXKbEiOR3cvJr/qVRD98vFqWHhyJ
jI4Zdu+rVwL786CZciYSCYSPdyx8UYJil+W2Bf5IxNUhfOpPjxIcZnBb9xHz
YUFKv71/QAkiN3DzXPgVgXorklprfypBwdX708ffRqBH87qfEhaUIOdf9n+1
9hFIxz6+niSsDCKsRE9ydjgiFZUf3C2uDCuro4FmjHAkxfGzbtsOZXBsfv1X
yD0crc/Qrl2VVoaA2E1bWVrhqLVjuKpRXRlaOG+ujWsMQw5UjTIHc2Vo/8f5
cKwvFI1JC797YaUMvOSdmxXLQ5H7hoUPC2eUgb/xkLdAaijybSz+Gu6gDLUe
72frToaiGFP1pUc+ypB8wl/vby0dFdmqaY6mKoPVrL3A4J0QxO594PXlAWVQ
WBth3swWhEJPC77N/64Mu/nCcGlrIOLWnKlb/KkMNSEPXWxzApHgSmFnxJQy
MGWOmLUYByLpYJX5x/+pQIzsLr2QpAB0NEZZ7dduFfBParrWvd0fpeaQXjpe
VoGRBcqeF+w+qO7L+bp0ZxVgkaiBEnevo+kNid2f3VUgsVHrkozadXToyuIa
rRsqwOB++EDssjdaJFUZczNUQCll10hygxc6XWo2kvtUBZqyxXZw3fRAQk3X
RMcmVABlbE2VPu6Abv8tC3C9dgBom2J8eDs18PBjTy97d1U4+yabOf3FF58U
X+nN8VIFZgnzRf8RP/wumk796aMKXp7t3jlv/XDWVda2y0GqYM4TplSbcxOf
03ld4hivCnd26AfGkf1x76elFeciVTiv0fyliT0Qt80HhXouqsLa7uwBh1sh
WN+Re+LliirU/2rQJhWF4MKeePNZdjXoMvq2+OB3CI6tfCBzbaMa6Oy5eWjV
nI5NGLUN3mJqIFtpfp1fMRR/2L6R11dHDaYNWkU8OsJwtWFsUmCgGthq+vAk
rWPg7xdLG33oajCVvnl4TpWBuUKH2D0i1CCdP/Sv4gUGptWqXjkfqwZOxlcj
5N8y8Adqt67+PTXgEH+RQbsWhT/TpH5xVqpB8LUlUk03Ew8aFWmHr1GH2wUL
Jv1vY/B/jn3uAZzq8Gzgc4daewyWilyXc329OljcrfW8NhqDLzZY8F3eog66
H48lP+O7jUcPrQ4b7VCHiORDywtnb+Opw7QYbl11aCnO+T7x7zZec7RrMNpf
HUrP5QiVicXhuvITu64Gq0PcZ7GQePk4HKPw6bx5mDpw6T1SPK4ThyV56oYk
Y9QhybXkxy3bOAyNL4dfpKtDmlGM+72MOOx/6Pbo53J1EBVLHZgQj8e0Uu59
xZXqsFuePLxDPh7z7gtzTK1Rh5NhL+rVtOJxxoZbv+2a1GGL69fuLRbxuOK9
09hMjzrIH5wp9Y2Px2w02tTWZXX4rPfutAhHAq57VaW0xKYBrWbnekO2JOCY
vcijn0MDvmR8THotkYAl16pO53BrgLD59I0G9QQMNbtmNcQ04Fh1yX9JjgnY
X391wVJTA0KS+yw/NCRgWqEPGZAGXPJQfW/SkYB5pWZ9pPQ04Gz2qELxYALO
+O/Pv99GGiDjtb5i/0ICrqjsWvaz0IAxbc81b6USMZtu0ZqM6xog6/lIz84r
EVvo/6jv9NOAApWY7d/9E3EhdVv8lkANMHmeL6MXmYjtjX32BEVowOuTN1MS
0xPxJ0udQxdTCL0z88V3ahKxnK2LQHq6BvwnQK9nb07E9HMZPR33NeDP+Mxz
2pdETHZgdz2YqwHY9tj7y78S8T2vmni5Mg3YlY0XuHhYeOn6nPWFtxowqLzP
+YQQC5/0k96b9k4D4vwlrfyJ95MNwRGvNzdpQEXHjWuOCizscdu4d6pXAzZz
lLskHGbhpvhbD/d90wBJXmJkm7KwdFKeq90PDeDtmWJ9tmDhr2l8/7WPa0A4
uXxzoD0L6+e2733NRoZlxxhR6UAWTnu+dnKSgwyZQ52e/GEsPJ+vXiK7ngwN
cbSHXVEsnPs6+XDqFjJciZnPWEpiYa6yBsE2QTLoWQ67nUpj4TMVS72bRMhg
ferkPuZ9FhastXG7tZMM23q3OkQ/ZWHX+mhy8R4yCA8LzZ7OZ+H6xor/JmXJ
ICLy15ftFQvfbN2ZeE6ZDN1saeEDmIWHB4ZLDPTJEJNF3jb9kYXh+9bgmzQy
1P5I/5NGvM8lj9COvDpMhhuHk/p2d7Cw8fjjPukTZBDyvCtb18PCOVPdOWdP
k8Gq6BTjWz8Ls89yuydbk+ErP5tY9zcWfrXkzMF9kQxGEl7tNj9ZmI8to1H/
MhkSaZPrf/1iYaf/PiX6OZOhK/ylr+kYC9dwsZ8pcifDuwxh5aQJFpbcoCwz
7kWGtYevkl5PsbDPJrupvTfIcNRIzLdomoVbeRNKz9wig7GF/daYWRZWEKgJ
vhNEhnzy87WG8ywctnXuSEsoGWQfU491LrBwfF3dt8pIMmhVWyfu/8fC6deT
rxdEkwGyytovLbHwY1mnzVlxZOL57I9gwDILF3VrP4hnkeGXk+epGyssXMnY
rBmSQoZ/eV1pJ1eJftAeaPZMJ0OjW9Y4H1sS7hrLv3jxPhn4rU8fySP4e3rw
0smHZAiS9C9VWJOEJ0xOxlKfkOGjQ7o2k+ClNdLS6s/J8HRYu6OJ4HUFC2XS
BWRo1h+MnCBYwK7BVPgVsT+J3/YvwZKCd3+uLyVDoeUpsw6C99U431osJ/J2
OeCSSrDqNRD8VUnUW0ylgEIwRZrvSXcNGSR5unbVE3qMv3yDD/VkuPf3abUS
wacjXra/aSLDCR/VO76EHzvNUKenLWT4c3Qx6yHh1/W3OXtaOxnEdvr/KiDy
8L0rm8TsIgMrzdg1k8grzHhJ/lYvGfg8fqu6EnnGrzZWuQySgXKknyK5SOSb
l376zDAZvnTlsV4Q9Xh81m3cZJQMjPdD6lJzRL58eiG6Y2TYXMsu6z1D5Fsl
IKo0RQbBgNvOT/8S+V4dzts5SwbTB1s3VE+ycNfuYkP+RTL4DoiyvRln4e/t
4V//WyGDwTcps4Q/xPlWl1/3nVMTSizlcstHWHjd6MrdtvWasNIy0CM+zML8
Kc3KNZs0QdzLlGVD9KfssoftQ0FNENz1rjuY6GfVZwYzLGFNoEtMBV3uYmGK
7dbIMHFNWJU+MEYi+v/025Iih92aQDY+pXexmcjLnXHYQkYTYi3OH/r8gchr
l82gkbwm7Djdd3TneyKfkDU8cgc0gY83IOziW8LvQdqFMX1NiEzpNwnPI/wu
Cv/rpWnCgMtA69pcFm588ivm42FN+LDEWW//kIWHNkW/yTPThKhdApSWu4T+
ljZ+DztNYOt+vcYgnNjP4nzlXJAm/L7fGlhEzB+e9NF+rTBN4EkY/vaFmE+5
39xWAxiawLy3M6ObmF8/nPy1uBM0QeTOuas+Oixsc+tukWS2JphlcsTvlWTh
w1kdjw/WaYIefXj8aE8iHh2xec/8QPhZUSs+25qIw+SHf3xu1gT+3C8cpg2J
uKpoWsrmiybcVzzl2VpMzN/3W9LdRzXBPly71Cw2EUuPHYpL4daC9P9KGDwo
EdcofX7Rz6sFV1vz49aqJGK7axbNuwW1YDRi3dUB6USczuawKU9cCzi8AtTU
+RKxED89tFpBCzoHctZ5fkvAHOoVN/6YaEHrXH2DgX8CHghQsUMJWrDbUi+B
Pyse7xHiYbre0QLehpuq2Qnx+PLjH68y7xJs5GwnERqPp1uSN3Jka0HTuvJ2
7BCP10mtKagr0gL3WNe99cT/r0JN45rjnVrwRuLeRsEXcdhnw6V0O1FtaAyF
ks6sWCwQd6crPFMbLgaFGr6mxeANbfyf3B9oQ3sZeerXgRjMtpVZa/lIG5SV
7z3i2RWD/yQHFsq/0IYujmzLg4vRuOaeI/NTBXGdrHtK7mw09s7Xpgj3a0OQ
tMT8URkm7vk08ChHQgeYP6+lS2VF4mxe2eu1KTqwrGW9yeg4Hb91326w9wmC
ohJpnYd8V3GaZIaYthlA4tr6AiNVKuKJINXJnwQY1Xc33jB1EN36W+khYQ7g
I7gj6mvuYXSm5nv9qiXAeZ87kW2bj6GdTvuuV54H6C41yKz1PYmyXxW1UT0A
eFwP1XSlnUHPjBuZx2MBkk7c316wyxGV+S6y2TcDFBhPqHFGX0Ozz4cnAlsA
Vhva/dQHryHFby39d1sBOHNTuOQOeKOsg08qPncCxDCebD7e5Y0ihKz80QBA
YaoJLWqHDzqZV7YqNAWQfkGIZXHfF41/8195x68L8x4P00Vf+SPprVfG+gV1
4Uv7G8NdX/3ROaPTvf+26oJC8IwPx5oA1J5HKieJ6QLXxrXDx40C0Bu/Qb+7
UroQO7THQLQ7AIVt1V++ekAX8jPJoqozgWjHobVLu07pwm2B1+88NoQglTa9
FpHTuvDb6sNZTekQZGjrn7PFUhfiN1K5ewxC0GWPBbNVG12IFEjheuYfggpT
fj3tuqgLpju+/AicJu7//dH2thdxPz1UsLuVji5HJVWtJOjCg4s1dgGeYch3
a9udGZYuWN9TTNvJDEPMzC2uv+/oQsu3gGvJ2WGo4GWEWNddXSjK2Fi1qSMM
LfX4er58oAvs20Wb2FTDUbTC2b1OL3VhRGCX2vrf4ajwo0zkl1ZdKBNPc9qr
Holidr19sNiuC1NeX+W3HYlEjtfMK0S/6IJaIX9h29lItHN76Ix1jy5s0dB4
WRQRiaKdh2wHv+tC2PIsH09XJLq8KV3l16wuOK1O+q84M5DhWdWj3Au6wHv3
xWqePwPteNnoIP9PF+4mpnQpxDJQp9VSmsuqLtD/lRgxChnIIPf0+um1FNie
Tu8QnGUgyUMCvUvbKNAo8bdD0iUKLaU9mRcXpQDTYAyb+kWhjikKPxKnwMkb
r+8fi4xCzGQ3WsAOCtykp556lh2F/v1syueUpUC9ZqrOr64o1K59sXGPHAVK
/0l89vwRhfJvL/+gKlAg/LnsiYa/UcheQ048QokC6y68FunYyETtYeGhPJoU
iJAuve6mwUT5XyXv7demwH85DJqpPhNFKRa/MUEUEGHLmF01ZiL9zuHJWD0K
JOXa/3x9nole7NW32nqY0LM1fO55BBMxbnR7qRtT4J2vK3MkjonsP7rfPm1C
Ab/047O/UplI4lpmTYoZBaKiv5FMnxH316woSloT62uiPfebmAjchknithQ4
k/cqrqCNiaZFm5REzlJAbpdnQsJXJrJyu6sicIECD9aNH236yUS8YiEHtlyi
wNzNKs7dE0xUXeOkyuNAAbFFbqMjs0wkL6alvu4KBeS59nvzsUejwZpdGpwu
FChP3m77fG00SnTbSGZ3o4CT5ssm8U3RaKWmS3PpKgVcclZ1XbZGo3y3Sq0F
Lwo4en+gHBeLRhfFHmvPelOgxdK5hmtHNGpyu44mfIn17c6aDMlEo0Cxs/Dn
JgVqGfWmmxSikWotTXfUn9DvqjfzlxSN0sS26Q0FU4DjPUl5rUY0Ol67qjdA
p0DapzHyIa1oxOX+Q783jAKnO2DyDIpGLrVFhp0MCmgId9xfYxCNpNzTqG1M
CvRNq5QxqNGoU4xOa4mhwCNuS/zzYDRi1F45+DGWAhaK7cXbDkcjcD9h9CGe
Avn7lYuFjaPRtJj2ofeJFLjatdLw+2g0yqmVOlyTROTNVsMeeywaWblzH6lK
poC6m6DjetNoxCs+faQilQJvlq7zm5pFo+rabuOyNAo8c/ff4HIiGnm7Vx0t
yaBA072XNtYno5Gc+BOTV/cIfVbZEhKnolF/beyxwiwKZLr2mb8gON7d5/iL
bAq0P/0jutU8GtHEz5k+y6GAzpC111GCl2oPmj15TIGUb2+8LAh+4U46kZNL
7HeDtU+d4IviwicfPCP0+frcHyHWE6ljO3UvjwKLhVO/HQluch85lZ5PgaIZ
hlAloSdQvNk8tZDIn6dd4RehV7Xu1ek7RRSQaCLerAg/o+7pFonFFDDmzLlQ
RPhNEw+1jCuhwI0go0zz40R96pytYt5QwH7bR84mE6I+Hieto8oJ/XGVmUJE
fiXiOjYRFRQIefciSOlINHKu220bWkkBNT+Zkh2HotFOj01ngqsp8DSiyHSI
Fo3axWfOBNQQ9Sr7buNjGI0i6r6evVlHgdHveqPf9KLRlHjueaLVwPBERSlJ
Jxpl18XZeTZRYFBzXkJIMxpZeNy44N5MnPeTsVpNatGoss7oklMrBW7ZSw68
VoxGXh5K9g7tRD1W5EP+yEUjWQkRh4udFHBe90l8RjoaxXn8vHzmKwXSCzdc
8pck8jP0cTPtpQB7QdxOUaK/723b6G3YTwEtLFQR+f/+L5MLkRsi5o/4t44x
4nw0r3VNn/9FgexCv8WyeSYy72LL/vWHAheGscH6v0zUn3s7t3ecAntscvtl
/zDR+LGC19V/KVCtaaU12c9EPKmzn2P+EX492DYyapgo0Tm0K2iZApDsZxqJ
mUhcd9uA1yoFqnROnD5bzERywxpjVv/pwWXyu6Hjj5jokKLfOpmNemCy52eq
ajgThVX/p/1WRA/WyPsq2usS84AVr1copgdPju63LVFjIpbDbqOHEnqQs1dk
eEieibJ5qKeidurBiqrHpSphJnpnHuF2WlYPgqPVpR6NRyH2P7zZkxp6kLlB
Z1ghPgpF4MzcIU09sJvSlOAPi0JbYpUKOrT14GzU4OlPN6KQpJpZRZkuoU+M
i/r1XBRCAayu8IN6IGGZO6SwPwr5Ckps3nlaD6q070f1VjBQ44v1FshSD0w9
zL+pvGAgCeOZLCtrPVAj6wScyWQgTP9AZp3Vgw+6S+LqAQzEPu9zkfuyHoRm
/Ej4rcNAoV0dZbM+ekDvzzYLy49Esem3nRpS9aBdQHX91PUI9E3T79VImh7o
M1xFRC5EIJVOe3auTD3gOXbLVcwkArXxQhI80INznfrZebsj0LbAsaqXT/XA
1vPuSbGP4SjN7pBoRrkeTGRNlsqIhqNHMpz1V/v1QKY0UsruTihqEdP9d2VQ
D8bLbjT3BoSipc1+cpeG9KClXqdQ+3IoMp6dZp4e0YO865dKc8ihaLpyyFRn
Qg++21+YVOuiI7Cq7lnLpg/VlUkrlgJ01MkMmkzerg+63G8evrkajLim1wi/
tdGH1qnhopm//uih4oubaT/0YYVtA1epiBuSOffYePmKAWSY2D4espwq7z74
Ov/ELwM4rec6vc/aGVOOZpl7/jGAodvKz6M6nfFjs+iV+HED0L9hE5dm6oJ9
bC8Ytf41gHHjZLsLUq5YxHPL4PElAzA/NvU2ZasbNs9w2GKyyRAEBIdaUqfd
cfussKvRfkMo2ms3JR7phXWWOIQukwzB3VvCY7jSC2evmSgNVzaE3Xl6VN9F
L+zFXbP2vZohzCtaveZxuIYFd7qnU8EQOlbvudXoeWOzI/VN+scMQZP36h2d
8eu45b6PPPIwhJmhkGUtMT/ifb/oNdnTEESK0wL6DvphU6tJA9VrhtDw5mT8
kWt+uFXA3kb+hiEUfPxxJfKTH+4IOREtGmQIESVnj8kE3cRfLylOzsUawpkp
R45t3bfw933DhXn5hmB6a41simIA3hO2Qze30BCO73yzrksvAF8csmp8WGQI
/7SEZ/6dDMAjqZ+/p5UYwsp+jocjvgF4dNNboahKQ/jhkKZ7vjYAj42neDu0
GEK28PhAw8lAPF9wTGvnlCFcfW9+tM8mCHOrqzbxTxtCFOfq843OQVjyjcgZ
zllD2I8NuoT9gjCt+lvQyIIhBHElQ3dyEL7T6tnwbA0VtvEc0GptDcLkmTsW
mluo8IRe3qROCcbG12/+luOnQpXV+WiLo8H43PK5mxKCVAj65mRjbRWMIzjl
7q0RpkLRmNcGLq9g3C1Y/rNWkgqzV743Dj4Mxr6qg95milSYS9+eVsUZgmNK
ajYYKlFBTjKlc4o3BGfpPElVU6HC6GpaLrtYCP5geLVCRJ0Kxe/XcVSTQrD4
Ka51A4gKufOD9z9YhuDya7KsK0epwGf2QG/8UQhu+ccjY3uMCnZOSo+lCkLw
8K2/JSamVJCIczxAfhOCecLe9CqfokLI3ONUzqYQbJNkvGfRhgq7mF8HxCZC
8Gqx+0u6MxWGA1cGDRXo+CtXfuQ9VyoMyM2ZCanScYnZ5Nlydyp4tI69wdp0
fHXChWfWiwo7b0cezDhMxyN7r1y6cIsKpVNHTFj2dPzOM1c7IIAKrJRhqpgL
Hd+r+sV/N4gKv3d39Lh60rG17eWK1lAqvJWsgIcBdNySeElYP4bw697vfTCJ
jp8PZY/bxlIhKok9LfYuHTOUht/diCc62Obn/Zf36JjaZOdekESFmwrXL4Xn
0rGUWBbtYzIVwhy/7ie/oGP2y98kfqVSIe6p91j1Szp+w3muYWcmFV4/aD5v
X07Hd0wzM3XuE3kxDXcHVNKxV2b/NYsHVNgz4DDlUUPHitq2UrGPqMArK//u
RyMdb4pMW3z6hArVx0Pb7D/R8WhnT/P7p0R/GP23trqVjh9ctfJbk08F+U1t
g+u66TiwMsVUvJAKJzZ8Z0310PEZ3m4ZjSIqNGhGBhX107G2jQjbiWIqtJZI
PTH7RsciuafbXUuo8CqDR6DxOx3PLSTlMt5Q4Q1XdtX2ETpupXYG5pRTQZqL
hg+P0jHz28n9/ZVUMFWVzDswRseOpETOpWoqpN/hzZscp2ParbburbVUuPLv
1pawSTre0yiQr/yeCpyeDV/mp+j4P1GzsKMNRD9tN+HRn6bjfvs4G8dGKjwS
cCx0mKHj8qIWldCPVNC7cv2Twywdp3Dwbbz/iQoVlM7L+nN07H382ED5Zypc
ejYUskDwiYyYV11tVLj1/t/e8Hk6Vhr7GDXbQQXjpz4n/xLMq7XZjq+LCqIe
5ULqC3T8J9yYrPCVyEtFyvkUwfUdUbxGvVR4v379uWME5+xuHL7QTwW1TfVz
uwkO8eAuCxikQvmpapU2Yr1zbw/F3R2iQhb7CQlbgtHmSIfXw1TYv/fL6ypC
j5h1PWoboUJ271Pu/wheeLxeaHKUCiYURTFxwk/7PO039x8qXHUs+7OF8Ftg
GFYpPU4Fc498+sBfOo6Jr03Sn6QCxcPpdySRl/Mgl8uZv1S4HkyT2kLkeUjR
0MB3hgoGFfeV3Yi82dra1lydo8JK3vv4hj90XHT9QrnjAhUmCuSyOH/TsZPE
jM/5f4SfK9IXtxP121kVrGa5TIVJ/21924j6dl4SmD6+SgWNOHP+KaL+TO6s
PKM1NMhELB0W0R+LJ6pkyJw02G66/phTLx3nLR4fJq2lwSkt4jGW6LeL6YP3
ZNbTYI1B0Ya3ncR5GlkjJryJBpvN1gwntNDx4xvAMy9Ag5rqldG31UQ/SjbX
jwvRQJ/Tt2K5go6F3tmG/thGg3/3r60XKSP6l+cWW4cYDa6miCpPF9KxRWbZ
1EspGhxpcruteJ+op+GR50/3EL+30n7ulkbHNaNfHR9I00AjdLQk7g5Rf5Wl
oXg5GgSain7xiabj9bXkDg8VGlB3KPW0Xyf6y7E+zlGVBqNTF4R2XCXmCa+F
yXl1Gphk9L467Ez04+nr749r0eCDfLMr7RwdF/9+VUrSpwG4bL70mUbU4zbV
W8aQBmU+75iyFOL8q3ao7KDRoDpj153zmkT9bs0+5T1Mg47u9XE35OnYnu9A
xrgpDaocvtTq89KxxKtqqx8nCD8P9r3IXUecL0sz4b5TNJAhh8/NstExPPCI
bbKkgermpE6lyRC8TT0/+Ol5GpyrtE062ByCa633Ozh60OCFrLsbW3gI5jtv
X3rXkwZny7dsuXGTmK/2mZuar9GANpIx88kjBM+68+er+NKg+/HTQQGbECwV
Nre4HEyD3HSbjEnFEOyfjxkxiTSQ/r3xoHBzMP7war63MokGXZssSeeqgvHW
MhJpJpkG4l7bCsKKgvGz2vttp9NpcKxmucM5NRj3fA2V2JVDA24Rk3+ZF4Mx
ea1J3svXhD/lNdSi6SBM5w5nHymlwcqPUTz4PQh/2lJpJlJOg+i4t3vG2oOw
vZjKws1KGhy9cYL/XnEQZpG2UWgNhF7dmVJ/nyA8bdn/uesrDbKPso/umw/E
cFZ4z6Y+Ghinumke+xGIIy8e90YDNNgbc/jjyfZAvNOtWizrO5GX8AX+/woD
8TF6zoUrYzRIv7hyZvBKIE6NHHiVPkHcn5kjzG0ViEdiRDa0TNFgoWu5XMgo
EPunMJ6pztEga75O6uPuQPwh4x2bwwINwvKbNvvxB+Kt2SvHU/7R4MvWdC3u
NYH43BO1B43LNIjnD6zwHQvAz/Jc51ZXafAqBuc1dQfg/wFS70IP
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.588619143340376*^9, 3.588619154622505*^9}, 
   3.588619197176113*^9, {3.588619259036501*^9, 3.588619290683382*^9}, 
   3.588619514559037*^9, {3.588619635603133*^9, 3.588619647548559*^9}, 
   3.58862000837893*^9, 3.588620154633294*^9, 3.5886203581433287`*^9, 
   3.5886204748302593`*^9, 3.58862365923072*^9, {3.588623712148736*^9, 
   3.588623723756366*^9}, {3.588623764128502*^9, 3.588623777924172*^9}, 
   3.588625264690208*^9, 3.588626401889832*^9, 3.588964504187299*^9, 
   3.5889646233201103`*^9, 3.588966702409103*^9, 3.589032513762035*^9, 
   3.589033197201104*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Re", "[", 
      RowBox[{
       RowBox[{"\[Sigma]", "/", 
        RowBox[{"\[HBar]c", "^", "2"}]}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"I", " ", "\[Rho]"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"4", "B"}], ")"}]}], " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"b", "^", "2"}]}], "/", 
           RowBox[{"(", 
            RowBox[{"4", "B"}], ")"}]}], "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[Beta]", "/", "B"}]}], ")"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"2", " ", "Pi", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[Beta]", "/", "B"}]}], ")"}]}], ")"}]}]}], "]"}], ",", 
     RowBox[{"Im", "[", 
      RowBox[{
       RowBox[{"\[Sigma]", " ", "/", 
        RowBox[{"\[HBar]c", "^", "2"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"I", " ", "\[Rho]"}]}], ")"}], "/", 
        RowBox[{"(", 
         RowBox[{"4", "B"}], ")"}]}], " ", 
       RowBox[{
        RowBox[{"Exp", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"b", "^", "2"}]}], "/", 
           RowBox[{"(", 
            RowBox[{"4", "B"}], ")"}]}], "/", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[Beta]", "/", "B"}]}], ")"}]}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{"2", " ", "Pi", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            RowBox[{"\[Beta]", "/", "B"}]}], ")"}]}], ")"}]}]}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"b", ",", "0", ",", "50"}], "}"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5886237906197577`*^9, 3.588623804646641*^9}, {
  3.58862385747132*^9, 3.588623955011594*^9}, {3.588624040657056*^9, 
  3.588624083624812*^9}, {3.58862413084927*^9, 3.588624147702939*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVl3c8le8bx61KJdmjVL4oI3se47gvZzmpUKnMEjIj0ZDITIhIlGRTSVZW
Jc99hCQVKhmhCJFkNJCM3/n9dV7v1zXuz/W5nnOe+/zndHL/cS4ODg47bg6O
/3/KJCzlZW59aBwqO2ns2jeEHvEqbvN2T0C2T3dbObH5WUBJvoJ7FgozL04+
xObrusP2G67eQ1L7pTmobG5SP+W22r0Ufdd6ekOezUGiK49XsisQn22GNQ+b
byTRjRfjH6HXMlP0nt4hVLoxrmE+8Ck6Mjx45C6bm+PeMf+4sdD5idI8LzZP
R/KNBhQ+Q1Mh6SKKbA5uKFWcy25Aqh9/Pfz0cQit4zpw4szN56haeX1QHJtv
wGzJr/gX6Hwm+GuyWTbk1sypyJdIZfe/m+09Q6iMMNKeDnyFrlIejLuy+aVB
xJMJtzZ0fGP35qDuIfTASPiiTmk7elF37N9C1xCa6XXJOl34FtX6LazzY/PF
Tbxffma/Rz8/d9QyO4dQ4xMbbs30DgQzno4FH9h6bB7Inbr5AbGKHutysPnm
TXO3qfgu1PDt0sXU90Pok252tGpMN1otkjPT/W4IyXXO3PeO7EEceg/SBNlc
JpIy8T2wF6kkb0/yah9CLdd6T425fUZ/pTs06l8PoejUGy+vawwgNX2zk42v
hpCyO7LVKh1A/MzmcdwyhPzWXLvgVziIfs0kZqc3D6Flujaezh5CZs2aSv8a
hlCOaL954tZh9GclOpBVP4RoI5c+q6UPowI/HeGgZ0PoSmQXx8mbI0hk5Yjs
JzyEJBoCqT/iRxG5PuQb/ckQepok2xG3fgydD/xw9/WjIXTE6bWLcswYuqXN
8WR39RDK59wa5RX5DcVQn3zRrBhCGvCs+Vvgd0Se6g++U8TWQawx/+o2hS4O
7w7dksmOrzj9EZueQmkzSRIc6UMoTvpoq6zRNBLoefqu59YQOu1Uc8aqcRoJ
yRo+9kth6/3q21jVMYNy92rcNogbQl9+9B8L+PMLrcT0h24PGEKdV69UJer/
RjM2EvcvnGH7p6a/9n7wbyQ3f2XHS78hVH4quaxn1R/0WTpMzcx7CIX9MVsx
EJtF65ZeDwwfG0LSS4/Sl3TnUVtB9NbQXUNIJPP4tOiFefTx5aTjXsYQ4kXC
NFXWPFrqltITog6hqVCf70dM/6L2oenScKMhhHm2G9QdXkD5I0V7V1SHkANf
Uld4wCKK9E9W8RIaQm826K7lceCAxT+ehmrvv6B3u4VSW4M4gBs+N6O2L6g7
ZnLHrXQOGKjMitr16gsaXnWPptrHAQIpa+8wG76gxSXxUGs7TrgnpvLjT/kX
pDT5d7bIhgtk+uawwLUvKLqVGD54iAecX2/08WB+QZQEet09C15ouJkx+ip/
EIWaVd5/58MLCyTZGq+sQYRXyV5fiueFg4cz6KvTBpFBEIfrgde8UJ2+LnNn
wiDS8ni6foW5FlQzFn/pnR9EclSNw4co62Dj6F1D+z2DaPWc1CSPDh/czX9N
X5wcQMfVFjZobBCATfEhYpM7BtBexeMzYqYiMGWLD6fH9qHyjuAzL0kSUM9N
BCrUdyNDIaVSnhApOLph6wWj2x3I7V9Sxh1racgpdN3n9rAdnWwa1SrdKwMH
6A2WE8UtKNZ29falE3IQdebuVYppIzJW55v9dloOdP7+uUDRaEQzq4RedAbJ
waUzFz9Zbm5E1g+3eJTFyYFfQp/ArakGtJ1Xp9i5SA6CH1Zc6kptQHVVzjot
3+Wg6WsSdeNkPZoVeEa/6bkdqLeexQbmPUPOLy64arjvgKHck9O8ZzByMdph
PntyB8htDgiW2IeR68N2nafndoDzg00HaCoYud/evop+eQeMvbrcOj1CIJ+T
bXnWd3cARez903RrAgWKyw6GDO+Az5rptWRqLUpya7FrdZQHzyxyU7RKDUru
O0297i4PA7kv4jdtqEEp+7bttPaVB7X1VpLNE09QquHphcEQeaCqPnA5W/QE
ZW7ceutPpjzUp6pJb1N5ggofneqU6pcHzbx9Z29rPUbP1kju87JRgOx9/y3w
HaxGX/NUzXqOKYCg5NbX13WqER/QqKaeCvC+fquugVg1sg44qSN7QQE23sjK
H+mqQlNjzyV70xXAjeR6t8q+Cm1p8ftiNqAAj6qrq9ROVKLzca/9ldwUweGl
EkkztxxlKnw5kXpSEY644B/Xo8pRY+Pc8dUBijCKtt0W9ipHAksy1l+iFaFH
6lnuCe1ydM/7vFFaoSJE6v5pimh+iD6Y71i1blIRphLXK+jPliENwdAb304r
wXR1UE5+awmq4e1SeBGkBOWsMrtPOSWIwqH6ND9SCap59DqYZ0qQ1VTv56PJ
SqDfU3atVKoEnX2jp9hZoQRyb/20nnkXo9qYqaf1P5Xg0EKbb59EEWJyHR28
7bsTQjkZYYpJ99Hbv1X+5wN2grqJxyDV6z6yneFbfTh0JwhVFDtfod1HXgM1
SkKJO6G38eihnLkCdBWLnY4u3QkNGrfujRwtQB2BravPTO6EZYdTx6tI95Dj
L7Ky+QllMErx25m27g7aIMTR3nFaGRYmJystvuajGvV6f7tgZTir60no1Ocj
ER/GU/erytC6gB4kBeaj5jFzs4gyZdjESLl55UceUv901P3xb2V4wlEedqgv
F3G8DMuXCVaBoc53H3T6slHxKJV5/5IKFHpwKRcT2ch29eoJtasqsHp/8m+L
rGxUSY3VImepwNOyVANx52zkjpPqDz9TAc5ro1aWPVmovSJvIG6VKtge0qI7
bsxEOZnPpebiVYH7SN6aC4/TULq9ctfBG6og5bOp5kZUGkrddP1aZaYqHNHr
9F+0SkNXbziu9itVBYr/j9b8n7dQ4NV/UxPtqjB6z2jYUeMW2n9Ro+GLsBos
RF9so9XeRDxHMjxab6lBe7IKlK9KQSubeeRUctWA+Z8/x8W+ZLTQ4/npSqEa
bEqoDYmtSEbTB0kHdj1Vg0JZgVsuTsmob+97o8Y+NXgzQdsr2nAdfczk4e3f
qA4yhZGdiolJqOKqQe+7/eoQpMC1Xu1wInK6zb+q5pA6PIpT1n+ll4iECr6o
5tiqQ2SuG3+qRCLyfRYbftJJHfYc35ZzqSoBKf/+qMjnpw7blOiHi+uvonyb
CwH0a+pwWsqJlTAZh5LlakUft6nDxUOnT5XGxCCqRiLKeq8OPrv0I9GhGPST
7OIR1aUOAzqxEbKyMcjyMB9h9VkdUqYKikaIaMQXa+8yM6kOW7nLz5vOXUaR
U4vlSvwa4PYo3U3hfBQ6XUO2zNijAREVUrr3qyNQle0Lrh5LDaiWb+/yjYlA
swuWVSIHNWC4w+N+nH0EOm/osinOQQM+9agsYe4IdLE2djjQRwN0s82dOQ+F
o8u4K8A6UQPoDTb2N9aGoeYjx3YmJ2vAW1uOQo/BULRuZby/LVUDHsZ79sQ8
CUVxaJlimqMBkqc2S5R6hqLEOrkNuuUa8ALvv8KZE4LS6k/lCHdowHr6i0DW
gWDU6/TvgEW3BiSOCj2+xReMpLgvrb7Sx64XnP++8jwIZVJTvbhGNODn058D
JwyCUF4j1pn5owG+rw+2PVS8gIqa1re0imuCnc7ghPp/5xGr5c7PGDtN8Pnw
lRXgcwaVS7SfCj6qCdv/Ub1+GJxB+a4L077OmlCbG6DYtOYMiuWymDrspQmd
0ReCcnJPIyuD+e/bL2jCoj7nz8k+fzR+32zkWZomOLtovHRy9kN9c6ddqjI1
oZjy2eedjh9qo2cNFeRqwvV2sdF0Xj9UOfhrMKFQE37vDRGB0lMoRDLjk0ON
JiT/fDleynEKicRMdf3t0YSQ9wHB59xOotVdkod/9LPra+w+qYifRH/laJ0D
g5rQv5BxO/qFD/pUl9rx4psmcMbLccsr+aD78yZvU/5qwpObm8vGZ08gY/fk
Fg1JLTjZbl1RWOyJPEz1CQ9rLXBeuOOtHeOKJhUknz+01wJ7iw3v3RiuyG/d
39d/HbVAb1LtoR6PKwp687gvxkMLvikG7S4IO44SD5AW7wdqgXywx/niCBdU
fVTPcDxdCy7vXXlpmeeEDE3EqZo5WnDn88vAJg8nVCczZxZ4Rwu2z36Re6Hu
hF6OVNuuK9ECVakh/eN1x1Cfl26gEksL9J9Lx82NOCKuAJ0nnoNa4He18tr2
60fQZRvRZ+UjWuAStkU8SP0I4jP807zwTQsi19+KaW51QKLLld2xP7WgqEv1
liG/A1KI1J4v5NYG9dOxjw+m2iGLRC2979u1oTn4+RuiyxqlF2hUeXlqQ+FN
ycj1cwdQc49zc5aPNvv9uE5squwA+r3uRu97P22Qi38nEOt1AO32XuA0uqAN
9Vsi9g182Y8WNBrM+eK0gbemcXa4Zx+yeWo1VlSsDYnbEmlS7RYociLq38BD
bdjT4sN11sYClW15wi9arQ2Wk0KqgsPmiDd0i04w1oYOSpcw59Je9Jj2NWxv
mzaYLZT8CiLvQWKt5zZPTmtDwfd24dxZJqKs3FeV+aMNASWvXvUkMZGPep/J
ob/asClNaVFRnYmaksAdc+rAugNtUut8TNGZw2urrgrpQPZoe27ULB11DKSZ
q2nrwNh6K213EhVxCL055kzSgZ+Vgqv5RyhImbpy+qaRDkjwXQu5l0RBEXec
b6/QdGC+/Q6raNoEaXoqj7Ud1IF87YbcxkeArv0iwnzPsZn4E1E6YIR83iUe
s7+gAwrid+rKjhqhPQ+dTZghOpBoovlHesAQrT65llP6sg4kFz54aDJigILG
rULbbugAx1TVDRUOfeQ6+P2iarUODB+zsV17VgfR6vCRTTU6wENmlF5Zp4P+
y7pmvBrrQFE4J//ebG3UZ6+33P9cB+zthXLC2rTQvu7w4PgPOqCtIEB2MdJE
Rm2SQRO/daD7yI+7jrdVkWTJhF33PPu8FT/e6m8qaDaOZdi4qAMD6pyFWgYq
6KHZ8X+3eXRBQCwl8vrgTrSjqSxwt4guOD5KD7LdpYgECdPzhVq6UDf2Sa8l
QA5N3t5kc0NPF6S5hlNsRmXR68AfpHBDXVDgJuU3HpZFUaTr8zZUXQg4+eHz
ZmMZtFjx6dzaA7rQnia34YC0NPpaeOasux/7PKtXYRQfCXRoy/KngrNsXvbv
FD0pjp4nRJl+C9QFyxCVxrv+Yij/9E0Jzwh2f6bB1+7LIsjJ+EmNVzKbN9jt
desVQO/KTGSLUnUh1KKsetvPjchEtuXKRLouDOgjY3NtfiTN22vvfUcXOPxc
GuZer0Of3i4u+1TrAtS7f/fby4PMaZfcSmt0YZoRGZ1PcCGiekP7FGbnPzjB
L63NidJvb83xfaEL2eeTV9u7LRrbHgeqXzfbn8j+uKDZaeMP8xGXzyyw89V8
EocUWjHNi2+6apmtR0Tvv4HiblzZn2w9y6UHHCHhYQX8g+zbwR3Fc+v1oO7J
zBVhGMeWcS9eBUjpwcD7JfXH3X9w3bKF9hNpPYDRP10ek3NY7VR3+l85PciW
+Rl0ZeEv5j/0zTtQhc3e/B7XZpfw623rBYKM9UDgp9KKQx0XyyjpekAthV3P
+t4Wdpeb9YBHanCRoQeWOvpze6J5WLHflMuDLdh6ngQn86PVLGaFuVWIox6o
/8s0LQ5cy2pkJKWGh+tBaLx7pqvORtaI69M3gVHs/IxzMfxvN7JWXx7m8o/V
A+Ymw4+vtQVYzBe63s5JepCoL5LCahZgvTbtNaHlsvOvLbxs+CTI+uHGc87o
LjsecCn2jrQQiz9apUi7kB2vYxhsOSbEsmwOEdtergc86p6vPvcLsd4z5b6v
qteD6IMfkOILYdZv973Sy8/1YFFSfa/msjBLJObswdmXevC76N7GX1oirEMv
m1lf3+pBs0Nj/4PbIqyPu7yTXwzqwfx/FQ897EVZ/zxuvGSNsDkpGWfFiLKk
YlnLj77pgcQSaaCoSpR1pEXQo2BGDwIu33GyWyfG+mJWTY7hJEHf6tNnfO+K
sbi9PvuFrWJzJXG+qUWMJXeFt+D8WhJA9kqxwKQYy/WVrZCnIAkSFd9eTdAQ
Z13+HmHqJEoCyy6XTa/2ibMK1hcH2UqSYPisRDLvKXHW+O6Vr2b/kaBRfW3l
jSJx1voTClLU7SRIvfhy9kezOEs5bt8+Q0USGEm2OVoNi7N8Xuc93alBgiJm
cKydhATr5x5mIp8JCcr6e1MenJFgCXufes5DJwEzUba4I1aCpR2ftrDIJIHv
FttP27MkWGffTLj8sGRzh/iZPc8lWDd/iKaNWJGggFf4qXyXBOvxBtTWb02C
dhOuPt0xCdbC3mv6rY4kkLsmvXVxjSRrs0+NT5MLCfK/Nww/EpNkGV0dysPu
JEje4/i2XE6S5VDC11N9ggTZ0uX5UxqSrIutOvylviQ4PWovccpYkpU1eYR6
7zQJHu/8+0nfTJJVxx8dkBVAgnQ3mfw9ByVZnBYfvySEkoBH43uVrYckqxkf
lD0dSQL760JZan6SrETVt87W0ex5I70SjwZKsqwz9+QbxZGgO0JyciJMkiXN
3zwsnUgC3hAxsY/RkqyxYOr2VclsP6aMHRUTJFllP/DxbzdJYDXksLU/WZIV
4GBw981tEkT+JaXP3ZJkwZuqrw+zSNDBTN92IVOSxUvWkL+Rx2aS65hHriSr
vajILfAee95d19Wb7kiyUqUUCo48IIFEyy7lpAJJlmNc3hillARCF0fWthdK
shQWtyrKV7D91OL+GVYkyZr2SvNY/4gEfsy4NYXFkqzHvaKFUzUkYEjVu5mV
SLJCd18bf49J4HJ2l9JxNjOf8u18XE+CL106xxbZ+QI7o73Sm0ggjUUkhdjc
ncZdFNpCgpIP89YFDyRZ2etCJlxaSdCy+ZLMs/uSLPfABeVd70gwMDV36sg9
SZb6+BlvlU728yqqaxyeL8mat5kpFvxIgsm8DwGqOex9vDwx+aefBDXfFPiP
Z0iyovXHVD8OkqDOYNeIPNsfy/vOJ/EI26/y/wYC2P5JSH4uzf1GAqXh8702
bH8Hom2no36QwPECR+nrGElWwfwHda8Z9n5eH1R5HyHJ8nXfd8riDwmMD4vJ
nQyWZHEwmT/Fl0gQHXA21ecke9+PGjQXOfTB8fKt1A9u7H3LI/8BHn34uY8q
1nOUvd81ur8L+PSB0TRnU2vO3u/Zh9rxAvrgk8gdlEVn7/er8plTIvqg5F30
frsRe59NsrP6UvoQ/su6QEaBvU/dLN2t0vpg9kLKPn0Le593Np3jktOHgnTB
CpYQe3+XBOdbdurDpgmIWrsowQqlrfy1M9QHgQ3pXh0tEixmZaABIH1IXZXC
1URIsATkZgPlqPpg1bSF4l0mwcrm/vFvwkwfVJ9vOvElWYJVV/9xKdiWrX8B
21+1lWBxmFRzZp/Xh+7uMW7xj+IsW9poS3cw+/zVIbsSX4izKk0lkgXD9UF5
5ll3S6U4y908cEdELLv/PpGumKvirLd2xrtdb+vDsh+PpTUSZ+WebUpWJvSh
EvT3nLwpxqIVdco/4TAAs9QtAtZKoqxo8bm97y4bQGW0RtJFESFWcnPzUP0V
AxjIix0XXhJkZZ1PO1+RYADD97PsCkcEWdW95DvJNw2gO1XUs69akDWSFbl4
6J4BkEY4/h2zEWRRFIQe9DYZQEiKxNj+LAHWIkmFd2SVITz7M9E24MTP4h1f
zviw1hCan4gSAzr8LOHb7VpNGwyBxuV4YIGXn6W05H/0nqghKE+apQWVbmDZ
PKup9thuCO8zPd6/WuJjVe9iHp+kGcKPw7Fhy1nrWb62zvVzEez4i4i+8CVe
Fn/W+IBRtCEE8iV3yLzlZRUNnVoJizMEltx84FQ+L2v0RKgRX4ohkLY+EhbY
y8s6EpJRLX3XEKLj48rOZq1h7cnvKtzVbAhC/qV3hPeuZilM7r5+m88I1tV5
1Y6/5mY1ab5/OCBgBJn9UxzX2O9Ll3O27dtFjeArX16bRyg3K4vDY0PZFiMY
Ulczq9DmZokJR11uVDWC7aoRIveyuFg8pLoLPyzZcX5rikQIJ2swTNsFpRjB
qHq70ZbmZbxDjP+q7y0jEJM7bI1ilrFn4eijnAwjOBUt9faZ2TL+/S5tPc9d
I8h4Y6822rqEeeU4K5qrjeD2cFZqSe8iVm16w7m/2wgc11xax73mHw5c55bl
spkMSuPRKyJ5c5iVCS9TtpGhlFMs7MPJOcyjtelXkywZ1n/7HjZpNIfj7d4w
FJXJkHFthKXQPYuzi7QmfxiRYch3XK9KaBa/MOcgnztCBs/nhjuHb/7GItdv
fYzJIYOM0kqe8sAMXvdB+K3fHTLUng85KlQzgznEr76wu0+GFmsVD8PkGfwj
LbxS5SEZrCMa1Q7tmsFNuV5X39aR4Qlv5NKd6mkcUE6mSA6Q4Q3PwpX3BlPY
5/cjEtcwGdz/KzFgzU5iF11Nte+jZLiRMFIkXzGJ99XskCKmyFB8Nf/oCZVJ
rFS/cdZxhQxXdmqnVMj/wP1vB+8XbDWGyd+Go8Wa33GHsH32NRljaNf2Uds8
O45bDnbeCNxhDIEaP5n/nozj6p6WiD2qxrC/8+wZQeo4ThyscJgmG8NnV1nn
SNtvmDJzSZDkYAytZkm3FzJG8V0BpfMvbhvDDTf/IyN+w1j1q808T7Yx+OVU
DYeiYfzoacw5Sr4xHDl8PjWObxg3u347QxQZQ71QRfzMvSE8XlvgV0Gw643P
/uob+oJVPORPZH02hqS1Ka9STg7iauPD3/uGjGHw3gPOPsogNha57LlpzBiW
ki7VRYkNYnPWV/eUaWPgHlu3eg1rAPuK3j1+hRNB2dw/0SyRAVz5TO7oOVkE
Fg/oadvz+rHRTatPlfIIZL8dfZJ+sB8/PxHp8HMngtgbmotNvP24U3zYzlsb
wbp3nnfUTvXhOe88a2c6gh2cW0eVzXqxwSaZ/RZuCLystux+tLkHP/PbRpd/
gGDf7BSno/YHvPBnKlGqFMFMXQgrbbkDa5+v6xOsQLD3knagxcsOXBBy7PRi
DYLPYXEmso4dODEuL+9tCwLnur5O2+vvseNdea6gcQTvrVxlaRvf4TTF+b2n
JhGoa2V+qhh4izuKmm+5/kRw9210YkL5W8ys8NDYt4DAZIAr/PLht1hi4KC6
8CqAifhf4U532/HKxM2jYyIAjFntk9IlrThdNXTVkBiAzLbpS08dWjHJ1/1B
vwRA1OGWaRH+Vuz3izT3TgogPH+0bNH3Df76t+cqIQfQfVL2yxn0GreulsJJ
2gD3646tNC29xJnS2VJkK4A34xFBW2afY/5YjWaVQwAjH9q9xp4+xyG/6v23
WgMUF+f1ofDn2LFppGXFDuCvlHpGgsBzLHNi5/l6Z4DecrWwJK1GfPdR9QdT
f4CnO9Zc2JlUj8X+Y4aRzgAE7Z9V0HOsx5dje5QVzwFUmCnnE6r12N1hMWLd
BQCak3a37ptnWImbovkmHKDPl/ccsfEZLjF/c3V/EkCasJrcOSsW3vr4iAE1
mX0d/Wvb92cZ44T/pke0bgCQOCHSrBBj399CZNE0gE8H/mn7cGOsmWb9vSsH
QIp+qMuLVYurR4ZMHR4CVFr6bn9oX4OJoAUO93aAeVi/P1W6Gs+Wfp0Ofwfw
8YRQLam/CqsPvRvI6ADwM7preiOtCufvelD3vhtgNqHHMky8CseK2YeiQYDm
tfe/DUlW4kNlxIrYT4CTN8+tNUflOHHo/pTGb4Aztj27vq0uxy/FbnzeMwvw
LVvy3va2h9go2IcVvgDwOIVieOHYQyxjti1kkssEFibuKnrHl+GpodDl58Im
kGcQ6LidqwQriHtPDoiagBFUfuXNL8ZOZjaf/ombQPOjV5NLjGLcWaaBNaRM
oEy4kSqYWIRrg78EZ8iZwNlnGfkJqg9wtDht6bSOCTwZzhJMSSvA9WbqPxL0
TODfdIPxnj0F+F+wVH+hvgl4KffVjy/fwz7Dv2sHyCYgsP+CRIfrPWz18E7Q
HoYJRMINXVGTu/i/3WsWZQ+bQI4ZEbl3Sz7W/kB9t8nGBOxpqa5VA3mYcTS0
QNDOBASTs+Rf5OdhT/+/VitHTIDbXzZoUDUPV97+XvzR1QR2UD89rjfLxYyJ
tqPXzprA6hMj/7VmZWPrs3y60QEmYEaSWtzonY09OXbxhQSaQObrNoMvBtk4
QaT+8YmLJpB71XatS1kW7jaqFGRGmUCRlExjkWYm9oxPbVhOMQGer9wffrnf
xkHiH279uWkCSheVdTVEbuOrOYK+E7dMgESdP+xcl4YrqmKlPmaYQMm2xCe3
N6fhxf6gM1V3TKDams9MvD8VJ6gekz9RZQKFI16XtsXewLmPM5acHpmwfz+n
piOpN3Al5eN7myfs/hr/NJ4speDuQwdCTQn2/M/cgy+dTsEyIfQemefsea+H
HDnllYwr2xSv9HSYgOLtbfuag5JwouyzOwudJnAL84gbkJOw1znrus09JmA1
/CYkYPkaltl2+Y9Dvwn4kK1q9kVcwwk+w0e/jJhAh3fWE+0bidhzQ5b291kT
SHpT+TiRiMeMY7oWfH9NwDP5ecDYwXj8X9UbD5V/JmC7tUfo+lQc7rZfzDy5
YgITJafft++Iw/Qim7W/11DA7SVpMDQ/FkvvFvm0KEGBn4vLo+49l/Fi5oP5
LZspwLikxpC7dBl3/aQIoy0U0CBOUOY0LuOraaeYYf9RYOR8yp3Oq1H437fW
8lVKFNiXby+x7eAl3Bkdc5nfkAK3KAIZIoIRuLxPOleNTIHxfouWl6/Dcbz6
41pLRAEJvXszLjHhmNb9dSaJSoFZcZmfJqvC8UN5mr34HgrUTda+37UmDMc1
LatLO1CgpDnySZTLRQynvmpsOUqB8P+Ksk4tBePfm1s1Nx2jAJX7R8Kdm8HY
/lSGtshxCsiFuJj1tAVhFSkjEq83e57tLfFrLC7g1lPn0XQQBdY1xEfZXQrA
4VLH4MdFCtTwNfDKaARg3RdMk/FQCnzME+X7238OZ0pJUIcjKVCmb1L3yuAc
PvmimtEdR4F66qa5BxxnscCW33vr0ilQ5K+fXlnjjxtf9JoTmRRIveApInLW
Hwf4NVjUZLPniQy7YaXpjwdeJO2rzKeAsJ3/rHexH37op3GwoIgC8kefhTwu
PoX3N/vYJ9ZSAHVmqU0VnMSr/Q85xGMK2CtzhLrrn8Q1W4yPxNZRYEJB8KTV
Kx8s47/BMbKRAi3yW9X8fnnjn1uKnANeU6BbWlrdzOoEvu7/zdOxjwKT4bpd
tVYeeBMj8NSBTxTou/fd7L9Fd5wrsT6AMUCBL/Kp+wrz3XE5oXxJeZgCOV9f
/9381w23r/HNmv/O9otDS3xLqSvmT599n/iPAgsbH8Y+3OOCb/hc/hixRIE4
Xd/lVzwueIuJxODZFQpISxyc7iScsfJX/Ul7biq8vL4xtlzTGe9WD+ZVXE8F
7h5tYXV5JxzdyE1+tokK0gox53tJjljgZjK1UooKjmlGS3ZLR/FNj+1m97ZS
YeZqxZ4rsUfxXX7Tw/EyVJDa8WPnmftH8HPr2FM2SlQo/HxAbnreHnP9ELg7
o0+Fz2lZbuEfbXAsK6do2JAKlZ/XLWUE2WDBJM2KLjIVruQ+7/u3zQZL61nV
ESZUMOHSpft4WmMUdvNjzC4qnL8Z8RVvOIyDRLdulLGhwot0qjor1gq/ebjW
FtlRoWxnokcXyQpvNf+Tb+9ABQvrTle5sQOYFfXa4OYxKtiZ3UzfbXYAc80H
uvJ5UkHngvQ1W6n9eH+y60PFE1RQVmySzn+/D+ep719k+FDBVDG+hjNuH6Z5
KCaF+VHZfi4Xf1uxxJc/dhGzgVRomLiWsGbMAnefbeAVCabCmrHVK7xuFlhB
uPSARggVNFUTU+ZGzXHL7qhvXhFU2LGHNyF0ai/mI7RFB69Q4Zr8F5lLIntw
Uta1E6/Sqez/VxYKRBkTDxkGPxrLpILij8qisN1MrN3tzrU6hwqHWovKW0dN
8QcBSIU7bFZPnfguZ4olwicbqoqp0H3T5FNaGR17bP3I/76UCkt+KQ/WHabj
mprnNtMPqfA24p5m9zIN2/1Kn1KqpoL3XbNjAftpONNl9+ZsTIXXfRr3aGup
eIpDz5Woo8IT5wJlyRoKhgyZhx/rqbA9N3ft9hMUPPjhL0P0BRXcmPva2t+b
YDnTAr/YNipc38wQXC4DfF9xVcvpASrsub5qXsKYjN9Jmfzz/kKFim+vqz63
GOHFjcHKbsNUaD3kkHvAxgibz/6+ajNGhd9LR67svGCIf9cPHzCepsJ6Zqj7
v7f6eGu19CW9n1SQ27TUF+ulj03v21er/6ZC37E4/7TV+jgtoUNCdp4KF2Ua
++RMSBjsG/vXcNDg2X/ezEMvdLGnBcdGTi4a2GXPzh08oYuvU4xggZsGeec2
ahcL6eKvCpW5E2tocOj2f1QLZx0c9yfP7e1GGgTKrrz8LKyNu69GzKRto8Gf
t7fqrEo0MFc4Syb5Pxr7+WuFh64aeOeZfwfiZWnw9tmFsW3SGviinX91iDwN
Cle8qXI31LGcgvMFFzUaMEPE5Oqk1LD55qwiBw0aiAZfrGzOUMXn+Hv7D2nR
IFidHFYjrYpbfu+HXXo04O3ZKWWsrIJPPqOsUkU0UFi8m8hrsxOnVl7UlTeh
wQcKLSljTAnX36txk6bSQNLIqf7reSUsclWzRciUBhpf+dqDchRxja1Mwpw5
W88nd01+HgW8+jen5LMjNOCPcTxHCG7H82WpV4cdadBXq/kztlwOf/dW4+F1
pkGY6qVNk1ZyuH3UfsrcjQZWW09vtM+UxWm9j573naTBYJc7hxJVBselmhty
+NHgs9BA6dzUfzjk4EiZ7GkacLu9zVfK/A+7tAmlewbQYGeRS9f9ZWms2uDt
Nx9KA717clljmduwdCjP2OYIGlgHIo47G7ZhYfJtB3SJBv+Cd27ovLgVz1c3
M6NiaPAlw53k474F1xfKbhNJosF4wtdIt8Ob8aGknldqeTTYS9qSFpgujpkW
viYH7tDgjq69wzZVcWzIt+bR2Xs0kND1P3j/mRiWjtLOJR6w/R2+d2PvpCge
P58QsLuSBvWd/z5yOYjgPt0dkz7VNHgnYfj136IwbvtV65z0mO3vGsPEzExh
XOk9bt5TSwPZkU6R51+F8MVj9O1uz2lwJttXqDdGEPtu7UuLfUEDI7w1zEVX
EDv3+gmUvKTBstG9UadhAcw8mP3v9xsaNLjfVb5LE8BCu/69De+kgcM6zniT
nfz4nvrDi5mjNFjj1B256tta7CM68/fRN7YfSwHbc73XYu0F9TNvv9Mg7myD
5fHfvLiuocyLZ5oGgn2eewx5edn3nzJrz3m23px7xRrM1TjTcPp9xAINYloP
BGzoX4VdpNUtMhbZfts52r3yX4Wnv5XS2znoMOMdc//NXR7MG1yqqbuWDvWb
s2ZFZLhx67GpYov1dEhkmaorPufCyQw1RY8NdOhMXC895MGFpQVKt6UL0iGQ
J0NG+TEnJuWV8HFtooNMbsQbKzcO7P6y+OsbJTpsDR7mfyuySKiW/Dg2qkwH
zsQrUQkx/4jfSSr9HGp04NMPpL7l+EeE2he/19Jix89JylfM/iVSp4rqbhnS
YSRK16FleY440jFhWEGmQ+yvv1EXouYIuSfKj14jOoj4y0Q7CMwRZeFFxStU
Ogy1nx2PV5olmkWL0o7voUNp9YfMjHO/iasL30VDzOkw6dDb9Xbjb8Lq885r
qZZ0SFILCZy8/4sYKHhw+ZUVO/7ofhBr6Ccxb/jgtIYDHQYSJM72n5ghFJ0K
zZe86UDAhdVP0n8QzRkGZT9Psuvh1sfNG34Qrj0tgmOn6MAxZPeKM3SCyLf8
3vHuDB3Gu4a2qXh/J6SRsl1BMB3K/soxR5y/EazA2tqMEDqAgv0V6ugYcaR6
z9brYXTQTLfV/XBijLit4j0YfIntT11vo/fFUUJMqsTtQDwdaJ3vHgfUjBBV
h41fMhPoENCRuuOs+Qhhdb1VyfgaHd5daUx3HB4mrq2b+qGQQoc5V/elXtFh
gu+v2unldDpI7t0nmXD1C8HV+TD0fhE7v5OJWdmfiRxBypfMEjr4zvyo01n5
RMDed9TkMjp8F3PZne74iQhu/Lk6pJIOhw2eM3mV+4n5cq14q1o6rK4NJPEM
fyRuTjZM7sJ0UGZG2dyx/kjoKllZojp2PulidWdbD+Gfc1pYqZEO9lsuxBPP
u4nJhKpbK6/ocEws0NO7tZOIf0Vnfz/o4NF6os/xUCehvKbTfryNDtVbn/Ym
DHwgPC7Obvvwng55gw37z//rIIZP6N0t7KVD91qeBF+z90TvriflB7/TQb7C
10Ga3k5QLPKtz/ygg/W2vpvQ0kYUWiUsJ0/RYVqPO0iXv40IPHrcrOMXHXhn
DDMf5bwhNp0R/LJ/kQ7/ai/P8f5pIcIDFy/7LdPhW3MYtWx/CzEeMqqSxMGA
pmbfstqKl8STWOL8Wx4GXOZROlsf0kxYZ3sIWm5gwBRpw0AduYmou2P16ORG
BpRnnjRorXxOKDxADgmCDNg+B7QG1efEfJXo/VZRBhQ2do4q7Wwkbr56Bnu3
MqCermd1glZPdM5K+pqpMeAcX1LZ848EYbzII+apwQCn+vPxxyQJ4i7n9NMY
LQZsmQzMJNnXEmf5mta81GOAxbYnJZTJGkJUxi/LFBiw59rfa5Emj4kgeQe6
G4UBWluQUVXWI2JYmfk9isaAnY7ZhSGcj4hKva16TUwG5B+8uCa1rYqw2tvS
StvHAKVD8jIj1yuI2v1Vp10OMKBrqqRtiq+CkLPO3hR5kAFrutearY0pJ347
nXVtsGHPW9+lohj7kLgeILNs4sSAWTnJ1kH7UmIheEP+MRcGvOtIXx8dVEI4
RczvCnNlQInmBJdDTjGhebU1pc6TnY+j/9ux8IB4lxeogvwZoN2h3HRopIAQ
4qh+YnCGASdm/B836BUQB+xn6LrnGGBfJv6M++o9okPE/YjKBQa0/tIbKqPf
JbouHUzYHMGAx8GNE7Wf8wiJL4mbxS8xwPPX/VuEeR5hbfz6ntBlBuia8SZx
PsslPs5S6tZeYYCZZ0aYYGkO0eemPjOXxIDozSY0xaNZhFSjV/CvZAbwRk3E
DXpnEg7S99ZO3WD7+/3SsHx4BvGpe4vM1zQGdD6VWZiouU0M7Fp/oCOXASIp
JlI2nqmE9F3G57Z8BrgYvz11MfcmcYwr3OvVXQYkZmget/t8g/hSMx9RX8j2
L/qH0EfXFGJk59fKsnIG/LRN2XawMInYEf2fSVElA1piDIozVyURrsP2b+5V
M0DIPXnbqMs1Yiz9/UhmDQOi6gv3SqslEuMbnonF17PP23+5+c/nK4SS52Ju
dCMDJkZP3F55G0t4NempRTYxYPG366WXLTHExMUS0wstDGiXGcrha79MTE7d
DvB4xwCJJKe1IdsjCdU9XTzHO9j+T4bnVeyKIE4WCF1z7GRAmbNlzk3/cGLa
Meb+4Y8MGBb2C5jpCiV+vT37kf6FARyiClXmrAuEtmq5q8kwA7Klgnk22wcS
p2N//DT6yq4/OtTlx3WemKW4rNceZ8ePCO6Z9jxLzFfsM5L5yYAxflPz2Dun
CD6SbqvwbwZMv+z8euOqLyFdu8lx1SwD1AU/p+Qs+xDMxqGIsb8MgG8se8qk
J3Gr48yrEk5TsJT/S3E950yUWNs6ZHObgm9jUz796TGivs946toqUyBV6osu
rnckxofXCJ9ZawqO92kPku7YEAZ/btkaCpoCfBJofPV4N2F+/uKEsrApZGeO
9uvRGITTktPFraKmMGDp9M1jAYjYVcq5nJKmEHqIJDUct5PIjBHQ/rXJFDiu
K0UFZAkQ5Rv+PB+WYnOw+3XJPBFyryj+9kKazXfUDp8e1SVP38q98ESGzSrH
LDhsEJln6+UND+TY/dVS5N8+o5KVd1hqXFVg66mxnDx+aTc5SPdLgJU6e54E
m79WDVbkxJqmdQxNtj5eNfPNDofI+cYP0vW02fOvom+gjh0mv2acrttEYvfv
LTPf1mFLHmix3s9nwI6HpJyL0LEn/zYnDy8Zss/7pe9REONA3nJ4Ne8gMoWy
/AKtulWOZM3e8VvvTExhmis9ajzdkcw42razkWoK6nahn8VUj5F93FIt7pma
gvTxN0r8yIkc/j1oMHWXKSRamhyXZTmRb5w85h+72xTq7CzIbfrOZHxO6aa3
hSk031n/4+w2F/K7f/yKR/eZwqLdHs5HsS7kryG/aiwPsOMT9lpiMy5k/uja
T1qHTYF3mjuzvPQ4WYYvx3e7DVs/x6sAVV5Xsm7iJS5xO1PYo2Bby7B3JR9J
Nd+xcIQ9T/nz6Po5V7KflNbj746mcDpkPPwociNHZYub9TuZQq1AfOv6CDdy
mtxib6uLKbRHfMz4Uu9GLikY8K5zNYUCa4W45WU3cr3y85WH7mx9vV3Z5/Xc
yZ1l96/lebL1ZSvv9z7hTl557FcV5WMKtIgfmf+9dif3rS6/kuvLridWKpMW
3Mk1VjPHsJ8pyO0KULLc7kG+matO+njaFNzBmOfcHg/y6emT/LNnTeGxyY9k
WV8PsmrcZI3KBXZcy6fuQrEHeUze2+14iCkU6b4cUPnkQXY46lnXcZntL/eC
YL2UJ/ndDTdJWiL7/M03njRqeJJNW138KlLZz8tIpFusjCe5dpXTK5kctl+K
OUVDvzzIZ3MGztneMYV63aUg+XceZHXyUbmk+2y9ZUe0FAo9yOPd/e0vi9n9
ws8lHA3yIN85bR/MWW4K/PLHVmCXBzm8/vaBLZWmIKLiO/ZexYPsKNCrqF/N
fv41X3/VF/Qgbyqy6fStMYXCvUeGHna4k68OHVIbqDeF/PO5hrkW7mQvjRur
FhvZ9XyHK6SV3cnMkA+94i9M4VPwLt22Ne5k7s1W0RavTKFc7fbCcK0bOWD/
vkH83hRuxYwKc2xzIx/MTnz08YMptBnLpGyYdSVrTrbFz3aZwsx2CiXltSv5
R4y5gWof22/J1H1aAa5kp2e7r2cMm4LF4ZDMiy3HybvVGfSgP6bgefb9LDrm
Qub48IHz9Bzbz5M9Qod0XcjV549jr7+mEKl8hXf/eheyTEOknt2SKaQbt7mt
r3ImLxxsUDRYxYQFlQ/XJtY4kwsvAP+8CBNs4mQkLEuOkde+MOjy12ay708j
pSnbjpCxV8t1L10mfKKtV69qdSCfFrC1dCYxQbw1JQVddCAP2Jx/ud+ICbSE
rM+Zn+zJjycePdWgMSG85DpPU74d2V1IJ3vqABOK5EbCDjNtyC8c1Dy8/Jlw
78lrvPWPFVnI2f1pxhkmVC7XuO8otiIfcc/Z0H6O3S/pwKuB41bkWT/hcu0g
JvjHJUn69Bwgy0XPLSxFMgHqK5q+Ne8nh5az4hJvMGGsbP7RzpeW5NeP5j/V
pzJBM9pO3izOkixOaGj8SWOCxbFfO8QsLcklL/I+2GQxgVNsotOtwoLc33d5
q2wBE/J3PTg08G0v2WCNZVnVEyZsecX6ZpxiRo7ii+Eae8qEIbLXUwd1M/Jb
wXqrTZgJwWNl8U9e7yK7S2n/vVjPhJizjpu3rd1FvqkhQWG+YvtVmhHlmGhK
/m038P5jHxMeO43MZnTSyHBMcseGz0yQiN1xxSeSRr7iuj8ADTLhV/as8EEt
GlnmVKNU/ggTFj9eIWySqeR9UQXHvSeZsMFnj8FfJwo5/crgo6xpJrhVXdij
IUkhjyVuWvfuJxMSpToeeLabkENvx5XozrH9eHNyrtPEhPw6+zmHx18mbNtZ
9ohnEcjid5f33/7HhOKBCG/FR0B2eqB3580SE1It5S9R/IFcUuY7t7LCBHnx
TSf2qgP5f0kXcBE=
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwdl3k4VV8XxxFRIUKpJElFmefpnLvudafkh1AhU2WuZE4yFUVCQkgZ00yZ
p3J2ZEqRzHMICSEhoXrv8/51n8+z1l77u75r73PP2XP6gokDBxsbm+Q6Nrb/
/9768yBNPB/P2jz4gnu2C5XyyOw+73yLNOdblMTJ4iq/F9nSzumk2MsXTFZn
ulC8+qgVX8xj0p4O4c9TLK5T9HBa7/yStLrxBdbJ4gCRf2X/MgpJe7yZbhUs
Toyj4WvRpSRcY9E9mcUvN0e9XfZ/RXqm/47mzuKGqFbmohMimXgPTJNZPBfG
+9XvWRWp/LChIx+LA9++lPmV8ZY0qaBb0Pq9C23kMD3nk1RLOnfyfcttFifC
0ouf0fUk1Za91fos3ht894dH2DtSyimP63+mu1Bepa7qnP97Eq3gy65nLH6n
HVo+7fSRJCTNUz831YWe6woFqb1sITmkyfZEsvhHn32697NPJHlfSyTO4qAd
PCPzGW0kwU9DPKqTXaim3GKd8v12UpRY47nibyw9Fs+lPJI6SPyWgw8VWZyU
ZOg0G91Fmt3Zliw80YUG1TMi5G90k/z7T5sGfu1CUp0/np4P6yEd4A4Y/TzO
0id8Z3rKv49U9L31ZtxYF2q83ecx4fSZJEDOWskd6UIRyYnv4pWGSN/nfniP
DXchWWeSpcrLIZLkLfzdVhZ7ct++7PlsmKQW28Lu9LkL/aWpEnMZX0j9+yuq
Kvu6UKbIgGGs+ChJV6l8R01vF6KOXfuscH+UVNyx06SmpwvdDOtiu5A0Rjpk
FW5T0NWFRN/6632P/kpSKDrERmvrQq/i9rZHbZoglR47ZbOjtQvZnP5gL3tj
guSwbJrxraULZbOLXz8b9o0UPGHf6tPchZSgquGb/xQps6uck/auC+lXchuO
O82SVNnLLVElK/7v9OLWuVnS5HwfIfi6C0VJ2Dbv1Z0jXSNCOa0rupD36Qof
s5o50sObVlqDJSy94+41xe0/SDbeiudvvuxCI98HTvkt/iSVxRyVj0vvQp0x
N4tjtRZIPF6f9b1SWf4paG14GrhAuq2qbvvfvS5U4JGQ18O1SBrRC/OZTuxC
Vxb1/2lvXSLxvMi51hndhST+lN7/o75Mst9lnXvSvwsJpznMiVxeJkn8MuZr
utiFeEhCVHm0TPL3vxSi4dOFZkPcpmwYv0mQtvT414UuRHDu035zYoVEvpKp
tM+hC1nzxnVd9Vsjye52mlM37EJNfOobOK3ZgOew70Hqzi7UemRLcnMAGzw8
UrwiItqFum/M7L97nw2GzA//HRbuQqNcj6ny/WwQvCfzsTN/F1r7sy3E/CQ7
sN1Vq1Rk70IHZ34v5VhwgKy/66fcsU4U0Vw5euw4J/BvqzI4+6wTxfCmeEn4
csJlxeja8EedKEHfl2PqDifsozMq0rI6UXqdvERIByc8mo7e8zqlE5UQ6Sef
mXHBeztX+eLITjT24krrX5P1EH7l8LUsl05EuUV789iIB+7snGcL3NuJQvSL
nra68YDd+whurt2diODaG/8nmgfyjwQJR+zoRNoBbI6mH3hgrDDDIFiwE6m4
vNr0j7kBKAYKYcr/OpCUntKJ45SN0C2xMeZFTwda/0tshlONF35Q3FIEb3Yg
B4UVPiU+AVhtEqpRGmpHBn3hD0XFBaD6ZSnX9t52pBougrEpCABF6IbFals7
4vyseO6jsQCwySUczq9vR1kxTo3nEwSgdbPKu5EX7ejz9/brz3YKAhOcyXYB
7cgi5+W/vQe3QAZvbsaYUDv6T8bhx1aGMEwb3eCSUW9DBe2BPu80RUFr3/5k
N89PSGfLwZecwWKQ9nguPqO2GTmtxqU+NJeAZ+bum94mN6ILdV9VXv4nCdOi
ud35r+tQpOX6fX/OSUEGbbbj/utqdKb+sqOS834wf11ivzeeQFXc24+etZAG
YQGno3PBZUhJMCTxm/dBuLFDSEa1oQBV8HRJ1wcchIbTu/MeFxUgCpv8q+yw
gyD53TpEOrMAmc32fbZNOAjCfnv/HPUvQL5NGjKdhQdhy3+9LlS5AvT6xuyr
6vmDEDpvt/ToTj5ictgO33M/BBtzKwJt3fOQ3U9M1vCcLPDTckdLU3IQ3xa2
lnZvWVAnNZkFXsxBFYrVXicDZcHT76rWKbMcJOxGf+UcIws7/PqoYfw5qGHC
UD80TxYCTAJT1MOeI8VBW+eyBVnY8Pd5Js3nGWJ7dyVbMlAOzu+7U956/gnK
/arHfHpNDrJffGWeMHyCLNevn1aIkYMM6qrOb/knqEgvUgVLl4MTdz9K3Zl7
jJyJuOoTVXKwy0Zg6JDPY9RS+GAoikseguQinr0PfYQy02rFfkXLw3mmYeK1
kmx030q261iiPNR6zzzeey8bJe+Iv12UJg+UrNCc/uBsFJNot97zpTy8snWx
ST+cjfxjVmenW+RBeipMwHHwATIJUno7IqQAeO6Ptu+8DxCnTapL810F+KN7
/UtUYCb6t5NTSi5LAQr7LHrcHTLRSo/r4M1nCiA9U7PX7b9MNHdM0/TwKwUQ
MF8KKtqVifr/a9Ot6VcA3zTFBjeUgXrTOHkGNivCufhZ/WjuDFQYo93XaqII
bz+t/tlulopO3+PnqjiuCG/KnZLbZVPRlicj8pmWihDHYbarjCsVuVdFXr1w
WhEWNOLCfpfeR7ILvTK8nopgoX542xnx+yjb4rIf7bYiSNtEp76aT0EJUq9F
yj4qQmD9QHxrWTLSU4olpbcpAntWmZx/YjKax+xdrncpwohxRjTDOxkZn+Ct
NPusCPz57ZqmismIN9LK/seMIljv3Hfu0LMkFDa7VnCQXwn2dP7LbchORN4V
mHGqgRKwnZcbYitOQMWW9Rw9xkqQPbL64VlCAlpaMS4WPqYEF7f3mAV6J6BL
OvY7oqyVYKeWeN491QQU9Dpy1N9NCXh/rf9eXhKPwokuP/NYJeBpDsdtq+NQ
SrVHplC7EmgLFsCZpVjUd3rV1KhbCSYCTzR/7o1FYuuurb/ZrwQS9Y6NISgW
pekln+UYU4LvWz5GKNyIRQ9qCLUfi0ogPbk/UFc8FuXUbWps3qYMS3k7b8+k
xiDU+HD+xkllGDx5tkYo4SYqEG3xCLRVhvRvDUA430TZjitz7meUwblCRCgT
u4kiOYxmT5xVhh3Nal/5JyKRmfby1L7LypDt8Sv2GikSTT7VH6tKYXEgVTt/
OQIJ35jt+t2jDG72r6eS4q6j9V3bT3wfUAa/lrFrE+evo99S1M6hYWVw/X6F
8+zh62jwTXJ7/TdlkBmbGONkv46eLpM/3fmtDC13Viuve15DuHNCo9J2FegW
0FRIsglDLgytShdzFbAoV94bb3EVzUhvr823UoEVu8pNCppXkefG3x9+26nA
Xf2IY3+3XkUBTWX9N1xUQCBpbad6xxUUa6q59tRfBSIDVsfWmV1BJbYaOpP3
VeB854rHqGUI4vBTK3cdVoGmlJOGFNFAFG4hUlUwpsJ6fjwOchsOQLw6iw0r
31RgTaJubv5ZABL5W9QdOa8C4YP3BzlIAUg6THX52TpVmIhU/ah89jIyilXR
mNqnCh7qr654tV1C958oFZ91VYVKYfbZqCFf1NBzpiHdTRUuvD6ThYp80cLG
xL42T1Vo5vmZqX3DFx05v8Kue1kVYo4X8PCo+KIVpbeGvFGq0FhduXPphg+y
eGU2kZOrCgLkuoQmqjfa2nxx58ycKoh3LAlNT3kgyr+n8pKLqmA+VZLj0+CB
3BT7ycd/q4LbUQeK7kMPVBcHzgS7GpxbTtscbOuBfE5sKI7ZogZNzKS5T53u
qH0oxVBBVQ1aj/vcrc+4gG7/rLziflENXNbbvGHrPYvcWmNPWV1mxV1f079k
n0UG+WfIzGA12OoUGyDufhatv7CBXSJcDTwVHvClcp9FAZNmIR8T1YC/6GtI
rrYrchyeCpIvYcUT//AX5jkj3Y/bA6YX1MAtjU9BqscBbX8xfbJ7WQ3SnjvF
ab5wQEtRSKdmTQ0y/BxISaEOKF/fYfUepzo82STboKTggPbX5fkfEVYHg4x9
Ux9v2CPBSsalZyrqsFGnO93M4Awaf+bj6+ypDrjyVd2ydafQ8V1/B5/4qkNW
5O9G10E7VHvrOuObvzqMaKy2OZTboWzvJFHXUHWYluG9pOJuh07j5RVnE9Qh
rHKPMVTbosFPa3/dStSh99/0jcJ0a2RIveb0skId7JedciqsrVFlCV/LLKEO
3o6uDlQxa3T/nnimez2r3h3qof4UK2TpAHqe3epwqrtAnSvtJOpYDg33WVEH
d2cHr6uvLBD1LO9c8V91EDg1pGx4xQIVDSSYL3FoQNohY/1bDAsUV/1Q5uIm
DRgySTjh1mGOjKPq3/uJaYD0uBJX5NIJ9GH3JoEAXAOoya9+3PzvOKqhxyVf
vaoB6/r88uMOm6Ixx1dN/tc1wIJ3HIvZbYrWh49yeEVqgC7N4X3fogli1quf
PxOnAfrC9964PjBBHxh9ZGqWBvxsb991mMMEtTGlpriqNSAob/FoXLMxWnD+
T+JvrQbcuHc/0+2pMet54Hts6Z0GiA6sZSaEGaPj7xrQ+CcN4LdLLn+lY4x6
D59PqB/WgMPV9ts+WRqhEf0S7Aa7JhzfZuCSpfMfWnf2s+cVLk1QTw3k37Vi
gKRu8jy5tEET0uwzuneWGyDH95ZbXAU1IWT1hE6WpgGaPPJvXH+PJgwRbyXK
sSNo3oAZy0vWhJGtE+36tocRu1HvyK0QTbBejefZuUJDDcSxvd5hmuDb+J3u
1kBDsfKfzphHaMJnuT8L+5NoSIK/YVQiVhOg/+y7WjUagqbi8fx0TViLnXvx
8CIVhRy5PdlGaEKWyPMCMz49xHzFe6isWhOE+3K+PR+mIIFDEWfv12lCdVla
rnUJBWVsDJ62b9aEljQZRrMdBb15d25mcUAT5o0nv3wqJyM2JnN+2x9NQK53
ebsuA2oofau8xqYFaote928eAxR7gOQ1xKkFxw3W2mMVAElwqy884dWCuTvk
FpF3JAR1e5e0xLTgy3h+jWU2jkKo/36f1NGCvMD0BYuLuoiNXMKecUkLiGHV
T2nhmsiS+rWxO1ALSLnCemJMTVTEEE0QvKoFUrJyDIUNmsjZ0H9/aKQWwP4Z
ScFoDfTpJH7E8R6rvnT9uax76ijLty5BtlIL9BLF3BZaVdHapV/WDlVaYHFE
plv3vio6Hih9IK1WC9783UficVRFG8Miyzc3a0HI03WP966qIK/bhoPzg1qw
6mDx1vCQCqLmdB4oZ9OGwdqfb25mKaG0l9w/fnBqw2XxHQeueSmh5QLNioMb
tGG0LHh5jqqEcspTDO4LasMVFWJl5zdFJFJv4xEsqQ0XY58XZKsrovHh8Qoa
VRuEPbSm7d7LoYhtv/5rDdeGrIYSg807ZVBCQ8OX6pva4ObVdj2/VxqlX0q5
VHhLGwZ42csnU6RRSR/2MCFJG0KXU/h37ZJGY+lha8cfa8NPhg5mK30AUaS3
PO+r04aWzrVJQ4t9yLDnC3xo1Aa1zowTLXv2IYvI4s7XzdrQdIVtpGNSCrlP
m3OkdWrD+lcZo85BUig9L93Cblyb9b5TtC/2+V60pinHM8alAx7kQuslMUnE
M/k3tWODDvw+eoip9X0PErrXolLHpwMZjD9Rs5V70ME/XraPRXTAmyylVWC3
B1lUVZS47NOB68kevD7PJVDJYabDDFUHhIfOHdN9Jo7cLc9U/wrVAZN7Lzxj
xrYj/vTJId0IHZDeThsIv7sd5Xzx+HclSgfaHGf1DQ23o6/nQnR57+iAaIiQ
nXaFKLIJTi2ReKQD+yfz8yzubUMG2V3PDjfowK2CzZbCV0TQ5ITNu5gPOvBc
87HSGoigCLnxr20tOmA56/kknl0EvS1ZkLLp0QEhL93sxjBhpP1OMN1zUgdU
D/79LRMvhKRnjsTf49WFQmcpql6zIKpTbssfEtCFA4t3LO2SBZH9RcuWfSK6
0P5Jzk/ojCBKZ3Phy9ulC0lHBAbUVgTQVqHr4TXyuqB2df8dioIA4tR8c/m7
sS5o9I6pXXHkQ1kBjBTlY7rw2tQpdD8vH4Kq5rKLFrow4Mp7/n0BL7qsP7DI
floX5rq7Wzas40XzVisXtnrpgi2pjbHl5UY0fEXVnnRHF8LSPh1QVOFB+7fy
x7jf1YXmbc/x9d+4keuzr6WZqbpg8FTmUW46N1poTdnE+UgX6qZJ7M6buRGP
FHthQ4kunGw2kz26zIXk65rYTbpZLLjls/rMOuRl+fhQaD9Ln1lHp0LeOlQ2
E3KsaEgXbpnceNjruQ6Rt6k+3fpNF3Z5cV3HVziQmXOKcd9vXeAJcvPmE+RA
/hud0u13YhDu0J5Kt2ZDKA3e3dmNwe8Y+6mbMmyIU2XHz7q9GFTjMe8/Tv8j
ok820WVkMeAzjIVXe/8RGTkqM991MdAyEbpwMP0PUW/Ihl20wWDm9iGb1ncr
BO+XHscnpzGIbrgf2ui1QhhfLIztccSAH+8mV4mvEL3pjqM6FzA4Lre1Mf3i
b2Jm7sNNthAMQCYUulSXCeH4u703MjFozfT8b6l3kdjYIfTJ8yEGHlcWk5yT
Fwm2bTH1J59icFfW7P6d44vE95SrRXL5GMi0uJqLdiwQdVlnYz69wUCjb1Ij
uvcn4VeAUbYPYaBMQ/KPueYJt4VSTY5RDMjFUte/N/0g7NWVFaa+YtAvUhvf
mviDOFqxX6xyFgM1m03Wngd/EAerNy/Z/cOgZ27vkX7zOWLg0/DTJ+I47Gw7
m8KV9Z1oF7LKuC2Jg/pzj+2L1O9E47HORP/9OIhNxBT+mJgmSnoaQw3kcTj9
rGgHt+o0ETtcaD2H4bD7wKDp8c5JgvLjmqCmNQ7FtT7pmocnCE0VNp49p3BY
riopK1/9Ssj7+P/d4IBDjV+ItfjLr8TO325TfedwWB/y43WE6Fdigc28NjgA
hyi3DjxjcYx4JHDwUv09HJ59eCQ/1PmFkB+3WObMwEE4SfirxO0vROmrGxcp
2TjISWZv1TP4QjQ4fvOpzMHhxz0+9z21I8Tk6yeehZUsfRKF2X/fDBNyLgfO
pX/GwWXMcrss8ZkowU9M9X/BQcc99Wa4wWcCFw533TGBQ++R9ufm/YOEIRp3
vjOHg3ZsooM+2yDhLvLI4SY7CXCTBeef5v1EUZWU7cW9JLi/M0gUHe4hdJPM
BosOkOBo5c+XQd+7idpzYdbzh0hwS7Dru2dcN9G5bfTkeVVW/OiVlMnPXcSv
8w/Mz9BIoEfZnZ0f0Ulo75A0MXIiQXfwsFsifztRPXv0U9RZEiRl/7NYedtG
HKm9Ytx4gQTlyM/Syr+NsHIfNqT5keBVUSXOP9lKBNVlHNG5QYIoUtBCe/sn
ospzN+3AcxJUDyw+e/fsI7GyOBsr9pIE5x3da0K1PxKql970CxaSQLHa3+Pp
+2biSfAp77UKEngtapbsn28iYqMePPjUSAJ/44kCH6MPhN2jAxwBkyQ48LKw
YJbxjkiRWf7PY4YEdid0Qq5MNxDtOQ13HedJoKWgehviGghmoYvS0RWWX3yF
pprD9YTo0DFFIS4AT+cos9yoOuLfdJLthDCAR+5o/9utNcR9+RCuL1sBklZu
30r48JbQdHd+PiAK4K7zVtQm9C3h+VPzV6sYwKUuo3cff1YT4797YiqlAOh/
fGT7P1cRzevFiDhVAGbSU3GjGkScZXLaR6sD5NMe/zttgAieyOkNrNcdaPTR
TRHoJAgKX+WxQF2A4PyPm/fNVBIlQjbfnagA9zi7U54pvibSJDLEMDMAtfeX
RwRXywj+SKUGueMAke2R8WfvlxHBP6u9xM0BIl6pufCQygi7urHGfycBRu4m
dqyGlxKS5w5dqj4DoFuxzt5GuoR4VFrSwfACyE54wN6XXkhs3cO8oukD8KzO
dctj00IiPLJHVuYiwIwYcgzgKSScrddCN14GMFe6VK3mU0AcXEdRbroKMC07
+OKGZT7xwrApxiQOwJ9+Ypg/+wUhXmajrZcAQJmX6/0i84K4tWduTCUR4Gdo
wAfX/FzCfWELJpIC0JeMtfjV5hDKKeZTXZkAAwfWKbOxPydKxr4wrPMBOPmi
3tKqHhP7jXx+/lcIMNlcbvfB9jGRVLY+HS8GMLtg/7Lo3yPC76bM0u5yACuj
CWay3iNCW+lC9sgbgOWf2QUKfdlEZcAKm3MLQDkvsX+alkUsvRyfu9oKAN7c
cezzmYTil9ah1HYAbn2Pcuf0TCL78PM3bd0AFbec9m3/m0FEbrUKIQ0D/L4S
4c12J52oOcx0t/wC8NQu6BWZPZ34E6Bq5zMGsOroThq4kEa4f+GF598AFjJ1
ktnMUonjeZX/ts4DBKRyrfJp3CNivzydVVoAEO04906tOIV4tzXxs8ESwN/S
tmEftRRCN9ANXV0ByAuXWd2te5eQ1N8dPMNBhpVaizfMU0nE7JeQv7VCZNhM
/f38IWcCIb3t/MyQCBl2iycajGXEE6f1LQZXt5FBlCZ6+wMeT3TmKRFKYmSQ
cTRefyk4jngdOBKYKkUGI2N7g3Sh28RSXvP5sv1k4F7JFfN4HUsojFZYt0mT
4UokubDCMZbI0o/HNsiRgfgsHYUF3yIitlH/eKuRwWB22H8vZzRRra/4/ZYG
GVrLbAcFzkURq4FiA8+0yBCb2beY1HmTcBtdeD2EkUGYzr75SGEkYZb/MMCA
ToaF3CwFlcgIYs8R7rW9J8gw8MLcduphGKHaode6w4IM6NnCkUfaYQTdNuSJ
4EkyRHzZa7v/Uyjh6vXb7J8NGfIlUNPJdaFE0b2p3F5HMugfuWT+7fIVom6f
dNgnZzKc2U1z2SF+heh+aW/Z4EoGCVUNn8GqEOLP24H1JW5ksPnKM8/NH0LQ
pz/a3vYlQ1qX2HSweyBh7surHuFHhrV3PLEfPwQQrmyHeYP9Wf4L1n2bPBRA
3BKuLjsXRIas7++dLef9iW7dIkHmdTKoSpvyraX5Ea7RyW//3iEDf+21GyVu
3kTAto67i0lk8As9bSn004uIyRR0n75LhqshlhxZl7yIwuJIsd5UMmx1zkfK
0Z7E2kCAT/FDMsxrbCrRanIn+J3Lj+Q8JsPgtiRF3dPuxJ75xT0PnrLm++G/
cJv5CwR9/YXm2FwWp80b37ZwI27Jnzpwrpil/+H1sTnTs0RWWeqf06VkcA81
nba+50oUUXrbLMrJYPYzzEBj3IXoPm4awqgkg3P3T/fla86EZDCtR7KWDLr4
Vk2YdiCKPsrc7Gknw5sw1+F+5ikidm/Vw5VOFivtePK62I44e9H8zc4eMmRs
k6wo22dHSO4OX7QeYM3r8p0n93fZELfcRm1HxsggPTgYNMNtSbhWX/ZfN0GG
Od9B12ABC4K+VeiO1CQZ+hs0N/mKmxNrleRGxxkyMIMN45T1jxOufOmqU0tk
WLaqXzMeNCHop9SNeH+ToWz9Tz6fzSbEnuImF7lVMuSl3Gii0o4S3VZraRf+
sfaXfEaSDDQiaDkWGxa4KSBtcrFR+v1hQoLtx16RjRTg+dV5+44Xk1gzjcDV
eSkwJGkhuEWKQRSslnj5CVBA01XqWtZ9KiFxRHhwTZQCAh/u/NRqIRFrac+X
d+1k5U8nFP65ixFd8xQh0i4KSGQMNGd46BAxKR7MK3soYHzp90P/wxrE6rfm
Aq6DFLA7pMj8LK1AdGKOTftlKcDGbPNTjjpEFNz+85UhTwGImjY8yi1NOGvJ
7opUZtVP+9IqrreH6Iy4Ec6vQ4GQo1dN/LasIwr6JbIUMNZ6yj6r42nfK6MV
y14bk1icoWb/6NZnjNo9/iNOj8XbTHjPlG7A8w9QrbYZsOrHl+4rPS+BR13u
89U0ZLHwXcbdN5K480fP2xbGrPzXV50OcezDxS9m1t0zY+1ftMW6xkQGj6r7
qyhhTYGWdfeU7t1VxMFjXGmXLQXc/URbj3kp4Qs7m5V3nKKAebzY8Sd0ZdzK
I1VV2IECfi/uN8b3quACYtfUBJ0oELuAOlzvqeI1defU+V1Y+5me+3PsuBou
J6aryXOe1V92+ZnPFer4SN1eLa4LFHDeOt1caq+BJ3ps0ubwoEAel1Gh6AZN
/G9dr86aNwWepPbu+ELWwps9LpHmAijQoJoTe9NXB78qdgq+B1Eg2fev9v1f
Orh6PZM8GcKq/9WexOOti6eJieqNhrHOw/i7XFNbDDep/6c3fJ3lx+W7b043
Y/h6z6/UwQhW/M2eq7JaOH6hvoTeHcWabzFT4AgHCZfyTGN0xLD6tWM4f7Aj
4d1i15mtsSx9ZXcjTr0i4eB5TP9DAgWKxj5uiVEGfEEMO/IukQIBd1bS1CwB
f1IvZVCXzMq/eCRHIARwgV0L/725T4HsyVMrEXWA19T3GVamUUA4s/aR1lfA
/TzfGlVkUKA/tT2Hup6MD9XHHS3KpsDfbwLNMSQynuDpb5L/iAKjVA3uIQsy
ztx12vTFE5bfucpdLz3JeL6n0rEnOSw/y4Pffk8n4467th9/+IIC7aaZb88V
kfEdDWwnsvIoUGBkuzeqnow3e06cSC+gQBR95y/THjJ+dVeL+f0ilp89LfIf
vpFx9YZSi7slFGDGZyWuLZPxSc90y8QyCoiO2ndNr6fgabvCT8ZXUCASDlzM
FqLgJg1uVrGvWffN4VXPwd0UfL3XcetoggIG9drkcBkKXrELt4l8Q4Eazcjm
N8oU3K1hn214NQUyqvquDGpTcEkvPruwGgq8LpPX+Uqm4J27Fu2u1LH83dVc
Mcyg4JEN/aeCGlj3Vbcps92AguNeNacvN1Jg7t5VzzpjCj6/K+eM3wdWvh77
7UpTCv6oId7ep5kCW8xi9d4co+CWXpcdPFtYetn2FLYfp+D84mccL7RSQPxb
9RTbCQpe3aDvdK6dpXdg64A+K+7rpezs0snyf8MbyzIzCn5QfIeLYzdL/902
MSMTCj7YwO56ppcCC430N8JGFDze65urXT8Fjl85Wc9/hILvoPt7mA6y5vvy
RJQVnYJniW7yow9RQDGlp3kOWPWm7gVpjVCA0LK72MLqv6BS9prsKAWmXUgn
2FQpuHZs5c3d4xTQzV+VviZLwatOG8ZtmaDAZG127BkpCt7C7Z6+PEWBmTuN
eqQtFNy8l+3R1HcKrN+l60rjoeBDObdzBmcp4B+lOFDyh4zPHi0sr/nJOp+p
Axenx8m4rxT1TekiBbho7u1lvWT871J73bNfFJDdOvCVrZmM899faotdZZ3f
Q541QoVkPNEtvDf0DwVOJEbvH88m47vIosO+/1h+fVrnqZdIxmXHtWas1unB
zzvVh3IvkvEjioE8Mpv0IOBXyI40NTIeUbMOq9qhB5cC+dXrMlj3ISlBr0hM
D24yAhbaogBPctmn/1hcD85UOT1L8wP8ET/jRLSkHowb3HLxMQK81jzSw+Kg
Hsi2mjn3L5Bwju8Cj35o6YGUVYn4vls4HiAivlnSQg8cdUm0wWQdvCl/gyXp
pB7IGByecLLXwcUNF7OtrPWgYvvNlC8KOji6/kE76ZQemCcs8hJ12jjHsr8j
r6selFSzx5staOHhvV2VS/56cMjg/Yz7UU08Lv32uff39aC48UzBX0k1/ItO
YOlEmh7YC8ZypP1QxVW7nTnWZ+qBAdv5Zq83qniHACTDQz0QD4pPqLdRxUWv
zrwtztWDY3hLpHyaCp5mf2RnBqEHc4pjCU3SyvhTGa5G7yE92HhP7s6eUXm8
VYy8en5ED3z3cUwkJ8nja5sDZZ1G9SArKfdR3BF53HBpIcZigsWyotf5i+Xw
hepRU3xOD8xwva9yMbI4WNUMcLNRwdHzwM+9FgdxVyO2zewcVNiuIiLWLnwQ
j6fowso6KghGbBjl/iSDj0sXZU1zUyFrKenNb33W/8HiA6dPm6lQ/Eoinp0m
jXfHhP5I2U0FpFW60eXofpzjKpJM2EOFjstG3Joi+/FDPqum0Xup0OaZpXO9
Zx8edNKrJPgAFYxUAh6kndmHS0mfuWyvQIXb2ZUShYFS+IUqCpc8iQqx40FP
/jZI4usX2LdX2VBBHpePueq+G1/OS44ZtaOC8trP9/b8u/Gp8wqcPGeokMMx
/oSRK463fLWaNWR9QB1oOhXAM7MLT+krre2/QIUduhcL6ZfFcPm35z2XQ6jg
G1uwRentdlwihHNiZygVLCU3hxq6b8eFsHvWpGtUGKvAao3Ft+PLJQ3M6zeo
sO9EwvO1AFG8+tne3cJxVLgeH+bxhroNPx7X817hARXyhgVEz60J40wjd7Lp
Qyr8Nl5L4ygVxnV4uUt9H1Oh32i57pSnMC5xXTWr8jkVbIbH13tNCeGTl275
HSmiwu7TMaN541vwoFO0fU61VHiVqpy7k00QdxfvT4msp8Ld+Bd33eoE8DN9
ngIv3lHh7xFujgvRAjjzWMbqQhMVvp8zLvfYJYBvObz66Wony9+whbysSH78
sWJ+UNpXKmhSNvIddNyEu4n8+F36jQpWIuecy3g24aorij6fpqjgczjovn3O
RvzN27yznHNUkN3jpLbp1wa8+3ieuesyFVL4C0ood3lwnsCXyuobaLBxm2Dg
Ev96vPnUbK7RJhr0sKuf31bNhSfQFWRc+Giw+fXUxEFfLlxC4OXu+4I0kPLd
f2z3MCeu+eAFL8cOGsiI8Df9qlqHO7/LHW86SAP0m+lOy2XH5V98P/VVlgZX
JcULndzY8YU4uQE2BRrIBir8PqbIjodY5bapqNCgrPPqnegSNjx5NufNXR0a
fEoavXU8+R/WIJKT4mBAg01zUb2hqmtYzMqUSLAhDfgDUn+Tm1cxs8+Hbicb
06B013+pZi6r2NCT5+HvzWjwfVqn2+nBCras89xbyZoGraN6w737f2Myp58Z
/jnP6rfU7WOJ0xLWkKqdN3+BBiCPnb6yYwlz7GkUnPCgAbVyNZfcvIhlG0+1
t/rQIHZAOypZcxGTIMmefBJIg7ZF7KaZ6AK2VeyFk2k0DXgb3+u/ZZ/Hik/g
75i3aKAsF5j7svoHZhbffBC/TQO/ewYbXcJ+YLc3zn6XvkODyDmPY1obf2C8
vxW8/96nQf9hnanNu+cwjs78kKc5NPDtuNaq3zWNZQpSRtJe0MBu74bUJ+7T
GPzXqpeQR4OA+f0xlpumscCa+fXBRTR4+kh2+hl1ClsuUIk2e02D6xG1ArF1
37CZW8V3/72ngfi5ax8lOL9i0e9prPNFg/OfW78t5Y1jstydVpMfWfkne9vH
bMYxl6Cl3R1tNFgrXUliI8aw0XMaj571sfor+XqoKWIU6ztcXnBsigaNT+DM
yn8jGMUo29znOw0qEg6d0OUawZ6Z3fqbMMvajynEiK4cxvxtHfTbf9Lgv+K6
zP+UhrEdPoIjJms0YDOwPzEmNYRd9V8L9/xLA5IedeRiw2dsMvirXBwbHZqV
405uOvwZK4+svPSJkw7qHqWdjUaDmHmGi6AxHx0EeuhWy5792JuHZqUXNtNh
YWv93b1s/Zj0c5L1LUE6cGukxXHc6sOWi0WeNovQYfqJ18jb/F4s6X0V/CfO
qveqhZK/sQfrXNrurq9ABzHbCScrrk4MX+Pc6qpEhw83L+4Vf96BPWKfe3VD
hQ5F0weddU06MF/eOu53GnQIILUIXM5ux0QkPdMZwGLHvG+XzduwgAPWNCcK
HbZUnQu/z9OGjcoyp65T6bDMffLwQnkrVqQhrlHHpAP5z82HGhKtmNl/jc3U
o3RIrK3vvLPSgr02Kfa2N6XDu+JE2q/CFkzKPGNH2DE6xLCp7nFza8EWTvs6
vrWgw/3WktuiTR+xeD/Jv+TTdPBTHyF065qw1gf+ciQvOph3RNfUCTdiW9hK
yrV96OC+xefYr9x3mKnVD5r6RTpc7+q3f8x8h7ULO9vIXWaxZe9ej6sNWNe1
Y7d2htLBIEemRoy7HhMdid257Rod2te99qx4XoeZ4x8ebwmnQ0X3z7iXR+uw
3iXKmw036cAj1WMUnVmL9Tsp/vgVR4cErd17Eo1rMLGas4E/E+jQf7vZzO3f
W8xa4vGG2UQ6jNhTmy+9fIsNdu+SHE+hw8Zmi9jtQm+xocObTNuz6HDgwUcm
z0QVNnZovCivgLX+n5WQVSTC9kfsIecUsZiPzzVvI8IcR62aHpfQIaL5lc5s
FIFN3G8bS6ugQ+OGPYUCSZXYJF/V1uhqOnzfvTtnf9Ur7KDrWlZEDR0mZO7M
CBq/ws7WaSiE1dFBMT6GKBiqwKaDXjAuN9LhF7NKcW19BTYze8/PpZUOIfxB
glxOZZi8QRenQzsdOhegf56jDLvwZMttu046rNRfSXPMKMXm7G48PdFLh/Nj
mWXvPpdgPz/59tJG6LCVP0tx/EIxtlx4VFdyng4vPPmP/GwpwHg11ZuFFugQ
GFUcZBRWgEm83mHHtcTiuqXsds0CjFnzJXTiNx2St4z0MR/mY3fbfd6/YGeA
TURKssPNPOyFuaV1xjoGNB+ip91h5GHV/fjsbS4GeI3aHGrmzMMmR7mFfDYw
4B4YmMVzvsS0F+9a6ggyoG+Q4yzXllzM8FLQtKwQA3rmIg+Ip+Rgp/+cDhIX
YcDfsMVaPqkcLJJLNot9OwNe21x2Po49x/pEiG/1EgyQqfZ70hb2FAtQH/Ez
U2SAZfg4Y/XUIyy2om4jXZkBImInu4I5H2HZ+PP7GqoMqH6l7e735CH2ge79
ZocmA2aSNo+9XMjGdp1YzzNMYkDHXimxB6kPMOW+ybutZAZQll7nKB95gNFt
Px6q0WPAOJ9bMO9KFubmlGz0mMGARcuNp2+ezMKIiweTzhsx4OCec1JKcplY
6yq/jO1RBtSVORlHj2Zg48E/K4xNWX5d+OfIn5qB8Ue8HlQ5wYCrXSlD5wUz
MJtkw/0rNgxwiqNFHudPw/6VeRZfd2PAlavct9XoKVj/+oKbWe4M2NPyWkHr
w12swuzHKcKTAWlBNTIWZncx77kL/Eu+DDDQ03jf6JqMTRw47+QQzAA27nup
YS8TsVqfHOzKFdb6UNGfl2iJWNbbKaHUUAbgh8xNmQN3MGtb1zft4QxQ0qWt
GW+5g7UmOm2nxjLg2PaRQ/jteOzl6KNZ2zgGyMflKx1Qi8eilMdrLycwwHyg
eyK3Nw5jNNt7FiYzYPTJ3W9+B+Ow11yn30tmMmBqKPe5fn8s9tDbKpC9gAH9
FKeSyvXR2NXqe6a7ihgQFgAG5IAozE6gT0arhAG91X5VOgs3sR05Fp3uFQyI
fD9Q6joVicV8Oa4wVM2aV/QNZuxiBHZWKZFrrYY1/y5fwaeBERgzuKNvWz0D
rjvZjn3ljsDW7TSLMHrPAB7mJf0CyXDMz+ToMNHGgOmqmdwA92vYsYzY0t4O
Buz48c+ynucapjzzMXqpi5V/cFzsR1YY9v2GobZ8PwOcf3oLVvWHYqerjsSn
jjJg4KVjqLfDVeyIIp0WsMiAhDLRasqNYIyto4Pd+xcDHGTTF1uXg7CSSw7E
2d+sfmX9h3tdgzDJt2EaJ/8woHZT3rj08UBs5dhbGW0uJoxbdd98zLyM5a2Y
jCtxM0Hn6xR5sNEfc0wfyZLZwISELPcK3Mgfa51gF9vOx4S5Ou4Gc5tL2LPL
wL8szAQ/uQeLqwkXMTuJlsbZrUzI4hU9GXngIra11jb8qygTgr5cev3nlS92
lT+YrUuMCd4Ribe8Jn0wy8zK+WIpJujRDh96a+WNbajX7vJSZcINtbLPcbEe
GHG2Mf6sOhMMXokm/sQ8MG8BS+Mzmqx6FiWH66fdsSGLS+9MdJmgID4y+8LQ
HSubLn2lRGWC/6cSjZc0N8ztNsNPhs6EsK3b241KzmNS6l2qe5hMcA68GOwn
cx6LDV7KFTBgQmRBxg31becw5y1qGbOmTGiMMHiNb3bFxEtrrL4eY0IAY3Dw
V5wL1n7SbPvnE0xYvC0VOi7qgsFDr7jmk0wQbv24Gz/kjIlqFoTlnmHC1Vxm
T5uzI1ZvreBy1osJn5avx62RzmBbzji/SvVhwsZLuqMy3acxG+dMvpaLTOC5
Pq973vM0tuQpVKAawIQu7wI9vtxTmFTEr5U/YUzoTuV9ma5lh7lHK/6nGM6E
is8qHz9V22Kv4lzST99gwnOzhadLIraYSWqfXn00E8rnxo3y66yxkAIUFZvI
8vPUY0kB45PYh9LlwepkJqgX1xpYVFhi2yqVlBZTmJB2zck574Al9qL+QYdF
OhP6Gx+MHNlkgQ30h4vvfcKEpLABl/SF45g2t3FecTkTMP1z3S16pth13hsc
E6+YcMDuKDrXbYJ9Eqw220EwYZ2p8SnKBRPMWUz1d1A1ax6hD3jcHhzFkpRE
Kcz3TMi/HjWRLGWMjagfTfBvYgLRR2M8ijfC5HUjx3M+MoFNSzdhbNgQq6Ov
RQq2M4F70uLtxRv/YQsnh9p6+5nQeVRHaJTjCAantu/n+8yEqixxtUcu+thN
RxM/0jDr/Ck+v5TVdhiT9KgRyx5jwvylBA/ufCZ29PoTh/MzrP5azpTU3aJj
928Ol6bPsfS3zurc46djE7E7NrbOs/r92tIvF0vDQu5FvVD/xYTcWZFZs3tU
7ENGLZvLbyacfXymqUmKim179Nfk3ioTpL8YpTXl6WGnn2s8bPrDhMk7+sAg
6WEv8tx//fvHhB5b1CrXQsH+By5632g=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.588624076592246*^9, 3.588624084152809*^9}, {
   3.58862413742006*^9, 3.588624148174801*^9}, 3.588626401948608*^9, 
   3.5889645042268963`*^9, 3.5889667024452972`*^9, 3.58903251379116*^9, 
   3.589033197243458*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\[CapitalGamma]", "[", "0", "]"}]], "Input",
 CellChangeTimes->{{3.588620360884206*^9, 3.588620363124379*^9}}],

Cell[BoxData[
 RowBox[{"0.5539470090972587`", "\[VeryThinSpace]", "-", 
  RowBox[{"0.41439005338436113`", " ", "\[ImaginaryI]"}]}]], "Output",
 CellChangeTimes->{3.588620363814231*^9, 3.588620474913474*^9, 
  3.5889645042558947`*^9, 3.5889667024802027`*^9, 3.589032513818424*^9, 
  3.589033197279282*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"q", ",", 
     RowBox[{"I", " ", "\[Kappa]", " ", "\[HBar]c", " ", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"q", "^", "2"}], 
        RowBox[{"B", "/", "A"}]}], "]"}], " ", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"BesselJ", "[", 
          RowBox[{"0", ",", 
           RowBox[{"b", " ", "q"}]}], "]"}], 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"\[CapitalGamma]p", "[", "b", "]"}]}], ")"}], "^", 
             "2"}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "-", 
               RowBox[{"\[CapitalGamma]n", "[", "b", "]"}]}], ")"}], "^", 
             "2"}]}]}], ")"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"b", ",", "0", ",", "50"}], "}"}]}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", 
     RowBox[{"2", " ", "k"}], ",", ".01"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5886205206086273`*^9, 3.588620668628557*^9}, {
  3.5886207075139513`*^9, 3.588620807926928*^9}, {3.5886227255620327`*^9, 
  3.58862272614194*^9}, {3.588623090784609*^9, 3.5886230917025347`*^9}, {
  3.588625095516609*^9, 3.5886251100281773`*^9}, {3.588627651421777*^9, 
  3.588627675611917*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0.`", ",", 
     RowBox[{"0.0827375904026704`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.37386541282392033`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.01`", ",", 
     RowBox[{"0.08237953808393858`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.37349334916101645`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.02`", ",", 
     RowBox[{"0.08132912724918498`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.37239262947396157`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.03`", ",", 
     RowBox[{"0.07965314263265823`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.3706065045236751`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.04`", ",", 
     RowBox[{"0.07744900474878381`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.36819725220926963`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.05`", ",", 
     RowBox[{"0.0748270885500695`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.3652338806671374`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.06`", ",", 
     RowBox[{"0.07189157866157468`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.36177917500570345`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.07`", ",", 
     RowBox[{"0.06872400566637904`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.35787915983801366`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.08`", ",", 
     RowBox[{"0.06537304530157116`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.35355752307377464`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.09`", ",", 
     RowBox[{"0.06185281766983481`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.348816415617389`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.1`", ",", 
     RowBox[{"0.05815007219698761`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.3436435496667908`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.11`", ",", 
     RowBox[{"0.05423867182154649`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.3380239939682575`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.12`", ",", 
     RowBox[{"0.05009811416460689`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.33195385226752155`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.13`", ",", 
     RowBox[{"0.045731811209192175`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.32545239717103086`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.14`", ",", 
     RowBox[{"0.04118072501239748`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.31856937919358885`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.15`", ",", 
     RowBox[{"0.03652877719059628`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.31138514208295764`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.16`", ",", 
     RowBox[{"0.03189807144388475`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.30400268579289585`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.17`", ",", 
     RowBox[{"0.02743407864961254`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.2965326256668811`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.18`", ",", 
     RowBox[{"0.023283111054823356`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.2890737207527356`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.19`", ",", 
     RowBox[{"0.019566207955898723`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.2816929060515049`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.2`", ",", 
     RowBox[{"0.016354586620643787`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.27440926362200646`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.21`", ",", 
     RowBox[{"0.013651839435238285`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.26718595298131514`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.22`", ",", 
     RowBox[{"0.011387037253190969`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.2599328236481909`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.23`", ",", 
     RowBox[{"0.009420994820266843`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.25252046877383266`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.24`", ",", 
     RowBox[{"0.0075655134026102674`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.24480421354879023`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.25`", ",", 
     RowBox[{"0.005612901486741007`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.23665440974643392`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.26`", ",", 
     RowBox[{"0.0033709773174149748`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.2279878645862199`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.27`", ",", 
     RowBox[{"0.0006974989502375304`", "\[VeryThinSpace]", "+", 
      RowBox[{"0.21879460754879898`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.28`", ",", 
     RowBox[{
      RowBox[{"-", "0.002472183093622855`"}], "+", 
      RowBox[{"0.2091546635184596`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.29`", ",", 
     RowBox[{
      RowBox[{"-", "0.006109439301151118`"}], "+", 
      RowBox[{"0.1992410161566798`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.3`", ",", 
     RowBox[{
      RowBox[{"-", "0.010091812116861`"}], "+", 
      RowBox[{"0.18930726437963433`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.31`", ",", 
     RowBox[{
      RowBox[{"-", "0.014218119259439985`"}], "+", 
      RowBox[{"0.1796611831579323`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.32`", ",", 
     RowBox[{
      RowBox[{"-", "0.018236920193905777`"}], "+", 
      RowBox[{"0.1706279933538173`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.33`", ",", 
     RowBox[{
      RowBox[{"-", "0.021883631980710316`"}], "+", 
      RowBox[{"0.16250912616038835`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.34`", ",", 
     RowBox[{
      RowBox[{"-", "0.024919996888866786`"}], "+", 
      RowBox[{"0.15554324237057388`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.35000000000000003`", ",", 
     RowBox[{
      RowBox[{"-", "0.02716916621420813`"}], "+", 
      RowBox[{"0.1498760255248017`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0.36`", ",", 
     RowBox[{
      RowBox[{"-", "0.028540461283353656`"}], "+", 
      RowBox[{"0.14554383034709034`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.37`", ",", 
     RowBox[{
      RowBox[{"-", "0.02903975690542687`"}], "+", 
      RowBox[{"0.14247388316672688`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.38`", ",", 
     RowBox[{
      RowBox[{"-", "0.028764049517203707`"}], "+", 
      RowBox[{"0.14050083431461197`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.39`", ",", 
     RowBox[{
      RowBox[{"-", "0.02788162655582525`"}], "+", 
      RowBox[{"0.13939659287308917`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.4`", ",", 
     RowBox[{
      RowBox[{"-", "0.026601805194436393`"}], "+", 
      RowBox[{"0.13890807125441076`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.41000000000000003`", ",", 
     RowBox[{
      RowBox[{"-", "0.025139977791042285`"}], "+", 
      RowBox[{"0.13879616586701077`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.42`", ",", 
     RowBox[{
      RowBox[{"-", "0.02368436217052483`"}], "+", 
      RowBox[{"0.13886924503615988`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.43`", ",", 
     RowBox[{
      RowBox[{"-", "0.022370298039344552`"}], "+", 
      RowBox[{"0.13900561095210587`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.44`", ",", 
     RowBox[{
      RowBox[{"-", "0.02126628471234636`"}], "+", 
      RowBox[{"0.13916161105943947`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.45`", ",", 
     RowBox[{
      RowBox[{"-", "0.020373559168236993`"}], "+", 
      RowBox[{"0.13936486170301704`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.46`", ",", 
     RowBox[{
      RowBox[{"-", "0.019638349144463663`"}], "+", 
      RowBox[{"0.13969486722253213`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.47000000000000003`", ",", 
     RowBox[{
      RowBox[{"-", "0.018973531455602502`"}], "+", 
      RowBox[{"0.14025562168094605`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.48`", ",", 
     RowBox[{
      RowBox[{"-", "0.0182847493283706`"}], "+", 
      RowBox[{"0.14114612441136146`", " ", "\[ImaginaryI]"}]}]}], "}"}], ",", 
   
   RowBox[{"{", 
    RowBox[{"0.49`", ",", 
     RowBox[{
      RowBox[{"-", "0.017495409773070465`"}], "+", 
      RowBox[{"0.14243487537988497`", " ", "\[ImaginaryI]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5886208213220873`*^9, 3.588626413472918*^9, 
  3.588964515767322*^9, 3.5889667158906307`*^9, 3.589032525117055*^9, 
  3.589033207990347*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListPlot", "[", 
  RowBox[{"Re", "[", "%", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.588620830699499*^9, 3.5886208354592752`*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.6], PointBox[CompressedData["
1:eJw1UXss1HEAv4mKarZwLHVSWVRaClPho01dXo1b/VG7+gO5KKOiB2ZWHn/Y
5XV5X5OTdl1OHIXJl7hC54bDybNrq0z0mF1vye/hs3333ff1eX0dw+ME5004
HM7+5UHNK7jycf5S4N5GJFsr+YakdHjafw7RcVfWEgjOkFN/BxrQxMv4FNZ0
D+a37v92imxgz6sQ/SNNWa9TobSEghwmsa6Hpnaq2PtKrCnwyE4R1WMujNqp
w9qsnpT3RXXs+waI3MtVAa1PYKGXxftYPEN0+JZdexS1LF8z7N3rqkbVNXAR
5rwwOrcidjhEt1utYPnbYHZ0vDOxWo6q5dd6WTt+ZlouOMc8ZPU6YNZxYkRm
8wAHaHRCvtR77oOqktXvQqkwVPHtZAU6jc7LCmr84YeP1diWs35egRvK25al
L4KAFuxG9y/7RRdzCeuvB9dvqFqOkFwYkijCXqSWek+nGrNZvxqIYrT+XEEW
LlP24vuQq92XERp0m/WvhZ2vv4XpYiqY3+jHppbtavHiNTZPPxa+Kh9dlV7E
cVpgAHEzG4vWjR9j8w3Akri6ZftFEkpNmDMI/eycg+fqm4TJq4PjnX+2pop0
QsfR61BsGJFH8MSEyT+Ed1y/pfrH+cSBssMbxqr1KqX8QiFh+hhGcZ9UWZFe
QkRRFEag4kQZDg+WEaYfPaLEwV8aD0oJxWat1CPHS21X0iolTF+j4AtnagUJ
UvKdojOOIrl98jhHXE6Y/t4gLzF4Ps2njPjShGNw2vr8dFBbCWH6HMNbzWvZ
U79iQtvLGEdX0FyAz0whYfqdQAo/wmPo5V3Sp6EwgaZKQbR2QkKYvieRWx0Y
YrVZQmxog1NIqDy7QxNbQJj+p+C2IbPDuzmf0HTCaeT3eFmFzeaR/53vjkw=

     "]]}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 0.49}, {-0.02903975690542687, 0.0827375904026704}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.5886208358769407`*^9, 3.588626413519517*^9, 
  3.588964515854641*^9, 3.588966715944421*^9, 3.589032525172414*^9, 
  3.589033208046096*^9}]
}, Open  ]],

Cell["\<\
Using parameterized NN scattering amplitude:\
\>", "Text",
 CellChangeTimes->{{3.588966795843903*^9, 3.588966799578781*^9}, {
  3.58896684860155*^9, 3.588966856328896*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"40", "*", 
  RowBox[{"Pi", "/", 
   RowBox[{"(", 
    RowBox[{"k", "/", "\[HBar]c"}], ")"}]}], " ", 
  RowBox[{"Im", "[", 
   RowBox[{"F0", "[", "0", "]"}], "]"}]}]], "Input"],

Cell[BoxData["340.80429677099715`"], "Output",
 CellChangeTimes->{3.5886228172955914`*^9, 3.588626413554524*^9, 
  3.588964515884656*^9, 3.588966715979064*^9, 3.589032525188848*^9, 
  3.5890332080807533`*^9}]
}, Open  ]],

Cell["\<\
Using exact NN scattering amplitude (average of pp and pn):\
\>", "Text",
 CellChangeTimes->{{3.588966860129088*^9, 3.588966884880393*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"40", " ", 
  RowBox[{"Pi", "/", 
   RowBox[{"(", 
    RowBox[{"k", "/", "\[HBar]c"}], ")"}]}], " ", 
  RowBox[{"Im", "[", 
   RowBox[{"I", " ", "k", " ", "\[HBar]c", " ", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"BesselJ", "[", 
        RowBox[{"0", ",", "0"}], "]"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[CapitalGamma]", "[", "b", "]"}]}], ")"}], "^", "A"}]}],
         ")"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"b", ",", "0", ",", "50"}], "}"}]}], "]"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.5886208767775803`*^9, 3.588620890676997*^9}, {
  3.588620943827944*^9, 3.5886209534501753`*^9}, {3.588622733832329*^9, 
  3.5886227341293488`*^9}, {3.588622766981861*^9, 3.588622772653549*^9}, {
  3.588623097133924*^9, 3.5886230974453697`*^9}, {3.588624182018147*^9, 
  3.588624190785887*^9}, {3.588624340484385*^9, 3.588624342899338*^9}, {
  3.588624655012734*^9, 3.5886246558293533`*^9}}],

Cell[BoxData["339.74944939700435`"], "Output",
 CellChangeTimes->{
  3.588620954364174*^9, {3.588622763280458*^9, 3.58862277358808*^9}, 
   3.588623098152686*^9, {3.588624192720471*^9, 3.588624195777424*^9}, 
   3.588624656780837*^9, 3.588626413718093*^9, 3.588627750785235*^9, 
   3.588964516074705*^9, 3.5889667161677217`*^9, 3.589032525354459*^9, 
   3.5890332082424307`*^9}]
}, Open  ]],

Cell["\<\
Using exact scattering amplitude for pp and pn:\
\>", "Text",
 CellChangeTimes->{{3.588966869952785*^9, 3.588966896215557*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"40", " ", 
  RowBox[{"Pi", "/", 
   RowBox[{"(", 
    RowBox[{"k", "/", "\[HBar]c"}], ")"}]}], " ", 
  RowBox[{"Im", "[", 
   RowBox[{"I", " ", "k", " ", "\[HBar]c", " ", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"b", " ", 
       RowBox[{"BesselJ", "[", 
        RowBox[{"0", ",", "0"}], "]"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"\[CapitalGamma]p", "[", "b", "]"}]}], ")"}], "^", "2"}], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"1", "-", 
             RowBox[{"\[CapitalGamma]n", "[", "b", "]"}]}], ")"}], "^", 
           "2"}]}]}], ")"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"b", ",", "0", ",", "50"}], "}"}]}], "]"}]}], "]"}]}]], "Input",\

 CellChangeTimes->{{3.588625134906842*^9, 3.5886251582421923`*^9}}],

Cell[BoxData["347.9613839728795`"], "Output",
 CellChangeTimes->{3.5886251663930407`*^9, 3.58862526485863*^9, 
  3.5886264139004803`*^9, 3.588964516246498*^9, 3.588966716358856*^9, 
  3.5890325255219097`*^9, 3.589033208401434*^9}]
}, Open  ]],

Cell["\<\
Fractional correction from using exact scattering amplitude:\
\>", "Text",
 CellChangeTimes->{{3.588966902348227*^9, 3.588966916506654*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Im", "[", 
   RowBox[{
    RowBox[{"F0", "[", "0", "]"}], "-", 
    RowBox[{"I", " ", "k", " ", "\[HBar]c", " ", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{"b", " ", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"0", ",", "0"}], "]"}], 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"\[CapitalGamma]p", "[", "b", "]"}]}], ")"}], "^", 
            "2"}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"\[CapitalGamma]n", "[", "b", "]"}]}], ")"}], "^", 
            "2"}]}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"b", ",", "0", ",", "50"}], "}"}]}], "]"}]}]}], "]"}], "/", 
  RowBox[{"Im", "[", 
   RowBox[{"F0", "[", "0", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.588966480714692*^9, 3.5889665497029457`*^9}}],

Cell[BoxData[
 RowBox[{"-", "0.021000577955422824`"}]], "Output",
 CellChangeTimes->{3.588966508427383*^9, 3.5889665404286127`*^9, 
  3.588966716546084*^9, 3.589032525679102*^9, 3.589033208556533*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"d\[Sigma]d\[CapitalOmega]", "[", "q_", "]"}], ":=", 
  RowBox[{
   RowBox[{"Abs", "[", 
    RowBox[{"I", " ", "k", " ", "\[HBar]c", " ", 
     RowBox[{"NIntegrate", "[", 
      RowBox[{
       RowBox[{"b", " ", 
        RowBox[{"BesselJ", "[", 
         RowBox[{"0", ",", 
          RowBox[{"b", " ", "q"}]}], "]"}], 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"\[CapitalGamma]p", "[", "b", "]"}]}], ")"}], "^", 
            "2"}], 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "-", 
              RowBox[{"\[CapitalGamma]n", "[", "b", "]"}]}], ")"}], "^", 
            "2"}]}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"b", ",", "0", ",", "50"}], "}"}]}], "]"}]}], "]"}], "^", 
   "2"}]}]], "Input",
 CellChangeTimes->{{3.589033226822592*^9, 3.589033262818884*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"LogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{"F0", "[", "q", "]"}], "]"}], "^", "2"}], ",", 
     RowBox[{
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{"F0", "[", "q", "]"}], "+", 
        RowBox[{"FO1", "[", "q", "]"}], "+", 
        RowBox[{"FD1", "[", "q", "]"}]}], "]"}], "^", "2"}], ",", 
     RowBox[{"d\[Sigma]d\[CapitalOmega]", "[", "q", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"q", ",", "0", ",", 
     RowBox[{"2", "\[Kappa]"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.589033273200492*^9, 3.589033320723172*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Hk4lfkXAPDrum+DSF1qLJVkqbErGSHnHUuUX1myp6yRrYsUrpQllArT
zZYlMammomJcay/J1hVurzXbtEmWCLmM7fftj/Oc5/OcP87znPP9Hll3hvUp
KoVCyUHxM5vrZAWW9esatA/8FefjhOEhx8N7FQokYKRx2uKnDZjCstP5uyFY
tbfoNLKb3Le/FZl7wFD0eL43coGgnUlXvg6c9A1X8kL+NFUzHMsxAIr+XlNP
ZLFx+gFJpiHci7qy4IasNXQwMTDJBCb3hhu4INtymT1N+WZQb4lJOiOff1Uk
L8M2h31clSsOyGnsD0HnOUchtWjqmg2ys+214ZEpS/B4f0TeEnniqEI8nWkN
J91MrcyRL5gRKgY0GwhWGKAfRBYxdCR9kmyhQU7YB0dW23djR12+A3ALDpB7
kV+o7WqaUHGCURH4ooJssbsuQIJ9HOZi+pMVkAOlf1QyOCfhP9vPuZuRoxKb
nr5RcgX+NGtMBNksQfzyxylX2HbPiUJD7osqUhJlusP3cd3SaUcMz49cWpEH
D2Cs0QNGkH2ZZlxdmicwM+Mq+5H/O/sh1CvpFIht1BVrQJb23tJQk38axvMH
q24if/LwyCC9fUDoeoJkHPJj16d+X1V8YdCYsz4UWd/pMH0z2w+Mq2SKHJGd
j1x08eecga2Fi18lkeUPc/bEpDAgduXMhADyeTlh/lalQLDVi4zlOaD97nDs
fj8VCNkjHgwSuV1y9oIIMxi2adsZxCNrZWR6ZQwEQw8l+XMQcsYW3FIOzoJ+
movsCWRXsRty+2kh8NvlJrs9yNPCu157Jp0Dt/kn5T32GL6JcvzX6vwwyJoo
ctiA3KbEmksRCQc9jYqVaTsMv27L4Z4KCwcndqw8ibzukd510aNMsElw4KUi
L9tu5fNYjIC2ksVnm5FHHg2OCVpeAv7ed8wVG/T+ujc3D1VegmmhZr1e5KeU
+2/76FEwOBx48TnyGeXh4qLIKNgpO3flFPJolIWvw7Fo+CeX/bzhGIYPKWsM
P1qNgcT+jw5nrDH8wB+tR7ZoxQKj3G3fH8jZdqero3xiofhiKksM2TE6L9O2
MxZG92zrKrPC8M7ujTZrDy8D99tdf54lhrdEf2+2to0HTv3OSVcLDC/tef58
8dFVCF/fp9FljuHs0P6ZvsGrsP77K8ts5MpfaXsrRRMh/tMVqgcyYW9bwjyb
CM9006WnDmP46x5eyZLuNfA6XidHRR7u0f9npeU6lAWOXBMzw3Ch3kY232gy
XLDbUf7RCM2vmrc0LZwCm0Z30XOQBYSFt75XSAH7bQsrtshCj7Wc6+xT4NuR
6cRGQwzfOBE3EF2VAi6pGsz8PzBcyn/3IDX2T7gTHPLEBDBcwz9giEZnwcCR
Jff9uqi+wbo+VIkFFnsFckf2YzjtqfaDMUMWTHDFGCzk3tm1oI6zLBjukCfH
dTA8OuImlt3FgjsNWwvSf8fwt4lslb2ZtyAnps+tXwvdm4d8EW470iAlGrMT
U8fwk+YjLp06aZD0T7FFiRr6X5OvjU2t0sCu32jYGnmr5q0NqjFpkKG+qzZF
FcMbyhXzFz6mQZZ245VfVDB8S7N5S/L9dDCiN2i9343mPZL66wu1TPh3Nn3G
eCeGl8+eDDc6lAnh4m9d2mSRKbv7mz0yYVFd2tL+p6Uqc8mMTEgy6a7w3oH2
c3RI4Sv1NrzTIJ/FbEf3okxRS7znNng9Wd1zVwr1j2db+l7KBqmxjOAoOoaT
in1Xt3TcAZqX9v0mCoYrhp/u7B69A5inHamHXP05IplDyQOzZY+bxWs0fIPO
+nfXJPOA0WrUkrpKw0sGfmMIm+fBVPCC5IllGr6i4J0pUpQH/3qYHuzh0fCU
8veToiF3oWp+4GX4NxrOHuxOE6cUQJeJnnDoOxrelng0LsCpEG4lrkXsf0jD
10I6RGTuPQSZrzepwkE0nCEoXazKfgyCtbWDuftouG1U+HwD9hQ+97iHXZjk
x8W4LXcLWM9AJXIz60M+P34Cl7n9RLIEZmu7XL5a8+PCblWuw7WloLDOZJQx
R8X7u6tKCPMyaFAbLaKmUnHRVWpXE48Ndhm3ddIUqHi7kYXRclYFNFWbbd/4
lA8vHlo7MCxXBXFWpufl9PjwOSXeurHWaqi3yvY1KaXgjq3WzgWOLyAyz3P5
lRoFv5n8H7zkrwXlV9TOUOU1OGB2dKG5uxa2C7+5MTS5AmHKnfOFWXVQaNnk
r1y2DF7ekQMSQS8hWJBJGh9bgk9vHATcdepBrIb06ectwoP6Mqe6pXrYyVDi
l7q1ADJ0nVul7a/gQXLDZVE+HiheGxe7lNoAOUY+Za1hP2DY+SVz0K8R9q04
rFuumYWhGmkBa4MmaBq4d89m8TsEHLrfn0NtBscmda680TQUq9qlRfY0g/CH
nUraTyYgWv/3dK3cFkhx6rnB+DEKme9uv+Bzew2HNZmhxJ7P4MmVfeOuxQET
3b9bu1f+hRcz72SzFjnAz7L35X3pA44/+4R3eyt0SQjd7RvrgNObGoeF0t8A
Llxi0XmvFsxN7K+8cmqDhJpp6jn+IOI9d70EXb0dvmteoC2F1hO/XJ2Z1P7R
DnKlfjnJj98SjP9d7OKd6oCXSlPfdvkNEKtZxqYu7R0QtuNHecPyB6KLIu/8
XJMLVgckNK28vxAYPdXTIpsLf9obSghITRCROjIbe9e4QJEuU2apThOZhWNt
fm5vgRVluKlQdYbYUGcafYjzFrSKPWxkdecIznRNN12NhPBM3dFoyjzhmVc8
zVEnoevPClUpgXli1eKuUJwmCYohd84Ui84TGsWXDXhaJEhKig52bJ8n0gLM
C/v1SMiQph6c0p8nXMd6z/11iITGhHzpzLB54sfHWXHtUyRoMWK+pk/OE0ms
z2pTXiSIP3ESfzM3T+w26jF7cJqEkRcM+trSPOGUX3lByp8EQeuJWEchHlHr
Gv1pNZgE/QrK9lFFHpE4uKG0KYqE++rXTfxceITcDUpbVAwJLzfVKwR48Yhq
/Zkv+y+TwC7oaPYL4BFTWV3SjxNIUOY9O+YSwSNsnLJjU5JIiDg44y6TziO+
CSblHEoh4dyKBv5LLo9IqLjEpt4koeLGxr7xv3hEpYTHeEgqCaHcw7qPnvOI
Y802mFo6CS0PFyjxFTxiIvSgzJcMEjQeTl46Ucsj4nfp7M+7TcJhY6cyzSYe
IdPz2zHHbBKWSoIKqG084v/mF4yD
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1nk4VG0bAPDBWEIpSYVIUhSJtLyK+xTebGUpWVIRsi9FJftSlspSJFsl
vFJKsi/lUZSRZc6YUNnSIoUGSbY5vuf761y/a865nrnXc+RP+1g489JotHU8
NNr/r8Z7Mn0rerR0Grr03MM76YT/8UvvFXPXgJt8g8r/rRMoKj+eowRF2w/4
h2E7KPx6tClQA/bRXhGh2LlLjul35uyBT7EHbgZjf+W8GIhq0YHQ+gbXQOyV
I+LaawMPwKYM/caL2Jr9/171TdCHP/yMPH9sS1Zgd1OOAeyeMBI+i32hsWij
XKUx6P/bPuWJnVr5+eyFlsOQN2ru5IptZ3ltYIhjBiOMTmtH7NHDitHigRYw
8Nym4wR2sAFS0aEfhSMP+kgr7KUHbNhuCZag4+Rw1Bx728749S9zrGGywuXn
Aey6bZubRlVsAaZ/LGhhmyq99FpTeRxEjnukaGD7Sv+p8Wk5CRcZ7hbrscOv
NhW3bbGHOMfhAElsgxiJy1849kAzdNooiv0hvGiLWOBpMJqxFJ5+RydyQua5
G8ERwrVb9H5iuwcasLToTvChQZvejz3n9/nimQRnoHmsFW/ElnaRfP0ixxWK
T+e4XcX+6uiYxnZxA5I+2xKI/di+2OOHijusNjYqdcfeZ2skvqrSA0idnuWG
2HaHQk95tnjDRFChIA17o1GLRmSSD2SItt4YZeP8KojytW7xhbKRL9nvsXXW
23QNcnwhvPTvoafYzLW/g5cGnoPozPtfjmFrpqWfSes9B7Qh71uAnSZJmCmA
H1j6qrVuxrZfGa/wD90fTAViGdMddGJcdPNbp4TzIPE5eiEBewXt+OrnOQEw
uE3NvIBFJ9q3JE8lLb0EWx1YxdHY1y1bWM4Bl4BzlhHmhC1QuPe62OFAWOH8
zEMWe8FShsdxNgiOqBwJukbSiaHCvp9LzMJA/tdYgBET91/XKkZ/TRgUSji1
yWEX0x50fBAPByt52RtT7XTCe+vA06KQcEjeYHMmC3s43NTd+kgEqNgyDn5r
oxP9W7cPFFKRELrG49vxVjqhvb/1kKRmFCQnx6gqYWcdc30e7hYFh2Y6vv5u
oRM2Ednplu+i4L+S8ew47Hddy48uPrwMj/1lTYve0onmiAmGhWU0TO/9GdHL
oBNl3SUls4Vx4Dmcv7O1kU5UXuyZ/NAXByf+POO/hl2zmr6jRuwqfMsytjLE
RlaWpYF+V2Ho5MawxgY68bb7b+m81jXYdFFnsOwVnRjo3lfObb4ObmL3x0Lq
6YTw+zeVPMOJUOLYJ/WsFufv+d/5cdEkqFjvudYeW0hUVGZQMQlu55mlL8MW
fqxp99IqCexWrVznXkMnlo9e6Y2oTYLDgfqa0tV0QspTqY836gYEUCn3nCvo
xHZPr366eDJcpvptM4vx78ssGi5uSYarWU9c9mHTi3cV/DyQDGOiQXO9T+nE
+9+LZ0m/ZOg8u6REBjsi6CZ/VmcyPOYtd019Qic6rlaq7EhPgTwj3clzj/C+
ecgT5LA+FSIfRDiTuXTipPHQqXd7UuGJ4h3V09gGY2/1DpqnQsk+96DfOXRC
Rj1lmWpkKqxpWlYggf26alPOzJdUkMrZrW+eTSckGcbNiQ9uQ9SBZ9dLs3C+
h26trtuWDjUfRvfJ3KITVb9PXtI1TIdK/zzRlBRsmlIPwzEdbEYETUT+b6ma
u+y0dGBubVg7cxPX53C/4g/eDOAzuzf+Ngnvi4pNmhLdGXB/KjLW8jo+P7rS
zD0sC6RpSI+KpBPsTR/iJMl7IKuqvpjlTSc2XXJ91zV8DwgXSnbBi048/xaU
2ELLhiZRxXpb7GV7RD5eW5sNoaXe0ZKedKK0V9lH1Dgb6M5RG2Ld6ARX0SV9
aVE2lE9uunXEiU4kVQ2Oifnfh54Qw4PXbHB8fV2pErRcUPt2ZCT4AJ6vq4ev
eNnmw8y4U17+Ejqx6E8ulfvvIbCNUolsBh/hs0T6qWrlYzjsWRebHcVHWIZf
mn7NXwzXtfUNbqrxEStZzfdzk5+BeZlJj8F7XuIEIZfxZG0p7O/RMDcJ5CVE
HWrtB+rLgL1y4nKpMC/R01VbiowrQFnGK8wynYcQo3g7m/5WgoVx4mEZCR6C
qWuqu5BZDcuuuGklRtOIp/2L2gMKtXDedv9x3YlFmNryV+Bn63NQ9QhnL+ZT
YNNqYZdrUwfVAZb9Y3ZcuJk4B6/46sEsTOdUeP88aBscnmF01UNQi5xdh8kc
BGx9N52f+RIm5GMdo17MwBmXkN41Z1+BdNouZcvxafjaZi10ek8D3LjOVC1X
/AMFDRW2L+cbYJa+wV/T4DfIie9JKWM2woqE5fy/1k/ApmsjK8NuvYbWTNnP
O+fGYMDuVWCfxxuw2L2j4LzQD+h/IS1kodME5UF9jBPvv4CX4YOeO7wMyC+7
b250sg+eqh5LDelmgIuGTcB2dxZE7Nt9W/NuMyBbidzyqXJI/5hRx+PwFiJ4
5z1eDtQiJ5Z822nNFuCrXgGUQyeqm/wonznbArskYn29uwZRi2flCRdmK/BL
e+dv4fmJXFe8GRC+3QamaS0DA1PjyFjfKrbRth36G3wlWz5MoUGWyBpxNSbM
8x/cN/thBtV5OhZu0WACM4OPlzY8gzIEa3V0dzJhx/CNj9w/M+iotruz/14m
vKNp2favmEVvChglXQeZoNNRVqBmOIsehV05lGnPBAlXm4/z5bPIX3UxcuNN
JrR+MuQExMwhM8YxSe1bTJCWnZVQTZlDqo5FDy3TmGDQk9r5LnsODaWdIKPv
MsGDebeMqp5DNvTn6348YsLH80YNVSNzSKcnoOpJA34+Rqv/sck8EoybHNv1
hwnrGjtH3/ItoH+fDZE3ZpgwvmRoVZ7YAor+8LF0dJ4JZhmc8+7SC4j31uA+
cx4SVO2GjOs0FlDEt2ZeQSESWtcWeYbaL6DQ6IyEc6tIENyp3r+/agHdzZCg
rV9NAtl9frbv1QKqK0o427aGBLpmm5xz2wLidkUeVZIhIaa0WUjz8wIK3uwh
1b+BhEcrispJYS66xNibb7idhAHVJ4k/rLgorbd89V91EvakXdPd7MBFVeNq
cXk7SDCrfCl82J2LZtZs9FzcRcJVuW8njwVz0QU3UY1ybRIaRB/wmN7jIn/h
vhfrjUmQakl3Y3ziohRZK7V2ExJ+/Zl1uDrMRWUarOygwyTYOQk07hjnot+2
r6O6zEkQGnrtsm+Ri84VPjG8bk3Celeryg0yFPIxCe3860xCRonCFnVzChU5
6/vdcSHhQ6T/cl0rCo2Giq7QdSPhgp2h6L4TFHJ9lmGS4EmC2qyQ4BdXCtlL
VjZs9CPhow3Hjy+MQnfVQh3e+pMwvMXG2+QyhXoN9Bd9LpCgL7RDLDiOQjZB
bK3aSyR8Kg1blZhMIYtPnGfm4SScOq0qFJVPoaTZCtO/ESRM14cJ0Aop1C4e
OpYVRYLeKxNbx6cU7l9R5eFoEsQfrvnSW0khvUdK2aHxJGwTCarJaKJQZANH
e2MiCU8Yu3MMWyhU31vR05xEgnZV75P+dgppi+mvXpVCgrNfmnxtJ4V2+Tsk
FGaQYLFUXUX7M4X845VUzLNIuHeZb1DmG4VK8jnN03dwfXdbFXz+TiG1DyH8
B+6TcL3a12f9GIW8J/Vyv+eQsDl20jeNQ6HHIqL74/Pw//P3ip2eoJCSTkbw
+wckJEjZ8jpPU+iMlYNU6EMSdCxuuZ+foVCer1KVQiEJKYTdlMcchT7HcSyb
H5NgENqVa7BAIfncit/eRSQoHX0cIkLhfD8PuSFRTMJ9b4GYskWc7049tZpn
JHjHxr/W5VlEUkJsd/5yEmjluvMS9EVkLZ8hVFhBwuNV+2lW/IsoVcsh36yK
hJltgsfCBBbRuyNKetPVJDSPVtETBBfRSi/OYGYtji9nWiJKaBFZRFeE7X9B
gmVoX+LJJYso6V7Iuu91JLyZEghbL7yI2qv0aq/Xk6CuGDvKwBbtELHReEXC
+50Tn61EFpHRSMd0dwMJuQ9NvNqwY+kZKSGvSTB9IntbWXQRvVnnoKHQRMKN
k06entj8u5VIBoMEOZHk2VvYemYcL++3uF/dbhvnY0e6VYhItOJ4GO987mDX
R4Y8rG7D5+ts9A/CpjL1Dp5ikuD4hn2GwL65Ni15mMTxalg3TuLzFW+PDJzt
IMHe+5p7InaVBKjMs0nwFFp7RhLb5ObNgMudJPQ58jbG4HgGxIYal3aTMEe/
e+MLjv9c/D8rbr8nwas3tVcZW0Ak/sT6jySYxI+U2OJ8pcd+eviwB9e7eGzD
BZxPFQHNaY0+Em6v3L83GOe7PirmwPN+El7+/ijshetxhKcnQf8TjncXz30D
XK+h0G097YMkVGQaLhXjW0SBCxGbrb+QQEymnarH9V0a2Ok3+JWEyP0bCuxo
i0jzfLDo1HcSBATVTx7jUogxybQO+UFCh3TWWOk8hY77KvwnMEJCcaFw5cIs
ng+Pt9prf5Eg3zuuY4b7cdWPdVdzOCTIhtyRPz5FoYIzZ7u2TpAw0lQebT5J
IabDGh+dKRIUhO4p8Pyi0OkBj9qmP3jeDbojakYoNG2HBM3/kpD39eDTUz8o
JGN9JttxjgQVnqgmr68Ucj9cxoqlsWA831I58wOFqBZBWXFeFmxd8Nxb3kWh
G4bH3TP5WGC0NPFVLZtCVXq8fEUC+H6XkzEJbRTi32umyRZlgdR9v+OH6imU
VpUbbreMBTf3xl1ue04hlV1/W7+JscCha123VjXeJ+p3nWfEWfBx69djfc8o
lL15NHXdWhb4c01P6uVQaMd/8CVfigWe3+19tt+l0JsNyWrbZVigRf1xF86g
0Ng6LcYBORYQWeevxN6gkJZE7KyLIgtSBOeEi/F+66RttCtRZ0GI0vfhV9YU
knqtT9rtYIFAu0iI8hEKnYxz0RPcyYLRpr3VwYcoNLyiUMVuDwve/eNT+mM/
heY3aHD5gQVCdaOXBpXxfOsTd21MWHD9xBj3zDQXecXZfaK5sED48uVlDZFc
VHIo9GihKwvinAO4vEFcNL0im2GJvxP4XW/za/pxUXjGl+JHXiyw6H4w7ubI
RcmF7hFH/VlArRKXVtblouq2gA0FESyQbR7pXUnjIn7xW06mWSzod15CJfri
95uWbkzfHRYovGkK7XJZQHscJx563GPBOVYRY+WpBeRZdogTk8MCU551Cn6H
FtC7YwKB9QUsCE+7+bFJeQHlZl5MVC9ngUhy7u5Pn+bRfkXbmpXtuH51PjdC
DOdRyB655e8XWbB8tUzolSVzKD3/Z7uHQweU5vSf+Oz3Fy17eTDCsKUDGjoq
21ryplDL+Isu8W1sKBm2RkcVJ5FT9tPxFjU2jOaueRAvNYko0/vCV9TZEJDi
ovBWbBJtf3pZ568mG1SOZ349NDeBUr2M83v2smFLfE9HOHMC2f98fz7PkA2f
5eMjUgMn0J8vvyV2ObOh/9OOrkT2OEpI/raNc4YNPwaWlkLzOFLS7TYocGWD
iOQB599148g2pyZYypMNC3GSpmcejaN6+4iv1Dk2VKfx2gVGjKOrfcvKmsLZ
MNn2zdZu+zhSiKe1h0ey4ZazrIzRpnH0fN/k938usyE4Ratxr8w44mR2Sj+O
YcPXJMfWLULj6KhtVlRSAht0YoJyfeo56NeShDuGSWywVpdFcY85KKY6rJL3
JhtGwuXKCtM4qGaN44j/LTbcVp7bJniWg44wjvJvu80G7jGxSuIEB41e/Ffu
exobUjbNy0QaclD05j3/ZGewIUqwxqFlJwfJdSsfscliQ4Lp3miZDRz0P3hB
AfQ=
     "]]}, 
   {Hue[0.1421359549995791, 0.6, 0.6], LineBox[CompressedData["
1:eJwV1Xk0Vd0bB3Dce0lJIUN4owyVypQk4TklSYYkQ4ZXpJChZCi8xkyFEBmu
OZWIMkaGnNMg6uIOxzUPSalQFDLzO78/9nrWZ+0/9l7f51l777x4zewyFwcH
B5tY/6+GGlleNf2aOuMvJaQfWlEQX9uAHrmHYpAfJFpdQFgnkG/ndMEe8LYX
9HpA2FHm11P5QFVI5d9snkf4Ia+lHrtAA+oqNzhkE/4y9Wo4gqYDnGPc9zMI
C00Iam8PPA48dbzTKYTVhk7GeiXoQU+FkG8CYQtmYHdLwSn4Q9stfZvwjXfP
ZaVqDQHxN5gNI5xW+/n6DZoJbM8JmvYnbGcRNzw2ZQraac3bvAhPmshFCwaa
QavaXkdnwkGn0P06ZHPQQUvZtoQ3H7fGryRYgP9vC29TwoqH7kq/LjgPmjGq
socJNynubpncbwPcz3yO7CV8Zs9rT7FaW+Bbn7shTthLYq7+Gs0euGqG3JYs
KUhYbEt5u4IDbIqx3PmD8KmYbZGjUw7gbqfK0U24N+y5wpbAi/BuVvtwOeGC
4OVVWXCCx223ErMIuwWeYmqSL0E2y2JrNOEln883nRMugz2VHXeesISLSPOr
Alfw/JvnPmNB5OnklIG7XAGYruHtIVzqUO7+Y78bGFm+ZzQQ1rI5LShc6w5k
Jb6+MMJ2xiEXPGhXIYK01sdBWPY0TfVW0jVwlsp7M2RO5CvDR2pT8AJtXgxv
IKwjbd01MuUFJent3j6E6dtngjYHegNbRb+w5xzRrwyqc8aAN+TtEhooI5wh
gpjKgA9I6ZO0ogk7CN2VOUL2hTMzTwOVCU/z7f54KcEPZu6UzgWaURABDlvR
xgJ/kCxMX/hmSkE6FFJmkzYHwISArd4zwvEWNOZl/wDQESvPuE6Yu+Ro/BaT
QJgJenJu/gwFWbGQ5HRa/A8aX22XmjehIGMlg+O8pqGw9UKIcqsRMX9dwq1D
9aHwqiF0MZhwOccTVq9gGIRXNNBUCV/dN1z2PDgMosYK4qmGFOR72Bm38+fC
ITsrPsr2NAUZ2qc8XLJ2C+b8X4RV6FMQ7WNtxiJqEcBa5J+zIpxt6doYdiUC
Kv3G/FZPUhDr8HyqRWcEHFudzdEj3Nm11Xy9OBLeRCzc/XiCgnwI/91qZhEN
vOnNu54coyDV3ZWViyV34NWA3LdSTQpSe7P/T+/gHQi5J35em3C9KPlg/ZZY
sPl3drntCAVBrSyqAn1i4aKH8eAPDQrysXu+alkzDuYVXTeLH6Ygw91aL1Y/
xEO0wEFb84MUZGPP+1rO74kgrK5wS3UfkV/j/PI0XxIUDbV2FCtQkA18fJIj
ckmwXN1sKU14Y6ma3WurJKisIIlv2ktBtk5GDYQ3JEHNwEe/bnkKIu6xZ5Ar
4h7Ejt9vNtxFQZQ9PIfIgimQEyX155EYsc9v9vamQgpIOqa68RAml6sXjR9P
gZP0EqUrohSkZ2b9OsMnBdCN6/kKIhQk/L9kSjY7BVaNVfY+FqIgrNja/Qep
92FSxV4sgJ94b4o5/3OUTgMnh/z3uSQin7FU0SZFKkQ+ilyanSAjL2fsA3QN
qKDcwm8p+X9z7OlvdaJCG1ti8fg4YfH6XDyDCjdZNaIJ38lIvcmQ3A+uTPC3
/vhO4isZaaqRV9vWnQlO3IdMhIfISHN0ralbaDYULYSWRNLJCC7fe0eEkQdU
h3z69XIyUjvYlbaN4yGMaJZj57zISEesSZSnTSHUWibdfyBDRtZ9GZulHhfD
nmeeNvI4CbnGK1F2oLYUrhgdlJWKIiEWYQF/mynlkJATaVqtSEKEmB8ePEyp
gKmRIT/ZQS7kX0Qq89n2KmCTuCZT4rkQPscGh2GsGhJye+XE1LiQ/q6GKtSw
Bk68fdWdMcyJbFnjYrfM14I5U/r96TBOhK57Rnclqw5qNEQLf0pyImVD69rD
Mg1wTF4I21zHgcwqzHOPtzXCEX9S8qPjHIh1m5ndQ+smGF8jrafeW4fkxCV4
Q8Kg71o3Nc5zDbRPmSy0dmEgHFczlKa8Cv77Ov8WZr0Gdu9tfuznMji7BA+I
XX8DzGlbSW7fJfjSfn7DRY23cNvfTVJ6dQGK3tbYvF5+C4r8maPSIfMgJahx
v5r+Dl7m1iXsYM+BfNyEUGhqM7jVGCjP6M/CsN2bwEH39/DZ6lH1vYI/MPRK
YoOZTgvU7Kxu+iTyGzwNnvTncLWC6MresOc3p6DsgGVacHcr5Fj7/RZtmoRw
rcPparkfQNnwleGK8zhQ+zKbOB0/QsAO+3Zl/e9wibmz/aIaDb6O5Iev/zMG
TX/6dmYt0sBlqKLYYv8XoHnU/utCb4P1bb6XNTZ/BleB98Mb09shQnxScGBs
GAz1rG6/s+kACauj4tSz/RAimtYkbN8B3xhBbWe0+qH8R+ess2MHhLMXXy7I
98O2BDNHXtcOEJSoGZFe6YOhLmNNE78O6BG82tXyuA+8XE9Mdid2wPJBJR3b
v72QFqdiOvGuA1R9+KIn43pghLlJTFCJDl2G0W77ItjQ5OFUoqBKh9zcRiMH
dzZk8jTo6B6ig+eeR3kR59hgru122fcoHZxix7RTZdjwvqi1skufDkqhu8ZG
3nTC09Ao4ywHOqxL/t20eQ0H3wPrt2ST6VCTjJzmdWYBz50/P9Xn6HAZHTZv
+dUOJyvGGPcW6GBLOqUgXd4O0b19VZPLdCA9/fH42PV24Eod0TrLyYBCjSt3
Bv+0QfjXD1w8Gxhw6qwW7foMDUKiMxO8hRlQ3JW2zvzxAQJajxYaKDNAeqk8
KK24Ga4ZhbDnLzMAhss/x9BewvPLej45LgxIbFNOVVB5CZMhfAK6VxjQIxFo
QHz24FqRaZTgwYBOCXv3N/Y14CBS+1bWhwHN2dWuAj+qwOzTVMXZMAY4oS83
lb17Buq+jgklmQx4k5iA2d69B2tZJ/Qv0BlQdrj9UF9EJZq8PSPlO4MBOyRu
oSpHqlC59Inh6ywGbCjRlN09VYUaJSf7R7IZYMv5rvmn3QuUevtTcXE/A0of
KfktwUtUzS+Ib/YbA8ZR96AU2SbUzaSaeZuDCTx2hxXnDzWjbA5Zu0oVJgiT
gtsy9JioeLMew+4gE1RL43re3mKi9ndcTvAcYoKoQ83xvRgT/S5Qst9Ogwme
MQ/FHx1locu7VFcpwITfK576DodwdKcekmttxISXpZ798mps1POO3ScOFyY8
3rDWnu3Qi1IEUy+dyWZCLSPsAe3YCJqrqRszmMMESYt4R0HnEVTD6Xexex4T
PMrFBwJiR1CPauOpmAIm6N8ODCnBR9BOS+5ArIgJe6c7p7JdPqMPs24mqrxg
wudh/8rO1FH0mJxNvVAHcZ5rvlUY3xgarCG1tWedCcw1En+E2wSq7ix+wZ6T
BdYXrpZJp0+gv1KEn3/hYsGzRxO2Y28nUPupTUa/KSxQr2ryHP9nEkUKF2I2
8rHAXMQjvxefRMnbWOtaYiwoMONd9NP/hcZNRU49UGbBRRGnNLsn0yi1cLzD
3ZEFMWdMU0RnZlAuiWo9IScWePuiHk4Cs6hHYnBj/SUW2MmMlrYpzaKI/9an
vK4seBFf9nreYxb9bqAe9eQqC8p9dLsqv8+i6j/Dj47+xwLd/acxxtc5tPPg
9iKbNBYc2tPXrzU/j/K/1g83oLGAWzA6pChgBW2n5hR2trFgidekQStnBY33
nqFd6GDB+aogtUlsBd0omydyg8mCeclPgdkbVlHumL8lBd0seOhKNQPqKrpq
9LhreZQFm5Z283qha+hkD9f+5yssWMhZovMlcmC06Vddgoo4lGFTdVk8JOxS
ftk0TQmHE3qqv379Q8LWzjzYGKWCg0/rU2NEjYQpl0XqzKvh8IxR59nnQMLS
PA0L+4/iYO5jwcmuI2EO4z1+jwxw+Mur5CPsRsYWqR8T/zXEQddh6/tPoWQs
2aCxWMQYh4qp/B+ZqWSsuShv8LYpDh8H9o92YWRMwcVZz9MKh+LIJ4OnRSjY
3OjMNvXLOAQqpSN/GyhYQspXxSlnHKzHBMYEGBRsj273qSJXHNTF757k/kLB
bArqg8Q9cLByy2d5b+LGMIfwL2veOGw5uVX6wHluzHqrz1qtLw4NSebMT27c
2B/0ktj1G8T9ok1+XgjmxuSkThmNBuCw9mvYre4BNxY7yF/dEobDjqT89Sff
uDGZuxwdYbdwsNcZKIxa4MYatf58OxKJA29FdaQ0Lw82lcWWKI3B4dySelX0
Xh7M3CY7IikBB3dBm9rPzjzYL96EHIMkHNo0+edu+vFgMXWhtVzJOGjsCFJu
jODB6sWcJnxTcbiRwvH6dB4Pdq7VnKKYjsOH46Tqe6U82OTNk1LfMnBQWPo1
ElbHg0Xv1jiSn4nDqO61pyLveTCp7r3nrLNxKBLY7neWxYP9D+o6ZD0=
     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, -2.9776944301867907`},
  CoordinatesToolOptions:>{"DisplayFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& ), "CopiedValueFunction" -> ({
      Part[#, 1], 
      Exp[
       Part[#, 2]]}& )},
  FrameTicks->{{{{-2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0., 
       FormBox[
        TagBox[
         InterpretationBox["\"1.0\"", 1., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {0.6931471805599453, 
       FormBox[
        TagBox[
         InterpretationBox["\"2.0\"", 2., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {1.6094379124341003`, 
       FormBox[
        TagBox[
         InterpretationBox["\"5.0\"", 5., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.302585092994046, 
       FormBox[
        TagBox[
         InterpretationBox["\"10.0\"", 10., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {2.995732273553991, 
       FormBox[
        TagBox[
         InterpretationBox["\"20.0\"", 20., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {3.912023005428146, 
       FormBox[
        TagBox[
         InterpretationBox["\"50.0\"", 50., AutoDelete -> True], 
         NumberForm[#, {
           DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
        TraditionalForm]}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}, {{-2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {-1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {-0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {0., 
       FormBox["\"\"", TraditionalForm]}, {0.6931471805599453, 
       FormBox["\"\"", TraditionalForm]}, {1.6094379124341003`, 
       FormBox["\"\"", TraditionalForm]}, {2.302585092994046, 
       FormBox["\"\"", TraditionalForm]}, {2.995732273553991, 
       FormBox["\"\"", TraditionalForm]}, {3.912023005428146, 
       FormBox["\"\"", TraditionalForm]}, {-1.2039728043259361`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.916290731874155, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.5108256237659907, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.35667494393873245`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.2231435513142097, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {-0.10536051565782628`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.0986122886681098`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.3862943611198906`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.791759469228055, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {1.9459101490553132`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.0794415416798357`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {2.1972245773362196`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.4011973816621555`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}, {3.6888794541139363`, 
       FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
        Thickness[0.001]}}}}, {Automatic, Automatic}},
  GridLines->{None, None},
  Method->{},
  PlotRange->{{0, 0.30641778733395214`}, {-2.9776944301867907`, 
    2.669146579831796}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]},
  Ticks->{Automatic, {{-2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.1\"", 0.1, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.2\"", 0.2, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"0.5\"", 0.5, AutoDelete -> True], 
        NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0., 
      FormBox[
       TagBox[
        InterpretationBox["\"1.0\"", 1., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {0.6931471805599453, 
      FormBox[
       TagBox[
        InterpretationBox["\"2.0\"", 2., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {1.6094379124341003`, 
      FormBox[
       TagBox[
        InterpretationBox["\"5.0\"", 5., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.302585092994046, 
      FormBox[
       TagBox[
        InterpretationBox["\"10.0\"", 10., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {2.995732273553991, 
      FormBox[
       TagBox[
        InterpretationBox["\"20.0\"", 20., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {3.912023005428146, 
      FormBox[
       TagBox[
        InterpretationBox["\"50.0\"", 50., AutoDelete -> True], NumberForm[#, {
          DirectedInfinity[1], 1}, NumberPadding -> {"", "0"}]& ], 
       TraditionalForm]}, {-1.2039728043259361`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.916290731874155, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.5108256237659907, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.35667494393873245`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.2231435513142097, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {-0.10536051565782628`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.0986122886681098`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.3862943611198906`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.791759469228055, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {1.9459101490553132`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.0794415416798357`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {2.1972245773362196`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.4011973816621555`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}, {3.6888794541139363`, 
      FormBox["\"\"", TraditionalForm], {0.00375, 0.}, {
       Thickness[0.001]}}}}]], "Output",
 CellChangeTimes->{3.589033370712881*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{740, 652},
WindowMargins->{{Automatic, 105}, {Automatic, 0}},
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (February 23, \
2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 190, 4, 123, "Title"],
Cell[772, 28, 199, 3, 26, "Subsubtitle"],
Cell[CellGroupData[{
Cell[996, 35, 103, 1, 67, "Section"],
Cell[1102, 38, 1508, 49, 133, "Input"],
Cell[2613, 89, 2566, 81, 178, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5216, 175, 152, 4, 89, "Section"],
Cell[5371, 181, 653, 15, 43, "Input"],
Cell[6027, 198, 809, 17, 43, "Input"],
Cell[6839, 217, 1241, 37, 43, "Input"],
Cell[8083, 256, 872, 23, 27, "Input"],
Cell[8958, 281, 714, 18, 27, "Input"],
Cell[9675, 301, 233, 5, 27, "Input"],
Cell[9911, 308, 656, 15, 43, "Input"],
Cell[10570, 325, 853, 17, 43, "Input"],
Cell[11426, 344, 1292, 38, 43, "Input"],
Cell[12721, 384, 922, 23, 27, "Input"],
Cell[13646, 409, 280, 6, 27, "Input"],
Cell[13929, 417, 710, 20, 73, "Input"],
Cell[CellGroupData[{
Cell[14664, 441, 1018, 28, 73, "Input"],
Cell[15685, 471, 4516, 80, 336, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[20238, 556, 1299, 31, 73, "Input"],
Cell[21540, 589, 5094, 89, 340, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26671, 683, 1095, 29, 73, "Input"],
Cell[27769, 714, 4713, 83, 343, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32519, 802, 1109, 30, 73, "Input"],
Cell[33631, 834, 4705, 84, 339, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[38385, 924, 114, 1, 67, "Section"],
Cell[38502, 927, 560, 16, 43, "Input"],
Cell[39065, 945, 133, 1, 26, "Text"],
Cell[CellGroupData[{
Cell[39223, 950, 2508, 68, 118, "Input"],
Cell[41734, 1020, 581, 11, 27, "Output"],
Cell[42318, 1033, 8114, 143, 341, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[50469, 1181, 2261, 64, 103, "Input"],
Cell[52733, 1247, 558, 11, 27, "Output"],
Cell[53294, 1260, 8053, 142, 337, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[61384, 1407, 643, 17, 43, "Input"],
Cell[62030, 1426, 517, 11, 27, "Output"]
}, Open  ]],
Cell[62562, 1440, 100, 1, 26, "Text"],
Cell[62665, 1443, 748, 15, 58, "Input"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63450, 1463, 190, 3, 67, "Section"],
Cell[CellGroupData[{
Cell[63665, 1470, 877, 23, 43, "Input"],
Cell[64545, 1495, 662, 11, 27, "Output"]
}, Open  ]],
Cell[65222, 1509, 1527, 43, 58, "Input"],
Cell[66752, 1554, 222, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[66999, 1562, 265, 7, 27, "Input"],
Cell[67267, 1571, 459, 6, 27, "Output"]
}, Open  ]],
Cell[67741, 1580, 254, 7, 27, "Input"],
Cell[CellGroupData[{
Cell[68020, 1591, 1520, 46, 43, "Input"],
Cell[69543, 1639, 775, 15, 41, "Message"],
Cell[70321, 1656, 777, 15, 41, "Message"],
Cell[71101, 1673, 27639, 525, 239, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98777, 2203, 2264, 61, 58, "Input"],
Cell[101044, 2266, 969, 18, 41, "Message"],
Cell[102016, 2286, 971, 18, 41, "Message"],
Cell[102990, 2306, 33842, 564, 239, "Output"]
}, Open  ]],
Cell[136847, 2873, 2499, 63, 133, "Input"],
Cell[139349, 2938, 351, 10, 27, "Input"],
Cell[CellGroupData[{
Cell[139725, 2952, 1078, 22, 27, "Input"],
Cell[140806, 2976, 61535, 1016, 229, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[202378, 3997, 2126, 63, 58, "Input"],
Cell[204507, 4062, 35439, 587, 233, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[239983, 4654, 134, 2, 27, "Input"],
Cell[240120, 4658, 304, 5, 27, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[240461, 4668, 1428, 38, 58, "Input"],
Cell[241892, 4708, 9745, 262, 388, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[251674, 4975, 158, 3, 27, "Input"],
Cell[251835, 4980, 1444, 30, 222, "Output"]
}, Open  ]],
Cell[253294, 5013, 182, 4, 26, "Text"],
Cell[CellGroupData[{
Cell[253501, 5021, 199, 6, 27, "Input"],
Cell[253703, 5029, 208, 3, 27, "Output"]
}, Open  ]],
Cell[253926, 5035, 149, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[254100, 5042, 1077, 27, 27, "Input"],
Cell[255180, 5071, 378, 6, 27, "Output"]
}, Open  ]],
Cell[255573, 5080, 137, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[255735, 5087, 915, 27, 43, "Input"],
Cell[256653, 5116, 230, 3, 27, "Output"]
}, Open  ]],
Cell[256898, 5122, 150, 3, 26, "Text"],
Cell[CellGroupData[{
Cell[257073, 5129, 969, 28, 43, "Input"],
Cell[258045, 5159, 200, 3, 27, "Output"]
}, Open  ]],
Cell[258260, 5165, 967, 28, 43, "Input"],
Cell[CellGroupData[{
Cell[259252, 5197, 649, 18, 27, "Input"],
Cell[259904, 5217, 23743, 444, 239, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)