PhysRevA.101.012505.nb

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

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

(* CreatedBy='Mathematica 12.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    312037,       6543]
NotebookOptionsPosition[    306696,       6453]
NotebookOutlinePosition[    307087,       6469]
CellTagsIndexPosition[    307044,       6466]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["Radiation beaming in the quantum regime", "Title",
 FontWeight->"Regular",
 FontColor->RGBColor[
  0.2964217593652247, 0.6292210269321736, 0.2727702754253452]]], "Text",
 CellChangeTimes->{{3.822636147120782*^9, 3.822636149053595*^9}, {
   3.822636240732341*^9, 3.82263625191656*^9}, {3.822637212068983*^9, 
   3.822637212721833*^9}, {3.8370505560603237`*^9, 3.83705055679113*^9}, {
   3.837050599508451*^9, 3.8370506004619293`*^9}, 
   3.8629143517829733`*^9},ExpressionUUID->"3d8d80fe-9db4-4a68-89df-\
902f9dde1510"],

Cell[TextData[{
 StyleBox["T. G. Blackburn, D. Seipt, S. S. Bulanov, and M. Marklund, \n\
PHYSICAL REVIEW A ", "Section",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox["101", "Section",
  FontSize->24,
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox[", 012505 (2020)", "Section",
  FontSize->24,
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.853385722669046*^9, 3.853385735792059*^9}, {
  3.859957315418047*^9, 3.8599573162489147`*^9}, {3.8629143834043207`*^9, 
  3.8629143973866158`*^9}},
 FontSize->14,ExpressionUUID->"c25114d8-0653-4ee7-a216-97aa4195c484"],

Cell[TextData[{
 StyleBox["Notebook: \[CapitalOAcute]scar Amaro,  2021 + June 2022,  @", 
  "Section",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox[ButtonBox[" ",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://epp.ist.utl.pt/"], None},
  ButtonNote->"http://epp.ist.utl.pt/"], "Section",
  FontSize->24,
  FontColor->GrayLevel[0]],
 StyleBox[ButtonBox["GoLP-EPP",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["http://epp.ist.utl.pt/"], None},
  ButtonNote->"http://epp.ist.utl.pt/"], "Section",
  FontSize->24,
  FontVariations->{"Underline"->True},
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.8226362283387003`*^9, 3.822636334723393*^9}, 
   3.822636391632341*^9, {3.8226372468331547`*^9, 3.822637246833611*^9}, 
   3.8370505427931337`*^9, {3.8629143291085377`*^9, 3.862914339745529*^9}},
 FontSize->14,ExpressionUUID->"c6c65ece-5b02-49c7-8428-e42507fda386"],

Cell[TextData[{
 StyleBox["Introduction", "Section",
  FontSize->24,
  FontWeight->"Bold",
  FontColor->GrayLevel[0]],
 StyleBox["\nStandard simulation of high energy electrons assumes photon \
emission is collinear with the parent particle\[CloseCurlyQuote]s trajectory. \
However, finite beaming effects can be relevant in some regimes.", "Section",
  FontSize->24,
  FontColor->GrayLevel[0]]
}], "Text",
 CellChangeTimes->{{3.8226362283387003`*^9, 3.822636334723393*^9}, {
  3.822636391632341*^9, 3.8226364148286*^9}, {3.822636632459257*^9, 
  3.82263666754714*^9}, {3.8226367225529222`*^9, 3.822636739164402*^9}, {
  3.837050546673011*^9, 3.837050596860178*^9}, {3.86291812853481*^9, 
  3.862918130139956*^9}, {3.862928158750032*^9, 3.862928162338756*^9}, {
  3.862969717288615*^9, 3.862969767023841*^9}},
 FontSize->14,ExpressionUUID->"eb327a79-0104-47e5-9702-aca7e786642a"],

Cell[CellGroupData[{

Cell[TextData[{
 Cell[BoxData[
  SuperscriptBox["W", 
   RowBox[{"(", "3", ")"}]]],
  CellChangeTimes->{{3.862914807701335*^9, 3.862914885275613*^9}, 
    3.862915045142206*^9, {3.862915086180418*^9, 3.862915193933412*^9}, {
    3.862916917935218*^9, 3.862916924234522*^9}, {3.862917814980645*^9, 
    3.862917817737073*^9}},ExpressionUUID->
  "028069b8-e6bf-40c5-8807-e0c2f9fb585a"],
 StyleBox[" triple differential photon emission rate", "Section",
  FontSize->24,
  FontColor->GrayLevel[0]]
}], "Chapter",
 CellChangeTimes->{{3.862928225660325*^9, 3.8629282569900227`*^9}, {
  3.862969798101722*^9, 3.86296980880818*^9}},
 FontSize->14,ExpressionUUID->"ebcd1559-0b63-43e5-9209-ec824884f27b"],

Cell["\<\
Here we plot this rate for different \[Chi] values and as a function of \
either \[Theta] or \[Omega].\
\>", "Text",
 CellChangeTimes->{{3.8199926778850107`*^9, 3.819992715762689*^9}, {
  3.862914765828362*^9, 3.862914766341243*^9}, {3.8629698119720716`*^9, 
  3.8629698319943047`*^9}},ExpressionUUID->"8bae70f1-8600-4881-9b1b-\
01c695cfbec3"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[Alpha]", ",", "m", ",", "c", ",", "u", ",", "\[Gamma]", ",", "\[Omega]", 
   ",", "z", ",", "\[Chi]", ",", "\[Beta]", ",", "W3", ",", "W3fun"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"m", " ", "=", 
    RowBox[{"\[Alpha]", "=", "1"}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"equation", " ", "1", " ", "differential", " ", 
     RowBox[{"rate", " ", "[", "29", "]"}], " ", 
     RowBox[{"V", ".", "N", ".", "Baier"}]}], ",", 
    RowBox[{"V", ".", "M", ".", "Katkov"}], ",", 
    RowBox[{"and", " ", 
     RowBox[{"V", ".", "M", ".", "Strakhovenko"}]}], ",", 
    RowBox[{"Electro", "-", 
     RowBox[{
     "magnetic", " ", "Processes", " ", "at", " ", "High", " ", "Energies", 
      " ", "in", " ", "Oriented", " ", "Single", " ", "Crystals", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"World", " ", "Scientific"}], ",", "Singapore", ",", "1998"}],
        ")"}]}]}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"W3", "=", 
   RowBox[{
    FractionBox[
     RowBox[{"\[Alpha]", " ", "m"}], 
     RowBox[{"3", 
      RowBox[{"\[Sqrt]", "3"}], " ", 
      RowBox[{"\[Pi]", "^", "2"}], " ", "\[Chi]"}]], 
    FractionBox["u", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", "u"}], ")"}], "^", "3"}]], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"z", "^", 
        RowBox[{"(", 
         RowBox[{"2", "/", "3"}], ")"}]}], 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"1", "+", "u"}], ")"}], "^", "2"}]}], ")"}]}], "-", 
      RowBox[{"(", 
       RowBox[{"1", "+", "u"}], ")"}]}], ")"}], 
    RowBox[{"BesselK", "[", 
     RowBox[{
      RowBox[{"1", "/", "3"}], ",", 
      FractionBox[
       RowBox[{"2", " ", "u", " ", "z"}], 
       RowBox[{"3", "\[Chi]"}]]}], "]"}]}]}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"replace", " ", "definitions", " ", "of", " ", "u"}], ",", " ", 
    RowBox[{"z", " ", "and", " ", "\[Beta]"}]}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"W3", "//.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[Beta]", "->", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "-", 
         FractionBox["1", 
          RowBox[{"\[Gamma]", "^", "2"}]]}], "]"}]}], ",", 
      RowBox[{"u", "->", 
       RowBox[{"\[Omega]", "/", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}]}]}], ",", 
      RowBox[{"z", "->", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"2", 
          RowBox[{"\[Gamma]", "^", "2"}], 
          RowBox[{"(", 
           RowBox[{"1", "-", 
            RowBox[{"\[Beta]", " ", 
             RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{"3", "/", "2"}], ")"}]}]}]}], "}"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"W3fun", "[", 
     RowBox[{
      RowBox[{"\[Omega]_", "?", "NumericQ"}], ",", " ", 
      RowBox[{"\[Theta]_", "?", "NumericQ"}], ",", " ", 
      RowBox[{"\[Chi]_", "?", "NumericQ"}], ",", 
      RowBox[{"\[Gamma]_", "?", "NumericQ"}]}], "]"}], ":=", 
    RowBox[{
     RowBox[{"W3fun", "[", 
      RowBox[{"\[Omega]", ",", "\[Theta]", ",", "\[Chi]", ",", "\[Gamma]"}], 
      "]"}], "=", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", " ", "\[Alpha]", " ", "\[Omega]", " ", 
        RowBox[{"BesselK", "[", 
         RowBox[{
          FractionBox["1", "3"], ",", 
          FractionBox[
           RowBox[{"4", " ", 
            SqrtBox["2"], " ", "\[Omega]", " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox["1", 
                    SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
                  RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}], ")"}], 
             RowBox[{"3", "/", "2"}]]}], 
           RowBox[{"3", " ", "\[Chi]", " ", 
            RowBox[{"(", 
             RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}]}]]}], "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", "1"}], "-", 
          FractionBox["\[Omega]", 
           RowBox[{"\[Gamma]", "-", "\[Omega]"}]], "+", 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{"1", "+", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"1", "+", 
                FractionBox["\[Omega]", 
                 RowBox[{"\[Gamma]", "-", "\[Omega]"}]]}], ")"}], "2"]}], 
            ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["\[Gamma]", "2"], " ", 
                RowBox[{"(", 
                 RowBox[{"1", "-", 
                  RowBox[{
                   SqrtBox[
                    RowBox[{"1", "-", 
                    FractionBox["1", 
                    SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
                   RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}], ")"}], 
              
              RowBox[{"3", "/", "2"}]], ")"}], 
            RowBox[{"2", "/", "3"}]]}]}], ")"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"3", " ", 
        SqrtBox["3"], " ", 
        SuperscriptBox["\[Pi]", "2"], " ", "\[Chi]", " ", 
        RowBox[{"(", 
         RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           FractionBox["\[Omega]", 
            RowBox[{"\[Gamma]", "-", "\[Omega]"}]]}], ")"}], "3"]}], 
       ")"}]}]}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Gamma]1", "=", "1000"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "W3", " ", "as", " ", "a", " ", "function", " ", "of", " ", "frequency"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"W3fun", "[", 
       RowBox[{"\[Omega]", ",", "0", ",", "0.1", ",", "\[Gamma]1"}], "]"}], 
      ",", 
      RowBox[{"W3fun", "[", 
       RowBox[{"\[Omega]", ",", "0", ",", "0.5", ",", "\[Gamma]1"}], "]"}], 
      ",", 
      RowBox[{"W3fun", "[", 
       RowBox[{"\[Omega]", ",", "0", ",", "1", ",", "\[Gamma]1"}], "]"}], ",", 
      RowBox[{"W3fun", "[", 
       RowBox[{"\[Omega]", ",", "0", ",", "5", ",", "\[Gamma]1"}], "]"}]}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Omega]", ",", "0", ",", "\[Gamma]1"}], "}"}], ",", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\[Omega]\>\"", ",", 
       "\"\<\!\(\*SuperscriptBox[\(W\), \((3)\)]\)(\[Omega])\>\""}], "}"}]}], 
    ",", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\[Chi]=0.1\>\"", ",", "\"\<\[Chi]=0.5\>\"", ",", 
       "\"\<\[Chi]=1.0\>\"", ",", "\"\<\[Chi]=5\>\""}], "}"}]}], ",", 
    RowBox[{"PlotLabel", "\[Rule]", "\"\<\[Gamma]=1000\>\""}]}], "]"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
   "W3", " ", "as", " ", "a", " ", "function", " ", "of", " ", "angle"}], " ",
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"W3fun", "[", 
      RowBox[{
       RowBox[{"\[Gamma]1", "/", "2"}], ",", "\[Theta]", ",", "0.1", ",", 
       "\[Gamma]1"}], "]"}], ",", 
     RowBox[{"W3fun", "[", 
      RowBox[{
       RowBox[{"\[Gamma]1", "/", "2"}], ",", "\[Theta]", ",", "0.5", ",", 
       "\[Gamma]1"}], "]"}], ",", 
     RowBox[{"W3fun", "[", 
      RowBox[{
       RowBox[{"\[Gamma]1", "/", "2"}], ",", "\[Theta]", ",", "1", ",", 
       "\[Gamma]1"}], "]"}], ",", 
     RowBox[{"W3fun", "[", 
      RowBox[{
       RowBox[{"\[Gamma]1", "/", "2"}], ",", "\[Theta]", ",", "5", ",", 
       "\[Gamma]1"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[Theta]", ",", "0", ",", 
     RowBox[{"\[Pi]", "/", "\[Gamma]1"}]}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Theta]\>\"", ",", 
      "\"\<\!\(\*SuperscriptBox[\(W\), \((3)\)]\)(\[Theta])\>\""}], "}"}]}], 
   ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Chi]=0.1\>\"", ",", "\"\<\[Chi]=0.5\>\"", ",", 
      "\"\<\[Chi]=1.0\>\"", ",", "\"\<\[Chi]=5.0\>\""}], "}"}]}], ",", 
   RowBox[{"PlotLabel", "\[Rule]", "\"\<\[Gamma]=1000\>\""}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.862914807701335*^9, 3.862914885275613*^9}, 
   3.862915045142206*^9, {3.862915086180418*^9, 3.862915193933412*^9}, {
   3.862916917935218*^9, 3.862916924234522*^9}, {3.862917814980645*^9, 
   3.862917817737073*^9}, 
   3.8629760595015783`*^9},ExpressionUUID->"0039e0b4-6eb5-4d01-aaa6-\
6dd41657b440"],

Cell[BoxData[
 FractionBox[
  RowBox[{"u", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "-", "u", "+", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", "u"}], ")"}], "2"]}], ")"}], " ", 
      SuperscriptBox["z", 
       RowBox[{"2", "/", "3"}]]}]}], ")"}], " ", 
   RowBox[{"BesselK", "[", 
    RowBox[{
     FractionBox["1", "3"], ",", 
     FractionBox[
      RowBox[{"2", " ", "u", " ", "z"}], 
      RowBox[{"3", " ", "\[Chi]"}]]}], "]"}]}], 
  RowBox[{"3", " ", 
   SqrtBox["3"], " ", 
   SuperscriptBox["\[Pi]", "2"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", "u"}], ")"}], "3"], " ", "\[Chi]"}]]], "Output",
 CellChangeTimes->{{3.862914810587873*^9, 3.862914839620829*^9}, 
   3.862914886271826*^9, 3.862915118391304*^9, {3.862915165477912*^9, 
   3.8629151954186993`*^9}, 3.8629169244946213`*^9, 3.86291791805239*^9, 
   3.862971324794581*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"9b68e666-1329-403b-ac2c-0ea6f5a8d585"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxFl3c4lX/4x1G2MhLKKDQQDTOc5/ncImTPQlZ22Xuv4zhDkoxKRnaKSoWs
jERIKasIUZKsSmVXv/O7rt/1+55/zvW6rvM5z/153e/P8zy3uJOvmSsTAwMD
+xYGhv/9nlvaNNB2+42TVaMlWWaq8YCScAWtgn6U+NKy0bnkFArjXHDbVfAJ
caOWsAkpC6SiJVqV6r+ALkqRsgwUbFBkUynD1oKfyHsLy91D8Q5oZAS/hWir
SDZ1JEHpoBNSWxkyjPT/g4L9Vs402rmgP9cSDNfyt0CMhlG+l4MHki3t3Su4
kwXymeZTVZUvINsq4V+KNDZQFu6JRsueqPH1oxt+/tugQ65p/CbBFzVtXfr5
M38H3PQNVENJAWiI8/oY03t+qBfSFWJUDkSLfPhz3p0C8NEhHb8yGojExJNu
HKEJgXt3VFOIcDCKxiQ0PP1FoZth+fY791CUodUpE1EuBpUftM/O/AhFFfo+
/LTPe4CZtVyhOiwMLcqOBfbLioP5hVoXkehwJKYurfMjXxKkejlHcl0i0R18
s2EV2wf5USxlcu8ikfKJ3qMM7/fBa0ECp9upKGR0Kng3984DwDvgMyGxPxrF
nGldkKVJQW7cvUddbTGI42yGk+IBaXhNtLhWciAWXbV3f6veJg1z5NtmDymx
6J7rtla9PzLw3n9jWVciDo0FWmd4+MuBkqmjgdVgHPIIlWX3234YVmWbS44w
xKNfEf+iQ8sPA1M1pVRfJh5xEUvcyZ+PwMG7vieco+KRWGeYaJ/sMZALXgkm
ChGR0dCz79/yFcAuYGRPmkICiv1gZ719WQFI50/9O3omAVXOLLfK6iuCsIMd
rhCRgHg3pNLP/1aEY8J6h32aEtDAnktKn04pw9sV3uDtQELM0gfyGG8qQ/wx
/pZdDiSkLN/MsveXMlzu1bmaF01C17R+vLXNU4FOI1dnsToSsjlvGTG0dBxO
C2/uU5JJRBcDFj/+0lEFr6eBq/onE1FjJEV/R64quAndL1pwSESiKXUiJjpq
0HYoeNtweiKaeCja3JWtDheTUk8RlxOR++bnLU+0cCgZvHrgYhkZXWeO9Xqf
hYPQSq757idk1LldaHBtEYdgHvMCwzdkJCOuV6qchaDvyO+6klUyWpE4s+9d
CADPNtJuXJOCUm8VWbkXAPQnxDXyWFKQlOz35OUXAKt/frJecaMgKyXab35x
DWi+hM/lUSmoXqehw/SFBvxTypnm6qIgsx7WjYnfGlCf48Nw4R0FzZlYHPHb
ewKa99SORn2hIBGbhWspwSegcz97yvOtVBTttef8iz2aYGzO0cxOoCK4ksB5
MkgL2Bm+z23kUtHzcQGcKUcLfHgff3IsoyIj2Tt+zW1aoNDWHJD6kIrsnr8e
VN1xEhJ1pG6adlBRxB/R/MMPT8KdnuRqzzkqYtR/0Dc3fBLa313aUPxFRdTr
Wsy3GbXh4ZtGhZebVHRNwfOCpKk29Ea1Eb220VDV+VpFoe/awF3+xjdIlobU
H+u7DwrqQPnvZak2BRp6uvVDVhrSgRSDjZopNRp6c5P5H9dlHTh7MUayUJeG
FgfNuhgP68I9V9NSPicaCpac3miy1AU5dDV8qwcNbfqFH46K1oVamxd5Pd40
xMmVn77cowtnyluIk2E0JHViwW7O8xRYb3J/lLpEQ/cvx6WWpZ+CJtuK2HdX
aEh5bEeba8MpaMxPyTx3lYZOhqlJTXDo0f3qljLepKGe9pc2ufJ6MFJhY7ur
iIYsdpy7ZGOjB4O8ioxct2jI6R5laeC2HsjIFscn3KOhrxu796e90QP0opub
/SEN+Z26d8Z4TQ98/Sd/XKimodipgcYuXX0o3WjlbG+gIRZ5j29kP32QRyyL
T5poKCV2Q1zruj4c6VEJz2iloZzdEpSmL/rwhGN44H0HDUl6VNdFchtA2kcl
XcMuGrpTrTt/XMUAlvic7uS+oCH5LaNiy/YGsC3umt7LlzRUZ+Jr+ohsAEJ3
joWO9tIQ5DGR/O4ZgIPmg+gXb2iocy6zRm6Izg+a79zop6EhcqNw2X5D+FSw
/dbIEA3ZDxgbuRoaAvfCRU6DdzT0WfxTnESwIRBEhFrzhmnIyzfk0YccQ7DY
ZsPTP0JDvxrZp3OeGYJLr6LG1/c0FMmRK2Qzbwj7S7pvTI7SEJPVUX1BfiNY
Xo51bhyjoaSStugBdSOIVfo7ET5OQ7w/T1decTYCxwplq90faEjMTtyCkmQE
Wotnm7LpLPt8biXqgRHMTQm3ME7QkNqxmuyAd0ZwSDY8x4DOutn0e9o/I7De
MXQlis6nmfU/2R0whr3zy2NX6Ozsu5NibmgMTYZbm5Lp7Df8QeZUkDHUGlzy
8aZzjOadV3i2MQzcoh1SpHPy3aAAxafGkP/17NFJ+vWzBJGAzFdjaIntfxxE
5/6WrWPcbCaw+fzw5iK9/pHfX+8lCZvAOp+oigmdJ2V645iPmMCe3JaC6/T9
zjhUmcWdMIGTMZVBnXQf3zKy9m1YmkDK5fUvH+i+lrtiloPPm8Bx3f0KH+g+
//x17vweZQIvrxy71EH3vVXx1A3PVBPQTc+RvUrvB8f5w17TRSbQE3hOx+gt
3V/eDvzcYxPg3LnB922QhoT6V7lHu03gRbvrs7ABuk+28cnT4ybANr83da6P
7jOgLNGA2RSueO/RvkTPh8KtS2eeC5lCePa/q430/KiNBkifkDWF9S3evYP0
fOlqYy9VzE3hqbxgc8dzus/dffySBaYgWdW9doue3wvGj6dzq0zh+VzA7KFG
ul9STq1QpymweiXrZNfR/S662W7/ZgqeE4GMWBUN3Xi6UbRGMION3/tCrpTR
UMHKRHCQiRkMeFv0BpfQUJlsh843ZzOYW3X4p11IQ9VXU+emksxAPP77lcps
Gnp9Yb/C63dmsJ5eL1dCP99vb3Iw68+bgc5XxYVfNBoaH/g21P7PDJY4fgzK
k2loHq+PaDhgDlI29e3hMTTEusP4aWmQOZiHP4w+7kNDeEOYaTSPBUzk9qpm
69HQ3r6vr/L2W4CF7+PksJM0xPjVxqBFzQLOVX6t0QQaeiaA6WxxtQCf8j06
xUo0pBfAiNHqLKBn8IVa+h56/qSTpDKdLCFl/5il0Xcq8r2W/a+i6jS89Nx6
6jSZikzucUW/6joNwsu/3qJYKpJvj17/Nn4avAe/nBAJo6LlJYff8uxn4EED
8fi981QUZbRvrtbuDDQ5rLioGdDvv8x3h56xWMHVYwdXeLipKD+w6e6olTUQ
gzvi05MpaG3RTCbTyxo+SLbdKCPRnycXvpQaxllDM39FYXUUBW09x5PfdMsa
Gq9uf/fYi4I8jJzS8petQUiME3cwoKCj0iyhLhk2wEQuzTfgoKDmcUOY7z0L
jCLktCPxZDR+aqxvQ9selP7dWRKkP19d9SMWnHrPgZ4ge+zOViLSqF/Z2uvj
AkyX5fJE9schztpJBuFJN/gouEJQuxGJDv3Q8SFQz0Pkfh1pvY8hSK1udwvG
5AWUGUbWzpkAdP+Uw/4OXx+wWSvoVvnqg55w8PzlpfkBZ0IkO7u3BwpwJYdv
XvID6X2Be1+c9kBSLZu/ptP84Cvk+WeDB0oL/jrXkOMHKZsSj934PZDHxNNh
10o/KBwMiL7V6I74a4Kr6976gWx+gmUvtzvyOvfe69wBfwjrutBf0OKKdteW
vq9s8we3hn2Ui/rOSJuTgYm5yx+KflxMOKzijALsraWsX/kD65ZFqUkJZ9S9
lSuYcdgfvM9+swped0KRpv7bzRb94e61e1VWd5zQ6Ky6xk+hAHgkIB3Dss0J
5Ym+KVXyCYCbh5WNhsYckUTChn+9UCCEeGwmzZ+xQx/qIkt/iwbC+1f/jLRV
7FDO942Ro5KBoDK227pBwA4J2G9q3pILhPIX49tWBm0Rh+qfnRknAqGzSCvn
kaUt+rH4t87bKxDmPQ8bK9ucRS02TEziLYEQ/PUTN3uoNbKXZ0+juAdBigBf
0rY/lkj1hBnZwysIEiWu065NWSJ+s+yIU/5B8DM7x1e5xxJ1+cs5c0YGgeHN
wraH2ZZI8YGp4uWUIDivMWpTrG6JOI/eGLpaHQQPqi0bzsVaoFq5Q8KlW4KB
0/LPw9Wd5igdC+KmsAXDjZEMaw4Gc+Rj+GSLxzY6r5GpR2bNkKS38by0YDB8
JxLNq5rMUEpF4JO7MsGw8Hr5fKmHGXI51OhQbRoMU1prqxItpohX2rD42c1g
kGHflXs02gQ5HQvX5C4Jhr2cf2eW3U1QlWrJR+s7wSBxiy+1z8wEndb7s/db
VTAEUlsed0mZoBzPu7m7uoNhTuRIt2e5MZK6t+2az69gWBxy+bXkZoRA4RVN
6FQIBO3n7bi2qY/S1NelnI1CID2Dk+PkW330SfNA513zEDhxypu666E+IlvE
sGjah4BeYVu7ioc+6gk+nOAdGAIDK/KY9pAesqpNiXqaGwJfiGcY0+tOIV/M
2NdrKQSwP6rfDuXooHExrVe2KyEQvqOkoCZaBxkxqMoZboaA54wHxdFBB8m2
SczJsYSCfY1YJq+kDprVXXb7tisUZH1PmU+XayMXi1z7AI1QEG2cUdNpO4ls
POcMw1JDoUknpdOITQt1GUxUeGSGQpF4Vk3mgiY6fniQ0/pGKLAMzUqs9Wki
wR9NXarF9P/XVRLfmaeJBkLSTm48DgU5cti5m0qayJioisV8CAX9Hhfv2fMn
kFYWRZZ0OAzO2k1NPZ8GJBPooDyuEAZjNFdO0ktAPIYqcFw1DL6pu6fZVwEa
ZfhiPq8ZBlF5NdY+REBBHtqRFtZhsI90ePn3HkDFKszd+0hhwL+Orou24mjr
ENG9fTgMRhjGT3ssqqPZ+zb+ez6EgVYJ4dTONnX0miYfGT4VBpE19TdXr6mj
HOxjity3MKhZXHl47oQ6UizRqMncGg5GioFctVlqyCWIgdntSDisKLUX6Zmp
omd8MYUsieEwfEL6adVXZaT+OqpeJykc2rspvpHtyujhpcg+6uVwEHiz2OhX
oIxusoUzcd4Ih69FIpRpa2UU8TfQift+OHQ7VLOt9yihY7PnJYSGw+EL+RLl
RoMiymu1LJSWi4CS/o0TGXXyaGesRf0F+QhYce/dHLkhj5IJ5n3lKhGgw3Zt
Qy9KHoU/NmE6fCIC5LOuS5QieWRxV99J/kwE1O3MzNTqPIY4sjQk1OMjwNwz
yvLvxFEU6idXaDAYAbnLx6Ov2x9GXKy/wxVGIkDwk92kyeHDKD+30XT3hwgQ
mNrpo/tXDnV36zPOzNDZson1V54cEtl/wTFhMwJWc+38lT/JoqfDpWL1kpHQ
dKwC5EMPIS7NvdkHAyJhv/QPZ/sXUih/+EvA9tBI4C39UplYKIWU/O7r/Y6M
BLXnzPlT4VLIPhdff5oYCXkM5GhdaSn0YMXW2j4rEoK/w1xB0kF0uiJLMLMl
EjoXvj0+f+YAKti5I4OJOwrOWs4MtwvuQxXFTwTM+aPgq0x+StqSJKpV8Mgq
2hUF+xW1w66/lESvTJ/kae2LgpUZs/dGJEm0ecn9NlmVzqNGRPtfEug0S2MT
h0sU1N+bY+8dF0dcKy5f+eqi4Egspm5TswcJkbm9nJuiAI20vNYI34Mkd9Yv
PmqLgtJQg4KLhD1ITYH7l8WrKJjUk2DTeiaG3H3r/l79FAUnuU+nq70TRU+/
bOMX3h4N5eLfRAd5RVDouxpc0jkajAvVwqidQigfZOJ3eUSDNL8rbfcNIdRd
ltvG7R0NYhG/E397CiGRcJLuZkg0TOW2DpN4hFDLLjOzwaRoyOQpP/jPVpA+
zy+4Uh5GQ9SlWbmdWwRQ3pjkpTnGGOg+zHzVK34Hen7yWu8kSwysGh9wDzy7
A32/y8H3jjMGRIacg2qVdiDNmB9Xn+2MAbYqT4bNWT40I9acnysdAw86V3Y7
WvGhY442VcamMcDL33PwDM6Lnn1Mff8oPwbSem6YvDi/HcUcPiR7pSQGmJ9s
mvvIbUfHI9qjfO7EQH+zbU7Ij22ognddVLoqBnaMmI5XRWxDGeDsmPc8BsqY
yAHDV7iQS57SZ+piDMjUBrw16uNAW21GFu0IsbCe3XTQ5ToraioJQuoasaC5
fqDioTsrCvuxPVVIOxZeCqSFnFZhRfNUzWP9xrFwO7j/T/ZbFjTwuCJQ15m+
/qZwP68ICyreGbsqnxQLQSb8nCeqtiKtN5JMbO9iYXJCJ+26GBMK3lnwx2gs
FvyCN4LcfjGiUmuxtcyPscBrZc5N7WZErB+FvksuxMJ1Urfps1BG5LrG8m0P
YxykR+6K4xtiQFIcm6PqAnHwtDN9/wHNfzhU1Nt8EIqD+hLOuCerf3Ero/B3
ROE4+E5w2zZ/7y9OS1vu79obB7dPZr3nEP2Lz+7+0X3mUBzYRndqKjL8we8e
mq4NhDhwtqWwOk2u4x0vi5UFNeOgZLBHfP3mOj7u61xVfzIOhg2Kz+12WMe3
V03cZ9SPg9CdmzXfxtdwP8L70suWcXDeH6sfmFrF5Q1fZ5RfiANy/s0PbWwr
eK1Pvd+njDg4x5xha1T+E3eItntlfS0OVNLdr2dG/cRZkhlkX2fFwUpG6X6C
0U/c8rb2l8a8OIhTelBTvLSEL33qs7taFgePZF769KElXNZ6Tu9UYxyMRFbl
C819x/vdU8qam+KAFpDez/n0Ox4RcoxFuTUOOM+21ltkfce70kNbJTriwPvV
eevPut9xt1dbjm/2xsGPvtK+T2e+4fmaIvvvf4oDFt2yqyFMC7iOWTNx/3Qc
NAU/LEiun8cXHZ0msmfiwCvA8ywhcB7HYsqyqQtxEO0pf9Nleg4fqVXkc1qJ
g+ltl3Y29M/i/IcN//FzxsMCk257VtcMThOKGY6Qj4ex14eqlIU/415FaVwH
lOIhirZjlGFiCjc6fAu9UYmHkkC9VpuSKZxf63XJQSweNNo1sLpjU3ier0TA
gE48OLvPVjKafsIfdnRwHLaLh4vVx6delE3iGabvsWGHeJg8yNOwLWQSDx39
5kdyigdGr1N/X2pO4oQlobcj7vGAumcr2ycm8OeinkWUgHjYlucRFLx3Ah8N
4iZMUuKhfOyu55LnGN70T9I3OYm+/qJvssXOMbwg6XihyqV4GJ3zVM5oHsXd
8s+xpaTFg+6LI63FAqP4jxePBtRy40HOfFfO21cjOIuklXfGw3gQmPWv/O36
Dj/6Jj9PZyweVhfS2o5LDuDvX3ZaTX+Ih/PKfOa80/04ufs7X+JH+n6f73h/
8XY/PtoGlKdf4uExdl/+nHw/Tq2Z8MWW4gFbB1E3/T58InuvhgIrEYw/9rXf
znqNX7yuu/GGnQg114x+/nF9jStn+lX7cRHB1NG4fFz+NZ6c0iJ9j5cIX/mC
XeJzevHj8Y580iJEMD/Z3NQp8ApPdcv/JHaMCJUJMv4qhBe4unNn7hMFIvjf
VA40+NyNTzt8P2OrTARiuqyRxeVunGANPVnqRKhb67+uMN2Fz+hPVPFrEyFk
wfbRUl4nDsf2kjnOEkH6kMrhNLUOfE5OF27bESFN1+7i6x/t+FUZv3UdRyKY
mBp0fbjdjs9LtvgkuhLBy4ew7CHSjl8XcDzD4EcEcup5i28cz/DvGzellklE
sD6Rki/B9RSXca146k4hwtT83ZdX+1txl1e1tsM0IghEapSVZrfi7/LfpDam
ECFfxKsqXa4Vbzm5ZY14nQi7nRs+R1q14Jcvu3VxVxDhB8U/rDTtCd65GuAc
f48IGYp6X+sUnuBMTrF/liqJ0NoamDw82IiHKF4/NlRNBPubbmYKoo24/XBX
Vk4zEaqd/xpw1tbjhyXlLkj3E0EyidX6qEgt7pGsujV7kF7v5A70secxXvj7
ZB7XOyKkOpZJRcQ8xgU67fu+jRJh55sjYuZTNfhfr1S1mmki3OZKUPSqr8Zf
1vzk0FwnwpGb0lfsUx7hLHsZSqo2idB8PKTQx+ARDjQudOAfEc6bpu3Q5HyE
V53dH8i+NQHm1sQ0jl18iOcwnHnfuy0BtNh1J+fTH+BeevXltuIJIK8sJxWT
ch+fPHJceMu+BFC92zyCCd3HT++sSbp9IAGmpfgfJBbdwzUmHpxfPpQAPAH3
LHOa7uICIbcPpionwL8SrTRvlgq8peB6UZt+AoicKpJjHC7DlSgCOy4YJcDH
qXprg/Ay/I5XBpHHNAEiP6yfHd9dhmeqpJ6zO50AobuUxp+fu4VfeEnZs+KY
AA2jXDWn/pbg/Gsh2TIhCTBQe/PZvE8RThv/xfEmLAGe5V3U/S1ehP9tC4gI
jUwAA8fkNK6hQvxrio/1s7gEeOyTn2ejUYg37XMTtL+YAApBXi4i+wpwDxPL
9Cv5CbBO0pgSPZKHjyn1Mx0vSgCz+HXX/VW5uJmwacB4SQKw891qnlXLxbFp
A9ND5QnAUccsmmWYg/NFaXG3VycA5ZNAyiL5Bv7klsLF1e4E2KO232Fd6xr+
dC1zxP9lAnx4mLF7/OtVvEN/VXquNwGebOUf/Xf5Kv7qW2Pn2EAC6MuPOi1+
yMTHVbRZ2sYTQENJ5ihPSgbO0GkVf2kpAYqkp7r09qbhW3c3vGb5nQC/Y/5d
tn97BWfzEt0bt5IA5ne5zcMuX8F5eT42BWwmwFXh1S0PmK7gElaem2dYSDAm
1ljU9PUyrjUTHSqxmwRLIWNfhDiTcV21iY5sERJo4sd1Ja5dxA2STwjs3EMC
lyuVN9/tu4hbHmWtZt1Hgn9vHqUrn0zC3cJSl+blSPDxk6qLZBYVv9C9pOF2
lAQ8Z87M/DtGxX1ELK98kCcB/wRTrkMPBQ9p2XW0T4UEYvb3n2YwU3AKW5H3
Yw0SpJSlSBvREvFkG+YnR7VIkDw/sdYgl4inVrhz3dEmge6vqUpyPwm/biJb
nqNPAqfds7f3SpLwsuvVM/GWJHjfXRk4+4aId0t1OhucJ8G1FP0E4Qtx+NV5
TK3OkwRfvp5kq5WMw50rH/Ec8CGBXOT5tY7GWHxT5eaTfwEkCKOcf/fgbgx+
RCdE8FEUCQ4c6DxdeysK3+SYX9gTS4Ke1VgTkUNReOerc8+S40nw4UiOoHtl
JO502tDfjUyCqs6PG1dbIvAM130vdqWSwPiP6bO7y2G4o/SNAnIa3Z+htW4m
NQyXW+AO+5lBAv+kLLtjImF4R9DGvpdZJFjOI4X76obiawl9MXFFJOCz/cZw
rioYty+Mk/9SQwLmC+bF2GAALuO2zGZRR4JgkdydXbEB+Iq014eWBhLoj0S2
PDgUgKc+OJN8o4UE4cHB4hSKP97WcnjasJsEEjYTPxqM/PBUUnFjfQ8JmB7W
Fd/Z4ofb6u5OP9hLgoehx4sKAn3x5V5mYBwggelczw1ncx9c6sNoVtUYCfIC
ECXrsBf+q9DMT3yCBPtvbD5Yv+OJt7p1aqd8JEHBaI4nWdoTt1l89NP9Cwms
noVZ/pG9gCf/STIU/kGCoFqV/ZcMPPAfwqqMxK2JMKc0KHXriwu+enbvXUlW
OnMHdBRHuOAMOazW7eyJ0MPOL1nM7YLziAxVsnEnwqyiTykZOeNHRQIdL+9K
hHEFL2yl+hx+3NaG65hIInTWY05iVudwyNGo7RNLhEtp6o6sm464iQgPj8C+
RFg4XsDPeMoR9xO525xzOBFYZYdErizY4WG2GZ74sUSwOMn90tXADo/LiRSc
UEiEwS4GK4N7tniqiJ6vpGoiDOX6Lu6KPItXinwRu6OZCF7HjsQZqVjj30TE
Yx5bJYLrZgAedMQSX7Zlk7E+mwgDSsQ9aXUW+N+cb4PrdolQqV33h0nbAt8u
2iSHOyeCxBGWLVWu5vhh0bNjz7wTwduw+MTxZlNc2e4Ezc0vEd4WPVp9Y2OK
47nSSmyBiaBZfsbGd9UENxJdTdYPSwSux4lmqaomuI9oJqGPmAikuMKRj8WG
eIhd1ExgYiLYCLzNPrtugMfkOmfspCaC70pMh7G5AZ4iKj9vdSkRLDsZEs9z
6+P3RHuzP1xLhLxL3grl93TxBVH2jfmKRND20CWGR2nhpO4B8rn7ieC0lvyp
jEML3x2azzf0IBGqBaJ7BbM1cd3XKjLNNYmQ+CT+wcWnJ/Biopv1lZZEkIxv
xWtlNHD1I/KfmdsS4fvlD4G9XYD3vf/jF9GeCEdYApiHLwDOoJRJde5OhKPZ
3ou4K8LPfml7rDSQCLlO8hvbKgn4UvplzTtDiUB74PkzgpOAU+Fsr9gwvZ4i
8WqtC+p4TdbSNOt4Iox9vHPn/jE1nM9AXGDkSyIcT0xiVp1WwbsqY4JiNhLB
h3WDmjqsgDva6TH8/JMILLwkxzlnBXyZXSDZnYEMbG+y/zz9Lo/vc75bZMJM
hlvHZrRqeeXxuJ2jfRLcZPhi/88tyPcoLvj0lv01XjIk08rNvbmO4vd8Amc5
+cnwJqGcwH3mCD76nIPptxAZntLOuM9/kMNVIlSPPZcgQwVnsw4mfgh/dYD5
ifp+MowXHvnBFimDu/S/1q08SIYts084w95J42myHo5ZsmTY5sphuZIrhS+O
X73sqUyG88zyShdND+CJF52EJ46TYZS8hz++Yz8ucvzwLQt1Mrhmam1cxvfj
elfamzAgg9f8Des6lX14ieavBW49MggL6uhcMpDAw7yOGdcZkKH7H6vm5itx
XC/Tp9LJmAyyJSIzcRbi+OL0TEC1BRkao73tEz324spJYys2DmQYk9lepucq
irM92m291YkMLEenP/ddE8FH3p+pv+tChjViRFJcrzAeK9cXxXCBDCKCvlKD
hrvxztcdjKVBZBg0ulunlSCI31jb4mwcSoYLlPKBgfcCuJeExrPVcDJMusbe
Lj8ugPMGNZD1Y8nA6/j4TudfftxGsJLzB40MPd8qv+6u58NlYcHrRjIZ7hne
/qoiz4f/9ZB5pXmZDDpddqwf7vLiRfXFqVczyNDbaeUacp8Hn7fL2km4SYaD
qg/XhR9tw5vIQyGfC8igrMjzLfwtF556f8e7lGIylChf67/LyIUrMabcmLxN
htPDBsus7hx4TDFxD6WKDHMXw3Y/82fFTV42xx19TIZoqTsuHK0suMTy5uRw
HRl4uLfuFt7JgnfohBbLNtP9H3GJlnyxFeee85Tu6yLDcm929x1PJvzjjttJ
kT1kWHhoqrZ7nBGvIkzP7eslw4vh5/uDLBhxqxTHe6EDZHjd0cOQYMCA5x+z
VBD9QIbsZG2ukVebWIBNWkbHJD1vbuZjQgsbmFZC72/fKTKc4H5h9Jh3A/s6
cKr26Vd6/nZJ8Xp5r2HyYTjm8YsM74fDkfWFZSx9m2PM1DIZ6nYJ6k0//Y39
KoxvdlwjQ9uJ4cHfe35jNS+faVj/JYMJX2jaoS8/MXVJfW09Ngq8T8/9/af0
B5ZT60Xp4KDAG6mZN6V7f2B/DVM6T2yjwMmeMD6GvO9YS9gbPXU+CsCpeK4X
2t8wrVdnjGVFKMCQa7zGeXcOK3EOTy0To4B+W3it79AsxrJ2480+cQrwMbBt
DjLPYp2S4+aiByjgbeLlsC1kBjMMd7HafpQCk/2nSniuf8bubSdnJclTwOAX
x+qFhSmMp/jWCIsSBaS/d20r0ZnC+l7N2v5TpcDAnqp2ZY5P2Ol9/ue+a1Lg
1yolzOfZBPa4Lq3QS5sC372MrR2wCUzIuOrTjC4FEuYvG8UGfcBGwldcJw0p
MMvCJvs8ZgxT5951y86EAv23SyunU0axnGK1mWEzCpgdb6XsLH2POfRGX+g7
QwGM68/JDzPDWIvLzXIjGwqcCS2TFeEfxiTWW+a7bSnAdKjvTMXJd9jUvq2+
becoYPiaeVagYQjziEgKrPKkgPKQaGPCbD9GHy6qjvpQYOX2TGqrZj8mU/Ly
d4UfBQoEylK3F/ZhC708YSXBFKimPszX9n6DGbnK14mHUeDT7zdq88Ovscp1
8/XcCAq8rZBjF9B/jQXsvxZ1NZYC7Wc/V3wNeoX119c+4SNS4Mh0st2Q30tM
0WTkbwqJAnNhUl2vg3qw5QjReAqNAstdnReZM7qxyNdFiWHpFODxP/DWUfo5
Vvz2neFMJgXcGQx/kp07sFfj2wSsrlOg0aler7eoHZNYCC1VyaXA1lCWQn7l
Z5jBrwqfWzcpMDZeHd1AacOCNyaVBQspUMRfgb8bf4p1shs8Xy6lgFrPVtSf
04ot8cRfdrtNAYn231tctrRiwkI1Z4bK6f2/0lDR69OC+RzYO1NdSYFs8zvu
xreaMH7NX2zB9RRYGl0fph9+DNeTfjPVSIGy4LOqSTV1mLupfZZFMwW+Sksz
R76pxeodOqUVn1FAmD43uYo+xqbc/vwo6qDn9Se5YdGwBtvmI1+/o4sC/9Yl
nmGJ1ZhjVI7ez5f0+sot2exYq7CkhDd8zq8pkLHkItZl+gh7lMTyvq+PAo4f
DzrIFz7EWLL8PB++peer8NPPExYPsIpqrWT/Sfr6/CM0iR93saHGcIvJT/R8
jmVx7xutwP613RMxnab3+3rN3ojX5ZhZn9Ddo3MUcM1hydvsv41FDRsG5y/Q
82bJUHTjYxlWMkHEeL5TQHLkra7f2i1sdXH+5bdfFNhudZzWgJdiEsviVx1W
KKBX4ef80KsE0/9z2r53jQJPp79qfSooxvI4Wxfv/aVAjsUVY3bxIkxLKpPb
h40KSynvXBy88jGfI91vxzioYJsTF7c/5yZ2TfnfTcNtVAhW4DK6eyEPm9U6
f1SOjwpMfBoMlQdzMH6DvNUcfiocvjRfHL4zG8PM+1u4BKlQbP6gnnHbDSz1
HGY6L0yFavq7DqvQdazeI2CXrRgVxEd39H6RuYZ98r01+WIvFc4xU38ZaF/F
lGN4A8r306//UKWHlJmBjd34nHbhCBUi5IVETqRcwU6IJR/llqeCRTK7u3Rv
KlZaIP/qkSIVntxnPHdHMBXzK4tl/6NKhVnLTNG6qEvY4KEDtwoIVCBUJNdy
HE/G1O73aGkjKih23enxZriIba3ZFXdZiwrvSPzJYTVU7Lxqi6iiDhUy3yrO
yBdRsFeNbg3vTlHhUFLKe8lsMna97dGyuDEVvH79alu/Q8IOvTH0rrKmwmBk
QwARxWOpFr84rG2pIHQ93vR9RBz26+2Nsj/2VHjT1oP1RcViTeNfPmm7UCGf
cjWxpS4Kk3RKiZ9zowLfLdzc3icSo35W3JN6ngrXS9s/bByNwMzm422Gfajw
VX3mBet4KPbYV2o12p8KbXu/pXg+D8FEfr7KlAiiggOxhljXGIxNrwm/8Qyn
wjNF9VL5rkBMP/qpD08UFd5akw6FfQjAKhnOc1XHUMFlwUZj9J8/Fs5ao/M3
gQqF5Ao+Jzs/bDzJ9nMhmQpdq5+aoxR8sRPbtyTo0Oh+euIx2yfeGNdOk6bU
FCroWOpwdTF6Yv7Xl88qXaHXkyNXvKXhPDYknLs2nE6F32e4VZqJHli+xKwi
fS6E85tB3lbqbhhzaWrf82x6f7+k7uE/5IpdkFbx88qjQnalBpHroAumeJRU
Xl1E72+49o87Gk5Y1iOZUzalVDhzscvK2uEc9lf5zfTfMips3pHtsaA4Ys8x
MQnde1SQPqbEuzhjh8m2Pmuer6Tvz1rkUqa/LZaq5Wl35REVbrRds0jiPIvZ
6NdeH6mlwiOfDYqHnxXW/MpeObaBCoHlsrxzqmewfWbMA5JNVNhxKjtjnvc0
tmhlxu3dRgXvmm73uVlzzHx0tYK3gwoKuze0a2fNsFqHm3o1nVR4L8/dXrhs
ihHd5hP/vaRCu0F6wYOjJtiXr2mSxa+pEBO963FZgxFm4K3aqttPhb6zM4wS
MobYziDy5pV39PwWFl7bDXoYmwtvBPt7Kri5td0M3tTFNs1zVuLG6L9vs7of
81wHm1J4uOT7kQrrL0wEJSknsXeSmN+XKXp+fPVY0iK0sJ4dnQv2X6jw8xrh
sWWEJlb1c2zGcJ4KPVyhS605GljZJw+39kUqNPR67PVsAiyn/+cnwg8qCNYP
TPcPICzhEfuHQ8tU2M7P/gqaCVhIUYZt0Sr9/LtLff5rrI5dSN8zsnuDCott
LprMS6qYWaDSIDsDDX5bnzWedlPBtJ1bzOKZaKBpwOJndlwZUzPXf726lQZl
hLD90kJKmLjCuRdf2GkwZJRxk8aggPFLzus6cNFgW7znwhirPMa2I7RjaDsN
PLcctj8mfAz7vpTc2r6DBqBTx+rw/DA29VEQYQI0YDrWIFl+RA5711fYWCVE
o88zTVs/lh/CWh7WPi4SpcH8g8yJgFEprKpQU0l4Lw3knyYPClw+iJWlvXqY
JkGD9vXSJ8fNDmCXA6buxh+kwd7dlsaLLPswopPvoTVpGnD/ne7nW5HAQszW
y/xkaeB39NbpoV/imL08T7HDMRpcs036USmwFzOTyBZ/q0CvdzZsn0ygGKbN
d+CmkTINLmSr2Dv3imCHl9RvYOo06E9xqZ3v2IVJfOwQrMZooLajYJjgKIQJ
9JlmygINBLBjq5ucgtifB+6pwidpMMCl+kz7Gj/2vWBpW7oODdIdT105ELwD
m7oSfZFDjwa3DKOeijvxYT3+6eQ1IxokZb/njnbjwVrOiW31N6VBTuuDxpXV
7ViV6e34GXMaqJ8ODS/BtmHZx5qj3lrRYHzyX/hxLg4sRVxv3egsDaT0E8QH
09kwIu9gaIcdDe6yEYIvH2HFLvyYDah2osF6s3iI7c2tmP1k8HdZVxqk8ia/
SPbfgpm9YfApdqeBTMwg704LJkztgcD5dC8asCzY3ZrUZsAOFxRMc/jSIP7x
WYJ8+V+CxBVZF6I/DVS3LnwS/rRJYPc/4eAfQoPESI/y3zlrhONj+EPRcBro
PKk7Lf1nheBxSp25O5IGs7zfXtmFLBOuVatYhcTQwMq3b/4g629Ch7hiuUQ8
DQZTJd8fufeT8PvS0b+vEmhwR/Wp+NELS4R967KmkWQasF1kavyl+oNA7Nu/
0n+RBu9lJway9i4SJu6I5cpeoUGyQLHFHdNZAkoQ1Ey8SvexpzVKeHWakHeW
5+tYNg3wpfgGCssUYVOB/bJyAQ3SVCtC1v0mCTZcTEqXS2lgGybZlWk9Tqid
Wh/5Uk4Dwa159b8cRwgCT37GwQMaVA8FVR76MkQIzpw/kFVDg8yKp3mKY/2E
Ae/PPT8aaFBV3ZP6WOkNQV57PECvlQZr/0pEGrpeEs49HGlfbqOBl+igncKj
F4RUsbdCRR006Hgc9dK4pYuwuNzbtPGCBp3F5PWrhA7CnVutHHeHaFCp53nx
HLmF4G716LT9JN2voJFMakAt4eqz+7c5puj7H7htN3+rhtBxtGKzZpoGdpYE
JYM/VYR97CWF3PM04ClZMG/694AwUXd1sWWZBjMBxcN/HO4QuA+ka3iv0aDI
a4cPu1MZAU+7nLFrkwYUlvaDL6mlhJwLVLUAxiRAlK7f2WpFBGvhCLIkVxL8
vC93N/hzNqEvyk6MLJ4Ee+IYKgSmkwndNt6r+/clwZ3zGlKKeUmE1uPRfe0H
kqD9gRivBZFKqPyVQ2aWTYLNJ4zh8k9JhBSv0UWSchIwWX8YyLkdTdC3Pduc
oJ8EzH3PX6p3ehOeqVs7xgcnATcnu5n0mj6het2iMKorCR4fsrgf9o2RYJ7j
vueQ20WwCJ1Uq2K3VH9uMLy6nScZ/vE9/7yUYaK2vNftxZ17yfDX4vvWAZmP
x5F7r5OU3iXgOdjgabQ3W9m+8drp90uXoDCgDhvUeHLsuFKkpnZqCiwf8Kh9
GfB831DkCRnm9BTItqjQ4xKy2hf8lJ33WWYKSN1K0/p59LPkQ+Pr4xrZKbDU
bv0yePGnhOyF6nCsNAUGz8iKmXON791789t9xcYUkHw6nBooUSLMzu4iIjmT
AlZxIiGNSU7sZcaHtnycTYEvEq/6Z+ryWLWvLn3NX0iBTJP19IWrDcwkyfjH
Yj9TYPfEE+4UuVTGv1ie2e6/KcDwf5+lgHdUXv7L/8+pdTd9Xwv8x0cY3E9f
3vUfe136Lbltz388fYuvmU3mPyYtDpc8l/2PJZUKkslH/mPHp0dstir9x3/Z
VqBN5T/ONW46SFT7jwlXE7drYP/xyKjB73/oP/4fBfBTsA==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$13140#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxF13c81d//AHCjYaRSFMqWRCFUxn2/z0vJSlZSRsmeZWRnXvMuWyUUJYqG
TciIrCRUaJAVKlS2KL/35/H4PR7f+8e9j+fjPu455/V6n9frnCtq425sz8LE
xBRFvP33+WN2TU/TYQH/Lhsx9mopE/e6H6Cokf0WcZ39M/ah8jDy55x24M8e
ReP0nGcGbCR0TEOwNMFzGlUH2c8yDI6ja7W5TBuy51Du2EOFKSFN9PEjnoco
y0h4WeSX2S0dpLrUe/qa519kvC2jzaNPD/29EXF6JYsVdm668rHF1ggdzH0j
spt3Ezj59ON/moyRZemeeSUKGxRdnwyt2W2CarpKbnl4csHcYL/Ft5umqHbD
7Nxc1k6YL1yLOCltgXo5bw6wfOIBySu2KnVqlmhmB97CzbsLVMjHDrzTvICE
RKm35Ch8MCAZ5ko9ZYWCMTF1V09ByPC2yDWnWyMhtQNav7PEYX8z89DJVTuU
j69VL2MSoGSf9eiHtT06evyNPNMnCUjVzH0q02KP9HV8BLbxSkKKVvPSI4YD
CjnXMH2QIgWfH4QrT3E6oYGrZilOnoeAVY/1guJ7F6Tf2/TrZ5YiPDcs95Vr
dkehXy6YbV1UBPq1M5LPODxQ4eRiw8FTSpDRVd/297AH4l6VSnZeUIKI+4/f
+YV6oHfCjCOjOkcBb/TVurDLE5k7nw3snVWG0EcCokpHvJDj2lfW5xo43Arp
PaaAvNHNjaFun9JwUIw7uvXVBW/UupXv/coMDvPZeQkyQd5IWlQ392gaAqkn
hdaald5oSeycRL8vQPFn0faFQz6oSqu62eiVOjwn4deatvkiSIzgPOmtAR5e
uefaC/1Qy+AunCVDA1TE/HK7W/yQ/sF8j7pGDfghbyFQPuiHLrR0vVfZeRJ6
GNJ3d2/xR4F/BbNki09Cv2Kexkl7f1TqXKnE90sTav9JtcZwByCp49MXfrjq
gI5IaM7FM4HoaXxYwoNkHchUfZ5GdQhERwd2NtpX60B2qbhFekAgOumvKjXE
oQvffRdY3O4EIpsnMbPvHuqC3HIz25tvgShDQCymduIUWAgXijYGXEPcc6aF
ibb6IPBbnE6OCUJCF0RNYqj6kHq5O0r3RhA62PJjKahIH+z4nQ7/zQ1C2ulh
yGldH8oLPPaINwehkBP5nXi6ARyDvynerMFosS1k0cfZEIzY9v/SCgxGtgI9
POLZRjDD6nXewywEuRhUjGeWGsG6xnjxS4cQ5BGZUcnXagS7r54TYfcOQSEz
DpZbfxrBI9r5BPO4EHTrxeq9FZIxsHFV49IvQlCXyz7Frn5jUOY/xJogGYrw
an+j4O0msDdqxHDjaCgS6fnWeXufCYwsDuWr/AxFzN/M9epVTSBK5OcPi9VQ
1LQL02K1NwF0pxkvYw9Dul7MGOWZCVgHX5A0Ew1DpgeoUqk2ZyFjZ1zVun4Y
cr+Rvv6o1BRcVCe5tuWEIcMnW4I720xhXuLazJ6HYUjhZfCfn4OmkJ3jyyr6
JAwtzlotKLCfg77hoemdlWEoSF/iR+WFczBKoldkvgpDsRsf9zZtOg8rFTYR
2r/DUNbV2sefz5uBZtkeKcVj4Whlxlg61c0Myq/pb9muFo6MXSZyT4eZgZgF
F+sEHo42WG/Pqs0zg/CbSihCMxw56dskZS2aQaK9TaLP2XAkf2CTn12KOcgV
8FzT9ApHdYOnYeqNBbjQCgpq88IRn/lITc6oBYzkerlO5ocjj/e+KheWLCDR
LHJ8y5NwJNZxR6FTyBL6hYpFNUvDUfSz3xKFly1Ban5GPrA+HOmnpLJ7c16A
ByRK41RfOBrUGehZ1bwI5x1j1wRYyWhH3t8/5pYXob6nSebTRjLS3CAkXuV5
ETZTq7pT2cjoce3Fq/4ZF4GS6339DxcZBSkO7Vz4fRFuWW5JIvOREb/gqMlM
hhV4xsUUJxwkI71A1uDTxVaQfE4w/48sGYX1id9/1GIF39oHHa0Ok9Fkot2C
y6wVyCl91uY/SkYWrHPtc+KX4H6ntIQBIiNpf29Xj4BLUOKapNViSEZNuZHr
wpGX4EaNfucXYzK6+D4l+U3cJaDKW9jNmZBRkkJZtWzOJTB4OPqG04yMVqYW
OKc7L8H6xT+CLNZk1Grt98hZwhqMmn7ps3mQkU1CDPDLWYOoonfHW08yWqu9
8a5VxRqobJ8ybl0lI7m9lWv7Dayh7mGkpoAfGV3vXdYbD7CGzQ+TD40Ek5H9
qcBpmzfWIF9q//wGlYxE1Pszhz5YQ3Vb5vGddDL6fPSo/sUxa5As0iVTGWRk
LDb7xGzFGg5nYMgtgYxgxdnDUNwGnpvCjr+pZLQ3z2wO87OBv8VR+85lkVF/
RsW96nAbSOcomo/PJqPkJF4TFboNjKKrZU13yYgjpLtUKdsG+vrX+cTuk9Gy
iY6vzCsbeJeu1fToIRm9ZVFZ4RO2BZzbNGxDMRnFLV9/eP2ALfjs9fn5l7Du
zLwZj5ItcCfejpgrIaP6D4VV23RswfC9z/63ZWT0pFAqaNNVWxg5fLzE7hkZ
ueRGH4wMtoU9ev1ZqIqM9mWMfWaOtQXm0JlXu6rJKCMmC/ubYQuDx9PGn9WQ
EfUi3/pcsy3c1j0Y/raO2E8mvk89u21hyEnwSUI9GTHrvrP6+ckWpoxV5XUb
yMj/SEL991+2sMRIRsUvyMhhCxt5WMAOhqKtP5m+JCMxFgcFq3120LrdjmWJ
8MBS48hnOTvo6AhOTW4mI5PR0BP9GnbQ5H2E80ULGalXLW14c8UOthq9Js+3
kZGyzYTSTX87QEJ+N93byUieo8/OmmwHn0QsciYIC5mXN82l2kHe5/y8zldk
xMuSO19zxw4erAffwzrIaEt+qkT0QztIOWx++yHhPyvekXzP7UBBfTzN/zUZ
/c62Kx1utgM/s+nbnwhP6piM5XfZgeVqQYFaJxn1pSlqYGN2MOw7OTZLuFRl
ltWG0x72ftq7A+8io4LhYUUZXnuQr3mUQCF8l9JtOy9kD1L1s/t7CCd8KGyM
VrCHe5vXHph3k1FMeNacAckeUpknr98iHHIgQZxf0x40Ez7d7yN8OcA9osDM
HtjMdsnp9JCRnahVibetPRRc9nscTNiyTX8Uu2wPCt07zz4lfMYT37nZzx6W
vsztHySsyy97oivMHg7vF5LieEvks0HwahrVHkwdb5xTJKzszHXPJsUezK/b
VJoRluP+2yNz2x5Oj4TpBROWfDbFspBnD14lv3lvExa0/qxQW2QPDU+Kd9UQ
5mHvsImptodjlXWGfYQ5i6qTDF/aw8aFHc0/CbOYFbzgf0Os53WO/8Z3RD0z
pc+O9BPx/3Z14SP86wFV7NGIPbSYXsiUIjxpGGjsM2UPbrjbzqOEvyw7k/FF
exA6Su0Ewr1ZZsWbmRxAQSCvS5twp7bOSBe7AyzuLtqjT/jlL+Udt3Y6QNfT
lCJDwjU3pY7bCjqARwUp5T+XAJ/Xwf0OMG2R9PI04fzJzXcX5B1gTTxY67/x
shOWumtVifF+j+z5b76byhPMsRoOwLrpgcYRwvFDvYeN9B1AmOlp437C0bHN
1gLnHeDESP+t3YRD5MsTR60dwGrHxo4NhH367zc8cnUAH0tus//y4RaW+tvH
xwGy5j+c+C9fdlJRoijUAVgCVOL+y6dFl7cRG8UB5ubYVO8QNva3C+9OcoCa
AWGdUMI6IiZFtzIcYEjI5LklYWg9MWyb6wAvuANvHiMsyyeuvvjMATJrxqhf
iee/r36HZ12jA0j6tN+vJLzXiSU79rUDBI6NylIIc1YOM+0ZdgBzmdEkMcK/
DG9EV/xwgBjJ1UfjxP57901vi8miA1QZHG3PI5y5p3I3g9MROOTEdosSJpde
zjywyxG0O86c+kDsb4fT4uLNIo6w1zWfFkdYLjROdv2IIwQeL1b59YbYL3wa
pengCD9PvivIILxcuKKifMoR1MbXFDQJN4zYnfS85AgvOg9REoj6OqOpZjlK
dQSuPMUkFqIelb/8Gg5NdYSi/uffbhD1u9c/13FvliNUvitxlCb89SH31bNl
jrBs6/lFk6h/P65JSssXRxDyebxygegflrmZ2+y+O0LFkGD951Yif+hMKtOC
I5ziHX9+njC7Z22WCocTLP/octQm+k/6u5SKAiUneMf8+8kmol+FXdbFtJET
tB/mcnFvIp7fJqbGMR0n0G1ednvfSEaHlF07Ba2I31ucN04j+l9duvrXeIoT
1GxLeMtE9MtRm5kd3oNOoOrLfNmQ6L+tq/dubv/mBIf2ZqbEEf35UYqZ0OM5
J3gk8ki8vZLYP81NB8bZnEH+/NtQlQoy2iydDucVneHXhXL7FaLfy/zWukKK
dQaHPaJx64+I85oUf1UiyRmQTHalBGG3mF7/LRnO4Lu+oUqrgBhf0D7i81Nn
KFd00oohzpeDuuSbQX3OYKf/s2yKOH9k79W8qJF0gVLDaSnj22SkcPbwbuyl
CxQPSdon/nf+Zfnv3ffGBdYP1h3zJs5Hrx91olwfXCDetWDrWRpRX+H6Bwem
XKBXfbJzO4WMlJ64qgfzuEJk6Y1aj0gyOro51/W5rSuYjddFvg0kI9VnAvUY
ixscF2NqP+RA3EdePR2e43QDpVzWmI92ZFQ7oMGaz+sGDlFzEVG2RP9icdfc
dcANKkfheO8lMtI+1dgxY+AG0jjzbxsLMjo34PrhTqYbzG75s1uauG94Mz+f
ZVa5DD/YLrr4KZPRUx2rfc3uVyB+zK1AdwMZDepVZRgEXoHHk+/sXFjIaKsh
L8+HyCuQK9JoFctE5M/0FctU2hUYaVUTrlsLR1K2x4a4m67AZFjhxO6FcHQ3
aFv6BT53eOfnXOr3NRylPK3bvlDvDmxbd9ctN4Wj5xzb/3FTPKCK6wvb8dBw
JFCZ+6mw0RNc0noq56bDkFjEqmcV31XQvB+yeAQLQxcV2JNiHL2ByV16WW49
BHEfOJ3TdMcH+GtP661GBSN3zMDdbdYXxgez7dX6ryGNtJiDkbL+sFyytvb9
WCBq2hFyd1NUAJjNhanFOPkjP49Dd/XeB8LJuKa7kmm+KJt3ZwrLtiBQpYt9
KxvzRn795bi4bTD88z+QEclxFTWNJHwqyQoBSpVE3mZjT6TRLc7C1h8KOtHZ
3hR9d1R5pcpjNCUM8nzbfO6/cEUUvpAPgQrhYPM74lEl1QnJd2fd1hoIB+u7
pRM+svbo1+odqcVIMshH7w6I5LBBbrpVBZaiEXChouH7mfiL6HmeIm25PQIe
1rh6xfw7j9qlWm31nCOhVnXT+WXcBP3eo8JM3hAFo168TxlchmhakH116lEU
/FB7I9MnpI0i299FWz+NAm2ON2NGrNpIwC9rR29RFAi/e58/MKGFtLuOSdeV
RwF/S6WjVJEWyiE7mCXWR0H+bMIEVUMLWUw0Vhx5FwWCier/oq5oorbCEO+Q
1Si4b+HNZPtGA90/MT+9TTcaCuv3bd/5Uh35ux02eKYXDS2FIDJdoI50U68U
2hhEg+yX8YJPSepoZnzSq8wkGjZ/lFRevKSOjlIHlsytomH/l/XDov8AtXY1
M+d6RwOmEDSjTwI0dSGNl3Qnmvj/J8u9IwFDtdG9vl+zo0Gvf9j3qw2GEp7u
7I/LiQYjS1Lr8BEMHWGOuzX8MBqyTJP2nf1MQiE5ZOGYUsIbXKiSMiS07Yfr
gZ62aDgorH7Hs0sVKfjjmNN8NBh4u55IUFFGyVyXQsYWo0Eq5etZUR5lNH83
vO7SSjQsOX95/H7mGCp/3aRu9i8a4lQW9jzIOYbUxE9p6rLFgFKNtOsc9zGk
0XnO4ODeGPBTZbUSnjuCTCU8rX+diAFhhymZnDeKqOJZ0l03zRhI2ahyPvmJ
IuIzKB2d1I6BjCx5zvsMRfQxYMl++HQMdPOLTsjpKSKrN8EuPedioDro9Z2R
dgXkFEi9WuoaAy03iznLOg+ja133ovyTY4CzgiqR/UUO5fT1n55MjYG3/pt2
iebJoc5Brl3nb8bAv65N6sNX5JDYtF/uscwYqDQ5MC+6Lota2fVaFnNjgCt8
S9pdMVnEc2KezacqBoIlrtyM8zmIHpVp0D2HY2CP5M7vProHUG9NgMnwaAyU
f4Ojb/kPoPXGJ3uNxmMg5nn6t8vfpJBxD99j+R8xMCyTKWxBkULLM1Ovf87H
AHULPsfdsR9pSKVuu8IWCzu9spc+WEqigVtfk1zkYqEa5UhvLxBHx4Xo8tsU
YqFe8RzDNUQc5WYrdJYoxRL/J403cBqLI48Hoex/VWLBam4xnvePGNpQzh8W
rxELTEVx5SanxZBM9+nLpWaxYOIpqH6OSRQFbC7X+hcRCwmJmm5kWUE0SLX8
ejc6FhxPh59O/7oXHd/KGqFFiYVE8o+Iw5l70RZew9qEuFjQ/s3t/45rL8oS
+64knhYLcZ/V9n6fF0AtmJCY9pNYCFNL/rb+gQ/xekevJfbHAtXQhU3wLw9i
s+MOZP8UC08lmX+uNfOgtTMZS2EDsTDJSxJCiTxoTLF41n0kFqbK5dcmJXlQ
6dzA5OmpWDivYy7bZroTGV898p6diQKbuFJMr7RyI03beuNwFgrUjk3e17nJ
jVTPnOpa3kCBmmsZ5eFO3EhU0frVBDsFVAM6izZxcKNfs/SGlzsp8JLbXcDc
aDuK9xp7HL6fAkLGjPxHw1yIbOMus3KAAorh3+/cp3MhX+M/DzwOUkBzgTtZ
T5mL6K/bc6wOU+D8lEZEduIWJDurdgtTo4CfmsR3Yz1O1OGZHL2iT4GEt5rZ
h4bZiPvAcStPXwo8+cJ5OyxiA1IewIsFAyiw66lvlC22ATnpqG1sv0aB5BlB
28UlVtQsqlQgFk6BYvOGXVLurIjcs2/pLY0Cj7bd+XbHngWtKbLHH82mgDmZ
Z2KDFxOSydo4MnKPAvL6FnqeR5mQ+RaWI/G5FKC8L3qzuriOV479+ThRQIGf
lvppE1vXcZ/UKcm0cgrIMifIXz79F59ZfFO7+ooCcgE7prxZ/+CCth3cDzop
cNh6ccHhzgqu96bVzqSbAjO+y/UBpBU8P6+B43EvBYb9jYtXApZxx/MlpheH
KWDFHV8hw7KEDz27PlO/SIH9401rt0/O49skk9Uvr1DA9YZPZOHsHI4nxafw
rxHx6micacyawzNcYlW9mKnwMzN/aWx9FjfbExgtvoUKVWqn+4fbfuM9QReE
okWpgJ8d1BfZ9RNvN7+8vE+CCj0eoZNbE2fwBuXgnpeSVLh+pGKpiGsGL5zP
iN54kAqy9O9bN2+ZxuPcPs9EHqWCy47Vwti9P/BTlhZ1Eaeo0NUiNNRBmcCP
q7qmietTwWRw+Zmp0ASuynftaqMhFWJab5+1LB3Hpd/d2s9qSoV/LZ3zHWNf
cTa9j/HkS1SgXJw7M2o6hjepmV0K96FCPEdA0LegYbyG31lV1J8KtCf1G1L3
D+MlS/48DYFU2HBFnTf67RB+t+RmK1MYFQpku/Nk5IbwMJl++TAqFTT2+bsZ
fx/A/dknOUQYVDhRJL/n1JkB3H1iaawungp8ciqTt2o/4xfv7U5bT6GCLn+2
nWTGJ5y05xxz6B0qxCke2k/y+oArrTh8ErpLxD/e3E+a7sdl+nzLanOosKbw
0dPGpR8XSL7u/O8hFQQcltpZXfvwZY7e7uBSKhwO4f84H/keL/tjcjeojQoq
/SUm53f14KSTOpY/X1Fh8+jLmbSKbvxFPLbLppMKgtIv9jmad+OdEpJUrbdU
cJ/lFUzK6cIn9Zc8dwxQ4W37wc3nUjvxK2k/ZKK+UOFBqpfJ9Z+v8YXRL1+X
hqnAFaP2L0fvNc4S0Go2ME6sb1DZn2tbB773Xpr6g1/E/DyJIfylbfjdacaq
wBwVNvG2tA2Lt+EHlMlljAUqdBfyrCpdb8WPvnY5cPUPFXIaxb+Yk1twwyU1
bnwDDYysVP3q/F7ikacGh97upkHyvl2Fv9804BzXe25pCtDgK/vm0Lt2DXji
ULPJs700yLXnZbm0Wo/f9nnaeluUBhp8ORmjsvV45Z2wQmcZGkQ0d1+OMH+O
49+9XT4fokHSJ9Z7fPdq8JdKzhIG8jRwMtE8bPKzGu9pM7qpdIQGz7OquWOS
qvCpObGwdZwGcVf237ZiqcS98N2qXuo0uL0hk5zvUIGvxHLOj52gQeKxaT35
znJ8k9C8Y7s2DfKTLUWe5ZbhItovDVKNafCj1c78YlAJnpv0jJ3tLA2+B1+R
FVopxg8NPG4MPEcD03EJ8TL/YlzV6/qxS5Y02HeQ+71yWBF+JsNRWMaBBrc2
XG7OvvgU57F9/aTHiQY/t1tXVns8wXsPKOKBrjTgav5Z/yD2MW5e8c+yzYMG
F84cKaS3FeA2Pam3HK/RoPtkQCmZ/gCXSFs9sC2EBo4fH5artOfh41bWz8rD
aDDuKpM4vSUPd54+2L8xmgZ/lzkmxrPu4x5sTbw5CTQgBfINuTPdwxXeHLh/
KpkG945o7bOwvYvPp8YrzaXSoFoxqze8PRv3E7c4czydBneH2T5L3s/CQ/DZ
hKH7NKilHz73ekcmDhvPi8Q+oIH2J8usyN0ZOEvH86dyBTTQteainhdPx6PN
KJ0hhTSwFzv8vdQgDWd4i2wRrKbBsfiJ+OXFVFxfLTq96TkNRHr9MB35VHw7
y5S0Wz0R75B/coR7Cp4SX6FT/ZIGsic+b96/noSbmgp+sGmlgZzIcriuQRLO
JxjhxPGKBmOJzOYdOYl4Rr5+jFkXDXT2Jss4WCXgFz1LdzG/pUHhXxnJwNh4
XERZIPfBexq8Z623G7KIw++9/Nq09JGY/5fKoUEhOp4/FMRy/SsNfAffsfJs
i8Xd8kYSsUkanOt+mzgrHIPLXtEW/fqdBum/7R+VKUfjRas7QekXDc5SO57s
DI/EvV4EvPk0S4N62b8qmoURuBLly8WIBSI/RqHJ9HEyXrmrILjnDw3yqus3
xTuG44ED27kC/9KAXS+o4XtRGE7K8c0QZaID9JyJSWMJw+sPH6/22EgHtcOk
/d5uwXiL3oflrdvpgJajboQ3+uN8YeJOlB102GOBZigv/XCnkst9rLx0EGi5
ulWvyxfnEGApX+anw+IiNsW67o2bn9bbd3UvMd6P3K1hYt54Qdj1lGkhOnzn
VK15cfoqrjchfXVEnA53x07Sy6s88UwBnxFLSToU0OqVllc98JnTdUZ9UnTg
7z/jJqrhgceXnpHvOESHtCKFj0Vdl/Ge8KDpsmN0EKq9yvtywQkXL2u2lFel
Q7l6/u+aT4649+T2jnwSHXwLfroHdDjgvAb38++o0+HhLw71rx12uAP5J7+A
Bh3sjMr0pz7Z4uVlKpQUTTq43i60dZy3wc/v7XSknKKDc35bYihY4w8N+PpY
9enwir86OfLqJfwP2UYzxJAOc2k5NbcuWOHp3xYlrp6lw9q67yWhQEt8sFx4
xNKKDpPG8gIr1udwue/ORn3WdMCXSjFfzBQPEyytN7Ij4jXf8tF131lcNFL7
jqYzHTCRAysrfGdwr4qkrQ2udLgmEapWIW6Mv/j+OVjtCh0E26imR1WMcDsj
T0v5q3SgCpxYb99ogJdFVr/K96FDt1Oo0X230/imyo1q+/yJ/HcGRC59PYXn
Cd3iFwimQ8XzHMpRLh182WgsNiWUDqdy6wPan2nh2lGyy1vJRLwR6JSEryb+
/ceLXtYYOqwWnTtetEcDVxPm0gyhEPmy6qkqZT2B043PlS3T6BCpoBUutKKO
H3r2I3k6gQ73s/lE/7ADHjJ1hNUpmQ4rSxVfGrVxvFM4zGsklQ4XTRbDjqWQ
cI9oHqO+W3RQ1cKlj7uq4A3PLtYbZdKhkl0yin3hGL5j+oFcxx06vG6JF3mf
eBQvOYNtbcihg2PmPVl5ZiV8Q0xMsFoeHQ4J0F4f6lHATaq6p8oe0iErqDqb
s+Qwviji8Cr/CR0Su7gFJU7I4duaGxv4iujA/HxP7U77Q7iUq2hldAkd4skc
1WZZMrh52eccm0o62H9pzze6KIVfNVdN76qiw7uXlg/eDkri9PUbifhzOnyF
bX6nvPfhdTpnQgRe0GHQfNxM7qMY3j9T6B3bRAfFd4XWzx+I4rPJW10Xm+kw
FChJj4wVwTlV3Kzt2uhQ4q0oZP5bCJcYbDvX84oObWbjPW9+7cWxiP360EkH
H781lQGuPbipVJTGky4i3vQ9bzdq8eOxXnCY+p4OSvSJwY1su/Ds3bf3L/fR
IcXYk1OBwYNX1awKOnykQ/12mQHRAzvxt9ZmPO8+00GrN5F+7yM3PrWpguP4
FzpsPe3dkZS1Hd/4iIe5cJgOzfeEcwvntuJCRl5LgmN0KGouftXTvgU3Sj80
tjJJ1Odm195/g2y4C9A+Ov6gg/zFXbFn+DbjkV8nu95P0+G9pAV6e2UjnknV
bDnxiw7S8maqH4ZY8XK5nOdFs3Q4nrTQ/c6NBX/zjrlUeIGozzqhcm1uZnwy
wCqfsUQHP8q5iylp65hAk8AN5zU6bJmaP621eRVTdPZn9P2jA1NVf/TK8jKm
t7U34iQzA1g3vSlo3bqE2ZcoBpawMsBgcVYnUnMBCzmf6CG6iQH+fKtM/Lfn
sBt/Zxzi2RjQ8qFFN37nLFZ4V+/CXw4GRNw7q8dx/xc2OrVZ98M2BqSSFbgV
paewtUR70NrBAN3EhKDBoW/YrmONR8t4GFAeGbwp9cUEJvdZ5JD4bga4+Q3e
i+74immHh4gn8hPfW+2a4FwbxawlP/Ov72FAmua6YI7+CBb4SmX7ZSEG5OsE
hs01DGGPeBfWtMWJ9bg3Rk2zfsZeVhnPle9jQIjO5zPKqR+wQavCbxJSxHgl
2rJF5/qw5Q1bh5KkGZAQrx/0Res9xp3v2st0iAEZvcp4uM1bTNqgreOKHANy
3pxUj83pxjTmJRs/H2ZAe9VT992cXZgvPvK08igD/jQIGob5tmPxoyhXUoUB
Mhq1LWvrLdiD2MyMFDUGKDN3c++se4k1HFpNYsEZ8Nz4dV/+00bsY895igcw
wDdBb9vs6wZszq88dPA4Ec93uX/nd9VjWwR5fPVOMmDPZHz/Xs7nmOQLT7cq
LQaMOxqyLMtXYcjxjY2ULgOC5e+nRd2swFJib8u+0mPA1INvPLWcZdjkw8t/
LhswQPjd65aKumKM9IrUvN2YAW2SEob3nhRiCVOcSSUmDAj46rCkn/sYG+P6
dMH0HBG/KrN/sWE+piKXf2DFjAGVr7/vcjqTh8UZBiykWzLAqXMlZF9uDjbi
qd2AWzFgd0twtJH6Xexo8m7GsDUxX43z5SXBLIxWOn4+0o54XoK3KnxcM7Ch
92US+x0ZoK1TI5+2MQ1TWor81ebMAOavmwbr1lOxWD6TGjc3BnE/HA9RN0zG
BlTEY7e5E/FOWpw3mUnAFCxmzxR7MqBK/yBl6R4Diw5qED7rzYDb0n3tPyco
2MfMhB9LvgyIr3jf65YejcnVWVXcCmCAvS9vS2xxBBY5JBuBBTFAQWF0NVws
HOtn/qc/FMKAe4OvWE42BmMHxV8LRIQz4GvYQUfjzgAsXCNjfF8kA2jH5bc7
m/pivfauxa3RRD4EnDsunL6KSceohrhSGNClu33KP9cDC3nArruVzoC//GdO
PHzkhr1t6+ctimPA+vXf89fuO2FSP/KGzyQyoNSeiy6/zx4L2uL3eDGZyHej
Gi1qjw3WdUgzIO06A+KEz6wwz1/E9hnwniSlMYDiHLA/1tEcC/QY2/4lnQHn
gua2vQw0xToTSz6H32aAufCRrkD+M5hYCfmBRDYDjuX06784bIj5vTPybrlH
5Othcv4tx1NYx4IIuOQyYIHnoaeluBYmsvsXJ9dDBrD1LBvrhJzAvJXr+p4W
MOATKTNq0AawNrO4e8ZPGBA6wsYSHaSGCV274L5QyIDkj73Li+tHMa+Mg2o3
SxggK55ZfUpREWt+vrpJrZwBH11Vfk7/kcP2fGnvGahkQOyf6lCHRGnMg+nW
7bBqBmT70ZnQBkmsSdTZRbyWWC/3TO0rBTGM74Ty0eZ6BuT6z0cWMgthl+02
szg3MmBXSlShwiM+7EVU72vOZgYMZg4nXVDjwXbl3U970kr0E8pJsgNtO+bS
6m1v9IoBLycwdrtVDqzu24nD86+JfCu+ytP+tRHj4dz593oXA0ZL9hlwtTFj
TgdHWlXeMsB5FI9Yq1sj1ZwuSvn8ngEd6HKKvfQSids97FJoPwP0b7IG+qfP
khwSDA6KfWKA0A0NttpX06SqIqHlpgEG7FxL7+NrmSBtfTvd6DjEgGuf9rw0
/jZCsp2viecYZUBJVN2FlD8DpEpeusXjrwxg59ihlf64j7TlmMV+w0kG7NAW
b/O420O6dF56bvY7A05aC9/coPKaVBawUps6zYBHaoHfe942kzjSW6nKvxjw
xqRpn2VjA+lizQ3TT7MM4PR7byRNqSYd1z3FYrTAAPrWwmyr7DLSvv5/j5uX
GGAWN3xCfqaQxOZQbEb6w4BDfnfiFh3zSVNz9huL1xjwbCYAJiNySG/C+Yv2
rzPg97Emq6MNd0jF215bZjLHQdtPLomKwJukABml0thNceDGFyC6pZZOsnw2
YfWPLQ5ukQ4lBo5EkUArndObMw6cfbSLL90II22yZbG12h4Hp0VfbAjo9iKl
3OriPioQB6JfWGS4hkxJ/lKRzwv2xoG+DMl29qUhyaL8mLOocBxwbNyutc1f
myTWc7t+i0Qc9Iq0uUdnqpAK2S+7jx6KA7mqYJZf8gKkV/7srxPU40B+7ZZ2
3tpbtSebnvtv0ogD9T1ztd1X2tWSUjwkgjTjQGKZrc/VtEHtfGHfNcdTcTD7
KlTq967HauMT96Xxs3HguHfKW/wCWY3l3PHYH05xMKAf4vrgsaia8pFrJzQT
4kCndqA/+LGwau+149Ibk+PA9XTQedH1zao+L9i5m1LjYKx0YCH19m+VYoOb
g+rpcdDxydbP5HCDykGXsgAsNw7EBk9tEB4zURG58/OpUk0cSGWJ1uzHtJXZ
2e32ik/GAX/7DMfKvdtKDwxkWEe+E249sUdD7YSS5vXZb1nTcSD8NT7nTuqI
YqR4eIXQHJH/i18r9Qy3KP7DbhsL/IuDC+0bSxK85+VnvfpjuXniQbvvw+Xy
pnsHEp7dce/aFQ8WdzrMPNYPSckxOZrG88cT993slZS/4ZJujAVxLuF4kN+W
s9FPxURsPG9HHZt0PDSn9g5dZ6nYGTnz4X7LwXg48Dfnp6C5N5f4kWx6tFw8
vNd6nZT5Ys/GSy/kzDcciQem/3/9Y1uCxmP/c6ZB7X6y6v9Muh61VR37nz9+
1ltYR//z/wFRvrrm
          "]]}, 
        Annotation[#, "Charting`Private`Tag$13140#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJxF13k0lF/4AHBLKWtlKYlkjWwV2ee9T5JsIYr42vd9xr7NiMg6M8patmih
tCB72YpEhJQtlEibJdmV+L2/c37n/OaPmfM5c++87/vc5z7PHRFHoqkLEwMD
gwn+9r+f0wsbhjquyxi/5YsXv8dTMf+7YYrahe9QyGP1BG07SRTKPuu6v3AS
mVxR1vtSfQypaAtVXvWbRS7aU4WSR1RQRGMRw7bCRXTSGTYtmDTRhw9YMUpc
Q5FNzGufVQGprw6cjfD7h8roH9ob9bTQv6yYs+sFzMBn3yKawaeDZIt6Du3j
Y4FfAsY7ZD6cQdaVB5aUEndCuPnNyCGqHqrvrcgm+XFCEUHAROGlIWrctrC4
WMADyre3tPdfOIcG2K+PMY3wwuXn9dz7WEzRHDf2ag/fXkh9UsUmUWGKDook
ZSsk8oN3XU9zLNN5RCGInvTyE4K5nr8iWmRzdFBD+szvAjHo1rTk1t+wQiXY
xrM1gjishEhdCYv5Dylr9RxlGBGH4756aUs7rZGRXpDALj5JYC3kZuHYZYMi
LZ7PyiZKgfxlsUlgtUNjAZbp7n5yoFDzyaTKzgEZDbTO/ypQhIXaWKmNCmd0
6ZONJdeKIkTQm+/2/3BGZd9XnssaKEGvjbUcEnZBe/5KpXksKwEhr2VnZ4IL
ei9MOzGppwxJQbF+m+auyMrjQvjAgirkZnntcPzshtw2ppgbtDHIODyTsVnj
ia5vv+Q9cgODySq3jrUJT9TOxd+/PofBsBKbdSmnFzoiol+kfAPBoYv+f887
eqFVUQvxoWAAdFg86/pOb/T0zLO2c50nwaFoh3mRng+CazHspwO1YTa8Nkr7
FhG9+rgXY8rVhhhZz9WmFiIyki0hNbVoA6XD+9aeKSKyedXbr8ZzGhIijKNz
eUgo/J9QgfyT0/D4v6jO3vMkVOlRq8Q/rwP3xwmXrr0jISmtWZtpLz2w3Tx+
LrTFD5WmRF29l6YHyFH1w9RbP6Q8xtPi8kwP5h/DrlPjfuh0qLrUOJs++FWP
/Ora8EOOj+MX3t/XhyNXnK6LnPBHuQKi8Y3fDCBIgbd36pY/2rNoXnbNyQge
RvDvjg0IQAdtRM7HJxnBmqGb0/ClACT7anqVXG4Ex1YGJkWoAUg3Jwq5bxmB
iBxzNfVOAIo8VdKN5RhDlTlkd74PQCsdkStBHibAdGwi/9/xQOQk0McrVngO
CkywV7e/BiJP45qveZXnIKi+VOvS70BEis2t5W8/B8Fc374bbwSiyDlXa65f
56Dsxsvp3j1BKPvF39vrmqbgc9ABmWkGoV5PCcXeIVNQPnTP1jklCGHPQs9R
dp8H71D+RQ75YHSo70d3vsR5MNWxqAtSDUaMP6wMm9XPA3N/VvQ7rWDUupdw
htnlPJwK/2ToaxGM9P0ZCYl150FxrUhNNCoYmUsnSWU4XoDC5aPe9J5gRMzK
2XpYaQ4yhyd2d7qGIJPHHJTuDnP4pOpbO00MQcdfUv78+mgOkptfBpnCQtDK
gt3ycVYLINyMKuZNDkFkI/HpWhsLUPRsvv3qcQhK2P5ooJXlItRWyRUFLIWg
goDGR6MXLYFdaWpJPCwUrc+ZHsnwtoQS3zZqflQoMvX8VnQ2yhKUz6sN7k4I
Rdscdhc0FluC7Yp//qfMUORu5JhasGIJGn90H0tWhqKj0iwhzulWkHdtb4D9
bChq+ngWZnr+A6XE6OxHVmGI32qi/s7kf+D9r65MzyEMkfqD1WxW/4N3zac1
P7mFIdGum8e7D1rDhTKPjpXAMBRX91u8zMcabLXLzg/Rw5BRegZrILsNhL5p
GPV4HoY+6o31/dWxBb3Ygjs/RcIRd/G/P1bWtrDEwHhKUyoc6Ww7KPbUzxZO
2CkuxMmHo0eNtgGhubbwY7gue4dGOCIrjvMs/7YFGqNibbVZONovNHl+LtcO
tO7TpN/GhKMjoYFepDB70EtHYUKfwlFrUeyWcKw9/Mto4839Eo5s+9PTeuj2
oMY9SOT9GY5Sj1c9k79jD4tmqaELS+FofWaZfbbbHvw4N2yd2SJQu0PIQw9x
B3iy17VJTCkCuRiEzzr2OADV/HjasZgIdOjkUN74sAMs6SPNkfgINKqsbGT7
xQHcIhp9LlEjkKnowmPLdQfoLz8dXpMRgWDdg2Qi5gjXznbf/1ocgQSLLRcJ
IY6gd/K/Ae3OCPSOSW2dX9gJrLeu7T/ARUb0tcz7mdJOMGT33kyIm4z055Ys
eZWcYHr1dorAXjJqHi57ukvPCZ4yru9nOUhGj8ukyCwBTqD4b8dIoRwZJdny
by22OUHgrjGuXwZkdPLp6rYeX2cI07kQvRpLRqqO35SuhzrDMelfvyQSyOgo
26Czw2VncNn+zsEkmYwOWlW3LmY4Q6VbiOWNa2T0Zz0wlr/BGRTS7oz9zSOj
SrUFZkd2F5AjEm22V5ORZN0M03KxC8B694T6JBkJOYwebyx3AVod1XVuiox4
Wbsc45+5AMtDZbX872TEZPngxf4eF5gqV3y/MEtGn9Y8LmMrLmBoWXiQtEZG
11W/MSZou8JSqfZsPQcFsdd+Zjjw2RVyVMoNHx+noHmTrLiaaVfQlEfuh05Q
0PsfhhznV1xhepCPTFehoLwDtfto7G5gp/o801aTghQu0eW3TrjBvfW4j92n
KchMR8N6MskNrluMTv62oCDVT/OfL2W4AaeAaam4FQUJhha5CRa4AV9waraZ
NQVN3d8TcKHKDR4obftw156CQji/J7765AY5X6WRoAcF5bxPr3mg5A4v2mxL
TcMoKMpHn6CL3OFqLmuqbgQFObMwtHzRc4fGf6/r1CkUJKfq1S1k5w45Sjmf
eaIpqCnn5FRKojtYM5x+eyOBgiYd57gDP7rDsn7foZVMCpL5fcZXM8EDmNPW
c7bKKMhQMyVAPNUDdPLnXro/oSDv+IFQjlwPsD54cbq7goIeCrnEjJZ6gJmy
sEJqNQXJ6l++Th70wPu7afvSMwqSv13/ol7SE5QbHz+QaaMgoznm9jtHPQFa
Pxq7vKIgXzWDN1R1T9A+eIY1t52CSnuGB62NPEFRefsLhk4KOrqxMrMR5All
Ub3BxT0UdPzCsX2El54Q3e+j4zVEQaYFoYISPZ4g9ClvNXiYgvynm0Q4hz1B
Mi5p4NIHCqqINpIdm/EEzm3XxBJHKUjpsddJCq8X5Cr0i4WPU5DyjiKvBicv
WBpO3j74jYLMTWdJd328YO6wyKnq7xQUnKcUTAvxAuPpzpepPyioRrElyibZ
C4o+7y44NY2vp/14xr8nXuD890tP7BwFqdcJNBOYvEFj4NqFuCUKIneWfl5k
94buJzU7VJYpqHFMm7mEzxu4ahMUpnCfZCLq7JX2BhF0ZkptlYJ0DVq65oy9
Qde8kePlOgUl2Vycu2PpDTToSnH4Q0FdxNld/zl5Q/nwrdS/uE3S95m9CvaG
5yLFglIbFGQx5jV8M88bCgdbnJ02Kej6L4a/F4q94VB8/84Z3B8YMwU5yr2B
LJ+q7L9FQbaSzXahrd7gbjqjGMIQiVyJvF9Npr1BOHDPkBNTJLoXfX/HjmVv
2FnrOz2E+2caJt2w6Q0XKoRTDZgjkU+tu7c0tw84B0O+9LZIFMjYsMCo5gPB
0kV97dsjUTWPKW+tlg8Y6PQWHmGJRGsS3074GvoAYaGRMwk3WX9P2Ac7HxAR
TW0+uSMSNVoXZV/18IHq/HbWbNwMRI16nQAfUM1zW/qFOybNZetJnA/cGQh7
kr4zErXe/XPI4yo+3kI1YRI3S22KlnC2D1C/LzMfZY1ESaN1V5If+cDig7+/
n+NOleDicH7vA9kLn191sEWi9yq35QQ++kD/itHsdvZItFdf1bj3mw9sVDY/
R7hv+Dqmav71gZ/vJcgPcX+IWq1Y2OYLJgsmzp9wC6ZR++9x+cIJrfmtXRyR
qKCmmp9P1BeCTyxc8MQ90WGg3injC4ZYHHc6bvHR8f+iT/jCr9O/457hdp0L
oqggX3jLql85jvseA/vNWV1fGL5UlMPMicebu6D5tqkvOAwewMRxy0qcmLC0
9oX2sMZcLdy+Kq+Zd7v6AiP7rVpb3KV6dhJtRF/w8xxODcX90fBprnG4L3yi
hPOk4uYy4eMdjvWFuvSHc/dwE8xIyY4pvnD3WadEA25v806mmRu+kLBw/Gk3
7hxLyfCgO7jlNB+N4X5tHf1787EvTF0Ahp+41+1G3RPqfEHYIKtyEbeUk8r4
nlZfaJrM6vyD28I11SKn2xfs57J0tnDHecx2iw/7ws3jM5KMXHh+eOvqPJ70
BT7/7z4MuKeItxtU5nxByeOT4D98PG/AptLzNV/Q7xU9sYpbO9jyoT4zERys
mWvncAeEVYq95yTCiebeoknct8i7cmz4iSD8aJhpAPfbS57c30SJMPnO681L
3AwxLxNJckQYmnq3owK3Qtwhxj8qREjJsKnIw22bGBEao0WEL1lmb6/gplEH
fnGcJULdnS1HL9z1KcfcMi2IsC+0xMMI94HMbxfuexOhIkJghAO3/g2tN8dD
iLCOvHW/4+sZnpunXR9NhMilfoXnuIdumSn2ZBJh/uGWnxfuHUWPSy4WEoEr
QbtHE7fyfVbRiQdEaGV+8IAdd3pp0+7lZiIU7xj9WojnW8sTgYTITiJ8fCmm
64F7oSpoa8cAEaxS4+XkcZ+rl5kTmCZCuFNaYhme31FNcS53lonQvq+cyRf3
xc+kub0MJPhPY2CbNO74L50uBWwkOL28734Wvj8OuoaJTO0iwcWeW2cNcFd/
kxyT5iPB/cI9URv4/vr6M/p8hTAJOAp80ixwa/9WOdWmRIIvSo8y5vH9POo/
tcmmToJk4szrq7gDllKfGiMS3P6TmyWP+9bq7LFhPRJ8vbVjwxGvDwybtw/N
2JLg796OPaV4PWlg2725J5EEI2cNA/vx+uTvEhe2QSNB2LbLTy7ilmreWPqa
SoLuom/fhvF6lhr0Y/pZLgl+hfzQGPhHQe7jL4ZdykjQJ694q/ovBfFWB1XV
DZLg6XvZY/vw+vp698zRO6MkuHki3yh8hYIueTk+pH8mgWbNNb8RvB7/PGR8
22maBESmyM4svH43J0td49wigQLPi29rv/H+5zDi7SDpB+svnly2maEg0fpz
3w1k/EBe96tdId4PBve2Oykf9YN8FlOTyZ8UpNVVacWu7geHuWV8HfD+wa9C
16066wdUzWNVOl8pqIXjpDhrkB8IDB6Qrv5EQQK1RSNlLX5QlmVuLP+WgnTY
GZi2d/iBhHCupkgvHg9bSynLbj/Qcju8nRvvh6+3cQQxDvtBwMyqzGwXBUWc
8+MyncPnb1ZOJ+L9dPSnxslFfn84Qv7CZttEQflCb4tO+PrD+PJRm5AH+HzS
kTeJAf7wUo+YdLiEglZaYhbHQv3Bjnu8rP8e3q89lSEuxh8cm77PyBRR0FZ1
zvDAdX/41mGn3lxAQfYmrhyhLf6gP8z6KyEDj0fMX7+n/AGg6N3RWICfPz7V
RRQtCwXAyaLZXfvJFJQ7//fDUbEA6BC8EJ8STkF7bTdOFcsFwNDvrengEApi
U/vHl64VAGX2ErcU/Cjo99xmnY93AKxxjXvqOePrYcXEJNIcAILJvDlienj/
Os6aGu8WCDfHrklkc1KQmpZpnLt3IBSadbS3sOPrb5oTrucXCEUtPKvTrBTU
4SfnxB4RCLI7lldUWPDzQPk5pRR6IKQm2KQ2bpIR+9HsgcyqQIiwPFUS94uM
auVkDhQxB4GcsMz49l4y2iN99k7rzSBIWGuyHKGSEZFgTPReCIYYmTISy48I
pH0jXjZWPhR2MmV9lNSIQK3ckbdYroRB22zRB5pHOAohyd0y7A+HAkEHxer4
MFTIx5POtIsMx+qtNkXvhKKQoWpMzIkCLArpsvM5Iah14upIRUEkGN18LX8n
IxhpvxVj2jl0Cdg4I5Ri44JQre9T0mR6FKynNWiHngtEifyRw+HHo0Hx8XJe
l1gAOvq2IP/MWDTsKDobbNrjh+b/3pRaib0MROrFHYmBJOSt//SBtUgMfn9d
R+2MfFFDsWLy2usYuBhEU7X38EKvpdqdDD1iIdKn4dXmPXf0+4Aa4+VtV6Bz
t61I9i8XNCvE+nfm4RVYYaYGSP1xRHdPLc3u0o+D/H3CNyYxe3Q8FCO4L8XB
BcXExd21Viii9/aV0LR4oCtu0OhXL6Cx7KlUT4UEuDKo7pjVb4L4AuM2rg0l
gCCPw+cIB12003lPOOtIAnQNMyfxnNRFG2a5q1FjCdCfKajecEgXfVF8skCc
SIB4tfKfOuNnUOXi2PezM/h8PlfRE/ZnkGnAiX5WhkS4G711OdFJB6X4f3kU
fTgRwt4LXAkK1Uasflp2fsGJUHIzuNT6IyDVMeyJUFgiWBWuP73eDMhdT2P7
64hE6Hz/4NfsLUBtIkoPRKMT4R+bP/cXN0CX+yRW3yUnQm9l2DvGrwhtKLKm
KBcmQp+QyAKPIIbmVnoa/3YmwmaKFltEqToScurac68bH7+LcT4oXB0Z9rQ7
n3+bCHtDi0qKTqujkuLnbI8GEkHbpIahZFQNuV2sMLf9nAh2lNpedU41NF6X
Ode8kgjMf24fuxGqgvrINgfjRJKA/YCZwWioEnpt5bMmIZ4E/RkmnGkGSui5
KqXvpWQSzPzEDkcdVEJlS7lx22WTQOUJX96/VkVE9x6di1VOAq9Rtb3xvIrI
wPq/phiDJNCUCrX+1HAMtWpY2kcHJQFfwK7aoQB5VL/fQ10kNAm+aPhw7Tws
jypWQ3mfhyeBx4tX3kUf5NCtiuvtDFFJQCQL/Hf0lByKkhk6GpWUBItxT2PD
9ssizQMWjJduJsHOK+q0iQ/SqOrP+VvkjiRoPDlJnSuTQJqn9ax/dSaBDmOG
/fFgCfQihbDXsTsJfk7pHBjQkEDd4pJJZ94lAf8Lti3NdnH03WjVj3sMf540
mnvclBgSvH3j5L35JAi+eydj6ZgoujVL+yuwmAQNPgKscv9EkLTq5SrachLc
sSYttLSLIOU3ntIBf5Jg/+umUg4HEWSyqrEH25YM+mIK7iyZh1Cswcfxd/uS
IWZJ4c666EHEltmXrSOQDO/z6oUFXgqha+Nt5+sEk6H5meW+RTchlB9U2p4v
kgzxR+Il35QKotqbUWUeMskguGB4gF/3AJpZFI3awpLB7UDAg+psfmSW6yYs
45oMk75mkdIveRCv05vHfe7JcJ/DgpIewoMGpBWxcK9kKPErFWw/woOsajat
O0jJ0E+zCotL40aOfRnZbhG4p069N/Ddg0g7W/nuXE2G6wNHHty9yoWO90jf
NUhLhoLHEhHjnFxoKSNFaTEjGU5dFrFPp3KiELH/zLRykiFp41uTPZ0DRWIL
V8fvJgMVPcOsb7MhWuAhDqFnyWCxaHvUbM8OZKQRl9PakAxthoMko7ssaDfT
zBHvZvz+yIFHitRZUHpKjd6zl8ng/m+7sZPHdpRbYhRv2ZsMffMNrmMDzKhk
nMyUOZUMTReULTnmGZB38cQ1wvdkeMylcOrTdQYk76srMvUzGTTiz2zOajGg
8r88oDSfDLtLPpC9T2xhtXsfUPr+JMMPh15ej/IN7JXh8BrXbipsmCHZr/xr
GH+UmHsiNxW4iWZbq9dXMfcKn0FmPipAX23rb4FVjE2AqXptPxVW1mdHaeIr
mOG3IwETYlSQvfo+aOPsEpYnEDRhLUmFErZ70hOji9jc2aZzg1JUKNje8Pmq
zyKWUml2tEuOCgdZLpaopS9gfdHk2SoVKhiPM/Por8xjYlVt1kfVqfA1zSOQ
NW0eC/y+u6tEEx//0kTW/9g8xmd8t+TmSSrkUwRV7b7OYRcFu90SDaiQUuOw
+I5nBvtYLTxhbUcFrmXm7GLGb5jCT49zgw5UuNPyZSTR+ysWJVTZfM4Zv/8y
GW/ChylMJFb3po4HFbZ72v1abfiCOZ/zsz4agH8/xT82cHcCq4p91lkSRIUb
olW/7SQnMJba7RoSoVTYtxlgEXb/M1Z8MHu/AIUKF90eVWrWjGM/p18MMMdT
IfOM3ekz42OYhjCnTmQiFaT2qkD2zjGMampRtZZMhfLEh8vUE6OYXN102uxV
KvSu/Xi8J+8DRorjPTeYjcdLMNVjpGAQe15n23wujwqu6bmcxJkBjHv2nkLX
TSosn7/dIqY5gFWYEbie36HCbJ/tZvm399jKIdfOksdU8JeXFC3z6cN2tbU8
5y+nws5nHx5dGnmLSXmJ1MZVUGFL6wTTW8O3mFXV6B3HWiroVs7KNKv1Yk16
ZpECL6hgR/wiTAvuwobmygITWvHfq1FcUIzvxBbSuLxW2qjQVMnWupn3GhP/
2GHR10mFtMXivLSxdizBH44l9VOhXp0x8HXhS6xwX/7htUEqPM1Z9SgYb8We
1v8Vcv1ABb2HBcEvxVuxGZYaNq1PVIj0M1zPqH+BbX/Iy1j2mQpTUfUxXLtf
YAfP+a8KfcHXrzzVmOT+HDuXI/dl/TsVUiuVxKiHmzFPSP7gNk0FT2v/SWnB
Jix26ntv/ywVrgYUiugtNGDVCncayheo0F2lGD9f+wwTaBXI8tiggg8n14GG
khpM0SOUNriJ5xftehv3s2rMkGsg5jQjDeRbqDZM76qwyIvXSCIsNHj/W/bJ
Jn8llvVvzjVlJw02mARcK3UqsLJbhjb/2GhQOxu7dCHiCTY5s0N/eBcN0oq1
1CvXyrCNay5whpsGbg8TuA6eLMP2qrQoV/HSgF7yZiFHuBTTjY4Uu7afBr+7
/pk3Rz7EHvItb+iK0WDg8y0NgbZi7OVT08VqCRqMTmZytT0pwj7alf0Ql8L9
vvlr9v272J4SrwEGORoE3WSVvV15Gzti3NHlq0ADjqFSOYP2W5j2kmTL6DEa
TK36222fKsSCsYnSWmUaqN04tnpXtQBLmURFkmo0eCsnvIf3Yz52LyEvN12D
Bp19HqdWrfKwD30X8X8TNHC+uFR8MCYbWwypvvRRiwZ/G/UiSHI3MA4h3mDD
0zRYF5EvWJvKwpBbj6OUPg2MJl+cGb+UgaUn5Mt3GtJA39uHJ0E3Hft+3+eP
jzENoiO9z/YKp2FXZ9hTK87j8dqbbnx47Sr2hXPExtyCBl999fc6zKdgagol
0uuWNLhN6ziSz0rHJvx0n2N2NMhab1Zqi0nClNP20T474PHM044bnEjAkiu/
Xox1poFy1Lv99hbxmNJq7HyHBw0e3BZ0daXEYgn85+u9vWnwIX+oTl0uBhtT
E0vYRaQBD2nZS/FXNBZHfi58IZAGt5pjTLcML2Ef8q5OrwbjzzP061uZEgVT
aLKryQ7D45//b61JPQKLHZePIZBp4HU7Y/mNTRg2xLhpNB5Jg7J5R/P43BBM
VuyNQEw0DZ51uobeXg7CorVzv0rE4td3OhnyxS0QOxKvHumVSANjcS5d7jQ/
LPIeqz4XlQazF3Pv1uiRsHcdQ3zldBo8X+jSmZL2xaSmiz+bXaPByJ5d3n7f
vDAyR8ijlTQaNF4CGe7XHlivnE7YjUwaXDHLODTc44ZJGPOd1rxBg5lt2jU/
V1yw7msVo9H5NGCKmdcZKXTERCsu3xMvpMGaivNLG1EHLOT9ucBXt2nwucHQ
fCLcDutaPgSeRTSIYs6LF5+0xg7tm2fnvE+DgO+7anPDrbBA1abB0gd4vlr9
qbqCXcQ6LOm3TR/T4GNmS5WarDnmnyurcb2CBv++SBUzR5hibQ1/WTSqaeBX
gRU5DZpgBz697hurpYEt8lbVumeEkRiy86Oe0UDrX8Xnsx8NsFYRD0+xRhpk
RtdvWzbUw/hPqSq3NdNgIVP+dtC8DubjvIPJo4UGglLSNuilNvbiysAb9jZ8
P8i86vz9SgvbW3z3xuN2GjRcujRmtQyYZ3ugy7lOPF42bzx+pmNY049Tx5be
4PlfWc77JkED42Xn+ZfZSwPrXYdEN5pVMXfZiXa1dzRQVz7X7KKqjNWfLU8f
7adBsbhks/ZPRWwPMcr+0hANyG/HwoT6jmGuV41lRUdoUH1aMCxoUAF7Wn5w
rXWMBt1WqakXXGUxrnezLW7jNPDffrMqVE8ac1qqT2GbxNc/1ChoNUwSq+Wj
/vdoigZJ5zrb7X6LYRwq/x02+U4DNpOPxNL7Ipj9xSOLCz9pkMOQNZurLoxV
ha03ZszSoK38TRUP/QDGltOepDpPg3uM2rcEtfkx2/os85EFGnyPC7FrM+PD
tPQNmM4t00Aso0Nc9xM3JjG0+ahtlQY3n9tedHmwG9vp+sRS8w9+vS7HpTJn
Tmxm0WX7kw0a3Jhtd00bY8V6oveXH96igbDHScNrNSzYk11vrPMY6ZAfNjJJ
/cGMZeZF7eTZRofvH/g+CHsxYmEySpUJLHTQM7lneMhjk2Bd981ucycdqvoU
ipMofwhwJoc9kJ0OiS8DPMgsqwSxfqOaH5x0CPimtpNrbZHA4sTkZLebDm95
xcbszvwm/Jyv4urnpkPrBEVsd/8s4U2kx1N9PjqMLJTWM5X/IJRxCLk276ND
78lupRPcXwnp2b17lAXowM5uoNr9Y4IQKhXb8ECQDqw3yO12R8YJ/1WreIgI
00Hc441uZsoIAdOe5s0SocPYqeBgQ99BgmhffjOHOB16LijB6bF3BBZ7U+/L
knSIW2uenn7dS/gxu51/TYoONj1XxHcZdxG6IupafGTocGqbkorY61eEMlYf
4qQcHaTi6/uF5loI6VmHDlgepQNPQr/e4J1mQojE+7bu43SYqbk36VL1jGBV
Ee+vfYIO43dtdJ9vVBOwkxoHn6rg8aFxuZxmrCCI9Mx1KKj/b7wyHBxMSgnb
bG4F3dWkg2U9c+yxyvuE7z8viBxAdMhtEdYU3n6X0BnK+ubqSTq4TBhrFwoX
Eh6zNISyaNOBxqbk3deRQ0hNJ4mTdeggGukf9yQwkxAkKt77W5cOwdmdhpzc
qYSLZYMRbgZ0oM+bLQovUwmaWPLhsbN0qFPmX1bfH08Q7sLemZrQ4Q2myi9r
cZnAZLUQ2W5KB5VvoTvaN8iEr9/uHsEu0OH8dDBHXWcw4XWQ5UCFBR2y33Gb
iA/4ER4xc16WtqJDxseNKN9WL8LVa81yN63p0HjMzdz/kgshUDhwmNcOzxeD
jl5tmj3h4qPDV5Ic6BDVKsx92cKSoKExcpTBmQ5e0oZMHHpmhIMd9NEgVzoc
XDVUdpY9S2Cy0EqYdqfDu4djjRKzpwlfvywrOnjRQWSuoVvFDggd/vc/DfjQ
Idx0I6xUV5XwkMEm2ZBEhwW2QDXNiWOEq/TdKi/86fh5KeK8leQRQoBg64RK
EB0c7nzKS1gXJZiXhNAfhdBBt2FoJtn0AEFdVUZdLJwOkN2ReyKGhyDU9nHq
OhnPZ9aB1Y1b7ASG86nXuC7R4YHPteVOV2bCl8+nCbHRdCjHnOaLN/9oviKu
f1+PoUPNz6cb9OwFzZJ/D9OJcXRw1th8/p/zD016sj1MJdDB3Vxqu/Thz5p+
+3lnrJLpcC3UIeDA3IDm+eJXWb00OqQyP3q0adKtqXoi4pTOVTo4XteX7u5p
0RyI0DqyPY0OptuMWtcMajWDXrDuac2gg7wQRzLlwiNNXta3q5ev04Ekzxui
61Wo+cT4+seTOXSoPuU87H0hXdMk0+4lQz4durJKWZFxvOavUcmHTQV4fui7
WTuqhGvKelaFEYrowGmTnL3vmJ3m6zKy/cY9OvDvHKEeCzbR9Fg9debZA3w9
dga9f7YGmkWxfbxq5XTIW9R9L1N7SPPQzV+lSvX4/G2xRujHgEbjVHXmYiMd
uCN4hsvkWjRsZCMpT57jz+d/aPnt9GON7DoOg6Ov6ND5OaCzvSVag/e99FeZ
PjrY2d6/rqsvoMHK6iwo9p0OQqCulJ3AoH7PWIZ54icdFiMsznA59qnpZC78
KJjFvW/ZqnG2UC1WLLrm4CIdzA+dve7bckJtk5BvKrBJh29XHotoKkqrLvgP
JezhTYH0fnPx508vKV2tu0ns3ZsCj9TGflpotigqMLiZp+xPgabF+KwG/dnj
3rRlMU7hFNDsMnC9It5/9Gsxd9POIynwoyyOsdg1Vjp2bvjuK9kUmLv7tOh9
iqOk2IlCapxCCrhc1yW7jSmJ2r9QsNp2IgVYi3bf5WrJ4tncuQotKimgKFr2
7sGzjW15xo2HL6unAMP/vTQzr3CdJPy/P4waLm+h//f/AA5bIPI=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$13140#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwt13c8lt//B3AiWVlRVCQUWQ0rxXXethQyUpTsfV9kj/t2mwm5LyMNKiuR
0kIZGSlpfoQiSsNokT2L9Dvfx+N3/3M9no/rOudc4z7v8zqbXQOsPVawsbG1
srOx/e84MrV0wNhzlmCfMef1fBNJBF2NVDMsfIPCrD/9nrwhgCL4Rj0lCgdR
peyz7WAljrQMJasyAkdRUZG4Ma1rE6I3lrBxFk6jhX7B3lIDWfT+PVGKUhbQ
O/ODZ+4e2or2zHeb0wP/oi8zRY06atvQ3/MJ5r8LOEAp7UwpM0oVKZe8ll4n
xgU2MhGMgogd6FjVhhn1FG7Y/fFB7u/Snai+vTL3ROBquMviTI/8oYYaOaem
pwvWwJu6hy2c/LtRN9+Fjys+iILLoddSTiu10ZgI8VRYbC1IJxMVUb+1kdTm
1NztKeJQEMd12fvNXhStK6PnFygJnVJ2kxvtEJLau81kskAWfrx7X+HQr4+u
E0sPFnTlQF/4w2trfQOkqf96B9sHOYj6onpDqcgAWewLXS8othWeVF6nlR03
RMzDzaPKKQrwQOisVPdLI/Qx2D7bO1AFeqN6n3lEmyKL7paJ8QI1SCl6Wvbc
2RzFfHa0F5hTg7795xPj75ijOz/mmpX3q8Nt6a1br/8zR8KLCmd8ZtXhzTo2
datLFujtJpbG4D5NsGlPEN332hI5+ByK6p7aDabZZ+zmBKyQ19JXjgZDAgoZ
hc1xGjbowsoY2occAuRjInfY29mgZwLiXb/HCFhD1imuDLdBipvNSjRzEBzg
W5ruq7ZB8zKH5XrCAC74707M1bJFdSYPWq1e6sFYoKVV7fZDCDIT+IxCDGHH
n4pw95WH0dNPa4kVlwyhfI3NwVebDiML5esnmh4bQvXIymCJPYeR49P2Lu01
RlDipZPg7n8YRf2VLFCtwNa5KdzSdRhV+dSoi08Yw8fEK2I9+UeQgv6o44jf
PrCZyH5eLOOAhKft7mS6WUDQJgVx95FjSMpxs+2pVAtYN3r43Ro2R6T8dGSe
cdcCBMTUjSpFHZHpxVjk/c8CBsoZp5t1HRHT4HobcdESyiXUzKTSHdHcc+Zc
qM9BmOjo4P6lehy5re8UlS20ArGTupw+bk6IeBBhFS1kCx6PbuQNdzgj6c6f
bXlbbKHAYZaBPjgj9p8OBx7usQWTvSWOrCFn1LJW14TDwxY0wu6aiM47I7Mg
dt2UWltgfS0ofr3BBdltS1U463oIxC0CozjcXVDA+Yv/yqvs4Hqe1+rscRdU
ENx4s++IPdAs0XjbjCv6tO9j56LxcYjksMx/VOyOPPZHjbq+doH4ZsPsGHVP
pFc3z/na3x22uG+Q/Jrghfhq+tk29HuCtJVYT3+mN1KaNPHXSfaBhmHZ5grK
B+2pXf9QdwUNHFrUnmo7+KLb+5y2tAb4g1b/uXtyq/xQA6/QsnDKCZAVPU2e
vOaH1teUfLjzOBCu53oV6W+jIWM+thUrnweCd5fLkJESDQUdt1ewbwuEJ+pD
T0xUaOgFJ38oe28g+PGK+JrspCG6VaCA9VggpG/6ZaqpTUN9w3v1psWDwHbj
59FOUxrKk+wo0fAPgokf57bye9GQTMJiYJ14MNwO9PDOz6ehz7X0klnJYCC2
XKCZFNLQpYnF9ztkg2HDMx29sSIaWnt8yaBUJRi0Qj457i6hIV7tv2LZ+sFA
t4sNaiynocmx5VqSFgz28T/Ds2pp6KHDihWbHwaDs778IcdOGjq+iyfrlFcI
JC44aF1gI5G2vnWSNy0EhERs3L+wk0jU+mLUvsAQeGjXVCTPQaLngSpufPQQ
eNe5/1DlShKp37VST6dC4E9kam4TL4n4duR2n7sXArTiyPEboiSqUVHaUMIR
CrVuvZzd8iQS3mZe3JIfCn0H/STj9pPIdWekgeDVUPjgV72q9ACJqrSvDthf
D4U/ST4TL81JZGf2V3q8KhSKiz0bRQ6S6JLfzcsSL0LhxI94u2xbEincWn3e
fyYUqguVWrwcSQRqbSni+8JAeMvYiJU/ibL2/lFwswiDGOlusyMBJBo02Prs
pk0YpBxornA8QaIkWyaXwfEwOM7xJc8jiESvQlUTyOAwmD3+dcInjERHaijG
o8thMLrO4KEhk0QBupYBtKkwcI9aljRikeiTlGHbsfkwGIsRfSxJkciCTVvF
fCkMNmjK58xiKz+WGVHhCof06q29RRkkGjad8xyXCAeVCw23ps+QyN328vEg
vXCAML5+/1wSOfiNmEdk4Os9EvteleD3feBLuffZcPjCS/KllZJot2oXn31u
OEiJcgWZXSPRusnG59rF4VDKL/y9pYxEb8OyjBarw6GWORN6p5xElvHauszP
4XAmINXKtYJEhjmnlBNVI6CsymPfrgYSKQY7aX5Si4A3Wenl37CFzLVgt3YE
rOL1UMptJFEf23ebXwYRIFQ1ylhuIlGItzHd1j4C7BRdQ+sfkahYa+ULucQI
kNE0HF79jESc3fFeT3ojoOuNiCl3J37e2w6Bmz5HwOyMzskC7PaUXfTIoQig
hx4b0nqDv6fuAKUyHgHVjJ087m/x/+mq3v2znJHAPb9x6m43fj8hbCs9t0eC
hJ+tl9wHErWIMIu4TkZC6TdlDo9BEu1tZ9SZpEZCXvck6zN2BYvemZweCaaR
V0zsh0iUzx25gi83Eg6X2ZmafSVR1HKwq+DtSOB5VxEv851EO4d9ZMR7I8H4
sPjCjWESXSv13mP/KRIsuwzjJEZIJOXhZZ07GAlcQl57k7D5v7jHbxyLBK2B
lQaOv0j0o8tpQJojCqxjx4rYx0iU13yoaJtKFOSI5zXKTpJILMa2zndXFPyM
fu2eiJ2mY9N5QysKfBUbdIewI6sPrlDVj4LSUY3kwikS2d7c77rrcBSM1fjG
i8yQiDdHT2ZvXBTUF4RubpsjUfgJlaIDXVGw56BqWfkivp9Vs5Fq76NgIS9L
dBy74HK91frPUWDS/+D1jiUSvXixn/3HjyiQSDmvUYG9cYuvc8JSFDTFsTWX
/yXRo94SqTpZOghxOg3E/sPz7YT/XIECHUzVYg/WYI9wabadUqGD8PxuwXFs
UfUn0Ye06FC2IZ/pwOaPvKjBvgkzOrxZH7J1G7s/4jeQvigfRIeLNgevXF3h
jwp6vwcJhNOh4+DQpk5sjRO3zWbpdBj5cWf0L/bxy8SfRyfpMOUuFm3D4Y/u
zh+zP55DB+k1I35z2MaU3E6jPDq4P5cLluT0R+/lfnErX6HDBe6ulwbYnNb0
mt/l2H5VgRS2XXnOurMP6QBTMhkbVvqjEX2XcfoTOmyLbJXVxY7tVXjq+oIO
xaIiPMexy7hqwna8xfdfeP/ZZewl5+6ul9/pYDvSsFGMyx9lzF++WfGLDr4m
ysRO7C2Ux8mcSdxfv9fdA9gWD2bUvRbp8L3qECsOu1BsTfYKQQZwHPHZMIhd
Xtyw1kaUAY+LW8sXsWvUvHOuSDBArY8euGaVP2qzasgzlGMA/7+FbMB+/8Vr
89ltDJioeTJ9CPtrgEjxV1UGXP8zfdIXe4nlVZakzYA/D+mGmdirJEWU3xEM
6B5/d+IKtkh5/S15QwZILua2V2FveyFc9cyCARE8RxS7sNXt6zUlbBlwKMta
bggbfnjW+tgzwIzjntUUth1XfSOvOwNo928b83P7I9eznnpHfRhwx95YQByb
lBNuueHPANFSPR5Z7IjKB8ZLwQzIki3QUsFO1Pd8fiCSAcGCzjma2OkdQgcu
MxkQ4BmjirBznR+0jSYwIPLz4pwxdsm4hxWRwoAvvzqnzLHvMoXeUhQDbOvZ
ZWyx61c/sPt8hgEPNE8m2mM/u+TRuz2HAaZsDuuPY79REjoWm4efL4Ix6IL9
qa7uU/sVBqyt+/HZHXt4n4fL5jIGrLmYK+iFPdsjOBR4iwHN5awgb2w27zrP
R5UMSNzbwO2DzT/v/lOklgGrLOU6/3dePEmQ5tbIAO3rDW3/ay8rVjdW+Rh/
r5cJyx7YqsXugZzPGfBs+ISLG/YeNcEZ2zYGNP5lzjthGz2qDbv6Bj9vZenD
o9gHrdx/z/Yw4FTYUL0d9rEvAgzjTwwopan+OojtFVC7fG6QATfCmBZm2EHL
bnHffzAgcMd/g/rYTJYA5+4xBvRPiJTvwU7ZWJuUPM2A389NSndiZ99w4+ld
YMDdZLcueeyCPQJp25YZsP6eo6Yk9o3nNQJRHNEgkqXyQhj70ffVohsEoqFK
SDF1AX///8JqzvmtiQaBzwb3h7F7VrpJ1ItHA1m9WqwPe1y2RspRNhoavif7
1mP/qXAtvKkQDQkGW1xuYHPpr5ZbVokGvrsmqTnYG51dt+Xvjgb19sngYGyF
cf7ycd1oUD7mqu6ErcasVgWDaMi7pShvhm12iV+93zwa3rlkXpHEDu+5T8i6
RUPRjMVcHZ4/BaAYJ+GNPZa+pgj7xbXLjwXJaDBrVI1Oxt4YmWi6FBYNJu12
GjbYDyWsrbtScX+vFrW+4Pn9M+5J9sv0aEiefne/GVtkePe75uxoiA+9FVeE
7VG36ditvGgo6BdddMHmPTrqcaoiGoykDek9uL6oPXa+Fl0dDfn2gUeqsI8p
vR0Oro8GC22FuHTs24t1Ac6t0VBaOFf1v/pkeyk5Uvt9NFwLci++gutZ3kdZ
1gg7E6ajTbP1cP17anT+dT8XE0TcM2VEsCdu8or08DFh4ZbDYj+upwbMyXMt
Ykxw6pVLi8H+IdVUcHkbE2ZykhUqcP3d6exQZWnFBM4Zz72zyzg/PPtvzsgO
n7cr9a7DTtyhp61zlAkQsu0zE7ubTaFRwYMJ/X0XS1diRxXOPmWPZILi+VdX
ePF60DKQ8aGygAnXDIw1pv6QiKmqpJx5lQl18lKWN7F3Rz1h+F9ngnzuaLUX
drnwH8ltVUy4yhANe/+bRNng5pz3lAkt8V8Kqxfw+p2n8TV5jAmZEk2FB/H6
JTX8WsNzmgnDBen5bNg9Gr5JBgtMGNFpHb49S6ID/+XJL7PHQMeJP9782OpL
q3yDxWIg52cie8M0zhcO78ccdWKgdKg8dWmCRI1XQ9BevRjI2DhkVYgdMSmQ
IW4cA/XeDe5G2L+SDXa+sYyBH/s+0U6P43xUXR5s6hYDdUeSOATxel0sFrOw
KzUG7IR2bp/B679hh+wK7p4YCAsLvqiB80OoWOFfi48xEHCAa6gW54sSe6nf
ZwdiQKsgyEYXe9WA+ITsaAxIpEqW6A2QyOM31/gm9lgoED8rBl9wPuVd6tu7
NhZSVwxOrekj0U2lbzXBEAsp0y+N1+L80/pfseY6g1jQlWbji8H56FOAW1Wd
USzcO3J3/FsHiQSqvtxm3x8LhEK5RFU7iU7ofChJPxQLv0s//DRoI9Eu8/bs
G76x8MBu0lT7Oc7b/nUnBrNjIbZ7vUskzm9O0Y5t9udjwVEr6kUHzndcaWzK
7TmxUPbuhu827ENlxt/r82JB1rnCovsBiaYGOx3PXYuFqdLw/K21OL/aj5jt
q4+FGMNo9cJKnC8MNm65PRgLEvIHri7hPGpi3RS/5Vss0B5rM/dijzm7frn4
IxYsL44lReL8qsu8djF5NBamVRq2TheT6H2NuojrfCw0bN6f01eI84Sq+T9R
vjhwmbMUTb5IohRxZm/Urjjo39FRgnB+pl3J4t+qEQf6pS1pVjhvW6iWog6t
OHDkaAhxTcPtDduvyuvGQbaU2764VJy/AmSC3prEgc5m9qWKJJwHW1t5VR3j
oFLdQvsbzu99IYI6/afiIP1Tz4UUvD/Y0VGQZ/IxDrrVqqdumZHow3/Pjnz7
HAfCPDKrE/fh/cGLCZGTA3FQr+C14Ygpbv8YTj36Hgdswt+E/xqRKPn+lwDd
qThcD2hH9+iR6MtFaT21VfEgMbV9ZbwWiTI8CwaldsaDRWNsq74siSYW8xXm
EuNBqM8iPHCehhQ9yh95nYqH1ZNDfBJzNOTeVnOsNyUe5O5cyGuaoaGego6M
eioeDImWep4pvH8z4vgdfyEe2m/ydGT+oqH0dM/nguXxUOdv9+9EPw2pyqr4
bnsTD6UbL2d7v6AhmlndjWObE0BlWL1ZLoeG+rfv3sAhlwC3eNLue5ynITux
+6llWxNg/Qm1Y1fP0pDel7s+c0oJUPha6L50Ft5fhpXJZ2gmwEw7cWbVaTx+
4YUrj/cngJFbh99ZBg2J/g67qBiWAAf+cRrcPE5DDaVqpxdeJEBCKdvpMim8
H1Z45nbAJxGsRWR0pM77ockN2uzxnCehSac8dmLRF41K8iz+Kj8J/z53LPpr
+aKrBjOjgmZJIH2J19Ta1QftiiB0vWeSYLPrmTmmnTeit185GXHmFDT7Nb20
1PBCH3O/ZvluTwa2dsF+rwkPJBaStJTZkwxJUxwPuo66I55AfafAsBTw6T1p
n3jDFXUyHKWSNqeC4qqJhYlsZ3Tvj20R43kqKF1MuXkr5hiyueS1ScnzNLha
2D7/XHAYPT3QuyAglAYrx2UCzN9aoTlpz5fXb6XBZsPmoj4NUyTY+rhZ/G4a
3s8uRFdzmyIFv801SZVpYFj26evZDybI4V5fsWtNGsxxZmQejzNBTftsmOsf
pUHD/SPcCv8Zo+Qg2JnalQbEzy7DIQ8jtL5l/XmfpTSYbvcYj83TR2o+Eax3
y2kwvH6DWniQPjog0J1gxM4Ca4MzDQxjfcQ8knliMxcLalP5yOoxPTT4a5VZ
ryALmv5jDs8jPVQuNrtkKssC+SRmjdQrhJDXa1cFM9w+t9TdOXkPyk7OU315
gAVK6hSvwPY96EcZ+Ye0ZIHuYIvdqm5tlPGLL6vSlgVsPZ81B+W00UCgaTPh
xIKzQq37yFYtlMRo3nQohAWmeZon9dZroPeXM0bmw1iwn1RsD2hVR9ubnKpz
I1lw2ydqkDNYHfWwL1t8YbKA5+/jCt//1JDiqT1MvxQWNB5z/nnk1C7UllnZ
F5fHApuj7G6+wjuQTGX8NblCFljtG5F5nbIdhb+1Cnl6hQW+9p1JbydVkfS6
Cb7VZSzoQxsShJ6ooKBLynsvVLLgCtfycmOEElpbejXn1jMWrHbNhzRxeeT7
LMTD6iULBtqmmqSztqKmnwY7Z/5jwYI1Ryf76q3IW3ngmfYbFtT4vl9dx7UF
1d2VWmj5yILyb5zFIbyy6Hj9ebsPUywwWqUnve6mFNI327/CapYFw7vRmG+f
JNrSs3yzdZ4FlptkhfwFJNGvaY+VFUss+Kc9J54TtQFFKqlXJXNRkD0xlrkh
RBwdq/3utMxNgf+viamE2nUITC7yhfBRYB5ssrWVfR3iclvh5iREgcfSnuLh
XDGUndsurLmeAu2anW+UJ0RQhEJiw42NFKSpkwUfD4igo/e1fDZvooDLpPx1
crkwkunMe8gvR8FIqmvd+xAhdIeHDBhUocBge3SXnw0/yj4vvcF+BwUPkwX6
uXX5UPiWt61tuygIkh3ialLmRYTeXqk6LQp8MjiFmFLc6GUEz38ZehSMRj5O
t9vPiW5xNURwGVJQOz6/ot2DA2Vln5BjGFPwu/xxm1PSCnTkzju6134KWrds
F6vsZUM6xGn5j+YU0P0kPtD42dCmV8Qb64MUCHQd5bNJXSa+fb+qSByiQMlZ
56Rk5iLxItS+u/IwBfXBLwPMt/4hbnKsjt/mQEFNSvMleLpAhGwK6RV1ouDk
pY5RCeU5YsVh/eQRb9w/2pTwijlJfBuaVXPxo+CtzsC5wwETxPOgss/dJO7/
4K4bqV1jRAYlpPUoiILkI5/PunOMEMEbWwa0QinIZNC0H2n/JOyuh1M3wynw
lFUpupL4nZBs/fT1AoOClN46ywS7IYLNNitTIIYC1xyTgw/7BoihfiPdxDgK
HLynri2H9hPX/5ZnByRR0Dkk+OdK00eCOu0MX5MpkAmVnVzt9IEIlBD95XAa
j5djKbAo3Uvs1qAbGGdQwObye3cWdxfRTddXXHmGgvwCl+8Dc51E6CMe4Zaz
FBQE6VUr83UQojwd8/EXKOBwvOqxeKqNqLC88EnvIgWVQxrqteglcfCc0xO2
PAr0G4cvnNnzjBjv21reVEDBY/XTabGhTwhKdiyLeYWCb9y7PcjRR4Sy771I
3RIKXB5fkdbLf0i8uMNwXrpGQUOST2mDYAPhM29g8uAGBcXbXkYdNK0luAk+
1ahbFKRHrZhhG7hHlCR2imrfpSD0mUzJ5e4KwvBlzuJ8JR4//LcFh/QdYlDY
ZeD+fXz/Dg9yjE7cIOKPKDwPraXA9tkLB4FdpYR0/vht9XoKFKdfpFVHXiEa
v94/N91Igb2FZ+bQ3gLCUZkZXdFMwevbX3/IfMglloKM3ANbKBCk7vHrcp8j
cmv59+94it+vkN3A/eFMYjfb253jzynoWmfibfwpjXhnfFH81isKThHLDE2u
U0QYy/Uf7TUFg5ckV+YrxhOib7d9U+qk4NO/LTpH7BhExfrJV8NvKVDo6T31
7k0oYeVSU1n2jgJRWoZm/bkTxERpTK73ezy/nhys/NPrTVBjxnHyHylQ2a8e
LG7jSqhoCHh/+0zBK9G2U9KZDsQrepfF1QEKtjP2Gad8tyZ8H13ScP9KAS+9
xzjL0Yzg4XHfKPsDX+/5Kbp3UY+4ZqnEMTBMgbt1g4f2lBZhfG7qZ8Eonu/P
Zz8o8W8nvvbVtjtNUPDxbHZK4mlZIlE2rlpqmoKlqycE9nSuI2R8TfM+zlIQ
YtlSI8bOTzTfETx5aYGCliB/1vP8f7rO891+RxcpeEHvqJ4SntRd1s2zXr9M
QUd10403if26lxI9tHvZ0oHHTPPC/J923b0vlaUvcKSDc1CqzkJPo+574Rmu
w1zpoEPzvu3JeV034siDUTGedBAuuzmQsTVbd21+/Nu3fOnQcq3lo70pQ/fe
130Pzgikw0qrkjB010XXVlm4yFo4HW6Zy9lJ2BnoTgX1JAuLpkP0k0hfVTYZ
3Yza/ID2tXg8NoNv20sWdbazedmlS6TDpanc1p3t7Tptxqq6FhvT4enEbjnF
O3k6NNas7OpN6eB9asT2VIabDu/bet5Xm3F//DNCOy9v0ilbnziZKpcOZvp6
s8d0X+39VirSxK2YDmHHb1L9637uSRzrvfpUOR2qTqrK6R012SOrUZiWtD0d
tPZkeb/lC9R2frTdgVMjHa593Lkpf0Oc5jL3PDzWSgdaxt8ZJ/UstcuWjfLx
e9Jh/+xMVEjQfRWdcycF9HTTgX38Lc/FOKWN7/sOzP5D6cD2/7//A4oX1g8=

          "]]}, Annotation[#, "Charting`Private`Tag$13140#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"\\!\\(\\*SuperscriptBox[\\(W\\), \\((3)\\)]\\)(\[Omega])\"", 
         TraditionalForm], None}, {
        FormBox["\"\[Omega]\"", TraditionalForm], None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> 
     FormBox["\"\[Gamma]=1000\"", TraditionalForm], 
     PlotRange -> {{0, 1000}, {0., 0.012635364137954908`}}, PlotRangeClipping -> 
     True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"\[Chi]=0.1\"", "\"\[Chi]=0.5\"", "\"\[Chi]=1.0\"", "\"\[Chi]=5\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.862914810587873*^9, 3.862914839620829*^9}, 
   3.862914886271826*^9, 3.862915118391304*^9, {3.862915165477912*^9, 
   3.8629151954186993`*^9}, 3.8629169244946213`*^9, 3.86291791805239*^9, 
   3.862971325903729*^9},
 CellLabel->"Out[28]=",ExpressionUUID->"0e75af59-db6b-46f4-a5e2-407f75a94e2c"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwVlnc8Ft4Xx414JAkhRJQVMsoKz73H3uPZhEr2SlZGRiKSfI2okIS07FFW
JSkjSsNIAymyMpNC6ef3z72v9+tzzzmfc+794+52PkFxY2FiYtq/sfx/nyRl
XSm4/gZdEr6zfz2IALt2XA1Oka/Ey6KvYGGDZ8Zt1X3km/HcaJdv5wZbGjqr
pEIHjtCNrju/wXRS7aVD8q9xYT3sUd7gs9E6GdNqvfjm7ycljYEEuFfanBYF
A1gqzeHQvg3++sEoZZv5J9w0nyp3NoAA58+OtZLkP+NLko67WvwJkL/zzrNs
5S9429d8nW8nCFBf7f30i9ooZuNxjp33I8BrM8UWBe1vOGSavPz5OAEmPs81
B8MEPlXsf7XOlwBMYdWPHxlOYcOs0qBgHwLs2Hayid38O3abK4jb4U2AG7v+
HraUn8d+PsKHeTwIoOR9ZHB+3wLONFxRcncjQOP9x46XlBcx73kh80IXAry1
jHUYUlvCQbSdwS+PEuBI1tcPsZo/cYTk3rSHhwkw9dXQXlZ7GfNw9m656EAA
lgjCIX/4jWMkuPTnGQRIafMc4NdfwTnJlznDaQQQ4eu0bTBcxSfHSaQJMgH2
301msJj/wUwxWwJOWRKgcppD3lyeCViiU/8e1yVASHqDV24JEzRU3rqigAhA
1PS+O7uPGQa/5Px6pUWAjtiuvRnKLNAtFLL35QECDAunyH5S2wSW8XsSciQJ
UPQYeyjVbgLDRDnPVHECeLvN3YrRZAMHZ20vn50EWK4kyUhrswPz2NrCAB8B
uE23S/sBB9AXMtMvMBGgd+apa3MzB0jkpLU3rrFDTkZwEZ/+ZjBdrkh4s8wO
MsN9knWGnMCtItl//zs7oJCsPUzmXEAX+Rzi8I4dNN5y85jJ88DpbkNeuTvs
0Hx45IKzPw8Uijno2RSwg/lkDSGylgeOSF6cOZTDDkeYDv0r1+eFn/vqRcSS
2SFB6cYsvwMfWDJnZh72Y4f+JM2Xny/wg67FIckhRXZwEuQ0W33DD+p3dSzs
pNlhquDTs+1CAnB0YHtevSg7rNefeWhcJABNrxQN923Z8DveVVL6UBDC/wwP
ffnGBicNnJLCZoSg4JqL1t1sNljvPsB+UVUY7tfQv2amskGiPVtsSbgwvG7S
eOwZzwa5AcXhQ2wiMC6de+m5Pxs8u77kabhrJzCSDxYGGbMB/59EEx4bMZg4
91Dr/MwmsP9gx0IbkIDimfeV7Qob9zJ8Rop7RQI8wnWiPopvAhgtNu4Q3g1r
RPuWoe2bQGr2TxLRYTck3/2M762xwixzwXbpod1AHvvzKa+TFWLlJqWWv+4B
p6qTDelurFAcFm6SNScFlcI/Sr+nscCaYE7yJ3Y5sHrOrtfQygT8AWYRsgkq
UH3K80TI3xW889jkiW/DauBV9rTBdesiDmz+KCY1rwbyv821SxcWcId4d9cx
JnUg2wepsPcv4JChatlBCXWYiVPiX8xbwG8dIod7jqnDXIgmT/n+BZzE2Gbz
5Ks68F3wufXOfh7/tlBXyh3XgHx5b64n4TPYpkT20/tfGqBZseYYajKDb3GK
JO3g0ISywz9H7QVmMO35+tjFvZqwTUXUs7jqO64w7rh23ksTnPf11Pl/n8bu
eg5bQ6c1QU7Wdb3Fewr3apz5Tp47CDu6tqDMC+OYJhVYNc2kBfG6PPzpDuO4
j9clJJ5PC7KX7+Z2KIzj/u+GTA3qWrB3wJU48eIbfl/IwS8RqQWCepT677zf
8BB3ms4shzbI3pGa2XV7FE98y0tK2qMDraNrz9LWR7Bnb6qNlJoO+Bz6F8TR
P4Inn8TwNxlt6LZDJx+WjeCpXOe8BU8dKDZ3Zbw/PIJnKDLVdhU6sOWA8Lux
5s94sansvQyRCAG+vntjpYbxn8sP9z6lIyAZ+bQIPP2Ac374PuH0QCDHkL0h
FPsBHySJ2VPCEFxiq3a6oPcBB22OvjCSg+C5z+qpx0/e46kImP03jECiUcXG
oX0ADzi11BC9MfT4Wg9Jj/fjkEeBlmcjMIjE/PUhlPVjfhHJsa5kDNG2+qG0
oH5s0xMn6FCB4aFO3nNl5n7cZmQUHr6EwWL1OuXL7j5cI9+Ba6MBrjQ8p0yH
9GDSubB3f1MBnobWLToa9ODZr3v9jQoAbNgSMtV4erD8tfMFvU8BnO8P2POX
vMWvz0nHhm/Shawgb3xh7A02Wf02esVMF8TfFims+77G6sNexb09ulCcv9lT
MqELk/6+efX1oy4I6gY+0Sd2Ye+d2j8Xv+pCdFen65/FTpxny6nLu6QLZdHP
8nScOzHhdXGfFb8ePM2n8vWZPMfvm6eZ2ml6kPRz4NgLpXa8NESV6XfUA5mu
wTWN2TbM/feBxZirHjxzzRxWLm/D+lrJl1lP6kEp/4Xg58ptuKRq3z7dS3qQ
dTnHPkGrFUcVHrdt6NMD97mB+lPuT3FWc19kx6AedKio3z+u9BRXD6HCd2N6
YDqjdevLcgv+JsI98/OnHnzZJ0e3Od+CbTLKYw8I6gPT1LzyrntP8O6zc2Ul
DH1wKCGcH5Voxq1uAZvy3unDqbdC5U43GvFSp526w2d98ImIC35v1oilVHTd
hSb14f7WUGbzhQYcu8rdcXFVH7yqZT5yGjRgnFp64ZyYASg/1ST2L9Thuvpx
vgAXAxA+qnpy9tR9/E3slYGSrwEM2ZvRmVXuY8G42uDpYAO4//sa5+zYPRxs
Fd/vlmAAS0eFiq1o97DKlz059ncNwIj9Pu8P7Rp8d8uR3YZzBjBbr/vFWKkK
D/gbUZh/G8AF0s5Z8flKzNG/L66JyRB6HLYH1FZXYvf8tdGDfIaQeOM7q4B2
Jd6jnn1HUd0Q+L3Gvr8pLMdXj/Qq74gwBL41ke5ZvRLc+fSBU2+cIbhtrfj9
6GMxXt17Iz092RA0jtno9IQUY7sfAT+25G3ok6/9n1bexfyJ2+qYnhjCYP8r
bRfVO/i/KnM8xW4ESSM8Vkv+N3Eiu34H3zYjeDyzg6YqeRPHOmhRdHYYgcK6
R4JrfxEOY9vrnixrBDcKSWKZUISdD7GlKJkagdShDyfGRW9gDebmwcDzRnAh
L2bcjbkAqzDqPK6mG4FG81bOuif5WKGkfOFpthEIBabc6I/NxxL0a2wCxUZw
3ya3PYyQjznvnlKs6zQC/s1HaWJqeXiIpB61tsUYCvNWzUJac/DAzX0EKX5j
aPcLLfpzOAf3rEqmW4oaw0SCRNfwr2zcUcR389o+Y1jZ0nqiTDkbV/+eewFW
xvCUiRq9Xn4FJ+QXi55NMYYAgUJWymQmjvlZcKv0sjF4vAphWriUiSPMs1X6
8jbyNc2O1xhkYv+lc4YyFcZAPOuplVWYge1N3Xw7XhmDRtxo9enjF7HSvPhD
Ll4TCMhz2kVQT8N1f5aVuYRNwGRh85LbeCrW3dx9Y8tuExgLXOZKdU/FlD2R
Fzj3m0CMxKds8E7BIbQBew6yCfQz8d45m5CMH9enrbCmm0C1auZDYe7z2LTV
4zhrtglMeNbu4L+ViN++wSMsBSZw7YWfcQok4tGp7x3MVSawvXzAZS7kHOYQ
M8v699oE6D/yk78ux2PSGWbNNR5TkN98+EilZhx+/99A8aqQKfxTPTNyYSwW
O+dU7FqVMAWPC//JFmTG4uCaw+wrKqaQP2Qw4bl8BmeNNfQtk0yBObRI8197
DN69mGa2bGcKuW5HvLVPx+DidY9HP51MwYSSS0nTjMEPdwjeXPI3BZlzeaur
jNN4xCwweDHNFAgKLQtzEIW9GWYTC1mm8NUsKM/4cSRecpZwXMg3hf2+4znZ
upGYPbLbYL7SFMRsDF2FzSKwfLn89tnXpnBNzfp4m384DuT7WjXJYwaPKvc+
MRAIwTzuWvuvCJtBOFsKz/c7J3F5Q2ql4R4z4PunIROMT+IpJ2LFdVUzkNuR
1ch+Ihg7V1wqpTPMYHgihMN/LBAzsX5XYD1qBnT1fcdJ5wJxHkO/pNLDDJ7X
NXG9lw/EH/7O3t0SbgbCNQfedIQEYLKl6e0nV81AyNVT3H+3P569nidzosgM
vupWPm66fgIn/1i6KVq2wT2nfc7/88MdOQVFoU1moNNKkL3XfhzrTq4WKI6Y
wWEn1oO7wn2wSkJZbraMOcxFiJo3Mjxw93tWURNlc3gS/DtaZtAd+yraX13S
NN+YXPqDHjd3fKeXPcfGzByeZuQGd0W5YQlJpytsvubwx/aGglK7C24KqRWs
CTYHFk0RtvwjLtixk+uyU5Q5ND/qv8D52xlnBTRkPkgxB7Lqt8HbKs54WzPf
xYAqcxDxhkdi9U64dLsXr3ijOXhb3D3md8QJm3s8TnvRYg723foaoexOOIHb
N1W21xwapUafydQdweuOrcmDy+aw8fUdoxxwxLMroefMiBaQq+BwM77OFtui
oaPOhhbglilxRRfZ4uYYw4MRlhZQquIeh1sZOIPAO1nqaAH/ruHvnz7S8UGB
YnOeKAt4y/uK6/oeGi6045GUi7eA6HfmIz4NVLwlN2RN7z8L2KQ3EHyAQsVD
ewxKg65ZgHzYr3tJ5yk4TuXT1nePLEDP1aXuNDcZfw/S/zbXagGH4k5U7r9H
woy6O00c3RYQaSNgn+tAwnvxyRPaQxbw3xbL5dUjNrjbgvvNtXUL4Omrn9Pv
s8RCHrqZrmAJ1GfDBx+TTHFs8S3fKBNL4FrX6Lv0wgRPz3AZXbaxBFJyWssm
CxPcFPz+Z/tRSwhpDyNH2hhjl9hAW4UYS9hhacV/8aQhftE6oGyYaAmskjsK
JzcZYo3NwHE4zRJ4ryh3nL5sgDnStjSk5FuC/MRGc836uPxakchisyWcv3Jx
ZWqfHt4xwvmD87klVBwcvyb6UhfHSAV0Sb6xBPVDQez4hC6mlqBI+oglRDM4
3G0DAf+u7x+sZ7aCAxyuHqGtRGzQy1FwWt8KLFIUdYc4D+KWI7NnjS2sYBd3
bM7Hk5ob77PHcyvNCj42bHNQG9XAxPU8latuViATw+lV1amO1faqN9cmWsHY
jlsCfx+q4upqkaKodCuQ3VNYtayrilUQU6JhjhWsaI3mtrUfwIqULpu3JVbw
U7gku3RwP5aJPDY8020FRGfRgl97VXARu8nTe++sgF+sXI7nrDLek77vdsRn
K9BmteReaVTC4rd++W1etIKXEyU3GjUUsdDr/9alBKzB/ketC7jI48v2QV+m
xaxhZ/UOwnC9HOYfs2urlrEGswyJ+Vg+Ocy7Kpmie9AabhlMJkS/kcWcUo1i
jg7WkFAY/GomQhonll9nlnS1hu9ndP3oc1KYXSt+bNLXGpg/KJqIuEthVmtS
WWi0NZikZXw+cVgS/wn9RswosAbjcq5Ry4Dd+BTLCwn7YmsIdnwxfu2vBP6d
XLVpd401vB18xt+ULIGXCiJflD+zhgHZXD5bd3E808Xn2DluDb57jX7yY1Hs
y/gN6fPWEMr3+4dBzE489XlQ0m7FGpyLiHSJdhH87eed6TFOG5AWLbAOdhbG
Q+IQwaxkAwZOZ6fKXghix2Kpox0aNjDHbHDbc78g/qDGaZAKNhDK/0iGLUcA
vzPr4xQjb5wP7Uo7F8KPXwf55BwMtoGpwNtPzOz58OB9Fc/+SBsQqdOVnx/k
xVO/fqoHx9tAR4T+4QpXXswaGfOm4rINfAgT/a0UwYM1zl7ikG3YqAday2mZ
W7FBm33/syc2UDHz70rqcy5M4pAocu60Af7jovXlrFzYK7kY8j7agM5t/4ie
BE6cm/k4RGDdBh7+5XoR3UrANB/9wkOsJGgq/+RgKEHADlzS5+8QSEBQ9xQ1
Os2OPa2nGMY8JKj5Yrgn3YwNn3kbvHhmNwlawge4CrhYcWKQ7fvX0iSofGf5
7nwCC07h124WlyfBE2m30RlWFpzD+PffowMk4HJkrnnDwYzvfTgvt2JAgsJR
RltqwDpqjPDlMTUlQdaxRZSS9Rc9EbX5ddmSBNJUoWX91j+o+wh/qxqdBB4m
D6pBeQ2Nf8lz8ncnwTwnZ3q73m80G3fG5LE3CbbHv5SpufgLLUm5KnGfIMHL
pNgr5hPLiMlD7k9JKAkK5C79ZSv4iUSma66MJ5Jg1+9j4RlGP5BE8uVojf9I
4Db3Jv5R/SKSVQx3i08nwcjlmLRa5UWkdgKrSuaQwJKTJF2zdwFZ/ejoPlJC
glhCmPv5xFlEyyy5X1ZBAs9w98GCWzPIXj0l908NCRq20i2nO78j91Cqd85D
Eri7lmT7SU+jmLVBtv6XJCjWX+NeE5tAvpmm2R/ebMw76+uaw8lxZKdYs2+4
jwTUtfTJnW++IZWjidSJQRLE27lJWF4aQ59bDhSszpAgMpWFfMXqK3rhcE3t
3wIJAvVspQVav6D6JUIH6zIJxE//Fdyr+wWlyQzOcq2TwL/AhrNGdwTpJZ0j
inOTgf4ci256O4SUJBdfSfKRoSFGrSDj5yASeejosleQDHZHL9qt7xpEizP7
k/bvIkP5Udm3r2I/okLyp3cGSmTo8KNHRiYNoJQpYx/TA2SIVbxU+XvgHToV
V7VuqUEGfc3QUe197xDlfoI0A5NhPqX1zaXPfYhFeH+QpzUZpFMfFB+P6kGz
VVfZj1PIkPXSPfLT7Fv0wZw9J4BBhiDW59f3ub5F1ZEfm08dIcPD4y2KW+zf
IJfP8dz/+ZHBWGcpSONzNyKFzxekB5LBhKDB0rv2EhH5HNQvh5DBTzd67YHY
S8RvqOJ4PZoM9p2fFJ8FdaFntz/crUohw3OHynBH1w5UqWuEai+SIXV31+z3
snaU+77ideNlMrQ+YVPL+NOGgrfE/3qaR4bLZoEnsu60IqkTykb95WRAa/IT
y5pPEQ9HzsCHajKMDpWv5t9qQX/yN/kO15KBLFUY5ircgnrfvr840USGuoSh
TR2cT1C8xtnPq91k+BMf2qSm1oT+BJaHM3rIwPIiK2eL9iMUWDHAV/2ODDIj
xy7mmTxETnsVjbw+k8Hlb94D3vBG1O9qO/RslAyJ47KOsbkNyKrgTKjEJBmS
/ee+vGqrR9oi/XffLZCBGbEoqSrXoUoGk4Hq8sa8pPaTxnxrkWyG/KeUVTJ8
DTn3t7TyPuLnOs1tzEqB6M9r956Z3UOzf2WD7vFTQNF3fpLyqAq5alO4eIQp
sHVAQ3RMpgp9DIm86SNGgaMZAseIlypRx9zrd3tkKODzlO2Ezb9yhPet+UfL
UyBoZJPd1HIZuu8pzflBiQLcX38NLi2XosKRcGK6JgX+WWWx0baVIKFdRX3f
dSggGr++Ki9bjFLtu/1MdSnwvkNGMMT4Lors2VPwz5QC14tvf4jJuY0YrV1s
fvYUMNuxVHH8YhF6wbyc9/wIBc4+S/EYGr6BDLDEQWkXClRdyN4kpnoDqdQF
e3/yoUBGtfqE5VQBuvUjj/WgPwUkRey4vlkVIDGV57kZwRQYu727Kbc2H3He
FXtlHkUB8tWt3TGK11HMmInnrTMUcJC7GdS0Mw/92h3IzJJAgdAhL4d1vmto
NKdNtSGFAs/WpfTcdl5FTcknsmTzN/zzb593T76C1J5n748rooDUStER/OAy
KmF71jl0hwJhFxZjti5cQlnRQn8vVVHAI1IquMo/E3E/0L+8cJ8CXYUG7cKN
GSj+l6+yVSMFuATEW/I3Z6BA/yfHNj2lQJPutKNBYzqaKJ1ePdpOAdb4KLF/
Iuno6KRA5oMuCmhFV1YIn0lDls7ebYG9FDBnaY0KaUhBMrTtCiNjFBBiqnhI
zUlCsYmt/ouTFBi6tujiX38eDT0MrWWdpYCM8eltTwYT0RXpT3oyyxSYIl8Z
2YXOoaVDKec0VynQfoFBbg5JQKQU3Zem6xQIzpDUbqqNRxy/iux82KkwVZ33
mcPsLHJVsM2L5KSCdOO7hZ85caj56ObR/7ipILoWtCVmMRaFdRw/USlIhUuN
MbwPqs6gyWyNhJ8yVPiRfVUvbiAaGXdPdLErUEE7L0CE7WUUKmS5yiukTAXF
22aT0BmJ7H3+5WprUsHQ4bxO1+ApVHu96ouFDhUuW0XaXP4Rjvh6XfYeho34
G7IO23jDUSexo+a0CRVGb1E/CjiHIpmAUytpFlSINgpTULwUgmJv7oNCGyr8
S9rFzf7qJNLhTu98ZkuFrsoEU0lGMCodPjSy2ZMKFKkQrpOlAYiDn0t2py8V
0EW0Y3lbAHI1bfLd50+FurmZ0vIwfyRWtee3dRgViI/lkrSq/dCpsV7kFEkF
5rZZKnPBcdQvfC4uIIYKR1WTLy9k+aKU2GnuzEQqNP4T/Cp+wxtN1V6j3Uym
gpsI4dPLe17IeNompzaNCl9FZDaf7fZE/6j3pN9nUaF2/90KJmEP5C8dRdx1
lwo7v7hbBrC6oheHlGOVy6gwLHis8Zy1C9qbMtKuW0UF/tdDOzuuO6ORZSOq
SwMV1n6KZ65QjyGs8Dsr+BEVHnvaCSXWOqGco8VD8U+owP3mHSlilxOidHB7
33lOhekah8ratcOo/E9zRcPLDf/wZODLpCPi3B/0s/MNFV63RTlGjTiglux3
MTPvqTCrMDD+ePoQUvXJv3JgigrV+Y53GK4MJGLA9zVnlgojjkmR3WfpiGnn
WSXWH1Q4uSDJU11GQ92dHq09a1RQ93/hlLCDiu4VvuchMtHg9JRP+xdbCrp6
ysKxaBMNuo9GCMZeJyNPeeUfwVtpIAIEt0gDErJhKcCDvDSo1bp5qgzbII0P
fElGgjRgq+URHGOxRqxJyxKC4jQwcjK8wVlhgfImH1nXqdAge34C2ySZoLNP
lHPE1WmApJVdRHOMkU92wdg5rY344lDCvhojdNAsPtJOnwYdDLbY+/8MkPju
X+3NxjRQNVX1SzxggNhXPLfLWdCA8C/1vc1xfdRzx7J4hUqDgTpFzZQVXdQY
0/TzmB0NXqRM/Q4210X5dip6nY40UBwK1zpqCMiPg38gx40Gcyt7mzU7iYjD
8yMbMXQjn9b3y06uB9EsWJGLImhgmzLVyOGuifp2PM7liqEBMbGooz5AAxW2
F6oOJtLApbJlZ9lNNXT+Ov9po/9oYH7opM/Bl6rIPzShsyydBhliEfGH/h5A
SNb7WHQODTSP7/LaFrIfSf37WPotjwahwyHsbE0qiPOd1W/rGzRYsX7/nrxV
BQ0k7E8VL6UB3JAlF51RRIHffj9sfkSDEpJulsXEXmTX5M0h10KDP8euv1sc
kkVw+RM1vY0GFFkVQevPMojLuHnq2CsamLA+lQpnlkY/xA5odPbQYE3WRem0
hBT68PPGmQMDNKjIXrS7aSqJbt88J8Q6QgMWgVt/v1XvRilRKy4+YzQg72wO
py9JoGC6T0XPJA02d+3vP48kkD6bjXHRIg2iaFIMkRdi6JOrYLDRJjqgu2W6
xG3CKEkoTC2bgw4n3nj4e7AKoYMv3i9956LDP0b+Tx+WHShT9drJTAE6FLp8
vEgWF0D64+vqE8J0CBS6ucuNyI/mc5yWdXbRYU8B+8Va5+3IkkUq9KsMHVJN
yHcLnvOi1fvxmpoKdHgZ/gFf2MyL7niN/0pSpkPeCwsPCpkHbXpTHHbgIB3y
7zI0Ts1uRQ+u7z91xowOI6F1dWxym5EnNUO7z4oOmVYivWcEOZAg4efqXgod
rgSduWe/jYAC/eojXtvTwfvMZDFtNxuS2CNClDpKh8dGV/qytTah7r6IP6Eu
dLA3ibga58CK5BFEifvS4aSIQ35jIzMamM9HQf50qLa7iyx/MaGEIpb1tmA6
iGTsmuMkMqEvW9qi/aLoQK+Jvx7d8JeY88Ey5lEKHfia7ce2jP0mLuvxMLtd
ocOZVHt/ctsykXK35wxXPh225PQTMnqXiOU8V1ju3dnoL68wZT/XD+LmMPs4
hyo6MO4nEvu9Foiuw2KbWBvpMLAn2+JD7xyx2XjkbHELHbTqPQ7rCs4QRcuL
2ChddPjQcLuu6OIUMUzAM2Glhw45MScWNYwmiL2RCoSCT3To3dIvnyj3jagy
OnvOdIwOnpqV/8XpjBKTLao55mfoINR8090j9Atxovrk+SvLG34UTj9rev+Z
mH/mT9I3AgMucq3eLeD8RLQlxSWrCzOAo8/Z+qTNO+KtdTldBzkGTMbWfEI5
PcSl0tc/YrQYMDt88XBi2GuivkPo7VtmDFi9GLn1x+0uYtrmXQ4vDjGge6Dk
xSbVdqLUfUJH32EGfDV+ysyu2kasc1pQGz7GgJBd24vaUStxqO4Z96IXA/x2
rI92BzwlKrr7tOw4xYAJ7HCr0rSZ2MxLV94dzYC+7X37y2UeE2mPcK58LAN8
vl+zdux6RIzk5wtBSQwo6u5YsNN9QOxsqZdzyWHAgxI3r6sdtcQjfoWXffMY
ELv1y0hix33ignAya0ghA/q5OB749twjCgUcHUwsZsAtlbYoU44aooc4e3p5
44Y/lU2NFq0VxE2R1N8rHxjAqzWxs2D7LWKWLHJjHWbA4jO1l/OCN4kKPTJv
ub4ywLcludpYuohIkV8tEZ9mAFbYrC5/rJBYMJB/1GiNAZJJfluaMvKIWH22
LW2nLbAnl5l7iVwiOp69orUgbgsKLxOs9Hkyiad6dEvJUrbg9PeY9iRfBrE2
ICOdT9EWzu/k7dQlphOVyg86ZmJbEHZQsh0UTyaKy8YtXDlmCzsiE5ONimOJ
TMJCotdv20Lc7fKGCeRPfPJHL6BM1Q6mK240LHuYEKseZSB1rUPg8tHqASVo
RSfQ/5NRjpY9RIkeLw1g3NZ5xcbd1GzjAHrChy9JcJrqZGUiOwrVEdSMJgxH
fkxor7MxnG/6Hobkxsay5O0R2upebnf6Yo7APvtdprMUgvZAayBPQOxRIB9n
myv6lal1IVZt6ZulE+Q36ZcHdPNqfc5TWjB/5QQLfLzbdTanHdylJpUsZnMM
cGXPbpdSwsFibe7h1++PAd9taybX+8c1v6NfLVoOzjBoOEi3LO3ViKzuPRI3
7gztBtntTt4yGk8lqy7EersA8/LhPoELEeqLW88z5qdcoORPmtVp8y61E170
9zjEFURRwU7jeha1G08kZvR/uwI/+xhNuA2rSl/4XC8b7wbyDyz333t29EDq
y6t7Ira5Q11cg5d9ftj+Si6G2Nk0d/jLODyd456lIv5o0+vjoh4g137wVXRG
jrKhd/X2rdc9oKNUNNVf4IYSJc3hp4i4J3AmbSEf+nZTsVx2JWVzsSdMOYe5
RQol7mt+cKmhTMELVJt1rD3fBirQqe7Z84pecCAoO9zJ1U9hakojXFXFCyz2
MbMUJ3oq8IsMHGxQ8wKT18Tbf34eVfAIE6l/hrwgYVZwdJjPQoFb/XrtRxsv
uOMiWLLXQlLBsfxOzeZgLyjXsohq29Yjv2AUnmEZ4gU6zH+XdW90yycMmgWl
hnkBTfJmtk1eh3wl1/QBgSgvmAgKxD1tj+VZfRSrJRI29PHEpSHfYvli2epK
zSwv+PJJyrFJOlYeHsemncrxAoc08aetwlHyvQyq/6NcL7ByWUrEtFD5v/FL
ygYFXnAmNv0uYeW4PGlUo8K62AsYV+XqGqvs5MciCKnppV4QPsygtbRR5U9t
H/DrLfeCAEeG+bsSG/ki/XAl+xovkPAZTNS3NJTX+mDGfe2+F6QxOpfXsa58
d4DI7HCdF/wbSmfkMGnLO2+efrmn0QuOLHOFGXWryf/Kf1Dm9tAL4o84uyvf
VJH/H/XCsDo=
          "]]}, Annotation[#, "Charting`Private`Tag$13251#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV03c8V/8XB3B7pazKKKPIyh4hn/s+9kpl7/GZsn3MKCLJSEnISpGRSLIy
CplFSXbICH2VKFKhkn6f3z/3Pp6P93nce87r3HuIGGBFYaCjoxunXf5/X7LI
zrqbP4glmL4/OBVGBRH+WyEpslVon5g/3zuav3y0V/eRbUNcRcabb2k2NyAq
XYcetMBj1jNEs61F/U1H2QHkdDQt/hXNcRe005fVRtDHL0vKHTTXVbSlRsE4
Gnl762U9zQuThilcZlMos9TNoozmpLj/ui1k36PBXOnOHJoLDtzvylGcR7fX
9ogn0txY4905r/YBKZ75EBBC84CpfMfR44vIaqe8zI3mT+9X20LgEyrXIA0Y
0UwXXvOsxeAzKrV+tyBHMz9XaCuL2Qq6Osb9gZvmIpG/ruayayhCPrZ8KJQK
Ct5u02ty31DKcAy1iuYnj5+53FRcR5PdQ4ev0jxkHus8o/YDvRLTMMdodste
mIzV+IkSdZU7eWn+vGDgJHV8A4m+2T6yGEIFhvOsjlTYQgLSW5XxNKc89xzf
q/cLddktjFjTLMT70r7J4Df6hzQWRWhWLrtqx2C2jZ5bur+sDKZC1TKbrJks
Hfytobv5OIgKYTeavPIe0EEWdzZPEM04De+yr3L0EH6GGi5Hc0/sK+l0RQaQ
H3dgvBVIhVnBFKkpNSboHt3H7k6lQvEzdEahngmc6gIHOGj2pqzei9Fghm8/
HGPqAqiwUWUheeQ4C7wWk8qmp3mPCd8Rf2ADCoHvbqwfFUa+dJLb2thAXDC4
WJjm3PSQYl49dmg9oJRS70sFydlR8QYDDtBxVOCb96ECFpZ9mM6ME6rIuClR
byocG9rDbSrLDbiBWfFjHlRoc51LJlK5If+K7a8iChXMlmpZI+u5oehjlwUX
zW50jv8q9XjA5ET6pRkSFeIVir7udeaFo38jV9wIVBi7ovH6ffJeOOT/yeGj
MxXw+zlMfw/uBQliJ688zZ/vTnXxCeyD5QP6RlQnKuw0Xmw2Kt4HCuKpAqsO
tH4/vnpQ0bwfBOt2HPptqRCqj78S/kUARrvrOnlP0+r7VVjSVAWhev3VkOIp
KiQ6Mcc+iBCEP09/W5qdpEJeYHnEDLMQsK823z57ggpd+T88DUQOwAyrv0Ot
MRX2bicac58Whj3xte2VQAWnSQcGm3ExMOIrcquSp/0/sxcl9vwSg2x1q8YU
OSrAh3KjHsFDcNebvsP7KBUkvm5fwTkfggXe1PkDMlT4Sn+X78jMIVDwAGOi
BBViZZYkNhYOg1Cl+e5oISqUh0cYZ69KwO+A3OXvTLT+ogq9rLiPQAx0/4tn
pML12FfJnMpHYE90QyU/AxVCrgoPxAQdAeFCxseknQBABe0OXj+PwPW42Qdp
6wEw9ILd+/gfSRhyJl9hmwyAP/tzr06xyMB0CPmOWUkASP/WtVuXlIGBd0Fm
i3cDwGZ6SZTNWAZGHJNVou4EQGWRVq1qAq3+gEZNXlYA4JUmJq6wysJG7q6T
hUkB8NxUQEqL7SjkXwyee+4bAGmRme032eUhJFLYzk8xAJ65o+QHMvLwV/6E
lv/RAFjRW7RpN5UH6wu9qt5SAWDIfuzTSpI8mJjqeVmLBsDWzdE9BhwKIEzM
ePp5TwC4Ptrrss6hCEvcNwXlvvjD3kDT81LxStCbYs7/vcQfRtYOnE3JUgJ8
yeWrawX+kEH9GvTzvhIQHTv4P92i1VPTvTtfKYHL0kHf7hv+sC9g2tGdRxnY
TEa/a0b5w36/QM2sPGU4seLRyGDtDwJeOT9ZalUg+UfM6IHffnCAsBSwOKsG
Oq5JkWbH/CCo7Z2wxJoaLF99w6mp5Ac9ov2vCHTqwPCzgCAm6wdhMzVS02Lq
EHdk0n5O2I+We+TsMEEdLP4Gxkow+8EVO67T7QvqoOKdLVE15AtbJ9QV8j4e
g8UhzO29ly+MHLu4YrmqCefr041HEn3ARiKoeplOCzg/CNtOxvjAKA8p7DKv
FozeMI+dDPeBsRUDuiZ1LWgo9jXo9fSBiUK2vWKRWvC7iFqMN/GBmT2p2l/Z
jgNHkcZQOIsPfFq8c+XKYW0YjD2Shb/gDduZzdKdthhciwv/Vu/qBeqzXuUj
wzrAUk3paPjiAd2UQKY7b/XA0J9le1cQGa5Vm6HPLIbg7/juee0dAiisiTZz
8hhDgbWCbupnVwjiXahe4jYFMbYOucvjDvD119kEU9wJMFein8U/tgb9Eba7
0XonoczwLZk8cAo63L7GGZ04CVPNgSNxD0+BztKw526bkxA9przr6ZVTgNu5
o3SLchIqnP9texqeAjVp9bb6xJPA+Ob+kb6nJ0EykjD7pf8kpNa6NzRWmAOH
xBNhF+dTYMdOHfDNN4OBYJ9czZDTsNh3OWyi1wimHyt5jkWehocb/G7HHhrB
582f6iGXT8MtNVgpSzUCxsiYwUeZp4F9Voxp1N4IjsXdZJNqOg1fWLidtT8a
Ql7Gs7B9O6dhL1vjhimHIdRNJsn80rcAI6l/XMEEfYj5M8089toCFgQ5fGut
dcA3wyRnctACvCadl/SRDjjI18rNjlrAappLz0dpHVByT7T+NG0BR/T+aQxv
A7zvULn7+4sFlGVWGZTbAOheScCJ7rEEciWT7/VdCBgElYM9T9Hst59r9aY2
fK2+xeJnZQn8ndaLowHaMGnGkhtoZwlzLyzU5k21oSbyXds5N0vQOn2CyWfn
OJDeX95zzd8SctKt2HFex6GrdLKsOsUSOCRlV94YasHlY3Hvf/dbwtcjnJtO
QhqwHVQZYTdsCT85D0TTbxyDoEfjvDVvLaH/l8jG4OAxwEvLG3q9t4SiVy9d
15KOwXGhsbK33yzBPtipQ2xbHb7+lQqu22sFzIf+m8V9UgO77lfM/k5WsDGy
ld45owJ99Bt3et2sIA1/dT3ymQroIzHNIyQroPCwkF0LVECpIcR7yscKomye
CqYTVYCjTPiNWZQVBJ1R2vfmkzK0Xg3IliqwgtG9WtzB20ogacN3dO4/KzB5
rT/mGa0AsYnd1PUlK+Dk02LqPqkAM81n6xm/WoGi3f5094MKkHVkSldywwp6
d2+JnH4iD2ybxQ4+LNbg84DEzvdLDpZyjsX/lLSGP+cLr7DEHoWKWcc5dk9r
MPpSLOPcJg1sezmlDvhaw4kvluJHM6WBbNLqK0e1Bl3DL62qvtIgXH1461S4
NciVnRT9KiANKbHLezISrcH161tXhlApoB6JwomUWYOTS0JYtIYkqPoUZKl8
tgZVXdOn0R/EQUifdyH3qzUwVliX8bWKA92BOAXG79bg8aVLYCFLHPpfnuke
/mMNNVXEJFVzcfCUVfwestsGLGssOTMaDsOdpZZTDUo2cEHoQYxIziFg83zH
jDtrAzr33rGTdonCVzhpWXzeBlJXzl+P6ROBUf5neZwxNsDcPP6XOUUECl8U
qk4n2gDb2UNNRrwigEl5Ey7k2sBo1uO8NFFhCFrcam5rsQHR9mtGK+YHYIq8
P8SQyRYEp+fDqav8cEUgXC2HzRZsBxM901r4QbNv4scKpy20/u09w3GVHzJU
b4dm7LMFvMCjD79l+MGcQeLsgqQt6NqM7x/y2g9P85XPXTS1hTSP0j9/tvZC
7qR5TEuKLZx9PRfoZsULJimVOjzptnDN95dlqCwvbOhy01OybCHP2EVplIEX
rMqGL3IW2EKHgp+9fx0PsIc7XXKutgXnHHm3P0I8EL7PM/7XsC0YpKVGW3/m
AnuLS1fVBe2gKPLLCKl+F3z+4/sLCdvBp/HQ8Gvnd8GFUjsPk0N2IDZRon9I
dxfc25HRcZaxg1DOrwyXX3PAj4qB7zFadmDxjW9HbpkdUtlFnPsc7UB86TAx
WosNJB6z9oy62sFLwZ9rLMxs0ID/pjZLsIM4n46s1QFWmGno2rPuZQeHTPq2
5rxYQd7Dp4P/nB3MBC891S5ggZcdjTKkXDuQDrhKNhNhBjf/wkzfO3bAMKtP
LFxlgm+CVxnDCu1g6KbxnFU7EwgEuk8nltvBa9Krk08pTHBGlOVG5RM7CGle
9btVwwhMkdZbvybt4HDj+WZJFwZA6l+fpx6why9W2oTF0X/IJS5L65uoPVAr
6KOK4v+hc8M6FZYS9lCfcaVsl+Y/VB+YfoNX3h5uTqgmjeftIIVKTZcMZA9T
0r8ZDPz/IlGpS9+yCPawPipmQVL8g1CYHHmLYg/hbFKYyeffyKV7dMzB2x5E
lafknpf8Rtkk6WbBYHv4c5ylPVHkN+IueB1/K84eWPylWzn4fyE6QYGD+aX2
8PBNV9Z+8U0k4tme8u+BPbCdeFTL+XED4Rq86fFV9vDpUotY8oMNFG7bsijW
ZA9vw/5+O3hsA63dIFYXvrSHuOTLA+GWP9F7jodG977Yw94np19rFnxH7du6
gQ9VHeAmH/Nxx6w11KUfnNqp4QDVgRLvI/zWUM+V4kcT2g6QFv+ka1N/DQ0I
sH5lNnCATu0dcZ4Pq2hWrc/bzcYBemWc+8aKv6K/vnZkrlAH8HqKvTAwXkF0
dQmXjkQ4wEYf9XbKzjJi+tNYqB3lAEL1ZWwX6pcRZ9KBuTOXHSCBIbjIRHoZ
HSh579p20wE233Vf9Ob7jLSmve0D6x3gzLxU0DDLJ4STyAtLeEI7n9174L8X
H5GOz+ubt1tp73dQMkhK+ohMfimO9D53ALEQvtS4PR+R/b6fFoffOsBi5tdm
KdFFFHoy2mx40wH4TJOijzp9QNUt6Zi6liN0zEw7TSjOocj3dYPHMEfo8SQo
8DHMIRPGMYqmriOse5TufzLyHs2YCKRomzpCdKnxvRPn3yOOkbwZXUdHcGr4
g17lziLi55LoUxGOsOo4whDIPo3kd7/gs4hyBLMtcuzTJ1NoS/FTqeVFR1gY
hwvdvlMoJVR2wCbJEYo75Ep4ht+hJ3SPxJxzHCFiH5+8+/1JxMvf2H6myRHK
u2V3R4aMo2mtCVuvFkcQ15TiZFUeR/ddfi95tzvCwb+FyVpf3yJUiOP173WE
4+UeXte93yJv+XZiyIQjLNX633nrPYY69F8yXvzlCFRult3liSMoiDplmKvl
BAvPhk1slAZRz7GW2XXMCQyE50kH/wwg4b+3I07oOUGbye2KiOcDqCfJ/eG2
mRM0iJfu+uo2gESK5ve6uzjBT9IhTnn5N6h39NOCeLQTeDqV8HpCHxLJ642K
vOQElw6M81gtvkIhxHL+0QQnaLWwk9VOeYVEVn1OxKc6AduKaC7d3EsUwrZa
8+muE9T7Fh/jS+tFYto/Lz7scgLGTrkUJPYChdGPHWDpdYKrjR6Gm6PP0asX
9Y/dXjvBNjanlnT1OQqzCV/iGnOCX812PxW3u1Gf3x+LoI9OMCBzPNH8vy4U
XkAvpsHhDNG2OuNfpjpQv8d80/U9zjBKabTF5XcgcflO60+8zrBf1Z5Vn0g7
b4pLyDngDCEWI8TAz+1IYph19Y+cM1RG1Z8VZmxHb5j3tLaddgaF0rsJWvdb
EUdXGNMba2dQCZV0WzFpRUaxs2bT9s5Q1nbZtvJzC2reqXr7y90ZmGYp8zbK
Lej+pvU3FaozeEx4hc+/fIpil3IkSlKdwcD1tVuHXBNqKWXwqc2gnZOXopWm
G9EWxae6PdsZzJljLS+nNCL/eRyaKXAGluYHDya+NyDnd7P2/NXOoCSxb26l
px6pvT6SnDToDF3TeZqvcutQQHLKYNaoM7wiTFhnOtShctNN/nsTztByf4Du
CH8dEnveU9wx5wz/aoa+x2XWot3PfFr/fHOGq1kLF/jv1KDFqupvfrwuoM74
UGS8vwodChDSjNzvAsSFswnrWVXIRf7ShStCLrBZ2SZaQ6hCQ2U2u0oPu0Dv
sapm1a+P0LPCTYn3Ki5wo4LrT71VJcrOwBysrF0gY44v9ozNA+S2QSlusHcB
zUPf1Q+tlyNxh5S1gy4usFfHVfHQjXJUeWA28SPZBQQTFko+DJWh7sKYpsgw
FzA+evkJN+U+Wq/qFCrNcQH6tVqPsbYS1Mi74sF5xwX+Le4exQJLUFTI3trA
Qhf4yOPXWnO4BLFpUk7gHriAuwvPvsbEYiTyjCVysNkF1tqntcfxRejEa9Pp
P7Mu0Ch/8343uou4FYNkCB9cIJk5637aTgEaS80Nff7JBSq10nSxZwWIaLO8
+8Y3F+h0y3AX0y9A4e+uIklGV6iLjX9cWnYHFS+9ybeQdAWBQ5yFntq3kPeJ
reXHsq5w99IYv8lILlJ8KKZ5QNEVyvrYyWn+uegJNXDgPw1XSHj23wnb0hw0
uMlLf97UFZzono7zy2SjHWY7YomvK7RvXdwe8bqJkvX9xTeorrCtVbxrQuAm
ErgY/8Eo1BWSx1dUf/dkIJXteo9PUa7Q2sUXelkuA1HW+X2OXqfV9+lnudKl
o76ZieDqalfYquJcER9PRY4H19UY6l3BYDh6Fz4rFS06cmxYPXGF09OK5Dj7
VEQ3ejz8R4crvKqvvPu97jpSfXUrUmPEFeS9F1ivjl5DuQ2ul1s2XOFdAYV1
kXwFSf0MNdrzxxX8Buu4W/4moTqVFFb3f67gvke4mzM7CfU/bE2iY3OD1BxG
P4bBRERfLJqiL+gGiud21z+zTkCeqXOZvdpuoHpZzD0iOw79fP3LXkjHDdru
Zd+4bxSHYnfxCvoYuIFMA+4z68YldCte7xbnSTcQtunqMnK4hPoji/JPu7nB
b332VVvZWKTuRbk/GuMGTJ9uRnjSx6D7d5j3T8W5QR1D6wXNK9FIaKTk0nyi
G4ix9s6Y8kUjOlh0W011g5bkkjM2shfQy71n9rHfdYPufm/tEJ9I5NbmGYtr
d4PhqqUef/UINPCTbU2vm9avpB09+2g40j9a5mra6waXJkPR39BwJJ25pGk3
6Ab2T7mH5p6eRes+3qsBc25QbuhYIGYfhuL5fV2K6N2B6ULocO+LYLRlzvmy
jNkdvLXkVpnOByOf2AqNKnZ3qByMF3NQDEYWX1Z4W3jcwaVO6LvGrSAk1OnX
O3bIHW66C2Lh0YHokX/AMQ49d0gqNtha+eKPDhdzFXMbuYMwXdetAyH+KGPi
EQ+/mTvM3lVY3L3th84ZrK2IW7nDq1PSR47w+CEDocAijOgOTzCqXfhpHzTe
HcQdGOsOPzMdAlv5PdHonaFL/fHuEKW0/wvp0Rk0dFZl82iyO3z3CIqtNTmD
+mTWpxfT3WG0QbxKI8YDtV0LfOBS4g4fPqy9lWKgoBaPQZEnZe6wao4ZBt4j
oyegnMZf6Q6qpJ/eauZkVPdtLXyo3h0a/ClaPHkkdN+WamTS4w5v69/3XzEn
ohKFgaaSPneY3IizYN0moEJWJXnGQXcgZSfpDVUQUF7TKl/rhDtInvymDbwE
lCocMKe67A6K7h+L3751R83rx1q5WPEQreRs+rPCGR2fXTyL2PHAf6cu00jZ
GTW9ylT224UHDlVcQGGDE6ov3ih+yYWH7xPM1xxfOqIqu/rkywJ4cMnN8/zM
4oAU9D0M64Tw0F78TKYu1x49VNz/b/4gHowJI5tmSvaonC0sSOcQHhrundzV
ibdDxU/UHf/I4CE/gp1FaMwGHS79j1dWDg9yoVRK4lkbdDf9Zp+DAh72ucru
uyZkg+74/oR6FTxYq92fA4o1yhZ5LBmojQcBlZ6u25xWKDlW7ceiOR6C1yRd
VHGn0ba3dNzaKTws4p27Wh6fQv7WB/f+tsBDITvPC1/lU8hCgkltty0eQm43
DvMrnkT7nw8Hq7riYfjFCEOn3gmUUPmCEXPHw0H6Wse0PjO0lfk03YhAO2+4
WGLsYIbenSmqdaTg4Rff3LhRqCkqYA/+Hu2Hhwclc34DXcaId93jUlIAHnxm
8edZXY3RpUknvvRAPNy+VJmysmGEPB7oqd4LxYOUVl3JPUUjdPQkb3BfFB5e
s56Zkq4zQPWp1esCKXgIYi0oP8Skh6QiSmIPp+KB0/JEgkOdLsom5PDKpeEh
9nIO1yxFF51XuagCmXhIGfSmPO/TQTojFkGUO3j4trjHad4KUE2zAUNAAR6m
yy4/VXyBkHiJZlp4IR4u6XZbvMYQYgkTq0m+hwc70w61EWUMveJf+1ZdiYfE
pTsS+9W0EY7uw8WnVXiIjzoSuNR0HFV+esvTXYOHAc/Mm891j6PUpmfK4/V4
2BsmXhRlr4XsnK8H7rT+/3nu++lyNdD7OwrfzN7gYbxQ9b+2EDWkHpqrbTaI
h9PHqkq9BNXQlRMs8abDeBAuf9qQ+UwVqW1NC5m8xUO6DHswhVsVJVpeMzCc
peX3fExaqVMZTUv9SjGYwwNxSDvBNlgZqeyQJ/QX8PDpwvq7AQllNFWO89f7
iIekBI/R2mQlpMS0kgWreDhXxfdRaVABXZ60n0ffaHlIfW2sM1RAk1Wdcug7
Hlhmp46nNcujONdb7bhNPHjf6OFQq5ZD4/Vmy1r/8MB9s/ffnseyKNqrDKlx
ESCmhCwTKiqFRmBfkioPAaJzS2fxjyWR9P6Lwyp8BNid4jV+8KQkGupw8FTm
J8Cd1W9pHy8eQZIH2dIURAkgE76Utf1PHJ1fD56SP0SAUbfujdtF4migZ1ZS
XpwA5oUusWMm4uhcaMPTo1IEcBKKyl/POoz6+z3+k1YkgPG7PeziJodo+xxS
lFYmQMQ1N4XeTTEUfh6dk1IlwB6SMc/IfTF0WHo/l6QGAQ5o7C+n4xJDYRe7
NcWBAKbuBY1yY8JIRE3iqvBpArx8MzfE8VQQaU4FOJpYEmDz/IUnmRqCyCru
qWSwNQHmw86nF9cLoIQRq/YeewJ8T6dr4W/mR2shFzeC8QSwnNnEH17YhziE
X3feIRJA6nvqaGzQPiTRLXCjl0yA5+VFl3Yz7UMO+6qOinoRwELlp0KE/F7U
/ngG/zKQAJqffixmZ/OiKVdZhZ/BBNCt1mTU0uRFG8xhf0TDCKAjosvSMMGD
ZO12Z4aeI8CfYoUymcM8KG1D+5XYJQJwvdEP3brOhcgaOepnMwjAdN6d+KqN
A12Y/cBQmEkAx4qBvTJqHCg7QWmgL5sA1Un/Bs3K2dHrty+8D98mAHP4/syS
O2zoWPhG/usSWv7Xcc7W91iQhZie31YpAYwu+T33VmBB3j3XjouX0/anuhw2
38iM7ggcGQ2vJMBn7uS5rhEmxNpkzSHRQID+NPNZMSlGdJiQ//ZUEwHGDumt
MbYzIBz7cnHEUwLc36P8ac2FAVEdY+HNMwI8NKnbaMulR+O/qkLO9dDmTeJx
V5CnQ+XH98wOTBBAojWDOm/2B2uYuR079o4ALwI5vQ62/8a6YuUlp6YJoPd9
9ME3rd/YzEtzv49zBLg0K8+JVH9hvM7Jf/4uEeDIl7pwQf1NTPSfUD7jCgHO
fjRM/Ni3gckVleuxfyXAycp8jg2HDcxouTdp7zoBvHzUc8rP/sTOnWcTOPqb
Ns9Gl4N9/3csQTT7qdI2Ab7gNoV3e33HMjql3I/tEEBywfZUHfN3rHKX8T1d
BiKEX0m+VWOwjs3fuqzmwEGEXay38BHja9iJZgbLy0JEEJ6rGviXv4I54NN+
XDlIhH2K2l51u1YwD6bD2akiRFi64Gt54twyFmOuO3vrMBF6PZ0cl9w/Y3VT
0X41skTY/+3Io5ATn7D2GC6eRjkiZGwOePT0fcT6JfLrWhSIYChSKJRl8RH7
5Nv6p0eFCPEyt3aHuS9iB/9uJ80eJ0LcdTrm39kfMJm7V+X/wxFhIttxfUHu
A3bM8ODgZ0QE1q1s4mrHAmZxTVtgQ48IoY2MHbo/57E44XP3OE8Q4V76qZvP
AuewFWyzQ8uZCI5DzAq8cdNYa63HkrcrETzCbt2VmpzCUmXGuPLciaBtx1zy
WXUKU9/32GWHRIS1iYDso+uT2IWVoI0OXyLE5jH8vZY1jlkQ5w/+8CfC4knf
3/Ts49jhcUv9I4G0/mtQ0Y2ot9iLTqXUhFAibDG5t7QHjGHct77KmF8gwrEI
pcrSsBFsntvNIiqGCIxuxqD1bxiri38dVhlLhBcnNk55XxnGHIMqOrkTiFD5
/vfNoPtDWKGpt+vodSKYvNcWvks/iIU8m7jEkkYEATH75erbA5iRumm5RgYR
5PJbH2xpD2DLYtKbOdlEeKZO77j2tx9T2/ov1e0uEfbcT8D/Od6HsfjbNlwv
IsLctk7Bz/RX2PhC13RbCREua8Zm3F97iUW9KZIVLycCmtIL/ljXiz2/R+j6
WEMEzV2dy6UeL7BsWvwCj4kQJIC7p//uOeadpsNj1kAEp382ynTWzzGuC6Ju
FU9p+QZJb2ee6MYcbKc3qV1EWMC1Tvq5d2Kyr8xFCp8TgXK+7zssd2DbOs0G
wz1ECIZM05qIDuyu3K0b6q+JUDZVnoDdacc+Mzoe/T1KBFW9QB5PpjasOaLH
8ug4Eb7WtaueMX6GpaxqhLtMEqHNdtiZcqUVU323v7t1hraPpbQnasItWGTN
iNulj0TwnzZouhr8BNOVSHS+vkSEEaV+iVPTTRhLprbDrWUiRFOwOGOzJiw1
otCydpUId78VRN+Rb8RKdKgGC5u077fIs3C/QD3mXSOuu/qLCG4d3T79OY8x
JYm32J8/RJBZcbUCkcfYE1akwUdHgsOnd8/xKtZh/f27ZPXZSPDrwtq9v/41
WLrOM8nTHCT4QzD6ssVUgznUBIk7c5KA/uzIad3b1dj8zYmDwdwk8Jba55k4
UoVtupRyFQmQoOmW7hPzpkqsud+J85EQCQZN/KkXWCuxWJ097E8PkuCk42Bx
muNDjFMilGFYjASV9m9xXOwVmNiy3k8GGRLYZj9RlEkvw/5z2fi25ygJckSs
J7R37mPl/WVfheRJ8P4X72qG731MrYb7k4oyCfLY10uGrUox04iZSaIWCYpy
zfbe1y/B9izfeOuvTeu369pp7hfF2IiL4cg5jAS3Jm4nHT9ZjLnpVLxO0yVB
ZGgcaw6hCAtiPdfWYUqCi8ED5OX7dzGNCPmW/hMkeLC0L69f5y62/fl90+RJ
2nxuVbmM7wqw+H7j2nVL2vvYZKWU9hdguTf33TvsRALtMBvBKPPbmDtrb6GC
CwlwTQ/0au7kYRIRkfnH3Wj5cpUzvv5xC6t0Wci2IpKgMc/Ix7UiF+sUr06O
9SaBcBKjSZlRNuZ7aUovzpcEB/QaHTMbs7C9C6y/L/uTgDvjgMl9+SzMo9DN
MymIBHqbixYbYpkY2yFOw9RzJHjeoXUjQDYDq47R2L4RSQLRjuCwx7XpmNN7
Ym36BRKo+fKpFEA69iC/6VBWLAkSfcb0ZN3TsFMiZ3ZuXyEBuzvXavLTVGwz
Ku1x/lUSMCROng90SMUKplt876bQ9qWdLii6eh37lrf3XXEaCaTjt+ISw1Ow
jAMdDQ9ySeA61VWU0pyMYee/+D/MI0GCo9Z/5vzJ2OKkgOSjOySQyRfg7w69
gmnkBmTUFJJAvXAiLxVLwiYFhAObyknAdG5Z1WsjHrsUbiL9tIIE/1n2TPX4
xmNy48GzzZUk2G9DWjFevIxFZb082VZDAipoXnCbj8PE9ofLvnhC62/GIVTw
byzWG1o019NMAtnaJw9uX4nFgkb7s1+2ksDqid5Oq1As1plxhLW/gwQRUdYq
d/QuYh58wwsjL0lgkUoJS3KLxriCd3LH+kiwZRU1aFZwAWsckrEa7ydBl+/V
De/FKIw9Labt3RAJfLfYnpKjI7EKboXb85O073ewhqd0LgKzpTrafJgigcn9
0L5O/Qhs503crsUZEogn/uiILwvHTl9/F7E0T4LrGh9NK6LPYuu7k+zWPpNg
7HvPbRObUAwPGanCX0jQMlC7E/I8BOun5r80WyXBPQtdTzVcCFY+/BiVfCfB
ZuetdD6VYIyYMy/ptE2CktcPuxgMA7GBl1/wCTskiJ3c2hU8SMXQ9lZuHR0Z
fL6svxvEUzEhdy4uLmYybAucvyrOHYANSuA2O3eTwZYb7SN98cGQnbHyNy4y
TK8/sbVW9sEqEqx8RHjJUFvRxstzzhtL/Ow5G76fDFYFwXyRgl6YTtXNF/Ki
ZMiwzr6ydNUDq5wroHc+RIZTc9cfCf6gYAf5KrQTxcnwNsw2RMOdgm2Fdjya
lyKDHO+o8bgOGavSXs3KUiLDmO0DOn5FIibi93uwS4UMqvZlhfy1BOzqHWbO
dTUy8A86FZ08TsA86Q/GmGvR+hd8McFqhcfEXph40uuRYdHmmZWkqSuWsmVd
qGBAhmNy/xmoxLhg2zLuU85GZAjza+U91+yMjV8Ntag3IwN5ebj+mIETlmpV
qOljTYaz85bDC1ftsZ1LD4OybckgOP9B3uSzHeb7uLGi254Mecpir1ZP2GEm
Am/ExFzIMDxRfjH3gC1GN/OHbZRMBol23KHoJSvMn4tVn+EMGS48WR8S9LDC
pnR4oxS9aBa7xim3aIk1Fkl/S/IjQ1dJ+QuXNQsswMt2AoWRYSBRfvGo7Sls
ILN4ySicDJ6fTs7su34SU+r6/uvUOTIcdOZvW3ptjq2LpAm5XyCDc0HyxJjj
CSxspN85Op7Wf3u1YGGpCfaWXsQ3IZEMum2OW9XMJpimol/k9StkyGHl9Ow7
Y4z9Stp1Oz+FDNb6WVYtGkZYJJjMPMskw8W69M8/GQ2wad+sry+yybD2ReF2
c7Q+hnIXd97kkuGHbr/o6I4e9u9HnOj7O2RwQl/Vy1j0sNjydjxdKRkMD74a
aDiugy285Q5kKyNDa66X5ovbgBkw4y9yPyCDbIj+0RuvEMaC37kr9ogMNsqf
xX8cw7CkfdoLOg1k0AgMmvc2PY591rvy3aSJDO8PNS125mhhZtQJRsunZNiY
CPBI/6qJcb46K0F4Rgbt9o7GIyUaWGpMHeXiCzJMfkpqOKqvjn17yBiW1EsG
ph1qg3GdGmb1zir+xisy0D3SLOGQUcP4jn27d/cNGS5z2v+UFlbFMpflP7W/
JcPIivYLd3llbFMgaqt3ggzrMuwhxk1KmINRH9vQOzKInWNFR02UMMG73jLz
s2So7zc5f2xaAcuzK/Vm+ESG8mutBYaNR7G/lzbOcXym5XV3p+/dH1nMrdow
mXeFDI6SK2csDWQxMc4PDw6vkSHu/DUttwVprKhd7IveFm0+DId7ZieJvWw7
HRP2m7bPqBGJkOoj2NqzC3zl22RYWcxrHuA+guFap7R46CmguMBt/G9KHBt5
kh0/y04BledzJ0ZLD2G/m14I8nFSANdh2E+WOISJNW1UGO2hgKaB2sbDYjHM
t8Fm+CEvBZrrvcLY8aIYUx23WOQBWr37q2CRmQOYbC3UPhKmwCN5tvuk3Qcw
ixp/owVRCqwYB87l6QlheVV9vmYSFKjMzbHTbxXA1B4mNgnIU2A6NFeYZWMf
5lTRYG6uSIHdweWriRb7sJgHi7PRyhQo7nSuefVoL9ZXZsDyUZ0C57q993JE
8mHke3TWjxEFTjv+nlk25sGqit0iDupTYDBGf6TSkBvbLmzOv2RMge73+OsW
xXuwjPzwFUsLCmQNFDHvkt6Fvb89xttkQ5t/9UvjwHV2TC5PTUvMkQJDky5u
f/ewYV3Za5e/EijgGR9eTTzFjHFnnaqw9aBAhF3gJVVOJszlZsVQszcFykan
K3KmGLD76Ry/xAMoIJGTeT+plR77ccNTNDmYlrcpXzpLNR2mk/rccP0sBS6q
lL/S8/iHu5oi4esYSQHXm8nhawl/cUeS3zdKXabAhSMiBaLCv3GaFAWbc0kU
SOV+ZlKYsYUzh8jVvmsU4MI060sPb+KCvvNLBmVS4AD0zepF/cDFv6a0d+VS
oIiokZFg/B2XU1rrwp9PgUMtiUoPxNdxbc6n05tLKZB/j/Ng1u413CLXci+h
igKdc90P0JkV3O6ueDrWJgpslTjdOyWyhFMLP6xR0U6BdEN7x1S1RZyTXKuf
5UsKxL1Z1zufv4CLee9YvDFEAarb1N5y2zlcacbPyVvvKKB23Vgk/PYMrt/k
Bo/uBwpc3YrcCWJ5h/uxLWeyuEIBI90umY3xt7gD1T0Xkn9SYP/RjxFS7KM4
PQr5sdIOBZypa6kRV4dwnoJ0K6MsHuDu/UYv0XEAd/31rcPnuTzghfL4mW9v
+nAh+77r5ol6wHGh629+P3mOc3A1I7QoekAFj/7e55/acTZG6pfblT2A/nDv
uy5CO85SUaysW9UDolu0uUtn2nBm9BtrrzU8gDFQ6J/5i2c4XMndmBnwgJeB
12QIis04sS9b+f9Oe0A86QaPvWQ97uDYQiejlQcI3Cs8mRX1GCf4rP8jqw3t
eV9MIton6nC8N4oVuR08wDPoXpBhQS2OSd3imRjeA/41SrW5EatxnyJLZ3Sp
HhB6Ujr9oc4DXBWnnXBcqgd0vdg8+OBhAS7ohVhXbZoHlBN20iUOFeDUYpe9
FzI8oLL894yZSj6uYTOmUS/HAxzRf1cd5G7jWucfWNMXekCCYoGn9MUcXF8j
/ZULtR6gLCt2KTw8HfeJ/HAjfMwDrnXq7/zKjMeJtjAN+B08A6I+if8q3vrh
DLxr+HbnnwF2BdmBj0o4nFWq808hUU/wTzYWnQhmx1VK/UphL/cE7ma6dbzx
oHbb05tND496Qf0w8siRyNG2tfbIWZP3goT5hPp3/Nnanz8fi1BV8oLfKYJ7
ju7P0t4rNK7ZpOYFVQWVLkdVbmqfCRdq7MK8oOh6S4/u1A3tPer59e9OewFz
Uk3avHWStkvl/Vr2EC+Q6Tk2cdY6QvubYUS6eZgXBHCJ3meHcO34adPg6+Fe
0C0dk6B57Kx2Feeyyr4oLzjAcTU03jBUm9FHvkYs3gtaejlc8t8FapdL1VRp
ZHtBu3b0RQFxL214Fpt6LtcLvHryzk3t9tQesbOmtuR5wbTve3YPpjPafy//
UNS/6wVCbNc+jfFStC0+HHt0qtwLOs8LNN+9T9D+7zzr9RsVXqCz8shn+gNe
+xzfuP9IpRf0y9zxCZHBaxfrRSg41XrBUaEnAQUZrtpak6Z7bj/2gktRR9XH
T7ho9wcKfZ1t8ILJ6wfxh3mctYnsy68PP/GCml5R5o8LjtqbBU8fUpq9wDMj
4lpGp4P2/wAa+6Dq
          "]]}, 
        Annotation[#, "Charting`Private`Tag$13251#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV13c8Vl8cB3Akq2yhCNkje2Xc87VX+hXJ3p6pkvWYkYSMQhoklFkJiZCS
TSqjkChFNIissiL9bv88z+v9Ouc595zv59zz3LvP+5QtkYGOjq4a//j3PX0k
KzP/5mvs0kJobfbOEPjxzUHzuHwz4rdWu/vPx47UXnWSf4XYZq3P/nNctN7l
GY1BlCRk7fPPD8ua06NgGCUbJqF/nnxnmsppNYr0tZd5/jkp7kvHEflxlLLj
zPh13LeE7rRfV55AlBze2//8qMq3bULjM3rjlEP651eWiq0Kul/RbB2d6D9P
jc83B8MUOndJ6lUWbrqwqqanJt/RzoTZ8H8W4KQ1MlnNIhZ9TeF/LhT542Yt
v4CYRJ9aZuJW8nX/sLB/EZWulQ9ew/24psn1qvISyhCPc/jnfutYl48av5C+
sazJVdzuWZPvYrWX0cvuy+VXcH+fNHGW0V1Bh0tFOP6ZIZLZyR/WEKp+UJ2B
O7WTMsxntI6MzY3WLuHew/PCod7kN2oO3Kb+z6p3L9gzWG2iFdqO5DTcDb9+
vCmx/oNMOzuLU3FbGBw+dvDwFvoye732Iu7KGRZ5K3k6WM07WpuCO+RSPTXn
Hh0YvMwqSsatr+17d24/PciJ1iQk4e6KfSl7WZkBqCo8Uuf/zUf2NOVLJQPc
S8wdj8dt17v/jrbaNuC1v5oah3tsd6rMqAYjFAcaNJ/FXdSEyEq1jHCnSM44
Brcvcb4kRns7yDTM1EbjXqk8Ii2lywTqA+anInFzWPBK+QEL6HEwCQTjHvzR
RmhuZoGofBJfIO7sy8FFPEas0BC/tXUKt/TYG4k6EzbwoL2+fhz3bFyCD2sn
GxyjY7ak4q6S1y50Md8BVz6RJkm4sZAscTqrnaCbH/HW61+9hS29bV/uBBWu
XSoe/9bbsp5fZM0O6qNFAa7/1sfuss/yMAd8m7Mpt8et1c/BZSnPBeVv5FYs
cTe7fUrx9ueCwRk/XTPcVtPVzKdruWA+sd/N6F/edE5/K4y4Yf/pG0j3335L
UYjsSuQGUezQb03cgQJbK596uaHIrPqSKu4EpcI5Phce6OrkPCKLm+sxzVcp
nwfghiZN4t/6TS2+mn/jgUgr/0AR3BWuPz5EBPHCrK7PIi/uoWTtnvEUPjjf
I/11c0cIePKzWf5+zQeB1I3KFdzf80fbeQV3we23TNYLuLcenW0wK9oF2svZ
cxO4pb+9vFfWwA+nW5qedeCuDMyT6WQQgJGMqJWnuHW3/AvHLARAT719tgb3
f7v4b/C8EYAxCU+FYtw0Y8/ksB+CMCu+61XMv/F71Zgy1HeDc2PCnlDcic7b
Y++F74aVKzskTuLOCSgN/7h9D1RM2lEdcbff/EUxERECj7KI2wr/xld49tmN
IARqFbJNoriHa697hpYKQTvpXjIv7tke5FiqJQwchUPav9lCgG8z0Zzr8F7g
/l7T3oY777xLm9zVvfAyh+NYDW5ZXiUwfr8XkDmkluDWlx/QCiGLwIvkE8vn
cRMc90qPnhGFDC6ynxnuucn5/OUOUXgsPC+sibtB+1MqM5MYVAxfo0jgNmur
ZttnLQa639Reb7GGgPM7Rwa7YTEILbrUUInbeuysJMe6GJzNv5KUixs+l5p1
7d4Htox3lpNwS85tJuu77APfK+3FXrjn6PN5pT7uAyrdosFO3ONMLzTHtvD2
5+mflllCYGDHT4frouLwOzyHfwz3o12mOexe4kAVSTxQiTtWblpyZVIcTKI3
NQ7hDlbiMa9klIDxMYqtOm6yuh7VV0oCiO0S64K4rbGL5R9JEnA9oH90gjkE
+G1UtZ5NS8AZvopBf9ylYeHmWfOSEL3ZggUz4XlFFVBtuaTAIVva0BZ3WuzL
lJ2qUuBPp1mrjDv4wt5XMYFSwGOhPD+1PQTQrRZH6rIUiEoLB9jhVin+HiHB
Lw15iqFDirglSnlzP2hJw8Tqtnwm3CwPiZ9swqSBqcfdo5YRPz+fsfrqbkiD
ykMlOw7c7d1qF34JyQCB3rF2YlsI1L12qajQlwGrS73+tbhz3pcviUfLwMU2
tSkX3KR5m8gd9LJAUE6symMIgQ3+7AujTHKQe/8/YKDH98NvQ/slaTkYO3Ur
uJsOv98/TIuymMvB2QiG+au4Kwp1qtXPy4FzeGSZNG5PlZGRZGZ5+JEVJgx/
adBpKSijw6IAl0sK3K3+0ODn/uaF/2QVIPVdjigLbjEuymOChQJ8eie8o2OT
BuFDdYfSExVATu6Psz7u/T4Owd9Y9gNzx+kKsQ0aZJy+1nKVVRHq1aWKGtdo
0OSBUu7JKYKp1xkDP9yzRl/tWiwVoeLg2IwwblNWranZJEXwG7xKCV2lwdrV
NxwmbEowX/6+S2yFBm73+VyX2JShnRqZZfyTBnwBlpEyCSrAntA51zBLg8EF
odDUTBWw+1RmZIj7iv9c4PIdFQgYOabdPoP397/s2/ZSBYp8Lq93fKfBrlMf
nDy4VYFoFHbr0RQN+E8GHMjMUYXXrbm+jp9pMDRrrLFVrgoFLQ8fdEzS4NoJ
fhVikyocimYMVsXNf+KJjPqEKjjyzngyTtBA4Ph2gT4ZNWj2T72eOUYDQer1
ZaZqNUgY1KEFvKPB8NTxxZPtasA3e9WuY4QGWRT0Y/CNGly75JwkgFuQMvm5
YE0Nzvo9mK59S4PdZMVBhNThlHGm8adBGuwhtlSFPFeHEmWFgxO9NBDymj71
dUwDfv1HrxbfQoPA5vd7JRc0oGBqKbOimQZdor0vveg0wbpD3HKoiQYhH6tk
PohpgoAeNV6skQb9LqfHBrw0Yeiut+qtxzRItuc83DKpCQf6+6utqvH6H9RU
yvmmBSolgX5QSIPD92RGR1a18P+5xZtKBTQoYduTLMCiDbRnuZ+E8mlg93zr
S4asNsTBodSFPBrcN+vKTaJqQ9mgl0tsNg1Ihi7soTPa8DXss7bZJTwvrbOz
NvMHoPHv9n6jKPz3koEPZuh0QE30o95gJA3ecPuExPPowGfGoyI+Ef/yMKGr
19SBBvoOk/BQGowUsPCJndYBvdXkDwkBNPjIka43x6ILr7eyAqWINJj6mpec
LK4HN+0Etb2taEAZTDssqaEHQrbGL/MsaDDdEsPXaKoHl7fTXR82o8H3HO+8
RYoePJELGjE2psEPW+kqx/t6MHP67pM1PRosNZaPSOvrg8GCcti7/TTYvNYg
23YMA9cLB2YCdtIg++eJFjYyBoHrwUaubDQ4cGSvs20YBuHMYvXGLDQIYo1O
+ZSNwQ2J6S1WRvx6kTD3dwyD/VfiOoI2gmHYs7Va3xdB7NFF9ifTwVAt34Vq
owFiklyzONuD4cj5sLd/0gCCy8cP32gJxs9zWX/TfICf9+9uSTQFg3xuUv5g
G8BukXvY/sfB8Oq8VGw4owEwPtWTFKwMBvPfXz9nWhrA9YbEh643gkFzjFo6
OGAAB8zbEzNO4eP/ed03+d4ATK49sZo9EQy+QrrLS5MGMBthdcTYNxjyHNgM
uH8ZgCezqeQ0IRiYX5W+OcRnCG/2uIzzOgfDSPMM3TM7QxjuSdH7YhwMUQUn
HerfGIL1z6cZwbuCoYMYwJj31gg0WjwmtCqD4NcLR02XcSNYezwcc60sCCRV
DEiC00bAMCg2tHQnCGJ/c3Rl/DYCrpOmJfn5QYDSylLO7zWG0b9C428zgqDu
0TeeAB9joJctnykJDoK7O9z3mcwbw8uy8NLXmkFw8YEV+s5kChXSDQfDKgJB
aUG0YSe3OVQVjIcWpwdAIM/kg2kuS/iw/lXztq0/zK2HnrfUPwiUtQ8qlIqT
YDzIkn/G6BAcTDbBYht84VXQ8ewDwYeBNSKuPTeADDEbH7YP9RwBvcC62Wea
BIjXihv/3WsDbXzJKZfMvUDajlfh0xdbKGno0UtPdQX147cy1b4fhQMsW3tl
fR1glMAfbMp4DDTZTy9dCrQFhyPnLmjutofoRNbHTqet4fvGiXW01x7WZljO
pnlYQ/Rte5LFPnvgbc/xHjayhpItOQMXOXv4/WAruJDVGn6VvfoZo2MPuRdf
NYtkHYR0VhGXbid7yFGbkL/7yApetD6S88m2x8/94M/bWCwBac51pgs5wBO2
0oMOY6bgGpepsyjqABuxm8igwxQiBgzKbCQdwGndeR3dM4XagMuXeBQdICOw
qCIq1BSUKg64XkEOYHjfNOkvlymIypxbzPRygG2n6lW5LEyAbreg8M3bDjAZ
x35Tr9MIWjYNA8rVHWF33EiMPr0BtBsHpbdpOwKXiNTahfcAXclF90f0HMH4
xO6xtocArwSZ57abOIIFQcs8mwwwptHt627nCD9/bFv81ovgzwl7AifNEU7Z
XWX6XYiBzgdfh4BaR7CV8WxKJ+uBvmROyPnHjnBdqdf2q4keGBzvuZrb6Ai5
3UvLrvi5YLGuPPi80xGYRi4plH/QBYddy0fE3zoCydb40ttjukA7dMZqYNUR
OlvOMJlZ68CDp5cxTR0nYJY9u2+XjTacHn/4WgtzAu8gzywmdW2w2DZEPGDo
BO8d7QZ37dKGjxaCqXqWTvBcld/p4ogWsA3mfDR0coKMnV+7Pvpogff34jP/
hTsBrUnk6WaUJvAIPGoh1ztBw7ab6vefqcMHnZFj1KdOEP1px5cD5epwx/X3
tG+LE3T0EeFjhjqgAn0ev+dOwHnkXWmkuzr4KrZ4B484wU0ZF9rfFTVoNX6x
7ey6E8j3vcoVUlSDQP9R02wdZ+DQ7IhRKFeBLq2nY0uYM3iMt+/ivaICe//k
hh80coaO0Y/5gpF4e5JH+aaVM1xnIJtEWaqASOEEn4erMzDu3HbSrk8Znr+Z
mpQ44wzMT+p6/tgqgZje8tnydmfYfUy041ucAoTQDwkxPXeGz6EHaKNOCvDy
WW2New/e/3uYJ7My3m4XNs055AxR1aNqf0fkofvkxpHAb85w3CqvK0BNHsJu
0Ytps7lA/t4vo7o/ZKFvO0dj82EXUJM0qBNJkga29hDGvqMuEF6mafWTJA1m
sWNWHxxcoHytXn7JRBoatirfrnu4gLGBqaEfvTTcWT26qObvAm451c9dTktB
7PR1yeJ0F+ijkGJnwyVBo0cqJem1C4wBo8xUhjicSkl9nfnGBaQiGw8108Sh
1HJVoGTEBQp7bxo1OoqDWGdXUesnF8jMuMyqgD/Hsjcdb9xYdIHUfaxq7eX7
4Gvlg8WTPK7QfrjEYOi1GGRdwRxtj7rC0/VCKXaqCLivEIvqHFxh0dDxSJK6
CEg4pi4Iu7qCgEiDiN3WXqgQGkv8RnAFz/dthwev7IWOgpj60yGusH9Zu4zW
IQxLlW17bl93BZnlBqklDSE42GP5YWPMFSY+H2xNshIELuVAOa/PriDHbR+n
LSIIQ+nZtM4pV3hBnUuQWxIAb7sZ9kuLrsC5eZZ9JFsAwt5fQNLb3CApR5jq
Ns8PRdN9N49Iu0HWNM2oFn+v2tpu7118wg2UGHnEkxEvpBj7Saz4u8HrLznb
+/fwguDZhM9mNLx/B83XdpUH1DZrSVNRbjApzX5ro5IHiEsCxxXS3CAvmCo7
Jc0D3R9Hgh48cAPuUof7P4S5IbvOLf7pihtwtLHplnpw4OuimXFsuIEU0fHB
USkOeKiWyuzx1w1k5ydi3GbYobe8MYmOxR3aut4opoexA32RaKrxbneoCaX+
9cncCZT0T9ee67nDQnLakONXNtCkEu+8iXEHd9dtzTKdzHAnbzv/aJw7REhJ
ZO7OZoY9g8XnJhLd4dIzRzVbP2agg6/u8+nusHXByeSaADO84CPvYs13hxP8
2cMeJ5nAvZkSq9/iDmIDQe/uSm2HBIETroX0HjCSxEeu6mSANeudL+5u94Cs
epbjrwoY4HhsmXYlqwcMhBtay59hgCM/ZnmecntA2bcfrukHGGBP28nnQ/s8
4KL55QHhCnq473dKi83IA+CX/PhCIR0MdwRyBcR6wI+y1uFn/n/Qm7z+c70J
HtDDPF/1TfUP6g9VW1VI8YDTE4ppUT83Ubfc0oevlz2ALeLySZawTdR8MeCe
azE+/uuaZwkJG+jOMX8ziy4PCEmKHkl8tI6KlV7VF3d7AP1/j+UfxqyjAmYV
xW2vPeCs0U9HK8t1lFM/z9s44gFaKqI3H75fQ+l7T31Sn/EAe6Nrxn7b11DD
klYjJ7MnqCVWc38+voJ0x76GIlZP0OXbl+anu4LqX15TPbnDE9I2GC85sa6g
2qKVohecnmDK+/b2f3eWUaV9bUq8oCeQf40vFn7/hYoeazptyHmC15/130Ex
P1FKrMavr9aeMLer/ML12QW06Ssbt/CfJ8gpfDmU27WA/I4K8/0+4gm1/I1y
X4oW0BFJRg32Y56wh9U4HNwXEH/nQJC6myewJznIS92ZR7dYg36eOekJNvQ9
D0ozfyCeJdK5pFO4CebPXjn8QOfeOfNeDvCEhXfOAwGCPxDpnpF6Cc0TEi7f
KNx3YxYpHOIJ6o7yBIE+P1XxkhlUm/5gSTDVExS9djT9fj2NZMKLY8XTPYHm
uXUo6Po0yvK6zrM/wxPunnbNdfaaRpFqZ/GHf08I/a/+UuDSFDIYPBJIzPOE
zyTlW9W7p9BLgYXFBxWeIPS649P7yK9oPE9p0arPE7JXzilvS55EmrRsPavX
nuDKb3hkxH0SJR9kSrAc8ISxMjb17RqTSGPtwx6Lt3i9ixPmXcYmUKLNRRPT
MU+Yn1IwWdaZQCqMs5kw7wktcvFMzlvjKP6dwwRa9ITcxZR8i+Fx9K6ybT/6
6QmX9Bz3xlWNozi3Gy36q57w/Ner62PkcTRcazWj89cTrhxP5dAoG0NnqHeR
BqcX7Iz+bGYX8wENwq4kdW4vMLwn+dkG+4Bk+c8OqPF6AadENsvI71HU3+pI
URXwgijRXraY0FEkLcySoSTqBU25Syb8oe9Rby/pi6yyF9ygfL6fkTqCRDQk
L+w97AU9FXFeFwSH0IHRU04WNl6QMmLPnzX+BtnGPZEOOuoFyjw/CZJ336Dz
g7YtXQ5ecIlFq/Gx3hu0EHx2JcjTC/YcsbJoJQ2ilpqPni8CvOCjc1GM10A/
GnWTV1oO8oK7JvaH6Qr70cr2kA3REC8Y7zujxRXUj+Tt2a/RIrygXmOq5Axf
P8pY0Xspds4LsvMNRs65vkYE7euaoVe8wGjGdNaV7hWKHvvMUHDNC/qecXw2
Le9DWedVXnVneUEl+aZtlnMf6nn7zFc81wtYzzf3JdX1Iq2wlZs9xV4Q8fmU
QmBED2KuP8omWecFB7Qi362Jv0Sluhxjr0a8YD6LGhT0qxPVfcyNHXrvBbMS
PJ5LjztRe6yi9OgHL9h6Eiu3fLYTfXxhffLbJy9YjJATiuXuRDwuKRt/pr3A
iqTnlKPVgSIiWQQVfuPzO16jPZ/Zhs6LZj1R2fSC5uhRBVVSG7rSJuOhteUF
v7395r9qtKGKHeYlhgzeEMZ9UaR0oBVN3IjXcGTzhqxTGXw0/lZ0sIHBJn6P
NzTX8iXZVjYjR8+MX8nC3rDSffeJT3wzIjGKZ6WLeMPDry9I75ybUYy14dgN
cW9gPGbz/BdTM3o4euZklbw35Dxr5r34rBEJ/9lMGtP1Brm28VO27g1oFltt
1XHxBqXpH8aSnI9QYzVp2tfNG6TNTp6yelGH0uWGOHM8vCFUpdpYOqEOae6q
cd3y8YbOoC9Sa39rUfRs4ErrCW+YY9AxGtqoQVw35uSso73B9Neu5zy8D9EE
l/uRqBhv2F39dKpvuBo9TOgJqYj1hkZhZ025m9XIKbCsjeu8N7B66/uWKlaj
Aktftzdp3vB1OTau0aYKv9++pLvne4O4WNP1xYeViMnvWF1aoTfo1we5d56r
RMOT7R+ai71BoCiJad/RShTVVygvUeoNlxWY7nV8vY86S7zav1V5w2b0ZuN0
UAVyPPZh1b/dG7pCnx2LbriHTlcNup/75g0fQr7dqFkpQYaSiS5p097Ac/hl
Xl9NCWK6pud4Ywavl9vOycu0EpQeXmBTPe8NLpJsr/lWi1Gxgb/J5Ko3cKha
hXfTF+P31w55YxYfiFJ0DGzSKESXDZqkD7P5wClL24SOPwXIsSpQwmWnD7jf
u/DF7VkBmrg6IhzE5QMCI1ur4FqAVl1vcxYK+kDPFEGx8EI+EpsxWmaQ8wGG
vbGXnjLdQl9cVxY5FHxgbuBpYlrlTVTae3duj6IPLPC61+XZ3UQaVVxTaqo+
IGx4vrnwZh6yDP/4zlvHB3indnzfbpiLApkjmlstfeDLUaOv0vezUZvEg5RY
Xx9YYvwe3yZ3DZ04N2oUd8IH6E4fuis3fRXxTTL/jvfzgZiawGtw9yoiFbhT
kgJ9IE//4nyQwlXEsm+naXqEDwTunvHo076C/hMhb+Um4xa/Ujnpl4FWozJq
bl7wAd+NG9oxBzLQrQ9PT+Sn+oBk4auWKoYMtJjD974owwc+HhSbGci6hK4I
tdbdy/YBl1an2x9epqN3gnsD6kt9oKbzVEFRZio6F2Yh+6TMBzrM33ea6aei
/cNBYw0VPqB/2s126tNFFJX54lBzlQ/k97bYiapcRGL8YfLPHvvAmZfZNvzD
KYjEOzA5+MIHaE/1y7fbJSHOoK3soW4feLNN7RmNOQk96pezHe71AQnL1dbG
J4mINSOm+X2/DzhwPortl05EZVxKuRPvfKBJTU6tnek8WmJPsl/47gOt2bce
rM/EIfzkTt/7wwcC1CJUr5bEoV7/my+s5n0g+1DoHRbvOFQ6UIOKf/rADbng
9pPvzyHv6xPSzps+wJa4xDf3Nha9ltRfbWMngL9NlGXncgxC9uaqi5wEiKNg
WS8aYlDZedvjIjwEyH60vSs2LgYlfqeMhfETYG7iZDoTfwwyqLz6TFGUALst
/AbMYqNRpd58ZqYKASClNpX+RCQSOfn7dbsaARhZt3Hd54hEF/K271zSIMA5
ozq781URiEIvHGOtQwAir7p56Z9wJPbMgkJvRICbL3panfPDULptwYHjRwkQ
za97PkUoBG2dKw/MOkYAx94LrI59NHSi5lFZhwMBKvRPzQrF0ZCFYJ+YmCsB
6mhlstELwYju4wbLGwIBpHuZM1wHg9Ap6rERFEKAgkdmoUKdAejVtaJpszAC
aCwd3K94IQCptP9c/y+CAFHcr6YXbAPQkkjGHo9oAmx+bU9MmPBHIYO9LmcS
CLAwpN9QzeqPToPFx6ZrBHDwP/pkcvYE+nAic+5ZFgGeJyTnn7l4AqHsr1t9
2QSYuPIn1ET5BPr7K050PI8Axd8FovRCjqPY0hZPutsEyKw4dDmW2xcl7dKb
NKjD548pT1dEkNF3o+SfFvUE2B+kMuGwn4ys/Ee22TwhgCx/19DqRxLa+TJU
0quJANU8T49xm5NQesxD4tlnBFi6JtTnKk5E12YUp1reEqCNsG7zl8EHrQpG
rT0fIcCXrH1V/a3eyNGsm6X/PQHqoxhXA895o935vnITYwR4cf70TS5mb5Rj
f9uXYYoAfz6l/owW8EKFLWI/jNbwPL5NZHjVuqMXzYdjQn7j9XjgoPbSxB0t
NEXzlm4SYC3QJ7N10A3pN47qcNMTYd7o5RGzdVc0+DgrYYyVCHGjbsBv54IY
H3KJnRYigkeRR0+FtSOSr4bq+3uJ0JKJpVcuOqAjVX5mk6JE+HLG8+BypgPK
qew+YSVJBOv21TGtKXukUZ5YL6hIhMgur5cymccQoYTuaA0iAnbQ9tNRhaMo
uVj565QBERrWumm3J2xRZZF7uLAxEYpEPGh0N2zRZkHDzXPmRAipn/3+kMMW
XbkZNmtzhAjya+HRz+ltUHvWQvycFxFEnp+dLpT5D33PFN0tTsDHt+/1mao+
hLgy/ys7RiIC751dDf2Gh5Dr1bL+Bl8ieDnK+Md6W6NflyiiKUFEuJJ2o626
1gpJpYw/koknwq+S3SUdxeZIKew8k815Iijnc5ukHzRHB4hKdhFJRHh19yJL
wZIZsobT890XicD6Rz4jycQMBf4UkA68RgSBNubLiysmqNnl8OWG20R48umM
a1aGEXphsTL+5S4RBgZkPn+xMkIDmrlKnGVEiJp78lKX0Qh95Zx57lWJ11dC
M3I23BCxtyfQMdcTwY9FRYkjwAA57288afOCCJ8npckv+TFE2E18EtFNBM5c
UQH5Yn10kmkna1Evvj5r7SRlTX0UM+5UtNKP15f0KEHAWQ/dvrL87sZ7ItAJ
+XQ/rdVBvzb3W3ydJcLPtuakilottDU9cJVznggqfN5SU65aiOVtxOSBRSK4
p/gxBDNqIaEHXdEpy0SoFvtWdcpBExkRCTUqW0QYFslpCNmpgdJ6bohHcpLg
8OiI+M8KVXShNsHsDDcJiH9TL/08oYoSbwb4nuMlwbWu53RjCqooNsC8KkWA
BDI+qfG+ZSooeNdPwxxREkyoO8f/PaWMHN2svJ4qk2BOlNsT+6GA7Mw041tU
SfDA5tP3sXMKyEZZ7G6HOgmG3mcwbQkpICv6lYUebRKY9ok+zjoij/SL82M+
Agl2F+zjb3whi8R+rN38e5gEorpSHfe2pJDw0GTbNlsSDMbReT0vlUK7m3q/
MduRIEJ3sELQUQrxXCpS5nIkwaOg5S96tZKIUfNIk5gnCaKit4wkYyTQ1Onb
Hw39STAWKbEubr4PfSZmMJgFkuAs482N84z70Kf/oqStgkmQ4BuUMNEqht6J
HfWzDSOBcXHdC18jMdTdvvXHO4YEf57/NRjJEkGVO+33xqWTYEvb3mudRwgF
PhNrr84ggfSPw9V3b+1BGrEzvpNXSMDKsWNGRmUPqluNeWR0nQSCv0O9A+12
o8aJe0fpC/B61tlh5x4IoJjckN8qRSSIebs+9MVaABk5GuZ7lpBAN7jizKdp
ftTRMzTXVEoCC7kfDimy/Kj7EX1ydDUJnlxpINA/4kOpQd0qFTUkcDl4XzjO
gw8dUcp8+6GOBPk343v9WfjQQOF+KayBBAcWRmQC3XnRu1SH5o12EoSaDB0+
s4cHTRHKV8KGSHAs+dr3ihxOVCoalntnmARmCwyre/k40Yl3RibD70iwz9/6
bOtFDjR/ePiS9hgJBMpbLJPOs6MV3W2KK9/wfJpItvuu7ECPlnsGpL6T4Mjr
btbDwjtQRGVWxLFZEmxYVP44VcKG/kgpdT1cIIG9lKbdiWZWxMjt5BO0ToJS
bs37UWwsqPOlBFvhBp7f9Z2MgfnMKDFhrrL/Dwmc5exzRXSZ0Y7Nc1uqDGR4
NM+rFu/PhHi+VVxfYCMDd3Nvas8CIxJ9yvjqpDAZfh9Lt3yuw4AGg3gPhYmQ
QVvzuMXFOXqUKC/+IlaMDLtXhz0ii+jRUia0Z0qSweSOoVk7Lz1qD4x41LKf
DArbih6J//2LhcklaXYrkUG4sV3NNeIvpjieWTWkQoYzjldqS1a3sGuHaspm
NMgQe+9O+OG1PxhFduHWLowMOnl9EXu4NzHhsa29YkAGueiFze05G9jrq+w3
5A3JkLKllt0pu4HpblO4CqZk0A9blL5n/htj/0hMoh4iw/3AADXj7DWs6vL7
gKduZKB9b6HtuLiMkay+zz3zIMPjwNRqdbVlTIh+/Xi/FxlS1bp+vxz+hcX5
8ZO+EcngwbXnlJb8L8ze0saZ248MtjLovcuHJYyNzvOtkD8+fqVR04mLS1hT
rZ+ddCAZ+rePmbahJUxW8sJ/eiFkWErkCFYsXsQ2tjqNiNFkOGAT+e1UzAJW
WfOm6VQMGQ6djJuR1l3ACCc+60fEkiH0eND9jel5rHeEXjstgQy3zfWKfr6f
w2491FeoTyUDSuVII47MYia+VbzsN8lw/LjXNlCfxkY5dA6y5+PX0+FMn+6a
woKrm2LZC8n4+92bCWPPKax4s3uR/TYZ0j2fVv64/A1jSvvWx3GfDPTc+7kJ
HF+xPHU/Zs4HZNC0QvCu8gumNfwLcVaToddx0rzX7gtG3sdQwVlHhl0jXYWC
+Z+xrmrhC1xNZGiMeXcsy2oS83QsbONqIcPGny8X3NcmsLVNuQ2uNjIMcIbr
htyewOTMtH25n+F5CeVbx7NOYMnDNhY8fWRI3nGg4eroOHbwTwIj3xgZJjNr
D90P/oB9zmfX5/tEhgLR3qaPy6PYabMrQXyTZDjmwKUlHD6KlaXlT/B9IwPl
8cXLt+LfYzvFG5p3zeP573TOXKwZwYo6jdZ2LZKB3BD+vMpsBNM//lyZ/ycZ
3tzqHDUeGcZOPhzK418lw9MzLg2Ptg1jvWaLpwX+kkHNnLAhe3III82EPhSg
p4DVdj2Woh1D2Fba1ozANgpovE4Zq7v3BlMe2eEiyEwBLQ7CofSFQSz9uLTO
bk4KpFXukra/MIDZprss7xGlQJm7hzoP82uskqn1vtk+Cty1qT67VfMKY4+S
9Q2UoEDnzwRVD9IrrIu6/PG5DAXEFCeh61ofhozTusJUKHDnSM7f3IM9WE79
cmyRGgXMd9jWejZ1Y+vKrtgrDQqE7f6mck+zG3soLFclo0MBXtrbe6VyLzG5
ldYbQ4YU+N2ReUdS6TmWcELOnsGEAr94H3IuP+zCPk+kcSmZUaBVFnzWsC4s
r881Pt6KAqMpkvf87Z9hfHdX/DSOUuC2itWoyK0OjM5V3iiDQAFZrdzse6mt
mHt/+uZTEgUIrx9IkzVasScWq7XTFAqcfR3Y8OJ9Cxai2a5geJICKkzlSieU
W7BZDvddCzQKKKKOhzn9TZhVfHufUBgFJlUOTm5pNWG3N+STzSMoQLeurWyQ
14h5T61u5UVToChfVXA/7Sn2tuXS1KHzFAh+2mJtafwE0ziwVhCeRIELvVmT
Rk8fYxkV7m7FKRR4u7ElXq/zGLO+odC/mUYBhsxyszmdeqw1uOPJvSy8nmJv
Ci3s67AKmfVU1lIKVJ01f9K6XI1tXS8U5SqjQEnrmRKF69XYfzv/q+SvoECL
zWaPOqrG5hcKXktU4fNzPvp5+8UqTOWxNR96jOdhdnHup/4DLGb/apFJAwXi
LXeWZ81WYq/y8jUPNlIgXVz29u3cSizg3Iq9YysFDh/s6pvZVolVWd+6HvgC
z2/X1EZPcznG0GQlH95NgfsQ+f6kZjlmq7r8+EwvBbJuYQbxZWXYz11Woxf6
KRDpYnZnPv8epjH2U+T2OwoMmBgKpt+5i9UFmBe9/47nUcffGSRcgrF8XtSY
mMXnZ6WQOlpdjDna53RMzVFgvSZKRPJQMbamu/h1eYkC1nEX7yvFF2G6jDfk
uDbwep7J67RlK8SSQ0wf8//B96daE1P//QLs3dS81d6/FIjxq7m/aF+ARfaY
nJDfRoWKq19py3fzsYZrcxUmO6jgmlO3w9r7FraT9TocZKdCrx1xlo3vFuYa
afzKhpMKtN0ynuTUm9gfj6xFd14q5MizRh71ycOQnJFGuBAVzHJWUjf252DN
T67WlytQgXrfkDtNMws7dpR0fUGRCu/YIu64V2di379rhaurUIFZoSxqUD0T
49szfKBegwr8GpEvovSvYeSwPY/aMSqw38nQ9Dp+BdvknMlkNqCCHPuqwsbm
ZSz99pNQKyMq1MPMubfpl7HHQ67ar8yosK1KrEeuKQPj0LxZ+/4wFfpPcGzS
a17CCrtPXROxpUJJpX5exNt07ADBIMTLDvcFRrrxyHTM+/InzW+OVCB5P9u4
fCUNq1mUqFnyosLJJwWcsusXMNeKO9WswVTovPnOr849EVs0Db9sHUKFc8o1
DkPD57GED5ZBaWFUEA/liW48dh6r3DmjtiuKCgOHd7k/cEjAth1XrBJLoIL7
w+C7tyLisCyGrUs+iVRQ8X/TkMAah+3P7g0oSaZCgfpM7Yvsc5j981Oq+9Oo
0MKTdV6vPRYrlamq1M6iwm051uVQ1bMYNMWmR2RTgW4ufoChPwYbtD/q/zSH
CpiI7XRacAz2J/6XsnE+FQI+JfJznDmDHfmsdf+/UjzfrNuu+W9PY18imdMu
lVHh12//7BKt01gE77DfYAUVdIJtXvFej8SKjMKVnKup8HtCaecYOQLTeWfJ
kVtDBVvHX8Q9g+FYb8CeubE6KgQ6XXQLMw7HvFlnesQfU6GuWz14qiYMW731
pJzYQIWk9OKzzgph2P/KgqTj
          "]]}, 
        Annotation[#, "Charting`Private`Tag$13251#3"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.922526, 0.385626, 0.209179], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwV13c8Vf8fB3BSRtmjRPZWGRnhy32VGV3ce42sEMIVl5ybEpUUbRERKRlt
MyUNoTLaKg2ZLYUIUYr0+/z+Oo/n44zH57w/5z2OSlA0a+McHh4ed14env8f
BxgncgoLnluFp57ZXjsaBcVFJ7lpupU0a/OwBTeJh7+sM9mk20B7eyGm7g4x
3TbI4ChaafNqB9ObiT0YNce9ddto0kIFKc+J9+78L3PIuJ2W9uDZyV7iq6UN
6TvwlvauaerFKPHHd3ZpYk5dtKi4mKXzxqJwYO/nJoZuHy1LSufsEuIz8hfu
5+p/oOWef4+VxLVXIu59MP5Ee2Z1Y9qduM1x+d2lFv20E0v3vN1C/LXvewMX
X2mKF8Vf5xLzbLtSX2c7SEvbuH2igXiR2JY7/E7faNv8jhgNERcr/l1P1x2l
TQYLSTmOR0Evwr97dNkYrXXT2upE4pvX6v2O64/T5GXaqGriF/Rk3x7jCdri
dY3uuj+i4H/i47vklZO0mKhSbgTx4EdbHy2Ln7TGK8yrZcRzEgS8YzBF658O
zbCaiEJac/hbaevfNP8zW/QOEstJPlx3w/YPjbfUabCD2PDiYc85TjM0k7kF
dcmTUagcEtR10uXBmb32j37/jEJcxg12/mUepMf4eQX8ioLlyoiLI8t44Vk0
d04rcWvyI+1M/TlghUpfLpqKQu/iNK0u47lYlV3ptONPFErqaWF6NXORvD+m
Zpo4YuP3c0kr5+HjTabljuko/KxkaGpY8OPGefXsAzNREF0jpcGBIDoqg7a2
zEahffheSEODIMTX00r9/0UhL5NbImkthNCQLVNTxJq9r9Su286H0IG/r0x5
ObCKO6HK4ySMOUvqct7wcWD6QlTcUVcc8ZmTbaVCHDSsf38oKEYcDsvmr0md
z4HTQLVAYo040r5s9wpewIE/j/e/cmsJ+M39YK0twkGqXvGItK8kMLVLu1uc
g9cHVz7pOySNy6q1GeOyHAQunO/457k0Xm5QtJ8nx8FgYdd9KVkZBFg83Scv
z8Fs7e7b9iUyeCJ9rpylwIHml0eXS28vxA1BQ2pIhYMtNoEHtw3LAluMBJqX
kuufruA/ZrQYB7fMUZZYzsF+n3nJl+MXY97Uo5oAPQ7yN1+K75knh4++aT4C
hhzcL5gIt1WUx84rk35JphxIz+x3EHdVwCFvGS9Zaw583nnNcX+rDGbbkd9v
fDmg9+5WF/2tDLrkRndqPQf4dMm+dbEKYm7l5koEcKA+MnPQ0lcF1R7ivZ5B
HIzwFkpp9KhAm95kMpfNQbLOgPrPj6rIbP8nMRDHwaVt8Q4nvqtD+UOL8sss
sr4dRWyWuAbSH+onP8jm4Gjyo0PChhrgp4zP3z3BAfewQltSrAZefQsyrcvn
gHam0Ys9qYERs7u2L0s4eNEiFGExrYmCR+3Du69xML0w73AXvw5etFYl9b7l
QPvPas9xTR04674QU+7kwL17QEnQQQeWtPnywd0clBebVxvt04Gta0vB6Huy
PwYdHQcFdLG1/5a5zhAHzY6yWuaCS5F6Pz5EbJaDY4nZjceFlmOKo/utRCMa
0psdE7RSDWB8nc/4ZEI02kflt6blGOCC/fuvl3dGIytmJHbyggHc6RfF63eT
62MyI+49MsCIvFLlt33RkInu9g6QMITzQomRkKxoLIzabJaTb4ixmJbQlrJo
yLJzJ/mrV+CTlOyszYdoyG8YiO7vNUbtUe+jD7Vj0G66+xvzuxkqki58ls2L
wUz2be17HlYQD84qTVDcDJNe9qX2l6twK0H+XHvJZjRt3Dz39Btr1Km6RTJV
YnGkyok2yG+HmEb3o5yiWOiNKt0WlnBAb75ajq4EheszP/WFFzuA90zWjfuS
FFYJPS1eoOIA11s/RP2lKbBUEw/NN3SAqJCXa9oiCnHub30EmQ6wPHZS7LMC
hfra9N98GQ6w99n+NkKXAmM378pp8TVgBJ4ff25NIVbyY9WAuCN4rTe8+hBD
QTzU3DBnsSOkB6WiN8RSKL9xtNJW1RH5S627eygKg4GWFQVGjpjf7GX0Oo5C
UMXxUg9PR9jVvi+tSaTApK8533jSESovVyyg7adgkFqWn6vpBNkqtdWBpyk8
7eBb4qDvhAXzfcqvF1CIXO5zcmKlE8IjX78UKaRwoZ0/z9XRCfZHV9rWFFNQ
VgvMmRfphLYWv+JfFyiINUge21zlhCX38gr/q6Yw8nvrPkfLtTD82Dx+t5nC
OquegCDbtXhQX3ers4VCQ5KtWQJ9LQI3/GP8aKWQKSAxUOq3FtY177sVH1Ew
k7nkJL5jLb7eux8d9ozCHoMukTd1ayF6P3Ko7g0F2bBVWSGggzfXXibxC4Xk
S+cidzjQEf1TzzLqK4WhYWG7bFc6DJuCl6wfoHCH2zHZEkDHRHUyv/kQheDk
2HVLk+hwt/ix+f0IieepErnxBjpWaNnqTkxSsGkXLNxl7YwR0c8BCnxc3PUf
2Wu/1hlJmVquk8SrBl6Gi7g7w24y+dKjuVxYzp42OLnRGa9+DRdR/FwYa5s0
1Ox3xhLJwf2VQlxoJm7oHX7qjFpXq9PdYlyU8Dvcu/rGGSvC3/Hli3OhmrHs
fEKfM9YtKH3kJcGF0rlfHKFxZxStT931RJIL2bYjs+oyLhj1KgkrluFivvpN
BT9fF3S+abzOI8/F/vICXrUQFwheOv+nhJjfPOXzQKQL4njSsx2WcMHnwijb
utMF9iHqb/YpcDGztd8ys9AFLU2qkRNKXAw/kvR7+MUFULGJ2qHORaTnFDJG
XWAj4/yPX4OLwb5uNa/fLnhZ+Px9GnH/5IWhz/NdobZ4VXauJhc9Skjg1XNF
87Fj5XnaXLRRm/LMuK74tDJRb+0yLrqvGYS/TnTFtfz7h64TD/6aNOGmuOKW
2+nVqsvJ+hKTnldku6Lpi921cWLTvccFtW64omxIu3KXPhc2zT6v7ze6ws2u
pamHmCGoXBL00BV2B3YbWBpwwT58Cac7XRGvlMM3TpyfVR8nM+uKSIlzWY4r
uHDfZF3kzccAXSLW4SSxr7DGgQsCDHgeEqYPEYe7DHraizNwL1XUMdWIi90v
uOO7VRg4t0ZP4IIxiS+1rqNNg4G2SEerb8Rp0hYNSroMdDwTuatnwkWe578j
dSsYsHrAX1NOfPXdAZ3fNgwM/f3PKs+Ui5sJkeJr1jCwaK5ITxtx4xLXX9l0
BtaPH3g4byUXT/2lm4w9GODLXJQSQdz+7+flPd4MnD0Ww8ojfnem49iL9Qy8
+cwf0Ur85cPpwJhQBtj2KXFKZlyM7NntUB/BwFTIrYg1xBPqIXqi0Qx8bnh4
PpqYJ0xn5vJWBuwUFk3XEvMLCn/8k8CAbs558U5ikYsjDxyTGFBecT1qmlhu
qDrny34Sn36ev6bmXCgfzt5peoSBVW+P6bGItZbHb0zJIO8X4H5uE7HeU196
+3EGjtDGg/cQG0fTjNTyGHCulQ/LJbYQV5GLPc2A/redFWXEq6r4eBuLGNj2
9pFlA7E9q/+L2HkGevddEX1O7Pyj9an/ZQZSrn1U7yN2z7p8rayCgRwxiV3D
xD4mafkz1QzwXvy25Ddx4OuYPWtrGYgX1JmdY8FF6Fa3iLzbDFg/ilddQBwp
a8ocaGBAtv/YAQli6oasmVkTiccCHaOFxNt9phX3PWCgOH5McTFx0nT3vNdP
GHDSK6LL/f/+rDW5754zoLDl5sv/n/daXr2s9xUDx7K9Xy8itm1WaPjYwcC1
uXbu0sQGAfvdvnaT9ZZbO4sRL5ka7//2ngGxf7KNgsSCGeu3j31mIONWWgUP
8YROq8jPAQYO7Nkk+4u8T9/dFYV/hhkQHY6bHiJ+7HvK+N8YA4VUvFcvce2E
QCvfTwaWD/+n//94lRyJ9RX8w8DdqH27GonTNbtHhGcZqDDTdKwkTqx3SJaY
w0SxxYdDp4jDva7ILORnQsUg1eEA8eqD+yyVRJnYW1qt7ff//VQbf6YmyYS/
6itnG2K5237B2guZ+JEuOqRNPD5seNBQkYmr3rOHv5PvpSc1X8FUlTwviZHR
RvxQSaDKQpOJQ//GhCuJi5hdb2z0mBANCmRHEKcN2m9as4KJDcZPHO2It++p
mqWbMrEsuPWMIjHrWqqGJ40JxY2VVY/J9z5nsSEV7sLEnF3wWUg8UnWSP4rF
xJEV8oOfSD69c+LP2+zJRP8Rue9VxFcSOxu2+zNxP6FznQNxcF+K6BEOE4Pp
jwsCSH4y4kcLM2KZYJcZtKsQW0r6mmTHMWHkEJX4geS3tK2BX8FOJi7Oe6MV
QHz//LuLVWlMPA4z67cj9aFylZ1VzTEmRiVMr02T+pHfUdF2M5sJnqTenxXE
3AUpv+6dZsLiQelzKWL1aH271+VMFK0Of99K6lOK6d6+P0+ZCHz4jf6V1LuZ
2PJ4z5dM/K1vuptIHFvxVvLKGybG+rqDxIgDtZfbsfuYyA1YpaJP6qeF3OuL
b8aYKN24JNNLl8TjrxZ1VZoFk11N+m6kHodYsITFF7NQ17nD4iGp151xiWc3
KbAgbZceBeLW721vVDVZcHy4ga5O6n3R+3jLjJUsnLqqNvhGhQvPpkfzOD4s
hFnOZPaT/vGY9+fpB/4sHLmtJbeK2IambKYRzMKgNtWSQ/qNwXVuRNcmFgIf
qOWsliP96aLCM6cdLLzOzhTatYiLO4ejT2idYSG+qMywkPQ3TXeppe8/szA/
KTk8mfTP5P1NMeMDLJQdz3hXQfprz+2tNXwjLCgFGFV2zuEiR6NrteZPFu6c
sErV4yX586vEaxO/GxbYGfQ0/KUwkGuaOqnpBuahctsTPymU9nq/Fwp3A03q
GU2SzAeC0sJa8pFumN9XaircTyFkzZ3IZTFueJxQkzn3MwWFKtUpl21u6HE8
tWP0A4W05CHRrP1uqFNSlLrWQyFGY4el4kU3xGcf8h57RcFo05mcFYNu+KaQ
IrnyHgU5G8mPeSNu4M8RKfrYSIFHfq8e3w83VF73cUtrIPPVw7Cml9Nu0D47
K99TRyFcV/8HV8Qd6ow0p7BaCqcH6lyuG7hjeqvtGuUyst7wznmWW93RcMfL
Ru84mafgzCxJcIeOSE1MQSaFV4vq84WT3PG87XGz6DEKRS1FRt373eEVZjXy
JY2ClVbEhp157lB+xjXcS+a92P6p2w117hj8L685JIFCV8hCrt1cDzguf2DS
GkDhoOw241xBD0hpSfsL+JP563HHxDdhD9DO4oGtH4Uso1NbsmQ8MHE8jn3T
iwJ9jvrWj5oeyO2j3qUzKdwqMNy+29EDzXK3WwfJ/Jr3jp5Ul+aBwNFIWw91
Mv8x9hw2WeyJyfWt44s/xGJwOvI3TcETAlbaipJ9sdh53jN0jYonHsykdAr2
xOLcrM4qXx1PxNS9FBnviMVEaduPJHNPuIgN+VQ/j0W6kKLvY29P9AolDI01
xOLh3Vqd4DxPZL2syN9wOhY0k5HmdPl1eHZxzEDVIxaNM6s3lxl5ofxQ/OAG
Mu9X1WVamZh7Q/TOYyweikFsTJddnrkPTG3VLV6px+DZPNE7Da6+WPrBgEc9
kYMTWVZeLDc/kre+XQPXIjE7zzPobOR6UA+X3emtiYAJe+OFV0n+6Dgalk+/
Fo63TbHim5MDoNXEfjXxPBSHko0n+umB2F5Z3FrREoK+03pjTs8CsXvT38HS
L0FQNFY/rOC6AdvPCm6RV9iASxaivW0dG5AhJ0P+UfzxzerXXXPfIBxuzjDt
1PJF4pV2/z3kPjuZywF/G9fhnlrVoeSIYLifeJrh88Qd4yIHPEcHgzHj8c/E
SImFaLZHBy0uBN/XXTi85LsLihuVh62nQmD2Syw0eosTNA711WqlbERsQJlD
l7I9jj45qZogFooDiYUJbsHWqBT2VNibHgq2wJKNCZdpUKqb2xa1JAyvBLzX
rh4zg23EFSmRgjCkLJqyNA8wRpeo+VqRwjDMdLU2XnUxBre6PlmkOAxNMyYt
FjRjnJ15PCZyPgxhaedsQhWMwX/0yzPRijCUvlc7ZtFlhNbqJYfF68Pw1K1u
qt3XCGv/ps6V7g1DbNzTTVeDVoCV7jsppxSOBYb9MEszQCX/3Qp7lXB0pmSt
59tlAJEd2hGxauE4/KWoqCPaAK3syZ4HWuE4qrv3yHmmAWg2R1u3GYSjYmMQ
q1XGADo/7558vTocozbCQ4ar9MHjp2t9LCQcxXKKQsXxy1Gu9TtN6FI4NC9b
fhvW1cVsbrGSeGk4hFT/S4mV0oWLsEvlwvJwRDLNrQRndPB9tOi52pVw7IXO
19AnOjC4SZem3QwHT4+QxWiMDq7Qz+TGPgzHmemnHktvaeP6ZoeSzsFwiC8P
fC7gp4WGW8dvlC1lY8GpaOOkJ+rwcAvNHV3OxjmPmNUt19UxOGgab2TAhs9X
vjkqReqQlntrdsOYjfsuJ6OFt6ojbJtc7X0rNk7ebr7ZqKIOUZOCmk5XNoL+
7RTI364Gv/IL1UJcNlxLdCrrzVUxZhefSY9jQ2t0p6CDpipSux2po9vYGH62
6kKvpCrZ/6EVMjvY4OPZnmH7TQV8m5ZfUU5lQ93Y+HlngQouaV2pXHmCDcm8
WXvT+SpAfXL69jw2Eq9u63r8Sxntnm4xdfls/Ke6VYD7WRl/Uyb0bQrZUH70
YexHgzIYn0wrXC6xker6+1PtNmV8ThA4mlHKxnXW1fEXocrYLvWW017ORuiM
PO2vuzJKrOP1fKrZOP3HKSjZUBnm7xxFT11jw2SvmUa3kjKebpYb6b3Oxq2L
rn8cRJURJDT0RPUmG3uFeMpSfivh15lbZRtvszH2VtP/5Gsl/A8vn1rW
          "]]}, 
        Annotation[#, "Charting`Private`Tag$13251#4"]& ]}}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {0, 0}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"\\!\\(\\*SuperscriptBox[\\(W\\), \\((3)\\)]\\)(\[Theta])\"", 
         TraditionalForm], None}, {
        FormBox["\"\[Theta]\"", TraditionalForm], None}}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Identity[#]& )[
            Part[#, 1]], 
           (Identity[#]& )[
            Part[#, 2]]}& )}}, PlotLabel -> 
     FormBox["\"\[Gamma]=1000\"", TraditionalForm], PlotRange -> 
     NCache[{{0, Rational[1, 1000] Pi}, {0., 0.005383114191769193}}, {{
        0, 0.0031415926535897933`}, {0., 0.005383114191769193}}], 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"\[Chi]=0.1\"", "\"\[Chi]=0.5\"", "\"\[Chi]=1.0\"", "\"\[Chi]=5.0\""},
       "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.922526, 0.385626, 0.209179], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6150173333333333, 0.25708400000000003`, 
                    0.13945266666666667`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.922526`", ",", "0.385626`", ",", "0.209179`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.922526, 0.385626, 0.209179], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.862914810587873*^9, 3.862914839620829*^9}, 
   3.862914886271826*^9, 3.862915118391304*^9, {3.862915165477912*^9, 
   3.8629151954186993`*^9}, 3.8629169244946213`*^9, 3.86291791805239*^9, 
   3.862971326799766*^9},
 CellLabel->"Out[29]=",ExpressionUUID->"1c674441-dda4-4bf0-8f4b-53633dc2e2e3"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["<\[Theta]^2> mean-square angle of the power spectrum \
asymptotic expressions", "Section",
 FontSize->24,
 FontColor->GrayLevel[0]]], "Chapter",
 CellChangeTimes->{{3.862928225660325*^9, 3.8629282569900227`*^9}},
 FontSize->14,ExpressionUUID->"861bee43-68aa-4841-958d-f3741ee51186"],

Cell["\<\
To get the exact <\[Theta]^2>  as in the text, we need the Jacobian from du \
dz (\[Omega],\[Theta]) to calculate the numerical integral. We then compare \
this with the asymptotic expressions.\
\>", "Text",
 CellChangeTimes->{{3.8199926778850107`*^9, 3.819992715762689*^9}, {
  3.862914765828362*^9, 3.862914766341243*^9}, {3.862969842667893*^9, 
  3.8629698728064823`*^9}},ExpressionUUID->"ae9e01ef-1170-4e12-a641-\
e112d99c8d4b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[Gamma]", ",", "\[Chi]", ",", "\[Beta]", ",", "u", ",", "z", ",", 
   "\[Theta]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"1", "-", 
     FractionBox["1", 
      RowBox[{"\[Gamma]", "^", "2"}]]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u", "=", 
   RowBox[{"\[Omega]", "/", 
    RowBox[{"(", 
     RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"z", "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"2", 
       RowBox[{"\[Gamma]", "^", "2"}], 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         RowBox[{"\[Beta]", " ", 
          RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"3", "/", "2"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"u", ",", "z"}], ")"}], " ", "is", " ", "a", " ", "function", 
     " ", "of", " ", 
     RowBox[{"(", 
      RowBox[{"\[Omega]", ",", "\[Theta]"}], ")"}]}], ",", " ", 
    RowBox[{
    "so", " ", "we", " ", "need", " ", "to", " ", "calculate", " ", "the", 
     " ", "determinant", " ", "of", " ", "this", " ", "change", " ", "of", 
     " ", "variables"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Refine", "[", 
   RowBox[{
    RowBox[{"Det", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "\[Omega]"}], "]"}], ",", 
         RowBox[{"D", "[", 
          RowBox[{"u", ",", "\[Theta]"}], "]"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{"z", ",", "\[Omega]"}], "]"}], ",", 
         RowBox[{"D", "[", 
          RowBox[{"z", ",", "\[Theta]"}], "]"}]}], "}"}]}], "}"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Gamma]", ">", "0"}], "}"}]}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[Gamma]", ",", "\[Chi]", ",", "\[Beta]", ",", "u", ",", "z", ",", 
   "\[Theta]"}], "]"}]}], "Input",
 CellChangeTimes->{{3.8629282824363623`*^9, 3.8629282826485157`*^9}, {
   3.862969877952866*^9, 3.862969916372746*^9}, 
   3.8629760635901127`*^9},ExpressionUUID->"bd126372-4e86-41c9-b7f0-\
cda2965e9f54"],

Cell[BoxData[
 FractionBox[
  RowBox[{"3", " ", 
   SqrtBox[
    RowBox[{"2", "-", 
     FractionBox["2", 
      SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
   SuperscriptBox["\[Gamma]", "4"], " ", 
   SqrtBox[
    RowBox[{"1", "-", 
     RowBox[{
      SqrtBox[
       RowBox[{"1", "-", 
        FractionBox["1", 
         SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
      RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], " ", 
   RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}], "2"]]], "Output",
 CellChangeTimes->{3.862916907932889*^9, 3.862971329917857*^9},
 CellLabel->"Out[34]=",ExpressionUUID->"b9b2f42c-6ff7-480c-a2df-638f88d94698"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"\[Theta]2", ",", "\[Theta]max"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]max", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]2", "[", 
   RowBox[{"\[Chi]_", ",", "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"\[Theta]", "^", "2"}], " ", "\[Omega]", " ", 
        RowBox[{"W3fun", "[", 
         RowBox[{
         "\[Omega]", ",", "\[Theta]", ",", "\[Chi]", ",", "\[Gamma]"}], "]"}],
         " ", 
        FractionBox[
         RowBox[{"3", " ", 
          SqrtBox[
           RowBox[{"2", "-", 
            FractionBox["2", 
             SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
          SuperscriptBox["\[Gamma]", "4"], " ", 
          SqrtBox[
           RowBox[{"1", "-", 
            RowBox[{
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox["1", 
                SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
             RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}], "2"]]}], ")"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"10", "^", 
         RowBox[{"-", "12"}]}], ",", "\[Theta]max"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", 
        RowBox[{"0.00001", "\[Gamma]"}], ",", 
        RowBox[{"0.99999", "\[Gamma]"}]}], "}"}]}], "]"}], "/", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"(", "  ", 
       RowBox[{"\[Omega]", " ", 
        RowBox[{"W3fun", "[", 
         RowBox[{
         "\[Omega]", ",", "\[Theta]", ",", "\[Chi]", ",", "\[Gamma]"}], "]"}],
         " ", 
        FractionBox[
         RowBox[{"3", " ", 
          SqrtBox[
           RowBox[{"2", "-", 
            FractionBox["2", 
             SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
          SuperscriptBox["\[Gamma]", "4"], " ", 
          SqrtBox[
           RowBox[{"1", "-", 
            RowBox[{
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox["1", 
                SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
             RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}], "2"]]}], ")"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"10", "^", 
         RowBox[{"-", "12"}]}], ",", "\[Theta]max"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", 
        RowBox[{"0.00001", "\[Gamma]"}], ",", 
        RowBox[{"0.99999", "\[Gamma]"}]}], "}"}]}], "]"}]}], "//", 
   "Quiet"}]}]}], "Input",
 CellChangeTimes->{{3.862917026121852*^9, 3.862917027490512*^9}, {
   3.862917131403103*^9, 3.862917267570977*^9}, 3.8629174848627872`*^9, {
   3.8629175505289307`*^9, 3.862917563445551*^9}, {3.862917715119177*^9, 
   3.8629177246106567`*^9}},
 CellLabel->"In[36]:=",ExpressionUUID->"541944c3-e11e-49b8-94d5-00f430c25759"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "we", " ", "then", " ", "choose", " ", "a", " ", "fixed", " ", "electron", 
    " ", "\[Gamma]"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Gamma]", "=", "1000"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tab1", "=", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "^", "log\[Chi]"}], ",", 
         RowBox[{
          RowBox[{"\[Theta]2", "[", 
           RowBox[{
            RowBox[{"10", "^", "log\[Chi]"}], ",", "\[Gamma]"}], "]"}], "//", 
          "Quiet"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"log\[Chi]", ",", 
         RowBox[{"-", "3"}], ",", "3", ",", "0.5"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tab1low", "=", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "^", "log\[Chi]"}], ",", 
         FractionBox["5", 
          RowBox[{"4", " ", 
           RowBox[{"\[Gamma]", "^", "2"}]}]]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"log\[Chi]", ",", 
         RowBox[{"-", "3"}], ",", "3", ",", "0.1"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tab1high", "=", 
     RowBox[{"ParallelTable", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"10", "^", "log\[Chi]"}], ",", 
         RowBox[{
          FractionBox["1.76", 
           RowBox[{"\[Gamma]", "^", "2"}]], 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"10", "^", "log\[Chi]"}], ")"}], "^", 
           RowBox[{"(", 
            RowBox[{"2", "/", "3"}], ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"log\[Chi]", ",", 
         RowBox[{"-", "3"}], ",", "3", ",", "0.1"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"ListLogLogPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"tab1low", ",", "tab1high", ",", "tab1"}], "}"}], ",", 
     RowBox[{"Joined", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False"}], "}"}]}], ",", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\[Chi]<<1\>\"", ",", "\"\<\[Chi]>>1\>\"", ",", "\"\<Exact\>\""}], 
       "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<\[Chi]\>\"", ",", 
        "\"\<<\!\(\*SuperscriptBox[\(\[Theta]\), \(2\)]\)>\>\""}], "}"}]}], 
     ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", "None", ",", "\"\<OpenMarkers\>\""}], "}"}]}]}], 
    "]"}]}]}]], "Input",
 CellChangeTimes->{{3.8629173817152367`*^9, 3.8629174341935987`*^9}, {
  3.862917516483799*^9, 3.862917521378471*^9}, {3.862917574777066*^9, 
  3.862917580566766*^9}, {3.862917870210082*^9, 3.862917948887245*^9}, {
  3.8629179839937153`*^9, 3.862918002052885*^9}, {3.8629331404509077`*^9, 
  3.862933141938439*^9}, {3.862969945889217*^9, 3.8629699461756477`*^9}},
 CellLabel->"In[39]:=",ExpressionUUID->"78163c4d-0198-4364-86f2-7b2bc58af564"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxd0z9IAlEcB/BDTImS9PyT+SeVMKgGoamh6MAgaIogHAqM6M/QEE1RS7hJ
S4OKiXVkkINQ4GBQBtkY1CSCDdcYLUUIRQ1i+X533+AdHMeHd++93++93y+w
vDm3qhMEYeLvbX9PWgeZ/Zy7Mpbaup4JjVSi5cTlXckF92+nq9/3fbAymv0I
PTvho3fZtN7ohRcKp8Oy4d+utfx0zeWA64HCSnfIDh8q57Fw2AZHMkV5N2KF
7fOlcnFDhGvmq/rrngVOPtx8+pJm+MwcC17M9sAD8XjUs2OCKd8uLr9OOMvy
MXLxG+A0i1fPxaeDEyweAfaz/Zu3mr1svx/Ywdb/gkW2XgN2s/lvsIX9/wJb
2bgCdzA/ws1W+6mOa56i8UnNQzQf9tL68CDtDzspPthD8cN+yg8OUv5wis5H
Qv50fjDVg17izh+mejNK3P1J3P1K3P3DeaoPWK0fWK0vLj4RVuuTi9cGP1F9
w26qf3iR+gM+pv6B1f6CfdR/8BL1J5yj/oV/AU7gupc=
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJw1UwtIk1EYFVeapbhc09wyt+mme7n9SlnR2CWNXkQvTDTLHqakPSyKsLJc
WVhYglozVpY9xCwLM0PT+k/vl4U0LE2NktIerMcqU8hW/Xf/hcvl8t37fed8
3znylRsWrvb08PAw/dv/z5OuoqMHKqSI2WFfNPiSQWpTydWb9RKo7/3R19Qx
GL/Vah94GIzxQs2IFYUMuqNtXw2vxkKUnNAzZjWDY5/L/TKcQRhxJq/5gYnB
kupTmnKvIAw5zh/ZEchAkl45o00SCGfsi2zjFyPa5dVpvgYx+iyec97eN6Ks
u8YSFzcG3Y/1yrKTRiQerS3flijCM3GSa06OEeKE+qbarADcT83vcC0wok3Y
2P5+12g0n7tUV6cxorSl+WdoqRCXv788mCEw4qzQorw43x9zt/u2TmwwIKyg
IHVcjh9i/Vfll68xgPIdBcXpxkleUoObnw98Y4WOdS1RsHF8vNH/KL2iLTfK
jd8Lb5ZdTzAZomDl8A7DY6do5NnXejc+T9Tvy7zhW6xHCYfHAyckNzdtjtND
xtUfYg9cDIro+qFDCFdvkN08bX1nXKUOgVz+fnbZ8ztF5xN1CODyOdmZmdJ4
kY8OUu6/g435s3Fg2zUtRnPve9mQ4gcXerK0EHHxbtZbFbpidogWw7n7E9bZ
uEV8+akGQ67/yz61a27Lw+A8DeJp3HzvjWKnhdFATf+ba7fkRH/oUSOE5jfb
fFp755eqoaL1zXuPq2wN09UYS/GZs5ncebJfkRhH8ZuT79oFBVWRkFF+5vgk
TcOXpEgoKX+zwZG3NnFUJA7T/pBgywsZ2xyBQNo/IhBHtanWR7j1MIx8rsrf
fyg0gu8/aZ/aaepvVbn15k1utTLOpbtV/PxITVpB5d0YFT9fYh14lax/p+Tn
TyyFE/wPH1GikuqDZMkKb/+eoeT1QxZf6dmaNhjO64uQmZN1LdXhbnwBRNtV
9DomJZzXJxFn95ba/MJ5/RKXwDRLwIahg+qbfLCWDGVmh0FK9U/s2o+1z+Rh
SKH+IDdYkj7FrsBx6h9StcgqOZWv4P1FSvocT30mKhBK/Udyt8fv2dgnx3Lq
T5Lhb4vtKJOjgvqXLDj97ROZLcdfDqPdzw==
         "]]}}, {{}, {}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{{
                GrayLevel[1], 
                PolygonBox[{
                  Offset[{0, 3.75}], 
                  Offset[{3.75, 0}], 
                  Offset[{0, -3.75}], 
                  Offset[{-3.75, 0}]}]}, 
               AbsoluteThickness[1.5], 
               Dashing[{}], 
               LineBox[{
                 Offset[{0, 3.75}], 
                 Offset[{3.75, 0}], 
                 Offset[{0, -3.75}], 
                 Offset[{-3.75, 0}], 
                 Offset[{0, 3.75}]}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.560181, 0.691569, 0.194885], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Scaled[
          9.75]], {{{-6.907755278982137, -13.65924839595714}}, \
{{-5.756462732485114, -13.641870441185617`}}, {{-4.605170185988091, \
-13.618384738700282`}}, {{-3.4538776394910684`, -13.556070737789314`}}, \
{{-2.3025850929940455`, -13.413098403116074`}}, {{-1.1512925464970227`, \
-13.091428807429676`}}, {{0., -12.6990707273397}}, {{
         1.151292546497023, -12.161151729318494`}}, {{
         2.302585092994046, -11.56092862502059}}, {{
         3.4538776394910684`, -10.868940086286242`}}, {{
         4.605170185988092, -10.142106171983055`}}, {{
         5.756462732485114, -9.406296622544993}}, {{
         6.907755278982137, -8.66688536991353}}}]}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, 
     AxesOrigin -> {-7.489397867576988, -18.57612833796615}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"<\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(2\\)]\\)>\"", 
         TraditionalForm], None}, {
        FormBox["\"\[Chi]\"", TraditionalForm], None}}, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Log, Exp}]}, {
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Exp[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Exp[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-7.489397867576988, 
      6.907755278982138}, {-18.57612833796615, -8.645026562926121}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {
       Charting`ScaledTicks[{Log, Exp}], 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"\[Chi]<<1\"", "\"\[Chi]>>1\"", "\"Exact\""}, 
      "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{{
                    GrayLevel[1], 
                    PolygonBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}]}]}, 
                    AbsoluteThickness[1.5], 
                    Dashing[{}], 
                    LineBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}], 
                    Offset[{0, 3.75}]}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 9.75}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.09205128205128206] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{{
                    GrayLevel[1], 
                    PolygonBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}]}]}, 
                    AbsoluteThickness[1.5], 
                    Dashing[{}], 
                    LineBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}], 
                    Offset[{0, 3.75}]}]}], ",", "9.75`"}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8629175232586718`*^9, 3.862917661236656*^9, {3.862917858865864*^9, 
   3.862917881876742*^9}, {3.862917946702121*^9, 3.8629179497884493`*^9}, {
   3.862917984653675*^9, 3.862918002592018*^9}, 3.86297145626643*^9},
 CellLabel->"Out[43]=",ExpressionUUID->"a1544ccc-32dc-49cf-8f8c-c7cc36ce7ac5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["<\[Theta]^2> mean-square angle at fixed photon energy \
asymptotic expressions", "Section",
 FontSize->24,
 FontColor->GrayLevel[0]]], "Chapter",
 CellChangeTimes->{{3.862928225660325*^9, 3.8629282749647303`*^9}},
 FontSize->14,ExpressionUUID->"9edca92f-2c73-49bd-aff8-6350ac9743d5"],

Cell["\<\
We\[CloseCurlyQuote]ll justify the asymptotic expressions in equation 2. \
Since there\[CloseCurlyQuote]s a 1-to-1 relation between z and \[Theta], we \
first need to invert this to perform the calculation of the integral, \
obtaining \[Theta](z).\
\>", "Text",
 CellChangeTimes->{{3.8199926778850107`*^9, 3.819992715762689*^9}, {
  3.862914765828362*^9, 3.862914766341243*^9}, {3.8629284629069777`*^9, 
  3.862928523418243*^9}, {3.862932951538018*^9, 
  3.8629329590582457`*^9}},ExpressionUUID->"33216c55-2ff5-4be9-9bc4-\
fc2ee445e23b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "c", ",", "u", ",", "\[Gamma]", ",", "\[Omega]", ",", "z", ",", "\[Chi]", 
   ",", "\[Beta]"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Beta]", "=", 
   RowBox[{"Sqrt", "[", 
    RowBox[{"1", "-", 
     FractionBox["1", 
      RowBox[{"\[Gamma]", "^", "2"}]]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"z", "==", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"2", 
         RowBox[{"\[Gamma]", "^", "2"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"\[Beta]", " ", 
            RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}], ")"}], "^", 
       "1.5"}]}], ",", "\[Theta]"}], "]"}], "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", "1", ",", "2"}], "]"}], "]"}], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.8629283885590076`*^9, 3.8629284150388937`*^9}, {
  3.8629285288054123`*^9, 3.8629285503961067`*^9}, {3.8629286145933228`*^9, 
  3.8629286192851048`*^9}, {3.8629286660505943`*^9, 3.86292868863656*^9}, {
  3.862929255389996*^9, 3.8629292673313103`*^9}, {3.862932861619512*^9, 
  3.8629328629412203`*^9}, {3.862969966148326*^9, 3.862969996510954*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"5c502f7b-a05a-48d1-ab52-fe73f3f399a8"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "ifun", 
   "\"Inverse functions are being used by \
\\!\\(\\*RowBox[{\\\"Solve\\\"}]\\), so some solutions may not be found; use \
Reduce for complete solution information.\"", 2, 46, 2, 17344669030617838665, 
   "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.862928668985735*^9, 3.86292868892518*^9}, {
   3.862929255909623*^9, 3.862929267697928*^9}, 3.862932863352216*^9, 
   3.862971471461234*^9},
 CellLabel->
  "During evaluation of \
In[44]:=",ExpressionUUID->"cb8b0c0f-787b-477c-bc1e-7b4a6d260685"],

Cell[BoxData[
 RowBox[{"ArcCos", "[", 
  FractionBox[
   RowBox[{"1.`", " ", 
    SqrtBox[
     RowBox[{"1.`", "\[VeryThinSpace]", "-", 
      FractionBox["1.`", 
       SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "0.5`"}], " ", 
       SuperscriptBox["z", 
        RowBox[{"2", "/", "3"}]]}], "+", 
      RowBox[{"1.`", " ", 
       SuperscriptBox["\[Gamma]", "2"]}]}], ")"}]}], 
   RowBox[{
    RowBox[{"-", "1.`"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["\[Gamma]", "2"]}]}]], "]"}]], "Output",
 CellChangeTimes->{
  3.8629283999800987`*^9, 3.8629285542900333`*^9, 3.86292861952687*^9, {
   3.862928668950366*^9, 3.862928688890677*^9}, {3.8629292558769417`*^9, 
   3.8629292676673813`*^9}, 3.862932863369546*^9, 3.862971471472535*^9},
 CellLabel->"Out[46]=",ExpressionUUID->"759a75f4-3201-4394-8826-defa42f78695"]
}, Open  ]],

Cell["\<\
The domain of integration is determined by solving the limiting cases of the \
argument in ArcCos\
\>", "Text",
 CellChangeTimes->{{3.8199926778850107`*^9, 3.819992715762689*^9}, {
  3.862914765828362*^9, 3.862914766341243*^9}, {3.8629284629069777`*^9, 
  3.862928523418243*^9}, {3.862932951538018*^9, 3.862933000197057*^9}, {
  3.862969976390902*^9, 
  3.8629699779356613`*^9}},ExpressionUUID->"83ef2c06-1ef4-4c77-b918-\
600bd347489d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{"\[Gamma]", ",", "z"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Refine", "[", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"1.`", " ", 
         SqrtBox[
          RowBox[{"1.`", "\[VeryThinSpace]", "-", 
           FractionBox["1.`", 
            SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "0.5`"}], " ", 
            SuperscriptBox["z", 
             RowBox[{"2", "/", "3"}]]}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["\[Gamma]", "2"]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"-", "1.`"}], "+", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["\[Gamma]", "2"]}]}]], "==", "1"}], ",", "z"}], 
     "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Gamma]", ">", "1"}], "}"}]}], "]"}], "//", 
  "Simplify"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Refine", "[", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       FractionBox[
        RowBox[{"1.`", " ", 
         SqrtBox[
          RowBox[{"1.`", "\[VeryThinSpace]", "-", 
           FractionBox["1.`", 
            SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "0.5`"}], " ", 
            SuperscriptBox["z", 
             RowBox[{"2", "/", "3"}]]}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["\[Gamma]", "2"]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"-", "1.`"}], "+", 
         RowBox[{"1.`", " ", 
          SuperscriptBox["\[Gamma]", "2"]}]}]], "==", 
       RowBox[{"-", "1"}]}], ",", "z"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[Gamma]", ">", "1"}], "}"}]}], "]"}], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.8629294679678783`*^9, 3.862929501027062*^9}, {
  3.862929682677726*^9, 3.862929743477674*^9}, {3.862929839038342*^9, 
  3.8629298472476273`*^9}, {3.862932876252986*^9, 3.8629328777608347`*^9}},
 CellLabel->"In[47]:=",ExpressionUUID->"726ce66c-29cb-4d0e-ab9d-9f07cf790bd7"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "nongen", 
   "\"Solutions may not be valid for all values of parameters.\"", 2, 48, 3, 
   17344669030617838665, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8629298476172647`*^9, 3.862932878044289*^9, 
  3.8629714735205717`*^9},
 CellLabel->
  "During evaluation of \
In[47]:=",ExpressionUUID->"3993a476-e826-4200-9b13-fd16a077a59e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{"2.8284271247461903`", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Gamma]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "\[Gamma]"}], "+", 
          RowBox[{"1.`", " ", 
           SqrtBox[
            FractionBox["1", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["\[Gamma]", "2"]}]}]]]}], "-", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["\[Gamma]", "2"], " ", 
           SqrtBox[
            FractionBox["1", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["\[Gamma]", "2"]}]}]]]}]}], ")"}]}], ")"}], 
      RowBox[{"3", "/", "2"}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.862929476262238*^9, 3.862929501313504*^9}, {
   3.862929683016127*^9, 3.862929743982287*^9}, {3.862929839402947*^9, 
   3.862929847664414*^9}, 3.862932878086543*^9, 3.8629714735950537`*^9},
 CellLabel->"Out[48]=",ExpressionUUID->"8baecab8-fa3f-4bea-b467-4a776f620a99"],

Cell[BoxData[
 TemplateBox[{
  "Solve", "nongen", 
   "\"Solutions may not be valid for all values of parameters.\"", 2, 49, 4, 
   17344669030617838665, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.8629298476172647`*^9, 3.862932878044289*^9, 
  3.8629714736268578`*^9},
 CellLabel->
  "During evaluation of \
In[47]:=",ExpressionUUID->"639d4582-108e-431c-b5a9-308337ffddf1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"z", "\[Rule]", 
    RowBox[{"2.8284271247461903`", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"\[Gamma]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"1.`", " ", "\[Gamma]"}], "-", 
          RowBox[{"1.`", " ", 
           SqrtBox[
            FractionBox["1", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["\[Gamma]", "2"]}]}]]]}], "+", 
          RowBox[{"1.`", " ", 
           SuperscriptBox["\[Gamma]", "2"], " ", 
           SqrtBox[
            FractionBox["1", 
             RowBox[{
              RowBox[{"-", "1.`"}], "+", 
              RowBox[{"1.`", " ", 
               SuperscriptBox["\[Gamma]", "2"]}]}]]]}]}], ")"}]}], ")"}], 
      RowBox[{"3", "/", "2"}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.862929476262238*^9, 3.862929501313504*^9}, {
   3.862929683016127*^9, 3.862929743982287*^9}, {3.862929839402947*^9, 
   3.862929847664414*^9}, 3.862932878086543*^9, 3.862971473663818*^9},
 CellLabel->"Out[49]=",ExpressionUUID->"f2ae22b7-dd9a-48e0-83c7-3fa7f8b53c3e"]
}, Open  ]],

Cell["\<\
We now redefine the triple differential rate and integrate \
\[Integral]\[Theta](z)^2 W(z) dz / \[Integral] W(z) dz\
\>", "Text",
 CellChangeTimes->{{3.8199926778850107`*^9, 3.819992715762689*^9}, {
  3.862914765828362*^9, 3.862914766341243*^9}, {3.8629284629069777`*^9, 
  3.862928523418243*^9}, {3.862932951538018*^9, 3.8629329590582457`*^9}, {
  3.8629330066602707`*^9, 
  3.862933046562457*^9}},ExpressionUUID->"6a7665c9-7146-4b84-b2ac-\
f405b7eaa767"],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[Gamma]", ",", "\[Theta]", ",", "u", ",", "z", ",", "\[Chi]", ",", 
   "\[Gamma]2\[Theta]2", ",", "tab2", ",", "tab2low", ",", "tab2high"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", " ", "=", 
   RowBox[{"\[Alpha]", "=", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Gamma]2\[Theta]2", "[", 
   RowBox[{"u_", ",", "\[Chi]_", ",", "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{"NIntegrate", "[", " ", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"ArcCos", "[", 
         FractionBox[
          RowBox[{"1.`", " ", 
           SqrtBox[
            RowBox[{"1.`", "\[VeryThinSpace]", "-", 
             FractionBox["1.`", 
              SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "0.5`"}], " ", 
              SuperscriptBox["z", 
               RowBox[{"2", "/", "3"}]]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["\[Gamma]", "2"]}]}], ")"}]}], 
          RowBox[{
           RowBox[{"-", "1.`"}], "+", 
           RowBox[{"1.`", " ", 
            SuperscriptBox["\[Gamma]", "2"]}]}]], "]"}], ")"}], "^", "2"}], 
      " ", 
      FractionBox[
       RowBox[{"\[Alpha]", " ", "m"}], 
       RowBox[{"3", 
        RowBox[{"\[Sqrt]", "3"}], " ", 
        RowBox[{"\[Pi]", "^", "2"}], " ", "\[Chi]"}]], 
      FractionBox["u", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "u"}], ")"}], "^", "3"}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"z", "^", 
          RowBox[{"(", 
           RowBox[{"2", "/", "3"}], ")"}]}], 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", "u"}], ")"}], "^", "2"}]}], ")"}]}], "-", 
        RowBox[{"(", 
         RowBox[{"1", "+", "u"}], ")"}]}], ")"}], 
      RowBox[{"BesselK", "[", 
       RowBox[{
        RowBox[{"1", "/", "3"}], ",", 
        FractionBox[
         RowBox[{"2", " ", "u", " ", "z"}], 
         RowBox[{"3", "\[Chi]"}]]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", 
       RowBox[{"2.8284271247461903`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"1.`", " ", "\[Gamma]"}], "+", 
             RowBox[{"1.`", " ", 
              SqrtBox[
               FractionBox["1", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"1.`", " ", 
                  SuperscriptBox["\[Gamma]", "2"]}]}]]]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["\[Gamma]", "2"], " ", 
              SqrtBox[
               FractionBox["1", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"1.`", " ", 
                  SuperscriptBox["\[Gamma]", "2"]}]}]]]}]}], ")"}]}], ")"}], 
         RowBox[{"3", "/", "2"}]]}], ",", 
       RowBox[{"2.8284271247461903`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"1.`", " ", "\[Gamma]"}], "-", 
             RowBox[{"1.`", " ", 
              SqrtBox[
               FractionBox["1", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"1.`", " ", 
                  SuperscriptBox["\[Gamma]", "2"]}]}]]]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["\[Gamma]", "2"], " ", 
              SqrtBox[
               FractionBox["1", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"1.`", " ", 
                  SuperscriptBox["\[Gamma]", "2"]}]}]]]}]}], ")"}]}], ")"}], 
         RowBox[{"3", "/", "2"}]]}]}], "}"}], ",", 
     RowBox[{"MinRecursion", "\[Rule]", "9"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "12"}]}], "]"}], "/", 
   RowBox[{"NIntegrate", "[", " ", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"\[Alpha]", " ", "m"}], 
       RowBox[{"3", 
        RowBox[{"\[Sqrt]", "3"}], " ", 
        RowBox[{"\[Pi]", "^", "2"}], " ", "\[Chi]"}]], 
      FractionBox["u", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", "u"}], ")"}], "^", "3"}]], 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"z", "^", 
          RowBox[{"(", 
           RowBox[{"2", "/", "3"}], ")"}]}], 
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"1", "+", "u"}], ")"}], "^", "2"}]}], ")"}]}], "-", 
        RowBox[{"(", 
         RowBox[{"1", "+", "u"}], ")"}]}], ")"}], 
      RowBox[{"BesselK", "[", 
       RowBox[{
        RowBox[{"1", "/", "3"}], ",", 
        FractionBox[
         RowBox[{"2", " ", "u", " ", "z"}], 
         RowBox[{"3", "\[Chi]"}]]}], "]"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", 
       RowBox[{"2.8284271247461903`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"1.`", " ", "\[Gamma]"}], "+", 
             RowBox[{"1.`", " ", 
              SqrtBox[
               FractionBox["1", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"1.`", " ", 
                  SuperscriptBox["\[Gamma]", "2"]}]}]]]}], "-", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["\[Gamma]", "2"], " ", 
              SqrtBox[
               FractionBox["1", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"1.`", " ", 
                  SuperscriptBox["\[Gamma]", "2"]}]}]]]}]}], ")"}]}], ")"}], 
         RowBox[{"3", "/", "2"}]]}], ",", 
       RowBox[{"2.8284271247461903`", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Gamma]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"1.`", " ", "\[Gamma]"}], "-", 
             RowBox[{"1.`", " ", 
              SqrtBox[
               FractionBox["1", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"1.`", " ", 
                  SuperscriptBox["\[Gamma]", "2"]}]}]]]}], "+", 
             RowBox[{"1.`", " ", 
              SuperscriptBox["\[Gamma]", "2"], " ", 
              SqrtBox[
               FractionBox["1", 
                RowBox[{
                 RowBox[{"-", "1.`"}], "+", 
                 RowBox[{"1.`", " ", 
                  SuperscriptBox["\[Gamma]", "2"]}]}]]]}]}], ")"}]}], ")"}], 
         RowBox[{"3", "/", "2"}]]}]}], "}"}], ",", 
     RowBox[{"MinRecursion", "\[Rule]", "9"}], ",", 
     RowBox[{"AccuracyGoal", "\[Rule]", "18"}], ",", 
     RowBox[{"PrecisionGoal", "\[Rule]", "18"}], ",", 
     RowBox[{"WorkingPrecision", "\[Rule]", "22"}]}], "]"}]}]}]}], "Input",
 CellChangeTimes->{{3.8629301314763927`*^9, 3.862930157816471*^9}, {
  3.862930310774193*^9, 3.86293041451617*^9}, {3.862930468728067*^9, 
  3.862930469037619*^9}, {3.862930823481927*^9, 3.862930829069572*^9}, {
  3.862932332292142*^9, 3.862932338936081*^9}, {3.862932404156888*^9, 
  3.862932404537232*^9}, {3.8629325845515223`*^9, 3.862932601171755*^9}, {
  3.862932677953206*^9, 3.8629326844375677`*^9}, {3.8629327651535397`*^9, 
  3.862932787246826*^9}, {3.862932904929628*^9, 3.86293291055329*^9}, {
  3.862933178810117*^9, 3.862933180718938*^9}, {3.8629333591942472`*^9, 
  3.862933365563899*^9}, {3.862970006602384*^9, 3.8629700087393208`*^9}},
 CellLabel->"In[50]:=",ExpressionUUID->"b14482a3-4041-4869-b61f-4164b6335106"],

Cell["Create table with \[OpenCurlyDoubleQuote]exact\[CloseCurlyDoubleQuote] \
result and asymptotic expressions.", "Text",
 CellChangeTimes->{{3.8199926778850107`*^9, 3.819992715762689*^9}, {
  3.862914765828362*^9, 3.862914766341243*^9}, {3.8629284629069777`*^9, 
  3.862928523418243*^9}, {3.862932951538018*^9, 3.8629329590582457`*^9}, {
  3.8629330066602707`*^9, 
  3.862933070592018*^9}},ExpressionUUID->"f33dd858-2093-4a27-ad5b-\
b7cb07781660"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Gamma]", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"u", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tab2", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"10", "^", "log\[Chi]"}], ",", 
       RowBox[{
        RowBox[{"\[Gamma]2\[Theta]2", "[", 
         RowBox[{"u", ",", 
          RowBox[{"10", "^", "log\[Chi]"}], ",", "\[Gamma]"}], "]"}], "//", 
        "Quiet"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"log\[Chi]", ",", 
       RowBox[{"-", "1"}], ",", "3", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.862917731311118*^9, 3.862917731446889*^9}, {
  3.862929034421455*^9, 3.862929043572207*^9}, {3.862929127705763*^9, 
  3.8629291279199*^9}, {3.8629307056287823`*^9, 3.862930705830223*^9}, {
  3.862932664992379*^9, 3.8629326650472307`*^9}, {3.862933337134755*^9, 
  3.862933337461467*^9}, {3.862971457180644*^9, 3.8629714579745693`*^9}},
 CellLabel->"In[53]:=",ExpressionUUID->"13c8d284-5edf-415b-aefe-780629340026"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tab2high", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"10", "^", "log\[Chi]"}], ",", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Gamma]", "^", "2"}]], 
        FractionBox[
         RowBox[{"Gamma", "[", 
          RowBox[{"4", "/", "3"}], "]"}], 
         RowBox[{"Gamma", "[", 
          RowBox[{"2", "/", "3"}], "]"}]], 
        RowBox[{
         RowBox[{"(", 
          FractionBox[
           RowBox[{"3", " ", 
            RowBox[{"10", "^", "log\[Chi]"}]}], "u"], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"2", "/", "3"}], ")"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"log\[Chi]", ",", 
       RowBox[{"-", "1"}], ",", "3", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tab2low", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"10", "^", "log\[Chi]"}], ",", 
       RowBox[{
        FractionBox["1", 
         RowBox[{"\[Gamma]", "^", "2"}]], 
        RowBox[{"(", 
         FractionBox[
          RowBox[{"10", "^", "log\[Chi]"}], "u"], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"log\[Chi]", ",", 
       RowBox[{"-", "1"}], ",", "3", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListLogLogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"tab2low", ",", "tab2high", ",", "tab2"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"True", ",", "True", ",", "False"}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Chi]<<1\>\"", ",", "\"\<\[Chi]>>1\>\"", ",", "\"\<Exact\>\""}], 
     "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Chi]\>\"", ",", 
      "\"\<<\!\(\*SuperscriptBox[\(\[Theta]\), \(2\)]\)>\>\""}], "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"-", "7"}]}], ",", "200"}], "}"}]}], ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", "None", ",", "\"\<OpenMarkers\>\""}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8629173817152367`*^9, 3.8629174341935987`*^9}, {
  3.862917516483799*^9, 3.862917521378471*^9}, {3.862917574777066*^9, 
  3.862917580566766*^9}, {3.862917870210082*^9, 3.862917948887245*^9}, {
  3.8629179839937153`*^9, 3.862918002052885*^9}, {3.862929059791485*^9, 
  3.862929122625084*^9}, {3.862930736479104*^9, 3.862930760210052*^9}, {
  3.862932291741151*^9, 3.862932292177477*^9}, {3.862932372110918*^9, 
  3.862932378682228*^9}, {3.8629325297418137`*^9, 3.862932554907102*^9}, {
  3.862932610953659*^9, 3.8629326701223*^9}, {3.862933083025538*^9, 
  3.862933128566956*^9}, {3.862933339618164*^9, 3.862933345646222*^9}, {
  3.8629714599190607`*^9, 3.862971461688888*^9}},
 CellLabel->"In[56]:=",ExpressionUUID->"82b34c3f-d28e-4da7-8b16-1cef3b7f70e7"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQLRq6dffGbKYDfO7L1/ROUzgw+cyer/JTGA68VdG0
XqmgcEC5oyNepvLv/lmsYZM7Q+UPyJVPv/zj5M/9kQcjNxzIlDsglbbM/arU
t/0StbFnv9fKHoCY92n/dYvEV3qTZA4ogvW/3T/1Swp72jLpA5Jg9c/2h2zI
UJm7S+qAPFj+7n7hnBzHK+ckD8iB+Wf3X1IviON+LHHgPxist5n4uLja6bv4
AW2IvH3A/PIZldziB9Qg+u35o6u3bpAXOyALMd/+nFj9pefGolD5t/a9l5re
y3mIHBCDuM/ep6+NJyxG+IA0xP323F5dmr0FQgcUIP6zP8na53akRfCACsT/
9h0HJyb/niFwYAokfBz6fmkxpkbxHxCHhJ8DT5GR9eUm3gMz7q5tdHZmceh6
aVnquJobaj6bA0ei4/r1lzkPzHk3jzf9E7tD+w2Pl7J/2A/Ig+3jdGAOCFDu
UWE7sOB//8yuhdwOTcfDY3/5sEDDn9eBwT5+ekYp04FlAo2q6wL4HWq3pV28
NpcB6h4Bh6/Rd8S6ev7uvyqw88aLekGHD16vu9Lu/twPcZ+QwyvLX/+c9L7t
j5i5cV5VuLDDUw3OYvn6T/sh7hVxOKlvcO77/Lf7byquSuHRF3XYz+u3bYPj
s/0Q94s5ZFy/bnP52N390asWac1jE3c4raYu1SVybj/EP+IO669cDt6eW7z/
rtHsD/r3JBxaXr5csu7uGXtIepF0OGph2ZSqfdc+fvfkbQe3Sjnk7vt34+fn
p/YQ/0o7VDx48MEh6K09ADSkQus=
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJxTTMoPSmViYGDQBGIQLRq6dffGbKYDJ4//aW68LnNg8pk9X+WnMByY937l
mwArmQPKHR3xMpV/9xeJh4cqzJU+IFc+/fKPkz/3u9uz7Hv/X+qAVNoy96tS
3/bLpG9U258kdQBi3qf9H/ri+vuOSh5QBOt/u//oNu4fsRqSByTB6p/tn3lv
R4Jut8QBebD83f15bGkn/7wVPyAH5p/d76wnbHQmQPzAfzBYbyMedmDW7M1i
B7Qh8vZvanOZs8XEDqhB9NsfXCqVY1UpekAWYr791LPHr3DeEYHKv7XP+lpi
e9NO5IAYxH32drJKy1YsFD4gDXG/vbDreb4KFuEDChD/2T/PqSl3Txc6oALx
v/2eKZoPxE4JHpgCCR+HiXuueTzTETwgDgk/h9QnzRu39gscmHF3baOzM4tD
iUSSCddTfqj5bA6yGXtYV67iOzDn3Tze9E/sDse3i113L+A9IA+2j9OhgL1w
xTNTngML/vfP7FrI7SAVfrqy9TcXNPx5HQ4vU/VWOch5YJlAo+q6AH6HnG/1
MofbOKDuEXAQcbv1NtGH/cBVgZ03XtQLOuybarKfQYgN6j4hh/SnfRPmX2c5
EDFz47yqcGEHftOXiXZzmaHuFXHY1eJsfDeJ6cBNxVUpPPqiDslX5rLUaDBC
3S/mIOHxYbXpnf/7o1ct0prHJu6Q+3yJX3H63/0Q/4g77G+L/Ljh06/9d41m
f9C/J+EgoMY35V3tj/2Q9CLpkHr0kJkO57f98bsnbzu4VcphR0r5zcwpn/dD
/CvtwMWiU7Nc/uN+AI5bPTI=
         "]]}}, {{}, {}, {
        Directive[
         PointSize[0.011000000000000001`], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{{
                GrayLevel[1], 
                PolygonBox[{
                  Offset[{0, 3.75}], 
                  Offset[{3.75, 0}], 
                  Offset[{0, -3.75}], 
                  Offset[{-3.75, 0}]}]}, 
               AbsoluteThickness[1.5], 
               Dashing[{}], 
               LineBox[{
                 Offset[{0, 3.75}], 
                 Offset[{3.75, 0}], 
                 Offset[{0, -3.75}], 
                 Offset[{-3.75, 0}], 
                 Offset[{0, 3.75}]}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.011000000000000001`], 
                 RGBColor[0.560181, 0.691569, 0.194885], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Scaled[
          9.75]], {{{-2.3025850929940455`, -8.275420133688936}}, \
{{-1.1512925464970227`, -7.138800768536522}}, {{0., -6.076020215986948}}, {{
         1.151292546497023, -5.115968789499135}}, {{
         2.302585092994046, -4.2407811429705875`}}, {{
         3.4538776394910684`, -3.417085345000142}}, {{
         4.605170185988092, -2.6188036389058085`}}, {{
         5.756462732485114, -1.8287547300353268`}}, {{
         6.907755278982137, -1.032410310273807}}}]}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, 
     AxesOrigin -> {-2.690346818723946, -16.11809565095832}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"<\\!\\(\\*SuperscriptBox[\\(\[Theta]\\), \\(2\\)]\\)>\"", 
         TraditionalForm], None}, {
        FormBox["\"\[Chi]\"", TraditionalForm], None}}, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Log, Exp}]}, {
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Exp[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Exp[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, PlotRange -> 
     NCache[{{-2.690346818723946, 6.907755278982137}, {-Log[10000000], 
         Log[200]}}, {{-2.690346818723946, 
       6.907755278982137}, {-16.11809565095832, 5.298317366548036}}], 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, Ticks -> {
       Charting`ScaledTicks[{Log, Exp}], 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"\[Chi]<<1\"", "\"\[Chi]>>1\"", "\"Exact\""}, 
      "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{{
                    GrayLevel[1], 
                    PolygonBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}]}]}, 
                    AbsoluteThickness[1.5], 
                    Dashing[{}], 
                    LineBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}], 
                    Offset[{0, 3.75}]}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 9.75}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.09205128205128206] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.011000000000000001`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{{
                    GrayLevel[1], 
                    PolygonBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}]}]}, 
                    AbsoluteThickness[1.5], 
                    Dashing[{}], 
                    LineBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}], 
                    Offset[{0, 3.75}]}]}], ",", "9.75`"}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8629175232586718`*^9, 3.862917661236656*^9, {3.862917858865864*^9, 
   3.862917881876742*^9}, {3.862917946702121*^9, 3.8629179497884493`*^9}, {
   3.862917984653675*^9, 3.862918002592018*^9}, {3.862930733687129*^9, 
   3.862930760648078*^9}, 3.8629308673729553`*^9, 3.862932293421739*^9, {
   3.862932356543648*^9, 3.8629323791027727`*^9}, 3.86293242121686*^9, {
   3.862932538170775*^9, 3.862932555486533*^9}, 3.862932619268712*^9, 
   3.8629326542993593`*^9, 3.8629326998665323`*^9, 3.862932819259734*^9, 
   3.862932964124208*^9, {3.862933105122407*^9, 3.862933129108801*^9}, 
   3.862971529370288*^9},
 CellLabel->"Out[58]=",ExpressionUUID->"a5cfc347-a19a-4729-926f-57d0e0c1282b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Figure 3", "Section",
 FontSize->24,
 FontColor->GrayLevel[0]]], "Chapter",
 CellChangeTimes->{{3.862928225660325*^9, 3.8629282749647303`*^9}, {
  3.862970049559609*^9, 3.862970050529511*^9}, {3.862970476483941*^9, 
  3.862970479468246*^9}, {3.862976081516244*^9, 3.862976082076543*^9}},
 FontSize->14,ExpressionUUID->"6f599601-568e-4334-bdbc-3e76d0b1cd62"],

Cell["\<\
I0 = 2 10^21 W/cm^2, \[Omega] = 1 MeV, \[Gamma] = 500 MeV (m=0.511MeV)
\[Lambda] = 0.8 \[Mu]m , a0 = 0.855 Sqrt[I0/10^18]  \[Lambda][\[Mu]m] , \
\[Tau] = 30 fs
\[Chi] = 2 \[Gamma] a0 \[Omega]/m\
\>", "Text",
 CellChangeTimes->{{3.8199926778850107`*^9, 3.819992715762689*^9}, {
  3.862914765828362*^9, 3.862914766341243*^9}, {3.8629284629069777`*^9, 
  3.862928523418243*^9}, {3.862932951538018*^9, 3.8629329590582457`*^9}, {
  3.862970052473484*^9, 3.862970052855358*^9}, {3.8629701175292397`*^9, 
  3.862970151928694*^9}, {3.862970197606351*^9, 
  3.862970278512706*^9}},ExpressionUUID->"ab826702-3e56-4c57-b33b-\
c4345ec69a17"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[Delta]0", ",", "intg2", ",", "\[Omega]", ",", "\[Tau]", ",", "\[Lambda]",
    ",", "I0", ",", "\[Alpha]", ",", "m", ",", "\[Lambda]\[Mu]m", ",", 
   "\[Omega]eV", ",", "\[Gamma]0", ",", "\[Delta]\[Gamma]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", "=", 
   RowBox[{"0.511", " ", 
    RowBox[{"10", "^", "6"}]}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"[", "eV", "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[Gamma]0", " ", "=", " ", 
   RowBox[{
    RowBox[{"500", "/", "m"}], " ", 
    RowBox[{"10", "^", "6"}]}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"[", "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[Alpha]", "=", 
   RowBox[{"1", "/", "137"}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"[", "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[Lambda]\[Mu]m", "=", "0.8"}], ";", 
  RowBox[{"(*", 
   RowBox[{"[", "\[Mu]m", "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[Delta]0", "=", 
   RowBox[{"0.5", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "3"}]}]}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"[", "rad", "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[Omega]", "=", 
   RowBox[{"2", "\[Pi]", " ", "3", " ", 
    RowBox[{
     RowBox[{"10", "^", "8"}], "/", 
     RowBox[{"(", 
      RowBox[{"\[Lambda]\[Mu]m", " ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "6"}]}]}], ")"}]}]}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"[", 
    RowBox[{"s", "-", "1"}], "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[Omega]eV", "=", 
   RowBox[{"\[Omega]", " ", "1.05", " ", 
    RowBox[{
     RowBox[{"10", "^", 
      RowBox[{"-", "34"}]}], " ", "/", 
     RowBox[{"(", 
      RowBox[{"9.11", " ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "31"}]}], " ", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"3", " ", 
          RowBox[{"10", "^", "8"}]}], ")"}], "^", "2"}]}], ")"}]}], " ", 
    "m"}]}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{"[", "eV", "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"\[Tau]", "=", 
   RowBox[{"30", " ", 
    RowBox[{"10", "^", 
     RowBox[{"-", "15"}]}]}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"[", "s", "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"intg2", "=", 
   RowBox[{"\[Omega]", " ", "\[Tau]", " ", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"\[Pi]", "/", 
      RowBox[{"(", 
       RowBox[{"4", 
        RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "]"}]}]}], ";", 
  RowBox[{"(*", 
   RowBox[{"[", "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"equation", " ", "5"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"\[Delta]\[Gamma]", "[", "I0_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"\[Delta]0", "^", "2"}], " ", "+", " ", 
      FractionBox[
       RowBox[{"5", 
        RowBox[{"(", 
         RowBox[{"1", "+", "\[ScriptCapitalR]"}], ")"}]}], 
       RowBox[{"8", 
        RowBox[{"\[Gamma]0", "^", "2"}]}]]}], "]"}], "//.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[ScriptCapitalR]", "->", 
       RowBox[{
        FractionBox[
         RowBox[{"2", "\[Alpha]", " ", 
          RowBox[{"a0", "^", "2"}], " ", "\[Gamma]0", " ", "\[Omega]eV"}], 
         RowBox[{"3", "m"}]], "intg2"}]}], ",", 
      RowBox[{"a0", "->", 
       RowBox[{"0.855", 
        RowBox[{"Sqrt", "[", 
         RowBox[{"I0", "/", 
          RowBox[{"10", "^", "18"}]}], "]"}], "\[Lambda]\[Mu]m"}]}]}], 
     "}"}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{"LogLinearPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"10", "^", "3"}], " ", 
     RowBox[{"\[Delta]\[Gamma]", "[", "I0", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"I0", ",", 
     RowBox[{"0.5", " ", 
      RowBox[{"10", "^", "21"}]}], ",", 
     RowBox[{"10", " ", 
      RowBox[{"10", "^", "21"}]}]}], "}"}], ",", " ", 
   RowBox[{"PlotLegends", "->", 
    RowBox[{"{", "\"\<Eq 5\>\"", "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Orange", ",", "Dashed"}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<I0[\!\(\*SuperscriptBox[\(10\), \(21\)]\) \
\!\(\*SuperscriptBox[\(Wcm\), \(-2\)]\)]\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(\[Delta]\), \(\[Gamma]\)]\)[mrad]\>\""}], 
     "}"}]}], ",", 
   RowBox[{"PlotRange", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"0", ",", "2.1"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.862971551921301*^9, 3.862971690101513*^9}, {
  3.862971729144883*^9, 3.862971835102199*^9}, {3.862971873475009*^9, 
  3.8629720146024714`*^9}, {3.862972056669611*^9, 3.862972121348674*^9}, {
  3.8629721852441273`*^9, 3.862972257787676*^9}, {3.8629723102874517`*^9, 
  3.862972368936874*^9}, {3.862972420106367*^9, 3.862972461618759*^9}, {
  3.8629725204484987`*^9, 3.8629729026504602`*^9}, {3.862973036879148*^9, 
  3.8629731433666363`*^9}, {3.862973179240067*^9, 3.8629732206951036`*^9}, {
  3.8629732556095047`*^9, 3.862973445560405*^9}, {3.8629739420275793`*^9, 
  3.862973942637536*^9}, {3.862976124873293*^9, 
  3.862976130478977*^9}},ExpressionUUID->"2061d17b-837f-4c75-b561-\
0935923cdb5c"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0.5, 0], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJwV0H0w1HkcB/BvR2aS2zqSx4viklIzIXnYfD+kft+ftFrd0SaN583FSTe3
TSpLadpQIoO61iEtpaPitpLo4bSzyaWolvbSdeiBtA82u8Te7/54z3te/3w+
M+/F8ekRSV8hhDYz+b/5cUP+lb0UJO8zyNtFKsxa6xPZxli4nfvA4rgKSy2O
ZSgZt5nH9vAYm95YVmf7jIIgv0anccbVrFTrIsbQujfHPV+Flbc0n3KeU7Cm
UphadkKFIxaiCwkKCv4Sb9MLi1WY3Wk/z01JQR04S3LPqfC50ZjP4YMUJMT2
ma5uUuEjw3P2jI1QcIUWDpTKVVi8DdUmaylIDBAb7r5W4aDDpursKQq8hbMC
t0ypcGpuRtd8EwInCm+ys63VeEngaGvwXALvPCWZh7zUeO6eqykcKwI3uybv
1kSo8YHMgbrH9gTWSlv6OBlqLGA7TGmWECCV85KTStRY/7x9IH85AflK7n2d
VI1/f9+QM7OaAPdXM+eKfjX+2FTvY+VPYJA6K4w30eDmyG+yxEEE9LOcLwtW
aPDsq7kKOU2gNURmyeZp8PEjwarHXAJZwlJRlUiDS1alnN3EI2CZ80/o4usa
vLxIHJUSR2CmQPdh5agGU4/8a7/sIpDnd3tjkLMWf2obmuOZQaCz80fb8mgt
fuj+0j1oP4FjzZLdo+Va7JHmp+zIJuCQfvvaTK8W2+26UDUqIjB0be2inXbj
uCAg0yA6RYAXSLXu3DGOPY+dYRnLCEQ6xfBdqsZxQt4DH5tKAk0ObqciPo1j
h+Qd6ppaAu0/jTt0BOjwToOxrbeRQE1ceFlRsQ73mo7Rr64TCBo8oBgZ0eEn
70L4Me0EXPk+p23Wf8a83ItlWTICr6uX5mkvfMa79ILt1o8JpKuK9OlmE/jS
4Mn+o88JBKSVc2xTJrBA1JxW/opAoaLMU6mYwHLT9aedh5l9TNjVzRv0uNZ3
oDN0jMD63W+OKO7oscWGwdIPOgLnz7a1PPE14Bq5l1PiNPNfZuUY0mTAstlF
LcLZNEwOlByoXTeJM+yj3s3/moaKF69dvf+cxJLh5e4h1jRY/vuEttwxhVkr
aDfutzQ865PIsiam8DTVfb3HlQbWnISozSe/YIFjUrTegwaFywtJjO80Fsjj
i4q9aQhn9UgFf0/ji2OXcs3YNGSF/ta0++gM5neifMcQGswsV9g3BBvx5ex2
l7pNNJSh8i6rSSPu6Zf2yhnnf8ca/mHaiCe9G46OMBY/KgwOQwio9+fergpj
7hfU1xeaIHjDzaz/g7FOppPYmSOwdVnjdX8zDR45rrS/DYLcjkvBr8Jp2Pui
RNCwGkG9U7XWyHhg360vUV4Inu4/U7N4Cw2hbmzZrDUInFaJzJIYDx1Mc4/0
RdBSmvRwhLH01kGXrzACFd85wsClwYkj1SWHIbC5Z2PiEEFDV+ovHQs4CAId
5zWzGRd7LOy/F44gv3vaOpvxypJFT522Iljq97LPbCsNBp7fjJKHIOz007xl
jJXdWl1BNIKfP8oDQhnfM+/1XBeD4E7VDfEJxnYf3A5WxCJ4O9XIaWS87vxl
UXg8AlZkrbGbcf3G/f0oEYH3lYorGsaHY0szriUhiDYvjVvwPbPPIQtOIh/B
f/8CPS0=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$44007#1"]& ]}}, {}}, {
    DisplayFunction -> Identity, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
       None}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     Ticks -> {Quiet[
        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Automatic}, 
     AxesOrigin -> {47.6611398334524, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Quiet[
         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
     DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {0, 0}}, PlotRangeClipping -> True, ImagePadding -> 
     All, DisplayFunction -> Identity, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "ClippingRange" -> {{{47.6611398334524, 50.656871984731616`}, {
        1.0333860292079975`, 2.0504842851221334`}}, {{47.6611398334524, 
        50.656871984731616`}, {1.0333860292079975`, 2.0504842851221334`}}}}, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, AxesOrigin -> {47.6611398334524, 0}, 
     CoordinatesToolOptions -> {"DisplayFunction" -> ({
         Exp[
          Part[#, 1]], 
         Part[#, 2]}& ), "CopiedValueFunction" -> ({
         Exp[
          Part[#, 1]], 
         Part[#, 2]}& )}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \\(\[Gamma]\\)]\\)[mrad]\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"I0[\\!\\(\\*SuperscriptBox[\\(10\\), \\(21\\)]\\) \
\\!\\(\\*SuperscriptBox[\\(Wcm\\), \\(-2\\)]\\)]\"", TraditionalForm], None}},
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
       None}, PlotRange -> {{47.6611398334524, 50.656871984731616`}, {
       0, 2.1}}, PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {Automatic, Automatic}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"Eq 5\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{"Directive", "[", 
               RowBox[{
                 RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                 RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                  False], ",", 
                 RowBox[{"Dashing", "[", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
             "}"}], ",", 
           RowBox[{"{", #, "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.86297181784368*^9, {3.8629719141845903`*^9, 3.862971928539213*^9}, {
   3.8629719786184883`*^9, 3.86297201529103*^9}, {3.86297206533972*^9, 
   3.8629721216420107`*^9}, {3.8629721946312733`*^9, 3.86297220325646*^9}, {
   3.862972234569643*^9, 3.862972258021398*^9}, {3.862972343250669*^9, 
   3.862972369310357*^9}, {3.862972422305797*^9, 3.8629724619472218`*^9}, {
   3.862972520982746*^9, 3.8629726490151052`*^9}, {3.862972790675952*^9, 
   3.862972806325078*^9}, {3.862972873344612*^9, 3.862972902981916*^9}, {
   3.862973212192284*^9, 3.862973221156995*^9}, {3.862973304744488*^9, 
   3.862973446209875*^9}, 3.862973945774947*^9},
 CellLabel->
  "Out[472]=",ExpressionUUID->"f570aa46-79e2-4b44-8a1a-cc0f95f31cd7"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Electron-beam divergence: finite angle recoil \
\[CapitalDelta]p", "Section",
 FontSize->24,
 FontColor->GrayLevel[0]]], "Chapter",
 CellChangeTimes->{{3.862928225660325*^9, 3.8629282749647303`*^9}, {
  3.862970049559609*^9, 3.862970050529511*^9}, {3.862970451871966*^9, 
  3.862970483896884*^9}, {3.862971239758338*^9, 3.862971239954545*^9}},
 FontSize->14,ExpressionUUID->"e9c298db-b1b6-4bd4-82d8-352a2ab7fb38"],

Cell["<\[CapitalDelta]p>/m = 3\[Sqrt]3 \[Pi] \[Xi]/40 for \[Chi]<<1 and 0.264 \
\[Chi]^1/3 for \[Chi]>>1", "Text",
 CellChangeTimes->{{3.8199926778850107`*^9, 3.819992715762689*^9}, {
  3.862914765828362*^9, 3.862914766341243*^9}, {3.8629284629069777`*^9, 
  3.862928523418243*^9}, {3.862932951538018*^9, 3.8629329590582457`*^9}, {
  3.862970052473484*^9, 3.862970052855358*^9}, {3.8629701175292397`*^9, 
  3.862970151928694*^9}, {3.862970197606351*^9, 3.862970278512706*^9}, {
  3.862970525963964*^9, 3.862970551823867*^9}, {3.8629707112003803`*^9, 
  3.8629707216584806`*^9}},ExpressionUUID->"d19c1b43-e82c-473c-9459-\
aa10835c243d"],

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "m", " ", ",", "\[Alpha]", ",", "\[Gamma]", ",", "\[Theta]", ",", "u", ",", 
   "z", ",", "\[Chi]", ",", "W3fun", ",", "\[CapitalDelta]p", ",", "tab3", 
   ",", "tab3low", ",", "tab3high", ",", "\[Theta]max"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"m", " ", "=", 
   RowBox[{"\[Alpha]", "=", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Theta]max", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"W3fun", "[", 
    RowBox[{
     RowBox[{"\[Omega]_", "?", "NumericQ"}], ",", " ", 
     RowBox[{"\[Theta]_", "?", "NumericQ"}], ",", " ", 
     RowBox[{"\[Chi]_", "?", "NumericQ"}], ",", 
     RowBox[{"\[Gamma]_", "?", "NumericQ"}]}], "]"}], ":=", 
   RowBox[{
    RowBox[{"W3fun", "[", 
     RowBox[{"\[Omega]", ",", "\[Theta]", ",", "\[Chi]", ",", "\[Gamma]"}], 
     "]"}], "=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"m", " ", "\[Alpha]", " ", "\[Omega]", " ", 
       RowBox[{"BesselK", "[", 
        RowBox[{
         FractionBox["1", "3"], ",", 
         FractionBox[
          RowBox[{"4", " ", 
           SqrtBox["2"], " ", "\[Omega]", " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["\[Gamma]", "2"], " ", 
              RowBox[{"(", 
               RowBox[{"1", "-", 
                RowBox[{
                 SqrtBox[
                  RowBox[{"1", "-", 
                   FractionBox["1", 
                    SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
                 RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}], ")"}], 
            RowBox[{"3", "/", "2"}]]}], 
          RowBox[{"3", " ", "\[Chi]", " ", 
           RowBox[{"(", 
            RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}]}]]}], "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "-", 
         FractionBox["\[Omega]", 
          RowBox[{"\[Gamma]", "-", "\[Omega]"}]], "+", 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"1", "+", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{"1", "+", 
               FractionBox["\[Omega]", 
                RowBox[{"\[Gamma]", "-", "\[Omega]"}]]}], ")"}], "2"]}], 
           ")"}], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               SuperscriptBox["\[Gamma]", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"1", "-", 
                 RowBox[{
                  SqrtBox[
                   RowBox[{"1", "-", 
                    FractionBox["1", 
                    SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
                  RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], ")"}]}], ")"}], 
             RowBox[{"3", "/", "2"}]], ")"}], 
           RowBox[{"2", "/", "3"}]]}]}], ")"}]}], ")"}], "/", 
     RowBox[{"(", 
      RowBox[{"3", " ", 
       SqrtBox["3"], " ", 
       SuperscriptBox["\[Pi]", "2"], " ", "\[Chi]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          FractionBox["\[Omega]", 
           RowBox[{"\[Gamma]", "-", "\[Omega]"}]]}], ")"}], "3"]}], 
      ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[CapitalDelta]p", "[", 
   RowBox[{"\[Chi]_", ",", "\[Gamma]_"}], "]"}], ":=", 
  RowBox[{
   RowBox[{
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{"\[Omega]", " ", 
        RowBox[{"Sin", "[", "\[Theta]", "]"}], " ", 
        RowBox[{"W3fun", "[", 
         RowBox[{
         "\[Omega]", ",", "\[Theta]", ",", "\[Chi]", ",", "\[Gamma]"}], "]"}],
         " ", 
        FractionBox[
         RowBox[{"3", " ", 
          SqrtBox[
           RowBox[{"2", "-", 
            FractionBox["2", 
             SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
          SuperscriptBox["\[Gamma]", "4"], " ", 
          SqrtBox[
           RowBox[{"1", "-", 
            RowBox[{
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox["1", 
                SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
             RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}], "2"]]}], ")"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"10", "^", 
         RowBox[{"-", "12"}]}], ",", "\[Theta]max"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", 
        RowBox[{"0.00001", "\[Gamma]"}], ",", 
        RowBox[{"0.99999", "\[Gamma]"}]}], "}"}]}], "]"}], "/", 
    RowBox[{"NIntegrate", "[", 
     RowBox[{
      RowBox[{"(", " ", 
       RowBox[{
        RowBox[{"W3fun", "[", 
         RowBox[{
         "\[Omega]", ",", "\[Theta]", ",", "\[Chi]", ",", "\[Gamma]"}], "]"}],
         " ", 
        FractionBox[
         RowBox[{"3", " ", 
          SqrtBox[
           RowBox[{"2", "-", 
            FractionBox["2", 
             SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
          SuperscriptBox["\[Gamma]", "4"], " ", 
          SqrtBox[
           RowBox[{"1", "-", 
            RowBox[{
             SqrtBox[
              RowBox[{"1", "-", 
               FractionBox["1", 
                SuperscriptBox["\[Gamma]", "2"]]}]], " ", 
             RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}]], " ", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}]}], 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Gamma]", "-", "\[Omega]"}], ")"}], "2"]]}], ")"}], ",", 
      
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", 
        RowBox[{"10", "^", 
         RowBox[{"-", "12"}]}], ",", "\[Theta]max"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Omega]", ",", 
        RowBox[{"0.00001", "\[Gamma]"}], ",", 
        RowBox[{"0.99999", "\[Gamma]"}]}], "}"}]}], "]"}]}], "//", 
   "Quiet"}]}]}], "Input",
 CellChangeTimes->{{3.8629301314763927`*^9, 3.862930157816471*^9}, {
  3.862930310774193*^9, 3.86293041451617*^9}, {3.862930468728067*^9, 
  3.862930469037619*^9}, {3.862930823481927*^9, 3.862930829069572*^9}, {
  3.862932332292142*^9, 3.862932338936081*^9}, {3.862932404156888*^9, 
  3.862932404537232*^9}, {3.8629325845515223`*^9, 3.862932601171755*^9}, {
  3.862932677953206*^9, 3.8629326844375677`*^9}, {3.8629327651535397`*^9, 
  3.862932787246826*^9}, {3.862932904929628*^9, 3.86293291055329*^9}, {
  3.862933178810117*^9, 3.862933180718938*^9}, {3.8629333591942472`*^9, 
  3.862933365563899*^9}, {3.862970006602384*^9, 3.8629700087393208`*^9}, {
  3.862970492020809*^9, 3.862970515476563*^9}, {3.862970555439546*^9, 
  3.8629705778272743`*^9}, {3.86297062495562*^9, 3.8629706378207808`*^9}, {
  3.862970726265622*^9, 3.8629708228812513`*^9}, {3.862970874990974*^9, 
  3.8629708759172287`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"c170c7ca-24aa-4961-a408-a403a3800e65"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Gamma]", "=", "20"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tab3", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"10", "^", "log\[Chi]"}], ",", 
       RowBox[{
        RowBox[{"\[CapitalDelta]p", "[", 
         RowBox[{
          RowBox[{"10", "^", "log\[Chi]"}], ",", "\[Gamma]"}], "]"}], "//", 
        "Quiet"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"log\[Chi]", ",", 
       RowBox[{"-", "2"}], ",", "3", ",", "0.5"}], "}"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.862917731311118*^9, 3.862917731446889*^9}, {
  3.862929034421455*^9, 3.862929043572207*^9}, {3.862929127705763*^9, 
  3.8629291279199*^9}, {3.8629307056287823`*^9, 3.862930705830223*^9}, {
  3.862932664992379*^9, 3.8629326650472307`*^9}, {3.862933337134755*^9, 
  3.862933337461467*^9}, {3.862970844902615*^9, 3.8629708531574087`*^9}, {
  3.862970910254467*^9, 3.862970910400378*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"df9992ae-7913-45c4-aa65-1f643e9c7db2"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"tab3high", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"10", "^", "log\[Chi]"}], ",", 
       RowBox[{"0.264", " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"10", "^", "log\[Chi]"}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"1", "/", "3"}], ")"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"log\[Chi]", ",", 
       RowBox[{"-", "2"}], ",", "3", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tab3low", "=", 
   RowBox[{"ParallelTable", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"10", "^", "log\[Chi]"}], ",", 
       RowBox[{"3", 
        RowBox[{"\[Sqrt]", "3"}], " ", 
        RowBox[{"\[Pi]", "/", "40"}], " ", 
        RowBox[{"(", 
         RowBox[{"10", "^", "log\[Chi]"}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"log\[Chi]", ",", 
       RowBox[{"-", "2"}], ",", "3", ",", "0.1"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ListLogLogPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"tab3low", ",", "tab3high", ",", "tab3"}], "}"}], ",", 
   RowBox[{"Joined", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"True", ",", "True", ",", "False"}], "}"}]}], ",", 
   RowBox[{"PlotLegends", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<\[Chi]<<1\>\"", ",", "\"\<\[Chi]>>1\>\"", ",", "\"\<Exact\>\""}], 
     "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<\[Chi]\>\"", ",", "\"\<<\[CapitalDelta]p>\>\""}], "}"}]}], 
   ",", 
   RowBox[{"PlotMarkers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", "None", ",", "\"\<OpenMarkers\>\""}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.8629173817152367`*^9, 3.8629174341935987`*^9}, {
  3.862917516483799*^9, 3.862917521378471*^9}, {3.862917574777066*^9, 
  3.862917580566766*^9}, {3.862917870210082*^9, 3.862917948887245*^9}, {
  3.8629179839937153`*^9, 3.862918002052885*^9}, {3.862929059791485*^9, 
  3.862929122625084*^9}, {3.862930736479104*^9, 3.862930760210052*^9}, {
  3.862932291741151*^9, 3.862932292177477*^9}, {3.862932372110918*^9, 
  3.862932378682228*^9}, {3.8629325297418137`*^9, 3.862932554907102*^9}, {
  3.862932610953659*^9, 3.8629326701223*^9}, {3.862933083025538*^9, 
  3.862933128566956*^9}, {3.862933339618164*^9, 3.862933345646222*^9}, {
  3.862970914709934*^9, 3.862970934001841*^9}, {3.8629710300497313`*^9, 
  3.86297106824994*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"6e166ae7-465d-409e-98a5-ddd170a87174"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.368417, 0.506779, 0.709798], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJwtUgtIk1EUnmNuDbO9nc585qS0MB9F5vIeytLQUrQUWWmaDzJyIjRRCR8l
aGBaCnNJkqEDJzO1FNTZvZUlpUamgmRqSY5hKmK5NBxW+/8Ll8vh3HPO933n
80pXxWcyGQxG8L/7/5Vc7Bnoui4kVUOiZJWdE5nk902bSwQkqlSq1kkkpG7U
uOFRzycchWvd7AExaeGXyTvieOTNb/dOcbiI7KusTN1b6EgqnnmPRccLyeOd
Gu3dZgcSofJdKs8SEPcCzcTmOy5h+vtx+ov4pHG1yTF7nUPKxpRRC248IsvS
RU7J2IRx+mp53BlH0jBrKDt1ikVKjDnGF7kOhMLHJNvB+ZaDGi6pt+FhkOL2
wsONmEPPt+JN77IcrtmeeNjmbWH1w8qWAj6LuNr6W/AvQe3c4jEm3W8d51dp
nC+kMYiPrX4Fz9uFt94RWTH134Rn1mJc0jK2sIctP4un5pXVJ3o2sLstHsPj
H3LsZOx1vGM7TxWa4p9Ly4Zl7E/lUU2yYKI1dhH7UvWIr0pRDy7MYIqvCdkn
hlSnxLyn8yvo3v3mB6uZWuRE4UPyy6vOK/EfEY0fBTd3RxXz5pEnxQ+15ocZ
WSYTovBbUUe922R0xCqi9QHlzM7Ns+PrSErpB1eW1+xulFoQrS+kW79V1wb8
ofuzIXvPhMvzOSt6RO0HenkLn368ZQA1jwuhDZ8bbjUxgd4v9HlOpPDULKD3
D4q2EZ/mc2yg/QGDgUNLQfJdQPsHoN/YObTNBdpf8Opkjzpx0gEovkKIGDEo
zO2OkKTtaipKEsFwgo5ZdJsHFF4xyHNjv1cY+DDtpc/YHSCBzO7o4fNaAVB6
OoHOEqmXVghBqX/i18SWgvl4RPXXPBFQfpPC/hLIa7skhi9BjWsBc85w7bUi
IT9KApQ/XUDPCT0aFuIEqQN1vS97ZLAcfcSF5Sml+brCodrA7VEHZ/gL29OB
Gw==
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.880722, 0.611041, 0.142051], 
         AbsoluteThickness[1.6]], 
        LineBox[CompressedData["
1:eJw1Ug0s1GEYP+fuEFfn607k+ysy30nt2vtuiGmLRMeuTROyldkkV7aYWVza
YvnIuVzIx9gwwhT1vqRUqEx3SY6YDslHPo9w1f3/vdu7d8+e93me3+/3/Kxj
ksLiqBQKxevv/fcaR7R1Nl8xwNHpOUMRSwz8ifV0ZDZDH3vXeJ+wD2PggoGu
dctCFtZ5P1m51krHVaxM+8bQA1i+fk+3l0PHtkJh9KGbTNxizk0pSKPhclWe
KLdCF+cEzI3FyDWxheDBsPKtDuYnFgd4Qk0sXpQwL69oYfciv0aNx1RsGl8T
KDVlYPrzZfYQnYpL5A2Zfn40/GW6LKM8QQMT+Ki4Ue/0bFI/BReq8VBwlrcy
FLhSyPm7qKkj+Jq5jQpZqudtoUjtav+umV1kpu6/gTQiVcb8hh1E9FtBdbVR
M1vJv5Gdun4Bndt80lHiu03+V6CdU/tzj+0pkaU6L0fVxQl82ctNZKGOB9EZ
RY/L9TsbSKU+TVzlUfM9w5B1dITIg4rbgg8tRmvIgagHwdKh8rOjK4jgqwCr
di7Jy49+kfkFUJaS7ZcXt4zYBD5wV9jtdOH84n/8YNwxdUA0OY+sCH7Avc85
6fPVORL/LsiKn9A3VioQqQ+U0Qtbw7KmEYfQDx6uDuLl759CpL5wXbi9Kvaa
IPszYGnfpeOc4FFURuwHchmD6fcvSsl5OnDK36eXKfiIyP1CEy1gaGDWh8j9
w05tW65+/jNE+gNGMa0Ct2rFiPQPdKU5eDjdqAOkvyDSFHQbemBA8DWAqdlV
Pua0d4Anapak8QyhiDYXUTA/BAi8RnD1VQbLRCoDI9b1sXpuxjAoh93/8MVX
QOjJhuFVsh5W+DfAr690ljA4kEq3sRp+MwUIv3FgQ1ziraKT38GYp3jZbdwE
8l93jPJaZgDhz4NwnyPN19TxB4juLGjvbjOF7TkhRWPin4DgawZjZ0tXJKwl
8AdHwpdH
         "]]}}, {{}, {}, {
        Directive[
         PointSize[0.009166666666666668], 
         RGBColor[0.560181, 0.691569, 0.194885], 
         AbsoluteThickness[1.6]], 
        GeometricTransformationBox[
         InsetBox[
          BoxData[
           FormBox[
            StyleBox[
             GraphicsBox[{{
                GrayLevel[1], 
                PolygonBox[{
                  Offset[{0, 3.75}], 
                  Offset[{3.75, 0}], 
                  Offset[{0, -3.75}], 
                  Offset[{-3.75, 0}]}]}, 
               AbsoluteThickness[1.5], 
               Dashing[{}], 
               LineBox[{
                 Offset[{0, 3.75}], 
                 Offset[{3.75, 0}], 
                 Offset[{0, -3.75}], 
                 Offset[{-3.75, 0}], 
                 Offset[{0, 3.75}]}]}], 
             GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                 PointSize[0.009166666666666668], 
                 RGBColor[0.560181, 0.691569, 0.194885], 
                 AbsoluteThickness[1.6]]}, StripOnInput -> False], 
            TraditionalForm]], {0., 0.}, Automatic, 
          Scaled[
          9.75]], {{{-4.605170185988091, -4.993879750838751}}, \
{{-3.4538776394910684`, -3.89470560208064}}, {{-2.3025850929940455`, \
-2.870950584099293}}, {{-1.1512925464970227`, -1.9741215545507511`}}, {{
         0., -1.2414093478728903`}}, {{
         1.151292546497023, -0.6863938022704498}}, {{
         2.302585092994046, -0.2985285793471484}}, {{
         3.4538776394910684`, -0.04825316965190075}}, {{4.605170185988092, 
         0.10245511633845307`}}, {{5.756462732485114, 0.1885592359966446}}, {{
         6.907755278982137, 0.23582269274533232`}}}]}}}, {{}, {}}}, {
    DisplayFunction -> Identity, GridLines -> {None, None}, DisplayFunction -> 
     Identity, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, 
     AxesOrigin -> {-5.089872343150468, -6.402353075080273}, DisplayFunction :> 
     Identity, Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox["\"<\[CapitalDelta]p>\"", TraditionalForm], None}, {
        FormBox["\"\[Chi]\"", TraditionalForm], None}}, FrameTicks -> {{
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Log, Exp}]}, {
        Charting`ScaledTicks[{Log, Exp}], 
        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
     GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Exp[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Exp[
            Part[#, 1]], 
           Exp[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-5.089872343150468, 
      6.907755278982137}, {-6.402353075080273, 6.0115241437197655`}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.05]}}, Ticks -> {
       Charting`ScaledTicks[{Log, Exp}], 
       Charting`ScaledTicks[{Log, Exp}]}}], 
   FormBox[
    FormBox[
     TemplateBox[{"\"\[Chi]<<1\"", "\"\[Chi]>>1\"", "\"Exact\""}, 
      "PointLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}, {
                   GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    InsetBox[
                    GraphicsBox[{{
                    GrayLevel[1], 
                    PolygonBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}]}]}, 
                    AbsoluteThickness[1.5], 
                    Dashing[{}], 
                    LineBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}], 
                    Offset[{0, 3.75}]}]}, {DefaultBaseStyle -> {"Graphics", {
                    AbsolutePointSize[6]}, 
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]]}}], 
                    NCache[
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}], 
                    Scaled[{0.5, 0.5}]], Automatic, 
                    Scaled[1]]}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 9.75}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.09205128205128206] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"PointLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.368417`", ",", "0.506779`", ",", "0.709798`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"PointSize", "[", "0.009166666666666668`", "]"}], 
                   ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.560181`", ",", "0.691569`", ",", "0.194885`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{"None", ",", "Automatic"}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    GraphicsBox[{{
                    GrayLevel[1], 
                    PolygonBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}]}]}, 
                    AbsoluteThickness[1.5], 
                    Dashing[{}], 
                    LineBox[{
                    Offset[{0, 3.75}], 
                    Offset[{3.75, 0}], 
                    Offset[{0, -3.75}], 
                    Offset[{-3.75, 0}], 
                    Offset[{0, 3.75}]}]}], ",", "9.75`"}], "}"}]}], "}"}]}], 
           ",", 
           RowBox[{"Joined", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"True", ",", "True", ",", "False"}], "}"}]}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.862971127081108*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"b6e6a717-dd53-4f85-ad71-41cd2921c5fc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Figure 5 : Effect of the transverse recoil on the \
electron angular distribution, in the collision of a 500-MeV electron beam \
and a linearly polarized laser pulse with peak intensity I0", "Section",
 FontSize->24,
 FontColor->GrayLevel[0]]], "Chapter",
 CellChangeTimes->{{3.862928225660325*^9, 3.8629282749647303`*^9}, {
  3.862970049559609*^9, 3.862970050529511*^9}, {3.862970476483941*^9, 
  3.862970479468246*^9}, {3.862971550928318*^9, 3.86297155114336*^9}, {
  3.8629729263936787`*^9, 3.862972968231017*^9}},
 FontSize->14,ExpressionUUID->"276eee93-151d-43d7-9a87-4bc9c3382a05"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Clear", "[", 
  RowBox[{
  "\[Delta]0", ",", "\[Delta]e", ",", "intg3", ",", "\[Omega]", ",", "\[Tau]",
    ",", "\[Lambda]", ",", "I0", ",", "\[Alpha]", ",", "m", ",", 
   "\[Lambda]\[Mu]m", ",", "\[Omega]eV"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"m", "=", 
    RowBox[{"0.511", " ", 
     RowBox[{"10", "^", "6"}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"[", "eV", "]"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Alpha]", "=", 
    RowBox[{"1", "/", "137"}]}], ";", 
   RowBox[{"(*", 
    RowBox[{"[", "]"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Lambda]\[Mu]m", "=", "0.4"}], ";", 
   RowBox[{"(*", 
    RowBox[{"[", "\[Mu]m", "]"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Delta]0", "=", 
    RowBox[{"0.2", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "3"}]}]}]}], ";", 
   RowBox[{"(*", 
    RowBox[{"[", "rad", "]"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Omega]", "=", 
    RowBox[{"2", "\[Pi]", " ", "3", " ", 
     RowBox[{
      RowBox[{"10", "^", "8"}], "/", 
      RowBox[{"(", 
       RowBox[{"\[Lambda]\[Mu]m", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "6"}]}]}], ")"}]}]}]}], ";", 
   RowBox[{"(*", 
    RowBox[{"[", 
     RowBox[{"s", "-", "1"}], "]"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Omega]eV", "=", 
    RowBox[{"\[Omega]", " ", "1.05", " ", 
     RowBox[{
      RowBox[{"10", "^", 
       RowBox[{"-", "34"}]}], " ", "/", 
      RowBox[{"(", 
       RowBox[{"9.11", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "31"}]}], " ", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"3", " ", 
           RowBox[{"10", "^", "8"}]}], ")"}], "^", "2"}]}], ")"}]}], " ", 
     "m"}]}], ";", " ", 
   RowBox[{"(*", 
    RowBox[{"[", "eV", "]"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"\[Tau]", "=", 
    RowBox[{"15", " ", 
     RowBox[{"10", "^", 
      RowBox[{"-", "15"}]}]}]}], ";", 
   RowBox[{"(*", 
    RowBox[{"[", "s", "]"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"intg3", "=", 
    RowBox[{"\[Omega]", " ", "\[Tau]", " ", 
     RowBox[{"Sqrt", "[", 
      RowBox[{"\[Pi]", "/", 
       RowBox[{"(", 
        RowBox[{"6", 
         RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "]"}]}]}], ";"}], 
  RowBox[{"(*", 
   RowBox[{"[", "]"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"equation", " ", "6"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]e", "[", "I0_", "]"}], ":=", 
   RowBox[{
    RowBox[{"Sqrt", "[", 
     RowBox[{
      RowBox[{"\[Delta]0", "^", "2"}], " ", "+", " ", 
      RowBox[{
       FractionBox[
        RowBox[{"26", 
         RowBox[{"\[Sqrt]", "3"}], " ", "\[Alpha]", " ", 
         RowBox[{"a0", "^", "3"}], " ", 
         RowBox[{"\[Omega]eV", "^", "2"}]}], 
        RowBox[{"27", "\[Pi]", " ", 
         RowBox[{"m", "^", "2"}]}]], "intg3"}]}], "]"}], "/.", 
    RowBox[{"{", 
     RowBox[{"a0", "->", 
      RowBox[{"0.855", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"I0", "/", 
         RowBox[{"10", "^", "18"}]}], "]"}], "\[Lambda]\[Mu]m"}]}], "}"}]}]}],
   "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"approximate", " ", "form"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]eapp", "[", "I0_", "]"}], ":=", 
   RowBox[{"0.086", " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"I0", " ", 
       RowBox[{"10", "^", 
        RowBox[{"-", "21"}]}]}], ")"}], "^", "0.75"}], " ", 
    RowBox[{"Sqrt", "[", 
     RowBox[{"\[Tau]", "/", 
      RowBox[{"(", 
       RowBox[{"10", " ", 
        RowBox[{"10", "^", 
         RowBox[{"-", "15"}]}]}], ")"}]}], "]"}]}]}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "plot", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"LogLinearPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"10", "^", "3"}], " ", 
      RowBox[{"\[Delta]e", "[", "I0", "]"}]}], ",", 
     RowBox[{"\[Delta]eapp", "[", "I0", "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"I0", ",", 
     RowBox[{"10", "^", "21"}], ",", 
     RowBox[{"15", " ", 
      RowBox[{"10", "^", "21"}]}]}], "}"}], ",", " ", 
   RowBox[{"PlotLegends", "->", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Eq 6\>\"", ",", 
      "\"\<0.086 (I0[\!\(\*SuperscriptBox[\(10\), \
\(-21\)]\)]\!\(\*SuperscriptBox[\()\), \(0.75\)]\) \
\[Sqrt]\[Tau][\!\(\*SuperscriptBox[\(10\), \(-14\)]\)]\>\""}], "}"}]}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Orange", ",", "Dashed"}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", "True"}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
     "\"\<I0[\!\(\*SuperscriptBox[\(10\), \(21\)]\) \
\!\(\*SuperscriptBox[\(Wcm\), \(-2\)]\)]\>\"", ",", 
      "\"\<\!\(\*SubscriptBox[\(\[Delta]\), \(e\)]\)[mrad]\>\""}], "}"}]}]}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.862971551921301*^9, 3.862971690101513*^9}, {
  3.862971729144883*^9, 3.862971835102199*^9}, {3.862971873475009*^9, 
  3.8629720146024714`*^9}, {3.862972056669611*^9, 3.862972121348674*^9}, {
  3.8629721852441273`*^9, 3.862972257787676*^9}, {3.8629723102874517`*^9, 
  3.862972368936874*^9}, {3.862972420106367*^9, 3.862972461618759*^9}, {
  3.8629725204484987`*^9, 3.8629729026504602`*^9}, {3.862973052146181*^9, 
  3.862973063185885*^9}},
 CellLabel->
  "In[397]:=",ExpressionUUID->"3023a0b4-b530-4e9d-9cf2-009f6da62135"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          AbsoluteThickness[1.6], 
          RGBColor[1, 0.5, 0]], 
         LineBox[CompressedData["
1:eJwV0Xs01HkYBvBJLrGVdhQna3cpsu2IDLWK9n1DfL9WB+uSOqXkkmilsjaX
GOtWg3UqbZFKVLtmbSq1XU4knKbNGGNmzEiiDMP8ora2yUF19rd/POc5nz/e
f97Hbufe7+MMOBzORjb/d91lpd/mFQRPLay1ahmRQPxCg+xU1hd9MhY3ayVg
n+Fyo4x1qO5CzN1RCZzdIFz6gHXf2m+7b+skUN4PHDdngl2uBRa3JiQgMPvj
9lwXgsyiY76teglExuc6tawkOMiX980z7oQ5XzhzHd0Jqgxt9AWOnXC6ibej
yJPg2YaXi/xSO6F8i6g40ZvgrpJ4q9j7nTBk9IkdjxLkKj32pnClEPvcfE12
MMG/Eg60qVKkEHjnhHPYJoLbtTOuu7qkkNB279LdKIL7Kms+3bGuC/r6Og4b
xBPUJNrmxlztgmuvIknHHoKHp+yvVHFl0OwuFC5LJVjoM/mbLFwGK3/yEhlm
EvR8byxiTslgUixza8kl2OsxnjB7UAZviCnOP8L+a9Jt8quV3RAqbl0+WEYw
/tAJ+aigG8Z+tP3V+yTBXN6MqftANyj4O/bknSU41KMSvwI52E/Y2vpfJChs
CDqtrpZDnbog4kw9QRuFR9KRBQoov5eUmNZI8IWTqMI3RwGNaj1n6A7BKzE9
qy99VIDjx+hZvFaCtW4OSmGeEmYtCRp895DgKnf1S6VxD5inPYNwGUGnVb3a
3DM9kCd+c2i1mr03VY9E8lUQ6DjqoH9KMEQ7il4SFQTczAn2G2H3GOrSpmep
4bJvRaT1OMGGpv0Hjb/uBT+DTRrBvwRt2/xt9v7TC27Sd+r2aYLhcaYels2P
ofCklah4FsXTVdcqOYf7YN7R/o/DcyhmbYzYlpz8BKaLlrjeN6fo2Vwqvhnc
D16lAZ0ZlhQ5FdENKWueQmOr5fiDzym2JNc/qvUegDJ9zNgJe4rXA2sv/OA3
CNWR4bsmeRSlYeevm3zzDKxui9ue8CmKrTO5w+JnoHG0EZ5ZQ9FwwcSho1uf
g+bBQsVrpLhho3JtudEQ0Jhfph76U8xYby19KhoCjUt9DT+IYlWKPlgYrwG5
Wf2N9AiK7/Tu1yWOw+Cocbrks43i9Ie3HfuGh+Hqi5DF1bEUzzUmFmXeGYHq
15O7c5IoVpgITI4Va2HESGDvtZ9i+VTHvmPRoxAVUB9dnE5R6yvcvT5sDNaV
bM7aJqBYs8zFTI86qLac/zqT9UtPzpwVG3RgeL41rpK1yfEZeRzVgeQGL0jN
elXSe9njEB1sHfxgF5JL0Vw3mdKxUwcZ/Bqx788U1Xap23vydXCzl+E65VOk
Ey3j+X/rwDrmXFEA68ADaoWqUwfZE6HvE1ifKs0pWS7XsXs2jVxkPW5lcaC7
TwcqXtmtLwso5tm6LOaN6+BttluURSHFsfWlY0bmDESajsldWZunC6ZiLRi4
e7zKP5i1ssp7oN2KgbzfjVxLWWuG25YW2TLAlatnmxRRPJ73Z80iPgNpW0sO
OrBO/WAWkbmagT4tTviwPpIfOfB8LQM1M3UqAet2cVjyVR8GjAujvjvHeuln
gWnWhIHEBRYtTaydRe2h+YEMSCvF7v2s53YPGb8KZsDVIatumvWmN4/KtoQz
8B8J0ku+
          "]]}, Annotation[#, "Charting`Private`Tag$37387#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6], 
          Dashing[{Small, Small}]], 
         LineBox[CompressedData["
1:eJwV0X0w1HkcB/CltkMPSqJcXRShLc9nzlGfTyl9f9Ktntg69KDIQ1OX2vJw
ngq1VltJijycJtey01wkZa3YxTqy5/Sw8jAe1mp/YRo6TA9X97s/PvOZ17zn
85nPzMfq8IldR/VZLNYOpv7v4vsvfPatJ3g3DcqV0zUQZqqfeJrx1+xdTaaf
asA6zrFKxHjFJiPR4a81ULhVsLqZsShL7cwykML1XmC5OhAME3yq9l4mhWSj
8ifzHAlevja7f9RTCrywlHX1TgTD52iCG1KkYPCdg4mtG8EE2eTPGca1kC/j
HMzwJKjgSrNUfjK4vr8sM3IzwfF3s9orUupgiD3XikMRXGrf4zdQ+xSODBp7
JPoTvCY74JtzpR78anIc9gQSFNpV7Bvc0ADHFE9La0OYvFSo/0BPDt3dbRf1
wwjyzsz1PNQqh4p3PNIWTRAnhntPZSmgzk0gWHOa4M3ceJ+xiEZwOutVNjue
4H6V49dkbIIZZYdrfQozHxo5EfFtM0wSQ1xwieDJE/Z2OhMl7FbK7ftFBC+1
c+1yZ7WA7ozljc25BO8Ib528tvhPeO5yMPp8IcGg2oUuZG0rWI9bWm67SzC7
h5dk4dEGYnVaQIGEoOlU7/sfo57B9adRkfxKgu5WlPuSnHaoVE+xhmoI9vjF
6PK1KrD9ckiPIydYLgx46LOyA/RWcfunWwguMjwb/L65A4z5A7C3g2DTCHtN
zIW/4bxy8ld3NcGi8kLLUa9O8LN9YzPVR/Cgg2La8kMn+FYn+ftoCQZ23Vsy
0v4c7m+5xbMYIzh4fFl59+0X4KMfqEl+T1Br0CB9mP4SXFXT6saPBI/zuuaH
8F9Beq55WaYehX2cnL2+B9Qw/2rvl2EDCrk2GCAK64KPGaucG4wppO7ftFSE
vQavLN/2ODMK17urJCuiu6FSbjbWvILCNa83peZn94BoKlSXY02h6m1C8LuK
Xijm7Q2f4VD4y2Rf9Z2ZPjB/olT0uFD4V3RjRYtrP2hslwsKPCjMrrpn5OQ5
AJpm0+cTSCHEGJdfmBgAKvTyh5ZtFLarqvePlAyCxlFS4sKl0Dyw1XFX1BB0
GkmqYgOYfU2V7LofNGCrWVfqHUyh1nC3+XHWMDwY3bms+AiFQ5VXdywfGobi
iZmIpCjmvtERT6VMC1p2srXXKQp/ml6upykYgRBfyaHMWApnNrsuwvw3sEG4
LyE4mULrHvla8VUdFJstmIhnbCYTT8+9oYPZv8mP5jHWrWJlnsjTwbMqDlfN
WFAkmO9xRwdB/f9a7UyhkN+ml/jyoQ7iXEqUW1IplIbTHLcuHVR3vTVZd4HC
se0xjy+tpMEitCjDl7E5WnSxrWlIHN/9+RjjIftHjal2NPNPmfYuY/+NB9hJ
zjS84oger0yjsDL+nF2KNw3/JLqGLE6n8DR3fIkknAaeoa7TmXEsf6nZ99E0
1Gbf3ubPeHxemrbuJA3n77GdsxhXCR9NvoilwaRTPeubDArFURdbjYQ08IOE
52wYr455RvKu0NA9guPejOOK4nLX5tBQ8kn8KpnxHigr3VFIw5z0kO1FjBWO
/PCBEhoiFy6ulzF+s3HTh5jfaVDlKd16GaulTkEGEhqcbRLEHxnbf464UvAH
Df8BgdhCLQ==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$37387#2"]& ]}}, {}}, {
    DisplayFunction -> Identity, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
       None}, DisplayFunction -> Identity, DisplayFunction -> Identity, 
     Ticks -> {Quiet[
        Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , Automatic}, 
     AxesOrigin -> {48.35428695287496, 0.10532806330549833`}, 
     FrameTicks -> {{Automatic, Automatic}, {Quiet[
         Charting`ScaledTicks[{Log, Exp}][#, #2, {6, 6}]]& , 
        Charting`ScaledFrameTicks[{Log, Exp}]}}, GridLines -> {None, None}, 
     DisplayFunction -> Identity, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> None,
        "ClippingRange" -> {{{48.35428700814129, 51.062337098710834`}, {
        0.10532806330549833`, 0.8229191597416258}}, {{48.35428700814129, 
        51.062337098710834`}, {0.10532806330549833`, 0.8229191597416258}}}}, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {None, None}, 
     AxesOrigin -> {48.35428695287496, 0.10532806330549833`}, 
     CoordinatesToolOptions -> {"DisplayFunction" -> ({
         Exp[
          Part[#, 1]], 
         Part[#, 2]}& ), "CopiedValueFunction" -> ({
         Exp[
          Part[#, 1]], 
         Part[#, 2]}& )}, DisplayFunction :> Identity, 
     Frame -> {{True, True}, {True, True}}, FrameLabel -> {{
        FormBox[
        "\"\\!\\(\\*SubscriptBox[\\(\[Delta]\\), \\(e\\)]\\)[mrad]\"", 
         TraditionalForm], None}, {
        FormBox[
        "\"I0[\\!\\(\\*SuperscriptBox[\\(10\\), \\(21\\)]\\) \
\\!\\(\\*SuperscriptBox[\\(Wcm\\), \\(-2\\)]\\)]\"", TraditionalForm], None}},
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, 
       "DefaultGraphicsInteraction" -> {
        "Version" -> 1.2, "TrackMousePosition" -> {True, False}, 
         "Effects" -> {
          "Highlight" -> {"ratio" -> 2}, "HighlightPoint" -> {"ratio" -> 2}, 
           "Droplines" -> {
            "freeformCursorMode" -> True, 
             "placement" -> {"x" -> "All", "y" -> "None"}}}}, 
       "DefaultMeshStyle" -> AbsolutePointSize[6], "ScalingFunctions" -> 
       None}, PlotRange -> NCache[{{
         Log[1000000000000000000000], 
         Log[15000000000000000000000]}, {0.10532806330549833`, 
        0.8229191597416258}}, {{48.35428695287496, 51.06233715397717}, {
       0.10532806330549833`, 0.8229191597416258}}], PlotRangeClipping -> True,
      PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
      "\"Eq 6\"", 
       "\"0.086 (I0[\\!\\(\\*SuperscriptBox[\\(10\\), \
\\(-21\\)]\\)]\\!\\(\\*SuperscriptBox[\\()\\), \\(0.75\\)]\\) \
\[Sqrt]\[Tau][\\!\\(\\*SuperscriptBox[\\(10\\), \\(-14\\)]\\)]\""}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0.5`", ",", "0"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[1, 0.5, 0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[1, 0.5, 0], Editable -> False, Selectable -> 
                    False]}], "]"}], ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.880722`", ",", "0.611041`", ",", "0.142051`"}],
                     "]"}], NumberMarks -> False]], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}]}], 
             "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", 
             RowBox[{"{", "}"}]}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.86297181784368*^9, {3.8629719141845903`*^9, 3.862971928539213*^9}, {
   3.8629719786184883`*^9, 3.86297201529103*^9}, {3.86297206533972*^9, 
   3.8629721216420107`*^9}, {3.8629721946312733`*^9, 3.86297220325646*^9}, {
   3.862972234569643*^9, 3.862972258021398*^9}, {3.862972343250669*^9, 
   3.862972369310357*^9}, {3.862972422305797*^9, 3.8629724619472218`*^9}, {
   3.862972520982746*^9, 3.8629726490151052`*^9}, {3.862972790675952*^9, 
   3.862972806325078*^9}, {3.862972873344612*^9, 3.862972902981916*^9}, 
   3.862973064353388*^9},
 CellLabel->
  "Out[402]=",ExpressionUUID->"bb42d6c7-46c0-4e81-b34b-089d5881bcf1"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1440, 771},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.3 for Mac OS X x86 (64-bit) (July 9, 2021)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"27480276-cbfc-4739-aebc-bce4ee2df176"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 542, 9, 73, "Text",ExpressionUUID->"3d8d80fe-9db4-4a68-89df-902f9dde1510"],
Cell[1103, 31, 594, 16, 79, "Text",ExpressionUUID->"c25114d8-0653-4ee7-a216-97aa4195c484"],
Cell[1700, 49, 901, 24, 46, "Text",ExpressionUUID->"c6c65ece-5b02-49c7-8428-e42507fda386"],
Cell[2604, 75, 879, 17, 112, "Text",ExpressionUUID->"eb327a79-0104-47e5-9702-aca7e786642a"],
Cell[CellGroupData[{
Cell[3508, 96, 694, 15, 56, "Chapter",ExpressionUUID->"ebcd1559-0b63-43e5-9209-ec824884f27b"],
Cell[4205, 113, 353, 7, 35, "Text",ExpressionUUID->"8bae70f1-8600-4881-9b1b-01c695cfbec3"],
Cell[CellGroupData[{
Cell[4583, 124, 9271, 256, 571, "Input",ExpressionUUID->"0039e0b4-6eb5-4d01-aaa6-6dd41657b440"],
Cell[13857, 382, 1058, 30, 67, "Output",ExpressionUUID->"9b68e666-1329-403b-ac2c-0ea6f5a8d585"],
Cell[14918, 414, 71776, 1275, 259, "Output",ExpressionUUID->"0e75af59-db6b-46f4-a5e2-407f75a94e2c"],
Cell[86697, 1691, 68689, 1224, 262, "Output",ExpressionUUID->"1c674441-dda4-4bf0-8f4b-53633dc2e2e3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[155435, 2921, 306, 5, 56, "Chapter",ExpressionUUID->"861bee43-68aa-4841-958d-f3741ee51186"],
Cell[155744, 2928, 442, 8, 35, "Text",ExpressionUUID->"ae9e01ef-1170-4e12-a641-e112d99c8d4b"],
Cell[CellGroupData[{
Cell[156211, 2940, 2430, 72, 198, "Input",ExpressionUUID->"bd126372-4e86-41c9-b7f0-cda2965e9f54"],
Cell[158644, 3014, 712, 21, 71, "Output",ExpressionUUID->"b9b2f42c-6ff7-480c-a2df-638f88d94698"]
}, Open  ]],
Cell[159371, 3038, 3232, 88, 243, "Input",ExpressionUUID->"541944c3-e11e-49b8-94d5-00f430c25759"],
Cell[CellGroupData[{
Cell[162628, 3130, 3187, 86, 201, "Input",ExpressionUUID->"78163c4d-0198-4364-86f2-7b2bc58af564"],
Cell[165818, 3218, 21142, 448, 249, "Output",ExpressionUUID->"a1544ccc-32dc-49cf-8f8c-c7cc36ce7ac5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[187009, 3672, 307, 5, 56, "Chapter",ExpressionUUID->"9edca92f-2c73-49bd-aff8-6350ac9743d5"],
Cell[187319, 3679, 547, 10, 35, "Text",ExpressionUUID->"33216c55-2ff5-4be9-9bc4-fc2ee445e23b"],
Cell[CellGroupData[{
Cell[187891, 3693, 1329, 34, 93, "Input",ExpressionUUID->"5c502f7b-a05a-48d1-ab52-fe73f3f399a8"],
Cell[189223, 3729, 572, 13, 28, "Message",ExpressionUUID->"cb8b0c0f-787b-477c-bc1e-7b4a6d260685"],
Cell[189798, 3744, 895, 24, 67, "Output",ExpressionUUID->"759a75f4-3201-4394-8826-defa42f78695"]
}, Open  ]],
Cell[190708, 3771, 446, 9, 35, "Text",ExpressionUUID->"83ef2c06-1ef4-4c77-b918-600bd347489d"],
Cell[CellGroupData[{
Cell[191179, 3784, 2154, 62, 158, "Input",ExpressionUUID->"726ce66c-29cb-4d0e-ab9d-9f07cf790bd7"],
Cell[193336, 3848, 402, 10, 28, "Message",ExpressionUUID->"3993a476-e826-4200-9b13-fd16a077a59e"],
Cell[193741, 3860, 1176, 30, 60, "Output",ExpressionUUID->"8baecab8-fa3f-4bea-b467-4a776f620a99"],
Cell[194920, 3892, 402, 10, 28, "Message",ExpressionUUID->"639d4582-108e-431c-b5a9-308337ffddf1"],
Cell[195325, 3904, 1174, 30, 60, "Output",ExpressionUUID->"f2ae22b7-dd9a-48e0-83c7-3fa7f8b53c3e"]
}, Open  ]],
Cell[196514, 3937, 466, 9, 35, "Text",ExpressionUUID->"6a7665c9-7146-4b84-b2ac-f405b7eaa767"],
Cell[196983, 3948, 7758, 208, 343, "Input",ExpressionUUID->"b14482a3-4041-4869-b61f-4164b6335106"],
Cell[204744, 4158, 450, 7, 35, "Text",ExpressionUUID->"f33dd858-2093-4a27-ad5b-b7cb07781660"],
Cell[205197, 4167, 1098, 26, 73, "Input",ExpressionUUID->"13c8d284-5edf-415b-aefe-780629340026"],
Cell[CellGroupData[{
Cell[206320, 4197, 3078, 81, 141, "Input",ExpressionUUID->"82b34c3f-d28e-4da7-8b16-1cef3b7f70e7"],
Cell[209401, 4280, 21367, 450, 247, "Output",ExpressionUUID->"a5cfc347-a19a-4729-926f-57d0e0c1282b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[230817, 4736, 381, 6, 56, "Chapter",ExpressionUUID->"6f599601-568e-4334-bdbc-3e76d0b1cd62"],
Cell[231201, 4744, 639, 12, 81, "Text",ExpressionUUID->"ab826702-3e56-4c57-b33b-c4345ec69a17"],
Cell[CellGroupData[{
Cell[231865, 4760, 5166, 140, 328, "Input",ExpressionUUID->"2061d17b-837f-4c75-b561-0935923cdb5c"],
Cell[237034, 4902, 12286, 250, 255, "Output",ExpressionUUID->"f570aa46-79e2-4b44-8a1a-cc0f95f31cd7"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[249369, 5158, 437, 7, 56, "Chapter",ExpressionUUID->"e9c298db-b1b6-4bd4-82d8-352a2ab7fb38"],
Cell[249809, 5167, 635, 9, 40, "Text",ExpressionUUID->"d19c1b43-e82c-473c-9459-aa10835c243d"],
Cell[250447, 5178, 7039, 183, 374, "Input",ExpressionUUID->"c170c7ca-24aa-4961-a408-a403a3800e65"],
Cell[257489, 5363, 1067, 25, 52, "Input",ExpressionUUID->"df9992ae-7913-45c4-aa65-1f643e9c7db2"],
Cell[CellGroupData[{
Cell[258581, 5392, 2639, 66, 96, "Input",ExpressionUUID->"6e166ae7-465d-409e-98a5-ddd170a87174"],
Cell[261223, 5460, 21096, 447, 253, "Output",ExpressionUUID->"b6e6a717-dd53-4f85-ad71-41cd2921c5fc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[282368, 5913, 611, 9, 89, "Chapter",ExpressionUUID->"276eee93-151d-43d7-9a87-4bc9c3382a05"],
Cell[CellGroupData[{
Cell[283004, 5926, 5434, 151, 384, "Input",ExpressionUUID->"3023a0b4-b530-4e9d-9cf2-009f6da62135"],
Cell[288441, 6079, 18227, 370, 264, "Output",ExpressionUUID->"bb42d6c7-46c0-4e81-b34b-089d5881bcf1"]
}, Open  ]]
}, Open  ]]
}
]
*)