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

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

(* CreatedBy='Mathematica 10.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[   6229128,     131662]
NotebookOptionsPosition[   6175529,     130860]
NotebookOutlinePosition[   6176025,     130877]
CellTagsIndexPosition[   6175982,     130874]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "SetDirectory", "[", 
    "\"\<C:\\\\Users\\\\wilmsen\\\\Dropbox\\\\WR\\\\Research\\\\IMPOSE\>\"", 
    "]"}], ";"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.818438376389078*^9, 3.8184383796690826`*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"012e4ec2-5954-4e72-8e0c-cd62752b98ad"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", 
   "\"\<C:\\\\Users\\\\Rickels\\\\Dropbox\\\\Historic_DICE_Dropbox\\\\Data_\
1960_2019\\\\SI_SpinUp\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.8241808193512616`*^9, 3.824180820761224*^9}, {
  3.831173359438088*^9, 3.8311733741053286`*^9}, {3.8311842771845646`*^9, 
  3.8311842840717587`*^9}},
 CellLabel->"In[66]:=",ExpressionUUID->"71510dd2-2def-4f9f-b96e-bdf21b72f1d2"],

Cell["Fair Carbon Cycle Setup", "Text",
 CellChangeTimes->{{3.71113575119866*^9, 3.7111357648642597`*^9}, {
  3.711171131470954*^9, 3.711171132484956*^9}, {3.712408724609439*^9, 
  3.7124087395614595`*^9}, {3.7662479249546547`*^9, 3.7662479290036545`*^9}, {
  3.810276061054193*^9, 3.810276074321699*^9}},
 FontSize->18,
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"f703d587-e791-4118-b11d-f6f4e4ac5987"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"parFair", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"q1", "\[Rule]", "0.33"}], ",", 
     RowBox[{"q2", "\[Rule]", "0.41"}], ",", 
     RowBox[{"d1", "\[Rule]", "239"}], ",", 
     RowBox[{"d2", "\[Rule]", "4.1"}], ",", 
     RowBox[{"r0", "\[Rule]", "35"}], 
     RowBox[{"(*", "32.4", "*)"}], ",", 
     RowBox[{"rc", "\[Rule]", "0.019"}], ",", 
     RowBox[{"rT", "\[Rule]", "4.165"}], ",", 
     RowBox[{"F2x", "\[Rule]", "3.71"}], ",", 
     RowBox[{"\[Tau]1", "\[Rule]", 
      RowBox[{"10", "^", "6"}]}], ",", 
     RowBox[{"\[Tau]2", "\[Rule]", "394.4"}], ",", 
     RowBox[{"\[Tau]3", "\[Rule]", "36.54"}], ",", 
     RowBox[{"\[Tau]4", "\[Rule]", "4.304"}]}], " ", "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"aFair", "=", 
   RowBox[{"{", 
    RowBox[{"0.2173", ",", "0.2240", ",", "0.2824", ",", "0.2763"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Tau]Fair", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"10", "^", "6"}], ",", "394.4", ",", "36.54", ",", "4.304"}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rirf", "[", 
    RowBox[{"Cacc_", ",", "T_"}], "]"}], "=", 
   RowBox[{
    RowBox[{"r0", "+", 
     RowBox[{"rc", "*", "Cacc"}], "+", 
     RowBox[{"rT", "*", "T"}]}], "/.", "parFair"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"fn", "[", 
    RowBox[{"\[Alpha]_", ",", "ai_", ",", "\[Tau]i_"}], "]"}], "=", 
   RowBox[{"\[Alpha]", "*", "ai", "*", "\[Tau]i", "*", 
    RowBox[{"(", 
     RowBox[{"1", "-", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "100"}], "/", 
        RowBox[{"(", 
         RowBox[{"\[Alpha]", "*", "\[Tau]i"}], ")"}]}], "]"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lirf", "[", "\[Alpha]_", "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"fn", "[", 
       RowBox[{"\[Alpha]", ",", 
        RowBox[{"aFair", "[", 
         RowBox[{"[", "1", "]"}], "]"}], ",", "\[Tau]1"}], "]"}], "+", 
      RowBox[{"fn", "[", 
       RowBox[{"\[Alpha]", ",", 
        RowBox[{"aFair", "[", 
         RowBox[{"[", "2", "]"}], "]"}], ",", "\[Tau]2"}], "]"}], "+", 
      RowBox[{"fn", "[", 
       RowBox[{"\[Alpha]", ",", 
        RowBox[{"aFair", "[", 
         RowBox[{"[", "3", "]"}], "]"}], ",", "\[Tau]3"}], "]"}], "+", 
      RowBox[{"fn", "[", 
       RowBox[{"\[Alpha]", ",", 
        RowBox[{"aFair", "[", 
         RowBox[{"[", "4", "]"}], "]"}], ",", "\[Tau]4"}], "]"}]}], "/.", 
     "parFair"}], "//", "FullSimplify"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dalpha", "[", "\[Alpha]_", "]"}], "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"lirf", "[", "\[Alpha]", "]"}], ",", "\[Alpha]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dr", "[", 
    RowBox[{"ai_", ",", "\[Tau]i_", ",", "\[Alpha]_", ",", "e_", ",", "R_"}], 
    "]"}], "=", 
   RowBox[{
    RowBox[{"ai", "*", "e"}], "-", 
    RowBox[{"R", "/", 
     RowBox[{"(", 
      RowBox[{"\[Alpha]", "*", "\[Tau]i"}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"parPG", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Lambda]g", "->", "1.18"}], ",", 
     RowBox[{"upperc", "->", "8.2"}], ",", 
     RowBox[{"lowerc", "->", "109.0"}], ",", 
     RowBox[{"\[Beta]", "->", "0.67"}], ",", 
     RowBox[{"eff", "->", "1.28"}], ",", 
     RowBox[{"dt", "->", "1"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cdeepp", "=", 
   RowBox[{
    RowBox[{"lowerc", "*", "eff"}], "/.", "parPG"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"gammap", "=", 
   RowBox[{
    RowBox[{"\[Beta]", "*", "eff"}], "/.", "parPG"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Lambda]g", "+", "gammap"}], ")"}], "/", "upperc"}], "/.", 
    "parPG"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", "=", 
   RowBox[{"gammap", "/", "cdeepp"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g", "=", 
   RowBox[{"g1", "+", "g2"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"gstar", "=", 
   RowBox[{"g1", "-", "g2"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"delsqrt", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"g", "*", "g"}], "-", 
       RowBox[{"4", "*", "g2", "*", 
        RowBox[{"\[Lambda]g", "/", "upperc"}]}]}], ")"}], "^", "0.5"}], "/.", 
    "parPG"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"afast", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"g", "+", "delsqrt"}], ")"}], "/", "2"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"aslow", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"g", "-", "delsqrt"}], ")"}], "/", "2"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"cc", "=", 
   RowBox[{
    RowBox[{"0.5", "/", 
     RowBox[{"(", 
      RowBox[{"upperc", "*", "delsqrt"}], ")"}]}], "/.", "parPG"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"amixf", "=", 
   RowBox[{"cc", "*", 
    RowBox[{"(", 
     RowBox[{"gstar", "+", "delsqrt"}], ")"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"amixs", "=", 
   RowBox[{
    RowBox[{"-", "cc"}], "*", 
    RowBox[{"(", 
     RowBox[{"gstar", "-", "delsqrt"}], ")"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"adeepf", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "gammap"}], "/", 
     RowBox[{"(", 
      RowBox[{"upperc", "*", "cdeepp", "*", "delsqrt"}], ")"}]}], "/.", 
    "parPG"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"adeeps", "=", 
   RowBox[{"-", "adeepf"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"adf", "=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"afast", "*", "1"}], ")"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"ads", "=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"aslow", "*", "1"}], ")"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"expf", "=", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "/", "adf"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"exps", "=", 
   RowBox[{"Exp", "[", 
    RowBox[{
     RowBox[{"-", "1"}], "/", "ads"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"intf", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f0", "*", "adf"}], "+", 
      RowBox[{"f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "adf"}], ")"}]}], "-", 
      RowBox[{"expf", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"f0", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "adf"}], ")"}]}], "-", 
         RowBox[{"f1", "*", "adf"}]}], ")"}]}]}], ")"}], "/", "afast"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"ints", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"f0", "*", "ads"}], "+", 
      RowBox[{"f1", "*", 
       RowBox[{"(", 
        RowBox[{"1", "-", "ads"}], ")"}]}], "-", 
      RowBox[{"exps", "*", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"f0", "*", 
          RowBox[{"(", 
           RowBox[{"1", "+", "ads"}], ")"}]}], "-", 
         RowBox[{"f1", "*", "ads"}]}], ")"}]}]}], ")"}], "/", "aslow"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.810277248743802*^9, 3.8102773313886356`*^9}, {
  3.810277381764123*^9, 3.810277400477229*^9}, {3.810277857843212*^9, 
  3.810277859394146*^9}, {3.813333362695059*^9, 3.8133334744113755`*^9}, {
  3.813549386661647*^9, 3.813549387362056*^9}},
 CellLabel->"In[37]:=",ExpressionUUID->"e2867d17-67ce-400c-8e50-5ca3eff26e6c"],

Cell["Fair Carbon Cycle Spin-up", "Text",
 CellChangeTimes->{{3.71113575119866*^9, 3.7111357648642597`*^9}, {
  3.711171131470954*^9, 3.711171132484956*^9}, {3.712408724609439*^9, 
  3.7124087395614595`*^9}, {3.7662479249546547`*^9, 3.7662479290036545`*^9}, {
  3.810276061054193*^9, 3.810276074321699*^9}, {3.8227995602020345`*^9, 
  3.8227995659345427`*^9}},
 FontSize->18,
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"e3ce86a0-f9e3-4e92-9220-6d4ace1602d8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dalpha", "[", "0.491714646", "]"}]], "Input",
 CellChangeTimes->{{3.824224476472345*^9, 3.824224498094448*^9}},
 CellLabel->
  "In[2037]:=",ExpressionUUID->"fe1cd5a5-8a5e-44be-8c44-9a2df8048964"],

Cell[BoxData["19.644795466098003`"], "Output",
 CellChangeTimes->{3.8242245003369226`*^9},
 CellLabel->
  "Out[2037]=",ExpressionUUID->"a4f8cda3-668a-44cf-8ca8-85d7e58d40cc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Import", "[", "\"\<hist_emissions.csv\>\"", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.831184072986274*^9, 3.831184097552437*^9}, {
  3.8311842327609935`*^9, 3.8311842352948065`*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"9e535e12-e998-42b7-a958-92111de62308"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "data", "]"}]], "Input",
 CellChangeTimes->{{3.831184103881863*^9, 3.831184107922657*^9}},
 CellLabel->"In[68]:=",ExpressionUUID->"acb51b51-9bd9-46b7-83fa-e14b0de3a1f5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"256", ",", "45"}], "}"}]], "Output",
 CellChangeTimes->{3.8311841091016846`*^9, 3.831184199725914*^9, 
  3.8311843000624905`*^9},
 CellLabel->"Out[68]=",ExpressionUUID->"79ae07af-d1bd-4a02-b987-0af5a1c8173e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"y", "=", "255"}], ",", "\[IndentingNewLine]", 
      RowBox[{"transFairG", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "y"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "20"}], "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
        "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-R1\>\"", ",", 
         "\"\<4-R2\>\"", ",", "\"\<5-R3\>\"", ",", "\"\<6-R4\>\"", ",", 
         "\"\<7-C\>\"", ",", "\"\<8-CCA\>\"", ",", "\"\<9-F\>\"", ",", 
         "\"\<10-Fex\>\"", ",", "\"\<11-TF\>\"", ",", "\"\<12-TMF\>\"", ",", 
         "\"\<13-TMS\>\"", ",", "\"\<14-TDF\>\"", ",", "\"\<15-TDS\>\"", ",", 
         "\"\<16-TM\>\"", ",", "\"\<17-TD\>\"", ",", "\"\<18-\[Alpha]\>\"", 
         ",", "\"\<19-\[Alpha]check\>\"", ",", "\"\<20-atmosGt\>\""}], 
        "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"transFairG", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}], "=", 
         RowBox[{"1765", "-", "1", "+", "n"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "1", ",", 
          RowBox[{"y", "-", "1"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"emcolumns", "=", 
       RowBox[{"{", "20", "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"transFairG", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"dtemp", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "/", "2.12"}]}], 
        ","}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"data", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"3", ";;"}], ",", 
           RowBox[{"emcolumns", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], "/", 
        "2.1293970467500096"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}],
        "=", "0"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "initial", " ", "carbon", " ", "values", " ", "for", " ", "R1"}], ",",
         "R2", ",", "R3", ",", "R4"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "7"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"transFairG", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", 
            RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}], "+", 
        "278.0014091894"}]}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
       "initial", " ", "atmospheric", " ", "carbon", " ", "concentration"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", "0"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "9"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"F2x", "/", 
           RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "7"}], "]"}], "]"}], "/", "278"}], "]"}]}], "/.",
         "parFair"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"fexcolumns", "=", 
       RowBox[{"{", "40", "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "10"}], "]"}], "]"}], "=", 
       RowBox[{"data", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"3", ";;"}], ",", 
          RowBox[{"fexcolumns", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}], "=", 
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"12", ",", "13", ",", "14", ",", "15"}], "}"}]}], "]"}], 
        "]"}], "=", "0"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
       "initial", " ", "values", " ", "for", " ", "Mix", " ", "Layer", " ", 
        "Fast", " ", "and", " ", "Slow", " ", "Response", " ", "and", " ", 
        "Deep", " ", "Layer", " ", "Fast", " ", "and", " ", "Slow", " ", 
        "Response"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "16"}], "]"}], "]"}], "=", 
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "17"}], "]"}], "]"}], "=", 
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "18"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"rirf", "[", 
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "8"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
           RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Alpha]", ",", "0.2"}], "}"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "19"}], "]"}], "]"}], "=", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "18"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "1"}], ",", 
               RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "+", 
            RowBox[{"dr", "[", 
             RowBox[{"aFair", ",", "\[Tau]Fair", ",", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}], ",", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], "]"}]}]}], ",", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
           RowBox[{"278.0014091894", "+", 
            RowBox[{"Total", "[", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}]}]}], ",", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}], "-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "7"}], "]"}], "]"}], "-", 
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "7"}], "]"}], "]"}]}], 
                ")"}]}], ")"}], "*", "2.12"}]}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"F2x", "/", 
               RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "7"}], "]"}], "]"}], "/", 
               "278.0014091894"}], "]"}]}], "/.", "parFair"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"expf", "*", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "12"}], "]"}], "]"}]}], "+", 
              RowBox[{"amixf", "*", "intf"}]}], "/.", 
             RowBox[{"f0", "\[Rule]", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
            RowBox[{"f1", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"exps", "*", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "13"}], "]"}], "]"}]}], "+", 
              RowBox[{"amixs", "*", "ints"}]}], "/.", 
             RowBox[{"f0", "\[Rule]", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
            RowBox[{"f1", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"expf", "*", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "14"}], "]"}], "]"}]}], "+", 
              RowBox[{"adeepf", "*", "intf"}]}], "/.", 
             RowBox[{"f0", "\[Rule]", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
            RowBox[{"f1", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"exps", "*", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "15"}], "]"}], "]"}]}], "+", 
              RowBox[{"adeeps", "*", "ints"}]}], "/.", 
             RowBox[{"f0", "\[Rule]", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
            RowBox[{"f1", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"{", 
                 RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
             RowBox[{
              RowBox[{
               RowBox[{"transT", ".", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}]}], "+", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
                RowBox[{"Total", "[", 
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", 
                    RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}]}], "/.",
               "parTG"}]}], ","}], "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
              RowBox[{"Total", "[", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", 
                  RowBox[{"11", ";;", "12"}]}], "]"}], "]"}], "]"}]}], ","}], 
            "*)"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"FindRoot", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"rirf", "[", 
                RowBox[{
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "8"}], "]"}], "]"}], ",", 
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "16"}], "]"}], "]"}]}], "]"}], 
               "\[Equal]", 
               RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Alpha]", ",", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}]}], 
               "}"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"rT", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"transFairG", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "16"}], "]"}], "]"}], "-", 
                   RowBox[{"transFairG", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "16"}], "]"}], "]"}]}], 
                  ")"}]}], "+", 
                RowBox[{"rc", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"transFairG", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "8"}], "]"}], "]"}], "-", 
                   RowBox[{"transFairG", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}]}], 
                  ")"}]}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{"dalpha", "[", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "]"}], 
               ")"}]}]}], "/.", "parFair"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "255"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "7"}], "]"}], "]"}], "*", "2.12"}]}]}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "1"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdz3lIk3EAxvGhuY7RIaksRUILEY+5ICwJzJcOyHW5jlljy01zmxFLk6wc
kZnLNiMyLfEIM9JFOXrn1MK0ZYGGttQtOwgZUrjsbRY4akKr3/P74+Hz7/eJ
U+ulx0N4PJ6YDDaFJ1dW53NMa5buMVyQlBxhieLkSaq719HRReRdGaMawwJp
7gKO8SYIxDD41ikLaDjmZrysAF7ODC+BU6EHqRHuzja5jmMafxhtcLA4rA+e
NxSMwGrtM7uCuDsnagDyt2wYgp8rBqhTku8zMOpphA8as78mKIn2208SYejs
xxQ4/+lPLpy5k5cHhc23VDAx+mghHPy7TQdfsT0NcJVpkrr0/kgfbH+9zAGt
is1FKvTyrWXQt2juIhxmUyuge2KoHk7p31HDTDGjNmKu7QbV9SjJA2skfqqt
v8gPfwmeB6H3TUxsF1Hk/BIPm1+mi+C0L5gOY+WXTkBt33uqMOubxo6+lb+p
Bl22+oGeY0oP5VDZn5GnYbq1pRT6xJ7VY8Rd11UR0Ba5qc55imOi7TLqPoFg
q66cY5YkCakfNobK1xjIn5RjCuji1xbC0aBCC8XrvA/LicXSqk7o2Snphvxh
Sw+MK20/ufwC6Yyv0kPfNccZuH5i+zm4eI+1dQXR35J6F3rT8sfhsKh3Airr
/kWOGzlm1tIbBU07zBn7zRwjddVmQov5RZmGuDDNVsK5kL1XoaShtR6a1Yfb
oFczaIHKQCMLz853UGsO+LqhWCTqgRn3TP2QW8tS/wPc9ZAo
  "],
 CellLabel->"In[82]:=",ExpressionUUID->"d89c5852-c7fb-45f8-b606-2af1c7082687"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "lstol", 
   "\"The line search decreased the step size to within tolerance specified \
by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
decrease in the merit function. You may need more than \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"", 2, 82, 19, 17996976269695676136, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.831184713932683*^9, 3.8311847821798406`*^9, 
  3.831184818378604*^9, 3.8311849472821035`*^9},
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"1ce955aa-3cb0-42db-a043-4336388acd35"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "lstol", 
   "\"The line search decreased the step size to within tolerance specified \
by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
decrease in the merit function. You may need more than \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"", 2, 82, 20, 17996976269695676136, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.831184713932683*^9, 3.8311847821798406`*^9, 
  3.831184818378604*^9, 3.831184947290078*^9},
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"da333941-f45d-45ad-8c56-dbf04bbb47cb"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot", "lstol", 
   "\"The line search decreased the step size to within tolerance specified \
by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
decrease in the merit function. You may need more than \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"", 2, 82, 21, 17996976269695676136, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.831184713932683*^9, 3.8311847821798406`*^9, 
  3.831184818378604*^9, 3.831184947300071*^9},
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"06f94da0-bcfa-4c23-9d21-97f445550bda"],

Cell[BoxData[
 TemplateBox[{
  "General", "stop", 
   "\"Further output of \\!\\(\\*StyleBox[RowBox[{\\\"FindRoot\\\", \
\\\"::\\\", \\\"lstol\\\"}], \\\"MessageName\\\"]\\) will be suppressed \
during this calculation.\"", 2, 82, 22, 17996976269695676136, "Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.831184713932683*^9, 3.8311847821798406`*^9, 
  3.831184818378604*^9, 3.8311849473070335`*^9},
 CellLabel->
  "During evaluation of \
In[82]:=",ExpressionUUID->"1c98f1f2-20cd-4f5f-90df-e633c7e81627"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"transFairG", "[", 
   RowBox[{"[", 
    RowBox[{"{", 
     RowBox[{
     "1", ",", "2", ",", "197", ",", "247", ",", "251", ",", "252", ",", 
      "253", ",", "254", ",", "255"}], "}"}], "]"}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.812610320252155*^9, 3.8126103463259954`*^9}, {
  3.8126104820408783`*^9, 3.8126104826246424`*^9}, {3.8126105132640886`*^9, 
  3.812610520476856*^9}, {3.8133407106776934`*^9, 3.8133407307417655`*^9}, {
  3.813514094220465*^9, 3.8135140948207846`*^9}, {3.816718726108967*^9, 
  3.816718726338008*^9}, {3.8231536821488037`*^9, 3.8231536841888065`*^9}, {
  3.8241842101302752`*^9, 3.82418421268314*^9}, {3.831184733311742*^9, 
  3.831184734932646*^9}, {3.8311848435235987`*^9, 3.8311848453155003`*^9}},
 CellLabel->"In[83]:=",ExpressionUUID->"70226d3f-4f0d-4604-bcb2-050673ad408b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"1-Y\"\>", "\<\"2-E\"\>", "\<\"3-R1\"\>", "\<\"4-R2\"\>", "\<\"5-R3\
\"\>", "\<\"6-R4\"\>", "\<\"7-C\"\>", "\<\"8-CCA\"\>", "\<\"9-F\"\>", \
"\<\"10-Fex\"\>", "\<\"11-TF\"\>", "\<\"12-TMF\"\>", "\<\"13-TMS\"\>", \
"\<\"14-TDF\"\>", "\<\"15-TDS\"\>", "\<\"16-TM\"\>", "\<\"17-TD\"\>", \
"\<\"18-\[Alpha]\"\>", "\<\"19-\[Alpha]check\"\>", "\<\"20-atmosGt\"\>"},
     {"1765", "0.0014088495166172733`", "0", "0", "0", "0", "278.0014091894`",
       "0", "0.00002713138222216843`", "0", "0.00002713138222216843`", "0", 
      "0", "0", "0", "0", "0", "0.16376976980682398`", "0.16376976980682398`",
       "589.3629874815281`"},
     {"1960", "1.9758835673326414`", "18.181473098967125`", 
      "11.315827149220363`", "3.2442568748233307`", "0.4745085184335212`", 
      "311.21747483084437`", "107.00692109848366`", "0.6041025417773106`", 
      RowBox[{"-", "0.09670858`"}], "0.5073939617773106`", 
      "0.2215631392782059`", "0.02819623675718716`", 
      RowBox[{"-", "0.005559570024233377`"}], "0.06604270282874451`", 
      "0.24975937603539305`", "0.06048313280451113`", "0.23341118750309722`", 
      "0.2332827527566335`", "659.78104664139`"},
     {"2010", "4.9308145636930885`", "53.11803877763423`", 
      "38.753895241105205`", "15.569167070874098`", "2.5633988369137466`", 
      "388.0059091159273`", "285.1084026298952`", "1.7844596480262302`", 
      "0.2547602`", "2.0392198480262302`", "0.8924002817812944`", 
      "0.09537634112845494`", 
      RowBox[{"-", "0.022392541793601173`"}], "0.22339546260314094`", 
      "0.9877766229097493`", "0.20100292080953977`", "0.4747651636548844`", 
      "0.47246592663378817`", "822.5725273257659`"},
     {"2014", "5.29165122455571`", "57.53351215106398`", "42.47510345757059`",
       "17.65844851396131`", "3.0029338589293353`", "398.67140717092525`", 
      "305.57969839393246`", "1.9296004668549656`", "0.2990513`", 
      "2.2286517668549655`", "0.9811421892374352`", "0.10499477829680466`", 
      RowBox[{"-", "0.024619296885597577`"}], "0.24592427001302886`", 
      "1.0861369675342398`", "0.22130497312743128`", "0.5156228220746063`", 
      "0.5128373074735708`", "845.1833832023616`"},
     {"2015", "5.313671157414903`", "58.683276381543855`", 
      "43.45156845822416`", "18.215568546082835`", "3.111881328867056`", 
      "401.46370390411795`", "310.87832991562203`", "1.9669580220863585`", 
      "0.311306`", "2.2782640220863586`", "1.0038229619980632`", 
      "0.1075333288457345`", 
      RowBox[{"-", "0.025188413864068008`"}], "0.2518701960939618`", 
      "1.1113562908437977`", "0.22668178222989377`", "0.5265728766794299`", 
      "0.523654492334211`", "851.1030522767301`"},
     {"2016", "5.244773297232408`", "59.83782568026145`", 
      "44.43260748861476`", "18.769442031380027`", "3.2069799324184487`", 
      "404.2482643220747`", "316.2400446832733`", "2.0039542123236234`", 
      "0.3241427`", "2.3280969123236233`", "1.0267730968836033`", 
      "0.1101271121574129`", 
      RowBox[{"-", "0.025764289807952114`"}], "0.25794549124524363`", 
      "1.1369002090410163`", "0.2321812014372915`", "0.5378383591871453`", 
      "0.5347821421515621`", "857.0063203627984`"},
     {"2017", "5.289342082628654`", "60.9774036615991`", "45.39797090920458`",
       "19.29550515343783`", "3.270720290821438`", "406.94300920446295`", 
      "321.64610492274295`", "2.0395152501882627`", "0.3375113`", 
      "2.377026550188263`", "1.0498938530677626`", "0.1127754931881479`", 
      RowBox[{"-", "0.02634444706442453`"}], "0.2641486680342714`", 
      "1.1626693462559106`", "0.23780422096984685`", "0.5493843680308963`", 
      "0.5461860360581938`", "862.7191795134615`"},
     {"2018", "5.397601620393977`", "62.1266667039106`", "46.37326461997659`",
       "19.828020780762802`", "3.3489340907809693`", "409.67829538483096`", 
      "327.0607034355355`", "2.075371274507968`", "0.3513641`", 
      "2.426735374507968`", "1.0731444752171164`", "0.11547820055055417`", 
      RowBox[{"-", "0.026927862980841995`"}], "0.2704790908032943`", 
      "1.1886226757676706`", "0.2435512278224523`", "0.5611688825287757`", 
      "0.5578249765018559`", "868.5179862158417`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8126103403973227`*^9, 3.812610346905287*^9}, 
   3.812610483083152*^9, {3.812610517594801*^9, 3.8126105210978527`*^9}, {
   3.813340687561257*^9, 3.8133407315874386`*^9}, 3.8133462478810263`*^9, 
   3.8133463178110123`*^9, 3.8135078297700357`*^9, {3.8135140850713997`*^9, 
   3.813514095687074*^9}, 3.816638337925257*^9, 3.816718505834943*^9, 
   3.816718727291587*^9, 3.8169992505846715`*^9, {3.8171381834836793`*^9, 
   3.8171382049738493`*^9}, 3.81723972571554*^9, 3.818438724693569*^9, 
   3.8184389950529575`*^9, 3.81843925293132*^9, 3.8227641330424848`*^9, {
   3.8231536768662963`*^9, 3.823153684981308*^9}, 3.8233613965483255`*^9, 
   3.823361466285424*^9, {3.8241841970859747`*^9, 3.8241842134691486`*^9}, 
   3.824186642332016*^9, 3.8287792024368873`*^9, {3.831184720770644*^9, 
   3.8311847357422347`*^9}, 3.8311847846133537`*^9, {3.8311848206545286`*^9, 
   3.831184846091795*^9}, 3.831184948810227*^9},
 CellLabel->
  "Out[83]//MatrixForm=",ExpressionUUID->"ce1b7f07-ea5d-467c-a268-\
9705dd1dd631"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"dalphav", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "255"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "3"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dalphav", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{"\"\<year\>\"", ",", "\"\<alpha\>\"", ",", "\"\<dalpha\>\""}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dalphav", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"transFairG", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dalphav", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"transFairG", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "18"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"dalphav", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "=", 
   RowBox[{"dalpha", "[", 
    RowBox[{"dalphav", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.828779231509928*^9, 3.8287792479684515`*^9}, {
  3.828779308014536*^9, 3.8287793735851283`*^9}, {3.828779404629672*^9, 
  3.828779425199201*^9}, {3.828779457132246*^9, 3.8287795156483293`*^9}},
 CellLabel->"In[84]:=",ExpressionUUID->"bd3cc4c3-d94e-4bdc-a47e-81009fbfa08c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<spinup.csv\>\"", ",", "transFairG"}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8311925731315737`*^9, 3.8311926086887755`*^9}, 
   3.8311927984994955`*^9},ExpressionUUID->"786bb733-4ec6-4fbd-b8aa-\
793ee6cff429"],

Cell[BoxData["\<\"spinup.csv\"\>"], "Output",
 CellChangeTimes->{3.831192609502759*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"e6f72939-2a04-4ce1-a91e-ba915fba8304"],

Cell[BoxData["\<\"dalpha0.csv\"\>"], "Output",
 CellChangeTimes->{3.8311926095077457`*^9},
 CellLabel->"Out[90]=",ExpressionUUID->"92b07fab-6011-476c-92d1-fcc7199dbae7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<dalpha0.csv\>\"", ",", "dalphav"}], "]"}]], "Input",
 CellChangeTimes->{3.831192801420167*^9},
 CellLabel->"In[91]:=",ExpressionUUID->"589c520a-9ffd-482d-b231-01a175c6f980"],

Cell[BoxData["\<\"dalpha0.csv\"\>"], "Output",
 CellChangeTimes->{3.8311928020806937`*^9},
 CellLabel->"Out[91]=",ExpressionUUID->"09749a4f-34d4-4391-a865-5f28a0864dc4"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"dalphav", "[", 
   RowBox[{"[", 
    RowBox[{"1", ";;", "5"}], "]"}], "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.828779378337635*^9, 3.828779399437165*^9}},
 CellLabel->
  "In[168]:=",ExpressionUUID->"be090750-8e9a-4d26-9b65-4f22ef6e2715"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"year\"\>", "\<\"alpha\"\>", "\<\"dalpha\"\>"},
     {"1765", "0.16376976980682398`", "52.0265845428803`"},
     {"1766", "0.16379372621624896`", "52.019986897328636`"},
     {"1767", "0.16385769747130374`", "52.00237595674116`"},
     {"1768", "0.1639267209387347`", "51.98338538882672`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8287793908236527`*^9, 3.8287793998371654`*^9}, 
   3.8287794702382646`*^9, 3.828779520310836*^9},
 CellLabel->
  "Out[168]//MatrixForm=",ExpressionUUID->"e66ae54e-9212-4ca0-be6c-\
13880ef77b31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<dalphav.csv\>\"", ",", "dalphav"}], "]"}]], "Input",
 CellChangeTimes->{{3.828779530943351*^9, 3.8287795519028807`*^9}},
 CellLabel->
  "In[169]:=",ExpressionUUID->"593eee1f-edde-48a3-bfe4-a6f561898dd7"],

Cell[BoxData["\<\"dalphav.csv\"\>"], "Output",
 CellChangeTimes->{3.828779554252884*^9},
 CellLabel->
  "Out[169]=",ExpressionUUID->"7fcfb6a0-4df7-4e22-8a27-53d8d207f3d0"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"IVFairwoFex2015", "=", 
   RowBox[{"transFairG", "[", 
    RowBox[{"[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "252"}], "}"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824186443439577*^9, 3.8241864932775145`*^9}},
 CellLabel->
  "In[1921]:=",ExpressionUUID->"0b380800-11a0-4ee2-91b6-1f4d1ab04969"],

Cell[BoxData[
 RowBox[{
  RowBox[{"IVFairwFex2015", "=", 
   RowBox[{"transFairG", "[", 
    RowBox[{"[", 
     RowBox[{"{", 
      RowBox[{"1", ",", "252"}], "}"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{3.8241867228443236`*^9},
 CellLabel->
  "In[1928]:=",ExpressionUUID->"cca7d039-e709-441d-a841-5833f201e33b"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<Fair_historical_Spin_up.csv\>\"", ",", "FairOutput"}], "]"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{"\"\<Fair_historical_Spin_up_wFex.csv\>\"", ",", "transFairG"}], 
    "]"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Fair_historical_Spin_up_woFex.csv\>\"", ",", "transFairG"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.822764648658268*^9, 3.822764649648269*^9}, {
   3.822764742866455*^9, 3.822764746906461*^9}, 3.8227967679454856`*^9, {
   3.822796810071045*^9, 3.822796820226059*^9}, 3.8227968554206085`*^9, {
   3.822799390000684*^9, 3.8227993936352434`*^9}, {3.8227994263192897`*^9, 
   3.82279942698929*^9}, {3.824186710699278*^9, 3.8241867115391054`*^9}, {
   3.8241870537610474`*^9, 
   3.8241870548169074`*^9}},ExpressionUUID->"97933c1b-e5eb-4047-bfab-\
68c9498e684b"],

Cell[BoxData["\<\"Fair_historical_Spin_up_wFex.csv\"\>"], "Output",
 CellChangeTimes->{{3.8227994054132605`*^9, 3.8227994305927954`*^9}, 
   3.8241851432695704`*^9, {3.824186675759321*^9, 3.824186692156361*^9}},
 CellLabel->
  "Out[1927]=",ExpressionUUID->"2cff3c16-78d1-44b8-8434-0a7c9bb920b9"]
}, Open  ]],

Cell["\<\
Illustrate Spin-up with different CC/EBM models specifications\
\>", "Text",
 CellChangeTimes->{{3.71113575119866*^9, 3.7111357648642597`*^9}, {
  3.711171131470954*^9, 3.711171132484956*^9}, {3.712408724609439*^9, 
  3.7124087395614595`*^9}, {3.7662479249546547`*^9, 3.7662479290036545`*^9}, {
  3.810276061054193*^9, 3.810276074321699*^9}, {3.8227646837663717`*^9, 
  3.822764705489403*^9}, {3.8227647695125475`*^9, 3.8227648008765917`*^9}},
 FontSize->18,
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"7fb86644-bdc7-4a49-bb85-9dfb45543d62"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SpinupDice165y", "=", 
   RowBox[{
   "Import", "[", 
    "\"\<DICE2016_5y_historical_Spinup_interpolated_overview.csv\>\"", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SpinupDice161y", "=", 
   RowBox[{
   "Import", "[", "\"\<DICE2016_1y_historical_Spinup_overview.csv\>\"", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SpinupDice135y", "=", 
   RowBox[{
   "Import", "[", 
    "\"\<DICE2013_5y_historical_Spinup_interpolated_overview.csv\>\"", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SpinupDice131y", "=", 
   RowBox[{
   "Import", "[", "\"\<DICE2013_1y_historical_Spinup_overview.csv\>\"", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SpinupDice0710y", "=", 
   RowBox[{
   "Import", "[", 
    "\"\<DICE2007_10y_historical_Spinup_interpolated_overview.csv\>\"", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SpinupDice071y", "=", 
   RowBox[{
   "Import", "[", "\"\<DICE2007_1y_historical_Spinup_overview.csv\>\"", 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SpinupFair", "=", 
   RowBox[{"Import", "[", "\"\<Fair_historical_Spin_up.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SpinupPlotdata", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1", ",", "255"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", "21"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<1-year\>\"", ",", "\"\<2-Catm-CC165\>\"", ",", 
     "\"\<3-Catm-CC161c\>\"", ",", "\"\<4-Catm-CC161b\>\"", ",", 
     "\"\<5-Catm-CC135\>\"", ",", "\"\<6-Catm-CC131c\>\"", ",", 
     "\"\<7-Catm-CC131b\>\"", ",", "\"\<8-Catm-CC0710\>\"", ",", 
     "\"\<9-Catm-CC071c\>\"", ",", "\"\<10-C-CC071b\>\"", ",", 
     "\"\<11-C-Fair\>\"", ",", "\"\<12-T-CC165\>\"", ",", 
     "\"\<13-T-CC161c\>\"", ",", "\"\<14-T-CC161b\>\"", ",", 
     "\"\<15-T-CC135\>\"", ",", "\"\<16-T-CC131c\>\"", ",", 
     "\"\<17-T-CC131b\>\"", ",", "\"\<18-T-CC0710\>\"", ",", 
     "\"\<19-T-CC071c\>\"", ",", "\"\<20-T-CC071b\>\"", ",", 
     "\"\<21-T-Fair\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8227969339927197`*^9, 3.8227969739282756`*^9}, {
  3.822797039397868*^9, 3.822797114753974*^9}, {3.822797270940194*^9, 
  3.822797271600195*^9}, {3.8227973097387486`*^9, 3.8227973102587495`*^9}, {
  3.8227979203911085`*^9, 3.8227981684049587`*^9}, {3.822798202877507*^9, 
  3.822798244959571*^9}, {3.822798286426629*^9, 3.822798328904189*^9}, {
  3.8227983595562325`*^9, 3.822798419883317*^9}, {3.822798905346501*^9, 
  3.822798914797514*^9}},
 CellLabel->
  "In[1884]:=",ExpressionUUID->"2ac70bd5-025f-4f07-89da-64e128d41d29"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice165y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice165y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice161y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "4"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice161y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "5"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice135y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice131y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "7"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice131y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice0710y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "9"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice071y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "10"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice071y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupFair", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "12"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice165y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "13"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice161y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "14"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice161y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "14"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "15"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice135y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "16"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice131y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "17"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice131y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "14"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "18"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice0710y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "19"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice071y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupDice071y", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "14"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SpinupPlotdata", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "21"}], "]"}], "]"}], "=", 
   RowBox[{"SpinupFair", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "9"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8227983381592026`*^9, 3.8227983545762253`*^9}, {
  3.822798432859336*^9, 3.822798482118905*^9}, {3.822798637870124*^9, 
  3.822798736633263*^9}, {3.8227988118418694`*^9, 3.8227988852379723`*^9}, {
  3.8227989228285255`*^9, 3.8227990819602494`*^9}},
 CellLabel->
  "In[1893]:=",ExpressionUUID->"060606c8-9a0e-4d56-9a81-b40efab49844"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SpinupCplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "11"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "DotDashed"}], "}"}], ",", "Red", ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "DotDashed"}], "}"}], ",", "Green", ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "DotDashed"}], "}"}], ",", "Black"}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1765", ",", "2018"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"580", ",", "1000"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Year\>\"", ",", "\"\<GtC\>\"", ",", "None", ",", "None"}],
        "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<a) Atmospheric Carbon Stock\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.35", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8227996106401052`*^9, 3.8227998575204535`*^9}, {
  3.8228008027108955`*^9, 3.8228008604574766`*^9}, {3.82280093317258*^9, 
  3.8228009766456413`*^9}, {3.8228012777461205`*^9, 3.822801301666154*^9}, {
  3.8228013506297235`*^9, 3.8228014233918257`*^9}, {3.8228022324335537`*^9, 
  3.8228022360635595`*^9}, {3.822802309077162*^9, 3.8228023095171623`*^9}, {
  3.822836484330261*^9, 3.822836496422278*^9}, {3.8241851642660313`*^9, 
  3.8241851718370123`*^9}},
 CellLabel->
  "In[1915]:=",ExpressionUUID->"3d0ce2d0-ea65-41b6-b692-abbbb0dd24a4"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8228008411004496`*^9, 
  3.822800865942485*^9}},ExpressionUUID->"62bf4777-24eb-4913-b5ef-\
90dc283f2faf"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SpinupTplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "12"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "15"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "16"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "17"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "18"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "19"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "20"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"SpinupPlotdata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "21"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "DotDashed"}], "}"}], ",", "Red", ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "DotDashed"}], "}"}], ",", "Green", ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "DotDashed"}], "}"}], ",", "Black"}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1765", ",", "2018"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.8"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year\>\"", ",", "\"\<\[Degree]C\>\"", ",", "None", ",", "None"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<b) Global Mean Surface Temperature Increase\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.45", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8228014590143757`*^9, 3.8228015968490705`*^9}, {
  3.8228022173785324`*^9, 3.8228022464495735`*^9}, {3.822802295031142*^9, 
  3.8228022954021425`*^9}, {3.822836407878153*^9, 3.8228364606772275`*^9}},
 CellLabel->
  "In[1916]:=",ExpressionUUID->"5ed44334-0f06-4e0e-870e-7d633986e2ef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ltemp", "=", 
   RowBox[{"LineLegend", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Blue", ",", "Dashed"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Blue", ",", "DotDashed"}], "]"}], ",", "Red", ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Red", ",", "Dashed"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Red", ",", "DotDashed"}], "]"}], ",", "Green", ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Green", ",", "Dashed"}], "]"}], ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Green", ",", "DotDashed"}], "]"}], ",", "Black"}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<DICE16-  5y\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<DICE16- 1y-calc\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<DICE16- 1y-calb\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<DICE13-  5y\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<DICE13- 1y-calc\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<DICE13- 1y-calb\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<DICE07-10y\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<DICE07- 1y-calc\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<DICE07-1y-calb\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Fair-Geoffroy\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"LegendLayout", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Row\>\"", ",", "4"}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.822801703891721*^9, 3.8228018029338603`*^9}, {
   3.822801837764942*^9, 3.822802084731291*^9}, 3.8228022544005847`*^9},
 CellLabel->
  "In[1917]:=",ExpressionUUID->"036783bd-cb40-4198-ac1f-4e274d9d5fe3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SpinupPlot", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "SpinupCplot", "}"}], ",", 
      RowBox[{"{", "SpinupTplot", "}"}], ",", 
      RowBox[{"{", "Ltemp", "}"}]}], "}"}], ",", 
    RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8228021592359505`*^9, 3.822802204271514*^9}, {
  3.822802264356599*^9, 3.8228022691091056`*^9}, {3.822802335079199*^9, 
  3.8228023392717047`*^9}},
 CellLabel->
  "In[1918]:=",ExpressionUUID->"6d4ed6d6-d631-4dd8-83bd-8ca37ead227a"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{}, {{}, {}, 
        {RGBColor[0, 0, 1], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJw11Q1UzucbB/BYf8qSNC9ZMWteolATi0lfhDbksUSIf3rHY5WVFXlJRXqR
l0r53ff9K72iJRMlLQ810rKFik0IoZEpiiT8n/+eq/uc37nO55zfOff3uu77
nPtzd7/vvHpqaWm9U3//r/+uBAn/VrcdmposIc3vvI5Bt5mE8Sfirpt3O1VC
yK0kQ6duZ0j45vaY4Mhu50jY1r7y9IVu50r4c2vctj6ryfkSJo64Hena7QIJ
39WkbC7qdpGEwb//ZTjMnVwiYaay811st1USxuzJaf/Ig1wuoXPtuwfh3a6Q
8H1S2Bk9T3KVhK8zfvEW3a6W0EvpXm/jRa6REJFuF1/f7ZsSnmrHV0Z5k+sl
BGmVr7T1ITdI8Dxkb9TZ7UYJ9TtzL5f6kpvU/fpErI9eQ26W4BsyrH7lWnKL
BIce74ZMWUdukzB19mFzEyW5Q8LHJ4MG9l5P7pKQNOvRyM5uazGUT+3Ubv+e
rM2w9+2JjNd+ZB2G96Far3sEkPUYdEwfPftkA9mAoeWT3EHjfiAPYGiOHnJv
QSDZiMHjsrfLxiCyCUP1lfRdWRvJwxnSvn8bcudH8ggGm6963BsWQjZjuO5V
99p7E9mC4eTAJ/LpzWRLdb7+94r7biFbM7QHjR2r3Eq2YQgeetb56jbyNIaG
k58W2oaRwTBhyjeOJ3aQ7RkCas2NLSLIDgxy2x9D8yLJ8xnM3U2fT95FVjA8
PFPa71IUebF6f0OPlFXRZBeGg8jMfBdDdmV482ySY0Yc2Y3hMfvbzyme7Mmw
YOMWyz77yL4MeQ/vBlfsJysZEp60Wu1JIPsz7IpIsF+RRA5kaC3een58MjmY
YUtlnax7iBzKUBwT8/6pRN7OMHFWSlctJ0cw/Hj5n6JLMjmK4dRrx4DzaeRY
hqNbpg4rSyfvZVBNfFpXlUlOYHBZlfPznWxyMkPdjDMVHUfIjOFQ+JJBxrnk
VIZKpyXXZ+eRMxj23NgwNCSfnMPQ39rb8NTP5FyGddcMq98UkPMZlvefdHVu
IblA/X+y7TlxhlzEsGyunPr+LLmEoXFW+2afUrKKITrp4NI/VeRyhpRliXuc
ysgVDDc2Vb+r+5VcxZB1W9R5VJCrGVZf9fi2s5Jcw+B3xSf60BXyTYYdinB9
u2pyPUOZXX/L59fIDer53bi4J7eW3MjwIjmsMvgmuUl9v8692uF8i9yszvdh
TqviDrmFYUNLUrvrPXIbg3srdIMbyR0M86cUZ6Y+Jncx6K+LtK99QtbiSEvP
f2T8D1mbw+XmULamlazDITXO7SpuI+txVPUrFHodZAOOOX17GK94Sx7AccBI
e8me92QjjtYJOy6W9AjX2ITj1NA8yyZt8nAO4CcXQx3yCI5/2jN62n5MNuMY
ZX+8fZ4+2YLDb+/yDd79yZYcqzeblCQOIFtzHJyyctCDwWQbdX835PKlxuRp
HFMn3cuZ/BkZHIP1nLRmfEG25+jQbswKGE124CgyWhBcZk6ez/GFkbvCypKs
4AiZ9PB4pjV5MUfJvpDGCVPILhxux/Mbfrclu3JcDR1zMGwm2Y0jxsC3c85c
sidHRGHvz4fPJ/ty6BnuU+guIis5nr5Kf6G1hOzP8cbzV///rCAHcuhe2mU9
0I0czGE3tsB9mBc5lGPLufvFE9eSt3P02XGpcKkfOYJj0InpNbGB5CiOOyd1
Y2pDyLEcL6/lGE/cRt7L8ai5I/pIBDmBQ5xPPPx1NDmZQzuzr0VzPJlxvL6g
2/pLIjlVvd+Wha9SJXIGh/kS383H08g5HKmmtm9bssm5HF29wlqUeeR8jrx1
/erGniIXqPMeXznp2xJyEcexKQ83FpSRSziavM70X/cbWcXh/q4z1O86uZzj
cUXlhLJb5AqOeMXEjOJGcpV6vrsL4p4/I1er79/9+MOOr8k1HFGh01LKtSI0
vskROVHXbHofcj3Hi5Rmeekn5Ab1eSwYPtndhNzIsevFwuJVI8lNHF4p1l0L
xpObOdaUJvxm+RW5hcP0+lO393bkNg5vmzdRZQ7kDvX5508PCV9E7uLIhrfP
jOVkLYHC63VRWh5kbQGfPvxG8jqyjkC/WccOzAok6wl0qJ8D/S1kAwGPdUov
nZ3kAQI5+1rDp8eTjQR6pimO+qaQTQQc+jW1qtLJwwXs3V51jc0jjxCospPX
RxeRzQQO8/GPLlwgWwhcOIaoP34jWwrg58qk0zVkawGv7M9qEm+TbQQCnsk9
Yx6Rpwkc3SQaTz4nQ+CEpb3jH2/I9gJ7r50+ZqUdqbGDQJb+i03V+uT5AmsX
Xp6SNoSsELA0dvJOGUFeLJBR+9ds9wlkF7Un9eKKqWRXgWXZla+Vs8luAnV/
zb5/TkH2FJg1bX3TIleyr0B27rwvC33ISoHOoNaK3T+Q/QUMl0Yser6NHChQ
O7lfQN84crDAyC5WpSuRQwVUXLa9dpS8XeC44tTo/WfJEQI3lj0wtb1CjhIY
X9zr0sW75FiB/aZf5pq+JO9V512vinXsvVPjBIFtJ35ytjIhJws0SPMGlViR
mUBbfq87d+eSUwUUutNL4laRMwScyirqBwWRcwRc7nqZW8eScwWCv/bJf59O
zhe4H/Dqh/gScoFAQdvSrR9qyUUCl3snL25qIZcIfPb0pfsFvV0aqwT+GxWz
f+cYcrnAjFaPqnFzyRUCP6bHv8n3IlcJNCoTz/aJJFcLfHBurrHKJNcIuL7N
Vg27SL4pcOybrDeXH5PrBaICnnWa94nSuEHg4zVNnUfGkRsFtOttowsWkZsE
irN7tZttJDcLBB5ZsavxELlFPY9S57jyc+Q2gYc7E1WuD8gdAsqXyz1H9d6t
cZdA2t3vxiwyJ2vJ0P9gr9JTkLVlzEh5+mdUEFlHxv3A/T85crKejFTn8x/d
+ZVsIGPm1n3mBs/JA2TEW5kElhpFa2wkY/Gc9RYXZpJNZIyem9W0UkkeLqP3
7vTVo5PII2TUen6eOFRFNpOx9EH/MLsnZAsZ/iutvogdEKOxpYyPLBZkLp9O
tpZRFb7w982+ZBsZ+8aN2md0gDxNxqhPMxqWlZIhQ2FYeNz3CdlexrEy4wcF
g2M1dpCh7e9yTn8Oeb7a1wo2xQWRFTKmLc6b55BFXqzu90Ss75KbZBcZ4Rb5
ymN6cRq7ykhPmmEwbybZTYbp7UD/gSFkTxnbjzgffZJP9pUxwnnkraN/k5Uy
lvx9ICzYbI/G/jKu+xWrUr3JgTIGlnoMPXmYHCwj+6qdid0tcqg6//YhM2v0
4zXeLuO5Z5gq0CYe8im/K3fU1swlHv8DqkQebQ==
          "]]}, 
        {RGBColor[0, 0, 1], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw10ws019kWB3Dln0fhSipF75fbIL3pKt+kmDLDqCm9jYikibn/8kilCRGi
QqbfOedHyVhNhGnKFKE06SWvjJLGzKiklEqFkbn/O7bfWr+112f9zt7nt/c6
Z5zHdlev/mpqaj2q9//xnydRwj/R/dvemCJha97a8gF9ZhJ+Gb790LA+p0r4
tsX0zfQ+p0swvzYzd1WfMyV87hsddaDPZyRoF+nOK+lzjoQMKSRF4yvyOVX+
3uPLv+xzvoS02EH/yepzgYSkljfj9DzIxRJMtC8+CuxzqYQut4qlLX0uU+3/
NMDOaxP5toT0nwLSm/tcISG+TstV6UmukTCzNtNCy4tcJyG8YKRZRp8fSni6
9Nkwp83kRgnjHjnf7+xzk4TokGEbz3qTmyUYY0eSnw/5hYSTMe99p28ht0kY
6uxx92Of2yW4HjnxY6UvuUOCTm2WdtZWcreE60aBpfF+ZDUGy8NjmnZtIysY
tt7eZbf9a7IWw4ObBrVbtpN1GOrsdZO3+pP1GXxk8xBlANmQYTUrDgn/hmzE
oFn0kPH/kk0Y1KTWy4VK8liGlVJ+fdMO8kQG5ZO0LsNAsimDev+Z3cuCyGYM
78ouvYsLJlsy2E6dcqImhDyLwckk2nh8KNmKYcNqhfvO3WQbhrdeI0Oq95DB
EP1uzmdzw8j2qvVVJXVp+8iODPsvjDEZsp/sxODgkjUsJpzswvDkjl7NoEjy
CobRmoVWRw+Q3RhKO40Wj4smr2NwHPt1508Hye4M1n9YeyyPJXuq5tOoGdAZ
R/ZhqF/oZZQZT/ZjMBN7bNcfJvszHFxu/czoKFnJMDVyulF9IjmIQTuiqPxk
MjmUITx6qfGOFHIYw/FfJrz+/Dg5nCEs08JqGiNHMdSyRWpGghzL0PSsaLpm
KjmBYf795oc9aeRE1fnYFN7SfZKcwjDqauuGfhlkpspPun/AKJOcqppnnPLS
zNPkdNX/mjuN/vIMOZMhKGx/6Z5s8hkGg0b/49k55ByGgWaa557kkc8xrO05
bmH+Ezmf4UWFbUbwBXIBw74rfjPKfyYXM+Sdry2fWkAuZYj9NX//4cvkMgbd
Z54z1ErIt1Xrrx9rCrpKrmC45KzY3XmNXMNQMilPI7yMXMfQJjYdNLlFfshQ
4Dv4h4t3yI0MgTCVPSvITarvw+NmDKsmNzNUDvLcV32P/ELV742Be0QduY0h
KeqB9GU9uZ1hRNXfVkGPyB0MDblPChJ/J3cz2I8o3HWpiazGERDp2PDgKVnB
oTXE94zWc7IWR62Be7bNS7IOx9YN2zx3vibrc8R5VphebicbciQsyHEf0UE2
4phzouBx1F9kE46Gh95XInrIYzkmK1Zuiuu3v9cTOS5Y+3mfUJBNOWwaM4Ze
1SSbcex0mfHh8UCyJYf21OMDDPTIszhyNrxesnAw2Ypj6rqYc4GGZBuO6Gdp
v+cOJ4NDenfKbowx2Z7DfULs3M/GkB05RjQvS5QmkJ04rm3byH6dQnbheBGb
qT/LjLyCY9Fk+83fWZLdOFz6u/hpziav45g76/DZUGuyO8cO19b8wQvInhwR
xVOrGuzIPhwZ9uq7HzuQ/VT1Sn6/kOpE9udwSBlXHPIFWclxcZi6httKcpAq
f8Wj8tlryaEc93oaJg1zJ4dxvLHJe6XpRQ7nqH7+m2KaLzmKI9PY+ZDjdnIs
x1GzWy8TlOQEjhKTG2EvgsmJHPaHLw9ft5ecwtHPwNHhUjiZqeY73LZn2UFy
KkehceNq7QRyOscxa7uU+0nkTI4k8+CPdyXyGQ6Nzmsb2tLIORxDPT22rssk
n+N4O+ZqwNtscj6HYm32fI3z5AKOscJXMbGQXMyxsqs45EYpuZQjasmY+Um3
yWUcD65MDiirId9W3Zen07p3NJArOL6au2rUhSfkGo7z09NXZ7wi13FsqV2u
W9lBfsjx/H7tzen9w3vdyLE3xuSHRYPITRzx4s8/VhmSmzlsb1V/zBhFfsHh
fOuTP/Qnk9s4TuekqS+0ILdzVI6X4lvmkDs4JunWZXfakrs5flSML6p1JKsJ
FFRaTjzlQlYI7IjwyQ1YTdYSqHucofHNV2QdgYTBRyyztpD1BRx4lHnLN2RD
ge/WN8zUDyUbCdjsfv+DXQTZRGDlqqChew6Rxwp0WXu7JaeQJwp4WsZZZ5wg
mwqMXx53OjiLbCbgbes6RyefbKmqH7LXPK+EPEvgbbu9QdUNspXA9NfeQxyq
yDYCnaz+z0X1ZAi8ejNt7skmsr2AjzSyqu4l2VFVf22hnbKT7CTwc9ejQcHq
Eb12EchPfoIqXfIKgfRt8982GJHdBGLG1Pt2TyCvEzitaJYXTCO7CzQ8em5z
fR7ZU6Dj+36nZy0h+whkrIm0LnMm+wnYvvqXQ+wasr9A9adt2vmbyUqBf2cz
vR3/JQcJBB+5s6J4LzlUoH6BxZxLceQwgbyLx57bCnK4wM2PywZ0ZJOjBGbr
eq2vLiLHCiyduFjPoJKcIOC+ad7U+j/JiQJWnm98Wz+QUwS2BbXOP68T2Wsm
4LHnyN0R48mpAot2RSz8ew45XXWeZrgPT3MiZwrUXr64IsSDfEbgW9u8TwuD
yDkCFn8vLtJIIJ8T2FL/4ZMlmeR8gayI1KP+JeQCgWO+e2bm1ZOLBaIW+ywK
e08uVfWjaGl+M/hAr8sEtF1MdLosyLcF9CIH/VX+GblCoKd4w8Z4P3KNQNmk
qnvLY8l1Aup32JTQLPJDAeeYL4rHlZMbBfpviubOL8lNAntfRvkk60f1ull1
n0JunUqcSX4hUNNmlJy6itwmIF0beM88lNwuYL7G+0mlTO4QcB2VGTn6Crlb
4IsAlw9dTWQ1Gftn/HVztlZ0rxUy7mofLRRmZC0Z1eqVPW6uZB0ZSc0LziqD
yPoyTgae974okw1ljFSOepxcRjaSkfdBqvj1NdlExm+5N5OLjA/2eqyMc9Ue
WbeXkCfKsNn3/hW2k01lnJkwYc3TY2QzGVdjbw45WEy2lME3m+fcf0aeJaN7
5zh7e8OYXlvJOFV5b6PPArKNjOCX+08M9CFDxsXIntaqw2R7GbYRE77/roDs
KGP2B8cB256SnWS0vJv3uGdIbK9dZOg+MGhosyOvkLG+vcZZqSS7yShv0a5e
9D15nQzX6NE2B+rJ7jJyz7afGjI4rteeMtr8E/MCHcg+MvQP5g4fH0r2k9G6
2Tzk7I9kfxmmd2OmGLeSlap5OL+y0ptyqNdBMhJne9VcdSeHqvqRPtkecpwc
JkNxvb/v6WpyuAydZf39T+rE4/HbHN3EAzLNKR7/AwniD+c=
          "]]}, 
        {RGBColor[0, 0, 1], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJw10w1Uz9cfB/BUiIpGf2IhU5PRgzzFMu9RSmMe+lFtZSiUQogKKQohVJLy
vfd+Y1QoQtKIhRA1tYmKnqxGIyt68pDa77/fp+8593zO65x77vfe9+fe4cvW
Lliurqam1qEc/6//fbES/qtLdqhqvITPLSqMe3SZSdiz0LD/wC4nSrAr27bX
qssnJNy9m/+9S5dTJBiVHRgZ0eVUCamWT6tudDldwiPFjwt6LiVnSBDutyct
6nKWhKvRWH62y9kSKnXFhb7LyDkSzlSafQjqcq6EvO/jDF53OU9Cle7Zei8P
coGElxNdnF93uUiCn7fH15s9ycUSTsetCu67nFwqYeyQbnrnulwu4cP8b28u
WkGuluCZ77itx0pyrYRvTGIsrne5TsKIWQU3g73I9RJKD5WY2HmTGyUsW5dm
r7+K3Cxh9ebZBq+6/E7CTw+TI+75kNsl7EyU9p7zJasxjM74Yoi8mqzJ4HO/
bXDcGrIWw959hkGxa8k6DP7XJ5gd9SPrMeTVhZslryPrMzxd98Tv6nqyAYPr
tMcfSjeQDRkOno08/cmfbMSQ2+uzoFGbyMYMzi4mvosDyKYMb3eXeR4NJI9h
+KwzfdOzILIlQz/e7yezLeTxDEWpd8aFbiVbM6TMGf2mLJhswxD7YmCiTQgZ
DCt/CTFOCiXbMgQZ99w6YAfZgWGM9+oT+8PIsxlKzu+UtHeS5zF8VxjuE7OL
rGCYb3/y/bAIsgvDUK3rthl7yG4MFRvTvpu7j7yEQe+WGNQUSfZk+PJle6J8
gOzFkMy6PVJEkX2V+Zi6cr0Ysh+DXbTpxz8Okf0ZPnSsb5AOkwMZLEo/3+Jz
hLyVYXHwxDMzEsihDBMmt20wlsjhDB6erde0OTmC4WJ5yJGPghyp3H/18b/f
JJKjGNIyBtxqPE6OZVhn6KTbeoIcz/A/fJnfLZnMlOd7WOVgdIqcyPCwpfPF
9DPkEwyRRUZ5PmnkFAabXKOP7Bw5VTk/fuXq4vPkdIaeRQ8s9TPIGQzPttYu
W5ZJzmLInP9VUmYWOZth1mOrvv2vknOUeRVOSgi4Rs5l2Bj77rvnv5LzGLwu
efR2v0kuYCh/7VdRkUsuYmj1sTi14i65mOGYyamA9/fIpQwr3PMXHC0glzOE
9kr/E4XkamUeh6+4Nv1OrmVoS9u5K62YXMcQ2GwXtqGEXK/sd9RdW/sn5EaG
gr9CpvesIDcr8/+26qpVNfkdw0I92xCXGnI7w8dFU/MinpPVOGIfD3h//m+y
Jseck9Ltv+vJWhzJjqx5ZCNZh6N9/0Q13yayHoeWz5mvr7eS9TkGb/+xj/EH
sgGHY+tSV/GJbMix6Moh8yS1MJWNOBp71G3K0iAbc1z6MK+8pAfZlONNr6gL
6r3JYzhON/wcaaFLtuS40qDwWK5HHs/xunPBDNGfbM3x0KHSpHIA2YZjdILT
8eGDyeDQbN1gFj+EbMtxKsvMpXA42YGjcGPNhZFfkmdz2Bblh6/5ijyPY9UU
5v7YnKzgyAjQuWI/juzC4fl1gPPNSWQ3jgXPR1+wtSEv4bi6a9f0FyB7cnzc
6ex2w47sxdG/ofBYiSPZl2ONxW6r43PJfhxllVcr9inI/hz3cl4ODXIlB3J8
eN9t1MrF5K0cx7RuNDl7kEM5nNwDFT94kcM5zs40NIlZTY5Qzm8JyMheT45U
5pF6cPqAQHIUh/Pa7Q5hweRYDpfClHjNMHI8x4pR8+9sjCAzjijtuKMGB8iJ
HNMifBR1h8gnlOuXlDnmJ5BTlPv/PvFasUxO5UhoTYzWSiKnc/Q8c353RCo5
gyPtlanR+IvkLGW/3nqPdbtCzuZoiPWeHXWDnMPhXxmvMeceOZcjSJHpNPZ3
ch7H86e5TtvKyAUc77uXDrH/k1zEEa292urkK3IxR/aDXd4Xm8mlHO5uQ4M7
PpHLOUalrOkI7RmucrXy/5NyOy7pkWs5PMp6jfhnELmOo6ZO697SEeR6jpEB
IS8aR5MbOS4UhpXZjSc3c/zWnr29/1TyO47OmBHbZs4kt3NcdDDYbj+XrCaQ
1nZMTHYmawrIwzy2my4hawm8TQ954uhF1hHYFHT9UZIfWU/gkXpVpsZmsr7A
Iafo67PCyAYCkZ+Oj2CRZEOBuBl33NsOk40ENvdd52iRSDYWeLVJd9tPp8mm
AgubD2Y5XSKPEaiyaDPVyiFbCvwxo3dy0T3yeAHffrXx/f4gWwtYz6mLSX5C
thE4IB24cbOGDIHO7tqbp70m2woEhKjVR7eRHQSetHZscVTfqfJsgT6HNN77
6pDnCWwxOXe5ZgBZIdCxuaSv7hdkF4EC9cN1s8zIbgKzG0cbn7EmLxHwObNz
lZMt2VMg99wG22dzyV4CDY1Drh12JfsKtIxVGxnkSfYTkDI7uuf6kf0Fmm7O
dDgWTA4UmGM1dE6fveStAks3LvxldDw5VLne9vr5j1LI4QK3sP955i/kCIHh
Rdavfr1PjhSwatmnbVlOjhIYbJY3wbyBHKvsb1O++WaNXSrHC4R/7q+zw4DM
BI50RLWNMicnKvv1fNw/LjPIJwRWTWiwdHAlpyjvU2jHs/VryakC97v9/qz3
LnK6QNaD2DupnJwhMEl7Y4BDJjlLIMx73KyHheRsgTeReheDXpJzBCrnPXA8
3323yrkC5tE/vIseTs4TuGuOHdrTyAXKfJM7erssJhcJuFiWWMYFk4sF9s24
E1jByaUCD9bk/bb/V3K5QHPAXwNvVJOrBWrvZ/wW2i1C5VoB3QfyDDdjcp2A
Sec/Pk325Hrle3g0ZSnzJTcKTHzl+fZ+NLlZYOXRb77RzyS/U57XTTFWq4zc
LnDn3c/t+9rJajK+HXR5zhqjPSprylCM6ry9zY6sJeNTqPOCZz5kHRl7qu5V
JcWQ9WQEX5p598gVsr6MclsT1+G1ZAMZ/W7PtOzXZ6/KhjKm5IiFqdZkIxkG
RramazzJxjKcNf0aEvaTTWXINfaWbZnkMTK+mJxYMreabCnjls4NXUXvfSqP
l9Gp93zq+glkaxlxmmqXZy0h28jQNbFxFXvJkBH9uH3YwEtkWxk73ubPjawm
O8iY4LzgTx2dSJVny1BX7PFxnEyeJ+PHpMZPL7zIChm+LU9bDCSyi4xhnW4V
CQ/IbjJaDPTex2jsV3mJjKdTa+rLJpM9ZeirNZ785Ef2UuZZ53jSN4nsK0NL
nWfnVJL9ZNQ1X17VZnBAZX8ZBUYm6VecyIEyrM6+HWp3gLxVxqCSsKcP88ih
MlLfhjpXqh9UOVyGVDOq/ILNQZQu26MxRWlVTgfxL9t1I+I=
          "]]}, 
        {RGBColor[1, 0, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJw10n1Yz9cbB/BQLUW1hJKHrPglrb4mUyq9PZYWC5G2ED2sCFmhCEVIepI8
1Oec8ylrRE0tSWirWRSaiiJEcUWRh/hhUdPv+1t357rOdV+vf8597ofRK9ct
8OuroqLySXn/H/89KRL+jd47euIRCVHJfbV0e80kJDhfrRzf63QJT7TO9FnY
60wJcy4b++/qdZaE7e+WFl7sdY4EvLp9SnMFOU/CwgmNWkt7XSBh8881e8/1
ukhC+JXu5lErycUSBvy39k5ir0slDNvzcamGD7lMQsR/jcbG9rpCgskHF+PB
vuRKCX09U6ec6HW1hEEBWj6z/ci1Ego3jDV50et6CXdKMo4xf3KDhKZjaQXu
P5CbJBj7zNEfHEBulqD69Le4+71ulTD/yiuTXwLJzyXcazuQHL2K3C7hQdf4
ap/V5LcSjlWPrHUJIndIWDvo5UHbNeQuCR5/b/NUrCWrMMybWVJouY6syjCy
YGCydTBZg+FQyoWqaevJAxhCN013X/wjWZfB86eRR9eHkPUZBn1oHpoSSjZg
sDy0Nf+3DeThynytaWtfbiQbM6hnDJ0zNoxsyrC/+PpDv3CyGYOt3p+BOZvJ
FgxtVmpnPmwhKxjSJh85PHcr2ZrBwiTt8fFtZBuGGaqbOj+LJNszWD8qmr42
igyG/s6zfrm7gzyToVDV/Mu50WRnhrmTHQsu7SK7MtQ3TayYsYfsxnAjyfVR
eQzZnSG/KFNnQSx5CYPKbqulj/aRvRi+WqVRHxZP9mY4HlXnNCSR7MvgMcSu
+lwSOYBB7S/+rU8yOYhh149OmXop5GCGTMfEnPKD5FCG6zBaF3WYHKasv+HJ
baSSIxhaGi071SRyJMPJX754Uc3I0Qyrtg+4mCHIMQx6zpaZYenkOAaHm9/E
LTpKTmJI/tl4r00mOYUhL3fDidHHyEcYpmt+6NTNIjOGoWpa69VPktMZaj03
OfTNIWcq+z06Y5PqKXIWwzKNB5MG5pFzlPV1ZycMzyfnMdx0vPH6qwJyAYNh
TY2aWyG5iIGfPnk1pIhczLCyxQviPLmUwT+o1b+qmFzG8JNHvxT1EnIFwyPt
WDbzD3Ilw2vrtyf3/kmuZjhcf/lp3SVyLcNe19yd4yrI9QzbBm5q3naV3MBw
x1rF734luYnh1Zz18uwqcjND91BDy+Iacqvyv+d1sx1ryc8ZDOSlho23yO3K
/Tg+NSnuDvktQ9WiE4mzG8gdDEOk9MNajeQuho3+/zG7+5CswuGVmfZTUTNZ
lWPV2b65UgtZg2NQ9x8125+RB3CU351yYMULsi5H++D7mx3ayfocnsaKS51v
yAYcGqnDPPLfkYdzuIRUX13ZQTbmCL+66rx2J9mU493cdyVn/yGbcUQXrG6B
ys4eW3CYa57squlLVnAE5c92CFUjW3OUtr55otAg23Bk686a/LkW2Z6jKq3s
0mJtMjgm2V5eXvY5eSaHpuMOi0WDyc4cOw+YLFQ1JLty1I6o+1g5nOzGYTsN
PpIx2Z3jry6dRVtNyUs4qo1sfl1vRvbi8DN8tGSTBdmbo8xC58t4BdmXo4/V
xKACa3IAxwu3rL5PbchBHBP87KaMcyAHc0TdyPYKmUYO5UjqLjp9aRY5jGNM
4IsgbRdyBMdiZYOXzyNHciyvSOTFC8jRyn4+2FE41oMcw5Fb/jQp/XtyHMdc
y8ul5t7kJI7+I6ouXvElp3DsSxrsERlIPsJxsC7UYf5aMlP2v/WfSY4h5HSO
EGnwe9swciZHyon7ml5byVkcV7c8eZ+zg5zDcXTBPXvrGHIeR5G54/IP8eQC
jlELfphjlEIu4ohLVLOLTiMXc5h18oZJGeRSjnF1qbcmZJHLOIqvrKsJzyVX
KOdzX8fS5yy5koN9PfXl7hJyNccc84WVNeXkWuX8tY/vUFST6zkU16OvJdaT
GzjmPf5kndhEblLW81VB+5ZWcjPHjgv/9FvcTm7lsLriFTqig/xcuZ97dZxu
dJPbObbkVO0L/Cy6x285jhdadbZrkzs4npxv9Fg9hNzFEdx6w/feCLKKwKHf
LzfPGENWFbB9bGS0xYKsIfCkpjXwwkTyAIFzX7Sc1rMj6wrU9f/zXsJ0sr6A
z1yjMgcXsoGAevr887ULyMMFpp7K/z7pe7KxgNrn8/LcfcmmAkvfjSlVW0M2
E3CKsT+wZwPZQvneA9MVdyPICoF9rn7vP+0kWwt0tVp9q7ePbCMQ1y79MCGZ
bC8QMOC6XXgqGQLdFYZWRzPIMwXWl0td6ifJzgJGHTmXeT7ZVcDzm2O5XhfI
bgLxs27esS0juwvYKyLbH1aSlwh4eFc8O1ZH9hJ4WP7Ief8DsrfAi8i22BMt
ZF+BFNvXio52coDAjcWRLrofyUEC2n02msb329XjYAHhqCelDCSHCtQbHox1
NSCHCXy2zrPqrgk5QiDkY92mcRPIkQKx8yNGBzqSowXkgzosYR45RkBP1+Zs
wjJynIDdxuzpy9aRkwT0Y3+v7BNFThEwXfh243cHyEcEcibZjvY8RmYCN2fl
Zr88R04XqBi/+r3WdXKm8v+nhh1Ue0TOEvCqNC9PfE/OEShwu739otbuHucJ
eD83yD8zmlwgULJ6/PwoG3KRQHbxzYXn3cjFyvzLEgIaAsmlyn3UyZzWtJNc
JqDpNGn/74JcIeDStq5/8HlypUC/1I5Pr2+RqwXmL9X0nPyWXKv0OcuMyXp7
elwvMEhdc8UzBblBIFcx8QsnN3KTwGwrz2ung8nNAulTi17z/eRWgaTMzD0P
88nPBZr0Ird/V0tuF1jls/9a8zvyWwGNVyseDxkS0+MOgVJPl0M+X5O7lO9/
V2/ZsZisIuN0Vmp3nzCyqgyNTiPPU6lkDRl6CTqBm38jD5Ax6s2h7FcPyboy
/u64Ht6ivrfH+jJmm2p+aWdBNpBRMSJyZNl88nAZodNb069tJBvL+IjDgxsl
sqkMm4URtztLyWYyht1bPW3UE7KFjIQpU07N1ortsULGrWfqfpesyNYyMj4F
eq5xJ9vIUFMumH842V6Gfqr+5npBhowGq49+bWXkmcp+rNduVX9OdpZxwNRH
t5/+vh67yiiZ5F/xtz3ZTcbaVekfuvzJ7jKezfgx3jyZvESGaqTh9NASspcM
O8WYyY0vyN4y8t9c83YdEddjXxlbHZafZnPJATLODjMx+XUbOUiZb2haW8EZ
crByXuNVzZ63kUNlNFY1Tnk8Kr7HYTJcI7N3W7qRI2TkutSvWbyFHCnDwAlN
cYwcLeMPz5+/PVRIjpGR2OB4ob4iHv8DrvQMKw==
          "]]}, 
        {RGBColor[1, 0, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw10w1cT9cfB/AIZZ5SLCMKaaHpF0WSv89WWSaJHv1lUk2hJyQkVisViqRN
dc85NwptFSFPSVJ5bimSmMg8+ychJK3t/te3+3rd13m9X/fe7z3nfD9npHfw
/B+6q6mpdSj3/8d/rxQJ/45eP3WOqRKGmdYb9uoyk3Ag3nWYbpczJNiIafkT
u5wlIU777GGPLmdL6J7p8yq+y7kStvdunVrW5XwJscG1wb2XkAskeK2wcVzQ
5ZMSvlzR/uuRLhdJEMmPPQZ7k0skhFt1nxjV5XIJ24YG9nvf5UsSRjQ5la/2
IVdIOHeuQdXW5SoJxjbzJmzxJddIuFRXnWrwA7lOwmjrawtKu3xXwqkdLlMD
lpIbJCy7IX0+wo/8SMKW4jPVt7r8TML947mz0/zJjRIqg0yWei8jNyvzqalS
n7Sc3CJhU0SLRp8V5FYJWfZH3V50uV1Z34znNVUBZDWGp+dXhpYEknsw2Dvt
6HkiiKzJMG7++uCCYHJfBrve/dNPhpC1GFI0rweWrSQPYnA59/RGzSryEIZ7
HS6lTavJegxF6sv7DVhDNmBY+9gxwyKMbMhgOLnnat+1ZGMGc6+LC9PWkU0Y
KuxMverWk1UMYQ9WWgzbQDZnMDMd0eATQbZkuN30yvHIRrI1g+qaz0bNH8lg
mL5K1843kmzL0DFt0S/no8j2DKL+7RKTaLIDg+fgjtTUGLITw33tuVP7xpJd
GK43XhmxOY7swXC2vm2a+hayJ8NWq/PRsVvJXkr93Px3WglkX4bayuQNexPJ
/gybjt7+22oHOYAhu9BySV0SOYTh3aiPKeHJ5FCGSp/fkkamkNcx7LM3+O73
n8kRDI53ist+3E2OZBgaMOaFZRo5hmHv03HifTo5nsF15NqHhYycwGB7LV2K
FuQkpV+7mq7MzyCnMLyedNTZaC85laGE7ZnQkUlmDManF4sn+8gZDCeOsz7V
B8hZSn8DzeLO/krOZtj9VG9IQQ45l6G3viozN4+cr+T1t5emOYfIBQxtYdU1
xw6TTzJMnL7JovwouYghImX4wrpj5BKG4Y8eW745QS5nKPXOqdQpJF9Sng+c
1WZVRK5gWNwaXrSsmFzFkJH/8S0vIdcwHHjhufd2KbmOYbW5VoXBefJdhs9v
3Riy4iK5gSFAtfRg8WXyI4apG2+561aQnzEsXZA6Zn0luVH5Xk7QfFJFbmYY
9XZumPUNcguD9oy9mz7dJLcy+Ot9sfJIHbmdoWnEVc+Vf5DVONYcPrTT6B65
B4e6o0X60wayJsc3zvMsch+S+3JYndhzefUTshZH+7jQ3TOfkwdx/G9M9t9j
G8lDOHa4hz4c8Yqsx6EvmbqI12QDDrNd96MNW8iGHH80Dhxb8J5szGGkG7V/
9keyCcdOj6/SH3wiqzhWZ3dri+ggm3P0Hzrwjm636E5bcoSmuE08rk625vjF
/alw6UUGx7v3y1NG9SbbcqSeLH6Y15dsz/HQLkXLQ4vswOE8vc2tSYfsxJE0
bHfLXl2yC4d2iY3X98PIHhyvk8snGOiTPTkcdh459mQU2YujcPvtmVeMyL4c
reMzJ/45juzPkXL86aRJpuQAjn5fvom0mEQO4TjXZPK18xRyqLJe5v8yZBp5
HYf5N6O3b5tBjuDwrnJuzrIhRyr/f9lefvVbcgxHnFRdN9qBHM9xfFJ/vtyJ
nMCxMDBL+64LOYlj+VT/q54LyCkcnw26F/tyETlVmX9z0IVl3mTGMWfmt1o6
fuQMjg0NbiWPVpCzlHpXu00/H0LO5tjj7pB3cQ05V8mbcfiHV+HkfCWvHzTu
L44kF3AUx6cM+LCZfJKjwS3WuVcCuYij0Q2pw5PJJcp+Lko3OJVKLudIs3G3
WyeTL3HYPo5skPaTKzhmLLUxmnKQXMXxSjWzyOc4uYbjp0DNfOtich1H+KHm
A3MukO9y/KVh2Z5USW7gCPH+FB5VS36k1FuTdj3oHvmZcj6G73mT9ITcyNHj
waUTF1+SmznGGs6rP91CbuGYEuZyQb+d3Krk1W7hrgb1mE63K/3LHTDLrw9Z
TaBxVeqq2oHkHgJXCo30LL8gawroWGS7l+uT+wp8YaGvG2lE1hL4ttzq/cQJ
5EECd9YmJV6wIA8RcF9aW7xoOllPYKbJ8ycttmQDgYFhDhcWzyEbKu/D4W2h
K9lYYDi/WV39PdlEwLBZc+4eP7JKYLZOfGREMNlcoCwzbtrFNWRLgcx+9q89
IsjWAtOToiJ/iCZDwGxB5MjLW8m2AmEZn3a3JpPtBX63Gea7WSI7CPiPX3Bw
dSbZSeDgIsPS3Byyi8Dljqa5OwrIHgIORWYaG8+QPQVO8LfpsRfIXgLvK5fy
ymtkX4FHD/oceltH9heI0djvN7mBHCCQmli0iD0jhwj0Wt9Qt/gNOVRggP9X
u/LayesEgpYXOEb32tzpCAH95zp71LTJkQI5voHW6gbkGAHVmE05UyeQ4wV2
/pm4IdmanCCQMXS3r8NscpJA0RS1ssSF5BQlL1+6zNcNJKcKxJ5dtdn9RzJT
8nGt4qVZMjlDYPsv684mZJGzBEb71L8RJ8jZArPGJ/zn4RVyrkDxFMl16z1y
vsC+Z2lvTN+SCwRGDLn5rkwzttMnBUw+PF87TZ9cJJAwK29b6WRyiUBhzLj4
SkdyuYD1cNWMMD/yJYHwbm3R2VHkCiV/B2aUy5xcJeCqXvt3+ClyjbL/tlM9
5taS6wQ8L/7xcUML+a7AxrSMiKHacZ1uENDN8XMzMyU/Erg6eZ9qjiP5mcDN
mce6DwgiNyp5a+5XenU7uVkgen9EwvtD5BYlL3c/dhtdRW5VztsLnVP1TeR2
gd8mHnPV7B/faTUZz06bt4R8Re4hY/BYT+8nc8iaMl7H9ryTEEzuK2NtxNd7
1uwka8m4ec1Jzb+APEhGfZPTvOo68hAZmYMn5Eb+RdaT8XV+xaXjo7Z02kBG
0s+V+q/tyYYyHlsXn1kZQDaWsSrtdHXbDrKJDO3r1/1dj5JVMnZu19mtukU2
lzH7pmlx2yeypYxSJ1Wes8HWTlvLuLxk0pW/bMhQ6h2qCBV+ZFsZXmdEUL8E
sr2Mhysyvf6bT3aQcaZg8PjJtWQnGYeXOcfbdZBdZHxW1rtvsfG2TnvI+Nmq
Yt73LmRPGdER3+1wjCJ7yTin0R7ke4jsK6MmLy1mwj2yv4ytAxbaDe2T0OkA
GfaavTTOWJFDZOQVNsZ9HkAOleE29pRZNSevk9HLp75tzDVyhAy7/j3Wz1VL
7HSkjC2ORiPLVOQYGelHe56s8CLHy9DTWbJs4M5E/AMEyRFV
          "]]}, 
        {RGBColor[1, 0, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJw10g9Uj/cXB/Ao0z+E9isyhaKRapPUhDdKaWUtZWZYKMUaUUppLQpfpYRY
83w+nycKaWWZIn4ilj/lb2RFRUpJf4iVhfB7fuv2nPM597zOuee599x7Ryxd
7enXW01N7b3y/h///ZIl/Bt9NnXHFAlGVtWmH/WYScj5duwnBj1OlbDxn7r8
z3ucLuGRvX3x/B5nSAgpiDXZ1uMsCZkaTrv+7HGOhNp1iz9oLSHnSsgzMjRf
0ON8CU3lK+uO9/iMBJtvvLUMlpILJXTW3V0b0+MiCeMq6l539viKhNKfVoSH
LSNfk5CdMOX6+x7fUvIPfnI70ZdcJkEOz/Ab40eukGASu39tSY+rJJzzfX5h
3XJyjYTq7BbbT/3JjyVoLS/4/XGPGyV82+g6ICOA3CLhwjIHu+AV5DYJJQde
9Zu1ktwuYces3SEmP5A7JYywr/LoHUjuknB/5peq5h6rMaT0ce334EeyBkMb
sz1WvoqsyVDLj31XsZqsyzDWtqP9YRBZj2Gv912/Z2vI+gzZN0/+oh5MNlTy
V9yPHhFCHsbw6tK8V07ryCZK/czVdUGhZFOG0zcnIT2MbM5QoJlYV72ebMHw
6Df1OyMiyNYMvLajaMUGsg1Dc4BVwclIsh1D+nmnTJ0osgNDova2rf4/k8Gw
7ICaVXE02ZHB9fDZJOtNZBcGT5UD5zFkN4Ze+nOd9DaTPRhCRm/dEreF7MUw
KPujKdoq8nwG2+iuBTu2kRcyZLq33h4ST/ZheDjgbdpv28m+DMc+tc53TCQH
MESeN33zeAc5kKHP8CyXuJ3kIAa/NdtSbHaTQxiiBl58UJdMXs9QnJ+pl7KX
HMkQu/tj67kp5GiGP/NOfvrxPnKssn+ztQ8qJbKKYeN3nl8f4eTtDDdnNy/b
IJOTlHnc+3uI135yMsPw8Rnen6WRUxguDxgyYPBBMmOoT3JS9TlMTmU43Fpj
8SaDnM5Q2OCp+3cmOYNhln6pxcsscpYynym9gzuOknOU/Xnz+vc55FyGVeYv
9+kfJ+czmH/hbGeZRz7DUFFfedH9JLmQIcKb2wafIhcxfKM1OC71v+QrDO5z
fcWdAvI1hl1jXgb3LyTfYthaevzpnAvkMga9vvfUfikiVzCo7n4oaLpErmIY
f2d2yfRicg3DdQM31wNXyY8ZnEJLtDRvkBsZoJ9qGHaL3MKgM88r4MVtchvD
xF7HV3vfJbczzN6TOnFkBbmTIWCQ2pgn98ldDKM10txzq8lqHIbPLV+H1ZA1
OOwTIo4615E1OZI7Now3aiDrchj/5VH5opGsxzFHPe3VnWayPkffoVaPLj0j
G3LErfs16uoL8jCOs+G3axe0k004fowyH/riFdmUw3lfXmXSa7I5x94RcfF2
XWQLju+LQ648eE+25mgd/92WuF4x3bbheO2/6t5EDbIdx8PDvfIff0R24HDf
fLZgtxYZHB/UHi1aq0t25MiYrBPaX4/swjHty/jC4sFkNw7kvo1aY0D24Cg8
YV8/yYjsxWEh89V9jMnzOY7G2hy7N5K8kENSlbz7YzTZh2Pgxab0I2PJvhyL
1Pt1lVmSAzhuHq4stp9ADuRoSwv+2mMSOUip12EmNk0mh3CoGdiNz5tGXq/U
j56qXj+THMnRZ+7GxsEu5Ghl3ud6xXm4kWM5tIvacs96kFUcJw5n1Rt5k7dz
FJQN0E//lpzEcehZ78rJi8nJynxaU9/ULSWncKhbD+kI8yczDr0RwbPsA8mp
HKojc71GrSGnc9jNM0oYFkrO4Mib8cjAbgM5i0M2yKoJjybncLQs/f2Y+hZy
Lkf580HOefHkfKU/nZ1rHu4kn+FwsTzlMCiFXMihYWXypFiQizhK/xPYdPAg
+Ypyr3H7Rj3JIl/jWLvyXVVqLvkWR+0pr/KWM+Qy5f78mqc3FJErOCr3b5MN
r5OrlHuauv2rqLvkGo7s+Mlmu6rJjzl21kzMSqsnN3K8O29W0tRKblH6m3xn
qXMHuY0jxM+/dkkXuV2555IrO1vUY7vdqfR3wiO7TIfcxXEu6cmcmMFkNYEd
byc+HTqUrCFQNPSE5cERZE0Bk7XWoQvMyboCDY5fBU6zIusJtLhsOGk0iawv
8MMOM9t7U8mGAkuvJpzeN4s8TODM03ds4RyyicBRj+CUl/PIpgKnT7yNDP+e
bC4wpjb+wJkAsoWArY3rmFNryNYCPte6el8IJ9sIPE/3P/1FNNlOYNOJkBlv
tpAdBP6cZZFok0iGwNW7HZ0X95AdBYb/dXPRKEF2EbjmYh364BDZTSDLtc/G
t0fJHgLnwhYlLztJ9hKY1Xvv2nWF5PkCrnNyOncVkxcKeJXG/HXtNtlHwJqP
THWqIvsKXPc0683qyQEC9kbtm/RayYECbza3jszoIAcJrHyq9TP/QA4RyMzw
yvtEe3O31wtMiIk6MlqfHKnMf8KhonJjcrTAKpsGqwGW5FgBdQ+dcZEOZJVA
lHvw9H5fkrcr/UR0jOq1gJwkoM2yv4haSU4WCNlqnO4USU4RqD5Qb3wpkcwE
RvY1Xly3n5yq3E/ei8MxueR0gQelvU5UXyZnCIwtu7oosJKcpezrdJCLz3Ny
jkBh8MyJ3hpbup2r3J962KTJQ8n5AskLnu3u+xn5jMDCu09iG1zIhQKafEuy
+xJykZJfvZHNjSBfEbh8cXHUk2TyNQHL/pldM4+Rbyn7mhARobpOLhPoU5zz
tLiJXKHMM3Sk5K+1tdtVAp5mOss3jCHXKPW65gfqOJEfC/T3HaiZ7ktuFPD7
bfihhlhyi4BWdYmj+SFym9LPoPhRVZfJ7QJNH7Ir9jSSOxXP/jX2UV9Vt7sE
wtSW2aaOIavJMG6v00p1JmvIqI3wK/g9gKwpo2HmjFN/x5F1ZQz80XTDT9lk
PRlPa0/b65eS9WU4qJaEm70iG8qYfd9Zijba1u1hMsrlj2cun042kbHU81Xj
3ACyqQxVoN3Z+O1kcxn3/W/8cyOHbCFjgrd9TEMZ2VrGhc2bnTa+JtvI0J/6
4VA/47hu28mIcivn4xzJDjIaY5rdeAAZMoLS3Av7JpAdZWyaP2jfjD/ILjKu
OzxJX1ROdpMRZ/LwV633ZA8Z6+esSGweHd9tLxk5eg6yvSd5vvJ/ryldf0SR
F8pwXpigHZ1F9pHhtPGro6GVZF8ZPrFWh8x0tnc7QMaDr5+uemNHDpTRvERr
/7YV5CAZibpR++9I5BAZ2uNCLGNukNfLmD5Ed2ypWkK3I2UMTjt//5/PydEy
mvrOjAj0JcfK8FbFrIzYQ1Yp+4kwS7x0KQH/A8vaEu8=
          "]]}, 
        {RGBColor[0, 1, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJw10g1YjtcfB/CoJZuXWLYQQpGkxRqh9JUkRtKSEDWqVYqWrAdJ0huSJJT7
nHNHCXlZHvwVoRHKa6YUhUQSSa2I1vR/tn7d13Wu+/pc5+13vucMXbbKyaur
mpraZ1X79//flyRB23Xi6YLFEfjPyRIKDT3lR51mEr7b+LC1pdOpEmbr1Kfo
u5HTJYza/WGuc6cPS7hzckZDYqePSZg2YLxDRaezJOwK+8bKbAn5tIT8eKuE
+E5nS3jW2j6gpdO5EhqDlFm+S8l5Ej5nHDF42el8Vf0zJs3ydycXSDBTz2n+
u9O3JHhvW9eS5EEukpC7477hhJ/JxRIm5en+VNXpMgm1t4TTnmXkCgl/ep1r
cVpOrpTQNimvn64n+YWEoDaN8OpOv5IwSzvmbI4XuU7C3BtBH3Z7kxskLDYX
But+ITdLsHN9Osrbh/xRwmvrHvULfcltEvTft7rO9yOrMVzetMnJdQVZg+Hw
uzWXl/mTtRiO2Z9ICA4g91D171E7uH0lWZvB5WJCzfFVZB2GS+OrrEsCyboM
t+dd260eRNZjCPi51z2L1WR9htiz2x4GB5MNGLQyeu89u4ZsxPAwbEWjWgjZ
hOHlrsAiRwXZjEF3QsPAQ2vJ5gyLz50/r76ebMGwUu/IKa9QsiWDpanL49sb
yGCICPAytdxItmVoX7CWZYWT7RlWrzAfNDqCPJtBMpyYcXQz2ZFhvIbxmHFR
ZGcGjagjhy5Gk11V+Rou+mpeLNmNwczzyZzaLWQPBr3EmnvR28ieDD+NaTQy
3k72YVDGRM27H0/2Z+jXZDorIoEcyLDwj5A+ExLJwQxutq8PNu4iKxg+3dbW
VO4mhzL0ylpjpthLDmcIsUwbbptCjmToc3X4k34SOZYh32b5iDpGjmPwaWye
XiDICQxVp+Y4ZKaSk1T1BVQ5Jh4gJ6vuq32ke3g6mTFMnLtra3AGOZWhwSrl
xcrD5HSGxhMnwlZlkg8zDI6y9/vtGPkYw5K08uzNJ8hZDAeD1n6blEU+zdC0
QTI7qiRnM7g+WDCr8DQ5V1VPXH5m/f/IeQzHlS17B+aQ8xkuunZzdTxPLmAw
Seg+dvsF8i2Gbn46vn9eIhcxeLRY2elfJhcz2M9kvULyyWUMXVYdj3l2jVzB
cKjFusS5kFzJEB24dV/RTfILhjfeV9Y53yG/YhjmM7R/ZRG5jkHRpVx39X1y
A4NF3ohBPR+Qmxl+Hzu58HgZ+SPDqOcOec7l5DZVPj8nH+zyhKzGoTmnrPfR
SrIGR7vbkMmLnpO1OEa4aS3o/ZLcg+O6jumuG6/I2hzG80YPiXtD1uHYV77P
2LmerMvhHvZt9bBGsh7HFXXLsI9NZH0O7fFphiUfyAYcCU9rvsz5RDbiMNBT
uMS2kU04tBxbGj3ayWYcvcdWXLLturnD5hy91vADP3xBtuB4eO9k6A9aZEuO
af/sMLP7igyOIcdPpPr2Itty2OyN/H1/H7I9R/ivsdYNOuTZHMcazb5foEt2
5Njf5v23th7ZmWNT0amw50PIrhxrHvUdd3s42Y3jYMzGrbdGkj04Jk5/3/Z0
NNmTY3H4qs9fmJF9OMwzatWtzMn+HG+Gu0dstiAHchz1vllfakkO/jf/URct
ppIVHJtdraOWTieHcvxu4VGycyY5nEMDme4lc8iRHAHjJpeMdiLHcty7b1az
14Ucx9H/1WE7vcXkBA7T7/9IP+9OTuL4pNirVHiSkzmWbZg51MWXzDicNN7v
d1lJTuXwvjhmUMJqcjpH0Pw1VQ0K8mGOz+5XFOvCyMc4EoN7/2IaSc7iyB41
z7zXVvJpjg/9wn8ZmEDO5ii9uytmwR5yLsezt5sH5jNyHofQtM9clkbO59id
VXrOPJNcwJGlGMhvniTf4vhWOdU1IYdcxLEgwzd3/R/kYo6PQpkSXUgu44iu
npx35B65gmPrFQO1Jw/JlRw7IuJG6VWRX6jeo39ijyWvya848gvnr035i1zH
0b36vfWNVnIDx7bGeqcpXSM73MxhGL/p6IHu5I8cV6f96NWqTW7jWCjVSva6
ZDWBO4Na/RKGkDUEvnYeUF88gqwl8M31GvQ3JfcQuNreHubxA1lboGeMWv5x
S7KOwOPq6NEatmRdgVKdkRPifyTrCQxtsJlo+BNZXyD5yrjXhYvIBqr9yh26
blhGNhIIiXg30dqPbCKw54uAmX2CyGYCc7OG1DatJZsLhN5xv1eziWwh8Olo
1Lm3W8iWAvuTat00E8kQeD7p8YGcFLKtwN0NPb1i95PtBb5M0z+x7gh5tsD4
htzY5JNkR9X6mbHttTlkZ4FmXeNBIZfJrgK3N86om3GT7CZgZBgT4llM9hA4
5LCjsPgx2VPg3VTNt6k1ZB+BMJumrqcbyf4CfZ6Y5Zm3kQMFrFJb35l0i+pw
sMA+nbglGX3JCoEL1/SLMweTQwWm2DQPth1NDhc41deme6gFOVJAeWX6Ujc7
cqzAn5WTauudyXECR967rbHyJCeo1rsb8eRtMDlJYNent76e0eRk1X3arA/Y
n0xmApN/62Z98Cg5VSBw+SrzwEvkdIERpTvSuhaTDwsUielVbrXkYwIVMQF2
G9vJWarzub8w9PsmusOnBaqaoh8MMiVnq/I/ZXdm8AxyrsDedxu0n3mQ8wT8
UiSrJevJ+QK/pvVK3LaHXCBQ3D59uaeSfEsgLzVLs/IOuUjATXHh3oc35GKB
+4ry/vu7x3S4TPU+k9aal44kVwi05mqG7LQjVwpM8zuwWOFFfiEAXa3XZZHk
V6r5BWkOWenkOoEb65+d+Tuf3CCgbT5mdnY1uVlg3V9/WT3XjO3wRwHvbHF2
rRG5TeC7GFatmEVWkzHOw7X5sT9ZQ8ZN2ynaGTvIWjIKy8c2NSnJPWR86B/1
nj0ga8tISOnyj9RK1pFR2hz47s3gLR3WlaF5jSljppH1ZCw55GDi50PWl6H7
vaNN/HaygYzf1Fc8qleSjWScUfo8ii4jm8j4uryv0bzPZDMZdavV1VOGbe2w
uYzpz+foD59BtlC5riRew59sKaO308YlTjvJkFFQOkYaepZsK2MPrrrEPCbb
y2BzR8nJGts6PFtG+3WrzX4mZEcZ1f4v+/SdT3aWEdSl26L0MLKrjCRvh0j5
DNlNRqLRgY/1dWQPGRsalRY1w+M67CnDe8XYaxULyT4yluLOMIN4sr8qnwGT
ivrkkQNlXEgzdGytJwfLsIueajBuwPYOK2QM9Z9yp+dUcqgM9/Zbd58tI4fL
MO5x/c3TAHKkjElLc6y3rCbHqsY/X2hsGbwd/wc9wxcd
          "]]}, 
        {RGBColor[0, 1, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw113tUz0kfB/AQhZDLqpVLtbXbtq21atEFbzbJKpIQipC2K0UlqvWLUmhD
lxXfmfmGX9TKCm1PkZYVkpBrJUQPleRa+K2K5/dsn+acOXNe58yZz2feZ/4Z
o+WrXVd219DQ+Kie/1//HakSdN2t80oXb8K/TpfglLb0xtUuMwl6Wf7FtV3O
kNBjbottW5eVEoLzmK6RBzlLgptud805Xc6RMLdGWbuty7kSyk6bRFZ0OU+C
CCzfPsqTXCAh/emVh+u6XCTh6q22n6q7fEbCk08n2Y9LyCUStnW0ZOd3uVRC
/PqejmOXksslGMTlO+d3uUIC+9Y8ZaoX+ZaEKaNuvr7T5SoJcTrHXMKWke9J
aCysW2uwnPxQQuSUhgmXuvxYXd/a45dfVpAbJVhuaP3C1pvcLCH2dECfT11+
pc7zfMzgspXkVgkwfW7EfMgqCRUxrp+H/Uxul/DMCA/cfMkaDA8G+C+f6EfW
ZPhw3j7Uwp+szZBTOa3NKICsw1BUl1k7IpCsy+B9xLOPYRB5CIPvUoOVZqvI
+gy1FXH1E1aThzNYxlQumx1MNmR4tmnUuYAQsgnDXX23HjvXkM0YRs2qf1+4
lmzBIG9jh56HkscwHJk387xJONmK4UL/Uvdl68gTGMbGmLseiCDbMZjYO//R
vJ4Mhj4Zyx1sI8n2DMdf2unsiCI7MgwbqP+mIZrsxLDfa2fTtI1kF4Z6/xet
vyvIbgwD9hU1D9lEdmdQxOhe2LyZ7MHw2SW3sPexZC+Gi9aJbSFbyN4MMSd/
mNoST/ZlEC8VlpFbyYEMZW9UR7S2k4MZ4jpYVnoiOZThUeCBYaOTyBEMTdXr
2i7uIEcxSJpas313kRUMPuVytwEp5FiGjLd3WwpTyQkM5vfazQN+Iycy2E2e
n2CYTt7JMLB/9cB7e8ipDBOTY7IliZzOEGTPZizlZMYw/5LzOEuZnMHwULPl
qvY+spKh1dbZrG4/OYtBaWwz86ySnKPOd//m4cqD5FyGLZfDMhOzyHkMc7WD
2xW/kwvU/cRm/BWRQy5iMH3j/CHsD/IZhnkrauWIXHIJg1/NwtxNx8mlDGZb
P2ol55HLGcY3Vh/KyidXMBj4fBVUUkC+xeDa3riw4SS5isFrvEnIZ6fJ9xiy
e52c5/AX+SHD+in9xijOkh8z3H9qX1p8jtzI8Lbnie96XSA3M6x8EuHmXkp+
xeBwsOpQShm5VV1vdIHr+CtklTr/YB/nG9fI7QyPB9zJD71B1uCYXNtSq3Ob
rMkRHx63IreSrM1h4De8Y/5dsg7Hy1Wz9TTuk3U5iswOvztRSx7CUV14U7Wu
jqzPEZ1k+d7pCXk4x4eO1x8ON5ANOfY8+V45sIlswnF0k36moplsxtHfpWjh
+xdkC464NaaLA1+Tx3D8+Wfm/voWshWHb8qiKV7vyBM4TJvivr+vIttxbCq5
2W9RGxkcF1RrnHp9JNtzvFMa/7a62+ZOO3Lcjsoof6dJduJwq7Aa4adNduG4
+bbpv6q+ZDcO89j1CUkDyO4cuzY/zvx6MNmDY+RGnfTSoWQvdb0DRgWbh5G9
OfJDZjiuGUn25dgfHvko3ZgcyLG4/mba6i/JwRzrLb555GVODuUQjSHfzRlN
juBYlfEpdeJYchQHc05u/mocWcERk73nzUgbcizH7qD8EIdJ5ASOBz1rChdP
JSeq30Pa7vq9DuSdHEOSwlc1/kRO5Xheqjdg2mxyOkfBEt/piXPJjMPq0uBT
nxaQMzjW2Ciz9nqQlRwNQX8s+XEZOYtjxI0emv18yDnq8ze+CWrzJ+dylOZs
cBoTTM5T573D3mB7GLmAI7wpOcUjklyk7vds20yrGPIZ9f1XWuxOiieXcMwb
4RHcJ4lcynF/S/qRxlRyOcfwL/90sGPkCo6DG1J3j1SSb3HMGJQ55/fD5CoO
L8uAxIAT5Hsc3rscd3mcIj/kmPPlMlPV3+THHDtO6K1IKiM3chSbKBctuEFu
5vDrf+3O2GryK3X9tpzoslpyqzqP6307KurJKo7Rw4wNLV+Q2zlcGyYdXviW
rCFwsmlD8M9tZE0BjTXbFT93j+20toDWA4XBLm2yjsDIFNWHp/3JugI3v5ua
Yj2UPESgqlY723cEWV+gtMdvjntNyMMFjHKDqsq+IRsKRJVNML1qSTYRyHm0
Q++MLdlMQDWJ/RBoT7YQ6Gs9uOaqE3mMQE3yrHBbN7KVwPrkdReHLiJPEPDq
u+ygtRfZTuB70+KsSh8yBB793Tu1PIhsL1B3dsqDxDCyo4Be0rEF2dFkJ4GI
TX/XmcaRXQRaLTd4NyeS3QRm6O9wXZxGdhcY06vl+k1O9hCoUJ5nPgfJXgJF
i6wmjjtK9hbQKbn27aP/kH3V/Rj6js8qJgeq9189lpl8gRysvs/0/YXV18ih
AmXj93XLriZHCHzqt+9eRx05SuB2Qx9v1XOyQmDWwIPPQtvIser8Lmm8HtU7
rtMJAjb5DnqNQ8mJAnElZ2x0TMk7BZ6szztw3IqcKmB9p/ifvdPI6QLH9Tzr
xi4gM4GFiqU5nn7kDAGr83Y+3SLJSoHl3+6smfcrOUsgujgh8rZMzhGQDwnz
Y8fJuer3lPLxUOwFcp6ApVGOy+QacoFA5cu0a7dfkYvUeRhVVK/V2tLpMwKn
txVMTxpJLhGY/qmj2XYcuVTA0NRxe8BscrnAqo3JR+f7kyvU+59kuhrEkW8J
LDpvPPVaBrlKoKfti8XXT5PvCTRyQ8nmLvmhQMvWD9sGvSM/FvAu9LxTPzi+
040Cs6v9Ri8YS24WmHPKML5gDvmVwEA+6UR0CLlV4OMu93ibnWSVwOXpyj7R
R8jtAiOGah4wu0zWkLGh38WQvk/JmjLslrWEtmoldFpbRtItu6VaZmQdGUe9
h1W6OZJ1ZTxL9lyi9CMPkbGyZ1jl8kSyvozM7oqtS46Sh8soGuQUUnWDbCjj
C+PRurPek01kPE2a2a/b51s7bSbDsH9lVL4N2ULGC51Tf433II+RsW3RU1+r
X8hWMkaN2F0wbB95gox/MgZ1bD1HtpNRf/nOvGlPyJBx37y3VkuvbZ22l3Fp
8E+fB3xNdpQxo8jjVNFMspOs/p98NN+zmuwiw3lF06cDaWQ3GdFnh5oPLCa7
y/DslZjAG8geMub1ulISPGh7p71kWMfPeLR0EtlbRt/e8e9V/mRfGWt1dQOz
08iBMnaXjyzRPkcOlpE699yVIW/IoTKO++a0hxsldjpCxrvKWwm+LuQoGQEP
eYvJRrJCRoebwtP4CDlWxj7V4INH7pITZFzvX302UPtX/A9CwRy5
          "]]}, 
        {RGBColor[0, 1, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJw10gtUjtkaB/A0MUVNn4RKkdRoSBMTGpP8M4xblG/KrYvw0WVcSklXKqES
QtR4937fTDluuaeiqE4hJqaSESddKIUIJ11Go/Od6Wmvtddev7X2Ws/e/+cZ
vXqTfK2qiorKZ+X+//nPShIgW/Z9ZolrNP5xioDxu4c9vt9nJmC5vktFbZ9T
BdgaMP9PfU4X4LUlP260G/mkgHF52W8X9zlDwKmiX7ck9PmCgPCHj1Qe9DlT
QKD5PvkYd3KOAPuAb3+M6HOeAJOYbzLq+lwgYNS2Gq+FHuRiAYML+eKiPpcI
+GUBnz1zJblUQFXxB+O7fS4TYBS/t3CFJ7lSwKBIqwFtfa4SMNH7ypPkVeRq
AXEbXAfOWk2uE/Bd7pagzj43COhQ1+l3ZQ25WUDTnLaEEAW5RYD1x31/z15L
ficgJVd1qsE6cpsyr/1DR7b3uVPAw/6WKY+9yN0C9j+W7yn2Jqsw+Jb5vsrx
Iasx3Kw8sDvTl6zOgM7i+dm/kDUZ9tTFGxauJ8sYctr/21i+gazLsDHpYOLL
jWQ9hi+MC3UG+pENGTbtbLef6E82Zphx1F9j5WayKYO+28RVhwPI5gyj0u2N
KwLJFgyht3oW6AeRrRi2TP9aUGwlWzMMmv5ElhVMtmG4fmChoBVKtmVQ93Cf
vCGMDIYkn9qcinDyLAbL5z8PtdtGnsvgsfHQtPPbyQ4MMt/bel9HkZ0YWv7M
ykiPJjszFGnqVpjHkJcx5NZahl7aSXZjmPRV2hH73WRPZd7tgllVLFnBEO7r
JwuKJ3sz6Ja1Y0QCeT3DiYOTDt/cS/ZjqI7NUdmynxzIUJrrsvWbA+RghvOt
Wm+eHSSHK/Pr9FqdlkSOVPa/tX+R7xFyDIOXVsbbKSnkWIbuO29eaBwlJzDU
tJon1AvkRAadzdF1+ZycxBB8/WXxbxI5hYFF3vo2/hiZMbyqXbMqOo2cyrA6
5Neb4cfJ6Qw3Os77hJ0gn2To+FlNHnmKnMHgknN6VdwZ8gWG/zz/haecJWcy
LG5t1c88T85hmOmXF/bgIjmPwTZC5U7nZXIBg/3h2g9jssjFDM3aWh1Lcsgl
DGtmmFzaf41cylAffcSkLI9cxqDdct1sWD65kmFr8p1rawrJVco89kkNeUXk
aoaykzMW6N8i1zGcK7wv215CbmBY1BDb8/IuuZkhUmWomcc9coty3pPd/Z/+
QX7HsOvsn8t/qiC3MajK62qGPyR3KufRYH5o/SNyt/K+ya8TLz8hq3DI0uLl
YU/Jahwbdea5O9aR1Tkio1xlY5+TNTlm+Zjc7/eCLOOovbKuoqmZrMsx8Iht
RM1rsh7HH9/5XnzxlmzI8aWjYXTIe7IxxzTFqBc6bWRTjsfW7w9caSebczB3
/6aVXWQLjtLnPdHq3WQrjr+lNOesz2RrjjbFjQ1r+u3otQ3Hy/LXBUPUyLYc
wddyXhQNIIPDY3f+ojQN8iyl1eY9maFFnsuhuKHv/klGduCI9tU3SNMlO3F8
ckix89EjO3PUDf5rzhRD8jKOqtiMWxrGZDeOExezBj0bQ/bkGOkUu+bRWLKC
416nqWk/C7I3x3bHeXoKK/J6Dvmjyt3B1mQ/Zb3Ejg0nbciBHL/Pb51TZUsO
5qh36Desvz05nGPPB0Gwmk2O5MgfoxflM48cw5FwzeLAg4XkWI7xPpYLLOTk
BI6h2y5K55eQEzm0bgWOn+lKTuI4N8oio2ElOYUjWS3j2GYFmXHs6Pi4fYIP
OZXjgxs/J9tITufIXWzNVQPIJznOXh7oNyyYnMFx6jfbIU4R5Asctk58cXk0
OZPj3Z86b0JiyTkcnmeHZh/dR85T/j9uZklRErmAIzVI1dVfIBdzeGlkd8z8
jVzC8d0Dm7CQU+RSDkfzsO/NL5LLOPayyz3eV8mVyvw8/LWWFpKrOLJSQyoi
7pCrOWxOW154VE6u4zi+qCS09jG5gSO2eezphnpyM0dls57hqFfkFo7Jak8z
N74nv+MI1bmUGdZJbuOIMu0v7+whd3JE3GsqL/8yptfdHO47DZz9tckqImx7
mr/vGkpWE/HXNjvVACOyuogR8TrGw03JmiKSIyOHvRpHlonYpTCNvzyJrCvi
3CR5kPs0sp6IS0vPSANnkg1F/HR7yJLseWRjEZGZ2xdMlZNNRURpe3qdWEE2
F1EdOae9Yg3ZQoRqvPq47PVkKxGthR4v/hVIthYxdfOUqP5hZBsR9+3mnDwV
RbYVMf+Wi+PtWDJEpCRnPJmWSJ4lItuj0TwkhTxXxGajkRq6x8gOIgJ2W+Rr
nyI7idCatG6Gy0Wys4hx6Fn44zXyMhHXflpb9UMR2U3E7z+c3eVYSvYU0SQX
m1IfkhXKvDcVnrhfQ/YWMeWWv53+C/J6EUNuWy7b+Zbsp+zHB7vMhZ3kQBHa
zY5MUt3Z62ARB+2O9gRrksNFeD4eOb5rODlSxAOjT9s+m5FjlPnqOiTZWJNj
RRwa8Lnt8ExygogTzYsWuiwmJ4q4G9qgwVeRk0TYfZEYahlAThFhleu+K3gn
mYl45jXxrUcKOVXEpjP9vyw5TU5X9nOUn8+r6+STynk6dKYL5eQMEbmNySu6
G8gXlP3+StMhp4ucKeKmqWqXQntXr3NEbAiyyO0wI+eJuPNheS2bTi5Qzvv4
lep3XcjFIoJW5+gc2UguEeEWuKKxNZZcqqz/1/D1OsfJZSJ+9jn9g1EhuVLE
BPmICWY15CoRIXWXjsV1k6tFPE6t3Kcw2N3rOuV7jXVf5k4lN4jor3OlesRS
crMIh623B329ldwi4qm1PODbFPI7EdfLE9zPXCW3iSj43OE84Qm5U0RC3ujJ
9l3kbhGaEaOv3NaL7bWKhMQC1/p9NmQ1CeZbZnuuXU5Wl5BdtPLYpjCypgTD
0kjLfE6WSWi/62g2opCsKyHM4D9fvW8k60n4e943q2SD4nptKKFpx5LjV63I
xhIevu60911KNpVQbzfeRxFGNpfQM7oxz1siW0jop+uqiiKylYTAAos3KU1k
awnBg9fdr9eM77WNBFdn/8PXJpJtJTi2dY1tdCFDwseg0/MHhJJnSTgQ8MTv
o0ieK8Epy2zpv4vIDhKC8rbuMHpFdpJgmygzyNDZ02tnCdXnbqxMn05eJiFj
e2HmTR+ym4SEXWYRNslkTwmT4xOOVdwkKyQUrFKtMflI9paw5/a2o0dMEnq9
XkJaeEVboZzsJyHqTn7c8RhyoIRFRvfGtmSRgyUsvu6bcL+ZHC7h3uvSq7sM
9vY6UsLg1WZn4xaQYyQ8OyRtMQknx0owXZJ29mPGXvwPkt0VMg==
          "]]}, 
        {GrayLevel[0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJw10w9UjucbB/AXLZkklJVYsSQWC0mz8GUhSgv504RQlpSy0oqykLySymRe
nvu+n5BqFUKztDZtsrI6SpL8D02xogih8nt+63rvc55zn88517nPub7X9Qxd
FTTft7tKpepUvv/f/51kCaMM3/nW+2/Df9ZIuL6wfnuT1kyC7xXz8ndap0iI
3R392HAdOVXCWgvTCzZaZ0houfzZDTetsyXoWg98GqZ1joSOzlN/pmmdK2FC
0hLbW1rnSXCtLP3UOIBcIOHL16+MPbQulFDgGqTSaF0kIcHF9Vyt1iUSMgph
OyaQXCah8W2IS7TWFRI+CLzaVq11lYStX35hNW49uUaCvvuEy/u0vi3BvH9h
S5vWtRICktJ/WhVErpOgd7AmtELrBgnHN+yLmh5MbpTgbGmbnqd1swT7XS+e
j9tAblX6be696JTWbRJ+sFCVjv+W3C7hQVHgnHytVQxHXd5enxlC1mGoH60T
Va21HoPrcbbYP5Ssz5Cyqr2p20ayIUNk5Yz1XGsjhuiBRYWOYWQThrX25q33
tR7MMMvMu1/cd2QLhhu+7xzsw8mWDB5GVR31WlszrJ5xVmYRZBuGkxUTp3pu
ItsyeAZPVhtvJtsx+Lt73KzW2oEhTK+PuRRJdmSYtLjtC98oMhhqe9Y/HruF
7MRwJXlGYPfvyc4M2zYdmVmttStDXn5D1vFosjvDt7dCfojbSvZg0I2IN/Lf
Rl6i1Af5zp27nezF8OLg28vjY8jeDOPW7LtivoPsw7Cv9yhvw1iyH0PQodUF
H+wkBzCoihandWgdzHCgNaizTU0OVez4c9jrXeRwhu8Hhdm/iSNHMtjkHZyi
iidHM6SNvZvbew85RsnTZWmJaQJZzeA2f6T96ERyPENERXL19CRyEsNcM8Om
ZXvJycr77qPNN/9A1jBkPmg4J+0jM4ZmvwExpcnkFAazQrMRr/eTUxnaPNcZ
Wh8gZyjzebip2ktDzmaICzRt23eQnMPQa/F+84pD5FxlP/xWrBrIyHkMY2sd
3Lw4uYDh84q199IFuZChOGXr7VcyuYjB6depw1wPk0sYQqxKN6YeIZcxBI7J
6tsjlVyh5NW+TeNzjFzFEB4+YlFZGrmG4d+fCw0mZ5BvK/NckDv5+E/kWgaH
M8OPWmWR6xicL8RtOJxNblD6+feVbHmC3Mjw+PMpO06eJDczxC6fU25xitzK
0N5j1nydM+Q2hs3uB1zO5JLbGSYuGOG46SxZxXFvstk9mzyyDsekdLuIlnNk
PY7DORe/Ov0rWZ/DcOjlC2G/kQ05Do0eVOl0nmzEYTnhvMb8D7IJh5OTx1bd
C+TBHA1f3BsQUkS24DgxtdJx4F9kS45VEX335BaTrTmu+w2MX3GJbMMRuSzK
r2cp2Zaj/erzNXllZDvFxhsM/C6THTjW9I+vGlJBduQw3WSkuXqFDKU/jZyS
f5XsxCGOPbzpWk125iiY4LDxXA3ZlSNi5jwn41tkd46YmukFiXfIHhwVnq/e
qWrJSzg67Z2fhD0ge3F0Xzs5rLGO7M1h37zCPbKe7MOR/WPHFLsnZD+O8f6q
/f2byAEcRYNtbBOfkYM5hg/2GTLrOTmUQzdkW59/W8nhHHkvgyP3viZHckw4
kbzZ/i05mgNnXGc8aSfHcKT5GD36+z1ZzXHn46LOXd23dzmeY31xkXrLB+Qk
junnSiyC9cjJHOdPD7ob3Jus4RhVYLt+sQGZcayYEzMstB85hWNn9VOjdCNy
KkdKy9LMux+RMzgu7l0t7MzI2RxJcR72qR+TczgMPCsDvxpGzuX4sTW7fy8r
ch5Hj/sBHp+NIhdw7NZv9R87hlzI8WvdN8fOjSMXKfNY3hJrO5FcwrHn7/p1
Oo7kMo7c8MMvrKaRKzgmvnyx4NRMchXHMy/Ns1wXcg3Hsvn6sX3nkW9z5L95
tCVyEbmW48Ab/WU7l5LrONrq7xZneZMbOOY4xk5XrSE3Kvn7Oiz62p/czDE3
o/lNyXpyq7Kfnh3Dz4aQ2zhm9Hu8sDac3M5xcEljbUEUWSXg9dvZq2IrWUfg
+BZV3tVYsp7A7gV9L92JI+sLFN8u/z00kWwoYKpxqmxKJhsJXPvdIlF1iGwi
kNByocdnMnmwgGZ54HKvVLKFwI4zPa55Z5ItBewy35T3zyFbC9THVP+y5yzZ
RmBBVpp6WwHZViB3ed2yw3+Q7QSW/7KxfMtFsoOAbtl2G8u/yY4CQc0nsseU
kyFwKsT7xXdVZCeBbQc62zbfJDsL8F0v/zxaS3YVUEeEbf7oEdldYNqZ+eUf
NpI9BB7VT52d+Jy8RGDAwJXNT9vIXgIr9+gZrXtP9lbydI48O0Q3pss+iuWx
nzB9sp9A+pDTfrP6kQMETKaXfpX1ETlY4Gizl/NAc3KoQK+Tp19kWpHDlbzm
BtsdGU2OFDBOTTBYbU+OFpi4P2HFiGnkGAHfoeO+X+ZCVivzS86YxheS4wUy
D3Tzt/YmJwms//B5llEAOVngO2ZuXR5O1gj8tvCP+uodZKb0c/xW7cR95BSB
XTcMTB7K5FSBj++731xxnJwhcGlQ2tIb+eRsAbO8aVapJeQcAbeDs+bPu07O
Fdg0rXtY+iNynkClg+kF/opcILBHbW26uueOLhcKVPUVs1aZkIsERq7/uuPa
SHKJwPvLcnqmI7lMIP/Tid/cdSdXCLgEvFwe5UOuEpiUZWnRP4JcI3DT+v67
vxLItwUyRg4vlo6Sa5W8o2yufZhHrhPYsCZuTc5lcoPAWe/ryYf+ITcKrJ5d
bObZQW4W8BwV2GuxcWyXWwVm+cWkzbYhtwl4x14cajKd3K7ss1vx3oolZJWM
pPi60rogso6MLN3xvmZqsp6MQNX23esOk/VlLOxhUHMtn2woI/+WzXC3a2Qj
GeuemJ63bCGbKPVJiTF9+uzs8mAZG49UhW4ZSbZQ6jOaSl/PJFvKeJ/zvnfm
SrK1DPNhG1fqRJFtZITNjj+8XUO2lbHgpw0PL+WS7WR0BLwNH1ZJdpChmXtj
g+EzsqOMeSXdpsT1VncZMoKuV0bNsyY7yXCal/Dg05lkZxnGu7ccVPmQXWWM
6hz7z4/bye4y7FzcyhYdI3vISOXRQ2dcIi+RUdM2J6rnU7KXjPQ7fY81DdjV
ZW/lvZsVA25MIvvI6KwpVfuuIvvJaN9fWzhITQ6QofIt+rYlhxwsI0H/RHTY
LXKoUv/W4OFM3bguh8vK/3Gn20VbcqSMl91bp3guJUfLONpy6hf1DnKMMo/e
n4zIO0lWy/h9xqVliTfj8D+HQhTf
          "]]}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{1765., 580.},
      DisplayFunction->Identity,
      Epilog->InsetBox[
        FormBox[
         StyleBox[
         "\"a) Atmospheric Carbon Stock\"", {
          FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> False], 
         TraditionalForm], 
        Offset[{0, 0}, 
         Scaled[{0.35, 0.95}]], 
        ImageScaled[{
          Rational[1, 2], 
          Rational[1, 2]}]],
      Frame->{{True, False}, {True, False}},
      FrameLabel->{{
         FormBox["\"GtC\"", TraditionalForm], None}, {
         FormBox["\"Year\"", TraditionalForm], None}},
      FrameStyle->{
        GrayLevel[0], 
        GrayLevel[0], Automatic, 
        GrayLevel[0]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->600,
      LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
        GrayLevel[0]],
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotRange->{{1765, 2018}, {580, 1000}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}]},
    {
     GraphicsBox[{{}, {{}, {}, 
        {RGBColor[0, 0, 1], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJxN03k4Vukfx3ENSSmK9tG0SZuKMkkYnyRpMflladMySotRgyTTtEiPaJFC
kzr3uY+KtMdEKY1sI1miQpuKojCKUNEY8zu/Od8/fue6nuu5Xtd1nvPc9/fc
7+EePy30/EpNTa1T/vzv+98rWoDa/18xAiZvMzdoru5n86+ZgJ8S605edTVU
HCtgbOqT+zH2xorjBNTXHXjY4WOq+KyAzbVLJc8RZoovCnAsWRLYOmuq4kQB
A0+E9RhQb644WYBq8ruYmUMsFKcKMIkMLX77jnxLwM2kRUt9vaYrzhAQNCQp
oM8kco4A7ZCocb2e0P15AgTT4sz1UeRCAZu8zcLG7COXCEjaHz7ZoYZcKuBl
wvkSGFsqfizA2979ht0ga8UVAgyuBHL1TBvFlQLm8TOje7MZiqsF5PP+g07f
nam4VoCzc0+rDf72ihsElFU2e8THz1HcJGCUbf5Q33WOilsFRHwe26+1yklx
m4AFm7qbRHs4K+4Q8HW34Jb35m6K1RjC7SM+bfVaoliDYcjWud3+/MddsRZD
rO+b9i67VinuyXCtfsAsmxQPxb0ZBvZ4a7HZyFNxX4bNoYvKl5SuUzyQId18
Z8SxTC/FBgx+phF3ips2Kh7GkB1X/LPzbz6KDRmST9rZex71UzyGYQEvadJi
/oqNGfqsrEqZlBug2ITBYo6/Q77+z4rNGNZE3ut/V/WL4mkMb25tmrBx8E7F
VgzRwRcid28IUgwGV4+QNv1HuxXbMZRtu9eR5rpHsQND/GFDS4caleL5DKXd
rU/pqvYqdmIwirGPTZkSptiFYWe6jeXa1n2KFzOYzrasdMw9oNidwVl85hdz
LlzxKoa5VsH9fU5GKF7D8Prr7LvDyw4rXs/QL+tU+e2qI4q9GQxaJvs6fIpU
7MMw/tyIv3z1ohX7M4TUVJ3InHJUcSDD5Zwh31xw/1Xxdgad4FgL3/BjioPk
+c14vMstN0axiiHGOiJe7HZCcRiDY6e77x0XQfFBeV67Dj7QOs8UH2ZY2HfN
s1JNrjiaochg8RXuJSmOYbDxyUjw9oql/hnW3q5LmzD8JPUvn6erR968e0qO
Y9BcWWB989gp6p9h6BNUSotOU/8MGTZTPl4YHEf9M4jbKn4srCIny+etYKPd
xwvx1D9Dk9vGDX8FnqH+GXSn59+66pBA/TP0Cp2l2zL4LPUvn8/3j97ktJDz
GC4NnV1zo+gc9c/w1q1g9vGE89S//P5K2LxxQReof4YPRfunmrldpP4Z1LvY
8PfDLlH/DJ8ONc+NriVXMljpOS0vuXSZ+pfnO/THd46+V6h/hu8nHupfMSiR
+pfnmXb1Rfo2cpP8/m64JeY/I7cyfEkMO+tunUT9M3xr2txwXyJ3MFyxWfJr
qPpv1L+Ihb94jdL1JmuIcLEIsc8pI2uJ0F/f2MscV6l/ERr1GTs/nyf3FnE4
4Wzc0X7J1L+IGyGTd9jtJQ8U8bZP4VqHVrKBiEHlt5PClqdQ/yLmvTz9W8Nt
sqEIldnWlGWDrlH/8vOzM3zMncnGIgI+55rqhJBNRLSObkytTSKbiXh0plt6
cQV5mogPtlGtBVrXqX8Ra8ftD1xnR4aI4r/TZ89Rke1EjLj+6vbxPLKDCEc3
69m7+6RS//J6F5qZj1lJdhIxrkZbf3My2UVEWqe+3lCdG9S/vP951QfjfyS7
i0jYvOPhrkLyKhGV8Vm2o01uUv8iLF0mqw4eJa8XsV1fO+9hB9lbxNibRgdi
PNOofxHphp8WBhST/UUkT6qP05p+i/oXkfV90W2bWPJ2EV6Pd5iFd/ud+hfx
Q0a+63UfskrE8q3mfqoKcpgIvQ+RFTfnpVP/IlqG6P+w9Q/yYRG9FhiYRtve
pv5FDFvmrmGbRY4R0TG7OOvx8AzqX4Tpy46k7qvJsSIynkrj+8aS40REhrTu
KX9OPiviunHlgM8GmdS/iHuuBywMVpATRbxxfDar4SQ5WZ6XboDOobfkVBHG
8UudQk2zqH8Rvoe6OrwIImeIsN9XNOl4OTlHxMTI1zbpU7KpfxGvVn29+qZE
LhSxoLAgMEo/h/oXcW7Voh7XDpFLRRx/fyThUO8/qH8R97PVK/bFkCvk/bjU
d9E1yqX+5fPpi9FHUsnVIp7rXRuzc8Ed6l/2hSsvZtaTG+Tn+V0f6RSWR/3L
+6u8rmoyukv9iyj/OMnKMo/cJu/vl7mWRt751L+ILQE9fRP0Cqh/Dg+vSXnJ
aWQNjgOLnzuuWVNI/XOoem4smNm7iPrnqDhSMLFLBrk3R6Lx2GVz/e9R/xzH
PEdPL5pQTP1zDIy6N6r1A9mAQzdc/VbG8hLqnyPo86nO9hyyIYeOutoMz4n3
qX+Odesnvc08TjbmeD1zZHKz5gPqn6Og8M8n+7eQzeTf84A61JCnyftLDPQp
cH1I/XO0/V7YWZlLBofht4GuI6eVUv8c333corH6HNmBw9a5T/GywWXUP8eG
7OCtd/eTnThMnjSmr/tCduH4avysL5obyql/jvlC0rdzysnuHEZN1no1Mx5R
//L8vBOMj1wgr+GY9em1oYb+Y+qfI7pr2g4TP7I3x5n5PT93KSH7cDyIKjWP
nfCE+udorqqvnnyQHMhRaW10uqqBvJ3jp5bMwwmuT6l/jnT/vztOZ5JV8v6u
u12+a/KM+pfne2SFt/Zp8kEOq6fxncsGVlD/HE21fhF9w8nRHJEzvOoTuj6n
/jnO1dVYNwaTGcfNNzap2V1fUP8cDt89CO08RI7jcB337Lg0/CX1L///pgGX
i9PIFznuvDozonFiJfXPMXLk3k29VORkDm3PPdu8npNTOVr62SWssKqi/jlG
dV/5Z7REzuC4NONERa3mK+qfI0V/sd5UP3Iex/qHX0YuriIXcuxLWdXm7/Ka
+uc4yixstQvIpRyZzLFrtV019c8RXPcfu7xMcoW8vmM66rtn1FD/HFc3mwyf
nkWu5ij6+1WvzFlvqH+OiO/n9LMvJDdwTNi1d0+761vqX+7x7O9x2q/JrRzf
7Kt977ellvrnsMjWbR+tXUf9y/c3Xg6pO01Wk9CeO9EtwKae+pcQrNY2Pvw5
WUtC79CqCaU7/qT+JcRl678cM6yB+pegqhJGO+WQ+0po0w5t1PF6R/1L0Frw
cei4Pu+pfwnlru8/TU8lD5PQFDrmw/ZVjdS/BJPLnk3/aDRR/xJmP59ZuGEp
2VhC1kHbj3sSySYSzgQ6jl2h+YH6l7BONS1s6nLyNAn5z7w0nVPIVhJWN2vG
tOs0U/8SjC6mmvp4ke0kVH2z/KuAu2QHCduKi/1/HtdC/UvQrTkz0SOc7CQh
fW9g2YBmsouEsqihusGLW6l/CQV34rb0yCC7y+vzNrWeOvYj9S/B0jwqvGc0
eY2E3IDGiGi1T9S/hLyYxd5lm8jeEpanRm7yqCT7SFioPSrK2fkz9S/Bbv62
9vl3yIESlq4oyGy2bKP+JZQcaO9Rl0gOkq1efnGFUTv1L6HfxaAf5grkMPl9
dHqfmKD7xea/f8FBSw==
          "]]}, 
        {RGBColor[0, 0, 1], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxN03lUz/kex/GQbCEqkyxZskda7NGLarSgLsaEIombJcsdO60yQmESpd/n
8/m2oVImSte0KNKmn2UqijCha60wtolwf3c+7z/u55zP+Z7HOZ9zPuf7/b6f
A73Xz13RVktL66tm/+/594pSQev/V4wKdmXzTOZNSZj2t5kK7ouf2TmalkjH
qdDL+sGijl4PpJNUyK6rWufd+ko6WQWb/FG+9+papdNU+PB5lVZ+aAfbv52h
wtJ7ttV3HvaQztJ4qGXglOLe0hdUeJz/fn6jeqB0ngppg9pMdy8eJl2owrPv
I1c61o+RvqLCuPHOXyNirKTLVKg8M2x8vxUTpdUqeAVV6P7yYKr0TRWuH67c
z3VmSFerYDjF+U7ILgfpWhUOBowxcV/gJH1Phd0uR7fz6NnS9Srono1OrB74
D+kGFQbYJ027dWae9DMVLJoM1/ywaYF0owqumVvWlv20UPq1Crm71j08fMZD
+p0K3z/ZU6Wl7yX9lwo+wWcX/Nq0TLpVhbffd69vfrpcWoshyrH95Jy2K6W1
GVrnvD9wfJqvdEeGL4nFc7qz1dK6DPkbmyNj+vhJ6zE4lnWyS89fL23AcHdF
+Viv6RuljRjaNCzzrDr/L+m+DDdK7eBts0l6AMPQPsO+2dzaLG3K8C7d2KA4
aKv0cIYM26tDTW23S5sxHHYuTHumt1N6LENn9/ItWh92SVszGEZW2R1sDpCe
yLAjZc+1hf5B0jYMH+7PblkWESwNhm5GudV+p0Kk7RnUjgeMDlTslnZksLcJ
7lTaEio9i+HF88odYyx/lnZjsHRx/OHppr3S8xkWmRkMbb0UJu3O4OMXMWxr
7/3SHgxuXbvO8N55QNqLYXBpQFj903BpHwaTwFNu+ksPSvsypMza5mL88JD0
WoZBYa76X7IPS29gSLbJvFQX8ov0JoZO2Ye2j5ofKb2NocOTt9ubRx6R3sXQ
v+BYmlWHKOkghrZeyRM7PSeHMizMtb27/uZR6TCGC9fndticf0w6nCF0z9Vq
o4xo6cMMVZ4nDX2TY6SjGDbnjnDwPnlcOoZhqnLlrU5qrDRjMA/MK47PVEnH
MYwP5z8PLGLSSQzF3PVcSC2XTmYYef9Q6vW3QjqNIb5nRE1Q5zjqnyHd2G1j
T0HOYnhlUuGbaR1P/TPcn1u1xes6OU9z3r2hpu+aBOpfM//f5vCXnROpf4bL
qS9bb6WTyxhO5DR5PJiXRP0znFp6xLXrF/JNzfvqnI73STlB/TPwBUvmNrqf
pP41/ZikBF/ocor6Z+gz0rVz0SVyPcOQPV0+Ge1Mpv4ZTNtNNciZkEL9M9zO
bkk795HcyKDfqyXVIDeV+md47eBUuD/4NPXPMHq5z/6Zs9KofwY7P36sd590
6p8h0m9aZttmshbHxQavR9evnKH+OR55vtU/qPxK/XPsTZ/g1sc2g/rXeFqv
a0syyHochrcuPooZfJb650ja8OhFbQzZiMMrx7yHud456p/j2RPHjg/CyAM4
RgU9XdzYNpP653ivb+DpE0AezmH27fT62Z/JZhzvNlWtiNueRf1zzBnUvdKr
hWzN4Rdp0W/fjvPUP0din6Ca3l/INhwjjt9f3C04m/rneFJQUJGi82/qn6Ms
dTFre4jsyHHnhcvBccYXqH8O3UlxPXsmk904vp28seT8xN+of46jYXcXGqnJ
7hwJC4IqrLxzqH+OCdcPbv/6iezFwUrsRkcdy6X+OebHdzxrOS6P+ud4vLPi
RN8a8lqOdKeEOaU786l/jlMRBeazBl+k/jkcL269H3uNvI0jaqSni7KjgPrn
CB+8NMTUsJD657Cyauzluo4cyvGp3daWxjJyGMc8r/SJz00vUf8clj/F2nmE
kA9zqNu/cnZ6SI7iiKue8Tlz+mXqn6NT9Ok3oYlkxnHX33XIbZ0i6p8jbZHB
wPw15CSO1SMCSqZUkpM5bnxd08V78hXqnyPndJuxM5LIGRzGO3ZG6ugVU/8c
9YFjpxf6ky9wLLO7VZPTRM7TzEe4uXHT0hLqnyM3q7NOSjX5CkeIuqX1g0sp
9c+B3q/XdCshqzm63R8mLO3KqH+OpgF4ll1EruYY0HNMscPMcupf01P13fV/
XiPf47ic5+hf8eNV6p9jlYvrzMAGcgNHYIKvTstPFdQ/R/t3iT1m66ipf01f
9b6FhbHk15r7/K3u9La4Rv1zeEefL1fKyX9p/l9gefA+n+vUP4dD7CG7uDY3
qH+Bh1eLPHrGkbUF9JWXy+wH3KT+BYxaCpwtNpJ1Bda8W/HqwWWynoB7MDok
GP5O/QssPTUpddUqspHALHWXBouL5L4C63pN4e/1K6l/gUU6eww/rSabCqxc
t8/Esog8XGDml1EGtX2rqH+B0qVLTpZvJY8VeJCu9z6limwtEKatW/vcvJr6
F1gfMdkpMZxsI2DRWPZW6wUZAp573GxNHG9R/wKuu+r2TD9FdhRof1t7ckiH
29S/wOS9apskX7KbwM96+xvzrpLnC+QeOa/fZkwN9S9Q/HqxtV8k2UPg8CT7
5HZ/kb0Ebnc1X1+5pJb6F9jyqrCpuITsKxC5yP2Llfkd6l/ArOO6JwEx5A0C
/Xu9cTJqd5f6FxhpZH9jyHryNgHfHuGPN90j7xII93jd74BLHfUvEKVdYGGZ
Tw4VMC7lfiss7lH/AjbT7EuMk8nhAovtJkd5DrxP/WvmZ5x+zXFOjhJIn7u5
eWC/B9S/wJKkFW8M4shMoNA64l97h/5B/Qv4NHe7YpFBTtKc171rFdu/nvoX
MO/Y89KlleQ0AeXckeJfMsgZmu9/MWHukFZylsCGvF0JR5weUv8CXqPn930T
Q84TmPBozWD3F+RCAe3w5brqqY+of4EfxJDYeUfIZQLRTh+XG78kqwW6unSo
muvwmPrXzNvtLimP4snVAgnarlvqtBqof4G9tQ4LPbzJ9wRcNtw2nFRCrhfo
Z5WV4Wj2H+pfM68Ju/VLosjPBKp/94/P+kZuFMgbntvV1O8J9S9wubzwx273
ye8E3F5puU90fUr9C1TW2fRfWERuFUjscdNi46Rn1L+C+hEhWdvPkrUVGLcp
Pbpv1HPqX4Harevu3FNkXQWrhk/K0xn6gvpX8NT/THXASbKBgrqkxysdRryk
/hUMGZErXM+Q+yoo0fP7rBrXSP0raJ64pMfkArKpAp36BdnnnZuofwUV3Uu4
Vi3ZTEFRv6To9v9spv4ViI+p6tKPZGsFoROCk933v6L+FZgPO1A/q/tr6l9B
ALf6bLmIDAW/7rG4UnOCbK+gpnSimPEn2VFB9K7Od1fbvqH+FVh8l/dyeQTZ
TcGrF85Hne+R5ytI6fYWU83+pP4VJEyptbf3J3soiM3z/GPVDbKXggmbM99n
DXpL/Ss42/G3p6Zbyb4KrHskZR9Wk9cqSE/9UGs0+B31r2Da5k7O6h3kTQr6
XD50KKmKvE3Bre/2xhwa/Z76V/By3KX0wDBykII1B7vEL20ghyqYPH5hrsn0
D9S/gtn2B/bliA+2/wVKgjKT
          "]]}, 
        {RGBColor[0, 0, 1], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJxN03k4V2kfx3EVTypMixo12jdmVCYlSnymTBvtJKVo2osoKUXaVEyUKRV+
576PrZJkhBZRCEWLkKQSQtqUdaRNz++Z+/vHc67rXOd6/XXOub/f9+A/XBes
7qiiotKuvP/3/PcKVkDl/68QBVb11bqVlRNl/q8lBczMyjWffr8tHK6AumG5
XaB7pXC0AnOqdx77MrdROEYBQ4eUtH4m34XjFPDd+i671LmLxb9OUOCY+jat
m/N7CScrMMwuft/dop+EryrQZL6v7Ma4ocJpCuRXl2ufjNAXzlDgWdXAjLhI
Q+FsBQZFdQgb2W+8cK4Cd7Kach9iovA9BWxVY4Orf4BwgQKZz3uF5TtOFS5W
4OSRxrEW2tOFSxVor16ypnCslXCZAgf/GZLTJ32ucKUCd5duXGa6fIFwjQLH
Nd4zrR9thV8rMG+CfdSxbouF6xR4WGMvmU5eKtyg/H97tnv1heXCLQoY6Rr4
JY1eIdymwPul1essRq4U/qqAa9LM1g9YLawi4dL8qbdveq8VVpVQmdT+xPzZ
emF1CXlVzX1eODgLa0iY80YRPrijq3B3CT9vOXg05aWbsLaE0cWd90c4bBHW
keASnO81rtZdWFfChbZVIyL2eQgPkoAyXT3tsduFh0mwiniRVt/iKawnIc5l
7SH7uzuFDSTM/u1FSM0lb2FDCacfSyEeyT7C4yTEOPm7nli5R9hEQo9vXfK6
b98rbCYhXup9tCR4nzAkrI+LDW5K2y9sKSH2g+1kt3pf4RkSgls77FlicFDY
WsKKeJc3qe6HhOdJ0Jy/zupajp+wjYTDlw/lLRvyp/BiCQY+ERbx/oeFHSQk
JW6akvQlQNhJQusx46yjnkeEV0koWmOwdqxKkPA65Xn4+z+MySM7S9jmmD4k
LuQvYTcJAx7G2Ex2OSa8VYK/esKGZdOPC3sq55mYs1pzZLCwtwSdG8aaDhon
hPdImOWlY2v3kewrYcQB1+j2VyeF/SSo+baZOpafEg6QsKh0e9H2pyHCQRKO
bxnR2bYsVDhYQtcM308t1WHCIRLuoqTOtlEhLEkIH+qXkKvKhMMleK2uHms6
gAtHS3jb5fuCyMmycIyE6Y5fvQ/+Gi4cJyHKtfKt6W1ygoTy52736x0jqH8J
1/+oyMv4Qr4q4eSy0LiYsEjqX0Jz8vQlsWZR1L9y3p9MD+e+IGdLGF95MUrj
z2jqX8LqsiuRnuNPU/8S/DzqJvWuIRcov/+kRV71iTPUv3LfN+1yqpt1lvpX
znfhzMmWnWKofwmpHfR71dwgVyrP0y9585Nd56h/Cem+O3YMRSz1L+HggMSG
fLXz1L+ELqlG0R/yyQ0SHqmd2TBcEUf9S6geb7QxfeMF6l9C7rmo9AOIp/6V
71tgPH1H37+pf4ayhPlBTq1kVYaJN5Z2PLMxgfpnOBr8YahOOVmDIcDws82e
BRepfwZmpTquNpeszfD37RaVJb8lUv8MRwJbSupSyboM1u1vGgsmJFH/DPfq
th/SvEQexmA40bH8glEy9c/Qu4Ob+rUksgFDp77HLX8ef4n6Z8g537S741Xy
OIamuNRkM7PL1D+D1tWLgU8yyWYMtmdTtIpnXKH+GYYULOzjUUi2ZFD42Ox+
63CV+md49cx0/4J3ZGsGxwe9PLZ7p1D/DIH+l37x7H6N+mdwH+GqZX2WvJih
60d917dIpf4ZjIdH+cx4TnZiaP71F3m/dxr1z9A99qZq+YDr1D9DaFWPzzyb
7MywIrPy5WiXG9Q/w6qUrtkxOunUP4N9Z7vOn2+RPRlGaZQM+Y9ZBvXP8KnW
61DtCfIehskzdaYObiT7MvS4FKxXMjuT+mfwMn6s/+E8OYDBoGjn3v3dblL/
DImLb8wNdSYHM9Rf8Zpk9IAcwvB0sfuxCUZZ1L9yn/qHmt0MIYcz+LeaW779
To5mGFmqv/Diumzqn+GL5hl7vYfkOIZo1ahrf1jkUP8M5SNntwZeICcz1BbH
fk3tf4v6Zzhd6DDePIicxlD4OetBF7Xb1D/DrD6Wbdu8ydnK+Ub1yw9sJecy
JOc3bfN3z6X+GSJOtBdfbCYXMHiWzlZ12p5H/TO4XKu4N76dXMrgt8L1+TS/
O9Q/Q8PC6uKI3nepf+W+myxprjtNrmEYOLUtq7vpPeqfobTr0L1DHpDrGIwq
7MoXrb1P/TMU6G922dQhn/pnSEjTPHyZkduU+9npjtcGswfUP8P1MrcNc56T
VTgCzg2fn25RQP1zdHE+5fDkL7I6x8vm7514DVmD4/dRU1L7mxRS/xw/rf/N
JzmArM0xauDZwrlVZB2OoB6jbN6ZFFH/HPfKvZ33BpEHcawOsBm+7A15GMef
r5sbXKc+pP453AJXVbRxsgGHSfuVpUVfyIYcHoMy1pyyL6b+OZap9c2Ku0I2
4TBzsNUc0+cR9c8xu7fVS2sPMjhcmg/NHf6IbMnhtNd9WwfjEuqfo+BEe/O3
U2RrjnqjgEWln8nzOKxOjSk6u/wx9c+R3nUfP51FXsyxZaZZ5n39Uuqfoypk
bdiQv8hOHBotZ35J+kRexVGhP/HL+pVPqH8Og13JS4/cJztzFDun4LDJU+qf
Y8L69y3PoslbOdr4P/851/MZ9c/RIUjLLHUv2ZvjcujUyVFN5D0cee9CR01a
U0b9c0ysvp7jXUb2U87TJOjbUtvn1D+H5cd+3WsKyEEchRcXdfWfW079c2Sr
LXoZWUgO4ehtpZc7366C+ueY3xq9JraSHM4R1hiZGG9cSf1zfNiVZHPLhxzD
sdU1pTU4lxyn3JeCwUt0tV9Q/xxaSYfH7lhBTuYovd7jc1YC+SrHjUMRWj07
VlH/yvlvHjNlty05g8O+bLOd1nlyNseJwQ/u53Sspv45irR+/7HYgXyPY9Hu
xIZNKeQCjgOvh5V46tRQ/xxnV5hWddpJLuWI3NTruWE5uYzD6MO3nHzLl9Q/
h2MfvdkJF8g1HD83PuXafWupfw7dnmF+7QfJdRx3wrcY+3wkN3DEzhs1LWDD
K+qfI2dtp7RXFeQ2juaqrDLYvab+OU5OiC85VUBWkTGjZcijGqs31L+MNQXm
y5FHVpfxScet7daMt9S/DJtduhc23SF3l1HRZ/0M6znvqH8ZB5bzzP3FZB0Z
uslud9SX1VH/Mq4kOpg/eUUeJGPLtCe+ah7vqX8Znwce0/1B9QP1L0O//09L
aoPJBjLWzrw+fOvIeupfxhi1eZWpqeRxMsKm/mj4Wq+B+pfhEzJ6eu5WspmM
wkmOPTdkkiEjuFjSv6XVSP3LeGz6LbzGgTxDxk7npzpp58nWMlQy3qeu+EKe
J8M98llai1UT9S/j+lcf1ZOMvFiGdGib+5wGsoOMlbMqWvUsm6l/GeMOvHho
EEpeJaNGS2OYfT15nYzfDwyYtHdaC/Uvg7mbm+RyspsM7xfmo8zbyFtljLin
XfZswT/Uv4xhR+q9AuPJ3jKsTY27WXZrpf5l1KZO93q9juwrY8q2S6nrb5P9
ZHS6bfo2c8RHi/8CDypTag==
          "]]}, 
        {RGBColor[1, 0, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJxN03s4l+cfwHEzFfErK+mgiWEkSklH6SPkECVZqYjvQprWwSEKSyUqESqH
Pfd9PyotjNJIh6lUWhmGkCijJEpyqMyG+j2/3Z8/fs91fa/v9bqe4/W577f2
tztcfOTl5OQ+Sr///f97nBRA7v+PVAHUtFNPzPxhwtJ/TQS4GDc+5nK/Dne6
AAf8tRt1783gzhDglJtfjbPubO5MASLzj17PrzTlzhHgzs2QiGfvzLjzBEgM
zZkxJM7nLhBgcttXR7RbF3BfFSBasW79jvKF3EUCaNfZWKv6L+IuFsBj9Mzz
Gl7oEgFcbzV+t9Aa/UAA9/La30YuQ5cL0DycfWR6FLpKAFOjl68tzBZz1wqQ
1Z0Sotlozv1YgGIhM+pno6XcTwV4mWthu0fLkrtFAKorvzd6ghX3CwEKS5Ju
Htpnw90hgFXXkrxd39lxvxEgNP7I+JdNK7h7BPggUx8d2LqK+70AP43/zMxl
mQv3gABjy3cbHmpz5R4S4MzuL8N7m9ZxyxGAwtPbxphu5FYg0G1gGmH8ehO3
IoHk1FlhK6Nk3CoElq5bdPZR6WZuVQLzgqMHAu19udUIpI09Z++vsJV7EoHY
0PLuL4f9uacSMJY3te4y28GtRSBv1Spl6raLW5dAVOGFmcYWgdwGBOyqOhM/
2gRzGxFYO1SY1LojhNuEwL1FziMu/LqHey4Bp18vyptMD+deQCDC/8/A2Gs/
cJsTmJr1ZkbI5UhuIHDD/vhBf80D3NYEPv7tkSlLOchtR0C5YHHGJK1D3I4E
Bpp80p8VRnM7E/hnd5GqjcdhblcCng+/9PUYf5TbjUCAld8XNg2x3O4ENJ3m
PFC/GMftReDCga2zGlOOc3sTKImrS5J7kMDtR2BXzacdwWWJ3NsI/NVwxX6w
Lol7JwGtar1Uy/YT3EEEFheYV1QPneQOldZnZ4WF8uRk7nBp3ucmTtE3T+GO
JBDe9HHrJt9U7igCOiU9216npHEfJvCoxWjMrNofuY8RUPNPkNs5kXAnEDD1
2L5fQ0a5TxIY3/VJJz2PcacSkE1NNCqUT8f+Cbi+PdtnfAGdTmDQdsBytPtp
7J+Awc39aa4qZ7B/Aqd6ZUfUb6FzCChG6KStDzqL/RPoetsXL2+cgf0TCHy/
sUOxA32VwF6DD25Lz53D/gncmT/lQqj3T9g/AaMbMiFG7zz2T6Ai29jW7Q36
gXR/kDGj+ZnYP4FZnQGKunuzsH8CHxpC265YZGP/0vd8ij2oJ/cz9k9AQ60+
uOwy+qn0vIMafre25GD/0nmBGGSp52L/BD7lzo03uYvuIDBfSX/L8PcXsH8C
Nk63FaMmXsT+CdRvcT+XU4x+T2BUhfHgBLM87J8AGbnZfuNR9JD0/THJZyJb
0HIUXtTdsFBcfAn7pzDjvG3KhmS0IoV+zdL/KPahVSgs+TP2U7rTL9i/dP5Q
Q+nlTLQahVjXyyZOSvnYPwVqGJDS6oueSmH559V3/W+htSgkNk+PeqxagP1T
SL2+hE1djzagsN5xeYjyAbQRBZsOTbVbZ9AmFEqTukbNuYmeS8GsefXgpnr0
Agq9rjcOQS/anEKEwpTlOlMuY/8U7rkNeT5Zjram0L7Qqis+BG0n3X/KW9U7
B+1IQe6bpa2RbWhnCqeD9Quu6RVi/xSO7szuatyKdqPwbkWHtucltDuFMYmO
7cWDaC8KY0uX1e61u4L9U9j5T8mK/cloPwrx3WtO97eht1H44vv8nt3zrmL/
0nyv961nMeggCo+naQ8rNqBDpfWc2Z97R+8a9k/h45pFPRqB6EgKMVb3+2pv
o6Mo/DP7TkfuuOvYP4WoekFpiy/6GIXug/2yvrvoBAqzlDXqVuv+iv1TqN5Y
Oe1aNDqVgpd3w8eNr9GEwrfJDqbbVxZh/xSChiaMqs9CZ1Co2ed8d/rIG9i/
tD6ZMctyvdE50v4IH96Q+Rs6j8KxkbGdMuOb2L90fXrnnoUp6KuS7/V/Ule6
hf1Lz69oNh2MQhdTOC+/1iNwZDH2L+2v5kGt71ejH1DYXQw1Rdnocgrzt0dU
hCvfxv6l9Tl2W35yILpWmpd5tWy4Bf1Y2h9eyU9Oud7B/ilEuigbOlagWyhU
et6TP+5wF/unsKLqcsfvZegOClf8DmzY5lyC/VOo66p61FyP7qGQkrxsbpjn
PeyfwoEfM21sX6EHKJQ/yzKdF/wb9k/BUH389EWf38f+GVRPi11pcwKtwOC6
Zc3mgK8eYP8M2tRe10MBWoXBlNE0x82+FPtnwNY0t8meo9UYFOpkxChE/o79
M8jv9bFO0S/D/hmUDTwpaa9BazGwumbtFRBVjv0zWDfPMCB/QQX2z+CPmedW
6fegjRiMk3//9b7sP7B/BvHGEXYffCuxfwazdYL9wsdVYf8MEmurAod2oc0Z
9M0rX/tLNRoYLOp998J8djX2z2DU0sMkIAFtJ71/9xOLL7rRjgxsxhgfe+T4
EPtnoBtWZB2ZhXZl0G3bpPpEoQb7Z7BX20U1aRPanYF3aa+DZyHaS/o+rcj7
Q8q12D+D9I6aOF1PtB+D5YlK0S1Z6G0MLK7dahr5Dr2TgXp819kbi+uwfwbU
PeSl4SF0KANPF9eCoCp0OAPzMPfYH3QeYf8MlM/Pydu/Bx3FIOTO3Nqgh+jD
DPSWqOSunFmP/TP4XEehc0QcOoFB/YKpY9U70ScZtEZGl1c6Psb+pXmq9Z5V
zEcTBr6Gf6klazZg/wxkGtrMKQGdwWBXx54cHeVG7J/B4cr+SbZx6BwGpn+9
yhwx8Qn2zyDUtkwnNxNdwMBH775j7LKn2D+DU3VPtZa3o4sYxFme1Fpysgn7
Z5Cx2myEgf2f2D+DPKPnh26OaMb+Gdg1Vm64Wooul+ZdM87xkkML9s/AZLqz
dlM+upZBdEBIk4HWM+yfwaw5LXkex9FPGSzrfFZm/dlz7F/aj+vqojWC0C8Y
uE1525z2Ct3BwKAi+lOnrBX7l/Zrg4OyRRO6h8GBgf2GRRtfYP8MVvsWX3Ro
Rg9I/doUHO32acP+GczLefbIrxstJ4KguTYvKOwl9i9CrqXKnGqlduxfBLgz
Ou3rH9EqIjxuD1u30qgD+xfBTD75M5VitJoI6yPDDXW+eYX9i5Bh+dRnXSd6
qnR9tcMftvtfY/8ixO+Li9eb1In9i9Bt5+I2fBFtIMJgWlXTE7s32L8IPdsL
qyqeo01EWOykWvQ+rAv7F0HWu93yrvpb7F8Eoz6PpuJ8tLkITqfKRwev6cb+
RQjQyrbe0o+2lt73MCZ9eFUP9i+Cu+rCtKSf0I4iTDNacLfxI9pZhDBZtOtN
t17sXwTv8vlRegVoNxGs2MKBCNU+7F+EZ16aGvbb0V4ifOeYdT+uAu0tQo6B
2mOXme+wfxEeGn+lLyagt4kwufusvlY/eqcIawfig8vd32P/IlSk77CxLEGH
irC50q5Mw+gD9i/CsROdi/8+gY6U5vciuXfiEDpKWi8FlUsrNvdj/yKMsrPz
USrtX/pfZW81KA==
          "]]}, 
        {RGBColor[1, 0, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxN03tUD/kfx/FuYilK2FAbbVmbuw0p8kKtyxYibcJPV0K2FCuXLi4lNjZq
ifnMTIqtdENJlFRSSqkoJay0IRQhiU39vr/9vP/4zTlzvudx5ntm5v2Zz3Ok
q/dSDxUlJaVuxfm/33+PKAFK/39ECwhyScw3DIqz/NdMwMtStsxCq5g7RsDn
Q93lq20fc58W8LR8T0m8ext3ggCHane3osAv3MkCvHauTN7X03vWvz4nIN5T
M+SN+UDuDAE54zyGHZwzjDtLQOWFbQVphobcOQJOjnYreDFtNHeegLiAnoNd
WydwFwow0shiGzp/4L4p4LLzXc2ER2bcZQL857u9POVnyV0poCpPVndzmcNd
LSD2lodqyAtr7joB20tSth2vXcD9UECb3taVWhMWcTcIeFaekRu93Y67ScCi
vmFOITr23M0CCuc5K+U+c+BuEeBodaFIaF/B3SbAYMfkWhfL1dztAmwy/pog
uzpzdwpwPaB71djalbtLQC/NCPX589y5lRiilKu7n69fy63G8FPqgO99Uzy5
+zDkzfSpXThwI7cGw9PiirDb0Zu4tRhcP5eMTBzhwz2I4cxFgw7t0M3cugxP
JrzU/tTly63H0LclZu6ukC3cIxj+ub7AKdPgV24jhrL0G73e39rGPZrhz7NG
atYHt3OPZVhdsqfn25U7uScyqMxoGuthGcBtylDnXflE2zSI24zBbbhvuq4U
zD2DYe7FuFWBSbu5wfDJutnLvGAPtxXD4Tczj9g07uWez+DnlJia3i+E24bh
ff+Wlk2WodxLGLaOCj14dMd+bnuGinaTwfp5YdyODGPOV+7vM+Ag9yqGlvTd
yxav+43bmSF/98XRvUrCud0ZXuRFf7EwPcztyaCetN5QLfF3bi+G4o3f2SZG
RnD7MMRtjhh0+Ocj3FsYwn9enmwy4ii3P8PUBTWW21vJuxjmzO99KfhaJHcw
Q3Pj6wXzjkVx72O4/NX9hBub/+AOU6zHAPXlykuPcYcznLaY4vhu6nHuCAYD
t7qj4oho7igG94Urtn/uf4I7mkFjenm4kspJbsaQs9vEtP0TOYZhVM6S0JwO
gfu0Yr43HeaLOhl3AoNLpZVKUrfIncxg+rXxkuKvZOqfIcL24oI7GjHUv2L/
5u3VmnKcnMXwudO7U83oFPXPUOC9aP/sdHIeg3m06rCXVrHUP0N6/KR5avfJ
Nxnqv59Xddg7jvpneGix7MrhPqepf4Zdzy+bqZwmVzMYDr9Z3Dr7DPXPYBW1
aIprI/khw61/nB8tD/mT+mcYb1q19Y5JPPXPEPl6ikP1HXIzQ+j+3FD3gATq
n6GD3S86YpJI/TMknB27XaWe3M4QNHnYwBfhZ6l/hl9CjN5oz02i/hmkZ3px
u7rISiLcr9Zov8tKpv5FlJ7wWBLkn0L9izjglXbga4tU6l+EccSTjclKadS/
CL9Qj8AFJeRBIqaP67QIWXiO+hcxJnqHj/oFsp6I805DldcNO0/9i/g4Oyzk
7F6ykYh1j+7E1rWSR4vQ3xlv1eF4gfoXYbfgWuGnQvJEEZnpE7c2TUqn/hXP
G5cSkiqTzRTvd+L4rw79M6h/EV22iXJNABkiQt19p//ymmwl4kd9x8DpLhep
fxF9O0yDlt8j24jYPEu4dsQ2k/oX0WA4+WO/YrK9CFW1PV9y5lyi/kV8E2M/
Tcwjr1LMlz0jIxZZ1L+IS99kVzYXkN1FLO86viNl3mXqX/F9XA5W/VBB9hIR
tSZCeO14hfpXzPd35JCOJvIWEWVpOp3T/LKpfxGFvhrKkmoO9S/ilKelw+Bj
5GARkclpjadMrlL/IqTzTwID8slhIkaUdSXvdMql/kVc11lRdusDOUJEmL/b
Kt/Ia9S/iDX5R9deGZpH/YuIOdF4uXIDmYmIf/PBbvBVcowINtaor6iVT/2L
SEp5WO/pQU4QsXrmA/WwbHKyiIq4/GkaOgXUv4jFVQHZBl7kDBE68/Qd7haR
s0TkZp/b5vftdepfsV/2Hwjv2E3OE2G7+3ZGWiO5UITZOXP/eOtC6l+EVfAg
wyFJ5DIRQRZe1tC5Qf2LOBrk33dnILlaxJypK495t5DrRNjs86qZuLqI+lfs
r6Hht8sqyQ0iCl49G/Lmx2LqX8SD5LQdwdfIzSJSHw7wjTS/Sf2LOHxygMq6
S+Q2EU/iYsqyp5RQ/yLOfl8Xc+8iuVPEpgsHprZMK6X+Rag0JZ3JzyYrSYjo
mqEbgFvUv4QlTaVhRUXkPhKUr+sN77Ato/4V1+vuTxt1j6wlwd5pU5SSczn1
L6FPXLOr8yuyroQVP24ztPC/Tf1LqF2rrrJPvYL6l9C28YRcdIxsJGH00t/X
+g2qpP4lnP9z1LqU/5DHSuhrnF7fmkieKMG6982S6g9kUwktUW23ymdXUf8S
skxnab89RJ6heH5sz0bPejIkPA8uiV783R3qX4LbHb3rL7eQ50vQfGt23v46
2UZC8dWinxYNvEv9S3CtDa9tcSHbS7hb1z1p7QWyo2J9v8y8kqlaTf1LKPFN
LWhYTnaW4K6aw94lkN0V816716eui+wp4WN9A54sqaH+JRQM9ejre4bso7h/
kNPAns/kLRJi9Y+dTLO7R/1LMDuY2bk4kbxLUvQ6YekGlVrqX0J3zninytXk
fRJm97IpDsomh0ko7VVl7TO8jvqXUKghGacFkCMktE+98VtKIzlKgvYP1+IK
Ft6n/iXo3XVM1cokMwkmJvG5qUb11L9i/ULW1y87Rj4t4UPyqZ6R/R5Q/xIM
/DPVNPeSkyU4OnaZDu0mn5NwZW6FceCuh9S/hNb2kdEbu8lZEiJ73vv32/eI
+pdwxmOLQZTmX9S/hJu+dp39BHKhhH9i/U2Dxz6m/iVcely6fmEBuUyC1rpc
5/XjG6h/CZ+2Vmi+DSBXS+j4MPJueQW5TkLXhqoVBkZPqH8J48zsizJ3kBsk
7NIVe3neJTdJMK1Ryf9lfCP1L6Gmcujw8t/ILRJU9W0+HHlFbpOwIbtX2EXb
v6l/CX4W+Xad58mdiu+tfedmP90m6l/Cmo1hR1qDyEoyZu5xTIp8QVaTUf+r
92Kd5U+pfxl/jJvSFlJA1pDhfch8UsOkZ9S/4v+LdVeZxpEHyZir8uFs3JDn
1L8M6XXDgJHhZD0Zlkp2YxJVm6l/Gf1GmBxeGEA2kjFEsgs50EkeLeNxcLSb
/dYX1L+Me63DrI6+J0+UEaeZ8WCu30vqX0bmwFP629vJZjKMe8TWAdteUf8y
lK++/vjXZzJkfOOgvLYmqIX6V8yrM+EPJfVW6l/G7ykZNjaHyDaK+2nvrX88
+DX1L8N8slV1h0y2l3Hu2yN9qsa8of5lLNxQOyr4MnmVjEUst/chozbqX8be
VL/7DpvI7jK6jrf1179E9pRRrtQfGcpvqX8ZeaeXnLO0JfvIcFn8k3vZCfIW
GfB5mejwnOwvI6z61OrSKe+ofxlrSp+W6YaQg2WcqH4+dkwNeZ+Mp4WxK9qM
31P/MtYVB2q6bns/6798sURF
          "]]}, 
        {RGBColor[1, 0, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJxN03tUTtkfx/FQRBnVoNJQyU8XuTX5KaKP3DKJSKMSPdOUS5MKMUUzopAk
pSidfc4J5RKRBhNl3IooFaULUXQlQhmXmfB7Zvb3j99Z61nPev2x19nnu/fb
2CdooV9PFRWVz8rfP///PkkCVP7/SRHQ3H+K9Mwxfeq/ZgJi3Bsin3y6yZ0m
4ETHPqPRsxu40wWcfjdtbrvGG+5jAi4WKgSrzM/cJwXc8NIqaHqjbv+vswUs
Nq94aNSpw31WQH3ImcGD5xhw5woYcrdl8KDq4dz5AjRON4TvMzXnviJgWMrH
k4/cxnEXCHj6wXuFWr41d5GA1OHOWW/LbLlLBNQp2uorU+25ywXcHKXzOENn
OnelgHEj7YKu5M3irhGw0u3E5Wml33HXCdicXO+U4zyfu0HAczvjHjnDFnI3
Ceg3cfXcSeWLuNsEFHaktLTmL+Z+IcAh0vyGXosn92sBacduqQ50Xsb9VsCZ
gf5B2z4quD8o7R1XGfvCh7tbwJVHm7xHqPhxqzD08lycYDVhBbcqwzg//0yT
2FXc6gwBVYcDlqgFcGsyzO6349cJBwO5tRj6v9jZ3DM7mHsgg5pZbKCm8Vpu
PYYTGTUfBqSv4/6GYa574hwL2/XcRgzhQfED1jds4B7B4HS+pc4uNZTbjKH6
b6+eics3clsyFPad8/DNzHDucQw9La9lW9j8ym3N8GNJ1J5DwyK4bRiiQ8rc
Dlts4bZjWJBoO98aW7nBkHfTWMXNO5J7hvJ9fU11VaOjuB0ZXpRoh9lf3MY9
l+FC659Oqu+2c7sw2GWFV62aHM29iGFqZFK8f8xObneGd5v7KlQaY7i9GOw3
Hzw4YmYst4Jh8EuHT8+zd3P7MnzO3TTfb+Qe7pUMQkRk/d2F8dwBDGXqk3s7
6yZwBzM80mh4LDaQQxhG97ql/cepvdyhyv2Hjhl7dEsidzjDkHMOAxQeSdwR
yvlP3nynY8I+7igG7wFbNjjp7ueOZvDX6xO06RM5lmHV01P6G9qSueMZarym
2aAmhTuJgdW67y8vOcCdwrA23V1r2I1Ubsaw8uqDHUEFAncaQ31aWl7mTcad
rrxf+nvk62Ui9zHlfHO9MvPqJO6TDKELiuO2d8jUP0NSxbpre7emUf8MUf7G
qQqtg9Q/g+ZSba+MNHI+g+7aAj/Ft4eof4b5VZ+exxeRCxgm/rgz1U5xmPpn
8L1U2cfnL3KJ8n5pJc3unZxO/Svvw3dDvEz/m0H9MxgoDpTeqibXMGR8rfrX
501HqH+G5DPvc/KHH6X+led7s7FTs4TcxFBqOOVW+8/HqH+GkoqmjT4jj1P/
DDHjn0yJqCa/ZsjRfpbdGpNJ/TM8/22FUD3tBPXPcM/hdKd+N7mb4fFqb5VT
F05S/yL0QhotPDdmUf8i5i3rXTtq6inqX0Tn1NSwQWqnqX8R1ms8u/qUkbVE
CDbdMX3mZVP/IqTfHK6bnCfrifjTp6Wp1fAM9S/i0PyujJgYspGIwMCvywe8
I48QYfjmk89mnxzqX4TnzpLtj8vIliJ2tK62NZn6G/Uv4vKKtU3zssjWIgwq
KoM8hp6l/kUcKHn5/bQ4sp2Iewbvz3/5QoaINsFxS+3ac9S/iDlnspy6WsmO
Iv66/XpYgPd56l/pxSUztGvJLiJ6TIgI7uH2O/Uv4rRzcqd1BdldxN4Fc44e
ds2l/kVY5EeqTK8iK0R4jT3iMHbJBepfxIB+W9OPPSWvFHH976u5bwMuUv8i
AtpW2Ud8JAeL+NnHYJpvdB71L2Lx+5otu/XzqX8RTud+yGo6SQ4XsdBzTLeb
wyXqX8SiwtNLm2vJUSJ+aX5ZV7ruD+pfxMX2118aB1ym/kXcOevS7naKHC9C
Q1i6J8n0CvUv4qO5Zcz4MHKKiO977fjQWkxmIt7FBby/a3iV+heh+aTURG09
OV15Xq4f/bYWk4+JSH5WEeVhco36F/FVl08BCydni6hNbVEPrSafFXHc2YJ1
f3ud+heRd+Ptg7C95HwROo73k5o7yVdEjEgy0NrvVkD9i5hVM70l8SK5SMS1
psM++sMLqX8R2TG2u1fHkstFmJt9e6jtI7lShHbsiaqx/jeofxGWY7Qjv39E
rlP2VtLQ7O96k/oXoTbGs3xgCblJROPWgzWTZxdR/yJmbC1511lAfqGc3yRt
4zUzblH/Ilzc7y0MKSS/Vfb7ZvuQGY63qX8RhasxSfcOuVu5vu/YWdmuxdS/
hBWRg7dZPiSrSrAytaia5FtC/UsYtMx3p2UHWVPCvcAxVkPD7lD/Erz2Oq2/
pFZK/UtoHvT+z5ZEsp4EX41X+XEmZdS/hH1DjFYfPUs2kvDoP6HDn5iUU/8S
1ow3blMEks0k3L67b7PWRbKl8v26pW23e9+l/iUEGk63tVxEtpbQ/3iSRupB
so0Eh1e/nxz9imwnYUP62HydKfeofwm/Jk0zW76LPENC+zOd54EPyI4SZjDz
B44WFdS/cr3irFPORrKLhNiH532vFpMXScib/su4U0MrqX8JuWdXPgoJJntJ
aAw6X6xbQFZI2O0eU5Whd5/6V87fNay+byB5pYS3x5O6Y6+TAyQMNu+tn6xf
Rf1LcOyyTDsYTA6RcD27fvH9InKo8vvu3PHtNq6m/iUss0hZdyScHCEh7GXn
tqxacpSEu/E/NH5lW0P9SyjUXLb7aio5VkLPH55pVnwmx0to+ZBZlOtXS/1L
2LWmtN+dMnKK8jyP4IvVlAfUvwR760WWPU+R0yRML7A37TB+SP1LmKW+qlH/
APmYBPOEgO9Cv66j/iXgJPPvn0DOltA372W2js4j6l9C/ufMJRf2k3MlbIqK
S7A0fEz9S/CoNFyWfoJ8RUKZh/HzkXb11L8EXb8c/6vl5CIJLyfudmyzbqD+
JajOjhrYEEkulxDnqq4/6j65UoKp3UT3h2ZPqH/l/K+pb9DeTK6T0GqzXMGq
yQ0Sjjuxd85WT6l/5f4vGmn77iG3Ke9/8JdDDR3kFxImj5nXeM+lkfqXMN7Z
PMTqHPmthDHr/FUuGTRR/xL0fv5JMooid0sISn+d69lBVpGx+yv1IoVnM/Uv
o8vll+uORWR1Gfs+mqqOtmmh/mXMDFixt0cmWUtGv/QbC2uHtlL/MpZ5PDxT
lUjWk5Fe96KjXaON+peh6ZHpPWg72UiGW3mEmk/PZ9S/DJ3QLNUFEWQzGWVx
f7eXfSFbyrArKyouiHhO/csoMozzGternfqX8STgnJXJDrKNjDUJwq0wzRfU
v4yc+cXGfRPJkDElWv/y5SEvqX8Z955r7ztxmOwoY1SRzaHfR3dQ/zJGD79Z
rXmB7KJcv/XMxGczX1H/MoZl7TfYU0l2l7HcNXpVtNVr6l9GYZlP5LVNZIWM
BNMLCZ8Kyb4ywrYfUrPVfkP9y9j1092M2UvJAcrvvfaNjnMmOViGWdSSVo8P
5JB/9rNr6IrZndS/DFML23xFMjlcxtB5roET28gRMtRP622osO2i/mUEbtTo
Hh5LjpYx8YHdJsP6Lvv/AdeLPUM=
          "]]}, 
        {RGBColor[0, 1, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         LineBox[{{1765., 2.168404344971009*^-19}, {1765., 0.}}], 
         LineBox[CompressedData["
1:eJxV03tUTtkfx/GnJlS/JiQm3SY/RWgUYqLUR9MokglJSVIUZh4mNE0jjaQw
SqQo2nufkGsuyYOkXEbRSISkklSIGpJrGeL3rDnff35nrbPOeq11zj57n33e
A0J+nh6qqVAoHqnPf6+f3oXVfMqE4v8OhobG96vtUvu7/EsthiS38e4nHjrL
1mY4NfdozF+1U2TrMXgfHFvTcWam7F4MFW2nteI+B8o2VI9nu0Zp8vN82UYM
7EvV/EdDFsk2ZbCxYBZvhy+RbcGwNbp9SarzMtmWDLq9+y48qBMh25rBPaOn
0ZDOSNk2DL1qRpmt1lkp247hm8w7BkbjY2TbM9jPyJ5sNylWtgNDc17ZlDit
ONlOapt+f7lfxVrZYNDrU9F/d06CbDeGMV/ZHKrevl62B4NjjlHt0pQ/ZE9h
6PCeqdc/M1G2N4Pbxl17Ek9sku3D8LG6UDO6drNsP4aYoFGXy3ukyJ6jfl/Q
sZveQ7bKnsew6n3uuIIZqbIXMKyO+8HxUHya7EUMQ00GrKg9u022kiHt0dk1
Wu+3yw5nuPX5ZPcmxwzZEQzvN+3dZRO/Q3YUg0WuxSt+c6fsVQwB64vSXwxk
smMZLtobjLy3ksuOZ1hUo5pnXCVkb2AIs+2/dNXXWbKTGF42XqqKv0PewtBt
kc+H/KRdstMYfthbrMxx2y07g+H3GP3Cto9kxoDKYSv7ntwjO4vh+039HPKU
2bKzGcYlla6bNXCv7AMM11WOHenV5MMMua2Ljbsn7ZOdy7Db72piysj9slUM
zuWd1YZ3yfkMI+bq77zy2wHZhQyDB1gubDQ+KPuCevxhM6p3FJCLGW6nqhKs
/Q/JLmV4tDS4R8k78jWGI7eWv92XmiO7gqGuUuNpN7vDsisZzBMH/9r/Grma
YW9x9etZa47IrmM4oD1m88jRR2U3qMdPdxzl30x+xPDVicd/Racek/1U/f28
Msz3muXKfsZg7ZHkOG4puZ3hScs1uzsF5DcMxjP8XpdrHpfdqd7/bJuoVd+T
PzL4drmrHOLICg5zt7yUdZlkLY6JAfd8px0ja3PsaXVyyT1H1uPottN7XcFV
ci8O9N6ycH0l2ZDDqjPCfPh9shHHhndRzSWPyaYcjqq+H0JfkC24uufidKsP
ZEuOWj1Fp4luHvXPkfN5atkRe7INh13RqKmO88l2HH7+ziOWbyPbc/R8+slS
UUZ24HCL6Va79YsT1D/HY5smRbUzGRz1ulaTY1aR3TjMhs0Nsyske3Ck7DLr
LnWRp3AMintdEwkV9c+xcNYgz8DfyT4ctlkTW0KLyH4cb6dlfszsIs9Rzz/k
p3Jdl5PUP4f/5a49RWvICzierNhRer6EvIhj2ryEtab/OUX9c+iv0TZ7MI0c
zpFetvi+wU5yBEfI6Ha9Sw/JURz/tU1T/mhxmvrn+EfaWbwuiByr/j6t72d2
202O5wgKPxB8+yl5A8f+NGZdb59P/XNEnbn2t8F68hb1eifYPpvbQE7jGJJc
8OOxCWeof45LmqEHXuaQmXq9GlbNBhYF1D+H18AhC+1zydkcK99OX6PleZb6
57jgWJgU2k4+zKEo+L1xbFYh9c9hbK+6O392EfXP8XxJ5JUS83PUP0fAsAfa
rs/JhRzf2Wm/KSg5T/2rnZUQruNzgfrn0OylYdjvKrmUo6LKou7ixIvUP0f+
P64qw1Jyhfr5nvNvP/T6k/rn6Nq/KlyrmlzNscwv8U/PsEvUP8dQ1UbF5k5y
A4dqamTwnuRi6p9j59lJpnOtS6h/jrBkxaK0EvIzjuzZ26NNwi5T/xxts4M0
gnWvUP8cVZNPrM44Tu7k+Jzk2r4poJT659CJL5rypfZf1L/A9q2VyU2nyFoC
7iYOuTULr1L/AudiMw6dMy6j/gWE1b5fA2+QewkkKHv3jku4Rv0LGOVvDO90
Kqf+BQJrXERDF9lUoHTe6Kkjzl+n/gXsvJ67jo69Qf0LnLkeIZlYVFD/AiOt
fTUnrCbbCCzLCxhmd59sJ9CkvBydPPYm9S/wyveuj0Ya2UHgy/AbXw1/RnYS
yDr9wqpgwi3qX2BSbegZ3XVkN4Fy56ERTVfIHgIW7wfcvNTjNvUv8K3ZSM8R
E8neAjrnXQKPrCX7CCS+so0ruED2Ezhe9sT+Xhd5jnr+c6e0pzhWUv8CF8+5
2gavJC9Q74ciV1lWQF4k0JiRrjL+QFYKsPw+C2yc71D/Amdfzlm8N54cITCm
Kidv6A1ylIBmp8PwYPMq6l+gT4vT1efLybEC8xzbI34pJ8cLPIhNNOXD71L/
AvGe7sd00slJAhO/mWMyr0c19S+g2+zsUpxMThPY/92gEdHmNdS/QPOEhA6P
U2QmsKXuesbLmbXUv4CyZ6TJ2C5ytoBr1fOEhzn3qH+BezYH61XBddS/QJe+
ic0y8/vUv8DyqFMRdY1klXq9oW3nCnLqqX8BG8XgCclRD6h/9f+2beqRK1YN
1L96fr+5eM3eSi4W8BzT5f6PRiP1LxBxy/zx7gjyNYFIX0flD63kCoGwqy2W
H0KaqH8B/zEXfXfVk6sF5u/2mzQ+8CH1L7Cjn7vb1Xpyg0BZ5uSDHmGPqH+B
S0N6lK1uJz8V0D7j3s8p5jH1L2Duerdjkl4z9S+wsSi27hdOfiNQObDniCS7
J9S/QOwSrxD/EvJH9f6ndr9/MOAp9S/BcFM3/cmvyVoSevj0Deme1EL9S7Bu
UW6uM2+l/iVY3miYdTOP3EtCUMrxy8Yef1P/Esaf/fpJWz3ZSIJF9U/Fa399
Rv1LUK6oWtzT4Dn1LyHBKKvpylGypYTy6TrjHnq1Uf8SDhyZHp3+gmwjYaWq
8Lhx2gvqX0LiOuUn/6/bqX/1/YnRQTaRZAcJ+fsCTq+/TnaSUGcYOOFn65fU
v4Rv+1Q4NK8lu0l4Vq9V86KB7CHB/KRn4GaXV9S/hLZbbxSlEtlbQuwv3p+Z
xmvqX0JHzdHU3qFkPwlpjWNefaogz5EwNthrqrXzG+pfQsvNbyoHHSYvkJB9
uE9uqvFb6l/C0h/H6Wv/QVZKmBh/39isgxwuwXaFg6ZywTvqX8Kw3HXtmyrI
URKcVF8YmDp2UP8SQjpbtx7bQ46VcLFV/2TpF53UvwTfxr+to4LJGyRg8DbV
ycJOl/8BB/+qiA==
          "]]}, 
        {RGBColor[0, 1, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxN1ntUT1kfx/GYnjI0ZJSimKIoK8oj99sHGblMKhlKaNCUoZH0NEVjCpNK
N02u7b1PKXSdSjeUW5KYXBIjlQqVqEbJpTGY+T3P/v7x/NY667de65zfWfvs
vd/rd4zXbXF0762mptaqOv77vdN/1PnU9nio/f+nMx5Vx7fvCogdOft/fhWP
jNBeuwZnTZLuiYd7rbFamttc6ffx0J/+MjtBbZG0GoOWwfTo3sMcpNUZtmTb
fowMWS7dh+Hxs1tCc6aLtBaDRcjunh+wVlqbYdyJrN7f266T1mGImTXxk0F6
7tL6qvMX1xsnaXlKGzL01Rvk/y/zTdJGDKZZA1cM2/y9tAlDbv/CaaPbvKXN
GKwKqn4qyPWRtmB4OkRntHmMr7QVw6SHBbGGQX7S1gy/nDidv223v/QUht2h
O25qH90uPYNBc9REJ73SQGkwuH1XNGJDr5+kbRjG5ixrf5YSJG3LkBJgtS2x
Jlh6CcO9kLwbZbq7pe0ZAmes+dPTZY+0E8PbfK/ubSk/S69kONM3+H7V3yHS
rgxl522e+LqFSrsxFFaqLd1wPUx6A0Myc3DNnLlP2pNh5tWJfs5nI6Q3M3xo
Kwheiihpbwadhxtb/G5FS/sytEX8faU2N0ban0E/uLUtcM9+6UCGTafdCpKc
Y6WDVOvRvMDEacIv0nsYWqOnDwweGCcdyhC3yFBr3CtyBIPXvcLIr2oPSMcw
hOpvLX9cdlA6jiHCMqmpoeCQ9GGG4KIXPpPTD0szhpsBQ76dlXxEOoHhUdYc
n8rEo9LJDOvqOtwakuKlUxhckzY990hj0hkMdoN0e7vkc+lshh/9jELzS4V0
HkOQKChPq1akTzMcshydGuufIF3MsG/UtafamonSFxlazJqW3TxELmVQCzcw
qRxzTLqcoWGnx/XBF8kVDC98xpYlr0iSvq1af4uwhh+6yHdV659i8DouMlm6
WvW8U6/Falscl65jmFviPfthBblRNb8rm7dpeJ+QbmLoSbjkF6J7UrqV4aPp
340e58jtqv1ifc+32CNFupNhzRu7A9o6qdQ/A9/1yY22y+QeBscrlXEaP6RR
/wxY0DHAdWw69c8xOretOrGFrM7xwaqpvvlYBvXPsehJ+SOddZnUP8f8Mfqm
Q01+pf45Ps786Nj7GVmHY94isD+ys6h/jpSfC/r0mpVN/XPs//OK7qhkshHH
yDq/3R19c6h/1f003V3W+5DNONaUzG6OriFbcBRVT0j2nHeK+ufo9Lzx764M
sjXHVL9l7sZ6udQ/xxerTcf/GUyewdFlZNKytYMMjtNdhk8eOedR/xyR0SXB
2eVkW45hl4NufpyaT/1zaDl+Ni0sk2zP0dDqtXjryALqn2OQU6Fuajx5Jccq
B6PAEYMLqX+OATa/Xq2IJbupnnfJ8y+vDjxN/XOk6Tn2Xf0L2ZPDK2pvQb3e
Geqf4+Dv9vf2C7I3x6Y799fGjj5L/XPYf5eTduUU2Z+jbKdzqBaKqH8OYyW9
cMktchBHPXz2hbkVU/8chiPMJvV7RQ7lqBsSY3ow7Bz1z3E+7MJId+Pz1D/H
BDO9VTuKyHEcc+xCrB+uuED9q9b3fOg52zdkxnHRyH3LzsUXqX/V9Yc2LBjM
yckcN2OPi7YX5BSOxDu7ftS2uUT9c2xc6FJy5Ag5myO8X1xwUSc5jyN49wOv
0IUl1D9HUumreWuTycUcg8/c8rXsdZn65zhZ02O31o1cyrHN2dXp1SVyOYfD
sYox40eVUv+q/dzdttgjknyb407/Rvv3b8l3OY4eD0r0d79C/XOoPbbt98c9
ch3HAY2zWp4Ly6h/jsaZp118L5CbVPOfF/G6c/JV6l81nqsr7nedIrdzOHl0
+QZallP/qv3gcG4wMsmvOFZver30oMU16p8jPadXRkkm+b3q98MHPfW3uk79
C0RVbztzLJesLjBLff0Zgym/Uf8CQ6enLup/jqwlMMJwWUbC3ArqX6B9TkVO
1jWyjoDel5PXaDneoP4Fckc+H5pWSzYUcAvWDQv49ib1LzA36u7+cd1kEwH9
mPPBScG3qH+BRqVi9eRPb1P/Ai2T3nx+xJFsJbA3cazlDka2FlD9YdYYtZCn
CNhqLTPNtKyk/gUOVMT0cg4gQ2DVlS1fL7pMthEY0M/YpOazO9S/gE+Dycsx
zuQlAtOC5iW1JZPtBXzbzLZO6SI7qcbvYV739awq6l/g1Nz7iXMiyK4CWz6M
mPZXDdlNwMHOz+/AmLvUv2o9bg+Mf72d7ClwZKSBzrTfyJsF3pv0/NVscI/6
F9j5H+V5tBfZV2CjwfJ7nhfJ/gLGOqM2W+j8Tv0LLA24VB2+kRwkUNttbBN5
ibxH4HffE2rmhvepf4EJ8/sOWhJAjhBY4F9+Xe0BOUZgxtGncZXTq6l/ga8e
2Sumx8iHBb71amodrvWA+hdou7C343YAOUHAtf3Zh6rn5GSBipb0tMVra6h/
1Xx7hPcxuk/OEPjJ6v07O8da6l/AaPHBSP1Kcp7AxPWZGqeW1VH/Ak2mS9Jt
a8jFAtlvLRyGuD+k/gXS03rSRrwilwo8eWkatHlvPfUvcOVHh7duXzRQ/wLb
c04l7ygm31bN1/ju19aWjdS/avyNdjtP7iJXC1js3atxpppcJxBnnt84evwj
6l+g+6GFZeE+cpNqv4y1P5zdSm4V0O33eennto+pf4GO+3262lPJnQL5XvNN
xvd/Qv0LvKnSGRDuS+4RaC0ZtSumjvxeQMm6oz3nyybqX0HTfOeoqByyuoIB
gWVz4oY3U/8KAjRW7/SJJGspeHezqGDIR7K2goVvzOsTvFuofwWfamrWjm8m
6yt40zrf6eyqp9S/ApfpY65Z3yUbKbA5vqZ3rl0r9a/AUK95Stx1spnqfpuO
9pQseEb9K7j8TfF1ozKylQJNm5Kc7PnPqX8FCfqZNmFl5CkKasf6agfZtlH/
CjLPDuj45jcyFIz9a09/w6Xt1L+C/fzG45Iqsq2C72o1NGc7d1D/CtSD3jmU
NZDtFXTpjWs96fEH9a+gxXzY8Mld5JUKcsKXLw8PfEH9K0hsWhpSr95J/SuY
IBbkeS8hb1DwJLZo3bs4sqfqfLH+2bn15M2K6n2gn6ufWRf1ryDtSdSR1G1k
XwWWL4f2r7pA9ldQb1+//oHWS+pfQW785K2pLuQgBdrnXtaZppL3KOiO76U7
tYccqpq/aIPO2gXds/8B1r3JSA==
          "]]}, 
        {RGBColor[0, 1, 0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJxN03tYTfkex/FNjUsqTTUVonKroUkdZPNEH0QZUSeNGhkluYwyhSIJjUui
olFkrN/vt0K6CUnujRpiNNOYkPtOIRVKDaVcz9ln1vePs55nPft5PWuv3/p9
915vm+Bwn4VdVSrVJ+35v89/jjQJqv8/9kp4ZPedXZcl5yf8YybhZF1ivvvf
NYozJFT1LjYvnNGuOFNCiuNEte/zz1z/cY4Ej4P7bXfNNVGcL2HmovLA4r8H
KC6Q4DBsjktyH1vFRRJ8Yg9GT53jqPiMhHk26gMBo5wVF0u4tf7iNFO78YpL
JdzrFu8/MmOS4jIJ8X6ZNurJ7oqvShjsEl59O85TcYWESLenbr0c/q24UkLl
Gd31R0N9FVdJKPxytvfEd36K72rvtwtdW6wJUKyRcL+syii7Z5DiWu18s8rO
f5oZrLhOwt2vClX+F0IUN0rQhHDLdL/FipsknEtfX5Xad6niVu3zc2d79Ou+
THGbBNf5N69EG0Yo7pRQUNaQ9OzIcsUfJJi+belyfv5KxSqGVdarX/oNi1Ks
y5BTk2O+uftqxT0Y7MJHSzpvoxXrMxQMfmMqfYpRbMSgP+F9SW+LdYpNGY7m
ff2T7ZQNii0YVtzyKel/KU6xJcNdk/MBcc0/KrZm6OW2/3S6zSbFgxkSbuxb
sD1ws2I7hoEbx6gcsrcotmfo+WThuqbOeMWODLMeala4+SYoHsXw0ft0kd7Z
bYrVDHW1q0+Y2SYqdmF4tUffKVEkKYb2eQvfdIyz2qHYjSF/6gDN+5ydij0Y
5r53GneTpyj2ZNjW6dq8PfQnxd4M7ckFA8+M36XYlyHmdY8PU0xTFfsz6J3I
NrZpIc9l+LEl13fMtTTFQQzmVosns+O7FYcwTOpc9CDw5z2KlzBIVRP+s2NL
uuIwBveV7+J6r9qrOEI7n0HkkvKlPyuOZLiS1PNc1oJ9iqO18+r5TE4NkhTH
audtn34qYz5THMfw2MmSVS/iijczRD1rW+4UIRQnMKzOd+qbt05WnMRg9c7V
Pd09Q3EKQ/ClLKtFN8hpDOmaI42jAvcr3svwZcX0/p3NZMZQ7T+k4vMNBxRn
MDg4/bLL3/ig4kyGAZZm185mk3MYwrq9LXd2zaT+tfP+p8T6wl1yAUPJO5ux
PpGHqH+Grm32j4YZZ1H/DHMq1js7FpKLGeRch4fzfLOpf4bcIB52opNcxnAq
vesPLnIO9a/dX2CHRZt7LvXP8HJRUm39K3IlwyVvQ1uDjDzqn8GsY0fpcq/D
1D/Dhj8m75nYJZ/61+6/fs+qgJPkWoaVCbsL74Qeof4ZrOuiTLIHH6X+GXys
ZhyoqSE3Mcwb0uvTIX6M+mcIvLwhPcahgPpniLO9YSVSyJ3a923lip1328gf
GCb3Hd7FLOA49c/BbvtGdlwk63LkmOxAvH0h9c/h4lJyPCudrM/xw9dHVo3X
PUH9c0Q+bbSdvYJsyvG4qdtG48dkC46l2QnBabOKqH+OTM3GjqNlZGuOjDVe
RjtGn6T+OY5Kt+JDssh2HKfqIw77m5+i/jmezPhYvyCB7MihX3MgWbwlj+J4
F27FdUNPU/8c84aGFR3UkF04WgP1Jq+ZeYb650jPMY/1/pXsxlHoMry/m/os
9c9xJDMibekJsifHoOuhfh+czlH/HEYZHeuti8i+HPPDK0ekjT1P/XP0TRvd
1ucieS7H1m+DylfOKKb+ORYxY+ObD8ghHHLli7e/LfuF+udYsfaBcYPOBeqf
o+TP7v7LGDlCO3+cTnbKmBLqn8NftfO+3i1yNMfTrlkBHuNKqX+OR102RL7e
To7j+ND+Y1GihryZ42XJmO7BI36l/jl+HmHo47iJnMTRTWfsUPVdcgrHG+9X
QWscLlL/HGnHfCLat5D3ap+/6XVj4EMy0/6f2cu7q9SXqH8O5+rwmb1SyZkc
Het6foppIedwqLfryctnlFH/HBFq9QCzI+QCjiidadE3DC9T/xxTanKTSleQ
z3D0O3CsfP89cjGHlWGfy6MnX6H+OfS6tBR4FJDLtPvfd12UWf9G/XPMrW1S
DdhNrtC+v3qp3nUGV6l/7XpJi+dVJJKrOBw+6/lLukE59c8RvWpV3sxUsobD
Qu0wp8nyd+qfY7XjFH2/XHIdR2eyf9lY9R/UP4dXa+3D4nJyE8fe6qWDjgVU
UP/a9V8MehDTTG7jeD/Yi/WK+5P65zDBbU0v02vUP8dyu21vHuSQVQIN3zl5
DnX5i/oXmGu3I71HJbmHwJNvUv3mOVVS/wI/pNxrCI4hGwkMsq8+aVFGNhXQ
KWnO9jS8Tv0LZObX1rX5ky0FWh9veqmbSbYWUOfofjmtlTxYIKQq5u3O8Teo
f4HuXkk71iaR7QUyPj0N3q0hOwpsPT/wX5ftb1L/Ah8GDhsSuZasFlA1H5tg
Wk52EUgKj4erWRX1LxCXoN/47QKym0BQkUH/kcfJHgLheXVXTFS3qH+B51K8
C7zI3gKn3Wz6vRdkX4Gxs8r6Pmwh+2uvexaU3Zx4m/oXaGqduu1eGjlI4LL3
7KDez8ghAsl1O585TrhD/Qv8ds3j1ZRd5DAB79hzhkn15AiBX3vP+Tjb5S71
L7Bs4/4nOmnkaAG3BWZdGprIsQLP9tpXrPO4R/0LnElM2fI6h7xZe/+d5HEt
Bvepf4Gc3h+mG60mJ2l/P71uwePryCkC9snDimNnP6D+BU6eODc6+hp5r0Ch
V/UGtaeG+hdIOb4kK+cvcoaAa0CeebZfNfUv8FRluTWgjpwjMG6ttfr7qIfU
v3Y/PhlzD+vVUP8Cw12XxKVmkosEctMCfz9nU0v9C+gNevvF1ZXkYgHZ6pP5
/qvkUoHr1+qXOlg/ov61873/auTCGPJVAU3HO5vcO+QKAR911J1Q9WPqX8Ba
x2XXKEauEqiJNm/+QucJ9S/wTehO56+XkTUCEV2DC+3uk2sFlnRubxwwrY76
F8j3X2p07Ry5UWDWbRdf2xFPqX+B9q66AyZlkVsFDqeVDm2zqqf+BQZ/5+Mb
LZE7BWCz+cBL8wbqX8B39dk783eTVTKGjwzJu2zSSP3LKO05JHpxKrmHjIlh
3thn+oz6l1G8cNT0ielkIxk9mm4U7+n3nPqX8WiW+9V3+8kWMk6NKe41adgL
6l/GtJ0nooKKyNYypFhTn/Voov5lpK79/vboP8l2Miqtj04Km9NM/cv44lD2
gdcNZEft+r+rTZ9HvaT+ZSQZD7Hfo9tC/ctYGFJkmZtKdpGx9aRzfPDnrdS/
jO3DDRY3+ZPdtN/Pe6G3O4PsISPI0Ebfs5HsKcOr2zA7P8e/qX8ZbTcv+pms
IfvK8CxXOWoukv1lDLw9yaLM4BX1L4OlP3V//C05SHvdInDdpGxyiAzXCeP6
3GsnL5HxuZcrs57ymvqX4bP16MfY3eQIGf4JusZmDeRIGQW3Hst/jW2j/mXo
FdxwDksmx8rICCoaWvqIHCfjwripnYnO7dS/jPpF1bMOJZITZITm9xil+6jd
9b/FaifI
          "]]}, 
        {GrayLevel[0], PointSize[
          NCache[
           Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJxN03lcT9kfx/EvStF3SHZpMJpsWSd+jaXejSzDN2UbjUiMJUSLpVKZSlNJ
jUii7znnhlCKSUqRFEJotJFKUVS2VDPWUfT7/uZ+/vjdx+M+7uP5xzn33HPP
a8gq1wVrOioUii+a+3/Pf68Daij+/zqkxqO7D40QlW/xr5kal0b6zZfWP5Ed
p8bg8z+OMHj7Xna8Ggf67kww66xj+a8T1Og5bKR/Q2NP2clqZM5rz5g1apDs
FDVaM2OcxuaYyE5TQxlprPL4dazsTDVuVYmoDs/NZF9SI2HzOO/BDybLzlXj
ZeVrW53rkJ2nRmxw28vPO61l56sxWzfYoz5mtuwCNYoKPsRP62Yju0iNe2ei
f53VYif7nmb85MCTWcELZZersVRl8/v7uT/JrlJj266c9a8sf5Zdo9kvXyO3
CqdlsuvUWO4dOLz59ArZz9WwsFkxalDUStmNaqyfO23D76t/kd2ief++Wnyc
s0b2WzVMwgxqjWauk/1RjSnh9cH5i9fLblOjeZSj+S3vjbIVDE02K/vqnNsk
W4uhtOHVf0oUbrJ1GVzOvf5tywR32UqGC44bq603e8jWZ5jn+k8fw7Qtsnsx
uA5Pdq/stE12P4bM1MAXfy3fLnsgQ+CmV/vcr3rKHsxgYLHmc+s4b9nGDKFu
J0I+JO6QPZzh205zv3Yc7SvblMHXyrlPRZaf7HEM18eGlrUt+lW2GcPKHvXp
TT7+ss0ZPhVtMrNaECB7KsPtMFXe4dGBssGAs3Uuim67ZFsznO3mGWL1hjyb
4a93qf5zq4NkqxiuPF2Sr1vwm2w7hsNuJiIlJ1j2Igb+PrXLnMwQ2fYMTnqK
5hPpobKXMcw6HrQwI2O3bCeGPoFHS5Iuh8lezTBnj0n53dt7ZDsziBoTrZlV
4bJdGH5MVhk2/h0h241h25fMXN9ue2VvZbiXoqxe3zdStheDn0HJlueJZF+G
uzPmbyy22Cfbn0Fn/pGIWWXkIIbEkqa/J7vtlx2q+V9Gd3ufVUbJDmc4mDzg
ybEkciTDGrsRGb1sDsg+wLACdTrtLeRDDD1tb9+xiomWzRhMJx6JjsVB2XEM
lhEDg/Rfk+MZumwYsP1rFkP9Mwyzsp1x3+YQ9c9QGON/rWfHw9Q/gwc2u9zP
JKcxOFdPSo3yiKX+Nd97rfmjzVg19c+gt9ag9GYTOZfB3tPrnO5ZRv0zeFpu
1jHezql/hoW/1c8aZCGofwbDsoPvOnaRqH8G3Yib8YVl5HsM+nbWMXkL46h/
hnXbj464lU2uYjgd6M1XjThC/Wv264LHprCD5DqGSrPLqhnaR6l/hjRvoxHR
28iNDAkBDTpJz8gtDG3BDbuilx6j/hkudh3XYlhM/qjpsXTSnbGqeOqf4U1h
e7vBbbKCo9b4drLVnOPUP8cPz18cQQFZlyPs6BnDQXYnqH+OmjKPCQH3yfoc
O+x6O4cuO0n9c5zwbCyKrif348js21Sv455A/XM8zxz5rvQTeTDH4GMrHEIC
Eql/Dtvxy7UW6Jyi/jm+OlL75nw42VQzvveMO18bJFH/HA3jgofnx5DNOFLK
xoW9NEqm/jk8rkyEFE+eyjH69OeuCtPT1L9mvQN+6BucTrbmaPxi+/mPWWeo
f444+8guXnVkFYepbn12c8gf1D+HkfaOxqh+KdS/Zj+7F1656kq25+g+Ibvb
q3zyMg7fFd8p04eepf45dHuNNp3kT17NMcC5aIPhY7Izx6ERxr/0s0ql/jlC
tzs0hMaT3TiejYzZc0L3HPXPUXFZubxmE9mLwyArxT2nlOzLMfKL6+xRk9Oo
f833jO/8evoRchBH7x4V18u7pFP/HOPLpz/J3kIO5/jJ+cEb5WNyJMe64rGd
J6vOU/8cypyL4X2yyIc052NoExswKoP653hsdWpQCCPHcbgX9dxjrp9J/XN0
qIh4NTCYnMChaF2epPpCTuY407XjzGHeF6h/Dv/CDss3fyCncfQccPS6v/dF
6p/jXsO6SB9FFvXPkTPzasjCcHIuh37x7l4HjC5R/xxr14X+nJNGzuf4Yma3
8fr8bOqf4/i8gkEf3pGLONpb3r3ZffQy9c+R1GONhcHiHOqf483EtuRK7Vzq
n+Pqrny3vb+QazjaknatD7pKruMI1A5P+jDkCvXPYTK9t+PKQHIjx5RVD559
qCW3cGQnrrG3tbxK/Wv6sbVoUDLyRw6bn5pTM/4ht2nWUzs94P2Sa9S/wEa9
HIMJaWQtgQyrCWYZ3fOof4G+eYm2dzeQlQJZ3xevC88j6wsYVLZuaR90nfoX
KJzYyZ75kfsJeOTZKjZWkQcKjLGJ/bRs6g3qX0AxYYV/pSAbCyR+a66conWT
+hfYPCNCdc+FbCpwPFZ7r305eZzAu5PJgdHT86l/gbcO0344c4psLvDppn/u
g69uUf8CB0InfTPEjQyBtREOxi0lZGuB3deHVHU2v039C5y23FnpE0dWCezy
i/3Rq+sd6l+ALRvp5LSNvEigY5LeFsVTsr3A08P+1jsXFlD/AnqPjJLG3yA7
Cawqio+fNuVP6l+guuim+depZGeBIetm748yuUv9C/TvEuhjeZjsJnDYICA1
onsh9S8wJyustTSM7CVgmKAsDNcqov4FTky/8XPnmWR/AZ+rRgmF4eQggb/9
HI59LCeHCmxtDXpYPbyY+hc4G1j7utWHHClgpX08YFQp+YDmPOw85bJjbAn1
L1C6tW1YbiSZCczupnfN8z05TmB8rv2SmStKqX+BYa8Oah+9TU4QKHc/ZpJo
fo/6F1iU1udO10RyioDDkvSSxQPvU/8CTU/0VllEkTMFbng8/LN3tzLqX+B+
aoz+tAhyrkBNQc1dpv+A+tfs777uThUx5HyBurXNWqlDy6l/gVsRBf1908lF
AhFj+EUvVQX1L2DTL63s/jNyucDq87oVS0MrqX8Bu7awp/+YPqT+BSp3njmY
WEqu0/TWf3Sn3X5V1L9AwpQs/epR1dS/wN4F5p6hj8gtmv/Z233M6uhH1L/m
vL/1fJE57zH1r3lfqrZrV60a6l8gelWPlGNOZIUEqw7RIxKzyVoSMCY3Pdaw
lvqX4Nuh/JSxD1kpod3F8RuHKrK+hFWTtEptLZ9Q/xK2RhYn7I0n95MQ7JhV
3F/5lPrXzDd+vy/fRh4soUOtqfO0WrKxhOoWk/azNnXUvwT99Ttt310gm0oY
ekH6fpFJPfUvYenLg44DoshmEgx97c5VKRqofwkBXzWV73UlT5UwxuGtz+FH
ZEg4ZRC0pMDmGfUvYXHQy/ex2eTZEuy13BdMGvOc+pdgffGkrX4c2U6C8pFP
qarXC+pfwuRJmX5/7SHbS4jreek76Lyk/iXsiTKs1wsmO0mwfLo4ylL3FfUv
Ie9hj9UxEWRnCd/M2dHnTq9G6l+CYpaLyWNOdpNwWp05tOPI19S/Zr2t3xr3
uUD2ktA290rIvDlN1L8Ep2ZH189VZH/NfCVnHux3a6b+JXQOvuRm07GF+pdQ
xborIlQtlv8FjjcqhA==
          "]]}}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{1765., 0},
      DisplayFunction->Identity,
      Epilog->InsetBox[
        FormBox[
         StyleBox[
         "\"b) Global Mean Surface Temperature Increase\"", {
          FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> False], 
         TraditionalForm], 
        Offset[{0, 0}, 
         Scaled[{0.45, 0.9}]], 
        ImageScaled[{
          Rational[1, 2], 
          Rational[1, 2]}]],
      Frame->{{True, False}, {True, False}},
      FrameLabel->{{
         FormBox["\"\[Degree]C\"", TraditionalForm], None}, {
         FormBox["\"Year\"", TraditionalForm], None}},
      FrameStyle->{
        GrayLevel[0], 
        GrayLevel[0], Automatic, 
        GrayLevel[0]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->600,
      LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
        GrayLevel[0]],
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotRange->{{1765, 2018}, {0, 1.8}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}]},
    {
     TemplateBox[{
       StyleBox["\"DICE16-  5y\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False], 
       StyleBox[
       "\"DICE16- 1y-calc\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False], 
       StyleBox[
       "\"DICE16- 1y-calb\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False], 
       StyleBox["\"DICE13-  5y\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False], 
       StyleBox[
       "\"DICE13- 1y-calc\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False], 
       StyleBox[
       "\"DICE13- 1y-calb\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False], 
       StyleBox["\"DICE07-10y\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False], 
       StyleBox[
       "\"DICE07- 1y-calc\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False], 
       StyleBox[
       "\"DICE07-1y-calb\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False], 
       StyleBox[
       "\"Fair-Geoffroy\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False]},
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                   Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                   Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #8, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                   Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #10}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
        Background -> Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "]"}], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "]"}], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "]"}], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False]}], 
             "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
               ",", #8, ",", #9, ",", #10}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "4"}], "}"}]}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8228022053015156`*^9, {3.822802270091607*^9, 3.822802341041707*^9}, {
   3.822836423870176*^9, 3.8228364653582344`*^9}, 3.822836503593288*^9, 
   3.82418518371249*^9},
 CellLabel->
  "Out[1918]=",ExpressionUUID->"b2b4aec8-b88c-4acf-805a-06b50ffd8e36"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Figure_S2_SpinUpOverview.tiff\>\"", ",", "SpinupPlot"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.82280234341271*^9, 3.8228023766772575`*^9}, {
  3.8228360376405754`*^9, 3.8228360382905765`*^9}},
 CellLabel->
  "In[1919]:=",ExpressionUUID->"3c52d087-8eb2-4a65-bea3-d616886f15f6"],

Cell[BoxData["\<\"Figure_S2_SpinUpOverview.tiff\"\>"], "Output",
 CellChangeTimes->{3.822802379907262*^9, 3.8228365060442915`*^9, 
  3.8241851923484125`*^9},
 CellLabel->
  "Out[1919]=",ExpressionUUID->"17b1defb-c28c-41a1-9b68-b89f37a11c89"]
}, Open  ]],

Cell["\<\
Use Fair-Geoffroy spin up to determine starting values for 2015\
\>", "Text",
 CellChangeTimes->{{3.71113575119866*^9, 3.7111357648642597`*^9}, {
  3.711171131470954*^9, 3.711171132484956*^9}, {3.712408724609439*^9, 
  3.7124087395614595`*^9}, {3.7662479249546547`*^9, 3.7662479290036545`*^9}, {
  3.810276061054193*^9, 3.810276074321699*^9}, {3.8227646837663717`*^9, 
  3.822764705489403*^9}},
 FontSize->18,
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"bd6d03f7-5c59-4ac2-8b7c-965bec1fc652"],

Cell[BoxData[{
 RowBox[{"IVFairwFex2015", "=", 
  RowBox[{
  "Import", "[", "\"\<IVFairwFex2015.csv\>\"", "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"IVFairwoFex2015", "=", 
  RowBox[{"Import", "[", "\"\<IVFairwoFex2015.csv\>\"", "]"}]}]}], "Input",
 CellChangeTimes->{{3.8241874459179726`*^9, 
  3.82418748819783*^9}},ExpressionUUID->"137bc31b-1e4d-492d-9496-\
53bd0a59682a"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"cwoFexstartvalues2015", "=", 
  RowBox[{"IVFairwoFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", 
     RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ccawoFexstartvalues2015", "=", 
  RowBox[{"IVFairwoFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", "8"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"twoFexstartvalues2015", "=", 
  RowBox[{"IVFairwoFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", 
     RowBox[{"12", ";;", "15"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"cwFexstartvalues2015", "=", 
  RowBox[{"IVFairwFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", 
     RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ccawFexstartvalues2015", "=", 
  RowBox[{"IVFairwFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", "8"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"twFexstartvalues2015", "=", 
  RowBox[{"IVFairwFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", 
     RowBox[{"12", ";;", "15"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"conlystartvalues2018", "=", 
    RowBox[{
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"255", ",", 
         RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "\[IndentingNewLine]", 
      "cconlystartvalues2018"}], "=", 
     RowBox[{
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"255", ",", "8"}], "]"}], "]"}], "\[IndentingNewLine]", 
       "tconlystartvalues2018"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"255", ",", 
         RowBox[{"12", ";;", "15"}]}], "]"}], "]"}]}]}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.817239776011119*^9, 3.8172397817056475`*^9}, {
  3.8227642965457153`*^9, 3.8227642977757173`*^9}, {3.822836941742019*^9, 
  3.822836960814046*^9}, {3.8231539218536415`*^9, 3.823153925026146*^9}, {
  3.8241871125009212`*^9, 3.824187146263844*^9}, {3.824187205094396*^9, 
  3.824187248393919*^9}},
 CellLabel->
  "In[1943]:=",ExpressionUUID->"b3579501-872b-42d6-81e4-a6b53d9c0ad0"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "57.5986822288036`", ",", "42.34107372660842`", ",", "17.112100687069187`", 
   ",", "2.7856856326908783`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8172397840167503`*^9, 3.818438764153632*^9, 3.818439264633337*^9, 
   3.822764253955655*^9, 3.822764299235719*^9, {3.8228369513730326`*^9, 
   3.822836961354047*^9}, 3.8241871498102226`*^9, 3.824187209452523*^9, 
   3.824187249349472*^9, 3.824187564591673*^9},
 CellLabel->
  "Out[1943]=",ExpressionUUID->"a53ac330-cfc0-467b-87dc-67df4735e648"],

Cell[BoxData["307.98114938782794`"], "Output",
 CellChangeTimes->{
  3.8172397840167503`*^9, 3.818438764153632*^9, 3.818439264633337*^9, 
   3.822764253955655*^9, 3.822764299235719*^9, {3.8228369513730326`*^9, 
   3.822836961354047*^9}, 3.8241871498102226`*^9, 3.824187209452523*^9, 
   3.824187249349472*^9, 3.8241875645981803`*^9},
 CellLabel->
  "Out[1944]=",ExpressionUUID->"c572fcf8-23e0-4152-a0b9-77f1604c5ade"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.8585809605695092`", ",", "0.10589535542587128`", ",", 
   RowBox[{"-", "0.021543930941356156`"}], ",", "0.2480336489426177`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.8172397840167503`*^9, 3.818438764153632*^9, 3.818439264633337*^9, 
   3.822764253955655*^9, 3.822764299235719*^9, {3.8228369513730326`*^9, 
   3.822836961354047*^9}, 3.8241871498102226`*^9, 3.824187209452523*^9, 
   3.824187249349472*^9, 3.8241875645981803`*^9},
 CellLabel->
  "Out[1945]=",ExpressionUUID->"47cf45e4-d68e-49f4-8c53-67f28ece1539"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "57.5986830980235`", ",", "42.42320774367723`", ",", "17.512988020164883`", 
   ",", "2.9152188930925496`"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8172397840167503`*^9, 3.818438764153632*^9, 3.818439264633337*^9, 
   3.822764253955655*^9, 3.822764299235719*^9, {3.8228369513730326`*^9, 
   3.822836961354047*^9}, 3.8241871498102226`*^9, 3.824187209452523*^9, 
   3.824187249349472*^9, 3.8241875646138077`*^9},
 CellLabel->
  "Out[1946]=",ExpressionUUID->"4557a40f-55a3-41f8-9940-339ec87a3f98"],

Cell[BoxData["306.68253177068163`"], "Output",
 CellChangeTimes->{
  3.8172397840167503`*^9, 3.818438764153632*^9, 3.818439264633337*^9, 
   3.822764253955655*^9, 3.822764299235719*^9, {3.8228369513730326`*^9, 
   3.822836961354047*^9}, 3.8241871498102226`*^9, 3.824187209452523*^9, 
   3.824187249349472*^9, 3.8241875646138077`*^9},
 CellLabel->
  "Out[1947]=",ExpressionUUID->"b7c782d2-b4b5-450f-ba43-4ef8f0d5b9b2"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.9880133681630512`", ",", "0.10634114593113277`", ",", 
   RowBox[{"-", "0.0247917118482599`"}], ",", "0.24907780281734904`"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.8172397840167503`*^9, 3.818438764153632*^9, 3.818439264633337*^9, 
   3.822764253955655*^9, 3.822764299235719*^9, {3.8228369513730326`*^9, 
   3.822836961354047*^9}, 3.8241871498102226`*^9, 3.824187209452523*^9, 
   3.824187249349472*^9, 3.8241875646138077`*^9},
 CellLabel->
  "Out[1948]=",ExpressionUUID->"721e089b-3875-4f8c-b353-b64d81fcffc6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"TwoFexDice2015", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"twoFexstartvalues2015", "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "2"}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"Total", "[", 
     RowBox[{"twoFexstartvalues2015", "[", 
      RowBox[{"[", 
       RowBox[{"3", ";;", "4"}], "]"}], "]"}], "]"}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"TwFexDice2015", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"Total", "[", 
     RowBox[{"twFexstartvalues2015", "[", 
      RowBox[{"[", 
       RowBox[{"1", ";;", "2"}], "]"}], "]"}], "]"}], ",", 
    RowBox[{"Total", "[", 
     RowBox[{"twFexstartvalues2015", "[", 
      RowBox[{"[", 
       RowBox[{"3", ";;", "4"}], "]"}], "]"}], "]"}]}], "}"}]}]}], "Input",
 CellChangeTimes->{{3.822842415003175*^9, 3.822842493486285*^9}, {
  3.82418729954327*^9, 3.824187334407423*^9}, {3.8241884901405134`*^9, 
  3.8241885013648915`*^9}},
 CellLabel->
  "In[1964]:=",ExpressionUUID->"cae6f9c4-ba52-4d03-b634-52d9a9361262"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.9644763159953804`", ",", "0.22648971800126155`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8228424743842583`*^9, 3.8228424967072897`*^9}, 
   3.824187336627592*^9, 3.8241885020133142`*^9},
 CellLabel->
  "Out[1964]=",ExpressionUUID->"5a255d47-da8d-41e8-aec8-f65cd44ebe7b"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"1.094354514094184`", ",", "0.22428609096908914`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8228424743842583`*^9, 3.8228424967072897`*^9}, 
   3.824187336627592*^9, 3.8241885020289545`*^9},
 CellLabel->
  "Out[1965]=",ExpressionUUID->"6338a827-dc07-4cbf-bc62-a05e830ab23c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "use", " ", "distribution", " ", "in", " ", "2015", " ", "of", " ", 
   "temperature", " ", "values", " ", "to", " ", "recalculate", " ", "start", 
   " ", "values", " ", "in", " ", "case", " ", "you", " ", "want", " ", "to", 
   " ", "start", " ", "FAIR", " ", "with", " ", "DICE", " ", "temperature", 
   " ", "values"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8227644541249924`*^9, 3.822764486059037*^9}, {
  3.8227645457691216`*^9, 
  3.8227645585601397`*^9}},ExpressionUUID->"d6240b2e-855a-4f6b-9361-\
2fbfd0468f13"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FairGCBATstartvalues2015", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"0.85", "*", 
     RowBox[{
      RowBox[{"twFexstartvalues2015", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "/", 
      RowBox[{"Total", "[", 
       RowBox[{"twFexstartvalues2015", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "2"}], "]"}], "]"}], "]"}]}]}], ",", 
    RowBox[{"0.85", "*", 
     RowBox[{
      RowBox[{"twFexstartvalues2015", "[", 
       RowBox[{"[", "2", "]"}], "]"}], "/", 
      RowBox[{"Total", "[", 
       RowBox[{"twFexstartvalues2015", "[", 
        RowBox[{"[", 
         RowBox[{"1", ";;", "2"}], "]"}], "]"}], "]"}]}]}], ",", 
    RowBox[{"0.0068", "*", 
     RowBox[{
      RowBox[{"twFexstartvalues2015", "[", 
       RowBox[{"[", "3", "]"}], "]"}], "/", 
      RowBox[{"Total", "[", 
       RowBox[{"twFexstartvalues2015", "[", 
        RowBox[{"[", 
         RowBox[{"3", ";;", "4"}], "]"}], "]"}], "]"}]}]}], ",", 
    RowBox[{"0.0068", "*", 
     RowBox[{
      RowBox[{"twFexstartvalues2015", "[", 
       RowBox[{"[", "4", "]"}], "]"}], "/", 
      RowBox[{"Total", "[", 
       RowBox[{"twFexstartvalues2015", "[", 
        RowBox[{"[", 
         RowBox[{"3", ";;", "4"}], "]"}], "]"}], "]"}]}]}]}], 
   "}"}]}]], "Input",
 CellChangeTimes->{{3.816718838634534*^9, 3.816718976446799*^9}, {
  3.816719052282091*^9, 3.8167191322024097`*^9}, {3.824187512437211*^9, 
  3.8241875214272733`*^9}, {3.824187599077925*^9, 3.82418768875239*^9}},
 CellLabel->
  "In[1949]:=",ExpressionUUID->"078267cd-43ae-4453-bd78-19e2897d392e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"0.7674033890505033`", ",", "0.08259661094949673`", ",", 
   RowBox[{"-", "0.0007516455427073333`"}], ",", "0.007551645542707334`"}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.8167188634225063`*^9, 3.81671887131812*^9}, {
   3.816718923441502*^9, 3.816718977260962*^9}, 3.8167191328485627`*^9, 
   3.8171382081489334`*^9, 3.818438943014884*^9, 3.818439272045347*^9, 
   3.8227645639421473`*^9, 3.8241876897236233`*^9},
 CellLabel->
  "Out[1949]=",ExpressionUUID->"2666cc1c-0bb2-4791-a783-b308aa836fd7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"atmosstock2015woFex", "=", 
  RowBox[{"IVFairwoFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", "20"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.822838493531578*^9, 3.822838573557691*^9}, {
  3.824187720114817*^9, 3.8241877352476344`*^9}},
 CellLabel->
  "In[1950]:=",ExpressionUUID->"9e5c4ae6-adc0-4671-bb14-0029692ca9e5"],

Cell[BoxData["843.418577104893`"], "Output",
 CellChangeTimes->{{3.822838547322654*^9, 3.8228385749876933`*^9}, 
   3.824187736349972*^9},
 CellLabel->
  "Out[1950]=",ExpressionUUID->"c0430035-20fa-4b6f-bc66-cf2b97c7ba8f"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"transferyCC13", "[", 
    RowBox[{"[", 
     RowBox[{"i", ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{
     RowBox[{"transferyCC13", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "-", "1"}], ",", 
        RowBox[{"{", 
         RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], ".", 
     "b5"}], "+", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
     RowBox[{"transferyCC13", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], 
  ","}]], "Input",ExpressionUUID->"a2773715-98c1-4f84-92fc-43797b405761"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"intCC132015", "=", 
   RowBox[{
    RowBox[{"intCC132010", ".", "b5"}], "+", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
     RowBox[{"transferyCC13", "[", 
      RowBox[{"[", 
       RowBox[{"51", ",", "2"}], "]"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"intCC132015", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", "atmosstock2015woFex"}], 
  ";"}], "\[IndentingNewLine]", "intCC132015"}], "Input",
 CellChangeTimes->{{3.8228402542220707`*^9, 3.8228402809571085`*^9}, {
  3.822840336786187*^9, 3.822840422410308*^9}, {3.824187756065055*^9, 
  3.824187769096394*^9}},
 CellLabel->
  "In[1954]:=",ExpressionUUID->"f02742d6-7716-4b1d-a267-f30fdff4ffcf"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "843.418577104893`", ",", "1541.1078616666668`", ",", 
   "10010.439124999999`"}], "}"}]], "Output",
 CellChangeTimes->{{3.8228402673050895`*^9, 3.8228402817171097`*^9}, 
   3.822840348429204*^9, 3.8228403856042557`*^9, 3.822840422890309*^9, {
   3.8241877604908915`*^9, 3.8241877698294163`*^9}},
 CellLabel->
  "Out[1956]=",ExpressionUUID->"1e5ba992-7de9-4ad1-9319-0abf48684352"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"intCC072015", "=", 
   RowBox[{
    RowBox[{"intCC072005", ".", "d10"}], "+", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
     RowBox[{"transferyCC07", "[", 
      RowBox[{"[", 
       RowBox[{"25", ",", "2"}], "]"}], "]"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"intCC072015", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", "atmosstock2015woFex"}], 
  ";"}], "\[IndentingNewLine]", "intCC072015"}], "Input",
 CellChangeTimes->{{3.8231484963367715`*^9, 3.823148507551287*^9}, {
   3.8231485533228517`*^9, 3.823148588240401*^9}, 3.8241877781022043`*^9},
 CellLabel->
  "In[1957]:=",ExpressionUUID->"a05d827c-e6c3-4d65-8fc7-8b0e63d62b47"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
  "843.418577104893`", ",", "1280.639439195`", ",", "18370.47503777`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8231485022202797`*^9, 3.823148556725356*^9, 
  3.8231485910329046`*^9, 3.824187779821845*^9},
 CellLabel->
  "Out[1959]=",ExpressionUUID->"e279dc8d-e2fa-43b7-82b2-007ac553bbb5"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"\"\<initalvaluesCC072015.csv\>\"", ",", "intCC072015"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<initalvaluesCC132015.csv\>\"", ",", "intCC132015"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.822841674744076*^9, 3.8228417174111357`*^9}},
 CellLabel->
  "In[1960]:=",ExpressionUUID->"665d5027-2e18-4f16-8576-a603ed5a4b6c"],

Cell[BoxData["\<\"initalvaluesCC072015.csv\"\>"], "Output",
 CellChangeTimes->{3.8228417186611376`*^9, 3.823148613975937*^9, 
  3.824187790709851*^9},
 CellLabel->
  "Out[1960]=",ExpressionUUID->"e471f723-bd10-41f0-9677-a04efbdb9f09"],

Cell[BoxData["\<\"initalvaluesCC132015.csv\"\>"], "Output",
 CellChangeTimes->{3.8228417186611376`*^9, 3.823148613975937*^9, 
  3.824187790709851*^9},
 CellLabel->
  "Out[1961]=",ExpressionUUID->"c9a22c9b-720e-4573-b363-7a0dca21e006"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData["intC162015"], "Input",
 CellChangeTimes->{{3.8241907471938353`*^9, 3.8241907522399735`*^9}},
 CellLabel->
  "In[1975]:=",ExpressionUUID->"f2ee1ce3-df12-431e-a8fd-9a48cd68b0ef"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"851", ",", "460", ",", "1740"}], "}"}]], "Output",
 CellChangeTimes->{3.8241907528234067`*^9},
 CellLabel->
  "Out[1975]=",ExpressionUUID->"e1b9cac1-749b-48c5-b1c6-fadddb0e61d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"intCC162015", "=", "intC162015"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"intCC162015", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", "atmosstock2015woFex"}], 
  ";"}], "\[IndentingNewLine]", "intCC162015"}], "Input",
 CellChangeTimes->{{3.8241907670429597`*^9, 3.8241908049370203`*^9}},
 CellLabel->
  "In[1976]:=",ExpressionUUID->"c20e81e7-33a1-4c97-af06-edf835876901"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"843.418577104893`", ",", "460", ",", "1740"}], "}"}]], "Output",
 CellChangeTimes->{3.8241908057234526`*^9},
 CellLabel->
  "Out[1978]=",ExpressionUUID->"4e4bbb6d-6ee4-41be-8a30-32e496a24472"]
}, Open  ]],

Cell["Fair Geoffroy Simulation of DICE CBA paths", "Text",
 CellChangeTimes->{{3.71113575119866*^9, 3.7111357648642597`*^9}, {
  3.711171131470954*^9, 3.711171132484956*^9}, {3.712408724609439*^9, 
  3.7124087395614595`*^9}, {3.7662479249546547`*^9, 3.7662479290036545`*^9}, {
  3.810276061054193*^9, 3.810276074321699*^9}, {3.8167180604130163`*^9, 
  3.816718074126128*^9}},
 FontSize->18,
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"0b2b37f7-0fd9-4b1e-9ffd-cd9d88c1c4b3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", 
   "\"\<C:\\\\Users\\\\wilmsen\\\\Dropbox\\\\WR\\\\Research\\\\IMPOSE\\\\\
Results_Paper\\\\CBA\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.8231501582144065`*^9, 3.82315016049691*^9}, {
  3.8231503788508453`*^9, 3.823150399450429*^9}},
 CellLabel->
  "In[727]:=",ExpressionUUID->"7ad51077-f534-459e-91c6-a628d720c9fe"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"dataCBA", "=", 
    RowBox[{"Import", "[", "\"\<CBA_Emissionspaths.csv\>\"", "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"dataCBA", "=", 
     RowBox[{"Import", "[", "\"\<CBA_Emissionspaths_IntFair.csv\>\"", "]"}]}],
     ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "dataCBA", "]"}]}], "Input",
 CellChangeTimes->{{3.8167180147412963`*^9, 3.816718033657961*^9}, {
  3.8167191751585956`*^9, 3.8167191837750187`*^9}, {3.8171409060788*^9, 
  3.8171409064107685`*^9}, {3.8171409525861144`*^9, 3.8171409592502728`*^9}, {
  3.823150401191432*^9, 3.82315040704394*^9}, {3.8231504960855656`*^9, 
  3.8231505038380766`*^9}, {3.823150548369194*^9, 3.8231505595917096`*^9}, {
  3.8231541212804227`*^9, 3.823154129512934*^9}, {3.8231541784650583`*^9, 
  3.823154187682126*^9}, {3.8231613484691334`*^9, 3.8231613555491433`*^9}, {
  3.8231613883001895`*^9, 
  3.8231613981252584`*^9}},ExpressionUUID->"53c2a3dd-45ed-484b-ab67-\
cde2aa5c4aa3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"92", ",", "13"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8167191846630387`*^9, 3.817138160203704*^9, 3.817139165500993*^9, 
   3.8171409599093466`*^9, 3.8184387972166786`*^9, 3.818439177606214*^9, 
   3.818439283296363*^9, {3.8231504087964425`*^9, 3.82315041431645*^9}, 
   3.823150504478077*^9, 3.823154090460379*^9, 3.8231541301329355`*^9, 
   3.823161135688777*^9, 3.823161356550144*^9},
 CellLabel->
  "Out[784]=",ExpressionUUID->"171ad16c-0266-48e0-9ee4-3c1d82b8682d"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"FairCBAOutput", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "92"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "14"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"FairCBAOutput", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<Counter\>\"", ",", "\"\<year\>\"", ",", "\"\<C5y_FD\>\"", ",", 
     "\"\<C1ycalc_FD\>\"", ",", "\"\<C1ycalb_FD\>\"", ",", "\"\<C5y_Fex\>\"", 
     ",", "\"\<C1ycalc_Fex\>\"", ",", "\"\<C1ycalb_Fex\>\"", ",", 
     "\"\<T_5y_FD\>\"", ",", "\"\<T_1ycalc_FD\>\"", ",", 
     "\"\<T_1ycalb_FD\>\"", ",", "\"\<T_5y_Fex\>\"", ",", 
     "\"\<T_1ycalc_Fex\>\"", ",", "\"\<T_1ycalb_Fex\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"FairCBAOutput", "[", 
     RowBox[{"[", 
      RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"n", "-", "1"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "2", ",", "92"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"FairCBAOutput", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"n", "+", "2"}], ",", "2"}], "]"}], "]"}], "=", 
    RowBox[{"2015", "+", "n"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"n", ",", "0", ",", "90"}], "}"}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.8167195855206413`*^9, 3.816719812304016*^9}},
 CellLabel->
  "In[785]:=",ExpressionUUID->"320c12c8-0405-4867-9100-977a63030e40"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "=", "92"}], ",", "\[IndentingNewLine]", 
     RowBox[{"transFairG", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "y"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "20"}], "}"}]}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", 
      RowBox[{"{", 
       RowBox[{
       "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-R1\>\"", ",", 
        "\"\<4-R2\>\"", ",", "\"\<5-R3\>\"", ",", "\"\<6-R4\>\"", ",", 
        "\"\<7-C\>\"", ",", "\"\<8-CCA\>\"", ",", "\"\<9-F\>\"", ",", 
        "\"\<10-Fex\>\"", ",", "\"\<11-TF\>\"", ",", "\"\<12-TMF\>\"", ",", 
        "\"\<13-TMS\>\"", ",", "\"\<14-TDF\>\"", ",", "\"\<15-TDS\>\"", ",", 
        "\"\<16-TM\>\"", ",", "\"\<17-TD\>\"", ",", "\"\<18-\[Alpha]\>\"", 
        ",", "\"\<19-\[Alpha]check\>\"", ",", "\"\<20-atmosGt\>\""}], "}"}]}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}], "=", 
        RowBox[{"2015", "-", "1", "+", "n"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", 
         RowBox[{"y", "-", "1"}]}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"emcolumns", "=", 
      RowBox[{"{", 
       RowBox[{"2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7"}], 
       "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"dtemp", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "/", "2.12"}]}], 
       ","}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"dataCBA", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "92"}], ",", 
          RowBox[{"emcolumns", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], "/", 
       "2.1293970467500096"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
      "=", "cstartvalues2015"}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "initial", " ", "carbon", " ", "values", " ", "for", " ", "R1"}], ",", 
       "R2", ",", "R3", ",", "R4"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "7"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}], "+", 
       "278.0014091894"}]}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
      "initial", " ", "atmospheric", " ", "carbon", " ", "concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", "ccastartvalues2015"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "9"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"F2x", "/", 
          RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "7"}], "]"}], "]"}], "/", "278"}], "]"}]}], "/.",
        "parFair"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"fexcolumns", "=", 
      RowBox[{"{", 
       RowBox[{"8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13"}], 
       "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "10"}], "]"}], "]"}], "=", 
      RowBox[{"dataCBA", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "92"}], ",", 
         RowBox[{"fexcolumns", "[", 
          RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "13", ",", "14", ",", "15"}], "}"}]}], "]"}], 
       "]"}], "=", "tstartvalues2015"}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
      "initial", " ", "values", " ", "for", " ", "Mix", " ", "Layer", " ", 
       "Fast", " ", "and", " ", "Slow", " ", "Response", " ", "and", " ", 
       "Deep", " ", "Layer", " ", "Fast", " ", "and", " ", "Slow", " ", 
       "Response"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "16"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "17"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "18"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"rirf", "[", 
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "8"}], "]"}], "]"}], ",", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
          RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Alpha]", ",", "0.2"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "19"}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "18"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", 
             RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "-", "1"}], ",", 
              RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "+", 
           RowBox[{"dr", "[", 
            RowBox[{"aFair", ",", "\[Tau]Fair", ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
          RowBox[{"278.0014091894", "+", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}], "-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "7"}], "]"}], "]"}], "-", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", "7"}], "]"}], "]"}]}], 
               ")"}]}], ")"}], "*", "2.12"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"F2x", "/", 
              RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "7"}], "]"}], "]"}], "/", 
              "278.0014091894"}], "]"}]}], "/.", "parFair"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"expf", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "12"}], "]"}], "]"}]}], "+", 
             RowBox[{"amixf", "*", "intf"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"exps", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "13"}], "]"}], "]"}]}], "+", 
             RowBox[{"amixs", "*", "ints"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"expf", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "14"}], "]"}], "]"}]}], "+", 
             RowBox[{"adeepf", "*", "intf"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"exps", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "15"}], "]"}], "]"}]}], "+", 
             RowBox[{"adeeps", "*", "ints"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transT", ".", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"Total", "[", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", 
                   RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}]}], "/.",
              "parTG"}]}], ","}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
             RowBox[{"Total", "[", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"11", ";;", "12"}]}], "]"}], "]"}], "]"}]}], ","}], 
           "*)"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"rirf", "[", 
               RowBox[{
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "8"}], "]"}], "]"}], ",", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
              RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}]}], 
              "}"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"rT", "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "16"}], "]"}], "]"}], "-", 
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "16"}], "]"}], "]"}]}], 
                 ")"}]}], "+", 
               RowBox[{"rc", "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "8"}], "]"}], "]"}], "-", 
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}]}], 
                 ")"}]}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"dalpha", "[", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "]"}], 
              ")"}]}]}], "/.", "parFair"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "3", ",", "92"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "7"}], "]"}], "]"}], "*", "2.12"}]}], ",",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"FairCBAOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"k", "+", "2"}]}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"FairCBAOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"k", "+", "8"}]}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "16"}], "]"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "1", ",", "6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.810280473345899*^9, 3.810280835289139*^9}, {
   3.8103641075717745`*^9, 3.810364110692772*^9}, {3.81036883002244*^9, 
   3.8103688305164795`*^9}, {3.8109597437819242`*^9, 
   3.8109597443484993`*^9}, {3.8126087024628897`*^9, 
   3.8126088027229705`*^9}, {3.8126089125388813`*^9, 3.812608914625472*^9}, {
   3.8133342934321384`*^9, 3.813334420216504*^9}, {3.8133344881701365`*^9, 
   3.813334619140195*^9}, {3.81333853388776*^9, 3.813338608697424*^9}, {
   3.813338681538455*^9, 3.813338685953352*^9}, {3.813338943353011*^9, 
   3.8133389926475935`*^9}, {3.813339447165347*^9, 3.8133394617685184`*^9}, {
   3.813339494809816*^9, 3.8133398477767277`*^9}, {3.8133399070193973`*^9, 
   3.8133399167065544`*^9}, {3.813339954815693*^9, 3.8133399781247263`*^9}, {
   3.8133403577092*^9, 3.8133403587043533`*^9}, {3.813340638363896*^9, 
   3.8133406723371153`*^9}, {3.8133461297614355`*^9, 3.813346237438306*^9}, {
   3.813346311469352*^9, 3.813346313427952*^9}, {3.813346478244486*^9, 
   3.8133464786699057`*^9}, {3.813512800860598*^9, 3.8135128045530205`*^9}, {
   3.8135129613335967`*^9, 3.813512967665472*^9}, {3.813513131335656*^9, 
   3.8135132059702077`*^9}, {3.813513448868885*^9, 3.8135134951501684`*^9}, {
   3.813513585711378*^9, 3.8135136559666605`*^9}, {3.813514076073622*^9, 
   3.8135140787416267`*^9}, {3.813516095289074*^9, 3.81351609572066*^9}, {
   3.8166392503253765`*^9, 3.8166392505416813`*^9}, {3.8166393846856313`*^9, 
   3.816639396927516*^9}, {3.816718495005973*^9, 3.816718499048741*^9}, {
   3.8167192008104115`*^9, 3.816719215239213*^9}, {3.8167192603891344`*^9, 
   3.81671929609338*^9}, {3.81671934571107*^9, 3.8167194515233183`*^9}, {
   3.8167195145526047`*^9, 3.81671951488964*^9}, {3.816719824013314*^9, 
   3.8167198871627383`*^9}, {3.817139186070547*^9, 3.817139191263028*^9}, 
   3.8171399022037325`*^9, 3.823154083397869*^9, {3.823161252323941*^9, 
   3.8231612607859535`*^9}},
 CellLabel->
  "In[789]:=",ExpressionUUID->"00d11e97-bcec-4390-9b6c-a892c001de6c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "\"\<FairCABAOutput_InitialValuesDICE.csv\>\"", ",", "FairCBAOutput"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"Export", "[", 
    RowBox[{
    "\"\<FairCABAOutput_InitialValuesFairGeoffroy.csv\>\"", ",", 
     "FairCBAOutput"}], "]"}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.8171400781289883`*^9, 3.817140114931199*^9}, {
  3.8171411814833884`*^9, 3.817141185658242*^9}, {3.823150458766513*^9, 
  3.823150537837179*^9}, {3.823154141189951*^9, 3.8231541640205374`*^9}, {
  3.8231613361420608`*^9, 
  3.8231613808991795`*^9}},ExpressionUUID->"7f89032a-8470-4000-8e38-\
28fd86ab2c67"],

Cell["ZECMIP ", "Text",
 CellChangeTimes->{{3.71113575119866*^9, 3.7111357648642597`*^9}, {
  3.711171131470954*^9, 3.711171132484956*^9}, {3.712408724609439*^9, 
  3.7124087395614595`*^9}, {3.7662479249546547`*^9, 3.7662479290036545`*^9}, {
  3.810276061054193*^9, 3.810276074321699*^9}, {3.8167180604130163`*^9, 
  3.816718074126128*^9}, {3.8171501903508883`*^9, 3.8171502004843855`*^9}, {
  3.8231917414303217`*^9, 3.823191760154348*^9}, {3.823320463116739*^9, 
  3.823320465316742*^9}},
 FontSize->18,
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"f11b8961-a19e-4a80-a029-eec44a94073c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", 
   "\"\<C:\\\\Users\\\\wilmsen\\\\Dropbox\\\\WR\\\\Research\\\\IMPOSE\\\\\
Results_Paper\\\\CommitedWarming\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.823191838126458*^9, 3.823191858828487*^9}},
 CellLabel->
  "In[791]:=",ExpressionUUID->"3a9c992a-6f16-40bb-a976-ee2815628ac6"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", 
   "\"\<C:\\\\Users\\\\Rickels\\\\Dropbox\\\\WR\\\\Research\\\\IMPOSE\\\\\
Results_Paper\\\\CommitedWarming\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.824189211658682*^9, 3.8241892124758997`*^9}},
 CellLabel->
  "In[1966]:=",ExpressionUUID->"e56a3bd5-bfb6-47b7-b23d-4f35af3de6d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"dataB1yNor", "=", 
     RowBox[{"Import", "[", "\"\<ZECMIP_B1_NorESM2.csv\>\"", "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"dataB3yNor", "=", 
     RowBox[{"Import", "[", "\"\<ZECMIP_B3_NorESM2.csv\>\"", "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"dataB4yNor", "=", 
     RowBox[{"Import", "[", "\"\<ZECMIP_B4_NorESM2.csv\>\"", "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{"dataNorem", "=", 
     RowBox[{"Import", "[", "\"\<NorESM_ems_B.csv\>\"", "]"}]}], ";"}], 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"dataB", "=", 
    RowBox[{"Import", "[", "\"\<ZECMIP_B_oneyear.csv\>\"", "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.8231919913507833`*^9, 3.82319203185584*^9}, {
  3.8231930025122833`*^9, 3.823193004213286*^9}, {3.8233476239862213`*^9, 
  3.8233476675102825`*^9}, {3.8241892328245387`*^9, 3.824189236996224*^9}},
 CellLabel->
  "In[1967]:=",ExpressionUUID->"2ebf3e6d-39fd-4790-a0a3-29bbf4538a27"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"zn", "=", 
    RowBox[{
     RowBox[{"Dimensions", "[", "dataNorem", "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"zb", "=", 
   RowBox[{
    RowBox[{"Dimensions", "[", "dataB", "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.823193862512494*^9, 3.8231938775245156`*^9}, {
  3.82334767285229*^9, 3.823347690334315*^9}, {3.824189240604809*^9, 
  3.824189243549305*^9}},
 CellLabel->
  "In[1968]:=",ExpressionUUID->"522a271b-0970-4b96-b0b9-f951ffa54632"],

Cell[BoxData["202"], "Output",
 CellChangeTimes->{{3.8231938719635077`*^9, 3.8231938790945177`*^9}, 
   3.823347694445321*^9, 3.824189244498438*^9},
 CellLabel->
  "Out[1968]=",ExpressionUUID->"ea9de76a-497c-4f53-9d3f-0bb7e63fb052"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ZECMIPresults", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "zb"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "43"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPresults", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<1-year\>\"", ",", "\"\<2-B1C-CC16c\>\"", ",", "\"\<3-B1C-CC16b\>\"", 
     ",", "\"\<4-B1C-CC13c\>\"", ",", "\"\<5-B1C-CC13b\>\"", ",", 
     "\"\<6-B1C-CC07c\>\"", ",", "\"\<7-B1C-CC07b\>\"", ",", 
     "\"\<8-B1C-FG\>\"", ",", "\"\<9-B2C-CC16c\>\"", ",", 
     "\"\<10-B2C-CC16b\>\"", ",", "\"\<11-B2C-CC13c\>\"", ",", 
     "\"\<12-B2C-CC13b\>\"", ",", "\"\<13-B2C-CC07c\>\"", ",", 
     "\"\<14-B2C-CC07b\>\"", ",", "\"\<15-B2C-FG\>\"", ",", 
     "\"\<16-B3C-CC16c\>\"", ",", "\"\<17-B3C-CC16b\>\"", ",", 
     "\"\<18-B3C-CC13c\>\"", ",", "\"\<19-B3C-CC13b\>\"", ",", 
     "\"\<20-B3C-CC07c\>\"", ",", "\"\<21-B3C-CC07b\>\"", ",", 
     "\"\<22-B3C-FG\>\"", ",", "\"\<23-B1T-CC16c\>\"", ",", 
     "\"\<24-B1T-CC16b\>\"", ",", "\"\<25-B1T-CC13c\>\"", ",", 
     "\"\<26-B1T-CC13b\>\"", ",", "\"\<27-B1T-CC07c\>\"", ",", 
     "\"\<28-B1T-CC07b\>\"", ",", "\"\<29-B1T-FG\>\"", ",", 
     "\"\<30-B2T-CC16c\>\"", ",", "\"\<31-B2T-CC16b\>\"", ",", 
     "\"\<32-B2T-CC13c\>\"", ",", "\"\<33-B2T-CC13b\>\"", ",", 
     "\"\<34-B2T-CC07c\>\"", ",", "\"\<35-B2T-CC07b\>\"", ",", 
     "\"\<36-B2T-FG\>\"", ",", "\"\<37-B3T-CC16c\>\"", ",", 
     "\"\<38-B3T-CC16b\>\"", ",", "\"\<39-B3T-CC13c\>\"", ",", 
     "\"\<40-B3T-CC13b\>\"", ",", "\"\<41-B3T-CC07c\>\"", ",", 
     "\"\<42-B3T-CC07b\>\"", ",", "\"\<43-B3T-FG\>\""}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.82319300733329*^9, 3.8231934475069103`*^9}, {
  3.8231935414880424`*^9, 3.8231936884592495`*^9}, {3.8233282752759695`*^9, 
  3.8233285588713684`*^9}, {3.823328618188452*^9, 3.8233286406214833`*^9}, {
  3.8233477015183306`*^9, 3.823347703938334*^9}, {3.823348614841672*^9, 
  3.8233486827097673`*^9}},
 CellLabel->
  "In[2007]:=",ExpressionUUID->"0a1e28af-2677-4570-a0b4-7bcf51561da4"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ZECMIPresults", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "]"}], "=", "i"}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "1", ",", 
     RowBox[{"zb", "-", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.82332106699865*^9, 3.8233211028227005`*^9}, {
  3.8233477403523855`*^9, 3.8233477438123903`*^9}, {3.8233477794364405`*^9, 
  3.823347779756441*^9}},
 CellLabel->
  "In[2009]:=",ExpressionUUID->"19312a83-3506-4e6e-ba07-7a4ac946737d"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "=", "zb"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
       "needs", " ", "to", " ", "plus", " ", "1", " ", "the", " ", "length", 
        " ", "of", " ", "the", " ", "emission", " ", "input", " ", "file"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"transfer", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "+", "2"}], ",", "3"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transfer", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}], "+", 
           "timestep"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"transfer", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
         "int2005"}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"transfer", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "7"}], "]"}], "]"}], "=", 
         RowBox[{"hfun", "[", 
          RowBox[{"transfer", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "5"}], "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"transfer", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", 
         RowBox[{"Afun", "[", "timestep", "]"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"transfer", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "9"}], "]"}], "]"}], "=", 
         RowBox[{"Bfun", "[", 
          RowBox[{"transfer", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "7"}], "]"}], "]"}], "]"}]}], ";", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"transfer", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", 
            RowBox[{"{", 
             RowBox[{"12", ",", "13", ",", "14"}], "}"}]}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"trans", ".", 
              RowBox[{"transfer", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}]}], 
             "/.", "par"}], "/.", 
            RowBox[{"t", "\[Rule]", "timestep"}]}], "/.", 
           RowBox[{"A", "\[Rule]", 
            RowBox[{"transfer", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "8"}], "]"}], "]"}]}]}], "/.", 
          RowBox[{"B", "\[Rule]", 
           RowBox[{"transfer", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "9"}], "]"}], "]"}]}]}]}], ";"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"transfery1CC16", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "y"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "18"}], "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
        "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-CDR\>\"", ",", 
         "\"\<4-MATc\>\"", ",", "\"\<5-MUPc\>\"", ",", "\"\<6-MLOc\>\"", ",", 
         "\"\<7-dC\>\"", ",", "\"\<8-MATb\>\"", ",", "\"\<9-MUPb\>\"", ",", 
         "\"\<10-MLOb\>\"", ",", "\"\<11-dC\>\"", ",", "\"\<12-Fex\>\"", ",", 
         "\"\<13-Fc\>\"", ",", "\"\<14-Fb\>\"", ",", "\"\<15-TempAc\>\"", 
         ",", "\"\<16-TempOc\>\"", ",", "\"\<17-TempAb\>\"", ",", 
         "\"\<18-TempOb\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"transfery1CC16", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", 
         RowBox[{"n", "-", "1"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "2", ",", "y"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"emcolumns", "=", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], ";", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3", ",", "4"}], "}"}], " ", "in", " ", "case", 
         " ", "one", " ", "uses", " ", "NorESM2", " ", "data"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"emissions1", "=", 
        RowBox[{"dataB", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "zb"}], ",", 
           RowBox[{"emcolumns", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"cdr1", "=", 
         RowBox[{"Input1CC16", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "v3"}], ",", 
            RowBox[{"k", "*", "3"}]}], "]"}], "]"}]}], ","}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
       "emissions1"}], ",", " ", 
      RowBox[{"(*", "Emissions", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"transfery1CC16", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "y"}], ",", "3"}], "]"}], "]"}], "=", "cdr1"}],
         ","}], "*)"}], 
      RowBox[{"(*", "CDR", "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"transfer", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"i", "+", "2"}], ",", "3"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transfer", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}], "+", 
           "timestep"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
       "intCC16pre"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "initial", " ", "carbon", " ", "values", " ", "for", " ", 
         "atmosphere"}], ",", " ", 
        RowBox[{"upper", " ", "ocean"}], ",", " ", 
        RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], "=", 
       "intCC16pre"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "initial", " ", "carbon", " ", "values", " ", "for", " ", 
         "atmosphere"}], ",", " ", 
        RowBox[{"upper", " ", "ocean"}], ",", " ", 
        RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"atmosphere", " ", "temperature"}], ",", " ", 
        RowBox[{"ocean", " ", "temperature"}]}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{"0", ",", "0"}], "}"}]}], ",", " ", 
      RowBox[{"(*", " ", 
       RowBox[{
        RowBox[{"atmosphere", " ", "temperature"}], ",", " ", 
        RowBox[{"ocean", " ", "temperature"}]}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"fexcolumns", "=", 
         RowBox[{"{", 
          RowBox[{"40", ",", "44", ",", "45"}], "}"}]}], ","}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "12"}], "]"}], "]"}], "=", "0"}], 
      ",", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"dataRCP1", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "v3"}], ",", 
           RowBox[{"fexcolumns", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ","}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "13"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Eta]", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "4"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
            "/", 
            RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
         RowBox[{"transfery1CC16", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT161calc"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "14"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Eta]", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "8"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
            "/", 
            RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
         RowBox[{"transfery1CC16", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT161calb"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"timestepy", "=", "85"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"transfery1CC16", "[", 
            RowBox[{"[", 
             RowBox[{"n", ",", "10"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"intT2015", "[", 
             RowBox[{"[", "3", "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"1", "/", "timestepy"}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"intT2015", "[", 
                RowBox[{"[", "4", "]"}], "]"}], "-", 
               RowBox[{"intT2015", "[", 
                RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "*", 
             RowBox[{"(", 
              RowBox[{"n", "-", "2"}], ")"}]}]}]}], ",", 
          RowBox[{"{", 
           RowBox[{"n", ",", "3", ",", 
            RowBox[{"timestepy", "+", "2"}]}], "}"}]}], "]"}], ",", " ", 
        RowBox[{"(*", 
         RowBox[{"Calculate", " ", "exogenous", " ", "forcing"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"transfery1CC16", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{
             RowBox[{"timestepy", "+", "3"}], ";;", "y"}], ",", "10"}], "]"}],
           "]"}], "=", 
         RowBox[{"intT2015", "[", 
          RowBox[{"[", "4", "]"}], "]"}]}], ","}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"transfery1CC16", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
             ".", "a1calc"}], "+", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",", 
          RowBox[{
           RowBox[{"transfery1CC16", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
             ".", "a1calb"}], "+", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC16", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Eta]", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{
                  RowBox[{"transfery1CC16", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                 "]"}], "/", 
                RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
            "parT161calc"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC16", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Eta]", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{
                  RowBox[{"transfery1CC16", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                 "]"}], "/", 
                RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
            "parT161calb"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC16", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"TransT161calc", ".", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "13"}], "]"}], "]"}]}]}], "/.", 
            "parT161calc"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC16", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"TransT161calb", ".", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "14"}], "]"}], "]"}]}]}], "/.", 
            "parT161calb"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC16", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
             "]"}], "-", 
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
             "]"}]}]}], ",", 
          RowBox[{
           RowBox[{"transfery1CC16", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
             "]"}], "-", 
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC16", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
             "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "y"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{
           RowBox[{"k", "*", "7"}], "-", "5"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "4"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{
           RowBox[{"k", "*", "7"}], "-", "4"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "8"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{
           RowBox[{"k", "*", "7"}], "+", "16"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "15"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{
           RowBox[{"k", "*", "7"}], "+", "17"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "17"}], "]"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{
  3.8231938456504707`*^9, {3.8231938861355276`*^9, 3.8231938880955305`*^9}, {
   3.8231939327015934`*^9, 3.8231939386816015`*^9}, {3.8231939780776567`*^9, 
   3.8231939963316827`*^9}, {3.8231942418270903`*^9, 3.823194247058098*^9}, {
   3.8231943405092297`*^9, 3.823194354451249*^9}, {3.823194560610563*^9, 
   3.823194614957639*^9}, {3.8231946568646984`*^9, 3.8231946701667166`*^9}, {
   3.8231947253337955`*^9, 3.823194773165363*^9}, {3.823328831182751*^9, 
   3.8233288337327547`*^9}, {3.82332888714883*^9, 3.82332890128985*^9}, {
   3.823329076281096*^9, 3.823329084812108*^9}, {3.8233477842574472`*^9, 
   3.82334784983654*^9}},
 CellLabel->
  "In[2010]:=",ExpressionUUID->"859d97ae-a031-473f-8860-6f858d24975e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "=", "zb"}], ",", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "dataNorem", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ","}], "*)"}], " ", 
      "\[IndentingNewLine]", 
      RowBox[{"transfery1CC13", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "y"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "18"}], "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
        "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-CDR\>\"", ",", 
         "\"\<4-MATc\>\"", ",", "\"\<5-MUPc\>\"", ",", "\"\<6-MLOc\>\"", ",", 
         "\"\<7-dC\>\"", ",", "\"\<8-MATb\>\"", ",", "\"\<9-MUPb\>\"", ",", 
         "\"\<10-MLOb\>\"", ",", "\"\<11-dC\>\"", ",", "\"\<12-Fex\>\"", ",", 
         "\"\<13-Fc\>\"", ",", "\"\<14-Fb\>\"", ",", "\"\<15-TempAc\>\"", 
         ",", "\"\<16-TempOc\>\"", ",", "\"\<17-TempAb\>\"", ",", 
         "\"\<18-TempOb\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"transfery1CC13", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", 
         RowBox[{"1765", "+", "n", "-", "2"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "2", ",", "y"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"emcolumns", "=", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], ";", " ", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3", ",", "4"}], "}"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"emissions1", "=", 
        RowBox[{"dataB", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "zb"}], ",", 
           RowBox[{"emcolumns", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
       "emissions1"}], ",", " ", 
      RowBox[{"(*", "Emissions", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
       "intCC13pre"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "initial", " ", "carbon", " ", "values", " ", "for", " ", 
         "atmosphere"}], ",", " ", 
        RowBox[{"upper", " ", "ocean"}], ",", " ", 
        RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], "=", 
       "intCC13pre"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "initial", " ", "carbon", " ", "values", " ", "for", " ", 
         "atmosphere"}], ",", " ", 
        RowBox[{"upper", " ", "ocean"}], ",", " ", 
        RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "13"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Eta]", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "4"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
            "/", 
            RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
         RowBox[{"transfery1CC13", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT131calc"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "14"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Eta]", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "8"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
            "/", 
            RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
         RowBox[{"transfery1CC13", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT131calb"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"transfery1CC13", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
             ".", "b1calc"}], "+", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",", 
          RowBox[{
           RowBox[{"transfery1CC13", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
             ".", "b1calb"}], "+", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC13", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Eta]", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{
                  RowBox[{"transfery1CC13", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                 "]"}], "/", 
                RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
            "parT131calc"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC13", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Eta]", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{
                  RowBox[{"transfery1CC13", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                 "]"}], "/", 
                RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
            "parT131calb"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC13", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"TransT131calc", ".", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "13"}], "]"}], "]"}]}]}], "/.", 
            "parT131calc"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC13", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"TransT131calb", ".", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "14"}], "]"}], "]"}]}]}], "/.", 
            "parT131calb"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC13", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
             "]"}], "-", 
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
             "]"}]}]}], ",", 
          RowBox[{
           RowBox[{"transfery1CC13", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
             "]"}], "-", 
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC13", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
             "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "y"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{
           RowBox[{"k", "*", "7"}], "-", "3"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "4"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{
           RowBox[{"k", "*", "7"}], "-", "2"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "8"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{
           RowBox[{"k", "*", "7"}], "+", "18"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "15"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{
           RowBox[{"k", "*", "7"}], "+", "19"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC13", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "17"}], "]"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7920295174306426`*^9, 3.7920296240259695`*^9}, 
   3.7920296562702756`*^9, 3.7920299489930334`*^9, {3.7920300286729827`*^9, 
   3.7920300452551394`*^9}, {3.792030749055524*^9, 3.792030775922874*^9}, {
   3.7920308859542513`*^9, 3.7920309292614193`*^9}, {3.792031843803426*^9, 
   3.792031942968858*^9}, {3.7920319907182646`*^9, 3.792032015281928*^9}, {
   3.792032058800349*^9, 3.7920320752263308`*^9}, {3.7920323050159206`*^9, 
   3.7920324077366877`*^9}, {3.7920324671434374`*^9, 3.792032482999258*^9}, {
   3.792032611440982*^9, 3.7920326158071566`*^9}, {3.7920327615832467`*^9, 
   3.7920328067427187`*^9}, {3.7920334007064004`*^9, 
   3.7920334214787354`*^9}, {3.792035955558097*^9, 3.792036012070055*^9}, {
   3.792036046458066*^9, 3.792036084942918*^9}, {3.7927439980635*^9, 
   3.7927439995011473`*^9}, {3.810190824093872*^9, 3.8101909750021825`*^9}, {
   3.810191010756048*^9, 3.810191111014434*^9}, {3.810191295273965*^9, 
   3.8101913839399376`*^9}, {3.8101914246549754`*^9, 3.810191428248706*^9}, {
   3.810191635020672*^9, 3.8101917309279904`*^9}, {3.8101920096607895`*^9, 
   3.8101920129720707`*^9}, {3.810227415352755*^9, 3.810227440512192*^9}, {
   3.8102274729351254`*^9, 3.810227538763339*^9}, {3.8102300179769573`*^9, 
   3.810230106483638*^9}, {3.810230177843181*^9, 3.810230229576248*^9}, {
   3.8102302817912793`*^9, 3.810230327595955*^9}, {3.810285105674296*^9, 
   3.8102851588633566`*^9}, {3.8102851897847815`*^9, 
   3.8102851967993245`*^9}, {3.8102852868790426`*^9, 
   3.8102853070075903`*^9}, {3.810363495762292*^9, 3.8103636125162163`*^9}, {
   3.8103636851437254`*^9, 3.8103637031036477`*^9}, {3.8103687955515385`*^9, 
   3.810368796059222*^9}, {3.8109597131811237`*^9, 3.810959713953663*^9}, {
   3.813553794644224*^9, 3.8135538155021615`*^9}, {3.8135540005393896`*^9, 
   3.8135540920428095`*^9}, {3.813554253355591*^9, 3.8135544231263237`*^9}, {
   3.8135546895989656`*^9, 3.8135547249825363`*^9}, {3.813555073137637*^9, 
   3.8135551429410486`*^9}, {3.813555246539295*^9, 3.813555360924416*^9}, {
   3.813555792694582*^9, 3.8135557972368507`*^9}, 3.8136047492743406`*^9, {
   3.8136055987291527`*^9, 3.813605612504076*^9}, {3.823195061659824*^9, 
   3.8231950624598246`*^9}, {3.8231951221279097`*^9, 
   3.8231951909070063`*^9}, {3.823195230052061*^9, 3.823195290861147*^9}, {
   3.8231953259551964`*^9, 3.8231953303552027`*^9}, {3.8231954150493765`*^9, 
   3.8231954225813875`*^9}, {3.823329204517337*^9, 3.823329239912387*^9}, {
   3.8233478828445864`*^9, 3.8233479390916653`*^9}},
 CellLabel->
  "In[2011]:=",ExpressionUUID->"b9ae01f9-70b2-4057-9f2d-f90443b99e2b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "=", "zb"}], ",", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"Dimensions", "[", "dataNorem", "]"}], "[", 
         RowBox[{"[", "1", "]"}], "]"}], ","}], "*)"}], " ", 
      "\[IndentingNewLine]", 
      RowBox[{"transfery1CC07", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "y"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "18"}], "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
        "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-CDR\>\"", ",", 
         "\"\<4-MATc\>\"", ",", "\"\<5-MUPc\>\"", ",", "\"\<6-MLOc\>\"", ",", 
         "\"\<7-dC\>\"", ",", "\"\<8-MATb\>\"", ",", "\"\<9-MUPb\>\"", ",", 
         "\"\<10-MLOb\>\"", ",", "\"\<11-dC\>\"", ",", "\"\<12-Fex\>\"", ",", 
         "\"\<13-Fc\>\"", ",", "\"\<14-Fb\>\"", ",", "\"\<15-TempAc\>\"", 
         ",", "\"\<16-TempOc\>\"", ",", "\"\<17-TempAb\>\"", ",", 
         "\"\<18-TempOb\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"transfery1CC07", "[", 
          RowBox[{"[", 
           RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", 
         RowBox[{"1765", "+", "n", "-", "2"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "2", ",", "y"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"emcolumns", "=", 
        RowBox[{"{", 
         RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], ";", " ", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2", ",", "3", ",", "4"}], "}"}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"emissions1", "=", 
        RowBox[{"dataB", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "zb"}], ",", 
           RowBox[{"emcolumns", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
       "emissions1"}], ",", " ", 
      RowBox[{"(*", "Emissions", "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
       "intCC07pre"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "initial", " ", "carbon", " ", "values", " ", "for", " ", 
         "atmosphere"}], ",", " ", 
        RowBox[{"upper", " ", "ocean"}], ",", " ", 
        RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], "=", 
       "intCC07pre"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "initial", " ", "carbon", " ", "values", " ", "for", " ", 
         "atmosphere"}], ",", " ", 
        RowBox[{"upper", " ", "ocean"}], ",", " ", 
        RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"fexcolumns", "=", 
         RowBox[{"{", 
          RowBox[{"40", ",", "44", ",", "45"}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"transfery1CC07", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "y"}], ",", "12"}], "]"}], "]"}], "=", 
         RowBox[{"dataRCP1", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "v3"}], ",", 
            RowBox[{"fexcolumns", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], ","}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "13"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Eta]", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "4"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
            "/", 
            RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
         RowBox[{"transfery1CC07", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT071calc"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "14"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"\[Eta]", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{"2", ",", "8"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
            "/", 
            RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
         RowBox[{"transfery1CC07", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT071calb"}]}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"transfery1CC07", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
             ".", "d1calc"}], "+", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",", 
          RowBox[{
           RowBox[{"transfery1CC07", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
             ".", "d1calb"}], "+", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC07", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Eta]", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{
                  RowBox[{"transfery1CC07", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                 "]"}], "/", 
                RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
            "parT071calc"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC07", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"\[Eta]", "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"Log", "[", 
                 RowBox[{
                  RowBox[{"transfery1CC07", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                 "]"}], "/", 
                RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
            "parT071calb"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC07", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"TransT071calc", ".", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "13"}], "]"}], "]"}]}]}], "/.", 
            "parT071calc"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC07", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"{", 
               RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"TransT071calb", ".", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}]}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "14"}], "]"}], "]"}]}]}], "/.", 
            "parT071calb"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transfery1CC07", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
             "]"}], "-", 
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
             "]"}]}]}], ",", 
          RowBox[{
           RowBox[{"transfery1CC07", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
             "]"}], "-", 
            RowBox[{"Total", "[", 
             RowBox[{"transfery1CC07", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
             "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "y"}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{
           RowBox[{"k", "*", "7"}], "-", "1"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "4"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"k", "*", "7"}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "8"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"upper1CC13", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "y"}], ",", 
            RowBox[{"k", "+", "3"}]}], "]"}], "]"}], "=", 
         RowBox[{"transfery1CC13", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "y"}], ",", "5"}], "]"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"lower1CC13", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "y"}], ",", 
            RowBox[{"k", "+", "3"}]}], "]"}], "]"}], "=", 
         RowBox[{"transfery1CC13", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "y"}], ",", "6"}], "]"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"force1CC13", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "y"}], ",", 
            RowBox[{"k", "+", "3"}]}], "]"}], "]"}], "=", 
         RowBox[{"transfery1CC13", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "y"}], ",", "9"}], "]"}], "]"}]}], ","}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"20", "+", 
           RowBox[{"k", "*", "7"}]}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "15"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"21", "+", 
           RowBox[{"k", "*", "7"}]}]}], "]"}], "]"}], "=", 
       RowBox[{"transfery1CC07", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "17"}], "]"}], "]"}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.7920295174306426`*^9, 3.7920296240259695`*^9}, 
   3.7920296562702756`*^9, 3.7920299489930334`*^9, {3.7920300286729827`*^9, 
   3.7920300452551394`*^9}, {3.792030749055524*^9, 3.792030775922874*^9}, {
   3.7920308859542513`*^9, 3.7920309292614193`*^9}, {3.792031843803426*^9, 
   3.792031942968858*^9}, {3.7920319907182646`*^9, 3.792032015281928*^9}, {
   3.792032058800349*^9, 3.7920320752263308`*^9}, {3.7920323050159206`*^9, 
   3.7920324077366877`*^9}, {3.7920324671434374`*^9, 3.792032482999258*^9}, {
   3.792032611440982*^9, 3.7920326158071566`*^9}, {3.7920327615832467`*^9, 
   3.7920328067427187`*^9}, {3.7920334007064004`*^9, 
   3.7920334214787354`*^9}, {3.792035955558097*^9, 3.792036012070055*^9}, {
   3.792036046458066*^9, 3.792036084942918*^9}, {3.7927439980635*^9, 
   3.7927439995011473`*^9}, {3.810190824093872*^9, 3.8101909750021825`*^9}, {
   3.810191010756048*^9, 3.810191111014434*^9}, {3.810191295273965*^9, 
   3.8101913839399376`*^9}, {3.8101914246549754`*^9, 3.810191428248706*^9}, {
   3.810191635020672*^9, 3.8101917309279904`*^9}, {3.8101920096607895`*^9, 
   3.8101920129720707`*^9}, {3.810227415352755*^9, 3.810227440512192*^9}, {
   3.8102274729351254`*^9, 3.810227538763339*^9}, {3.8102300179769573`*^9, 
   3.810230106483638*^9}, {3.810230177843181*^9, 3.810230229576248*^9}, {
   3.8102302817912793`*^9, 3.810230327595955*^9}, {3.810233396645327*^9, 
   3.810233400624997*^9}, {3.810233451439539*^9, 3.8102336548939886`*^9}, {
   3.8102337642842765`*^9, 3.810233871481276*^9}, {3.8102344596856575`*^9, 
   3.8102345123115354`*^9}, {3.810234568645584*^9, 3.8102345869509325`*^9}, {
   3.8102346630071793`*^9, 3.810234749532464*^9}, {3.810234829427137*^9, 
   3.8102348360786805`*^9}, {3.8102348795761595`*^9, 
   3.8102348838141346`*^9}, {3.810234914791686*^9, 3.810235062772265*^9}, {
   3.8102350976892834`*^9, 3.8102352657636237`*^9}, {3.810235875475949*^9, 
   3.810235879233179*^9}, 3.8102787856541605`*^9, {3.810299774492795*^9, 
   3.8102997775922203`*^9}, {3.8102998171081157`*^9, 
   3.8102998180284567`*^9}, {3.81030943178913*^9, 3.8103094447911797`*^9}, {
   3.810309646438561*^9, 3.810309650969429*^9}, {3.810310683992111*^9, 
   3.810310696828996*^9}, {3.810363907568935*^9, 3.810364007446059*^9}, {
   3.810368806822912*^9, 3.8103688072710032`*^9}, {3.810959728999687*^9, 
   3.810959730092713*^9}, {3.812825900309496*^9, 3.812825932118302*^9}, 
   3.8128259691292458`*^9, {3.8128260509087143`*^9, 3.8128260547474213`*^9}, {
   3.8128261078560605`*^9, 3.812826128464399*^9}, {3.812826232046361*^9, 
   3.812826280845895*^9}, 3.812826361819337*^9, {3.812826394240965*^9, 
   3.81282659755645*^9}, {3.8128266566365976`*^9, 3.8128266608203464`*^9}, {
   3.8128266975879693`*^9, 3.812826699938088*^9}, {3.8128271172445073`*^9, 
   3.8128271177790637`*^9}, {3.813604642617973*^9, 3.8136046488165317`*^9}, {
   3.813604690382924*^9, 3.8136047059841914`*^9}, {3.8136048008793*^9, 
   3.813604900213408*^9}, 3.8136049770113754`*^9, {3.8136051618384023`*^9, 
   3.813605462551299*^9}, {3.813605818571022*^9, 3.8136060368268642`*^9}, {
   3.823319896986742*^9, 3.82331991699877*^9}, {3.8233199484938145`*^9, 
   3.82331999469088*^9}, {3.82332011569905*^9, 3.82332016549512*^9}, {
   3.8233202080411797`*^9, 3.823320238985224*^9}, {3.8233202851594334`*^9, 
   3.823320314493475*^9}, {3.823320961776496*^9, 3.8233209641864996`*^9}, {
   3.823329150881261*^9, 3.823329168943287*^9}, {3.8233293162724943`*^9, 
   3.8233293380545244`*^9}, {3.8233479441726727`*^9, 3.8233479797847233`*^9}},
 CellLabel->
  "In[2012]:=",ExpressionUUID->"7c6206e2-08e9-4eda-be45-1e4ff9874ce6"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "=", "zb"}], ",", "\[IndentingNewLine]", 
     RowBox[{"transFairG", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "y"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "20"}], "}"}]}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", 
      RowBox[{"{", 
       RowBox[{
       "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-R1\>\"", ",", 
        "\"\<4-R2\>\"", ",", "\"\<5-R3\>\"", ",", "\"\<6-R4\>\"", ",", 
        "\"\<7-C\>\"", ",", "\"\<8-CCA\>\"", ",", "\"\<9-F\>\"", ",", 
        "\"\<10-Fex\>\"", ",", "\"\<11-TF\>\"", ",", "\"\<12-TMF\>\"", ",", 
        "\"\<13-TMS\>\"", ",", "\"\<14-TDF\>\"", ",", "\"\<15-TDS\>\"", ",", 
        "\"\<16-TM\>\"", ",", "\"\<17-TD\>\"", ",", "\"\<18-\[Alpha]\>\"", 
        ",", "\"\<19-\[Alpha]check\>\"", ",", "\"\<20-atmosGt\>\""}], "}"}]}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}], "=", 
        RowBox[{"1765", "-", "1", "+", "n"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", 
         RowBox[{"y", "-", "1"}]}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"emcolumns", "=", 
      RowBox[{"{", 
       RowBox[{"3", ",", "4", ",", "5"}], "}"}]}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2", ",", "3", ",", "4"}], "}"}], ","}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"dtemp", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "/", "2.12"}]}], 
       ","}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"dataB", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "zb"}], ",", 
          RowBox[{"emcolumns", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], "/", 
       "2.1293970467500096"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
      "=", "0"}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "initial", " ", "carbon", " ", "values", " ", "for", " ", "R1"}], ",", 
       "R2", ",", "R3", ",", "R4"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "7"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}], "+", 
       "278.0014091894"}]}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
      "initial", " ", "atmospheric", " ", "carbon", " ", "concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", "0"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "9"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"F2x", "/", 
          RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "7"}], "]"}], "]"}], "/", "278"}], "]"}]}], "/.",
        "parFair"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"fexcolumns", "=", 
        RowBox[{"{", 
         RowBox[{"40", ",", "44", ",", "45"}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "10"}], "]"}], "]"}], "=", 
        RowBox[{"dataRCP1", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "255"}], ",", 
           RowBox[{"fexcolumns", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], ","}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "13", ",", "14", ",", "15"}], "}"}]}], "]"}], 
       "]"}], "=", "0"}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
      "initial", " ", "values", " ", "for", " ", "Mix", " ", "Layer", " ", 
       "Fast", " ", "and", " ", "Slow", " ", "Response", " ", "and", " ", 
       "Deep", " ", "Layer", " ", "Fast", " ", "and", " ", "Slow", " ", 
       "Response"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "16"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "17"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "18"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"rirf", "[", 
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "8"}], "]"}], "]"}], ",", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
          RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Alpha]", ",", "0.2"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "19"}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "18"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", 
             RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "-", "1"}], ",", 
              RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "+", 
           RowBox[{"dr", "[", 
            RowBox[{"aFair", ",", "\[Tau]Fair", ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
          RowBox[{"278.0014091894", "+", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}], "-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "7"}], "]"}], "]"}], "-", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", "7"}], "]"}], "]"}]}], 
               ")"}]}], ")"}], "*", "2.12"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"F2x", "/", 
              RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "7"}], "]"}], "]"}], "/", 
              "278.0014091894"}], "]"}]}], "/.", "parFair"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"expf", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "12"}], "]"}], "]"}]}], "+", 
             RowBox[{"amixf", "*", "intf"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"exps", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "13"}], "]"}], "]"}]}], "+", 
             RowBox[{"amixs", "*", "ints"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"expf", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "14"}], "]"}], "]"}]}], "+", 
             RowBox[{"adeepf", "*", "intf"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"exps", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "15"}], "]"}], "]"}]}], "+", 
             RowBox[{"adeeps", "*", "ints"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transT", ".", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"Total", "[", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", 
                   RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}]}], "/.",
              "parTG"}]}], ","}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
             RowBox[{"Total", "[", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"11", ";;", "12"}]}], "]"}], "]"}], "]"}]}], ","}], 
           "*)"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"rirf", "[", 
               RowBox[{
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "8"}], "]"}], "]"}], ",", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
              RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}]}], 
              "}"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"rT", "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "16"}], "]"}], "]"}], "-", 
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "16"}], "]"}], "]"}]}], 
                 ")"}]}], "+", 
               RowBox[{"rc", "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "8"}], "]"}], "]"}], "-", 
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}]}], 
                 ")"}]}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"dalpha", "[", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "]"}], 
              ")"}]}]}], "/.", "parFair"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "3", ",", "zb"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "7"}], "]"}], "]"}], "*", "2.12"}]}], ",",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ZECMIPresults", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "y"}], ",", 
         RowBox[{
          RowBox[{"k", "*", "7"}], "+", "1"}]}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"ZECMIPresults", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "y"}], ",", 
         RowBox[{
          RowBox[{"k", "*", "7"}], "+", "22"}]}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "16"}], "]"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "1", ",", "3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJwdz2tIk2EAxfHRcqgj0pprbgo5Qsbc1oJYSZB7qaBcECtjy7XlbOm2gtU0
glqRJlNMEMvuZhJ0oxpuDiumSyywUJfktJQaYpaX3lZCUgaOnvN8OPy+/k9O
qWvvkWUcDkdJBm+l512oO8wybVpHO/yncx/wE9V5o9Tos54HHURO7RDVm7S4
PmpjmZlcvhom3kUMi+Usc1lqsMGareluGOMWUQXRp3dNDpa5+cMbgL0nkkLw
tMfWD+vsXUEzcbdeGIa8LRv64KeqMDWm+z4NhS8Ecegt/JprIQavPZdB7tyY
Av4e/2uE060lJVDUctUKZeLiMti7tM0BX/s7r8O0+lFqyr3+ELz/NrUH+syb
nVb08nynYHz5z/PwjV9ZBaPv+67AmGuEmlQvGQgQjYEm6vAT+QRs0C1QA93O
BTjPf5mAM4OS7A6iKjIlhS2vNCo4GU9oYLap+ii0hz5QRdrZ8iD6Vv6hehyF
pY9cLFO5X0/1/8qogBrf7UoYV0+sHiLuarQKYCBjU3PkOMuIgwbqHj6/wHGG
ZZLlIurHjVxTpof8URwyw2HepTI4kDDbYVt8X7icWPC4oQfGnKJB2GqppjZ3
PxyBqjtrxqA8f8dnqM05OwVrapdS7MRz7fmp0GjXS6DF3kR13tiZeYy4NrlR
DAuy5hQwbVaohO7J+bkK4kFuMQuzOsXSk8RVRd/WwRXbx2Ww6+IX6n8LIXBG

  "],
 CellLabel->
  "In[2013]:=",ExpressionUUID->"5d70ae5d-b272-4058-8268-b12a801e6ac4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<ZECMIP_B_results.csv\>\"", ",", "ZECMIPresults"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8233221321061506`*^9, 3.823322162041193*^9}, {
  3.8233223107235146`*^9, 3.823322312184517*^9}, {3.823348057963834*^9, 
  3.823348059973837*^9}},
 CellLabel->
  "In[1070]:=",ExpressionUUID->"48808856-a49c-4610-944a-574fef34f8ea"],

Cell[BoxData["\<\"ZECMIP_B_results.csv\"\>"], "Output",
 CellChangeTimes->{3.8233221685862055`*^9, 3.823322314034519*^9, 
  3.823345517013924*^9, 3.823348060893838*^9, 3.8233486992007904`*^9},
 CellLabel->
  "Out[1070]=",ExpressionUUID->"2b0007f0-ea0c-4bdb-8580-fac5ac679dc0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZECMIPresults", "[", 
  RowBox[{"[", 
   RowBox[{"1", ";;", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8242314137932034`*^9, 3.8242314164301777`*^9}},
 CellLabel->
  "In[2072]:=",ExpressionUUID->"b5f19cdf-3800-4b97-987b-d95ccf566cc7"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"1-year\"\>", ",", "\<\"2-B1C-CC16c\"\>", 
     ",", "\<\"3-B1C-CC16b\"\>", ",", "\<\"4-B1C-CC13c\"\>", 
     ",", "\<\"5-B1C-CC13b\"\>", ",", "\<\"6-B1C-CC07c\"\>", 
     ",", "\<\"7-B1C-CC07b\"\>", ",", "\<\"8-B1C-FG\"\>", 
     ",", "\<\"9-B2C-CC16c\"\>", ",", "\<\"10-B2C-CC16b\"\>", 
     ",", "\<\"11-B2C-CC13c\"\>", ",", "\<\"12-B2C-CC13b\"\>", 
     ",", "\<\"13-B2C-CC07c\"\>", ",", "\<\"14-B2C-CC07b\"\>", 
     ",", "\<\"15-B2C-FG\"\>", ",", "\<\"16-B3C-CC16c\"\>", 
     ",", "\<\"17-B3C-CC16b\"\>", ",", "\<\"18-B3C-CC13c\"\>", 
     ",", "\<\"19-B3C-CC13b\"\>", ",", "\<\"20-B3C-CC07c\"\>", 
     ",", "\<\"21-B3C-CC07b\"\>", ",", "\<\"22-B3C-FG\"\>", 
     ",", "\<\"23-B1T-CC16c\"\>", ",", "\<\"24-B1T-CC16b\"\>", 
     ",", "\<\"25-B1T-CC13c\"\>", ",", "\<\"26-B1T-CC13b\"\>", 
     ",", "\<\"27-B1T-CC07c\"\>", ",", "\<\"28-B1T-CC07b\"\>", 
     ",", "\<\"29-B1T-FG\"\>", ",", "\<\"30-B2T-CC16c\"\>", 
     ",", "\<\"31-B2T-CC16b\"\>", ",", "\<\"32-B2T-CC13c\"\>", 
     ",", "\<\"33-B2T-CC13b\"\>", ",", "\<\"34-B2T-CC07c\"\>", 
     ",", "\<\"35-B2T-CC07b\"\>", ",", "\<\"36-B2T-FG\"\>", 
     ",", "\<\"37-B3T-CC16c\"\>", ",", "\<\"38-B3T-CC16b\"\>", 
     ",", "\<\"39-B3T-CC13c\"\>", ",", "\<\"40-B3T-CC13b\"\>", 
     ",", "\<\"41-B3T-CC07c\"\>", ",", "\<\"42-B3T-CC07b\"\>", 
     ",", "\<\"43-B3T-FG\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "588", ",", "588", ",", "588", ",", "588", ",", "587.473`", ",",
      "587.473`", ",", "589.3629874815281`", ",", "588", ",", "588", ",", 
     "588", ",", "588", ",", "587.473`", ",", "587.473`", ",", 
     "589.3629874815281`", ",", "588", ",", "588", ",", "588", ",", "588", 
     ",", "587.473`", ",", "587.473`", ",", "589.3629874815281`", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", 
     ",", "0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.824231417178588*^9},
 CellLabel->
  "Out[2072]=",ExpressionUUID->"be615a8c-1859-459b-8b34-fd9236f231ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dataB", "[", 
  RowBox[{"[", 
   RowBox[{"1", ";;", "2"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8242314695036364`*^9, 3.82423147406775*^9}},
 CellLabel->
  "In[2074]:=",ExpressionUUID->"8e1d1814-1bbf-4082-86b9-b8002fc27065"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"\<\"Counter#1\"\>", ",", "\<\"Counter #2\"\>", ",", "\<\"B1\"\>",
      ",", "\<\"B2\"\>", ",", "\<\"B2\"\>"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
    "1", ",", "1", ",", "0.20873014`", ",", "0.1565476`", ",", 
     "0.41746028`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.824231474749881*^9},
 CellLabel->
  "Out[2074]=",ExpressionUUID->"564b2b91-ae8d-41ea-9373-f7761ce439be"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{"dataB", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"2", ";;"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8242314474219418`*^9, 3.824231489234949*^9}},
 CellLabel->
  "In[2075]:=",ExpressionUUID->"b65eb2ff-29dc-4599-95e6-2af743bd37cd"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      NCache[
       Rational[1, 72], 0.013888888888888888`]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxd1XtM1WUYB/B3mIY5lbILZkNUMDRmeD8Kwpebcj2cwwHOOV3sIKGwNDW1
P0jwzVZzixqsvP1jZ5WNBTGdM+xiexu5MvEPV1HkiGPLrrDZGFYrWzUe1p7v
2c7OPuc573l+v/d9nuc3b9P2yvo4Y8z5f9//fY6/ruW0rpq/y039KEe+wNsp
F3El/xNxPPrLE24bK7goTsAzp46H9h28JL4dVeGTpYemfSFOxBlP9/axOwfE
98BbP/P9XRcGxcnYcjYhnPvKFfF87Lm789yLvd+JU3B1YPDn/o0/ihfi3Td7
s35tHhanwRcXDiYdviZejD2JTbUfZI+K0/H47Olbv8y6Ll6CzpahY48d+UOc
gda2HQl1oRvipbiBzamnPzQY9zLM7bnp2e9nThIvxwt9P332xtHJ4hWYEUwe
3FsbL16J1MzLRS2N08SrkFocv85zaoZ4NV6ve+qXC3NvFXvw7VsrWxtvniVe
g6Yz7TsWJdwhXoviwhJfxZq7xJkoq/dkHn96tjgL59rTMnb/MEe8DodWjL7a
0pAkzsalgSeP/G2TxTlom7RgxPvVPDHw5++Bv/I8C8Ztge7Ytpc7j6VIPBe3
NL1zdM7UhRLPxYknGtpHdt8r8TwU7u3rKhlKk3ge/B1xxcsLF0s8H7Oasz89
8Np9Es/H6M5tHYm/pUu8ACeGB5s6spZIvAC9l785H7fzfokXYuT5tYv2F2VI
vBAvBTJ7P+8Tm/XoiW8dm16wVOLrceD6yf1DXWKzAaev9uQnTVkm8Q3o+npf
98desSlCesrk96Y8NxEvQluwf3h150S8GI1ZW5uHz07EyaZE/96W6P8zpTqf
LdXXY8r09doyfT+mXN+vLdf7Ybx6v6xX76ep0PttK/R5GJ8+L/joPH36vJ1P
14Px63qBn+rJr+vN+akeK3W9olLXs63U9e4qqR8Cul8Q0P1kA7rfXID6sUr3
K6p0P9sq3e+uiuZBtZ4XqNbzxFbreeOqaR7V6HmFGj3PbI2ed66G5mFQz0sE
9Ty1QT1vXZDmcUjPa4T0PLchPe9diJ4HYajnBcKyL/KyZEc2D2iDbMmObB6k
9WRLdmTzEK0nW7Ijm4dpPdmSHdlspPVkS3Zk8witJ1uyI5uIdjIZ5AjZkqNk
R46RTS3lJ4McIVtylOzIMbLZRPnJIEfIlhwlO3KMbOooPxnkCNmSo2RHjpHN
o5SfDHKEbMlRsiPHyKae8pNBjpAtOUp25BjZbKb8ZJAjZEuOkh05RjZbKD8Z
5AjZkqNkR46RTQPlJ4McIVtylOzIMbJppPz/+x8DCxq0
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 201.}, {0, 18.7418898}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.824231465094016*^9, 3.824231489667185*^9}},
 CellLabel->
  "Out[2075]=",ExpressionUUID->"2fe2d295-d9f4-4e82-91b6-4bd339d51f2e"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ZECMIPtable", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "22"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "16"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<int-C\>\"", ",", "\"\<max-C\>\"", ",", 
     "\"\<100y-C\>\"", ",", "\"\<150y-C\>\"", ",", "\"\<200y-C\>\"", ",", 
     "\"\<deltaCmax\>\"", ",", "\"\<deltaC100\>\"", ",", "\"\<deltaC150\>\"", 
     ",", "\"\<deltaC200\>\"", ",", "\"\<ZEC50-C\>\"", ",", "\"\<maxT\>\"", 
     ",", "\"\<100y-T\>\"", ",", "\"\<150y-T\>\"", ",", "\"\<200y-T\>\"", 
     ",", "\"\<ZEC50-T\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<B1-CC16c\>\"", ",", "\"\<B1-CC16b\>\"", ",", "\"\<B1-CC13c\>\"", 
      ",", "\"\<B1-CC13b\>\"", ",", "\"\<B1-CC07c\>\"", ",", 
      "\"\<B1-CC07b\>\"", ",", "\"\<B1-FG\>\"", ",", "\"\<B1-Nor\>\"", ",", 
      "\"\<B3-CC16c\>\"", ",", "\"\<B3-CC16b\>\"", ",", "\"\<B3-CC13c\>\"", 
      ",", "\"\<B3-CC13b\>\"", ",", "\"\<B3-CC07c\>\"", ",", 
      "\"\<B3-CC07b\>\"", ",", "\"\<B3-FG\>\"", ",", "\"\<B3-Nor\>\"", ",", 
      "\"\<B4-CC16c\>\"", ",", "\"\<B4-CC16b\>\"", ",", "\"\<B4-CC13c\>\"", 
      ",", "\"\<B4-CC13b\>\"", ",", "\"\<B4-CC07c\>\"", ",", 
      "\"\<B4-CC07b\>\"", ",", "\"\<B4-FG\>\"", ",", "\"\<B4-Nor\>\""}], 
     "}"}]}], "*)"}]}]}], "Input",
 CellChangeTimes->{{3.8233281564898024`*^9, 3.823328180093836*^9}, {
   3.8233282318209085`*^9, 3.823328250822935*^9}, {3.8233298060261827`*^9, 
   3.823330039692511*^9}, {3.823330073875559*^9, 3.823330079166567*^9}, {
   3.823330178088706*^9, 3.823330184049714*^9}, {3.8233480999789476`*^9, 
   3.8233481029089518`*^9}, {3.823348142715008*^9, 3.8233481430750084`*^9}, {
   3.824232092970832*^9, 3.824232185144212*^9}, {3.824232426322877*^9, 
   3.824232458979495*^9}, {3.824232511943711*^9, 3.824232520712385*^9}, 
   3.8242328022909746`*^9, 3.82423285090526*^9},
 CellLabel->
  "In[2100]:=",ExpressionUUID->"934db004-6515-4527-9095-7ee2a0bdd225"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZECMIPtable", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
  RowBox[{"{", 
   RowBox[{
   "\"\<B1-CC16c\>\"", ",", "\"\<B1-CC16b\>\"", ",", "\"\<B1-CC13c\>\"", ",", 
    "\"\<B1-CC13b\>\"", ",", "\"\<B1-CC07c\>\"", ",", "\"\<B1-CC07b\>\"", 
    ",", "\"\<B1-FG\>\"", ",", "\"\<B2-CC16c\>\"", ",", "\"\<B2-CC16b\>\"", 
    ",", "\"\<B2-CC13c\>\"", ",", "\"\<B2-CC13b\>\"", ",", "\"\<B2-CC07c\>\"",
     ",", "\"\<B2-CC07b\>\"", ",", "\"\<B2-FG\>\"", ",", "\"\<B3-CC16c\>\"", 
    ",", "\"\<B3-CC16b\>\"", ",", "\"\<B3-CC13c\>\"", ",", "\"\<B3-CC13b\>\"",
     ",", "\"\<B3-CC07c\>\"", ",", "\"\<B3-CC07b\>\"", ",", "\"\<B3-FG\>\""}],
    "}"}]}]], "Input",
 CellChangeTimes->{{3.823348118680974*^9, 3.823348134461996*^9}, {
  3.8233487081418033`*^9, 3.823348735445896*^9}},
 CellLabel->
  "In[2102]:=",ExpressionUUID->"b9266b67-8016-4f3d-aa9e-1c51a4bd943d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"B1-CC16c\"\>", ",", "\<\"B1-CC16b\"\>", 
   ",", "\<\"B1-CC13c\"\>", ",", "\<\"B1-CC13b\"\>", ",", "\<\"B1-CC07c\"\>", 
   ",", "\<\"B1-CC07b\"\>", ",", "\<\"B1-FG\"\>", ",", "\<\"B2-CC16c\"\>", 
   ",", "\<\"B2-CC16b\"\>", ",", "\<\"B2-CC13c\"\>", ",", "\<\"B2-CC13b\"\>", 
   ",", "\<\"B2-CC07c\"\>", ",", "\<\"B2-CC07b\"\>", ",", "\<\"B2-FG\"\>", 
   ",", "\<\"B3-CC16c\"\>", ",", "\<\"B3-CC16b\"\>", ",", "\<\"B3-CC13c\"\>", 
   ",", "\<\"B3-CC13b\"\>", ",", "\<\"B3-CC07c\"\>", ",", "\<\"B3-CC07b\"\>", 
   ",", "\<\"B3-FG\"\>"}], "}"}]], "Output",
 CellChangeTimes->{
  3.8233300403925123`*^9, 3.823330079506567*^9, 3.8233301852697163`*^9, {
   3.8233303033738823`*^9, 3.823330318186903*^9}, 3.823345519103927*^9, 
   3.8233481486350164`*^9, 3.8233487361258974`*^9, 3.8241923495505657`*^9, 
   3.824232806185011*^9, 3.8242328601804705`*^9},
 CellLabel->
  "Out[2102]=",ExpressionUUID->"22ac5163-34fc-459c-9dd0-284b3af1e877"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZECMIPresults", "[", 
  RowBox[{"[", 
   RowBox[{"152", ",", "1"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8242322685229006`*^9, 3.824232283897195*^9}, {
  3.82423248494189*^9, 3.8242324854652615`*^9}},
 CellLabel->
  "In[2080]:=",ExpressionUUID->"11bf98b3-3b1a-461c-bfd1-14baf653865e"],

Cell[BoxData["151"], "Output",
 CellChangeTimes->{{3.8242322772437563`*^9, 3.8242322842981615`*^9}, 
   3.8242324860446243`*^9},
 CellLabel->
  "Out[2080]=",ExpressionUUID->"8a1dfab8-9af6-420f-b53e-90843f6d816d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ZECMIPresults", "[", 
   RowBox[{"[", 
    RowBox[{"151", ",", "23"}], "]"}], "]"}], "-", 
  RowBox[{"ZECMIPresults", "[", 
   RowBox[{"[", 
    RowBox[{"101", ",", "23"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.824231669268749*^9, 3.8242317048556023`*^9}},
 CellLabel->
  "In[2076]:=",ExpressionUUID->"eff06132-31c3-40a0-9a69-356cbade73e8"],

Cell[BoxData["0.43464033958258685`"], "Output",
 CellChangeTimes->{3.8242317061901765`*^9},
 CellLabel->
  "Out[2076]=",ExpressionUUID->"63583507-5f09-491a-80b1-09ce77c9df2e"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;", "22"}], ",", "2"}], "]"}], "]"}], "=", 
    RowBox[{"ZECMIPresults", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", 
       RowBox[{"2", ";;", "22"}]}], "]"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"ZECMIPtable", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"10", ";;", "16"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"ZECMIPresults", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", 
        RowBox[{"9", ";;", "15"}]}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"ZECMIPtable", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"18", ";;", "24"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"ZECMIPresults", "[", 
      RowBox[{"[", 
       RowBox[{"2", ",", 
        RowBox[{"16", ";;", "22"}]}], "]"}], "]"}]}], ";"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{"i", ",", "3"}], "]"}], "]"}], "=", 
    RowBox[{"Max", "[", 
     RowBox[{"ZECMIPresults", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "202"}], ",", "i"}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "2", ",", "22"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;", "22"}], ",", "4"}], "]"}], "]"}], "=", 
   RowBox[{"ZECMIPresults", "[", 
    RowBox[{"[", 
     RowBox[{"102", ",", 
      RowBox[{"2", ";;", "22"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;", "22"}], ",", "5"}], "]"}], "]"}], "=", 
   RowBox[{"ZECMIPresults", "[", 
    RowBox[{"[", 
     RowBox[{"152", ",", 
      RowBox[{"2", ";;", "22"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;", "22"}], ",", "6"}], "]"}], "]"}], "=", 
   RowBox[{"ZECMIPresults", "[", 
    RowBox[{"[", 
     RowBox[{"202", ",", 
      RowBox[{"2", ";;", "22"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "7"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "-", 
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "4"}], "]"}], "]"}], "-", 
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "9"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "5"}], "]"}], "]"}], "-", 
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "10"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}], "-", 
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "5"}], "]"}], "]"}], "-", 
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 
    RowBox[{"Max", "[", 
     RowBox[{"ZECMIPresults", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "202"}], ",", 
        RowBox[{"i", "+", "21"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "2", ",", "22"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;", "22"}], ",", "13"}], "]"}], "]"}], "=", 
   RowBox[{"ZECMIPresults", "[", 
    RowBox[{"[", 
     RowBox[{"102", ",", 
      RowBox[{"23", ";;", "43"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;", "22"}], ",", "14"}], "]"}], "]"}], "=", 
   RowBox[{"ZECMIPresults", "[", 
    RowBox[{"[", 
     RowBox[{"152", ",", 
      RowBox[{"23", ";;", "43"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ZECMIPtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;", "22"}], ",", "15"}], "]"}], "]"}], "=", 
   RowBox[{"ZECMIPresults", "[", 
    RowBox[{"[", 
     RowBox[{"202", ",", 
      RowBox[{"23", ";;", "43"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"ZECMIPtable", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;", "22"}], ",", "16"}], "]"}], "]"}], "=", 
    RowBox[{
     RowBox[{"ZECMIPtable", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", "14"}], "]"}], "]"}], "-", 
     RowBox[{"ZECMIPtable", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", "13"}], "]"}], "]"}]}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ZECMIPtable", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}], "=", 
       RowBox[{"Max", "[", 
        RowBox[{"ZECMIPresults", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "301"}], ",", "i"}], "]"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "9", ",", "15"}], "}"}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ZECMIPtable", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", "2"}], ",", "3"}], "]"}], "]"}], "=", 
       RowBox[{"Max", "[", 
        RowBox[{"ZECMIPresults", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "301"}], ",", "i"}], "]"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "16", ",", "22"}], "}"}]}], "]"}]}], "*)"}], 
  "\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ZECMIPtable", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", "1"}], ",", "7"}], "]"}], "]"}], "=", 
       RowBox[{"Max", "[", 
        RowBox[{"ZECMIPresults", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "301"}], ",", 
           RowBox[{"i", "+", "21"}]}], "]"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "9", ",", "15"}], "}"}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"ZECMIPtable", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"i", "+", "2"}], ",", "7"}], "]"}], "]"}], "=", 
       RowBox[{"Max", "[", 
        RowBox[{"ZECMIPresults", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "301"}], ",", 
           RowBox[{"i", "+", "21"}]}], "]"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "16", ",", "22"}], "}"}]}], "]"}]}], 
   "*)"}]}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.823330198650735*^9, 3.823330407579029*^9}, {
   3.8233304382900724`*^9, 3.823330458562101*^9}, {3.8233304895161448`*^9, 
   3.823330502707163*^9}, {3.8233305348132086`*^9, 3.823330587799283*^9}, {
   3.82333075186057*^9, 3.823330788775622*^9}, {3.823334633403093*^9, 
   3.8233346343630943`*^9}, 3.8233348334483743`*^9, {3.823345189260461*^9, 
   3.8233451901304626`*^9}, {3.8233455322959456`*^9, 
   3.8233455405859575`*^9}, {3.8233481828480644`*^9, 3.823348235726139*^9}, {
   3.823348486886492*^9, 3.8233485364425616`*^9}, {3.8242322226811695`*^9, 
   3.824232262430446*^9}, {3.8242323201006727`*^9, 3.8242323929414062`*^9}, {
   3.824232472997839*^9, 3.8242326196894674`*^9}, {3.8242326498396072`*^9, 
   3.8242326930433483`*^9}, {3.824232730417909*^9, 3.8242327501177225`*^9}, {
   3.8242327918819056`*^9, 3.8242327977184687`*^9}},
 CellLabel->
  "In[2103]:=",ExpressionUUID->"f3dc0bc2-0230-405b-a8eb-c9574438f728"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZECMIPtable", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8233455513669724`*^9, 3.8233455931640863`*^9}, {
   3.823348409157383*^9, 3.8233484116683865`*^9}, {3.823348569256608*^9, 
   3.823348573107613*^9}, 3.8242317478059173`*^9, {3.824232021467301*^9, 
   3.8242320298183646`*^9}},
 CellLabel->
  "In[2118]:=",ExpressionUUID->"549a6d15-b119-46b6-9135-2075d351e08e"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"\"\>", "\<\"int-C\"\>", "\<\"max-C\"\>", "\<\"100y-C\"\>", \
"\<\"150y-C\"\>", "\<\"200y-C\"\>", "\<\"deltaCmax\"\>", "\<\"deltaC100\"\>", \
"\<\"deltaC150\"\>", "\<\"deltaC200\"\>", "\<\"ZEC50-C\"\>", "\<\"maxT\"\>", \
"\<\"100y-T\"\>", "\<\"150y-T\"\>", "\<\"200y-T\"\>", "\<\"ZEC50-T\"\>"},
     {"\<\"B1-CC16c\"\>", "588", "1251.5680333948405`", "1219.9904383264748`",
       "1187.7886963440098`", "1172.3662282729813`", "663.5680333948405`", 
      "631.9904383264748`", "599.7886963440098`", "584.3662282729813`", 
      RowBox[{"-", "63.77933705083069`"}], "2.950700612808665`", 
      "2.4441260472703115`", "2.865003806388763`", "2.950700612808665`", 
      "0.4208777591184516`"},
     {"\<\"B1-CC16b\"\>", "588", "1267.222070051787`", "1228.9285722513973`", 
      "1189.466791858944`", "1173.9842325042234`", "679.2220700517869`", 
      "640.9285722513973`", "601.4667918589439`", "585.9842325042234`", 
      RowBox[{"-", "77.75527819284298`"}], "2.9289408842421185`", 
      "2.5015582581905043`", "2.8667102294738984`", "2.9289408842421185`", 
      "0.36515197128339416`"},
     {"\<\"B1-CC13c\"\>", "588", "1220.9174165930212`", "1091.578482927782`", 
      "940.115901965126`", "897.4049957324456`", "632.9174165930212`", 
      "503.57848292778203`", "352.115901965126`", "309.4049957324456`", 
      RowBox[{"-", "280.80151462789524`"}], "2.248400460494755`", 
      "2.212916741631391`", "2.0864064531768665`", "1.8451268480835685`", 
      RowBox[{"-", "0.1265102884545244`"}]},
     {"\<\"B1-CC13b\"\>", "588", "1233.1747313775288`", "1106.8711570374326`",
       "949.1694008663673`", "901.4298072894759`", "645.1747313775288`", 
      "518.8711570374326`", "361.16940086636725`", "313.4298072894759`", 
      RowBox[{"-", "284.00533051116156`"}], "2.288214700129879`", 
      "2.2587713706986663`", "2.1050551812233493`", "1.8504553123721617`", 
      RowBox[{"-", "0.15371618947531696`"}]},
     {"\<\"B1-CC07c\"\>", "587.473`", "1193.529276147492`", 
      "1062.710370626211`", "916.1058777887872`", "856.4666056077081`", 
      "606.0562761474921`", "475.23737062621103`", "328.63287778878725`", 
      "268.9936056077081`", 
      RowBox[{"-", "277.42339835870484`"}], "2.138808573344054`", 
      "2.1386556482962003`", "1.8670289879519064`", "1.626495242499509`", 
      RowBox[{"-", "0.27162666034429384`"}]},
     {"\<\"B1-CC07b\"\>", "587.473`", "1240.6109681678608`", 
      "1112.786802582363`", "923.8450175386274`", "831.1276895322995`", 
      "653.1379681678609`", "525.313802582363`", "336.37201753862746`", 
      "243.65468953229959`", 
      RowBox[{"-", "316.76595062923343`"}], "2.232447216204373`", 
      "2.1426873920922476`", "1.7642798590671496`", "1.5874586391952923`", 
      RowBox[{"-", "0.378407533025098`"}]},
     {"\<\"B1-FG\"\>", "589.3629874815281`", "1077.438945425362`", 
      "1042.7151804999858`", "982.5885093752165`", "955.2491067587328`", 
      "488.0759579438338`", "453.3521930184577`", "393.22552189368844`", 
      "365.88611927720467`", 
      RowBox[{"-", "94.85043605014539`"}], "1.704443669838699`", 
      "1.6942432311476758`", "1.6671688859758493`", "1.6925875837644784`", 
      RowBox[{"-", "0.027074345171826497`"}]},
     {"\<\"B2-CC16c\"\>", "588", "1085.6916799242294`", "1062.013810737274`", 
      "1037.8742774190175`", "1026.3187305261445`", "497.69167992422945`", 
      "474.01381073727407`", "449.8742774190175`", "438.31873052614446`", 
      RowBox[{"-", "47.81740250521193`"}], "2.3833390427582857`", 
      "1.9743894838546228`", "2.3160032023936474`", "2.3833390427582857`", 
      "0.34161371853902467`"},
     {"\<\"B2-CC16b\"\>", "588", "1097.4165525810463`", "1068.6964292456887`",
       "1039.1000939425287`", "1027.4881744250254`", "509.4165525810463`", 
      "480.6964292456887`", "451.1000939425287`", "439.48817442502536`", 
      RowBox[{"-", "58.31645863851759`"}], "2.3656877713143714`", 
      "2.0214518887915913`", "2.3175224180635325`", "2.3656877713143714`", 
      "0.2960705292719412`"},
     {"\<\"B2-CC13c\"\>", "588", "1062.6880624821072`", "965.6838622455166`", 
      "852.0869265044126`", "820.0537468246879`", "474.68806248210717`", 
      "377.6838622455166`", "264.08692650441265`", "232.0537468246879`", 
      RowBox[{"-", "210.60113597769453`"}], "1.8056444427912814`", 
      "1.7801892840163376`", "1.6621245366491155`", "1.4584541924420462`", 
      RowBox[{"-", "0.11806474736722206`"}]},
     {"\<\"B2-CC13b\"\>", "588", "1071.8810485647534`", "977.15336782849`", 
      "858.8770506811487`", "823.0723554928609`", "483.8810485647534`", 
      "389.15336782849`", "270.8770506811487`", "235.07235549286088`", 
      RowBox[{"-", "213.0039978836047`"}], "1.8380935762791817`", 
      "1.8172163183194179`", "1.6767498890355257`", "1.4623325586457965`", 
      RowBox[{"-", "0.1404664292838922`"}]},
     {"\<\"B2-CC07c\"\>", "587.473`", "1042.015915573726`", 
      "943.902140041617`", "833.9494348315466`", "789.2205499046304`", 
      "454.5429155737261`", "356.4291400416171`", "246.4764348315466`", 
      "201.74754990463043`", 
      RowBox[{"-", "208.06648074217946`"}], "1.7170371788386085`", 
      "1.7170371788386085`", "1.4812688405723435`", "1.2798219989514494`", 
      RowBox[{"-", "0.23576833826626498`"}]},
     {"\<\"B2-CC07b\"\>", "587.473`", "1077.3264761570895`", 
      "981.4583519865085`", "839.7520131830433`", "770.2140171695323`", 
      "489.8534761570895`", "393.9853519865086`", "252.2790131830434`", 
      "182.74101716953237`", 
      RowBox[{"-", "237.57446297404613`"}], "1.7992450227166639`", 
      "1.7195985988565212`", "1.396741700343727`", "1.2486423364808292`", 
      RowBox[{"-", "0.3228568985127942`"}]},
     {"\<\"B2-FG\"\>", "589.3629874815281`", "935.4204565514946`", 
      "907.4233936141687`", "864.8875748005903`", "845.0579432955454`", 
      "346.0574690699665`", "318.06040613264065`", "275.5245873190622`", 
      "255.69495581401736`", 
      RowBox[{"-", "70.53288175090427`"}], "1.3002151091830734`", 
      "1.2852417868282322`", "1.2539199863575061`", "1.2673393875235672`", 
      RowBox[{"-", "0.03132180047072608`"}]},
     {"\<\"B3-CC16c\"\>", "588", "1915.0734469574265`", "1851.8969484847814`",
       "1787.4463718289928`", "1756.5562190503156`", "1327.0734469574265`", 
      "1263.8969484847814`", "1199.4463718289928`", "1168.5562190503156`", 
      RowBox[{"-", "127.62707512843372`"}], "4.672311366800934`", 
      "3.8737692555284107`", "4.528052727379349`", "4.672311366800934`", 
      "0.6542834718509387`"},
     {"\<\"B3-CC16b\"\>", "588", "1946.4441396012573`", "1869.8571440759279`",
       "1790.9335833096309`", "1759.968464610384`", "1358.4441396012573`", 
      "1281.8571440759279`", "1202.9335833096309`", "1171.968464610384`", 
      RowBox[{"-", "155.51055629162647`"}], "4.638166866337812`", 
      "3.960902361279203`", "4.529811665917556`", "4.638166866337812`", 
      "0.5689093046383533`"},
     {"\<\"B3-CC13c\"\>", "588", "1853.834832647813`", "1595.1569655263293`", 
      "1292.231803694347`", "1206.8099912555433`", "1265.834832647813`", 
      "1007.1569655263293`", "704.231803694347`", "618.8099912555433`", 
      RowBox[{"-", "561.603028953466`"}], "3.619789590022503`", 
      "3.544369485939683`", "3.428802877791833`", "3.098453488364881`", 
      RowBox[{"-", "0.11556660814784969`"}]},
     {"\<\"B3-CC13b\"\>", "588", "1878.3494621753616`", "1625.7423137345593`",
       "1310.3388014907887`", "1214.859614366981`", "1290.3494621753616`", 
      "1037.7423137345593`", "722.3388014907887`", "626.8596143669811`", 
      RowBox[{"-", "568.0106606845729`"}], "3.6809838935865473`", 
      "3.6169328570606964`", "3.4606547010325053`", "3.1092762496376305`", 
      RowBox[{"-", "0.15627815602819117`"}]},
     {"\<\"B3-CC07c\"\>", "587.473`", "1799.5827180806766`", 
      "1537.9432928455722`", "1244.7316495089003`", "1125.4508283256014`", 
      "1212.1097180806767`", "950.4702928455722`", "657.2586495089004`", 
      "537.9778283256014`", 
      RowBox[{"-", "554.8510685717763`"}], "3.443760160401817`", 
      "3.4407550488384104`", "3.101164089364882`", "2.7654038422040315`", 
      RowBox[{"-", "0.33959095947352846`"}]},
     {"\<\"B3-CC07b\"\>", "587.473`", "1893.7489357493741`", 
      "1638.1006048184447`", "1260.217034851719`", "1074.7823789002016`", 
      "1306.2759357493742`", "1050.6276048184448`", "672.7440348517191`", 
      "487.30937890020164`", 
      RowBox[{"-", "633.5319008976551`"}], "3.556743620663843`", 
      "3.451033130082277`", "2.949641873448344`", "2.7044206637005663`", 
      RowBox[{"-", "0.5013912566339331`"}]},
     {"\<\"B3-FG\"\>", "589.3629874815281`", "1732.2535736918485`", 
      "1682.4377694773266`", "1571.776371619649`", "1511.039530963299`", 
      "1142.8905862103204`", "1093.0747819957985`", "982.4133841381208`", 
      "921.676543481771`", 
      RowBox[{"-", "160.4772020721996`"}], "3.266470312617746`", 
      "3.0945609811154218`", "3.169825143969832`", "3.266470312617746`", 
      "0.07526416285441018`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.824232030673812*^9, 3.82423281345475*^9, 
  3.8242328657410493`*^9},
 CellLabel->
  "Out[2118]//MatrixForm=",ExpressionUUID->"3b51b784-805b-4ffb-a207-\
972ee40e7f51"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<ZECMIP_B_overview.csv\>\"", ",", "ZECMIPtable"}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8233459108165894`*^9, 3.8233459683836703`*^9}, {
  3.8233485869686327`*^9, 3.8233485875486336`*^9}},
 CellLabel->
  "In[2119]:=",ExpressionUUID->"6c136577-d08f-47b5-ab6e-9767775c6b2b"],

Cell[BoxData["\<\"ZECMIP_B_overview.csv\"\>"], "Output",
 CellChangeTimes->{{3.82334594681164*^9, 3.8233459711546745`*^9}, 
   3.823348746646912*^9, 3.8234114335277896`*^9, 3.824232927536729*^9},
 CellLabel->
  "Out[2119]=",ExpressionUUID->"d9671775-bc71-4e07-9071-e8e6122af60d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"B1Cplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Red", ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Black"}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "200"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"588", ",", "1400"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Year\>\"", ",", "\"\<GtC\>\"", ",", "None", ",", "None"}],
        "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<a)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.05", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.823348859493126*^9, 3.823348913109201*^9}, {
  3.8233489497542524`*^9, 3.823349026924361*^9}, {3.8233491194754915`*^9, 
  3.8233491735825677`*^9}, {3.8233492097266183`*^9, 3.823349218448631*^9}, {
  3.823434641903642*^9, 3.823434667526678*^9}},
 CellLabel->
  "In[2024]:=",ExpressionUUID->"caa9a136-255c-42cc-9d42-f17bac02d8e7"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B2Cplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "11"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "12"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "15"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Red", ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Black"}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "200"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"588", ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Year\>\"", ",", "\"\<GtC\>\"", ",", "None", ",", "None"}],
        "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<b)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.05", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8233492711747046`*^9, 3.8233493371917973`*^9}, {
  3.823434678152701*^9, 3.8234346948557243`*^9}},
 CellLabel->
  "In[2025]:=",ExpressionUUID->"7508d29a-c684-456e-a63f-c483a5bbcf82"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B3Cplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "16"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "17"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "18"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "19"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "20"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "21"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "22"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Red", ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Black"}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "200"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"588", ",", "2200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Year\>\"", ",", "\"\<GtC\>\"", ",", "None", ",", "None"}],
        "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<c)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.05", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.823349363114834*^9, 3.8233494066418953`*^9}, {
  3.8233669485500827`*^9, 3.8233669501000853`*^9}, {3.8234347013867335`*^9, 
  3.8234347160877542`*^9}},
 CellLabel->
  "In[2026]:=",ExpressionUUID->"7359fa93-166c-41c9-ac92-9e518a6cd882"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B1Tplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "23"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "24"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "25"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "26"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "27"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "28"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "29"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Red", ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Black"}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "200"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year\>\"", ",", "\"\<\[Degree]C\>\"", ",", "None", ",", "None"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<d)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.05", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8233495010510283`*^9, 3.823349501461029*^9}, {
  3.823349537075079*^9, 3.8233495727901287`*^9}, {3.823434752083805*^9, 
  3.8234347868878536`*^9}},
 CellLabel->
  "In[2027]:=",ExpressionUUID->"875e8063-b35e-45ba-a561-4f699aa2403f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B2Tplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "30"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "31"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "32"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "33"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "34"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "35"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "36"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Red", ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Black"}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "200"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Year\>\"", ",", "\"\<GtC\>\"", ",", "None", ",", "None"}],
        "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<e)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.05", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8233496637332573`*^9, 3.8233496980183053`*^9}, {
   3.823349783278425*^9, 3.823349797320445*^9}, {3.823434793558863*^9, 
   3.8234348045298786`*^9}, 3.823434835754923*^9},
 CellLabel->
  "In[2028]:=",ExpressionUUID->"37aff4af-a8b5-44c6-90a8-cd838e7634a9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"B3Tplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "37"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "38"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "39"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "43"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Red", ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
        RowBox[{"{", 
         RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Black"}], "}"}]}], 
     ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "200"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year\>\"", ",", "\"\<\[Degree]C\>\"", ",", "None", ",", "None"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<f)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.05", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8233498161054716`*^9, 3.823349853999525*^9}, {
  3.82336034828071*^9, 3.823360348980711*^9}, {3.8234348433659334`*^9, 
  3.823434870593026*^9}},
 CellLabel->
  "In[2029]:=",ExpressionUUID->"31c0ee1a-97f9-47bb-8d1a-a2ca4a88a920"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SIFigureZECMIP", "=", 
  RowBox[{"Legended", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{",", 
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<Atmospheric CO2 (Gt C)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}], ",", 
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<delta SAT (\[Degree]C)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<B1\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}], ",", "B1Cplot", ",", "B1Tplot"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<B2\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}], ",", "B2Cplot", ",", "B2Tplot"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<B3\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}], ",", "B3Cplot", ",", "B3Tplot"}], 
         "}"}]}], "}"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Red", ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", " ", "Dashed"}], "}"}], ",", "Green", ",", 
          RowBox[{"{", 
           RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Black"}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<D16-calc\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<D16-calb\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<D13-calc\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<D13-calb\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<D07-calc\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<D07-calb\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Fair-Geoffroy\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", "Below"}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8234340921908674`*^9, 3.8234341448579416`*^9}, {
  3.823434287016142*^9, 3.8234343858732815`*^9}, {3.823434451432374*^9, 
  3.823434457073382*^9}, {3.8234348869050493`*^9, 3.8234349374811215`*^9}, {
  3.8234445905422926`*^9, 3.8234447462905116`*^9}},
 CellLabel->
  "In[2030]:=",ExpressionUUID->"5bab5ff8-ff4e-41db-95f1-c4fc66dde41e"],

Cell[BoxData[
 TemplateBox[{
   TagBox[
    GridBox[{{"", 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Atmospheric CO2 (Gt C)\"", FontFamily -> "Helvetica", FontSize -> 
            18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style[
         "Atmospheric CO2 (Gt C)", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"delta SAT (\[Degree]C)\"", FontFamily -> "Helvetica", FontSize -> 
            18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style[
         "delta SAT (\[Degree]C)", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]]}, {
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox["\"B1\"", FontFamily -> "Helvetica", FontSize -> 18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style["B1", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJw1lns41Pkex6foIhVdV+WWLYR0Qcjg7RaSZNwGgzE3M4jtJFRkUrJuS61p
CxOVblSsLltbJ6RVqt0kRUqXbZUG2dNlE1tt55zfZ55nnnle8/69fq9/vvN7
Zq4gkSMezWKxWr68//v5/9efzv/74GeC+QLLq63mVUcTj4eth2VTpZBYGxrC
/BsjYuLpqPF7H9goJdZBuIGgc3w8sS5Sss9KexOJDbEtq1OVmkRshPvaFT73
NhLPw0ddpzoDObExcttxIiWb2BSTXwZx1YuIzfDq172pg3uJLVDd714gOURs
iWy2rK2kjngxotTDrRobiZcgX7LdbOod4qXoW5uQ3/Kc2ApZPhPYxh+JrTEq
e3uzbOY2hm1wOmF1T8dS4mVY/1LRc4ZDbAuL+ffeeicT26GotpfTpSS2R0h3
TezxFuLlcHawvqM2TOyA0tg+h7mLtjPMhlb+fk8XGbEjZnQJwkqPEjvB8m16
FH+A2Bn7ObKC87ZZDAMHpk6yvJrNsBx43O33r/Ju2l1wr1OL62u/g9ld8M3a
KVW3ShhmuWKZ54ihzuhsZneF8dfXjk9IZJjlBr17V/vTntLuhguLEx/ahH7L
7O4wLSo+P3CXYbk7quaNNV0dksPsHrCq6Ch+/ZBhuQd+nFfeJZXkMvsKxD82
MV76hmH5CkzSHz3rSmYes3vC7KKdSe70fGb3RL7e0IIXRxhmeeG9rsFcW3YB
s3uhfcfeObdbGWZ5Qy0i2FFD/B2zeyPFctT9pUMMs1aiL3bfrgM5hcy+Ep3s
YHAnFjG7Dy4p3A0jOAzLfZB0YufGXbtpX4UQoU1+TSftq3DebMhgnc5OZvfF
gz+D3EqCGJb74pn3poG3hbSvhotil5xzlfbV0L3yu1n+CO1+cBilPX+bxS5m
94MJ+9mvhmEMs9ZgYFzXweDtDGMNjMe+1NOvpuvXoFpZJk79jeGGNfC44vxu
7Svy/aHP4+pN1vye8f2R1j2clDCPYbk/rDlz7KuWM9zgD67y0r6nvgyzOHiu
EOnaR5LPQensIyc748jnYJztFN2+ZPI5mKjX6qDMID8AVj8VuOrtID8Amtnx
OiW55AfgQXvZz64F5Adga0delcd35AeiwNs2vpV2BKLKpnq6Vj75gZjV7PLS
PIf8QNQ/v6rll0V+EPxaPP32yckPwiGDnifszeQH4bXnEz+fDeQHoVd1JOZF
AvnBUL9x1NJCSn4w7j+K7V8STX4witnp9pPDyP9y/ZJDX7VzyA/BKY827WIf
8kMwyT80nOdOfgie7Z852t6R/BAc97LVsl5GPhfeH1LOBS0inwuhqjuv0pR8
LjRL1cvmG5HPxePUFdUP55AfiuT+r4NuziA/FEffJNv8pUV+KIZntzpUa5Af
iildgz31auSH4e/Cn3QXfqLzFwbL6+/9+ofo/IXB20sa//4Nnb8w2PRGtnkN
0vkLx0pvW98HKvLDIVOL1Kx6Tn44VF5vdtf+Tn446n788JvqEfk8/Kdp7NPA
B+TzkKKIc+vrIJ+Hdz/crKlqJ5+HnFWG+kW3yY+Amd2khj30+0AETNQr/m68
QX4ETrED4jVayI/AojLB3fhm8iMh9hCZqprIj8SF80bpGY3kR2LzhTot83ry
I3H8SINj30XyozBoMmX7pZ/JjwI7bknawXPkR2GYF9C15yz5UbBScOKUp8nn
487wo6m1dQwb8nFg5fWWW7V0Pz7uqzaUjZxkmP9lr4w8tvQE3Z+PLROuGCTR
86KCjxdpMqf6Y9TjY3dPAmfaUYaf8LFE4nw28TD1o5HHLW69U0n9aHTo5U1z
Pkj9aNwKvjlSu5/60ZDbN2ktqKB+NMa0PXt0eB/1o+E69TPLTEn9aPQcOzij
rpT60fA9ldvkVEJ9AVYHap27tYf6Ajhn1h4W/UB9AVJNy7w+KqgvgPKTK29v
MfUFiJW9rbT7nvoCDN7cquraSX0BSi/3DmUUUV+AjzVqFSaF1BfisjtO3S6g
vhD/TgzX2JJPfSFaBUZpFnnUF6LAw673YQ71hZA5PrEo/Jb6QqhtvGHulk19
IUxeq64NZVFfiO5yd1UNPe9ZIszquJEi3UZ9EbYq2eFGmdQXYeHZDxndcuqL
sMN6oG1vBvVFWCGOcw3ZQn0RNJ5+dWlGOvVF4JXfXHZ3M/VFMP8jc59iE/XF
8PjDsTd4I/XF4LHej5uVSn0x7FLzXj9Ipr4YzpuqleUbqC+G/4brn4VJ1Bdj
pkJbe8F66ouRyfFtfrWO+mJoq/fNPvMN9SU4FvZsbFoi9SU4cP70NrcE6kuQ
F8rN01xLfQnOGNvrtMdRX4J0X/P5yljqS7AhRnRCIqO+BAmOSccXS6kvQfA0
J/0RCfVjcGz960+/iKkfA7V1Gj47RdSPwdtAx888IfVjMO10ls4CAfVjUPN4
avE7PvVj4HTSO/FyFPVjML64/khhJPVjMHesrUNEBPWl0DcqMzHnUV+KrYpR
cR/o/wGkGNOgVLsWSn0pNk28NribS30p5qT9tVASQn0pjvIvXLQJpr4UZ12a
SsYEUV8KHVVb890A6svgV/KL82EO9WXwjchTT/HfhX8AVCmmKw==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJw1lXs41Pkex4c2ds/sQYlK1yVk0lV0RPU26y73cRm35j5TKLrJVIwuLluu
5eQS0ebUtpaKFFbE6YKUTjqFslLSRTelWhW75+zvM88zz+95zXtev9cf852Z
70QbfKTqLBar+c/n/65/PV6v+v9FsAvMC3hmelb5s5D4a/SY3Zl5XEysA3HS
iJq6jHgSfOuGI9sUxFPgmGZhMCOCeDryM1KlmlHEs3FC70B6yWZiQ/DP33ml
qySeg0P11WYbVcQmmDbYFvQwiXguhvs0uWkZxBw4TZGGFuQRm8Oup/fTyn8R
L8Bkn0C7kgriRTjAGpyq0US8GNuuZhjkdxAvwZcL+1YXPyG2wIy5HQ8Cx4iX
QkuY3f7V1N0MW2KJdSTvmSWxFY5lp/O8/ImXoeVceFmckvgfCJ+9QFp3lNga
9jnzz/neIF6O1p/0piWx9jBsgy3HVaZ5VsS2WB2mVLRGE6/AZCd3U94Z4pUo
GKo1k38kXgVeevz6hfZ7GQZaEopeXM9mWAW4mBWLQ1/QbgeTNY0LBlwTmd0O
3xlqO0aUMcziwsNog/dvk5OYnQuze7xnc5IYZn2PXF0vtu5n2r+HacJwZdTW
ZGa3R1zz82vDwwyr7CFKt7VxU6YwuwO01sc4s8f9wOwO0Mxir2xMZ5jlCLf+
ROdXs/YxuyO4XIfc8RUMs5yQrRz6d6TzfmZ3AmtZfWDSbwyznKHMcy06GZPK
7M54UzX7IEcnjdldsMvgnwP+JxhWuSDPW9c8blU6s7sise3m6KsOhlWuOFlt
lz9mkcHsbrh9vVpdfQfDKjdc4mxTX9hI+2pMe66vY6ORyeyrMaa3ltPrxDDL
Hd9+WFfUk0i7O75qWln7pZF2D1TEujt/+5l2D1wa7FB7sDiL2T2xtXxpR5CE
YZUnyo5MZwkP0O6FE0vuTn14gWF4AavUB+4+pvd7gW1cO53LPvAXN3ih2/ET
y8ScYZY3Fh11HspyYRjecLvt3lkgZljljVXzlclCJfneqN508O+jqeT7wEbr
2O+HCsn3geKtzY8BpeT74FzgCrniHPk+OFLW/PxDPfm+4P7aqrC8TL4vAjlm
v3u1kO+LHO2FH5TXyPeFaIAne0jM4mG0fiS8upV8Hmza7O5ymsnnYSO7vF58
iXwePOvajdMayPdDQ0rt+Zs15Pshwe7eYd9K8v3wHx2us9Uv5Pshgs+LyC0h
3x+Ph0oHcwvI90ecRekD72zy/dH/0a3k7n7y/WEQfPwJdw/5Adj5/Fz70e3k
B8Cw48qUrzeRH4CR6KXWqnXkByAqxyZTX0R+IGbp5Wd18MkPxGP9sRcXvckP
RKiBT/0j+nwbAuF4fl61HZd8PjxNqj3uLSefj8cvj3VXWZDPRxXP56MhnZcG
PnZsZ795N4f8IHi2DK4zmUl+EEb57VGnJ5MfBC39NxEZE8gPwovat4YX6Dyy
ghHN9zxpqUF+MOq8tdcOscgPxjLPp1qvPzHnuSEYb/uKMzgf6PyH4GV/jVHh
EJ3/EFiPyZY7vaTzHwKTz3Xxhs/ID0He4PwOc/p+sEJRa2XsKu4jPxR9E4YM
m3rID8WDCR2tLt3kh2JisW33uzvkh6E11karsYP8MFwPm+RYfpP8MIjjPu2t
uU5+GDT03r9+0Er+GvDZ968YNZO/Bq4b4uVxl8lfg/UtfY6vm8j/k2OODMdc
JF8AD6sAg0n1DM8WICTYPrrpV7qfAD1avS17ahgWCGBrXvi3gPN0fwGiZHXG
1lUMFwmwPJJjyKmkngDdfZv1zM4w3CvAlPG3jSxPUV8Ii1HEu5dRXwjOwwxZ
dCn1hbDffGpO0UnqC3Gs6b525wnqCyF5+zZ52nHqC5HjcnFEVkJ9Ia4+knfW
/Eh9IWpkV4v1j1JfBM33w3dji6gvwji1CvajQuqL0Gj5vo1XQH0RuubF1LTm
U1+EUnvuRuc86ovQ4OF7uCWH+iIMxlv1ex+ivgjtgvLR+9nUF2OLq/TI+oPU
F2NoevaucfT7DDFk3VfkhzOpL8a7ntSJ1hnUF8M2YKVrZxr1xYi6VdO5I5X6
YsQesEo32k99MTIkarZtP1BfgsJ2v8rYFOpLYBTOuTE3mfoSNH6jIetKpL4E
NdX/5aXtpb4EkY6tsfZ7qC9Br+nCs593UV+CijPOT6sSqC9BuNR6ZKOK+lLY
Lu5tWxRPfSkyC+vcXu+kvhRZ5Z0hp3dQX4qrkp+fb9pOfSnKmtUeLVNSX4q6
qJdLvmyjvhT9TqcvN8VQX4qP5SVp+7ZSX4ZrjYu287ZQX4Z5Z0/tnLmZ+jK0
cCOTn26kvgy/6KaknY2mvgx+7He7d0VRXwajTWGhXhuoL4PFkLnOrPXUl6HT
ITLrZQT15Thd1tp1IZz6cnzSSOlNX0d9OUpjovOFa6kvh13jrXFLFdSXQ0c/
dqKmnPpy+CkKGrqk1JfjluMTzXL6/++VQzhD1rdbTH0FjAcSXPki6ivQZT+2
fKGQ+gpUvnlXNl5AfQXYmVeK74VRX4FlN+ZoV4ZSXwFZ++jQvhDqK5D7JMlF
Ekx9BUxzFmivCKL+WiRczYU+n/prYeFQ0vUqIAt/AIVcuL8=
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            LineBox[CompressedData["
1:eJw1lQdUVGcahkewYACRqNgRBcEoRUoCMZQXqQ460pmhTWMKipTsCFJUJEpU
ioJrYRUpBkVQNIIBJegQcIEkFFFXFI24lihuQlEjLgLZ8n+cw7nnmZfnPPec
ufx3qSTOX6bB4XDa/vP73+v/fwZd/ncRZYB9gH6zyymVYmItND/ztD0rJZ6J
YLOjXlpy4tkYsx2YeV9JPA9t7woibGKIF2GJ+ViFWTyxEd4Y6wlvqYiXYcWn
DRN+KcQmGImtkDelE5uiu2jTAHcv8QoITDxP6uURr0SiGk6Ox4nN4ZO5eMvE
aWJLvPJ8fyarhng1yupHbeY2E1uDr9/0ofcOsQ2GZzrI5/YT2+LR/Cuvp0/6
irEdNKx+fPrHAuJPUVjz4KKxA/FneODgq7zLJ7ZHyGr394LtxA6IvPZX/usy
4s9RmTb7YH838Rq87HxYvXvybsZfYF5KaqPmF8SOGBtUxZQlEjtBs+7Kg5Ja
YmcctrKIWjlO7ILkIj9rJXcPY8A68NaU1BOM04Fy1eKRpDe0u8JgX6KX0j+T
7a7Qzszmen/HmLMW4pLfdk41+prta7H0a9fWjAOMOW5Iif2pK2fyXra7Ye76
JzUvdjDmuMOTl9DrPk67O1QD12e7Z+xjuwfeJ4hHt320n+0e2N9aXaA4wpjj
CUPnjoDM5Vls98RtHdUsl1rGHC+cfJlQPcjNZrsX9rg6fTP4iDHHGwkG15qy
t+aw3Ruejz4IdbVz2b4OGpu9wmqLGKevQ0PSCUWHzQG2c1FXqcc72sQ4nYvW
RyULz684yHYfXL6Qr7q0hXG6DyovmCRlXqR9PfSFIR09g7SvR6+qcyTSMo/t
G7Cre3jRHSXj9A3YdllwfbyIdh54mUn8M7do50G8J7+lVDOf7RtxVGd1SbsV
4/SN2Hx0iK/Lp90XpsPjnr5pjOELcY/1/pwT9Pe+EJzUbWuuY6z2hcTA4PZY
F/l+aJvUYe79jHw/dBs/U119S74fLv7S0ZagcYj5fohrbpqZp82Y448g5UV7
6DOGP4KFrnGVsxin++Max0eiQaz2h8Gp+NgkPfIDEL2j5LHzdPID4P+h0iWX
Q34ANE+dzT9O96MOAO98TuuJF3T/gaj415klLffo/gOx1Fd2itdG9x+IRdkm
V2W15Aei53hKs+M35AehMfV++6SD5Afhs+X2vL4U8oMw/27PKEdGfhAshNHn
9vHID4bRyKhboT35wYhOPH8xzIj8YBQbyoYea5EfDFPDVabcIfr+Q/B3cV55
5T3GCAEmTq9c+AM9DyHonqfVW1HBWB2CKWV12ZsOkc/HP4J3P1akkc/H95du
bq2Skc/HYOkrHe+N5POxxmLge8fPyRfgj8Dy+YeMyRcg2eh2hO8M8gWIMtdt
bB1hz7dagHi/d3O6n9DzHwq3KVXJyk7GCEVS3ajx3nr6fwhFTnGp3KKc/FDc
3lxxLvAw+WHY0XAp+d8Z5IdhgR83emEC+WFQlXEta4Tkh6FVzyG/kUd+OKbO
P62CM/nhqJpW/KOFJfnhKEmeczLTkPxwTAxxdb31yI/A7y48bhyH/AjUez20
e/2EzoMI2NgmVLa2MFZHwC68/2fBOTo/IpGXJ8gryWOMSPQXh846nkR+JDgr
zQ64RpIfCVXHBfFBD/KF8M+vn/aVBflC/HOt7uI5BuQLIb+aG7Z2gp1faiGS
e3b9bepLOt9EeDuttj3iFmMjEczN2ya7X2MMEaRdkZsun2UsEkG1Nd6t6jCd
hyIk3j/0+8oMxsUiWBiuf2IWRz0RPjoW+W1JOOM+ETZ4m3MOc6kvRvN1vdxx
B+qLsU903arXjPpitN+r7jSbS30xrjXmb3k8lfpiWFgXLp7yjp3fxWKkeSzT
OvgrY7UYM2PfKnf2MO4Tw2rzi9yuNsYcCd499e5Nr2dsJMGVXeLGnPOMIUGD
dPzGmyLGIgm0373ZUZ1P7wsJEkeq8lv2UF+CrqK6Wstk6ktQf9ev5nkM9SXQ
j9WI/E1EfSkKVlgXIIj6UuhXNPB/WUd9KXizCwubnakvRVFgcuKQLfWlMNEK
mJB8Qn0pNjxfLp67hPpSrCo+cFNnDvWlqDNOznfVpn4Uym1+GKqeRP0odDoO
eEtG2PsRUdgXe+8Dd4CxKAr6T0XbY57T+zQKY8NGHjceMi6OwpFU03sBdxir
o2BoV95q0M64LwrSPvU5nRv0/pVhu3LVCrsGxkYydDdyfs26TH0Z+gqTTn5c
RX0ZirvLdFpOU1+Gmni3kTNF1JehNTVudc0x6suguSYxuz+P+jLs1St4tS6L
+nL8pfeu3c3d1JdD8+f64J07qC9HR5GxV8A26svhwtXXXP8l9eXoG9qWq4yh
vhyzXfTfnJFTX44NwyYe08XUl2OwTlaQFUZ9BYIc1DMsg6mvQKGndduAL/UV
cFp3YrjTh/oKCL8tvdruSX0F4nLTgl+4Ul8BmVU3Z4kT9RXY+tOR9/EO1FfA
etXTPQ9tqa+Esc/dAakV9ZVwHtqSqbmK+kocs5QV1ptSX4llLfNyspZRXwnT
ZOmlLw2pr8Rhw/TY+AXUV4Jb+sp0twH1lchu8vI4/zH1oyEodbZ/NYP60Rib
oYh10s7Gnz9jpcA=
             "]]}, {
            Hue[0.37820393249936934`, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJw1lQtYzPkeh6c6K6lO2VUkaZR2GbeUiVB9uulK96abmvtMWwehDSUTRas6
KuFQu2aFNhY7zrZsas1KrikkYUnUFpKiYrHpOOf8vvM888zz9pm395n/M/P7
TxGvDJXpcjicyx+f/339/6Pf7X8vws1gf8CzL6o2HBURj8bjUs3JSgmxKXYV
Wd4zkBOPQ0TZMvEDJfEEfHn5A39BMvEkmP+te8B+FTEXwYvbpz1aS2yD4crB
bbINxFPxWUvL5DYV8ed43dOavSKXeBq6ujJ0XYuIebBc6HMirZR4Jr7Vzdvi
X0E8G6WZzbFPfyK2h2ltVM/288RzYRgytTTxNrEDjO4XhNU9I3ZEUfWbWXd1
tjCeB52zA0Z9lsR8+L2MtQhwJnaC+831tvwY4vlIn3GteyiTeAHWaOvn364g
dsYzZbr+5BbihUh3dxZ/pp/NeBGu5uz2fetCvBiVGw+l/30DsQv2tfzonH+G
2BW+wosvD+rmMHaDxtFscHMQMSAYaLDzOcBYBdTdbzyr/552d7hmF1k3RW9l
uzvSzBef3PcrY44HxmSt14mZvo3tHsib1Pm0dy9jjicmLVPrTDPNZbsnzG90
8K/kMeZ44VxdzsGtRl+z3Qtm5cNVI0WMOd5w26vecMlyO9u9kdlZHSirZMxZ
ApWr5FTgwjy2L8Gfgqr9T64x5vig/sPTY3sk+Wz3waQOh/7j7xhzfJFRF6RJ
Ly5guy/evlFv8Ob9k+1+mD4hdEHwb4xVfphokpLaFrmD7f649tPBg47PGKv8
YRsdxA9wKWR7ABzeO62s3MJYFYAz9z6JabtIeyAeXk0q/5dBEdsDMSqrtSbf
lzFnKYbvdWhSs2lfCq/TSx6Z1dK+DFccLHbNf0X7Mtjl5Kw7ZlvM9iDkfDr0
JDSEsSoIjYITNkbptAej1PK97wU1YwTjkarHP+0cvT8YmUfuHrZqZ6wNRrGd
mYn2LfkhMM8yHEg22cn8EBxXKfudpzBWhaB8tdjecw5jbQiG7OZWHXFmzAnF
Lqc5ZXtAfiiC1t+K4nuRHwo/XHp+klgbilvf9XM9PMgPQ/G68XXmLuSHIWN1
Yo+MT34YYi7sCpTNID8MejUPCv2tyQ9HvldPvf9Y8sPh+r72zl4d8sNhtjDP
5st++vzheO80MOr5A/r8ERhzLLt86RW6fhFI159ZWF1F1y8CgT83nIil66uN
wOZiY1PBdvIj0a+e0tq0hvxIpNjMdu2KIz8SlgN3d5/yJj8S7b6ZMfGzyRdg
3rh17q/MyRfgE/44Ue4IfR8EeP2ocpnjE8ZaATK+L16id4O+P1HIvF4dMaqa
MaKwUXA627ec/CiIK5P0buWTH4URd0G45ivyozF6x59fdQvJj8Z1uz2mGQHk
R0NX0/hbHZ/8aCR5juwo4ZIfA8fmtQY9huTH4PXlAzfr3tDvJQbHtuw6ZNnJ
WBsDJ7EipO86/X5isSn+l18W/coYsWjhzLk9fJT8j/uRXo3DPvJj4WZpndSa
S34chq3SHJ6mkR8HD98af5mC/Dg0nQ4b7ScgPw6cc03Xi3zIXw7eP7Imuiwg
fzmqzxsl+04nfzmsm0diNRPJXw477+TCVCPy41Hkor/RbpidH4hHR0dSuPFj
Ok/i8cL4cMC3Fxlr46FojLW9dYzOnwRUrs05daSE/AR0NdZ+sMogPwENt3cb
8KTkJ8Dhh1c6VwPJF8LqnJA3zGfMFYJru+lBjTX9PyHqTiYUjBrDWChEcOjL
c7cH6TwU4l1TshWvnbFaCL3c+pDhq4y1QkxQW/GWnmbcLkRtvUuO+SE6X0WY
Fm0aGVnMmCtC4QvrcgMVY4iwwtRi66wVjIUiNM4KmnE2jvoiOKu9bpwJoL4I
0ir+Je4i6oswr/JwSg+d5+0iOG0cdLOwpL4YE0qfVFUYUl8Mvn2QvOQvdj+A
GAfsCwfu9zIWilHd72+y6SHdL8RY7TW4ft0NxmoxAsel6V6sY6wVY3RUa47y
Z8btYmgUrS9iKhlzJPhr535+WRljrgQBbxQJvELqS2CaMjVTL5v6EpTXOvxo
t476EvSVjeHuSKa+BNp3fXquIupLcMWw4hv7SOpL0BTKWygLoL4Uh7LEc++B
+lJ8wWv/o8CJ+lIoHPecz5xJfSm0+mVeR22oL0XNqsddYy2oLwXH/ANfY0J9
KU6UdNZvG0V9KQzsNI4lw3T/lcH1fKJdyyBjrgy1d+r9/J4zhgyrfV4L+joY
C2XQ9K8wufA73c9luJKnmd/QzFj98f13LNScBsZaGWRWR63F5xm3y9Db01bS
V0N9OSZzU/+oqKK+HNfMvD98fZz6cuSOMW0uqaC+HCMHw+Mvqqkvx9p9tt9x
91FfjrFJQwf276S+HONnZ6V4FlBfjnGKEq7hNuorkP6g5/KQivoKWKwyLtBN
p74Ck9tsdtinUl+BjE0t7zJXUl+Bf3fxOL2J1FfAWC6+tV5KfQU0q5s1UxOo
r0Dnw4bW59HUV8K8d+32G+HUVyJpypFPbwZRX4mivs7aXn/qK9E9aWKb7RLq
K8Hp/ubyGnfqK1H3WP/3+4upr0Rq4fiU+AXUV2Kmeu+LN47UT4TD46XV38+h
fiKMH15zXTUjH/8BKxGsPw==
             "]]}, {
            Hue[0.6142719099991583, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            LineBox[CompressedData["
1:eJw9lgtUjHkfx581oey7DnK/ZEIlpS0qhfKdFDWV7s1kpprmnnFQuii36eaS
2FxyqSSxJJRLG1bsbOwqabdlQ1hvhVxyWbVnqaT33fP+f2/ndOZ8zvd8+sxp
5vk/j7l8ZbBqAMdxN/77+8+r4X2p71/tJuD++ZGl/++VGwZLRZL4VgzxSGSa
SscfUBKPRe69WvtXGuKJ6EsorWnSEfPxUdnYmLCKeAq+yj6ne5JIPA150qBn
WEdsiWynor6KDOLpqHEJHSzKIZ6Bt1uG82R7iW1RWRtX/vEwsR1snjRkBlcQ
2yNhycyKkqvEDtD1jGs1bySeBZvPpvx/PSWeDT+PI6uLe4gdUSBetI4/MoOx
E+acaXv3qz2xM674v+zpCiSeA6PU5qzbCcQuWBCZE322kNgVwiE6/6Za4rnw
cE3mpXUTz4NX0ftBf9llMp6PTv2sjbGxxG4Y5efYPfoEsTtk3w+favOWeAEK
W+OybrlkMQZ0YQcEY7cy1gN/d8x9yP837QKcWxM36s3cTWwX4CerM6+SChlz
HhgzePDxMt5mtnvg3sVltupVjLmFGBMUpVnTRvtCPDyi7ymO2MJ2TyT8fs8i
t4mx3hO2or437WFb2e4Fi4mVWXMeMNZ7YelCQe9AeTbbF+HidnPruteM9Ysw
KH/L846UbWxfjEH72tf+YpzD9sVITrdE7X7GnDdMmlattbbeznZvGI0crXS7
xJjzwUITK4Gf9w62+2CNcNPhg02MOSGsxs04mCr7hu1C5B66PMr+BWPOF+oJ
ukRj51y2+yI92unL6kTGnB/uG/aHPDtHux9KPmTfmP+Gdn8krd1UlDZtJ9v9
0ayPX58qZswtQfnAbKO/t9C+BOEjUufWf0d7AA6e77vd/Jj2APDSRwYNMdrF
9kAIu4YOXGLBGIFoufnj8yIPxvpAnDg8MKxfwtgQiL4629KUOPKDoJbUX5mc
QX4QCjq1UUN2kh+EIamyveIC8oMwQfnhs10J+cH4rdihr+pb8oPB53b2TDpG
fjB+Kuwu2HOE/GA0ZO3t8S8iPwS75vm0bdhLfgjkeXfHRuaQHwLxo/QzZnry
QxBoF6bt/v/7D0VpmWHCFDn5oRhi/NLjViD5oSh08sq0dic/FMtmvRDFziA/
DMYlgdUXR5Efhnyx5ycBR34Yupa1ZNq+Yv9/Qxgqt96+WXiHPp9wnOuNd6us
Zoxw6NICF+38lj6vcNxqPxUSsIP8cJSvFb0elEy+CNvnSesboskXYWVe7xcX
vMkXYappqtkdB/JFmDMiMdx+AvlipNxNOv/AiHwx0p0u4dFb+j6KMd93oqtb
M2ODGLt/THM0uk7fzwhIXB6GOFcwRgSSrqp09/LJj8CFL6URczeRHwG34+Hu
jvHkL0UHv/f2D1HkL8Wxanfuvi/5SzFfdPKPZFfylyLQtrIi34p8CbZ0jGuf
N5p8CXJyI8eLBpIvQdfr9ImNL9n1aJAgzPtMaFMdXZ9SvDqG7u/KGEMKXoJk
xbIcup6lULpVR3asIF+KXXmOlQ7B5Eei+47nIWdn8iPh0nozu2s8+ZFY7PWz
mZwjPxKrK+3d1rXT+REFy+hX/fMaGCMKCwIuVRVU0nkThWnTJM/yChkbomCc
VSqwyCI/Gh3H6s56riA/Gmd81grficiPhkOewp/vQX40znomWd2xJV8G4R7N
St5YxnwZ2rUzn57i0d+Twc9+h67+HTsPZTL49lYPkzyi81KGBvEAnriOcbEM
levi9lytYmyQoUZwwmXbUcYtMtw8UJzx/S46X2OwkLdhuk8aY34MZh5K+Th7
FWPEoCarrjU5mvox+NS77+3wAOrHYMnXPM9+d+rHwIFvae72NfVjsFgz43Ht
ZOrHoDlD3nFoGPXlkKuWN/7wBfXlOPJUYmPZxe4PkGP1k9cVjU8Zy+SY1FBt
eeUu3U/k2Dd72/KXtYyL5Yj2TosLuczYIAevc6NL92nGLXJUCRLu3i+m+48C
KUPPxf25mzFfAd36UIH7Zuor8AxHcwyp1FegOyKjLHEF9RWot37MSeXUV6Dn
sLlRfDj1FXBVVTlXCamvwMky/XSrBdRXIv6iMunabOor4Vb/a93W6dRXYpGH
1/01k6ivRNGLd/JvRlBfiX6nOc63BlNfCYNcbG3Xx+6/BiXabHhmlZ2MW5QQ
WvT0S1/Q/VmFoylV160eM+arEPtxqM70d8ZQ4UJIW4/ZTcYyFepXXc/0MTDW
q9BWXm6+q4pxsQrhJuc7P5yivgo1PWf5qUeor8LbwaaPxuRTX43JDzZKG3Op
r0bob4dbSjZTX42GD62nd2ygvhqcwGbY7kTqq9H5uTyiYjn11ShNOdnWpqC+
GuZ5jiYzJdRX40P8Z/vtwdTXILnP+toAIfU1OC40tdsuoL4G/j+bP7Nxpb4G
p0fkyx7bU18Dz9y4SUenU18DyfqpB9fxqa9BbdFmlWYs9TVoVpRxymHU1+Ja
8rFPccbU1yLj/MaOXI76WuQq+uWGj+z5SqbFzKadn/r/pOctLUomW4QFvGRc
rIWRmclX5a2MDVqc2NF4Y8IDxi1a1PjPtt1/m57fYvG8+P2TKfWM+bF4uvVi
weVr2fgP9c6kGw==
             "]]}, {
            Hue[0.8503398874989481, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJw91glQk3caBvCoHKIVRAWpiEYsHqgoyikej4DcmnAEEo6Qk4Ba0FWhKCrl
EkFuLYhYTsWLRdhFpRb7QaWoiFZoUeri4oLouhU8aD2q2Hb2/zYzTOY3b555
Jh/53v83RxHjpx7L4/Ha/vj7832hpSj1wD098P58yZL+/86bDMGNZbIuOXka
SjvSu6tVZBN4XZ46XiuSPBPnf/Y4ObqZzEdSjH5o3VayOTJsHV84xJI/QcKq
uKKGBPI8WDW1TvBOIS+Ae2vCJX4W2RLd1SeeywvJi9G/W3xvdSXZCl2a0rxH
58jLELU8YeIXHNkag5MOvE/uJC+HhdNw5fAgeQXWrcnbMWOUbAPf2qwLHibJ
zLY4Fluh1WxLtkNsUVpVeyDZHjPM236s2012QMCk2F++riI7QuJUf9C2k7wS
r8f2uCq0UpidMPcjk9Y0J/IqXEsdSPhPHHk1rgs7wmsbyWsQaDFYyB+TyrwW
kwuu2cg3kgHH0pHe/HLmRCD1zOmcG29pvg42vY+iPg5OY/N1mK4SHYn7hpnn
jH/9u11+x3I/mzsjptjTb0YJM88FK3e+PTllajqbu6DkwvShpBxmniuitrZe
NzM8wOauaBsj5acVMvPWozdYRykwz2Dz9bhvY+M4eo6Z54Ye3ckyPZdMNnfD
p+mbO3+6w8xzh1vhzaW3ow+yuTsmbs0MW6ebxeYe+KimJ+SzMuZEDwx2X3Fr
csxmc08czcmN9+9kTvREpXLL9YSoHDb3grvQqmv3KHOiFzIGTWZ5e+SyuTcM
ldzezBzmRG+sFQrWn/yB5j7g6/jHCKbnsbkPpC+W1toEMfM2QDzS6DLlEM03
wPDNjvpTHTTfiLoiofzKuHw234hu64eTbOyYeQL4Drjxu1Q0F6CdE/ek5NBc
iBydM6G255khRHuBbmHPXfq8EP79J8bFvGLmhOC35/n9ZljA8r4YvbrpZeYC
ZvgixMk03daJOdEXjocKXKZ6MXO+yFx9xMFNRHk/6N6cdWwklPJ+CND21/GU
U94PW2sry7cpKO+HcU1F0aUyyvsjxZS/R/uvvD/6Z+SsuBtAeX8odOeU+nhT
3h9Tz7vcLlxL+QA0OWd6D1lTPgBrGr7cnWxO+QA033vnfoC+LxcA/tzRmqUf
6PqJUPvAYFvV/+j6ifBC+9pPU+7Q9RPBvu3jzMpmun4iPDCrCEo4Q/lAJBn+
5sAdonwgjkq/cM3ZQ/lAOPzQUqcTQflALCkVPMZGygfBqkZQKKL/N4JQMy6+
UzKL8kGY1/lPG5kO5YPg0pWrEz9Evx8xhr/aoKnvZoYYx8ri40y+od+bGAXG
M1Iaqpk5MZxiC6zzcykvgfFw4fGGeMpLUL63oNZCSXkJtizuMbP3obwER7Wa
J3K2lA/Glgdn0TSb8sEYY/fm6KIJlA+G+5fu08b/wu4XLhgbv795XtBH908I
Fn5Xe+JDOzNCUPdaMNPoIt1vIahPuajKqqJ8COYYve1T51E+FAuiD2uX7KV8
KPp2PpYs2UL5UOQXlcZND6Z8KDZrFk0Q/3V/hyHdd+XNn+0oH4b5Yru8LgvK
h6G19LtlE4woH4ZbXEBxthblpeiMXXS46THbH5Ai8uHi4udXaZ9IEb2wMK7h
FDMnxcNTnnu0M2n/hKORczO+v4Xy4cgcGGxzElA+HNcGDK1Nl1M+HO/09urF
G1FehoSnI3y/N2y/8WVY1HtMWtnLDBmmlm/golqYZTJo7bonqaimfSjDHuvd
AV5ZzGUy/G3azCHpdmZOhoP/uPFZr4S5T4Yq17nB34L2qxyipNMT9BdQvxwJ
j/yMLhlQvxxFFo+Nr75i+1kmx52GjKblfbSv5bioXnL19VXmMjmeccY6JvXM
nByuThGB2UeZ++Tofl9SLUml/a+AzyrLV3ExzHwFRn59K3wkYYYCTwwm3Tru
Sv0KvD+ifaRuKfUr0OlxvX+8KfUrsP+J2fNTOtSvwFddaw0KXrDzp0+BkvnZ
RS33mXlKSAYtX9q1M/OVaDxbmTt0gRlKHJpc8vRRFbNMCbu0XXlz8uk8U2Lf
pen6xfuYy5TQDdz6QfApM6fEkrGSic4h1K/E9mabB9Ge1K/CbE2N44/21K9C
9vLo7u3zqF+FuXF9n3saUb8Kbs5P9EVa1P+Hn/1dfPglO2/LVIgt93XW62fm
VPD5vPF8bSdznwoVt4NO7m+h81mN5rPDk3PrmflqmG8Lf95WwQw1hNc3+1oV
MMvUOO11cG1LMp33aphkNH6ftIP61XC4vIofo6Z+NVq5REFaIPWrIYsfSG1z
p/4I2JVlP7N2pP4IrL/l3HLFkvojILxrv2LfTOqPwKBoOFGmT/0RWBitP6Th
UX8EbC/btxx6wZ5PuAhEqwc9BweY+yJgtsCrO+QOPb9oMLv8k6aRa8x8DfJ3
VYvPfc0MDS4f99fNrmWWaVCe0bMoq4KehzTomP92cc1h5jINdphG7XyaTv0a
XMyu3b4hgfo1yHlnUHwjhvojUdexSbpJSf2R8Px27sp5QdQfiTWW409/8KL+
SCy8bWv16xrqj8SKS2O99FZQfyRWZzxMdphP/ZHoL5aqk02pPxKzOh7s+q8B
9UchbITz36RF/VGweGKcpP3mAH4HQ4uXBQ==
             "]]}, {
            Hue[0.08640786499873876, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJw1lgs0lHkfxyds22VFl022WiOKXCIKifFVQuM+DIPBXAxDEaLSzaR3a1K6
vpHSrrCpt9QuZW0XIVJ2u1ijYktaKbUrZbPrfSlv73n/vzlnzpzPfJ/P85lz
ZuY5j7FsjUChxeFwbn18/u/1/483bhb6w4oXidlgb+Ande37/auJx+FmstbI
gyRiffhPNXQ9vIZ4GrK1QqZnpRLPQOokcXDTWuJZGDaIWpS8jpiLCrebIzmZ
xHNwKHvwqfUWYlP83l/duHob8TyEZi79InoHsTmc81LMZu4htsDVPiPnaweJ
rVDAX66nPEq8AN0bEioWlxDbovLKqJpfTrwQSXmhrj9VE9shWcMr62wktkdj
vt635RriRUgd9n4p6yFeDL0k0SWLIWIHvOr+s9ROdztjR9Spt3NPmxI7wbDy
3tyrPOIlqD1lVX08ktgZu/PV0sxNxEtR5eBYvOVrYhdsNXQU3m8gdsXsJ84T
yl8T8+DheTfUfNY/GLtB0+rJXeVHDBwwWNd1KJuxCvD9Of3F5cu0u0No01/4
1xDt7qjmz2sIdP6K7csw+U5R490sxqplyPhXoVbqLdqXY8ShaPF8gx1sX45G
2Ztn3UrGHA98s6b/VXYN7R7gWS4y7DTYyfYVON189z/16YxVK1DTnH3pnYZ2
T1RqL1ho5aRmuydCSl8azfiaMccLmuXco1Fjd7HdC/ZNA0VHUhhzvFGVN/pW
/Ih2b/Bncsc7rsxh+0rk5M0NLq9irFqJxOqeXHfT3WznY6zT6oC0A4xVfASV
65ZfeU+7Dya6ioeOK/ew3QctDdU7Drcw5vjieb7zhnlOuWz3hRzpqe3HGHP8
cNF2vQtvhHY/dOvN9+wT7WW7P5qMI1+rv2es8sdak8KSmk/2sT0AOxN1GryE
jFUBGMwQ4tU3tAdCvsl2dEMPYwSiszWc82rKfnZ8IIIzwuek2zKuDcSEFarL
YT6MOUHYqk6ozJczRhCumG8uc8kkPwg3+j/dFLKH/CDoT2y//7aQfAH87fiF
lmfIF0Cdnh8w6wfyBSg7K9zytJZ8ASYanvzy2E3yg2F1SDWaeIf8YFjamFuk
/0J+MPS6V0V0aMgPRnFH78a6NvJDsOevzxf4ESMES80ksUWt5IfAzmYR5/E9
8kPgcjBKbXKbfCF+PHOt9yB9HgjhNn+6u/d18oVoC9Svi75KvhBGR1/u768i
PxS+aXGNk78jPxTrzYeiOk6RHwrHtZd8xCfID8XbN39knSogPwxfWeVx7hwg
Pwyv9w+P6dhFfhg2jl7UfriN/DBkp3u/aaHvhyPCoyUWvHup5ItwxzJxckcC
+SIETDCNGpSSL0LBwvk6ZhHkh+NXX9FQmoD8cFzo9RQ94pMfDp9evqpqGfnh
mDvzfGanM/kRMJrydomPPfkR+FZTeWTQkvwIXNdMffTAlPwIWHkOSvtmkx8J
nWlN0XYG5EdCqI2zJfrkR2LSWb1S3gTyI5EyZZf2GB3yxRhTYXS2ZZh+/2JU
VeBWbz/9X8TY1JQg8HjGuPbj8f52OU8f0v8nCrUz+weu3iY/Cufv2i5/UE9+
FKyPPRBbVpMfhfeOXM/qcvKj8VuMvenmEvKjcSbnsUNGAfnReA2LthP7yI/G
w+JziZwd5MfA0iIyY99m8mOgPaNqu99a8mNgYhVvvySR/BgM/KBlGyQlX4J6
/li7f4oYcyWYLht5zwmk80ng+XeNPM+LsUSCnuO/uAa70fklGAhrS3FwZFwk
QUPI+1c8G+pJwDlXWrLKjHGXBLqaJ0cvG1FfihtPZ7Vbz6C+FLcTmpPr9Kkv
xdkinfSM8dSXopjjPW6lFvWlSDtvLlg6zK5/RVKsmzopy+cd41op+owH6jf0
Me6SQqJlKqp/TtdPGbyqdbPMuhhzZWjLHdlS1s4YMiz89I8i91bGEhlSFgQv
GfyZrrcy3Pjs3fG6G9SXwcq63OJkLfVl6Bnnh+JL1Jdhr1u8x8UL1Jcjabvl
ic5z1JfjKpfXOPs09eWQfXbQJK2E+nJsVXjY/3qc+nKIwzPXiI5QXw6uyDns
5UHqy7F4tzApN5f6cnzYynPyUFM/Fg0D/e6626kfi4K6Owa9W6gfi8CHuXzN
BurH4oL11OSWtdSPxebvowyfJFM/FhXmq5+PJFA/Fkv7TNMsFNSPRdNOnjhe
Qn0F2r+Y71UZSX0F1PlDD3TDqK/A+MqAqnUC6ivAzfPZ0+dHfQV03FLGpq2k
vgIVew+3aq+gvgLXhzWlxaC+Asbd6639XagfB0Ha8zljnagfh0GTfJdme+rH
wab5g/1RG+rHoY67rSHDkvpxeP6b9IzYjPpxuBRdVeZvQv04XMsO2+hjRP04
2Ek0PYKZ1I9H7peKc7EG1I9HS2RngWoq9eMROVi65qQe9T8e71A81DaR+vHw
VDqNThpH/XhU1TgGBOlQPx5jilsvFnKoH48Q/yNj3tL9BEcJ3JRo+f+bMVeJ
tjl+uyoHGUMJl2k/Ko0HGEuU8Ltvl57/mu5HlCgOTFN9/jvjIiWeqQPlx14w
rlUiSHTtT/NnjLuUSJTVja/pon4CPvGVbY14TP0E1Nuct/zQnov/AuecovU=

             "]]}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {1., 588.}, DisplayFunction :> 
         Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"a)\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.05, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"GtC\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{1, 200}, {588, 1400}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxVk3tYjHkfh6cDwhK9ylopUl6l2rYIqXxKhZFMM+momplmmikXW1nK5jDZ
KInk1MGpTZFQW0rehNksiUIlymlzjM4lpAP7vpfv74/3d13P9Vz383nu5/7r
mSb+mS9V5XA4lf+9/nf/droWcv7/wKnI2cWwV52ea+CMbWhpUvxU4nEQ3Ujz
jlj7E/EE8Jd6j1lVYE/8PQZUOWXX/ZcQ6+LmevWQBTp84qnwubo1Yu9RH2ID
RJt09hyMFREb4tXbK9vzBTLiGbDQ+Fj5H/la4pmwlX9tnhG9jtgEFtaJly6k
RxGbAmHJB/sKtxCb473v3ZLS99uILTB2cWbUlR/jiH9CTGheocH0RGJLcPtz
qq727CW2wvwZW1dYLzlAPBudCpO3ZfqpxHPQFmWcpBl/hNga/jJPffnNDOK5
eG7+Onp+9gniecjY5Vg8/uVJ4vn403jmd7UJucQ2UKuJ2rw/O494AZQXjgwu
PlZAbIvx9ryAWNMiYjsUNLzQ0VYtIbZH+p20RxumlxIvRI6Rpc7QgcvEQOzF
ky+F55TfWAE8GOObyy0rp90BGTEZkk99f9HugBuh3qEdkgraHZHikNEXrXKL
dkdc5F9VPXO3ivZFMBPderPw3l3aF2GTaYDWo5ga2p2Q+u7HlElz6mh3wqjH
b8yrVOppd4b7tkujS5of0O6Mz6PnjYp800C7CzZxxkhjhh7R7oK3U0o6DE2f
0r4YHI3867vC/6Z9MU43VZQGvGmifQk+yede4um9oH0JtBJDhjjCl7QvxYWv
dlsqcl/RvhT9SpuyrqHXtHPBqbwmverdTDsXFuZJ49aWvqV9Ge7saHlvYdBC
+zLUtA4dn5vUSrsrAns7z+Zx2ml3xej7q/3/XN9B+3JY1eRbHG7vpH05PIzD
/ig6z/5TNziVRxiZh3fT7oZPWfUB9817aF+B4JxfU5zaiBUroO1nF6p/+j3t
POgUGfFGSnu/MXjIK2jRPKP/gd7nQXIoRa+wgVjJQ/2AS/e9pI/ku+O2vgau
On0i3x0bsnVtbD4RK9wx88vTM+qn+sh3R9eTPJ1mwWfy+bi8MfpS/hAx+LiR
KUq1zOonn4/eIivfpYsHyOfD7Nhxx7o3xBwBzms3qBVvGyRfgMJzhfsafhgi
X4AV0+27TPOJlQKM8nzRmr3wC/keCF434+8FVcTwQJczJK0eX8n3gE/SPo3i
RmKlBxoM9be4mXHwzV+JWRY9gfWribESiq318l9yiBUrIWx1MrN8SaxciVIX
2VodXRXyPeGn49tjLCCGJ7JONvtviCdWeEIwYUBzeBmx0hMupyZ+fdnOfC+c
fjQqbbKeKvleMGxXyb7oSqzwgra13syKjcRKL0x5dshVkE3M8YaWZeiykLvM
94bLjkPe2n3M94bepMrkIH018r2xJyukM9CZmOODdeUv5uqEEsMHc46rfkje
TazwQcnc/okP8pnvg+TnKQmd95jvi34ZN6Gli/m+OPbD74W1murk+6L2tN6I
82bESl9MTgoZPMgl5vhhudUrxfZgYvghM+qC+q4Y5vvBrsI9Jv8w8/3Qax2l
GChi/io8675jEFnN/FXID1ObYfKa+auQWJbQMnmQ+atQFq6yUaA1jHx/PKyz
jHv4b2L4w+tZ1aY8W2KFP2Y9uRH5jEes9Edx8VbeGgnzAxByJ/WoMJL5ATDq
Ty65vJP5ASi4blK28zDzA9AzbHdy5VnmB6LO3+ldzGXmB2LZrOGLSqqZH4gz
45Z3rnnK/EBsm3h7fG4b84WQWxef+HmAeKoQ82tb1pePHE7fE6I8e8Dy5ERi
oRARvLEiPSNihRA1WaeDzC2JM4Q4mive3GhPrBTillF4jcEy4iYh0gSm0jFe
xBwRXoWFTzsiJp4qQpPiQ13NGtYXIa3gN4uCKNYXASeMa21/Y30RapV828jd
rC9C6bW6x+IU1hdhn7x5hOrvrC/CqKVT1LxyWV+Mf11ZMBh0nvXFaD+qrTmr
jPXFeJfu4Zz3F+uLIe6fl9JZxfpinHNb0dZ1n/XFmF2nq1v0hPXF+PClvMPm
FeuLkfQwfUpcK+sH4dT2m4L0HtYPQn5mhfmGz6wfhGF/dNnrckZQPwhV+n0j
9gwnVgThHU+mUv0dcUYQRjZqpjzSIlYGQRG+0fji98RNQXB+wB0r0yPmSPCx
6dzet9OJp0owwSi/286YGBKouKXJ5easL4FptOv0ECvWl+BdbbKLwzzWl+C6
YnVHty3rS1DNE5lvcmB9CQx0bo1/7sz6UhhqaB2ZxmV9Kbrtv9y0d2N9KbC+
PXE+n/WlEFvp1Gt5sr4UbbHlcbd9WF+KOO+dsRJ/1pdi3antWc+ErC9FkmJX
qY2E9YOhMt5v/0YZ6wdj5LWaD4dDWT8YZgmTTmSuYf1gREY88NwTxvrBEMTx
KwLXsX4w/IxysiduYP1g+FS2HL0QxfrByF7j5mUXzfoyzN6x/Jezm1lfhhO5
1fvUFawvw41BR1eXbawvg8Kndk5ELOvLUCuMaIrfwfoy/Coa3ZgQz/oyVFsd
yolKYH0ZGsba3Ocnsr4ctuKQp5P2sL4ct64MOdxJYn053B7yN4Uls74cMZlC
NZX9rC9Hwcn7XMUB1peDG2lyreMg68vRu/pao2sK68txNnWoLz2V9UPweAw3
vjGN9UMwS+bYpnF4BP4BHiqBtw==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJxV03s81Pkex/FxCbvlPKpVaztLUqksRReXzPJGkREZdwZzv4gUuki70coe
l1UpKaKoTbZaVCrRtrNLF21bUklFRCIqXVR04ex59Pn+cX6Pxzzm8ZzPvOf1
10yRrPSVa3I4nPp/Xv97//Q8d+L8/wPdt6XRCWd06HM9XP3N8KB77xTyWLhM
GB4f3jaXbIBjvTPLDfNBNsRkT7vSkUAe+Wsc4xnklKT7kU0w6Y8FXjUlArIp
BuN9pt/pkpCn4daXAYmTzCLJZoBJk0OPeBV5Jip1UxSb3q0mm0Mz8ZrSbUMi
2QIforzMpqUkk2fjR7/07NOizWQreGtXlfj2pZGtoauf8eG9/RbyXAhSniX3
zt1OngcrswPF+ud3kufj2nS7cWM78sgLYDvXpDk/by/ZBjssz7VNHS4m2yIm
82zhef2DZDuE5uxX/7W5lGyPzs3bfQqij5IXwvFgd/RyZQXZAVktGXd23z1O
5iJ2YJHRmZyT5G+xYOZxu8L8KrIj3ObYOQ09ryE7wcFIL8K34HcysDFgR+3a
hj8+ORngCjK+EGrU0d0ZO08NHjosuUB3Z8RZZnb0vL5EdxdU8wtLVGf/orsL
bHKEN61PX6W7K0LLvmpLetVAd1cE1UrDjEsa6b4IoyeWxyTF36T7InQ+nqqT
Imii+2JIH+vmt4Y3030xLnvFRxsm3qW7G6KNriu3l7fQ3Q1Pq2f8tOnjfbq7
Q3Nf/crEY+10d0fZptWRUf0P6L4EGwTGowZtO+m+BHXpE7lrMh7S3QOfdQWE
mz/qorsHeEazbvryuunOw/UnI8OTT/XQnQcjfvO/amb20t0TqWf9etyK++ju
iYNelpwO46d0XwqjE9stS4ue0X0pjLUv2dwdz/6HXuhbWe2R3URO9oJ/e0Ss
3p4XdPcGx73xYoPwJd294dkyZvzGaa/ovgwbQg5KD/WQk5dh8MC8E91HBuju
g86Upoj7K15/Mnyw9vusojmz39D3fSA/4/Jy8xOy2gcGfSnirNK3tOdjat2Y
Gx/Fg7Tng2cotsk2HKI9H8KJzb/oXSGr+bgt3Lb1m+/e0d4XFwy7dlyc+Z72
vqiK/aKk4jo52Rezzt7rVK/9QPt/PJ+zvvnLj7T3w+r9efGtlWT4oZG3bEuN
1zDt/bCvddsLaQdZ7Yd8xciTK3EjtPdHSsC3h18Mk+GPlrvWT1WuHHza++NY
Qlm5XSpZ7Y9sC+uhvjoyJwCvB1WyNE2NT0YANva7fD3BkZwcgM9jJWX568jq
AHQlKe+blpM5gWi0TUisesj2gRAUrrZWGmrSPhA/8C2jHHhkdSASjR+ZuiSS
OUGI/hBel1ZKRhASBD+ONrrF9kFIrNDuHsPRon0QirIzwxWzyJxgvFk0eq0t
n4xgLMktM92yjpwcjOKsLbMTCtg+GJnBI5ZaarYPweZafiy3g+1D4Hm2bchK
S5v2IbjgcSHyoSlZHYL7xb9Zyp3JnFAYO0T1qiPICMXu78vStDewfShK0kyd
ublsH4oxZQ9K4ivYXoDcvNxjJ+vZXoDmtY8ujOlgewECzzvW/jDE9gIk9I/V
nDJ2FO3DYGGaKn8+nYwwVPn+Gj60kJwcBu0m9LsuI6vDoFb1nLktYftwBHxu
Olyzhu3DEbKzdv/b/7B9OGRbTRdm57F9OJKcunW2Hmb7CCw/uY3ztprtI8DV
L7999TLbRyDoQfPQv++yfQQq00Q7O3vYXojcVX8XmL9leyGu5hpdfq2tQ3sh
7B82FnuMJ6uFkDy6tsZ8MpkjAtdcV1XwDdlEBL4zZ8UBWzJESF+8wNvVlSwS
Yf5Gz6NJ3uz3RVDnz9IICyEXieB35WnxPSnriRDWdl6tEUNuF2GXz5GY6+tY
X4ypNqMKvTaxvhjHK60nr89gfTF25g8eCdzB+mLM2Ntzv2cP64vRtr/Ifu7P
rC9GxzKd6QuOsr4Y0y2iXr46wfpiGAiLW1bVsL4EBlM0Piv7k/UlqLopTPu1
nvUl+L1iKCi2gfUleNnoLXnfxPoSOKYOJHm1sr4EvasECZGdrC/BxZhMTf5j
1pfg0K5b50f1s74Urpbfh6YPsL4Umx4H8VqHWF+KIjvFOK0R1pei+Y7U+IOW
LvWlaA3h36jXIxdJwbnxJnWFPlktRU6QKLlnHLldinyZvwZ3IpkjQ15lHTdy
EtlEhtN19mGxxmTIMBhsnxRgShbJsNy9tGaiGevLkP73DONTs1hfhvqymMPz
LVlfBpugvYIdVqwvg9I+Z9qNeawvx4Y9ts8HbFhfjkqtuuIhe9aXwyxu7IQO
LuvLMXv7DeNyJ9aX4+rorp/ELqwvR86k78zeLWJ9OcKyoo6ud2d9OZx8BHfa
PVhfgSf7RsRWS1lfgeta3q9V3qyvQIN5BTfTh/UVyKqb37LLl/UV6F15Lm6r
P+srcO+WVX5cIOsrsFKnoNs5mPUVKLdQ9H0MYX0lqo/GWx8SsL4SBee8nB3D
WV8Ji13ue2sjWF+JVXP2X7QVsb4S+tVldnvErK9E4q1+1TMJ6yvRm2Z/xVrG
+krM/qqhUS5nfRW0/kx9nKFgfRXOCW+vL1ayvgp7DfR6f1GxvgrLBxwKf45k
fRUOqLNfZS9nfRXazznw4qJYX4Xdx3e9XxzN+ipM0HIT6q9g/Uh0T8DlS8wm
kbjZ9XRLQowu/gtHDnn9
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            LineBox[CompressedData["
1:eJxVlQs01Hkfh0e6kKLaWqxiKinZte5JFx9yTUlj5M7MmDGkNt2UajXSVLtt
tWwppVjSRVbrsrIsTW/EVpvosqnkTsllKSKlt/f0/e0575zjzHl85pnHMfP7
/2eKNvAkozgczp8ff/73/Onxjy3n/x9Qt+n21jIdQ79XwdDZkbbca1ziSQjw
0ogyzDMlnorC8Onu3y+wJdaCivy6NKbahXg6Zk9Ii9DcxCPmwqo489ZbAz/i
WfA4KU151iYk1sfRAp7F1idSYgOIJ7oZ6+ptIJ6HGY18w5a+zcTzYZXkKOi3
iCb+Eko356jtiNpNbIxCvebYl+vjiE1wVjje4uyN/cSmsHHsFsme/EBshh0P
zpS7i+KJzWGRdN5S485RYgvAeVg0+eoJYku0/LnLzc/hNLEVFAurJR1WPxMv
QNimRyq6BmeJrVFoePPK7u3niRdCsVgtT2PBJWIbTLpx9Z1SxGXiRTgn7TG4
p55LvBhl1a8OGWTlEy9BQvWN8dMSrhAvxWaf6pVflBcR2+J1Y2JEnGspMWDp
oKN6efK1TywD9tn/2GZudJ12O5z7a3n9yKZy2u0g9zU8ta+jgnZ73HlYc33U
Tzdpt0durvsfkvV/0b4Ms/JyMoyW3KV9GbTzi4y06qppd8Bg2uOWnYn3aHfA
iqcXeCbhD2h3xFzu1Est/L9pd0RWbreWrm8t7U542b7oiPXWJ7Q7ofR3/pyw
C3W0OyOkIr6nqLeedme8rulPmzivkXYXcPS3WBgKm2h3wZ2WpUXy9GbaXSHs
WOIS0d1Cu+vH76/t3M/t2mhfjpdFk38qPNlO+3IoKZXIdr19TrsbBKeCQ+XB
HbS7YadS70hv5UvaV8Dh3LPRzyy7aF+BIIVhfUhGN+0rkf/oku4qNTqXspWo
VsRX8cvYOXWHjUtBE+/bXtrdUaWyUP7Eso/2VZAvbqqK6yKWrcLB79f6tKS/
ot0DxV9fyk/yef2J4QHD5KgeB7V+er0H+H7vuw8WEys8UDJUels7fID81TDP
maWX8tkb8ldju7zdoqaIWLYaWhUF9huCBslfjSmZZnHWI8QcHhKUX7kOJA2R
z4P/rj7VbaZvyedhhZGyx5EyYgUPbYV9Odqew+R7YtPXmnkDT4nhibPTNVIm
iN6R7wmv04f9nZuIFZ6IiuCanQh8Tz4fU1TuJPTfIwYfV3/NvOvnOEI+Hxv5
y2orcogVfGitG2yH9gfyvXBY28nqzk5ieOHMzOGLO2uJZV44LzCy+1Kbg0++
F14Ef7tn0TJizhqY6FdOG1hLjDVwnB11UfojsWwNDs6wGkjOY/4azNDQTEq/
z3xvBB3w7vnuFfO90fhw5uugSUrke6PdTcQ1MyJWeGOUU+2KzxyIOT4Yjo9J
nOJPDB/c8rdzRCTzfVClmPNbVhzzfSD0KrQLO8Z8X9ioVprHZTDfF/opHjkT
85nvi/FxO23VrzHfF6WyxRcTbzPfD15dxZqFD5nvh4P77DXj6pnvhwsdysnj
2pnvh+1RlWO9upjvD97qbYY7+pjvj8zwWDf5APP9sUXP2HjvEPP9Uci/OWnv
MPMD0Hm8KD/+HfMDYKS5Ufg7Y1kAxo5zeT6WsSIAe2bbXZC/ZX4g6roy4zHI
/EC0OmYZ2vczPxAjQwWHjvYyPxARrY1Rdv/+/UFQMTVawnvO/CAInNMfVzUx
PwitqrHd/3nK/CD0VuspzNn/ixMMUXm73fwq5gcjQ3nm1OwK5gdjzVe5+29c
ZX4wOspvpu64wnwB5nRGa1dnE3MF+KXZVHz3389TgN3t1tkxycQCAbKLxjU1
JrD3FyBobeLFDweIUwUozzkeWRfDegIc+yY9VLaFuEGAzxM8YrvCWV+Id4NL
YwyDWV+IrvjJrdZ81hfipLWvKteV9YUwuRg5oXkJ6wvxvsu1Xm7G+kKonv/K
YcJc1hci8bt1d6N1WF+I9ZuVu6s1WF8E9XVmdZqjWV8Epc6xBe6D7DyJcFxR
Gx7dSSwQQdGgKDvZwM6nCHny/m9+Y+cxVYToR8bdtyrZeRUhNa73XMMfxA0i
VETdr+v/lZ3fENyaW1w4MYOYG4I3p8ZgfhLrh+B2bEHwykOsH4LgtCPPt8ey
fgjKevTjs7eyfggCtrQN9ISz/keWzExZGsT6IeAlDb45xWN9MYZ/5vuqOrO+
GDYVt8YcWMT6YhzW22OkbcL6YrzhjGot0Wd9MWqUJ9psY9e3VDEeVEm4Tuqs
L0bni4RdRsqsL0ZtpKWjxz/s+inBt80bf4l+TMyVIN5DJ/l+GbueSrBl+Q9B
osvEAgke791toH+SXV8lGN3qqqYjJ06VYNpyVTWXSGKFBK2hlWpZ/sQNEghH
n3jq7Mz6odBXOmM13Zz1Q9Es+KLUUI/1Q/GqWKS8UY31Q6EVeD+u7w27P4Ti
tG9JZnYLcWooHnQtrsmoZveLUNRJdBwelRI3hCLrUZKNUxYxR4pDQwsbe5KI
uVKMtY/xerCfGFJk5qedH9hKLJDCZJv7E08x60sRL1v6vJPH+lJYJr4oumbH
+lKIqmdY1piwvhRpLceNdbmsHwZd76NbMzRYPwz8Dr8q6Qd2PwzDnMCyQXEP
sSAM0SVF55LriWVhOLY9f5/6XeLUMGzwmW9bpCBWhAGnVCJTcogbwtDroZNX
ksbuv+FonBeVPPUoMTccqrV/F6XL39v+F6ZXphE=
             "]]}, {
            Hue[0.37820393249936934`, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJxVlXs41PkexyfJUlrSoZIyCrkdJVGUvItcknG/32bGzJhyolVZSTUHe+gi
JWWdbqPVI9dabU5C6bKtSwmlkIoorS7stilZ7DlPn+8fZ57H43l5z2teHn6/
31dPGOstVuBwOPX//frf9y+vIXvO/7+gWZoZsklViX6uDI0lRYf/3KxHrI7Q
X26e4UiXEv8N1pt1pjjbgng2HsZZrFK/40qsgwNR6okupj7EXPTYNdjpm4UQ
L8DQ0OfZV74XEuvDzTG81/sXKbEh3kRO3VlmtIXYCDMzfWSeFduITXDmlhm3
zSSR2AyurTn2X/vKiM3RllRtN2CcSrwEF9rcr7QUpxNbwKTks0r+UAbxUmTd
2f+wSDmL2BJNb1bsTcg+SrwM/tZJHU5FucRWODa3TftU0CliazhkaZ7Y0ZFH
vBwnj2hn1/XmE6/AQObZ2hrfc8Q2+HpO1uSzViXEtjAXzPeacL5AvBI7XOy4
FyvKiVdh8OnOjVXRl4jt0Bo1MtIWfZl4Nborf8ySV1UR22P+P7kP0iKuEQN5
edMHOkuvf2EZ0HmpVcjpvEn7GigfsFJ7a3Wb9jX4xueMt+7NOtrXYri3s/9+
ciPtayGdUS6e2N5EuwPmDRXy85uaaXfAntlv4pOTWml3RN7huke5jg9od0R7
6ZT2q4YPaV8HXsv017kL2mlfh3X61u8KlnfS7oSKrVtUV4q7aHfCuhcji5OK
ntLuDIP4jETrlG7anaHQFPbVh6oe2l0w0WKt9Gj8Oe0uiG3cvMLErY92Vyjs
rk4xl7+g3RXJxqKfZo29pH095q08x1MTvKJ9PV7u9ZBaN/5KuxsG7RNTCmxf
0+4G43v1ooSyN7RvQEPP2WdVBu9o34BQJe3slNODtLuj/Mrqu1sy6L6UuWNf
c5fqdrffaOehQ/2OMFjld9p58Pp7ht7528QcD1i4nbysmPKedg8YRuxaP2T3
B+2eKNMYsZz2kRieqPKOSX1f+oHe7wmvulHJBuHwF671xMuY3KSrMz+S7wV3
2cpFn64Twwv5l5fdLv3HJ/K9MPCbUV/uzBHyvYCdQ/67Kog53nAtfeGl6/eZ
fG+kjBpGuw8Sy7yhqLY5+3HqKPneeKpvqJyv+Sf5Pji8Mdc0LY8YPrg2rV8S
bTRGvg/2adW/X1VEXOuDex+U8t8ajpPvC+P6XPm2U8TwhWNY+oIm9QnyfXHd
PN1wdBdxrS8SNm3VmfSSmOOHoIMt9dv0Ofji+yHW9cTvfB9imR8S+otj7u4h
rvVDeZv+0luFxBx/nA+wzvZsYb4/Psf06e8ZZr4/FKdOTg2bM4l8f6hlVth8
tiHmBMBh4PohUSAxArB67ZO4km3EsgCEtDk4Pz/I/AAkhh6/r1XA/EDoXluv
G1LD/EDozXcLqm1hfiB6irfWBvQxPxDxF5cfXPqB+UFQHP+5V6CoQH4Qavzi
KodnEMuCoCPJG/84j7g2CFU7ngcnGBFzgvF14526vRbMD0aPgeC4nQ3zg/Hq
0bqUfHvmB0Ot98mRJkfmh8AjbJVLowvzQ2DW+0daoRvzQ5A3Wl/8rTvzQ2Dp
ZJvswGN+KDSd3vpoM0YoqnI4r5TZ+2WhaAi0Tp/LPq82FJu+mzIlnPU4YXio
nFH5mP0+CMNh202Zp8H8MHQlbVX4aSXzw9BfEqC/0Jr54XimvlA+vJj54fgY
XVSz3Jj54cjr6hIN6jE/HLEGY1xDbeZHIHDsxsI+9vdGBAo5YhcLFeZHIKp9
v5Ymh/kRKDZZ/POxYfb/48OqN9Su5g0xlw8P/mudzOfseuDDYPqsSo12Yj4f
GYPT9Hh32fXBR3pJCNf5BrGcj+YU/prJ/2HXCx/TazPupRUTd/PxvVZZR8dp
1hdAI1Z92fgR1hcgMf2HxJE01heg7x1nZvNO1hfgQHmU+b9iWV8ACa+gUTeS
9QXQNxm9LPdnfQF09R4dVV3P+gKItp99ILFjfSHuH4mvLl/C+kLoqP6w6f1C
1hdixjz+A9NZrC9Em6VzXfhU1hdC90rz4MExul/lQjzOuNF8dYjd70KIE7Oa
hnqJu4WQqdSYLnrE7v9I8DgzpokaiLmRONY5uKWwhj0PIlGTneI4coGYH4kB
jQFPv3z2fIiEapy/07Uc1o/E6QyjqhX7WT8SFpNHzW7uZv1IzBwtmMSPY30R
qkcd09UlrC9C4zStz21BrC9Cvyhh54/urC+C5qdbOvlrWF+E7xRMH5dZsb4I
GErOazVmfRGy6+a4qs9nfRFOhG//t1SD9cWo2D2D16XE+mLI5Wba7cP0fIUY
kxzV+5Z0E/PF6DrXo3Grnj2fxRCZK53NukgsF0PFJ3bPyZPseS2G66n6mBdp
xN1iBHrJjaLj2PNbArFt/IbFYcRcCeomPxAtdWF9CV77bXi1zZL1JYjgxtt+
nM/6EqwOfVJSOZX1JTidM7CnepjOk1oJzudc7514Ttwtwf3QWSMp99j5EwXF
1okWl2pibhT2xlyM4xWy8ygKBmrurdnHiPlRaHCVPZ6bSiyLwnCSy+beb4jl
UejvOBTyOoL1o6BR0BZryWP9KHgOX91YtYr1pTiufGki2ZT1peDlxDzbq836
Unjb7Ci7p8L6UjyZXT3Vd4Sdr1K8MPuwT+tXYrkUDYssrml1sPNWChu31Ra+
9cTdUjR7aIubKok5G5GTEdKRys5n7kaMHzr61bfHx+z/AgSGlGo=
             "]]}, {
            Hue[0.6142719099991583, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            LineBox[CompressedData["
1:eJxV1XtUzHkfB/CfyGUfhIekUiPq0CppCyXbOxWNLrrfR3OfqQe5LpLdkdxW
5Bo22XFJEvKI9CzbMyndLZvLptAotA1SVJsurOf4fP94OmdO53Xe8+7d/M78
vr9J4vhAmR7HcaWfX//7HVWwudm8dRS4//sZi5rxrm5Dyk1dv9gIoXBykTbM
IptiqeOKxbtfLiDzkHDg0Q8rPIPIFkg5ltGh+0FAnoKRjiOLp0BGtoKw64zp
0fBl5Kl4+kvfwPqTq8nWqE3f5V6QuYE8HcqPEK9cpiLbwm7IMXuv/GSyHY64
95/LKdlJnomlTudKplxOJdvj9dDEJlffA+RvELckQ9fke5jsAJdBzjtNXqWT
HSFI2JcwOF1NnoU3umKDWPUp8myU/XuZ1sYgizwHG9u+8rRqP0d2QtDkYHu5
fy7ZGa2jTXsPmlwmzwV3wtTq8R9XyC6w26h3iNd4jTwP2w68exHtep38LcrK
d4VGdRSSXZF/mhv5e1IRGTCq7SrJvV78xSpgVXKCW45VKeVuqHlwq1Z2q5xy
N5wtKNRzPlpF+Xz0Pdu81v7Ub5TPh32nUfaAd3cpd4eDgXih3sUayt3hNDW2
IW3rfco9cE9mkL1z/UPKPfD66aBzq7bVUu4J/m3tg2sX6yj3xPNO55bdbY8p
X4DZ9bmdHxY1UL4ANsX88tinWsoXIpWXXSGxaKR8Ie73d52/sKKJci/0/rDW
cX35c8q9kJKY5/R86kvK+YgzmFg0aF8z5XwEn26e9ezTn5QvwtZDmrPr1ugo
X4TpdZuH/vfNK8q9YTtWPzY77g3l3ug5OWaGla6Vch8UWjsZ7Xdso9wHAg+9
p/wuMueL4Nww9yv57ZT7oqyu/obvd+8o98NpP92MNIf3lPthR0rytdHtZG4x
epy0ofycDsoXo1bf8miVuJNyf5yZaWhmM77ri+EPrfWBfw4rJ6v88eK1/rEB
a//6Yo0/MrRdkzQTu6kfAPOB5kc7i8gIwN0WxYVI0QfqB6B/cqw2t5esCUCB
Wi/t17091A/EI5e7o4J5vdQPhOikR4z3ObIqEDsSApy32PZRPxA9/LSHjefJ
XBA81ltkh1v2Uz8INx7oeHWHyaog5Cgmh0oGfaR+EFwrblzqiiNzwSjr9N9+
rIqMYEzwvndNbPWJ+sGwroieG72RrAlG+9Vl+epKMheCkkeJA62+4vClH4J7
q279+e10sioEC4YJtp/3JmtCIJ0x9vZmJZkLRYX70MaaJNYPBW+L4/srP7F+
KObVu32ad4n1Q3HvTkNmcjHrh2H5KaOen++zfhjsM6+HZTWxfhgqG8xdLrex
fhjqUkMsantZPxxpx++L7fQHUD8crTlZhjXDyapwTOnV/3hvDFkTjs1K9zif
8WQuAjYX3lsHGLN+BN7mGX7/lwnrR8ArNCxnoSnrR2Bcdsz+cJZzkdjSnvfE
dQLrR2Jci8noMYasH4ksxB9uHM36kYj/sepOMfv/uCh8WOdkXDaY9aMwl1fW
1PeJff4orK8yvbymm33+KLjs2Wc7j10PLhobK0vspM3s+kVDuamovOsJ60fD
fMwlrwHs+mqiEe1h4pdawfoCSFdXV+YUsr4A2enuI0R5rC/AVf075QVZrC/A
rP0LJt5IZ/0leC9bfnx1KusvgeTgoKhm9n1QLYGF56Yms+9YfwkG567wnxTL
+jGQTy706oxi/Rj0eSiGnPBj/RjUKKxE1m6sH4PzPTcr0r5hfSGiCq0iXlmS
eUIkrJl1d7oR+3tCtB5ckRHDvt9CIaq57JsGH9j9IcQ2k2kvAp+Q1UJoVlqX
pBax+0WIOZ7r+qszyVohLLuNL4/6kd0/InQVe+0WLifzRFg+801lUSAZIhgO
b53nNJssFKFNahpaZcL2RRg29rFlIsf2RTDWT1YsfsHudxHSNyQkeVWStSJU
80ftjctl978YpSPNhAUHyTwxbAfINzkksPNAjBLnX2c+iyELxeh+/XGnxpOs
EiNkYHXE/a/JajFW75ngajaG7YvR7rw38+duOo+0Ypz9VFgR0UDmJGgznHzD
t5TMk3y+4kOkiRfYeSZBlb1L0suDZKEE8aPP56UksvNNAsGpytXxUrJagvru
JrNUH7JGgmFG3h2vHNi+BEFz4oy2TWT7UmBgfppgMNuX4gS2Sla9pfMVUmR4
/CYoqSULpSiVV/kH3SSrpDC+vr3TjJ3HaimuzQ7psEpj57UU9VKbl3EqslaK
37P6Q3Rx7PyWYaGNtuh0CJknw8V/zT92FGxfhnbrHp/yr9m+DFYdfHu78Wxf
BueiByfu6rH9z+//ZUfL2VZ6fmhkuFOx1L+gjqyVYd/VNeM/lpI5OXq2OiVs
yCPz5NhwJyd3mpo9j+Qw3PMf3YjdZKEcydNaIi0T2PNJjlJH3fR4BVktR3Oi
6S5dMNuXI+mPEcfT5rN9ObYEvU1ZZcf2FfCy0Pt+kxnbVyClqC8tfzjbV+BR
tbLftJeel0IFXjV8eJjbQlYp4PfmCX95LVmtQJZiyKawMrJGgYjDK4/E5ZO1
CjStjLl1JpM9f5Vocz9k+49DZJ4SZht3c4eTyVAio/ZsLH8N21eiPyDyp0lS
tq+EeaPfLbNgtq/E7R37zOHB9pVwv5KjTXZg+0q0+9yc/3oK249FzZHcpLXj
2H4snk011poP7nH9GxVdvaw=
             "]]}, {
            Hue[0.8503398874989481, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJxV1ntUzHkfB/CphPaJrXVfK9W2WJcu0haJd41kUGq60m2ae2gJKVKNVMjt
kdxyG7ltucwThSKmC21tNpFLpUxit9hEdFd2n+Pzfc555pxO59W797z/+M3v
+xsT4Sq+RJvD4ZT+8/Pf319e7+Zy/v+Fsjhv/Tmvx9HfB+NsZO6ZdENbsgEe
qLLSU8pdyMPx+4royuokL/JoFOelZ8Z2BpO/Q6rzoNn1i2VkY6TeVURMsFtN
NoWmJGzYlqoIshku/zqkckz6JvIEuP0nHFHSePIkmOQM0AnlbiVPRuDTgjPl
OrvIU1GQFX3Tv3Ev2Rx6JakuDk/2ky3hJnE08l2dRrbCC7efXUcVnSBPRx5/
bV1BWzrZGikPbZz3RZ4lz4BRc/KLyE2ZZBtwzporE4eqyD8h9TVXkTnuMtkW
KyxrMlYNziHbYdP9FpvzbtfJM/GtYaJ2dOcN8izMdtd+/GGAmmyPXWNSXonm
F5JnQ+5Sn+peVEx2QPYCR15xbAl5DuyWHotVRJeR52Je/OColhv3yIB7o2Ku
7sn7X6wAmtPu7VNtfUC5I5SJCQMjU6ood0RShlZuasFjyp2Q02Zn2D68mnIn
nHJwDp+xs5ZyLvJ5h9yPTainnIvGDuPGfeEayuehIuE410HTQPk83FrXcm59
UCPlzvARjePPf/OScmf0rR8v2ZP4B+XzccKm4s3wqU2Uz4fYhesVU9dMuQtm
cq0W+Bx6Q7kLbsT1l472b6F8Aer9t8ROM2ulfAHWrbFJ6opi9wEPpTWPHQJC
3lPOwzGrP9TLF7ZRvhD1uhovV+sPlC9EUpPqtMXYj5QvgmW8w1FHrXbKF+Fp
iblx7ksyZzH0XyYcf1jcQflifK0pjHii7KTcFb8s4FmNiOqi3BWhbcK0Jl43
5W7wC596PHdED+VuSA6crNdXQ+YsQeQc1Ribw72UL0FqYNbr90s+Ue6OTqe6
65X9ZLijWvhCZ/OZPvp/d0xdbrQ7j9v/xWp33Cqune1STeZ44AdNaG2f5DP1
PWBuwS8qbCYrPHDLhHOVO52DL30PvAz9ps1sBZnDh1Xh/rHJJ8jgY2Nasiam
gqzg487bbTMNelmfD9vqNF0fUy3qe8Li2kOl3JkMT/RHPlovEZMVntBxi0gJ
iyOrPWHkp5py5gDre2HDnyNsrDNZ3wtNfQ3NyGN9L7RdLgjsvsv6XuiqXvv1
9vus742yKxZx456wvjeEF4pKX9awvjc6JjjwhjxjfW/0/Vxpf4flHB9kNZ4M
n/W/vg8MZY+00ipZ3weOBwWDDMpY3wftsmxJiZr1fdGftHx/cw7r+8L706uo
4xms7wu3CrWd/lHW90Wr2Z2JvrtY3w+8mJGXTsawvh/G7PzOXj+M9f3QfUPl
kOPP+n7IGtVrkstj/aXYMSzWa7ot6y/FxSupvJlmrL8U9/QNrUoNWH8pnOWJ
tf2f2PVfhpUq65QPTez6L8PWuuwN+VXs+i+DgdW416vU7PovwyTrG/ljL7C+
P7qswg9WHGR9f9jv3WVyaAvr++OB9ltnxSrW98dgjplgrz/rByBmncPyhy6s
H4A3NkVmrjNYPwB7ZatmDTBh/QDs/MZA0DeE9QORo+5tiOpgn/9ArMweZLi9
kn3+A1EnHmlleZGsDoT4cGZv+HYyJwiSbH0zDynrB+FYZmRkBZf1g1CQX9Ld
YsL6QXAo1Pt8gcP6wYi/ONdJX0P3I4JhbXW2+ys1WREMlentpnNKdv8G4zo3
cHXDZnb/CjDp8J9Hc0RkYwGqCgdYm85n7yfAxYzqPLMfyQIBHjlrJ+fps/cX
IHiirFzzjs4LpQD+xUN3pj4iqwW4xht4/UEeWSOAuXrj5ENKMicElrmjLzUk
kY1D8FPIXe0LYWSEIC2/tOGDF1kQAn7fcq2rs9n5FALlKJPRrWZsPwSn1nk/
PzKE7Yfg44CyEbkddL5pQnC75/xmroadf0JI5wW02ZaRjYUY9aHdcV82Ow+F
aKk97MM/QRYIEdeX+P2aZLJCiONb+jNaI8hKIYLPDOkpCSGrhVisP966y5Xt
C+HTvjEhZhbbF6Gq7PQ074lsX4Tde5Wxm4azfRG6Jpo+fafF9kWI1804r2pl
57kIPfXJ0VfryEoRbnq21miXk9X/5DtvhaXkkTUitG5JaBJmkDli6EYsNFhz
iGwsxi+1srz8rWSIMXTa4nJuJFkghqPUyV5bxvbFOCCy0O/0YftibHi2yNPY
he2L4XS3xnqTLdsX41XZs+eDJ7F9CRpWFhwsHs32JbAWjMy8qMf2JYj/t83a
wh56ngkkSJ/TFqD1F3veSfA+xbleXkdWSlDd0bOx83eyWgJlTEDReTVZI0H2
keeeCZfZ81GKbaIHVXGnycZSlEfq9Rw9QIYUEc92x9dsY/tSTC7zsLONZvtS
KNKftGaFsX0pWozebuUJ2L4U4+8HNX/is30pKj+fGvibM9uX4b3OidrLdmxf
ho9D3cOuTGH7MuQn7Sn9zYjty/Cv5l8H9hqyfRm2OV3jQpfty3De/vtzaV30
/UAtg05+erDeX2SNDI5Tlp3a8Zx9f5CjbeZtlfFDsrEcL/iBpSV3yZBj8p4j
9oo8skCOsXMS/HiXyAo5ktp3RZmmk5VyWE6Q9nx1gO3L8dY830k7me3LYdE0
7OagWLYfimMnkx9/u4bth0JvR9Yge2n33L8BuInTdA==
             "]]}, {
            Hue[0.08640786499873876, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxVlAtYzOkexwdF5dLuyrViCB116jSDlBFfE4lEqel+mfuk4UGmHJc9hvaw
tNuejdpHziapJKGwXWwyuqEjdFHalEpbErl0IVqdPY/353nOPM8883zmO5/3
O//3Nku6daNiJIfDuf3n+3+fn16vlnP+/4WA2F+6eLZm7HsDyG1ML+zmOTD+
Am8Eh+w921wZm0BYc6E/zlTEeCradzx6NjBOzNgM6ZbjDatqlIy5SJFfy6nQ
38p4NspaZnV/tUnDeA4cZdvKtzjsZjwPyt9ayzq/1TL+C3JnLizy+f4bxla4
MT8qPXHZYcZ/hfhUkdbiSixjW7jpBa9pjo5jbIey4ak+JVYJjHm4HGC8biA4
kTEf9gZ3XpXbnGS8ACLJkpybohTGCzFnYlDDXU0a40VwLznrHPNHBmN7RBY7
mT8dzGK8GDw3dYzh1WzGDvjFXjKeJ7jM2BGLuGY/JurnMl6CvLRq2/AZBYwF
uHJ2cXTakULGS5GueVH7g6WOsRO6bGLH8h2KGS/D4s1j/Dx2lTJejmCDiPKb
z8sZA4/m+G61O3b7E2uBwAsfCqu33WH5ChjNGOvyc/Q9lq+AofqY7ntlFcuF
iK/xu507r4blQtTPGMrnjnzAcmfMMJt/V/mujuXOOChvvNFh0MDylcidvqzn
Or+R5Stxrq19W42mieWrUBKov76s8jHLV2F51Zi1w+atLHeBaeiepQ9D2lju
Aie1GX9zxhOWr0bjcf3wlMF2lq/G6J1not09O1juioVH+jJsL3Sy3BWdffzh
dxO6WL4GpeH714sinrF8DcJv8u/9XtfN8rXI8gwfu1bwguVrEW9lWTI7qYfl
bjArHtBN+viS5W7wffCw/GkWnbN14Pr77jLwe83ydbhulWp+b5gxxx2nn1qb
nDv9huXuWCJYu2qScy/L1yOtItUpromxdj1calsnX47oY/kG5AbaW08e2c/y
DTC2OHFUFcOY44GQiivbJRMGPjE8YIOwMXeOMNZ64Nnx3qSvOW8/sc4DO3Ya
rA7YypjjieS9j5Re9YzhidK0LbYqh3fM90R06ZbOk3GMdZ6w6/W3ntjBmLMR
hxyEo1r5g8zfiIbswn7+LsbajXA+Lh8jKGCs2wjLSMtL/F7GHC/YPY+s97d8
z3wvxJ1YkdMvYqz1Qn/I12Ub9jHWeSH/ecLjK6cZc7zxH2vziZoS8r3hPXtX
RVMz+d5A05p24QD53mjfn9Daa/iB+SJw/kidh+mMIcIEl8YNkZaMtSIIr6Wc
aOYx1olw9HD9plJH8n2wa+GT++rl5Pvg+RxH18nO5Psg0uQ71YhV5Psg1v1a
gZKY44smmVPKnpXk+0Id5ee1XUi+L6zs82s0NL7OF+Xprl9eFJDvB2nk8eGV
i8n3w/RLVdd9+eT7oS1edF/Phnw/JKV7CJX0fBx/dLVF9MbNIt8f4e+9KpJM
yffHvyafmqmaRL4/hoysBE8mkB+AQxFXW1cZkB+A2uH+DZdGkB+AwerCH/GB
5j8AyfoBWZx+Wr9AbEuv7R7qofULhOOvmlhBF61fILRHnw1ef0J+IPrVeokx
tL6cINj9Q65NaiA/CDd46rq3teQHIfzWS5uE++QHYat0uGDnHfKD0XM3KCrx
FvnBWBl8RjhUSn4wQrfk9SXeID8Yia0lck0R+SEYe9068uCv5Ieg2tJxyr18
8kPwOrTKfV0u+SHYUVtkO3SZ/FAI9I2fPMohPxR/D2tIf36R/FB0zsu8Nf8C
+aGQnc/PiMsiX4ygLr38uecYc8V4n7N5Z+tZGk+M3wNKo0ozGIvFsJg86FV5
hsYXIzUPV9+nM04WY8oeP4kbsU6MFIuacUVpjFvE+HlkVIwnMUeCU0Onc/WI
uRLs3v5ge10q9UtgdMs0s4xYLEGW+qKoilgrwReTDu14R5wsgafLW6MlNJ5O
gosm/tbxn/slkHrmdRvQ/+NIsVe1P/wYMVcKBzvnSnt6PkixwFmCl8RiKTIE
DQOFNB9aKWL36VudpPlKlsJFKJ8Wn0n9UshDJEZJNL8tUjy9M9u14PP8y3Bg
n69Fx3nql+GIwuCNBa0fZGjeqzaOyKZ+GSLz8xvv0XprZXiQzilcSvshWYbq
fL3p+VeoX4bscV/KV9D+aZEBZ+rHPcyjfjkOjHeP2VNA/XLcn3kwwPrzfpSj
2e6nwY5C6pfDylnTfZ72r1YOtaI6d5+O+uU4Ms2oI7CY+uU4W/R+tJDOQ4sc
hwd6Mnnl1K+A4ev9Sis6P1wF2pL/WWVdQf0KBFV0HVxE502sAK/z9JzVd6lf
AXXlT25iOp/JCqwx339SW039CiRubio/Q+e5RYGyWfXhD+qoX4mbI3iLDen8
c5VoEfN/EzZSvxImg0f1DjRRvxIzQrZsKn9M/Up8Nzy7yLiN+pXoK/W+GtxO
/UpkL6ickt1B/Uq8mbY9bjTdTxwVUq797am4m/pVMI/pfVj0gvpVWLD06Dzu
K+pXIUpTcuybN9SvQkKVQVd3H/WrMDU885noLfWrIM1JlRYPUr8Kxbf/bcob
ov4wJC2obT31kfrDsKfFLNqE7l+EwelU5d1vRzEWh8GsNzf+oz7dz2HQTJua
GUn3d3IYlAnHHr8wovv+z9/3zB+rGs+4JQw/FM4d1WpM9/8mLJxodjLwK8bc
TVgxtzmvzuTD8v8CuUb9sw==
             "]]}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, DisplayFunction :> 
         Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"d)\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.05, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"\[Degree]C\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{1, 200}, {0, 3}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}, {
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox["\"B2\"", FontFamily -> "Helvetica", FontSize -> 18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style["B2", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJw1lns4Vfkeh3dFRRiaONKemcb9UtolIuIjl+0W253ttu97mxpUjq7YaJeE
LhTVlk6Xp5GG6jRJoqZMnGrmnCkpnUZGJYM5B+3Qhc6cc9Z3Pc961vOuz/P+
3v/Ws74UpUdIp7NYrL/9cf/3+f9r2Ot/D0E+mBfY+J3KD0Li2Sh2u7OhSURs
iMyansbtEuJ5qDZqHNwnIzZFt3vQiZmpxGzEdhqt/dda4oWYttl4hJ9ObA7R
KaGVcCOxJaq33pWYbia2Rldl8+Ej2cS2CN2ZG6e1g9gegas2aTL3EC8Cvvmm
2KCc2BGVj27oj1URc5Al67OJrCFeiv2/HXThXSZehp+5g6ZmPxA7gX/v4cSz
h8TL8eMdzcf7/cTOmKNv/tZqitgFXZ6zuvVMChhegfIlJbxrHGJXzDwpZ6WG
Erth1KJ80j+deCUmejhvC8uI3TE/vy4rpYnYA6/btIbH+4hXYcdVs+FtJjsY
9sSusBAbwyBiLzRHxOc8yCMGXrZXLupuZlgJ8L5Wd2KKdm98wbl6dYaPitm9
IVzQP2xVzDBrNdxby26pu2hfjYeSU9aRDjuZ3QfaucXhdnkMK31gcaxDqXlC
uy+M3e/15rjuYnZftJuuuLjrMMMsP3C39CpvTdLuh8ezWi4+lRQyuz9SB/zt
Mn9iWOmP585nPzNfuZvZuXjU0WW96QzDSi5kiY3ySeMiZg/AP7Jse9xUDCsD
gPbYf36roT0QfL/FmY/Fe5g9EKbVh21d7zPMCsJundMbQ7yKmT0IhqFOsoqz
DLOCUXfN3aX60xJmD8bRNNm1f29hmBWCBpOzjxf8QnsIfGrqL7d4lDL7Gpys
WTG0vZJh5RqMHhhdqz1MeyjG6x0C5/rsZfZQdHs4B6buZ5gVBssHBt5Pn9Ae
Bve7WdWnPtnH7DzkXgDWLGEYPBQMzmeLQxhW8nC7337uKxnDN3ioSXfMeZZD
fjhGZDufxpaT/wezC5IFZ8gPh46qc73+FfLD4Zvm77npNvkRiNtynt14n/wI
vO4v1B15Sn4EuL9eYXu9JD8CF4L+omkdJD8SDmE33E4Pkx+JXj+O2QwN+ZH4
4NjxYNoY+ZHIGm/mthKzosCuGqxcR4wotOpaP1rwhvwoJKozLo+Mkh+FTT6W
kXrUY0XDfLhweuEQ+dHYdmHzktx+8qMhHBOv1n1BfjS+N+ou83pGfgyM+xsU
Tk/Ij8GzkIqx8Q7yYyA3fZVe9XfyY/DwzHvjZXfIj0V7XQDvZiv5sbCpL26L
u05+LLQnfy+YaiQ/Fm2jevpNl8iPg5/AdU95PflxuHbodf/es+THQc/SSXP+
NPlxyHxzNefdcfLjoc50yE5Tkx+PS89llgaV5Mdj8L6ZbUwZ+fEocq3oe1lK
Ph99RiqDK0Xk82F448Zf23aSz4dat4NrWEA+Hyd4Hw+U5JKfgDk+bd+6byc/
AU/WTL4z2UJ+Akr3u5mzs8hPgPx9s27ARvIT8Vvt1c6KDPIT0ZE+1D07jfxE
BBwuratcS34ipDOPfPRNJT8J5ZXBDXPk5Ceh995Q74CE/CQ8Leq61CMiPwla
VS15gwLyk5Gl1mvRSSE/GUWpR9+7JZGfjPyDW19tTSA/Gf3SQe7dePJToInP
e2cXR34KjKJlowdjyE/BovbrLgbR5KegU7rs1/2R5AvwZkE+e2EEwwsFmHAN
sbjCo/ME2HmnyzM+jGGBAEcVs29PD6XzBQi7yWVfou/FcQHChWfPrwumngAJ
LrMnHYIY7hHAUb1UNRJAfSFuViztvMalvhC1TsdUJf7UF8Jl4A1H7Ed9IZqt
dLJX+VJfiOUjacZsH+oLMTFD69yUN/WFaBNvnHgB6guxvq+t4Scv6ovw1YD2
uSZP6ovwc829o7WrqC9CRMVU+DEP6ovw2DOjqsyd+iLYO1bx9qykvggHN4i8
VW7UFyHTuyUgz5X6Inillq/OXUF9MT7hbNLPdaG+GPzgzCKlM/XFeHXipbpg
OfXFaD/kZ1/oRH0xtqlmmpUuo74Yoqivow8upb4Y/t+ntVVxqC/GL9y9iWfo
e8+SIOqrH6ZfdKS+BElLkmuaF1Nfglu1z3FnEfUlKMvQbnrkQH0JHjbm6/bZ
U1+CbA8Tizd21JegIVP8Vou4R4Kx2Jf5xrbUl4LP6/7O2ob6UgwpAne7WlNf
Ct3ye5ogK+pLMWu8djjJkvpSlNm0/Hm9BfWl0AQIs1Xm1Jdi7UTGtCNfUl+K
5LceH+oWUl8G7TKlovUL6suw7gDf+8nn1Jdh9wu//OHPqC+DVfNcm1nEShkM
0ePwOZv6MmidNClxXkB9GeyuC7lrzKgvw6TOuVjpfOrLMfD7/KZsU+rLkb5N
O/3Qn6gvh/+6dxn1JtSXI3XDxZZ2Y+rLIfjRKKZ3HvXl2LvQ0vnDp9SXo0E1
n29C3CMH55HPLc5c6ivQsHheerAR9RUYKzFNlBlSXwHfm28L8+h/QaCAf9IW
jdqA+gpk9qZXXdGnvgKnjO7md+hRXwGjyOKTw3Oor4DAu21Kj5iViq1hx8vs
dKmfCnZhsNBfZx/+A31voes=
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJw9lQlQUwcehzMWEUXkUCpyKEeAylVOBQTyC7cgCiFAMEDuBASLBypWcAOo
oFJBRVSgsiC1iFWLrUcRC4rLyKIcu+q6lipFWgEPsJxSW9buvv9mJpP58sv3
vnkvl4U0naeYxWKx2t7f/3z8322E898HcS6YJ2DlOqcCEmIt8L6ziLshJdbD
kqNZOTly4kXYMJlpUKYkNgIn8st/GqYQm0LYYVc4O43YHHNfnbfPSie2xAXD
vtFDW4nZeBQQXhmTSWyDWpXJnqFs4o8gcMmv37CH2A5rDHQ0Jw4SO2D64JDP
xRJiJ3xyW+PN9VPEzsi0zjgaWEfsgov84eiMq8SuGFqe+jazldgNN1skZ3P/
RewOz+otFS1DxB6oYsc0pbPyGF4BbZd0TqMR8Uo0et+f9dSN2BP+0z9rL+AR
e8Fsn6Jt91Zib/S58PmKE8Sr8HBuzeejzcQ+yC4XHRK8IvbFZd1ssyazPQz7
ITsuQhTBI+bgjN6TI1YHiYHvnT1dhXcYVgNK3YZ5mvP2MjsXJReWyBwjGVZz
EZ5R6t5dRrs/xkotsp8P0u6P1uP3Lgp99zF7APQWfxa64BjD6gDoHujMvz9C
eyDMd3fEZ0bmM3sg8pbmp137hmFWEDTS07eHGhcwexCcemsudOcxzArGlh71
9tFh2oMxnmvgFpi0n9lDkOh8L5rXwbA6BPH1lblfcA4weyjME7lTTfUMq0PB
H7MYXsY+yOyrUcdqcOSWMqxejezHOlWn5hQyexjY/QYz3+xgWB2Gr0ofJc/8
THs4fK11ND7gfcbs4VgoqckLvs4waw1CYuafEFgcYvY10Nifw+nKY5gVgetZ
BSMRfbRHQPKg9USWTxGzr0WLlzzN4AjD6rW4v+2r3O4+2tchvdx0WeDiYmZf
h18dFjQXeDPMisRacVK0nZBhROJsHee85U56fSSWiw4c21zCcHMkzjs2qk3P
kx+Fuz1XPZxayI9Ckv6M9MpD8qMw/6nYpu05+VEoMfM4sHuCfB6+O8f57c2s
w4zPgw97UwNXh2E1D2vvbIo4ZMhwMw/t7Mcjb00YZkVj8bbyBbXm5EdD3fVT
Q6MV+dFwdFJ6JViTH43q3FuFdcQsPvIf/aHXziafjwquu2WvJfl8LP60tXMe
Hb+ZD4tLoooNpuTHoHewKMzMiPwYjK+qvey3kPwYqCXuVwbofJpjUCD313fT
Ij8WrZZ7N7v9//xj8UdPYMrvv9H1i8UXp9/tqh6n6xeLs+E5Tq7DdP3iMGV/
yLRhgK5/HD7pPWkQ3Ed+HA5XvrDr/YH8OLhtHHlZ/IB8AfxYUxtFneQL0DiZ
uyWqjXwBDF1yilLp/W0WoGV/f1j9DfLjMbZQd5X1NfLj8aigid12ifx4BBZy
vY3p89Icjzfiu99e/ZL89bDle3RVVJO/Hp9OVS762+fkr8e+3deiHE6Svx5x
Gd5lHfR5ZAkRwm7i1BaTL8RZo86Oy4XkCxF02FV7rIB8Ifqns16K9pKfAN9r
nWUTOeQnoLy1K/XybvITMD7T/fTkLvIT4DZiXVmVSX4iXssqd/x9G/mJqNHw
Wm+wlfxEOOf0CXZsIj8RvMFNNZMbyU/CHa2vDxxOJT8JVfVHMgJSyE9Csaa6
X1tFfhJej13PGJSTL4Kb/eCDx1LyRegcrb73REy+CG+2OXqMJZEvwrFx76kl
ieSL0Xjr9sJ19P03F6OyYqLkSDwdT4zNEvsTz+IYFovRNP42hBtLxxfjliiq
p47P8F/FCLM6fXJZNPXEmD1t3HUqiuFeMYINnj22jaS+BE3aGcsa1lJfAoeJ
4fkxEdSX4GZVvslUOPUlMKoYbK8Oo74ELX4NZ/irqS9BlN8iH51Q6ktQ66Jv
dTeY+hIYH4l/WxxEfSnKGq9LhYHUl+J5XpuWfQD1pSga2lU2w6W+FNzqnvZH
oL4UmmPfxlzhUF+K2w3c8eN+1Jfih6UvU7N9qS/FzVbNvyh9qC+Dn0fRJG8V
9WWQGoxW+dPvM2TYa/7vCA8v6sugrn51z86T+jJov6uftFxJfRkKBetOm62g
vgwjtmnnjD2oL4NVoMarJe7Ul+NoSUCIiRv15Xg6R1a+1JX6cvh/n3/XyoX6
cpzj1jTZOVNfjuo6odDtY+rL4XD0l3xfJ+rL0dzw1mm1I/XfHw8XVsU6UF+B
k4LUMrk99RUw3NDtmWFHfQX428/M3ruc+grcuNEyUvoR9RV4WaDx4qwt9RVo
mL3ilxs21FegwkbrwT+sqa+Ac8ZM3QCb+ko8vKlKmLGivhI2V0OefEgMJQbM
Y2w+tqS+Ema/D9qFWlBfCdWK6T6JOfWV6PhgXnDWMuorUdvHXnN8KfWVGDV/
8OqSGfVVYA+bsDtNqa/Cy5GUgRcm1FdhVtAJ97nEYhX2vPtplq0x9VX4dfrH
iKAl1FfBy3OnntyI+iqcS3oTlEf//70qLG/qHKz+kPrJ0C/tn7xlSP1kvC73
T3u2iPrJsP3RO0CDWJwMzn3BTuuF1E/G9ltJ2iEG1E/GiL//RLI+9ZNxYdHy
lQf1qP9+X6xsP69L/RS079r+ddcC6qdg0Gjm2ahOMf4DSKmVyg==
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            LineBox[CompressedData["
1:eJw1lgtUzHkfhyepbC5Jiza08YZaci0S6tON0nXSdG+ae6OoZVVk2YkuShfK
tdC4dfTWW3TDSgYt9aIVKkcu7YpIbZEJ45XXvu/v2zlz5jzzOc88c87/0n+q
KNZPOozD4TR+ff39/v+/fof/vQm2g32AfyzQOwwh8QhEpcS9qBMRj8Ud/Qqb
VAnxtzA0rMo8ISM2Rr2Z9fXpa4gnQ51sr5qyltgMlppVaUdjiafhsnXTL5d+
IjbHw4YvmbmbiGcgoW/3QtttxBZw6KyuuZlM/AMC772xWpdJPBvlox/scdhH
PAcTkz5fkhcSz8ORDw4ywxLi+fD8dt9nyXniBZCtL83cc4N4IWx33I6/8YDY
GkMr8mct6SG2gf3N0/Umw3YwXoSz1Q7Zx0yIFyOucDBRexGxLXI0G7bH+xMv
gduv43rmxhPboYvXnSouIF6KZXPMmp3qiZdBnRVq+J9+4uV4IcuWXpiazNge
iS7TbhYGEDtg/r5P5k05xMAEe75L2G3GCmDm/ImaYIMUtjtiSqXSponHWOGI
Uvm7xTVK2p2gLeN0DO+n3QlZhg4Tjjunst0ZwwqKw6IKGCuc8fzVlbQ572l3
gaCm4mRlQBrbXTDhVrFB5QXGHFcITAtrH36/k+2uuLhQXHl7J2POChhmDdaZ
v6N9BZQ3qr1jhelsXwmTvtJU6zuMFSvxY4D9lncOGWx3g8lQW67lGcYKN/i/
0x2xymwX291x8NK25MYcxgp3xAdW3TYZon0V1lxWJJ6NymT7Khw0kBdrtzDm
eOCbtOayXcuy2O6BB2OKKhqVjDmeGFUbbeOqlc12Tzgrv4vLDmfM8cLzI34l
DtW0eyFnY6/pkF4O272xS3Rs+BYeY4U3Cv9YMWvjEdp9EGV3Zn3VU9p9IGwv
HaY/ZjfbffFObGezzJIxfJEfcHxmlCNjhS/67G7szwtgrPLFn1yDiDo5+Vx8
HMyfOphAPhcR/yxv80gmnwv3PRGBLVnkc1HYcuBW6V7y/RBl22DZf5B8P+ik
/5SnyiffD2rhr42OxCo/+NS15h46QP5qvJ6z1LIvl/zVCA29Vh6VSf5qGOdo
lVnT71GtRkPW2v1xieT7Y4e1KpAXS74/koTZGo2IfH84Tzrqkckj3x95h/l5
VivJ58HplCxEy5Z8Hkr/KrGzsCCfh21fOmtVE8nnob2C69ilS34AtJ59eR79
mh0fBOBUtX56egMdrwDcMjbt9jvFWBWAn3krl/Ql0fENxOwTf/ycxCc/EL0F
WiqLpeQHoutunhvHmPxAtKdMuve9ms6vICR98LxbcJcxgtDdrTqTcobOtyDI
ayONerIZq4Kw02PdpPZ15Afj6JsdRWFe5Aejqr0+c5MV+cGYFJA/1Wo0+cG4
F//R7GIvnf8h4Mbsqpn8O2OEYNPzLzaeZ+l6CUHKbM13LnsZq0LQ3aCj/SWB
/FDEzM2tSQgjPxTSzeopxY7kh+JTZ5xr9kzyQ6H/Njh02hjywzDQO1QmULPr
FWGIu6oud3lM13MY+I+m9zb+xlgVhhDOoFFPGV3f4TB9nthXdJD8cHCjSyIH
t5MfjkLPfEXrOvLDsXVydbBzMPl8aMePsFriSj4f8oXp3lXzyecjMVM066wp
+XzEaNzcZ48iPwKeqmbXaRp2P0IE9D40teS8pPtVBLx1ztSvb2OsisA9nxcD
9dfp/iXAhZneIak1jM0E2HSuQLuyiL5PgOSumwZuBxgLBNhqfKjCaSd9vwCV
hwYWKDczVgpge3Vrd3g09QQ4mjfSdXM44w4BjJqmq/p8qC/EPP7u7jon6guR
Ovq+uNOG+kIkRtxsD7ekvhClyQvGWU6hvhA1PnatzobUF0I5wVS3VIf6Qgyu
rc2O0LD7e4cQ3ccXRIf10f1fhD2DiSeVnYzNRCiSjOb+8JAxRHiiu2Pv+98Z
C0RY/tfSQt3r9P9CBKFcr4xXy1gpwozCpm+eVTBWiZC83VHvX8XUF+FxT4pu
hZL6YqS+fbmh/wD1xcj0yr0qy6G+GF5tS+KN0qgvRr3WU2P1NuqL0eC03UE/
gfpivBZ37OTGUl8MTfHcI42R1Bcj9sYTq/UC6kuwJ4unXhFMfQmW+p6rcfej
vgTV/UXLN3lQXwKL5FH8ZhfqS3At49HAanvqS3C5tOPPocXUl+Dfb5MmNM+n
/tc9dm9S4yzqS1HONTftmk59KYp8XXotzKgvxZX1jwezTKgvxZbxCvfx46kv
hafbIs0lA+pLofYMNE/Tp74URkFhr2J1qC9F3caaHxM41JfBK+NU1+FP7PnA
TIa1W8YmPR1kDBlGBvLj7N8yFshQm+c77EIvPU/IIPF+EuX9irFSBu+Use8/
dzJWydDk9nTgegfjDhn6HhpUnn5EzyeRqDpntOv4A+p/5V9etlbep34kdC9/
ULfT84sgEhkZnz1MblM/Es29HYhppH4kjMyPoe036kfi/H7ri/5XqR+J2Ydj
zF/UUV+OtjedAxkXqS/H3J6Wk07nqS/H8CCDmlHV1Jdj1YjW4pdnqS/H+ZFN
Oq1l1JfjWsozv/sl1Jcja4b1lGenqf+Vl38c0Cqi/hpcEW1YM+8E9ddAXHFn
XIwyHf8FCu+7dw==
             "]]}, {
            Hue[0.37820393249936934`, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJw1lgs01HkfhydSkfZSNqX2NUWo7HZRIV0+SiJyGbdhXOY+0+21TRd6Sw25
hNhSwm4hRcZ2VrZyLU1LG7updbaWXkPSW1aUWoVSenff9/d1jjPn8fGc55yZ
//83/1niSJ5Mj8PhNP71+/fr/39erP7fizAO7A+wWDz+JETEE3ArzcD1mpj4
E8hDMiVJUmITRObVGBbJiafBs/aAzbxNxDOxrftZueVWYi6mN53rKI4kno3u
W0Nzbu0gtoRhIDerKJrYCpY9BY94+4ltMDrYEfs8nnge6kp31+UcJrbFDtuS
rqhM4i/x2Pbh2NI84oXYdCVhofI74kUoHh++5E4l8WLo3z6/f3IDsR2y1fu6
xPeJl2BvdJX7QB/xUtxbNcFvWO8g42U40Z/773MziO0RI2nf5mBP7ICM+hZN
ZwCxI86+ykv4PYp4OV6++j7Z6xSxE8pjdw7+6yfiFdDpaXUpA8QrsaJx/XyN
ZTzjVSh8HXB5JJh4NUp8PrIvOEYM3FMHh15uZqwGZm3Q3VlnksB2Z/DeXgoS
CBirnVE3q9LgVRHtaxASNjdWf4j2NXhosidS5ZHI9rWIDnYf84+zjNVrUaiM
K27hJLHdBUkL4kakIsZqF6Q7ZTccuEH7OrSXfBT6u+0htq9DyZXiNxOzGHNc
MZRUlFyln8x2V7RxuqP+qWLMWY+rrkk/lnXRvh6P25Yt0fdPYbsbwtMNbuhu
MFa7QRqgN/OSfSrb3TE6af28d8WM1e7YbWrSajX9MNs3IKf5q5qiJMbqDdBL
7bvzYoB2D/TYN1jtD0tjuwdyDIcTm+oYczwxP8PotdQqne2eSNDNmfFbPGPO
RlhvuJJyoYP2jeB93Nycb/c1273gM3Aswu8gY7UXHDddXBLfRLs3VnZ99+Xo
hCNs98Yhm5Hp7jaMOT4Qx1SUH3dhDB/0pX0RfT+M/t8Htiu4K6fuZKz1wZnj
XhN9ksj3xYlJ7uVHs8j3xQ5r3s7es+T7YsjBS6oqJd8Xf7T2jEcF+Tw0eVlf
3n6FfB5E90/r2Vwjnwd77+xFicRaHtJqyrPLrpLvhwCN3+TmKvL9sHHH0a+M
L5Hvh0SN6k3qefL94JVT3Bd1hnx/7KpQmQxnk+8P8aMjYrs08v3RbN6b460m
3x+npjgabFeRH4C9G4uWV0vID4DjSYs+D3/yA7C6t63Ohd5fbQAsOow9r9uR
Hwj50tCHbbPJD0T5w8Lvz39KfiBcfrAqc+eQH4hfLOqT0trp8w2Ca62TeEs1
YwQhLqbwqGcWXQ9BaM4YN+i5k7E2CJrcrp54X/L5OFWXqzZcQD4feUNmN/uM
yecjRWdtsKqXXX9aPkZik0cNf6brMxiPhPsWCzSMEYx3+3qmLU+m6zUYcyqu
FBQqyQ9G2T6D1g438kPQUrs0vXMu+SH48O3bmsKJ5Idgeq48eu5zdr9oQ/Ai
aNZbeTPdPwI8WXXyRPBlxhBga57n9Xc5dL8JoEh9auR5gHwB9hRc4q6VkR+K
N8crf2n3ID8US9ZyX5jakR8KN8HBw8/MyA9FNX9lVYg++WFIabx5TtDH7neE
gX91WkHfPToPwtCw1sDISMtYGwbDznP8CyV0PoRjSuvPn+syyQ/HddfAD8mx
5Icjo/V6Zfk28sNxeEaKWUQI+RFY6KExVK8nPwIWcVMOTF1KfgQKnZYlmVuQ
H4HMj/c6Z39KvhBLjzc9iOEw5gqh8rUsaupn5x2E6C8zfhr/gLFQiIIOx8mn
79B5KMQC1dQT5lrG+ULcfMl///4CY60QmjffPHAsYNwpxNDEgUe/HqPzVYSW
F0e02gTGXBFUWaHLx0dTX4R8RZZlwWbqi6B5dUD4dRj1Rbg4Zlh3y4f6Ioxt
tD3Bd6G+CAlRzpkLHagvQsTtkX6eLfXFuKtTNVzlUl+MJ/XXPCM/o74YRTEX
ymVG1BcjIHGfR94H+r4Qoydmr8DsNeN8Meoz2p3vPWWsFeNirUx6u5NxpxjX
6ubYjW2h7x8JtnU42exqYsyVIHF2xk3zesaQID8qL1evhrFQgrfz5rnM/IH6
EsQbG/O3aKgvgemk4bjn+dSXwMHfeffZbOpLMFx3pjf1CPWlqHg4qfDMIepL
0Wq2detTNfWlOBe6a0rEHupL0T0YvYOjor4UWu0X25o2U1+KZ1Fxf9RLqC+F
Gy/y7uNQ6ksxWtVgtSCQ+jK8tp2iy/Omvgyj9vyhZe7Ul6Ex8V3swBrqy5A5
Jiv17grqy9DxsmHu/WXUl2GztWk0ZxH1ZXA1rc9yn0/9v/bnJaUX51Bfjq6j
M/pWcqkvR3pixf5uM+rLkVPtnVv6GfXlGDe/LjHzE+rLcSOiIzp7IvXlGKx0
qq4YR305DA9ZZv45hvpyaPpVfLf39HyiwJaEnUGVw4y5CigvNPU4v2IMBfS1
YVv+089YqMDicosVeb30PKPAXa2Fdns343wFTodtjBA8YqxVYJelOEHwgHGn
AvV27ae3t1FfiVlObdanWqivxBNz/fT236ivhKlDpNfiX6mvRJVp1pNvblFf
iZE+x5apjdRXIkXhfrbwBvWVyLa+d9f1R+orYV82+OebWupvQm7n1dTaGupv
wkLd5wuOVybjv9NWwXQ=
             "]]}, {
            Hue[0.6142719099991583, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            LineBox[CompressedData["
1:eJw9lglQU3cex4OiBboVXK2rgyIiVS61cggiwpebcN8ECJI7QQXExYtdIeLB
rRxalUumArXQrgqFIFaNUCmoQGG3RV3RUKwH9VgViwji2un/V2aYzGe+fPJh
Xl7ee0tEyaHSaRwO5/v3v7+/PlWnpU/VzQLn9x9B5h+vHAO8Sj62ye9PngvL
c9mTEhHxfKQkOHUPSYgX4r+1mrR+ObExtkwZdHA3EZugcqnJeX4ysSmWPj40
YJJKvAwV+YGWzbuIzbDUU5pqoyS2gPk8H5vWLGIrOP5i3ry5kHglIl/lLNhS
Svwp7jpaOj2uIV6NiPKz1R82Elsj5OK6qInLxDYoGEw8PtJPbIv40pMn9e4T
22HrTW/ngxPEa3DD8SvfL+fsZWyPSauV9oUriR1Q9vTphh3+xGvxs2IiojiR
2BExF8OWzikmXof0ab9sNG8ldkLc5tW5WveJ1+PIzud17R/vY+wMbnVzbzGX
2AUT297dydtDDLgWqc9+d4GxEpiH8xZ+U7S7IrPam2/qvp/trugYX93ml8+Y
4waLHdlHGm7S7oaEGRddXCwPsN0dd4scX1xXMla6I1FnVGZ5i3YPfKEc6Tay
z2K7Bwp+2z8Sf5QxxxOiB0Oi8je0e2Kl+3nXHYJstnvBrX6wLqeTsdILG812
qcXWOWz3BmdPSXNBBWOlN0bktQY5urls98FnCn3t/m2MlT449GPhuGaIdi42
1yUvswrIYzsXP866ZmeuYszxRZN/zXjg4ny2+yL3lJfh3/Yz5vihrYnX9u4B
7X7o7vSxKPAuYLs/VPzlRn4nGSv9kbhVEtbzhvYAiOBa0RRwkO0BsFTovawr
Y8wJxK86Jp6Se7QHYpln2qLq5YfYHgReZpOuo5SxMgi7L/N7plXQHgzP8UHx
wx7GCEZ9TuqloTf098EQZm6122VQ+Aerg6FVe2zssDFjTgjybx3P61vBGCHw
jxjMcnVgrAzBy8bP7SZdyA/BiSrNB4s8yQ/FcweeXrs3+aEo/auVv4EP+aGY
uU2Ha+5Ffih8ON1htm7kh2FsQDgj2on8MBSFGzZcsiU/DKMN9Q8KLckPg28m
79Xon/9/OJwnVRlzPiY/HPqv7xnP0SE/HLYLUiytR9nxUIfj53PK/xX9RMcv
Ar6lqlk5Kjp+EXD1WP9b5FE6fhG4NnDh6prt5Ecgr8F5XXw4+ZGw/Ut70jRr
8iPhdLtqeqA++ZGw0HJcvOkx+3zVkfAM7chL76LPPwrc1wNDp2oZIwo1yQHn
Z+6j8yEKWR2HnpwRkh+FNbY6Xd+6kM9DdIsO38mIfB58n8pUzm/pfOShbnir
zQ+3Gat5WB/6rvHNt3R+RuPR8PaRKxWMEQ23c9ZH7DPIj4bP6gItfwH50YgK
3qhxcyM/Bl/x2rzmfkJ+DHYYzihu0SE/Bo7Be6RmT9j3Rx2D8gvDX/D76fsV
C5PobmVgC2PEYlVeRuRYJX3fYmF6veJa8AHyY3Hpp+kXwpPI52Oi4bTL20jy
+fAYvljpAfL5KNROj/7Egnw+PnLIXVI6l/w4ODdOv1nxjl0PEAeLmz8UWv5K
14s4PPd4fsB5gLE6Dtk2GtP+drp+bEDWpRlTQ2fI34Dl8jU9CZXkb4BXNHZK
88nfgEUfHtDuSyM/HqrymhOnEsiPR9tnVscf8siPR1BhlKjAh/x4pAQN5pc4
kC+A28R3XWNmjI0FuDPu9bB5Ab2fANL5Lf/p1mMsEKC8Mv3o2km6Xgpg/9Ig
fOwJ4yoBxna+9dbWMFYLYBg80RXXz1gjQHrddK7WFbq+CnFF/He/xyrGxkJc
LrJNWljPGEKMtz8TH6pkLBCiq95j1K2Y+kKYPdKdsD1AfSFKWkvk4jTqC3E3
WMvpehL1hTDKLcxPFFNfhPM3xtI9edQXIciogxsaQH0Rdrh32hS7UV+E+bzU
kukO1BeBqxvTU72C+iKMrjvGS11KfREmyqO+2bKA+iIoxrkpx/SpL8ZV65VW
IzOoL0ZCDe+gZJLdryDGyQGXgJkvGQvE0Pb7yKLnEd3PxPDmWj9v1TCuEqMm
m5N2bYCxWgzuPq/aqR7GGjF6Zc+EYR10f5Rglaz2884LjI0lkKfslsc1UV+C
f8w+2mLwNfUlSBD8u3aomvqS988DGX695dSXQNWl13njMPUlGD2h8nybT30J
0hJ5r9btp74UKXN19A/vpr4Upxoe9Glvp74U2sF39hYkUV+K/lsxKSvk1Jfi
BX/+k+F46kshj7gXdIZHfSlaTOSvi0KoL8WiTU99s32pL4PDlrVni92pL8NV
J+/SM07UlyGgbFnakB31ZbC98n2X6Srqy3C/tXdmmhn1ZYi2S2zULKG+DNkm
qyJ5htSX4V+Vt3dp5lJfjqP8wK93zqK+HEPJ3L3GOtSXY//m2OIBLerLIexV
pVZM0POOHLrV8zpTXjGukmML//CK8GeM1XL88/3Tn8cjxho5XoSVtbsO0/OT
ArlPXL38BxkbK8DP1M0QDzCGAov1uUZZfYwFClj0zR5ovkZ9BWLj5sW/uEJ9
BZLLipPWqqmvQFmFrTqvlfoKpPnPnP3oG+on4NzdKOOQ09RPwKcL60+3f5mN
/wMXIqHQ
             "]]}, {
            Hue[0.8503398874989481, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJw9lgs01Hkfh2dLvaWmot5o10ZWnaQtwlh0+cj9fr9PmfuMbLQqCvVOQsll
I5ZXFqWb1cWpkNqYXip0Ubsi8tZo6w2ptNLldPHas79vznHmPOczj+c48///
5j9PFOMnHcfhcK6O/f71GpTLNR/OnwbOXz+C5L9fOTMQWWxe7fOZZ2Fr0Qh3
g4hYFwbXvzYfkRDrweS4o8lLObEB/tuiuyw+itgQ6oy6h8UxxEYYrpNHJGwi
XgBF8TebFyUQL4SLxYm6ViXxIjQWehxM3E28GB4luTmCHOIlGI116S7dT2yK
0cqT1aKjxGbgP7MyuXOWeBl++1ajb34TsTl4H7ZppN0htsA7xws1C/uJLZGY
lDG0epSYB+H9uD5N3Z2MrfC1lTyr1pz4O0hDFz3+lx+xNfSjC4KKNhHbwNSw
Wm1bRGwL4/GPUNBIvBzzjlzU7BkiXgH/nU/PWhqmMF6JdPn7ktZg4lVweF0+
60IOMbC5NNXf4BZjJdCQ3FY4ZWYq2+1Q8mXK8tQwxko7FCXMUWccoX01SlI2
18x8Q/tqxOf/PjDBI43t9vgz7J4JDjNW2mPur7UReeN2sd0B48KR2ixmrHTA
86Hoyz810+6IJdGRtSdMd7PdEUuXaN+t2s+Y4wTXQp6l9eR0tjsh3vCTW8cW
xhxn/Grzhdb0AdqdIWt1Nhfz97DdBfyU9z94tDFWusClycQQqzPY7opJGxya
q84yVrrinf6DpukLMtnuBr9s2ZS2fMZKNxRJjLtF47PY7o6UDqMo+2jGSnc8
rXuV9/wO7R64/HjYv986m+0e6P14zvzSvxlzPLG/NyOXO0K7J7J6Dp3b4P4j
273QHjtSX1jMWOmFUq/bduij3RuC6KpoHZ29bPdGjHhHnZ4VY44PjheM05sX
wBg+KG9qcdaLpvf7QMvLLnRqKmOVDzp4G/NGCsn3RcExHe7DCvJ90RVcury3
lnxfSHk26f9oJN8XN6aNqtZfI98PFUaiTNPb5Puh4H/O92LayffD9olN3l53
yPdD2nBixdDv5PvjjpPQYtst8v2R226x4iv6+0p/jC5/mPXn574/3KyShhdd
ID8ATnfN2p5WkR+AMfVM+GHyA9CQsGtqGf2/qgDwZJO6evaQHwj7jsAoiyTy
A2GeVGZz9XvyA3H/bk/9GT75gRDI7UNme5AfhPB1TnaTbckPgs3S9+mHjMkP
giKx56tP9PmpgtC+7EqT8UTyg/FBzN0bS583glEz3Nq3pYmuh2DwbOcnJZcx
VgVjYO7zmqNJdH2EYKF4cvPHEPJDMGLkrv7JkvwQVDfYbkzWJj8EUdNj42+8
oOszFC2nth5OvsEYofgDsWd/qaTrNRQVJ7u7HNIZq0KRza9ZmSsnPwwDWrrT
sp3ID0NUomaB+QLyw/BynNJ9+0Tyw5Bb59YQ+YTun3DIZ+sdfdnMGOE47ZXZ
qVVJ91s4DnCNHa5kMVaNsX/GJ80fyOfjhdMmy54A8vk4oRoy51mTz4eDeKfg
n3PJ5yNuUuDyuM/39xoMBkWJAvvZ/Y81UPo8TjvVRufB2F65Im5HDWPVGty6
kTur+Wc6P9ZCwHvFV6aSvxbuNtWCo+vJX4ui+01ONkHkr0VGlaY7bxX5Ecje
2HyxcCH5EShQcsZHaJMfAZsz6py0D+z8UkWg+5LZq6lP6HwTIO5B6+UXtxkb
CBCfNvns4ouMIcAjD89tl44xFggQVB4/VJlH56EAA4KYwX4l4zIBgkePRmxd
Tz0B5kQddw4JY6wWIMfjRFWKM/WFOH1Ku/qDBfWFODA0Y1u9IfWFSGzHyuYZ
1BfCsMbGVneUzmshzpyyaDz+jHGZECMV5WYpPYxVQpy3ffCs+BpjtRD37JvX
jZyn81+EmcaxCzJ/YWwgQnHlzYqIIsYQQdOSvzt6D2OBCHH7OiJqE6g/9n7u
QOd3UdQXYUZ934GX4dQXwcUoeYvag/oiHOtO0tdYSX0xfISx4vCl1Bej41nm
nMcG1BejyNRZv0yb+mM7Z0lYhgb1xXihLq89/Jp9v5WJoeN5ZPHzPsYqMfKv
5FWL7zFWi7E7+13ghJv0/SiBbHyA7m8qxgYSnM57xG05wxgSvEWCV/8RxgIJ
7HPt3poV0fepBDe5+UsPZlFfgs4pbXOtd1BfgteDeq9HNlFfguyD/k87FdSX
IlB52fo+n/pSzPecYzjJl/pSHEk3HAhwpL4UpX+c72m0pr4Un64XuwYsob4U
b79dlTrhG+pL0WV8uq9Dh/pShDxPun11KvVlKExNOtD5BfVlmF3eWD/hDXu+
gAxGksR9voOMBTKc+tCUdb6Xnkdk8HQt1kcn4zIZ2lddqO+9zlglQ5vV9kcl
/2GslmGjRgs3/hw9v8jxpGvwfORJxgZyNLzJjok7RH05hrX3ni4uor4cyq2v
uD17qS9HwMD1aRa7qC/HTD0Dx0PbqC9HwbN2+8WbqC+Hju3PZdfWUV+Buf69
wzuE1FcgY+Lxu14h1FdginfBoJk39RXI3VXXtsiJ+gpsX7bPyHoF9RXguX78
kW9BfQVMtXTr8kyor4As1sa115D6kfj+Wu9Tuy+pHwnJqoNeNVq78X95ka0t

             "]]}, {
            Hue[0.08640786499873876, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJw9lQs01Ikex2dz0fZA5SayTCbZrB3pYbyGLyo9Rkbe7zFPhNVjLzfJ5FFe
2fRSi1bEljadbmKj4rBGsj1YtU0pKr30UOhWVG579v+7c86cOZ/5ns//M/M/
/5n/HPF3a2UTWCxW++fnX69/P165WOqNyR7HpIF5AwdTrxTOiyWeCC/rL2/M
jiPWQ0DIgt+i44n1sWTfB7b6O+JZqIj3X/rDemJj6E1eGZS3kZiN9Ebja/e+
JzZDZ51fe1ES8Vw4V1j/fCmZeB7uBIcuSk0l/hqdHeO+v6cTWyJD+j5BlUVs
haCsF2fT84m54GoX6BvvI14AQSbX5FgxsQ3Szo4ZLq8gXgihVUKP7kniReDq
2lfNrSdejKEWG50jKuIlOMSJPVLdTWwLO9GJW7J+Yh5OjM2ufPaG2A7be4K4
4i/TGbZHUbs8/pkJsQMOWPR2HLUldoToobiiXkjsBJ9uK7VLHDEfezw1lvnl
ETuDs3+K6z+riV0wmDfNoLCLGHhSZJT08j3DSiDCM3bIcm4Gs7uiud46JsCb
YaUrVFsNCv+9jXY3OO/tyi6ood0NkDxwPDhAuztyUs9bZXAymd0d02O/0nWJ
YJi1FA5F27JPltC+FKN5JVNq7tK+DItiMpo5ZtuZfRniWi8euKJgmLUcCZp3
FSknaV8OP56b/dA72j3AO7/1xBP3HczugQDNTWkzdzHMWoHGGh97qzu0r8Cp
tozb1y2zmH0l1pRdvd2QxLByJTb0Wk3LUNG+CodKulVdM7KZfRWmqdQ9q0UM
s1YjZ1fy8J7jtK+Gs2ndj95vaBdAfyQ6lcvPYXYByh8X599MY5jliSodn4ka
Kto9scOgdrNCK5fZ16DYUaNU5c6wcg0aa5sMn6bQ7oWAMRvN0hravbCpw1Te
+ph2IVLYQrmTQd7fDCEc+ndHv3ZjWClEpqH1W3UMw01CnP3lxeaRfIZZ3ph6
/U2fx0nyvdFTmav3oIN8b9iPJq3q6SffG7WrfROEo+SvhYCt4yCespPx1+L8
SE6E/WyGlZ+5oqrhCwuGm9bCMVg7fsCaYZYPfo9byjK3Jd8HVULvPf325Psg
Uc9nVpgj+T4o6os+0OxAvi++6qnZucKOfF9kfAjzmrOYfF9seNpWkMIl3xdf
aPmP5dLnYflhwceGy0mm5PtB+JRXHjeTfD9Mqql1LqDv1+SHcXZmnPYE8v1x
T/f1u1f/pfPnj7TC6ZXrntH580fv5U7X3b10/vzhpHSp2/IHnb8AHK0L4qKN
/ACU8SU2g/XkByDjudmfB6vJD8DQm5hXnmXkByKrqJBnsJ/8QNjePqUczyY/
EPNGVjzV2Up+IJakzNQWbCA/CL4ujfrn5OQHIfP1AmNJCPlBWNayIp/vRX4Q
2rju8kPu5AejZPSi/gY78oOx0LLhh6pvyQ+GwmtLGp9DfjAc7D4YcQzJD4Hy
oorvp0t+CA53Tfl0RZP8EMw2qXbL+8Bc700hyLvPyc4epus/FLVtgnMtAwwj
FIunJ8+yu0+/l1CUCyJm9avJD4XF7vuK1k7ywzC4/uMtdTv5Ybgb7KwwbSY/
DF79bNO99eSHweROKdf2NPnhSGNX3NT4hfxweI5+2jR2hPxwhN64Fj/7EPnh
KK7ku4sLyY9Aq4dAeWUX+RFovPSqJTyH/AhM+GjTMC2D/AhY5ErnPPr//4MI
QSaJjbcSGWaLUMcTrHu5no4nwu1EU212LMMiEc5Xjijj5XR8Eb521u26KWK4
VITrmes/hYVQTwTvHWL9j34M94nwrfvoN2eE1I+EWfVpeeZq6keiTOcfg7HL
qR+Joci3b2NcqR+J5s2d57Y6UT8SHXtOK3/mUT8SFgbL8/sXUj8SApGct4RL
/Uikut/sPjCf+mJMmj/WqmNO/c+cn5awn019MdQXbGBtTH0xFpf/WHnTgPpi
dG3qNdo9g/pi7HFKNAzRpb4YT4dHOIsmU18MoWVnk6E29SWo0LVN1tGgvgRG
bZfv640z//eQYPOj3bnsMYZFElhOLJ/Kf0v3Awke+s/QlA8zXCpB95hqWtEg
w00SnAj0+PP2M4b7JDjwruSDxRO6v0hxibPAKrWfYbYUv04onnGvj/pSFDkX
SjzvUF+KqTpXr7aoqS9FWkm7ztIb1JfCveWi+nIX9aWY/PrEc9FV6kux2LdX
82MH9WVIMOA+OnyR+jJwzp4XerVSX4ah6OeTNJupL4NRlFNP8wXqy+AqcM7P
aqC+DJb8Lc/9fqW+DNtZ8t8sz1Bfhsq7/Ida/6G+HJlCLfZANfXlaI9P8Og+
Tn05Zhh1WLcepb4c9/4Yqj5XQX053sCtuL6M+nKoPNOvXfiJ+nKYvuwzby+m
vhzm69WJ6oPUV6BUYlM+uJ/6CoSPPsqcvJf6Cox+Mh+3KqC+AtvsnQZ98qmv
wBnvfJ4yl/oKtJrtrD+VRX0FHmw5HvIkk/oKDHn5jnPSqR+FAYd7OVIl9aPw
OLmg/1gK9aNQ5LRteHgz9aOwkXf4J7ck6keh91R1577vqR+Fd23fbHyxgfpR
4GsFxq9MoH4UeGvmVx+Lo340zDSWmeiso340TJPfV/0rKgf/A4+Rrdg=
             "]]}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {1., 588.}, DisplayFunction :> 
         Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"b)\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.05, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"GtC\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{1, 200}, {588, 1200}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxV03s01Pkfx/HBVoSoTaX6lSWRrkSK5CW3lRKGcWeGubi1bfq1JbYG1Xbx
E9IFXUZqK0JKF0LTXRe3tVRbIVFuKbZkS/n1O96fP35zzpw5j/Oe1/d55o/5
IXitu0iRw+Hc+/b+3+fw65015/9f4MW5b4+KHFo2TGXoGF810nw4ib6niRtl
4/fG6huRxyNtdFZBxAhz8iT8LA9xnuy4nDwVfHutPSZ6zmQdnHplWK+wmEvW
RWpilJXhCl/yDER0blkbFycgz0R7iFZ21x9isiGKFQNTNluvIRthdMzcrVOi
o8hzoGJeZV6ovpE8D6pti6cLN8WSF+AaT9E0LiKObIySUfdfztffTjZBlZpU
wSxmF3khnpmL9mnHJZFNcS//eNNn/VSyGVKtg/yWRO8nL8KcAV1frkM62RzC
2Txd5Ywj5MV4oKWQ/BeyyEtg5m8ULxtxgmyBDJuD0VLdU2TLb7/PRvLwaA55
KWblTIvsissnWyGjI+Xm8bBC8jKYiPWKJlReIFtjtP+x4NafLpEBmXVfdYx7
8bClQKvShy3/iimluw04jUVVlV3X6G6DlFvqLifqrtN9Obpj+CWfHt2k+3JM
uKTr1qN0h+62+LkSp128K+hui+zs3G3n6+/T3Q69u4/5/Tu2ku52EJdPqfea
WUN3e1yuHntoenYt3e1x6NpHlUDTOro74O3OgwPlT/6kuwPqJDvbKlMb6O4I
laUru/sDH9PdEQdUzqrvtPqL7j9CPq+54fzcZ3T/EXsN6nyS5jXS3QlPTwZf
TJzeTHcn5NYf2jNt/gu6r0BzQfUJiX0L3Vdg+eYZd+8LXtLdGeXl0f3ZCa10
d0ZvZvQrp5w2uq/EAv2MSI36V3RfCeOUTW/slNrpvgpJ6cLrS0w76L4KL6tD
Eq0knXR3QVtUzI6szC66u6B44pbC4ppuuq8Gr13t0/MRPXRfjeYzbTYRFm/p
7oo4h0HDlkX0v4crIpVTfM5Uk6Wu2Dvke8lW0jtsuStC3Of+ueYLmeOGXv7W
I+0pfbR3g8bVX3dFz/ib9m5IKn56u7OILHfDwJMCrqrte9q7Y/P96xMLqshw
R8vX6sZ8rw+0d0d+fQSv/TlZ7o68jBmfrQT9tOeiTLlm8MALMrjQs6nTbgr8
SHsuLk0Oihr5hCznQnN5loeC6wDtPfAo8b1ixU0yPMBp0tnAM/2H9h5IXleq
dTaLLPeAP68s9oHqJ9p74oGJrWFJFBmeMMvbbyptIEu/3U3txxuaf6a9J8Ld
nJzK08gcHmoTWqa7vSWDB61NPRHvHAZpz0M6x84pL5Ms5yH8VGpT+hsyxwtv
0gyM7i39QnsvPDjZdNNlF1nqhSvbfrm8rI4s94L/rRUeeZO/0t4buYqZowqC
yPDG5bbZFt7HyVJvvP1gblLWQpZ7o6k25p9enSHa+6AKMx1HB5DhA4X/RKzR
PkiW+uCQaWKfXjVZ7oPm2ZF3jylyMLz3RU3fonD5VDJ84VpVIPtiRpb6wu4H
3mm+C1nui5QiNfs+Edv7YVAhvqIklu39cGfEVO0bqWzvh5SLa69onGZ7P5jJ
ne/llLK9P367FaCVUcP2/hCXbhrX+pLt/eHSE/86qZ/t/XHEbew6mbIC7QOg
13vRftpkMgKgHTuyRH02WRqAeU1BrestyfIA1KyJkHk6s30gDB6FpV72ZftA
fH7iaHQ0jO0DoSiR/q6+ie0DEZBVPWH0DrYPwt7e4sCD+9g+CDYGnebFMrYP
glJUmOn6PLYPwqqKC/KKYrbnY8PMXP2y22QdPjJbI3Zza9nz+Gi0+K4/6RmZ
z8eIV5puUa/Z8/lwLIWE00eW8bHthbzdcpD1+BDM2RdhMFJx2M18FBjXRN7W
IHME2OnW4DZJm6wjgIuKJExXlwwBcPlCd5sRmS+A/2tfjmghWSrAzbleF7Ms
yTIByqXNKkdtyXIBjv6NTj9n1hdgzokjxs/dWT8YqUeKcvR8WT8YoeJkTWMB
6wejvMVYY1Qo6wcjzsDY7tRPrB8MWa2n9fcbWD8YLmEGCStjWD8YQtdftnvE
sX4w9M8/L5jzG+uHILtlGb8hkfVDsDFtUYd7KuuHINYuMTX7IOuH4Inp4fR7
h1k/BHtWlBrfyWL9EGhMObwt43fWD0FGlOy8Yy7rf3v+AYu6qgLWFyIn3vLD
giLWF+JSgN70tVdYX4gTPmtW7y5lfSEKzR7HJshZX4ji5NwDfrdYXwjvJZ+2
fV/B+kI8PPnC8OwD1hdiqOSO/8xq1hdh16jk9/F/sL4I8/c/L7tRz/oiWKxb
Jn31mPVF6FcRful5yvoi3PqV2/uskfVFCOtPG1f4gvVFyJ8lGBfZyvoi3JlQ
eXjMa9YXQzbhvXd6B+uL0cLV6VDrZn0xxpb3dob1sL4YnrsTPp57x/pi6HKT
s1v6WF8M1ddpW4fes74Yhg29E5U/sr4YSQ9VPwwOsL4E8XfDMxs/sb4Eq0we
78kbZH0JuvpjbMO/sr4EU5MGLLU4StSXoER7R1e+AlkmQf4+tdvmSmS5BJhi
tfjcd+RmCcaE5xROGknmhGJddHPGulFknVAc5sf4XlUmIxTC9VYe/SpkfigW
npnRoavK+qFw4G7daKPG+qFQmMXxc1dn/VA8PFfb7TmG9UNxUvVMwkoN1g+D
2azH6xdpsn4Y1MODNMaPVcJ/AeQZiHQ=
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJxVk3tUjfkeh3eOCEnj0gWjpJi2xiSNS6GPnaYb2dVO7V2y2+1bpnNcu6DL
1sksUjKYkEsXolFCZ0KT2ClMoUabQZQuSqSiJBU5c1bf3x/nt9a73vW8n/X8
nr/e6ZL1XrJhHA6n/O/nf++h89aB8/8HD7ZxnS1Ga9F3HUzfPeanA3WTifUx
onOU+RMPK+KJ+Hi7+uTBlwuJjaC1b3WYwQ1H4qmw2ja5YBt/JbEpLphkZetc
FxCbIdQy8ZhnQACxOS7Z6x9IeC4hnonwZLSnHFISf4O4xohburHribko/tnu
WkfDZmIr6O0x/qXsbiTxHKQf1L5SeCyG2BoLLr4W3rkSRzwXx+dccLa6/BOx
DbbUVedmBuwhngdVoqv4c+A+Ylt4cLX7NZEHiL+HQU3hudqRh4jnw+xqSlmr
0VHiBXgZnbFze2Ea8ULsWltRWL89k3gRXIS9vy7amEVsh/FfVfUElGUT20P1
9u4N7ehc4sXQdx8w3eF5gXgJnrvH1eil5RMvhRb/osPw2QXEDuB+7Sow6btM
DNTl9Jz6oFs0xCrgQqdjYVvINdqXQSt5xq29o0poX4aLd2TnzmmX0s4D39d7
TCL3Ju08SLs6Zd9tvU27I04Yi02kXeW0O6LApYRTmHKX9uXQOVSXul1eRfty
GG7x+qPG+j7tTgjXdw+dVFZNuxOiwtXRuaEPaP8BIrNJ2fbcv2j/AfH1GQaL
Pz2i3Rkp+f+J0258Qrszpst08qpqntLuAoulzg6/NdfS7gLHZs9tjzn1tLsi
sbdh3EODBtpd0dJamTfftpF2N4zNDFkq8mui3Q2z9M7zDsa9oN0dg1qb1tnk
N9PujuTrDdOjW1poX4HKjM4ZhdNaaV8BYXKitqXoFe0r8XOX6yW9w69pX4ny
LdKu3EdttHsgn6fJdDFqp90DA7kbvuEKO2hfBb0DlcknjnTSvgpq1PlEhbL/
nA9L88jRrmPeDTH4UDY8HNGSTaziI93M1VzHqWuI1XyM3Du1XPmcmOMJQc+Z
Obciusn3xJz+ssNNY9+T7wm1dW3M7gxitScaI9+c3mnTQ74XvPrf2uSoieGF
vq+DM6rdP5DvhaWx60qeaIjVXtgfk3b0pF8v+d4QJYJvVEMMb4RFPWoz9/tI
vjfMUv3nFVUTq70hNH+jvO/aR74AtiecR0uKiSHAtF7LhB+/7SdfgHq7q9pv
jxCrBXipWNz7ftgA+T6Yc32gJU5JDB/0pZdNyaogVvnAzj7bPcTyE/k+qEg1
8XgeT8xZjfVWgj+NaomxGjMHXHUtbT6TvxrHpiX82zyeWL0a35+qKjbVEHN8
YVg0VdfWZJB8X7id28EPUxKrfBGrd7NiII9Y7YuNOcNe13URc/xQbbNsxnzb
L+T7wa+k9a7RZmKVH5qOvh88fp5Y7Yd5j89GPHtFzBGibNcKXo8+B0O+EC3i
W70ds4lVQpgeibGucyJWC/EvzZhxVYHEHBHsOkPG3AtnvghNRoc/NyYxXwS/
uTtnTTnFfBFWNfgsjS1kvj/cRo/bbFTJfH/o5ORt62xgvj/CLl39RbeH+f7w
uBNwKGKkFvkBsLB+1bbAmBgBcOyelibgEqsCYLCvMeiBHbE6AIrhp5KL3Zi/
BvJK5TwDEfPX4FjDDt0XSuavQYN9936rCOavwUzp/oH38cwPhKK03p63n/mB
qNp8eqxxGvMDYarx7IrOYX4gzJ6azA+7zPy1SPqs3z2slPlrUfjl3ITZlcxf
i/hJ6T7vHjN/LcbzTFYIm5gvxr2qRRJ5O7GpGDGxvc+m9LL7xPhHvag2ijNs
iMViDE50lCSOIlaJkcS1dls5njhdjJyONsGNycRqMcosjC06zIjrxThVdXaZ
hkvMCULkBCfDLTbEpkHYunJ3X/UiYgQh+YSHeRdYPwhPnf64qnFm/SD49KRW
b/Vg/SAkLGkUtwhYPwhfjGatmuLP+kFYnuSyaXIQ60swwtk3qVnO+hJsGSHz
igllfQnUmS7BLRtZXwLNGl8vkwjWlyDVduJJbhTrS3D87sOKUTtYX4LdB4Pn
XtvJ+hLgZMJc1wTWD0bIo7PGuXtZPxjPLiy2at3P+sHoF/DTB1NYPxgbZo3I
fJvK+sF4ItTyvn6C9YNhUfmg4sdM1g+GKmOdYW8W6wej7rx8ieRX1pfivSh+
YV4u60uRXNM58PQ860tx3Pfopjf5rC/F8HH7YusLWF8KaYH94JUrrC+Fm+fv
N8KLWF+K+8VTUydfY30p9g3PdctSs74Mxb9bHjQsZX0ZshLGWm+6yfoyfBqn
vl9wm/VlsJ+tmdlUzvoyvG5f8Kj/DuvLUOSwaefne6wvg4uoorKtivVlSF8Q
5X7rPuvL0T22eW+ShvXl4L3Lm8V7yPpyBOT3p734i/XlsP5qV3TYY9aXw9D3
2bKeJ6wvR3aoYp30KevLoYg+s6H0GevLkWXnXjG+jvUV+HjP65XXc9ZXIDfh
u8Xx9ayvwL3Qxm/PNLC+Ans2G8+82sj6Cnxpct9d2sT6ClxUPbxS/IL1FQgr
0Z+Q08z6Clw32NC9p4X1lXjMS8kXv2R9JTqq/3naspX1lRCWOJi9ZCxWwsit
PPzIK9ZXor2P34XXrK+EPaeovpaxWgnenWN7NrSxvhKjPqyy62PMCUHj3uE2
kW9YPwQziqsL2v/m/wLGcZvH
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            LineBox[CompressedData["
1:eJxV1Qs01HkfBvAp2a22VlbRxWW2VF4ltWlDxeOSErmMO4MZw8xQwlK0qQZt
JF22WtotRbUuL5JC2eJMar1Uur2oLBpyLZWkJJa39/T9vee8c84c53MezzyO
+f9//28DwnhB4zkcTs2n939/fn71mXP+/4UueWkz59aY2WdORKx+ZZXqvFn0
e9Mw8V3lz78c0CdPx5TDe50uhqwkz4Tr/M5Ok1OWZE1IG/s9rQrsyFzwvK0e
zTvtQp4LvnBsRkqzN1kXlzeUlJt1CckL0BLiq5vsIyHrYZbHh7iH/aFkfRT2
iHrTe38gL0bIFy9StDOiyUuwfmHjhO2GO8lLYahsknO8KY68DB2/yjTCCn8i
f4e6iu/CT81NJi9HivvjUc0Nh8hGaFcU+FxNP0JegV35XW2tX6SSv8cq41Hx
7d5fySvBzRs3MYJ/imyMA9v2FxcXZZJNMKPnYW534jmyKZJMlU9oXMkmr8Jc
Y05Njm0eeTWel83ZON26kLwG9aq9jeJHRWQzxN+J9k9dX0w2h3TyeGv9oVIy
YHYxRpHSW/bZMiAtRvaPgfnllFvgjHCPjb6rnHIL+FaXqOqvqqTcEsVpahY6
tjcpt0TiiF75yK4qyq0wMON4ws7masqtUHQyyZUbdJtya8R3qxjqqt+l3Bpq
CRceWcbcp3wtdnocLBgdekD5WnhczA8fO/Rvym0gyL+f1WRST7kNfldOUZsy
2ED5OmSU37vcVvWY8nVQ/GBgkprTSPl6DIWfyDI70UT5eqTk8w89Tm+h3BbF
CX8VnvVQUG4Lybzg4UWSVso3ICl0d3FrbBvlG3Bl52jfzOPPKLdDUfelWu0r
7ZTb4WCU2ivTpg7K7dG5hz98QamLcnsov9qnXWnQTflGzD48GH7eq4fyjUCm
tqB073PKHaB/0G2cZvELyh3wkt/P023tpdwRfyw8I5059RXljlg2ZVmczcrX
lDthVfqS+DhDuu/hhLU7Gi7VXSfLnFBk9GesA+/NZ8ud4HRqVs05BZnjjBun
F8w4srmf+s4QnUjLq39Hljlj5q2jDctj31LfGVVq3AnbxsgcHkwH1FtCdg9Q
n4edEXruncNkGQ825sFZ16PeUZ8HjeGp6/7qIXNckDtJqVHd5z31XVCyQHeq
bzVZ5gJBbUfkiWWD1HeBKM7Z62YqmeOKCnPsvztIhis0b1fplLh+oL4rNknv
rIguIMtdMXfszyKN8UPUd8O8ygODJ3lkuME80/bMtNNkmRtU2m1X7e4iy91g
03atb3DRR+q7w++k8saUzWS4Q9s14rVjLlnmjo+qAzaebWS5Ow7f3+V4TWOY
+h6wzNjEO2ZLhgd0+gP/ORRNlnkgTktj/xdnyXIP3LBov1N/i/U9sb+14lr8
a9b3RPw+0z491RHqeyJG/kCr3ZAs90R7l+PQPTsyxwtj6zB9YhAZXuCeNa7M
3sH6XgixDFT64xDre8Eg2vQtP5P1vRHOzfml4ALre2PS/Zqn/ypnfW9UcYLl
VdWs7w3v+jV6Nx+wvg9w973qk8es7wPdpi+TtVpY3we/LbIszWllfR80jK5o
PvyM9flQb/MPfcEMPpp2z51Q28b6fOTzDkbZKlifD0XIh9rIJtb3hUeMMMDv
Eev74iuL83dms79P5otvsy++L6thfV888J6mY3+d9f0gcnjeorjM+n44NxJq
mFjA+n4QpywP23iG9f0wtWGrxCKV9f2Ru2Gec/g+1vdHY2n1k87//f/9Edvg
rlcUyvr+eJdzo7XRj/UF4EYkGYQ5krkC1Nn8XRZjzj5PAJs5R+Xj2PcvEKB1
ystJ07XZ5wuQ3PbkzZUp5AwBLsct2TT0kV1vAmxdEq/U0k1WCPDSv7ZzSwO7
/oR4+vpF26UbZK4Q+hKlTcUX2PUoRMz8u79Fp5MFQgxq3TGZkMyubyG+fupV
IdhGzhBCLe2809EAti/EtJvXazMd2L4QL41n3frZlO0HIFJbdky6gO0HQPlo
tvGib9h+ALSSiuJa/qb7TxAAs+1ZI3t72P35yccaPurVkzMCkNS14Fi1nN2v
ARAutMsNzicrAjCc1tuhcpzd/yLkZ1VUViSQuSIklMUlbg9j54EI35QN2Fv5
sH0RrOpLRrXXsX0Rmser+aosZ/si2OTfGlXXYfsiGE0t5xl/xfZFaCg4mLl1
kJ1fgXAOW63y4BmZGwjv45kn7e+z8ywQOg59es+vkQWBuNumGZmXy863QPAF
q+ccSSVnBOL0pYazpxPYeReI2U8WR9aHkxWB8A+JrDPyY/tBEHaPG6qwY/tB
KNSMHooyYftBmNPzsMFjIdsPwtvGn3ZIZ7D9IMjrtl3LVmL7QeDqjHmp97Pz
OgiLDZs5JQqyIgjZW7Tt9twjc8QwcuJc31NB5oqxf7D6SSk77yFG3dW0kdnp
ZIEYFtUGcUUp7PkgBker8MKPseQMMZqW8qu2bWb7YgxFWPf9zmf7Yli3vXGc
uJHtSyCb/PVw+hq2L4H2Ts6IeAnbl8CKm8gT6bB9CT5ErR84Mo3tS5CnIqh9
N47tS1Aa1SHf/5Y97yQwSA7Nde0gKySfHnZ7vZweseefFOnxS0/uqiFzpdj0
1n7F06vseShFiYpKW8R5skCK6ZEir+8zyTIpslTc7BcfI2dI8Sw9VOySyPal
aPqg6pD3I9uXwjCl8dzyLWw/GGmDXV/2Ctl+MIYmG02rcxs0/w9Ihf53
             "]]}, {
            Hue[0.37820393249936934`, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJxV1X001PkeB/Dp4RK3Enq+aGoppSS3SJG3JPKUZzMex8yYGdJWsqhbmZ6U
oqjVIZJUdJ1NElstlVg5YqkkaZNJslMpJHlK3d2zn+8fd85xnJf3vH/vc2Z8
f7+5wi0eoWM5HE7Nnz9//f771WPN+f8XTH6NbohL4NDfJ8A5Kz/3oMFs8hQU
frdkSJFpRJ6KYsudVXG8leSZyMvZkWjqZ0vWQcHUnkPzKp3JXGw6FrVyusiL
PA9PLHnq0Up/sj6Eri+uWacJyfMReyQsXGQjIxui7WPGyIqZW8iLYFqfcMXs
4nbyYsxWtP6WfTCWbIzkzMhDig17yCboyS/bfO/wPvIyZAgl/cVx8WRTGOeY
xd3WOUr+Nx7Ud7rYrUomL4c8yvbnq64nyStwNP1WTWrzKbIZoiK671x8eZps
Dodwu/OOO8+SVyKtJSGt2jeHbIH0otHScQ4XyauQOEYthZ96ibwa1yaLsNn+
J7IlWrb75Q2ZFpKtoF0z2cRlVxF5DTKfD+7fMa6EbA3efj0Vo7rrZEDta3xd
R8svf1sO5J5cPPhx6W3KbeAe9fxogbKcchtY9LpHRigqKF+Lrg9BTUGcKsrX
wsIlwXPXhmrKbfGj9WGPvWU1lNtifIhu4jt+HeXr8FHRGvl5bgPl6xC4d76N
s/pDyu1w0Du6sjztEeV2CFHp7Z1o+Zjy9WhZmhZ+t6+J8vUYDj3X6HSnmXJ7
PFOJfTdwpoVye7wfYz2+99jvlDvgXdlChW1KK+UO8Gu/164430b5Bqh/XGzX
0K6gfAMilapaWcMvKXdEHP+lT9HMV5Q7Is9laRfPsoNyJ+gfsz/eLH5NuRNm
BWpFfp/SSbkzPDc31PDv/kG5M4zW6PIa+5SUu0DLU/WttuFbyl2QWutX4xX4
jnJXDJhq6z480UW5KwwOGJpVV7+nfCOSufJ7O0Y+UL4R3Ncz5GnT2Tl3g/Tw
o990C8hwQ7TPo5cDtr30fje0Fy3ra2oml7tBa86Fkk1hH6nvjrDqU7nbBslw
x9OdGc4XD/RR3x3+EvuwmkmfqO+OwuP3dXNPkjkeeKY8M1Ztej/1PeBlfte0
6key3AM/PZjhdE3jM/U9YFqUEHQ1nszxxJXCnLacITI8wUvZJd8qG6C+J2J5
D9QmNJLLPVEbOHtRgMUg9b0wbFBtJc4gwwt7jkg1dYbIci90pnRn7fcYor4X
tiWNr87KI3O8YTAQoPrDIBneqDI1XqppN0x9b0x4fVprbxK53BsR0aprmh6S
OT6o81+Uz9Uaob4PblhmbIt1Jct9EKE8drgvnlzug6HnvjH5pWSOL7TLjGZe
72J9X2x/lcpbPvsL9X3xdqPyq9U6crkvutU6tveEkzk8rL93K1l2jAwezOVJ
2yoLWJ+HYt0Fznp1rM/Dd30OTqc6WZ+PZM1vmx2+sj4fr1Q1Nrlrj1KfDwMt
j/4yA3I5H7dHH2TmryBz/LBtyZt7K23J8MMsx8brB1xZ3w/6sa8z8n1Z3w8z
ak8kVwWxvj/uX1h4uVvE+v6wOe/xz7VS1veHe4l7w2MZ6/tjcYe6yR1mTgA0
fer2zGDvRwBGx7cZ97HryQMwKaPtuSSY9QMQ06rwjuezfiD2qPCzxB6sH4hD
kt8HtR1ZPxAxmWe7LoL1A1F3udnJyIz1g+Bp/cSieBHrB2G+ocoyNz3WD0JM
SvGEyZqsH4T79QXDI2NZPxjHtUsuLfjEPv9g7NGvnJvVwb6/YBTrmPyx6TH7
/oLB4+X2Zlay70+AmORPJZZFZK4AL5bcXOiTza4nQPMjZXVfElkgwMTpy1Ln
/IddXwCIVuq/kpKzBfhXb2m6vRfbE+BVSWKhN8gKAaqtI25NW8z2Q7De7X7R
8RlsPwTzp4n1a8ey/RDEPa5ybHhP/9+CEOx7fkXl/FN2PkLQvS+4w7mSnB2C
8JEyvcbL7LyEgF/9fc7qNLIiBAG7G6ck7mPnR4j5Oe0VNRFkrhAD9v21Qz7s
PAnRZBDzhWvD9oXgN8o7bI3YvhCND/2fSKaxfSGEqr3KpG/svAtR7zxvuOwN
WSHEs3yNqwON7PyLoKpwkNvcJnNFGKl8l3fmEhl/5rMLzTVOkgUiZAheTknf
ze4vIqgZ2iutZORsEaxjvthzPNm+CJ/vmqW0W7F9EVb0fBntNGT7Yrzvq8/R
mMr2xdCQrNka9I3dz8SIPhe7vOktWSDGzfqKzB+ekOViTHRXmtlUkLPF8B2T
GWlRwO6XYuSeq8sJPk1WiOHZ0/W1OJ7dP0Ox9c7SC6u2k7mhMIm8cao3mO2H
Isq6vOKZM9sPRXdq4ehnC7YfitIRU1X7BWw/FE3lZkdqp7L9UHi0dOkeHMv2
Q/F+2S/ro3rY/V+CkXpuTPoLMleCinHZU/rr2PNAgtJJieJDpWSBBDaBrcVu
+ez5IMGnRwPL3dPJ2RKom4erJxwml0twY0muy2AMWSFB15tC9bNSti9Famud
zW5fti9FywUd5Ql7ti9FpdRa2WbO9qWY3tU5T2zI9qXgHZdumTOL7UuxKnht
pqY625dC7+B/t6waoeefQooT5t/y0rvIHBk2ijZ+MX5B5sogX/2rznADGTJU
tU27NnyXLJDh6bp+oUkxe77KEHA08v7pXHK2DMMfgvZZpLPnrQwp0fl6ExPZ
vgz/SLplrBXH9sPQeqneyimS7Yfh5oLljT+HDlj/D9Rl/WE=
             "]]}, {
            Hue[0.6142719099991583, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            LineBox[CompressedData["
1:eJxV1Xk01XkfB/CrJNJKC9ouGaNFi12Fd9kq+7Vkv/e6rqsZMq2iyXNbhmgZ
Rk1ShJpq1KCFLJVrK0xTTJLK1JWmRQnZJop5ntPn+8fjHMd5nbf3eZ9z7+/3
/WoHR/LEozgcTvV/f//392Zaukas6jRw/u9HA345KlyjLbOtv3gWPuys/xzR
bErmQtvGJFbd256sg86zkzUWb+GRdWF1OsP6bqM/WQ8Nsd/zJ9SLyPq4/sjc
QkHjW/IC8A8rV5YNbiIvwsjN2Dl9blHkxRB+9XbCj7m7yEtx17c4deOJPeRl
qFCYnOalHE82xAfd+9r6RgfJRhgJD7cI10wmG2NJuNx0fNIRsgmGtDSvnUlM
JZsi5Wyg8rIZ6WQz9CckrTLUySKbQ8lj5tTayWfIFjBPNdBx4J8jL8f2rCGV
6mkXyCvgmqdWu3VlHnkljIyv9FZ1XCJbItwr/tSPu66SrdA8t8zlkPs1sjXe
dVrsiY8oIQMtDx52THxw44ulQHtH9seCahnlqyAtsfn1dm0F5asgP8q7pvBP
FeWrcX1R/qpI99uUr4apnrLak6Zaym2goPVkft3+O5TbYC8/3TJKco9yWyhq
2KdLLBoot8WrVUnbzB78SbkdFPTfP6+Pa6TcDre0W3vznZsot4eL32DWovnN
lNujodv5zSaNx5Q7QFkzJDpBq4VyB6yIktf7LH5K+RpEH40R8+bLKV+DsQ9M
bMfZtFK+FoV2cbw00XPK14J/UeppmdhG+Tq0jHTwdAtfUL4OkzbXRO14+Tfl
jjAYbd8doPWKckfonkpq7HJ7TbkTbun2fXRLeEO5E3Qyeu4cr2in3BnngvxU
3wy9pdwZEZuNIvnGHZS7oPFXReh8+55yF5Tfi6oJONVJuStEDqoPuWFdlLtC
UeXs1LhhMscNRn8uPCz9qfuL4Ya2JH3Fonkf6P/dMHD5aeejS2SZGw512T85
vrKH+u5Iimg5d6mSDHdY79tU1WrfS313vH0czuuuJsvc0Wv8fnku+qjPg6x8
u3FHIRk8TOfWFyfo91OfB528MT3io2QZD4PqgcnffCZzPOC6wv1UnGCA+h6o
GnveLu8mWeoBC+Pf457N+If6Hrjbe7J7RjiZ44lz5eOcg0rJ8MRS/fOWN8Z8
pL4nLlpnvLRxJMs8cUi6PH7MQTLHC/uKhNM1a8jwQsR/uH+ljrC+F6Tf7J2S
bThIfS8sPPzHZk8hmeONmbLxrxsOkOGN6x+6tK0uk6XeqGjOxc1G1vfG8MNj
sTt6WH891vR1P0uZOET99WjaFvPaTI8sXY8Xt595H1xOlq3HzxGCl0WOZI4P
OKHZ0//2ZX0fXB1X+tFMzPo+SC5Zp9wcwfo+KCmMGWrfwvq+0J594uLRKNb3
xWdVtcGhHazvixxrzl8LmWW+ON9b3uW4jfX9MFI7vUz6Hev7YebPFo/ebWB9
Pyy0fN6ZL2R9P1Rkr2x/u571/aEX+myoxIn1/eFy+U6xBVjfH6OV4xfvMWR9
f1Qk2HRcnMf6AUjuW63boM76AZil7ZerOJr1A7An6vK8gG72+Qfg5Nm6N+1P
2ecfiGN+Zasrf2ffXyAG09r8+6+x7y8QuWr5/kdOs34gltlPjrx4mPWDcGb7
1CanaNYPgkLexK49ItYPQru5toO/M+sHIS3a9kSrKevzYfWp9h2Xy/p8TDUN
jpunwvp8ZPjmKPV0s+eXD1Nfhw2pj9nzK4C6UsqkWZVkrgBbx8prfrjAnmcB
+kx8H7ekkAUCmBRLlfS/Z8+3AAc1PY5EhJAzBWh2UvO+4sT2BFh38nresDFZ
LoC1plG652y2L4TSMvWiYva+cYWIqLO3NHzP3kchEo1d1CqayAIh6lQd6sLL
yFIhAjSv5JicJ2cKIZwyKn9uMnvfhdjZJ082iCHLhVCtcr8tFLH3PxjDI4cS
bzqRucGo2l3YYmfK9oNR+oqX8HEu2w+GYVv2/CcqbD8YhXGVX7/rofMmMxja
p3PKDZ6SZcHwWTComlVDlgdjQvRvvfZXyBwRDDyz7bgZZK4IabyRswYJ7DwT
odwnOityK1kgwqzi6MyXfHa+ibBkp17vT45sX4RwC5f7W83Yvgiu/eaBB+ex
fRGsLPgnHk1i+yF4clV5b8AnOk+5IVDPud8/9Q0ZIVhroFczqoksCMGo0MSi
ryrZ+RyCA439MbvyyZkh0EofXaCSwc7rEJjdmcCpO0CWh4Cza237jWh2fovh
W1Y58ELC9sW4NMXrtJU32xfDyfwHfp0t2xcj21B4LN6I7YuxQck2b5sO2xdj
6aSUMUemsH0xJNEbe1o5bF+MtHjvP4K62P0TCleLW20qcjI3FOltlXuf32P3
USju2oYNvCojC0JRfTQgTjOfLA3Fxmlu27dnkjNDUbdPrDqcRJaFYpbi8f15
u8nyUGy+Pmdp4ma2L0FkaYnNIRHbl8A2WG1MkSfbl2CkcqBAxZ7tS1C6Li91
txnbl+Bz/5KuOfPZvgRG+4M4rVpsX4KkRzYTb49n+xLElFgJ6ofpPuaEwSdu
mdWnLjI3DL2lF7rXtpERhp0Nk24VPSALwtAZW6C8pobd72HoK1BWGSghZ4Zh
JOYXjerf2H0fBrOG7w5cyiTLw/D4Ve610hS2vwH+BdP7n8ex/Q1wWNCWpRfT
a/0vFdrcrQ==
             "]]}, {
            Hue[0.8503398874989481, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJxVlXlUk1caxiMCslgFdxQFqUWwCCpgRa08YhOWCGWHEJasJCgmouICDsSF
OgL1OCqCC5qCVmHcEBBcWoOiR1wRF2QUDGoZFotUENk6Hef43j/mOycn55fn
PN/vO1/ufe90iTpYbsDhcGo+ff73/fnq8uT8/4Xm7IzSh+oJ9LsJtl9+/nyr
/1xiC7Q9lTa+a1hKPA7xdge27bsTQDwJfjZj1xgPRhBbI8HOljcsVUxsC5E0
fc/xcCWxHc5M8XVRi1cTz4C1SPdt6+ZkYns8sFYbvT+SSuyAi+n6ij3rtxDP
QvJaqydNtzKInTC56+dVLY2ZxM5w1u5c0KDYTTwHt0X19omNe4nnouXr2X9b
8jKXeB74NnawTztM7IqMaaYmVi1aYjdcuLc3iN9ZSOyOL/c86KgRnyCej7tC
ocCB/0/ib7DZYVxbePlZ4gUQjbLLuB52ntgDXT1ukgzrcuKFyNcZXc91qyRe
BJOP1eGZhZeJF+N8VuKcq6qrxN/i3KaM2KJ7VcRL4H8qN27YxGpiTwgsZqoz
c24SAyd688um8Ws+swZ4FFGUsszjLuVLkXn/9+tTxQ8oX4ot2a+GSsUPKfeC
jV611W3OI8q9UPJv16zeKU8oX4aoo47O2hn1lC+D+qR3S45vA+Xfob1ebjmw
8znl3+Gb6Rt+PP2mkXIu7I0CKx2c9JRzMVZt33osqZlyHmSbrK7pq15RzsP+
d+3y+ilvKPfGUOek6MS03yj3xt2NDYdUrS2U+yDX0bn2UGQr5T5o1tfVFN5r
o9wXY1Y2mzvxOij3xZF5veJHureU+0FddkXtvriTcj+4Wim/7rzwjnI+DFtm
HbqfS/tKw8fSkg3b1wX/QflyeFes6NGZvad8OapLRwaN0RFz/LHo6IT0+0nd
lPuj0iF4QGrTQ3kA/mX/S43fLWJNAFSbXwUYJX6g/Hvs+rCiy9asl/LvIcuO
084vIOYEYmBv35IO14+fGYE4fcv5+btfiTWBeOGYVjdsWd9n1gViyH/bw/ar
xJwgmK/xrtC491M/CIar58UcLyTWBCGvsoLLMxugfhC+aG5zjU4g5gRj4ROX
M+06YgRjKFil+stikPrByHnBuVYiINYFY4ys7fn0Q8ScEPTcPDZl4xNihCCK
N5H/xmSI+iHYWcx5etidWBeCqbvkfzYKiTmhKBH6m7alEiMU2tIvU4fvZ/1Q
6LndXuuLWT8UBQt392dfZP0wbBAXTM+5zvphOOcalNR4i/XDYP6HrX15DeuH
oconQrbyJuuHw69sWGHAVdYPR3nvxq9OlbF+OCwbBrc++Jn1wxHz+PJiA/Z8
nAioxm6UZG1l/Qis4O3gnk1k/QhohgY9zoayfgT4PwnlNQtZPxLH+B4HF9iw
fiSShI2ebgasHwmTHHNu12v2/iNRe7/ZOr+avX8BVOZXqhXH2PsXgCM2qtu0
jf1/Avzwcbnkjpj1BRj41TjwR0/Wj8Lbwu6EdmvWj4LK2nSqyQCtB00UVpm6
jhxRz9ZPFMysmnKHl7H1I8QRV8OICf9g60eI2xu420JVrC/ESF+VoJbP+kJE
qY6rDziyfjRGXRQa/DKC9aPxn4t9C3gtbP1Gw8zvK+mSG8S6aGyq3uxy+hgx
JwYTN0S+yNvO1n8M2ivCpMZy1o9BsaG9tp/L+jGwC3NcmzyT9WNh6czVp5qy
fixmNMTOGvWW9pcmFha+jzucHrD9FwufVK7Ts/Ns/8VhV+rHtaNziRGHLYlj
Gh+msn4c4sw+2E0Ts34cMjsenn3PY30RRB43TvrPJrYVwbUou89pHLufCNMs
Rwh2DdI8EImwiJMvVL9m80GEyR7nVt+7Q6wVYXW1U+fxMmKdCG1pIeN784n1
IgSkPZp4eQcxR4xIJdf6fRKxrRj+tVZeedFsHomR+cr0eLE384uhHDFJZM/m
lUaMlHKn3SY2zC+GuygqPMCc+cVI9Klr6PlI807/qd+xx7f/DZt/EpzR1zdG
1hHbSnDHLrjBQkcMCUwNXDKnnSEWSaAM7/ZLP8zmqQQHO122zcki1krQVDL2
pEsKsU6CuKSXi1MSmF+C231LHn0hYH4pzmdnmrf6ML8U9me69xl7ML8Uo04f
na1wZH4pDP3PF4yYzPxS9G3xq/2NzXetFJZj1v701yDNf92n+1WaWIT8TqyX
YoV77oymJnY+yFCR59x7pJbYVgbnprnFe68RQ4a9bTbrLpURi2SYWBWRY3mC
WCND3uNn0bkHiLUywJgz0y+b+WV4PM4rxiGd+WU4+OF18pw1zC+Hy6GSbpGc
+eXoyi2VV0YyvxziP1/Huy9nfjns7r/Kf+rJ/HJk+RdfOejK/J9YtUyjmcn8
cgwcTDn3wxTml8PSKMfm1Gjmj8fAaePid8OZPx5qnuP8wD46TxGPcaY9pXff
EoviISkqs5Y1s/M2HjWrataMf0qsjUfbjuiql7eJdfFQXrK1vnaVWB+PzsjR
Ry+XsfNbAbdTM1V3iohtFbhU5VLedYT5Fcg/tf7ErH3MrwB/UV76xp3Mr4Dj
DK/0hjTmV+Be0UDn8nXMr4D3hdapdQnMr8CzlfliZRzzK6FyeDl+dBjzK1HQ
l3z4hh/zK9GX3B+dBeZX4rq5tjpuPvMrsSZ/NM/LifmV2P93F8E8O+b/dL+h
wRSXScyvhEFB1GyPUcyfAIvMrt4AQ+ZPgIm4X7J6oNvzv8nn4PA=
             "]]}, {
            Hue[0.08640786499873876, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxVlAtUTfkexw93Wt50eyGqo9KYQomkor56l16n1zmdnDqddyiK0mEmR2Fu
QibPhFJpEEMx7s1rziA9ZLypqTjII5Tn9SpMd83/11p3r3XWWZ/93Z/9XXvv
/+8/TrIwXN6fw+HU9/7+9//38dKD8/8HGpZeqU5xNWbnB0Is+kdP93eOjPVR
//JecFeFJ2MjVJcM9P65IpTxKDz9Pke/1UjAeCy0E0/+cdsigTEX+lU3B9b7
KBlbwtxI1u98UTJjawSkHXPqrFjM2AaFbWcGVF/OYDwBQWLv0NTbmYxtsVtw
dM38V1mMJyLPIedsweAfGU/Gobn8uqMNuYwdsCLk3biM0o2Mp0Cg6PzV8uIm
xo7wuL0t/pBqG+OpmBpsleSSU8h4GiJNS7vDzYoZO2Glv/vy0zUljKcDJalS
Zc1exs4wu7jquYH1fsYzwPkyzqW84yBjF9grhpYOzjvC2BW60QtXlbVXMXbD
MOWmTyvVvzKeCeuWJjMJ7z+MZ+F8ynGTawtPMnaHQZ20dGzTGcYe0O/xKNrp
+ztjYPPj9N1t/uf+Zg1Q+mdgsW5xDctnQ5QWWJlaV8vy2RhhvHzmSL8GlntC
fqEoqd/LRpZ7ol3Nzxp+7jLLvdCvtGKHLv4qy71wr751WtHrayz3xuik2h3j
C26w3Bu3Xi6YUh5+i+U+sOUeOWFl3sRyH+wfPWBX6qdmlvui69SuTtdHLSz3
RW3xR6fuu20s94PNzoMdQx7dZbkfWh/zz/C6dSz3x7zUw9mdA+6zvJePOlY2
j3zA8gBYPwzjDbNtZ3kA4vcc78yY9ZDlgZCfSloziPeI5YEo+Jj/U4X0Mcvn
QDUx+V3wkicsn4PFlobv21d2sDwInwNVPQtyn7I8CEYDPF06856xPBiJxlLT
ZRueszwYSRbJy5zXdLI8BB9W+OYL07tYHoJjOz8U2cW9YHkoLL55UpRtzuZa
EwqJMOOEfQ7NeRimB0x1uNPFGL1sURQRF/qKXR+GsLqb59ceYKwNQ3KZDz+A
85r5PFwYc/f62jDG4CG9a/6OwELGGh7u33Mav0HHWMuD8aTFqTLuG+aHQzR4
PP+hkDHC4aPDbw4bGWvCEXXM4G6SlrE2HMdtamManpEfgaacr2K1wVvmRyBN
5Hy1ahpjTQTG2m0NqQpnrI2A1jxffnwBY04k1oWsqvqaRX4k7lz7YnBlC/mR
4FiKHiTuJT8S803LA0dUkR+F1/YpW/udIj8KzgtM9mnOkR+F/K96SxrqyI/C
5IMnN5k2kh+NQ82ip/svkR+NwOCTsb8Qa6Kx01Zvi5Cu10Zj9hfBo7Z68vmw
DXplJ7tAPh8u/ntqjM+Sz0f6UrPCkafJ52Ov0XK73H+TL4DLXt/yDZXkC/A8
9aehsyrIF2DpY7HglzLyBZha+XXf+13kx2BLa22q3TbyY9BhaF4Zs5H8GHC/
rEqR5pAfg1sBJetm0/vmCLEyJXcadzn5Qni9Sigeu4R8Ifzija4HJJEvxFOO
qPmogvxYXB/c9SVBTH4sVI3qMIGQ/Fj0O21btj2S/Fj8dik21CqU/Lnwc79c
+j6A/LmYctze18iH/Ln4/ul/E5eC/LmYkPf2k/lM8kXgvnM4MXAG+SJELurg
OfatPxE8q9KkBQ7ki7DH+c+NbpPIj8PJUfxsE1vy4/Djm1svvv2W/DjsMrlT
kGRNfhwkrvOiHo4jPx4p1gYD11uQH4+IyF37JWbkx8PmsJu3bAz58Qj5Wf02
bzT5YqgC9DoejGTMFSP5QbgkzoTuJ8akP+yqPhsxFovh1TPZTWtI9xdD/4b/
ojKav2Ixngfa3Nj3T+rr9ceUf7ioz1gnhuOEwMyhxJwENGYdMEwcQf0JyB/+
bIluOPX38ppp81OIxQk4GD6l0ZRYk4A9aRvULcOoPwHSOo24ilibAMmWEPVu
Yl0CkvLaLvQxR4KXpj7RfddzJThwX+beRAwJ1JtXFI3o65fgSklzCb+vX4KM
7thlh4mLJShb6yo2oefRSnAmdvfWXGKdBNeCIpTD+55finVj1Fa7iblSNFY7
W7nS+4MUNifSa+4Ri6XwO7dt4WZ63xopzO5MXc+j71EshSa7JW8UfS+tFM28
5q4nxDopXvu/tzlrTP0ybF7ge6KUvjdXhu1nntivp/UAGUxS2gwzR1G/DPLp
l9+l0frRyPCxsD1piSn1y2ArzDdQ9603GbgrFmZlj6V+GZoTh8RvovXJkWNe
ek3wPnPqlyM+rPz9733rWY7uFtdBOi71y9G+fZFjf0vql4OftdhmghX1y9Hq
ub6Q1zcvcmRe1JuTOZ765bCw1Ht1yIb6FfhmUXqQjuaNq8Ac5+fmxt9RvwIp
+1dPDKL5FCugG3bTbbUd9StQYF9rrJ1I/QpcrM1d3UPzrVWgf3OmwNWe+hU4
8NYgTk37AUeJGaJTyuop1K/EzO5W/0+O1K9EKbfylhvtJ2IlkvVnPfnBifqV
qJ7tFq2dTv1KpPKHdPen/UirhOLcniofF+pX4vOwDOG/XKlfhRtnf7ja4Eb9
KhS9GPRh6CzqV0HhdOlwiDv1q3Bk/vmWPA/q781r7cRXaH8sVqFjRaqlvif1
q+D+ZvKgUC/qVyHMy7BnnTf1J6JJcv9BPe233ERcWys/oOf31uMvkk/KCQ==

             "]]}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, DisplayFunction :> 
         Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"e)\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.05, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"GtC\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{1, 200}, {0, 3}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}, {
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox["\"B3\"", FontFamily -> "Helvetica", FontSize -> 18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style["B3", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJw1lHs41PkexyeXrjaaIjpOlEq0RMph2fVGJtfcYsy4zX2mnG4uoeusQok2
CRPr0GW1itiztmJrU1mlolXtOkWlSEqdLBW6ns453888zzy/5zXvef1ef8xv
vrMka0PkWhwOp/nT+7/X/78G3P53EaWBfYC5N/v+ES4lHg9bx/M6vkpiAzQt
d+OOxBFPg3jnq9G09cTGaGpuqpmSQmyKlBf+sb9tIzZHUP/DtoGdxLNhWFvU
cyyPeA4Ke8f2uZYRz8OYhOC3/SeI54Mrr+XrNBBb4+Ruy123bxJ/Dn+jM980
PSW2hUvC1Ec2utsZ2yHjgJM41YLYHls7l70x4REvguhtmjBzNbED1I293m5F
xIuhdaalq/Ea8RLU1+oVlOruYOyINOU9baEX8d9w+JFehjqb2AlTp2uVlHYQ
O6Pxup2Zh0M64y9QNS7c5UUesQvEU4aD5n8gdsUqG7tyRXwG4y/BDyjQNvmT
+CuEJfrj4MZMxm7wdK5oDtbfyRi4+0u3Q1w1YzVwUDP/gUnkLra7w9E5uyWB
m8V2d+Qe6tiz4XfGHA8UPb1SoHtkN9s9YHIw89e+Ldls90T8nEHBVUkO2z2h
GF3o5xKyh+1Lsdx7rmGF3zdsXwqN1ZWPDpZ72e4F2cN18e2VjNVeeBWMs/6O
uWzn4UHDOz3Di4zVPCizZNrlIfvYvgyJ67ZNi+thrF4GT6ssk0vJeWz3RpEo
lWukt5/t3rgrDZhcXcaY44Nbl8fY9y7OZ7sPzMucWyZfZszxxZAJN3OLoIDt
vrCbNyspq48xxw/r1tYtzkssZLsfUqtv9L57x5jjj5174yY5fq1huz+0jS0W
neYcYHsA8q8OJ0/YxFgdgJHORVfPvqB9OXwtgwaSY4rYvhwuF857Pm1izAlE
9p0ex/b5xWwPxNyK8MwpOxhzgmBep79o878YIwhyn/dzJs77ln0/CKf/cPnx
7N8ZNwThSq2s7WglY04w4ozV5o8fMUYwMpMvtZYblzA/GMNVM8P/6sW4IRgp
H3PNd8cx5oRArLT4i3M2Y4Tg/sXxbslHyQ+BTyLfpPgs+SEo3RAf8aGV/FCs
UVfK33eQHwoe13vK6x7yQ5FY+H0Y7yn5ocjpqlri94z8Fbi8MLQutp/8FYg4
XjWx8zH5K6BJSqqd9pD8FWiO9NIS3iE/DDsCHdKGfyM/DB3zM8odmsj/tBs2
pAfWkx+GOcbnTmZUkR+OVxHRPP0y8sOxJvL4RZN95IdDZX0ptm07+eEwcvly
ZlQS+XxEGTzndijI5yO6fuuxVRHk81HBq3oz25d8PoZvtk03diU/AtktitVC
W/IjYKVJnj5sTn4EhPEuLiNTyY/AgRmKaPk48gW4MzJa6/mWfn8Bwh5UpBa8
oOdHgHmthVkfH9LzI4DgztJuy3Z6foSo708IG3ONfCFM3Zsatp4nXwjHjcc/
5J0iX4hp665fX3KC/EiUb3pyRfAd+ZGw6bnh//pb8iMRYHFtpVY++ZEQbbpz
PymH/CjYTbCa6JNBfhTOjBX+nriN/Cg8kZ6sHUwhPwp1Ngs0Z+LJj8ayZN3u
a/T/QDS6i2KkM5XkR4N3aoFvpZj8aLjzeizio8iPAS+3ti2OT34Mhkrst+eH
kB+Dw4M7avoDyI+Bq+84wzgf8mOhM+J+zMCL/FhYCAIP3wb5sXjgkae66Ep+
LIy6G/OuOpEvwiWdpc9eLGZsLsLMmbVSW3u6nwia4XZuug1jkQhTzSocB63o
/iJU1JbbJNJ5USbC6wR+0gQL6olwyvrt0Rozxl0imBupNqpMqS/Gqm6D+oUm
1BfDbbmdn64R9cUwyJ1u2celvhjVBiXCdn3qi9F893udG3rU/3S/W50r2idQ
X4yXfuFZvWOpL8bY9ZmDH7SpL8FAxrw+szHUl6B3rf0N7w90HkowOKptkfqW
sUgCze5t/JoROk8lUDzyeP38FeMyCVKaBvbYDzFukCAnYkfdxgHGXRKkR//T
sPk5nb9SrF4Q7mvaz9hciq8Lnugk9lFfCr3RsaPXH1Ffiu80L+8v7Ka+FJqT
Til5XdSXIqV8Sfqbu9SXYlZIS6usg/pSdJZMmnWDznuODOet2v08/qC+DK7D
R2f/dJP6MuxP89xs3UZ9GX7o27LoUCv1ZZhc93GW6TXqy/BwhoG1ppn6MvCG
JJ8bXaK+DDoNT/UKGqkvR2VX1Q/TL1Bfjl16pVrF56gvh3FdyhOzs9SXQ9e5
OLi8nvpy/Bn73NL2NPXlGL/pnPDUT9SX47P4mtvuP1JfjtbH+/NbaqivwJCD
SC08QX0F3nP1c/qOU1+B+/151ckV1Ffgs5zGznFHqa+AoZfPxANHqK/AM9cc
2wWHqK+A1rtq/FJKfQV0OSlOISXUV+JCKG/y4yLqK/EVd9LPmzXUV2J14xdO
Uwuor4TfrsZtx/Ko/4lHx2d75FJfCZtTbfyOPdRXIvSgz73EbOorcbrw1Qz9
LOqrILpaNeFYJvVVsMgpLPdKp74KgfvM/v0gjfoqxJS/7Nyqpr4KB89rrTPd
Sn0V1m9Zc6R+E/VVuH1vb7IglfoqCNYP9Y5soP5K3DruP6BJpP5KcIs25zrH
F+M/40my+Q==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJw1lAtUzHkfh0dqe20ke6yy0sWrpHVJkm6mT2W6KzVN0725z9RqdyXXdzGU
REWbIUkp11pebdlccjBERYqksgppI7SraGVde+27v++cM2fOM595/s85//md
v6Xku1C5DofDufrp/ffnP68B9/9/iDaCfYHW4MRX4VLif0F4tHxBkJLYCPy4
oZG6S4jHg/vV8449S4lNwPlvgoPLKmJTdAaYNhiqiS1g/MbKPGAL8RTkeJQ/
mKYhnoqod0v5PcXE1tCeLKiqLSe2wYbDY9NMLxLbYvXZ+mqXVuIZ8A/Rvl77
O/EsOHqWb/TXT2Vsh44jbXNHWxPPwTV3i3mOfsT2WOkwId9zKfFcrJaX1lQU
ETtgVJttyahbxPMwftPd0tsGaYwd0ehmXlYcSDwf8vudMR80xE7Yt0B2bc0j
Yme0B4m+PcLdxNgF+wV2joYlxK5o1RgEO4xJZ+yGfatGNO9KJV4Aq8MlQaW6
mxlzMaJzHb8ph9gd/kN69+JsMhgDb875dBQ2MFYDaS9866rXbGG7B1Z5ZcY2
zdvKdg948Iyz7rxnzPGEeEP7/vM3MtnuCe/pB277Hc9iuxfeXsufYL07m+1e
uNjak/AwaxvbF8J6R3N+X+Z2ti9EynN71wD/HLbzYMRX+hq0MFbzsD5bh3sp
/ke2e2N07Erf/n7Gam98W+eWr5eay3YfZE9/djnJZAfbfeAo/Dliczljji+u
hMwr/slHw3Zf3LpvoLHtYszxg74kozd81U62+2GM2fDX68buYrs/sr1Ofew/
yFjtj0DL7x2H5+exPQCRhSI93XrG6gAM9bXpxoXtZnsg+q0NLVZ0MlYHQmp4
Ikwbn8/2RXAZex7n7jFWL0KQX/yKd4I9bA/CT72pOSb1jNVBGCfNGnlpbgHb
g6Es4ZVW7WasDgbviwmcS0O0L0b7hey5tYv2/sNYDHFEd2NFIWP1YvxYEOac
9pixdjE2B7eOCLQpZH4Iqs8k9FhJGSMEgqMpla55jNUhmH6/0ajmMmNtCIwf
60x630d+KA5vmzI4e0wR80ORcyXUu9yGsToUOj78pptcxtpQKKuT2vuDGXP4
MHyc0pwYQz4f6jF2L0tk5PPhUOfy/JWKfD5GTcy4XptAfhgOnWprT1aSH4bt
72U/CyTkh2G42H19XRT5YVhmmxpgGkK+AOdyI5ce4JEvQLN5gfMRJ/IFkN1V
5CyxJV8AnfTMO/aTyA/HYLPbr3MNyA9HfaJrzYG3dP/CMUO0xr/iKd2/cDQv
mNO86Q7dPyE8p/BLeHV0/4XgRyXPMTpJvhDHjgYkcw6RL4RAHDllpob8CChq
ja3KUsmPgGvPg47UZeRHoKU8fd1V+n+1EZg27JycGkZ+JLbmCwpP88iPhK/T
zFNJ88mPxF2jjAEenRdtJC4kvn34dCL5UbAff641cDT5UbjDTXsoGabzF4Wa
i1d+tRik8/dpN27g/dDLmBONxpiNYd900vmNRl+4zq2eZvKjoRd9cnJXHfnR
8M2cZik4T34MTuRH+rhVkR+D729XpGw7Rn4MbNrihxceJD8GZefdSyP3kh8L
j6hZmloN+bEoNa7npWeTH4tNZll5O9LJj0WOV+zJp+vJj8PKd1GmaavJj8OV
htFZccvIj8Pn4zoMlieRHwfPhTcf1ijJj0eFY9F2Hwn58Ziv+1vT+xjy48HR
lmV3CcmPh8T83339oeSLoNif62ATxNhChLIXS7rT/eh6IpyJPbhzFI+xSARl
ocWXx0HX//T7CfEByW6Mi0UYOd15YZgT9UQYMmmyDXVg3CXCaMk2n0Q76otx
PULxcc8M6othP+2zxm4b6ovRtIjnByvqi9E7sM+80pL6YlSEXR8334z6Ygj0
lK8av6K+GI/cf6lcbkx9MX73We41czz1JdiXeLNi0Ij6EhxK8zeuH0N9CWxe
3iwo+5z6EvC7b6Xk6VNfgifGCT05utSX4K/ZmU47R1BfAvtdIdcOfGTP2y4J
WqK9Ppx9R89fKQbsy7n3/mJsIUVVh6GePj2fIYUkJuWG0yBjkRRcJccqeYCe
51JkRIs1lX8wLpbisDDqxJtnjLVSqDpCzHyeUF8Kzw29K/c8or4MerE5qsFu
6stQudO5KKSL+jJsbxto+OUe9WWY5JJbZtpBfRkmCv8zmHGH+jJoJnslvmml
vgwNjituJbVQX4b6fcI/H92kvhyvXA4ViJuoL4f1RFFeVwP15TjO3X1GcpX6
cuw95treW0t9OZ6tflL33WXqy5HecFH+9iL15Qhd65O9+QL15Xix2G6y8Tnq
K/DFGu+h0mrqK+At8X7ndpr6CrxVXzBqqaK+AvbWr02/OUF9BV6aNOrrVVBf
gQ99JdXFx6mvwNY/uBbcY9RXwGP3han3yqivRFTSD1Vrj1BfCaHla635Ieor
YflZvWPNfuorUVmUpa8qpr4SVX7tUw2LqK/E/hfmG6oKqK+ETmXV2Lh86iux
TlJxWT+P+ioo3jzRVGqor4Ld6d+Wx+VSXwWvL2/EGuRQX4VgYYrXmWzqq6DT
PstMlUl9Fc52dj8y3kJ9FdYavcqtT6e+CoPJnmZr0qifgI9tJhtmbKR+As62
zK56sL4A/wOjUrRQ
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            LineBox[CompressedData["
1:eJw11glYjPseB/BR3CzlhORQh0KdrtJySyqlb5tJom1ap2XWZqLFdpFrGUWi
pgYlbU5djpOlaDm6jqXB8VSIcmWLTuoIB1EpErrn3vv/zfPMM89nfvOd7zzv
/N//+xqLkgKlGhwOp/HP539f//945/q/F0EK2Bto9Vs5ECImj4XxnOzYQBlZ
F10/WGXrxpP1kDP+qXHNGvK3qNtlf16yiWyIX/YOB/spyEaQfzfz0rE95Nno
x+aRIznkudCLDmpKKyWb4u7M1vbcM2QzXDHLdJ51hTwPzuMVmzfdI1vAsNjx
0dc3ZEsITHr9po1LZbbGsamDUkszsg3O1O8cql1G/huimhJvWq4n28LAZe3z
Kf8k22G2LKfxTSt5AQzWnhNydXcy24O/uaS5IoC8EBvrlX3VBWQHDG2yqex+
RXZEjpGlUavXLmYnaJxWy8YdJy9CpM+oVC39NGZnTKgdfOCjJLug98Tmcx7f
7GZejIRkYQOviOyKeMcToma7dGbgdWr5hMEHzArgwjG3d2/T97C5G7hV/VnN
nnvZ3A3lcybnqrQz2Nwdkdvujmh3MCvc8TJ+i2pMXSabe+BslKrU4LiSzT0w
x0kd11KcxeaeuBP9+Oyeomw29wRv3lk9z0AVm3thomnA8KZHzAovrFacyJfF
7mPzJehadSkobYBZsQQWi1ZNcd29n825OIW46nczDrA5FwvGWx59d5qZ442C
pLKrmV45bO6NF0XPY3TamDlLsQqO/NqkXDZfig33dstuaRxkcx8MVL5fnneA
WeGDM4NWCyOM89h8Gbg9k15KTjIrlqFYadWjbXOIzX2x9nhWUWUls8IX7ZLt
vRct8tl8OcxFTY4nSpkVy5H6KGfbl28K2HwFTtfeP7NiI7NiBV4ItbK97tPc
D2ccnd0LrQrZ3A+2r+oqZyiYOf7gO7QpSxqY4Y9/HHLTMxhXxD7vD7OaoX17
3JjV/phrPaFseA0zJwBzH64PVxUwIwDll4+8XH+e8gFQ3N94oOsu5QPQvFhk
PPs55QPhO9M5SdFH+UAM/hDdHvKB8oHwu5r06+hBygfC7eOFxz09lA8C77Xx
1a2dlA/CI+nC7YYtlA/CSKuNyUL6PeoglNcNqxxLKc+DQGjrmpVKeR68MiuW
FIsoz8Ne6fz1NxZTnocLXQ/Tk7+lfDAOniwo1HxHxy8YM4J5ReprdLyDYaNz
6MOoAmZ1MOKTzoVNSaDjHwKH3vbdTq6UD0HuIndhrS7lQzBgXtl59Sn7P9Uh
6Nvo4ptTRf9vKLoHxgeEpjIjFA3XFwTb82g9hELT6+PPwSaUD8W/B8Omtw7S
+gqDy8DbK7cbmBGGvvd7X0UW0noLg0V93XRVIrM6DJcM65OT3SkfDp9QJ1vT
aZQPxwWz/edLXtN6Dse65NEp+y4zq8PR++mB+dE8Wv8RSD+0pL85kRkR2GDb
ydXlUj4CjfbWTRFGlI+A6Yhr+PFPdH7x8fmOf//7Vmbwse6vijv2VXS+8WHG
2REpz2ZW83F4VOTc1ATKR+Kiq8NLhS/lI6HkWuTyLSgfiQe8ac46OpSPxLOE
lBmqHjr/o6BlsyenvZkZUTCZdd2uv5r2gyg8too+2ZDHrI6C2db7N8O3UD4a
T1qX7CsVUj4aR7W8pxRyKR8Nzyq9bDdLykdDurFYqJpK+Rjo849rpX5h+xNi
UDZv2HBqN+1XMRCqt/DdbzOrY9A5nFTwl3PMHAG0vX9sijrCbCSAXXrtaM8s
+j4BjnCXr/w5mVkggJNWjEeFlL5fgMlpKT3zAplLBPjQ6dT1vSv1CRD99+WV
pRbMHQJkuBhwcmdQvxD+N78qv46lfiFupFZYtX1g+y+EsJ1y5Pb3z5kFQvxL
NyXh6T3ar4WwzM38bkw9c4kQny9OGquqZVYLkfHpd/n2MuYOIUwmPMhqzqf9
XYSXeQ5tigxmIxHmcwMuK7dSvwgui3quvU+ifhHmdPy+rVpE/SLU9B3eXx9M
/SI0niirtVxK/SJo9LvVdDtTvwjI74t6Y039YiwTG+fDhPrF6OovD2ufTv1i
dMYri3+dSP1i5J2P29CrSf1imG71GBENsetZiRicOH3htLfMajEcrRUt2s+Y
O8S4pY7b79ZG1z8J1j+u6q1uYTaS/Pl7f/MWNTBDgnvW1z/71DELJJhfFbA1
/ixdTyUouTnJ61o59UuQLJj2MOhH6pdgeE5+g34x9Usw+KjylHYu9UuRlmBo
ZqekfikmtfR2Z+yifin0a+WHJ2+jfin2DRzUrt9A/VKYFNt9/CmJ+qXYUSmw
rpFTvxRNm2SZfwipXwrz0L2vlvKpPxYXzRvtWnjUHwv13PKQ7SuoPxY3OFO5
Qd7UHwvfag1NX3fqj8Ut0cosuTP1x6KmVuP9T/bUH4t1a/W9xtlQfyxWIzQ/
w5z6ZRhTXznR0pT6ZeA9nt341oj6Zbj7TNl324D6Zajg5fzSpE/9MgQ4JIa8
mET9MlT/dpUzS4f6ZZiQkj60eiz1y/D6eeuuJ5rUL8dTnca34hF2v2Qkx5Nz
MWmaw8yQY+hzSPH5QWaBHKaF45UZfcwKOSoCg6vW9jCXyJH6ZU3i6j+Y1XLs
SHtiurObuUOO3lOOXuWddH8Wh9sq64Wv2qk/Dqs0whNd2vbjPwFaunw=
             "]]}, {
            Hue[0.37820393249936934`, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJw1lgtUzGkfx4eQkIoQso3QagipRFFfVLpS02Vqusw0d23vpuioJLMuJWUr
ply6yKWXXYmIFtlGW0kuvUS5JHkL9bYVWa91fy/7/OacOf/zme/5ns/85/88
v2emS2L48qEcDuf6f9//u/71euX8/4t4K9gHuL8m6m2QlHgkwrNkcn8lsSEa
NiyuGB9NbAz9tkO1l2KJTbCbx4lel0Bsir6lTS8j1cRclPlq/WrSic2ha9Vj
cENDPBOauT8vqzpMbIGnv5zWe3KGeDa2n34/LLmGmIeJXzMjBlqI56I5z1g3
t594HkJySyrv6m1jvAB/NznTMsGS2Br33VYtavYmXogeyZTjqfHENti4eSD0
7FFiW5invpzc3kpshy3/qlyYN24740VwLH3jFhVAbI9nVYeaeguJF6Nn896Y
0gHiJbD+9HHsUs8djB1wIW9jrUUZsSNKlfY5g1NTGS/FwoeCd6Ya4mWIH1St
N5mUxtgJXd25nR4lxM7IjrXuHu68kzGQ0Fzs9WMXYzVwIv3YFoO8dJYvx6kq
S+ci/10sX44XIbEyu2kZLF8BF9/fh1YMMlavwE/HrzY/bs5k+UpE8Bx0fLW7
Wb4SJmuufqep/JHlLojjD/fQv5jFchdYP3tz/mtkNstdkeaTndTQy1jtivP7
yr3liTksd8NbmX+l96g9LHfD1qTSQ92FjDmrULPq2al9NntZvgoH8me8Kmtk
zHFHzEiH8k0SDcvdkZ+fkeT6gTHHA5Nvr1zsm5PLcg/M8wqLb7fIY7kn1u5N
P2ZzibHaE4aXd0Xlee5juRc0fGE7v5Wx2gufS1+fqxLtZ7k3NrpVull3MlZ7
w2xJVuLkyAMs98Hnb09Lex8wVvvAJ/v7mjmeB1m+GpsuTeHFVDBWr4anbt8r
4aR8lq/B2ed1d0riGKvXoHaYo6tJPeW+4E1rzsk0KviL4YuuDRW5/QGM1b5o
8MvxccxmrPXFnNsjv1H/xpjjBxP+wPOH/dT3w63+nzrWjytkfT+sji4Sp85j
rPXDBdXSqMCVjDl8cEyXLJ7vxxh8PJ6/vTwqmPp8JBxY+1AeQn0+1Kuqlm8P
oL4/Oq30U608qe+P0QXlLTccqO+PBKnegUYL6vvjFDd/eu5Y6gfAkX8xI3eQ
vn8AzM1F5TbNdP8BaP/63uXeGbr/AAQLGvUfZND9B6LIs98tX0b9QBwMXMaN
d6R+IBbqbhFVGlI/EJuNhnDLuuj3D4JtimXZoUrGCMKkphXJN9PpeQVhj+FB
q5hQxtogWOl1VlTNpb4ADXmtW7s+s+cPAXrjDGoMm2g9CBBm7FioKGasFUDh
OGb3iDhaP8E4ZRF2cowL9YPxR7JAL2ci9YMxZnz1iBM9bP1pg6GfmndCcoXW
ZwjGj3nUdzuHMUJgHz9p+p8KWq8h+KUudVuaI/VD4DCj28zSiPpCGCc1j2t5
ydY/hEgvnF+SVk37QYgc1wle9vsZa4UYtLt4pD2W9k8ossXh6zd6Uz8UBi3u
pR+/pX4odELqpfJh1A/Fe5VlS9kz2p9hqM9/KLtbzRhhSDWV5TYW0X4NQ83s
vYZ7Uhhrw2Anzzg8Q0T9cOR29dsmgfrhuHp5+INsc+qHo+Brb6VkOPXDUa9X
x+3tpvkRgWX/fJM86xZjRKC1NDhA/yzNkwi4f9jjVbSPsTYCXk/cZ9zbTH0R
UBJX+bOM+iKIuCe/TPOmvgih7tv1eLbUF8FoWceQG6bUFyM9djXv83DGXDHC
XkU/qRpg8w5imBT67B7xiLFYjFEhT2taamkeihE1KJzGO8O4WIyUunN+n/MZ
a8X4891ons9Oxh1iiOzn7pgYz5gTif7OL4FBEsbcSHTkjD2q50v+SJy9oZtq
5UT+SMRxnOZUzyV/JE6n29y5PJX8kZh+fmYDdzT5I1H+a25sL83zjkj0He90
ntxL812CnY9azx9/zJgrQcc2J4XmJmNIMHb/ljdtVxiLJYj5zsFgy2k6LyT4
dKczMeEw42IJllQohl7by1grQbfetR2qVPJLYDLnWr8wkfxS/KDKsiuIJr8U
O9sEIp6Y/FIcURin6ASQX4rZv5mfmeVOfil0z34wy1pKfikMzDp0nKzJL8Uf
TvsKF1iQX4pkzRQH+VTyy6C+w7d+ZEh+GZ6k/eP57hHkl6GkKK025RM7L8Uy
2KszXU4O0nkqwzf/vvvCqIdxsQxDTvTblT9lrJVhhM39urQWxh0y/K3psI3m
Fp2/cqxNEs66X8uYK0f0wQseHlWMIYfE+KVg4Bz55ShuEBnUnyS/HInfH7G/
eZT8chytG1XMKSC/HG3GBWYSDfnlWNfXpBnIJL8CG+Yonh/fQX4FrvAWfUlP
Ib8CbbOHNGs2kl+BH266RlxbR34FXjcaH+ZGkV8BwbEXRw5Jya/A25i42JXh
5FdAWL6DO1pAfiU+zH9y/a0v+ZU41vglc6gX+ZXYCeOsBa7kVyK/p/5DijP5
lQgNNuX0LSG/EhOe+t9LtCW/Eq8Ha8tnzie/EnbKX1t/tyS/CvxNil13ZpJf
hegL+ePumpFfBduMlit9U8ivwsjq0e0zJpJfheSsrOvrjcivQkLO+0dtY8iv
gourXmzESPKr8FaY0f9Oh/xrcf+I86UTX9n/Ne5aRJdUO637uAf/AdBir8g=

             "]]}, {
            Hue[0.6142719099991583, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            LineBox[CompressedData["
1:eJw1lgtUzGkfx6eIvGNdXhWlTZGklaPbohjfrnSvSarRZe4zUW+Wd0u23WZ1
k0omW+SyG5FKr0UMyWXY2jdtaRWFQkpK5bp53dl3zz6/OWfO/3zO93zP53+e
/3OzECfwZbocDqfh//+/ngc3mPDG1emA89dPuPnvJ0cflQc4ltMkxJNg/+UL
7u8KYgNY1B1Vx8YTT0NnzacL3H8TmyJA8tv9nm+IzVHg1vTOPIN4JpQWL20/
5hNbwlsZalqzl9gKXrndXjuPEFtj9EeDkL5zxDbYcNPZ7dXvxPPwLmlnvvUA
8XzwfR7ademmMV4AvWZ8k2JBbAeTifWtmzyI7bF34rfugXHEDtCLT+tKKiZ2
xPQTnXeTmoidUNMn0LTrpTP+EuVbhmrNvIgXoqO6WNuZR7wI95RTxcV3iBdj
8WWXL+47ZTB2xoEK4/RFO4ldMGfBkiQz3UzGSzCs4oeMSyJeitojfHvp/4h5
4HEz1+Wqshgvg3m0y4wWwy2MgculOt/LNYxVwMhcj31J4myWuyJ5NO/tRJOt
LHfF2Yjm3Fl3GHPcYLne/vHWIzksd4PuCf97Ohm5LHeH/pO5S6xi81jujpGA
cd5JYdtY7oHbX73PCA3MZ7kHUlVG3+lYb2e5J+BfrM+vYqzyhIlJ5zpzRzXL
veAhWqbuvcBY5YWaE0ZuY/wKWL4cg9kXGgZuM1YtR61mVmrPmh0sX4GH1klV
7u8Yq1bgu7LJWWE5P7DcG1cC9VbJTQpZ7o1ZPRblpw8z5vhge01c4Q/2RSz3
wbaL+z55n2XM8YXEaumvNrydLPfFKLulverzjDl+KHSMlj1YuIvlfujatIO3
o4oxxx8Vfa13TKcXs9wfqYc6ciekMeYE4ME9h1y9B5QHYEzKnEc/L93N8kBw
eAu5zfmMVYGYORL72vY25UFoyBUEnzLd8zcjCC7y6rFhYYxVQcj53qpt6lbG
2iA0+0SsGX+KMScYj97GZ4bfpH4wsgw3n7EdoX4wnrp7Gjfq72X9YOw3dO9M
NGLM4aN5QnpD5ueMwYdt/PiTK80Yq/ioCzjQ72pMfT4OWpcWnpxA/RAILrWE
Gn0ifwiccLS6dZD8IZhhfqUttJXePwTFcxwcuRp6/5V4dehaTmQR9VfCP36g
8dgG6q8EJ1vJWxtA/ZWYJtrYPmhF/VAsDDDanv2BjSdCMfCxibO3lcY7FC6V
HbpflTHWhkLBLUgNTqbxX4U1Y/4TqvKl/iqMTfAKd/6c+qtwTnVfonnCvq92
Feo2m2XO1tL3D8OS44ZO1WrGCAN3rteODAnNhzC88XU5f96J+mF4WjPfbKM+
9cNR3e90pamTzTeEY4ai/nrLzzQfw7Hr4D6NOp2xNhyVV1U/zhDQ/IyA88mQ
q2kLqB+Bmd75T+rHUj8C3K6K2py7bL5rIxBbfj0xVUPzX4ClbwTqonzGEECd
OufOr7G0XgSIMw3IHuNJfQGq4k6Z+VlQfzVS/ribsu0jW29YDUljU3tdF63H
1XBsGHXsYS1j7WocNa64NbSH1mckuEFnE5pSqB+JmhfR7apo6kfCuZJ/WseV
+pFInKn4tNyS+lF43Wja5adP/SigNLhm3GPaL6IwskJv2cZWxtooPEq3Cyw4
Q/tHNN7u1ozi/8QY0ZAeFlQdz6R+NHoFnU1H/kX9aIyOnzzdJYz6MbCbOftb
Aagfg8YVbWP1bKgfA3ejy++dDKgfg1J+X8PAR9rfhBjxfK5rPMjYXAi/7s7Y
yzcYQ4j24rW93ZcYC4WYkNe2ad1RxiohOoIjY+L3MC4RIsrSuLdtC2OtEOP6
y5NLEhl3C3GyQPd0i5T8IrhW+QVEh5BfhC2Ci5O83cgvArd2+3CuHflFyJo6
NGRlQX4RKvYPOxhMJr8I5VHHRvF1yC/Cmv6Y6jvP2f7eLYL+Jf/qkz20/4sR
0TU153obY3MxJhq03nSuZwwxtvouCurTMBaKsfhpf821cjovxLipLnnxYTfj
EjH8ZDmDijzGWjEWBGUf/ExFfjHWS7KcHq8nvwSbvr71y2g5+SVIrdydyY8g
vwSHq6fUX/cjvwRZ263as0F+CVQlF2escyS/BPPafI0yrckvwesGhyWNpuSX
IEOz2sJlMvmlcLx3WNyhR34pzqVkVOx7y85LSGEzlHQk9yljoRTzXlTMLX1A
56kUD/XSnt27xbhEimEBOlxbGGul8K5UX/xvHeNuKerSFheuO0vnswyXPjvu
73KMsbkM7lNa+q3KyC/DNdf1a+33kl+GoeT5jyILyC/DsOGH5ENbyC+Dzfhn
PG4q+WWY3tovzPua/DJ49vtO+iKO/HLkPK1P7xWTX44Ez0/vT0WQX47dj4UX
9geRX46rN24YlC0nvxyePvn8yzzyyzEr77eWl07klyM+5cfBZbbkl+O4w7kx
JZbkV8B4p2eeoSn5FUjUFA3/NIX8Cni8MtrF45JfgYSX/9B/rkt+BbhcZY3m
Lbv/lCjwIKHCNv8FY60CPj1lg8mDjLsVeNkYtymxh+5PSiReNVybfpuxuRLT
Lh4KKG1lDCWKevrOtjYyFioRl+rm/c9f6L6lxMSyiiJRLfmVOGOz1l1bTX4l
btUZ/2FbRX4lqr3j/SoPkj8WA69mv3HcR/5YeDU+O9RcqMaf1ZauLg==
             "]]}, {
            Hue[0.8503398874989481, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJw91glUzXkbB/DbwjAlJEuM0aLSKCLFhPoWNZX2RXvd7tK9JBkTGjVcWky9
TN5uE62ieDUmoolXarpCJyLL0Migq5BeSxpEk2VmzjzP2zmdez7nOd/zPff+
f8vfWJQYINUUCAQtf/3//bk58vFvWk0aEPz9J9z6z6dgBIbbthd/ImaPgTDX
UveujG2AwYe33mQmsCdhdMPzCKck9icIOhFWPC+VbQS5sFurMINtgi+fLrCp
3MmejiMVNan7StjmiNYOiL30I3sGfMermpJ/Zn+GnDT92UPX2FaYPne9Zs3/
2LMQNEY7cfjwNLIN9h9qEInN2HNQKv/VzcmDPRcvW8qVE9aybbHeqnfeqjL2
PETqddW1XGfbob5YJ/jk6HSyPearf8lr82fPx2H/8NeFRewFGKmqsz/6lP05
yj1tpPvcM8gO0D37zY2hH9kLsWmaRvvSKZnkRbDIL3Z9q2QvxpZdcp38idvI
jjhvUpiSfIDtBKt7wtpBfEsGzO4c/yiqh6wAJt0yib9SkEVzZ2w2KZm2MjSb
5s54V7lyk7npv2jugvzTIaMfDpIVLngVHPg8/vZ2mi/B75a1JZEXdtB8Cfwv
9lksPvMdzZdCFb7s3trmHJovxcX8+c17V+ykuSsSJR0j4l+SFa6od9DrNEz7
N83dIN7cPcxsfC7N3ZA86Jo8UEkWfIGl1pU3nkBJ8y8wNilGK6qDLHDHmIX/
0chbm0dzd1iocp/c1Pme5h44v006LbGCrPBAVafDmt0L82nuiaL4geRdV8gK
T8j1NLqOinbRfBnaQvzK5/aTFcuQfUFmsyplN829UNArT68TFNDcC3tdTbUz
FGSBNzo2O1rjD557Y7vt4Y8TEwpp7oOs8lXyig6ywgcnNuacTnMsorkvFu7x
eni6iKzwxcmeNaFm/Tz3w5IP42MyHYv/Mfzgv+/yL21pZIUfDjTrVQ2qyCo/
LJv0wFN/gCzwR9/tndttTUso74+Y8N9rM93JCn9M3dtt5RJHVvnDKqNvwsFU
siAA+vOGOrW3cz4AdtaSY1V5nA9AcphW7/t8zgegNaJva7iS84GQ+WiUmWdz
PhA3z3bqXkzhfCBmnNK8/5Oc84GY9sjDfZk/54Mwwej2ojd2nA/Cl3FaJSYT
OR+EPfoqu1mv+PsHQfq+SSPlCn//YLhv7dkmqeTfLxhqo/AIZwX/fsEoej10
ShTM+WB4vdYNNrDk/HKYzm6cWDxEzwPLMWfSwCyHS/y8luNShc9Iy1KyajnM
suTrS1bz8wvB8ZIV15v5eSMElj2nPC/rcT4EjZdsR9++S+tDFQL3VY+PjTrC
6ycUQR2SJMVmMkKxo68+z8uP11Mo8q68r8o05nwoLl7vH4EXvD7DcLV26Hnm
OTLCYGnwQlu2m9drGBqrNt3LWklWheFhoU9D0WLOh8Nkp7lF/ljOh6P+q8Y7
ax/S/lCEo+CbyLaZ9WRVONSG8eNO5fL+icDPi6xfTF5JRgSe/ppw19WF8xHQ
MXNKtJ/C+QiM2Ngk63nJ+zMSzjGD1YGXyYjEs7I9Yet/4P0aiYqJet97ZpJV
kWh+YFbX+v/9HQVl7xKXV06cj8IOs0UtTVM5H4WarsiPbN7S+aCKwn3/r28t
+I3Pj2gkfjXk0FFHRjQKRr1zGlXE50k01qXKpl5N4Xw0dCwmmxpHcT4GnrKJ
9YOOnI/BzZoTCSHGnI+Bxe2udnttzsfg3AzfI3k9fL4JoWvb3JzQSjYS4r57
onbjETKEiJw7LS4jjywUwtWm6kPD13weCmGi6/2HNIZcJsQT/WfKja5klRC+
N0o/HZxJVgthkfXqw1197o+Ffm9qteUfdP4axaI/0exU+z0yYuF2ua6++zxZ
GAsXRZTY5xif17GQ+QlWGxSRy2KxqrX3kG06WRULQ+nnbysTyOpYKN3WeK8L
IQtESCt/V6x05n4RHFLbBjStuF+E9mPqpNMTuF8Ei/AOx0sa3P/X3Kw0a/pT
uk/KRNC8359/7iZZJYJX77jaw2fJahF6QkWOd6v5/hFDw/bD7oASspEYUoNk
+4+zyRDjce4apdYGslCMLhPf+YslfJ+JYbX2SU2tP/eLITZ33R/vxP1i9Dy2
Phplzf1iLDw7clv2FO6X4ODWrZ3PR3K/BDvilqTmvKH7ExL4nKm1kPaQhRIE
H2j8aU0737cS9Menv68+Ry6TYMM8i0fTa8kqCWJm5kS2VpDVEqTnWvuU5/H9
LMWc9HPHD6WTjaTojLbb1Z3E/VJMbXN+7SHlfik8JKIHd4K5XwrvkznrS924
X4oWzXHN2fO5X4p1k0Ne7Z3B/VIM9NTN7Dbk/jikmErzvXW4Pw6aMkO5+i29
XyAOvul6HYXPyMI4vBjfbJ6qJiviMNrlgTLtGrksDqf368mrz5JVcVgtbOjT
OEFWx0Fob5y6oZLfX2RIahoSjSkmG8lw4fCm963fcb8MPzz5rKpyC/fLYHC/
+urBJO6XoVB59VqLjPtlWF2AKSMjuF+G2k+3Ga7w4X4ZxKU9To+cuV+OuVtc
tDPtuF8On2+HOp0tuV+OUoHad8pU7pej4b+jro8dy/1yXK+51Td9GPfLcUbZ
YBk0SO9rKjlm1Nrr7HlKVsvx7vVJo2Fd/H63AkdnFwxmtJONVuC8XZ+FcetO
/An+wrIr
             "]]}, {
            Hue[0.08640786499873876, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJw1lXs41Pkex2eVRMqlHiodIavVYUhkKLyF3JLLMBi3MVeli3SPaii5pBsr
om1R6aY2W9R2OYbYpChtZculiz0qJ9TpsrGxZ8+z3888zzzzvOY9r3n9/vg+
v5+peHWITI3D4dz66/3/z79fb93m6P4he7k8HewLJH61q8B5FfF4XLGZUNiU
RKwLs8slDh7riKfgplespeEm4qloH0nXP5lKPAMbvLef+JRGbILO/qOZc7OI
zcBr9ly5eR+xOfbuqlIMFxJbgJf54+PnZcTf4FrP50HxWeI5MBh5bVx9hdgK
it0uo1OaibkYGFXMbOggtsUagZCn+ZZ4Lnxn2hvaauxgbIfFXxbkZ5sSz8Mf
qzuliW7E9ng6/32fTTyxA27ct37skEk8H21nte8+rSJ2hE5gzcP858Q8fK1n
fuOKwU7GTnhxlp9WG0zsDFerXY6T8okXIGrZCH9yB/FCNNXnrnOek8HYBfZq
KVb9SmJXdAdyKw48JXbDfW7IzOzFuxgDXJsiN24NYyWwLqfS9xduJtvdMdf6
wWzVecZKd6j7hYbbLsxi+yLcmZp9KaiNsXIRTtXXerokZbPdA6JVk2+PTs1h
uwde9/mVZ91mzPGEKEozuyZzN9s9oWqovOoXkMt2L8CSr3hjtIftXgg8blhi
8Z4xZzGenvFvV9zfy/bFmLq2m6/20z62e6NJKybDgL+f7d6o9Ui9kX6HMccH
t266OPj6HGC7D3jlLT49jYw5vuibmCSs98xjuy88kh0vBDcw5vhhbFvZsc8e
+Wz3gykvo2rGDcYcf7SbH6+Z5f4t2/3x2dhIY8N1xpwlyKziJSsdC9i+BLPu
9VvWnGPMCcDG4k9peWYH2R4AaXqPsjiPMWcpKj/JXWJHaV+KjzqdaltkhWwP
hL7HB6fCm4yVgcitfaG/0ryI7UGoPuL5VpXCGEEYOmOSL29hrAzCQM4Pmph2
6G9WBaEq9r3EJY4xJxhR1nK76O8ZIxhOge2/VDxmrAzGzN68onmTipkfDLuE
U3WzXBhzQtAatFNSLmeMECw3njOvJ4exMgTdtc1epqfJD4HiUeet7xrI5yMD
StWRJ+Tz0Vfdfn3lG/L5eHKhv1owTD4fX15pd1SMLWF+KLYvrT5wZgJjhGL+
4VVbq3QYK0OxQX7/5Bg9xqpQ6LtaNvfRzgmD/QXJ8Upt8sNQYuW/e7cG+WFI
9TP/2MghPwx6BSsXHPxM1y+A9pt3MrtBun4BipOH9O/8RtcvwGixzdr9j+n6
BdhkWB5+soX8cBxo4gby6sgPh+LP8/dEF8kPh3dn7GrXE+SH46c9HQZ9h8iP
gHDav5ZsziU/AnnDW9aPbiM/AvfGd0/PXkN+BFp7d9pZSMmPhLRlrOSZgPxI
8IKPLVb5kh8Jxam9BasWkB+JklDTFQetyRei0TpXxTUhX4iMrNAUm8nkCzHu
2LeCA+PIF8Lq9dv6gGE6f1G4Eq3RFjtA5y8KGrErjGtf0PmLQvS0tMZl7XR+
o1CuVhwovEN+NBRNWqdy68iPhpawwWCkhvxo6Ol5WJ+sJD8a9f5FTTnl5MfA
6rNUvbyI/BhoSsqd/7OX/Bj83DzjgySD/Bj8Ni6rXzOV/FjYrp8+qSOZ/Fi4
r/1O+nAZ+bGYavXvWb+LyI/FvYKj37tGkB8HP4tc39OB5Mfhk03tOZ43+XFo
mbB+/StX8uOQx30hvDyffBFajZfOPcFlbCKCWC2i+4IF/Z8IR6ZII7uMGYtE
2N9lfdrMkP5fhLJtKS/TdRiXijCxbcBhRIN6IpQr3v28n8P4mQiLui63Lxyi
+088FhnFn+f8l7FJPGRp04929NH9KB7dOssntPQwFsVDq3dzwINOuj/Fwz5/
08O3DxmXxuNml7qh2V3GqnjE3TiTq2hi/CweC0rEl1R11BfDL2KmsfVV6ovh
pZ4YUHmR+mIknVBrdzlHfTHGtG4Lfn6C+mI4mapFHCyjvhhrQweyo0uoLwZ/
8EjOvALqi3F9teVXRvuoL8HOJWZF+tnUl0ArWT4ybQf1JUh9/Oq57VbqS5DV
tWNIsJH6f/1evXV49xrqS+D54d2Ru4nUl8DdK7vMVE59CYq1t6jSRNSXIrX1
0dVBIfWlqLqkCksMo74U+q/8Qz4EUl8KywrZxhw/6ktRJriWa+1FfSkqdE9F
dblRXwrN6uk/HHKmvhRfS9L5YgfqyzDLsc7A0Zb6MvTbGzYZ/pP6MuT6TeaN
taC+DO78nbwvJtSXoVo78fCfRtSXIa33jeMkQ+rLsKfU+9lsferLkFLRmLhk
IvXleDnjQlXKeOrLoZvHz6keQ305krx+bR0aZc9PkRxOnPBIn2F6nsphvrJu
bNlHxqVytA52Vo55x1glR8FrZ27SG8bP5NBaMVfe+5KezwpsD3hgJ+9hbKLA
ueKB5MFuxlBgQ8wX9fQn1FfgS435nX88or4Cv3rYV9S3UV+BV42F65NaqK/A
7/rhM2bfor4Ct910t/Y2UD8Bzervt5xTUT8BdnHXhrZdo34CNgl+7Aq/TP0E
HFcvneB0kfoJWN3QlmB2nvoJGLNdr2NyJfUTYDD/qM/Ek9RPgO4x96JJx6i/
DG3jjKoMS6m/DHZarVu+OVyI/wGIdKpA
             "]]}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {1., 588.}, DisplayFunction :> 
         Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"c)\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.05, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"GtC\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{1, 200}, {588, 2200}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxV0ns01Pkfx/EhiWqxEVpt4Wcp2aJsNiu9RiQJYzTulzFmxqj8IqJfqUZK
KpeNlS6SEnLrxtpU2qGrDhvVbqisiFWrNgqV2N/+Tu/PH7/vOXPmPOZ9Xt/n
P2Mk2sCXKHM4nIZ/Pv/7/vS8Xsb5/wfcwWqFx5AO/a4Gz9oH9QkplmQtqA46
jjhEcsk6EE14aWtZ4U7WR5VJF6/U15c8E7Uiu6fvtURkQ+zbIbzcnBVBNoY8
7d1H04Rosgl890UWNTnFk03xL6cn26r528lzkBdjdnDR2iSyOZSKu1JsElPI
Fng2TfVoYFo6eT5UXhbwYlozyZa49kh65KpaDtkKWxLWXZzRf5S8ENHZJvdC
GvPJi1A0byjeWfsU2RqFmn2nNj8sJn+DMt+SygDTcvJiyEcdLD4knyPbYFVq
WG6oeyX5W+g6+JxtjqomL0G1ffLbO0M1ZFusHklwu/+slvwdYk+u/6zEuI5s
h/6OPQN2GdfISzH9d/0D2d/dJNvDNNVQud+8gbwM9u3z11oLG8lAvZfjkFbH
3U+WA4v+8BwS3W+hOxdX1C8f1uu4T3cuBsVLGx9p/kZ3B2R6zByaE9FKdwcs
eNgzw/ZFO92Xw/TEtp2Ts57QfTm+DFlXWWrVSXdHxK5UdXOteEp3R+jJBVqq
dt10d8IXJR5ugU+e0d0JVybcWVj5fS/dV+CG0fwKgaCP7iuwN/1qUpz5C7o7
Y1VwQeFCzX66OyOqqflQlvIruq/EqaHX47eV6H8vX4nlDuc0UtUG6O6CzVmW
tsrTB+nuggcj/QYHTd/QfRUWXL7RfcbuLd1XoU5XsPu89xDdXbHBta1VKXaY
7q7g1L8tn/DDCN1Xo/32h1sG1e/ovhqx/d0Pz7W9p7sbOlT8eBbjH+juhpAb
SYtHjT/S3R1Oj/e1pzuP0d0dVb8ptgetG6e7B+Yev9DflfY33T2QljgngefD
wac7D/c76t5l9JLBg/3eZTvjY5U+Wc5DR2Ke4z2O8icreDgUxzXasJ/M8YRB
6sabhjoTaO8Jw77ZP9ceIcs9caZCe6vhbBXae8Jl0ysPsxNkDh+ONVYxVYYT
ac9H+R9nXlYcI8v54ETXpIzpqdKej82RST9+n0HmeCEuQWeDr8ok2nvB5qy3
nkscWe6FvQdqPfx7yAovHC7Q/iXZU432a6Durzy/8RIZa9CS++pncyN12q/B
WNItQeEusmINBCkSDW4PmSPAeSd9w4nLJ9NegOj2jyc/HCPLBTBMPRdgMUxW
CDAr50VykesU2ntDYbWtKC6PDG/sTrLklb0iy71h0f9o3MtuKu29UW42rVe+
h8zxgdmeU7cdmsnwwZ0Ky3ulup/R3get+o9j7viTFT4ovM5zrMwlc3zRWvl3
V9xjMnzx04n8DtMvNGjvi27X9rwHArLCF9ILb3kHMsgcP9yz/ffDyFtk+EEw
5HRlyxjb+yHkqwyLWitN2vvBs7Rzg7OYzPGH1SFJt3k2Gf6oLy6ZtPk6We4P
szn70uwH2d4fGrMszq/Q1KJ9ADJ5uUE1JmQEwM+3V3P7ErI8AMs69GyPupEV
AVhfPldJL5TtA1HmJuKOxLB9IIJ7ojO5yWwfiPDLrq6jOWwfiE3VdbvnlrB9
EHYqeoxaatg+CEq/WjcMN7B9EKrsMwby2tg+CO+9lDqb+tg+GBMbQ8r2jLB9
MC5kX7Jvnvg57YPBf346oEybrAiGzDg6d6YRmROCnmsacWbzyQhB11N927u2
bB8Cvup+fT1ntg+BUtJGI2UvthfiS+WdK7KCyYZC5E5KC2yKYO/7x+/6Z1bG
koVC1Bu3mDrvYO8XYorJVk7qXnK+EHWjMv1dWawnxOBw5E2rY+ROIaYevLw6
p4j1Q3Fl06PW6rOsHwrrRUd3ZV5k/VAMLvzT26KO9UOxw+i8Y3ID64eibTjd
6mQL64ci1+b468Q21g+FhbGZk9lT1g+FZO2y7qw+1hfB1CA2quEv1hfhV/PA
XQ3DrC9C3Iq5JdljrC9Cu5tl4AKVadQXQfhmrcahyeR8EX55PmjSokVWiNAw
If79I11ypwiVJ0rba2aSOWFIuH526npjsmEYHHUTGt6YkRGGedZLuPyvycIw
PNiRfyRlIeuHwe8S/02ODeuHYU7RPGGiHeuHwfX5gZdOXNYPwyXJteO9Tqwv
hortrBjxKtYXg3tYGqhwZ30xnIvUXUb5rC+G29ag2bo+rC9G6q6Oq58HsL4Y
rz3Xcv4KZn0xbiptrj4jYn0xpovdKzylrC9B9FubstYI1pdg8c2qKMdI1pcg
Zlvpxewo1pfAIDLz26YY1pegcqAw/8841peAO0s9d+A/rC/B2N03zb8nsL4E
anZtndU7WF8KkXq6LH4n60vxlVokx3g360ux/OAWu5/2sL4UA4rkcpt9rC/F
DCv3xwWprC9FzOvDXh/TWV+KqTrBB7kHWF+KEN+HJrFZrB+O2EvFW3/IZv1w
dOkPahfksH44PvTGhuUfZv1wtI0WPE49yvrhOJlc90p2jPXDccRyeOI3x1k/
HImbZPsH8lk/HFNtvXryTrK+DOPFBvFLT7G+DNo+0hNNhawvw5aGefUexawv
Q5BDo/X106wvw+mPxvx5pawvQ9+tQ1G7y1hfhg6txc/ulbO+DKYBVePaZ1g/
AlOsMjRdzrJ+BCLSdcQbz03DfwHOqHGI
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJxVkns0lfkeh/codzW6qYTIrZgoJJX4uORS7vf7ttl721GiQy5RG2Haps5J
Ss2MasyEVivdaBJFBpVkqkka6S5DEiKhi9NZfX9/nHetd73reT/v83v+ebUi
tngJpDgczo0v9/+eX69Ba87/X4g7bGN++ZIKvZfDtmrnDpNXy4mVofaganzW
Y1vi2ehKgfL9Qg/iefipX6U6yTOIWA0P4ystR7MiiTUx4NGbYvxzDPEitPym
UH2pcyuxDm7fDEicPzeFWA8XKwu0pvqJiRdD4CSRM+3ZRWwAcb3O7lquhPg7
fBy7v+NB7H+IjcC39z3lZFdAvAzxWmZ2NlcPES9HelqYqPhzEbEJ/njo/koi
X0xsCqXGKwmTeceJzTC6L7PUuOAE8QqYXwqT+C8rJzaH0UvHvhO/nyVeidVn
Sng4U0Fsgbvd6Vo35C8Sr4LV5Pg005Zq4tXIiY92Fk3WEq9Bp2r9ksO+9cSW
8MwtcN7b10C8FvocTWnDxmvEVhj8tjnzxstmYms0c1ruJHm0EgPNoW+k3k25
85XFwIuq5Ovmsn/RboPrg6mqAyZttNvg0pxfYlpz22m3ReoMZXN7mQ7abbEp
5vaetPJO2u1Qv+5NW5j4Ce12CE/RbW5a+4x2e5w6KDl5/s/ntNtjX2b1hl2J
XbSvw4eWMutSo27a14Gr/X7V5ol/aHcAR/fUIsUHvbQ7IDulJe7npj7aHeHf
V16p29hPuyOWKo+tL7w7QLsTqsslCj2j9N+LnfCkrlvvtsJb2p2RvG9CV6gz
TLszPvOzjsrajdC+HouuJ/dNF76jfT2mx78T3fthlPYNSPxYUXn6wnvaNyDA
3eve2PMx2l3gZTBsLT9jgnYXLG9JfW2JD7S7QtJx0WR4y0faXeFyya3s30c/
0e4GnobNi9TWz7S7wWia+xLtj5O0uyNvsDT7834Ovu7uuJySMHp18TdfmeOB
t3d2WqrXEMMD6QUnM9pcpeh7D0w09fSdf0Rc54G5Sb3V2TFTyPdEYpR+pNp7
Yngi93DOPlfxVPI9cWjHk9XDMtLke8JK44+CPgkxxwv9qneV5ivJkO+F/CEZ
iwgJsdgLKl2h1WelZcn3AvcXN6PRdGKON9LkC95rDRPDG20mN3UMBXLke2Om
7/a1iveI67zRXaU5s9ZannwfzG3ozHUoI4YPzk/5F++3aQrk++BNr5XM4y3E
dT7wq7jl+KGVmOOL0IJrejKGiuT7wmxVa6HCLmKxL/xzBpxUOojrfFETbCOy
WKpEvh+WLzPelJFODD/45Aw/krpJLPbDeGSp3p9zppHvh5ZCcMdDiTn+UKxq
1D7wKzH8IZX+euOFbmKxP7jR64Lj9aeT7w+tYhnTDgExJwAeVUkLpYuJEYCd
s97qyXQSiwNgGReiPDTrW/ID4Fn0ye1vZ2JOIJLtU4bupBMjEMtq6/f3nyYW
B+KcxGCzyVPmB0LqgH58kKwy+UE4WV6o3aBOjCCM884mcU2JxUFIUynTWOFE
XBcEjVCLANcQ5gejVc9//PQW5gdDLSdxKz+T+cGwyOO2xRcwPxhmCTUdj48z
PwRZc83/OXuB+SHIV3NVHmpifghqHJ5oFt9nfghab/CLml8yPxQ2vr3Xtoww
PxQLLBt/PSg1g/xQ7H+oOm6nTFwXiiNaagFp6sScMMi0L1CzNyBGGHRUYmOP
mjM/DJMLFzjn2zI/DNp7olI03ZjPhUWJWbFrIPO5aMpYY6XOZz4XdQG6xfmx
zOfCOyjr85lk5ofjd80y3vZMYs1w7G3gV43ksfPCv/w/J+8tPEAcHo426fmC
ySJ2fjhqBqM4B0uIj4XjenuLVnc564UDAmvDtxeIn4Zj9fhpYc0V1uchu8xQ
1rGJ9XmYVTKwpOAW6/MwQ39z+/F7rM+DQ63V1B0PWZ8H30XK+RrPWZ+HIL0U
j909rM/DtraWT7VvWJ+H2W6PHBtGWD8Ch3QqWwonWD8C1v0OCyw5M6kfgYrd
syrOSROHR4B785r8JwVicQS6hu5kqCkTH4vAx6yBhJlziOsicHbsvPHT+cRP
I9BzRG44R4OYEwkVg5IRWW1izUjI23/P5euzfiQ2pwf7FBmyfiT+HnzZe96Y
9SNR2h299IQp63/Z6+W1d6xk/UjEZMxrMl3D+pEw+SZV/qYV6/NhEDjYbm/L
+nz4xsXMLl7H+nycUPL58YUT6/PhKflrrYIL6/MRsHFei4o76/Mx1lmoqODF
+nzoZbvUdPmwPh9uyW8LS/1ZX4A5V+HlHcT6AuyO1zzcE8L6AnjGPJst4rK+
AHETm0R3eawvQHLYtuWL+awvgHfICbloIesL4DB0P+OQiPUFiLbS/K4imvWF
2Fq/MP/yJtYXwn1UeXVlLOsLYRI+evynONYXYrHxFe/4rawvxOk4wWXzBNYX
Yu/g/MDXiawvhOhu0OH8JNYX4tDw3P4lKawfBUPt27XnUlk/CvJry1OWprF+
FIrMju/8MZ31o3BNNc90YgfrR0HXwHTERcz6UVjTlaO+P4P1o5DrfETuVibr
R6F3RbvihyzWFyH2VV+qejbrizD7llypWQ7ri3BQ+OwxcllfBNWShljb71lf
BKWtZ46t2s36Ipjt4dfoSVhfhIv3E2QV8lhfBFFfUOMLxpyNiDfKXVnxA+tv
xDLr+KLte2biv3rgZUk=
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            LineBox[CompressedData["
1:eJxV1Qs41PkeBvDpdtw661JJhajlbE6lxBYV72xFLjHud8bMmBlRIrq57NSK
sqlkT6JWI7W14aTa1FM449aFFJWii0gci3Ldk1Y4e56+v32eM88zj+fj9c77
mOf///0NBZFuoZM5HM69P97/+/n51W/D+f8XXg/yRgyXzaLfK8O54mtnF8Uy
sgZCOjrye4q45Jm4675w6/hyF7IO7DkfuCdrfci6WG0qTI2MEJANcOPAtfnN
upvJC1DZUTiKlijyl7j5TKwaUreTbIzqprpTjcrfkr/CqpTROcVt35FNMDs0
9nfVeQfJi9E09qRCl3eEvBSDr9KKP7lmkJfBVrqu63BOJnk55ofFFZWeOUU2
g6Ze6t9PWuWSVyC66XSiUeZZsjm0nqW/6dl+gWyBGU5WA2ktBeSvoTe0JCF3
sIi8Eiq6514F1F4lr8JEYN+bEc51siUqr3nuVTp5k2yF6IKfJs3MLSOvRnB8
nPL6tHLyGixJ1c63U6oir8Xt5syFY+W3ydaoya1IOqq4R7YB73nnifZpdWTA
LfueExzqP1sGnFeYaditfEQ5FyVyJfc3Dk8o50Kkzuu+sv8p5d/Atj+lb25X
E+XfIL6qMmF19AvK1+HuSGXS0MIWytfhbUzs08jEVsrX460J9/SS8TbK1+Nh
Zveo4mg75RtQNtksIMuig/INyNrxe5RKbyfltqj8coWp/dUuym1hvieasyu1
m3I7ZBn0mZ/e1ku5HXSVkvf/InpP+UYs6m/0emBG171sI3zzPKfNthyg3B4x
Vw+fzFo/SLk9XOK06oo9hih3wOtDJQO10mHKHSCv8FtpLvuNckfMevm0yj77
P5Q7oiaGVycu/kC5E57/Vf1Y5+MRyp0Q/ibLzXjwI+WbYNqSaZKsMUr5JrQ7
+74KW/qJcmc87VhwxNJxjHJnfHFjW4RAPE65CxQNqTbe305Q7oI8Femeuw4c
fM55aI6blWL3hAwetGpnTun1n/TZMh4UjtkN8W1kBQ9zjS//WCWaTH1XrIq6
MpzeQYYrFh444HtdOIX6rijTHeepvSYrXGFyxk8i9Z5KfTfwrx0xLbxPhht6
xtauKbGeRn03XA5/pRVfSFa44daE75xnOn+hvju2FO9JvCUjwx3am6P05nWQ
Ze7gx44E9GxQor47Lp4JUzXKI3M8oGzGXV71iQwP6Oom991xU6a+B+JG/2Fn
do6s8IBKZ2Of0jCZ44n2pvsGPBsV6ntCvGOxYGYKWeaJRidHb34tWeGJ25FH
v+dOV6W+F8IHHGzu2JPhhRhjqcXkJLLMC+8qovdNvUVWeMHQ0iqw7T3reyNV
e8dAwXw16nujcmOBefwmsswbOo4/lIp2kRXeWHBuYU68nMzxgZeREM+rWd8H
t3fNt/2hi/V9sK0hLrxceTr1fSCIF0TsMiZzfNG4vbr3IZcMX3DCTghb/Mgy
X9jOaJtdGMX6vjAqLS3zSGZ9PxS0R6x8d4L1/TC9aUd62s+s74dHmpe0nG6w
vh9ka79Ya13N+v7IVhE/2VXP+v5Afl+7+nPW90eaanGl9hvW98e/E1/qybtY
PwDi0Yqh0nesH4BZScp5ewdYPwD5pRHdo0OsHwC5IP39mt9YPxA6glPWHswI
hKrkVhNvmPUDsUJ2cCl3kPUDMXLSe9GKPtYPgmmyz1LzHtYPws8alxe4drJ+
EF6obok83sr6QeBf8J2mwf4/TjAGB6r59x6xfjB8mhal1dWwfjA+xf/y1d8q
WD8YFqiQtLLvk8PHM8PVOlMukQ34sB5rPnviLPs8PvqMA3UuZpH5fLS8lxvg
MPt8PqJSzmoK95HlfFx5sLtr7g62x4dnjIFzZBi5lY+Hw07ZkgC2HwKD1/Oe
qrqw/RBcaLpcFvzn9RSCufV370SsYPshcHlgor/KiO2HoKph7sU72mw/BOvn
F2ga/nm9hmD7NuVb9h/pem4NQbX43APbbnb9C1B4PsxS7wXZQIBXUyv+2VDL
7gcBsjTPX5SWkPkCxCVlbO8sYPeHAGqV4bouP5LlAswc8kr+KY3dbwI09hwU
9CewfQFigqeaL9vK9oW4mAHXsCC2L8Tj8caOHGe2L4SOnvrwY2u2L0Tjw2gv
NVO2L0RlJrfcjt3/ciGUPnZWfq/O9oW47BVc0zxB50WrEGXpx/TN+9n5IYJd
cd6vp1rJBiKMT1hYaDew80iE8oTzvbnlZL4IOdncFu4Vdj6JMK8huOTDGbJc
hK33D+lXZ7DzSoRrlsf35bPzrFUEjdTMTQWxbD8Uah2j9++K2X4oEg7uXDnZ
h+2Hoqh5pNCXnY/8UAQ4p6+pt2L7oShM9XohXsz2Q+FeszpSX5/th8K+rb3m
gzrbD8XrKRGXhiaxfTHMDpnWaQ3T+WwghulAUpVnJzvPxRgxjDEubSLzxXDY
KY61Z+e5TIzd4fVGo6VkuRjeGxtzHhWx814M249vrerzyK1iHFvqsXH4OJkj
gdH4exWbVLYvwe7FydeLEti+BCV2OxPto9i+BB9KTfephLJ9Cb7Qzn/Z78P2
JQiI7s2ZcGL7Ejzet73Bgsv2JfBTK4zJsGD7UmxeELxXx4TtS3HTQfPXKn22
L8Wc1G3HT8xg+1Kk5FzakqHM9v/4+6h2p2tj9DyUS/Fdt//08UH2vJQi1upj
4pYucqsUqdUJ0VNa2PMzDGmKl5f+9ZhsEIagM/tHc+8p47/PDoBJ
             "]]}, {
            Hue[0.37820393249936934`, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJxV1Qs01HkfBvCpLIndVW9ZXZRbotWuS26zlScKZV0G4zZk7pdcI6E6mUpJ
ectRtitN6CJdVNpqte1kEyHdNq2tRZbaeMviFbu96m1P3997zjvnzJnz8Zxn
nuPM///7m4uTgmVjORzOrffvvz8/vP7w4Pz/C1OTrXVXGhjT38djmP/k6PZ4
B7IRwhrL71fIPMmTsd3xeJXUNYhsAu/TjUb9tZHkGajXDbRQzJaQzXAs32r4
oHkc2QI1Kdr02l0pZCsseZv6V+XlDLI19NaE86aZqsk26Ku1iF5Tlk2eixpp
+PXnn24n24Fz70WEGfLJX6DnrE1Ot+Eesj26ZnUlfrFpH9kBjYukj89cLCI7
ot9o3s7E9iNkJ0wfsLuYLDhKng+BV9WTBdHlZGeseyzK+r3vNNkFSbkaXkHB
ObIrVPEOU3duqSK7Qewb3XX050tkd1jfCq4q311N5kLwUKsSXfuB/BV8LfMk
bvY15AXIao4fPqS9QV6IAOPKXe2768iL4No4C56nG8geKI3KSrzyaTMZaDu0
V7+v7e4Hq4HEmteaP57cp3wxsq+mlmvHPqR8Mcw7GjI5vEeUeyL6caatUX0r
5Z7on33My1D5hHIv6HUHHmyyb6fcCycyTpoOGD2lfAlWJQ058Io6KV+C4x/r
YsLCLsqXQrR+YF12XzflS7HI+6FQv+o55d4Y7fmy/mbuC8q98a/r3R73knop
94G48sFOa9lLyn1gOWVaZKWyj3JfrN7mEld6la57tS+EfnPrWhv6KV+GKwkD
elFtA5Qvg5nFpIANrwcpX46bxUMxRZOGKF8O6wHtrwaOryn3w95pjZtNQ4cp
98P2Gpv51hkjlH+Nf4yzMVxX9CflX6Ps5nhB6o9/Ue6Pb1IKc1Qv3lDuj22L
NnZWfzJKeQCOnymX3XZ8S3kANK0ZQl3+O8oDUWLRvW0ll4MPeSCcfmz/7FE9
mRMEj3zO2a38MR+MIAz3rrnF7SCrg1C6dua3l5VjP1gbhI0lTVduvSJzeAi2
bbP9KmUc9XlYcMknq22ArOZh9G68ODdZh/o8OPaNrZzSS+YEY5rEN10k/oj6
wcgqaO0PaCGrgzFRszrthrcu9YORPcoRnrpA5oTgXOf8t/+eoUf9EKy0W5CQ
v4msDkEYtyF9dRdZG4KhEL2kA57jqR+Ka7n33r09REYo0nPv6JQMktWhiOW2
8rd661M/FBktCwrPFZI5fNgXrnzz+VMy+AgazTfn2E6gPh9WHucbuQlkLR9e
/pfO95wmc8JQ8uu7ALNeMsLwU+qz0pdWBtQPg9bnmKFcQNaGof/iRwbFO8mc
cKRUTjepuEZGONK9MtNLe1k/HC11A4bFUwypH45VDi7O5xeQORH4PjbgyLCQ
jAhE6Vk7b91EVkdgrNjoRdoR1o+A0TfBZ9q+Z/1ISAqKw35+xPqRSOYqNqzt
Y/33Xr9h3B2dj6kfiSMjXs19n5E5UfhyvnnnkA0ZUUjc4i/905WsjoKLvbRk
4lLWj4Leq9sm/CDWFyBt0ruM1kjWFyBz1Y6zF0SsL8A8y4k9wwrWFyDP5c2h
K/GsH43DAtNcg2TWj0Z+tu31d6tYPxonV3POHk9h/Wj42bWZTGbmxMByqsSa
/79+DG72rJWtTWD9GNR1md8pULF+DB6p9ZtOSVl/BZzmmbq3rGD9Fbjw8nnc
jAjWXwEjzWOXPPb/aldAU7z2pYMv68diW7pUOdWD9WOxT+WtH+DM+rFwC6m8
9stc1o9FYnWzXsMs1hfizL4JI7Mnk82EMEvbxR3RY98nhEne5SnL39DvKRTi
VoYs0eoV+32FODjBtXFXB1kjhMPdqvA999n1IkTTM8Fz9xvkDiFK9u0dybnI
rh8Rinhll7YcI5uJMCMpZgx3L7ueRJDGv5ZV5LB9EWp6Dn/ekc72RTgxcSqv
TcH2RdijnZdfEc72RXimbyH092H77/fiDEbqXdi+GP5uJjxLa7YvRr6m1kbE
7heI0dKgMy5Hh+2LsVwWaLd/kN1fYiROP1V9sJOsEaMzrHRPwT12v4rRXGml
2qgld4jBT4+pjjvL7l8JdpxQt4cWk80kSK1Rj3r8k93PEhTWVk+yX08WSjBU
u39wThzbl2CZdKb/3Ci2L0FaTsIx92VsX4LyU17iCDe2L8EuC7F22xy2L4V8
U19bkzHbl0L3clO1tS7bl4L7e5vzviE6n4RSmG8O+MSym51vUpQ1V7+o/4ms
kSLZScXbcYOdd1IEFQqq4qrIHVKYvk1WxpWx808GvacJFTv2kM1k8OOOKbud
zc5DGSY2/yB2TGP7MqyrM/7tOxnbl+H0sLOhMoztyzA40H+O68P2ZajzLS50
cmP7MsyZ1CEPYeczR46ZRpk3Dkxj+3LY7jZYOMGQ7ctRIX4UWDJK57tQjphf
khIkfWS1HMEpcSP+7PzXyNHWZegtfsCeF3IkWT0r1tSSO+SYHJzmoX+ZPT8U
COuqjjh0kmymQJndXaOoIvY8UaBIqdrsmc/2FZiyQ17D38z2Fbj7PLBl9xq2
r8DB3gfX/qNi+wqo9D1S82PYvgL6On2dATy2r8Rv310fcl3K9pXA4aw8P3e2
r0TG68Ubc+exfSVyDB8e7zdn+0rIM42bNxuzfSW+PRB41cOA7SuxTJznPJvD
9pWYsf/VsNMQe/6qkHdx9GpcD9lMhcPiQfem9vH4L8UuaV0=
             "]]}, {
            Hue[0.6142719099991583, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            LineBox[CompressedData["
1:eJxV1X1UzPkeB/BhKqucFWFpsVOiFMUqJVnvREkeqqnpueaxGVG58tBQmdLE
bimxCiWzSuJyPdN2bwyD3FyVJOWxbVOyHkolRO3e4/O959w5Z86c13nPe95/
/Ob3/ZmJY31lgzkczs2/3v/9tMpJ60+fNxic/3t9BfPJJ4yvOYyc/8XG8Ita
aBBlbk8ehXflg5IypnuQx2JJ93XdPQd/8nh898sQvV12IjIPYwVH645WrySb
Y41lrfXwyLVkC+Sc2Zd7AUryFPiWHFZPrleRreCy6rD1QKeabI3AUuQNG51B
noa5GybcMDmTTbbF19a9xf3cHPIMBJWssskak0eeiYJCdPWrNOTvMcrNuHtW
RyF5FnY7SsIfth4h20PjeVtZHnec7IAQd5ehtndPkWdjeK98o6LiLNkRRZ+t
BbUTL5Kd4LZ/+KTq38rIc1Afbfrm+tjLZGdMv6uLGdR6hTwX7yZ+M+NW8jWy
C2o/lifuk1SQ58H7sus8/axK8g9otsqq8B9SRZ4PXb6dU2lbDRkwG/nPX1q6
a79YBUxNaDlvPe0e5a4oVi6om595n3JX8Ebsy8r69gHlC6BMbhc61T2ifAFq
c43ODi19Srkb5Ov5Ra6S3yh3g0TP7UPUQDPlC1F/qV379mQL5QtRMnDl5eR1
rZQvwj/k3CRbr+eUL8KRItve0fYvKHdHlfzNpJvTX1Lujls8g0ljHF9T7oHK
+V7VoZYdlHvAPSnI+PicTsoXY4v+vTk6n7eUL4Yl/97As5guyj2RHXFhGH9n
N+WeuNp9L2/R+R7Kl2BG5iFu76N3lC9B5dZqG43Be8q9UJ4a8GrTzA+UeyGp
4GSwLvQj5UvRPc3yTem2PsqXIvNUZ9HB058oX4YfH2g7tY2fKV+GQ5bmx1YP
9FO+HGmGhq2fjDn4ki/H0/vn9ko0ZM4K9CSEjS6YPojyFUj5e12ytJTM8YYo
vbg0DoO/GN6I1dxZv+M6WeWNQKlCGe/B/WKtN3JPpWk4N8gcHzzR4/a8gx71
ffBQhXMzS8kqH7zYo16WYaNPfR8UyF0C2/aTOb4of5iSYmVgQH1ftGesjXeO
Jqt8EZiZeW1YDVnrixE5lUd32w6hPh+vygp7K7aTwYc+t6qh+AlZxcetC5wD
M2d8RX0+PDzjkqITyRw/VJsflkhukOGH2JcjCr4zGkp9P7jXKItPe5G1fsit
kN+32U7m+KPds3BKoZYMf+TtnvPEtof1/XFbUuH/fLIh9f1xdGbx8Re+ZI4A
29Jz1b4JZAjwQ0PitXmHyCoBYg4WLb91jfX/+r6pUZVpC+sH4Nxkk/ilHCPq
ByA8t+W+ahxZFYD8vqv5DXZkbQDy/lCtXudG5gSiMc66bJ0f6wei4+RrzQcx
6weirxo681jWD8SmRFPb4UrWD8LTRhc8VrF+EBI3LNhzLI31g9BqqH6c8hPr
B2Fl2JhedQbrB4OfkcyrZUYwmvuURqnprB+MxL7rry9sZ/1g7Li4Ojc1lfVD
UKm1VepvYf0QfLTyvuQdz/ohyHxTJkhYw/ohcJmtMjggZ/1QKDZcirsRxvqh
UJ59O8uIz/qh2LO6rCHBg/VDcazB6JPNXNYPw82r7V5Wtqwfhoape/eoeKwf
hlk5gpoFI1k/DL8+L7JM4LJ+OBY5f6M/p5td/3BYOJaPU7PrqwpHi5OZfFUd
u/7heOL0u8c7Hbv+EdBkdW20O8v6ERB4/20873//nwjc/8PuVs1O1o+Atqgt
23ML6wvR4DLqc3Y0mSdEmIV64ukQ9ntCtPkd2n3CkywUgtuiSN/hyH5fCJN5
5v8RsP+3RgjP+obSr03YnhAd43YIyjjkJiFUk6b7hL9m948IHfU+nIGHZJ4I
TVrdKs2/2f0kQtWYyhXuF8lCEezGupt1F7H7S4T9ffkjTuwia0TgJa0duU7F
7lcR7o6Z3egVQ24SofFfqc2zQ9m+GFu/Fa13XML2xcj/7Fa8wonti7H3iEFw
8hS2L8b4ipLFVaPYvhjczK4BRy7bF2Pilr5nlzvZeSNGsiRlrryJ3CTGxhrn
iXbV7PyRoCf39U9jL5F5EsTE/hhhcYKdRxLUGg0N4+eThRKoW/hTi9PJKgnq
r/Z6T9hM1kiw1vHO4l+j2L4Ez7kHYjcFs30JHDevGy5awval2HnHISLame1L
IfNs3HrQmu1LccbsXHavKduXgsc7tmO9EduXYur25THjPtF5q5HigUfP+N9f
krVS6Jme31D7mNwkRYl/yLK2KnZ+y6A09VWYack8GS6kKNWq0+w8l0G2uTtI
r5AslOHBo/Zdx39m57sMTwTO9fFpbF+G78ttdIp4ti8Dd65h1+Yoti9D56vL
H06Hsv1IbJFIIg1XsP1I8GPKdamubD8SQt2NvTx7th8JbuWElY+nsP1IOOmv
P182ju1HIn7jx76Lw9h+JJaHl5bWDdDzqykSgQVvZMZdZI4ca+1XJ0S1knly
XPl0N665kT0P5cga33F1422yUI7gwM6nU6+w56Mc/Xkn8f4cWSNHTm9LcHMJ
e17KscFbWtSWz/blODl46e4h2WxfgQPH7Qtc1WxfAYeQUJc9SravgIVX1bNB
MWxfgcA120y2idm+Au/f5s63CGD7Clyscn3W4MX2Fei6NCq5CGxfAWfNkOw0
B7a/Eruis35Osmb7K2HSf3ZYxncG+BN7nW6z
             "]]}, {
            Hue[0.8503398874989481, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0], 
             Dashing[{Small, Small}]], 
            LineBox[CompressedData["
1:eJxVlgs01Hkfh2cshby1SiWFKbqsIpRxq3yUS66N+7iNMWYMW2lRqbRMlLc3
kWxt9qwWRR3prVD0dh1dXWoriTbpZZPWktvaUur12tP3957zzjmO8/jMc57j
f/63uZJNvjIVDodTN/7z1+/PnwEHzv9/sDlIb4ZBtyn9XR15xjdaW6e4En+J
5iu6W4rrgoh14Pc4u5ufLiXWRYa8RetB/ybiOTBxb5+5zzmJmIchTauqYgsF
8TwoHY2fZ9btITaG9IOmlzBnP/ECSEtnnd8nzCVehNzWsRx9syPEJmg+FhHW
/zKfeAlmpk/RGG4oIjZDp8PaK/ILJcTmUHQmOvJwitgC4qy2Lc6pZ4ktUfSw
YU7hzQriZXjMiW+v51cRL4d3kSA81PgSsRUC73G72o9cI+bDu3w4IPvnGmJr
PBub59xTcIvYBobP3Y2bb98ltsXyzYZz+pwbiO2wVHPIPGP+A2J7hHbaD9w8
/4h4BWq/UGk0mdREvBIq/v7GLUeaiVchcMJHTbewX4gdkP/NyZDDwc+JgUkW
BmGhOf/+zAogvOiASKTooN0RhhviRxcHvKTdEV32OD3P5RXtqzG5SRmV6fua
9tUYmZMzY+P2btrXoK83jX/gXz20r8HuDs3Ab7X7aHfCsPJ9120HOu8UTsiy
f5Tfpxik3Rkzn6/wWt4wRLszXnFHRlL1h2l3QdmbQwfLtv5JuwuaJ6tt2/Pk
Le2umJ40OPzYZoR2V9R/d/sHYcF72tfC3U135+OJo7SvhWrBXEyI/0i7G2oc
LndX/fKJdjdU5k+Lq8AY7e54ONN9l9yXg8+7O6R+16YlqXA/M8cD9eWW1mNn
iRUeWL9dLzUlRIV2T8z+fd/6ZO4XtHsiO6y1d3cxMccLPfse1luuUaXdC5fO
CwfntxFzvNHdNFCsnqBGuzdCj10tzOZOoH0dPglEvC2ZxIp12CgJaUmbMpF2
AR56Drb8PYsYAvyU1/d1uJo6fV+AHUmcZ6+2EisFePex11TrV2KOD7xPdXbc
dNEg3wc/PdbOUi8hVvhAN3NjettHYqUPUs0a47y8Ncn3RY21VUfsD8Twhezc
63b3F8QKX4izL2+arD+JfF/sOd3zt6cBxBw/2Nwpsn24lxh+KM9X6TWqIlb4
Ydi9TEf1BfP90Jmbo1PC0SLfH9VONrarDIjhj7hyN1sNa2KFP+StiZWOHsRK
f9SaHT9nHMr8AKhc/dZkIJr5AfjHEu0jv8YxPwBG3OwddonMD4DWl0/HrDYz
PxAXvfPzpiYwPxA91qklWhuZHwi91KcLImTMD4S28bqta/7XD8LyQxkag97M
D0KWzu8rj4L5QbghSDNNNmd+EGyqC/ZfZv8vR4hK7sSc/ZOYLwQvzrJ11jt2
/ISQJRlt3d/Bjp8Qag1m9ZoN7PgHw1PVoORiJTv+wQh5M+JY/SPzg6GiI0ge
S2N+MCzN71y9GMv8EGz6ylmpJmB+CAaH+BPU+MwPQWl+r9+j2cwPgXNa2Yw0
LvNDoVx/rmbxa3b+hKK/xH9u+z12/oSiwjCy5EwFsTIURhqpx4vz2PkXhsH+
H3PvpzA/DCmZHCyTMT8Medq3/9Pmwfww7Ltu39hkyfxw5E549p2+HvPDIXLX
m36Vy/xwnFp8c2V1Nzv/w5F3588FUxqJOSJovw1edvcSu35EMI2vMu44zq4f
Ec4F2S0VZTFfhNNRVZoOScyPwE7xJ+7uSOZHYKj4KMfUk/kRqNbiFdhaMz8C
0+2GTUvnMV+MgirT6zsmE/PEOFVrsfSfH+j6hhic7QlLHF4Ti8X44CRYtbSJ
3R/EWOZh25BcQ1woxpNQPQOjs+x+IUaQxfL1RkeJ28UIXyJr2pHJ7h+RGOC/
3bBwBzEvEt/0vFuxMJb1x/cr9k7bhKwfCU7JHzt117J+JMJvcF+o2bD++PeF
nPBVi1g/Ei03NAau67J+JGbPcj2wV4P1Jbh+woP//Qe6//EkKDqy+lVXD7sf
SrDz1h9F29qIxRIMjR7f5vaAWCFB//mmnUE1xIUSDJ7pqiusJFZK0HjyWLrR
CeJ2CdJHTzW35bH7bxQk1U9H7meyfhRUYzK+Gkph/Sg4na4vX5vA+lHYJSnu
fCBj/SjU6+gZZgSzfhQE+t61sV6sH4XcJ3t9tjuyfhR+G7PlV1qxvhQHk4dG
p5uwvhQJ1kGWhQasL4X7qsmJgmmsL8XWwhOR89VZXwpuT3KZ/id6vhRK4Vl3
eKLNELFSCr5oNz/xNXG7FI2Ntio/P2fPJxmEmR0rXRuJeTLMlF+43XaXGDKs
kz1KyblKLJbBZkwtSFTJnmcyXEkpdXIpZX0Z9hyMcXEtYH0ZVH1mRIkPs74M
RweTS3PY85ATjUPOi8xbdrF+NEbtHKYv28b60ePPP7eU43GsH42vzVXzFspY
Pxq8EIvvr4WyfjQanWMq5b6sH430G13m89xYPxoFjZLANw6sL0e6Wlt8LZ/1
5fi4K7GlwpT15bh8z6qjzJj15dD1f99XMZv15aitNYu+O5X15bjrdrH8Nw3W
lyMlRuk4g70PtMvRq56buW6E3hc4MbjAi9c41E/Mi8HbwM12L7uIEQO1jIhj
K14Qi2Ow3TC1ruAJe9+IgWXC7hVa94kLY3DmkWT/rlvEyvH9qKn32GXi9hiY
zH+nt6eS9WORseHcgallrB+LMzc1vE4eU8N/AdyuV/c=
             "]]}, {
            Hue[0.08640786499873876, 0.6, 0.6], 
            Directive[
             PointSize[0.006944444444444445], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxVknlYjXkfhw+SCkVCTFFpLDNpX2eoT9Imrad9O6dzOueUJU16kyVzCpPo
tUynqV4aMWKKqRCTJi0UUSlNKNug0FjSqtX0ei+/7x/vc13P9Vz383nu3/3P
oy3Y5CWayOFwbn66//f8fHXbcP7/QlLzlf1NH79m7xXgPXWzRuNiJ8YzkJm/
IP/oI3/GajAvQvDtuSLG6rBpbOAsUIpmrAHBhoZB98Y4xlpweHTQteCfnYx1
YFtblHRQuJuxLq6+u/JYxXAf48WIUt/fV5B0iPFSfGEqLrDZLWP8FY7NsLNM
NspirIesNV9y04//zFgfsp69wkdxJxgb4tLrsdTL6qcYG8Gr7OQJY/t8xsYY
5zk/UJ9WyNgEJT3HZGo25xmbQnhnk3m870XGZvizKG2W990SxuY4eX7Thck1
ZYwtYGkz7d3ejErGlli0u+2HXcrXGFuBP79HX7++hvE36B7gCRffrWX8LdbF
qLbeX17PeAWOrXyXKXnQyHgl8uxTv3F/f4exNQriR2V/L2hhbAOtoxMj1iXc
Ywx4NUcqvZna9pmlwOEY+U69uodst8X7KvmKQ388YbstVjW07U3uesr2VdDg
KMtlZTxn+yrYcA9t2+vfwXY7jCgPt5wyfMl2O/icCH2suLCT7atxuSTjVarO
a7avxkTVOSnNVm/Zbg83Byuxo7CL7faIfjyslOZG/6kDbhddVSqP6WG7A04u
MXoyN7uX7Y7oLXmWsqu+j+2OKNhfd+H+eD/bnVAZUnz2udkHtjvh8vXXWVEb
B9nuDEGV21H73CG2O6PqVnKz2aNhtq+BnM489dkzR9m+BonrxiKqV42x3QW9
cbJW4+iPbHfBT99rq/Iz/2H7Wpi3JfNCS8fZvhahLcEa+es4+Ly7QvH0wnPW
/Yylrhh1n9GcvnUC290gVZD/UTjCWOqGRt05FpK4iWx3R3eqnMb6d4yl7hgq
nx+7mjeJ7R6o6XL50FzHGB6wn68QyzGRY997IItzkFcpY1zpgfp/K9mr9DDm
eII7x9qq13Ey8z1RprAMcVmMpZ5orcn+rfAF40pPbCz+IfGynjzzvdCZH1RV
HMUYXphQp9l04wxjqRdGls6+rtnBuNILGW+233wxdwrzuaizNY70cmQMLkp2
yEYyYxhLuQi4mDrancW4kotE+d6taVfI94aJh11i6WPyvbFRteZgzgj53vAL
/jhLqqbAfG/8abG578evGXN8UFu98wtVMIYPjmg80DDzYiz1gZVNQrORgHwf
lBosVlsRTb4vxvKvxu7ZQb4vHuhcnbYymXxfWGUt8Th4iHxfZGdP7s7NJN8P
PeXt108fI98PgTJRY0ku+X4oM12nO5JPvh+QW6G4r5B8f5wajx7bdYF8f3Dl
825yfiffH50mGmfmlJLvDz+jLklbGfkB0A+dvjWwgvwAJPYqGeZVkR+A8e+7
ys9fIz8ACQml6TE15AdC0606SOEG+YFoO9ISvL+W/EDMMt6SPO0W+YEw8PAd
yKgjPwguN7LVzRvID8Kmu5a/vL1NfhDmeX60qGgiPwg5Jnq9hc3kB8OQ+7C+
ooX8YBzpPNvTdY/8YGxOTelf0UZ+MK71X+PkPSQ/BA8Gp44aPSE/BAaixv/c
e0p+CJL+NT0hvZ38EAy/+Mp440vyQ+GqNOwY/Df5oRgKfugR9pb8UNwRVHZu
e09+KGIPx5ec7iWfB2vx3S0vB8jnYdqlZ11mw+TzcHfmdx9kY+TzsE3LLH4i
R5H5fLQl7YhKmMRYiw/tkYvtclMYgw+1jrqeDCXGfD6CBsVVZsqMpXxcx6KU
xzMZ5/ChIKlIPTCbcSUf/j0uGk7zGD/lQ1QQmqaoSf0wLHy91r9Zi/phUPWM
enhcl/ph0JdF/rRlKfXDEBa2fypXj/qf9r+W1JgYUv/TecflfeaZUj8MzbWt
3EmW1A+DQ38Jv+db6gswlFSs1W5DfQGs80KsW+2oL8C726LIJkfqC3Am18a3
zoX6AhyJr71S6059AWZ8ORRcy6W+AJ0OGf03/agvQJLGqFNDEPWFKD13XbuZ
R30h6l4WObcKqS9Eb6/bgb8k1BdCPKG94tV66gtxPkf/XPcm6gthdcrJYmQz
9YVQdo5bJhdPfSFe6k0JU95B/XCIF5leVpdSPxyrJByVRbupH47fdDVtl++l
fjgmzGs0sEilfjiw4F4ZDlE/HAN7fOucZdQPh7JKtY1XJvXDkSe4PR5wlPoi
mPa49fJzqC+C+lzLcfFJ6ovwImaPyoZfqS9Crsvy6dFnqS+C66hqe0wR9UUY
WD2yI7aY+iKUJW+/EVtCfRHcfh8q3FxGfTFkqmm631VSX4xbe7TVNlZTX4zi
wiVRklrqi6EW3aDDr6e+GCnT7+v4NVFfjKWN2by1LdQXI01Fsc6mlfpiHChP
9jN6RH0JttkrDWk9pb4E22+OHVPuoL4E3dW2diOvqC9BxKDevfY31JeAl7HT
te499SWQNYX+XNRHfQmc9gSUpw1SX4JXjoG/xI5SPwLKB361445TPwL98zrS
DSYpsX4ExtMnHFacwpgfgedBjnrPlBhLP/nr1/AuKTPOicCJpDfaKaqMKz+d
x/PeEDCH8dMIdCwbMF8ynzEnEn19idt6NRlrRWKfoNvgD20l/BfZ4nPj
             "]]}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, DisplayFunction :> 
         Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"f)\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.05, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"\[Degree]C\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{1, 200}, {0, 5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}}, AutoDelete -> False, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
   TemplateBox[{
     StyleBox[
     "\"D16-calc\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
      False], 
     StyleBox[
     "\"D16-calb\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
      False], 
     StyleBox[
     "\"D13-calc\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
      False], 
     StyleBox[
     "\"D13-calb\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
      False], 
     StyleBox[
     "\"D07-calc\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
      False], 
     StyleBox[
     "\"D07-calb\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
      False], 
     StyleBox[
     "\"Fair-Geoffroy\"", FontFamily -> "Helvetica", FontSize -> 20, 
      StripOnInput -> False]}, "LineLegend", DisplayFunction -> (StyleBox[
      StyleBox[
       PaneBox[
        TagBox[
         GridBox[{{
            TagBox[
             GridBox[{{
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {40, 10}, PlotRangePadding -> None, 
                 ImagePadding -> Automatic, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {40, 10}, PlotRangePadding -> None, 
                 ImagePadding -> Automatic, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {40, 10}, PlotRangePadding -> None, 
                 ImagePadding -> Automatic, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {40, 10}, PlotRangePadding -> None, 
                 ImagePadding -> Automatic, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {40, 10}, PlotRangePadding -> None, 
                 ImagePadding -> Automatic, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                 ImageSize -> {40, 10}, PlotRangePadding -> None, 
                 ImagePadding -> Automatic, 
                 BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
              GridBoxAlignment -> {
               "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {
               "Columns" -> {{False}}, "Rows" -> {{False}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
          GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
          GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], 
        Alignment -> Left, AppearanceElements -> None, 
        ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
       LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
      Background -> Automatic, StripOnInput -> False]& ), 
    InterpretationFunction :> (RowBox[{"LineLegend", "[", 
       RowBox[{
         RowBox[{"{", 
           RowBox[{
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{
                   GrayLevel[0], 
                   RectangleBox[{0, 0}]}, {
                   GrayLevel[0], 
                   RectangleBox[{1, -1}]}, {
                   RGBColor[0, 0, 1], 
                   RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                 "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                 FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                 FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                StyleBox[
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                 False]], Appearance -> None, BaseStyle -> {}, 
               BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
               ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = 
                   RGBColor[0, 0, 1]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                   BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                   ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                 ",", 
                 RowBox[{"Dashing", "[", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
             ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{
                   GrayLevel[0], 
                   RectangleBox[{0, 0}]}, {
                   GrayLevel[0], 
                   RectangleBox[{1, -1}]}, {
                   RGBColor[1, 0, 0], 
                   RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                 "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                 FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                 FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                StyleBox[
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> False], ",", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 RowBox[{"Dashing", "[", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
             ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{
                   GrayLevel[0], 
                   RectangleBox[{0, 0}]}, {
                   GrayLevel[0], 
                   RectangleBox[{1, -1}]}, {
                   RGBColor[0, 1, 0], 
                   RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                 "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                 FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                 FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                StyleBox[
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> False], ",", 
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> False], 
                 ",", 
                 RowBox[{"Dashing", "[", 
                   RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
             ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{
                   GrayLevel[0], 
                   RectangleBox[{0, 0}]}, {
                   GrayLevel[0], 
                   RectangleBox[{1, -1}]}, {
                   GrayLevel[0], 
                   RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                 "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                 FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                 PlotRangePadding -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                StyleBox[
                 RowBox[{"GrayLevel", "[", "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 = GrayLevel[0]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}], 
         ",", 
         RowBox[{"{", 
           RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7}], 
           "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
           RowBox[{"{", 
             RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
    True]},
  "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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.823434146647944*^9, 3.8234343867532825`*^9, 3.8234344590833845`*^9, {
   3.8234348971360636`*^9, 3.823434939171124*^9}, 3.8234359679996862`*^9, 
   3.823444593054296*^9, 3.823444748691515*^9, 3.824192366412307*^9},
 CellLabel->
  "Out[2030]=",ExpressionUUID->"5b9c93ce-4a9e-4090-b1fd-14fdd580c015"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SIFigureZECMIP.tiff\>\"", ",", "SIFigureZECMIP"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8234349513931413`*^9, 3.8234349784231796`*^9}},
 CellLabel->
  "In[1333]:=",ExpressionUUID->"f26af0f5-f0af-484d-b9f5-3ed694560923"],

Cell[BoxData["\<\"SIFigureZECMIP.tiff\"\>"], "Output",
 CellChangeTimes->{3.8234349820531845`*^9, 3.823444763742536*^9},
 CellLabel->
  "Out[1333]=",ExpressionUUID->"09ca9c80-3e06-4c70-a952-cf3046c8fb15"]
}, Open  ]],

Cell["ZEC: 420 GtCO2 from 2018", "Text",
 CellChangeTimes->{{3.71113575119866*^9, 3.7111357648642597`*^9}, {
  3.711171131470954*^9, 3.711171132484956*^9}, {3.712408724609439*^9, 
  3.7124087395614595`*^9}, {3.7662479249546547`*^9, 3.7662479290036545`*^9}, {
  3.810276061054193*^9, 3.810276074321699*^9}, {3.8167180604130163`*^9, 
  3.816718074126128*^9}, {3.8171501903508883`*^9, 3.8171502004843855`*^9}, {
  3.8234352506786737`*^9, 3.823435263659692*^9}, {3.824190835026394*^9, 
  3.8241908353115764`*^9}},
 FontSize->18,
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"7dd2443e-c6be-4abc-b2dc-23b01d4cc60e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"dataCW", "=", 
   RowBox[{
   "Import", "[", "\"\<Emissionspaths_committedwarming420.csv\>\"", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.8171502256474347`*^9, 3.8171502452327433`*^9}, {
  3.824189303676859*^9, 3.824189304556935*^9}},
 CellLabel->
  "In[1969]:=",ExpressionUUID->"4075e960-8a19-45b8-a82c-fc729d38e731"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"cwl", "=", 
  RowBox[{
   RowBox[{"Dimensions", "[", "dataCW", "]"}], "[", 
   RowBox[{"[", "1", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8171502507523904`*^9, 3.817150257319104*^9}, {
  3.8233617519121127`*^9, 3.823361760094124*^9}},
 CellLabel->
  "In[1970]:=",ExpressionUUID->"e66a07d3-112b-4464-a9b9-74e61ed22aa7"],

Cell[BoxData["287"], "Output",
 CellChangeTimes->{3.8171502583166447`*^9, 3.823360565039359*^9, 
  3.823361760944125*^9, 3.8241893095065756`*^9},
 CellLabel->
  "Out[1970]=",ExpressionUUID->"0e40c5c3-d277-487c-a415-d0bf76b0adc0"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CW85Results", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "cwl"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "15"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CW85Results", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<1-year\>\"", ",", "\"\<2-C-CC16c\>\"", ",", "\"\<3-C-CC16b\>\"", 
     ",", "\"\<4-C-CC13c\>\"", ",", "\"\<5-C-CC13b\>\"", ",", 
     "\"\<6-C-CC07c\>\"", ",", "\"\<7-C-CC07b\>\"", ",", "\"\<8-C-FG\>\"", 
     ",", "\"\<9-T-CC16c\>\"", ",", "\"\<10-T-CC16b\>\"", ",", 
     "\"\<11-T-CC13c\>\"", ",", "\"\<12-T-CC13b\>\"", ",", 
     "\"\<13-T-CC07c\>\"", ",", "\"\<14-T-CC07b\>\"", ",", 
     "\"\<15-T-FG\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CW85Results", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "1"}], ",", "1"}], "]"}], "]"}], "=", 
     RowBox[{"2014", "+", "i"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"cwl", "-", "1"}]}], "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8233619328173676`*^9, 3.8233619455993857`*^9}, {
  3.8233621407209578`*^9, 3.823362145251964*^9}, {3.823362258913124*^9, 
  3.823362259563125*^9}, {3.823362756046414*^9, 3.823362841554537*^9}, {
  3.8233629285976596`*^9, 3.823362986454741*^9}},
 CellLabel->
  "In[1971]:=",ExpressionUUID->"5fc2d92b-c500-49af-bde4-3c8f8963a7d3"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"y", "=", "cwl"}], ",", " ", 
       RowBox[{"(*", 
        RowBox[{
        "needs", " ", "to", " ", "plus", " ", "1", " ", "the", " ", "length", 
         " ", "of", " ", "the", " ", "emission", " ", "input", " ", "file"}], 
        "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"transfer", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "+", "2"}], ",", "3"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"transfer", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}], "+", 
            "timestep"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"transfer", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", 
             RowBox[{"{", 
              RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
          "int2005"}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transfer", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "7"}], "]"}], "]"}], "=", 
          RowBox[{"hfun", "[", 
           RowBox[{"transfer", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "5"}], "]"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transfer", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", 
          RowBox[{"Afun", "[", "timestep", "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transfer", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "9"}], "]"}], "]"}], "=", 
          RowBox[{"Bfun", "[", 
           RowBox[{"transfer", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "7"}], "]"}], "]"}], "]"}]}], ";", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transfer", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", 
             RowBox[{"{", 
              RowBox[{"12", ",", "13", ",", "14"}], "}"}]}], "]"}], "]"}], 
          "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"trans", ".", 
               RowBox[{"transfer", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", 
                  RowBox[{"{", 
                   RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}]}],
               "/.", "par"}], "/.", 
             RowBox[{"t", "\[Rule]", "timestep"}]}], "/.", 
            RowBox[{"A", "\[Rule]", 
             RowBox[{"transfer", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "8"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"B", "\[Rule]", 
            RowBox[{"transfer", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "9"}], "]"}], "]"}]}]}]}], ";"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"transfery1CC16", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "y"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "18"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "=", 
        RowBox[{"{", 
         RowBox[{
         "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-CDR\>\"", ",", 
          "\"\<4-MATc\>\"", ",", "\"\<5-MUPc\>\"", ",", "\"\<6-MLOc\>\"", 
          ",", "\"\<7-dC\>\"", ",", "\"\<8-MATb\>\"", ",", "\"\<9-MUPb\>\"", 
          ",", "\"\<10-MLOb\>\"", ",", "\"\<11-dC\>\"", ",", "\"\<12-Fex\>\"",
           ",", "\"\<13-Fc\>\"", ",", "\"\<14-Fb\>\"", ",", 
          "\"\<15-TempAc\>\"", ",", "\"\<16-TempOc\>\"", ",", 
          "\"\<17-TempAb\>\"", ",", "\"\<18-TempOb\>\""}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"transfery1CC16", "[", 
           RowBox[{"[", 
            RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", 
          RowBox[{"2015", "+", "n", "-", "2"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "2", ",", "y"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"emcolumns", "=", 
         RowBox[{"{", "5", "}"}]}], ";", "\[IndentingNewLine]", 
        RowBox[{"emissions1", "=", 
         RowBox[{"dataCW", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "cwl"}], ",", 
            RowBox[{"emcolumns", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"cdr1", "=", 
          RowBox[{"Input1CC16", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"2", ";;", "v3"}], ",", 
             RowBox[{"k", "*", "3"}]}], "]"}], "]"}]}], ","}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
        "emissions1"}], ",", " ", 
       RowBox[{"(*", "Emissions", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"transfery1CC16", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"2", ";;", "y"}], ",", "3"}], "]"}], "]"}], "=", 
          "cdr1"}], ","}], "*)"}], 
       RowBox[{"(*", "CDR", "*)"}], "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{"Do", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"transfer", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "+", "2"}], ",", "3"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"transfer", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "+", "1"}], ",", "3"}], "]"}], "]"}], "+", 
            "timestep"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "1", ",", "2"}], "}"}]}], "]"}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
        "intCC162015"}], ",", " ", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "initial", " ", "carbon", " ", "values", " ", "for", " ", 
          "atmosphere"}], ",", " ", 
         RowBox[{"upper", " ", "ocean"}], ",", " ", 
         RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], "=", 
        "intCC162015"}], ",", " ", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "initial", " ", "carbon", " ", "values", " ", "for", " ", 
          "atmosphere"}], ",", " ", 
         RowBox[{"upper", " ", "ocean"}], ",", " ", 
         RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
        "TwoFexDice2015"}], ",", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"atmosphere", " ", "temperature"}], ",", " ", 
         RowBox[{"ocean", " ", "temperature"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
        "TwoFexDice2015"}], ",", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"atmosphere", " ", "temperature"}], ",", " ", 
         RowBox[{"ocean", " ", "temperature"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"fexcolumns", "=", 
          RowBox[{"{", 
           RowBox[{"40", ",", "44", ",", "45"}], "}"}]}], ","}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "12"}], "]"}], "]"}], "=", "0"}], 
       ",", " ", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"dataRCP1", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "v3"}], ",", 
            RowBox[{"fexcolumns", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ","}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "13"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Eta]", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{"transfery1CC16", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "4"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
             "/", 
             RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
          RowBox[{"transfery1CC16", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT161calc"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "14"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Eta]", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{"transfery1CC16", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "8"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
             "/", 
             RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
          RowBox[{"transfery1CC16", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT161calb"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"timestepy", "=", "85"}], ",", "\[IndentingNewLine]", 
         RowBox[{"Do", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"transfery1CC16", "[", 
             RowBox[{"[", 
              RowBox[{"n", ",", "10"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"intT2015", "[", 
              RowBox[{"[", "3", "]"}], "]"}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"1", "/", "timestepy"}], ")"}], "*", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"intT2015", "[", 
                 RowBox[{"[", "4", "]"}], "]"}], "-", 
                RowBox[{"intT2015", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], ")"}], "*", 
              RowBox[{"(", 
               RowBox[{"n", "-", "2"}], ")"}]}]}]}], ",", 
           RowBox[{"{", 
            RowBox[{"n", ",", "3", ",", 
             RowBox[{"timestepy", "+", "2"}]}], "}"}]}], "]"}], ",", " ", 
         RowBox[{"(*", 
          RowBox[{"Calculate", " ", "exogenous", " ", "forcing"}], "*)"}], 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transfery1CC16", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{
              RowBox[{"timestepy", "+", "3"}], ";;", "y"}], ",", "10"}], 
            "]"}], "]"}], "=", 
          RowBox[{"intT2015", "[", 
           RowBox[{"[", "4", "]"}], "]"}]}], ","}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"transfery1CC16", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
              ".", "a1calc"}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",", 
           RowBox[{
            RowBox[{"transfery1CC16", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
            "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
              ".", "a1calb"}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",",
            "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC16", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Eta]", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Log", "[", 
                  RowBox[{
                   RowBox[{"transfery1CC16", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                  "]"}], "/", 
                 RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
             "parT161calc"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC16", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Eta]", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Log", "[", 
                  RowBox[{
                   RowBox[{"transfery1CC16", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                  "]"}], "/", 
                 RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
             "parT161calb"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC16", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"TransT161calc", ".", 
               RowBox[{"transfery1CC16", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"transfery1CC16", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "13"}], "]"}], "]"}]}]}], "/.", 
             "parT161calc"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC16", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"TransT161calb", ".", 
               RowBox[{"transfery1CC16", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"transfery1CC16", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "14"}], "]"}], "]"}]}]}], "/.", 
             "parT161calb"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC16", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
              "]"}], "-", 
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
              "]"}]}]}], ",", 
           RowBox[{
            RowBox[{"transfery1CC16", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"{", 
                  RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
              "]"}], "-", 
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
              "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3", ",", "y"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "1"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "4"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "2"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "8"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "8"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "15"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "9"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC16", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "17"}], "]"}], "]"}]}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "1"}], "}"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.817183532094037*^9, 3.8171835849316654`*^9}, {
   3.8171836261424646`*^9, 3.8171836559173756`*^9}, {3.8171836926721554`*^9, 
   3.817183700225592*^9}, {3.8171837483355293`*^9, 3.817183754024845*^9}, {
   3.8171840794336424`*^9, 3.817184157689059*^9}, {3.8171995198952336`*^9, 
   3.81719953469452*^9}, {3.817200647782261*^9, 3.817200656880283*^9}, 
   3.8172009826487427`*^9, {3.823363085973169*^9, 3.82336309408418*^9}, {
   3.8233631281342287`*^9, 3.8233631708602886`*^9}, {3.823363280570443*^9, 
   3.8233633821375866`*^9}, {3.8233634378577194`*^9, 
   3.8233634441287284`*^9}, {3.824190849362445*^9, 3.8241908549757586`*^9}},
 CellLabel->
  "In[1979]:=",ExpressionUUID->"3084e01c-e325-4008-8680-79e5e84f9e7d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"y", "=", "cwl"}], ",", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"Dimensions", "[", "dataNorem", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ","}], "*)"}], " ", 
       "\[IndentingNewLine]", 
       RowBox[{"transfery1CC13", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "y"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "18"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "=", 
        RowBox[{"{", 
         RowBox[{
         "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-CDR\>\"", ",", 
          "\"\<4-MATc\>\"", ",", "\"\<5-MUPc\>\"", ",", "\"\<6-MLOc\>\"", 
          ",", "\"\<7-dC\>\"", ",", "\"\<8-MATb\>\"", ",", "\"\<9-MUPb\>\"", 
          ",", "\"\<10-MLOb\>\"", ",", "\"\<11-dC\>\"", ",", "\"\<12-Fex\>\"",
           ",", "\"\<13-Fc\>\"", ",", "\"\<14-Fb\>\"", ",", 
          "\"\<15-TempAc\>\"", ",", "\"\<16-TempOc\>\"", ",", 
          "\"\<17-TempAb\>\"", ",", "\"\<18-TempOb\>\""}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"transfery1CC13", "[", 
           RowBox[{"[", 
            RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", 
          RowBox[{"1765", "+", "n", "-", "2"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "2", ",", "y"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"emcolumns", "=", 
         RowBox[{"{", "5", "}"}]}], ";", " ", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3", ",", "4"}], "}"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"emissions1", "=", 
         RowBox[{"dataCW", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "cwl"}], ",", 
            RowBox[{"emcolumns", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
        "emissions1"}], ",", " ", 
       RowBox[{"(*", "Emissions", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
        "intCC132015"}], ",", " ", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "initial", " ", "carbon", " ", "values", " ", "for", " ", 
          "atmosphere"}], ",", " ", 
         RowBox[{"upper", " ", "ocean"}], ",", " ", 
         RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], "=", 
        "intCC132015"}], ",", " ", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "initial", " ", "carbon", " ", "values", " ", "for", " ", 
          "atmosphere"}], ",", " ", 
         RowBox[{"upper", " ", "ocean"}], ",", " ", 
         RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
        "TwoFexDice2015"}], ",", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"atmosphere", " ", "temperature"}], ",", " ", 
         RowBox[{"ocean", " ", "temperature"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
        "TwoFexDice2015"}], ",", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"atmosphere", " ", "temperature"}], ",", " ", 
         RowBox[{"ocean", " ", "temperature"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "13"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Eta]", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{"transfery1CC13", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "4"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
             "/", 
             RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
          RowBox[{"transfery1CC13", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT131calc"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "14"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Eta]", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{"transfery1CC13", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "8"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
             "/", 
             RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
          RowBox[{"transfery1CC13", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT131calb"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"transfery1CC13", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
              ".", "b1calc"}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",", 
           RowBox[{
            RowBox[{"transfery1CC13", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
            "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
              ".", "b1calb"}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",",
            "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC13", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Eta]", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Log", "[", 
                  RowBox[{
                   RowBox[{"transfery1CC13", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                  "]"}], "/", 
                 RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
             "parT131calc"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC13", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Eta]", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Log", "[", 
                  RowBox[{
                   RowBox[{"transfery1CC13", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                  "]"}], "/", 
                 RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
             "parT131calb"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC13", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"TransT131calc", ".", 
               RowBox[{"transfery1CC13", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"transfery1CC13", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "13"}], "]"}], "]"}]}]}], "/.", 
             "parT131calc"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC13", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"TransT131calb", ".", 
               RowBox[{"transfery1CC13", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"transfery1CC13", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "14"}], "]"}], "]"}]}]}], "/.", 
             "parT131calb"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC13", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
              "]"}], "-", 
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
              "]"}]}]}], ",", 
           RowBox[{
            RowBox[{"transfery1CC13", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"{", 
                  RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
              "]"}], "-", 
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC13", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
              "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3", ",", "y"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "3"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "4"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "4"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "8"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "10"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "15"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "11"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC13", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "17"}], "]"}], "]"}]}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "1"}], "}"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8172311946795764`*^9, 3.8172312213353*^9}, {
  3.8172312711628575`*^9, 3.817231332982591*^9}, {3.8172315544338975`*^9, 
  3.817231627210719*^9}, {3.817232060663287*^9, 3.8172320831769705`*^9}, {
  3.82336347329377*^9, 3.823363580819921*^9}, {3.8233639108756795`*^9, 
  3.82336396795576*^9}, {3.823365281642679*^9, 3.8233652932846956`*^9}, {
  3.824190871953808*^9, 3.824190875678615*^9}},
 CellLabel->
  "In[1980]:=",ExpressionUUID->"70005b8f-ce0f-477f-9b8e-a640762bc78d"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Do", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"y", "=", "cwl"}], ",", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
          RowBox[{"Dimensions", "[", "dataNorem", "]"}], "[", 
          RowBox[{"[", "1", "]"}], "]"}], ","}], "*)"}], " ", 
       "\[IndentingNewLine]", 
       RowBox[{"transfery1CC07", "=", 
        RowBox[{"Table", "[", 
         RowBox[{"0", ",", 
          RowBox[{"{", 
           RowBox[{"i", ",", "y"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "18"}], "}"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", "1", "]"}], "]"}], "=", 
        RowBox[{"{", 
         RowBox[{
         "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-CDR\>\"", ",", 
          "\"\<4-MATc\>\"", ",", "\"\<5-MUPc\>\"", ",", "\"\<6-MLOc\>\"", 
          ",", "\"\<7-dC\>\"", ",", "\"\<8-MATb\>\"", ",", "\"\<9-MUPb\>\"", 
          ",", "\"\<10-MLOb\>\"", ",", "\"\<11-dC\>\"", ",", "\"\<12-Fex\>\"",
           ",", "\"\<13-Fc\>\"", ",", "\"\<14-Fb\>\"", ",", 
          "\"\<15-TempAc\>\"", ",", "\"\<16-TempOc\>\"", ",", 
          "\"\<17-TempAb\>\"", ",", "\"\<18-TempOb\>\""}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"transfery1CC07", "[", 
           RowBox[{"[", 
            RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", 
          RowBox[{"2015", "+", "n", "-", "2"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"n", ",", "2", ",", "y"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"emcolumns", "=", 
         RowBox[{"{", "5", "}"}]}], ";", " ", 
        RowBox[{"(*", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2", ",", "3", ",", "4"}], "}"}], ";"}], "*)"}], 
        "\[IndentingNewLine]", 
        RowBox[{"emissions1", "=", 
         RowBox[{"dataCW", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "cwl"}], ",", 
            RowBox[{"emcolumns", "[", 
             RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
        "emissions1"}], ",", " ", 
       RowBox[{"(*", "Emissions", "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
        "intCC072015"}], ",", " ", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "initial", " ", "carbon", " ", "values", " ", "for", " ", 
          "atmosphere"}], ",", " ", 
         RowBox[{"upper", " ", "ocean"}], ",", " ", 
         RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], "=", 
        "intCC072015"}], ",", " ", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{
         "initial", " ", "carbon", " ", "values", " ", "for", " ", 
          "atmosphere"}], ",", " ", 
         RowBox[{"upper", " ", "ocean"}], ",", " ", 
         RowBox[{"lower", " ", "ocean"}]}], "*)"}], "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
        "TwoFexDice2015"}], ",", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"atmosphere", " ", "temperature"}], ",", " ", 
         RowBox[{"ocean", " ", "temperature"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"{", 
            RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
        "TwoFexDice2015"}], ",", " ", 
       RowBox[{"(*", " ", 
        RowBox[{
         RowBox[{"atmosphere", " ", "temperature"}], ",", " ", 
         RowBox[{"ocean", " ", "temperature"}]}], "*)"}], 
       "\[IndentingNewLine]", 
       RowBox[{"(*", 
        RowBox[{
         RowBox[{"fexcolumns", "=", 
          RowBox[{"{", 
           RowBox[{"40", ",", "44", ",", "45"}], "}"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transfery1CC07", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"2", ";;", "y"}], ",", "12"}], "]"}], "]"}], "=", 
          RowBox[{"dataRCP1", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"2", ";;", "v3"}], ",", 
             RowBox[{"fexcolumns", "[", 
              RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], ","}], "*)"}],
        "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "13"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Eta]", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{"transfery1CC07", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "4"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
             "/", 
             RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
          RowBox[{"transfery1CC07", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT071calc"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", "14"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Eta]", "*", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{"transfery1CC07", "[", 
                RowBox[{"[", 
                 RowBox[{"2", ",", "8"}], "]"}], "]"}], "/", "MPI"}], "]"}], 
             "/", 
             RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
          RowBox[{"transfery1CC07", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "12"}], "]"}], "]"}]}], "/.", "parT071calb"}]}],
        ",", "\[IndentingNewLine]", 
       RowBox[{"Do", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"transfery1CC07", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
              ".", "d1calc"}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",", 
           RowBox[{
            RowBox[{"transfery1CC07", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
            "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
              ".", "d1calb"}], "+", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"1", ",", "0", ",", "0"}], "}"}], "*", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "2"}], "]"}], "]"}]}]}]}], ",",
            "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC07", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Eta]", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Log", "[", 
                  RowBox[{
                   RowBox[{"transfery1CC07", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                  "]"}], "/", 
                 RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
             "parT071calc"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC07", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"\[Eta]", "*", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"Log", "[", 
                  RowBox[{
                   RowBox[{"transfery1CC07", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "4"}], "]"}], "]"}], "/", "MPI"}], 
                  "]"}], "/", 
                 RowBox[{"Log", "[", "2", "]"}]}], ")"}]}], "+", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "12"}], "]"}], "]"}]}], "/.", 
             "parT071calb"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC07", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"TransT071calc", ".", 
               RowBox[{"transfery1CC07", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"15", ",", "16"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"transfery1CC07", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "13"}], "]"}], "]"}]}]}], "/.", 
             "parT071calc"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC07", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"TransT071calb", ".", 
               RowBox[{"transfery1CC07", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"17", ",", "18"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"transfery1CC07", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "14"}], "]"}], "]"}]}]}], "/.", 
             "parT071calb"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"transfery1CC07", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
              "]"}], "-", 
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
              "]"}]}]}], ",", 
           RowBox[{
            RowBox[{"transfery1CC07", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"{", 
                  RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
              "]"}], "-", 
             RowBox[{"Total", "[", 
              RowBox[{"transfery1CC07", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"8", ",", "9", ",", "10"}], "}"}]}], "]"}], "]"}], 
              "]"}]}]}]}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"{", 
          RowBox[{"i", ",", "3", ",", "y"}], "}"}]}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "5"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "4"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "6"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "8"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "12"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "15"}], "]"}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CW85Results", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", 
           RowBox[{"k", "+", "13"}]}], "]"}], "]"}], "=", 
        RowBox[{"transfery1CC07", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "y"}], ",", "17"}], "]"}], "]"}]}]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"k", ",", "1", ",", "1"}], "}"}]}], "]"}], ";"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8172328860915947`*^9, 3.8172328901397295`*^9}, {
  3.8172330384503593`*^9, 3.81723308849992*^9}, {3.8172333876348906`*^9, 
  3.8172334452794604`*^9}, {3.8172335594616413`*^9, 3.817233637779185*^9}, {
  3.81723375617695*^9, 3.817233756743413*^9}, {3.817233857752122*^9, 
  3.8172338587553453`*^9}, {3.8172344850450583`*^9, 3.817234493145195*^9}, {
  3.81723464737422*^9, 3.8172347263653665`*^9}, {3.817235016411627*^9, 
  3.8172350486881227`*^9}, {3.823364467721467*^9, 3.8233646089196653`*^9}, {
  3.8233653022157087`*^9, 3.823365312477723*^9}, {3.8241908883722*^9, 
  3.8241908927523007`*^9}},
 CellLabel->
  "In[1981]:=",ExpressionUUID->"2eb790b3-0af1-46a8-84e2-2804457bc858"],

Cell[BoxData[{
 RowBox[{"cwoFexstartvalues2015", "=", 
  RowBox[{"IVFairwoFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", 
     RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"ccawoFexstartvalues2015", "=", 
  RowBox[{"IVFairwoFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", "8"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"twoFexstartvalues2015", "=", 
  RowBox[{"IVFairwoFex2015", "[", 
   RowBox[{"[", 
    RowBox[{"2", ",", 
     RowBox[{"12", ";;", "15"}]}], "]"}], "]"}]}]}], "Input",ExpressionUUID->\
"2239a459-7b46-44a8-9d19-434e9398606e"],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "=", "cwl"}], ",", "\[IndentingNewLine]", 
     RowBox[{"transFairG", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "y"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "20"}], "}"}]}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", 
      RowBox[{"{", 
       RowBox[{
       "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-R1\>\"", ",", 
        "\"\<4-R2\>\"", ",", "\"\<5-R3\>\"", ",", "\"\<6-R4\>\"", ",", 
        "\"\<7-C\>\"", ",", "\"\<8-CCA\>\"", ",", "\"\<9-F\>\"", ",", 
        "\"\<10-Fex\>\"", ",", "\"\<11-TF\>\"", ",", "\"\<12-TMF\>\"", ",", 
        "\"\<13-TMS\>\"", ",", "\"\<14-TDF\>\"", ",", "\"\<15-TDS\>\"", ",", 
        "\"\<16-TM\>\"", ",", "\"\<17-TD\>\"", ",", "\"\<18-\[Alpha]\>\"", 
        ",", "\"\<19-\[Alpha]check\>\"", ",", "\"\<20-atmosGt\>\""}], "}"}]}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}], "=", 
        RowBox[{"2015", "-", "1", "+", "n"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", 
         RowBox[{"y", "-", "1"}]}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"emcolumns", "=", 
      RowBox[{"{", "5", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"dtemp", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "/", "2.12"}]}], 
       ","}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"dataCW", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"emcolumns", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], "/", 
       "2.1293970467500096"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
      "=", "cwoFexstartvalues2015"}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "initial", " ", "carbon", " ", "values", " ", "for", " ", "R1"}], ",", 
       "R2", ",", "R3", ",", "R4"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "7"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}], "+", 
       "278.0014091894"}]}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
      "initial", " ", "atmospheric", " ", "carbon", " ", "concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", 
      "ccawoFexstartvalues2015"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "9"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"F2x", "/", 
          RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "7"}], "]"}], "]"}], "/", "278"}], "]"}]}], "/.",
        "parFair"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"fexcolumns", "=", 
        RowBox[{"{", 
         RowBox[{"8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13"}], 
         "}"}]}], ","}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "10"}], "]"}], "]"}], "=", "0"}], ",", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"dataCBA", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "92"}], ",", 
          RowBox[{"fexcolumns", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ","}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "13", ",", "14", ",", "15"}], "}"}]}], "]"}], 
       "]"}], "=", "twoFexstartvalues2015"}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
      "initial", " ", "values", " ", "for", " ", "Mix", " ", "Layer", " ", 
       "Fast", " ", "and", " ", "Slow", " ", "Response", " ", "and", " ", 
       "Deep", " ", "Layer", " ", "Fast", " ", "and", " ", "Slow", " ", 
       "Response"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "16"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "17"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "18"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"rirf", "[", 
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "8"}], "]"}], "]"}], ",", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
          RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Alpha]", ",", "0.2"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "19"}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "18"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", 
             RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "-", "1"}], ",", 
              RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "+", 
           RowBox[{"dr", "[", 
            RowBox[{"aFair", ",", "\[Tau]Fair", ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
          RowBox[{"278.0014091894", "+", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "7"}], "]"}], "]"}], "-", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", "7"}], "]"}], "]"}]}], 
               ")"}]}], ")"}], "*", "2.12"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"F2x", "/", 
              RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "7"}], "]"}], "]"}], "/", 
              "278.0014091894"}], "]"}]}], "/.", "parFair"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"expf", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "12"}], "]"}], "]"}]}], "+", 
             RowBox[{"amixf", "*", "intf"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"exps", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "13"}], "]"}], "]"}]}], "+", 
             RowBox[{"amixs", "*", "ints"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"expf", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "14"}], "]"}], "]"}]}], "+", 
             RowBox[{"adeepf", "*", "intf"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"exps", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "15"}], "]"}], "]"}]}], "+", 
             RowBox[{"adeeps", "*", "ints"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transT", ".", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"Total", "[", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", 
                   RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}]}], "/.",
              "parTG"}]}], ","}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
             RowBox[{"Total", "[", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"11", ";;", "12"}]}], "]"}], "]"}], "]"}]}], ","}], 
           "*)"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"rirf", "[", 
               RowBox[{
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "8"}], "]"}], "]"}], ",", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
              RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}]}], 
              "}"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"rT", "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "16"}], "]"}], "]"}], "-", 
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "16"}], "]"}], "]"}]}], 
                 ")"}]}], "+", 
               RowBox[{"rc", "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "8"}], "]"}], "]"}], "-", 
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}]}], 
                 ")"}]}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"dalpha", "[", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "]"}], 
              ")"}]}]}], "/.", "parFair"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "3", ",", "cwl"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "7"}], "]"}], "]"}], "*", "2.12"}]}], ",",
      "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"CW85Results", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"k", "+", "7"}]}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"CW85Results", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"k", "+", "14"}]}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "16"}], "]"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "1", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.810280473345899*^9, 3.810280835289139*^9}, {
   3.8103641075717745`*^9, 3.810364110692772*^9}, {3.81036883002244*^9, 
   3.8103688305164795`*^9}, {3.8109597437819242`*^9, 
   3.8109597443484993`*^9}, {3.8126087024628897`*^9, 
   3.8126088027229705`*^9}, {3.8126089125388813`*^9, 3.812608914625472*^9}, {
   3.8133342934321384`*^9, 3.813334420216504*^9}, {3.8133344881701365`*^9, 
   3.813334619140195*^9}, {3.81333853388776*^9, 3.813338608697424*^9}, {
   3.813338681538455*^9, 3.813338685953352*^9}, {3.813338943353011*^9, 
   3.8133389926475935`*^9}, {3.813339447165347*^9, 3.8133394617685184`*^9}, {
   3.813339494809816*^9, 3.8133398477767277`*^9}, {3.8133399070193973`*^9, 
   3.8133399167065544`*^9}, {3.813339954815693*^9, 3.8133399781247263`*^9}, {
   3.8133403577092*^9, 3.8133403587043533`*^9}, {3.813340638363896*^9, 
   3.8133406723371153`*^9}, {3.8133461297614355`*^9, 3.813346237438306*^9}, {
   3.813346311469352*^9, 3.813346313427952*^9}, {3.813346478244486*^9, 
   3.8133464786699057`*^9}, {3.813512800860598*^9, 3.8135128045530205`*^9}, {
   3.8135129613335967`*^9, 3.813512967665472*^9}, {3.813513131335656*^9, 
   3.8135132059702077`*^9}, {3.813513448868885*^9, 3.8135134951501684`*^9}, {
   3.813513585711378*^9, 3.8135136559666605`*^9}, {3.813514076073622*^9, 
   3.8135140787416267`*^9}, {3.813516095289074*^9, 3.81351609572066*^9}, {
   3.8166392503253765`*^9, 3.8166392505416813`*^9}, {3.8166393846856313`*^9, 
   3.816639396927516*^9}, {3.816718495005973*^9, 3.816718499048741*^9}, {
   3.8167192008104115`*^9, 3.816719215239213*^9}, {3.8167192603891344`*^9, 
   3.81671929609338*^9}, {3.81671934571107*^9, 3.8167194515233183`*^9}, {
   3.8167195145526047`*^9, 3.81671951488964*^9}, {3.816719824013314*^9, 
   3.8167198871627383`*^9}, {3.817139186070547*^9, 3.817139191263028*^9}, 
   3.8171399022037325`*^9, {3.8172394370831194`*^9, 3.817239467874445*^9}, {
   3.8172399276347847`*^9, 3.817239975185067*^9}, {3.817240023461197*^9, 
   3.8172400612357087`*^9}, {3.8172401019563017`*^9, 
   3.8172401025560985`*^9}, {3.8233649005810847`*^9, 
   3.8233649121021013`*^9}, {3.82336502974327*^9, 3.8233651138463883`*^9}, {
   3.824190968772769*^9, 3.8241909856882954`*^9}},
 CellLabel->
  "In[1982]:=",ExpressionUUID->"3d2678de-74f3-4179-93ae-d85501128dbf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<CW85Results.csv\>\"", ",", "CW85Results"}], "]"}]], "Input",
 CellChangeTimes->{{3.823449601878076*^9, 3.823449626713111*^9}},
 CellLabel->
  "In[1983]:=",ExpressionUUID->"bbdfaa4a-1b08-41f2-8030-7c24602da134"],

Cell[BoxData["\<\"CW85Results.csv\"\>"], "Output",
 CellChangeTimes->{3.8234496287031136`*^9, 3.8241910030237904`*^9},
 CellLabel->
  "Out[1983]=",ExpressionUUID->"fb822d10-b8aa-4a6c-9591-54bc6fb2e754"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"CW85Results", "[", 
   RowBox[{"[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "87", ",", "187", ",", "287"}], "}"}], "]"}],
    "]"}], "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.823365357374786*^9, 3.823365424703881*^9}},
 CellLabel->
  "In[1984]:=",ExpressionUUID->"7a3a07cd-b195-4fd0-8dd2-f708aeaf2704"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"1-year\"\>", "\<\"2-C-CC16c\"\>", "\<\"3-C-CC16b\"\>", \
"\<\"4-C-CC13c\"\>", "\<\"5-C-CC13b\"\>", "\<\"6-C-CC07c\"\>", "\<\"7-C-CC07b\
\"\>", "\<\"8-C-FG\"\>", "\<\"9-T-CC16c\"\>", "\<\"10-T-CC16b\"\>", \
"\<\"11-T-CC13c\"\>", "\<\"12-T-CC13b\"\>", "\<\"13-T-CC07c\"\>", \
"\<\"14-T-CC07b\"\>", "\<\"15-T-FG\"\>"},
     {"2015", "843.418577104893`", "843.418577104893`", "843.418577104893`", 
      "843.418577104893`", "843.418577104893`", "843.418577104893`", 
      "843.418577104893`", "0.9644763159953804`", "0.9644763159953804`", 
      "0.9644763159953804`", "0.9644763159953804`", "0.9644763159953804`", 
      "0.9644763159953804`", "0.9644763159953804`"},
     {"2100", "891.3468446796244`", "892.0779849028004`", 
      "790.9425019375955`", "794.6750513945208`", "766.2516799967838`", 
      "767.5274230072116`", "830.6933621646323`", "1.72378274431113`", 
      "1.720050598695086`", "1.3210599032353156`", "1.3290762123794961`", 
      "1.1499285002370305`", "1.0657276566020681`", "1.1573786378018958`"},
     {"2200", "876.5735081222009`", "877.4773673076253`", 
      "762.6227610197643`", "763.5154633642675`", "712.6043678211448`", 
      "688.1364403304391`", "802.603220750293`", "1.7516182265191467`", 
      "1.7355300612517273`", "1.1059677655495748`", "1.1056436106154448`", 
      "0.8811905199515626`", "0.8600495473688763`", "1.1748690801377026`"},
     {"2300", "863.1238005547223`", "864.4265797436677`", 
      "755.3489024243156`", "755.9195881779503`", "680.8402540263622`", 
      "650.1318060653351`", "785.0530407488656`", "1.7125682751430025`", 
      "1.6977957730967395`", "1.0543495452633893`", "1.0521539186195084`", 
      "0.7175556577430108`", "0.6999294365292246`", "1.177873616827193`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8233646317136974`*^9, {3.8233653340617533`*^9, 3.8233653585947876`*^9}, {
   3.823365389968832*^9, 3.8233654256638823`*^9}, 3.8241910057840567`*^9},
 CellLabel->
  "Out[1984]//MatrixForm=",ExpressionUUID->"bfe342f4-5c2d-4709-a628-\
8f002da72ad1"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CWtable", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "8"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "9"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CWtable", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<deltaC2100\>\"", ",", "\"\<deltaC2200\>\"", ",", 
     "\"\<deltaC2300\>\"", ",", "\"\<deltaCmax\>\"", ",", 
     "\"\<deltaT2100\>\"", ",", "\"\<deltaT2200\>\"", ",", 
     "\"\<deltaT2300\>\"", ",", "\"\<deltaTmax\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CWtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<CC16c\>\"", ",", "\"\<CC16b\>\"", ",", "\"\<CC13c\>\"", ",", 
     "\"\<CC13b\>\"", ",", "\"\<CC07c\>\"", ",", "\"\<CC07b\>\"", ",", 
     "\"\<FG\>\""}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8233659498906207`*^9, 3.8233661827359486`*^9}},
 CellLabel->
  "In[1985]:=",ExpressionUUID->"5f1c51a7-89f3-4982-b205-6407fb116266"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"CWtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"87", ",", 
       RowBox[{"2", ";;", "8"}]}], "]"}], "]"}], "-", 
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", 
       RowBox[{"2", ";;", "8"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CWtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"187", ",", 
       RowBox[{"2", ";;", "8"}]}], "]"}], "]"}], "-", 
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", 
       RowBox[{"2", ";;", "8"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CWtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "4"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"287", ",", 
       RowBox[{"2", ";;", "8"}]}], "]"}], "]"}], "-", 
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", 
       RowBox[{"2", ";;", "8"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CWtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "6"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"87", ",", 
       RowBox[{"9", ";;", "15"}]}], "]"}], "]"}], "-", 
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", 
       RowBox[{"9", ";;", "15"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CWtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "7"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"187", ",", 
       RowBox[{"9", ";;", "15"}]}], "]"}], "]"}], "-", 
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", 
       RowBox[{"9", ";;", "15"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CWtable", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"287", ",", 
       RowBox[{"9", ";;", "15"}]}], "]"}], "]"}], "-", 
    RowBox[{"CW85Results", "[", 
     RowBox[{"[", 
      RowBox[{"2", ",", 
       RowBox[{"9", ";;", "15"}]}], "]"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CWtable", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", ";;"}], ",", "5"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"Max", "[", 
       RowBox[{"CW85Results", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "i"}], "]"}], "]"}], "]"}], "-", 
      RowBox[{"CW85Results", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "i"}], "]"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "2", ",", "8"}], "}"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"CWtable", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", ";;"}], ",", "9"}], "]"}], "]"}], "=", 
     RowBox[{
      RowBox[{"Max", "[", 
       RowBox[{"CW85Results", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"i", "+", "7"}]}], "]"}], "]"}], "]"}], "-", 
      RowBox[{"CW85Results", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"i", "+", "7"}]}], "]"}], "]"}]}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "2", ",", "8"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8233662733760777`*^9, 3.823366328833156*^9}, {
  3.8233663645882063`*^9, 3.8233663905932426`*^9}, {3.823366737550731*^9, 
  3.823366815830841*^9}},
 CellLabel->
  "In[1988]:=",ExpressionUUID->"082f4812-bb3f-4cd1-a234-02a0c6749953"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"CW85Results", "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"10", "+", 
     RowBox[{
      RowBox[{"Position", "[", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"CW85Results", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"10", ";;"}], ",", "4"}], "]"}], "]"}], "-", 
          RowBox[{"CW85Results", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "4"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Min", "[", 
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"CW85Results", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"10", ";;"}], ",", "4"}], "]"}], "]"}], "-", 
           RowBox[{"CW85Results", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "4"}], "]"}], "]"}]}], "]"}], "]"}]}], "]"}], 
      "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", "1"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"CW85Results", "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"10", "+", 
     RowBox[{
      RowBox[{"Position", "[", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"CW85Results", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"10", ";;"}], ",", "6"}], "]"}], "]"}], "-", 
          RowBox[{"CW85Results", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "6"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Min", "[", 
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"CW85Results", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"10", ";;"}], ",", "6"}], "]"}], "]"}], "-", 
           RowBox[{"CW85Results", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "6"}], "]"}], "]"}]}], "]"}], "]"}]}], "]"}], 
      "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", "1"}], "]"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"CW85Results", "[", 
  RowBox[{"[", 
   RowBox[{
    RowBox[{"10", "+", 
     RowBox[{
      RowBox[{"Position", "[", 
       RowBox[{
        RowBox[{"Abs", "[", 
         RowBox[{
          RowBox[{"CW85Results", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"10", ";;"}], ",", "8"}], "]"}], "]"}], "-", 
          RowBox[{"CW85Results", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "8"}], "]"}], "]"}]}], "]"}], ",", 
        RowBox[{"Min", "[", 
         RowBox[{"Abs", "[", 
          RowBox[{
           RowBox[{"CW85Results", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"10", ";;"}], ",", "8"}], "]"}], "]"}], "-", 
           RowBox[{"CW85Results", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "8"}], "]"}], "]"}]}], "]"}], "]"}]}], "]"}], 
      "[", 
      RowBox[{"[", 
       RowBox[{"1", ",", "1"}], "]"}], "]"}]}], ",", "1"}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.823367477861828*^9, 3.8233675528009334`*^9}, {
   3.823367589957986*^9, 3.823367688663125*^9}, {3.8233677353491907`*^9, 
   3.8233678080162964`*^9}, 3.8242306778283195`*^9, {3.824230738878247*^9, 
   3.824230755698344*^9}, {3.8242308004681273`*^9, 
   3.824230802328452*^9}},ExpressionUUID->"f3fa46c5-a34c-45e9-86d9-\
80d2bdb61776"],

Cell[BoxData["2059"], "Output",
 CellChangeTimes->{{3.823367540159916*^9, 3.8233675536319346`*^9}, {
   3.823367618482026*^9, 3.823367689583126*^9}, 3.8233677609622264`*^9, 
   3.8233678086662974`*^9, 3.824191026586739*^9, 3.8242306656379423`*^9, {
   3.8242307419781623`*^9, 3.824230756698397*^9}},
 CellLabel->
  "Out[2064]=",ExpressionUUID->"8d49040c-7931-44ab-861a-c62b3d0a4a7d"],

Cell[BoxData["2051"], "Output",
 CellChangeTimes->{{3.823367540159916*^9, 3.8233675536319346`*^9}, {
   3.823367618482026*^9, 3.823367689583126*^9}, 3.8233677609622264`*^9, 
   3.8233678086662974`*^9, 3.824191026586739*^9, 3.8242306656379423`*^9, {
   3.8242307419781623`*^9, 3.824230756708187*^9}},
 CellLabel->
  "Out[2065]=",ExpressionUUID->"96c07dec-ce8a-478f-a800-0d29ea250837"],

Cell[BoxData["2076"], "Output",
 CellChangeTimes->{{3.823367540159916*^9, 3.8233675536319346`*^9}, {
   3.823367618482026*^9, 3.823367689583126*^9}, 3.8233677609622264`*^9, 
   3.8233678086662974`*^9, 3.824191026586739*^9, 3.8242306656379423`*^9, {
   3.8242307419781623`*^9, 3.824230756708187*^9}},
 CellLabel->
  "Out[2066]=",ExpressionUUID->"cf1f90c8-30bd-4b20-9c19-134c7244456e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"CW85Results", "[", 
  RowBox[{"[", 
   RowBox[{"2", ",", "9"}], "]"}], "]"}]], "Input",
 CellLabel->
  "In[2120]:=",ExpressionUUID->"9badd38a-d8c4-45fd-afe7-6372e7bed173"],

Cell[BoxData["0.9644763159953804`"], "Output",
 CellChangeTimes->{3.8242340524142857`*^9},
 CellLabel->
  "Out[2120]=",ExpressionUUID->"853d989a-692f-475b-86b9-b9ea732ecd23"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<CWtable.csv\>\"", ",", "CWtable"}], "]"}]], "Input",
 CellChangeTimes->{{3.8234105491093597`*^9, 3.8234105731073937`*^9}},
 CellLabel->
  "In[1999]:=",ExpressionUUID->"b9e639e5-f327-40e0-a452-c8c4398150c5"],

Cell[BoxData["\<\"CWtable.csv\"\>"], "Output",
 CellChangeTimes->{3.8234105777884007`*^9, 3.824191034806039*^9},
 CellLabel->
  "Out[1999]=",ExpressionUUID->"634b5b28-24dd-4052-b885-4126990f34dc"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"CWCcalcplot", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Red", ",", "Green", ",", "Black"}], "}"}]}], 
       ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"700", ",", "1000"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<Atmospheric CO2 (GtC)\>\"", ",", "None", 
          ",", "None"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<a) ZEC: 420 Gt CO2 from 2018\>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.65", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"atmosstock2015woFex", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2300"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thin", ",", " ", "Dashed"}], "}"}]}]}], 
      "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8233669959571495`*^9, 3.8233671694303937`*^9}, {
  3.8233672016744394`*^9, 3.8233672021044397`*^9}, {3.823367316648601*^9, 
  3.823367412632736*^9}, {3.8234338557755346`*^9, 3.8234338614665422`*^9}, {
  3.823436330696307*^9, 3.8234363515093365`*^9}, {3.8234367383978806`*^9, 
  3.8234367400178833`*^9}, {3.8234368626810555`*^9, 3.823436864291058*^9}, {
  3.824228956512068*^9, 3.82422897884921*^9}},
 CellLabel->
  "In[2040]:=",ExpressionUUID->"b39f7a57-3b01-45b8-9fc9-0a39fe3557e0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"CWTcalcplot", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "11"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "15"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Red", ",", "Green", ",", "Black"}], "}"}]}], 
       ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.9", ",", "2"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<delta SAT (\[Degree]C)\>\"", ",", "None", 
          ",", "None"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<b) ZEC: 420 Gt CO2 from 2018\>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.65", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"1.5", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2300"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thin", ",", " ", "Dashed"}], "}"}]}]}], 
      "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.823436299982264*^9, 3.823436316344287*^9}, {
  3.82343636835036*^9, 3.823436388453388*^9}, {3.823436521820576*^9, 
  3.8234365298915873`*^9}, {3.8234367008228283`*^9, 3.823436732166872*^9}, {
  3.823436889485093*^9, 3.8234368914150963`*^9}, {3.8242289891049004`*^9, 
  3.824228999298485*^9}, {3.824234064829712*^9, 3.824234065513445*^9}},
 CellLabel->
  "In[2121]:=",ExpressionUUID->"42f40b34-bdc9-45ae-ae86-6ac55be92e81"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MainB1Cplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Green", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "200"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"588", ",", "1400"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year\>\"", ",", "\"\<Atmospheric CO2 (GtC)\>\"", ",", "None", ",",
         "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<c) ZECMIP:B1(1000 Gt C)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.25", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8234364002644053`*^9, 3.823436430157447*^9}, {
  3.8234366100817003`*^9, 3.8234366864198074`*^9}, {3.8234369008081093`*^9, 
  3.82343690134811*^9}, {3.8234376509542255`*^9, 3.8234376513242264`*^9}},
 CellLabel->
  "In[2033]:=",ExpressionUUID->"0b93dc21-cf85-4cfe-89f2-d8298de47312"],

Cell[BoxData[
 RowBox[{
  RowBox[{"MainB1Tplot", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "23"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "25"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "27"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"ZECMIPresults", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "29"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Green", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "200"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year\>\"", ",", "\"\<delta SAT (\[Degree]C)\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<d) ZECMIP:B1(1000 Gt C)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.25", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8234364722635064`*^9, 3.8234365128095636`*^9}, {
   3.823436548084613*^9, 3.8234366010606875`*^9}, 3.823436694301819*^9},
 CellLabel->
  "In[2034]:=",ExpressionUUID->"535c7250-ba01-4def-b1ee-d516ee14731d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ZECFigure", "=", 
  RowBox[{"Legended", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"CWCcalcplot", ",", "CWTcalcplot"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"MainB1Cplot", ",", "MainB1Tplot"}], "}"}]}], "}"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Red", ",", "Green", ",", "Black"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<DICE16\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<DICE13\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<DICE07\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Fair-Geoffroy\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", "Below"}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8234372794646473`*^9, 3.823437333441723*^9}, {
  3.823437381836791*^9, 3.823437540761015*^9}},
 CellLabel->
  "In[2122]:=",ExpressionUUID->"41b91866-efca-407c-a0be-5716fb8e942c"],

Cell[BoxData[
 TemplateBox[{
   TagBox[
    GridBox[{{
       GraphicsBox[{{{}, {{{}, {}, {
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 120], 0.008333333333333333]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
1:eJw12HlYzdkfwPHbImlDklTSKIlWIVrUpyYRioqUYrjWQkaSpqlUJFpsLbb4
npOIso4oiaJlWmxD0lC02krakCS/8xuf0z89r+e5T/d+z/mc865+EW92WyMp
Eom0JESi/3//7ytUgE+SPTZe3rHwnyMEqDJf+c8Oit4lgHO/3aH1Leg9AiR2
rN6qNTHup+MFqCwJCi/ahD4gQFyl25X4q+gkAVydTLZKDaCPCDB8i1WRiVP8
T6cKEDX046lRyWgiwEqvyrTCBnS6AK/8FRtMTBJ++qwAHl43NfzC0OcF0JxV
evfPCvRlAdrXBa2XzUJnC3BBzt/9SQI6V4Bki+RnVwLQ+QLYxXwMDPVCFwrQ
FG19XMkeXSxAqPXIAEdDdJkAS4wmn5ZWQ98TIKV251TDQehH7PVn3s1O68bP
XyXA0/HaMi5N6BoBNgZW+qtVoWsFeDTDZXpbCbpegIgSm8xruehmASbHz94r
Po9+K0DCc4fOBoJuE+C13TbQTUF3CHDUPHlAPR7dI0CM+E5pbhS6VwCtuu9m
nX+g+wXIGrAvz92CFhGwqOl6J+2HliQQHJFaUClGSxP4bXWPibQPWoZAfNr7
+6cXo2UJpBtV3Du7AC1H4JiMc8+guWgFAms9EpOvO6CVCITtbYvItkUPIzDn
kbj/qyVamYDswb68SHO0CoGTfkeqHM3QqgTGr4287WCMViMwscHXYfsktDp7
niTZqOd6aE0CJ5p06vx00FoEnoqHicZro7UJJGsfqRo0Bj2OgGKn/Q45dbQu
gf0RvUtNR6H1CLRGfuoJVEHrE6iuUBxSPRw9iYDtmWnhrkPRhgRWDnde1aKA
NiYg831C2345tCn7PEMe+i+QRZsROBPfs2KcDHoqgcG9RxcPlkabEygZ3tjX
L4GeQUCSKKhJitCWBDKCj8SN5OfPmsAltb1O5v1oGwJqY+97repDA4FEi6Lq
471oewJRti9aX35GOxDoF7tWGXxCOxJYFiPxPLIbPYfAs86Fi+o70XMJnM80
zHDsQM8nYDVIwz67He3C5qtxuaD/Ab2QwAofg19PtaLdCGikvc7TeY9eRCCn
KST13Fu0B4F3dtnRU9+gPdl+VWRqFLeglxKYcnS6nGcz2odAs2ugVEcjejmb
D22HgrgG9AoC3iktfZPq0WIC2jfig++/RK8mUE+kfwTUodcSWKXl6aVRi15P
wPJlhEfpc7QfgWH7Ncu3/oveSODPIxNidGrQ/mweevN9n1ajfyfwtfn5/L1P
0QFs3msMhtpWoQMJhFx9cvDzY3QQgUWnIffSP+hgAlsO/1jn9wgdQuD7k8Q9
eg/RoQTmXXCVar6PDifwvNWqKO0eOoLN64OmbHElOorAaL95pToV6F0E8qDi
dUsZejeBzLpumXN/o/cQMPCMUNtUio5l651ormRWwntBwHdszYsvReh9BJoO
KgXdvsv7wdZ/3tLH0XfQhwg4hkm+cS7kPSHQJZbJUi1Ap7B5ShyqWn+L94Xd
Nx5rtDPz0ccITG2vvxt4E51KQCmv8bNtHvokgb+M5lyXv4EmBKR3ib89y0Gn
sXnSbS9Mv45OJxBzTk4y4Br6DPt50VPybLPRZwmc0rdoUeT9yyQw5rrljtor
6PPsfIwnu7Iuoy8SuFyr0hVyCX2ZgPK5qOK5F9F/sfM1VvGr+gV0NoEjLooJ
rVno6wReliqG52eicwlsai0tTziHziNQFKvh/9tZdD6ByJyRvpMz0LcJ+NQ1
5UqdQRcSiFWs9q5OR98lQMK9F547hS5m94+1KDk0DV3K5llig/5Cii5j82jr
PUSXoCsIRDtkmPeeRN9j92+c5aV7J9AP2P2urxJAU9GPCCx2nRUedBz9mICO
XMfjecfQVQTu1M/a/MtRdDV7nr93u305jK5h501KFHo/Bf2cgKaRfOupZHQt
m3cnRSEkCf2SQGf7tsOuieh6dr+H3H6ifwjdyNbTy9dddBDdTEBYKqFasx/9
moDNsNEal/eh37L9sJor3pOAfs/uY8dprSvi0W0ErhdEXLOIQ7ez9/tQU6gc
i+5g8+/9UaFtD7qLQMP2kKMlMegeAiozpq0VdqM/s97deRnwRzS6l93noy0L
3Heh+9h9Xas4z3gnup/Ap34d1SFR6AECI8OctJsj0CIKXy1dfAt2oCUplOdI
dx4LR0tTMHxtlxMUhpah0Put9qZbKFqWgvfsSwPGf6LlKBgMTtohH4JWYHZc
b/M2GK1EQeGGnFXJdvQwCn0nvbelBaGVKQSkW3/YsQ2tQsGt7EDaskC0KoUG
e+tkq61oNQpX/XVLRgeg1SnMuWpi1vs7WpOC7ZZZtdWb0VoUJDqci675o7Up
PJhv9iaJ/z47joLMhtrZgRvRuhSEFvMW9w1oPQrXJIwKpvih9Skop2U+HeGL
nkThtFWqfs86tCGFFxXtOVVr0cYU8sr377y2Bm1KoUBvU1zKarQZBbH1tofb
V6GnUnAsT1ngJUabU+h+WyhvtRI9g4KuYpPUmBVoSwqxX9qm/1jO+09hePaD
jIZlvP8UYhKD3Yt9eP/Z+um9sMzw5v2ncMfizbLYpbz/FOQfJeRv8uL9p2Ck
Xejh6sn7T8HvwGbDaUt4/yk4X02YOdqD959CkoNC7PdFvP8UFujVDW905/2n
MG15V1WpG+8/hckjbJ5kufL+Uxgd95fCwYW8/xSS9e0jgxbw/lOY4PvK1MeF
95/Cb02hGvbOvP8UTGYp2unP5/2n4OO2kyrN4/1n+9f0j/UnJ95/CvsaW5Vr
5/D+U2h0LtYpms37T+GZmcvmTEfef7a/F0M/HZzF+09hcLv99T8ceP8pWE9K
urLyV95/Np+Zq9442fP+s/27k77EzI73n4LF/bmSGsD7T+HGdKc3Ura8/2x+
AxNlPszk/acg+0NzRbU17z+Fp8v/7S6w4v1nn2dc/p1zlrz/7Plf5ZYnWvD+
s/2aViQfPoP3n0J6+YOY9dN5/ynoOD2c6W7O+0/BdF2ukc003n8K0XVhSyZO
5f2n8HbDiJsqU3j/Kbx+ttFTZMb7TyGlLcykzZT3n+1XiCXUmPD+s/PgkRJb
bMz7T0HbJ1rpihHvP4U032+VJwx5/yl8EbfdjTXg/adgaTq/e/sk3n8KpbeU
lq3hf7+epKDWP0Hkrs/7T+Hyq7hamMD7T6FzhXGXsR7vP4UhoVJ2Y8bz/lOo
Nv1RJq/L+0/hYdTI2L5xvP8UPgZb7nr3C+8/BTJGnFOjzftPITM8QqdsLO8/
e74Le8tytHj/Kbje2nImYwzvP4X8UsNbhzV5/yl8a7qosEeD95/CbbO2pGB1
3n8KN5/ULPYdzftP4dT79QuWqvH+U1A/eSBy3ijefwpZoxzarFV5/ykU7ty+
33gk7z+F48PHbtBW4f2n4NJtvEN5BO8/W79lxyullXn/2X7u8Vz4ZRjvP4WL
F5Yqvh/K+8/eTy5Fsk6J95+dv1cDJo8Uef8pzN+0N7lIgfefwrq+iVNy5Hn/
KYx4UCWbJcf7z9bXLFxVGML7z/oUqO6TKMv7TyG1+cS/MYN5/9nrn/TvC5Xh
/aeQkWIQumUQ7z+Fll1adK007z+FUb3l372leP8p7Jw/7pCrJO8/ha56jeWz
JXj/KWSrZq2cKeL9p3DUtTh1yg/8f0o7hY4v3kMnDaA7KOwOWHtD+zu6i+2X
Yc2xUf3oHjZ/SaevKn1Df2b3v1qRlEwfupetn/H4uO+9sfA/UNKwZQ==
              "]]}, {
             Hue[0.9060679774997897, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 120], 0.008333333333333333]], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             LineBox[CompressedData["
1:eJw113tYjVkXAPAuukwSmtCXJOmmiWJIui5dlEihSUgkQzUxpFyTgxxHUxKl
dHv3TiIq6aZpiiZJEqULSaqJUklCEiXfnrHe8895fs8+79r73WvtvZ4zY/Pv
q36VEBMTUxMXE/v3+79PEAcfJQYs1q4Phf8s4KDj09lfnBLQIRyYqQgypjxD
izjIcBWGZPzvj+8O4yD8iOGRWWvRpzn40j3tYuF5dBQHxi4PdDpa0LHs99/m
b8/VDPvuBBbfR/Wkzm9owsHxqyujzbPRKRys1xZc//gZfZmDPmtZSSer8O9O
52DBHWGZ80l0Fht365SJ9kLnchCZk9nXaIEu4ODbAfGkSVPRRSy++0RfmyGM
X8LBofaWeo/H6DIOjD59DfPIQ1dw8KbOy888Gl3FQY6O+d6PgegaDjxNqpoE
a9D1bD0NK3qfLkI3cnCx5LXOsCq6mYNFUZcMWsXQbRzMvbWpUtCB+/WSgwOH
a9ubKtFdHJikJgm7stC9HLgObuhIiUH3c2DZn+809jB6gIPhlgNGU7ahhzjw
Ha6YVeaEHuFAPGhh47hFaDECjt4SCv0aaAkCmbKQu3UcegyBG/dVarYPYT1I
E6g5OOGo+Eu0LIEQYiSlVoOWIzCm61jmrSK0PAH3PWq97WloBRZ/KNMmJAY9
gUDR+gJXchytSOC11MCTnwPQSgTKA7OjTL3Qkwnc14bfc1ehlQks5FZsjLdC
qxAwD/Xc9WYeWpVAdall+aWZaDUCYvO9z9xVQqsTSAwIneYgjdYgsGWMZKn+
0Mnv1iTQO3F9r18PWpvAu6z7KrLP0boEAn3Kmoer0Xr/7l9gre1ttD6BXYnr
0l/ko+cQsAmt1qu7gjYkMBKTNE2RQ88jsGQg1ivpLHo+gS8yBj2BIrQRe5+J
8hnnDqGN2f765+aN+qNNCLw9pz013RttRsByV7B4ogfagsB23/jz1S5oIOBR
UqFutQxtxfJh5t32fjHahkDUAm52mzF6CZv/rpSPrCHangCYuY366KAdCPiI
9LZITkcvJ3CwOXFq3WT0CgKHDZWzniignQl0ln7NHy+DXsXWe9Cvev830Xe7
EBDX/EyVhtCuBKp27Ghr6Ue7EejID7d90o1eR6Al8FHUSDvandWrx9w4x2a0
B4EGpa5Z9xrQmwjk7TJR31GN3kxAYRV4mt5Db/l3/ZmNBrfRW1m9LErZ71CM
9iYwLSfAIvQG2pfVl+F+3b7raD8CA2NaLQPT0TsI7B+//6zaJfROApI/njHu
pmh/Vk9OJQ71CegAAiftC1+3xKD3sHrI07eWPYveR+BIVGSw0yn0AQJPnWQf
5ZxEBxFwGJ2ze/5xdDCr79SR5BoBWkCg+ETChRNB6KMEHm10KHbbhw4hMC/F
wNw6AC0ksPfq4sAlO9EiAsKb6kWefuhQAqNjh/yivNFhBK7u9Xj1fAv6FIHp
YBxh7ok+TeCvgPNV2RvQZwgcNUoba74OHcXup5vHi565os8RmDpz1upTq9Gx
BOyerbBzcUbHsfk+rFWa7YhOYPn+ZLpI2QGdROCA0N14kh2aEODCj8TMtEEn
s3qcVdBqtRidQuC6pkWivwU6lcDf8n4bs03Rl9n8HVyB+CL0FQJLt+labDJC
p7N8PjIUPfgZnUkgzipj7tK56CwCn+PsGmvnoLMJdLUtV/XVR+cSWKAVTxT0
0PkEnryIkCvRQRcQuPR8UDxYC13I8rfts6H9THQRgbbZCjZqM9A3Cbh4dXd/
U0OXEMjx3F7Xq4ouJWCdFZ/zUgVdRiDMX2j5ShldzuY3sZozMBldQWCiRaPx
2EnoSlZfncYq+j+iq1h9l86JcJ2Ifkgg4/5K19Dx6BqWb7lhg7vj0LVs/ULj
Fnl5dD2Bc5F/a66XQz8m4O/+uuK6LLqRwGBrYuQEGXQTAS2FpXZ7pdDNBNSc
mnI6JNEtbL9ts5PXS6Db2H4/i2trFEO3E7gYUWy64duJ737JzqtM3LGur+hO
9vyLEdGBEXQX60+PBqf9OIzuYfXUWDcp+zO6l4BGp6LtmiF0H4HzZzYckfiE
7iewSk1Acz6i3xMYuuh5yHcAPUDAO2zkjfYH9CCBNOU1D7reoYcIRC4JGrzW
j/5CoLAiwDboLXqEgMAEYhz70KMECgQP7818gxaj8HTN579GX6MlKPgoBDu2
9KDHUDjo+8mjtBstTWHSn08eXelCy1JYI+0linmFlqPgdSjtV1EnWp5Cbd8R
x0MdaAUK1UEhmnteoidQKP5Nqsb/BVqRQvDkCUa729FKFFylNpvv/Qc9mUKE
9tYHwW1oZQo9OoYPT7aiVSh8ertXN7YFrUohzCj6TtpztBqFANODETeb0eoU
RHG5Ox8/Q2uwcbONLu+a0JoU1nrpao/nrc3i1drXGjxF61K4NeGI7epGtB6F
x7cnbd//BK1PoUyryij5MXoOhZzIztMPGtCGFF7qzvAdrkfPY/FPZV7/ifd8
CnMK56/xqEMbUShqvedwthZtTOGL37ugykdoE/Y+U8+3SPI2ozBxymRPyxq0
BQWphRqDQdVooLB52dOIoodoKwryQfnqow/QNhR0CyPjF/NeQuEH68QPwiq0
PQWj+V6qD++jHdjzhrd/mMJ7OYUziv3XPCvRK9h4/nbJzHtoZwr/lCt8Hq5A
r6Lgnfr++DLeLhSs3Y9xCXfRrhSqonebvi1Hu1FYllPkZM17HauP9oTa2Dto
dwqCJdGFb8vQHiz+T96jdrw3UfjDbko0vY3ezPIp0x44UoreQiHvlXWsG++t
FJIa3n/I+xvtzc4PeS5Q4u1LYcduvYUBJWg/Ct9+WTC+4RZ6B4XO4lPiC3nv
pGCn9UU67iban+U33U95tBgdQGFf+VgDL957KBzt+cnmXhF6H5t/tdNKQ94H
KFiWazrH/oUOorDHXWgizjuYQpbHPrnfCtECCh/UdQsb/kQfpWDf3WO9mHcI
O//PzZIzCtBCCrOHblWr8BZRmCxleld0Ax3K5k+JPfYpHx1G4evqzm9beZ+i
7P/j6oVP8tCn2X1CDLXseZ+h8Nq2r+zPXHQUhW4nVUV93udYPuR8ZLkcdCyF
ck9yQZF3HAUxpautwmx0AoWaN+EFw9fRSWx+WR+9XbwJOw/j9859lYVOZus5
IV+5gXcKBXX1mP76a+hUCiulE+ly3pfZfWFS9LQsE32FgntfWrQ573QKlzrm
1uZnoDMp3GlaEGbIO4uCQVd6yZV0dDYF+jHZT4t3LsvHLONwchWdz97XnUxX
5V3A9itaY0bsFXQhW/8x5Qgl3kUUFIffbI1MQ99k9SBQT1XgXUJhaYWFQ9hl
dCmFt9ZdznK8yyjYZlbdEF1Cl1N4EH81SIZ3BYWmcS6JwlR0JYU02ZQp0ryr
2H7pi7qPX0Q/pLDLeXiCNO8aCnEa0mHCFHQtBce7N91keNez83nIPlB0Af2Y
1btNXesPvBspFB6PP/dHMrqJQmBRd8w43s0U9LQV2yMouoXCzJ0BuxV5t7Hz
53PQIZqg29n9nJfwqzLvl6y/hbjdjuf4/k/h7JJFm6fz7qJQ6VMHF5L4/k+h
TvHOBh3evRRsnuXduJrI938Kx067Ohry7qeQMLBpWl4C3/8p3BbEaJvwHqAQ
NOvOtlvxfP+nsFGzuNWG9xAF/2vrwivjTsD/AV0D3n4=
              "]]}, {
             Hue[0.1421359549995791, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 120], 0.008333333333333333]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 1, 0]], 
             LineBox[CompressedData["
1:eJwt1QtUTdsaB/CkkpB3JEUeW55RSUI+STqk41nCoSuvSKhGOLpx3FDpJT3o
YH1THRyRRyRCUsh7S5Kis6MHelBK6UZ3Xf3XGHus8dt7f2vNOb7/nNN45ab5
q9XV1NSK5c//7z8vf4ka1OttXJeG0E/vkuhVnwWhgTFwoEQZW4zKwh7DQRJV
Wif+6a25v82hcv1uZfhsGzhSooN2Lf+13wZHS/SmKMD8fSp8SKKIE1knLb/C
RyTSOzVt0DjL0DazRB4JkT75fnCiXD95pM/QNPiURO5zzVv7N8NnJFIVlXfK
tg5r83mJQh0/Gabqwpck2pc7OKhrKf6fJpHpvt8OZF2Dr0sUr+zUcCcKviVR
ao3WPzqecLZEq4qCKvbawzkStTea3dV0EPxI/n1qTnrTD8xHKZFrnJTy6jWc
J9E1q34GOelwgUSdHj3dfO1P+LVEL8zXh5z0h1USTVDtPbB3OVwq0YbMS2q/
ToPfS3Q0N4ybhsBVEtVPrQzc0RH+LFG6ubmOsgb9qpfIcUVGbk0e3CRRwbKl
2cp0uEWiOV0LNTclwGpMy0ZnttzeD6szzRulM/uuL6zBFHu38ZH3cliLqcKt
Nfa2A6zN9CTuzpdz5rAO07MZo1eOHwB3ZkpZvO3gnE6wLlNQ7naPL43Bbe7G
pO5aUG9cBvdg6p/u5pOXC/eS6wvXOmllwnpMrz0n6aecg/syPdcWEfnH4H5M
Duru0Z7hcH8mv8iPplsCYCMmzZzycJUXPJCpd12r2pUV8CAmtaexjZ/nwkOY
/F0iNPbbwgomjlK8+sMCNmGyNHhul6uARzDNqDO12K4Pj2JaQLXnfDrDY5js
T78tutka1OaxTJ3f1jS4fIHNmGyNxi6aXAFbyM8b1tHDowi2ZHp72j7t9VPY
iul6iIPqYDZszWTx2iw69Co8mWnqAsWR7GTYhkkvb2fexESYmKw+Go3+eBi2
ZXIru3jqeQRsx7R/he6y+j2wPdPI2l0bZ/nDDkzFhZa98rzhWXI/vY7FRXjA
jkzurblOO9xgJ6Yp47pwjAs8lynKva/aGyd4vvw+g8e1v9rDC+V6i0jN6imw
M1PN2fyCi+PhxUwras725tHwEqZAJwfvlKHwMqaO98POVxrCy5nenzh/dKYe
7Ma0SONu97u68EqmSp2Vn1Z3gFcx6WdMGKxQg9cwfZt6PUHz2742r2P64vp4
c/s6eD1T+pylB40qYU+mCcm9DZ1LYS+mOisDk7/fwJuZisLO5Ou9hL3l9ZVU
Mv+YEvZlMtdf+cTmAezHpDg2YHdjFryNqWVHz+R7N+Dfmao6/DiUfAX2Z2qK
NolMugAHyHmKG15xIwnexbSr6nRj6V/wbqbU8WbGAxkOZIo3rczxiof3yvP9
6uOqjIaDmMKHJdnaRcAh8nrN3vntfjAcynS58HajWyAczlRwvzldeyccKedz
pNX9W9vhKKbp06pOBPnC0UyNpbdUKzbBsUwT323Rsl8PH2Iafv1kkvVqOF6u
T3u+doobfETup32X/DlL4WPyfOI/R29whpnJcWuAfew8+Licb5PvEY8d4USm
2gOF+t0d4BNMt10iItymw6eYzmv/R0q3gU8zrXGsbTa2hs8wvdFULjo4Hk5m
IvfUNV3HweeZQnKzy2NGwReZEnPDDihM4EtMxodbh2QOhlPl8QQ6/Wv1ADiN
KdNZpd3TAL4m53uYleq+Hnxd3l/0350N7gHfZPp8YbX1fF34FlO3quFzB+vA
t5k+lGxMb9GEs+X1Y2g+q7gdfFfO87/HPLr3fW+bc+T9JiWtx9Vv8AOmh79k
fL7QAD9iMrJKtb5YCz+R98um4LtXq2El0wjDqA05H+BceX9YFaheXAbnMR2Y
vG51cwmcz2SWGbLJsBguYHI19vluXwgXMjV4v6zyy4dfy3muPND/bC5cLPfD
P9bzwxNYJZ93T97fGPkQfivnOSaqzuceXMpkMiO+OjMLLmdK6N4c1fsW/J7p
tEPcPa/r8Ee5f40TtzxOg6uYHhQH+o27DNcwdUquvhl/Af7M1C/4slnHZLiO
SUdZcs3/NFzP1GPE+GkNJ+CvTH2VJue9E+Ampgu9yuvqJbiZadMwathxBG6R
59c9OaHDYfiHfB69t6uMi4HVBPWzunh1VBSsLujtUcvvd8JhDUEPYjjRfT+s
JSh760xJMwjWFrTuuNabpEBYR5B+rpWT8x9wZ0FPjqe80wiAdQV1mpQVfuV3
uJugACPFNK+tcA9B1YqO1Sa+cC9B30T7PRWbYT1B26J6tvy9Ee4raECv+Bmb
18P9BFmqXBZZr4X7CzKp8xigvQo2EvTPLPtDr9zggYJSnqVdSv4NHiSoYZ7K
Y98SeIggreiRZ91dYIWgpkhn3+kLYRNBzzPWXlbMg0cICt5xdk0XJ3iU/Pxd
6QGNs+Axgpx2r6svnQmPFXQw7+HNF3awmaDBoye9uD8NthD0dKuDaaYNbCnI
PCMjO30SbCVoo8lfYVetYGtBju3Md18bD08W5KB6GX/TDLYRFPvCQnnHFCZB
j88YGChHwbaC/GzCfN8Mh+0EtSqvvKhWwPaCdgQ1TGg3BHYQlFT6ILqPMTxL
Hq9jWdlYI9hRUNYp/aFzDGAnQSVa7o6efeG5gmydShaF94bnCypveTkppQe8
UJBz7Zmmwq6ws6BFUyv2anaBFwua2nVMiZkOvETQpX0z1d07wMsEDcvsUxaj
AS8XpJElBT5sB7sJ0g1pKWrfuqfNKwUd67Om3KYFXiVoe/AYyf8bvEYe38TM
dje+wusE3a4QHdXq4fWCrMs3XJxRC3vKeVnwrDGsBvaS++Ua/6KgEt4s58sr
cabiA+wt6HtCyS9+5bCvoLhml4Kcd7CfoPDUgZ8MS/bQnCnZI17K/vm9ag/9
DyZ5htA=
              "]]}, {
             Hue[0.37820393249936934`, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 120], 0.008333333333333333]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             LineBox[CompressedData["
1:eJw11XlYTlsbBvCkEgqlSMVJuaKEJBpUnjpIhCTJUEimhExFkihpQpOEtNci
nZQhkTJFFCGJSJJCIaREQjrOt77jPu8/7/W79l7zs+490HON8xJZGRmZAZ1k
ZP7//+8vUKKvsq02c+ZF0r8OlkhnvYfDgEg4VKLDPvGut/PgcImyS+/+ON0A
R0t0TLsj7Ve/qN+Okajg+jstYyc4QaL53c+UfgiDk0T7/joevvlwskQxFTOK
attgJlHJQ3ejqcbRv50qkVpDfesNbzhdIhPvtLRZqfAJiVxqbRdNXQdnSTTT
9KOzryN8TqLQ1A+pqsPhPInWx/xqD1ODL0t0eXbXA6a/MP41iQzXyB3XeQ8X
SrSjsTz35BO4WCLO8z/73YRLJPrTwT3I8jxcJlF+y0SvkjT4kUR6y7dG90iC
KyW6O7Tw6ocIuFoiq4HTd7oEwi9Ee8Mf+tZr4HqJFI/lrUr2hBsk2u44/KG3
K9wo1u98r41Phj9J1CfsjZPVOLhVtDc812xqCn+XaJT5SdddBnCHRE5RDl4j
/oBlGBllV5CBOizLKMB0j/Pa7rAcoyKVAaPlZGEFRncMN52t+Y56UGQ0O0z/
xt/NcDdG+nppwR5vYSVGr29uNPpVA/dgJIUfGVJVAfcS75ueamsuhVXF8+Tc
0da3YDVGaYWP2NWrcB9GC+vilTf+V58ajPafPuQ97wysySgoaUm+bwaszaiv
Sg/9s0fhAYxe9TF/pHMY1mHkdadTr7xEWJeRhreiqX8MPIhRD5eAk/P/ux/6
jCY0j/65NBQewqgjvPVEQhBsyMjQJdizfhNsxGhoWesdl/XwcEYHWhRT61fB
xoxm+nleiFsOmzBKetZS574YNmV01t+16wQPeAyjU3aTteznwOaMpr1U67vY
BbZkJLtbXj5pOmzFqNeWL9/qJ8M2jAxWFCo5TISJUePf31fcsIXtGH09aTNu
pjU8ntHw5wpF38zhiYxy2nStskzhSYzuWy75uMUYnsyoq/xEg7lGsCOjkTN2
208eAk9jNGaSzF9TBsFOjFK46kl3HdiZ0a70Q0XbtGEXsb7zezzPaMCujKZ/
O/+zRQ12Y2Tp5NfDVgWey2iq9a7+KcrwfEY9wwqyFLvBHozeHnnpEqwALxTr
zXY+JNcZ9mSkUtfeb98/Eb/txejvwd1WjuyAlzJSGnHX6Ol3eLlY70q/TtFf
YW9GgXpd9jp8hn1E+1Wq21Sa4dWMlH9KQXUfYF9GLyU5m6sN8DpGFhH5vqmv
4Q2MSmRn3ot7Bfsx6lwwTDmyFt7E6PnB7Y0R1XAAo+VHDQ3jnsKBjMziYncd
qYCDGFWsjCm+WA4Hi3qb53a2qgzewYhlufWSLYVDGem06GcY34XDGNl/WzZ1
aTEczii6+8XiI0VwJCPjFqnx9XU4mpFilU/UiGvwHkZ6ZiM3b7sCxzDymZ8e
9fgiHMeo8qP+wZF5cAKjscqRW+Nz4ERGfWhwr5/ZcJKoB/krw5ZnwQfF+fX2
Olt1Ek5mNGT09m3OmXAKo4FFuWvvp8NM9JdT7T0jDT7CSGbwe8fKo3CqyMfI
L+2LOZzGSNVCc05rCpzO6EPsDseIZDiD0fFQh0u6B+ETYn6xAdHX9sOnxP6O
VEj33AdnMYo9ntemGA9ni/lYjvQ8GwOfYySX/fTRoj3weZFfbjUWatFwHqPv
I/S33omAL4q82DklKnQXfJnRzycJM+x2wvkiz2SbrnQOga+J889+mV8cDF8X
92Vw/J+xQXChyC+DvLHugfBNRr+mxO83CoCLGe1d0mT/jz98h9F5O3Wbxxvh
EkYX4spWnloPlzJq77LoRuRauEz0lxlg5r0GfsjIxIsuOa6CH4n+j42zM1kJ
VzCynuVzTXMFXMmouVzbUGEZXCXyyURhQ6sXXM2o+17z+NeecA2j2gStrU8X
wi8Y5Q5aObjMA34lvifapuG358P14r7bPdhXNBd+w8jOsWFioRvcIOantCyu
yBV+z2jUueA1t13gRpFfYzIf33eGm8T5FyZfrnSCPzHqvdRBu34a/Fmc57EX
jS2OcCsjtXl39WWnwG2MbHcev67mAH8X9UBOFwzs4XYxv/u3OttOgDsYtWY7
HJr7J/xLfG9qbTb72cIynCLarfcnjINlOVmd6dp8zhqW46SitTfgyVhYgdO+
EfWjOixgRU5hkyeq65nD3TjZX9Xo5zgGVuK0PaDOwt8U7iHan5mxLtUE7sWJ
JOMr5cawKqcGx9Xq8iNgNU7flmn4mQ+D+3DqoTevatVQWIPTWN1g62MGsCan
9rUfD9YMhrU5+YUPauqnDw/gdMWpwGT2IFiHk/e4zV6JurAup2W+mtue6MCD
OC28Fxmk+Qesz+mU1S2PBf3hIZzMKl9ppWnBhpyGGilkN/WDjcT8A1f3t9CA
h3MKVls1d2cf2Fi0T1y6pFwNNuEUNeehpV5v2JTTlzsWTzaowGM4XXpoZlbc
EzbnVGG7aXb/HrAlp5Hjc003KMFWnFwrr90t6QbbcBrv6NtvcFeYOFlcPa0Z
0gW242SY7l/yQh4ez+n1wtKhJAdP5OSfc2s0l4Uncar1D33buRM8mVNeXxOb
5f+E/7Yjp2fW3cxK/4ancfprpfP90R2wE6f6w/PkpHbYmZP2l+3lXX/ALpym
zjKy9PsGu3I6oV8yuv4r7MYpsqX6xsxWeC6nUVr1Lws/w/M5hR/w3W3WAntw
mpWpWZjZDC/k5BwfEjKwCfbkFDtr1u2kRtiLk5e/XbzKB3ipGK9AvjbqHbxc
vC/nmdGlAfbmFFg78EvoG9iHk0N439zOr+HVnHYlareG1MG+nBrvq6TLv4LX
if7basrCX8AbRD0nrfNRroX9OPWsL9gU/xzexGmCX/EXzWo4gNMF0/BnR6vg
QE6pA7sOH/4UDuI0xnTOuwtP4GAx/sjo7vYV8A5RjxGX4h4/gkM5bRymsHVJ
ORzGSWlDTHHbAzicU+nnkPURZXCkuO8Legb2vw9Hc9riu/RF9j14D6dp+QUp
DiVwDKeQNI+cl3fgOJEfI7bpbrkNJ4j1Nq6oVy+GEznp1a34ceYmnCTyYEPp
gulF8EFO72w+qDfdgJM5LVLS0NxzHU4R9XM+y3tEAcw49emtrvDwKnxE5EF1
+vuN+XCq2P/D5X20rsBp4j5JMhEFl+B0TpllKeNWXIQzON3L1bFQvQCf4FTk
3rH+ci58SuyfdWbTsvNwlsgv44y/1HLgbE4LFm0+fP0sfI7TdYvk0rXZ8HlO
xs4HLHTPwHmcyhe3V5efhi9ycrNwzA07BV/mdI4NuGV5Es4X+e4u1/1TJnyN
k5Fm/Pa0DPg6p+Puiw08jsOFnH5s6dWpbzp8k9P0KPMuD9LgYpE/swMto4/B
d8R5uW07MCkVLuG0n7/VVTgKl3KyqXF/XMjhMnH/bHefDmXwQ7H/W/WyJkjw
I5FXF8sed0mBKzj1jrL/424yXMmprd4qau8huIpTmfpyjVkH4WpOdpd2FGkd
gGvE+xcmxdbth19wGjB6U8CJRPiV2I+wB9v89sH1or5N+zLbBPgNJ9Vm5Srl
eLiB07XtgUbPYuH3Iq/LhiYej4EbOT0qe6O+eS/cxGlnUECGwx74EyfbpznO
Wrvhz+L78myFclMU3CrWv3HF04JIuE30HxKRkxgBf+f0/B5jPuHh9D+Tjrr0

              "]]}}}, {{}, {}}}, {{{{}, {}, 
            TagBox[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[Tiny], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvTu4jZGhZr7DV6YvdpHRXQ5sh2ebG7Qj+IFGG3MT
JiH4TrzPNy5aheAX/3yc5XkQwXd2zUypu47g5/b+NJ36HsHPKdaw42BeAOf7
zYs8a8aP4P//ca5GRxrBD7yzPC1EDcG/YNtmk2uE4L9XP+GzwxbBv+voV3vK
A8H/efPmzLMhCP7WXyc+MCUg+PNm7jXWzEHwwzO+TROrQPA37J9kYtaM4JtN
Ndnn1o/gx3y2bOqchaT+vIvR3mUI/uXbk5l2bELwpxW48T7di+C3Nf9jZj6F
4IvLS5kGX0Xwy19VtmU9QPBZTO4fLnqD4BuxrbBe+x3B7w0rm3+DeSGcv/1a
h/JpfgS/8f6/h++lEPzKtKoeVnUEX7AsstDXCMGv2FpTFmOL4PMUL02P8UTw
HXcaTu4LQfAX1x5etTEBwV96ascfthwEv8z9U55yOYJf6mR41qAZwRc5djm1
oA/Bf3C8+tWCWQh+zc/0/hnLEPwdm7fnHdqI4Cu+4bG6uxfB11p71F7rJILP
PO9Qqt0VBJ+T92i58wMEfz2L9pGq1wh+5tvNiXs/IvjK12z+//+O4AMAdGiJ
7A==
               "]]}, 
             Annotation[#, "Charting`Private`Tag$506055#1"]& ]}}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2015., 700.}, 
         DisplayFunction :> Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"a) ZEC: 420 Gt CO2 from 2018\"", {
             FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
             False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.65, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"Atmospheric CO2 (GtC)\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2200}, {700, 1000}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{{}, {{{}, {}, {
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[0.006944444444444445], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
1:eJw913lYzlkbB/CUyhJCJYSyNEkiWwtvvkOZxpbSGOOV7DsVCdUkTZKQZBlD
5ndOk0q0IGRrU6JBRYUkpTRNpZJWKu/vne4zzz/P9bme6/ot59z3/T2P3mpn
+3WKCgoKw7spKPz/+5+Pl4SVdSucO4pqZ/5jHwn6W219Bqyq67KfhMAMDMiq
IgdIGF926M+6GfVdPiJhUoDDiaEHycESYoa2KhU/J5+UsDeA9dww6mOXz0i4
2TzbMWwXOVTCcf/wIK8sMpNw6FjTp3d6DV0Ol+Cxv/HsfU9ylHy/MIfpfV6S
L0uwzNO8FDztU5fjJczSUNeLCCYnSFDMjDt0tIKcKGFgr0GFvmaNXb4r4TcF
64VJ/uQUCQdD2v9wyyWnSyjbu8/+hXZTlx9KsAqZmqzhSH4soTpzmfPS38k5
Eupys6f9WUTOkzBn7Li1J7Sbu/xSwp59BlV5duQiCXFrTvlfCSCXSHB5/arC
5h65XMIX3+lZiXXkSgnhy9v0hum2dLlGwsZXjhOCF5LrJXwuKZMMPcmNEtzv
BUYqRZBb5fXN3znYJJvcLqGbVrl3ZjNZgcG9INWoUKe1y4oMdysjfvT8ltyd
oXjNef27a8kqDHGhoemX/ck9GP4TVuiyPJLcS77ez8pBrx6Q1RiM1rjHm7wn
92VY8tX5kqtiW5fVGUZ223P+wnDyAIaMwa+/vDQnazB4JGw6r+VA1mKY9MQj
feM2sjZDj13fGrw6QB7C0Jjp0+FynqzD8OmHi51mCeThDBPmbd5pnkXWZRjY
nGzq8ZY8kmFVZECaYiN5NMNs26hxhaqfu6zPMCo6zUR1KNmA4a3NiZnB48mG
DO9R5eI5k2zEoFi4+Neni8jGDJN1XS2PrSJPZEh4oRKf5kqexDC2PrNl237y
FIa/zUoqTgWTpzEsvT970EyJbMawsn9m7bYYsgWDSrlSmP4d8gyGdeZ9Tbc9
JFsyWD1qP2idT4a83gNtrK+VkmcxjClWbL31gWzFkJVRq+TYRp4j18Mq54tS
9y9dtpHf13KF6oF+5Lny+hak6qgPIc9n2Ou1KWv2aPJCBoURLnkjjcmLGLQP
RJbFmZLtGQxiPvh/ANmBYWHytinF35OXMPRvejLXz568VH7+u/MGvFtGXibX
k03mvbbV5OUMlix5y5PN5BXy79b4xmkHeSVD3vzUyvi95NUMLuWfT6f7kNfK
+6USoxp6kLxeXm+D5QrmQeSNss8pmZ4/Sd4s9weS7LPOkrcyrDdbX5PKyNsZ
jLWNjh2IILswzJ+if0vrMnkHQ8fel6/dr5DdGELsri+PvEF2Z2DNv566eIe8
h0EpxizfO4XsIfffpHNOBhlkL4aGjN3bIx+RvRn6aEsmHU/IPnL9uv6UbfiM
7Cvv97LUtSYFZD+GPxSGqAwoJPvL68H1kp+8IQcw1ExYeWJdKTmQ4dr2Hd6F
5eQjDP1i7NzGV5KDGBIdz6xyqiYHM8yNuz/OtZYcwqBjv+PKmo/kkwyrQ1iW
aSP5NINjdalNbTP5jPx+U8+0HGwjn2V4E2IQqtxODmW4ZWzcvKGT/DuDZnt0
cpxCO+UPwzjvaTFvFMlhDCb3DLc3dCeHM/h7Zl+uVSFHyPWS+kvf5z3IUQx3
Ct5PZr3I0Qy7rrclLlEjX2a4qblwaksfcixDby3dGb79yPEMqWd+Xt6qTr7K
kLt6vd6yAeQEhu69a/pHDSTfYPj6YNGVdxrkRLmfRo3Z10uLfFvu9/i1LSMG
ke/Kz3PjeMgobXISg2l9dobmYHIKw4lVnYotwmnyvF2Qk5g5hJzOMHHJe/uA
oeQHDJ45JebmOuSHDJ12Ps8LhbPk+/le8d02jPxYtmlk5EfhpwxBpR+kDcPJ
OQxX7PY9yBZ+xqD3Jn+n4QhyHsPgis6O3cIFDJVPLycmCr+U68vRpqlGuJDh
9+PdlDR1yUUMZV/eGpsIFzMYHn52/1vhEtnlSb2+E34n77dl8Nx/fy9n8Hlq
/XCicIXcn0kKmf9ev5LhSHL/gHpx/yp53hiqzEsVrmFISU9YECBcyzBcd+5j
a+F6hq1nHbp9Fu/fwOCsnDPmgnCjPK+bJrp+J9ws1/ct58GlYj1bGYapDFy8
Q/gzg9l3FnZfxH60M7yKjbT2Eu5kONrwaGWT2E8FjkdpGbnrhRU5nn3xfpAj
9r87x50QvmWysApHIKJrgkS99OD49UPtzjJRX704dN5GGJoIq3HkRDWY7RH1
2JdjY3lZRqKoV3WOpHi/lgZN8gCOpZ+LG/SFNTgqg5SKHES9a3Fs7lAv8BL9
oM2xxMpCSRL9MoRjr+0Tvzv9yToc+XPMPZ+J/hrOUR6noVIu+k+XI371KKv6
vuSRHLWLly/+t19Hc3hMrVvUJvpZn8Oh9vufmnuTDWRXDwuoFf1vyHH/+3Wt
pT3JRhwVRRvSc8S8MOYI6ZeifEeVPJGjIMwpn4n5MokjYe7Jeb7K5Ckc1WPV
fJzEPJrGkT6+8JCZEtmMI2Wux74+Yn5ZcAw9l+9eLObbDI4WpzkHLn2l+WfJ
0fH+XLKbmIfgcFw43MKigzyL4+WMkB7tX8hWHDFbZlje/kyew6Gl//6Dm5i3
Nhwjo1+PNWoV+c/hv6NNqUTM5/kcIzZdOBrcJPKfI0/xxYv/iHm+iGOr9eBP
fzWI/Odov3m0LkjMfweOI5Z1RZPqRf7L1y89mfVc5MVSjt373TJdP4j8l+tp
95h3ajUi/zmiRpcZXKgS+c/hteXYRYu/Rf5zdBt23fXJXyL/OT4tCgxyrBD5
L+9fbINatciz9RxqkfvbdpWJ/OeYd85rZafIv83y+7YVLfArEfnPEW1l/0T1
rch/eb01raoCRH66yM/XPS9OtUjkP4fqsbcGfiJv3TiK/uq2svOlyH+ONSmn
nNxfiPznmKx406QmX+Q/x6GfrUqc8kT+c2QcLnXLFfnuzeEc0dKKXJH/HMqf
bu6KzRb5z9FwX6dx8FOR/3L99K32+uWxyH+OWa+uaVdnifznOP1bfvYicb4I
lOs3+OfohEyR/xw/al+M13og8p/ja6V+lXu6yH+Ox0vOrMhPE/nPceXADs1J
qSL/Ocaf+qp5NFnkP8er+04bKu6J/OeoCQxUt7wr8p9D/aqt9snbIv/lfvvv
0gOViSL/Oex6GqyYfpPMOHzODrt45Do5jMNtltvWomvkcI5be6xiDa+SIzhO
vvNz2x1PjuLQm9Y7Iy2WHM0xe9DRC2ox5MscvrVs6A+XyLHy891OMgq9SI6X
+/UViksjyVfl/ctdO1VfnA8TOH5Sn2+6KZx8Q+738PbK6DByIse45lW21eJ8
eZtjzq4FzoYS+S6Huc3uBRvPk5M4jBq8a8PPkVM4ZjZXLyn5jZzG0cPd+PCQ
M+R0jtw/pWOLT5MfyOup+8vGw+K8+5DjbYfykLQQchbHm9eIagkmP5b3/5Lp
IKNj5KccGssLNzsdJedwHHRSjjx+mPxMrr9vfLPTDpHzOPqHq1Y2iPN3gTwv
blo06vmTX3Ksj4ttsfUjF3LoXn/f5OVLLuKYPsOuIUqc54s5Irfb1z/3JpfI
8+CUxacOL/I7eR7sm9ep70kul/Og9KaGrfh/UCH3w70/zN13kys5sm6Ndgnd
Ra7icPWedSd1J7lG3g/1lmEVruRaDs8xE871dCHXcyz0yJpqtJ3cIM+fkaH1
C7aSGzkWvN78dLv4/9Is55HDx9ygjeRWDluf4o6Y9V9m/g/Ph1ic
              "]]}, {
             Hue[0.9060679774997897, 0.6, 0.6], 
             Directive[
              PointSize[0.006944444444444445], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             LineBox[CompressedData["
1:eJw113s8VVkbB/BTTCKVIimXhFcilTJdZZ50HSkqoTJCNyNJ7skk5ZLuGULF
XiuUGhNJNck1UppeI6mIpKIpIYx7t3e/4+f8cz7fzzn7s9d+1m89a6+JzrvW
bB0skUg0Bkkk///+9xMokONHh11falp++Nf7BWrQSq9eYP2x3yECqUX8E5Bc
Bh8SSNKqnt2r19rvowJpsxRXGTf4pECnLdaGel6FowRSt1c669YLxwoUYGA+
6/Witn6fE0g6Idci/yTMBEogA9OOl3CSQLMibpXvMGrvd4pA67KC5o4JhVMF
UpWZ15b3HE4XiOs2K3KDf/qdKdDe6Pz17/3gPwS67ZT++F4enC3QU7NVPT9L
dfQ7X6C1S/TTP5nBRQLZL2twurgPvi9Qj+fHL9E34Ifi/R93yH5shMsEyhzV
91ulame/KwQKdDC47vcjXCmQr8em1I9ecI1A78KsKp3PwnUC3Vx47Mf2PLhe
rI+6dn3OK/idQL2W0j/XS7r63SRQSKF+0EF1uFWgkgd7sm/OhjsESjRxvHLO
Eu4RaP1Bk9cWW+HPAn0zDGl+5Q9LGLmHpvt4H4YHM8qOb5utdgaWZjTH+pJC
60V4CKMNPG3wkEx4KKPGeCdTr1xYjtGeyEA9i3uwPKODjsWOSaXwCEbKx0Lu
H6+AFRgtMCw8pF4Fj2Z0qtlNxbkGVmIku/17s521sDKjA002+pYvYRVGJZ06
1mMHPJ7RpqXeFytewGqMev+u8omuhjUY7ZK7E7S9EtZkVFOxqdd2YDxajJIN
/U54/QXrMHLZM8ituATWZTRhxZV59oWwHqNJfWRI2bA+o/3DH34LHKjPFEY6
2/78rJYKTxU9XGOQfiI8nZFqaF3Q73HwDEbb9+iFpZ+AjRmlsfO580PhWeLv
iYo+tgHwHEaa5dlxw3bB8xg1eCYXbdoMmzAydCmZs9EWNmW0+6Ph39IrYGI0
1OjF7s2msBmjX2xKpv5iBC9mZF8Zo2+nAy9lZJS+zqBPGV7OyGbsmGsusrA5
o//4+Qy+9An5tWA01kBZNb8ZXsUo8GpHQcZL2IpR/JsbwaGP4DWM1j94lWpS
CFszOsq+bKrJhG0YSZ26eNDlAmwn1i/rVGl9DLyBUcGX3fesI2B78f8T64pv
B8AOYr1ua/equcGOjBI92jft/Ql2ZtT0j0ZF1Sp4CyPbhXNl5hO8TXyew5qh
3Ah2YfRyQfj1kdqwK6Mt7OcX4Uqwmzgf1n6a8kNgd0YTl3kcSOhG//BgNNnG
5x29hz3FvGqtHN/5HPZm9MopvjD7Iewr5nvYOJ+4XNif0drixOSj6XAAI4U3
rtdizsOBjFabdNTfjoL3Mbplpe3aFwbvZzSrwfgn6z3wAUYW+64WPtgBhzDS
/WxzwsEBDmMkl9iboLAaPsTo7jP7vFeL4MOMAp5IpZbPgo+K+WF9I+snw8cZ
XfONCVNWh08yqv5mfM5VAY5kVOXbUFo30J+jGO2Un3BiTzf692nx+iwn+v4D
HMvo5p2nc5VewmcYnZZrLFZ+DJ9jZHLqxaQF9+AERvoGtpHht2EmzmfWO6Ou
NPg8ozsjf9WLSIKTGJVdXnSC4uALYn72rvRVOw6nMPq1qqZB7SB8mVHbi221
C/3hVHG9mCitP7ITviL200eTlvc6w+li/b5zijliB2cw0jbcMMVs1cB+xqhZ
6s1btcXwDXF9edpy1XkD+xuj1Iz26abT4SxGGoMmbAvRHdjvGHU3F8i3qMG5
jFr9QpsCFOF8RkFDNUr05eA7jOw8jjl/kcBFjGQkm33au7HfFjOKedaTJfsR
vs8oMvzKe7O38ANGcWoTr8e/gB8y0rriWDruCVzKqCdcu/7GQ7iMkcd33ee9
i+ByRtuM3a+vyYYrxH61blWRVSb8VNxvVt7ydU+FK8X5mWDj+VsS/JxRXoDf
Rpl4uEasjz89CY6Gaxk5x94LHn8crhPzLTNn8KMw+DUjM/O2rqQguJ5Rjl3y
t2h/+C2j58Y+txN3w+8YBSvJl/zXFW4U+/ukW8WKW+AmRnNlDq3x+QluEfNd
byvXbgO3MkrwbTsSYQW3M3LLUfWZbw53iOv7YtpmmcVwF6Mf4y93Ni2Ae8Q8
yFDJh9lwH6OrZe8DpWbAnxnt7fNLmzkF/ir2d5ogCdSFJZx86sJG1GjCgznZ
RDwJWKsKS3NqDcxpeDUGHsIprim8NUwBHsppcdyEBWbDYDlOBnnj3RWHwPKc
6q2LdPsk8AhObsk6w7o+4X1PgZOHhWz+kG54NKeys/IfDNphJU7Ku8/N2NoM
K3PaHiwxzXgHq3Aar+V4fXQ9PJ7TsKh7C8MG3ifVxOd5NuWYfDWswWnicG+z
5KewJqdsN6/hVuWwFifTR11n5EthHU4n6u/EPi+BdTmdb4q5fusurMdpyw/G
/FIBrM/pvpON/OUceAqnKU9zU7JuwVPF50kwmlx9HZ7OydDLb+GwDHgGp9m3
HS6YX4GNOZ2Zlz087jI8i1PdoR1Tuy7AcziFmlvmOyXC8zgZzVwdWC3AJpx8
HzupbT4Hm3JqM/bf2BMLE6eoZac6z0TDZpz+1Eq7aB4JL+Y0Sr1ymswJeCkn
p+wxK8uOwMs5VQd75SUfgs05NUZ+WRYeCltwGmqWl+J9AF4lPu+egqSdQbAV
p39kZCWegfAaTgufRQUF74GtOa2Rtn9/1he24fSsfoV0gRdsJ+alc0lsqwe8
gdOtG+ru+u6wPacQz9OW7jtgB3G83Y4y2S6wI6evC8c5KW6DncX5Vlw82Xsz
vEWsT4iFYa0jvI1TaUjw/NUOsAsntlZR+78bYVdOwS0KmavXw26cRvptzau1
gd3FvJ16ouxtDXtwksr9fHTUGtiTk+SSeecNS9ib04q9Ep0tK2FfLp7Xprao
rID9OTXFpU1+shwO4PRUX//32KVwoLj+MmStNi+G93HyfvNLo7EZvF8czwG/
dcMJPsDpbGqya9MCOESsj6KXdPl8OIzT+iVSX3Pmwoc45TVOm5k+Gz4sjn90
2P6U7+GjnJb5LCq8MBM+zim6eG3VZSP4pDg/X1fyzGlwJKfLV3b3FRrCUZza
bZOKKg3g05zm33Wva58Mx4r5d+2bOloPPiPev2RE5CzdgfMmJ93KEU2bdOAE
TibeXROOaw2cPzmtLLcdVaAJn+f0qdcuqUdj4DzKaeaSqznG6vAFTrJvL5j5
qMIpYh495cdljYMvc3rgbzpJSgVO5fRNaaK1lTJ8ReyXUerhXAlO55Q2TjOl
azScwWm4RbRgOQrO5LREzsUmdSR8g9Nj3W/X5UfAf3Cy0p+f4iEPZ3Gapu49
tlIOzuZ0yc6vxUwWzuXU4hCqclUGzhfnO8syWGsIfIdTWEOXUow0XCTmadbQ
/BFScLHYTyr37ooYBN/nVFuYoSAjgR9wmlHsfSr8K87/DznlHGl5KfcFLuV0
LSOt8eQnuEysf0MKG9cHl3PS+TS5LakHruD018S6P2d0w085FchXaBZ2wpXi
9VNc6tZ1wM85VX2w+dTYDtdw0utOdz7QBtdyuhFWLaPWCtdxUrl2vOZmC/ya
09q/Hpeva4brOak+kHrR+QF+y+lD9N3mmEb4nVjPGPme+e/hRk5cfezHV3/D
TZw0qtyKI97CLZy+2/Ji98wGuJVT5/19DbVv4HZO/oqpY46+hjvE9fZWqnve
K7iL02qV7fs+vIR7OHXYdLP42tYf/gcw7zhb
              "]]}, {
             Hue[0.1421359549995791, 0.6, 0.6], 
             Directive[
              PointSize[0.006944444444444445], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 1, 0]], 
             LineBox[CompressedData["
1:eJw11gs0V/kWB3BJmBhL8c/4Z8gjRcVMSophT8noMVRXhqasHjIWt1ITRSmP
yHhWRHl09t8jkuYiU0aK9DLjkUepLleKSl2klHBV98z4dtY666zPOmv9fvvs
3/799tHfvGPNVnk5Obki8f7r+fe1X6CNLz12vG/rs/vbIQKF5acFN7u/HPMh
gXI+G4yIaIWjBFJYr2ja+VX/mGMF+vmulrFtAHxEoMNe15RqLsNJAmW7n95U
q/RqzCfE8RMi7Wa5wOkCWfWGbmnMhFkg+jyNzgzA2QLFGfi9zXB4PeY8gYoT
pd+lpcEFAk2adzp962u4ULTtKoNvFw+MuUQgfpdhcCQGLhXH94/RL6yHy8X3
MUOTR1TejLlSIGfH5viqJfB1gYaap4xfFwBXC3Tpt5JO1Wy4VqDchOD7hnVw
g0C/JH/5vPMVfEcga2vKjZ/8dsz3BTpR2uu62RxuE6jswDxJqiPcIVD9VfP3
2zzgLoE6b+1bobET7hboQu+MkPIQuEeglMvzD56Mg/sFWvWf8/+6lwK/EahB
KVw7U4CHBBoubwrVz4FHBTKq2xy5Pw+WY/rGK/nivTOwPFNjnWfR2k9WYHIP
trDQyoUVmW52ZVtaZ8HKTHr5XhMeZsATmT40f+ak+ykeVaYzz/oWaCTAakzq
mc4BLRGwOtOS4zvWHdwHT2aKPDnaZegHazJJ83Nb7m+BpzB17/xQUeQKf8FE
++LUr37Kp5RJLm/N9C8WwTpMM1cedr1lCusyeYxWK7RL4WlMU9pyc3wmwgZM
YQN8O2gY62nEFHoneunUbthYjCclaJxbCzyTad+wsZ3NddiUaeX82xFNRfBs
poHO/CIjATZjUpF0j1rHwl8xbYq0UdYPhOcyGZapdbZuhecxpe+x1ti9BrZk
UtLcn95vC1sxPTm/U8ltFrxInO8Xd+9CLdiG6V3ftq0fx8O2TGsnDNks78d+
IKbi3ZKa423wYnG9s+cnPK2G7Zk8L64uot9gB6Z2n8eKeTLYkenhnWStafHw
cqaEznr9giB4JdP89W26zj/BTkxXR1VvqbjAq5huLQ053kXwGjGfP9TUtM6B
XcTxv97mPyCFXZkG4yW+c5RhNzE//pVrY97iPFgn1ldsXpFaJ7yeaVg6ubG0
AfZg6k3rb4++Am9kUkj1fhRRAG9mepRsXp6fCnuK8SbWzB2Jgr2YsmrOv9i9
B/Zm0pG6bJvqBfuI8QS+Melzgf/JlDcQsad3CbydSeLkmqxtAfuJ9VV0tmiX
AbxLjC9g2aOhSfBupmabh6YF4+AAMR+uW8JjX+G83Mv0ueDecPIRHMR0KVPp
eXMjvJ/pozQlZVEVfIDp+6QZqXXFcAiTsV5DVmwWHMa0+MHRDXuS4ENMsyU2
P8VFwJFivbUtdqsPgKOYvMKjKhd6w9FMrv1Sk9vucCzTvGVPNONXwPHi/k50
HRfwDXyEyaDrvVekOXyMqSRPp+yKPpzEdO2oua+uJpws7r+M7c+yFT/1FybH
MvuTq4fRf1LF9Qyu6DbsgdOZTq54Zz31IXxKPC92+b2zbIKZaeSA/4GAG3Am
U7W9r8WDUjibyblDd69HAXyaKV5D7dcJDOcxaSzPt6xPhPOZ+o8l/3zxMFzA
NPSg42blPvhXpv/lWCY+3wEXMi04JbH52hMuZnopGZqe4gaXMFU9CL4g/R6+
wLR9z1GXS9/CpUzn5kd777WEy8R8vly+fvUsuJyJ5TzSlk6DrzAl71VLdJHA
lWJ9FB8oDp4IVzGNSgLvhnxE/78uft+x0xusXsA3mbSfXHg27S5czdRkPWnz
wkr4T6byez4VIWfhWiazmNbBt8lwPdN/h/vGnwiDG8T6bSl+unU73CTG71SV
5bEOvsPk1+5kH+oAtzCFlxi31M6F7zPFNZb6kh78b6ZCiZZOqwrcxlT/46B8
+hD+d9qZ/lFTQGFP4A4mq3Czkdgm+DHToQpl90sVcBfT8RM/xqieg5+K4wc2
XTuYCneL+90nbaFmFPyC6QeHDTP/8Id7mALfzW7I2AL3ifM3hvofXQ33M+2c
arIpyw5+zfRHp1VH0xz4DVOZqby9ng48yFQUJP/48ER4iMl09I6G6nDvmEeY
6iSGC84+g0eZbHKTznm2wB+Y3Hoq2hbcgOVkVCLRNjMqgeVlZJ/5SM0kC1aQ
kWOEVv/SY7CijHoMPB2CQmFlGVnMUYm+4QdPlJGJzwPLGRthVRll+WrUnnKG
1WTkQp61s+xgdRktm157uc4MniwjH9sEk0O6sKaMNNcbpTupwVNk5NtsmDP7
Qw/6v4xCt1ve+7IPlspIO1ChWr8d1pGRQ5+RulV9j53ezN9b54iuq/3r6rH7
P+1420s=
              "]]}, {
             Hue[0.37820393249936934`, 0.6, 0.6], 
             Directive[
              PointSize[0.006944444444444445], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             LineBox[CompressedData["
1:eJw913s8l2cfB3CzDrMKSaWT1NRT0cnKWgc+nSTRmppEk0o5rIMOzDqNomjm
lNMk93VJJSFJopFDSkkIk2R7JCsrj6STPOi5nnV95x+v9+vH/bt/1/fwuX9j
Nmy33qSqoqKi+5GKyv9///2zT4Hjc4ft3fWtpn/bW8GC6lk3TXc+/2BfBQkP
8jzte7d9sL+CJgun0x3W0oEKqtquLVeLlw5RULexf/W8l9LhCr5JemXQbPbi
g6MVHHg9Mfp4rHSs+H9D5bjWK2kmru+Rnqtr1f7BCQqaxwYHKGekExWUWYZr
Tvz45QcnK8ge/6rK0Eo6TcH9t+nadXukMxRkFn/uejRCOktBxZYlao4npXMU
5DTPXOmRKJ2vYPUoo1PHzkgXKQjYscTvVLz0TQWXx3jlvo+RLlUw9suBw0ND
pSsUzNjeNkT1iHS1gsLMqskle6VrFRzym2Vr4i5dr6CnVG3AcSfpBnG93v+d
0W+NdJM4z5Wu6in0+ZoVGO3UOR2xQLpFQZ9pVSurvpBuE38/YPHh7ZOlXymY
+mfKQPfPpDsUDN9oMK52mHSXglkeoe8TNaVVGFTnuns09pVWZXimU7Xq0Ht5
/r0YpvbKOR/wVroPQ6dt46CXz6U/YTD+7IeMnGbpTxkmjD8Q8OihdH+GCykT
nZ0eSKszlCRu1Zj7m7Qmg/bUNybO5dJaDG/qCzIbb0lrM1RN0l94rkh6CIOm
2t383DxpHYaNhW56Q3+VHs6Qv6bVJSNTeiTDyrxF2WHp0roMwWzK0vOp0noM
P7++6Nr3nPRYhvYqY79o6j99hvCY+aMdE6THM7S1jK2259ITGFLZJtuAOOlJ
DMPtp3o9Pi5tKM5LJ2jIjl+kpzAU3L9i+K8o6WkMq8fZ3OoTIW0kXu/iGurH
pGcwNJf/ajwnVNqYwWRvrX9gsPQs4dRDG1SCpGcz3Cl+ND0iUHouw8F7qp5L
f5I2YXg0f9TVEUelwbDg6zeJnwZIL2B48ZtRk7a/9CKGXW3ZBl8ekTZjWPjX
iKWeh6XNGZx032vd9pO2YOhbGbbFmGzJcDG/7+LLvtLLGQZZqUdZklcwlA61
c3l9SNqawaJy0q008ioG8xF1VfvJNqJ/jLcl25NtGRw2T/deSrZjsC+w8jMj
rxX1s97a+TXZQdTH0mH8d2RHhh9n/Lo6lLyBobw8suka2YlhZKLBJFW6382i
/qrBgcvILgyZBs6eCtmNYcTvCbbd5C0M17NNk5zoPLYxBCW8flJNdmf4oqZ/
uBWd506Gu/E6xmXk3QwGufl2NnT+ngxazUeP/Un2YjjSddpzL9VrD8O/dXPj
hlI99zG4Db6alE0+IOqVcGneeqq/N8OJurieAdQfB8X9GM+OziP7ivMN+TPL
g/rpsPh8Vz20pv0s7S/e79ZAu1byUQaWq2GeRv0YyFD3V2WUB/VrEINK1Lm+
JiHSIQyN2lm2atTfYQzztYuX3yOHMxzHnLQzYdKRDGf7tS3eQ/MRLeYlZvSD
5eHSMQw2ZUvnjaN5imX4w3rk3G5yHMOOdPuzNZHSjKFw7R3bCzSP8QxdkWP1
fo6mPGKY81VTjSvN72mGyKJ1NktiKJ8Y9vcc+2EczXuSmJdP9Eb1ipVOFvPW
Mn30I3IqQy9Hz3WFJ6TTGIx01fI47Y90htfNm/R8FOkMhsAJds6OTDqTIe2z
t16mtH+yxPkV+87RjZe+wuDZszuyi5zD0OG3emfdSemroh5WZVmXaZ/lM9Ra
HFwVfkq6kOFlvs5099PSRQyL30+Ys4z24Q0xD4eNHMclSt9kmB1xLKiHXMLw
yUjvSzVnpUuF+78rSkmSLmM4o1KUcoj2bYXYxws3rrdNlq5k0NVTrzRIka5m
uHL0bHs3uYZhysCCzDLa37Vifw711oo7L10n+tX2XOd3adL1Yr6TY5xmXZD+
Q9yP5udmH1MeNDC4PG6IKCU3MqjtCbMIvyjdxGCdmW5vlyH9WOTdYP0C3UvS
zQzxRXN2PSQ/ZfDvzHGLp/xpYdA7UM3WX5ZuFf1oq60xOku6jcEse/v5OnK7
2H89xvvCs6VfifN9Osjd8or0G9FP3b0Pq1LedTDEvnPIziR3iv3nk9fbNUe6
i2HRo0HOw3Klexg2q4TeLyarcNitvLBm91VpVY7DQ4yadClfe3H4+Wt6FpP7
cDy2ONJ/Wz7lP8fV+/1OaRVQ/nMU6VvOu0Tuz/HU2LDqm0LKf462rmtOr8ia
HAf0vm0LuUb5z7HknftuA8p7bY6toaefX/sn/znUCyoc7a5T/nOo2LXcaCUP
54hz1R3jc4Pyn2ODf/q2gcWU/+LzmAw7r5D1uHgeevzQ4CblP4fyrrxPJlmf
Q18jeZQJPY+M57DRdB9fRJ7ARb9PHWNeQvnPYVqho15CNuSo1vb6z9LblP8c
Y1ov5BWTp3HYOyzyW1hK+c+Rv+K6SS55Bod58MOWGXco/zlci+1DksizOK6F
9JukW0b5zzHbt/5KMHkuh6rdnYXvySYcsRrPr2+h5y2I99dxWlBLXsAxLWLd
lfkVlP8cOqH6U8+SzThalvWOV79L+c+RemSD9k6yBYdufdKRKrIlx7LBdt1G
lZT/HNHHOjxDyCs4vr80/M0zsjUHzBz3La6i/OdIfrGr3wmyDcfvuZ+eaifb
chwKeGRhVk35z3Ex9EZPFHktx+B3voVPyA4cl206ombS86cjx0ozVR8f8gZx
fZXAH2+TnTjUXvtFDKqh/Ofo5fykaA3ZhUNTK1UjjuzG4VD2+/cN5C0cmbO9
3+vdo/wX/eSWkLiO7M6xOczBI5a8k6Mhv9j5Hnm36Mfgbh/NWsp/jrx/j7mx
hOzFMfaYnfF+8h7xutXd6jTyPo70mRdPNpIPcIRmTjuldZ/yn2O6+f4HIB/k
GD6z3Hwr2Vfcj/O651Hkw6J+M13v5pP9OSwnT3rxhHxU+K+HKwbUUf5zTGq4
2z6NHMQx98t5963JIRzxJ1367CKHcdhOidkXSg7n8B49zCSVHMkxuWKy1S1y
NEdtwJjkRnIMR+d6k287ybFiHkeUb9Ck7x9xYl56jc7TJzOOnQ9+2P0FOZ6j
JMXAz5ycwGGQ7/1yNfk0xwT36wWbyInieqPM2neQkzgsNL86so+cLOZpneEh
P3Iqh3P9xOZAcprYfz1hWWHkdI5vStLfRJIzOKzzqxJ+IWdyGN40vR5DzuJI
0IPdP77CEbxs1OZocg5HT7fus3DyVdFvGoHPgsn5HE1uSa4B5EJx/x/lOfuQ
izhGZQ1o/p58g2PiuvstW8g3OXawjV6O5BKOxtctgdbkUo7SExmGC8llHEGB
HWuMyBUca51eD9EjV4r+cHu8qT+5WtR3b++lb6meNRwjev9U2ECu5bjXkVJ9
k1wn8uf6SZ/z5HqRV1+z2+HkPzg6Wn/L8CI3iPxY5WFqT27kuBSVsnUuuUnU
d3zy/JHkxxwu+bG5ndTvzRwHt519dI/8VNT7x85LF8ktHL7emcZB5FaOVbNV
XZzJbRzlZ1UsTcntHIldlU2Dya84Pv4pesYzmt83HFo12+blkTs4xvns+ChM
+H9ihmo1
              "]]}}}, {{}, {}}}, {{{{}, {}, 
            TagBox[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[Tiny], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvTu4jZGhZr4DAxj8sGc7PNvcoB3BDzTamJswCcF3
4n2+cdEqBL/45+Msz4MIvrNrZkrddQQ/t/en6dT3CH5OsYYdB/MCON9vXuRZ
M34E//+PczU60gh+4J3laSFqCP4F2zabXCME/736CZ8dtgj+XUe/2lMeCP7P
mzdnng1B8Lf+OvGBKQHBnzdzr7FmDoIfnvFtmlgFgr9h/yQTs2YE32yqyT63
fgQ/5rNlU+csJPXnXYz2LkPwL9+ezLRjE4I/rcCN9+leBL+t+R8z8ykEX1xe
yjT4KoJf/qqyLesBgs9icv9w0RsE34hthfXa7wh+b1jZ/BvMC+H87dc6lE/z
I/iN9/89fC+F4FemVfWwqiP4gmWRhb5GCH7F1pqyGFsEn6d4aXqMJ4LvuNNw
cl8Igr+49vCqjQkI/tJTO/6w5SD4Ze6f8pTLEfxSJ8OzBs0Ivsixy6kFfQj+
g+PVrxbMQvBrfqb3z1iG4O/YvD3v0EYEX/ENj9XdvQi+1tqj9lonEXzmeYdS
7a4g+Jy8R8udHyD461m0j1S9RvAz325O3PsRwVe+ZvP//3cEHwAZzQss
               "]]}, 
             Annotation[#, "Charting`Private`Tag$522342#1"]& ]}}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2015., 0.9}, 
         DisplayFunction :> Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"b) ZEC: 420 Gt CO2 from 2018\"", {
             FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
             False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.65, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"delta SAT (\[Degree]C)\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2200}, {0.9, 2}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}, {
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[
              NCache[
               Rational[1, 120], 0.008333333333333333]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJw1lns41Pkex6foIhVdV+WWLYR0Qcjg7RaSZNwGgzE3M4jtJFRkUrJuS61p
CxOVblSsLltbJ6RVqt0kRUqXbZUG2dNlE1tt55zfZ55nnnle8/69fq9/vvN7
Zq4gkSMezWKxWr68//v5/9efzv/74GeC+QLLq63mVUcTj4eth2VTpZBYGxrC
/BsjYuLpqPF7H9goJdZBuIGgc3w8sS5Sss9KexOJDbEtq1OVmkRshPvaFT73
NhLPw0ddpzoDObExcttxIiWb2BSTXwZx1YuIzfDq172pg3uJLVDd714gOURs
iWy2rK2kjngxotTDrRobiZcgX7LdbOod4qXoW5uQ3/Kc2ApZPhPYxh+JrTEq
e3uzbOY2hm1wOmF1T8dS4mVY/1LRc4ZDbAuL+ffeeicT26GotpfTpSS2R0h3
TezxFuLlcHawvqM2TOyA0tg+h7mLtjPMhlb+fk8XGbEjZnQJwkqPEjvB8m16
FH+A2Bn7ObKC87ZZDAMHpk6yvJrNsBx43O33r/Ju2l1wr1OL62u/g9ld8M3a
KVW3ShhmuWKZ54ihzuhsZneF8dfXjk9IZJjlBr17V/vTntLuhguLEx/ahH7L
7O4wLSo+P3CXYbk7quaNNV0dksPsHrCq6Ch+/ZBhuQd+nFfeJZXkMvsKxD82
MV76hmH5CkzSHz3rSmYes3vC7KKdSe70fGb3RL7e0IIXRxhmeeG9rsFcW3YB
s3uhfcfeObdbGWZ5Qy0i2FFD/B2zeyPFctT9pUMMs1aiL3bfrgM5hcy+Ep3s
YHAnFjG7Dy4p3A0jOAzLfZB0YufGXbtpX4UQoU1+TSftq3DebMhgnc5OZvfF
gz+D3EqCGJb74pn3poG3hbSvhotil5xzlfbV0L3yu1n+CO1+cBilPX+bxS5m
94MJ+9mvhmEMs9ZgYFzXweDtDGMNjMe+1NOvpuvXoFpZJk79jeGGNfC44vxu
7Svy/aHP4+pN1vye8f2R1j2clDCPYbk/rDlz7KuWM9zgD67y0r6nvgyzOHiu
EOnaR5LPQensIyc748jnYJztFN2+ZPI5mKjX6qDMID8AVj8VuOrtID8Amtnx
OiW55AfgQXvZz64F5Adga0delcd35AeiwNs2vpV2BKLKpnq6Vj75gZjV7PLS
PIf8QNQ/v6rll0V+EPxaPP32yckPwiGDnifszeQH4bXnEz+fDeQHoVd1JOZF
AvnBUL9x1NJCSn4w7j+K7V8STX4witnp9pPDyP9y/ZJDX7VzyA/BKY827WIf
8kMwyT80nOdOfgie7Z852t6R/BAc97LVsl5GPhfeH1LOBS0inwuhqjuv0pR8
LjRL1cvmG5HPxePUFdUP55AfiuT+r4NuziA/FEffJNv8pUV+KIZntzpUa5Af
iildgz31auSH4e/Cn3QXfqLzFwbL6+/9+ofo/IXB20sa//4Nnb8w2PRGtnkN
0vkLx0pvW98HKvLDIVOL1Kx6Tn44VF5vdtf+Tn446n788JvqEfk8/Kdp7NPA
B+TzkKKIc+vrIJ+Hdz/crKlqJ5+HnFWG+kW3yY+Amd2khj30+0AETNQr/m68
QX4ETrED4jVayI/AojLB3fhm8iMh9hCZqprIj8SF80bpGY3kR2LzhTot83ry
I3H8SINj30XyozBoMmX7pZ/JjwI7bknawXPkR2GYF9C15yz5UbBScOKUp8nn
487wo6m1dQwb8nFg5fWWW7V0Pz7uqzaUjZxkmP9lr4w8tvQE3Z+PLROuGCTR
86KCjxdpMqf6Y9TjY3dPAmfaUYaf8LFE4nw28TD1o5HHLW69U0n9aHTo5U1z
Pkj9aNwKvjlSu5/60ZDbN2ktqKB+NMa0PXt0eB/1o+E69TPLTEn9aPQcOzij
rpT60fA9ldvkVEJ9AVYHap27tYf6Ajhn1h4W/UB9AVJNy7w+KqgvgPKTK29v
MfUFiJW9rbT7nvoCDN7cquraSX0BSi/3DmUUUV+AjzVqFSaF1BfisjtO3S6g
vhD/TgzX2JJPfSFaBUZpFnnUF6LAw673YQ71hZA5PrEo/Jb6QqhtvGHulk19
IUxeq64NZVFfiO5yd1UNPe9ZIszquJEi3UZ9EbYq2eFGmdQXYeHZDxndcuqL
sMN6oG1vBvVFWCGOcw3ZQn0RNJ5+dWlGOvVF4JXfXHZ3M/VFMP8jc59iE/XF
8PjDsTd4I/XF4LHej5uVSn0x7FLzXj9Ipr4YzpuqleUbqC+G/4brn4VJ1Bdj
pkJbe8F66ouRyfFtfrWO+mJoq/fNPvMN9SU4FvZsbFoi9SU4cP70NrcE6kuQ
F8rN01xLfQnOGNvrtMdRX4J0X/P5yljqS7AhRnRCIqO+BAmOSccXS6kvQfA0
J/0RCfVjcGz960+/iKkfA7V1Gj47RdSPwdtAx888IfVjMO10ls4CAfVjUPN4
avE7PvVj4HTSO/FyFPVjML64/khhJPVjMHesrUNEBPWl0DcqMzHnUV+KrYpR
cR/o/wGkGNOgVLsWSn0pNk28NribS30p5qT9tVASQn0pjvIvXLQJpr4UZ12a
SsYEUV8KHVVb890A6svgV/KL82EO9WXwjchTT/HfhX8AVCmmKw==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[
              NCache[
               Rational[1, 120], 0.008333333333333333]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            LineBox[CompressedData["
1:eJw1lQdUVGcahkewYACRqNgRBcEoRUoCMZQXqQ460pmhTWMKipTsCFJUJEpU
ioJrYRUpBkVQNIIBJegQcIEkFFFXFI24lihuQlEjLgLZ8n+cw7nnmZfnPPec
ufx3qSTOX6bB4XDa/vP73+v/fwZd/ncRZYB9gH6zyymVYmItND/ztD0rJZ6J
YLOjXlpy4tkYsx2YeV9JPA9t7woibGKIF2GJ+ViFWTyxEd4Y6wlvqYiXYcWn
DRN+KcQmGImtkDelE5uiu2jTAHcv8QoITDxP6uURr0SiGk6Ox4nN4ZO5eMvE
aWJLvPJ8fyarhng1yupHbeY2E1uDr9/0ofcOsQ2GZzrI5/YT2+LR/Cuvp0/6
irEdNKx+fPrHAuJPUVjz4KKxA/FneODgq7zLJ7ZHyGr394LtxA6IvPZX/usy
4s9RmTb7YH838Rq87HxYvXvybsZfYF5KaqPmF8SOGBtUxZQlEjtBs+7Kg5Ja
YmcctrKIWjlO7ILkIj9rJXcPY8A68NaU1BOM04Fy1eKRpDe0u8JgX6KX0j+T
7a7Qzszmen/HmLMW4pLfdk41+prta7H0a9fWjAOMOW5Iif2pK2fyXra7Ye76
JzUvdjDmuMOTl9DrPk67O1QD12e7Z+xjuwfeJ4hHt320n+0e2N9aXaA4wpjj
CUPnjoDM5Vls98RtHdUsl1rGHC+cfJlQPcjNZrsX9rg6fTP4iDHHGwkG15qy
t+aw3Ruejz4IdbVz2b4OGpu9wmqLGKevQ0PSCUWHzQG2c1FXqcc72sQ4nYvW
RyULz684yHYfXL6Qr7q0hXG6DyovmCRlXqR9PfSFIR09g7SvR6+qcyTSMo/t
G7Cre3jRHSXj9A3YdllwfbyIdh54mUn8M7do50G8J7+lVDOf7RtxVGd1SbsV
4/SN2Hx0iK/Lp90XpsPjnr5pjOELcY/1/pwT9Pe+EJzUbWuuY6z2hcTA4PZY
F/l+aJvUYe79jHw/dBs/U119S74fLv7S0ZagcYj5fohrbpqZp82Y448g5UV7
6DOGP4KFrnGVsxin++Max0eiQaz2h8Gp+NgkPfIDEL2j5LHzdPID4P+h0iWX
Q34ANE+dzT9O96MOAO98TuuJF3T/gaj415klLffo/gOx1Fd2itdG9x+IRdkm
V2W15Aei53hKs+M35AehMfV++6SD5Afhs+X2vL4U8oMw/27PKEdGfhAshNHn
9vHID4bRyKhboT35wYhOPH8xzIj8YBQbyoYea5EfDFPDVabcIfr+Q/B3cV55
5T3GCAEmTq9c+AM9DyHonqfVW1HBWB2CKWV12ZsOkc/HP4J3P1akkc/H95du
bq2Skc/HYOkrHe+N5POxxmLge8fPyRfgj8Dy+YeMyRcg2eh2hO8M8gWIMtdt
bB1hz7dagHi/d3O6n9DzHwq3KVXJyk7GCEVS3ajx3nr6fwhFTnGp3KKc/FDc
3lxxLvAw+WHY0XAp+d8Z5IdhgR83emEC+WFQlXEta4Tkh6FVzyG/kUd+OKbO
P62CM/nhqJpW/KOFJfnhKEmeczLTkPxwTAxxdb31yI/A7y48bhyH/AjUez20
e/2EzoMI2NgmVLa2MFZHwC68/2fBOTo/IpGXJ8gryWOMSPQXh846nkR+JDgr
zQ64RpIfCVXHBfFBD/KF8M+vn/aVBflC/HOt7uI5BuQLIb+aG7Z2gp1faiGS
e3b9bepLOt9EeDuttj3iFmMjEczN2ya7X2MMEaRdkZsun2UsEkG1Nd6t6jCd
hyIk3j/0+8oMxsUiWBiuf2IWRz0RPjoW+W1JOOM+ETZ4m3MOc6kvRvN1vdxx
B+qLsU903arXjPpitN+r7jSbS30xrjXmb3k8lfpiWFgXLp7yjp3fxWKkeSzT
OvgrY7UYM2PfKnf2MO4Tw2rzi9yuNsYcCd499e5Nr2dsJMGVXeLGnPOMIUGD
dPzGmyLGIgm0373ZUZ1P7wsJEkeq8lv2UF+CrqK6Wstk6ktQf9ev5nkM9SXQ
j9WI/E1EfSkKVlgXIIj6UuhXNPB/WUd9KXizCwubnakvRVFgcuKQLfWlMNEK
mJB8Qn0pNjxfLp67hPpSrCo+cFNnDvWlqDNOznfVpn4Uym1+GKqeRP0odDoO
eEtG2PsRUdgXe+8Dd4CxKAr6T0XbY57T+zQKY8NGHjceMi6OwpFU03sBdxir
o2BoV95q0M64LwrSPvU5nRv0/pVhu3LVCrsGxkYydDdyfs26TH0Z+gqTTn5c
RX0ZirvLdFpOU1+Gmni3kTNF1JehNTVudc0x6suguSYxuz+P+jLs1St4tS6L
+nL8pfeu3c3d1JdD8+f64J07qC9HR5GxV8A26svhwtXXXP8l9eXoG9qWq4yh
vhyzXfTfnJFTX44NwyYe08XUl2OwTlaQFUZ9BYIc1DMsg6mvQKGndduAL/UV
cFp3YrjTh/oKCL8tvdruSX0F4nLTgl+4Ul8BmVU3Z4kT9RXY+tOR9/EO1FfA
etXTPQ9tqa+Esc/dAakV9ZVwHtqSqbmK+kocs5QV1ptSX4llLfNyspZRXwnT
ZOmlLw2pr8Rhw/TY+AXUV4Jb+sp0twH1lchu8vI4/zH1oyEodbZ/NYP60Rib
oYh10s7Gnz9jpcA=
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[
              NCache[
               Rational[1, 120], 0.008333333333333333]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            LineBox[CompressedData["
1:eJw9lgtUjHkfx581oey7DnK/ZEIlpS0qhfKdFDWV7s1kpprmnnFQuii36eaS
2FxyqSSxJJRLG1bsbOwqabdlQ1hvhVxyWbVnqaT33fP+f2/ndOZ8zvd8+sxp
5vk/j7l8ZbBqAMdxN/77+8+r4X2p71/tJuD++ZGl/++VGwZLRZL4VgzxSGSa
SscfUBKPRe69WvtXGuKJ6EsorWnSEfPxUdnYmLCKeAq+yj6ne5JIPA150qBn
WEdsiWynor6KDOLpqHEJHSzKIZ6Bt1uG82R7iW1RWRtX/vEwsR1snjRkBlcQ
2yNhycyKkqvEDtD1jGs1bySeBZvPpvx/PSWeDT+PI6uLe4gdUSBetI4/MoOx
E+acaXv3qz2xM674v+zpCiSeA6PU5qzbCcQuWBCZE322kNgVwiE6/6Za4rnw
cE3mpXUTz4NX0ftBf9llMp6PTv2sjbGxxG4Y5efYPfoEsTtk3w+favOWeAEK
W+OybrlkMQZ0YQcEY7cy1gN/d8x9yP837QKcWxM36s3cTWwX4CerM6+SChlz
HhgzePDxMt5mtnvg3sVltupVjLmFGBMUpVnTRvtCPDyi7ymO2MJ2TyT8fs8i
t4mx3hO2or437WFb2e4Fi4mVWXMeMNZ7YelCQe9AeTbbF+HidnPruteM9Ysw
KH/L846UbWxfjEH72tf+YpzD9sVITrdE7X7GnDdMmlattbbeznZvGI0crXS7
xJjzwUITK4Gf9w62+2CNcNPhg02MOSGsxs04mCr7hu1C5B66PMr+BWPOF+oJ
ukRj51y2+yI92unL6kTGnB/uG/aHPDtHux9KPmTfmP+Gdn8krd1UlDZtJ9v9
0ayPX58qZswtQfnAbKO/t9C+BOEjUufWf0d7AA6e77vd/Jj2APDSRwYNMdrF
9kAIu4YOXGLBGIFoufnj8yIPxvpAnDg8MKxfwtgQiL4629KUOPKDoJbUX5mc
QX4QCjq1UUN2kh+EIamyveIC8oMwQfnhs10J+cH4rdihr+pb8oPB53b2TDpG
fjB+Kuwu2HOE/GA0ZO3t8S8iPwS75vm0bdhLfgjkeXfHRuaQHwLxo/QzZnry
QxBoF6bt/v/7D0VpmWHCFDn5oRhi/NLjViD5oSh08sq0dic/FMtmvRDFziA/
DMYlgdUXR5Efhnyx5ycBR34Yupa1ZNq+Yv9/Qxgqt96+WXiHPp9wnOuNd6us
Zoxw6NICF+38lj6vcNxqPxUSsIP8cJSvFb0elEy+CNvnSesboskXYWVe7xcX
vMkXYappqtkdB/JFmDMiMdx+AvlipNxNOv/AiHwx0p0u4dFb+j6KMd93oqtb
M2ODGLt/THM0uk7fzwhIXB6GOFcwRgSSrqp09/LJj8CFL6URczeRHwG34+Hu
jvHkL0UHv/f2D1HkL8Wxanfuvi/5SzFfdPKPZFfylyLQtrIi34p8CbZ0jGuf
N5p8CXJyI8eLBpIvQdfr9ImNL9n1aJAgzPtMaFMdXZ9SvDqG7u/KGEMKXoJk
xbIcup6lULpVR3asIF+KXXmOlQ7B5Eei+47nIWdn8iPh0nozu2s8+ZFY7PWz
mZwjPxKrK+3d1rXT+REFy+hX/fMaGCMKCwIuVRVU0nkThWnTJM/yChkbomCc
VSqwyCI/Gh3H6s56riA/Gmd81grficiPhkOewp/vQX40znomWd2xJV8G4R7N
St5YxnwZ2rUzn57i0d+Twc9+h67+HTsPZTL49lYPkzyi81KGBvEAnriOcbEM
levi9lytYmyQoUZwwmXbUcYtMtw8UJzx/S46X2OwkLdhuk8aY34MZh5K+Th7
FWPEoCarrjU5mvox+NS77+3wAOrHYMnXPM9+d+rHwIFvae72NfVjsFgz43Ht
ZOrHoDlD3nFoGPXlkKuWN/7wBfXlOPJUYmPZxe4PkGP1k9cVjU8Zy+SY1FBt
eeUu3U/k2Dd72/KXtYyL5Yj2TosLuczYIAevc6NL92nGLXJUCRLu3i+m+48C
KUPPxf25mzFfAd36UIH7Zuor8AxHcwyp1FegOyKjLHEF9RWot37MSeXUV6Dn
sLlRfDj1FXBVVTlXCamvwMky/XSrBdRXIv6iMunabOor4Vb/a93W6dRXYpGH
1/01k6ivRNGLd/JvRlBfiX6nOc63BlNfCYNcbG3Xx+6/BiXabHhmlZ2MW5QQ
WvT0S1/Q/VmFoylV160eM+arEPtxqM70d8ZQ4UJIW4/ZTcYyFepXXc/0MTDW
q9BWXm6+q4pxsQrhJuc7P5yivgo1PWf5qUeor8LbwaaPxuRTX43JDzZKG3Op
r0bob4dbSjZTX42GD62nd2ygvhqcwGbY7kTqq9H5uTyiYjn11ShNOdnWpqC+
GuZ5jiYzJdRX40P8Z/vtwdTXILnP+toAIfU1OC40tdsuoL4G/j+bP7Nxpb4G
p0fkyx7bU18Dz9y4SUenU18DyfqpB9fxqa9BbdFmlWYs9TVoVpRxymHU1+Ja
8rFPccbU1yLj/MaOXI76WuQq+uWGj+z5SqbFzKadn/r/pOctLUomW4QFvGRc
rIWRmclX5a2MDVqc2NF4Y8IDxi1a1PjPtt1/m57fYvG8+P2TKfWM+bF4uvVi
weVr2fgP9c6kGw==
             "]]}, {
            Hue[0.37820393249936934`, 0.6, 0.6], 
            Directive[
             PointSize[
              NCache[
               Rational[1, 120], 0.008333333333333333]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJw1lgs0lHkfxyds22VFl022WiOKXCIKifFVQuM+DIPBXAxDEaLSzaR3a1K6
vpHSrrCpt9QuZW0XIVJ2u1ijYktaKbUrZbPrfSlv73n/vzlnzpzPfJ/P85lz
ZuY5j7FsjUChxeFwbn18/u/1/483bhb6w4oXidlgb+Ande37/auJx+FmstbI
gyRiffhPNXQ9vIZ4GrK1QqZnpRLPQOokcXDTWuJZGDaIWpS8jpiLCrebIzmZ
xHNwKHvwqfUWYlP83l/duHob8TyEZi79InoHsTmc81LMZu4htsDVPiPnaweJ
rVDAX66nPEq8AN0bEioWlxDbovLKqJpfTrwQSXmhrj9VE9shWcMr62wktkdj
vt635RriRUgd9n4p6yFeDL0k0SWLIWIHvOr+s9ROdztjR9Spt3NPmxI7wbDy
3tyrPOIlqD1lVX08ktgZu/PV0sxNxEtR5eBYvOVrYhdsNXQU3m8gdsXsJ84T
yl8T8+DheTfUfNY/GLtB0+rJXeVHDBwwWNd1KJuxCvD9Of3F5cu0u0No01/4
1xDt7qjmz2sIdP6K7csw+U5R490sxqplyPhXoVbqLdqXY8ShaPF8gx1sX45G
2Ztn3UrGHA98s6b/VXYN7R7gWS4y7DTYyfYVON189z/16YxVK1DTnH3pnYZ2
T1RqL1ho5aRmuydCSl8azfiaMccLmuXco1Fjd7HdC/ZNA0VHUhhzvFGVN/pW
/Ih2b/Bncsc7rsxh+0rk5M0NLq9irFqJxOqeXHfT3WznY6zT6oC0A4xVfASV
65ZfeU+7Dya6ioeOK/ew3QctDdU7Drcw5vjieb7zhnlOuWz3hRzpqe3HGHP8
cNF2vQtvhHY/dOvN9+wT7WW7P5qMI1+rv2es8sdak8KSmk/2sT0AOxN1GryE
jFUBGMwQ4tU3tAdCvsl2dEMPYwSiszWc82rKfnZ8IIIzwuek2zKuDcSEFarL
YT6MOUHYqk6ozJczRhCumG8uc8kkPwg3+j/dFLKH/CDoT2y//7aQfAH87fiF
lmfIF0Cdnh8w6wfyBSg7K9zytJZ8ASYanvzy2E3yg2F1SDWaeIf8YFjamFuk
/0J+MPS6V0V0aMgPRnFH78a6NvJDsOevzxf4ESMES80ksUWt5IfAzmYR5/E9
8kPgcjBKbXKbfCF+PHOt9yB9HgjhNn+6u/d18oVoC9Svi75KvhBGR1/u768i
PxS+aXGNk78jPxTrzYeiOk6RHwrHtZd8xCfID8XbN39knSogPwxfWeVx7hwg
Pwyv9w+P6dhFfhg2jl7UfriN/DBkp3u/aaHvhyPCoyUWvHup5ItwxzJxckcC
+SIETDCNGpSSL0LBwvk6ZhHkh+NXX9FQmoD8cFzo9RQ94pMfDp9evqpqGfnh
mDvzfGanM/kRMJrydomPPfkR+FZTeWTQkvwIXNdMffTAlPwIWHkOSvtmkx8J
nWlN0XYG5EdCqI2zJfrkR2LSWb1S3gTyI5EyZZf2GB3yxRhTYXS2ZZh+/2JU
VeBWbz/9X8TY1JQg8HjGuPbj8f52OU8f0v8nCrUz+weu3iY/Cufv2i5/UE9+
FKyPPRBbVpMfhfeOXM/qcvKj8VuMvenmEvKjcSbnsUNGAfnReA2LthP7yI/G
w+JziZwd5MfA0iIyY99m8mOgPaNqu99a8mNgYhVvvySR/BgM/KBlGyQlX4J6
/li7f4oYcyWYLht5zwmk80ng+XeNPM+LsUSCnuO/uAa70fklGAhrS3FwZFwk
QUPI+1c8G+pJwDlXWrLKjHGXBLqaJ0cvG1FfihtPZ7Vbz6C+FLcTmpPr9Kkv
xdkinfSM8dSXopjjPW6lFvWlSDtvLlg6zK5/RVKsmzopy+cd41op+owH6jf0
Me6SQqJlKqp/TtdPGbyqdbPMuhhzZWjLHdlS1s4YMiz89I8i91bGEhlSFgQv
GfyZrrcy3Pjs3fG6G9SXwcq63OJkLfVl6Bnnh+JL1Jdhr1u8x8UL1Jcjabvl
ic5z1JfjKpfXOPs09eWQfXbQJK2E+nJsVXjY/3qc+nKIwzPXiI5QXw6uyDns
5UHqy7F4tzApN5f6cnzYynPyUFM/Fg0D/e6626kfi4K6Owa9W6gfi8CHuXzN
BurH4oL11OSWtdSPxebvowyfJFM/FhXmq5+PJFA/Fkv7TNMsFNSPRdNOnjhe
Qn0F2r+Y71UZSX0F1PlDD3TDqK/A+MqAqnUC6ivAzfPZ0+dHfQV03FLGpq2k
vgIVew+3aq+gvgLXhzWlxaC+Asbd6639XagfB0Ha8zljnagfh0GTfJdme+rH
wab5g/1RG+rHoY67rSHDkvpxeP6b9IzYjPpxuBRdVeZvQv04XMsO2+hjRP04
2Ek0PYKZ1I9H7peKc7EG1I9HS2RngWoq9eMROVi65qQe9T8e71A81DaR+vHw
VDqNThpH/XhU1TgGBOlQPx5jilsvFnKoH48Q/yNj3tL9BEcJ3JRo+f+bMVeJ
tjl+uyoHGUMJl2k/Ko0HGEuU8Ltvl57/mu5HlCgOTFN9/jvjIiWeqQPlx14w
rlUiSHTtT/NnjLuUSJTVja/pon4CPvGVbY14TP0E1Nuct/zQnov/AuecovU=

             "]]}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {1., 588.}, DisplayFunction :> 
         Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"c) ZECMIP:B1(1000 Gt C)\"", {
             FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
             False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.25, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"Atmospheric CO2 (GtC)\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{1, 200}, {588, 1400}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[
              NCache[
               Rational[1, 120], 0.008333333333333333]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxVk3tYjHkfh6cDwhK9ylopUl6l2rYIqXxKhZFMM+momplmmikXW1nK5jDZ
KInk1MGpTZFQW0rehNksiUIlymlzjM4lpAP7vpfv74/3d13P9Vz383nu5/7r
mSb+mS9V5XA4lf+9/nf/droWcv7/wKnI2cWwV52ea+CMbWhpUvxU4nEQ3Ujz
jlj7E/EE8Jd6j1lVYE/8PQZUOWXX/ZcQ6+LmevWQBTp84qnwubo1Yu9RH2ID
RJt09hyMFREb4tXbK9vzBTLiGbDQ+Fj5H/la4pmwlX9tnhG9jtgEFtaJly6k
RxGbAmHJB/sKtxCb473v3ZLS99uILTB2cWbUlR/jiH9CTGheocH0RGJLcPtz
qq727CW2wvwZW1dYLzlAPBudCpO3ZfqpxHPQFmWcpBl/hNga/jJPffnNDOK5
eG7+Onp+9gniecjY5Vg8/uVJ4vn403jmd7UJucQ2UKuJ2rw/O494AZQXjgwu
PlZAbIvx9ryAWNMiYjsUNLzQ0VYtIbZH+p20RxumlxIvRI6Rpc7QgcvEQOzF
ky+F55TfWAE8GOObyy0rp90BGTEZkk99f9HugBuh3qEdkgraHZHikNEXrXKL
dkdc5F9VPXO3ivZFMBPderPw3l3aF2GTaYDWo5ga2p2Q+u7HlElz6mh3wqjH
b8yrVOppd4b7tkujS5of0O6Mz6PnjYp800C7CzZxxkhjhh7R7oK3U0o6DE2f
0r4YHI3867vC/6Z9MU43VZQGvGmifQk+yede4um9oH0JtBJDhjjCl7QvxYWv
dlsqcl/RvhT9SpuyrqHXtHPBqbwmverdTDsXFuZJ49aWvqV9Ge7saHlvYdBC
+zLUtA4dn5vUSrsrAns7z+Zx2ml3xej7q/3/XN9B+3JY1eRbHG7vpH05PIzD
/ig6z/5TNziVRxiZh3fT7oZPWfUB9817aF+B4JxfU5zaiBUroO1nF6p/+j3t
POgUGfFGSnu/MXjIK2jRPKP/gd7nQXIoRa+wgVjJQ/2AS/e9pI/ku+O2vgau
On0i3x0bsnVtbD4RK9wx88vTM+qn+sh3R9eTPJ1mwWfy+bi8MfpS/hAx+LiR
KUq1zOonn4/eIivfpYsHyOfD7Nhxx7o3xBwBzms3qBVvGyRfgMJzhfsafhgi
X4AV0+27TPOJlQKM8nzRmr3wC/keCF434+8FVcTwQJczJK0eX8n3gE/SPo3i
RmKlBxoM9be4mXHwzV+JWRY9gfWribESiq318l9yiBUrIWx1MrN8SaxciVIX
2VodXRXyPeGn49tjLCCGJ7JONvtviCdWeEIwYUBzeBmx0hMupyZ+fdnOfC+c
fjQqbbKeKvleMGxXyb7oSqzwgra13syKjcRKL0x5dshVkE3M8YaWZeiykLvM
94bLjkPe2n3M94bepMrkIH018r2xJyukM9CZmOODdeUv5uqEEsMHc46rfkje
TazwQcnc/okP8pnvg+TnKQmd95jvi34ZN6Gli/m+OPbD74W1murk+6L2tN6I
82bESl9MTgoZPMgl5vhhudUrxfZgYvghM+qC+q4Y5vvBrsI9Jv8w8/3Qax2l
GChi/io8675jEFnN/FXID1ObYfKa+auQWJbQMnmQ+atQFq6yUaA1jHx/PKyz
jHv4b2L4w+tZ1aY8W2KFP2Y9uRH5jEes9Edx8VbeGgnzAxByJ/WoMJL5ATDq
Ty65vJP5ASi4blK28zDzA9AzbHdy5VnmB6LO3+ldzGXmB2LZrOGLSqqZH4gz
45Z3rnnK/EBsm3h7fG4b84WQWxef+HmAeKoQ82tb1pePHE7fE6I8e8Dy5ERi
oRARvLEiPSNihRA1WaeDzC2JM4Q4mive3GhPrBTillF4jcEy4iYh0gSm0jFe
xBwRXoWFTzsiJp4qQpPiQ13NGtYXIa3gN4uCKNYXASeMa21/Y30RapV828jd
rC9C6bW6x+IU1hdhn7x5hOrvrC/CqKVT1LxyWV+Mf11ZMBh0nvXFaD+qrTmr
jPXFeJfu4Zz3F+uLIe6fl9JZxfpinHNb0dZ1n/XFmF2nq1v0hPXF+PClvMPm
FeuLkfQwfUpcK+sH4dT2m4L0HtYPQn5mhfmGz6wfhGF/dNnrckZQPwhV+n0j
9gwnVgThHU+mUv0dcUYQRjZqpjzSIlYGQRG+0fji98RNQXB+wB0r0yPmSPCx
6dzet9OJp0owwSi/286YGBKouKXJ5easL4FptOv0ECvWl+BdbbKLwzzWl+C6
YnVHty3rS1DNE5lvcmB9CQx0bo1/7sz6UhhqaB2ZxmV9Kbrtv9y0d2N9KbC+
PXE+n/WlEFvp1Gt5sr4UbbHlcbd9WF+KOO+dsRJ/1pdi3antWc+ErC9FkmJX
qY2E9YOhMt5v/0YZ6wdj5LWaD4dDWT8YZgmTTmSuYf1gREY88NwTxvrBEMTx
KwLXsX4w/IxysiduYP1g+FS2HL0QxfrByF7j5mUXzfoyzN6x/Jezm1lfhhO5
1fvUFawvw41BR1eXbawvg8Kndk5ELOvLUCuMaIrfwfoy/Coa3ZgQz/oyVFsd
yolKYH0ZGsba3Ocnsr4ctuKQp5P2sL4ct64MOdxJYn053B7yN4Uls74cMZlC
NZX9rC9Hwcn7XMUB1peDG2lyreMg68vRu/pao2sK68txNnWoLz2V9UPweAw3
vjGN9UMwS+bYpnF4BP4BHiqBtw==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[
              NCache[
               Rational[1, 120], 0.008333333333333333]], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0, 0]], 
            LineBox[CompressedData["
1:eJxVlQs01Hkfh0e6kKLaWqxiKinZte5JFx9yTUlj5M7MmDGkNt2UajXSVLtt
tWwppVjSRVbrsrIsTW/EVpvosqnkTsllKSKlt/f0/e0575zjzHl85pnHMfP7
/2eKNvAkozgczp8ff/73/Onxjy3n/x9Qt+n21jIdQ79XwdDZkbbca1ziSQjw
0ogyzDMlnorC8Onu3y+wJdaCivy6NKbahXg6Zk9Ii9DcxCPmwqo489ZbAz/i
WfA4KU151iYk1sfRAp7F1idSYgOIJ7oZ6+ptIJ6HGY18w5a+zcTzYZXkKOi3
iCb+Eko356jtiNpNbIxCvebYl+vjiE1wVjje4uyN/cSmsHHsFsme/EBshh0P
zpS7i+KJzWGRdN5S485RYgvAeVg0+eoJYku0/LnLzc/hNLEVFAurJR1WPxMv
QNimRyq6BmeJrVFoePPK7u3niRdCsVgtT2PBJWIbTLpx9Z1SxGXiRTgn7TG4
p55LvBhl1a8OGWTlEy9BQvWN8dMSrhAvxWaf6pVflBcR2+J1Y2JEnGspMWDp
oKN6efK1TywD9tn/2GZudJ12O5z7a3n9yKZy2u0g9zU8ta+jgnZ73HlYc33U
Tzdpt0durvsfkvV/0b4Ms/JyMoyW3KV9GbTzi4y06qppd8Bg2uOWnYn3aHfA
iqcXeCbhD2h3xFzu1Est/L9pd0RWbreWrm8t7U542b7oiPXWJ7Q7ofR3/pyw
C3W0OyOkIr6nqLeedme8rulPmzivkXYXcPS3WBgKm2h3wZ2WpUXy9GbaXSHs
WOIS0d1Cu+vH76/t3M/t2mhfjpdFk38qPNlO+3IoKZXIdr19TrsbBKeCQ+XB
HbS7YadS70hv5UvaV8Dh3LPRzyy7aF+BIIVhfUhGN+0rkf/oku4qNTqXspWo
VsRX8cvYOXWHjUtBE+/bXtrdUaWyUP7Eso/2VZAvbqqK6yKWrcLB79f6tKS/
ot0DxV9fyk/yef2J4QHD5KgeB7V+er0H+H7vuw8WEys8UDJUels7fID81TDP
maWX8tkb8ldju7zdoqaIWLYaWhUF9huCBslfjSmZZnHWI8QcHhKUX7kOJA2R
z4P/rj7VbaZvyedhhZGyx5EyYgUPbYV9Odqew+R7YtPXmnkDT4nhibPTNVIm
iN6R7wmv04f9nZuIFZ6IiuCanQh8Tz4fU1TuJPTfIwYfV3/NvOvnOEI+Hxv5
y2orcogVfGitG2yH9gfyvXBY28nqzk5ieOHMzOGLO2uJZV44LzCy+1Kbg0++
F14Ef7tn0TJizhqY6FdOG1hLjDVwnB11UfojsWwNDs6wGkjOY/4azNDQTEq/
z3xvBB3w7vnuFfO90fhw5uugSUrke6PdTcQ1MyJWeGOUU+2KzxyIOT4Yjo9J
nOJPDB/c8rdzRCTzfVClmPNbVhzzfSD0KrQLO8Z8X9ioVprHZTDfF/opHjkT
85nvi/FxO23VrzHfF6WyxRcTbzPfD15dxZqFD5nvh4P77DXj6pnvhwsdysnj
2pnvh+1RlWO9upjvD97qbYY7+pjvj8zwWDf5APP9sUXP2HjvEPP9Uci/OWnv
MPMD0Hm8KD/+HfMDYKS5Ufg7Y1kAxo5zeT6WsSIAe2bbXZC/ZX4g6roy4zHI
/EC0OmYZ2vczPxAjQwWHjvYyPxARrY1Rdv/+/UFQMTVawnvO/CAInNMfVzUx
PwitqrHd/3nK/CD0VuspzNn/ixMMUXm73fwq5gcjQ3nm1OwK5gdjzVe5+29c
ZX4wOspvpu64wnwB5nRGa1dnE3MF+KXZVHz3389TgN3t1tkxycQCAbKLxjU1
JrD3FyBobeLFDweIUwUozzkeWRfDegIc+yY9VLaFuEGAzxM8YrvCWV+Id4NL
YwyDWV+IrvjJrdZ81hfipLWvKteV9YUwuRg5oXkJ6wvxvsu1Xm7G+kKonv/K
YcJc1hci8bt1d6N1WF+I9ZuVu6s1WF8E9XVmdZqjWV8Epc6xBe6D7DyJcFxR
Gx7dSSwQQdGgKDvZwM6nCHny/m9+Y+cxVYToR8bdtyrZeRUhNa73XMMfxA0i
VETdr+v/lZ3fENyaW1w4MYOYG4I3p8ZgfhLrh+B2bEHwykOsH4LgtCPPt8ey
fgjKevTjs7eyfggCtrQN9ISz/keWzExZGsT6IeAlDb45xWN9MYZ/5vuqOrO+
GDYVt8YcWMT6YhzW22OkbcL6YrzhjGot0Wd9MWqUJ9psY9e3VDEeVEm4Tuqs
L0bni4RdRsqsL0ZtpKWjxz/s+inBt80bf4l+TMyVIN5DJ/l+GbueSrBl+Q9B
osvEAgke791toH+SXV8lGN3qqqYjJ06VYNpyVTWXSGKFBK2hlWpZ/sQNEghH
n3jq7Mz6odBXOmM13Zz1Q9Es+KLUUI/1Q/GqWKS8UY31Q6EVeD+u7w27P4Ti
tG9JZnYLcWooHnQtrsmoZveLUNRJdBwelRI3hCLrUZKNUxYxR4pDQwsbe5KI
uVKMtY/xerCfGFJk5qedH9hKLJDCZJv7E08x60sRL1v6vJPH+lJYJr4oumbH
+lKIqmdY1piwvhRpLceNdbmsHwZd76NbMzRYPwz8Dr8q6Qd2PwzDnMCyQXEP
sSAM0SVF55LriWVhOLY9f5/6XeLUMGzwmW9bpCBWhAGnVCJTcogbwtDroZNX
ksbuv+FonBeVPPUoMTccqrV/F6XL39v+F6ZXphE=
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[
              NCache[
               Rational[1, 120], 0.008333333333333333]], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 1, 0]], 
            LineBox[CompressedData["
1:eJxV1XtUzHkfB/CfyGUfhIekUiPq0CppCyXbOxWNLrrfR3OfqQe5LpLdkdxW
5Bo22XFJEvKI9CzbMyndLZvLptAotA1SVJsurOf4fP94OmdO53Xe8+7d/M78
vr9J4vhAmR7HcaWfX//7HVWwudm8dRS4//sZi5rxrm5Dyk1dv9gIoXBykTbM
IptiqeOKxbtfLiDzkHDg0Q8rPIPIFkg5ltGh+0FAnoKRjiOLp0BGtoKw64zp
0fBl5Kl4+kvfwPqTq8nWqE3f5V6QuYE8HcqPEK9cpiLbwm7IMXuv/GSyHY64
95/LKdlJnomlTudKplxOJdvj9dDEJlffA+RvELckQ9fke5jsAJdBzjtNXqWT
HSFI2JcwOF1NnoU3umKDWPUp8myU/XuZ1sYgizwHG9u+8rRqP0d2QtDkYHu5
fy7ZGa2jTXsPmlwmzwV3wtTq8R9XyC6w26h3iNd4jTwP2w68exHtep38LcrK
d4VGdRSSXZF/mhv5e1IRGTCq7SrJvV78xSpgVXKCW45VKeVuqHlwq1Z2q5xy
N5wtKNRzPlpF+Xz0Pdu81v7Ub5TPh32nUfaAd3cpd4eDgXih3sUayt3hNDW2
IW3rfco9cE9mkL1z/UPKPfD66aBzq7bVUu4J/m3tg2sX6yj3xPNO55bdbY8p
X4DZ9bmdHxY1UL4ANsX88tinWsoXIpWXXSGxaKR8Ie73d52/sKKJci/0/rDW
cX35c8q9kJKY5/R86kvK+YgzmFg0aF8z5XwEn26e9ezTn5QvwtZDmrPr1ugo
X4TpdZuH/vfNK8q9YTtWPzY77g3l3ug5OWaGla6Vch8UWjsZ7Xdso9wHAg+9
p/wuMueL4Nww9yv57ZT7oqyu/obvd+8o98NpP92MNIf3lPthR0rytdHtZG4x
epy0ofycDsoXo1bf8miVuJNyf5yZaWhmM77ri+EPrfWBfw4rJ6v88eK1/rEB
a//6Yo0/MrRdkzQTu6kfAPOB5kc7i8gIwN0WxYVI0QfqB6B/cqw2t5esCUCB
Wi/t17091A/EI5e7o4J5vdQPhOikR4z3ObIqEDsSApy32PZRPxA9/LSHjefJ
XBA81ltkh1v2Uz8INx7oeHWHyaog5Cgmh0oGfaR+EFwrblzqiiNzwSjr9N9+
rIqMYEzwvndNbPWJ+sGwroieG72RrAlG+9Vl+epKMheCkkeJA62+4vClH4J7
q279+e10sioEC4YJtp/3JmtCIJ0x9vZmJZkLRYX70MaaJNYPBW+L4/srP7F+
KObVu32ad4n1Q3HvTkNmcjHrh2H5KaOen++zfhjsM6+HZTWxfhgqG8xdLrex
fhjqUkMsantZPxxpx++L7fQHUD8crTlZhjXDyapwTOnV/3hvDFkTjs1K9zif
8WQuAjYX3lsHGLN+BN7mGX7/lwnrR8ArNCxnoSnrR2Bcdsz+cJZzkdjSnvfE
dQLrR2Jci8noMYasH4ksxB9uHM36kYj/sepOMfv/uCh8WOdkXDaY9aMwl1fW
1PeJff4orK8yvbymm33+KLjs2Wc7j10PLhobK0vspM3s+kVDuamovOsJ60fD
fMwlrwHs+mqiEe1h4pdawfoCSFdXV+YUsr4A2enuI0R5rC/AVf075QVZrC/A
rP0LJt5IZ/0leC9bfnx1KusvgeTgoKhm9n1QLYGF56Yms+9YfwkG567wnxTL
+jGQTy706oxi/Rj0eSiGnPBj/RjUKKxE1m6sH4PzPTcr0r5hfSGiCq0iXlmS
eUIkrJl1d7oR+3tCtB5ckRHDvt9CIaq57JsGH9j9IcQ2k2kvAp+Q1UJoVlqX
pBax+0WIOZ7r+qszyVohLLuNL4/6kd0/InQVe+0WLifzRFg+801lUSAZIhgO
b53nNJssFKFNahpaZcL2RRg29rFlIsf2RTDWT1YsfsHudxHSNyQkeVWStSJU
80ftjctl978YpSPNhAUHyTwxbAfINzkksPNAjBLnX2c+iyELxeh+/XGnxpOs
EiNkYHXE/a/JajFW75ngajaG7YvR7rw38+duOo+0Ypz9VFgR0UDmJGgznHzD
t5TMk3y+4kOkiRfYeSZBlb1L0suDZKEE8aPP56UksvNNAsGpytXxUrJagvru
JrNUH7JGgmFG3h2vHNi+BEFz4oy2TWT7UmBgfppgMNuX4gS2Sla9pfMVUmR4
/CYoqSULpSiVV/kH3SSrpDC+vr3TjJ3HaimuzQ7psEpj57UU9VKbl3EqslaK
37P6Q3Rx7PyWYaGNtuh0CJknw8V/zT92FGxfhnbrHp/yr9m+DFYdfHu78Wxf
BueiByfu6rH9z+//ZUfL2VZ6fmhkuFOx1L+gjqyVYd/VNeM/lpI5OXq2OiVs
yCPz5NhwJyd3mpo9j+Qw3PMf3YjdZKEcydNaIi0T2PNJjlJH3fR4BVktR3Oi
6S5dMNuXI+mPEcfT5rN9ObYEvU1ZZcf2FfCy0Pt+kxnbVyClqC8tfzjbV+BR
tbLftJeel0IFXjV8eJjbQlYp4PfmCX95LVmtQJZiyKawMrJGgYjDK4/E5ZO1
CjStjLl1JpM9f5Vocz9k+49DZJ4SZht3c4eTyVAio/ZsLH8N21eiPyDyp0lS
tq+EeaPfLbNgtq/E7R37zOHB9pVwv5KjTXZg+0q0+9yc/3oK249FzZHcpLXj
2H4snk011poP7nH9GxVdvaw=
             "]]}, {
            Hue[0.37820393249936934`, 0.6, 0.6], 
            Directive[
             PointSize[
              NCache[
               Rational[1, 120], 0.008333333333333333]], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxVlAtYzOkexwdF5dLuyrViCB116jSDlBFfE4lEqel+mfuk4UGmHJc9hvaw
tNuejdpHziapJKGwXWwyuqEjdFHalEpbErl0IVqdPY/353nOPM8883zmO5/3
O//3Nku6daNiJIfDuf3n+3+fn16vlnP+/4WA2F+6eLZm7HsDyG1ML+zmOTD+
Am8Eh+w921wZm0BYc6E/zlTEeCradzx6NjBOzNgM6ZbjDatqlIy5SJFfy6nQ
38p4NspaZnV/tUnDeA4cZdvKtzjsZjwPyt9ayzq/1TL+C3JnLizy+f4bxla4
MT8qPXHZYcZ/hfhUkdbiSixjW7jpBa9pjo5jbIey4ak+JVYJjHm4HGC8biA4
kTEf9gZ3XpXbnGS8ACLJkpybohTGCzFnYlDDXU0a40VwLznrHPNHBmN7RBY7
mT8dzGK8GDw3dYzh1WzGDvjFXjKeJ7jM2BGLuGY/JurnMl6CvLRq2/AZBYwF
uHJ2cXTakULGS5GueVH7g6WOsRO6bGLH8h2KGS/D4s1j/Dx2lTJejmCDiPKb
z8sZA4/m+G61O3b7E2uBwAsfCqu33WH5ChjNGOvyc/Q9lq+AofqY7ntlFcuF
iK/xu507r4blQtTPGMrnjnzAcmfMMJt/V/mujuXOOChvvNFh0MDylcidvqzn
Or+R5Stxrq19W42mieWrUBKov76s8jHLV2F51Zi1w+atLHeBaeiepQ9D2lju
Aie1GX9zxhOWr0bjcf3wlMF2lq/G6J1not09O1juioVH+jJsL3Sy3BWdffzh
dxO6WL4GpeH714sinrF8DcJv8u/9XtfN8rXI8gwfu1bwguVrEW9lWTI7qYfl
bjArHtBN+viS5W7wffCw/GkWnbN14Pr77jLwe83ydbhulWp+b5gxxx2nn1qb
nDv9huXuWCJYu2qScy/L1yOtItUpromxdj1calsnX47oY/kG5AbaW08e2c/y
DTC2OHFUFcOY44GQiivbJRMGPjE8YIOwMXeOMNZ64Nnx3qSvOW8/sc4DO3Ya
rA7YypjjieS9j5Re9YzhidK0LbYqh3fM90R06ZbOk3GMdZ6w6/W3ntjBmLMR
hxyEo1r5g8zfiIbswn7+LsbajXA+Lh8jKGCs2wjLSMtL/F7GHC/YPY+s97d8
z3wvxJ1YkdMvYqz1Qn/I12Ub9jHWeSH/ecLjK6cZc7zxH2vziZoS8r3hPXtX
RVMz+d5A05p24QD53mjfn9Daa/iB+SJw/kidh+mMIcIEl8YNkZaMtSIIr6Wc
aOYx1olw9HD9plJH8n2wa+GT++rl5Pvg+RxH18nO5Psg0uQ71YhV5Psg1v1a
gZKY44smmVPKnpXk+0Id5ee1XUi+L6zs82s0NL7OF+Xprl9eFJDvB2nk8eGV
i8n3w/RLVdd9+eT7oS1edF/Phnw/JKV7CJX0fBx/dLVF9MbNIt8f4e+9KpJM
yffHvyafmqmaRL4/hoysBE8mkB+AQxFXW1cZkB+A2uH+DZdGkB+AwerCH/GB
5j8AyfoBWZx+Wr9AbEuv7R7qofULhOOvmlhBF61fILRHnw1ef0J+IPrVeokx
tL6cINj9Q65NaiA/CDd46rq3teQHIfzWS5uE++QHYat0uGDnHfKD0XM3KCrx
FvnBWBl8RjhUSn4wQrfk9SXeID8Yia0lck0R+SEYe9068uCv5Ieg2tJxyr18
8kPwOrTKfV0u+SHYUVtkO3SZ/FAI9I2fPMohPxR/D2tIf36R/FB0zsu8Nf8C
+aGQnc/PiMsiX4ygLr38uecYc8V4n7N5Z+tZGk+M3wNKo0ozGIvFsJg86FV5
hsYXIzUPV9+nM04WY8oeP4kbsU6MFIuacUVpjFvE+HlkVIwnMUeCU0Onc/WI
uRLs3v5ge10q9UtgdMs0s4xYLEGW+qKoilgrwReTDu14R5wsgafLW6MlNJ5O
gosm/tbxn/slkHrmdRvQ/+NIsVe1P/wYMVcKBzvnSnt6PkixwFmCl8RiKTIE
DQOFNB9aKWL36VudpPlKlsJFKJ8Wn0n9UshDJEZJNL8tUjy9M9u14PP8y3Bg
n69Fx3nql+GIwuCNBa0fZGjeqzaOyKZ+GSLz8xvv0XprZXiQzilcSvshWYbq
fL3p+VeoX4bscV/KV9D+aZEBZ+rHPcyjfjkOjHeP2VNA/XLcn3kwwPrzfpSj
2e6nwY5C6pfDylnTfZ72r1YOtaI6d5+O+uU4Ms2oI7CY+uU4W/R+tJDOQ4sc
hwd6Mnnl1K+A4ev9Sis6P1wF2pL/WWVdQf0KBFV0HVxE502sAK/z9JzVd6lf
AXXlT25iOp/JCqwx339SW039CiRubio/Q+e5RYGyWfXhD+qoX4mbI3iLDen8
c5VoEfN/EzZSvxImg0f1DjRRvxIzQrZsKn9M/Up8Nzy7yLiN+pXoK/W+GtxO
/UpkL6ickt1B/Uq8mbY9bjTdTxwVUq797am4m/pVMI/pfVj0gvpVWLD06Dzu
K+pXIUpTcuybN9SvQkKVQVd3H/WrMDU885noLfWrIM1JlRYPUr8Kxbf/bcob
ov4wJC2obT31kfrDsKfFLNqE7l+EwelU5d1vRzEWh8GsNzf+oz7dz2HQTJua
GUn3d3IYlAnHHr8wovv+z9/3zB+rGs+4JQw/FM4d1WpM9/8mLJxodjLwK8bc
TVgxtzmvzuTD8v8CuUb9sw==
             "]]}}}, {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {1., 0}, DisplayFunction :> 
         Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"d) ZECMIP:B1(1000 Gt C)\"", {
             FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
             False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.25, 0.95}]], 
           ImageScaled[{
             Rational[1, 2], 
             Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
         FrameLabel -> {{
            FormBox["\"delta SAT (\[Degree]C)\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               Identity[
                Part[#, 1]], 
               Identity[
                Part[#, 2]]}& )}}, PlotRange -> {{1, 200}, {0, 3}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}}, AutoDelete -> False, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
   TemplateBox[{
     StyleBox[
     "\"DICE16\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
      False], 
     StyleBox[
     "\"DICE13\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
      False], 
     StyleBox[
     "\"DICE07\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
      False], 
     StyleBox[
     "\"Fair-Geoffroy\"", FontFamily -> "Helvetica", FontSize -> 20, 
      StripOnInput -> False]}, "LineLegend", DisplayFunction -> (StyleBox[
      StyleBox[
       PaneBox[
        TagBox[
         GridBox[{{
            TagBox[
             GridBox[{{
                GraphicsBox[{{
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                   Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, 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.8, 0.5}}}], "Grid"]}}, 
          GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
          AutoDelete -> False, 
          GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
          GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
          GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], 
        Alignment -> Left, AppearanceElements -> None, 
        ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
       LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
      Background -> Automatic, StripOnInput -> False]& ), 
    InterpretationFunction :> (RowBox[{"LineLegend", "[", 
       RowBox[{
         RowBox[{"{", 
           RowBox[{
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{
                   GrayLevel[0], 
                   RectangleBox[{0, 0}]}, {
                   GrayLevel[0], 
                   RectangleBox[{1, -1}]}, {
                   RGBColor[0, 0, 1], 
                   RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                 "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                 FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                 FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                StyleBox[
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                 False]], Appearance -> None, BaseStyle -> {}, 
               BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
               ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                 If[
                  Not[
                   AbsoluteCurrentValue["Deployed"]], 
                  SelectionMove[Typeset`box$, All, Expression]; 
                  FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                  FrontEnd`Private`$ColorSelectorInitialColor = 
                   RGBColor[0, 0, 1]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{
                   GrayLevel[0], 
                   RectangleBox[{0, 0}]}, {
                   GrayLevel[0], 
                   RectangleBox[{1, -1}]}, {
                   RGBColor[1, 0, 0], 
                   RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                 "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                 FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                 FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                StyleBox[
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> False], ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{
                   GrayLevel[0], 
                   RectangleBox[{0, 0}]}, {
                   GrayLevel[0], 
                   RectangleBox[{1, -1}]}, {
                   RGBColor[0, 1, 0], 
                   RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                 "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                 FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                 FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                StyleBox[
                 RowBox[{"RGBColor", "[", 
                   RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> False], ",", 
             InterpretationBox[
              ButtonBox[
               TooltipBox[
                GraphicsBox[{{
                   GrayLevel[0], 
                   RectangleBox[{0, 0}]}, {
                   GrayLevel[0], 
                   RectangleBox[{1, -1}]}, {
                   GrayLevel[0], 
                   RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                 "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                 FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                 PlotRangePadding -> None, ImageSize -> 
                 Dynamic[{
                   Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                StyleBox[
                 RowBox[{"GrayLevel", "[", "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 = GrayLevel[0]; 
                  FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                  MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
               Automatic, Method -> "Preemptive"], 
              GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}], 
         ",", 
         RowBox[{"{", 
           RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
           RowBox[{"{", 
             RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
    True]},
  "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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.8234368483900356`*^9, 3.823436869743066*^9}, 
   3.8234369057691164`*^9, 3.8234371588794737`*^9, 3.823437335571726*^9, 
   3.823437431794862*^9, 3.823437472108918*^9, {3.823437522497989*^9, 
   3.823437542191017*^9}, 3.823437655869233*^9, 3.8241923888666735`*^9, {
   3.8242290068017273`*^9, 3.8242290191481915`*^9}, 3.824234071528016*^9},
 CellLabel->
  "Out[2122]=",ExpressionUUID->"ec129035-ce8f-4b8c-ac14-ed6743ce1e78"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<ZECFigure.tiff\>\"", ",", "ZECFigure"}], "]"}]], "Input",
 CellChangeTimes->{{3.823437560672043*^9, 3.8234375844250765`*^9}},
 CellLabel->
  "In[2123]:=",ExpressionUUID->"e5aa870b-c35e-4fbe-be2a-7160c886b4e7"],

Cell[BoxData["\<\"ZECFigure.tiff\"\>"], "Output",
 CellChangeTimes->{3.82343758725508*^9, 3.8234376676002493`*^9, 
  3.824192398774006*^9, 3.8242290278848867`*^9, 3.824234077389537*^9},
 CellLabel->
  "Out[2123]=",ExpressionUUID->"ac9d4990-4117-4b21-ad8b-c80f37111d3c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"SICWCplot", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Red", ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
          RowBox[{"{", 
           RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Black"}], "}"}]}], 
       ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"650", ",", "1000"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<Atmosphere GtC\>\"", ",", "None", ",", 
          "None"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<a) atmospheric CO2\>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.80", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"atmosstock2015woFex", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2300"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thin", ",", " ", "Dashed"}], "}"}]}]}], 
      "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.823367228187476*^9, 3.823367239299492*^9}, {
   3.8233678859384065`*^9, 3.8233679001694264`*^9}, {3.823433454493969*^9, 
   3.8234335742921376`*^9}, {3.823433637491226*^9, 3.823433639401229*^9}, 
   3.823433886011577*^9, {3.823435350266816*^9, 3.823435489526012*^9}, {
   3.823435673673271*^9, 3.823435737075361*^9}, {3.824191585039579*^9, 
   3.824191593521619*^9}},
 CellLabel->
  "In[2000]:=",ExpressionUUID->"a30cab50-2c9b-4b40-8dc6-9036bed34094"],

Cell[BoxData[
 RowBox[{
  RowBox[{"SICWTplot", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "11"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "12"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"CW85Results", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "15"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", "Red", ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
          RowBox[{"{", 
           RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Black"}], "}"}]}], 
       ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.9", ",", "2"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<\[Degree]C\>\"", ",", "None", ",", 
          "None"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<b) delta SAT \>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.90", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"CW85Results", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "9"}], "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2300"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thin", ",", " ", "Dashed"}], "}"}]}]}], 
      "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.823368127059766*^9, 3.8233681367227793`*^9}, {
   3.8234337968764515`*^9, 3.8234338136974754`*^9}, 3.8234339202266254`*^9, {
   3.823435497328023*^9, 3.8234356632022567`*^9}, {3.823435745906373*^9, 
   3.8234357585883913`*^9}},
 CellLabel->
  "In[2001]:=",ExpressionUUID->"e1821d0b-b5b1-4d3a-9c5c-ddf9a903ffa4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"LLtemp", "=", 
   RowBox[{"LineLegend", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"Blue", ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Blue", ",", "Dashed"}], "]"}], ",", "Red", ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Red", ",", "Dashed"}], "]"}], ",", "Green", ",", 
       RowBox[{"Directive", "[", 
        RowBox[{"Green", ",", "Dashed"}], "]"}], ",", "Black"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D16-calc\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D16-calb\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D13-calc\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D13-calb\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D07-calc\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<D07-calb\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Fair-Geoffroy\>\"", ",", 
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}]}], 
      "}"}], ",", 
     RowBox[{"LegendLayout", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8234449336258307`*^9, 3.8234450663630185`*^9}},
 CellLabel->
  "In[2002]:=",ExpressionUUID->"40f21b70-237a-42e8-b2c2-4f4f67582b57"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SIFigureZECIPCC", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<ZEC: 420 Gt CO2 from 2018 until 2026\>\"", ",", 
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}], "]"}],
        "}"}], ",", 
      RowBox[{"{", "SICWCplot", "}"}], ",", 
      RowBox[{"{", "SICWTplot", "}"}], ",", 
      RowBox[{"{", "LLtemp", "}"}]}], "}"}], ",", 
    RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.823435855983528*^9, 3.823435951877663*^9}, 
   3.823445071784026*^9, {3.8241916115870934`*^9, 3.8241916342881737`*^9}, {
   3.824191696215638*^9, 3.824191696467532*^9}},
 CellLabel->
  "In[2005]:=",ExpressionUUID->"b44deddd-eb95-4a6c-ad43-be4019809d21"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     InterpretationBox[Cell[BoxData[
       FormBox[
        StyleBox["\<\"ZEC: 420 Gt CO2 from 2018 until 2026\"\>",
         StripOnInput->False,
         LineColor->GrayLevel[0],
         FrontFaceColor->GrayLevel[0],
         BackFaceColor->GrayLevel[0],
         GraphicsColor->GrayLevel[0],
         FontFamily->"Helvetica",
         FontSize->18,
         FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
       "8972496e-f9ea-453a-87dc-8bb58af55c4c"],
      Text[
       Style[
       "ZEC: 420 Gt CO2 from 2018 until 2026", FontFamily -> "Helvetica", 
        FontSize -> 18, 
        GrayLevel[0]]]]},
    {
     GraphicsBox[{{{}, {{}, {}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw12HlYzdkfwPHbImlDklTSKIlWIVrUpyYRioqUYrjWQkaSpqlUJFpsLbb4
npOIso4oiaJlWmxD0lC02krakCS/8xuf0z89r+e5T/d+z/mc865+EW92WyMp
Eom0JESi/3//7ytUgE+SPTZe3rHwnyMEqDJf+c8Oit4lgHO/3aH1Leg9AiR2
rN6qNTHup+MFqCwJCi/ahD4gQFyl25X4q+gkAVydTLZKDaCPCDB8i1WRiVP8
T6cKEDX046lRyWgiwEqvyrTCBnS6AK/8FRtMTBJ++qwAHl43NfzC0OcF0JxV
evfPCvRlAdrXBa2XzUJnC3BBzt/9SQI6V4Bki+RnVwLQ+QLYxXwMDPVCFwrQ
FG19XMkeXSxAqPXIAEdDdJkAS4wmn5ZWQ98TIKV251TDQehH7PVn3s1O68bP
XyXA0/HaMi5N6BoBNgZW+qtVoWsFeDTDZXpbCbpegIgSm8xruehmASbHz94r
Po9+K0DCc4fOBoJuE+C13TbQTUF3CHDUPHlAPR7dI0CM+E5pbhS6VwCtuu9m
nX+g+wXIGrAvz92CFhGwqOl6J+2HliQQHJFaUClGSxP4bXWPibQPWoZAfNr7
+6cXo2UJpBtV3Du7AC1H4JiMc8+guWgFAms9EpOvO6CVCITtbYvItkUPIzDn
kbj/qyVamYDswb68SHO0CoGTfkeqHM3QqgTGr4287WCMViMwscHXYfsktDp7
niTZqOd6aE0CJ5p06vx00FoEnoqHicZro7UJJGsfqRo0Bj2OgGKn/Q45dbQu
gf0RvUtNR6H1CLRGfuoJVEHrE6iuUBxSPRw9iYDtmWnhrkPRhgRWDnde1aKA
NiYg831C2345tCn7PEMe+i+QRZsROBPfs2KcDHoqgcG9RxcPlkabEygZ3tjX
L4GeQUCSKKhJitCWBDKCj8SN5OfPmsAltb1O5v1oGwJqY+97repDA4FEi6Lq
471oewJRti9aX35GOxDoF7tWGXxCOxJYFiPxPLIbPYfAs86Fi+o70XMJnM80
zHDsQM8nYDVIwz67He3C5qtxuaD/Ab2QwAofg19PtaLdCGikvc7TeY9eRCCn
KST13Fu0B4F3dtnRU9+gPdl+VWRqFLeglxKYcnS6nGcz2odAs2ugVEcjejmb
D22HgrgG9AoC3iktfZPq0WIC2jfig++/RK8mUE+kfwTUodcSWKXl6aVRi15P
wPJlhEfpc7QfgWH7Ncu3/oveSODPIxNidGrQ/mweevN9n1ajfyfwtfn5/L1P
0QFs3msMhtpWoQMJhFx9cvDzY3QQgUWnIffSP+hgAlsO/1jn9wgdQuD7k8Q9
eg/RoQTmXXCVar6PDifwvNWqKO0eOoLN64OmbHElOorAaL95pToV6F0E8qDi
dUsZejeBzLpumXN/o/cQMPCMUNtUio5l651ormRWwntBwHdszYsvReh9BJoO
KgXdvsv7wdZ/3tLH0XfQhwg4hkm+cS7kPSHQJZbJUi1Ap7B5ShyqWn+L94Xd
Nx5rtDPz0ccITG2vvxt4E51KQCmv8bNtHvokgb+M5lyXv4EmBKR3ib89y0Gn
sXnSbS9Mv45OJxBzTk4y4Br6DPt50VPybLPRZwmc0rdoUeT9yyQw5rrljtor
6PPsfIwnu7Iuoy8SuFyr0hVyCX2ZgPK5qOK5F9F/sfM1VvGr+gV0NoEjLooJ
rVno6wReliqG52eicwlsai0tTziHziNQFKvh/9tZdD6ByJyRvpMz0LcJ+NQ1
5UqdQRcSiFWs9q5OR98lQMK9F547hS5m94+1KDk0DV3K5llig/5Cii5j82jr
PUSXoCsIRDtkmPeeRN9j92+c5aV7J9AP2P2urxJAU9GPCCx2nRUedBz9mICO
XMfjecfQVQTu1M/a/MtRdDV7nr93u305jK5h501KFHo/Bf2cgKaRfOupZHQt
m3cnRSEkCf2SQGf7tsOuieh6dr+H3H6ifwjdyNbTy9dddBDdTEBYKqFasx/9
moDNsNEal/eh37L9sJor3pOAfs/uY8dprSvi0W0ErhdEXLOIQ7ez9/tQU6gc
i+5g8+/9UaFtD7qLQMP2kKMlMegeAiozpq0VdqM/s97deRnwRzS6l93noy0L
3Heh+9h9Xas4z3gnup/Ap34d1SFR6AECI8OctJsj0CIKXy1dfAt2oCUplOdI
dx4LR0tTMHxtlxMUhpah0Put9qZbKFqWgvfsSwPGf6LlKBgMTtohH4JWYHZc
b/M2GK1EQeGGnFXJdvQwCn0nvbelBaGVKQSkW3/YsQ2tQsGt7EDaskC0KoUG
e+tkq61oNQpX/XVLRgeg1SnMuWpi1vs7WpOC7ZZZtdWb0VoUJDqci675o7Up
PJhv9iaJ/z47joLMhtrZgRvRuhSEFvMW9w1oPQrXJIwKpvih9Skop2U+HeGL
nkThtFWqfs86tCGFFxXtOVVr0cYU8sr377y2Bm1KoUBvU1zKarQZBbH1tofb
V6GnUnAsT1ngJUabU+h+WyhvtRI9g4KuYpPUmBVoSwqxX9qm/1jO+09hePaD
jIZlvP8UYhKD3Yt9eP/Z+um9sMzw5v2ncMfizbLYpbz/FOQfJeRv8uL9p2Ck
Xejh6sn7T8HvwGbDaUt4/yk4X02YOdqD959CkoNC7PdFvP8UFujVDW905/2n
MG15V1WpG+8/hckjbJ5kufL+Uxgd95fCwYW8/xSS9e0jgxbw/lOY4PvK1MeF
95/Cb02hGvbOvP8UTGYp2unP5/2n4OO2kyrN4/1n+9f0j/UnJ95/CvsaW5Vr
5/D+U2h0LtYpms37T+GZmcvmTEfef7a/F0M/HZzF+09hcLv99T8ceP8pWE9K
urLyV95/Np+Zq9442fP+s/27k77EzI73n4LF/bmSGsD7T+HGdKc3Ura8/2x+
AxNlPszk/acg+0NzRbU17z+Fp8v/7S6w4v1nn2dc/p1zlrz/7Plf5ZYnWvD+
s/2aViQfPoP3n0J6+YOY9dN5/ynoOD2c6W7O+0/BdF2ukc003n8K0XVhSyZO
5f2n8HbDiJsqU3j/Kbx+ttFTZMb7TyGlLcykzZT3n+1XiCXUmPD+s/PgkRJb
bMz7T0HbJ1rpihHvP4U032+VJwx5/yl8EbfdjTXg/adgaTq/e/sk3n8KpbeU
lq3hf7+epKDWP0Hkrs/7T+Hyq7hamMD7T6FzhXGXsR7vP4UhoVJ2Y8bz/lOo
Nv1RJq/L+0/hYdTI2L5xvP8UPgZb7nr3C+8/BTJGnFOjzftPITM8QqdsLO8/
e74Le8tytHj/Kbje2nImYwzvP4X8UsNbhzV5/yl8a7qosEeD95/CbbO2pGB1
3n8KN5/ULPYdzftP4dT79QuWqvH+U1A/eSBy3ijefwpZoxzarFV5/ykU7ty+
33gk7z+F48PHbtBW4f2n4NJtvEN5BO8/W79lxyullXn/2X7u8Vz4ZRjvP4WL
F5Yqvh/K+8/eTy5Fsk6J95+dv1cDJo8Uef8pzN+0N7lIgfefwrq+iVNy5Hn/
KYx4UCWbJcf7z9bXLFxVGML7z/oUqO6TKMv7TyG1+cS/MYN5/9nrn/TvC5Xh
/aeQkWIQumUQ7z+Fll1adK007z+FUb3l372leP8p7Jw/7pCrJO8/ha56jeWz
JXj/KWSrZq2cKeL9p3DUtTh1yg/8f0o7hY4v3kMnDaA7KOwOWHtD+zu6i+2X
Yc2xUf3oHjZ/SaevKn1Df2b3v1qRlEwfupetn/H4uO+9sfA/UNKwZQ==
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJw113k0V1sbB3AkU0KhJI2X0KDC1SB6cg0lpTcUrhRJJZWkMiVJUlGRUOLs
LSQJSS7NoVEDpRQuct0olDSo2/Se971fv3/O+qx11j57P3s/+7t+Yzw3Ll4l
JSEhMVJSQuJ/z///QgX6KPXB3OX3ffR/hwv0IcnmdEoGHCmQR8Gi2Uc74GiB
jBu73job7v/XMQK97y6J+hoEHxIox75rSnEZnCDQjkdPKgarxPzrZIGshwzg
I9zh4wKNnRcytyEXZgK1N1z/y+EbnCGQqfQD6712sf86WyDbUoNP4alwrjie
T4mpTRdcIJDJAWWP7VVwkUDTvGbc9z0PlwgU1mbb8SUFviSQRUhXk0IkfE2g
UtPr6/eshysESvYLqnd2hm8LlBacVL/WEr4nfn9RzpasqXCVQI2z/un+Ogqu
EUhfc981Z2X4mUBRp5z9cn9ifQ0C+ck+ONzWDTcLdCbA4vzXFrhVoP5/xljX
P4HbBZJJjY4PugN3CuSvsiv/7mW4W6ANPhH+5YXwB4Euk/NKl2z4s0AXFTef
jUiDvwnUUuCpb3IElmBUXiU9YV0MLMXoSOhCNiwSlmbEXU59mBEKyzAyVqpX
vBEAyzGKmr9hdtF6WIGRl+uRBZKrYUVGNnFhblkrYCVGKgmqb1NdYRVGFfla
zS2O8GBG0cplbn72sBqj5Z1eTXNs4SGMFKdVjnewgjUYFR9OtmIEazJaVa28
VWcWrMWo1lHDvGkaPJJRk8mupXeN4NHi+JoxBX9Nhscyevw9bo3eRFibkV60
9P0jevA4RqnREUv0dWA9Rv0Sx2U1j4HHM3r/+kdE6Uh4IqOiu2dqzw6HDRh1
/j254JYGPIVRjvvNaV/UYUNGcVOl/rBUhY0ZeXe9icvu6ycTRnXlrta/KMHT
GZ0aMdPn3AB4JqPEL9o5S+XhWYwcgzpvKcnC5oxomM3RWmmYGEnoxcuclYIt
GD3XPyl/TAK2ZFTZXp4b9wP9bc1oi0ykfNI3eC6j7b2vbU79A9syyvfYnnrr
M2wnruflGrt3n+CFjDZtLk3X+QgvYrTNPOXLyvfwYkb3M7OLTr+DHRkJhr/N
+fYWXiKON7BX3ekN7Mxoh1n72fOdsCujO6rzjo/ogN0YzTJ6vjLmFezO6OFJ
3zTJdngFI+0Dwe2hL2FPRpnVha3fW2EvRn8ePGYa+RfszehgsUGKcgu8hlFz
YEyx0Az7MBpoLlgZN8G+jKQLH0vf/xPewOhq5sOitQ2wHyNbfwNNhXrYn9H8
xDnfzzyHAxgttn2i7/QM3soo8N7nDT+fwoHiedC9m5b7BA5mpEVWB9xq4FBx
PzrV1ZUfw2HifHt8B1ZUw+GMcgtqHUKq4AhGDgs0bxk/hCMZzbFRnNt9H45i
5DdjW+mZe3C0uF9FvT99K+F9jJwUmyUN7vblBaPSD1onu2/DBxjZ1w1/XnSr
Lz8YtVUXRgTfhOPF/VFQODTnRl+eMHpzKuqNfAWcyGh1b3HM4768SRbPw53Z
rmnX4WPi+RxWaeNzDT7OSDev13raVThN7N/782z7X4EZo+QWLauaS3A6I1e5
xAkZF+EMRhfXJ/UEXICzGP0aUXTQuhTOZjS9edwXjRI4h1Fve7lOZzGcyyhe
5r3itfNwnvj+voyshCK4gFGI1ryOtefgQrFexXcezy6Eixh91wp3GXIWLma0
rGry1q58uITRTP+fv9zIgy+I9YnzX5Z6Br7EaG/dyhFbc+ErjMIyf7rbn4av
ieM/vzJCPwcuY/RFx9Op3ym4glFeeJdk40n4JqPwjydGlWbBtxmZFfY7nZAJ
3xXzwLGM+WXA98T5+N/5bncCfsBog6vRVf10uIrRA9m5LTIcfiTeTzbBXq0C
XMMoW37Vb2Vp8FNGe17cDmWp8DNxftl7lXYch+sYxc7P/bQsBW5g1PCHo5HZ
MbiRkUtneZnWUbhZPD+6S058S4JbGN002vm4IRFuZTTowaP/XD4Cv2Q0Uvet
VloC3M6oMeSg0Y7D8Gux3yrCE1bEw52MkoLSzS3i4DdiP/n8PUX7ENzNKCDb
1kfmINwj5seullftsfAHRgmJlXmVMfAnMY+bppbk7Yc/M9rZtaB//D74H7Ef
1byObNkLf2PUda58tUs0/EOsX8TNELM9sASn9x0Pq8ZEwVKc5ALsvGV2w9Kc
snTOmnbsgmU42SuELKqKgOU4zc8xyDi/E1bgVJ2w1CQlHFbkdOLtHpmdO2Al
TlcGOqutDoNVOCUpei9fsB0ezGnPNqc2o1BYjZP0uwenNUPgIZxsXuzIlQyG
NThJjdd81R4Ia3JqbXTwqNoGa3E6LNWmVrIVHinOzyauH9sCj+aU/FR1UnQA
PJZTs5pRnN9mWJvTc//iyS7+8DhOnjPXyFlsgvU4xXqoD5/gB4/n9HF57Gq1
jfBEThUy6V3f18MGnIx/1z3T5gtP4WIevs+sXgcbivVyaqy96AMbc1J8ft0i
ay1swmno3qCXh9bA0zkZ7mspC1kNz+S0PLy+1tsbnsVp6TZLncWrYHNOk+/9
yDHzgklcj0bXGv2VsAUnvZHv3dU9YUtOysUfYyQ9YGtO+ZfrerqWw3M5hcnu
PVTnDttyYvPbV91aBtuJ7w974V/kBi/k5FHp9gf/HV7ESTbQyuigK7yYU237
7pehLrAjp45Y+WofZ3gJp0+bL/U4L4WdOR2buX++zRLYlZPzgJX1vzrBbpyG
xU1N13aE3cV6dbcKqg7wCk49V9bVSC2GPcX6/yia3bMI9uL0Va3gxQt72Fv8
/g27C9UL4TWc1AxC7lxfAPuI/XRpgnKhHezLyXSK/f70+fAGTi8OPDU7bAv7
cSrSPjcuch7sz2lq2FOrLXPhALE/vAxTvG3grZxm15WMc7aGAzmNH+rWPs8K
DuZ0Z7dSs6klHMqp92rZQIPf4DBOOjHrNo22gMPF/an7qqA6B47gtLLcu64/
wZGcdHcJTZ/N4ShOlUFHNTvN4GhOP3Xn7m+aBe8Tz98kYepjUziG0xnr+IG3
ZsIHOA23Ux91cQZ8iFPpZC3v/OlwvFjfr8daTkyDEziZPdqdkGwCJ3LKfFUV
EvsrnMzpQqxfcoQxfIyT4wiX19uM4OOcouR3bFrf9/81jVNKzdNJK6fCjJP2
IKdRLlPgdE6DPd5Y2U+GMzi1BSRxKwM4i9NrBSvDWZPgbE6+bzp6DSfCOZw0
e8N79CfAueJ5lPsyZsx4OI/TSZV5URr6cAEnVXnvUSp6cCGnvA+WXbK6cBEn
pea6tz914GJOz5q1dD9rwyWcFqhLHO7+Bb7A6e8TQUavxsKXOHVeCJNrGQNf
Edd7SHpw/Wj4GqcNKyQW1YyCyziFblxddn8kXMEpQnby2lsj4Jvi+Q60s7yu
Bd/mNE3zvMPF4fBdTgE27knnNeF74vw8zZQLhsEPOBVU21zM0YCrOKVKbk7J
HAo/4vSPZ1E+GwLXcPJaJ/k5RR1+KubBEfuAJDX4GadV7gnah1XhOk4Otjfk
Dg6GGzida6odvX8Q3Ci+f+q67x4VuFnsB5PAzl3KcIu4nxrvhHAluFW8P1+O
2bN9IPyS094ZEunBinC7eL/k7+zeNgB+zWlbW4r/FoW+/Bf3P8pSb7N8X/6L
94vhpkGb5Pryn9OyxKEGG2X78p/TUfdJYetl+vKfk7dptqRv/77853StaXuJ
j3Rf/nPaJZmRvrbffvovzEvDKA==
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw113tYjVkXAPAuukwSmtCXJOmmiWJIui5dlEihSUgkQzUxpFyTgxxHUxKl
dHv3TiIq6aZpiiZJEqULSaqJUklCEiXfnrHe8895fs8+79r73WvtvZ4zY/Pv
q36VEBMTUxMXE/v3+79PEAcfJQYs1q4Phf8s4KDj09lfnBLQIRyYqQgypjxD
izjIcBWGZPzvj+8O4yD8iOGRWWvRpzn40j3tYuF5dBQHxi4PdDpa0LHs99/m
b8/VDPvuBBbfR/Wkzm9owsHxqyujzbPRKRys1xZc//gZfZmDPmtZSSer8O9O
52DBHWGZ80l0Fht365SJ9kLnchCZk9nXaIEu4ODbAfGkSVPRRSy++0RfmyGM
X8LBofaWeo/H6DIOjD59DfPIQ1dw8KbOy888Gl3FQY6O+d6PgegaDjxNqpoE
a9D1bD0NK3qfLkI3cnCx5LXOsCq6mYNFUZcMWsXQbRzMvbWpUtCB+/WSgwOH
a9ubKtFdHJikJgm7stC9HLgObuhIiUH3c2DZn+809jB6gIPhlgNGU7ahhzjw
Ha6YVeaEHuFAPGhh47hFaDECjt4SCv0aaAkCmbKQu3UcegyBG/dVarYPYT1I
E6g5OOGo+Eu0LIEQYiSlVoOWIzCm61jmrSK0PAH3PWq97WloBRZ/KNMmJAY9
gUDR+gJXchytSOC11MCTnwPQSgTKA7OjTL3Qkwnc14bfc1ehlQks5FZsjLdC
qxAwD/Xc9WYeWpVAdall+aWZaDUCYvO9z9xVQqsTSAwIneYgjdYgsGWMZKn+
0Mnv1iTQO3F9r18PWpvAu6z7KrLP0boEAn3Kmoer0Xr/7l9gre1ttD6BXYnr
0l/ko+cQsAmt1qu7gjYkMBKTNE2RQ88jsGQg1ivpLHo+gS8yBj2BIrQRe5+J
8hnnDqGN2f765+aN+qNNCLw9pz013RttRsByV7B4ogfagsB23/jz1S5oIOBR
UqFutQxtxfJh5t32fjHahkDUAm52mzF6CZv/rpSPrCHangCYuY366KAdCPiI
9LZITkcvJ3CwOXFq3WT0CgKHDZWzniignQl0ln7NHy+DXsXWe9Cvev830Xe7
EBDX/EyVhtCuBKp27Ghr6Ue7EejID7d90o1eR6Al8FHUSDvandWrx9w4x2a0
B4EGpa5Z9xrQmwjk7TJR31GN3kxAYRV4mt5Db/l3/ZmNBrfRW1m9LErZ71CM
9iYwLSfAIvQG2pfVl+F+3b7raD8CA2NaLQPT0TsI7B+//6zaJfROApI/njHu
pmh/Vk9OJQ71CegAAiftC1+3xKD3sHrI07eWPYveR+BIVGSw0yn0AQJPnWQf
5ZxEBxFwGJ2ze/5xdDCr79SR5BoBWkCg+ETChRNB6KMEHm10KHbbhw4hMC/F
wNw6AC0ksPfq4sAlO9EiAsKb6kWefuhQAqNjh/yivNFhBK7u9Xj1fAv6FIHp
YBxh7ok+TeCvgPNV2RvQZwgcNUoba74OHcXup5vHi565os8RmDpz1upTq9Gx
BOyerbBzcUbHsfk+rFWa7YhOYPn+ZLpI2QGdROCA0N14kh2aEODCj8TMtEEn
s3qcVdBqtRidQuC6pkWivwU6lcDf8n4bs03Rl9n8HVyB+CL0FQJLt+labDJC
p7N8PjIUPfgZnUkgzipj7tK56CwCn+PsGmvnoLMJdLUtV/XVR+cSWKAVTxT0
0PkEnryIkCvRQRcQuPR8UDxYC13I8rfts6H9THQRgbbZCjZqM9A3Cbh4dXd/
U0OXEMjx3F7Xq4ouJWCdFZ/zUgVdRiDMX2j5ShldzuY3sZozMBldQWCiRaPx
2EnoSlZfncYq+j+iq1h9l86JcJ2Ifkgg4/5K19Dx6BqWb7lhg7vj0LVs/ULj
Fnl5dD2Bc5F/a66XQz8m4O/+uuK6LLqRwGBrYuQEGXQTAS2FpXZ7pdDNBNSc
mnI6JNEtbL9ts5PXS6Db2H4/i2trFEO3E7gYUWy64duJ737JzqtM3LGur+hO
9vyLEdGBEXQX60+PBqf9OIzuYfXUWDcp+zO6l4BGp6LtmiF0H4HzZzYckfiE
7iewSk1Acz6i3xMYuuh5yHcAPUDAO2zkjfYH9CCBNOU1D7reoYcIRC4JGrzW
j/5CoLAiwDboLXqEgMAEYhz70KMECgQP7818gxaj8HTN579GX6MlKPgoBDu2
9KDHUDjo+8mjtBstTWHSn08eXelCy1JYI+0linmFlqPgdSjtV1EnWp5Cbd8R
x0MdaAUK1UEhmnteoidQKP5Nqsb/BVqRQvDkCUa729FKFFylNpvv/Qc9mUKE
9tYHwW1oZQo9OoYPT7aiVSh8ertXN7YFrUohzCj6TtpztBqFANODETeb0eoU
RHG5Ox8/Q2uwcbONLu+a0JoU1nrpao/nrc3i1drXGjxF61K4NeGI7epGtB6F
x7cnbd//BK1PoUyryij5MXoOhZzIztMPGtCGFF7qzvAdrkfPY/FPZV7/ifd8
CnMK56/xqEMbUShqvedwthZtTOGL37ugykdoE/Y+U8+3SPI2ozBxymRPyxq0
BQWphRqDQdVooLB52dOIoodoKwryQfnqow/QNhR0CyPjF/NeQuEH68QPwiq0
PQWj+V6qD++jHdjzhrd/mMJ7OYUziv3XPCvRK9h4/nbJzHtoZwr/lCt8Hq5A
r6Lgnfr++DLeLhSs3Y9xCXfRrhSqonebvi1Hu1FYllPkZM17HauP9oTa2Dto
dwqCJdGFb8vQHiz+T96jdrw3UfjDbko0vY3ezPIp0x44UoreQiHvlXWsG++t
FJIa3n/I+xvtzc4PeS5Q4u1LYcduvYUBJWg/Ct9+WTC+4RZ6B4XO4lPiC3nv
pGCn9UU67iban+U33U95tBgdQGFf+VgDL957KBzt+cnmXhF6H5t/tdNKQ94H
KFiWazrH/oUOorDHXWgizjuYQpbHPrnfCtECCh/UdQsb/kQfpWDf3WO9mHcI
O//PzZIzCtBCCrOHblWr8BZRmCxleld0Ax3K5k+JPfYpHx1G4evqzm9beZ+i
7P/j6oVP8tCn2X1CDLXseZ+h8Nq2r+zPXHQUhW4nVUV93udYPuR8ZLkcdCyF
ck9yQZF3HAUxpautwmx0AoWaN+EFw9fRSWx+WR+9XbwJOw/j9859lYVOZus5
IV+5gXcKBXX1mP76a+hUCiulE+ly3pfZfWFS9LQsE32FgntfWrQ573QKlzrm
1uZnoDMp3GlaEGbIO4uCQVd6yZV0dDYF+jHZT4t3LsvHLONwchWdz97XnUxX
5V3A9itaY0bsFXQhW/8x5Qgl3kUUFIffbI1MQ99k9SBQT1XgXUJhaYWFQ9hl
dCmFt9ZdznK8yyjYZlbdEF1Cl1N4EH81SIZ3BYWmcS6JwlR0JYU02ZQp0ryr
2H7pi7qPX0Q/pLDLeXiCNO8aCnEa0mHCFHQtBce7N91keNez83nIPlB0Af2Y
1btNXesPvBspFB6PP/dHMrqJQmBRd8w43s0U9LQV2yMouoXCzJ0BuxV5t7Hz
53PQIZqg29n9nJfwqzLvl6y/hbjdjuf4/k/h7JJFm6fz7qJQ6VMHF5L4/k+h
TvHOBh3evRRsnuXduJrI938Kx067Ohry7qeQMLBpWl4C3/8p3BbEaJvwHqAQ
NOvOtlvxfP+nsFGzuNWG9xAF/2vrwivjTsD/AV0D3n4=
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJw11Xs4VdkbB3AhGSJJiKKbUqmEcun2Rg4hyUh0UVNIUpkYKSo1knJqVEjC
Xqukcp9Iik50QcrJlDDG/RbTxaUSUv3Wb3r3+ec8n2fvZ6+93/e73jVl215H
D0kJCQmtERIS////7xfMwSfJj8tcN56C/xzCAWksS+1IQIdyYBgjXGnXgA7n
oHhSkGuoVsQPCzlI3uxpfm0LOpID1f4lsm0UHcXBjfEun0Wd6FgO1JO7z6/U
F/5wPAdT8rfX+gWiCQdbWhzLbYvQSRwIJfb99lTu9A9f56BT36O51wmdxtZT
sV5YnIDO4mBwe0RV8wF0Dgc2DvlLmp3ReRzseq2QKTJCF3Cwcs2Ji/7j0IUc
hMgoCL/24fqPOLiifsTU6SW6lIN0reoAvxz0Mw4UXtuZOcegKzjwJyFxn/nv
qeRAxz2l3HETuoaDmV/FutsBXceeVzaoNV0H3cRBbXwQnJVDt3HQuGueWXIP
1q+TA6Oye5Vu1ei3HBz/8OFDrgjdw0HKBvmYlGT0Rw6yLkq/XPgHeoCD6msS
dU6B6GEOek25IaltaAkC3ga/RC63Q0sSqJAZoyptjJYm4D5imqb9VLQMgSZL
Y0sNRbQsAcuj+9d4DGFe5AiMmasqp/caPZpAjf1j112VaEUCnxIMjCc/QCsR
MB0My7DKQisTOK7W1dCQiFYhsNtNaqjlNFqVQGKZ0GLtIbQ6AeeqSqWZu9Ea
BNJsHEt/2YyeSKC206j522q0FoHVfw+2fFmGnkwgRizp4ayPnkrgTdl8xdFT
0dMJ6O8PitJQQc8goPHlYsERGbQuATNBnKvp4Mkfnk3A7u5JO8u3aD0CfjM1
Qmkjeh6BIHmbYduXaH0CwpFjROYlaAMCs30lG3/PRxsRuD5O6ahCFnoRgcjW
GS/qk9AmBDrvvJH/cBFtxtaT2uNn+wd6CYEwhwaX9lD0MgIGIoHa/YNoINA1
x1Kl2hdtzr7PoOT+nB3olaz/4pLz+ZvRAgL77yqqHHdCWxOo39ZbHmaLtiGw
zG+8y31ztB2Bd++MHOeaoe0JlD9qdX++AO1AoKPLeUXSLLQjgQViPZoyBe1E
YI+lsaB5AtqZwKhiwZBAGe3C8jfcf6ZWDr2B1f96cH2cFHoTgbMi/+Kw4fAf
diOQ8yBnQcIn9Fb2Pk4TFevfo7cRONK1Y61lJ9qd5euq9EBlM9qTgIJTu3TE
P2gvAln+Lkc9X6G9CZz5uTHY8znah4BgjozCqSfoPQSsBEtXVzxE+xLYoJHt
ZiJC7yPQvn6+V1Ee2p+AuON9tHc2OoDAyKchEwwz0IEs3/9emaVxA32QQOif
OpLaSehgAkvDi1qBQx8mED95hMqROHQIgdenJtXXRKOPsf6Naz69+iw6lN3f
dPJAnRAdRqDSIf1zaDg6nMDT0RPdBaHoU6wfFcVak0PQQvb+TVcixgajzxBY
Oz9aWSMQHUlg/OQ12qb+6HME+j4un7LHFx1FIPXV/og8H3QMgb37zlaq7UTH
sutLLgVEeKDjCGwxGNGtvA0dz+pvsl+U7oZOJLDie6vXxo1owvr9q91vmi7o
ywS+Xbm/+50TOonNs1UWjRVr0cmsHqTQ9bE9+jrLQ2vv3jJbdAqBW9Mcbjda
o9MIFF8bUSotQGcQqMsoXWJqgc4iYJ3SdzMY0DcJ/NxkVSZeis4hUBD4Zfr8
xehcAtXdl3YkmKDzCKS8kzKdsAh9l0DcYVvzy4boAgKaqXfmmSxAiwio+OSm
1s5DF7L7Bwu8TuqhHxAQ/WqvtnI2+hGbb6/avOV00cUEnq3vUK/TQZcSMJS8
WJM3DV3G9tcV1e1kCvoZ289jV/id00aLWX4ycx+fmYSuIPDbqhL1aE30C3Zd
d6fe1QnoSpbPoHkPRGroKgJeQ2YJzePRNQS+i02PKaiga1k9i342NldG1xGY
zumEHlFCNxC405q74LEiuonN3zhfuXEK6BYCcEil1kse3UbA3yZnd/FP6A4C
m5xunJ8ji+4kcNVSqBkrg/6XnS+ac6vkR6LfElB3jIgOk0K/Z/0ViPVkJdE9
LL+PlvpGSqD72H4pM1uo/f3ED39k9Qwwccz5iu4n4DDtVuKaYfQAgeg/DT/0
DKGH2DwaNpoVO4geZusFLtC0HEB/Y+8zcC7pcz9agkJdYgbN/ISWpKD3SdTt
8xEtTSFdp8Fn/ge0DIV4N4mB/l60LIXA9e99H/ag5Sg0Dy7Pi+pGj6bwUm99
pvd7tCKFbUUbTCzfoZUoqIUsWDT9LVqZwmTnQ8JRb9AqFIQ0Rru7C61KoejS
icraTrQ6Bd/mUWfLXqM1KKxSC1ws6kBPpHA7pf7urXa0FoX29Ib+rDb0ZAp+
4nvVma3oqRTGezoLbragp1M4kaSul9eMnkHB4MVIv6ImtC6FqpS0keJG9GwK
Wc91ntc3oPUoHHBQyu+pR8+jkGJz5pYMb30KxxNXpGrXoQ0oWN6xPrn4H7QR
hT6/xUs31KIXUdgso3sr6G+0CYU7CpGNXA3ajIJTskdqcTV6CYXBC7KyPVXo
ZRQOR1m0a/IGCsrhqwxtXqHNKZQO3Ww5WIleSUH696C29JdoAQVH6++zWl+g
rSmYxgwkafC2oZBz+JCV019oO5aviK9SkRVoewruIcvLy5+jHShEz9gSo8Db
kcL6uU8d14jRThQkx1n0nytHO1OInPTKv+YZ2oU9f0vdA23eGygkP/1W6fUU
vYlC/5o5JLsM7cbyKxU7QYL3VgrHNhYusn+C3sby7LP9XUIp2p2Ckckxw+4S
tCcFq5Fu31fw9qKQVxRgFVOM9qYwtPek5NvHaB8KYxPPzLTgvYdCWEde+qVH
aF8KPwX5CT89RO+j4J23Nd+Btz+F+w9dDNIfoANY3vW9uuR4B1IYyBDX7CxC
H6Sg+ejrwJNCdDCFreEXzOfwPkwhYe/ujNP30SEUXNSPLOwVoY+x/Tp1sGId
71AK4WOMDubfQ4dR+DA9e/ZU3uEU9m6aVneyAH2Kwrd1G8L78tFCCmLHdbM2
8T5DwX6RyZ3iu+hICpmn7QwMeJ+jQBIk/ki8g45i8yCg44k87xgKFqOz6w/k
oWMpFLgufdx5Gx1HQeHYoSAX3vEUjL9GfCnNRSdSKCxhZxpvQuH7BWVB2i30
ZQr71J1HafNOYvNp5tcj53LQySyvE3JTZXhfp6AlYxsWlI1OodCjROV7b6LT
KNiJbhvv4J1BocL6ukzDn+gsCuOGk/zX8b5JYdf5gUPlWegctr/jR2oLeOdS
MGy0dLqfic6jMKJ4lYYp77sU4sS3d2dnoAsoPB2ytZ3HW0TZ+VOdeSMdXcj6
qb08Vof3Awqd7cEjLqehH7H575HQqcW7mMIXt0Kb+FR0KYU3P6nraPAuo6BL
Ov1jU9DPWB67Thir8RZTkHqyyTvmBrqCQseLBjlV3i8oLKmPVo25jq6k4Hpx
QoQq7yoKu+eO9bxwDV3Dnv+XwVV13rXsvPCxEMQlo+sofDRVtZrIu4GC/07h
1cSr6CbWn5KoLVN4t1BY5z7HLykJ3UbhKrg2zOTdwfbTgCGXegXdyeq9rz57
Pu9/2Xw497tGzmX0Wwo6XVv+MuH9nkKMz+2qexTdw85DvVpdC959FATy04pL
CX/+U9h44HOaPe9+1n/9kn8qOf78p5DRI792I/P/AId/0WU=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJwt1Xk8V1kfB3AUSYtWWaJ1pL0oScWXKRlJ20SqKUOUFiSPajIyRlnKkrUx
cs9JYxpihCRkT5QkIVGGkpRlrJFH47nP+Nx/7uv9+t1zfuec73LmWDvutJWS
kJBQk5SQ+P/738dNoD6pXj3LfX70rz0Eejlj12WvMNhLoJyTau/8n8A+ArXq
3vjVWfrSiC+L4z3LA7bowUEChWwc+q/RGThUoNd17lotafBVgQJjC37X/gRH
CaRw02DuSu3LI2YC2ccEnap2hW+I49cvPvVVOnxTIJvtWsMzB+FbAjXUNY8r
1PUfcZJAl03/Vk2bCKcK5F0xz0e+Cd+nC7Tc+7srBRlwlkCR5eP6HgTDuQKl
dcj8JXccLhToUJ3P+4tGcLFAo9S2yC+fC5eKv+sXZw78g/2UC2QZIaS8fAVX
CpSho6xSnAnXCDSu9KlTxq/wK4GqtI76/e4GNwi0puHilYsH4CaBjuWlSmwz
gFsEulbhzwbmw20C9eq3ep0bC3cKlKmlJVfegXj1CmR6MKeioxIeEKhm/77C
8kx4SKCt8rXSjjGwBKP9S/OG8i/BUox2LJHbUuQCj2YUXtRf6nwAlmH03mo4
PN8YlmVUFvGg508tWI7Rs01LrVfPgsczStlzJmTrOHgiI5+Ks/Y9/b4jnsRI
yrKmd847eAqjmZlWpyor4Gni+NrDZjJ5sAKjV8fXKaX8CSsyei7LA6ujYWVG
xlI2occD4JmMXIM+Lj/pDqsxki5uDmhwgGczmt49LHH3IDyXkcTT8P7O7fB8
Rm4WgaMvGcLqjFiw+sufVsEajLRVnm+sUIcXMdrUvXzVWSV4CaNd1PXnqfHw
MkZGcW/qsod9RryC0fg3HX0WPbAmI0O1FbvXv4dXifMtGGtvXwdrM3oTZ5T+
6imswyjLz7ghpBDWZbTqlWbo5Xvwekb6u9SjChNhPUYKlecr196AiZHOR7Wl
H3+BDRlZvUu++TwQ3sjo0sGJ+3svwEaMFnd5nDBxg40Z1ddqT6t0hk3EeDpE
RwTaw6aMbIYrzM5ZwWaMNqycwMIs4O2Mgm0UJV6bwTvF/1N50rXNCP5WHL8q
SLp9A2zOqCOhuiZ5NbyH0cGOhOlsKbyXkZeZsXPKV/B+RmNL/JNaVeEDjFpi
k65tVoCtGO0eXTS5aCJszahVzvpv2zHwIUZKOWvmqUvAdow+62fFSH/2HvER
Rj2WT5xGdcNHGWVu3Rei1gofZ7QmcbqqeRPswKhbR0Xjj9ewE6M6/1vVCi9g
Z7G+4ht3RpfDLoy0lKzL9B7BrozUo2d59hfAZxgNnZua+PA+/AOjtjH/XE28
C7sxGgjVCIq/DbuL+RSx8P39eNiDkUdbXH/Tb7Ano7TVmnNmM9iLUeTy1mKH
SPiiuN9PpyzLQ2EfRgEL4g03BsJ+Yr0Wnv9c4gtfZnSnNr/fygsOYFRTMpgp
ex4OEvNzsU5J7lk4mNHXBm2xPi5wKKP+ptyGg45wOKO1b0/KGB2FrzJamPV7
vK4tHCmOT39+eIMVHCXG02hC9dZ9cLS4n8jO0GPmMGNketrdKHwHfF3Mb40v
gU9M4RuMuq7UKk02hmMZ5VsEBlp9Dd9klCT7s5CpB8cxsjPtGpyjC99i9Fq6
fHfIajiREdmk2cmvhJMY+VUUNoctgZMZ3ajwv6KuAacymvPL8Py8eXCauB4v
s+9tZ8HpjPLMG2SnqsAZYn4v0GkoUYCzxP6i9DbBdwqczajztq3uzolwLqNJ
bQu3z5OD8xl9aDyROSQNF4r1o6plUi8JF4n5/OOy0odfLo64WOw3KelT7n2G
HzF6/E1O5+0+uJSRmk6abnIXXCb2ywHfonvtcDmjRarBx4o/wBVifzjkJVX/
Dq5kdGX9EdvBRriakWaen6NqPVzDyHLOqS9GtXAtoz7nF22u1fArMZ9br8xM
qIDrxXi4hR//UAY3iPddWcv9xY/hN2I+hwV3n3oINzHS2BTZnlcANzOKmTwY
PD0XbmEUZxzx0CEL/ijGr3/tySfpcBujR/VerivvwB2MxiW2Z0fehjsZKfve
0RybCHczkitvzHCLg3sZTVm02qAvFv7ESLFcI8k5Bh5gdHtac3evAA8yclxA
feei4CFxf5MTY8b8Av8j3kctG1sjwmAJTso6yfeWBMNSnN5c0/7yIAAezelR
GLthcwmW4VR4erMg7QPLcjpyXeZ1vBcsx0mpQsfM/Cd4PKey6ylvR7vDEzmN
W1cQcPcHeBIndzV1A4fT8BRO7epj2zVc4GmcPvNRF947wQqczgRPHfrjBKzI
ada0yE1OR2FlTtoNFrt1D8MzOWl028+SPQSrcfrLxOjqSyt4NqeUZ+mpid/B
czn17Wiw994Lz+ckE7o4wcYCVuc0EGTu8vW3sAan5zmH76jvgBdx8j2XYDfB
DF4izu+R6d5vAi/jZOZ5pLdpM7yCU0jl4+yqjbAmp3lL11WVGMCrOD09bbw8
Tw/W5qSVk1OYuQ7W4XRC4zf/ezqwLidTSS3PjNXwek7GDS8iszVhPU7hVavK
HyyHidOTWyoq5UtgQ06uev4urxfCGzkNl9+taleHjTid8+lbIzkfNuYU3/Qo
dMYc2ERcr+m7dyvUYFNOBTeVvtqqAptxapSxMT2uCG/nZGjWuDtgOryTU/PQ
i3UpU+BvOZl33RqolYfNOe3Wf39RegK8h5O+/LJGTTl4L6dU781SNmPg/ZwW
5M14FzYaPsBpdIHg9VgStuI00W+obtTwhRFbc4qeYdesNwQf4nTWd5ng9hm2
E9e3Nk/y/if4CKf893ysRC98lJNu87HkTV3wcTFfdj3r9++AHcR4WUZW1bTC
TmJ+OdzYrP4Bdub0JabxG9dm2IVTxKBFTfFb2JVTQNrsv1Ub4TOcjuYe9vtP
PfwDJy57LPZpHezGaU3XWf0lL2F3TulZvTsuVcMenCylTGvbnsOenOQWSFRt
fwZ7iedfx/TulsEXOb28Vjp1dinsw2m14Yodl0pgP04Gbhd7Borgy5xsHSP6
jxTCAZz+NtDZW5cHB4nfp5oobs+Bg8X4ZWYte5gFh3IaP8cnkjLgcE7fz03e
k3UXvsppj+IWO907cKRYT2oOuRnJcBSnlTl0aEMSHM1pF+82y0+AmdhPdO//
+E08fF08P8+37RU34Rtif4m/HXUgFo7l1P/CzbstBr7J6X7d9Xg3Dsdxqunz
lZEX4FucFEJYWEwUnMjJadJ35rqRcBInSY8NRs8j4GQxP50eWjuEwanifCne
f4wLgdM4fVg2RTE+CE4X65FL3jINgDM4bTjdb915Cc7idCXiV91wXzibk/ea
qBV63nAup8MJCYYtXnC+WL+b/BxCPeFCTtuUu28besBFnBw/xMn1/AgXc1Lt
PO/62zn4ESfnQoMey7NwKaeslUXuk07DZZxKprcolLjA5Zzs9L3v/ewMV3Aa
Y+ZziJzgSnG9wZXTh0/A1WI/6rR8nHMMruEUVyD3s6c9XCvGI/u17ubD8CtO
G6uedE6whevF+lWrvV5tDTdw8suW3sat4Dec3pZY9Jw4ADeJ99/KOv/1++Fm
Tvbx0TMn7IVbOC2NTL32lwX8kdN/BjXlU3fDbZwGTbUc/XbBHZxaPSsyrXfA
neL98HFFz/ptcDcna1XnqUpb4V7x/NqylPtN4E+c6nesG/PCGB7gdHq/8ot0
owv0P4xN4tk=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJw11Xs4VlkbBnAiJGSaoqORTqivUUmiw0OFkDBFSoUOVIiYHFIiVEKFJGSv
VUaHUWTknJoSiiSlRCEdqKSDRirq29+4v/3Pe/2udb177X2v53n2OJdtthsH
SEhIqElKSPzv998rSKB/Bnya77A6kv71HoFK+2JXtqfAYQLVZiaZ2TyG9wu0
dMdPfdGjD/Y7SiDfMKec3NXwYYF8DAaGf02B4wX6dUlA1ZNWOFGgqOiidA+t
qH6nCFRV/27QWS+YCZR9z78zJh9OE0h63zsrNcnofp8RyEJ1tKadOZwh0IRJ
x/bPi4WzBNrltGObhwecI9Db2fae3kvgfHF92Dm2cBJcLFDxFTmrJin4qkAl
FW3thq3Yv1Sgvvs2ivZ/wxUC3Y/NCNbmcJVAdtL7plwMgWsECmv00njpAt8X
aNCphqTSRXC9QIe9vneaToYfC9TZXJO8VR5uEWjciK8LpnQir+cCqZx4kBRa
C7eL55UdfNAjD+4QKGBk45D2/+f9XqDdbRcXdobCnwTKsK5eF7QZ7hEoV129
IMYa7hVoekHblXH6sASjw05t36erwwMYLctOGlUsB0szuiDpW1P8AfUgw+hh
yC/dOo2wHKNjslX+w2/A8ozGGwQ4umbCCoxiB1kUjU+ClRgNW9haahoOKzPq
GV14ucYLHsroQXTk9yJHeBij+esyu2SWwCqMPC7FjcmcBY8Q91fQGJytAY9i
ZPe7/npFZXgMo9vd6g0lfQf6rcZItltRr/QNrC46LGnp6AZYg1G7r5XstQp4
AqMl4yc55ObBk8T3Kx1r1p0OazL6+OvVtuAEWJvRG5kCB5sIeCqjcpUtt912
wNMYbXq1N7h0E6zDaOEGXuBiD89g5Of88q6RGazLKG8K13aaA+sxsirvnF6s
Deszavro7Lx8DGzAyLgyY95kJXguo53fLe1mSsDzGZkGGiz2+7i/38Ro797E
Cx+ew8aMZCZsJv4QXsRI94lxdtgt2ITRyBi5G0mXYTNGRkGnjFuzYHNGU7Zd
6XNIgy0ZhVbvvyuRCFsxevWXO687CFszCnrasPJhMGzL6FzMoDfSvvByRv59
hbZr3GA7RvG3pGObHeGVjCa+GZEdaQOvEtctlK+vMYEdGb0YkNdobwivFetZ
adVIfx3YidGAqATh8kTYhdFXZ+3EyaPhDYy6bMtmXFKGNzGq2/w0baMM7MZI
qSBaS793X7+3iOfpbCU59SPszqi3rtOb2mFPRo12q8t8m2AvRnrxgVYV9+Ht
jObskFtnUAn7inn1edvc+hvewShndvZev3zYn9HW2TorjTLhQEY3h6fOmpwO
BzFqa6uP0DwB72akefZm4aJ4eA+jYGXTRTsPwqGMfizpOV4ZCocxkojR15sV
CEcwmnfoW0KeN7xf7O+C7Hm2m+FIRhMMZ2ZKO8NRYn/fTfGpXgnHMFJbaaSS
aQ0fFvOUi56YbgbHMlIPeDfjL4Ljxeebf6O2Th9OYHR6vnGK4nQ4Uay3U45a
q7TgJDF/93yVonFwCqPPJ+KkdEbBqYxGSP11JH8ozBgdD1m2cflg+CSjT9+k
JkpJw2mMfIqKAkp7I/qdzshsHVdK/Ac+w+iApdKRXZ3wOUaGyYFZvm1wBqPc
IA+1XS3wBUbVqp4xCY/gLHG+Pfx06WotnC3uP2mN5bdKOIfRl5SH8iY34FxG
BZGOGawEzmeU1pX6Vj4fLhTn68sfUWEX4WJGwsxQc8U/4RKxvsNL2tLS4KuM
Mm4/nGyRCl9j9FrW686PY3ApI0WHE2nXjsBlYn4BzZ5xB+EKRi3bhn/2Dodv
MQpJ9ZFdGwxXMbrzc+BW+wC4mlGU1pt3a3zgGvH93a65eHvAteJ65pS4I67w
fUbDeaBNiTP8gFGthca2z6vhekZDVc6XzLWDG8T7Pc/5OcYafswoOrDR+I05
3CTOa9Xr45YvhlvE75+Z7L6KBXArI4XOWeZmBvBzRpODKhbe04VfMhrlNnbp
5l/hdnH+3PQmeW34tZifZmPPpQlwB6NxoUa27r/AnYws3R20/jMKfs9I2Sd1
dc8w+COjD8eWlt8eAn9ipNG3zuK8PNwt1nd+eHnCQLhHrKdK9TGREvBXRqNN
SHvft/B+9zJ6HJZ8L7ob/s6oMzn664kPsASnQ03KoXkd8ABO9QcKlza0wdKc
4g/lGsk8g2U4+e65bmzYBMtxKoifphfwCJbntL72juTV+7ACJ1VrmaghNbAS
p9q4nCLXSliZU6rCPP+KMngop+D03WenX4OHcarwuzv71GVYhZPWPimFsQXw
CE5/nF0xRMiBR3G64+c/RSsLHsMpzuGAedGfsBqnltND7FechtU5JTz7Yvj5
JKzBSVky+TlLhSdwyio/Pdc2CZ7E6d4iXZ3BCbAmp3Sbi39WHoG1Oc2d8jo5
LhqeysltzIBOlwPwNE41+tsPzQmHdTgVacp6qobAMzgNHdjs1xsE63KauNA1
ud0f1uOUl7mqvNEX1ufU5H/ldZ0XbMDJwuTFpwfu8FxOYevW1zW5wfM55TSr
BL3dAJOYf7f6owHOsDEnR70Xj9XWwIs4Bb2V9TdygE04aUa7J29ZAZtx6hul
q59kA5tz0rtQtKBmKWzJ6cHnpFMK5rAVp8C6kyuWmcDWnI52NpomGsO2nDJW
h7u3zYeXc1pj/3PuXEPYjlNzz39UE2fDKzld/JwZ+mUmvIqTvv8fb5x0YEdO
ck/NF1dPhddyOpw/eK+RFuzE6WtkSGLhRNiFU8fD7QFzNOANnCTkakeWqMGb
xPw2F3uYjYbdxOefFbC5XhXewsnnuL+k5zDYnZP7LVvtQT/BnmI9ji2vP6sI
e3FSmFwkaS0Pb+fk1Dwn6ZsM7MvpZfX2YxlS8A5O8gsKOl0kYH9Oy7z3HlXr
C+t3IKeGxs0hzV/gIE7rtk4680c3vJuT6a24H15d8B5ObzMydhm9h0M5lWkc
HKH6Fg7jZNnhWvbhFRzBKbbu+K67L+H9nNYOP6qb+wyO5JSU9fqp0AJHcRrc
ahoU8wSO4aQR8fvXkAb4sDhvIu1/C3wIx3JyXt+xy+8+HM/pfLCld8BdOEGc
R+VnJ+yphhM5HRi57NDBSjiJ0+0q4UxyBZzC6b2eqlvWDTiVE9c1u3HzGsw4
nbj0OK/tCnyS0yWLo7PlL8NpYr8Wm82dXgini/1/7Nllxzz4DKflVa45UTnw
OfE8F3eo/n0RzuDUFZbS8uUCfIFTm0m+zOwMOIvTk1/iQv3Pwtmc/MbHW5ak
wzmceiNnrZFLg3M5HV8rfd6Ow/nieasz3bOpcKFYD0GFHT+S4WLxvLtUqlcd
h0vE/x+JvFuQAF/ltJF9ezcmHr7G6fpqZ42wI3ApJ5tz153fxcBlnKIeGJxe
GwVXcPqy5N2buwfgW5z+WTJSa8k+uEqch7kSK0vD4GpOA2/2ei8MhWvEeVbv
41UWDNdyGju60XLpLvg+J7UtuRL1gfADsf8HJYZv8ofrOVl7qdf1/A43cPpJ
6Xt7jA/8WKyfEW8LNb3hJvH+dnmLyjzhFk4Rr2bucXWHWznNGmfqqrAFfi7m
sbi1K8cVfsnJZYuUuvNGuJ2T8fxLL5TXw685DWlWWlDqBHdw2pUxc9LOtXCn
WO9jfjs6yxF+L86j2DMRXQ7wR05XZ+z8lGMPf+J0qnjso4AVcDenz86d04x/
g3s4GTK794o2YfRffHPJZA==
           "]]}, 
         {GrayLevel[0], PointSize[0.006944444444444445], AbsoluteThickness[
          1.6], LineBox[CompressedData["
1:eJw11XlYTlsbBvCkEgqlSMVJuaKEJBpUnjpIhCTJUEimhExFkihpQpOEtNci
nZQhkTJFFCGJSJJCIaREQjrOt77jPu8/7/W79l7zs+490HON8xJZGRmZAZ1k
ZP7//+8vUKKvsq02c+ZF0r8OlkhnvYfDgEg4VKLDPvGut/PgcImyS+/+ON0A
R0t0TLsj7Ve/qN+Okajg+jstYyc4QaL53c+UfgiDk0T7/joevvlwskQxFTOK
attgJlHJQ3ejqcbRv50qkVpDfesNbzhdIhPvtLRZqfAJiVxqbRdNXQdnSTTT
9KOzryN8TqLQ1A+pqsPhPInWx/xqD1ODL0t0eXbXA6a/MP41iQzXyB3XeQ8X
SrSjsTz35BO4WCLO8z/73YRLJPrTwT3I8jxcJlF+y0SvkjT4kUR6y7dG90iC
KyW6O7Tw6ocIuFoiq4HTd7oEwi9Ee8Mf+tZr4HqJFI/lrUr2hBsk2u44/KG3
K9wo1u98r41Phj9J1CfsjZPVOLhVtDc812xqCn+XaJT5SdddBnCHRE5RDl4j
/oBlGBllV5CBOizLKMB0j/Pa7rAcoyKVAaPlZGEFRncMN52t+Y56UGQ0O0z/
xt/NcDdG+nppwR5vYSVGr29uNPpVA/dgJIUfGVJVAfcS75ueamsuhVXF8+Tc
0da3YDVGaYWP2NWrcB9GC+vilTf+V58ajPafPuQ97wysySgoaUm+bwaszaiv
Sg/9s0fhAYxe9TF/pHMY1mHkdadTr7xEWJeRhreiqX8MPIhRD5eAk/P/ux/6
jCY0j/65NBQewqgjvPVEQhBsyMjQJdizfhNsxGhoWesdl/XwcEYHWhRT61fB
xoxm+nleiFsOmzBKetZS574YNmV01t+16wQPeAyjU3aTteznwOaMpr1U67vY
BbZkJLtbXj5pOmzFqNeWL9/qJ8M2jAxWFCo5TISJUePf31fcsIXtGH09aTNu
pjU8ntHw5wpF38zhiYxy2nStskzhSYzuWy75uMUYnsyoq/xEg7lGsCOjkTN2
208eAk9jNGaSzF9TBsFOjFK46kl3HdiZ0a70Q0XbtGEXsb7zezzPaMCujKZ/
O/+zRQ12Y2Tp5NfDVgWey2iq9a7+KcrwfEY9wwqyFLvBHozeHnnpEqwALxTr
zXY+JNcZ9mSkUtfeb98/Eb/txejvwd1WjuyAlzJSGnHX6Ol3eLlY70q/TtFf
YW9GgXpd9jp8hn1E+1Wq21Sa4dWMlH9KQXUfYF9GLyU5m6sN8DpGFhH5vqmv
4Q2MSmRn3ot7Bfsx6lwwTDmyFt7E6PnB7Y0R1XAAo+VHDQ3jnsKBjMziYncd
qYCDGFWsjCm+WA4Hi3qb53a2qgzewYhlufWSLYVDGem06GcY34XDGNl/WzZ1
aTEczii6+8XiI0VwJCPjFqnx9XU4mpFilU/UiGvwHkZ6ZiM3b7sCxzDymZ8e
9fgiHMeo8qP+wZF5cAKjscqRW+Nz4ERGfWhwr5/ZcJKoB/krw5ZnwQfF+fX2
Olt1Ek5mNGT09m3OmXAKo4FFuWvvp8NM9JdT7T0jDT7CSGbwe8fKo3CqyMfI
L+2LOZzGSNVCc05rCpzO6EPsDseIZDiD0fFQh0u6B+ETYn6xAdHX9sOnxP6O
VEj33AdnMYo9ntemGA9ni/lYjvQ8GwOfYySX/fTRoj3weZFfbjUWatFwHqPv
I/S33omAL4q82DklKnQXfJnRzycJM+x2wvkiz2SbrnQOga+J889+mV8cDF8X
92Vw/J+xQXChyC+DvLHugfBNRr+mxO83CoCLGe1d0mT/jz98h9F5O3Wbxxvh
EkYX4spWnloPlzJq77LoRuRauEz0lxlg5r0GfsjIxIsuOa6CH4n+j42zM1kJ
VzCynuVzTXMFXMmouVzbUGEZXCXyyURhQ6sXXM2o+17z+NeecA2j2gStrU8X
wi8Y5Q5aObjMA34lvifapuG358P14r7bPdhXNBd+w8jOsWFioRvcIOantCyu
yBV+z2jUueA1t13gRpFfYzIf33eGm8T5FyZfrnSCPzHqvdRBu34a/Fmc57EX
jS2OcCsjtXl39WWnwG2MbHcev67mAH8X9UBOFwzs4XYxv/u3OttOgDsYtWY7
HJr7J/xLfG9qbTb72cIynCLarfcnjINlOVmd6dp8zhqW46SitTfgyVhYgdO+
EfWjOixgRU5hkyeq65nD3TjZX9Xo5zgGVuK0PaDOwt8U7iHan5mxLtUE7sWJ
JOMr5cawKqcGx9Xq8iNgNU7flmn4mQ+D+3DqoTevatVQWIPTWN1g62MGsCan
9rUfD9YMhrU5+YUPauqnDw/gdMWpwGT2IFiHk/e4zV6JurAup2W+mtue6MCD
OC28Fxmk+Qesz+mU1S2PBf3hIZzMKl9ppWnBhpyGGilkN/WDjcT8A1f3t9CA
h3MKVls1d2cf2Fi0T1y6pFwNNuEUNeehpV5v2JTTlzsWTzaowGM4XXpoZlbc
EzbnVGG7aXb/HrAlp5Hjc003KMFWnFwrr90t6QbbcBrv6NtvcFeYOFlcPa0Z
0gW242SY7l/yQh4ez+n1wtKhJAdP5OSfc2s0l4Uncar1D33buRM8mVNeXxOb
5f+E/7Yjp2fW3cxK/4ancfprpfP90R2wE6f6w/PkpHbYmZP2l+3lXX/ALpym
zjKy9PsGu3I6oV8yuv4r7MYpsqX6xsxWeC6nUVr1Lws/w/M5hR/w3W3WAntw
mpWpWZjZDC/k5BwfEjKwCfbkFDtr1u2kRtiLk5e/XbzKB3ipGK9AvjbqHbxc
vC/nmdGlAfbmFFg78EvoG9iHk0N439zOr+HVnHYlareG1MG+nBrvq6TLv4LX
if7basrCX8AbRD0nrfNRroX9OPWsL9gU/xzexGmCX/EXzWo4gNMF0/BnR6vg
QE6pA7sOH/4UDuI0xnTOuwtP4GAx/sjo7vYV8A5RjxGX4h4/gkM5bRymsHVJ
ORzGSWlDTHHbAzicU+nnkPURZXCkuO8Legb2vw9Hc9riu/RF9j14D6dp+QUp
DiVwDKeQNI+cl3fgOJEfI7bpbrkNJ4j1Nq6oVy+GEznp1a34ceYmnCTyYEPp
gulF8EFO72w+qDfdgJM5LVLS0NxzHU4R9XM+y3tEAcw49emtrvDwKnxE5EF1
+vuN+XCq2P/D5X20rsBp4j5JMhEFl+B0TpllKeNWXIQzON3L1bFQvQCf4FTk
3rH+ci58SuyfdWbTsvNwlsgv44y/1HLgbE4LFm0+fP0sfI7TdYvk0rXZ8HlO
xs4HLHTPwHmcyhe3V5efhi9ycrNwzA07BV/mdI4NuGV5Es4X+e4u1/1TJnyN
k5Fm/Pa0DPg6p+Puiw08jsOFnH5s6dWpbzp8k9P0KPMuD9LgYpE/swMto4/B
d8R5uW07MCkVLuG0n7/VVTgKl3KyqXF/XMjhMnH/bHefDmXwQ7H/W/WyJkjw
I5FXF8sed0mBKzj1jrL/424yXMmprd4qau8huIpTmfpyjVkH4WpOdpd2FGkd
gGvE+xcmxdbth19wGjB6U8CJRPiV2I+wB9v89sH1or5N+zLbBPgNJ9Vm5Srl
eLiB07XtgUbPYuH3Iq/LhiYej4EbOT0qe6O+eS/cxGlnUECGwx74EyfbpznO
Wrvhz+L78myFclMU3CrWv3HF04JIuE30HxKRkxgBf+f0/B5jPuHh9D+Tjrr0

           "]]}}, {{}, {}}}, {{{}, {}, 
         TagBox[
          {GrayLevel[0], Thickness[Tiny], Opacity[1.], 
           Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvTu4jZGhZr7DV6YvdpHRXQ5sh2ebG7Qj+IFGG3MT
JiH4TrzPNy5aheAX/3yc5XkQwXd2zUypu47g5/b+NJ36HsHPKdaw42BeAOf7
zYs8a8aP4P//ca5GRxrBD7yzPC1EDcG/YNtmk2uE4L9XP+GzwxbBv+voV3vK
A8H/efPmzLMhCP7WXyc+MCUg+PNm7jXWzEHwwzO+TROrQPA37J9kYtaM4JtN
Ndnn1o/gx3y2bOqchaT+vIvR3mUI/uXbk5l2bELwpxW48T7di+C3Nf9jZj6F
4IvLS5kGX0Xwy19VtmU9QPBZTO4fLnqD4BuxrbBe+x3B7w0rm3+DeSGcv/1a
h/JpfgS/8f6/h++lEPzKtKoeVnUEX7AsstDXCMGv2FpTFmOL4PMUL02P8UTw
HXcaTu4LQfAX1x5etTEBwV96ascfthwEv8z9U55yOYJf6mR41qAZwRc5djm1
oA/Bf3C8+tWCWQh+zc/0/hnLEPwdm7fnHdqI4Cu+4bG6uxfB11p71F7rJILP
PO9Qqt0VBJ+T92i58wMEfz2L9pGq1wh+5tvNiXs/IvjK12z+//+O4AMAdGiJ
7A==
            "]]},
          Annotation[#, "Charting`Private`Tag$497328#1"]& ]}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{2015., 650.},
      DisplayFunction->Identity,
      Epilog->InsetBox[
        FormBox[
         StyleBox[
         "\"a) atmospheric CO2\"", {
          FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> False], 
         TraditionalForm], 
        Offset[{0, 0}, 
         Scaled[{0.8, 0.95}]], 
        ImageScaled[{
          Rational[1, 2], 
          Rational[1, 2]}]],
      Frame->{{True, False}, {True, False}},
      FrameLabel->{{
         FormBox["\"Atmosphere GtC\"", TraditionalForm], None}, {
         FormBox["\"Year\"", TraditionalForm], None}},
      FrameStyle->{
        GrayLevel[0], 
        GrayLevel[0], Automatic, 
        GrayLevel[0]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->600,
      LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
        GrayLevel[0]],
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotRange->{{2015, 2200}, {650, 1000}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}]},
    {
     GraphicsBox[{{{}, {{}, {}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw913lYzlkbB/CUyhJCJYSyNEkiWwtvvkOZxpbSGOOV7DsVCdUkTZKQZBlD
5ndOk0q0IGRrU6JBRYUkpTRNpZJWKu/vne4zzz/P9bme6/ot59z3/T2P3mpn
+3WKCgoKw7spKPz/+5+Pl4SVdSucO4pqZ/5jHwn6W219Bqyq67KfhMAMDMiq
IgdIGF926M+6GfVdPiJhUoDDiaEHycESYoa2KhU/J5+UsDeA9dww6mOXz0i4
2TzbMWwXOVTCcf/wIK8sMpNw6FjTp3d6DV0Ol+Cxv/HsfU9ylHy/MIfpfV6S
L0uwzNO8FDztU5fjJczSUNeLCCYnSFDMjDt0tIKcKGFgr0GFvmaNXb4r4TcF
64VJ/uQUCQdD2v9wyyWnSyjbu8/+hXZTlx9KsAqZmqzhSH4soTpzmfPS38k5
Eupys6f9WUTOkzBn7Li1J7Sbu/xSwp59BlV5duQiCXFrTvlfCSCXSHB5/arC
5h65XMIX3+lZiXXkSgnhy9v0hum2dLlGwsZXjhOCF5LrJXwuKZMMPcmNEtzv
BUYqRZBb5fXN3znYJJvcLqGbVrl3ZjNZgcG9INWoUKe1y4oMdysjfvT8ltyd
oXjNef27a8kqDHGhoemX/ck9GP4TVuiyPJLcS77ez8pBrx6Q1RiM1rjHm7wn
92VY8tX5kqtiW5fVGUZ223P+wnDyAIaMwa+/vDQnazB4JGw6r+VA1mKY9MQj
feM2sjZDj13fGrw6QB7C0Jjp0+FynqzD8OmHi51mCeThDBPmbd5pnkXWZRjY
nGzq8ZY8kmFVZECaYiN5NMNs26hxhaqfu6zPMCo6zUR1KNmA4a3NiZnB48mG
DO9R5eI5k2zEoFi4+Neni8jGDJN1XS2PrSJPZEh4oRKf5kqexDC2PrNl237y
FIa/zUoqTgWTpzEsvT970EyJbMawsn9m7bYYsgWDSrlSmP4d8gyGdeZ9Tbc9
JFsyWD1qP2idT4a83gNtrK+VkmcxjClWbL31gWzFkJVRq+TYRp4j18Mq54tS
9y9dtpHf13KF6oF+5Lny+hak6qgPIc9n2Ou1KWv2aPJCBoURLnkjjcmLGLQP
RJbFmZLtGQxiPvh/ANmBYWHytinF35OXMPRvejLXz568VH7+u/MGvFtGXibX
k03mvbbV5OUMlix5y5PN5BXy79b4xmkHeSVD3vzUyvi95NUMLuWfT6f7kNfK
+6USoxp6kLxeXm+D5QrmQeSNss8pmZ4/Sd4s9weS7LPOkrcyrDdbX5PKyNsZ
jLWNjh2IILswzJ+if0vrMnkHQ8fel6/dr5DdGELsri+PvEF2Z2DNv566eIe8
h0EpxizfO4XsIfffpHNOBhlkL4aGjN3bIx+RvRn6aEsmHU/IPnL9uv6UbfiM
7Cvv97LUtSYFZD+GPxSGqAwoJPvL68H1kp+8IQcw1ExYeWJdKTmQ4dr2Hd6F
5eQjDP1i7NzGV5KDGBIdz6xyqiYHM8yNuz/OtZYcwqBjv+PKmo/kkwyrQ1iW
aSP5NINjdalNbTP5jPx+U8+0HGwjn2V4E2IQqtxODmW4ZWzcvKGT/DuDZnt0
cpxCO+UPwzjvaTFvFMlhDCb3DLc3dCeHM/h7Zl+uVSFHyPWS+kvf5z3IUQx3
Ct5PZr3I0Qy7rrclLlEjX2a4qblwaksfcixDby3dGb79yPEMqWd+Xt6qTr7K
kLt6vd6yAeQEhu69a/pHDSTfYPj6YNGVdxrkRLmfRo3Z10uLfFvu9/i1LSMG
ke/Kz3PjeMgobXISg2l9dobmYHIKw4lVnYotwmnyvF2Qk5g5hJzOMHHJe/uA
oeQHDJ45JebmOuSHDJ12Ps8LhbPk+/le8d02jPxYtmlk5EfhpwxBpR+kDcPJ
OQxX7PY9yBZ+xqD3Jn+n4QhyHsPgis6O3cIFDJVPLycmCr+U68vRpqlGuJDh
9+PdlDR1yUUMZV/eGpsIFzMYHn52/1vhEtnlSb2+E34n77dl8Nx/fy9n8Hlq
/XCicIXcn0kKmf9ev5LhSHL/gHpx/yp53hiqzEsVrmFISU9YECBcyzBcd+5j
a+F6hq1nHbp9Fu/fwOCsnDPmgnCjPK+bJrp+J9ws1/ct58GlYj1bGYapDFy8
Q/gzg9l3FnZfxH60M7yKjbT2Eu5kONrwaGWT2E8FjkdpGbnrhRU5nn3xfpAj
9r87x50QvmWysApHIKJrgkS99OD49UPtzjJRX704dN5GGJoIq3HkRDWY7RH1
2JdjY3lZRqKoV3WOpHi/lgZN8gCOpZ+LG/SFNTgqg5SKHES9a3Fs7lAv8BL9
oM2xxMpCSRL9MoRjr+0Tvzv9yToc+XPMPZ+J/hrOUR6noVIu+k+XI371KKv6
vuSRHLWLly/+t19Hc3hMrVvUJvpZn8Oh9vufmnuTDWRXDwuoFf1vyHH/+3Wt
pT3JRhwVRRvSc8S8MOYI6ZeifEeVPJGjIMwpn4n5MokjYe7Jeb7K5Ckc1WPV
fJzEPJrGkT6+8JCZEtmMI2Wux74+Yn5ZcAw9l+9eLObbDI4WpzkHLn2l+WfJ
0fH+XLKbmIfgcFw43MKigzyL4+WMkB7tX8hWHDFbZlje/kyew6Gl//6Dm5i3
Nhwjo1+PNWoV+c/hv6NNqUTM5/kcIzZdOBrcJPKfI0/xxYv/iHm+iGOr9eBP
fzWI/Odov3m0LkjMfweOI5Z1RZPqRf7L1y89mfVc5MVSjt373TJdP4j8l+tp
95h3ajUi/zmiRpcZXKgS+c/hteXYRYu/Rf5zdBt23fXJXyL/OT4tCgxyrBD5
L+9fbINatciz9RxqkfvbdpWJ/OeYd85rZafIv83y+7YVLfArEfnPEW1l/0T1
rch/eb01raoCRH66yM/XPS9OtUjkP4fqsbcGfiJv3TiK/uq2svOlyH+ONSmn
nNxfiPznmKx406QmX+Q/x6GfrUqc8kT+c2QcLnXLFfnuzeEc0dKKXJH/HMqf
bu6KzRb5z9FwX6dx8FOR/3L99K32+uWxyH+OWa+uaVdnifznOP1bfvYicb4I
lOs3+OfohEyR/xw/al+M13og8p/ja6V+lXu6yH+Ox0vOrMhPE/nPceXADs1J
qSL/Ocaf+qp5NFnkP8er+04bKu6J/OeoCQxUt7wr8p9D/aqt9snbIv/lfvvv
0gOViSL/Oex6GqyYfpPMOHzODrt45Do5jMNtltvWomvkcI5be6xiDa+SIzhO
vvNz2x1PjuLQm9Y7Iy2WHM0xe9DRC2ox5MscvrVs6A+XyLHy891OMgq9SI6X
+/UViksjyVfl/ctdO1VfnA8TOH5Sn2+6KZx8Q+738PbK6DByIse45lW21eJ8
eZtjzq4FzoYS+S6Huc3uBRvPk5M4jBq8a8PPkVM4ZjZXLyn5jZzG0cPd+PCQ
M+R0jtw/pWOLT5MfyOup+8vGw+K8+5DjbYfykLQQchbHm9eIagkmP5b3/5Lp
IKNj5KccGssLNzsdJedwHHRSjjx+mPxMrr9vfLPTDpHzOPqHq1Y2iPN3gTwv
blo06vmTX3Ksj4ttsfUjF3LoXn/f5OVLLuKYPsOuIUqc54s5Irfb1z/3JpfI
8+CUxacOL/I7eR7sm9ep70kul/Og9KaGrfh/UCH3w70/zN13kys5sm6Ndgnd
Ra7icPWedSd1J7lG3g/1lmEVruRaDs8xE871dCHXcyz0yJpqtJ3cIM+fkaH1
C7aSGzkWvN78dLv4/9Is55HDx9ygjeRWDluf4o6Y9V9m/g/Ph1ic
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJw113lYj1kbwPFsyZZlRCIyyhalmMRQd4umfVooSqHNMsg2MiKpKJSKSpSe
c8hSmTQoSUlE+LUZJLQhkUwbsmT0nne6b/+4Plf88Zzl/p7Ge/g6ePeUk5Mb
20NO7v9///dnhwTLW9x9/61qNvzPgRL0+27VGbq6pdshEphq7bxd14kOk+Bm
ufa9aovWbodLUNnhBTvi0VES5EcOvpffiI6RQN3qUfqz+W3djpfAd3C+2pUY
dKIE1o7czrgZzSS4XjvU1cOyvdvJEthr953dJwV9VoJPSt9Ojez/vtvnJLAJ
dx/msw6dIYHUQ2l9tgx9SQIDo58eLdb40O1sCeQqK6+Hb0fnSlCVq2EXK0Nf
l+B215aI88ofu10owWbXi+eHe6DvSHA6RWXx1zPoYvG9x72LD71Fl0vwpp5N
HzS1o9sPJXD6kJcW64OulOCnbQOzFjF0lQQ9YvInb3mMrpNgT99kP6WBn7pd
L4H2C80KVwP0G/H9t94vXbke/U6CwXX105wS0a0S7MtRijK9g/4gQdPr/co2
7ejPEry0+5QbpvK5298kUD157L2iEVqOwdBBrrKP3uieDHqo6PVy2IfuzSB0
0gS12WloeQYr4gJ3X5ahFRjE75mwpf4tuj8DjwQ101KFL90eyOD8GE+bEA20
IoMS14kDlIzQQxgcWeI18aArehiDPY5Wwd+2oIczsK6/Z7M2Aj2Cwe2F5n0a
k9HKDJ7mh4XuvIpWYXA0r0Zl1n30GAajV531G9GAHstg/OUp96d/RasxGOFT
Wh006Gu3f2Sw4Gl1jaoaWp2Bf3HqGXld9EQGW+//kmxqgp7MoJfh3doaR/RU
Bl+cx/Sv8kRPY/BqrP9O481oLQaX/gw2UQ5Cz2Bwxu/LKM8otK5Yz9V6fpOT
0LMYyG+2P7guDa3HIFXqcpidjdZnsCRi1s79hei5DEwu7Q3/rRw9j0HiGVdZ
zTO0AQOLqXX2bxrQwKDpzzKF8Da0MYN/oxXPlXSiTRlcm6dSktGns9tmwi32
j/QHo80ZtPUZrbBaGW3JoFT5ZYjpeLQ1g+luPS1Kp6BtGcjcA3X66aLtGOxW
yfv2aQ7agYG9o5z1cSP0QgZlVa3JneZoJ3G+tn7cpGSHXsygITNQ4R8ntAuD
Dd4WLMQNvVR8T9IG9xpPtLtYvydx9t9Wo5czOCH/fHOdL9qDQUtRc1r472gv
Bk+yb5T09Ef7MNBJP55gGohexWD4rZLbjnvQaxik993UqrMfvZbBwxUzU+sO
otczCDr0fuuKw+gNDBZf3STLPILexEBP/Z1ibQJ6C4Nb11ITaiT0VnEf3sXm
Z55Eb2Ng3JWV630GvZ1BVePluy2p6B0MDINdhy1KRwcweHSr5XLcX+hABhc8
cu5nXkIHMajvWrbu4mV0CIOLG80io3LQexkUzGnXtc1Dh4n9iV5m9U8+ej+D
KBPnm+tvoMMZhO3P3/mgEH2QwYQ5jYvGFKGjGCx1ejLO8i76kJg/PpFn3WTo
GAaO+82znEvQcQxep+YrzClDx4t5cHfNkp730ccYLPoz0/XS3+hEBj/2mpv3
60N0EgMv1Y8ajx6hGYOuNf76Cx6jTzCoLppyiFWikxmcLlgoe/0EfZqBZtPv
fqOfoc8ysHR21phXhU4V88xh/jLLavQ5BhkbFdPMatDpDJoVtu/XqUVnMHig
puo/oA59QcyvL6c6HpIvMZik3bHp4HN0lpgfESYe+i/Q2QxCTs+e+YCcI+73
TEX7ZS/RuQxeLLowoZp8jYFfwdPBNvXo6wwMnqj7nSffYLC3XCu79yt0IYNh
jzO0bMi3GWgtjZ25j3yHwcpNQ1SvkO8xMHLLMqgmF4vzZB/d+JFcKubxZr21
vRrQ5eJ8D3k6TJ78NwMHXc9J3+nfPxTnZ3NAWxO5QnhuRlYZuVKsl41PTgr5
qZiXZQoG28lV4jyd6r/biFwj1sfxy/Uu+t46cd+twudkkl+I9cm9qO5Brhfz
tOp0jjy5Qcz7gjadk7Seb8T9yAvKn01+y2C93eW4QtqPdwzg5KpGC3Izg/aT
n14X0X62MojIWlxgQG5n8LP8uJPptP8fxPn0C70yktzBIME4WHs7nZ/P4v5p
3dCqoPP1VexXcG6tJvmbmG/Hc1f703n8Luav4Zv2QjqvchxUIyyYArknB7WC
x7FmdL57cxiZtKsj4ClanoP2Ec36v+g+KHDYmC3bVUv3pT+HC7ZujX3JAzkk
2bcbatL9UuTwLTqbW1Sgh3BQSZeb5kn3cRgH51LTTj+6r8M5xGtqa4Y9QI/g
sGMFqzhM91uZw6eIzJEJdP9VOChAad+kcvQYDqNmH8pPpHkxlkP0hw6nI6Vo
NQ7q4xe8iqD58iOHWUWquwOL0eocrnvuAl+aRxM5jC27p+9yDz2Zw5PvRQFG
NL+mcnjPUydq3EFP43A2foRpH5p3WuL7zdXfPr+FnsFB6b6X5lWaj7ocQpQb
RkXfRM/iEF6gV+RJ81SPg1vnatOZBWh9DlZ6o0900fydy6EhZ2PrnWvoeRze
qqsbRtK8NuBQe8P/uEMuGjgseOas8sNVtDGHiZUzCsuvoE05VC4ZnXIgm/rP
IUVHVmFCfTDnYLsgzuVLJvWfQ4arn9E56ok1h6YHQ+KXXqT+c+j/y/k1/S9Q
/zlYKlnfysyg/nNYUxt50f089Z9DzruH0If65cTBL2DKtpRz1H+x30MdvKzS
qP/i/B2QDW5Kof6L71tWEhJ2lvrPwSHGqmQC9XI5B5e7n9tzT1H/OUSMN+9y
TKb+c/BX9+18c4L6z8EwcmWrP6f+czgwsq1hIKP+c+g7/vDrhCTqP4ct3klf
Jx+n/ov9iNSafIn6voHDeZnmtvnHqP8cOsys2wvjqf8cXqUoJVnS+2ArB/Og
mqDSWOo/B+PksjN2MdR/8X2Br364f4j6z6G3b1vJr9HUfw6J7ceqiiOp/xzk
W5abmdP7JIjDsspjQ2+EU//Ffaz8w3TuAeo/h6tv+73K2Ef957CqTfeLRhj1
n8O7/Ct7j+6l/nMYMs7o8AB6Hx3kcPSOpfqOYOo/B29XfcOm3dR/DnPMrRsX
0/sqhsPKy6mTbgVQ/zmErXTp0t5J/eewd8+C34/S++wYhwkBcw/22E7956B7
953tqm3Ufw4X0z9eLdlK/efQS/7REx16750Q96ml7VzMZuo/B/fQhDkdG6n/
HKbH9Qtx2kD9F/9f3y0qcz31n0Pybu7xwzrqP4fQccXffX+j/nP4pTVvlYze
nxnivB8zSdZYRf3ncEV1RGaAD/Wfw4zlz5IqvKj/Yv2zJnpPp/dstpg/q/8Y
ELyC+s/BVM8k9vEy6j+Horsv+mi6U/85/Drv9PKdS6n/Yp7skZ0tdaH+c+jR
HPh87BLqv/j5rleD1jtT/znUr+unk7uI+i/2Z3ezTb+F1H8OXX+ErVzkQP0X
825jXiCj93ophxfzfBLf2lL/OcTdtM2baUP951Dsptfgb0X951A4uXzUTQvq
v5j/rjdd+tHvA5UcXOPT0mzNqP8c1s0bNfiwKfVfzJdz0aEVxtR/DulJkSNH
0e8XdRyqvYILXAyp/xxezngQmjCf+i/We8mztc9+pv5z2HC8eZPKXOo/B7sV
TomL9an/oo+tDk2xetR/MT+zRnv8PYv6zyEzoLan4kzqv9jv04Vl5jrUfw4J
Lo33grSp/2J+3PHsuDqd+i/WY6Hxwg+a1H8OLcUHGjSndhr+Dw1XalY=
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw113s8VVkbB/BTTCKVIimXhFcilTJdZZ50HSkqoTJCNyNJ7skk5ZLuGULF
XiuUGhNJNck1UppeI6mIpKIpIYx7t3e/4+f8cz7fzzn7s9d+1m89a6+JzrvW
bB0skUg0Bkkk///+9xMokONHh11falp++Nf7BWrQSq9eYP2x3yECqUX8E5Bc
Bh8SSNKqnt2r19rvowJpsxRXGTf4pECnLdaGel6FowRSt1c669YLxwoUYGA+
6/Witn6fE0g6Idci/yTMBEogA9OOl3CSQLMibpXvMGrvd4pA67KC5o4JhVMF
UpWZ15b3HE4XiOs2K3KDf/qdKdDe6Pz17/3gPwS67ZT++F4enC3QU7NVPT9L
dfQ7X6C1S/TTP5nBRQLZL2twurgPvi9Qj+fHL9E34Ifi/R93yH5shMsEyhzV
91ulame/KwQKdDC47vcjXCmQr8em1I9ecI1A78KsKp3PwnUC3Vx47Mf2PLhe
rI+6dn3OK/idQL2W0j/XS7r63SRQSKF+0EF1uFWgkgd7sm/OhjsESjRxvHLO
Eu4RaP1Bk9cWW+HPAn0zDGl+5Q9LGLmHpvt4H4YHM8qOb5utdgaWZjTH+pJC
60V4CKMNPG3wkEx4KKPGeCdTr1xYjtGeyEA9i3uwPKODjsWOSaXwCEbKx0Lu
H6+AFRgtMCw8pF4Fj2Z0qtlNxbkGVmIku/17s521sDKjA002+pYvYRVGJZ06
1mMHPJ7RpqXeFytewGqMev+u8omuhjUY7ZK7E7S9EtZkVFOxqdd2YDxajJIN
/U54/QXrMHLZM8ituATWZTRhxZV59oWwHqNJfWRI2bA+o/3DH34LHKjPFEY6
2/78rJYKTxU9XGOQfiI8nZFqaF3Q73HwDEbb9+iFpZ+AjRmlsfO580PhWeLv
iYo+tgHwHEaa5dlxw3bB8xg1eCYXbdoMmzAydCmZs9EWNmW0+6Ph39IrYGI0
1OjF7s2msBmjX2xKpv5iBC9mZF8Zo2+nAy9lZJS+zqBPGV7OyGbsmGsusrA5
o//4+Qy+9An5tWA01kBZNb8ZXsUo8GpHQcZL2IpR/JsbwaGP4DWM1j94lWpS
CFszOsq+bKrJhG0YSZ26eNDlAmwn1i/rVGl9DLyBUcGX3fesI2B78f8T64pv
B8AOYr1ua/equcGOjBI92jft/Ql2ZtT0j0ZF1Sp4CyPbhXNl5hO8TXyew5qh
3Ah2YfRyQfj1kdqwK6Mt7OcX4Uqwmzgf1n6a8kNgd0YTl3kcSOhG//BgNNnG
5x29hz3FvGqtHN/5HPZm9MopvjD7Iewr5nvYOJ+4XNif0drixOSj6XAAI4U3
rtdizsOBjFabdNTfjoL3Mbplpe3aFwbvZzSrwfgn6z3wAUYW+64WPtgBhzDS
/WxzwsEBDmMkl9iboLAaPsTo7jP7vFeL4MOMAp5IpZbPgo+K+WF9I+snw8cZ
XfONCVNWh08yqv5mfM5VAY5kVOXbUFo30J+jGO2Un3BiTzf692nx+iwn+v4D
HMvo5p2nc5VewmcYnZZrLFZ+DJ9jZHLqxaQF9+AERvoGtpHht2EmzmfWO6Ou
NPg8ozsjf9WLSIKTGJVdXnSC4uALYn72rvRVOw6nMPq1qqZB7SB8mVHbi221
C/3hVHG9mCitP7ITviL200eTlvc6w+li/b5zijliB2cw0jbcMMVs1cB+xqhZ
6s1btcXwDXF9edpy1XkD+xuj1Iz26abT4SxGGoMmbAvRHdjvGHU3F8i3qMG5
jFr9QpsCFOF8RkFDNUr05eA7jOw8jjl/kcBFjGQkm33au7HfFjOKedaTJfsR
vs8oMvzKe7O38ANGcWoTr8e/gB8y0rriWDruCVzKqCdcu/7GQ7iMkcd33ee9
i+ByRtuM3a+vyYYrxH61blWRVSb8VNxvVt7ydU+FK8X5mWDj+VsS/JxRXoDf
Rpl4uEasjz89CY6Gaxk5x94LHn8crhPzLTNn8KMw+DUjM/O2rqQguJ5Rjl3y
t2h/+C2j58Y+txN3w+8YBSvJl/zXFW4U+/ukW8WKW+AmRnNlDq3x+QluEfNd
byvXbgO3MkrwbTsSYQW3M3LLUfWZbw53iOv7YtpmmcVwF6Mf4y93Ni2Ae8Q8
yFDJh9lwH6OrZe8DpWbAnxnt7fNLmzkF/ir2d5ogCdSFJZx86sJG1GjCgznZ
RDwJWKsKS3NqDcxpeDUGHsIprim8NUwBHsppcdyEBWbDYDlOBnnj3RWHwPKc
6q2LdPsk8AhObsk6w7o+4X1PgZOHhWz+kG54NKeys/IfDNphJU7Ku8/N2NoM
K3PaHiwxzXgHq3Aar+V4fXQ9PJ7TsKh7C8MG3ifVxOd5NuWYfDWswWnicG+z
5KewJqdsN6/hVuWwFifTR11n5EthHU4n6u/EPi+BdTmdb4q5fusurMdpyw/G
/FIBrM/pvpON/OUceAqnKU9zU7JuwVPF50kwmlx9HZ7OydDLb+GwDHgGp9m3
HS6YX4GNOZ2Zlz087jI8i1PdoR1Tuy7AcziFmlvmOyXC8zgZzVwdWC3AJpx8
HzupbT4Hm3JqM/bf2BMLE6eoZac6z0TDZpz+1Eq7aB4JL+Y0Sr1ymswJeCkn
p+wxK8uOwMs5VQd75SUfgs05NUZ+WRYeCltwGmqWl+J9AF4lPu+egqSdQbAV
p39kZCWegfAaTgufRQUF74GtOa2Rtn9/1he24fSsfoV0gRdsJ+alc0lsqwe8
gdOtG+ru+u6wPacQz9OW7jtgB3G83Y4y2S6wI6evC8c5KW6DncX5Vlw82Xsz
vEWsT4iFYa0jvI1TaUjw/NUOsAsntlZR+78bYVdOwS0KmavXw26cRvptzau1
gd3FvJ16ouxtDXtwksr9fHTUGtiTk+SSeecNS9ib04q9Ep0tK2FfLp7Xprao
rID9OTXFpU1+shwO4PRUX//32KVwoLj+MmStNi+G93HyfvNLo7EZvF8czwG/
dcMJPsDpbGqya9MCOESsj6KXdPl8OIzT+iVSX3Pmwoc45TVOm5k+Gz4sjn90
2P6U7+GjnJb5LCq8MBM+zim6eG3VZSP4pDg/X1fyzGlwJKfLV3b3FRrCUZza
bZOKKg3g05zm33Wva58Mx4r5d+2bOloPPiPev2RE5CzdgfMmJ93KEU2bdOAE
TibeXROOaw2cPzmtLLcdVaAJn+f0qdcuqUdj4DzKaeaSqznG6vAFTrJvL5j5
qMIpYh495cdljYMvc3rgbzpJSgVO5fRNaaK1lTJ8ReyXUerhXAlO55Q2TjOl
azScwWm4RbRgOQrO5LREzsUmdSR8g9Nj3W/X5UfAf3Cy0p+f4iEPZ3Gapu49
tlIOzuZ0yc6vxUwWzuXU4hCqclUGzhfnO8syWGsIfIdTWEOXUow0XCTmadbQ
/BFScLHYTyr37ooYBN/nVFuYoSAjgR9wmlHsfSr8K87/DznlHGl5KfcFLuV0
LSOt8eQnuEysf0MKG9cHl3PS+TS5LakHruD018S6P2d0w085FchXaBZ2wpXi
9VNc6tZ1wM85VX2w+dTYDtdw0utOdz7QBtdyuhFWLaPWCtdxUrl2vOZmC/ya
09q/Hpeva4brOak+kHrR+QF+y+lD9N3mmEb4nVjPGPme+e/hRk5cfezHV3/D
TZw0qtyKI97CLZy+2/Ji98wGuJVT5/19DbVv4HZO/oqpY46+hjvE9fZWqnve
K7iL02qV7fs+vIR7OHXYdLP42tYf/gcw7zhb
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJw113k4V9kfB/BvUowkRItU1mgZUwYpyqeSNiRJkjElql+U0jIqJRIVU9Ki
UdxzUJOShKEsLRiplBIlhEqobEWYUv3ujLfvP9/n9dz73HPuOZ/lHk03b3sP
KYlEMqafRPLv/38/P4FWtbp6f61qsfjP+wSK9TObsWRla6+DBLqxceqSkmr4
oEBVZy7lxPzc1uswgRpXPQgy3wWHC2S3oUZqWh58QiC95vi2Owofen1aIId1
DyaWucBnBbotJEnbXIaZQIunhJurSz72Ol6gCQEd/Scvgy8I5BpX0709EU4U
KGHX+QdZA9p7nSxQvpJlYNsKOE0gbjDBc34CfE2gw1OdFDrb4WyBpAacnTJh
ekevbwlkmeXVONQPzheo0sWN116HCwWKT7X+ObsdLhJogFrT20fjP/X6kUCp
Z2wj5rnApQKtf/IkeF4oXC7O7/nzzM50uEogg0OqBTtr4FqBwhaebm2X7ux1
nUBBRw+YhujBjQLNUty11mEe3CRQdOn5wbvd4TaBXkvFRo30hzsEsl7dutIm
Eu4WKHHD7FDDy3CP+Px7ux3rbsESRk2y7o1+JbAUoznaultUX8HSjBLzggwK
WuGBjEJv1G49/wWWZfTJp/Vq0YCuXssxqmVz99oqwPKMzGfGRZEqrMDo7D3Z
nnQ1WJFRdeSpx/ljYGVGv26fGuqnCauI92uNqG3VgocxOvamqfQnbXgEo0F/
DMy17ruuxqi/v+kKRw1YndGSUeGXVo6GxzByXlpr4DkS1mDUIaOZF6ECazFa
sTw+o6Zv/jqMFJO0HrnKwuMYnSyIWaDeD9ZnVJysVaP9D9ZjAqOSdseH+9rg
SYxSyzoqZzTABoxUi1WcPF7AkxlljXfW6vcENmREeT2X1QphI0a2DVcHZGXD
JoxiDbYXv0uGTRn9vtDQLiUens6oK8bOe+Rp2JyRZ4hmpl4oPFN8vzGG6+r2
wMRomVPACsfN8GxxfnRGO8gNtmSUoRYlt80BtmLUbaLwwyQreD6jEboPHl+d
Ci8U908xoURuPGzNKKZFcaq5Gmwr7odx1LuFg2A78frNbWfMepAP9oy+hd7N
Vm6GHRhpdUgfKn0BOzKy+CovfeAh7MTou7P7V72bsDMjzazpyrevwC5ifL7f
cGUpg13FePdcN/R1OLyKUWaTqp1PAOzG6IZdlLW0D+zO6Ok5pTtn3OC14nyi
ZziaLYXXM3r+RcPzzRx4A6OCPb/bnzWCvRhVxMSZuOnCmxjV51hqTBsGb2a0
Rsa3W0sG9hGffyL3kGY36s02Rpd1tgaYvIV3MNKtebl5TQXsy+gPn/iHCffh
XYxefU/vksuB/Rh56UZNPpgE72V09ODa81oM3sco0Oipd+UxOJDReh3LI6n7
4SBGqxfFtlzaDgeL8em5dsPf6+CDYjzIbCqUOMOHGSXlPc9xtYbDGP3jVdtS
MxM+IubDwKjWoClwOKMEhTxLWx04gpGZla+7+XD4BKOxM9+nL5aDTzFaVTck
8uBX1PPTYv4tmbO0oQ2OYjRTuelHrzr4LCM5TRXX4eVwDKNzj3uGvL0PM0Y6
FYkeL2/CsWL8pPn+JkmD48X6E3zAweoCfJ5R+12r/qln4QuMvMs6A6yOwRcZ
7QuSuyMJhhMZ6Wmw2y93wUmM/sp4u+Ktd1//EtdL+fiW4R5wCqOJ7tp1ns59
/YzR63rnkPrFcDqjSyFhE0Pm9vU3Rip57WdszOBMsR48HyhMm9LX7xgt8vu7
c6EefIPRaBXp1QGj4VuMpuamRlYNhXMZvZ+mt8RFDs5nZHPMgST94AJGyboq
qoVd6MeF4v5ecfFLbYHvMSqL89PIfQMXMeppt0tor4IfMkp32Jk9rxR+xGi4
6uGvOffhEkbbz5spOObBpYzqGiOPDMmCnzK6Zq87+l0KXC72F1nF5W8uwhXi
+nXblUvi4CpGFxWfmJmfgasZvRFOjYo8DteK+f+xRFEpDH4lxvecYWkJQXAd
IwdZ9+hVe+B6RjnpS9yNd8CN4v7012J63vA7RkHXqxtM1sNNYjyO31Lithpu
YbTY9nrnRWe4jZHLpbj3Cg7wR0bBH2bMP2IDdzDK3nMvTn8e3Cn2n2slJ18Q
3C3Gk7tpeuJ0+DMj44a50SeN4B5G6idzXkcawN/E/qHYqJWqD0s47b3FO+q1
YClOep7r2g1Hw9Kcwr+vzjw1HB7I6diJLW+UlGFZTk/+nKoULw/LcboWr1Fp
LQPLczqQ5fVykBSswClM0TSvtgfff4qcVBcFatzvgpU5/RhqHHXvI6zCyefB
pJLqZngYp+N50zxl3sIjOMnqT/jBsg5W4/Tz8SK7EzWwOqeOZx0NXRXwGE5e
zf7bNz2FNTjt9FzOux7DWpwshG0qxx/AOpxKzF/70l14HKfulLyd3/NhfU4J
ujZ5xbfgCZwqhxZLXc2GJ4njJ6bUx16DDThJKnaPOZcGT+Z089td54xk2JDT
gh1ONs8TYSPx/Yq/XZBLgE04hdxN1lx0Djbl5Dd6r1cUh6dzMpONsOiOhs05
Ff9paO8eBc8U90P3lkv1KZg4taakjlh7HJ7N6dPKGPpyFLbklJysFx4dBltx
2rpAPt/6EDxfHF9PPUo2GF7IKbTD9PGjQNiaU4S2w/hz/rAtp5MdXmsO+MF2
nHJ/OTJry07YnlNUZVHw+h2wA6fBEyy7NmyFHTnNaFRx8t0MO3GK1HfzDt8I
O3N60WIrnboBdhHjJfpLdc062JWTvcP+wmEe8CpOrvTP4eVusJs4n1qPD/xX
2J3TbIv8O5/6zi9rOc0b+73C3hlez6leu6X72nJ4A6dxLfZtestgL06bjZ6G
C/bwJk4mpdKXxtrBmzldrbZWvGAD+3A6yz9HmC6Ct3G6nWg88PF8eAenoWVf
Z2yxgn05jTfRHzLSEt4l3m/osrhwFuzHqX2bYtleC3gvp+yWkN/MZ8D7xPyq
fKjQzwwO5HQjN2NrkSkcxOnonnL/GBM4mNOJGSGDfzOCD3JKiXzWtcwQPszp
5bFINbPJcBinmjRr+3EG8BFOI7Wm+A2fBIeL65U0eYfCBDiC0yRJ/ZhB+vAJ
Tv7pkcsGj4NPcboXbvxZRafvfMmpS1jWrKkFR4n1w2+KopFG33lTXK+AOMtF
Y+CYf+uPzsZ16n3nT3G8qgKvg2pwrJgfxqZ6SSPgeDHfPDL3lQ+Dz3OSH6Tt
KqMKX+CUsa88fvpQ+CKnxQuLp/sowYmc2KGQgUlD4CROyrvlWpsHw8mcPv/T
UDlFHk7hlCVv9NdOOTiNU6lv0Jq/ZeF0TrWuLcUqMvA1Tkeq+9etGwBncrqc
+/jQjf5wtpgvxi8ujZCCb4j5tVvTeIcEvsUpP3Ow0rNvOL/ncsrMC5xo9hXO
5/Sx4dHm2C9wAaemsr8eyH+GCzmV73H+aVc3fI/T/G92+991wkVi/J2OyPjl
E/yQ0/YrezKftMOPOA0qfLLL+iNcItbfqIyGO21wqVhvtC+1zW2Fn3Kyzfv9
QEEzXM6p+deoUwua4ApOZcc8VIrfwVVivXlW2er4Fq7mJPPYQu1lA1zLST1Q
/8DGevgVJ+Nof62eOriO07NS/7qw13A9pyKj1Jyxr+BGTvsDP7C0Wvgdpwvx
rgGLauAmTnVK/7OvewG3iP3CqlDGvwpu4/Rl1u6Toyrhj5zG/nCn9fpzuIPT
KEPjQc7lcCennm0RVV+ewt2crs9pdhLK2iz+D+OyPes=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw11gs0V/kWB3BJmBhL8c/4Z8gjRcVMSophT8noMVRXhqasHjIWt1ITRSmP
yHhWRHl09t8jkuYiU0aK9DLjkUepLleKSl2klHBV98z4dtY666zPOmv9fvvs
3/799tHfvGPNVnk5Obki8f7r+fe1X6CNLz12vG/rs/vbIQKF5acFN7u/HPMh
gXI+G4yIaIWjBFJYr2ja+VX/mGMF+vmulrFtAHxEoMNe15RqLsNJAmW7n95U
q/RqzCfE8RMi7Wa5wOkCWfWGbmnMhFkg+jyNzgzA2QLFGfi9zXB4PeY8gYoT
pd+lpcEFAk2adzp962u4ULTtKoNvFw+MuUQgfpdhcCQGLhXH94/RL6yHy8X3
MUOTR1TejLlSIGfH5viqJfB1gYaap4xfFwBXC3Tpt5JO1Wy4VqDchOD7hnVw
g0C/JH/5vPMVfEcga2vKjZ/8dsz3BTpR2uu62RxuE6jswDxJqiPcIVD9VfP3
2zzgLoE6b+1bobET7hboQu+MkPIQuEeglMvzD56Mg/sFWvWf8/+6lwK/EahB
KVw7U4CHBBoubwrVz4FHBTKq2xy5Pw+WY/rGK/nivTOwPFNjnWfR2k9WYHIP
trDQyoUVmW52ZVtaZ8HKTHr5XhMeZsATmT40f+ak+ykeVaYzz/oWaCTAakzq
mc4BLRGwOtOS4zvWHdwHT2aKPDnaZegHazJJ83Nb7m+BpzB17/xQUeQKf8FE
++LUr37Kp5RJLm/N9C8WwTpMM1cedr1lCusyeYxWK7RL4WlMU9pyc3wmwgZM
YQN8O2gY62nEFHoneunUbthYjCclaJxbCzyTad+wsZ3NddiUaeX82xFNRfBs
poHO/CIjATZjUpF0j1rHwl8xbYq0UdYPhOcyGZapdbZuhecxpe+x1ti9BrZk
UtLcn95vC1sxPTm/U8ltFrxInO8Xd+9CLdiG6V3ftq0fx8O2TGsnDNks78d+
IKbi3ZKa423wYnG9s+cnPK2G7Zk8L64uot9gB6Z2n8eKeTLYkenhnWStafHw
cqaEznr9giB4JdP89W26zj/BTkxXR1VvqbjAq5huLQ053kXwGjGfP9TUtM6B
XcTxv97mPyCFXZkG4yW+c5RhNzE//pVrY97iPFgn1ldsXpFaJ7yeaVg6ubG0
AfZg6k3rb4++Am9kUkj1fhRRAG9mepRsXp6fCnuK8SbWzB2Jgr2YsmrOv9i9
B/Zm0pG6bJvqBfuI8QS+Melzgf/JlDcQsad3CbydSeLkmqxtAfuJ9VV0tmiX
AbxLjC9g2aOhSfBupmabh6YF4+AAMR+uW8JjX+G83Mv0ueDecPIRHMR0KVPp
eXMjvJ/pozQlZVEVfIDp+6QZqXXFcAiTsV5DVmwWHMa0+MHRDXuS4ENMsyU2
P8VFwJFivbUtdqsPgKOYvMKjKhd6w9FMrv1Sk9vucCzTvGVPNONXwPHi/k50
HRfwDXyEyaDrvVekOXyMqSRPp+yKPpzEdO2oua+uJpws7r+M7c+yFT/1FybH
MvuTq4fRf1LF9Qyu6DbsgdOZTq54Zz31IXxKPC92+b2zbIKZaeSA/4GAG3Am
U7W9r8WDUjibyblDd69HAXyaKV5D7dcJDOcxaSzPt6xPhPOZ+o8l/3zxMFzA
NPSg42blPvhXpv/lWCY+3wEXMi04JbH52hMuZnopGZqe4gaXMFU9CL4g/R6+
wLR9z1GXS9/CpUzn5kd777WEy8R8vly+fvUsuJyJ5TzSlk6DrzAl71VLdJHA
lWJ9FB8oDp4IVzGNSgLvhnxE/78uft+x0xusXsA3mbSfXHg27S5czdRkPWnz
wkr4T6byez4VIWfhWiazmNbBt8lwPdN/h/vGnwiDG8T6bSl+unU73CTG71SV
5bEOvsPk1+5kH+oAtzCFlxi31M6F7zPFNZb6kh78b6ZCiZZOqwrcxlT/46B8
+hD+d9qZ/lFTQGFP4A4mq3Czkdgm+DHToQpl90sVcBfT8RM/xqieg5+K4wc2
XTuYCneL+90nbaFmFPyC6QeHDTP/8Id7mALfzW7I2AL3ifM3hvofXQ33M+2c
arIpyw5+zfRHp1VH0xz4DVOZqby9ng48yFQUJP/48ER4iMl09I6G6nDvmEeY
6iSGC84+g0eZbHKTznm2wB+Y3Hoq2hbcgOVkVCLRNjMqgeVlZJ/5SM0kC1aQ
kWOEVv/SY7CijHoMPB2CQmFlGVnMUYm+4QdPlJGJzwPLGRthVRll+WrUnnKG
1WTkQp61s+xgdRktm157uc4MniwjH9sEk0O6sKaMNNcbpTupwVNk5NtsmDP7
Qw/6v4xCt1ve+7IPlspIO1ChWr8d1pGRQ5+RulV9j53ezN9b54iuq/3r6rH7
P+1420s=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJw11X081+caB3AnD2E5iVghpRoq51eE4yG5XtasUdZphqyjJ5rHodU8tSWa
Vic9eTjVGfdFJYpDkTA1T5UabXX0ZGo/pZJ+/VL9ZmbifNvv0/16fV/f1/uP
7/e+7+u+7uuyWhu7PGyMhobGYel5/f5zbBa0+llI7KsupeefThU0Y+axObPK
nqm9TdAp7YfKRM9+tb8RFDSrfsFIMbxLUMT5rR72xs/V3iuo7mSexztfwdmC
ct1NQvf1wQcEfaA5vHdF0Au1vxWk6qjRCr0Is6AOpfXMg39/qfYRQenTf/O6
XwwXCxo+XPS5zFyldqmgVr2zDeN3wxWCXKoNf1iihKsELfA3XTF+4a9q1wiK
bGp7uWgLXC8ouuh50NFKuEGQ3HiuR00X3CLoQb9efOcfcKsg468Dk7yMBtRu
E/TY3vm4lhX8k6ClPz+5ajoL7pDi0Zq/5aM58C1BTZP+3b/ZFu4SFD4xq8zz
zfdyQeXjquSOpnCPoMx8juoZC/cKovdLWi4MYD0KQS82jinwvg/3C8oK2Brf
1A6rBJWmVFVnVsODggx/LZ33Ig8eFjQ/IkA5bxuswRTdf80zPQIew3TR8flu
cz9Yi+mo/pZp1g6wDtPO2GcNl0xgXSbHvO0htr8j/vpM1u36Wau64HFMH4si
yx3fw39lsrc59fF3hbAhU/6PRWl6GbAR0z+1sz22RcATmXIi7epcl8KmTBuu
RBs428OTmBLvNEalm8BmTGOsklbPHkL+WDCtneo4av8LbMn0eEiatQWeJu0n
87hz0nF4OpNtYpNJ4154JtPis7djkhNga6a7k5e5HguBbZlK3d8+v9gbns00
f/zZC6tksB1TyvaxcQpTWMak/0loqnIU+T9P2p9VuH/YY9iBqUC57+WH/4Md
mdZ3p1mUnYWdmZwmdXyYUgy7MH2iqrhdkwW7MfVmB3au2wIvYNpzPW9pchS8
kCnuUc6EoUCYmGprIxXyRbAX01s3duyzc4AXMe3QlRV1ToW9mZqmrDzfawAv
Zjo4e026/zDuuw+TpUweZ/4EXsJUH5Yyxb0T9mMyXDnT7OQleBnTgd0WfyTX
wsuZmpPKV+SWwP5M3X1l1zUOwQFMx/ikac1OOIjJJH1ue20KHCzNNz6kUjMG
XinF45UqMysEDmFqz75s9+kyeDXTjMrlUZu94LXSfiZr2l91hEOl/LLh+HU2
8Hqmq/KNf7M3g8OZjC4mxrsYwJFM2y+EBSZowNHS+S9o0Fa8RP38jCm++1p5
9iM4jqlwHufE/gxvYNKtvayZ8iO8kenRfzZ9dLoZ/oJpJMiyz6IGTmRy641z
rSiFk6X4a739fUwBvJlp9WfpWv658FfSfe2uzV/zLziVydd3oiwnFU5jsrqn
HfJ0E7yN6d7XXT3hUXAGU8L91HSdNW/6A9PyKift8wHwTql+xAZ4Hl7ypl9I
9eWMyQT2gnczlZxzX1fnAu9l8nnQY/NcBu9nyj1Nwe++A2dL+RD7j5FycziX
6Y536TRnI/gAU1eM240OXfiQdF8tBxJMR9HPvmW69c2upxUKOJ/pldf09Qmd
MDNdaQz7ILwVLmSq+jLAIK0aPsJkManDqfkIXMQ0MDrXf3YWXMykxY061Vvh
49J+Lb8cDI2DS5l0Tu2SO62C/yvlyx7FVhs/uEKKV6TeCRcP+BSTZtYap3A7
uIrpTI6t9mlzuFrKjw1PdS3fgmukeuT7rmvhEPp5HdPnB6MPUB9cz7SxUddh
8DZ8TsrPqS1mrZfgBun8Q/XjymvhJqaY974LLCuBW5jux3ePNhyELzBNOBeV
/3gH3MoUnNIbZ50MX2YKUXrVfxEJt0nrvZnWdjsYvsKU/SpT5ecL/8S06cyT
zOvu8DVpPYE7B6Pt4A6m35IzDk2cAt+Q/jdH9csPBvAtpsvnStz2jzxVu5Mp
NXHc9E+fwV1Mge13jXzk8F2m/iWGe9yuwnKmJIs9U1ya4HtSPfrdzMerEu6R
+kPt5KNBR+CHTM6uMc3JOXCv1G8qfRYWZ8B9TCdijSvlCbCCKeqirHlGBKyU
6k3EA+P4YLifKfSOh1+rL/yCKc2903KWB6yS+sXYm05ZMniA6X27E9460+BB
pjojPd20CfAQU159w3wdTXj4df0szNivUqg9wuTgEdZg/RDWKKCe97Yfbrqp
8Iwxlddl/KWA2tteD4Xn/wHMG4iz
           "]]}, 
         {GrayLevel[0], PointSize[0.006944444444444445], AbsoluteThickness[
          1.6], LineBox[CompressedData["
1:eJw913s8l2cfB3CzDrMKSaWT1NRT0cnKWgc+nSTRmppEk0o5rIMOzDqNomjm
lNMk93VJJSFJopFDSkkIk2R7JCsrj6STPOi5nnV95x+v9+vH/bt/1/fwuX9j
Nmy33qSqoqKi+5GKyv9///2zT4Hjc4ft3fWtpn/bW8GC6lk3TXc+/2BfBQkP
8jzte7d9sL+CJgun0x3W0oEKqtquLVeLlw5RULexf/W8l9LhCr5JemXQbPbi
g6MVHHg9Mfp4rHSs+H9D5bjWK2kmru+Rnqtr1f7BCQqaxwYHKGekExWUWYZr
Tvz45QcnK8ge/6rK0Eo6TcH9t+nadXukMxRkFn/uejRCOktBxZYlao4npXMU
5DTPXOmRKJ2vYPUoo1PHzkgXKQjYscTvVLz0TQWXx3jlvo+RLlUw9suBw0ND
pSsUzNjeNkT1iHS1gsLMqskle6VrFRzym2Vr4i5dr6CnVG3AcSfpBnG93v+d
0W+NdJM4z5Wu6in0+ZoVGO3UOR2xQLpFQZ9pVSurvpBuE38/YPHh7ZOlXymY
+mfKQPfPpDsUDN9oMK52mHSXglkeoe8TNaVVGFTnuns09pVWZXimU7Xq0Ht5
/r0YpvbKOR/wVroPQ6dt46CXz6U/YTD+7IeMnGbpTxkmjD8Q8OihdH+GCykT
nZ0eSKszlCRu1Zj7m7Qmg/bUNybO5dJaDG/qCzIbb0lrM1RN0l94rkh6CIOm
2t383DxpHYaNhW56Q3+VHs6Qv6bVJSNTeiTDyrxF2WHp0roMwWzK0vOp0noM
P7++6Nr3nPRYhvYqY79o6j99hvCY+aMdE6THM7S1jK2259ITGFLZJtuAOOlJ
DMPtp3o9Pi5tKM5LJ2jIjl+kpzAU3L9i+K8o6WkMq8fZ3OoTIW0kXu/iGurH
pGcwNJf/ajwnVNqYwWRvrX9gsPQs4dRDG1SCpGcz3Cl+ND0iUHouw8F7qp5L
f5I2YXg0f9TVEUelwbDg6zeJnwZIL2B48ZtRk7a/9CKGXW3ZBl8ekTZjWPjX
iKWeh6XNGZx032vd9pO2YOhbGbbFmGzJcDG/7+LLvtLLGQZZqUdZklcwlA61
c3l9SNqawaJy0q008ioG8xF1VfvJNqJ/jLcl25NtGRw2T/deSrZjsC+w8jMj
rxX1s97a+TXZQdTH0mH8d2RHhh9n/Lo6lLyBobw8suka2YlhZKLBJFW6382i
/qrBgcvILgyZBs6eCtmNYcTvCbbd5C0M17NNk5zoPLYxBCW8flJNdmf4oqZ/
uBWd506Gu/E6xmXk3QwGufl2NnT+ngxazUeP/Un2YjjSddpzL9VrD8O/dXPj
hlI99zG4Db6alE0+IOqVcGneeqq/N8OJurieAdQfB8X9GM+OziP7ivMN+TPL
g/rpsPh8Vz20pv0s7S/e79ZAu1byUQaWq2GeRv0YyFD3V2WUB/VrEINK1Lm+
JiHSIQyN2lm2atTfYQzztYuX3yOHMxzHnLQzYdKRDGf7tS3eQ/MRLeYlZvSD
5eHSMQw2ZUvnjaN5imX4w3rk3G5yHMOOdPuzNZHSjKFw7R3bCzSP8QxdkWP1
fo6mPGKY81VTjSvN72mGyKJ1NktiKJ8Y9vcc+2EczXuSmJdP9Eb1ipVOFvPW
Mn30I3IqQy9Hz3WFJ6TTGIx01fI47Y90htfNm/R8FOkMhsAJds6OTDqTIe2z
t16mtH+yxPkV+87RjZe+wuDZszuyi5zD0OG3emfdSemroh5WZVmXaZ/lM9Ra
HFwVfkq6kOFlvs5099PSRQyL30+Ys4z24Q0xD4eNHMclSt9kmB1xLKiHXMLw
yUjvSzVnpUuF+78rSkmSLmM4o1KUcoj2bYXYxws3rrdNlq5k0NVTrzRIka5m
uHL0bHs3uYZhysCCzDLa37Vifw711oo7L10n+tX2XOd3adL1Yr6TY5xmXZD+
Q9yP5udmH1MeNDC4PG6IKCU3MqjtCbMIvyjdxGCdmW5vlyH9WOTdYP0C3UvS
zQzxRXN2PSQ/ZfDvzHGLp/xpYdA7UM3WX5ZuFf1oq60xOku6jcEse/v5OnK7
2H89xvvCs6VfifN9Osjd8or0G9FP3b0Pq1LedTDEvnPIziR3iv3nk9fbNUe6
i2HRo0HOw3Klexg2q4TeLyarcNitvLBm91VpVY7DQ4yadClfe3H4+Wt6FpP7
cDy2ONJ/Wz7lP8fV+/1OaRVQ/nMU6VvOu0Tuz/HU2LDqm0LKf462rmtOr8ia
HAf0vm0LuUb5z7HknftuA8p7bY6toaefX/sn/znUCyoc7a5T/nOo2LXcaCUP
54hz1R3jc4Pyn2ODf/q2gcWU/+LzmAw7r5D1uHgeevzQ4CblP4fyrrxPJlmf
Q18jeZQJPY+M57DRdB9fRJ7ARb9PHWNeQvnPYVqho15CNuSo1vb6z9LblP8c
Y1ov5BWTp3HYOyzyW1hK+c+Rv+K6SS55Bod58MOWGXco/zlci+1DksizOK6F
9JukW0b5zzHbt/5KMHkuh6rdnYXvySYcsRrPr2+h5y2I99dxWlBLXsAxLWLd
lfkVlP8cOqH6U8+SzThalvWOV79L+c+RemSD9k6yBYdufdKRKrIlx7LBdt1G
lZT/HNHHOjxDyCs4vr80/M0zsjUHzBz3La6i/OdIfrGr3wmyDcfvuZ+eaifb
chwKeGRhVk35z3Ex9EZPFHktx+B3voVPyA4cl206ombS86cjx0ozVR8f8gZx
fZXAH2+TnTjUXvtFDKqh/Ofo5fykaA3ZhUNTK1UjjuzG4VD2+/cN5C0cmbO9
3+vdo/wX/eSWkLiO7M6xOczBI5a8k6Mhv9j5Hnm36Mfgbh/NWsp/jrx/j7mx
hOzFMfaYnfF+8h7xutXd6jTyPo70mRdPNpIPcIRmTjuldZ/yn2O6+f4HIB/k
GD6z3Hwr2Vfcj/O651Hkw6J+M13v5pP9OSwnT3rxhHxU+K+HKwbUUf5zTGq4
2z6NHMQx98t5963JIRzxJ1367CKHcdhOidkXSg7n8B49zCSVHMkxuWKy1S1y
NEdtwJjkRnIMR+d6k287ybFiHkeUb9Ck7x9xYl56jc7TJzOOnQ9+2P0FOZ6j
JMXAz5ycwGGQ7/1yNfk0xwT36wWbyInieqPM2neQkzgsNL86so+cLOZpneEh
P3Iqh3P9xOZAcprYfz1hWWHkdI5vStLfRJIzOKzzqxJ+IWdyGN40vR5DzuJI
0IPdP77CEbxs1OZocg5HT7fus3DyVdFvGoHPgsn5HE1uSa4B5EJx/x/lOfuQ
izhGZQ1o/p58g2PiuvstW8g3OXawjV6O5BKOxtctgdbkUo7SExmGC8llHEGB
HWuMyBUca51eD9EjV4r+cHu8qT+5WtR3b++lb6meNRwjev9U2ECu5bjXkVJ9
k1wn8uf6SZ/z5HqRV1+z2+HkPzg6Wn/L8CI3iPxY5WFqT27kuBSVsnUuuUnU
d3zy/JHkxxwu+bG5ndTvzRwHt519dI/8VNT7x85LF8ktHL7emcZB5FaOVbNV
XZzJbRzlZ1UsTcntHIldlU2Dya84Pv4pesYzmt83HFo12+blkTs4xvns+ChM
+H9ihmo1
           "]]}}, {{}, {}}}, {{{}, {}, 
         TagBox[
          {GrayLevel[0], Thickness[Tiny], Opacity[1.], 
           Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQvTu4jZGhZr5Dwvu4/L933tmzHZ5tbtCO4AcabcxN
mITgO/E+37hoFYJf/PNxludBBN/ZNTOl7jqCn9v703TqewQ/p1jDjoN5AZzv
Ny/yrBk/gv//x7kaHWkEP/DO8rQQNQT/gm2bTa4Rgv9e/YTPDlsE/66jX+0p
DwT/582bM8+GIPhbf534wJSA4M+buddYMwfBD8/4Nk2sAsHfsH+SiVkzgm82
1WSfWz+CH/PZsqlzFpL68y5Ge5ch+JdvT2basQnBn1bgxvt0L4Lf1vyPmfkU
gi8uL2UafBXBL39V2Zb1AMFnMbl/uOgNgm/EtsJ67XcEvzesbP4N5oVw/vZr
Hcqn+RH8xvv/Hr6XQvAr06p6WNURfMGyyEJfIwS/YmtNWYwtgs9TvDQ9xhPB
d9xpOLkvBMFfXHt41cYEBH/pqR1/2HIQ/DL3T3nK5Qh+qZPhWYNmBF/k2OXU
gj4E/8Hx6lcLZiH4NT/T+2csQ/B3bN6ed2gjgq/4hsfq7l4EX2vtUXutkwg+
87xDqXZXEHxO3qPlzg8Q/PUs2keqXiP4mW83J+79iOArX7P5//87gg8AA2TW
6A==
            "]]},
          Annotation[#, "Charting`Private`Tag$497597#1"]& ]}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{2015., 0.9},
      DisplayFunction->Identity,
      Epilog->InsetBox[
        FormBox[
         StyleBox[
         "\"b) delta SAT \"", {FontFamily -> "Helvetica", FontSize -> 20}, 
          StripOnInput -> False], TraditionalForm], 
        Offset[{0, 0}, 
         Scaled[{0.9, 0.95}]], 
        ImageScaled[{
          Rational[1, 2], 
          Rational[1, 2]}]],
      Frame->{{True, False}, {True, False}},
      FrameLabel->{{
         FormBox["\"\[Degree]C\"", TraditionalForm], None}, {
         FormBox["\"Year\"", TraditionalForm], None}},
      FrameStyle->{
        GrayLevel[0], 
        GrayLevel[0], Automatic, 
        GrayLevel[0]},
      FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImageSize->600,
      LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
        GrayLevel[0]],
      Method->{
       "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
        "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            Identity[
             Part[#, 1]], 
            Identity[
             Part[#, 2]]}& )}},
      PlotRange->{{2015, 2200}, {0.9, 2}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {0, 0}},
      Ticks->{Automatic, Automatic}]},
    {
     TemplateBox[{
      StyleBox["\"D16-calc\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False],StyleBox[
       "\"D16-calb\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False],StyleBox[
       "\"D13-calc\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False],StyleBox[
       "\"D13-calb\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False],StyleBox[
       "\"D07-calc\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False],StyleBox[
       "\"D07-calb\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False],StyleBox[
       "\"Fair-Geoffroy\"", FontFamily -> "Helvetica", FontSize -> 16, 
        GrayLevel[0], StripOnInput -> False]},
      "LineLegend",
      DisplayFunction->(StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 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.8, 0.5}}}], "Grid"]}, {
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {40, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
           "Grid"], Alignment -> Left, AppearanceElements -> None, 
          ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"],
          LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
        Background -> Automatic, StripOnInput -> False]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False]}], 
             "}"}], ",", 
           RowBox[{"{", 
             
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
               ",", #7}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.823435925444626*^9, 3.8234359527576647`*^9}, 
   3.8234450725940275`*^9, 3.824191635243787*^9, 3.82419169726925*^9},
 CellLabel->
  "Out[2005]=",ExpressionUUID->"4e2f2601-fea4-4a94-a3fc-e631726118fb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SIFigureZEC_420GtCO2.tiff\>\"", ",", "SIFigureZECIPCC"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8234360634828205`*^9, 3.823436092726862*^9}, {
  3.8241916822287464`*^9, 3.8241916843379035`*^9}},
 CellLabel->
  "In[2006]:=",ExpressionUUID->"3075bd89-3484-4791-85e6-b682f38cd2ea"],

Cell[BoxData["\<\"SIFigureZEC_420GtCO2.tiff\"\>"], "Output",
 CellChangeTimes->{3.8234360948568645`*^9, 3.8234450792760363`*^9, 
  3.824191645028385*^9, 3.8241917023433723`*^9},
 CellLabel->
  "Out[2006]=",ExpressionUUID->"17ad73af-c87e-482a-a418-3c4e46f54b3c"]
}, Open  ]],

Cell["Overshot Plots", "Text",
 CellChangeTimes->{{3.71113575119866*^9, 3.7111357648642597`*^9}, {
  3.711171131470954*^9, 3.711171132484956*^9}, {3.712408724609439*^9, 
  3.7124087395614595`*^9}, {3.7662479249546547`*^9, 3.7662479290036545`*^9}, {
  3.810276061054193*^9, 3.810276074321699*^9}, {3.8167180604130163`*^9, 
  3.816718074126128*^9}, {3.8171501903508883`*^9, 3.8171502004843855`*^9}, {
  3.8234352506786737`*^9, 3.823435263659692*^9}, {3.823699844189975*^9, 
  3.823699849562482*^9}},
 FontSize->18,
 Background->RGBColor[
  0.87, 0.94, 1],ExpressionUUID->"56eef708-ac1c-4a48-8e2b-5fa84eba9649"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", 
   "\"\<C:\\\\Users\\\\wilmsen\\\\Dropbox\\\\WR\\\\Research\\\\IMPOSE\\\\\
Results_Paper\\\\Overshot\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.8237007331177826`*^9, 3.8237007628728247`*^9}},
 CellLabel->
  "In[1071]:=",ExpressionUUID->"e0734672-5de1-454e-a0d7-55531a140512"],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", 
   "\"\<C:\\\\Users\\\\Rickels\\\\Dropbox\\\\WR\\\\Research\\\\IMPOSE\\\\\
Results_Paper\\\\Overshot\>\"", "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.823769737550105*^9, 3.823769740258625*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"33c67dfc-31bf-4969-aafb-0652b90e668c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"osD16medium", "=", 
   RowBox[{
   "Import", "[", "\"\<overshot_D16_CDR_mediumcost2300.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osD16low", "=", 
   RowBox[{"Import", "[", "\"\<overshot_D16_CDR_lowcost2300.csv\>\"", "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osD16high", "=", 
   RowBox[{
   "Import", "[", "\"\<overshot_D16_CDR_highcost2300.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osFGmedium", "=", 
   RowBox[{
   "Import", "[", "\"\<overshot_FairGeoffroy_mediumcost2300.csv\>\"", "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osFGlow", "=", 
   RowBox[{
   "Import", "[", "\"\<overshot_FairGeoffroy_lowcost2300.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osFGhigh", "=", 
   RowBox[{
   "Import", "[", "\"\<overshot_FairGeoffroy_highcost2300.csv\>\"", "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.823699856434992*^9, 3.8236998968010483`*^9}, {
  3.8237004517813854`*^9, 3.8237005885795784`*^9}, {3.823700771443836*^9, 
  3.823700781874851*^9}, {3.823878765579769*^9, 3.823878864419287*^9}, {
  3.823878903040989*^9, 3.8238789083243127`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"61dc6c7f-56f4-44fe-85ac-b184d895cd3c"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"osD13medium", "=", 
   RowBox[{"Import", "[", "\"\<overshot_D13_CDR_medcost2300.csv\>\"", "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osD13low", "=", 
   RowBox[{"Import", "[", "\"\<overshot_D13_CDR_lowcost2300.csv\>\"", "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osD13high", "=", 
   RowBox[{
   "Import", "[", "\"\<overshot_D13_CDR_highcost2300.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osD07medium", "=", 
   RowBox[{"Import", "[", "\"\<overshot_D07_CDR_medcost2300.csv\>\"", "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osD07low", "=", 
   RowBox[{"Import", "[", "\"\<overshot_D07_CDR_lowcost2300.csv\>\"", "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osD07high", "=", 
   RowBox[{
   "Import", "[", "\"\<overshot_D07_CDR_highcost2300.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.825180202182803*^9, 3.8251802563628798`*^9}},
 CellLabel->"In[14]:=",ExpressionUUID->"4aca67ee-a8d8-4edb-8260-74579db8dfe9"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"ospD16medium", "=", 
   RowBox[{"Import", "[", "\"\<overshoot_DICE2016_2100_med.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ospD16low", "=", 
   RowBox[{"Import", "[", "\"\<overshoot_DICE2016_2100_low.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ospD16high", "=", 
   RowBox[{"Import", "[", "\"\<overshoot_DICE2016_2100_high.csv\>\"", "]"}]}],
   ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ospFGmedium", "=", 
   RowBox[{"Import", "[", "\"\<overshoot_FairG_2100_med.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ospFGlow", "=", 
   RowBox[{"Import", "[", "\"\<overshoot_FairG_2100_low.csv\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ospFGhigh", "=", 
   RowBox[{"Import", "[", "\"\<overshoot_FairG_2100_high.csv\>\"", "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.825424940789762*^9, 3.825425070337945*^9}},
 CellLabel->
  "In[1072]:=",ExpressionUUID->"2d2011b3-e2cb-43f5-a6c1-64ee5d1b62c3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ospD16low", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "9"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8254253529028454`*^9, 3.8254253599453554`*^9}, {
  3.825425596585189*^9, 3.8254256009671955`*^9}},
 CellLabel->
  "In[1105]:=",ExpressionUUID->"b7d10b52-a651-4fa6-865f-668ff2e59a2b"],

Cell[BoxData["\<\"cprice\"\>"], "Output",
 CellChangeTimes->{
  3.8254253606153564`*^9, {3.825425597585191*^9, 3.8254256015071964`*^9}},
 CellLabel->
  "Out[1105]=",ExpressionUUID->"1b50ea32-03f6-4d50-a44f-d39fb792f40a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"ospFGmedium", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "2"}], ",", 
     RowBox[{"20", ";;", "22"}]}], "]"}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8254252626887164`*^9, 3.8254252992342696`*^9}, {
  3.8254253738098745`*^9, 3.8254254097744255`*^9}, {3.825425465370504*^9, 
  3.8254254675505075`*^9}, {3.8254255758871603`*^9, 3.825425587483176*^9}},
 CellLabel->
  "In[1103]:=",ExpressionUUID->"7a95b2e4-cbb5-4aa4-8a88-e1e593049219"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"Temp\"\>", "\<\"mu\"\>", "\<\"cprice\"\>"},
     {"0.964476`", "0.14867`", "26.056661`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8254252699597263`*^9, 3.8254252998642707`*^9}, {
   3.825425378862382*^9, 3.825425410084426*^9}, 3.8254254679105077`*^9, {
   3.8254255794821653`*^9, 3.825425587873177*^9}},
 CellLabel->
  "Out[1103]//MatrixForm=",ExpressionUUID->"cf0cb6fd-0eb8-4f7e-8d9c-\
4343a7c9070a"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"T2100low", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ospD16low", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"ospFGlow", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "20"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Black"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.9", ",", "1.8"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<\[Degree]C\>\"", ",", "None", ",", 
          "None"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<a) delta SAT \>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.80", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"1.3", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2200"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", "Dashed", ",", "Thin", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2100", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2100", ",", "1.8"}], "}"}]}], "}"}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T2100med", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ospD16medium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"ospFGmedium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "20"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Black"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.9", ",", "1.8"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<\[Degree]C\>\"", ",", "None", ",", 
          "None"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<c) delta SAT \>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.80", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"1.3", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2200"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", "Dashed", ",", "Thin", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2100", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2100", ",", "1.8"}], "}"}]}], "}"}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"T2100high", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ospD16high", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"ospFGhigh", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "20"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Black"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.9", ",", "1.8"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<\[Degree]C\>\"", ",", "None", ",", 
          "None"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<d) delta SAT \>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.80", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"1.3", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2200"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", "Dashed", ",", "Thin", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2100", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2100", ",", "1.8"}], "}"}]}], "}"}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.82543971016317*^9, 3.8254397415772142`*^9}, {
  3.825439772061257*^9, 3.8254400401896343`*^9}, {3.8254400732136807`*^9, 
  3.8254401420137777`*^9}},
 CellLabel->
  "In[1125]:=",ExpressionUUID->"8592cb9c-7aa5-416f-9c48-f2858b08d347"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"C2100low", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ospD16low", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"ospFGlow", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Black"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"650", ",", "1100"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<GtC\>\"", ",", "None", ",", "None"}], 
         "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<b) C atmos\>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.80", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"1.3", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2200"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", "Dashed", ",", "Thin", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2100", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2100", ",", "1.8"}], "}"}]}], "}"}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C2100med", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ospD16medium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"ospFGmedium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Black"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"650", ",", "1100"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<GtC\>\"", ",", "None", ",", "None"}], 
         "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<d) C atmos\>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.80", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"1.3", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2200"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", "Dashed", ",", "Thin", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2100", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2100", ",", "1.8"}], "}"}]}], "}"}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"C2100high", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"ospD16high", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"ospFGhigh", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;", "185"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Black"}], "}"}]}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2200"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"650", ",", "1100"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
         "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year\>\"", ",", "\"\<GtC\>\"", ",", "None", ",", "None"}], 
         "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"Text", "[", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<e) C atmos\>\"", ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
              RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
          RowBox[{"Offset", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}], ",", 
            RowBox[{"Scaled", "[", 
             RowBox[{"{", 
              RowBox[{"0.80", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}], ",", 
     RowBox[{"Plot", "[", 
      RowBox[{"1.3", ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "2015", ",", "2200"}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Gray", ",", "Dashed", ",", "Thin"}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{"Gray", ",", "Dashed", ",", "Thin", ",", 
        RowBox[{"Line", "[", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2100", ",", "0"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"2100", ",", "1.8"}], "}"}]}], "}"}], "]"}]}], "}"}], 
      "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.82543971016317*^9, 3.8254397415772142`*^9}, {
  3.825439772061257*^9, 3.8254400401896343`*^9}, {3.8254400732136807`*^9, 
  3.8254403406940575`*^9}, {3.825440371848101*^9, 3.825440387969124*^9}, {
  3.8254405502803526`*^9, 3.8254405552403593`*^9}},
 CellLabel->
  "In[1141]:=",ExpressionUUID->"74a0e8ec-1878-457a-b180-3456ba897b11"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SI62100", "=", 
  RowBox[{"Legended", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<\>\"", ",", 
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{
            "\"\<Surface Air Temperature Increase above preindustrial\>\"", 
             ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}], ",", 
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<Atmospheric Carbon\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<low CDR cost\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}], ",", 
            RowBox[{"90", " ", "Degree"}]}], "]"}], ",", "T2100low", ",", 
          "C2100low"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<medium CDR cost\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}], ",", 
            RowBox[{"90", " ", "Degree"}]}], "]"}], ",", "T2100med", ",", 
          "C2100med"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<high CDR cost\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}], ",", 
            RowBox[{"90", " ", "Degree"}]}], "]"}], ",", "T2100high", ",", 
          "C2100high"}], "}"}]}], "}"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", "Blue"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<DICE2016\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<FaIR-Geoffroy\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"LegendMarkerSize", "\[Rule]", "20"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", "Below"}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8254404045111475`*^9, 3.8254404819712563`*^9}, {
  3.8254405980874195`*^9, 3.825440638102476*^9}, {3.8254406795505342`*^9, 
  3.8254407037225685`*^9}, {3.8254407356776133`*^9, 3.8254408474037704`*^9}},
 CellLabel->
  "In[1147]:=",ExpressionUUID->"ffba291e-354d-4c8d-909b-96588cee5625"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{"\"\"", 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Surface Air Temperature Increase above preindustrial\"", 
            FontFamily -> "Helvetica", FontSize -> 18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style[
         "Surface Air Temperature Increase above preindustrial", FontFamily -> 
          "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"Atmospheric Carbon\"", FontFamily -> "Helvetica", FontSize -> 
            18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style[
         "Atmospheric Carbon", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]]}, {
       RotationBox[
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"low CDR cost\"", FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style["low CDR cost", FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0], Bold]]], BoxRotation -> 1.5707963267948966`], 
       GraphicsBox[{{{}, {{{}, {}, {
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
1:eJxd1Hsw1WkYB/BTmbPF6aZWLa0iI2GzJHTTs12sLUou6TRIIsKkrFUqWza5
tLKIrVDv44RsVIp0UklSyS0ql4rNyki7SLkmoz11HrOz7zvzm3c+//zmfZ/n
+z4abn62HqMFAoFU9n3aP6/9DBwapHeHGjqXffZBBuZViiKx8xu5QxnccDaw
ntxEjmDwIlJsEGbUJXcUg0NWRv4qgeQYBqbFeyoy88nxDNaVpoaZCN7KfYKB
SkFBbZoFOZlB7XBlX9tRMjJo8bDW76ohpzIIcNl6PEP9ndwZDK7ZLdr40ZOc
xeCtrk9S8yVyNoNVNRcDzIfIuQwaVxT1D1t0yy1lUNPRrjcxjnyDgau52NCp
kVzIIFTq31ep0yN3MQNv6+5ouwByCQORsK6h+ha5nEGY2OuVsVKv3FUMHtuc
iXHfQH7CYGBH970fUsj1DIZMZAX6h9zAoNJUsq92QZ/cTQycBKppaw6QWxgc
nyktnVJCbmPgqzWu6MtJ/XK3MyicrWtv6kjuovucIvcwMIjM0fRuJg8wELLW
llXaA3IPMUjKWj+x2ossQLhvJXHp+oM8GmFZlqn34ddkBYSLwaNu7pzzXm4h
Qp1n5WD8VvJYBPEZdUn1KbIiwmMvf0NhLVmE8DTwmepk0aDcExAEUZ5VVcvI
kxDu+q/J1NhFVkZI672q0MTIUxGmePjNfVVGVkEIOF4sntxLno6g6qd300Tt
g9yqCHaV0/YZmJNnIHh8HX3hkTNZHSG4KkfcG0SehXDzL3N/nziyJoKRo7BG
eJashfAu28Yn8SpZG6FRZNrUfYesg9DlfW3+lHKyruz/Gi03Pj4k6yOUiOzv
3RrxPITWWW1eDmXkbxGEFi61xUVkIwTliLpepTyyMYKug6T9mzSyCYLmXUGk
dgzZDKHT+VBBTyB5EYLvpeeeCWLyEoSwMl1foRnZHEFLGnt5lTIZZJbFy6aN
6rkc4ZiZnkQ7n7wSwb3ceU1JONlC1q+saSsWridbIgxe6X18QIW8GuGnLNu9
6XXUfyuEmiXft1yPJ69FGH4ToVhjTbaR3Sft6ZIJY8i2CFVKu+dF5VL+7BHm
Ci2NQ9zIGxDOWVwU6ownb0SITQw0rMilvG9CeOS3+YtKMdkJYd6DUdcTh+g9
uSB44/vk66fIrgj2ra1q1UvJbgiKT4PUkhrpvboj1KpdKeoJJm9DyOmcqVSt
QfZCqCj/tGg+eCNEb9oy6HKI7Itw4eDypcEryTsQXqRutzGeSN6JkLVY5Xlq
M80jf1n9Sip2jikgByDMCV+3KBbJgQi7LQ1BEknegxB0PrQzbg95L8Lr4Jc+
D33J+xGe1HUvKPMg/yw7b2zCZuFW8kGE/Ppc27Hu5F8QHhqsrtrsRQ5FSHdf
OC7NjxyG8OFyrt2PQeQIhC8SpNG7DpOPyPJ8+LuTFsfIUQhHKu5fSZGQo2X5
THDdZZZDjpH1LzjG43YxOQ7BrN/xtw+15HiEzA7tgfTX5N8RthjrPQ8fIp9A
mN17unT7SD0TEc6/sLKapklORhg3qLTUzZh8GsHJPC5O3YKMCJ+mvZYjWYKw
Ni9ksY0nORVBqSN5W0ggOR1hwO5lWlIoOUM2f3YUvgqPJZ9DOKnfuczoFDkL
odnpjujoWfIFhNSM+f0x2eRshOT5klxTKfkywlf2askRBeRcBB/XTIVf75Dz
EDZ36FSuv0+WyvLxzMHy/QNyPsLi5pjxqWXkGwiJQf7WISP5LODyWsi5iHMx
53ucSziXci7nXMm5ivMjzk8413Ku5/yMcwPnPzk3cW7m3MK5lXMb5785t3Pu
RLht61xYNuIuzu8493Du4zzAeZDzEOdhzoKU/3s0ZwXOQs5jOStyFnGewHkS
Z2XOUzmrcJ7OWZXzDM7qnGdx1uSsxVmbsw5n3RTIq+/IKR2x/n/+F1m3Tf8=

              "]]}, {
             Hue[0.9060679774997897, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             LineBox[CompressedData["
1:eJxd1A1QVFUUB/ANcXVAkAH82pARNDJCJDBl8IOjw0QakKFWKmkQAoaGkoEY
KgLjiiKCYSyKe09qSsIQ4mqLgyjKAjkgn5kiFhUiNCiLAiKQ9vQdp+ncmTdv
fvPunbnnf899DiFRgetMFAqFXnqev1+MeAErWvSG4ZYH3i+cIMDNdcX6fZHd
spMF+LhZuk5+RN4j4OeKpBkxc42yUwXkfeNhGxtPThcQph5Qz7hIzhSgGvjA
YugfskZAhLJn12TvHtk5Au4E22QXJ5BRQLTaP7T9CvmEgKKZt7YWjnwoO1fA
mYBD3ZMWk/MFbG7bVeW4n1wooDhts8FQT9YJcBgRF/Nk/CPZeqmex/mRuiBy
iYADnqEjOo+RLwtI2tOk29dJLheQ6HW3fr9br+wqAbmG1uDmWHK1gL0dv954
/xK5TspzgtH9qrJPdpOAo1ZeHdYB5JsCJr0yLm3KIXKLAH2sxWDDbXKrgE9S
oG+sY7/sNik/j5RtZeHkDgGd2/+KrM0ndwloCXMun9pDNkrzf5+QdXrWY9m9
ArTdpyreiyUPCIg7dM6/R08eFtBYNuitfkJWIJzc/uXOPs8B2SYIphWDSqdY
sinCs6zIehMdWYmQnBioi+4mj0Y4PPpV7Zo3nsg2Q5jnUbapIJg8BsFvQkif
r4ZsidAwZ73KtoZsJa0/Z5ve/4xsjRD/prVNk9ugbFuEoIIdGw6uJY9HGLVW
4zculTwRYboxYMH882QVQmpia8/9O2Q7hMaAmrvKEUOy7RHSbZxSw14jT0GI
SmqOuu9DdkS4sWV+/VfB5GkI/i7GcXe2kZ0QpNXrhtLJ0xEKY2zv5R4nOyO4
Ln96rqSI7IJgsG+uNCsluyJEdIjWEAPZDcHiqm95ZhXZHeHrm+YjN1SSZyF8
tsbXrqiMPBvBvUDv6fwT2RNhmYN9StYpshfC9Yol1WcPkuch5Hgc083ZSl4g
zS/KSW74iAwIK7/v9Zv5FnkRgvZ17dmRpmQfhMW77VbX1lGe70j5hWdFbdeQ
30V4e5H3sh9Xk5cghLabZFWqyH4IG+3VZcO/0PkGICz/o9YYtp+8VOq3uU/N
TReSAxEq9qr8rhqpv5Yj5NU8y0vLIX8o5alIcVrqQ/4YYV9kvNPQPernVQhH
LzxcqVWTgxCyLY9qY6eS1yDM3OjpYlFC9+dTqZ8W+uatCiSHIGSEJPjYdND9
DKX+3EkOQ5idkW0eZE+OQKipfj7of/C5VO8K61ujsskbEA5Eux1RJJG/QFCO
bSwt3knehBBg9G8MV5OjpfMZFTdfk0negmDe+FiVeJwcg9B16br/kTPkrQiJ
0bdLfS+StyGE3Kp2+MFAjkfQDMYty7hG3iHVExftv+vlfhPY/hMRRJvlkaqX
TmbfdzPvYd7LnMqcxpzOfJA5k/lbZg3zYeYcZi0zMh9jPsF8kjmX+TRzPnMB
cyFzEbOO+TyznvkCcwlzKfNl5ivM5cwVzFXM15irma8z1zE3MDcx32C+ydzM
3ML8G3Mr85/MbcztzB3MfzN3MT9gNjI/ZO5l7mceYB5kHmZ+yqz47v82YTZl
VjKPZjZjHsNsyWzFbM1syzyeeSKzitmO2Z55CrMj8zRmJ+bpzM7MLv/5X8qx
nkM=
              "]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, 
            TagBox[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[1.6], 
               GrayLevel[0.5], 
               Dashing[{Small, Small}], 
               Thickness[Tiny]], 
              LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfTTuLwNDzXyHs2dA4Iv95PZeK+dmBD9xg2xJWxeC
b3z97lrXWQj+483Kh3+uQOIH+DKlbEfwJQ+LcbAfR/B1X6e+nHcVwS9/ETIx
/ymCL7RMPfnbFwT/KI8Dx07GBXC+jKGN02ROBD/J4PfL5wII/gX+NcvEJRD8
mzfXHHssj+BfrCsI0VJH8FP4Wlx59RF8+bpO79NmCP7JE4H7me0QfL5/mdNu
uCL4Tnyut9V9EXxBzoJm4VAEn+NJj8OtGAT/3cycbOkUBD/fas7PH9kI/v2t
fV8DihH8csFitpYqBH9V+PKq4CYE/0zFvJi5nQh+Z8vThc0TEfy8Ark/LjOR
3GsudaRhAYK/8UXq+4gVCD5/aUnH6vUI/tSHJWY3tyH42yyOui/eh+Afy7px
7PlRBL+w3XrlibMIPnd94k/lqwj+2bDKuKg7CL6W5EM13ScIftk27tiq1wh+
rF3bt+TPCH7usk9LNH4j+NkvFQ+mMy2E81nEFzo4cyH4PfKPdWcKIvg2HOIG
pyQQ/I7bs6ZOV0DwD3U+zLivjuAb5Bpuea+N4M8NaPz/Xx/BBwAbVv2/
               "]]}, 
             Annotation[#, "Charting`Private`Tag$182212#1"]& ]}}, {}}, {
          GrayLevel[0.5], 
          Dashing[{Small, Small}], 
          Thickness[Tiny], 
          LineBox[{{2100, 0}, {2100, 1.8}}]}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2015., 0.9}, 
         DisplayFunction :> Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"a) delta SAT \"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.8, 0.95}]], {0, 0}], 
         Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
            FormBox["\"\[Degree]C\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2200}, {0.9, 1.8}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{{}, {{{}, {}, {
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
1:eJw11QtUTukaB/BvQlOu1VBux1EqURRD5dL4yxSDFIrINWGK3OpkTKRSuhPy
0fjYzx53p6ZEVEJJihoSk4yoGSk1LrEqjOLsMz3vXmuvvX5rX973fS7vNvZe
P2ellkqlylLO/1//ObZKGKWTMnChVyz+caiEq8NS3PV2siMkPIj8tyYtnR0t
4XJsfM9pj9jxEj7d/6HhRpe4DidKCLKtlfrZsJMkuO6Zcn3EQvZBCY7BLW+a
drA1EtK2fXHZLZVNEuwKn/48voJ9TEIv3eqPhz6xT0mw6ZX8drl5fIdTJPje
fOq7xYWdLgFGPfrdCWCfl5DzwTnQNZmdJaFlpe/JusvsXAlRruP3hP7BzpMw
9XNJpk7nhA5fl+BuH+7uZ8YuluD5aatXohO7VEJVyAeflT7sMglO+nMu3gtj
35cQPWPXhMLD7EoJ/1UHJg3JYldJKLIKNqgsY9dIsAiJzy6pZ9dKMIwNnFTf
xn4u4cnnIt2v9HZ1+IWEs48dYGfMbpJwLmNb8QQbdrMEn9LFM3Qc2O8luLiE
20VMZbdJ2BAcfl3tylYR7GW9L4Z6sLUIR/cdrxjgye5MGL4ho8ciYW2Ck/VR
z9vieR3Cwh3vPBa4sbsSBuskyk/FeN0Jlq0HHs+dyO5JyDnyPCdxBFuPYP3Y
VDtsANuAUL5xbEY3bXZvwhC9tL+MXnI8DAlT07QtEkT8+hKGGswcOzed3Z/Q
aZuJ65x49kBCdoH56ACRr0GEzT4ptpI9ezBh/3c9/PN02CaE9wNeZuXf5/ow
JRSFvmjZpWGbE6wOjTPts4xtQQh0Tmp1NmEPJ5xsONfpl6dcv1aEyResltod
Y48klGU/ailfwbYhFIS4pgSYsEcTZpWZR/Wq4X4bQ4j2ra6SNGxbwofmSrWx
J9teyZ/1rK37DdjjCWYmbXGq0pgOTyTMLNKsXhvB/kb5fpPLvfoJbBDWqkuc
o95Gd9iRoDWyWL3yFPtbwhJL+dKxxWxnwr64UenrDNjTCMMcG4Nab0R1eDph
V5fIyVuC2TMJ24xrcyfZsGcp85k9MkF6trPDboQf46LetR1izyFEVbtcLJ3L
dic8yJunq+7Bnkfo3uhV13wzssOehNykHB9NDHshYYZDN8cFLuxFhJf6fjt7
G7KXEPqm1w6vqI3o8DIlflFrMoty2N6E4mWFp22T2T6E8LqAV+ow9irCOV0b
q6tx7O8Jtv8Z1GdpHtuPEDz9dky7JY+3luCs+3e3f+1hryOcuah9oWsTewPB
ffeYrB7f8fo2Kf0QF/Prag07kBA2ufykRyM7SIm3sadHr685nj8Q2r9alFIc
xP6R4F//8fTZTPZWwu4a51utr9khSj9Zr/HON+P8hRJudlndZDefHa6sb8hv
m0Mi2BFKv656++uFVPZOwp+laXWqe+xogn7berPgZnYs4XZRpuxowPUVr8T3
2OywACv2LkLECrXDsCnsRML6Fk1zyDz2XsLESu+Lu1exkwirt1NVUABbTTCe
37jAbRv7IOFJ0d2B40R9/0RoOXLL1zWarVHiOdZx0rkY9hFCzTTK3ynuk1Jv
ftMzXon3f1byr372l8F29jElXz8Nbhy0mX2CcHdLwmJHf/YpwsNFY++cXc4+
Q6io++xx0p2dQjg93WvRCmf2LwS/yIbgEXbsdML35xoDPIayMwjHK+/ajzFi
nydktltajviSfYGA2PEBae843lmEzvaX4+wa2DmE/v1dO8+uYucq860/Gn/w
LvsKQX2gzfXKTXae0s8FQw9HF7KvKeP1N3hnL3xdqb8XLa9eX2ffIMydOPLM
ceFigqY9bJOX8C3C1wN89uoLlxIKU8P7FhewbxNSr5qptguXKfvtxjFTbYXL
CfXxFi9fXmPfV/pJT+vtceEKwoSE8+5LhCuV/a4T+hgJ/07I1zo4uiyfXUW4
VeCYGiP8hNBVSt0xRbhGWV9SZWZ7HvtPwqa1DlOyhGuV/9lrD8sA4TpC7ECT
dSOFnyv1Hbm/a+NVdiNhzZthqhPCLwimy6tneQu/IpzQWLcOEm4iBI3p2fLo
Cvut8j+yCJ6RLNys7B+Tm97PE24lxIT4t/cWfk8wH7ds/r3L7L8JB2vuf7lX
uI3QuD+j+2zhT4QDxV1W6wmrZJjqXutTlsvWktHv+e9GicKdZdgcrvB3E9aW
8SbrlKG+sI4MqVOJfvkldlcZrecLlu4T7i4jz0z12V24p4zsBO0mQ2E9GWec
vh31MIdtIGN25KSCQ8K9ZTT13nR8ibChjJJcjwfGwn2V+Tv5eD7LZveX8U2Q
kcVp4YEyFvdtcPIXHiQj1PLh2VHCg2U0bl6+pjWLbSKjuvDjxkvCpjLosXFh
qLC5DOur93ychS1k3Bkd59ZdeLiMfNW1qPKLbCsZ09+80U1W/D9XoLh7
              "]]}, {
             Hue[0.9060679774997897, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             LineBox[CompressedData["
1:eJw11Qs0lekaB/Cd6SIJNSIllWLcqgk1bjWPYaY0Og4p6aLESNLOsgwt01CN
7pRRTbqM7/ncolMmnR1GdCRFYQ9nNCmXXHIpl9So6WKc8834773WXnv91v7W
+73v+9xmb9np9ZWaTCYrkL5//f792S1QU3/HUt/1R+hv7xFIq6lXWxEFxwnU
qL1rs+w0fEigJQWO230K4HiB0pSNLsYNcKJADuvuJ2n9Dz4pkHOsuKx3ztER
Jwt0ItO59rwbfF6g4vftxRphMAvkNaAbbnIaThfoarHeYPMNOEugi/lj8yy6
4EsC5Uyc0j6kHT/iKwJNMB02W2EPKwSqnzAmdFwAXCBQfuxXGeYJcJFApyyL
KjPy4RKBmkelKMLa4DKBdm/50SJ2YsKIKwS67zvvygU7uEog86f+wacC4Brp
PKX73jsfg+sESlJP2JxWANcL1LC/0+FyG9wo0JoYg3hPzWMjbpHe13fGZO8i
+IlAj5sXdVv6wd0CBW9M66ADcK9AT1bGHM25DA9I9xMoy9pSBw8K9On0n+Ur
3sFvBHoR5xfrNfP4iIcEqrR80BDkAsuYth27NBQeBKsxpdueK/c/BI9m2mne
dXRGNjyWKdG6TS2xAlZn8u745ovUTliDaZl3ljxlVOKINZmMvbMfztGGtZic
C9Q07k+HdZjyXi9dnfERPJmpdr1T0UFrWJdJs8LvudwJ1mO6uM/TbeXn8FSm
30ftVequhKcx2bpZmeevgg2ZXmgNpJv4wkZM1/ONF3puhGcxvZ3n4GuxGTZm
EqICnEV/eC6Tu4EdZ6hsyrTn7Lo8U9XzZkzjV5388kPVehZMyps2ou9a2Iop
pPhxcJcnPJ/JJ8oqL9sN/pjJM66uL/5T2Jppvvfwtd02sK10Xz/veBxgAi9m
irzg6GE1BbZjOr3Gpe2GGuzANDHrk7SxjYiHE9OSF+fnlVyGlzJ5BV4WI6Jh
Yiosst/Q4wx/xtTQ4jq4fTTsyvStsUeS/A7y6QsmNcuDemcOwsuZXk0OOJOy
DF7B9PBESafTWNidKcI8x8LxFvL/H0zZ+5PubouB/8nktm3x8bRPYC+mJ/XR
B2r6UY/eTH0vL2v3pMFrmNQjh/TVfeC1Uv5O060OUIfXSe/rjyyOKEC/2MC0
SRnqox4M+zHVvKhtC50Kb2YyuWI/7qdK9K8tTDc7DZ1+j4MDmcyu6de+Xg4H
MU2Tl3SVG8HBTLk2+5X/mgWHMO1Kfl29cS0cyuSRWN8fsw+WMzVp+C9aI8Jh
TMml3wXl58Hh0vmitvbplcERTOXzOrsy78GRUjyUTTlRqv3uYjowO/zd2XI4
mim1L7nwyxJ4N1OphyHNzIdjpPOff2W+LEfV/5me/eSzdiAL3jdST2UZqnnA
NPM/+U8XpMIHmKqVqVH3UlTzgek76wRTn3PwEaYu2wmK96r5Ec8Umtuw9dRJ
+BjTGwN9LdfvVfNDytdwff9nCXCSdH/RGVZpR1TzhGmGY1bZ6oPwD0yVOuWF
U1XxSWZa8+sr1wd74LNMOr9MDkz/Fj7P1BMWcUoeDacw/fX456p5x9J6e41C
pkfAqVL/u21waygMTmfyb38X1bQDzpTuvzr8YUUInMV0vM3wa8VW+CJT3YSl
1dmB8CUmh6rT+uwP50jxz3vuKfjBV/C/ah5fZYqefm5Gtip/FExbtdzmKVbD
eUwrbzzsvOMFFzBNnv9kUqMHXCidV80v6I07XCTFJ6Nwj/4K+AaT5RRv7yXL
4BKmuNhJtkGucCnTpAsnQk85w2VMJ5uqusuXwnek+rSWh8ic4AqmBa01653s
4XtMW1KdNWIWw1Uj/fGWDayU9nNgeLzWQrhGWt9GN2rDfPi/Un/TNzO/YgnX
Sf36pW/KOHP4N6neE5w/CjSF65nad36zr2wO/Eiq3/LNt81nw43S/kp1O5JU
9drMtHFK1m2ZIdzC5BimPBRuALcxGd22f9atBz+R+uGF9oUBunAnU5LTgz9a
J8HdTK0/HE8P1IafSfmQff1qjybcy/TjI4PMSA24X1pvqmPrGHV4gOn7/A1/
Jo+BXzLt3TTH7eMP4EGpvh0uhVXK4NdSPb+tyw0ZPjziN1K+6D8vnzgEv2Na
/2tRu+ItPCTlb+vc6k1/wMPS/JIGtNYrWCaSnbvt8psvYTWRgnN170YNwKNF
6ry7aIx1PzxWpNgPNSYN9MDqIm3qM1PmPoU1RIq0K1wR1QVrinTYzHQndcBa
Im2zr3GZ2A7riDTOpErR1AJPFokOBVbkNsO6Il2zcd9xuBHWE+n+11mZgY/g
qSLl7vAMcqmHp4k0ZlX1JZPfYEORktafkE+og41EMm7RuThYC88SKeTV/dWt
v8DGIv3pXiyvrYbnijR+e0BvWSVsKlLgXcPK63dhM5Hez9H8IK8cthBJHNyf
+O/bsJVIoxbYhCpuHab/A7RSsmA=
              "]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, 
            TagBox[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[1.6], 
               GrayLevel[0.5], 
               Dashing[{Small, Small}], 
               Thickness[Tiny]], 
              LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfTTuLwNDzXyHs2dA4Iv95PZeK+dmBD9xg2xJWxeC
b3z97lrXWQj+483Kh3+uQOIH+DKlbEfwJQ+LcbAfR/B1X6e+nHcVwS9/ETIx
/ymCL7RMPfnbFwT/KI8Dx07GBXC+jKGN02ROBD/J4PfL5wII/gX+NcvEJRD8
mzfXHHssj+BfrCsI0VJH8FP4Wlx59RF8+bpO79NmCP7JE4H7me0QfL5/mdNu
uCL4Tnyut9V9EXxBzoJm4VAEn+NJj8OtGAT/3cycbOkUBD/fas7PH9kI/v2t
fV8DihH8csFitpYqBH9V+PKq4CYE/0zFvJi5nQh+Z8vThc0TEfy8Ark/LjOR
3GsudaRhAYK/8UXq+4gVCD5/aUnH6vUI/tSHJWY3tyH42yyOui/eh+Afy7px
7PlRBL+w3XrlibMIPnd94k/lqwj+2bDKuKg7CL6W5EM13ScIftk27tiq1wh+
rF3bt+TPCH7usk9LNH4j+NkvFQ+mMy2E81nEFzo4cyH4PfKPdWcKIvg2HOIG
pyQQ/I7bs6ZOV0DwD3U+zLivjuAb5Bpuea+N4M8NaPz/Xx/BBwAbVv2/
               "]]}, 
             Annotation[#, "Charting`Private`Tag$190065#1"]& ]}}, {}}, {
          GrayLevel[0.5], 
          Dashing[{Small, Small}], 
          Thickness[Tiny], 
          LineBox[{{2100, 0}, {2100, 1.8}}]}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2015., 650.}, 
         DisplayFunction :> Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"b) C atmos\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.8, 0.95}]], {0, 0}], 
         Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
            FormBox["\"GtC\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2200}, {650, 1100}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}, {
       RotationBox[
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"medium CDR cost\"", FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style["medium CDR cost", FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0], Bold]]], BoxRotation -> 1.5707963267948966`], 
       GraphicsBox[{{{}, {{{}, {}, {
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
1:eJxd1Qs0lmccAPCPJAmpUEmSWa6VWlkl/LNIl6m+WSOX5DbdvuxLJc2mJgmr
5hCa9fyTddNSjZKa496F9IUuE6JMZkIRX7rYW9/f2dnznPOe9/zO+57n/T/v
8///n8l+m8WByiKRKFe43t8/jG8ZfFmXW/qmrsPhgyMZ3LJ1vfOTV6fCUQzq
AtzGl9WTYxgsfxordrTuUjiegckL7yXeUvJBBhIdjw1mOeREBieSHI2S5eQU
Bk5/NFanzX+ucBqDXwIyy813kZGBWXWwdEYZOUOYv+N8z9ERLxQ+yeDp/nfJ
G1aSzzDI0/kqKSKZfI7BnbZmjdJ6cjaD9b1gaW3SrXCu8H56ovaZ9eSrwnyN
qTKT8+QCBiPNfpbu6SOXMPBYJ1bPs+tR+DqDClPL6MwfyBUMwnxFTZ/dIMsY
hMcaGEu0Xipcw6BolsakUV+QHzBwezyvTDeZXMfAKi3jlX8tuZHB1O1Bu5sM
ehVuZrBIWdNmqw+5lYG3OKdehZHb6XkDuYtB9Uxx5ymDPoV7GDTLj1bFeJDl
DKx3eW7vTiS/EfZLXh9aXkkWIfgOlUu6VeUKKyNkrU7tWmpHVkF4a+0Ylv0N
WRWhznlI2IgMshrCsxoviXUNWR3ht18jsweUXimsgfDj8BnJblPJWghKK639
1VeRtREk4jvur3eSRyOYdO1lA0fIOgjiIzvmtueT9RCcHfRdUx+SxyHcDJnP
lF6S9RHCH8lrPxnRr7ABgvzT4Cx7Q7IhwsmSrfGW08hGCMNL/ukfaks2RlgX
f2/l3YVkE4TxoY6tuJQ8BcHJ/1nnxuVkMwQDx6TDdivIFgjl8r7xY13JVghf
7+yJfu1CnobQfSO2qQ3I1ghhPhY2LbPJM4V451RHPTMlz0JYHXg8+50e2QYh
03tMlf4Q8hyERydOy6Cd1j8PoebuxLhNVeT5CElr6zTTc8j2CB8tbXFvSCID
QkSC7UbjLWRHhCuWV3xDPicvFP7PgHFwhQnZGQElWGD7ivbbBUEmcygsvUle
gqDR5tkSmkpehqDm2d7rEUh2Rdhj714WPY28AiEu7ph0zEvKRzHCpgMNIZMu
k90QSrdcjJSFk1ch7J3pVuo2j+yO8LFKZttffVQPqxE2PDcXlf1O9hLiM79+
21lC9kHwGTml9Jop2RfhfsbD0ZcbqR79EK4Oa81PSyUHIHi2GWUNG6znIATd
kNvdJzTJwQi3Kt4P6gfrEfpU16QsSyJvRFi72c/FNYgsEdYfYbtPzYEcgnBw
sXNlkSFZirDIMMaqSoUcijAQ9r4iqT9tQ4jXnZ0S3UQOQ5gQqRmjfZ8cjhD4
NsgvT0b+FiHgrMZpzUrydwibo5yc0gYdiTB7QU2EqIq8G+Hs7nGttYPzRSF0
uhXY3X5EjkbYr7ywMP5vcgzCpHsTcop6yLEI0SEVF0yVKP54hKaaYQnbtcj7
hXzvsPOSGpAPIhwzdjX904KcgDBx8pAd2+aSE4V+Mib5ia4L+RCCfUKCYfQq
corQn7QnWKUFkA8jTJfPMp0uJacJ/SIl3Uv/e/IRIR7z5iV2cWREeFKodyXi
EDkdYfE6mwPFSM5AmDPqbW3/KfJxBAulGcPHXiCfRLjU0XJK6zL5tFB/a7LO
NeaTzwj1dPGSZ0Ix+SxCWfFOLatr5HPC9/cZVRYPnicXEGw/NGhyNoKX0YLn
/oP5dVHIRzXpiqJB53L5l8f5Kud8zgWciziXcC7jfJ3zTc4VnCs5yzhXca7h
fI/zA861nOs4N3Bu5PyYczPnFs6tnNs4t3Pu4NzF+QXnHoRCsXdB+aB7Ocs5
93N+w/kdZ9HR/1uZswpnVc5qnNU5a3DW4qzNeTRnHc56nMdx1udswNmQsxFn
Y84mnKdwNuNswdnqP/8LwjpNwA==
              "]]}, {
             Hue[0.9060679774997897, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             LineBox[CompressedData["
1:eJxd038wFmYcAPB3L2firSnWWymai1Os5FhdZ/pGp0ZXy4WKakP6tfVDlEPW
oahESZ0r83xnpFyj/F5l3MLxpjJnQ946iwyJF696lbS33m+32/e5e+65z1/P
9+dngfu8t0slEkm59r57359oAT7K8ppx5cDy9z4qoNFItunR7kGd4wUkLO4d
zFGREwV8b+6xQrVUpXOSAMtd+/39I8hnBIzUWcpcyshpAmJ8Fm6YGCWnC8gy
7vPvdhrSOUOAedxawzlhZBQwZv8g7lYROVvAo5L46MYR8hUB/5yqkG9zGtb5
moB583u/3RlOvi7Afclrvael5GIBl1L2uNdoyOUCPlnl1zuwbETn2wJO93ve
XX2EXCVgjl5hy61KcrWABwk7JjlK1TrXCSg+7OF/fiW5QcDbLyOeNx0nNwq4
09Jys7mO3KzN73aB4pjRqM6tAhYpf3Vo8iIrtf8VgDo7idwhwNhmwravgdwl
QFK9peKk7IXOPQIc1Il/HPQi9wtIq4xadfoEWaXtp1zleKeWrBYQp6lKfit9
qbNGgHX3pq/sXMnjAlYE2axfFEGWICiHz6apr5OlCONyQ2lwD1kfIaM9Pmq7
hUZnAwT0tlY89iYbIkyWaCfqGNkIoVbjENVWSpYh5LSEBFl3k6cgJN8w3Rpr
OqazCcKa3HDzZlfyNIT8NoXXxA6yGULY4N+pncnk6Qiel/KigovIMxCG4kau
Bv1JnoXwZse9lEo1eTaC5lRbqs/UVzpbIITn21rr25HnInRbHjl3eQXZCqGo
dL6F3Ic8D8Gy3bHDfjvZBiFyn+yjqgNkW239RsZ3/RxJXoAQ0OOpn/cD2R7h
SVdMQtZR8kKEdR8XZm4+QnZA8DBuLL0YTnZE8HI9JLfdRXZCUIwFDtb4kb9A
eH6zzGrxh3iXIhw0CSvOsyYvQ7ghN2qdYkB2QQh1LrT7vJPq4YqQ8OiwLKWC
DAiql9oCnSe7IRjWS2327yGvRHhRstDZbTnZA2HJm7YUs6nk1QiZpR76nR3U
X0+EU84BXZn55DUIY7HTpzlEktciNBSl+ka7k79GKIiscgk2InsjBMXs3am4
T/O3AeHcgaTglDNkX20+le7rcR15I0L8fEXOkDF5M8KWJ3V6Z2toHwIQpnqX
FRVEk7dq++0StK1wMfkb7fyETH7s95T2LxDhUv2SdmU6ORjhx/gmudtacgjC
Qz+L7FxD8k6Eew3vDu3/boTlMzvv9OeQv0PoXRl7NeQCeS/CzPBfKtadJ+9H
OPFshl9ABjlUW8/00UDbXHIYQt0kU4+iQvIhBBF++oJeBTkCYWPKa99n1eRI
hJJPX98dqCdHI7T1hXrCh/hiWLxHmWOZ45mPMycyn2ROYk5mPsOcypzGfIE5
nfkicwZzJjMyZzFnM19mvsKcx3yNOZ/5OnMhczFzKXM5803m28y/MVcx/85c
zVzLXMesYG5gvs/cyNzE3Mz8F3Mr80NmJfNj5g7mJ8xdzN3MPcx9zP3MA8wq
5mFmNfMLZg3zK+Zx5glmyU//t5RZn9mA2ZDZiFnGPIXZhHkasxnzdOYZzLOY
ZzNbMM9ltmKex2zDbMu8gNn+P/8LuX6oiQ==
              "]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, 
            TagBox[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[1.6], 
               GrayLevel[0.5], 
               Dashing[{Small, Small}], 
               Thickness[Tiny]], 
              LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfTTuLwNDzXyHs2dA4Iv95PZeK+dmBD9xg2xJWxeC
b3z97lrXWQj+483Kh3+uQOIH+DKlbEfwJQ+LcbAfR/B1X6e+nHcVwS9/ETIx
/ymCL7RMPfnbFwT/KI8Dx07GBXC+jKGN02ROBD/J4PfL5wII/gX+NcvEJRD8
mzfXHHssj+BfrCsI0VJH8FP4Wlx59RF8+bpO79NmCP7JE4H7me0QfL5/mdNu
uCL4Tnyut9V9EXxBzoJm4VAEn+NJj8OtGAT/3cycbOkUBD/fas7PH9kI/v2t
fV8DihH8csFitpYqBH9V+PKq4CYE/0zFvJi5nQh+Z8vThc0TEfy8Ark/LjOR
3GsudaRhAYK/8UXq+4gVCD5/aUnH6vUI/tSHJWY3tyH42yyOui/eh+Afy7px
7PlRBL+w3XrlibMIPnd94k/lqwj+2bDKuKg7CL6W5EM13ScIftk27tiq1wh+
rF3bt+TPCH7usk9LNH4j+NkvFQ+mMy2E81nEFzo4cyH4PfKPdWcKIvg2HOIG
pyQQ/I7bs6ZOV0DwD3U+zLivjuAb5Bpuea+N4M8NaPz/Xx/BBwAbVv2/
               "]]}, 
             Annotation[#, "Charting`Private`Tag$182298#1"]& ]}}, {}}, {
          GrayLevel[0.5], 
          Dashing[{Small, Small}], 
          Thickness[Tiny], 
          LineBox[{{2100, 0}, {2100, 1.8}}]}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2015., 0.9}, 
         DisplayFunction :> Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"c) delta SAT \"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.8, 0.95}]], {0, 0}], 
         Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
            FormBox["\"\[Degree]C\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2200}, {0.9, 1.8}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{{}, {{{}, {}, {
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
1:eJw11g1UT/cfB/C0KBXmofQsTrVYzCSS5v/WpJCJNXMqjfaTjJRGlIceRotq
FZHH7ufmqVmUNat5SEtRlB6WFK1ICUsKE4v6363P955zzz2vc+/5Pny+n8/n
3NG+gYtWqKupqeUq97/P/64tEj7WyjDx9NqF/xwhYarJvgE+EeztEiwOYui8
4+wYCV/5RGydfJ0dJ8HVrq1L4xk7UULrws7wk8Nj+5ws4an1zYWa9uz9EjqG
a1YM8WYfVsbTCQvMCGeThKr4rPTiNPYxCaMu5zxeUMROlzAyNWXX+FZ2hgR3
+wvn3LTi+pwlQZqhHr7fmv2LhENBmaXdLuxcCSH6lz5f7se+KMHHRjcp+zt2
vgSdTteL9RK7UMJtt7y6q+fZxRKmmK0561XNLpWQVO1Usr2NXSEh1v6I6sP3
4vtcLcE/JXCrvQG7VkJnVEx18ofsegnHvhj/2PoT9j0Jx4fadte7sZsllEe2
aB3wZD+SkDVNs3yWH7tNQnXEzKprgewOCQONU30GbmS/lPDNqrU7OjazX0so
TNk5RrWN/VZC24nk23OF1Qif9mqMjBXfqxOKkjTH6ISwNQjqtRFaZwPYAwgr
D0en+/qytQjfys8z+3uwtQlvVtUfCndi6xJOlsTlnBvPHkz4+lnRyHg99vsE
CtTZ9+QNx3MY4XpgZcnPd9gjlPHHGapdz2HrEwwsH300IoltQHi7rrvlhT/b
iFDWf0LCXrBNCBmBy4IfjGSbERZoma4vaed8MicMnew3zE7k2xjCusxSL71D
bAtC8J/Jzz2D2FaEFb2Og17PYlsTxpo/Db9nwB5H+Eg/unhgG9eHDWHEZv9R
q/PYEwgnKkLj3yWwJxKKndZrXVzGnkSQNsTvOzqRPZngmOa0Ibt3Z5+nELIt
MP9pGduecKdXbfUXh9gOhIVuDWovVrIdCXnu+SEVtuwZhBibqsLunpg+gzD4
pfvd6BK2E+F/pgmGMXvYswjun9+oMVrKnk2ITnzR85UV25XQ7R1QtO3Z932e
S+goqFlzPJftRsgy/nW8dhT7M8Kkaeds2+ax3QmGzRMKkvXZiwh27WWBS5qi
++yhxC/LNG5/Jnsx4WlOSFrhNvYSJT+H6Jp7u7M9Cffhqt9hwfYmDDkXYGD5
bkeffQg/FG8ce66OvYyQU7U6e90Fti/hr8KWTc5H2SrC0bOvNk7ZzfYj9LtX
m71yJ9ufEFV0vzQznf0NYfSeuMMrNHj+NYRYfQqw82SvJdgMTe9ZfoodRNAt
22A09m92sLJfz5p3Vxw4HusJ8264Xlq5mR1CWOIwKtU5h71Jmd/xwpbYdnYY
Ya711tGq0Xw+W5TxvbL3di1gbyOMGrJ14+owdgTBzXjwvAfEjlLy2z61POIK
ezthj0O/+aomdjRB84CqOeMdO4aw+bOwxk16nF+7CJ2Rpr0tY9lxBJefPKuG
Tmf/QPij1kfHaA47UTm/v/2qTTzYu5V87zKbMM2bnUzQ/zNsfsJy9j6Ccpz9
Z6rY+wlHxjXaBgsfVNbfUzl1ji/7MKFyul7Qs6XsVEKDp9WVpC/ZpPSryJ8c
ly9gpxHaNboz9zizjxF6Mx2CVQ7sEwTzsEVWehPY6YQp3s2p7ebsU4Sqxnn3
Zw5nZxDuBj6dtao/+4yynof2OSVdHL8sgjKcXfUT9s9K/zDw/lazkf1LX/w6
q9m/Eo4Zxp6wLWPnEl459bsbWcw+T5hd9mXJyWvsi0o9hP5Yu0Q4jzDcxSxG
VzifEPrJ/hGXr7ILCN9d0RkTLFxIeNF6N8pS+Kry/aMLXnVF7GKlP6Y37ogX
vq68H21q5iRcSmhyuKrXVci+SagLiw7KEK4grFJ3tvEVriLozBw810C4Wtn/
tVvFN0U+1hDSLBNO7hCuJSjp3uwofIfwe2xe1MsCdr3Sr/ZMDs8QblDWt3t9
mUr4nrKeUONDpsJNSv/3WJtW8zu7meCV5TEyUfih0j9dmlrmCD8ibDulPUhD
+AnBe8bu3Xn57DalH7wXGhIq3E7YPmhB5mThDqVecxNdOi6znxOU8rLJEH5J
+GfzWEd/4VcE2c9Vz1L4NcGqu3XVvTz2P0q/yV/SSMJvlfp5vWvtUuEeQnl+
8Q0jYTUZv8VOdK67xFaXMbyz5k2KsIaM02tGPV8sPECGz5GvoS+sJWNfZXHr
rYtsbRnK70DLXmFdGZWPQ6cuFh4s4+ap8lv6wu/LKK//tOD2BfYwGYXLerQP
CI+QMena8zOewvoyzhxsjTERNpDhYXw4puE820iG82xNC1nYREbRgzRPlbCZ
DNVD9ZQPhM1l/NhgVPvkN/YYJR7Xqr4/I2wh46/TkaeDha1k3HjdZThV2FrG
5T9UV7tz2eNkzK28filf2EbG9IB4rWjF/wfiE7/d
              "]]}, {
             Hue[0.9060679774997897, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             LineBox[CompressedData["
1:eJw11Qs0VukaB3DjdFNEKFEjGUk03SfVoEelTEZEV0wiDMWolOqEaYrILZUp
NWo/u4SROlQzISIptAziC5WRS7czKdINuZx98v++tfb61m+9e3/vt9/3ef/P
RHd/B09FBQWFLOn6//fnT5BAf79+arHeOZI+e59A+W+j1GU74VCBgk7LTnge
gyMEConO3qJ0BY4WaHHA6aU6MjhOINPxx4dYfIDjBdpsP0eVtKMGnCCQtV/z
kz4zOFGgbw8N63d3g1mgiod+Wk4H4SSB9qluuC67AKcK5LyntL/oHpwukI/D
8JwvO+EMgYbu1VhcpRs94KvS///j3LwUKzhLoATvuP3hvnCu9Psdu9q8j8EF
Ap3W2Ou9MAcuEihdJzS7txEuEWjJLXfZr0NjBlwm0KOzZUO6voYrBaq2dVcb
uwqWCRSXG2DUsgeuE+hBkMu45QJcL61f30lLsyK4UaBgJ6ufU1/ATwRyDOy2
DFaOHfALgQJN7XamTodbBcrb5pCg5QC3C3SorSj9WgD8TqCb27RNd8bDnQKl
TSldYHYV7hHo1F8tMzqrYAUmj/8u1opvhxWZHvsGbOpWPjzgQUwvL1xQHG0E
D2GyrJuy5i9LeBjThPe1JspO8HAmHceMO9lbYWWmbuOuurwweCTTpNKA4P4E
WI2pZXXNXM80WJ2pdGLzM1k2rMlkUC1Wzy6GxzB5X/75jFcVPJbJQeWT+cpH
sA5T2b2WjzVN8Him9iib1Q+fwrpM303rn2j+HNZjerdyqUujfFyf6QdfpylJ
8ucNmJ4I2kU/PoQNmSIvso9SJWzEdOx27zKvQtiY6eMlS1enTHgqU1Z6oVdB
IjyNyXa/adK2UHgG09DdVYVW3vAsplqfpPPq1vAcJg1Z+9fpX8Fzme4dcelr
6cZ+zWPq+TJSsbcSXsBk41KctSgFNmOqyP/hw5Zg2ILp6PNuCzNHmJgSflI/
sM8IXsS0REt2TbkX9biEKVr9nVZOJbxU2s/g/mee52BrJjYd/Xv7Dni59H7q
NnfNreDvmVIs4nJna8IrmOqWpVzKbcL5smcKEMYPLrkIOzAtd2to+X43vEpa
T91p81dYwmuYdp073NU4DF7HlH3TPvybCuSBE1Pmlr3Xz8fDLkzz1L0zStfD
G5h8nm7YeHwCvFHan8wHRyKfI7/cmar8Drm0y/POg0lRVVnPLAL2Yjp/Y+qr
eB/Ym+k/rhnjjrvCm5mWxSjNXBsN+zI1aq4x9r4I/8Q0qKQy81YRvJXpRH9c
yKdqeDtTvOY6Bcd6eAeTxaTnRQ0NcCCTQomSRrJ8fLe0HqdVuopr4H9L8zsZ
+6eUw0FMF8Ona0y6A4cwvcq5pv8mX57/TDcK0u2X5ML7meLyGnozs+T9gClc
J8xA4w/4IFPiudjYqEx5f2BqsnK17Ja/XyRT0oUdu4LT5P2C6XffdY5dyXAs
03ubIufwc/L+wfSN0amhagwflernu5qm1ER5P2GqH7VihMVJ+Lh0HmtVM5t+
hROYTDbPUDlwFD7F9HR42/aZh+FEprfzd11viILPMF1ODK06Id9PluqvLrjY
Pgw+y3TWsDtIcz+cxDTVU7u5LgROZgrLDNNL2QunSnnnb5IXuBtOY9KbFOhn
J++n6dJ878QRxtvhS1I9+uhoqvjDGdJ8v/X+0rEFvsyU+9K35LE3fJXJ0dLq
foUn/CeT/gVn82J3OIvJa7N67k15/eXw5/5zywXOZQr6ra+1eD18Q7q/XkbV
a+ACJj+FuXrNjnChVF/FZ8w/2sNFTIOTelXVVsB3pPOlNbxumg1cwnR8YuzO
ldbwXaYI8X7pHiu4TMpvk3zl5EVwuVRPYx6U1y6EK6X5014fUTGHq5iuGLWe
tV4Ay6T8LlAoDDeFa6R8mrnnX2Vz4DomXf8OZ81Z8EPp/s4Pl9ymw/VMacEL
dK9MhRuk+rj2wkPJGG6Uzle8d+mmyXAzk0rD2qeFBvATpl+clHUN9eFnUh7u
b3wTMwF+wVQeu+px13j4H6Y+ExPbzTpwq5Qf+zZVNGjBr6XxjY3Za0fD7Uwd
zjsuy9ThDiY3u297VqvB75imR1jbPlKBPzDNKlN66DEC7pT25+xkz45hcDdT
v5nK2NAhcI+U169eFmgPgvuYDsZcDrnyBawg0tEM/8kr+w8NWFGk2Lu2so4e
eJBIVirJbgnd8BCRDmtVNVl2wsNEqmz7ZNr2Hh4uUvDQhdv4Laws0qSXW3es
fgOPFKkiL9xmZBusJlLGF6Oa77bC6iL5pReZRf0Da4qk3+dmY/cCHiPSPpUI
Na1n8FiRdCMVg5tbYB2RZo/zOJrZBI8XaXC41pLQx7CuSK6GkXFOf8N6Is2v
ue035xGsL5KB9fm6UQ9gA5HsFW6XdNTAhiLdlxKlVgYbidQSU/ZVfhVsLNKI
kyYH0irhqSIVXDK0O1l+iP4HflDB4A==
              "]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, 
            TagBox[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[1.6], 
               GrayLevel[0.5], 
               Dashing[{Small, Small}], 
               Thickness[Tiny]], 
              LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfTTuLwNDzXyHs2dA4Iv95PZeK+dmBD9xg2xJWxeC
b3z97lrXWQj+483Kh3+uQOIH+DKlbEfwJQ+LcbAfR/B1X6e+nHcVwS9/ETIx
/ymCL7RMPfnbFwT/KI8Dx07GBXC+jKGN02ROBD/J4PfL5wII/gX+NcvEJRD8
mzfXHHssj+BfrCsI0VJH8FP4Wlx59RF8+bpO79NmCP7JE4H7me0QfL5/mdNu
uCL4Tnyut9V9EXxBzoJm4VAEn+NJj8OtGAT/3cycbOkUBD/fas7PH9kI/v2t
fV8DihH8csFitpYqBH9V+PKq4CYE/0zFvJi5nQh+Z8vThc0TEfy8Ark/LjOR
3GsudaRhAYK/8UXq+4gVCD5/aUnH6vUI/tSHJWY3tyH42yyOui/eh+Afy7px
7PlRBL+w3XrlibMIPnd94k/lqwj+2bDKuKg7CL6W5EM13ScIftk27tiq1wh+
rF3bt+TPCH7usk9LNH4j+NkvFQ+mMy2E81nEFzo4cyH4PfKPdWcKIvg2HOIG
pyQQ/I7bs6ZOV0DwD3U+zLivjuAb5Bpuea+N4M8NaPz/Xx/BBwAbVv2/
               "]]}, 
             Annotation[#, "Charting`Private`Tag$190151#1"]& ]}}, {}}, {
          GrayLevel[0.5], 
          Dashing[{Small, Small}], 
          Thickness[Tiny], 
          LineBox[{{2100, 0}, {2100, 1.8}}]}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2015., 650.}, 
         DisplayFunction :> Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"d) C atmos\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.8, 0.95}]], {0, 0}], 
         Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
            FormBox["\"GtC\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2200}, {650, 1100}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}, {
       RotationBox[
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"high CDR cost\"", FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style["high CDR cost", FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0], Bold]]], BoxRotation -> 1.5707963267948966`], 
       GraphicsBox[{{{}, {{{}, {}, {
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
1:eJxd0wsw11kUB/B//5CVIiGpRKRGSCl55kz7T6+dEtFLeUvRrhqvWqktLSOl
JLFr3UM2QoVVjNWDZKU/2UqpbA89PJNCbFT7q/9pmr135jd3PjO/mXvuPd+j
5/WDk69YJBKVCN+n/fOKYODSVHJ1qKnL/rP3MJiZJVdp4PZK5igGw7LCXkc2
kWMYpI8JdPto2i1zHIOYJSWHFwWRDzO4YXbu99GF5EQGcsMVJy/tJScL/49N
Xt5h8VrmVAZtvymVtOwgI4Ntw/wTTS+QMxnsPXJ8boHojczZDH5M3/PSQ0LO
Y5CqWdY6I4acL9Tv6OQxTEouYrDe/v2mWpUemUsYeFxzMY50Jpcx8H2kUf4x
iXyZQfRAtIndfXIlg6cH3obrTeqVuZrBMdW8nOPuZCmD4/GZmdHp5HoGg/J/
ej5oJt9mkC+OKN6h3ydzI4MyRefEZd7kJgajsqS18zLIjxnsCk/S1X9Mfsbg
1ZFal56Jb2VuZWBzaLLRwTXkTgbWitbrGhLI3UJ/jCN2nb5O7mUwJ6No3oC4
X+YBBoUqhcbJluQhBgXm++sCAskihBbrg0Wr0shihAebAyRmdWQ5BC358qcP
BskKCBPuXuownzYgsyKCZ07KOXVHshKClWeFv2soWRlh5M24hbdSyKMRZq9t
2u1TSlZFOLLbT3VyI1kN4VbAHwVqPWR1hAzJMp0VI/+VWRMhwfZu/xNdshaC
XoLeX3fMydoI1/f1qltJyBMRGl52zlBxIusgnE30jfHeQNZFwFWDwbZ+5CnC
+RqB+mmBZAOE0MshV+OCyIYIV84vTBm1nTwdob6ztHjKNrIRwqkmiUntVrIx
gvfOCjUVf7IpgqjK3L/VnWyGEGslNNSFPBtB3GAf47OYPAfBTSfAQcGKbIGQ
rBEbbD+NbImQCyYKKmPJ1sJ9xleOCB2i97NFCMPlO4KfkucjmDVI1ylVkwGh
OXfSVasc8gKE/IT4f+RjyRKE0v6ga9s2kR0QVs6qexS1gLxYuL+KftSiCeSl
Qj+9O8ZXvKa8fIdg73x2vVwVeTnCfvn+4TrJZEeEjf2uBob+ZCeEeykLWuZa
kFchrC6yqtv6Jc+uCDE+1QV9Usr7GgRXo+zsd8fI64R8zZduPL+B7CbUV1RZ
429A3ogQ0VAT5d5O8+aB8G5q8+mes2QvhMJGQ42DIWQfwQ52khM2ZD+Eis3l
By6Kyf4ItdJPi+Z/C8LMLf25IkYORNn8hZO/RxCqV36yhhyE4LVv/9E59uTt
CNoP88oHjcjBCC86Zg9lTSCHInwbr2VXrEoOR2hTjivL+4a8E2GcV98iLQVy
BIJDV1v7IXlyJMLiJzvVz4wg70HQcQ7zHadM3ivUfzKlK0SNHIUgl9v+PEyb
/DOCRyJeqtcnxyA4d7x3sDElxyIomBh4BFuR4xDuW3qZzF9IPiT0+06l2H0l
+TCC76m+yBMbyAkI5S5p0LiZnCjkecWzJTdDyEkIs0a+TPX7iZyMMChdy7bH
kX9BOOpsc+V2EjkVoerSjZIgJKchxGuP9TI9RUbhPe12yX3IJ2cgzIjWvFdX
TM5EUE0qSP/1AvkkQt3gR0vPCnK2MH+JaW1Tq8g5CPpstW1fNTkPwVDH0eJ5
DfkMwvPuJdPUvuQlH2HM3L9bTnxxIZenIs7nOZdwLuVcxvki58ucKzhXcq7i
XM25hrOUcx3nes43Od/mfIdzI+f7nJs4P+T8mHMz52ecX3Bu5dzOuZNzF+du
zm8493J+y3mA8zvOQ5w/cBal/99iznKcFTgrclbirMx5NGdVzmqc1Tlrctbi
rM15Imcdzrqcp3A24GzIeTpnI87GX/0fHshoJg==
              "]]}, {
             Hue[0.9060679774997897, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             LineBox[CompressedData["
1:eJxd0wtQlFUUB/AdhgQJUTcSxpB4BWRqxSA6GXhC8DUiugklJvLSDDAlJAgF
UfGBwiqNAQZyD76AJFCgIGKQAAFdMofHRromumJkKMuyCTokre5hms6d+ebO
b858d+73/86xD9sq22gkkUiq9c+z/fnaKSBAVX1pVPVw4XOnCDCWG0+Pjhww
OFWA7SqPXrMB8kEBxZ9YdayYpzE4XYAUz2Z9G0c+KuCJT77T+gryMQH267LK
FBpyjoB0vzf2wZxBg/MEWDsUlv0RRUb9+1WK5JvF5NMCfmhpPzCnj1wkIMo3
V61y1hpcIiD56Q7N9Y3k8wLW1yvMXzlDrhQQHGGUnHGXXC3gjqdJlqPTkMG1
AlzcYncrwsn1AqKdb0XHniI3CRgYU6dOVJNbBVyd23YtwUFncJsAmQumnQ8l
XxOw5wPFieNI7hRQ+FrgYsdb5G4BzZYlMR4z/jZYJeBprpVLXRC5R0BciSzx
bDb5rgDPRfM3/dZB7hOwef2pXpj8yOB+fV5JY/cuLSNrBEy1yY55fy9ZJ6C8
piu2/UfyiIDusKpfZg6RRwWkZRfG+r4+bLAE4WLoyffMgslGCMHKJqMNmWRj
hATtnxdmN5InIHQr/cfWDpFNEbZK99ZfsR8x2AzBEt4uj1hJNkfAJyaZ5l+Q
LRC6+rokZwrIUxAOn1laJ20lSxG2qP3XePSTLRGcA274aSY9NngaQpTLcm+H
2WRrhJZ8z+ziZeTpCD+NBZaHh5NtENTyeY9nJ5JtEQ4UNYjbGWQ7hFdP1GjX
5pMdEG70+OiizpGdELShj8ofVJKdEXbgy9blNWRXfT6uZrq0WvJMhGarB4Pe
4/VZCPa2+sQryHMQnJKCfHcVkd9CWGx6xEOeQ3ZDmBySuWFhKtkdwXVAvVke
TfZA6Azdt85LRp6PULWoMaxzLvkdhFKLlOpzVuR3Ef6RDiofD1OeXghukjUx
aiUZEJTyOzZxlWRvhGmFQS9WHCX7IBRoy3q/iiIv1p/nZu0o9SUvRfBf6/fr
SzPIyxG+Ux2fuH+8P1bo811x6Ih/K3mlvl9qF7gF5pJXIaR5K2p2RZNlCLKh
AO2FBeQ1CFdXL2npMiUHIoRc2H9Y1UH9/CFCw9x43cU8chBCUrYsOz2c/BFC
eNhQzBZXcjDCJHcRW/UXzVeIvr+OFPaalJLDEE6757aEbiNHINg9vB8Q4U7e
hCC5vSgta5TmezPCz23PFjlS/33KnqSAUnK0/v+FTW20OEX+FEFkmmaEjHsb
wk3YHa8tJn+GUBvfmTOlgrwdwberbLtXLflzBM8QW7feRnKCfr5W1+jevExO
RLj8wseaYQV5J7tfMnMKwrFIIW8Z9x5WT2Xez3yQ+RBzOrOc+Sjzl8zHmLOY
c5i/Zs5jzmdG5pPMp5nPMhcxf8NcwlzKfJ65nLmS+XvmauYa5lrmOuZ65gbm
JuZm5lbmK8xtzFeZrzG3M3cyK5m7ma8zq5h/Z+5hvsN8l/kecx/zfeZ+5ofM
GmYts475EfMI8xPmUeanzJKC/9uI2Zh5ArMpsxmzObMF8xRmKbMl8zRma+bp
zDbMtsx2zA7MTszOzK7MM5ln/ed/Aahyqfo=
              "]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, 
            TagBox[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[1.6], 
               GrayLevel[0.5], 
               Dashing[{Small, Small}], 
               Thickness[Tiny]], 
              LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfTTuLwNDzXyHs2dA4Iv95PZeK+dmBD9xg2xJWxeC
b3z97lrXWQj+483Kh3+uQOIH+DKlbEfwJQ+LcbAfR/B1X6e+nHcVwS9/ETIx
/ymCL7RMPfnbFwT/KI8Dx07GBXC+jKGN02ROBD/J4PfL5wII/gX+NcvEJRD8
mzfXHHssj+BfrCsI0VJH8FP4Wlx59RF8+bpO79NmCP7JE4H7me0QfL5/mdNu
uCL4Tnyut9V9EXxBzoJm4VAEn+NJj8OtGAT/3cycbOkUBD/fas7PH9kI/v2t
fV8DihH8csFitpYqBH9V+PKq4CYE/0zFvJi5nQh+Z8vThc0TEfy8Ark/LjOR
3GsudaRhAYK/8UXq+4gVCD5/aUnH6vUI/tSHJWY3tyH42yyOui/eh+Afy7px
7PlRBL+w3XrlibMIPnd94k/lqwj+2bDKuKg7CL6W5EM13ScIftk27tiq1wh+
rF3bt+TPCH7usk9LNH4j+NkvFQ+mMy2E81nEFzo4cyH4PfKPdWcKIvg2HOIG
pyQQ/I7bs6ZOV0DwD3U+zLivjuAb5Bpuea+N4M8NaPz/Xx/BBwAbVv2/
               "]]}, 
             Annotation[#, "Charting`Private`Tag$182384#1"]& ]}}, {}}, {
          GrayLevel[0.5], 
          Dashing[{Small, Small}], 
          Thickness[Tiny], 
          LineBox[{{2100, 0}, {2100, 1.8}}]}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2015., 0.9}, 
         DisplayFunction :> Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"d) delta SAT \"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.8, 0.95}]], {0, 0}], 
         Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
            FormBox["\"\[Degree]C\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2200}, {0.9, 1.8}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{{}, {{{}, {}, {
             Hue[0.67, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             LineBox[CompressedData["
1:eJw11gtUDvkbB/CQilJuvVGhCIV1eSNh8d3e3Ja/2jZOZYku2EVuSUpSrW4S
y+tydtM8U/Z1y2ojootWSV65RH/ruhQ22lwO/UUl/1k9vzlnzpzPmZnfb+Z5
nt8zYx+w0iu4vYGBQZ6y/3v8vG2UMMoky9ZvXjI+e7OE4uyWDy5R7B8luH4R
XtmYzk6U4NclKTKrmJ0ioWaez9hJNewdElZ7h2Ts6bC1zVoJ1YPNSXJg71PG
+3OkRjOFnSbhjnZowbJgNkn4xXDl9A5b2AckZJyo6N+QyT4kweYL4wjH8+ws
CaeCi32TH7KzJRjoHxZ2aGGflODbe9vGTVYpbc6TsNXKVPNkFLtAQrQ8LaXv
THaxhDAv/z2qQHaphKORQWtzN7DLJehMf296nMqukDA59e/y5Az2dQljPx0f
v/Mku0rC7bS4JTWl7NsSwiN+HRZ4k31fgo9N4OCWh+xHElo3zsvW1rGfSBj6
bu+DHm/ZzyR0zneMWPiBXS8holxrsegj+7WEF5ssHzW3shskeEy88Ugl/F65
P/bi6b1N7BYJhwsTTwU2sA0IRyu0t/z/YbcnrDoR/vsq8XyGhJc5/usjrrON
CJul1dULi9gmBLfnpvbGh9mdCf4Bw2567GCbEZZN+eWxbSjbXLl+373CNG92
V4Lj2+1FTmPY3QnJtv1DfrNk9yQc+GiRrXrH+VURRp2OPONxi92LsLW6zmD6
KbY14dkovfOr3WxbQrsQ1QiXdey+hHz/ju/Nvdl2hJX7o/OXq9n9Ceq1MZc1
XdkOhBKalZn0gut9kDJ+vK5+tJ7tSHCN9U6eqGMPIfwc1TczLYY9jFDzfHfO
rO/Ywwl9jmrTZ7iwRxLMjs2+usOCrSbk5GOG/bOkNo8mXO39zd3mc2wXwsT/
2o8dsJftSrh7LFidtoI9nmD0pv7NCg37S8I3xWEjM3qxJxE2hF+LmfIisc0g
LDE1ObbkD7Yb4dNzo862u9nuhLEPE19uWMqeSlDawbD9E9jTCQPrOko6c/bX
hKbKVfqC6oQ2zyJo79jtMstlzyZ4Xgw00ieyPQmN7U+4jZrP9iJMGKdZnaBm
exPmXRn/2KYTe64SP9cl7jOq49vsQ6i8VvVPWD7bj1BYc3ia9T72d4T5HqHz
89azFxCeD3kwv9aPvZBQOnj/dE83doAy/9PKbdnD2UGEez0cTt2zYy8mBMw4
01zQm72UkJYypCRvCPsHQtTzF9cGRrGXK/N/vO3w6RI7hLDg7Ayz2G78PqsU
p73/ofZb9hpCXliGQ9BP7FBCRGr5eic9O4zgMCXIJ7iVHa7ka++ySrfhHP8I
pV4Ops6p82VvJAywLFPFxrA3Ec6lH/cd/it7M8FHry7tdoEdS/DePjrvP9Xs
HwnndVcz2zex4wnmPbp4eVpwPSUSkgZYuM+1ZycTrnUPMhw9kp1CIFVcQqcv
2amEjM7R8Y3u7B0Eyz6Xnvabyd5J2Bb51kY3m60lrPZ7nXHcg72HUFBbvCZI
nN9HsHLSbnn1NftnpZ76lARGT2GnEaoGnymZOomdTqgbWKaOGsMm7n9D2RmE
6zc3f6W2Yx8gTDV2WDS5J1tH2H5kUOJdY/YhQlnvkrSFzRyfI4Sgy2/WjXvF
zlLWq8Z18Z3H7N8ImqxWk5I77GxCJ5v0BUmV7BzCn+/CZt64zD6p5NtxU4rv
JfYpwo1t2YdMhPMIs1SN/c6Us88q+Qk+lPy9cAHhTbbnMmvhIoJUvuvA5Yvs
YmV9u0zwihI+r/RX99n+I4RLCa/6mVZWl7HLCMrwh7XC5QTrkOLaacJ6wq52
lNws6qlCiWeA087jwlcJD3I0LYHC1wljFjVf6iV8Q1kvrZqmK6XsKqW/WXdL
iRO+RVj+8ln0OOHbhDuVrlWvSth3Cf0vGCTphO8TppUjfb7wX4Ruoxd3txR+
RJiExqcV59k1BK+oWqstwk8IO09kH5wo/DdhslIw70S/fEbwC5rw8LhwHWHQ
wbD474XrCU6Ga5IGCL8k6DQHax8Us18T9ger5H3Cb5R+rR6X+61wA+Hf2y2E
3xFOOxjX68+x3xOcM/t1SRBuUuI50DdBI9yi1NuEg74Gwq1K/o/FxRUWsQ1k
GJ8M7Rgp3F6Gu/J4rsKGMuYk3DdrLGQbydhke+WnXGETGe1GOC8PFe4s41GR
eZqzsJmMecoH4G0B21xG8+SEDznCXWUU/WE1aK1wdxm11YY6Z+GeMs4uLQ9v
yGerZLjMDUjPFe4lo2Z8meV6YWtlPFXDX67CtjLMcoI/NJ1l95VRYWYTXChs
J+NidIzdZuH+8uf/NY2wg4xDcxoSjIQHyZjbLUStP8N2lHFhXcrQVOEhMv4X
67HWS3iYjBWXjphYKf4/fYC7TQ==
              "]]}, {
             Hue[0.9060679774997897, 0.6, 0.6], 
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             LineBox[CompressedData["
1:eJw11Qs0VfkeB3A1SJGM0Ll6kqEMiQ5Jgx896KU8QumpUkqRYohoXGoqFWq6
es3+7akxSKcaepkepJvSGTWUkUJFrmRyKrmm1Nx9x/ectfY667PWfvz3f39/
v59ZaKTfqr4aGhoXpeP//3//EgWqf/XcbUHILvrb2wTyX/KleGQznCqQc7ip
0cBM+FuBwubYqL47DacLZDZi57923IUzBEqfNb8uRQUfEGjCXMXYeYa7e50t
0MSJOVZKOXxUoIft3u/qg2AWaEv5WJfoBPiEQJd+fJARJ8C5As249GHYtTK4
QKBDF9pc5K3wGYFyllzQUeql97pIoCl7PLPi7eGLAul9l2xrFwhfFqg048Gp
hi1wiUDht5vC4wX4hkDejSfCVWXwLYHi412C5K2wUiAb/dVJjnp7en1PoI78
fsomO/i+QP0/zr4yzh+uFahouP/XWrHwY4G2HV54PjAbfiLQU8vjFQbFcLNA
lRts95s9glsF+viL26bYD3C7QGl/WK3oMd3ba5VAK7Wtm4RJcKdA1Sa/d88O
grsFWpj0xLpjE9wjUHLjtfiN+2ANpg8v3NddzYP7Ml2ZuF2j5DqsyaRa/75w
aR2szTQ42ShmuwrWYQqt2S0O09rX6wFMOdXFAwfIYD2m5XMn9ziOhfWZJt80
HrLDGTaQnh9cGtk0DTZkepC1N3q8L2zElFa5rt1vIWzCNF9e82nccljGtFdb
ZZK7CjZlEjSd/sOr4WFMTifdgj6EwSOYnmknJmWvgEcxxdaHZAYvhs2ZXAe9
qjQNgC2YGud1R1zxgi2Z7tqPShiuXv8YptmyXytMvoCtmdwOrLn9T33YRtqv
6rRg107s1zim27FXBdMaeDyT0b2ptapC2EFa3+jQmc2ZsJzp6R8eOt5RsBPT
/gzvR7U+sDPT6BkGimW2sAvTblmsrFAX/opp0ICZv+W/QH7cmM4N3aq0KoeJ
KcXl+W8DT8CeTAWRy6KnbIOnMs2RbnA2BJ7O1LBHK83DCfZmGv955LHGQfBM
pjvHDi2LU9fLbClPz/K83l+DfZhGVdfJAw/C85hKPFsqtq2D/Zgev8k8sNkd
DmDKMMpc7mgIBzIddYxb+qAJ9R8s5eujUJZYBC9k2lWx3TEmFV7E5FD+RuES
AC9hOmn+eOUBC3gZU7u8yu9SF/pXKJP3UK+CNCW8kull7tqUW7lwGNO+ntKS
wn3wGib3PQlvE3bAa5kunFddNjoFRzBt2LkoyvIWvIHJM6Tyx7g6OIqpwj+w
OuY5HM1UZjtyxow2eDNTW/9ZX2moHcu06Zs7K06pz49jsgtPr8lsgLcwmQW1
LZhXAycyfTHyF125ul8nMbmc3dH1ukLd/5niPKauPVwOp0j5fTE15XaZeh5I
72NZf3BMCbxd2k9NjfKky+r5wPTZkrDa1ovwLqaaW4qi2efU80K6X/+IytKz
8F6mMwFDVA4K9fxgOv+92bDCfDiLSeaxwtL+J/U8YYpX0qrLx+GDUn/pcNT0
YjibaUqQ+bz6o/Bhps5SB6fNh+CjTDonz6YaH4S/l/LUbbzuYhbMTO/qIgpW
qr/nD0wzjhr7Dk6HTzBZPWyLrvgWzmE6rtQ+lJoG5zJtveudOj0FzpfyuNH5
rW4yXMDUs35uRm0CrJD6n6+hYV4cfIZJ/q542rYY+Gcpjw49P4VEw0VMIzsj
Al0j4fNSfbztCR8dAV+Urg/3jxkUDhdLz+szSE8jDL4sref6msCuUPiqlOen
d6a+XgqXMBnWFypeL4KvM93c8fBO1wL4BlOLa6W8TxB8U8rj6aBggwD4FtOf
tYvZwheuYAqz1Trh6gMrmRZ+Y3YyZBZcydRP1yo8yRu+xxRS5aufMw2uYvq8
TH9FlSd8n8ljOqV9RnAN085+B+ZMcoVrpX736Z5ykwtcx5Rnb9by80T4MdPG
gA0/dMnhBiaLAbYv3RzgJ1L/ElPKdtvBz6R8Lhg3tN4GbmZan35M5WANtzC9
LS9y2mMFtzIt8PF88dICbmPK7pn7ycccbmeqctwfeX4k/IppUlKu3Hw4rGKK
ue08PcsUfiPV25EnR7RlcKdUz8Hz7ZKN4S6m5pQJ3R8M4W6m1V75HYkG8Hsm
v0Oh+n314R4m3witObt14U9MPonnjsv6wxoiRdqM0cvXhvuKtDhKO9ldE9YU
qXTyn521fWBtkfoW262O/Wtnr3VEqmjwqxzyER4gkutAmcWV97CedH2UYnlY
N6wv0pR/OycP7oINRFpeH/f1jbewoUg6MZme8a9hI5FCOibW2XfAJiJtPW3m
/Kodlon0j7z/BijaYFORflUkfBndCg8TKS3xXuGkFniESGan7Fs1m+FRIt08
HnC9+ilsLlJ22avJOY2whUiXIs/5JNbDliL56C7pnP8IHiPS1dIhlhMewtYi
hR6zbhz8O2wjUkumu6z7/k76H5Vwq3M=
              "]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}, {{
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[
               NCache[
                Rational[1, 90], 0.011111111111111112`]], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, 
            TagBox[{
              Directive[
               Opacity[1.], 
               AbsoluteThickness[1.6], 
               GrayLevel[0.5], 
               Dashing[{Small, Small}], 
               Thickness[Tiny]], 
              LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfTTuLwNDzXyHs2dA4Iv95PZeK+dmBD9xg2xJWxeC
b3z97lrXWQj+483Kh3+uQOIH+DKlbEfwJQ+LcbAfR/B1X6e+nHcVwS9/ETIx
/ymCL7RMPfnbFwT/KI8Dx07GBXC+jKGN02ROBD/J4PfL5wII/gX+NcvEJRD8
mzfXHHssj+BfrCsI0VJH8FP4Wlx59RF8+bpO79NmCP7JE4H7me0QfL5/mdNu
uCL4Tnyut9V9EXxBzoJm4VAEn+NJj8OtGAT/3cycbOkUBD/fas7PH9kI/v2t
fV8DihH8csFitpYqBH9V+PKq4CYE/0zFvJi5nQh+Z8vThc0TEfy8Ark/LjOR
3GsudaRhAYK/8UXq+4gVCD5/aUnH6vUI/tSHJWY3tyH42yyOui/eh+Afy7px
7PlRBL+w3XrlibMIPnd94k/lqwj+2bDKuKg7CL6W5EM13ScIftk27tiq1wh+
rF3bt+TPCH7usk9LNH4j+NkvFQ+mMy2E81nEFzo4cyH4PfKPdWcKIvg2HOIG
pyQQ/I7bs6ZOV0DwD3U+zLivjuAb5Bpuea+N4M8NaPz/Xx/BBwAbVv2/
               "]]}, 
             Annotation[#, "Charting`Private`Tag$190237#1"]& ]}}, {}}, {
          GrayLevel[0.5], 
          Dashing[{Small, Small}], 
          Thickness[Tiny], 
          LineBox[{{2100, 0}, {2100, 1.8}}]}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2015., 650.}, 
         DisplayFunction :> Identity, Epilog -> InsetBox[
           FormBox[
            StyleBox[
            "\"e) C atmos\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
             StripOnInput -> False], TraditionalForm], 
           Offset[{0, 0}, 
            Scaled[{0.8, 0.95}]], {0, 0}], 
         Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
            FormBox["\"GtC\"", TraditionalForm], None}, {
            FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
           GrayLevel[0], 
           GrayLevel[0], Automatic, 
           GrayLevel[0]}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2200}, {650, 1100}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}}, AutoDelete -> False, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],FormBox[
    TemplateBox[{
      StyleBox[
      "\"DICE2016\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
       False], 
      StyleBox[
      "\"FaIR-Geoffroy\"", FontFamily -> "Helvetica", FontSize -> 20, 
       StripOnInput -> False]}, "LineLegend", DisplayFunction -> (FormBox[
       StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 20}, {20, 20}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 20}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.30000000000000004`] -> 
                    Baseline)], #, 
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 20}, {20, 20}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 20}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.30000000000000004`] -> 
                    Baseline)], #2}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
           "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[{
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                  PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"GrayLevel", "[", "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 = GrayLevel[0]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                Automatic, Method -> "Preemptive"], 
               GrayLevel[0], Editable -> False, Selectable -> False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                  FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                  False]], Appearance -> None, BaseStyle -> {}, 
                BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                Automatic, Method -> "Preemptive"], 
               RGBColor[0, 0, 1], Editable -> False, Selectable -> False]}], 
            "}"}], ",", 
          RowBox[{"{", 
            RowBox[{#, ",", #2}], "}"}], ",", 
          RowBox[{"LegendMarkerSize", "\[Rule]", "20"}], ",", 
          RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
     True], 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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.8254404460172057`*^9, 3.8254404829212575`*^9}, 
   3.8254406390724773`*^9, 3.82544070457257*^9, 3.82544081856073*^9, 
   3.8254408589557867`*^9},
 CellLabel->
  "Out[1147]=",ExpressionUUID->"dc84bf8b-0a3c-4786-af72-2310ca18b0fd"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI62100.tiff\>\"", ",", "SI62100"}], "]"}]], "Input",
 CellChangeTimes->{{3.8254408643267946`*^9, 3.8254408806588173`*^9}},
 CellLabel->
  "In[1148]:=",ExpressionUUID->"d47b5dbd-1e1d-4f60-825a-21407b9e2213"],

Cell[BoxData["\<\"SI62100.tiff\"\>"], "Output",
 CellChangeTimes->{3.8254408885598288`*^9},
 CellLabel->
  "Out[1148]=",ExpressionUUID->"27b12c2c-eee7-41fb-9c78-f5ada9debdf6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"ospD16low", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "185"}], ",", "9"}], "]"}], "]"}], ",", 
     RowBox[{"ospFGmedium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "185"}], ",", "22"}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8254254565644913`*^9, 3.825425480826026*^9}, {
  3.825425532031598*^9, 3.8254255356916037`*^9}, {3.825425613420713*^9, 
  3.825425616783218*^9}},
 CellLabel->
  "In[1106]:=",ExpressionUUID->"284d7b8c-06af-48b7-93a0-e8f19967b0d5"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJw11glUVNcdBvBBECioKCIa0LIoIEoJi2BAlg9QFtmHdWCYfYZFEUUNxQhM
WIoIblQQCcugqGmqEqKJRAXHRgyhRERrLS4sKosRT6lU3BBiTv6XczicH9/5
c3n33fe9sZBkcOWzOBxOy4fv337+/jXuvVRfr8BpJBD0C3y5bLr6dMxGsi4G
DLxnPG8Gk+fD/ZDoq6NxoWQjLLT9eXjbWBh5CX7avw+XAyLISzEz3F7SZB5J
Noegd3bBJg0u2RL2TxY8CPyFeQUSc3bGqO5Hka1RV2nW0nknmrwSB4OXZpv3
xpBXoazIIvPtUCzZDoIGg8rmqTiyPZy0OD/WLeORHTAW0jBhEpRAdsTcGMeK
3LxEshMKUpd4WV7lk50x+8pcR8E8AXkNNu+KiNibLCS7oF3j/+9yFSKyK741
zekqNhOT1yIhv0yp18/8CVbeTsl0PCEhu2Fskie3zpSS3XHpuwuJhv4y8jpU
7d2XvcxCTvaApvXWZ1s0FWRPPHzW2Gb3nNkLJn2nr37Wl0z2RvsOi9i8uylk
4Lft5v0n9XcrgSZ+xhe2g2mU+0B2OFkw78Umyn2gCsvesVw/nXJfcOccTMm3
20K5L647lnv6xmZQ7ofn+qNF69ZvpdwPn0aUPKsaJHPWw+e/+yxQsI3y9RjU
5dq62mZSvgFJjRHGubfJyg247dx6bUn+dsr94Xzi5QUtlx2U+yOjxmjYc4zM
CYCjUKBsPbWT8gDwTVddz07+lPJA/CD1LpWvzqI8ELzScI2tE2ROEIo/Mgkv
vPJnyoPQ+thoWcmBbMo3wsXvq5UC6S7KN6JnRXPjgzQyJxg2fRp15wNZHoyn
tpl7WqxZHgLhjc1xo1osD4F7ZdYdv8fs74eiJDv2VudVsjIUhbfzF+eoWB6G
dPOkzQl5LA9D1iVBtUTA8nDoFdZKKjxZHo7mwacVL5ayPAINH7e+z56i60ME
KnmFktUP2PVG4MeLLfu0L5PVEdD+vMJPv4bMicTAwmfRbrvZfCQ0vbzLDvLZ
fCQsOhefn+/J5iMxmv+28vtlbJ4Li53r3u2dpv0GF3G6f28u7Gf3gwv74ZG/
nFST1Vx0Bxb6jzew+xMFRZrhZXEBm4/CadeZprcyNh+FjxeZTlz0Z/NRmGO2
IOrYSjYfjfT927/4Wo/NR2OWfUfl0BidD2U0so4feINusjoaE13/FF9oZucn
BrWtzvdWedD5RAzyjHYO1z1gz1MM4mdGHITp1CfqGGDNxJPqJNYnsZiv84fI
tsgkmo9F7vRn4/eCqF+Usfh2upIztYH6RR2LeYUyjYXLWb/EQVz60Gv1CTLi
kFfUVeFjS/2ijENtoMOdkCayOg5x1lNc77USmo9H2SKXKu2rZMSj4Fg2pzSE
+kcZj6y2epOmXrI6HjpH9ruFp7A+4sEk1P46XpPBg/zabFVkCfWTkoe2RseE
AFPqIzUPwvHUsL4zrJ8SMD/e7XwHqJ+QAEXx6+Izt8nKBNi8lKfaKKiv1Am4
mOoc9sMr1l+J6LG8/2a6mPYbiRDUvE4LMKb+Uiaie3J07qsGsjoRs7c8/Dlq
FfUZh4+WJs2RsrNk8GHV/TKn5U+baZ4P7X9vm7p5kqzmY5++ju83S1j/JSG6
o2KXcT4ZSdB1T7hTPkhWJqFvyLLtry7Uj+okxBj26vB2kzkCWFkc+u5/58gQ
wKz+YO3ae6xPBfDeP9zROcbmBXDpGTk+5ymbF+KG86SVaRebF2K9Y7ZmVzmb
F+LFHJO3p9zYvBBn66fPDV9m/78I3NUh/ZvY9ZiLIHH4cIIC6Hohgm7ihzeS
gvZHJEKvjVIiC2LvAxHiY6sPz7Inq0Q4x3d1TzYkq0W4crTK/tok7f+ACGvu
pjZa3WfvFzFeu77vPXCFbC4GGuq8ZjWSIYbjmIN1zh6ySAyh+Op7Tjq7v2L8
tD3HbH8kWSXG4TcB/Stc2f0WY5N+d3C7CVtfjH5TP87WGTovHAme1/bEWj0h
m0uQ94/eM0Md7DxJwJ37zrP5DFkkgbrp0Io95ez5luB+8eWhtCyySoLS6/f6
eXyyWgLjE4WiGB/ygARCPYPqJGu2vhRfDumczdRn60sRPdW/oGKczjekaFAE
Lmq/QxZJ0Wqqr6d5iayU4qzcaWm4iqySYujCqOxvRex5kcJ64G6g4SbygBQJ
BkLrvRHs+ZEh+BetNQtcyeYyWPyx5MgpU7a+DHaXRFtDNdj6Mvj3aJppjrDn
Uwa9z/mPOrrIKhnGi+tn6r4hq2XYMOlTWVRFHpCh5tjy73fnss8jchj4oq1Q
RjaXw+5f1cO1G1kfyNH84FZahwNZJMfrsvUpWovZ+nLcFEWNRL6nPlHJIbB/
tK75MesbOTyM7zdadpIH5KgffrLh5NesfxQYvJno4XGEbK7A8S7to09yyFBg
e+9oTb2MLFLApjVjd3owWanArUdl4jAntr4CRr46Sb4fsfUVODpRlhPEYesr
8Elr6SvpCPv8lowmy+Oa5Tfk+BVOBTbq
       "]]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJw11glQU+caBuCIckHckFq1F1TAuiAICtSy8wKyCARDCCQsQnKysINcRCyg
RlxuBXXQglcGEFRUXMANp2BFA+5La72KrGpQqdYFUcQR4dJLx+/PTCbz5J03
J+fkO/8fMy5VqNTh8Xh1I8+/X788et0T+ptDN0x0Ar2B2hdlBnXlzmR9CEsP
7Njh7ko2ROVw1mbdt27kKei7Vrtkuxjk6UgWv9iohAfZBM5N8Y35tp5kU+TO
+Es319qLbI4hQfzl2/ZLyd+iP+7ovD5vb/JcFPVuil7P+ZDn47BOzw/Deb7k
Bfjd95u0URo/shUcSweaTXT8ydboe2qz8GVwAHkRevn3YvVOBpIXgydKezp1
RhDZFsax9yZripeT7fB40LhW/JOAbI/gJF1+ABdM/g63jMqUU52E5CWofhwY
OM04hPw9Cv3XeJ7QFZEdsN/DYK/nZ2ZH+B1sveswEEp2gqXNQPmQjpjsjNCP
KyYPTZOQXbB33OyGKodwsitM3tR1ZSojyG7YMzBx3ZO9kWR3uN4L2KbsjiID
fQUWs3Ido79YDRia1ZQ2lMRQ7oGg0s63gi1Syj1QV9h3JdpHRrknQtxTFwgn
cpR7QuhneyzzEZnnhcaC5uqZP8sp94LPad+q4j0KypdiQ5ZdgtvIhHzJlyLC
e32cKlNFuTd2zUm3Ss2Ipdwb490dys+tjaPcB4UNB0tPFMRT7gPnS/d3n6tJ
oNwXyxYWBga1JlI+4omtzc8mJFPuh7V67mk8QQrlfrjVp+2xKk+lfBnGPnEp
5a1bSfkyBFmcKCqwS6PcH29+Mf9U3ktW+yMrZZ/lzrP/ojwAFyfpjb2bm055
AArj7etbJasoD8S47PYuG4cMygNxre8bQarZasr5aBiluuD1dSblfLj2Lpak
TVlDeRC4WIOyllk/UB6E6WfmHOOiybzlOJatSC9yZflytMRXHnxvwnIB+H6J
47OG6PMgwA2duSstO8lqAT7LI0r+cZ6sEcBxwffB40rZ8YNh1LCNc8xh/WCc
z7y/pyCK9YPRPrpaY+jK+sEwtiqtrJ/B+kKIZj7Uzx+m84MQW08FXtz0mJ2v
EO3DRUWHNGSNEDky29DefWReCPS4ttuyjawfgmtl/238rGD9ENTd/Er/Fx/W
D8Ho2TaJ++ezvgiw6aw/acD6ImzXv9rY/Zquv1oEK0u+v8cdskaEqfzYeZdO
sd8nFM8+3pqXWEhGKBaesv2nYybrj+R7a3okDUnUD8V5t/QHh8fQvPHCIJf9
WOoWTPOGMGydK7i8fzmbtzA8v3RmTPgHsiYMjale26btYvMnRvqiEt4lM5o3
iHFUKhIe3kNWi1HUd+XRrT/IGjFKxBlh+R/YfEoQ96Jca17O+hKIHN9YDDiw
vgSdhk+/O2HK+hKs6/bIujmB9cNh3HLxVfpH+j4Ih1GbXvjup+x+CEdlSmzM
wG2yJhzL3avyp5xj3z8Ca852Fo+tZP0IXDhwddP0nawfAeuMgpaN2awfge57
8sgtcawfidAD4tGiENaPxIFdTqP4YP1I+F5rvp5iyfqR8Ltc6MdNZ/0oNNeM
jf91NOtH4fp40dWLvez6R+HP4mguqZNd/yiYubQ7cDfIvBWYldCxyP8sGSug
U395p+9+1l+B+RYneaodrL8CnPWR9pRs1o9GVJjMThPL+tFwFq593iJi/WiE
/n1BPVg/GuN85mTkWrN+DP5TIzVebMz6MbCoWTCYos/6MXg3sl3ueknzpYmB
8xGbAOcrbH2TQtU/8Wcvtt6ZSvGrxL5sRhabRyl85gVUZ4rIUikEeWE9m23I
aikszCShNgbkCilKRo9JX9VN862R4tPA28ZEDVkrxcBCp/CXJWz+Zdhn1LLY
OpNsKkNSztzB50IyZHAyHTu42poslUEbb/s02YCt1zKc3ugf5fsHrecVMsyR
mPyW00TWyNBqaVVXvpeslaF256tDU7LZ+s/hdHN3oVpMNuXQG+TmusSeDA6B
P9ZXvjQkSzn8u6qpvOsN3c9qDh7v5Lcf3iRXcFAeqh2eWsXudw5JP+VdjdhM
1nLw7n+gecCReXIMv7+RN3LWdHw55pgP5ZvOJEMOy0fXXd4P0v4llSPzq5x7
H9rYfiZH9Lv7syfUkSvkkDwZpQzZTdbI0bXesu3UKrJWjsDP2RYuIWSeAgc7
jOq1i8mmChzf5uN2wpAMBVa+bksvfkv7qVSBmg3VRsd/I6sVmPCsrbujmlyh
gHvX6we228kaBbKajCZVJZG1CtTOsjD3CmT7sxJeYnPB/yzJpkrUP3lS1TmO
DCVavrZr6nhF+7tUiQ+fGvh/3WL7vRIfS7b+6XmcXKFEeplPxNFtZI0STW3V
SttkslYJvlHAzYd8Mk8Fh81FBketyaYq3NnQrV88iQwVGrt0Jx/ppf8bUhXy
dC/s77hLVqvQk30/xuYMuUKFgQt1ooOFZI0KCVtEwS6ryVoVOltf+/WL2f+X
WDyMGkq+4xiH/wMuWED8
       "]]}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[0.880722, 0.611041, 0.142051], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0., 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->500,
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{0., 184.}, {0, 422.678868}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8254254811960263`*^9, 3.825425536161604*^9, 
  3.8254256172632184`*^9},
 CellLabel->
  "Out[1106]=",ExpressionUUID->"1095aae3-0d17-4218-8848-598c52a92cac"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8254249205047336`*^9},ExpressionUUID->"2ec21420-69d6-4d4f-b4b8-\
1cce8e5f5b4c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Dimensions", "[", "osD16medium", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "osD16low", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "osD16high", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "osFGmedium", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "osFGlow", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Dimensions", "[", "osFGhigh", "]"}]}], "Input",
 CellChangeTimes->{{3.8237008744639816`*^9, 3.8237009583231535`*^9}},
 CellLabel->
  "In[323]:=",ExpressionUUID->"d6afa5b2-e232-4817-9f83-5b7e246f34a5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"137", ",", "48"}], "}"}]], "Output",
 CellChangeTimes->{3.823700892477007*^9, 3.8237009589431543`*^9, 
  3.823701917024619*^9, 3.8237022692551727`*^9, 3.8237452291557803`*^9, 
  3.8238789128684444`*^9, 3.82428347600815*^9, 3.8246193287823524`*^9, 
  3.8246198251649265`*^9, 3.8246198581200686`*^9, 3.8246202154001074`*^9},
 CellLabel->
  "Out[323]=",ExpressionUUID->"38365c7d-2c7d-43d1-8320-a3e257afe8d5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"137", ",", "48"}], "}"}]], "Output",
 CellChangeTimes->{3.823700892477007*^9, 3.8237009589431543`*^9, 
  3.823701917024619*^9, 3.8237022692551727`*^9, 3.8237452291557803`*^9, 
  3.8238789128684444`*^9, 3.82428347600815*^9, 3.8246193287823524`*^9, 
  3.8246198251649265`*^9, 3.8246198581200686`*^9, 3.8246202154052544`*^9},
 CellLabel->
  "Out[324]=",ExpressionUUID->"e658ba7c-3420-4ae2-b911-ea2bcfd153c5"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"137", ",", "48"}], "}"}]], "Output",
 CellChangeTimes->{3.823700892477007*^9, 3.8237009589431543`*^9, 
  3.823701917024619*^9, 3.8237022692551727`*^9, 3.8237452291557803`*^9, 
  3.8238789128684444`*^9, 3.82428347600815*^9, 3.8246193287823524`*^9, 
  3.8246198251649265`*^9, 3.8246198581200686`*^9, 3.824620215413495*^9},
 CellLabel->
  "Out[325]=",ExpressionUUID->"b6542fb2-8626-4845-a76b-a88d1fda0577"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"137", ",", "48"}], "}"}]], "Output",
 CellChangeTimes->{3.823700892477007*^9, 3.8237009589431543`*^9, 
  3.823701917024619*^9, 3.8237022692551727`*^9, 3.8237452291557803`*^9, 
  3.8238789128684444`*^9, 3.82428347600815*^9, 3.8246193287823524`*^9, 
  3.8246198251649265`*^9, 3.8246198581200686`*^9, 3.82462021541449*^9},
 CellLabel->
  "Out[326]=",ExpressionUUID->"9cd3bdaa-3c05-4fcf-bda0-b7394d93743a"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"137", ",", "48"}], "}"}]], "Output",
 CellChangeTimes->{3.823700892477007*^9, 3.8237009589431543`*^9, 
  3.823701917024619*^9, 3.8237022692551727`*^9, 3.8237452291557803`*^9, 
  3.8238789128684444`*^9, 3.82428347600815*^9, 3.8246193287823524`*^9, 
  3.8246198251649265`*^9, 3.8246198581200686`*^9, 3.8246202154224377`*^9},
 CellLabel->
  "Out[327]=",ExpressionUUID->"5f99ddfd-ecd9-4fde-9621-848b0679780e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"137", ",", "48"}], "}"}]], "Output",
 CellChangeTimes->{3.823700892477007*^9, 3.8237009589431543`*^9, 
  3.823701917024619*^9, 3.8237022692551727`*^9, 3.8237452291557803`*^9, 
  3.8238789128684444`*^9, 3.82428347600815*^9, 3.8246193287823524`*^9, 
  3.8246198251649265`*^9, 3.8246198581200686`*^9, 3.8246202154282303`*^9},
 CellLabel->
  "Out[328]=",ExpressionUUID->"b5f0986d-6c1f-4771-998c-4f9f90113145"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", 
  RowBox[{"SI6T1", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"3", ";;"}], ",", "1"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.824653431326795*^9, 3.8246534453795447`*^9}},
 CellLabel->
  "In[462]:=",ExpressionUUID->"5b9514b7-e0ab-46ed-a0b2-5948b26fa027"],

Cell[BoxData[
 RowBox[{"{", "6", "}"}]], "Output",
 CellChangeTimes->{3.8246534460740385`*^9, 3.824653503381032*^9},
 CellLabel->
  "Out[462]=",ExpressionUUID->"2ea5c800-6a1c-4a28-85bb-2e3ac9bb313e"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SI6T1", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<-\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "17"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<Peak\>\"", ",", 
     "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<DIVE-T\>\"", ",", "\"\<\>\"", 
     ",", "\"\<\>\"", ",", "\"\<Peak-A\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"",
      ",", "\"\<Ct1\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
     "\"\<DIVE-C\>\"", ",", "\"\<\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", 
     ",", "\"\<high\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", ",", 
     "\"\<high\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", ",", 
     "\"\<high\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", ",", 
     "\"\<high\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", ",", 
     "\"\<high\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SI6T1", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"3", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<D16\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D13\>\"", 
      ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D07\>\"", ",", "\"\<\>\"", 
      ",", "\"\<\>\"", ",", "\"\<FG\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
     "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\"", ",", 
       "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\""}], "}"}]}], 
    ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\""}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8246529561815195`*^9, 3.824653074149477*^9}, {
   3.824653116588577*^9, 3.8246533950998235`*^9}, 3.824653499373687*^9, {
   3.82465353224226*^9, 3.824653555960035*^9}, 3.8246537129007654`*^9, {
   3.8246553031620817`*^9, 3.824655338370352*^9}, 3.8246640084748864`*^9, {
   3.8246641412516317`*^9, 3.8246642215879493`*^9}, {3.8251802846189194`*^9, 
   3.825180311013957*^9}, {3.8251803732340446`*^9, 3.825180375784048*^9}},
 CellLabel->"In[26]:=",ExpressionUUID->"0c2f880e-8792-46e8-b64f-92936093aed6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SI6T1", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8246642297492127`*^9, 3.824664235828268*^9}},
 CellLabel->"In[59]:=",ExpressionUUID->"3b267443-f450-4d37-8893-11cd7271af87"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"Peak\"\>", "\<\"\"\>", "\<\"\"\
\>", "\<\"DIVE-T\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"Peak-A\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"Ct1\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"DIVE-C\"\>", \
"\<\"\"\>"},
     {"\<\"\"\>", "\<\"\"\>", "\<\"low\"\>", "\<\"medium\"\>", \
"\<\"high\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>", \
"\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>", "\<\"low\"\>", "\<\"medium\"\
\>", "\<\"high\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>"},
     {"\<\"D16\"\>", "\<\"2050\"\>", "0.`", "0.`", 
      "0.`", "\<\"-\"\>", "\<\"-\"\>", "\<\"-\"\>", "856.652471`", 
      "855.649454`", "855.266156`", "807.803238`", "808.695348`", 
      "809.225664`", 
      RowBox[{"-", "42.380322`"}], 
      RowBox[{"-", "42.427722`"}], 
      RowBox[{"-", "42.349605`"}]},
     {"\<\"\"\>", "\<\"2100\"\>", "0.438282`", "0.34459`", "0.290345`", 
      RowBox[{"-", "0.311696`"}], 
      RowBox[{"-", "0.229678`"}], 
      RowBox[{"-", "0.186736`"}], "971.044968`", "943.798895`", "927.872988`",
       "664.0464`", "693.085872`", "709.340224`", "60.29757`", "52.046701`", 
      "47.049967`"},
     {"\<\"\"\>", "\<\"2150\"\>", "1.342913`", "1.128765`", "1.00233`", 
      RowBox[{"-", "0.785576`"}], 
      RowBox[{"-", "0.601822`"}], 
      RowBox[{"-", "0.50654`"}], "1222.765807`", "1153.396162`", 
      "1113.274991`", "511.027945`", "565.063865`", "595.340352`", 
      "83.163859`", "79.343306`", "76.341426`"},
     {"\<\"D13\"\>", "\<\"2050\"\>", "0.`", "0.`", 
      "0.`", "\<\"-\"\>", "\<\"-\"\>", "\<\"-\"\>", "874.868558`", 
      "873.485225`", "872.959602`", "841.275039`", "842.505359`", 
      "842.960102`", 
      RowBox[{"-", "46.347855`"}], 
      RowBox[{"-", "45.866622`"}], 
      RowBox[{"-", "45.673126`"}]},
     {"\<\"\"\>", "\<\"2100\"\>", "0.407229`", "0.33893`", "0.29836`", 
      RowBox[{"-", "0.295004`"}], 
      RowBox[{"-", "0.226572`"}], 
      RowBox[{"-", "0.190212`"}], "996.513914`", "974.637175`", "962.127832`",
       "691.090385`", "715.891363`", "729.749485`", "59.019403`", 
      "52.060748`", "47.838464`"},
     {"\<\"\"\>", "\<\"2150\"\>", "1.207293`", "1.049092`", "0.953259`", 
      RowBox[{"-", "0.63739`"}], 
      RowBox[{"-", "0.490565`"}], 
      RowBox[{"-", "0.413194`"}], "1240.183286`", "1186.772865`", 
      "1155.485456`", "570.447561`", "617.189997`", "644.009132`", 
      "92.616681`", "85.463632`", "81.050578`"},
     {"\<\"D07\"\>", "\<\"2050\"\>", "0.`", "0.`", 
      "0.`", "\<\"-\"\>", "\<\"-\"\>", "\<\"-\"\>", "881.690764`", 
      "880.34037`", "879.845332`", "856.484766`", "857.740476`", 
      "858.210082`", 
      RowBox[{"-", "37.365845`"}], 
      RowBox[{"-", "36.755695`"}], 
      RowBox[{"-", "36.49427`"}]},
     {"\<\"\"\>", "\<\"2100\"\>", "0.426977`", "0.362006`", "0.323132`", 
      RowBox[{"-", "0.29064`"}], 
      RowBox[{"-", "0.223587`"}], 
      RowBox[{"-", "0.188459`"}], "1009.325554`", "988.28435`", "976.301271`",
       "723.543374`", "744.224546`", "755.431115`", "39.677215`", 
      "35.680771`", "32.8309`"},
     {"\<\"\"\>", "\<\"2150\"\>", "1.187247`", "1.043`", "0.954473`", 
      RowBox[{"-", "0.577632`"}], 
      RowBox[{"-", "0.445713`"}], 
      RowBox[{"-", "0.375777`"}], "1246.205696`", "1196.265605`", 
      "1166.824103`", "620.685141`", "658.34857`", "680.00503`", "62.726071`",
       "58.63822`", "55.855617`"},
     {"\<\"FG\"\>", "\<\"2050\"\>", "0.`", "0", 
      "0.`", "\<\"-\"\>", "\<\"-\"\>", "\<\"-\"\>", "911.330759`", 
      "910.606751`", "910.271601`", "905.683451`", "906.317786`", 
      "906.532382`", 
      RowBox[{"-", "12.24114`"}], 
      RowBox[{"-", "10.600776`"}], 
      RowBox[{"-", "9.888807`"}]},
     {"\<\"\"\>", "\<\"2100\"\>", "0.43647`", "0.356405`", "0.30853`", 
      RowBox[{"-", "0.238767`"}], 
      RowBox[{"-", "0.172928`"}], 
      RowBox[{"-", "0.139657`"}], "1048.411741`", "1020.90485`", 
      "1004.953569`", "836.083892`", "843.948295`", "848.935524`", 
      RowBox[{"-", "61.599514`"}], 
      RowBox[{"-", "47.395095`"}], 
      RowBox[{"-", "40.375658`"}]},
     {"\<\"\"\>", "\<\"2150\"\>", "1.126197`", "0.95359`", "0.848611`", 
      RowBox[{"-", "0.46701`"}], 
      RowBox[{"-", "0.362945`"}], 
      RowBox[{"-", "0.309593`"}], "1299.110987`", "1230.380822`", 
      "1190.438038`", "759.847765`", "776.265563`", "785.45194`", 
      RowBox[{"-", "97.732234`"}], 
      RowBox[{"-", "76.674356`"}], 
      RowBox[{"-", "65.863619`"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8246642365090337`*^9, 3.8246642903496056`*^9, 
  3.8246643451185827`*^9, 3.824664397765046*^9, 3.8246644553807735`*^9, 
  3.824664494666582*^9, 3.8246645479283237`*^9, 3.8246646643756204`*^9, 
  3.8251803440500035`*^9, 3.825180379885054*^9, 3.8251805126892414`*^9, 
  3.82518056851932*^9},
 CellLabel->
  "Out[59]//MatrixForm=",ExpressionUUID->"eea8a4fd-7835-43e0-8a43-\
a16b9d0b06f4"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "6", ",", "9", ",", "12", ",", "15"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", "10", ",", "13", ",", "16"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "8", ",", "11", ",", "14", ",", "17"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "6", ",", "9", ",", "12", ",", "15"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", "10", ",", "13", ",", "16"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "8", ",", "11", ",", "14", ",", "17"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "6", ",", "9", ",", "12", ",", "15"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", "10", ",", "13", ",", "16"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "8", ",", "11", ",", "14", ",", "17"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "6", ",", "9", ",", "12", ",", "15"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "7", ",", "10", ",", "13", ",", "16"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "8", ",", "11", ",", "14", ",", "17"}], "}"}]}], 
     "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"40", ",", "39", ",", "29", ",", "33", ",", "34"}], "}"}]}], 
     "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T1", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"3", ",", "6", ",", "9", ",", "12"}], "}"}], ",", 
      RowBox[{"6", ";;", "8"}]}], "]"}], "]"}], "=", "\"\<-\>\""}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.824664269319462*^9, 3.82466427877218*^9}, {
  3.824664324183864*^9, 3.8246643934498835`*^9}, {3.82466442881787*^9, 
  3.824664534838464*^9}, {3.8246645733020535`*^9, 3.824664604350786*^9}, {
  3.8246646428039236`*^9, 3.824664685544166*^9}, {3.825180388476066*^9, 
  3.8251805079482346`*^9}, {3.8251805474142904`*^9, 3.82518056125731*^9}},
 CellLabel->"In[46]:=",ExpressionUUID->"762ac6a9-8819-4aa6-a97d-cf22a740567f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6T1.csv\>\"", ",", "SI6T1"}], "]"}]], "Input",
 CellChangeTimes->{{3.825181155903152*^9, 3.825181176247181*^9}},
 CellLabel->"In[97]:=",ExpressionUUID->"65bad775-8e90-4834-89b6-0d2cbfaaf553"],

Cell[BoxData["\<\"SI6T1.csv\"\>"], "Output",
 CellChangeTimes->{3.825181176827213*^9},
 CellLabel->"Out[97]=",ExpressionUUID->"10e05ee8-57e6-4062-98d8-efd199ea3405"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SI6T2", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<-\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "14"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<SCC2030\>\"", 
     ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
     "\"\<SCC2050\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", 
     ",", "\"\<SCC2100\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", 
     ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", "\"\<low\>\"", ",", 
     "\"\<medium\>\"", ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", 
     "\"\<low\>\"", ",", "\"\<medium\>\"", ",", "\"\<high\>\"", ",", 
     "\"\<average\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SI6T2", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"3", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<D16\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D13\>\"", 
      ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D07\>\"", ",", "\"\<\>\"", 
      ",", "\"\<\>\"", ",", "\"\<FG\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
     "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\"", ",", 
       "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\""}], "}"}]}], 
    ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\""}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.824665001158885*^9, 3.824665150517965*^9}, {
  3.8246652097835817`*^9, 3.8246652122240105`*^9}, {3.8246653211297216`*^9, 
  3.8246653400156517`*^9}, {3.825180820127678*^9, 3.8251808440827117`*^9}, {
  3.825180955279868*^9, 3.825180955949869*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"94273f25-bb4b-4905-99ad-d298f29ed97f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T2", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T2", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "6"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T2", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T2", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "10"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T2", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"7", ";;", "9"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T2", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", "14"}], "]"}], "]"}], "=", 
     RowBox[{"Mean", "[", 
      RowBox[{"SI6T2", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"i", "+", "3"}], ",", 
         RowBox[{"11", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.824665370841205*^9, 3.824665557547775*^9}, {
  3.8246656171761274`*^9, 3.8246658896550627`*^9}, {3.825180849533719*^9, 
  3.8251809959859257`*^9}, {3.825181033239978*^9, 3.8251810497420015`*^9}},
 CellLabel->"In[80]:=",ExpressionUUID->"e43aa7a5-9ed0-4e06-bb28-6b8c6bc8ebbf"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SI6T2", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.824665155551978*^9, 3.82466516549959*^9}},
 CellLabel->"In[95]:=",ExpressionUUID->"b36de00e-4393-4ebf-951c-6f1cfdbe410a"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"SCC2030\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"\"\>", "\<\"SCC2050\"\>", "\<\"\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"SCC2100\"\>", "\<\"\"\>", "\<\"\"\>"},
     {"\<\"\"\>", "\<\"\"\>", "\<\"low\"\>", "\<\"medium\"\>", \
"\<\"high\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\
\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>", \
"\<\"average\"\>"},
     {"\<\"D16\"\>", "\<\"2050\"\>", "242.705702`", "298.905272`", 
      "330.901479`", "290.83748433333335`", "341.707819`", "420.159213`", 
      "460.675376`", "407.514136`", "255.600731`", "291.493707`", 
      "308.754645`", "285.28302766666667`"},
     {"\<\"\"\>", "\<\"2100\"\>", "105.142273`", "143.974739`", "173.33442`", 
      "140.81714399999998`", "241.390926`", "326.853654`", "390.865191`", 
      "319.703257`", "109.70846`", "136.325439`", "153.665426`", 
      "133.23310833333332`"},
     {"\<\"\"\>", "\<\"2150\"\>", "29.309668`", "43.943665`", "55.96493`", 
      "43.072754333333336`", "72.733476`", "108.62926`", "137.895489`", 
      "106.41940833333332`", "357.63594`", "357.63594`", "357.63594`", 
      "357.63594`"},
     {"\<\"D13\"\>", "\<\"2050\"\>", "175.311439`", "209.156985`", 
      "227.681545`", "204.04998966666668`", "294.421797`", "353.445085`", 
      "384.922276`", "344.2630526666667`", "236.424269`", "268.148769`", 
      "283.305846`", "262.62629466666664`"},
     {"\<\"\"\>", "\<\"2100\"\>", "64.238468`", "84.059624`", "97.878192`", 
      "82.05876133333334`", "169.006944`", "219.634927`", "254.550099`", 
      "214.39732333333336`", "103.463744`", "125.343151`", "138.943784`", 
      "122.58355966666666`"},
     {"\<\"\"\>", "\<\"2150\"\>", "13.490519`", "19.721674`", "24.690771`", 
      "19.300988`", "36.404131`", "53.264557`", "66.692493`", 
      "52.120393666666665`", "338.216761`", "357.63594`", "357.63594`", 
      "351.1628803333333`"},
     {"\<\"D07\"\>", "\<\"2050\"\>", "153.090453`", "180.064405`", 
      "194.654038`", "175.93629866666666`", "275.158598`", "328.287294`", 
      "356.254182`", "319.90002466666664`", "233.942286`", "265.134583`", 
      "280.024012`", "259.7002936666667`"},
     {"\<\"\"\>", "\<\"2100\"\>", "50.833406`", "65.819528`", "76.097914`", 
      "64.25028266666668`", "139.85229`", "180.269536`", "207.766987`", 
      "175.96293766666668`", "111.778425`", "134.21613`", "147.579605`", 
      "131.19138666666666`"},
     {"\<\"\"\>", "\<\"2150\"\>", "10.698243`", "15.476858`", "19.260976`", 
      "15.145359`", "29.063714`", "42.062615`", "52.346924`", "41.157751`", 
      "284.698422`", "357.63594`", "357.63594`", "333.323434`"},
     {"\<\"FG\"\>", "\<\"2050\"\>", "112.767765`", "129.841991`", 
      "138.953469`", "127.18774166666667`", "260.299096`", "311.415573`", 
      "336.37529`", "302.69665299999997`", "254.415044`", "289.979669`", 
      "307.071132`", "283.8219483333333`"},
     {"\<\"\"\>", "\<\"2100\"\>", "43.849954`", "57.375226`", "66.853892`", 
      "56.02635733333333`", "110.818757`", "144.44753`", "167.849194`", 
      "141.03849366666668`", "197.799554`", "229.917088`", "248.753076`", 
      "225.489906`"},
     {"\<\"\"\>", "\<\"2150\"\>", "13.725255`", "19.735353`", "24.520982`", 
      "19.327196666666666`", "34.561988`", "49.530385`", "61.391829`", 
      "48.494734`", "256.535848`", "357.635939`", "357.63594`", "323.935909`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8246651661486244`*^9, 3.82466521516958*^9, 3.8246653451228294`*^9, 
   3.824665427412181*^9, 3.8246654872230196`*^9, 3.824665534080394*^9, 
   3.824665694068571*^9, 3.8246657512015114`*^9, {3.8246658444874706`*^9, 
   3.8246658690743327`*^9}, 3.8251810617780194`*^9},
 CellLabel->
  "Out[95]//MatrixForm=",ExpressionUUID->"7e358342-f85e-4302-a47e-\
e13825790517"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6T2.csv\>\"", ",", "SI6T2"}], "]"}]], "Input",
 CellChangeTimes->{{3.8246658932779627`*^9, 3.824665916728177*^9}},
 CellLabel->"In[96]:=",ExpressionUUID->"3a7807c8-5a6d-49b7-998c-9b88d272254a"],

Cell[BoxData["\<\"SI6T2.csv\"\>"], "Output",
 CellChangeTimes->{{3.824665912912178*^9, 3.8246659174379*^9}, 
   3.825181142890134*^9},
 CellLabel->"Out[96]=",ExpressionUUID->"f697e3e3-3a4a-44e8-b1e7-241c5d7cf8b0"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SI6T3a", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<-\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "14"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<E<2050\>\"", ",", 
     "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<CDR<2050\>\"", 
     ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<N<2050\>\"",
      ",", "\"\<\>\"", ",", "\"\<\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", 
     ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", "\"\<low\>\"", ",", 
     "\"\<medium\>\"", ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", 
     "\"\<low\>\"", ",", "\"\<medium\>\"", ",", "\"\<high\>\"", ",", 
     "\"\<average\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3a", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"3", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<D16\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D13\>\"", 
      ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D07\>\"", ",", "\"\<\>\"", 
      ",", "\"\<\>\"", ",", "\"\<FG\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
     "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\"", ",", 
       "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\""}], "}"}]}], 
    ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\""}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.82466663703866*^9, 3.8246666772493653`*^9}, {
  3.8251813565545473`*^9, 3.8251813954056025`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"8a6cd990-42d3-485b-aef8-8a56f108b7a2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3a", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "11", ",", "20"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3a", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "6"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3a", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3a", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "10"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3a", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"7", ";;", "9"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3a", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "14"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3a", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"11", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.824666706184543*^9, 3.8246668105283594`*^9}, {
  3.825181409901625*^9, 3.8251815221987863`*^9}},
 CellLabel->
  "In[103]:=",ExpressionUUID->"9ddd98cd-ceac-4dd5-9d53-667c68c03071"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SI6T3a", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8246668239544296`*^9, 3.8246668340711393`*^9}},
 CellLabel->
  "In[118]:=",ExpressionUUID->"c90c7dea-d0db-456c-bd73-28dedcfa6ddf"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"E<2050\"\>", "\<\"\"\>", "\<\"\
\"\>", "\<\"\"\>", "\<\"CDR<2050\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \
"\<\"N<2050\"\>", "\<\"\"\>", "\<\"\"\>"},
     {"\<\"\"\>", "\<\"\"\>", "\<\"low\"\>", "\<\"medium\"\>", \
"\<\"high\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\
\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>", \
"\<\"average\"\>"},
     {"\<\"D16\"\>", "\<\"2050\"\>", "158.330696`", "113.766036`", 
      "90.435781`", "120.844171`", 
      RowBox[{"-", "150.095411`"}], 
      RowBox[{"-", "104.675465`"}], 
      RowBox[{"-", "80.859775`"}], 
      RowBox[{"-", "111.87688366666667`"}], "8.235286`", "9.090572`", 
      "9.576006`", "8.967288`"},
     {"\<\"\"\>", "\<\"2100\"\>", "274.815643`", "230.190141`", "199.593238`",
       "234.8663406666667`", 
      RowBox[{"-", "54.510009`"}], 
      RowBox[{"-", "47.532343`"}], 
      RowBox[{"-", "41.890674`"}], 
      RowBox[{"-", "47.97767533333333`"}], "220.305634`", "182.657798`", 
      "157.702564`", "186.8886653333333`"},
     {"\<\"\"\>", "\<\"2150\"\>", "388.25272`", "360.672782`", "340.631967`", 
      "363.185823`", 
      RowBox[{"-", "1.687248`"}], 
      RowBox[{"-", "4.785349`"}], 
      RowBox[{"-", "6.205358`"}], 
      RowBox[{"-", "4.2259850000000005`"}], "386.565472`", "355.887433`", 
      "334.426609`", "358.959838`"},
     {"\<\"D13\"\>", "\<\"2050\"\>", "210.63981`", "178.794638`", 
      "162.335572`", "183.92333999999997`", 
      RowBox[{"-", "103.614775`"}], 
      RowBox[{"-", "70.90852`"}], 
      RowBox[{"-", "54.136455`"}], 
      RowBox[{"-", "76.21991666666666`"}], "107.025035`", "107.886118`", 
      "108.199118`", "107.70342366666667`"},
     {"\<\"\"\>", "\<\"2100\"\>", "325.674968`", "296.994075`", "278.588285`",
       "300.4191093333333`", 
      RowBox[{"-", "24.433803`"}], 
      RowBox[{"-", "21.881494`"}], 
      RowBox[{"-", "19.365335`"}], 
      RowBox[{"-", "21.893544000000002`"}], "301.241165`", "275.11258`", 
      "259.22295`", "278.525565`"},
     {"\<\"\"\>", "\<\"2150\"\>", "424.208054`", "408.018645`", "396.478525`",
       "409.56840800000003`", "0.`", 
      RowBox[{"-", "0.008674`"}], 
      RowBox[{"-", "0.305369`"}], 
      RowBox[{"-", "0.10468100000000001`"}], "424.208054`", "408.009971`", 
      "396.173156`", "409.463727`"},
     {"\<\"D07\"\>", "\<\"2050\"\>", "229.159573`", "201.585666`", 
      "187.461242`", "206.06882699999997`", 
      RowBox[{"-", "88.488884`"}], 
      RowBox[{"-", "60.130062`"}], 
      RowBox[{"-", "45.724425`"}], 
      RowBox[{"-", "64.78112366666666`"}], "140.670688`", "141.455604`", 
      "141.736817`", "141.287703`"},
     {"\<\"\"\>", "\<\"2100\"\>", "345.900952`", "321.840801`", "306.585553`",
       "324.7757686666667`", 
      RowBox[{"-", "15.341454`"}], 
      RowBox[{"-", "14.405987`"}], 
      RowBox[{"-", "12.965717`"}], 
      RowBox[{"-", "14.237719333333333`"}], "330.559498`", "307.434814`", 
      "293.619836`", "310.5380493333334`"},
     {"\<\"\"\>", "\<\"2150\"\>", "432.284731`", "418.694818`", "409.041691`",
       "420.00708000000003`", "0.`", "0.`", "0.`", "0.`", "432.284731`", 
      "418.694818`", "409.04169`", "420.0070796666667`"},
     {"\<\"FG\"\>", "\<\"2050\"\>", "261.198012`", "240.277726`", 
      "229.681401`", "243.7190463333333`", 
      RowBox[{"-", "64.157411`"}], 
      RowBox[{"-", "43.223418`"}], 
      RowBox[{"-", "32.703541`"}], 
      RowBox[{"-", "46.694790000000005`"}], "197.040602`", "197.054308`", 
      "196.97786`", "197.02425666666667`"},
     {"\<\"\"\>", "\<\"2100\"\>", "360.335426`", "337.79575`", "323.234935`", 
      "340.45537033333335`", 
      RowBox[{"-", "9.09751`"}], 
      RowBox[{"-", "9.809114`"}], 
      RowBox[{"-", "9.344184`"}], 
      RowBox[{"-", "9.416936`"}], "351.237915`", "327.986636`", "313.890751`",
       "331.038434`"},
     {"\<\"\"\>", "\<\"2150\"\>", "424.430174`", "409.148947`", "398.232356`",
       "410.60382566666664`", "0.`", "0", 
      RowBox[{"-", "0.157619`"}], 
      RowBox[{"-", "0.05253966666666667`"}], "424.430174`", "409.148947`", 
      "398.074737`", "410.55128600000006`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.824666834954811*^9, 3.8251815263997917`*^9},
 CellLabel->
  "Out[118]//MatrixForm=",ExpressionUUID->"c243c1a3-52c2-49c5-9499-\
8d0a74bee67c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6T3a.csv\>\"", ",", "SI6T3a"}], "]"}]], "Input",
 CellChangeTimes->{{3.8246671789850097`*^9, 3.8246672022307434`*^9}},
 CellLabel->
  "In[119]:=",ExpressionUUID->"46486bf8-2a90-4056-801b-85c538c19765"],

Cell[BoxData["\<\"SI6T3a.csv\"\>"], "Output",
 CellChangeTimes->{3.824667203315987*^9, 3.82518161011191*^9},
 CellLabel->
  "Out[119]=",ExpressionUUID->"e1209266-e99c-4b34-a06a-4d42aaa62106"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SI6T3b", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<-\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "14"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<E:2050-2099\>\"", 
     ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
     "\"\<CDR:2050-2099\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
     "\"\<\>\"", ",", "\"\<N:2050-2099\>\"", ",", "\"\<\>\"", ",", 
     "\"\<\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", 
     ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", "\"\<low\>\"", ",", 
     "\"\<medium\>\"", ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", 
     "\"\<low\>\"", ",", "\"\<medium\>\"", ",", "\"\<high\>\"", ",", 
     "\"\<average\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3b", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"3", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<D16\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D13\>\"", 
      ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D07\>\"", ",", "\"\<\>\"", 
      ",", "\"\<\>\"", ",", "\"\<FG\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
     "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\"", ",", 
       "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\""}], "}"}]}], 
    ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\""}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.824667044179014*^9, 3.8246670483749905`*^9}, {
  3.824667273220154*^9, 3.824667295299404*^9}, {3.82518184433031*^9, 
  3.825181881988363*^9}},
 CellLabel->
  "In[120]:=",ExpressionUUID->"4d811e59-54e9-46d5-827f-ca1941249192"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3b", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "12", ",", "21"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3b", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "6"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3b", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3b", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "10"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3b", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"7", ";;", "9"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3b", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "14"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3b", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"11", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8246670645387053`*^9, 3.8246670879390264`*^9}, {
  3.8246671248228226`*^9, 3.824667163023841*^9}, {3.825181896767384*^9, 
  3.825181990767517*^9}},
 CellLabel->
  "In[125]:=",ExpressionUUID->"79b0cfb1-9374-4dca-b4fd-92732a6b2e4e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SI6T3b", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8246672095262756`*^9, 3.8246672248630824`*^9}},
 CellLabel->
  "In[140]:=",ExpressionUUID->"01b4c6d9-371d-45c6-82de-11e9303d78f2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"E:2050-2099\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"\"\>", "\<\"CDR:2050-2099\"\>", "\<\"\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"N:2050-2099\"\>", "\<\"\"\>", "\<\"\"\>"},
     {"\<\"\"\>", "\<\"\"\>", "\<\"low\"\>", "\<\"medium\"\>", \
"\<\"high\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\
\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>", \
"\<\"average\"\>"},
     {"\<\"D16\"\>", "\<\"2050\"\>", "216.906825`", "134.542012`", 
      "94.606175`", "148.68500400000002`", 
      RowBox[{"-", "237.643057`"}], 
      RowBox[{"-", "156.130214`"}], 
      RowBox[{"-", "116.678229`"}], 
      RowBox[{"-", "170.1505`"}], 
      RowBox[{"-", "20.736232`"}], 
      RowBox[{"-", "21.588203`"}], 
      RowBox[{"-", "22.072054`"}], 
      RowBox[{"-", "21.465496333333334`"}]},
     {"\<\"\"\>", "\<\"2100\"\>", "62.806025`", "20.117634`", "6.277004`", 
      "29.733554333333334`", 
      RowBox[{"-", "436.506982`"}], 
      RowBox[{"-", "325.831395`"}], 
      RowBox[{"-", "269.822905`"}], 
      RowBox[{"-", "344.0537606666667`"}], 
      RowBox[{"-", "373.700957`"}], 
      RowBox[{"-", "305.71376`"}], 
      RowBox[{"-", "263.545902`"}], 
      RowBox[{"-", "314.3202063333333`"}]},
     {"\<\"\"\>", "\<\"2150\"\>", "328.25588`", "210.64297`", "151.45295`", 
      "230.11726666666667`", 
      RowBox[{"-", "181.58862`"}], 
      RowBox[{"-", "159.148113`"}], 
      RowBox[{"-", "143.106117`"}], 
      RowBox[{"-", "161.28095`"}], "146.66726`", "51.494857`", "8.346833`", 
      "68.83631666666666`"},
     {"\<\"D13\"\>", "\<\"2050\"\>", "268.045567`", "194.881085`", 
      "159.789831`", "207.57216099999997`", 
      RowBox[{"-", "208.227516`"}], 
      RowBox[{"-", "136.040303`"}], 
      RowBox[{"-", "101.306131`"}], 
      RowBox[{"-", "148.52465`"}], "59.818051`", "58.840782`", "58.4837`", 
      "59.04751099999999`"},
     {"\<\"\"\>", "\<\"2100\"\>", "122.867941`", "68.571744`", "45.032233`", 
      "78.82397266666666`", 
      RowBox[{"-", "335.345679`"}], 
      RowBox[{"-", "239.97529`"}], 
      RowBox[{"-", "192.157804`"}], 
      RowBox[{"-", "255.8262576666667`"}], 
      RowBox[{"-", "212.477738`"}], 
      RowBox[{"-", "171.403545`"}], 
      RowBox[{"-", "147.125571`"}], 
      RowBox[{"-", "177.00228466666667`"}]},
     {"\<\"\"\>", "\<\"2150\"\>", "501.838379`", "378.596798`", "311.926223`",
       "397.4538`", 
      RowBox[{"-", "92.001081`"}], 
      RowBox[{"-", "84.361299`"}], 
      RowBox[{"-", "76.911004`"}], 
      RowBox[{"-", "84.42446133333334`"}], "409.837298`", "294.2355`", 
      "235.015219`", "313.029339`"},
     {"\<\"D07\"\>", "\<\"2050\"\>", "278.117779`", "206.883195`", 
      "172.795819`", "219.26559766666665`", 
      RowBox[{"-", "202.070849`"}], 
      RowBox[{"-", "131.780767`"}], 
      RowBox[{"-", "98.037227`"}], 
      RowBox[{"-", "143.96294766666668`"}], "76.04693`", "75.102428`", 
      "74.758592`", "75.30265`"},
     {"\<\"\"\>", "\<\"2100\"\>", "151.053965`", "94.620232`", "68.61302`", 
      "104.76240566666667`", 
      RowBox[{"-", "309.695527`"}], 
      RowBox[{"-", "220.782576`"}], 
      RowBox[{"-", "176.098852`"}], 
      RowBox[{"-", "235.52565166666668`"}], 
      RowBox[{"-", "158.641563`"}], 
      RowBox[{"-", "126.162344`"}], 
      RowBox[{"-", "107.485832`"}], 
      RowBox[{"-", "130.76324633333334`"}]},
     {"\<\"\"\>", "\<\"2150\"\>", "562.987009`", "446.910663`", "378.44584`", 
      "462.78117066666664`", 
      RowBox[{"-", "68.023789`"}], 
      RowBox[{"-", "63.502404`"}], 
      RowBox[{"-", "58.508033`"}], 
      RowBox[{"-", "63.344742`"}], "494.96322`", "383.408259`", "319.937807`",
       "399.43642866666664`"},
     {"\<\"FG\"\>", "\<\"2050\"\>", "243.590529`", "166.967315`", 
      "130.219522`", "180.25912200000002`", 
      RowBox[{"-", "220.524701`"}], 
      RowBox[{"-", "143.948959`"}], 
      RowBox[{"-", "107.139622`"}], 
      RowBox[{"-", "157.20442733333334`"}], "23.065828`", "23.018356`", 
      "23.0799`", "23.054694666666666`"},
     {"\<\"\"\>", "\<\"2100\"\>", "196.511297`", "133.926773`", "103.883823`",
       "144.77396433333334`", 
      RowBox[{"-", "313.804654`"}], 
      RowBox[{"-", "230.798559`"}], 
      RowBox[{"-", "187.740688`"}], 
      RowBox[{"-", "244.1146336666667`"}], 
      RowBox[{"-", "117.293357`"}], 
      RowBox[{"-", "96.871786`"}], 
      RowBox[{"-", "83.856865`"}], 
      RowBox[{"-", "99.34066933333334`"}]},
     {"\<\"\"\>", "\<\"2150\"\>", "561.147498`", "446.801385`", "373.587636`",
       "460.512173`", 
      RowBox[{"-", "66.469291`"}], 
      RowBox[{"-", "62.129752`"}], 
      RowBox[{"-", "57.184292`"}], 
      RowBox[{"-", "61.92777833333333`"}], "494.678207`", "384.671633`", 
      "316.403345`", "398.58439500000003`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.824667226135959*^9, 3.824667301486269*^9, 
  3.825181993637521*^9},
 CellLabel->
  "Out[140]//MatrixForm=",ExpressionUUID->"fc410d1d-4942-4363-9b7b-\
8c1e183d2833"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6T3b.csv\>\"", ",", "SI6T3b"}], "]"}]], "Input",
 CellChangeTimes->{{3.8246673356335244`*^9, 3.824667348161027*^9}, {
  3.824667474703249*^9, 3.82466750771772*^9}},
 CellLabel->
  "In[141]:=",ExpressionUUID->"e4bb9d8b-be58-4e4e-af1e-eac43b7f883b"],

Cell[BoxData["\<\"SI6T3b.csv\"\>"], "Output",
 CellChangeTimes->{3.8246673490441337`*^9, 3.8246675086125546`*^9, 
  3.825182078842641*^9},
 CellLabel->
  "Out[141]=",ExpressionUUID->"320a04f3-4cc1-4d1f-a816-cce242a124ec"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SI6T3b", "[", 
   RowBox[{"[", 
    RowBox[{"3", ",", "10"}], "]"}], "]"}], "-", 
  RowBox[{"SI6T3b", "[", 
   RowBox[{"[", 
    RowBox[{"4", ",", "10"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.824669737223565*^9, 3.8246697879439354`*^9}, {
  3.8246699571595693`*^9, 3.824669957338316*^9}, {3.8246699993959284`*^9, 
  3.8246699996541204`*^9}, {3.8246704740889626`*^9, 3.8246705023665047`*^9}},
 CellLabel->
  "In[918]:=",ExpressionUUID->"79b1d517-398e-41d3-ab48-5748ee78742a"],

Cell[BoxData["173.90326066666668`"], "Output",
 CellChangeTimes->{{3.8246697623392982`*^9, 3.8246697885540867`*^9}, 
   3.824669965088112*^9, 3.8246700004933567`*^9, {3.82467048914705*^9, 
   3.82467050287922*^9}},
 CellLabel->
  "Out[918]=",ExpressionUUID->"27bf5864-6ade-4ab7-b685-a14555301bf1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SI6T3b", "[", 
   RowBox[{"[", 
    RowBox[{"6", ",", "10"}], "]"}], "]"}], "-", 
  RowBox[{"SI6T3b", "[", 
   RowBox[{"[", 
    RowBox[{"7", ",", "10"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8246705361319895`*^9, 3.8246705398735533`*^9}},
 CellLabel->
  "In[919]:=",ExpressionUUID->"2c95e179-4dc3-4804-9fa3-0749e4c7d24f"],

Cell[BoxData["86.91020633333335`"], "Output",
 CellChangeTimes->{3.8246705409168453`*^9},
 CellLabel->
  "Out[919]=",ExpressionUUID->"dcbad1dc-3d5a-4257-ad6e-e4ef191f315e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SI6T3a", "[", 
   RowBox[{"[", 
    RowBox[{"6", ",", "6"}], "]"}], "]"}], "-", 
  RowBox[{"SI6T3a", "[", 
   RowBox[{"[", 
    RowBox[{"7", ",", "6"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8246698695064955`*^9, 3.8246698730284357`*^9}, {
  3.8246699609762144`*^9, 3.8246699615615516`*^9}, {3.824670004714033*^9, 
  3.8246700049776683`*^9}},
 CellLabel->
  "In[911]:=",ExpressionUUID->"0dd4eb6b-0622-43ae-8d99-57e9e81bd3ad"],

Cell[BoxData[
 RowBox[{"-", "96.73632400000005`"}]], "Output",
 CellChangeTimes->{3.824669873557274*^9, 3.8246699620151296`*^9, 
  3.8246700054895477`*^9},
 CellLabel->
  "Out[911]=",ExpressionUUID->"f38623dc-e84a-4b5a-8387-ef3a0a5408d6"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SI6T3c", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<-\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "14"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<E:2100-2199\>\"", 
     ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
     "\"\<CDR:2100-2199\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
     "\"\<\>\"", ",", "\"\<N:2100-2199\>\"", ",", "\"\<\>\"", ",", 
     "\"\<\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", 
     ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", "\"\<low\>\"", ",", 
     "\"\<medium\>\"", ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", 
     "\"\<low\>\"", ",", "\"\<medium\>\"", ",", "\"\<high\>\"", ",", 
     "\"\<average\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3c", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"3", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<D16\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D13\>\"", 
      ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D07\>\"", ",", "\"\<\>\"", 
      ",", "\"\<\>\"", ",", "\"\<FG\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
     "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\"", ",", 
       "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\""}], "}"}]}], 
    ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\""}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8246673271786814`*^9, 3.8246673793670053`*^9}, {
  3.825182104293679*^9, 3.8251821448307915`*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"c249f0d8-ad5d-4468-bbd8-ed5e3ddd633e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3c", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "13", ",", "22"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3c", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "6"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3c", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3c", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "10"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3c", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"7", ";;", "9"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3c", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "14"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3c", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"11", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8246673989609623`*^9, 3.8246674620429506`*^9}, {
  3.8251821519118013`*^9, 3.8251822616419563`*^9}},
 CellLabel->
  "In[147]:=",ExpressionUUID->"a14fd883-4261-4e03-acca-3fcfa3d253f3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SI6T3c", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8246675266225753`*^9, 3.8246675421329684`*^9}},
 CellLabel->
  "In[162]:=",ExpressionUUID->"3042ceff-cb66-45a3-9271-c5500eff5a34"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"E:2100-2199\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"\"\>", "\<\"CDR:2100-2199\"\>", "\<\"\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"N:2100-2199\"\>", "\<\"\"\>", "\<\"\"\>"},
     {"\<\"\"\>", "\<\"\"\>", "\<\"low\"\>", "\<\"medium\"\>", \
"\<\"high\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\
\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>", \
"\<\"average\"\>"},
     {"\<\"D16\"\>", "\<\"2050\"\>", "347.795136`", "217.199645`", 
      "158.549054`", "241.18127833333332`", 
      RowBox[{"-", "345.047589`"}], 
      RowBox[{"-", "214.459363`"}], 
      RowBox[{"-", "155.812049`"}], 
      RowBox[{"-", "238.439667`"}], "2.747548`", "2.740282`", "2.737004`", 
      "2.7416113333333336`"},
     {"\<\"\"\>", "\<\"2100\"\>", "449.47915`", "308.084936`", "239.774994`", 
      "332.44636`", 
      RowBox[{"-", "303.67194`"}], 
      RowBox[{"-", "193.160413`"}], 
      RowBox[{"-", "142.352865`"}], 
      RowBox[{"-", "213.06173933333335`"}], "145.80721`", "114.924522`", 
      "97.422129`", "119.38462033333332`"},
     {"\<\"\"\>", "\<\"2150\"\>", "415.09689`", "327.115985`", "276.755324`", 
      "339.6560663333333`", 
      RowBox[{"-", "913.428465`"}], 
      RowBox[{"-", "714.45869`"}], 
      RowBox[{"-", "608.899908`"}], 
      RowBox[{"-", "745.5956876666665`"}], 
      RowBox[{"-", "498.331575`"}], 
      RowBox[{"-", "387.342704`"}], 
      RowBox[{"-", "332.144584`"}], 
      RowBox[{"-", "405.939621`"}]},
     {"\<\"D13\"\>", "\<\"2050\"\>", "409.190323`", "287.021505`", 
      "232.33467`", "309.5154993333333`", 
      RowBox[{"-", "321.665308`"}], 
      RowBox[{"-", "199.434283`"}], 
      RowBox[{"-", "144.72384`"}], 
      RowBox[{"-", "221.94114366666665`"}], "87.525014`", "87.587222`", 
      "87.61083`", "87.57435533333334`"},
     {"\<\"\"\>", "\<\"2100\"\>", "478.48895`", "350.928623`", "291.055344`", 
      "373.49097233333333`", 
      RowBox[{"-", "293.567015`"}], 
      RowBox[{"-", "184.533608`"}], 
      RowBox[{"-", "135.052359`"}], 
      RowBox[{"-", "204.38432733333335`"}], "184.921935`", "166.395015`", 
      "156.002984`", "169.10664466666665`"},
     {"\<\"\"\>", "\<\"2150\"\>", "308.158137`", "232.931322`", "197.297367`",
       "246.12894200000002`", 
      RowBox[{"-", "741.238148`"}], 
      RowBox[{"-", "562.868498`"}], 
      RowBox[{"-", "470.512479`"}], 
      RowBox[{"-", "591.5397083333334`"}], 
      RowBox[{"-", "433.080011`"}], 
      RowBox[{"-", "329.937176`"}], 
      RowBox[{"-", "273.215112`"}], 
      RowBox[{"-", "345.41076633333336`"}]},
     {"\<\"D07\"\>", "\<\"2050\"\>", "427.813382`", "308.063213`", 
      "254.500732`", "330.12577566666664`", 
      RowBox[{"-", "314.999336`"}], 
      RowBox[{"-", "195.193578`"}], 
      RowBox[{"-", "141.60922`"}], 
      RowBox[{"-", "217.267378`"}], "112.814046`", "112.869635`", 
      "112.891512`", "112.85839766666668`"},
     {"\<\"\"\>", "\<\"2100\"\>", "479.641632`", "355.76365`", "298.528837`", 
      "377.9780396666667`", 
      RowBox[{"-", "293.636727`"}], 
      RowBox[{"-", "183.901959`"}], 
      RowBox[{"-", "134.255909`"}], 
      RowBox[{"-", "203.93153166666664`"}], "186.004905`", "171.861691`", 
      "164.272928`", "174.04650800000002`"},
     {"\<\"\"\>", "\<\"2150\"\>", "279.169901`", "205.430508`", "174.461772`",
       "219.68739366666668`", 
      RowBox[{"-", "706.670968`"}], 
      RowBox[{"-", "533.0644`"}], 
      RowBox[{"-", "443.647959`"}], 
      RowBox[{"-", "561.1277756666667`"}], 
      RowBox[{"-", "427.501067`"}], 
      RowBox[{"-", "327.633891`"}], 
      RowBox[{"-", "269.186187`"}], 
      RowBox[{"-", "341.4403816666666`"}]},
     {"\<\"FG\"\>", "\<\"2050\"\>", "337.397098`", "205.52981`", 
      "146.292602`", "229.73983666666666`", 
      RowBox[{"-", "348.76951`"}], 
      RowBox[{"-", "216.806584`"}], 
      RowBox[{"-", "157.529015`"}], 
      RowBox[{"-", "241.03503633333332`"}], 
      RowBox[{"-", "11.372412`"}], 
      RowBox[{"-", "11.276774`"}], 
      RowBox[{"-", "11.236413`"}], 
      RowBox[{"-", "11.295199666666667`"}]},
     {"\<\"\"\>", "\<\"2100\"\>", "321.578648`", "191.222164`", "132.930077`",
       "215.24362966666664`", 
      RowBox[{"-", "354.465098`"}], 
      RowBox[{"-", "219.727791`"}], 
      RowBox[{"-", "159.452362`"}], 
      RowBox[{"-", "244.548417`"}], 
      RowBox[{"-", "32.88645`"}], 
      RowBox[{"-", "28.505627`"}], 
      RowBox[{"-", "26.522285`"}], 
      RowBox[{"-", "29.304787333333334`"}]},
     {"\<\"\"\>", "\<\"2150\"\>", "115.396599`", "39.334762`", "18.431213`", 
      "57.720858`", 
      RowBox[{"-", "833.029525`"}], 
      RowBox[{"-", "630.9674`"}], 
      RowBox[{"-", "530.348022`"}], 
      RowBox[{"-", "664.781649`"}], 
      RowBox[{"-", "717.632926`"}], 
      RowBox[{"-", "591.632638`"}], 
      RowBox[{"-", "511.916809`"}], 
      RowBox[{"-", "607.060791`"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.824667542795021*^9, 3.8251822651929607`*^9},
 CellLabel->
  "Out[162]//MatrixForm=",ExpressionUUID->"5aecb5c5-8685-4aa9-a071-\
c9e1dec04092"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6T3c.csv\>\"", ",", "SI6T3c"}], "]"}]], "Input",
 CellChangeTimes->{{3.82466759481634*^9, 3.824667622633494*^9}},
 CellLabel->
  "In[163]:=",ExpressionUUID->"374afa08-47cc-49e8-8307-d12cebb3aaee"],

Cell[BoxData["\<\"SI6T3c.csv\"\>"], "Output",
 CellChangeTimes->{3.8246676241362104`*^9, 3.8251822754359756`*^9},
 CellLabel->
  "Out[163]=",ExpressionUUID->"7dbcbd7c-6a8d-4827-b083-c6652964c944"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"osD16low", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", 
    RowBox[{"{", 
     RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8246676400281515`*^9, 3.824667654539926*^9}},
 CellLabel->
  "In[843]:=",ExpressionUUID->"d3a0dd87-7d1d-490b-b0cd-92c55cd5e5f3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"E<2200-2295\"\>", ",", "\<\"C<2200-2295\"\>", 
   ",", "\<\"N:2200-2195\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.8246676550899305`*^9},
 CellLabel->
  "Out[843]=",ExpressionUUID->"000c791e-7c21-4864-ae90-ee9234f51755"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SI6T3d", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<-\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "14"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<E:2200-2295\>\"", 
     ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
     "\"\<CDR:2200-2295\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", 
     "\"\<\>\"", ",", "\"\<N:2200-2295\>\"", ",", "\"\<\>\"", ",", 
     "\"\<\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", 
     ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", "\"\<low\>\"", ",", 
     "\"\<medium\>\"", ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", 
     "\"\<low\>\"", ",", "\"\<medium\>\"", ",", "\"\<high\>\"", ",", 
     "\"\<average\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3d", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"3", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<D16\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D13\>\"", 
      ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D07\>\"", ",", "\"\<\>\"", 
      ",", "\"\<\>\"", ",", "\"\<FG\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
     "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\"", ",", 
       "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\""}], "}"}]}], 
    ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\""}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8246676824147024`*^9, 3.8246677101259413`*^9}, {
  3.825182286587991*^9, 3.825182302711014*^9}, {3.8251823957392*^9, 
  3.8251823972292023`*^9}},
 CellLabel->
  "In[184]:=",ExpressionUUID->"337dd708-ca63-46b7-8f0b-aa963e6770cc"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3d", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "14", ",", "23"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3d", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "6"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3d", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3d", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "10"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3d", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"7", ";;", "9"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3d", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "14"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3d", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"11", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8246677331639123`*^9, 3.8246677914471774`*^9}, {
  3.8251823147250853`*^9, 3.825182417576231*^9}},
 CellLabel->
  "In[189]:=",ExpressionUUID->"fa602bcc-7e7c-4eff-8df1-01089f28e58c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SI6T3d", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8246677960110435`*^9, 3.8246678078574944`*^9}},
 CellLabel->
  "In[204]:=",ExpressionUUID->"29398c5a-3407-48b9-b129-da1996c7156c"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"E:2200-2295\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"\"\>", "\<\"CDR:2200-2295\"\>", "\<\"\"\>", "\<\"\"\>", \
"\<\"\"\>", "\<\"N:2200-2295\"\>", "\<\"\"\>", "\<\"\"\>"},
     {"\<\"\"\>", "\<\"\"\>", "\<\"low\"\>", "\<\"medium\"\>", \
"\<\"high\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\
\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>", \
"\<\"average\"\>"},
     {"\<\"D16\"\>", "\<\"2050\"\>", "187.103072`", "116.376025`", 
      "85.385875`", "129.62165733333333`", 
      RowBox[{"-", "181.333821`"}], 
      RowBox[{"-", "110.712547`"}], 
      RowBox[{"-", "79.74952`"}], 
      RowBox[{"-", "123.93196266666668`"}], "5.769252`", "5.663478`", 
      "5.636355`", "5.689695`"},
     {"\<\"\"\>", "\<\"2100\"\>", "187.28087`", "116.571641`", "85.577343`", 
      "129.80995133333332`", 
      RowBox[{"-", "181.276685`"}], 
      RowBox[{"-", "110.677491`"}], 
      RowBox[{"-", "79.725687`"}], 
      RowBox[{"-", "123.89328766666665`"}], "6.004185`", "5.894151`", 
      "5.851657`", "5.916664333333333`"},
     {"\<\"\"\>", "\<\"2150\"\>", "164.042628`", "100.832566`", "76.311007`", 
      "113.72873366666668`", 
      RowBox[{"-", "188.920341`"}], 
      RowBox[{"-", "113.580574`"}], 
      RowBox[{"-", "81.135058`"}], 
      RowBox[{"-", "127.87865766666668`"}], 
      RowBox[{"-", "24.877713`"}], 
      RowBox[{"-", "12.748008`"}], 
      RowBox[{"-", "4.824051`"}], 
      RowBox[{"-", "14.149923999999999`"}]},
     {"\<\"D13\"\>", "\<\"2050\"\>", "216.129078`", "148.906755`", 
      "119.501448`", "161.512427`", 
      RowBox[{"-", "172.076097`"}], 
      RowBox[{"-", "104.925244`"}], 
      RowBox[{"-", "75.535845`"}], 
      RowBox[{"-", "117.51239533333334`"}], "44.052981`", "43.981511`", 
      "43.965603`", "44.000031666666665`"},
     {"\<\"\"\>", "\<\"2100\"\>", "209.192049`", "142.560126`", "113.684176`",
       "155.14545033333332`", 
      RowBox[{"-", "174.278733`"}], 
      RowBox[{"-", "106.048613`"}], 
      RowBox[{"-", "76.25049`"}], 
      RowBox[{"-", "118.85927866666667`"}], "34.913316`", "36.511513`", 
      "37.433686`", "36.28617166666667`"},
     {"\<\"\"\>", "\<\"2150\"\>", "158.058359`", "98.378265`", "73.512337`", 
      "109.982987`", 
      RowBox[{"-", "190.793395`"}], 
      RowBox[{"-", "113.963878`"}], 
      RowBox[{"-", "81.235335`"}], 
      RowBox[{"-", "128.66420266666668`"}], 
      RowBox[{"-", "32.735036`"}], 
      RowBox[{"-", "15.585613`"}], 
      RowBox[{"-", "7.722998`"}], 
      RowBox[{"-", "18.681215666666667`"}]},
     {"\<\"D07\"\>", "\<\"2050\"\>", "248.754843`", "185.506717`", 
      "157.893546`", "197.38503533333335`", 
      RowBox[{"-", "161.819945`"}], 
      RowBox[{"-", "98.514972`"}], 
      RowBox[{"-", "70.869824`"}], 
      RowBox[{"-", "110.40158033333334`"}], "86.934898`", "86.991745`", 
      "87.023722`", "86.983455`"},
     {"\<\"\"\>", "\<\"2100\"\>", "245.783256`", "182.761283`", "155.358513`",
       "194.63435066666668`", 
      RowBox[{"-", "162.748594`"}], 
      RowBox[{"-", "98.993078`"}], 
      RowBox[{"-", "71.176185`"}], 
      RowBox[{"-", "110.97261900000001`"}], "83.034662`", "83.768204`", 
      "84.182328`", "83.66173133333332`"},
     {"\<\"\"\>", "\<\"2150\"\>", "220.822231`", "159.427111`", "133.612904`",
       "171.2874153333333`", 
      RowBox[{"-", "170.602621`"}], 
      RowBox[{"-", "103.081616`"}], 
      RowBox[{"-", "73.818792`"}], 
      RowBox[{"-", "115.83434299999999`"}], "50.219611`", "56.345495`", 
      "59.794112`", "55.453072666666664`"},
     {"\<\"FG\"\>", "\<\"2050\"\>", "174.315788`", "102.439928`", 
      "71.217041`", "115.990919`", 
      RowBox[{"-", "185.73783`"}], 
      RowBox[{"-", "113.496825`"}], 
      RowBox[{"-", "81.916239`"}], 
      RowBox[{"-", "127.050298`"}], 
      RowBox[{"-", "11.422042`"}], 
      RowBox[{"-", "11.056897`"}], 
      RowBox[{"-", "10.699198`"}], 
      RowBox[{"-", "11.059379`"}]},
     {"\<\"\"\>", "\<\"2100\"\>", "174.111267`", "102.2823`", "71.099859`", 
      "115.831142`", 
      RowBox[{"-", "185.793104`"}], 
      RowBox[{"-", "113.504577`"}], 
      RowBox[{"-", "81.911978`"}], 
      RowBox[{"-", "127.06988633333333`"}], 
      RowBox[{"-", "11.681837`"}], 
      RowBox[{"-", "11.222277`"}], 
      RowBox[{"-", "10.812119`"}], 
      RowBox[{"-", "11.238744333333335`"}]},
     {"\<\"\"\>", "\<\"2150\"\>", "150.005975`", "80.133302`", "50.95814`", 
      "93.699139`", 
      RowBox[{"-", "193.595206`"}], 
      RowBox[{"-", "117.499003`"}], 
      RowBox[{"-", "84.430502`"}], 
      RowBox[{"-", "131.84157033333332`"}], 
      RowBox[{"-", "43.589231`"}], 
      RowBox[{"-", "37.365701`"}], 
      RowBox[{"-", "33.472362`"}], 
      RowBox[{"-", "38.14243133333333`"}]}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.824667808774519*^9, 3.8251824217872367`*^9},
 CellLabel->
  "Out[204]//MatrixForm=",ExpressionUUID->"98aca187-c920-42b3-a078-\
373fa4cd63ba"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6T3d.csv\>\"", ",", "SI6T3d"}], "]"}]], "Input",
 CellChangeTimes->{{3.8246678387299185`*^9, 3.824667866779785*^9}},
 CellLabel->
  "In[206]:=",ExpressionUUID->"b6609688-185c-467e-87ee-5176c844ba0b"],

Cell[BoxData["\<\"SI6T3d.csv\"\>"], "Output",
 CellChangeTimes->{3.8246678720970945`*^9, 3.8251824243472404`*^9, 
  3.8251825102097106`*^9},
 CellLabel->
  "Out[206]=",ExpressionUUID->"5b774921-5564-494a-9e4b-90fd5a1388eb"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"osD16low", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", 
    RowBox[{"{", 
     RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8246678874667635`*^9, 3.824667892159901*^9}, {
  3.824668180695899*^9, 3.8246681880175967`*^9}},
 CellLabel->
  "In[877]:=",ExpressionUUID->"4839cada-b11d-4a1f-981d-e3086baf2f23"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"E<2100\"\>", ",", "\<\"C<2100\"\>", ",", "\<\"N<2100\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.824667892611866*^9, {3.8246681816825976`*^9, 3.8246681886760273`*^9}},
 CellLabel->
  "Out[877]=",ExpressionUUID->"3d643622-bd2a-42bb-8822-c98d789688e2"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SI6T3e", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<-\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "14"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<E<2100\>\"", ",", 
     "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<CDR<2100\>\"", 
     ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<N<2100\>\"",
      ",", "\"\<\>\"", ",", "\"\<\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", 
     ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", "\"\<low\>\"", ",", 
     "\"\<medium\>\"", ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", 
     "\"\<low\>\"", ",", "\"\<medium\>\"", ",", "\"\<high\>\"", ",", 
     "\"\<average\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3e", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"3", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<D16\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D13\>\"", 
      ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D07\>\"", ",", "\"\<\>\"", 
      ",", "\"\<\>\"", ",", "\"\<FG\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
     "}"}]}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\"", ",", 
       "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\""}], "}"}]}], 
    ";"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\""}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.8246679236707754`*^9, 3.824667961655325*^9}, {
  3.8251825255817327`*^9, 3.8251825636768417`*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"bd555410-c3e8-4570-81ee-68b18b62f8a5"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3e", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", "15", ",", "24"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3e", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "6"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3e", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3e", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "10"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3e", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"7", ";;", "9"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3e", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "14"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3e", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"11", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.824667979054759*^9, 3.8246680456625633`*^9}, {
  3.825182568456848*^9, 3.825182649249962*^9}},
 CellLabel->
  "In[212]:=",ExpressionUUID->"71218358-bd8e-41db-855b-8a61ccaee890"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SI6T3e", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.824668066602863*^9, 3.824668076649654*^9}},
 CellLabel->
  "In[227]:=",ExpressionUUID->"75c1e9ab-ec22-4344-95ce-84b1f2eb6cdd"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"E<2100\"\>", "\<\"\"\>", "\<\"\
\"\>", "\<\"\"\>", "\<\"CDR<2100\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \
"\<\"N<2100\"\>", "\<\"\"\>", "\<\"\"\>"},
     {"\<\"\"\>", "\<\"\"\>", "\<\"low\"\>", "\<\"medium\"\>", \
"\<\"high\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\
\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>", \
"\<\"average\"\>"},
     {"\<\"D16\"\>", "\<\"2050\"\>", "375.237521`", "248.308048`", 
      "185.041957`", "269.52917533333334`", 
      RowBox[{"-", "387.738468`"}], 
      RowBox[{"-", "260.805679`"}], 
      RowBox[{"-", "197.538004`"}], 
      RowBox[{"-", "282.0273836666667`"}], 
      RowBox[{"-", "12.500947`"}], 
      RowBox[{"-", "12.497631`"}], 
      RowBox[{"-", "12.496048`"}], 
      RowBox[{"-", "12.498208666666669`"}]},
     {"\<\"\"\>", "\<\"2100\"\>", "337.621668`", "250.307775`", "205.870242`",
       "264.599895`", 
      RowBox[{"-", "491.016991`"}], 
      RowBox[{"-", "373.363738`"}], 
      RowBox[{"-", "311.713579`"}], 
      RowBox[{"-", "392.031436`"}], 
      RowBox[{"-", "153.395323`"}], 
      RowBox[{"-", "123.055962`"}], 
      RowBox[{"-", "105.843337`"}], 
      RowBox[{"-", "127.43154066666666`"}]},
     {"\<\"\"\>", "\<\"2150\"\>", "716.5086`", "571.315752`", "492.084917`", 
      "593.3030896666668`", 
      RowBox[{"-", "183.275867`"}], 
      RowBox[{"-", "163.933463`"}], 
      RowBox[{"-", "149.311475`"}], 
      RowBox[{"-", "165.506935`"}], "533.232733`", "407.382289`", 
      "342.773442`", "427.7961546666667`"},
     {"\<\"D13\"\>", "\<\"2050\"\>", "478.685378`", "373.675723`", 
      "322.125403`", "391.4955013333333`", 
      RowBox[{"-", "311.842291`"}], 
      RowBox[{"-", "206.948823`"}], 
      RowBox[{"-", "155.442586`"}], 
      RowBox[{"-", "224.74456666666666`"}], "166.843086`", "166.7269`", 
      "166.682817`", "166.75093433333333`"},
     {"\<\"\"\>", "\<\"2100\"\>", "448.542909`", "365.565819`", "323.620518`",
       "379.24308199999996`", 
      RowBox[{"-", "359.779482`"}], 
      RowBox[{"-", "261.856784`"}], 
      RowBox[{"-", "211.523139`"}], 
      RowBox[{"-", "277.7198016666667`"}], "88.763427`", "103.709035`", 
      "112.097379`", "101.52328033333333`"},
     {"\<\"\"\>", "\<\"2150\"\>", "926.046433`", "786.615443`", "708.404748`",
       "807.022208`", 
      RowBox[{"-", "92.001081`"}], 
      RowBox[{"-", "84.369972`"}], 
      RowBox[{"-", "77.216373`"}], 
      RowBox[{"-", "84.52914200000001`"}], "834.045352`", "702.245471`", 
      "631.188376`", "722.4930663333333`"},
     {"\<\"D07\"\>", "\<\"2050\"\>", "507.277351`", "408.468861`", 
      "360.257061`", "425.33442433333335`", 
      RowBox[{"-", "290.559733`"}], 
      RowBox[{"-", "191.910829`"}], 
      RowBox[{"-", "143.761652`"}], 
      RowBox[{"-", "208.74407133333332`"}], "216.717618`", "216.558032`", 
      "216.495409`", "216.59035299999996`"},
     {"\<\"\"\>", "\<\"2100\"\>", "496.954916`", "416.461033`", "375.198573`",
       "429.53817399999997`", 
      RowBox[{"-", "325.036981`"}], 
      RowBox[{"-", "235.188563`"}], 
      RowBox[{"-", "189.064569`"}], 
      RowBox[{"-", "249.763371`"}], "171.917935`", "181.27247`", 
      "186.134004`", "179.77480300000002`"},
     {"\<\"\"\>", "\<\"2150\"\>", "995.27174`", "865.605481`", "787.48753`", 
      "882.7882503333334`", 
      RowBox[{"-", "68.023789`"}], 
      RowBox[{"-", "63.502404`"}], 
      RowBox[{"-", "58.508033`"}], 
      RowBox[{"-", "63.344742`"}], "927.247951`", "802.103077`", 
      "728.979497`", "819.4435083333334`"},
     {"\<\"FG\"\>", "\<\"2050\"\>", "504.788541`", "407.245041`", 
      "359.900923`", "423.9781683333333`", 
      RowBox[{"-", "284.682112`"}], 
      RowBox[{"-", "187.172377`"}], 
      RowBox[{"-", "139.843163`"}], 
      RowBox[{"-", "203.89921733333335`"}], "220.10643`", "220.072664`", 
      "220.05776`", "220.07895133333332`"},
     {"\<\"\"\>", "\<\"2100\"\>", "556.846722`", "471.722523`", "427.118758`",
       "485.2293343333334`", 
      RowBox[{"-", "322.902164`"}], 
      RowBox[{"-", "240.607673`"}], 
      RowBox[{"-", "197.084872`"}], 
      RowBox[{"-", "253.53156966666668`"}], "233.944558`", "231.11485`", 
      "230.033886`", "231.69776466666667`"},
     {"\<\"\"\>", "\<\"2150\"\>", "985.577672`", "855.950332`", "771.819992`",
       "871.1159986666667`", 
      RowBox[{"-", "66.469291`"}], 
      RowBox[{"-", "62.129752`"}], 
      RowBox[{"-", "57.341911`"}], 
      RowBox[{"-", "61.980318000000004`"}], "919.108381`", "793.82058`", 
      "714.478081`", "809.1356806666666`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.824668077562353*^9, 3.825182652030966*^9},
 CellLabel->
  "Out[227]//MatrixForm=",ExpressionUUID->"c27b6839-c19a-46a2-b470-\
b09837b79047"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6T3e.csv\>\"", ",", "SI6T3e"}], "]"}]], "Input",
 CellChangeTimes->{{3.8246682962065964`*^9, 3.824668325096496*^9}},
 CellLabel->
  "In[228]:=",ExpressionUUID->"696c1f2b-1395-4b23-9a76-a84bc43ce720"],

Cell[BoxData["\<\"SI6T3e.csv\"\>"], "Output",
 CellChangeTimes->{3.824668326007514*^9, 3.8251826871630163`*^9},
 CellLabel->
  "Out[228]=",ExpressionUUID->"3eba1949-a56d-40ae-afa5-94da03d8aba4"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SI6T3f", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<-\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "14"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "14"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{"1", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<E<2200\>\"", ",", 
     "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<CDR<2200\>\"", 
     ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<N<2200\>\"",
      ",", "\"\<\>\"", ",", "\"\<\>\""}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", ";;"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<low\>\"", ",", "\"\<medium\>\"", 
     ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", "\"\<low\>\"", ",", 
     "\"\<medium\>\"", ",", "\"\<high\>\"", ",", "\"\<average\>\"", ",", 
     "\"\<low\>\"", ",", "\"\<medium\>\"", ",", "\"\<high\>\"", ",", 
     "\"\<average\>\""}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"{", 
    RowBox[{
    "\"\<D16\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D13\>\"", ",", 
     "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<D07\>\"", ",", "\"\<\>\"", ",", 
     "\"\<\>\"", ",", "\"\<FG\>\"", ",", "\"\<\>\"", ",", "\"\<\>\""}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"{", 
      RowBox[{
      "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\"", ",", 
       "\"\<low\>\"", ",", "\"\<med\>\"", ",", "\"\<high\>\""}], "}"}]}], 
    ";"}], "*)"}], 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3f", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"3", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
      "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
      "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\"", ",", 
      "\"\<2050\>\"", ",", "\"\<2100\>\"", ",", "\"\<2150\>\""}], "}"}]}], 
   ";"}]}]}], "Input",
 CellChangeTimes->{{3.824668240430986*^9, 3.824668257178193*^9}, {
  3.825182700348035*^9, 3.825182716024057*^9}, {3.8251828152592535`*^9, 
  3.8251828160192547`*^9}},
 CellLabel->
  "In[249]:=",ExpressionUUID->"cd19d60b-0e37-4687-aee8-640b106b7d28"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"3", ";;", "5"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"6", ";;", "8"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"9", ";;", "11"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "7", ",", "11"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "8", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SI6T3f", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"12", ";;", "14"}], ",", 
      RowBox[{"{", 
       RowBox[{"5", ",", "9", ",", "13"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"7", ",", "16", ",", "25"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3f", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "6"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3f", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3f", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "10"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3f", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"7", ";;", "9"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], "]"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"SI6T3f", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"i", "+", "3"}], ",", "14"}], "]"}], "]"}], "=", 
    RowBox[{"Mean", "[", 
     RowBox[{"SI6T3f", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"i", "+", "3"}], ",", 
        RowBox[{"11", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "0", ",", "11"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8246683347677546`*^9, 3.8246684026121283`*^9}, {
  3.825182721209074*^9, 3.825182806338241*^9}},
 CellLabel->
  "In[254]:=",ExpressionUUID->"d2d7a2a9-3b9a-4b09-a7e4-7f2c0a8b8176"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SI6T3f", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8246684105007687`*^9, 3.824668419583234*^9}},
 CellLabel->
  "In[269]:=",ExpressionUUID->"2f6aa9b4-5107-4fc4-9995-4b74cc97f0e5"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"E<2200\"\>", "\<\"\"\>", "\<\"\
\"\>", "\<\"\"\>", "\<\"CDR<2200\"\>", "\<\"\"\>", "\<\"\"\>", "\<\"\"\>", \
"\<\"N<2200\"\>", "\<\"\"\>", "\<\"\"\>"},
     {"\<\"\"\>", "\<\"\"\>", "\<\"low\"\>", "\<\"medium\"\>", \
"\<\"high\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\
\"\>", "\<\"average\"\>", "\<\"low\"\>", "\<\"medium\"\>", "\<\"high\"\>", \
"\<\"average\"\>"},
     {"\<\"D16\"\>", "\<\"2050\"\>", "723.032657`", "465.507693`", 
      "343.59101`", "510.7104533333333`", 
      RowBox[{"-", "732.786056`"}], 
      RowBox[{"-", "475.265043`"}], 
      RowBox[{"-", "353.350053`"}], 
      RowBox[{"-", "520.4670506666666`"}], 
      RowBox[{"-", "9.753399`"}], 
      RowBox[{"-", "9.757349`"}], 
      RowBox[{"-", "9.759043`"}], 
      RowBox[{"-", "9.756597`"}]},
     {"\<\"\"\>", "\<\"2100\"\>", "787.100817`", "558.392711`", "445.645235`",
       "597.0462543333333`", 
      RowBox[{"-", "794.688931`"}], 
      RowBox[{"-", "566.524151`"}], 
      RowBox[{"-", "454.066444`"}], 
      RowBox[{"-", "605.0931753333333`"}], 
      RowBox[{"-", "7.588113`"}], 
      RowBox[{"-", "8.13144`"}], 
      RowBox[{"-", "8.421209`"}], 
      RowBox[{"-", "8.046920666666667`"}]},
     {"\<\"\"\>", "\<\"2150\"\>", "1131.60549`", "898.431737`", "768.840241`",
       "932.9591559999999`", 
      RowBox[{"-", "1096.704333`"}], 
      RowBox[{"-", "878.392152`"}], 
      RowBox[{"-", "758.211383`"}], 
      RowBox[{"-", "911.1026226666667`"}], "34.901157`", "20.039585`", 
      "10.628858`", "21.85653333333333`"},
     {"\<\"D13\"\>", "\<\"2050\"\>", "887.8757`", "660.697228`", 
      "554.460073`", "701.0110003333333`", 
      RowBox[{"-", "633.5076`"}], 
      RowBox[{"-", "406.383106`"}], 
      RowBox[{"-", "300.166426`"}], 
      RowBox[{"-", "446.6857106666667`"}], "254.368101`", "254.314122`", 
      "254.293647`", "254.32529`"},
     {"\<\"\"\>", "\<\"2100\"\>", "927.03186`", "716.494442`", "614.675862`", 
      "752.7340546666668`", 
      RowBox[{"-", "653.346497`"}], 
      RowBox[{"-", "446.390392`"}], 
      RowBox[{"-", "346.575498`"}], 
      RowBox[{"-", "482.104129`"}], "273.685362`", "270.10405`", 
      "268.100364`", "270.62992533333335`"},
     {"\<\"\"\>", "\<\"2150\"\>", "1234.20457`", "1019.546766`", 
      "905.702116`", "1053.1511506666668`", 
      RowBox[{"-", "833.239229`"}], 
      RowBox[{"-", "647.238471`"}], 
      RowBox[{"-", "547.728852`"}], 
      RowBox[{"-", "676.0688506666667`"}], "400.965341`", "372.308295`", 
      "357.973264`", "377.08230000000003`"},
     {"\<\"D07\"\>", "\<\"2050\"\>", "935.090733`", "716.532074`", 
      "614.757793`", "755.4602`", 
      RowBox[{"-", "605.559069`"}], 
      RowBox[{"-", "387.104407`"}], 
      RowBox[{"-", "285.370871`"}], 
      RowBox[{"-", "426.011449`"}], "329.531664`", "329.427667`", 
      "329.386922`", "329.448751`"},
     {"\<\"\"\>", "\<\"2100\"\>", "976.596548`", "772.224682`", "673.72741`", 
      "807.5162133333333`", 
      RowBox[{"-", "618.673708`"}], 
      RowBox[{"-", "419.090522`"}], 
      RowBox[{"-", "323.320478`"}], 
      RowBox[{"-", "453.6949026666666`"}], "357.92284`", "353.13416`", 
      "350.406932`", "353.8213106666667`"},
     {"\<\"\"\>", "\<\"2150\"\>", "1274.441641`", "1071.03599`", 
      "961.949302`", "1102.4756443333333`", 
      RowBox[{"-", "774.694757`"}], 
      RowBox[{"-", "596.566804`"}], 
      RowBox[{"-", "502.155991`"}], 
      RowBox[{"-", "624.4725173333333`"}], "499.746884`", "474.469186`", 
      "459.793311`", "478.00312699999995`"},
     {"\<\"FG\"\>", "\<\"2050\"\>", "842.18564`", "612.774851`", 
      "506.193525`", "653.7180053333333`", 
      RowBox[{"-", "633.451622`"}], 
      RowBox[{"-", "403.978962`"}], 
      RowBox[{"-", "297.372178`"}], 
      RowBox[{"-", "444.93425400000007`"}], "208.734018`", "208.79589`", 
      "208.821347`", "208.7837516666667`"},
     {"\<\"\"\>", "\<\"2100\"\>", "878.42537`", "662.944687`", "560.048835`", 
      "700.472964`", 
      RowBox[{"-", "677.367262`"}], 
      RowBox[{"-", "460.335464`"}], 
      RowBox[{"-", "356.537234`"}], 
      RowBox[{"-", "498.0799866666666`"}], "201.058108`", "202.609223`", 
      "203.511601`", "202.39297733333333`"},
     {"\<\"\"\>", "\<\"2150\"\>", "1100.974271`", "895.285094`", 
      "790.251205`", "928.8368566666667`", 
      RowBox[{"-", "899.498816`"}], 
      RowBox[{"-", "693.097152`"}], 
      RowBox[{"-", "587.689932`"}], 
      RowBox[{"-", "726.7619666666666`"}], "201.475455`", "202.187942`", 
      "202.561273`", "202.07489`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8246684205963545`*^9, 3.82518281984026*^9},
 CellLabel->
  "Out[269]//MatrixForm=",ExpressionUUID->"aaf3b78c-3e43-4c35-99d9-\
1c72fd9c783c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6T3f.csv\>\"", ",", "SI6T3f"}], "]"}]], "Input",
 CellChangeTimes->{{3.8246684975058055`*^9, 3.824668500915621*^9}},
 CellLabel->
  "In[271]:=",ExpressionUUID->"dd3d9232-9dc2-4d74-ac18-9deca37fd8ba"],

Cell[BoxData["\<\"SI6T3f.csv\"\>"], "Output",
 CellChangeTimes->{
  3.8246685015413656`*^9, {3.825182850376303*^9, 3.8251828783973446`*^9}},
 CellLabel->
  "Out[271]=",ExpressionUUID->"8d2bd9af-f384-46e8-9071-2979e1f43681"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", 
        RowBox[{"7", ";;", "8"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16low", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"87", ",", "137"}], "}"}], ",", "39"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", 
        RowBox[{"9", ";;", "11"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16low", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "29"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", 
        RowBox[{"12", ";;", "14"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16low", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "33"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"3", ",", 
        RowBox[{"15", ";;", "17"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16low", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "34"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16medium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "40"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", 
        RowBox[{"7", ";;", "8"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16medium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"87", ",", "137"}], "}"}], ",", "39"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", 
        RowBox[{"9", ";;", "11"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16medium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "29"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", 
        RowBox[{"12", ";;", "14"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16medium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "33"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"4", ",", 
        RowBox[{"15", ";;", "17"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16medium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "34"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16high", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "40"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", 
        RowBox[{"7", ";;", "8"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16high", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"87", ",", "137"}], "}"}], ",", "39"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", 
        RowBox[{"9", ";;", "11"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16high", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "29"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", 
        RowBox[{"12", ";;", "14"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16high", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "33"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"5", ",", 
        RowBox[{"15", ";;", "17"}]}], "]"}], "]"}], "=", 
     RowBox[{"osD16high", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "34"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"6", ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGlow", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "40"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"6", ",", 
        RowBox[{"7", ";;", "8"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGlow", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"87", ",", "137"}], "}"}], ",", "39"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"6", ",", 
        RowBox[{"9", ";;", "11"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGlow", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "29"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"6", ",", 
        RowBox[{"12", ";;", "14"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGlow", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "33"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"6", ",", 
        RowBox[{"15", ";;", "17"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGlow", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "34"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"7", ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGmedium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "40"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"7", ",", 
        RowBox[{"7", ";;", "8"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGmedium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"87", ",", "137"}], "}"}], ",", "39"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"7", ",", 
        RowBox[{"9", ";;", "11"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGmedium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "29"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"7", ",", 
        RowBox[{"12", ";;", "14"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGmedium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "33"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"7", ",", 
        RowBox[{"15", ";;", "17"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGmedium", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "34"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"8", ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGhigh", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "40"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"8", ",", 
        RowBox[{"7", ";;", "8"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGhigh", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"87", ",", "137"}], "}"}], ",", "39"}], "]"}], "]"}]}], ";", 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"8", ",", 
        RowBox[{"9", ";;", "11"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGhigh", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "29"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"8", ",", 
        RowBox[{"12", ";;", "14"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGhigh", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "33"}], "]"}], 
      "]"}]}], ";", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"SI6T1", "[", 
      RowBox[{"[", 
       RowBox[{"8", ",", 
        RowBox[{"15", ";;", "17"}]}], "]"}], "]"}], "=", 
     RowBox[{"osFGhigh", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"37", ",", "87", ",", "137"}], "}"}], ",", "34"}], "]"}], 
      "]"}]}], ";"}], "*)"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.8246539108738623`*^9, 3.824654013615164*^9}, {
   3.8246541945306683`*^9, 3.8246542044987097`*^9}, {3.824654252175639*^9, 
   3.824654312081312*^9}, {3.8246633763233457`*^9, 3.8246634921881437`*^9}, {
   3.8246635525157595`*^9, 3.824663556563939*^9}, {3.8246635904620543`*^9, 
   3.824663593835232*^9}, {3.824663694911845*^9, 3.824663877908777*^9}, 
   3.8246642610030127`*^9, {3.8246646876232467`*^9, 
   3.8246646958505135`*^9}},ExpressionUUID->"980e7327-a185-4229-8eaa-\
80ea68820dc6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6T1.csv\>\"", ",", "SI6T1"}], "]"}]], "Input",
 CellChangeTimes->{{3.824664018077526*^9, 3.824664042202875*^9}},
 CellLabel->
  "In[668]:=",ExpressionUUID->"351e6d3e-4ebc-4462-921c-8bbba87a024a"],

Cell[BoxData["\<\"SI6T1.csv\"\>"], "Output",
 CellChangeTimes->{{3.8246640364979687`*^9, 3.8246640430127325`*^9}, 
   3.8246647037226963`*^9},
 CellLabel->
  "Out[668]=",ExpressionUUID->"50008b71-4b99-4eaa-a85c-5b11b6a0ea88"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"osD16low", "[", 
      RowBox[{"[", 
       RowBox[{"87", ",", "3"}], "]"}], "]"}], "-", 
     RowBox[{"osD16low", "[", 
      RowBox[{"[", 
       RowBox[{"37", ",", "3"}], "]"}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"osD16medium", "[", 
      RowBox[{"[", 
       RowBox[{"87", ",", "3"}], "]"}], "]"}], "-", 
     RowBox[{"osD16medium", "[", 
      RowBox[{"[", 
       RowBox[{"37", ",", "3"}], "]"}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"osD16high", "[", 
      RowBox[{"[", 
       RowBox[{"87", ",", "3"}], "]"}], "]"}], "-", 
     RowBox[{"osD16high", "[", 
      RowBox[{"[", 
       RowBox[{"37", ",", "3"}], "]"}], "]"}]}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8246271821349444`*^9, 3.8246272529430237`*^9}},
 CellLabel->
  "In[435]:=",ExpressionUUID->"c836f2f2-feb0-4786-ba88-3025ca189df0"],

Cell[BoxData[
 RowBox[{"-", "118.95144966666665`"}]], "Output",
 CellChangeTimes->{{3.824627190272636*^9, 3.824627208675652*^9}, {
  3.824627246478359*^9, 3.8246272537199926`*^9}},
 CellLabel->
  "Out[435]=",ExpressionUUID->"0d1ca14c-c282-48d3-beaa-6af0e054a378"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Cdist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "24"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "8"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"5", ",", "8"}], "]"}], "]"}], "=", "\"\<\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD16low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD16high", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD16medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"23", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"23", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"23", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"24", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"24", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Cdist", "[", 
    RowBox[{"[", 
     RowBox[{"24", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", "25"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8238870422716446`*^9, 3.8238871048947015`*^9}, 
   3.823888519655197*^9, {3.823888614419503*^9, 3.8238886536066866`*^9}, {
   3.823888694677241*^9, 3.823888778995996*^9}, 3.823888810274491*^9, {
   3.8238888430797005`*^9, 3.8238888833966923`*^9}, {3.8238889822254505`*^9, 
   3.8238890639671907`*^9}, {3.8238893283906007`*^9, 3.823889379612758*^9}, {
   3.823889428345636*^9, 3.823889501082012*^9}, {3.8238895361189656`*^9, 
   3.8238895496833935`*^9}, {3.823889587129561*^9, 3.8238897112472677`*^9}, {
   3.82389019708368*^9, 3.8238902161466436`*^9}, {3.824047830083723*^9, 
   3.824047838089892*^9}, {3.824057687303299*^9, 3.8240577275484104`*^9}, {
   3.824057820529415*^9, 3.8240579195711865`*^9}, {3.8240580166060762`*^9, 
   3.824058027041081*^9}, {3.824090832022859*^9, 3.8240909145126686`*^9}, {
   3.8240909712515993`*^9, 3.8240912528211536`*^9}, {3.82409223563404*^9, 
   3.8240922368535213`*^9}},
 CellLabel->
  "In[584]:=",ExpressionUUID->"3047b8de-1206-48f5-9dc6-1e6780f5107e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CCdist", "=", "Cdist"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CCdist", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "4"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"CCdist", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "2"}], "}"}]}], "]"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.8238903832541933`*^9, 3.8238904549470873`*^9}, {
  3.823890520776664*^9, 3.8238905241271996`*^9}},
 CellLabel->
  "In[644]:=",ExpressionUUID->"dbe16a1b-eceb-40a1-9040-459fc5625dfb"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"C13dist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "24"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "8"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"5", ",", "8"}], "]"}], "]"}], "=", "\"\<\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13high", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD13medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"23", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"23", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"23", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"24", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"24", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C13dist", "[", 
    RowBox[{"[", 
     RowBox[{"24", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CC13dist", "=", "C13dist"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CC13dist", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "4"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"CC13dist", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "2"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8252100826727343`*^9, 3.825210383160158*^9}, {
  3.8252108184437723`*^9, 3.82521085232182*^9}, {3.8252119261923337`*^9, 
  3.825211928353337*^9}},
 CellLabel->
  "In[495]:=",ExpressionUUID->"45c019f6-54e8-4c25-af2b-6877d6c1728e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"C07dist", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"\"\<\>\"", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "24"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "8"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"3", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"4", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"5", ",", "8"}], "]"}], "]"}], "=", "\"\<\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"6", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"7", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"8", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"37", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD13low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"10", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"11", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"12", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"14", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"15", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"16", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"18", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD07low", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"19", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osD07high", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"20", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osD07medium", "[", 
    RowBox[{"[", 
     RowBox[{"87", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"22", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGlow", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"23", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"23", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"23", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGmedium", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"24", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"2", ";;", "4"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"24", ",", 
      RowBox[{"5", ";;", "7"}]}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", 
      RowBox[{"11", ";;", "13"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"C07dist", "[", 
    RowBox[{"[", 
     RowBox[{"24", ",", "8"}], "]"}], "]"}], "=", 
   RowBox[{"osFGhigh", "[", 
    RowBox[{"[", 
     RowBox[{"137", ",", "25"}], "]"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"CC07dist", "=", "C07dist"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"CC07dist", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "4"}], "}"}]}], "]"}], "]"}], "=", 
   RowBox[{"CC07dist", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", 
      RowBox[{"{", 
       RowBox[{"4", ",", "2"}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8252100826727343`*^9, 3.825210383160158*^9}, {
  3.8252108184437723`*^9, 3.82521085232182*^9}, {3.8252119261923337`*^9, 
  3.825211928353337*^9}, {3.8252152436360703`*^9, 3.8252152664681025`*^9}, {
  3.8252153185071754`*^9, 3.8252156016595745`*^9}},
 CellLabel->
  "In[646]:=",ExpressionUUID->"5cc3466b-cbd8-4d0c-85c1-5870579941c3"],

Cell[BoxData[
 RowBox[{
  RowBox[{"fl", "=", 
   RowBox[{"Graphics", "[", 
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Rectangle", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.25", ",", "0.05"}], "}"}]}], "]"}]}], "}"}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{3.824063293897238*^9},
 CellLabel->
  "In[415]:=",ExpressionUUID->"c2952a07-79b4-4ae6-b0ec-85ae32448846"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FCdist2050", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"Cdist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "8"}], ",", 
        RowBox[{"2", ";;", "7"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.1"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<low\>\"", ",", "\"\<med \\nDICE 16\>\"", ",", "\"\<high\>\"", 
          ",", "\"\<\\n\\n 2050\>\"", ",", "\"\<low\>\"", ",", 
          "\"\<med \\nFaIR-Geoff\>\"", ",", "\"\<high\>\""}], "}"}], ",", 
        "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"BarSpacing", "\[Rule]", "0.3"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\< Gross/Negative/Net Emissions (Gt C)\>\"", ",", "Black"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "750"}], ",", 
            RowBox[{"-", "500"}], ",", 
            RowBox[{"-", "250"}], ",", "0", ",", "250", ",", "500", ",", 
            "750"}], "}"}], ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "\"\<low\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "\"\<med \\n DICE2016\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "\"\<high\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "\"\<\\n\\n 2050\>\""}], "}"}]}], "}"}], ",", 
          "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "\"\<low\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", " ", "\"\<med \\n FaIR-Geoff\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", "\"\<high\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<b1\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823890073090515*^9, 3.8238901364920716`*^9}, 
   3.8238905612572093`*^9, {3.824014631138024*^9, 3.8240146331043367`*^9}, {
   3.824047886346449*^9, 3.824047895397727*^9}, {3.824047943165348*^9, 
   3.824047970627758*^9}, {3.8240483489606447`*^9, 3.824048354178032*^9}, {
   3.824048411421276*^9, 3.824048568439223*^9}, {3.824048683448474*^9, 
   3.824048756243036*^9}, {3.824048904685441*^9, 3.824048923700327*^9}, {
   3.824048975432994*^9, 3.8240489777867336`*^9}, {3.8240490250710583`*^9, 
   3.8240490498034554`*^9}, {3.824049156505105*^9, 3.824049160200428*^9}, {
   3.8240492798860254`*^9, 3.8240493068717413`*^9}, {3.824049544474527*^9, 
   3.8240495456620073`*^9}, {3.8240496237252274`*^9, 
   3.8240497432837543`*^9}, {3.8240534882155123`*^9, 3.824053547768684*^9}, {
   3.8240536370508366`*^9, 3.82405364664505*^9}, {3.8240536818864856`*^9, 
   3.824053773350162*^9}, {3.82405382643391*^9, 3.824053842660067*^9}, {
   3.8240538973383293`*^9, 3.824053898787627*^9}, {3.8240540065565*^9, 
   3.8240541667210507`*^9}, {3.82405445522338*^9, 3.824054710823125*^9}, {
   3.8240547547787895`*^9, 3.8240547730436907`*^9}, 3.824054803396308*^9, {
   3.8240548335561185`*^9, 3.824055103385*^9}, {3.824055300198719*^9, 
   3.824055402644619*^9}, {3.824056364576741*^9, 3.824056451058465*^9}, {
   3.8240564816710095`*^9, 3.8240565673913155`*^9}, {3.824056647385868*^9, 
   3.824056796001286*^9}, {3.8240568335860376`*^9, 3.824056834834886*^9}, {
   3.8240568831265717`*^9, 3.82405690289912*^9}, {3.8240569380520515`*^9, 
   3.8240569392708035`*^9}, 3.8240577629263887`*^9, {3.824059361590516*^9, 
   3.8240594361071267`*^9}, {3.8240599331928234`*^9, 
   3.8240599992257614`*^9}, {3.824060144717406*^9, 3.8240601726287484`*^9}, {
   3.824060236132613*^9, 3.8240603486091995`*^9}, {3.824060382258993*^9, 
   3.8240606060305133`*^9}, {3.824060647127112*^9, 3.824060681806402*^9}, 
   3.824061923770802*^9, {3.82406335567825*^9, 3.824063389463982*^9}, {
   3.8240634218052716`*^9, 3.8240634877495193`*^9}, {3.8240635417768564`*^9, 
   3.824063588213892*^9}, {3.8240636254159484`*^9, 3.824063868334691*^9}, {
   3.824063935813938*^9, 3.8240639605716033`*^9}, {3.8240640305230494`*^9, 
   3.8240641366517296`*^9}, {3.824091829860238*^9, 3.8240918355709925`*^9}, {
   3.8241255457258525`*^9, 3.8241255537974553`*^9}, {3.8242834898777103`*^9, 
   3.824283508321797*^9}, 3.8252130802270193`*^9},
 CellLabel->
  "In[704]:=",ExpressionUUID->"30b57bac-30f3-43c4-b2b7-7e16b8f5b2ab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FNCdist2050", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Cdist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "8"}], ",", "8"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "250"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.1", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"fl", ",", "0.08"}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "500"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "250"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<-15\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"198", ",", "\"\<198\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"250", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"500", ",", "\"\<\>\""}], "}"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Net Emissions (Gt C)\>\"", ",", "18", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824057949228264*^9, 3.824057983124361*^9}, {
   3.8240582201554565`*^9, 3.82405828684138*^9}, {3.824058319988413*^9, 
   3.824058533291483*^9}, {3.8240585657665195`*^9, 3.8240586133661747`*^9}, {
   3.8240587306476727`*^9, 3.8240587571148233`*^9}, 3.824058864733663*^9, {
   3.8240589376302867`*^9, 3.8240590543182926`*^9}, {3.8240591427134*^9, 
   3.8240591573006215`*^9}, {3.8240597376787095`*^9, 3.824059912632352*^9}, {
   3.824060033237131*^9, 3.8240600629809504`*^9}, {3.824060707878212*^9, 
   3.8240607321672373`*^9}, {3.824060770902687*^9, 3.824060796453489*^9}, {
   3.824060829273352*^9, 3.8240609768534727`*^9}, {3.8240610164623747`*^9, 
   3.824061037151898*^9}, {3.824061276765772*^9, 3.824061377204176*^9}, {
   3.8240615783387156`*^9, 3.8240616084289684`*^9}, {3.8240617081210756`*^9, 
   3.8240617792607574`*^9}, {3.8240618316973295`*^9, 3.824061838522883*^9}, {
   3.8240619136230316`*^9, 3.8240619153211684`*^9}, {3.824061950200694*^9, 
   3.824061981458679*^9}, 3.824062041375255*^9, {3.8240620793410683`*^9, 
   3.824062096672375*^9}, {3.824062146041576*^9, 3.824062159082079*^9}, {
   3.8240622452952576`*^9, 3.8240622712280807`*^9}, {3.8240624217925386`*^9, 
   3.8240624358848343`*^9}, {3.824062549557721*^9, 3.824062688174779*^9}, {
   3.8240627299037237`*^9, 3.824062769916463*^9}, {3.824062923229401*^9, 
   3.8240629250404153`*^9}, {3.824063196384083*^9, 3.8240632117420673`*^9}, {
   3.824063252918992*^9, 3.8240632801715956`*^9}, {3.82406414329595*^9, 
   3.824064157376355*^9}, {3.8240918589160624`*^9, 3.8240918646806755`*^9}, 
   3.825213090039033*^9},
 CellLabel->
  "In[705]:=",ExpressionUUID->"86893872-ff76-45ac-bb2f-f4c003ef2d33"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FCd2050", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"FCdist2050", ",", "FNCdist2050"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.82406217731055*^9, 3.824062184470115*^9}, {
   3.8240641643721743`*^9, 3.824064172447519*^9}, 3.824091300964791*^9, {
   3.824091347554255*^9, 3.824091347800666*^9}, {3.824091484954954*^9, 
   3.8240915083500295`*^9}},
 CellLabel->
  "In[706]:=",ExpressionUUID->"5e85f460-06e8-49f6-b9a9-ed1a91a03630"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FCdist2100", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"Cdist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"10", ";;", "16"}], ",", 
        RowBox[{"2", ";;", "7"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.1"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<low\>\"", ",", "\"\<med \\nDICE 16\>\"", ",", "\"\<high\>\"", 
          ",", "\"\<\\n\\n 2100\>\"", ",", "\"\<low\>\"", ",", 
          "\"\<med \\nFaIR-Geoff\>\"", ",", "\"\<high\>\""}], "}"}], ",", 
        "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"BarSpacing", "\[Rule]", "0.3"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\< Gross/Negative/Net Emissions (Gt C)\>\"", ",", "Black"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "750"}], ",", 
            RowBox[{"-", "500"}], ",", 
            RowBox[{"-", "250"}], ",", "0", ",", "250", ",", "500", ",", 
            "750"}], "}"}], ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "\"\<low\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "\"\<med \\n DICE2016\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "\"\<high\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "\"\<\\n\\n 2050\>\""}], "}"}]}], "}"}], ",", 
          "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "\"\<low\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", " ", "\"\<med \\n FaIR-Geoff\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", "\"\<high\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<b2\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823890073090515*^9, 3.8238901364920716`*^9}, 
   3.8238905612572093`*^9, {3.824014631138024*^9, 3.8240146331043367`*^9}, {
   3.824047886346449*^9, 3.824047895397727*^9}, {3.824047943165348*^9, 
   3.824047970627758*^9}, {3.8240483489606447`*^9, 3.824048354178032*^9}, {
   3.824048411421276*^9, 3.824048568439223*^9}, {3.824048683448474*^9, 
   3.824048756243036*^9}, {3.824048904685441*^9, 3.824048923700327*^9}, {
   3.824048975432994*^9, 3.8240489777867336`*^9}, {3.8240490250710583`*^9, 
   3.8240490498034554`*^9}, {3.824049156505105*^9, 3.824049160200428*^9}, {
   3.8240492798860254`*^9, 3.8240493068717413`*^9}, {3.824049544474527*^9, 
   3.8240495456620073`*^9}, {3.8240496237252274`*^9, 
   3.8240497432837543`*^9}, {3.8240534882155123`*^9, 3.824053547768684*^9}, {
   3.8240536370508366`*^9, 3.82405364664505*^9}, {3.8240536818864856`*^9, 
   3.824053773350162*^9}, {3.82405382643391*^9, 3.824053842660067*^9}, {
   3.8240538973383293`*^9, 3.824053898787627*^9}, {3.8240540065565*^9, 
   3.8240541667210507`*^9}, {3.82405445522338*^9, 3.824054710823125*^9}, {
   3.8240547547787895`*^9, 3.8240547730436907`*^9}, 3.824054803396308*^9, {
   3.8240548335561185`*^9, 3.824055103385*^9}, {3.824055300198719*^9, 
   3.824055402644619*^9}, {3.824056364576741*^9, 3.824056451058465*^9}, {
   3.8240564816710095`*^9, 3.8240565673913155`*^9}, {3.824056647385868*^9, 
   3.824056796001286*^9}, {3.8240568335860376`*^9, 3.824056834834886*^9}, {
   3.8240568831265717`*^9, 3.82405690289912*^9}, {3.8240569380520515`*^9, 
   3.8240569392708035`*^9}, 3.8240577629263887`*^9, {3.824059361590516*^9, 
   3.8240594361071267`*^9}, {3.8240599331928234`*^9, 
   3.8240599992257614`*^9}, {3.824060144717406*^9, 3.8240601726287484`*^9}, {
   3.824060236132613*^9, 3.8240603486091995`*^9}, {3.824060382258993*^9, 
   3.8240606060305133`*^9}, {3.824060647127112*^9, 3.824060681806402*^9}, 
   3.824061923770802*^9, {3.82406335567825*^9, 3.824063389463982*^9}, {
   3.8240634218052716`*^9, 3.8240634877495193`*^9}, {3.8240635417768564`*^9, 
   3.824063588213892*^9}, {3.8240636254159484`*^9, 3.824063868334691*^9}, {
   3.824063935813938*^9, 3.8240639605716033`*^9}, {3.8240640305230494`*^9, 
   3.8240641366517296`*^9}, {3.824091318365783*^9, 3.8240913200418043`*^9}, {
   3.824091396972622*^9, 3.8240914139491463`*^9}, {3.824091785070686*^9, 
   3.824091791252164*^9}, {3.8241255281034746`*^9, 3.8241255337658978`*^9}, 
   3.825213098640045*^9},
 CellLabel->
  "In[707]:=",ExpressionUUID->"c62fd71f-11c2-45c6-8ca3-000488a64185"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FNCdist2100", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Cdist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"10", ";;", "16"}], ",", "8"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "250"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.1", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"fl", ",", "0.08"}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "500"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "250"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<-15\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"198", ",", "\"\<198\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"250", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"500", ",", "\"\<\>\""}], "}"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Net Emissions (Gt C)\>\"", ",", "18", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824057949228264*^9, 3.824057983124361*^9}, {
   3.8240582201554565`*^9, 3.82405828684138*^9}, {3.824058319988413*^9, 
   3.824058533291483*^9}, {3.8240585657665195`*^9, 3.8240586133661747`*^9}, {
   3.8240587306476727`*^9, 3.8240587571148233`*^9}, 3.824058864733663*^9, {
   3.8240589376302867`*^9, 3.8240590543182926`*^9}, {3.8240591427134*^9, 
   3.8240591573006215`*^9}, {3.8240597376787095`*^9, 3.824059912632352*^9}, {
   3.824060033237131*^9, 3.8240600629809504`*^9}, {3.824060707878212*^9, 
   3.8240607321672373`*^9}, {3.824060770902687*^9, 3.824060796453489*^9}, {
   3.824060829273352*^9, 3.8240609768534727`*^9}, {3.8240610164623747`*^9, 
   3.824061037151898*^9}, {3.824061276765772*^9, 3.824061377204176*^9}, {
   3.8240615783387156`*^9, 3.8240616084289684`*^9}, {3.8240617081210756`*^9, 
   3.8240617792607574`*^9}, {3.8240618316973295`*^9, 3.824061838522883*^9}, {
   3.8240619136230316`*^9, 3.8240619153211684`*^9}, {3.824061950200694*^9, 
   3.824061981458679*^9}, 3.824062041375255*^9, {3.8240620793410683`*^9, 
   3.824062096672375*^9}, {3.824062146041576*^9, 3.824062159082079*^9}, {
   3.8240622452952576`*^9, 3.8240622712280807`*^9}, {3.8240624217925386`*^9, 
   3.8240624358848343`*^9}, {3.824062549557721*^9, 3.824062688174779*^9}, {
   3.8240627299037237`*^9, 3.824062769916463*^9}, {3.824062923229401*^9, 
   3.8240629250404153`*^9}, {3.824063196384083*^9, 3.8240632117420673`*^9}, {
   3.824063252918992*^9, 3.8240632801715956`*^9}, {3.82406414329595*^9, 
   3.824064157376355*^9}, {3.824091325596507*^9, 3.8240913269733562`*^9}, {
   3.824091427627793*^9, 3.824091430593933*^9}, {3.8240917985140257`*^9, 
   3.8240918040787287`*^9}, 3.825215621784603*^9},
 CellLabel->
  "In[708]:=",ExpressionUUID->"669806ee-24a4-4be9-a7d9-a1e038b841d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FCd2100", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"FCdist2100", ",", "FNCdist2100"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.82406217731055*^9, 3.824062184470115*^9}, {
   3.8240641643721743`*^9, 3.824064172447519*^9}, {3.824091300964791*^9, 
   3.824091340923424*^9}, {3.824091451355304*^9, 3.824091468581418*^9}, 
   3.824091526341276*^9, {3.8240918095799203`*^9, 3.8240918144879055`*^9}},
 CellLabel->
  "In[709]:=",ExpressionUUID->"eb6346de-1c38-4351-ad38-2cae21073bef"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FCdist2150", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"Cdist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"18", ";;", "24"}], ",", 
        RowBox[{"2", ";;", "7"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.1"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<low\>\"", ",", "\"\<med \\nDICE 16\>\"", ",", "\"\<high\>\"", 
          ",", "\"\<\\n\\n 2150\>\"", ",", "\"\<low\>\"", ",", 
          "\"\<med \\nFaIR-Geoff\>\"", ",", "\"\<high\>\""}], "}"}], ",", 
        "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"BarSpacing", "\[Rule]", "0.3"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\< Gross/Negative/Net Emissions (Gt C)\>\"", ",", "Black"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "750"}], ",", 
            RowBox[{"-", "500"}], ",", 
            RowBox[{"-", "250"}], ",", "0", ",", "250", ",", "500", ",", 
            "750"}], "}"}], ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "\"\<low\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "\"\<med \\n DICE2016\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "\"\<high\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "\"\<\\n\\n 2050\>\""}], "}"}]}], "}"}], ",", 
          "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "\"\<low\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", " ", "\"\<med \\n FaIR-Geoff\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", "\"\<high\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<b3\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823890073090515*^9, 3.8238901364920716`*^9}, 
   3.8238905612572093`*^9, {3.824014631138024*^9, 3.8240146331043367`*^9}, {
   3.824047886346449*^9, 3.824047895397727*^9}, {3.824047943165348*^9, 
   3.824047970627758*^9}, {3.8240483489606447`*^9, 3.824048354178032*^9}, {
   3.824048411421276*^9, 3.824048568439223*^9}, {3.824048683448474*^9, 
   3.824048756243036*^9}, {3.824048904685441*^9, 3.824048923700327*^9}, {
   3.824048975432994*^9, 3.8240489777867336`*^9}, {3.8240490250710583`*^9, 
   3.8240490498034554`*^9}, {3.824049156505105*^9, 3.824049160200428*^9}, {
   3.8240492798860254`*^9, 3.8240493068717413`*^9}, {3.824049544474527*^9, 
   3.8240495456620073`*^9}, {3.8240496237252274`*^9, 
   3.8240497432837543`*^9}, {3.8240534882155123`*^9, 3.824053547768684*^9}, {
   3.8240536370508366`*^9, 3.82405364664505*^9}, {3.8240536818864856`*^9, 
   3.824053773350162*^9}, {3.82405382643391*^9, 3.824053842660067*^9}, {
   3.8240538973383293`*^9, 3.824053898787627*^9}, {3.8240540065565*^9, 
   3.8240541667210507`*^9}, {3.82405445522338*^9, 3.824054710823125*^9}, {
   3.8240547547787895`*^9, 3.8240547730436907`*^9}, 3.824054803396308*^9, {
   3.8240548335561185`*^9, 3.824055103385*^9}, {3.824055300198719*^9, 
   3.824055402644619*^9}, {3.824056364576741*^9, 3.824056451058465*^9}, {
   3.8240564816710095`*^9, 3.8240565673913155`*^9}, {3.824056647385868*^9, 
   3.824056796001286*^9}, {3.8240568335860376`*^9, 3.824056834834886*^9}, {
   3.8240568831265717`*^9, 3.82405690289912*^9}, {3.8240569380520515`*^9, 
   3.8240569392708035`*^9}, 3.8240577629263887`*^9, {3.824059361590516*^9, 
   3.8240594361071267`*^9}, {3.8240599331928234`*^9, 
   3.8240599992257614`*^9}, {3.824060144717406*^9, 3.8240601726287484`*^9}, {
   3.824060236132613*^9, 3.8240603486091995`*^9}, {3.824060382258993*^9, 
   3.8240606060305133`*^9}, {3.824060647127112*^9, 3.824060681806402*^9}, 
   3.824061923770802*^9, {3.82406335567825*^9, 3.824063389463982*^9}, {
   3.8240634218052716`*^9, 3.8240634877495193`*^9}, {3.8240635417768564`*^9, 
   3.824063588213892*^9}, {3.8240636254159484`*^9, 3.824063868334691*^9}, {
   3.824063935813938*^9, 3.8240639605716033`*^9}, {3.8240640305230494`*^9, 
   3.8240641366517296`*^9}, {3.824091318365783*^9, 3.8240913200418043`*^9}, {
   3.824091396972622*^9, 3.8240914139491463`*^9}, {3.824091558899126*^9, 
   3.8240915603797464`*^9}, {3.8240915935865116`*^9, 3.824091605366926*^9}, {
   3.82409173258856*^9, 3.8240917407429004`*^9}, 3.8241254272365522`*^9, {
   3.824125460609003*^9, 3.8241255142747645`*^9}, 3.8252156282556124`*^9},
 CellLabel->
  "In[710]:=",ExpressionUUID->"e3426c96-c7cc-4abf-968f-59e96fdb8af0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FNCdist2150", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"Cdist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"18", ";;", "24"}], ",", "8"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "250"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.1", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"fl", ",", "0.08"}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "500"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "250"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<-15\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"198", ",", "\"\<198\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"250", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"500", ",", "\"\<\>\""}], "}"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Net Emissions (Gt C)\>\"", ",", "18", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824057949228264*^9, 3.824057983124361*^9}, {
   3.8240582201554565`*^9, 3.82405828684138*^9}, {3.824058319988413*^9, 
   3.824058533291483*^9}, {3.8240585657665195`*^9, 3.8240586133661747`*^9}, {
   3.8240587306476727`*^9, 3.8240587571148233`*^9}, 3.824058864733663*^9, {
   3.8240589376302867`*^9, 3.8240590543182926`*^9}, {3.8240591427134*^9, 
   3.8240591573006215`*^9}, {3.8240597376787095`*^9, 3.824059912632352*^9}, {
   3.824060033237131*^9, 3.8240600629809504`*^9}, {3.824060707878212*^9, 
   3.8240607321672373`*^9}, {3.824060770902687*^9, 3.824060796453489*^9}, {
   3.824060829273352*^9, 3.8240609768534727`*^9}, {3.8240610164623747`*^9, 
   3.824061037151898*^9}, {3.824061276765772*^9, 3.824061377204176*^9}, {
   3.8240615783387156`*^9, 3.8240616084289684`*^9}, {3.8240617081210756`*^9, 
   3.8240617792607574`*^9}, {3.8240618316973295`*^9, 3.824061838522883*^9}, {
   3.8240619136230316`*^9, 3.8240619153211684`*^9}, {3.824061950200694*^9, 
   3.824061981458679*^9}, 3.824062041375255*^9, {3.8240620793410683`*^9, 
   3.824062096672375*^9}, {3.824062146041576*^9, 3.824062159082079*^9}, {
   3.8240622452952576`*^9, 3.8240622712280807`*^9}, {3.8240624217925386`*^9, 
   3.8240624358848343`*^9}, {3.824062549557721*^9, 3.824062688174779*^9}, {
   3.8240627299037237`*^9, 3.824062769916463*^9}, {3.824062923229401*^9, 
   3.8240629250404153`*^9}, {3.824063196384083*^9, 3.8240632117420673`*^9}, {
   3.824063252918992*^9, 3.8240632801715956`*^9}, {3.82406414329595*^9, 
   3.824064157376355*^9}, {3.824091325596507*^9, 3.8240913269733562`*^9}, {
   3.824091427627793*^9, 3.824091430593933*^9}, {3.8240915653572216`*^9, 
   3.8240915665379148`*^9}, {3.8240916146810155`*^9, 
   3.8240916180978355`*^9}, {3.8240917441483693`*^9, 3.824091750238287*^9}, 
   3.825215634217621*^9},
 CellLabel->
  "In[711]:=",ExpressionUUID->"778ac232-6555-4516-a228-b23616f50c54"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FCd2150", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"FCdist2150", ",", "FNCdist2150"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.82406217731055*^9, 3.824062184470115*^9}, {
   3.8240641643721743`*^9, 3.824064172447519*^9}, {3.824091300964791*^9, 
   3.824091340923424*^9}, {3.824091451355304*^9, 3.824091468581418*^9}, 
   3.824091526341276*^9, {3.8240915713371687`*^9, 3.8240915817098703`*^9}, 
   3.824091629655659*^9, 3.824091770312008*^9},
 CellLabel->
  "In[712]:=",ExpressionUUID->"97d2639f-f1b9-4c8c-92f0-561dee805979"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FigureBD16", "=", 
  RowBox[{"Legended", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"FCd2050", ",", "FCd2100", ",", "FCd2150"}], "}"}], "}"}], 
     "]"}], ",", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"SwatchLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.1"}], "]"}], ",", "Black"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<E<2050\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<2050\[LessSlantEqual]E<2100\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<2100\[LessSlantEqual]E<2200\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<CDR<2050\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<2050\[LessSlantEqual]CDR<2100\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<2100\[LessSlantEqual]CDR<2200\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<NE<2200\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", "Below"}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.82412570592852*^9, 3.824125720354286*^9}, {
  3.8241257636601653`*^9, 3.824125785135518*^9}, {3.8241258455107646`*^9, 
  3.824125917071863*^9}, {3.8241259755453615`*^9, 3.8241260896123257`*^9}, {
  3.8241261470045605`*^9, 3.8241262339885645`*^9}, {3.8252157284137545`*^9, 
  3.8252157390947695`*^9}},
 CellLabel->
  "In[714]:=",ExpressionUUID->"68df1dfa-e23a-4c7a-8930-7477cbe80162"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
       GraphicsBox[{{{
           Opacity[0], 
           
           PointBox[{{0.6153846153846154, -732.786057}, {
            7.384615384615385, -732.786057}}]}, {{}, {{{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 158.330696}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 158.330696]& , TagBoxNote -> "158.330696"], 
                  StyleBox["158.330696`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[158.330696, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 158.330696}, {
                    1.3846153846153846`, 375.237521}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 216.906825]& , TagBoxNote -> "216.906825"], 
                  StyleBox["216.906825`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[216.906825, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 375.237521}, {
                    1.3846153846153846`, 723.032657}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 347.795136]& , TagBoxNote -> "347.795136"], 
                  StyleBox["347.795136`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[347.795136, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -150.095411}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -150.095411]& , TagBoxNote -> "-150.095411"], 
                  StyleBox[
                   RowBox[{"-", "150.095411`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-150.095411, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -150.095411}, {
                    1.3846153846153846`, -387.738468}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -237.643057]& , TagBoxNote -> "-237.643057"], 
                  StyleBox[
                   RowBox[{"-", "237.643057`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-237.643057, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -387.738468}, {
                    1.3846153846153846`, -732.786057}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -345.047589]& , TagBoxNote -> "-345.047589"], 
                  StyleBox[
                   RowBox[{"-", "345.047589`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-345.047589, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 113.766036}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 113.766036]& , TagBoxNote -> "113.766036"], 
                  StyleBox["113.766036`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[113.766036, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 113.766036}, {
                    2.3846153846153846`, 248.30804799999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 134.542012]& , TagBoxNote -> "134.542012"], 
                  StyleBox["134.542012`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[134.542012, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 248.30804799999999`}, {
                    2.3846153846153846`, 465.507693}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 217.199645]& , TagBoxNote -> "217.199645"], 
                  StyleBox["217.199645`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[217.199645, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -104.675465}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -104.675465]& , TagBoxNote -> "-104.675465"], 
                  StyleBox[
                   RowBox[{"-", "104.675465`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-104.675465, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -104.675465}, {
                    2.3846153846153846`, -260.805679}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -156.130214]& , TagBoxNote -> "-156.130214"], 
                  StyleBox[
                   RowBox[{"-", "156.130214`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-156.130214, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -260.805679}, {
                    2.3846153846153846`, -475.265042}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -214.459363]& , TagBoxNote -> "-214.459363"], 
                  StyleBox[
                   RowBox[{"-", "214.459363`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-214.459363, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 90.435781}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 90.435781]& , 
                   TagBoxNote -> "90.435781"], 
                  StyleBox["90.435781`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[90.435781, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 90.435781}, {
                    3.3846153846153846`, 185.041956}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 94.606175]& , TagBoxNote -> "94.606175"], 
                  StyleBox["94.606175`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[94.606175, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 185.041956}, {
                    3.3846153846153846`, 343.59101}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 158.549054]& , 
                   TagBoxNote -> "158.549054"], 
                  StyleBox["158.549054`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[158.549054, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -80.859775}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -80.859775]& , TagBoxNote -> "-80.859775"], 
                  StyleBox[
                   RowBox[{"-", "80.859775`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-80.859775, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{2.6153846153846154`, -80.859775}, {
                    3.3846153846153846`, -197.538004}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -116.678229]& , TagBoxNote -> "-116.678229"], 
                  StyleBox[
                   RowBox[{"-", "116.678229`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-116.678229, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -197.538004}, {
                    3.3846153846153846`, -353.350053}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -155.812049]& , TagBoxNote -> "-155.812049"], 
                  StyleBox[
                   RowBox[{"-", "155.812049`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-155.812049, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    261.198012}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 261.198012]& , 
                   TagBoxNote -> "261.198012"], 
                  StyleBox["261.198012`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[261.198012, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 261.198012}, {
                    5.384615384615385, 504.788541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 243.590529]& , 
                   TagBoxNote -> "243.590529"], 
                  StyleBox["243.590529`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[243.590529, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 504.788541}, {
                    5.384615384615385, 842.185639}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.397098]& , 
                   TagBoxNote -> "337.397098"], 
                  StyleBox["337.397098`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[337.397098, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -64.157411}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -64.157411]& , 
                   TagBoxNote -> "-64.157411"], 
                  StyleBox[
                   RowBox[{"-", "64.157411`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-64.157411, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -64.157411}, {
                    5.384615384615385, -284.68211199999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -220.524701]& , TagBoxNote -> "-220.524701"], 
                  StyleBox[
                   RowBox[{"-", "220.524701`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-220.524701, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -284.68211199999996`}, {
                    5.384615384615385, -633.451622}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -348.76951]& , 
                   TagBoxNote -> "-348.76951"], 
                  StyleBox[
                   RowBox[{"-", "348.76951`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-348.76951, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    240.277726}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 240.277726]& , 
                   TagBoxNote -> "240.277726"], 
                  StyleBox["240.277726`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[240.277726, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 240.277726}, {
                    6.384615384615385, 407.245041}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 166.967315]& , 
                   TagBoxNote -> "166.967315"], 
                  StyleBox["166.967315`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[166.967315, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 407.245041}, {
                    6.384615384615385, 612.774851}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 205.52981]& , 
                   TagBoxNote -> "205.52981"], 
                  StyleBox["205.52981`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[205.52981, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -43.223418}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -43.223418]& , 
                   TagBoxNote -> "-43.223418"], 
                  StyleBox[
                   RowBox[{"-", "43.223418`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-43.223418, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -43.223418}, {
                    6.384615384615385, -187.172377}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -143.948959]& ,
                    TagBoxNote -> "-143.948959"], 
                  StyleBox[
                   RowBox[{"-", "143.948959`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-143.948959, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -187.172377}, {
                    6.384615384615385, -403.978961}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -216.806584]& ,
                    TagBoxNote -> "-216.806584"], 
                  StyleBox[
                   RowBox[{"-", "216.806584`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-216.806584, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    229.681401}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 229.681401]& , 
                   TagBoxNote -> "229.681401"], 
                  StyleBox["229.681401`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[229.681401, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 229.681401}, {
                    7.384615384615385, 359.90092300000003`}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 130.219522]& , TagBoxNote -> "130.219522"], 
                  StyleBox["130.219522`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[130.219522, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 359.90092300000003`}, {
                    7.384615384615385, 506.193525}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 146.292602]& , 
                   TagBoxNote -> "146.292602"], 
                  StyleBox["146.292602`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[146.292602, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -32.703541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -32.703541]& , 
                   TagBoxNote -> "-32.703541"], 
                  StyleBox[
                   RowBox[{"-", "32.703541`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-32.703541, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -32.703541}, {
                    7.384615384615385, -139.843163}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -107.139622]& ,
                    TagBoxNote -> "-107.139622"], 
                  StyleBox[
                   RowBox[{"-", "107.139622`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-107.139622, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -139.843163}, {
                    7.384615384615385, -297.37217799999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -157.529015]& , TagBoxNote -> "-157.529015"], 
                  StyleBox[
                   RowBox[{"-", "157.529015`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-157.529015, {}], 
                  "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]], 
             GeometricTransformationBox[
              InsetBox[
               BoxData[
                FormBox[
                 StyleBox[
                  GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                  GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                 TraditionalForm]], {0., 0.}, Automatic, 
               Scaled[0.08]], {{{1., -9.753399}}, {{2., -9.757349}}, {{
              3., -9.759043}}, {{5., 208.734018}}, {{6., 208.79589}}, {{7., 
              208.821347}}}]}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}}, {{}, {}}}}, {
        DisplayFunction -> Identity, AspectRatio -> 1.2, 
         Axes -> {False, False}, AxesLabel -> {None, None}, 
         AxesOrigin -> {0.6153846153846154, -732.786057}, BaseStyle -> 
         Directive[FontFamily -> "Helvetica", 18, 
           GrayLevel[0]], CoordinatesToolOptions -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}, Epilog -> {
           InsetBox[
            FormBox[
             StyleBox[
             "\"b1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.5, 0.92}]], {0, 0}]}, 
         Frame -> {True, True, True, True}, FrameLabel -> {{None, 
            FormBox[
             StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
              GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
           None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             1., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox["\"\\n\\n 2050\"", TraditionalForm], {0, 0}}, {5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 0}}, {7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}}}}, 
         FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
         GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, 
         PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
         PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
         Ticks -> {None, Automatic}}], 
       GraphicsBox[{{{
           Opacity[0], 
           
           PointBox[{{0.6153846153846154, -794.6889309999999}, {
            7.384615384615385, -794.6889309999999}}]}, {{}, {{{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 274.815643}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 274.815643]& , TagBoxNote -> "274.815643"], 
                  StyleBox["274.815643`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[274.815643, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 274.815643}, {
                    1.3846153846153846`, 337.621668}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 62.806025]& , TagBoxNote -> "62.806025"], 
                  StyleBox["62.806025`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[62.806025, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{0.6153846153846154, 337.621668}, {
                    1.3846153846153846`, 787.100818}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 449.47915]& , TagBoxNote -> "449.47915"], 
                  StyleBox["449.47915`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[449.47915, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -54.510009}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -54.510009]& , TagBoxNote -> "-54.510009"], 
                  StyleBox[
                   RowBox[{"-", "54.510009`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-54.510009, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -54.510009}, {
                    1.3846153846153846`, -491.01699099999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -436.506982]& , TagBoxNote -> "-436.506982"], 
                  StyleBox[
                   RowBox[{"-", "436.506982`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-436.506982, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -491.01699099999996`}, {
                    1.3846153846153846`, -794.6889309999999}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -303.67194]& , TagBoxNote -> "-303.67194"], 
                  StyleBox[
                   RowBox[{"-", "303.67194`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-303.67194, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 230.190141}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 230.190141]& , TagBoxNote -> "230.190141"], 
                  StyleBox["230.190141`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[230.190141, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 230.190141}, {
                    2.3846153846153846`, 250.30777500000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 20.117634]& , TagBoxNote -> "20.117634"], 
                  StyleBox["20.117634`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[20.117634, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 250.30777500000002`}, {
                    2.3846153846153846`, 558.3927110000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 308.084936]& , TagBoxNote -> "308.084936"], 
                  StyleBox["308.084936`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[308.084936, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -47.532343}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -47.532343]& , TagBoxNote -> "-47.532343"], 
                  StyleBox[
                   RowBox[{"-", "47.532343`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-47.532343, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -47.532343}, {
                    2.3846153846153846`, -373.363738}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -325.831395]& , TagBoxNote -> "-325.831395"], 
                  StyleBox[
                   RowBox[{"-", "325.831395`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-325.831395, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -373.363738}, {
                    2.3846153846153846`, -566.5241510000001}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -193.160413]& , TagBoxNote -> "-193.160413"], 
                  StyleBox[
                   RowBox[{"-", "193.160413`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-193.160413, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 199.593238}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 199.593238]& , TagBoxNote -> "199.593238"], 
                  StyleBox["199.593238`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[199.593238, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 199.593238}, {
                    3.3846153846153846`, 205.87024200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 6.277004]& , TagBoxNote -> "6.277004"], 
                  StyleBox["6.277004`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[6.277004, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 205.87024200000002`}, {
                    3.3846153846153846`, 445.645236}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 239.774994]& , TagBoxNote -> "239.774994"], 
                  StyleBox["239.774994`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[239.774994, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -41.890674}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -41.890674]& , TagBoxNote -> "-41.890674"], 
                  StyleBox[
                   RowBox[{"-", "41.890674`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-41.890674, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -41.890674}, {
                    3.3846153846153846`, -311.713579}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -269.822905]& , TagBoxNote -> "-269.822905"], 
                  StyleBox[
                   RowBox[{"-", "269.822905`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-269.822905, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -311.713579}, {
                    3.3846153846153846`, -454.066444}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -142.352865]& , TagBoxNote -> "-142.352865"], 
                  StyleBox[
                   RowBox[{"-", "142.352865`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-142.352865, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    360.335426}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 360.335426]& , 
                   TagBoxNote -> "360.335426"], 
                  StyleBox["360.335426`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[360.335426, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 360.335426}, {
                    5.384615384615385, 556.846723}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 196.511297]& , 
                   TagBoxNote -> "196.511297"], 
                  StyleBox["196.511297`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[196.511297, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 556.846723}, {
                    5.384615384615385, 878.425371}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 321.578648]& , 
                   TagBoxNote -> "321.578648"], 
                  StyleBox["321.578648`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[321.578648, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -9.09751}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.09751]& , 
                   TagBoxNote -> "-9.09751"], 
                  StyleBox[
                   RowBox[{"-", "9.09751`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-9.09751, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -9.09751}, {
                    5.384615384615385, -322.902164}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -313.804654]& ,
                    TagBoxNote -> "-313.804654"], 
                  StyleBox[
                   RowBox[{"-", "313.804654`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-313.804654, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -322.902164}, {
                    5.384615384615385, -677.367262}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -354.465098]& ,
                    TagBoxNote -> "-354.465098"], 
                  StyleBox[
                   RowBox[{"-", "354.465098`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-354.465098, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    337.79575}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.79575]& , 
                   TagBoxNote -> "337.79575"], 
                  StyleBox["337.79575`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[337.79575, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 337.79575}, {
                    6.384615384615385, 471.722523}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 133.926773]& , 
                   TagBoxNote -> "133.926773"], 
                  StyleBox["133.926773`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[133.926773, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 471.722523}, {
                    6.384615384615385, 662.944687}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 191.222164]& , 
                   TagBoxNote -> "191.222164"], 
                  StyleBox["191.222164`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[191.222164, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -9.809114}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.809114]& , 
                   TagBoxNote -> "-9.809114"], 
                  StyleBox[
                   RowBox[{"-", "9.809114`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-9.809114, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -9.809114}, {
                    6.384615384615385, -240.607673}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -230.798559]& ,
                    TagBoxNote -> "-230.798559"], 
                  StyleBox[
                   RowBox[{"-", "230.798559`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-230.798559, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -240.607673}, {
                    6.384615384615385, -460.335464}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -219.727791]& ,
                    TagBoxNote -> "-219.727791"], 
                  StyleBox[
                   RowBox[{"-", "219.727791`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-219.727791, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    323.234935}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 323.234935]& , 
                   TagBoxNote -> "323.234935"], 
                  StyleBox["323.234935`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[323.234935, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 323.234935}, {
                    7.384615384615385, 427.118758}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 103.883823]& , 
                   TagBoxNote -> "103.883823"], 
                  StyleBox["103.883823`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[103.883823, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 427.118758}, {
                    7.384615384615385, 560.048835}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 132.930077]& , 
                   TagBoxNote -> "132.930077"], 
                  StyleBox["132.930077`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[132.930077, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -9.344184}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.344184]& , 
                   TagBoxNote -> "-9.344184"], 
                  StyleBox[
                   RowBox[{"-", "9.344184`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-9.344184, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -9.344184}, {
                    7.384615384615385, -197.08487200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -187.740688]& , TagBoxNote -> "-187.740688"], 
                  StyleBox[
                   RowBox[{"-", "187.740688`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-187.740688, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -197.08487200000002`}, {
                    7.384615384615385, -356.537234}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -159.452362]& ,
                    TagBoxNote -> "-159.452362"], 
                  StyleBox[
                   RowBox[{"-", "159.452362`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-159.452362, {}], 
                  "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]], 
             GeometricTransformationBox[
              InsetBox[
               BoxData[
                FormBox[
                 StyleBox[
                  GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                  GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                 TraditionalForm]], {0., 0.}, Automatic, 
               Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
              3., -8.421209}}, {{5., 201.058108}}, {{6., 202.609223}}, {{7., 
              203.511601}}}]}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}}, {{}, {}}}}, {
        DisplayFunction -> Identity, AspectRatio -> 1.2, 
         Axes -> {False, False}, AxesLabel -> {None, None}, 
         AxesOrigin -> {0.6153846153846154, -794.6889309999999}, BaseStyle -> 
         Directive[FontFamily -> "Helvetica", 18, 
           GrayLevel[0]], CoordinatesToolOptions -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}, Epilog -> {
           InsetBox[
            FormBox[
             StyleBox[
             "\"b2\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.5, 0.92}]], {0, 0}]}, 
         Frame -> {True, True, True, True}, FrameLabel -> {{None, 
            FormBox[
             StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
              GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
           None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             1., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox["\"\\n\\n 2100\"", TraditionalForm], {0, 0}}, {5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 0}}, {7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}}}}, 
         FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
         GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, 
         PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
         PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
         Ticks -> {None, Automatic}}], 
       GraphicsBox[{{{
           Opacity[0], 
           
           PointBox[{{0.6153846153846154, -1096.704333}, {
            7.384615384615385, -1096.704333}}]}, {{}, {{{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 388.25272}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 388.25272]& , 
                   TagBoxNote -> "388.25272"], 
                  StyleBox["388.25272`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[388.25272, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 388.25272}, {
                    1.3846153846153846`, 716.5086}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 328.25588]& , 
                   TagBoxNote -> "328.25588"], 
                  StyleBox["328.25588`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[328.25588, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 716.5086}, {
                    1.3846153846153846`, 1131.60549}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 415.09689]& , TagBoxNote -> "415.09689"], 
                  StyleBox["415.09689`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[415.09689, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -1.687248}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -1.687248]& , 
                   TagBoxNote -> "-1.687248"], 
                  StyleBox[
                   RowBox[{"-", "1.687248`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-1.687248, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -1.687248}, {
                    1.3846153846153846`, -183.275868}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -181.58862]& , TagBoxNote -> "-181.58862"], 
                  StyleBox[
                   RowBox[{"-", "181.58862`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-181.58862, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -183.275868}, {
                    1.3846153846153846`, -1096.704333}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -913.428465]& , TagBoxNote -> "-913.428465"], 
                  StyleBox[
                   RowBox[{"-", "913.428465`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-913.428465, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 360.672782}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 360.672782]& , TagBoxNote -> "360.672782"], 
                  StyleBox["360.672782`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[360.672782, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 360.672782}, {
                    2.3846153846153846`, 571.315752}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 210.64297]& , TagBoxNote -> "210.64297"], 
                  StyleBox["210.64297`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[210.64297, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 571.315752}, {
                    2.3846153846153846`, 898.431737}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 327.115985]& , TagBoxNote -> "327.115985"], 
                  StyleBox["327.115985`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[327.115985, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -4.785349}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -4.785349]& , 
                   TagBoxNote -> "-4.785349"], 
                  StyleBox[
                   RowBox[{"-", "4.785349`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-4.785349, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -4.785349}, {
                    2.3846153846153846`, -163.933462}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -159.148113]& , TagBoxNote -> "-159.148113"], 
                  StyleBox[
                   RowBox[{"-", "159.148113`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-159.148113, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -163.933462}, {
                    2.3846153846153846`, -878.392152}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -714.45869]& , TagBoxNote -> "-714.45869"], 
                  StyleBox[
                   RowBox[{"-", "714.45869`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-714.45869, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 340.631967}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 340.631967]& , TagBoxNote -> "340.631967"], 
                  StyleBox["340.631967`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[340.631967, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 340.631967}, {
                    3.3846153846153846`, 492.08491699999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 151.45295]& , TagBoxNote -> "151.45295"], 
                  StyleBox["151.45295`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[151.45295, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 492.08491699999996`}, {
                    3.3846153846153846`, 768.8402409999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 276.755324]& , TagBoxNote -> "276.755324"], 
                  StyleBox["276.755324`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[276.755324, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -6.205358}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -6.205358]& , 
                   TagBoxNote -> "-6.205358"], 
                  StyleBox[
                   RowBox[{"-", "6.205358`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-6.205358, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -6.205358}, {
                    3.3846153846153846`, -149.311475}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -143.106117]& , TagBoxNote -> "-143.106117"], 
                  StyleBox[
                   RowBox[{"-", "143.106117`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-143.106117, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -149.311475}, {
                    3.3846153846153846`, -758.211383}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -608.899908]& , TagBoxNote -> "-608.899908"], 
                  StyleBox[
                   RowBox[{"-", "608.899908`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-608.899908, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    424.430174}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 424.430174]& , 
                   TagBoxNote -> "424.430174"], 
                  StyleBox["424.430174`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[424.430174, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 424.430174}, {
                    5.384615384615385, 985.5776720000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 561.147498]& , TagBoxNote -> "561.147498"], 
                  StyleBox["561.147498`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[561.147498, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 985.5776720000001}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 115.396599]& , 
                   TagBoxNote -> "115.396599"], 
                  StyleBox["115.396599`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[115.396599, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 1100.974271}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                   TagBoxNote -> "0."], 
                  StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                  Style[0., {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -66.469291}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -66.469291]& , 
                   TagBoxNote -> "-66.469291"], 
                  StyleBox[
                   RowBox[{"-", "66.469291`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-66.469291, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -66.469291}, {
                    5.384615384615385, -899.498816}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -833.029525]& ,
                    TagBoxNote -> "-833.029525"], 
                  StyleBox[
                   RowBox[{"-", "833.029525`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-833.029525, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    409.148947}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.148947]& , 
                   TagBoxNote -> "409.148947"], 
                  StyleBox["409.148947`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[409.148947, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 409.148947}, {
                    6.384615384615385, 855.950332}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 446.801385]& , 
                   TagBoxNote -> "446.801385"], 
                  StyleBox["446.801385`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[446.801385, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 855.950332}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 39.334762]& , 
                   TagBoxNote -> "39.334762"], 
                  StyleBox["39.334762`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[39.334762, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 895.285094}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 0]& , 
                   TagBoxNote -> "0"], 
                  StyleBox["0", {}, StripOnInput -> False]], Annotation[#, 
                  Style[0, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -62.129752}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -62.129752]& , 
                   TagBoxNote -> "-62.129752"], 
                  StyleBox[
                   RowBox[{"-", "62.129752`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-62.129752, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -62.129752}, {
                    6.384615384615385, -693.097152}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -630.9674]& , 
                   TagBoxNote -> "-630.9674"], 
                  StyleBox[
                   RowBox[{"-", "630.9674`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-630.9674, {}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    398.232356}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 398.232356]& , 
                   TagBoxNote -> "398.232356"], 
                  StyleBox["398.232356`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[398.232356, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 398.232356}, {
                    7.384615384615385, 771.819992}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 373.587636]& , 
                   TagBoxNote -> "373.587636"], 
                  StyleBox["373.587636`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[373.587636, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 771.819992}, {
                    7.384615384615385, 790.2512049999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 18.431213]& , TagBoxNote -> "18.431213"], 
                  StyleBox["18.431213`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[18.431213, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -0.157619}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -0.157619]& , 
                   TagBoxNote -> "-0.157619"], 
                  StyleBox[
                   RowBox[{"-", "0.157619`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-0.157619, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -0.157619}, {
                    7.384615384615385, -57.341910999999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -57.184292]& , TagBoxNote -> "-57.184292"], 
                  StyleBox[
                   RowBox[{"-", "57.184292`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-57.184292, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -57.341910999999996`}, {
                    7.384615384615385, -587.689933}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -530.348022]& ,
                    TagBoxNote -> "-530.348022"], 
                  StyleBox[
                   RowBox[{"-", "530.348022`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-530.348022, {}], 
                  "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {
          Null}, {}, {}, {}}, {{}, {{{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]], 
             GeometricTransformationBox[
              InsetBox[
               BoxData[
                FormBox[
                 StyleBox[
                  GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                  GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                 TraditionalForm]], {0., 0.}, Automatic, 
               Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
              3., -8.13144}}, {{5., 201.475455}}, {{6., 202.187942}}, {{7., 
              202.561273}}}]}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}}, {{}, {}}}}, {
        DisplayFunction -> Identity, AspectRatio -> 1.2, 
         Axes -> {False, False}, AxesLabel -> {None, None}, 
         AxesOrigin -> {0.6153846153846154, -1096.704333}, BaseStyle -> 
         Directive[FontFamily -> "Helvetica", 18, 
           GrayLevel[0]], CoordinatesToolOptions -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}, Epilog -> {
           InsetBox[
            FormBox[
             StyleBox[
             "\"b3\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.5, 0.92}]], {0, 0}]}, 
         Frame -> {True, True, True, True}, FrameLabel -> {{None, 
            FormBox[
             StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
              GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
           None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             1., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox["\"\\n\\n 2150\"", TraditionalForm], {0, 0}}, {5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 0}}, {7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}}}}, 
         FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
         GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, 
         PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
         PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
         Ticks -> {None, Automatic}}]}}, AutoDelete -> False, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],FormBox[
    TemplateBox[{
      StyleBox[
      "\"E<2050\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
       False], 
      StyleBox[
      "\"2050\[LessSlantEqual]E<2100\"", FontFamily -> "Helvetica", FontSize -> 
       20, StripOnInput -> False], 
      StyleBox[
      "\"2100\[LessSlantEqual]E<2200\"", FontFamily -> "Helvetica", FontSize -> 
       20, StripOnInput -> False], 
      StyleBox[
      "\"CDR<2050\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
       False], 
      StyleBox[
      "\"2050\[LessSlantEqual]CDR<2100\"", FontFamily -> "Helvetica", 
       FontSize -> 20, StripOnInput -> False], 
      StyleBox[
      "\"2100\[LessSlantEqual]CDR<2200\"", FontFamily -> "Helvetica", 
       FontSize -> 20, StripOnInput -> False], 
      StyleBox[
      "\"NE<2200\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
       False]}, "SwatchLegend", DisplayFunction -> (FormBox[
       StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
           "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[{"SwatchLegend", "[", 
        RowBox[{
          RowBox[{"{", 
            RowBox[{
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.95, 0.95, 0.95], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.6333333333333333, 0.6333333333333333, 
                    0.6333333333333333], FrameTicks -> None, PlotRangePadding -> 
                  None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.95`", ",", "0.95`", ",", "0.95`"}], "]"}], 
                  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.95, 0.95, 0.95]; 
                   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.95, 0.95, 0.95], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.9, 0.9], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.6000000000000001, 0.6000000000000001, 
                    0.6000000000000001], FrameTicks -> None, PlotRangePadding -> 
                  None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.9`", ",", "0.9`"}], "]"}], 
                  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.9, 0.9, 0.9]; 
                   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.9, 0.9, 0.9], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.85, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.5666666666666667, 0.5666666666666667, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                  None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.85`", ",", "0.85`"}], "]"}], 
                  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.85, 0.85, 0.85]; 
                   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.85, 0.85, 0.85], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.75, 0.75, 0.75], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> RGBColor[0.5, 0.5, 0.5], FrameTicks -> None, 
                  PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.75`", ",", "0.75`", ",", "0.75`"}], "]"}], 
                  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.75, 0.75, 0.75]; 
                   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.75, 0.75, 0.75], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.65, 0.65, 0.65], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.43333333333333335`, 0.43333333333333335`, 
                    0.43333333333333335`], FrameTicks -> None, 
                  PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.65`", ",", "0.65`", ",", "0.65`"}], "]"}], 
                  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.65, 0.65, 0.65]; 
                   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.65, 0.65, 0.65], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.55, 0.55, 0.55], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.3666666666666667, 0.3666666666666667, 
                    0.3666666666666667], FrameTicks -> None, PlotRangePadding -> 
                  None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.55`", ",", "0.55`", ",", "0.55`"}], "]"}], 
                  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.55, 0.55, 0.55]; 
                   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.55, 0.55, 0.55], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                  PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"GrayLevel", "[", "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 = GrayLevel[0]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                Automatic, Method -> "Preemptive"], 
               GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}],
           ",", 
          RowBox[{"{", 
            RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7}],
             "}"}], ",", 
          RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
     True], 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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8241257693143916`*^9, {3.82412607254643*^9, 3.8241260907429113`*^9}, 
   3.824126242958849*^9, 3.824283529022718*^9, 3.824543180031495*^9, 
   3.8246202450915165`*^9, 3.82521564059763*^9, 3.825215741294772*^9},
 CellLabel->
  "Out[714]=",ExpressionUUID->"bc872e77-36e9-46b2-8fc3-af6aa77cfd10"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC13dist2050", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"C13dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "8"}], ",", 
        RowBox[{"2", ";;", "7"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.1"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<low\>\"", ",", "\"\<med \\nDICE 13\>\"", ",", "\"\<high\>\"", 
          ",", "\"\<\\n\\n 2050\>\"", ",", "\"\<low\>\"", ",", 
          "\"\<med \\nFaIR-Geoff\>\"", ",", "\"\<high\>\""}], "}"}], ",", 
        "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"BarSpacing", "\[Rule]", "0.3"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\< Gross/Negative/Net Emissions (Gt C)\>\"", ",", "Black"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "750"}], ",", 
            RowBox[{"-", "500"}], ",", 
            RowBox[{"-", "250"}], ",", "0", ",", "250", ",", "500", ",", 
            "750"}], "}"}], ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "\"\<low\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "\"\<med \\n DICE2013\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "\"\<high\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "\"\<\\n\\n 2050\>\""}], "}"}]}], "}"}], ",", 
          "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "\"\<low\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", " ", "\"\<med \\n FaIR-Geoff\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", "\"\<high\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<b1\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823890073090515*^9, 3.8238901364920716`*^9}, 
   3.8238905612572093`*^9, {3.824014631138024*^9, 3.8240146331043367`*^9}, {
   3.824047886346449*^9, 3.824047895397727*^9}, {3.824047943165348*^9, 
   3.824047970627758*^9}, {3.8240483489606447`*^9, 3.824048354178032*^9}, {
   3.824048411421276*^9, 3.824048568439223*^9}, {3.824048683448474*^9, 
   3.824048756243036*^9}, {3.824048904685441*^9, 3.824048923700327*^9}, {
   3.824048975432994*^9, 3.8240489777867336`*^9}, {3.8240490250710583`*^9, 
   3.8240490498034554`*^9}, {3.824049156505105*^9, 3.824049160200428*^9}, {
   3.8240492798860254`*^9, 3.8240493068717413`*^9}, {3.824049544474527*^9, 
   3.8240495456620073`*^9}, {3.8240496237252274`*^9, 
   3.8240497432837543`*^9}, {3.8240534882155123`*^9, 3.824053547768684*^9}, {
   3.8240536370508366`*^9, 3.82405364664505*^9}, {3.8240536818864856`*^9, 
   3.824053773350162*^9}, {3.82405382643391*^9, 3.824053842660067*^9}, {
   3.8240538973383293`*^9, 3.824053898787627*^9}, {3.8240540065565*^9, 
   3.8240541667210507`*^9}, {3.82405445522338*^9, 3.824054710823125*^9}, {
   3.8240547547787895`*^9, 3.8240547730436907`*^9}, 3.824054803396308*^9, {
   3.8240548335561185`*^9, 3.824055103385*^9}, {3.824055300198719*^9, 
   3.824055402644619*^9}, {3.824056364576741*^9, 3.824056451058465*^9}, {
   3.8240564816710095`*^9, 3.8240565673913155`*^9}, {3.824056647385868*^9, 
   3.824056796001286*^9}, {3.8240568335860376`*^9, 3.824056834834886*^9}, {
   3.8240568831265717`*^9, 3.82405690289912*^9}, {3.8240569380520515`*^9, 
   3.8240569392708035`*^9}, 3.8240577629263887`*^9, {3.824059361590516*^9, 
   3.8240594361071267`*^9}, {3.8240599331928234`*^9, 
   3.8240599992257614`*^9}, {3.824060144717406*^9, 3.8240601726287484`*^9}, {
   3.824060236132613*^9, 3.8240603486091995`*^9}, {3.824060382258993*^9, 
   3.8240606060305133`*^9}, {3.824060647127112*^9, 3.824060681806402*^9}, 
   3.824061923770802*^9, {3.82406335567825*^9, 3.824063389463982*^9}, {
   3.8240634218052716`*^9, 3.8240634877495193`*^9}, {3.8240635417768564`*^9, 
   3.824063588213892*^9}, {3.8240636254159484`*^9, 3.824063868334691*^9}, {
   3.824063935813938*^9, 3.8240639605716033`*^9}, {3.8240640305230494`*^9, 
   3.8240641366517296`*^9}, {3.824091829860238*^9, 3.8240918355709925`*^9}, {
   3.8241255457258525`*^9, 3.8241255537974553`*^9}, {3.8242834898777103`*^9, 
   3.824283508321797*^9}, {3.825210435713232*^9, 3.8252104359632325`*^9}, {
   3.825210487552305*^9, 3.825210487792306*^9}, 3.8252157515167866`*^9, {
   3.825215855102933*^9, 3.825215855532933*^9}, {3.8252159344050446`*^9, 
   3.825215937016048*^9}},
 CellLabel->
  "In[723]:=",ExpressionUUID->"c1d9a51b-48fd-47e6-aeba-e0b0d257b9ff"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FNC13dist2050", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"C13dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "8"}], ",", "8"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "250"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.1", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"fl", ",", "0.08"}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "500"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "250"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<-15\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"198", ",", "\"\<198\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"250", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"500", ",", "\"\<\>\""}], "}"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Net Emissions (Gt C)\>\"", ",", "18", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824057949228264*^9, 3.824057983124361*^9}, {
   3.8240582201554565`*^9, 3.82405828684138*^9}, {3.824058319988413*^9, 
   3.824058533291483*^9}, {3.8240585657665195`*^9, 3.8240586133661747`*^9}, {
   3.8240587306476727`*^9, 3.8240587571148233`*^9}, 3.824058864733663*^9, {
   3.8240589376302867`*^9, 3.8240590543182926`*^9}, {3.8240591427134*^9, 
   3.8240591573006215`*^9}, {3.8240597376787095`*^9, 3.824059912632352*^9}, {
   3.824060033237131*^9, 3.8240600629809504`*^9}, {3.824060707878212*^9, 
   3.8240607321672373`*^9}, {3.824060770902687*^9, 3.824060796453489*^9}, {
   3.824060829273352*^9, 3.8240609768534727`*^9}, {3.8240610164623747`*^9, 
   3.824061037151898*^9}, {3.824061276765772*^9, 3.824061377204176*^9}, {
   3.8240615783387156`*^9, 3.8240616084289684`*^9}, {3.8240617081210756`*^9, 
   3.8240617792607574`*^9}, {3.8240618316973295`*^9, 3.824061838522883*^9}, {
   3.8240619136230316`*^9, 3.8240619153211684`*^9}, {3.824061950200694*^9, 
   3.824061981458679*^9}, 3.824062041375255*^9, {3.8240620793410683`*^9, 
   3.824062096672375*^9}, {3.824062146041576*^9, 3.824062159082079*^9}, {
   3.8240622452952576`*^9, 3.8240622712280807`*^9}, {3.8240624217925386`*^9, 
   3.8240624358848343`*^9}, {3.824062549557721*^9, 3.824062688174779*^9}, {
   3.8240627299037237`*^9, 3.824062769916463*^9}, {3.824062923229401*^9, 
   3.8240629250404153`*^9}, {3.824063196384083*^9, 3.8240632117420673`*^9}, {
   3.824063252918992*^9, 3.8240632801715956`*^9}, {3.82406414329595*^9, 
   3.824064157376355*^9}, {3.8240918589160624`*^9, 3.8240918646806755`*^9}, {
   3.8252104418142405`*^9, 3.825210442034241*^9}, {3.825210508387335*^9, 
   3.825210508627335*^9}, 3.825215758126796*^9},
 CellLabel->
  "In[724]:=",ExpressionUUID->"73649a3f-371c-4fb1-a8f4-d5758cb9f263"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC13d2050", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"FC13dist2050", ",", "FNC13dist2050"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.82406217731055*^9, 3.824062184470115*^9}, {
   3.8240641643721743`*^9, 3.824064172447519*^9}, 3.824091300964791*^9, {
   3.824091347554255*^9, 3.824091347800666*^9}, {3.824091484954954*^9, 
   3.8240915083500295`*^9}, {3.8252104478152494`*^9, 
   3.8252104480352497`*^9}, {3.825210517119347*^9, 3.825210520029351*^9}},
 CellLabel->
  "In[725]:=",ExpressionUUID->"3731e80a-4381-474b-bc01-62c4438a1f4e"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC13dist2100", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"C13dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"10", ";;", "16"}], ",", 
        RowBox[{"2", ";;", "7"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.1"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<low\>\"", ",", "\"\<med \\nDICE 13\>\"", ",", "\"\<high\>\"", 
          ",", "\"\<\\n\\n 2100\>\"", ",", "\"\<low\>\"", ",", 
          "\"\<med \\nFaIR-Geoff\>\"", ",", "\"\<high\>\""}], "}"}], ",", 
        "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"BarSpacing", "\[Rule]", "0.3"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\< Gross/Negative/Net Emissions (Gt C)\>\"", ",", "Black"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "750"}], ",", 
            RowBox[{"-", "500"}], ",", 
            RowBox[{"-", "250"}], ",", "0", ",", "250", ",", "500", ",", 
            "750"}], "}"}], ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "\"\<low\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "\"\<med \\n DICE2013\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "\"\<high\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "\"\<\\n\\n 2050\>\""}], "}"}]}], "}"}], ",", 
          "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "\"\<low\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", " ", "\"\<med \\n FaIR-Geoff\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", "\"\<high\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<b2\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823890073090515*^9, 3.8238901364920716`*^9}, 
   3.8238905612572093`*^9, {3.824014631138024*^9, 3.8240146331043367`*^9}, {
   3.824047886346449*^9, 3.824047895397727*^9}, {3.824047943165348*^9, 
   3.824047970627758*^9}, {3.8240483489606447`*^9, 3.824048354178032*^9}, {
   3.824048411421276*^9, 3.824048568439223*^9}, {3.824048683448474*^9, 
   3.824048756243036*^9}, {3.824048904685441*^9, 3.824048923700327*^9}, {
   3.824048975432994*^9, 3.8240489777867336`*^9}, {3.8240490250710583`*^9, 
   3.8240490498034554`*^9}, {3.824049156505105*^9, 3.824049160200428*^9}, {
   3.8240492798860254`*^9, 3.8240493068717413`*^9}, {3.824049544474527*^9, 
   3.8240495456620073`*^9}, {3.8240496237252274`*^9, 
   3.8240497432837543`*^9}, {3.8240534882155123`*^9, 3.824053547768684*^9}, {
   3.8240536370508366`*^9, 3.82405364664505*^9}, {3.8240536818864856`*^9, 
   3.824053773350162*^9}, {3.82405382643391*^9, 3.824053842660067*^9}, {
   3.8240538973383293`*^9, 3.824053898787627*^9}, {3.8240540065565*^9, 
   3.8240541667210507`*^9}, {3.82405445522338*^9, 3.824054710823125*^9}, {
   3.8240547547787895`*^9, 3.8240547730436907`*^9}, 3.824054803396308*^9, {
   3.8240548335561185`*^9, 3.824055103385*^9}, {3.824055300198719*^9, 
   3.824055402644619*^9}, {3.824056364576741*^9, 3.824056451058465*^9}, {
   3.8240564816710095`*^9, 3.8240565673913155`*^9}, {3.824056647385868*^9, 
   3.824056796001286*^9}, {3.8240568335860376`*^9, 3.824056834834886*^9}, {
   3.8240568831265717`*^9, 3.82405690289912*^9}, {3.8240569380520515`*^9, 
   3.8240569392708035`*^9}, 3.8240577629263887`*^9, {3.824059361590516*^9, 
   3.8240594361071267`*^9}, {3.8240599331928234`*^9, 
   3.8240599992257614`*^9}, {3.824060144717406*^9, 3.8240601726287484`*^9}, {
   3.824060236132613*^9, 3.8240603486091995`*^9}, {3.824060382258993*^9, 
   3.8240606060305133`*^9}, {3.824060647127112*^9, 3.824060681806402*^9}, 
   3.824061923770802*^9, {3.82406335567825*^9, 3.824063389463982*^9}, {
   3.8240634218052716`*^9, 3.8240634877495193`*^9}, {3.8240635417768564`*^9, 
   3.824063588213892*^9}, {3.8240636254159484`*^9, 3.824063868334691*^9}, {
   3.824063935813938*^9, 3.8240639605716033`*^9}, {3.8240640305230494`*^9, 
   3.8240641366517296`*^9}, {3.824091318365783*^9, 3.8240913200418043`*^9}, {
   3.824091396972622*^9, 3.8240914139491463`*^9}, {3.824091785070686*^9, 
   3.824091791252164*^9}, {3.8241255281034746`*^9, 3.8241255337658978`*^9}, {
   3.825210450715253*^9, 3.8252104509352536`*^9}, {3.82521052635036*^9, 
   3.82521052657036*^9}, 3.8252157679388103`*^9, {3.825215950979068*^9, 
   3.825215955349074*^9}},
 CellLabel->
  "In[726]:=",ExpressionUUID->"6edd0a78-be29-455a-8cea-2684d6e91fab"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FNC13dist2100", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"C13dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"10", ";;", "16"}], ",", "8"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "250"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.1", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"fl", ",", "0.08"}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "500"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "250"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<-15\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"198", ",", "\"\<198\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"250", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"500", ",", "\"\<\>\""}], "}"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Net Emissions (Gt C)\>\"", ",", "18", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824057949228264*^9, 3.824057983124361*^9}, {
   3.8240582201554565`*^9, 3.82405828684138*^9}, {3.824058319988413*^9, 
   3.824058533291483*^9}, {3.8240585657665195`*^9, 3.8240586133661747`*^9}, {
   3.8240587306476727`*^9, 3.8240587571148233`*^9}, 3.824058864733663*^9, {
   3.8240589376302867`*^9, 3.8240590543182926`*^9}, {3.8240591427134*^9, 
   3.8240591573006215`*^9}, {3.8240597376787095`*^9, 3.824059912632352*^9}, {
   3.824060033237131*^9, 3.8240600629809504`*^9}, {3.824060707878212*^9, 
   3.8240607321672373`*^9}, {3.824060770902687*^9, 3.824060796453489*^9}, {
   3.824060829273352*^9, 3.8240609768534727`*^9}, {3.8240610164623747`*^9, 
   3.824061037151898*^9}, {3.824061276765772*^9, 3.824061377204176*^9}, {
   3.8240615783387156`*^9, 3.8240616084289684`*^9}, {3.8240617081210756`*^9, 
   3.8240617792607574`*^9}, {3.8240618316973295`*^9, 3.824061838522883*^9}, {
   3.8240619136230316`*^9, 3.8240619153211684`*^9}, {3.824061950200694*^9, 
   3.824061981458679*^9}, 3.824062041375255*^9, {3.8240620793410683`*^9, 
   3.824062096672375*^9}, {3.824062146041576*^9, 3.824062159082079*^9}, {
   3.8240622452952576`*^9, 3.8240622712280807`*^9}, {3.8240624217925386`*^9, 
   3.8240624358848343`*^9}, {3.824062549557721*^9, 3.824062688174779*^9}, {
   3.8240627299037237`*^9, 3.824062769916463*^9}, {3.824062923229401*^9, 
   3.8240629250404153`*^9}, {3.824063196384083*^9, 3.8240632117420673`*^9}, {
   3.824063252918992*^9, 3.8240632801715956`*^9}, {3.82406414329595*^9, 
   3.824064157376355*^9}, {3.824091325596507*^9, 3.8240913269733562`*^9}, {
   3.824091427627793*^9, 3.824091430593933*^9}, {3.8240917985140257`*^9, 
   3.8240918040787287`*^9}, {3.82521045529626*^9, 3.8252104554962597`*^9}, {
   3.8252105350333724`*^9, 3.825210535303373*^9}, 3.8252157754898205`*^9},
 CellLabel->
  "In[727]:=",ExpressionUUID->"fad508f8-51d5-48b9-9e02-19fd8c12f70b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC13d2100", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"FC13dist2100", ",", "FNC13dist2100"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.82406217731055*^9, 3.824062184470115*^9}, {
   3.8240641643721743`*^9, 3.824064172447519*^9}, {3.824091300964791*^9, 
   3.824091340923424*^9}, {3.824091451355304*^9, 3.824091468581418*^9}, 
   3.824091526341276*^9, {3.8240918095799203`*^9, 3.8240918144879055`*^9}, {
   3.825210464797273*^9, 3.8252104650172734`*^9}, {3.8252105389933777`*^9, 
   3.825210541614382*^9}},
 CellLabel->
  "In[728]:=",ExpressionUUID->"009775fb-1570-4690-a4cd-cebd289ae3ed"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC13dist2150", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"C13dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"18", ";;", "24"}], ",", 
        RowBox[{"2", ";;", "7"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.1"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<low\>\"", ",", "\"\<med \\nDICE 13\>\"", ",", "\"\<high\>\"", 
          ",", "\"\<\\n\\n 2150\>\"", ",", "\"\<low\>\"", ",", 
          "\"\<med \\nFaIR-Geoff\>\"", ",", "\"\<high\>\""}], "}"}], ",", 
        "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"BarSpacing", "\[Rule]", "0.3"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\< Gross/Negative/Net Emissions (Gt C)\>\"", ",", "Black"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "750"}], ",", 
            RowBox[{"-", "500"}], ",", 
            RowBox[{"-", "250"}], ",", "0", ",", "250", ",", "500", ",", 
            "750"}], "}"}], ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "\"\<low\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "\"\<med \\n DICE2013\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "\"\<high\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "\"\<\\n\\n 2050\>\""}], "}"}]}], "}"}], ",", 
          "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "\"\<low\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", " ", "\"\<med \\n FaIR-Geoff\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", "\"\<high\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<b3\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823890073090515*^9, 3.8238901364920716`*^9}, 
   3.8238905612572093`*^9, {3.824014631138024*^9, 3.8240146331043367`*^9}, {
   3.824047886346449*^9, 3.824047895397727*^9}, {3.824047943165348*^9, 
   3.824047970627758*^9}, {3.8240483489606447`*^9, 3.824048354178032*^9}, {
   3.824048411421276*^9, 3.824048568439223*^9}, {3.824048683448474*^9, 
   3.824048756243036*^9}, {3.824048904685441*^9, 3.824048923700327*^9}, {
   3.824048975432994*^9, 3.8240489777867336`*^9}, {3.8240490250710583`*^9, 
   3.8240490498034554`*^9}, {3.824049156505105*^9, 3.824049160200428*^9}, {
   3.8240492798860254`*^9, 3.8240493068717413`*^9}, {3.824049544474527*^9, 
   3.8240495456620073`*^9}, {3.8240496237252274`*^9, 
   3.8240497432837543`*^9}, {3.8240534882155123`*^9, 3.824053547768684*^9}, {
   3.8240536370508366`*^9, 3.82405364664505*^9}, {3.8240536818864856`*^9, 
   3.824053773350162*^9}, {3.82405382643391*^9, 3.824053842660067*^9}, {
   3.8240538973383293`*^9, 3.824053898787627*^9}, {3.8240540065565*^9, 
   3.8240541667210507`*^9}, {3.82405445522338*^9, 3.824054710823125*^9}, {
   3.8240547547787895`*^9, 3.8240547730436907`*^9}, 3.824054803396308*^9, {
   3.8240548335561185`*^9, 3.824055103385*^9}, {3.824055300198719*^9, 
   3.824055402644619*^9}, {3.824056364576741*^9, 3.824056451058465*^9}, {
   3.8240564816710095`*^9, 3.8240565673913155`*^9}, {3.824056647385868*^9, 
   3.824056796001286*^9}, {3.8240568335860376`*^9, 3.824056834834886*^9}, {
   3.8240568831265717`*^9, 3.82405690289912*^9}, {3.8240569380520515`*^9, 
   3.8240569392708035`*^9}, 3.8240577629263887`*^9, {3.824059361590516*^9, 
   3.8240594361071267`*^9}, {3.8240599331928234`*^9, 
   3.8240599992257614`*^9}, {3.824060144717406*^9, 3.8240601726287484`*^9}, {
   3.824060236132613*^9, 3.8240603486091995`*^9}, {3.824060382258993*^9, 
   3.8240606060305133`*^9}, {3.824060647127112*^9, 3.824060681806402*^9}, 
   3.824061923770802*^9, {3.82406335567825*^9, 3.824063389463982*^9}, {
   3.8240634218052716`*^9, 3.8240634877495193`*^9}, {3.8240635417768564`*^9, 
   3.824063588213892*^9}, {3.8240636254159484`*^9, 3.824063868334691*^9}, {
   3.824063935813938*^9, 3.8240639605716033`*^9}, {3.8240640305230494`*^9, 
   3.8240641366517296`*^9}, {3.824091318365783*^9, 3.8240913200418043`*^9}, {
   3.824091396972622*^9, 3.8240914139491463`*^9}, {3.824091558899126*^9, 
   3.8240915603797464`*^9}, {3.8240915935865116`*^9, 3.824091605366926*^9}, {
   3.82409173258856*^9, 3.8240917407429004`*^9}, 3.8241254272365522`*^9, {
   3.824125460609003*^9, 3.8241255142747645`*^9}, {3.8252104691182795`*^9, 
   3.825210469268279*^9}, {3.825210545484387*^9, 3.825210545764387*^9}, 
   3.825212159513663*^9, 3.8252123214698906`*^9, 3.825212445724067*^9, {
   3.8252158407209125`*^9, 3.825215841030913*^9}, {3.8252159697440944`*^9, 
   3.825215970084095*^9}},
 CellLabel->
  "In[729]:=",ExpressionUUID->"99b51340-96da-4a74-8997-53fc4c7243fb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FNC13dist2150", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"C13dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"18", ";;", "24"}], ",", "8"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1200"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "250"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.1", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"fl", ",", "0.08"}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "500"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "250"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<-15\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"198", ",", "\"\<198\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"250", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"500", ",", "\"\<\>\""}], "}"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Net Emissions (Gt C)\>\"", ",", "18", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824057949228264*^9, 3.824057983124361*^9}, {
   3.8240582201554565`*^9, 3.82405828684138*^9}, {3.824058319988413*^9, 
   3.824058533291483*^9}, {3.8240585657665195`*^9, 3.8240586133661747`*^9}, {
   3.8240587306476727`*^9, 3.8240587571148233`*^9}, 3.824058864733663*^9, {
   3.8240589376302867`*^9, 3.8240590543182926`*^9}, {3.8240591427134*^9, 
   3.8240591573006215`*^9}, {3.8240597376787095`*^9, 3.824059912632352*^9}, {
   3.824060033237131*^9, 3.8240600629809504`*^9}, {3.824060707878212*^9, 
   3.8240607321672373`*^9}, {3.824060770902687*^9, 3.824060796453489*^9}, {
   3.824060829273352*^9, 3.8240609768534727`*^9}, {3.8240610164623747`*^9, 
   3.824061037151898*^9}, {3.824061276765772*^9, 3.824061377204176*^9}, {
   3.8240615783387156`*^9, 3.8240616084289684`*^9}, {3.8240617081210756`*^9, 
   3.8240617792607574`*^9}, {3.8240618316973295`*^9, 3.824061838522883*^9}, {
   3.8240619136230316`*^9, 3.8240619153211684`*^9}, {3.824061950200694*^9, 
   3.824061981458679*^9}, 3.824062041375255*^9, {3.8240620793410683`*^9, 
   3.824062096672375*^9}, {3.824062146041576*^9, 3.824062159082079*^9}, {
   3.8240622452952576`*^9, 3.8240622712280807`*^9}, {3.8240624217925386`*^9, 
   3.8240624358848343`*^9}, {3.824062549557721*^9, 3.824062688174779*^9}, {
   3.8240627299037237`*^9, 3.824062769916463*^9}, {3.824062923229401*^9, 
   3.8240629250404153`*^9}, {3.824063196384083*^9, 3.8240632117420673`*^9}, {
   3.824063252918992*^9, 3.8240632801715956`*^9}, {3.82406414329595*^9, 
   3.824064157376355*^9}, {3.824091325596507*^9, 3.8240913269733562`*^9}, {
   3.824091427627793*^9, 3.824091430593933*^9}, {3.8240915653572216`*^9, 
   3.8240915665379148`*^9}, {3.8240916146810155`*^9, 
   3.8240916180978355`*^9}, {3.8240917441483693`*^9, 3.824091750238287*^9}, {
   3.8252104734992857`*^9, 3.8252104736992855`*^9}, {3.825210552386397*^9, 
   3.8252105527363973`*^9}, {3.825210673767568*^9, 3.8252106841685824`*^9}, 
   3.825212151801652*^9, 3.825212330170903*^9, 3.825216338929632*^9},
 CellLabel->
  "In[740]:=",ExpressionUUID->"ae2608eb-cb62-465c-947a-f63c42fcd320"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC13d2150", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"FC13dist2150", ",", "FNC13dist2150"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.825216355846657*^9, 3.82521636526967*^9}},
 CellLabel->
  "In[741]:=",ExpressionUUID->"f1856fb2-9554-4584-8b8f-8914d85c945e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FigureBD13", "=", 
  RowBox[{"Legended", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{"{", 
      RowBox[{"{", 
       RowBox[{"FC13d2050", ",", "FC13d2100", ",", "FC13d2150"}], "}"}], 
      "}"}], "]"}], ",", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"SwatchLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{"Gray", ",", "0.1"}], "]"}], ",", "Black"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<E<2050\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<2050\[LessSlantEqual]E<2100\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<2100\[LessSlantEqual]E<2200\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<CDR<2050\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<2050\[LessSlantEqual]CDR<2100\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<2100\[LessSlantEqual]CDR<2200\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<NE<2200\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", "Below"}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.82412570592852*^9, 3.824125720354286*^9}, {
  3.8241257636601653`*^9, 3.824125785135518*^9}, {3.8241258455107646`*^9, 
  3.824125917071863*^9}, {3.8241259755453615`*^9, 3.8241260896123257`*^9}, {
  3.8241261470045605`*^9, 3.8241262339885645`*^9}, {3.8252105706974225`*^9, 
  3.8252105750594287`*^9}, {3.82521580350486*^9, 3.8252158110258703`*^9}},
 CellLabel->
  "In[742]:=",ExpressionUUID->"2689b573-71ee-4612-b0b2-03225e89c38d"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
       GraphicsBox[{{{
           Opacity[0], 
           
           PointBox[{{0.6153846153846154, -633.507599}, {
            7.384615384615385, -633.507599}}]}, {{}, {{{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 210.63981}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 210.63981]& , 
                   TagBoxNote -> "210.63981"], 
                  StyleBox["210.63981`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[210.63981, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 210.63981}, {
                    1.3846153846153846`, 478.685377}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 268.045567]& , TagBoxNote -> "268.045567"], 
                  StyleBox["268.045567`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[268.045567, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 478.685377}, {
                    1.3846153846153846`, 887.8757}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.190323]& , 
                   TagBoxNote -> "409.190323"], 
                  StyleBox["409.190323`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[409.190323, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -103.614775}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -103.614775]& , TagBoxNote -> "-103.614775"], 
                  StyleBox[
                   RowBox[{"-", "103.614775`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-103.614775, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -103.614775}, {
                    1.3846153846153846`, -311.842291}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -208.227516]& , TagBoxNote -> "-208.227516"], 
                  StyleBox[
                   RowBox[{"-", "208.227516`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-208.227516, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -311.842291}, {
                    1.3846153846153846`, -633.507599}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -321.665308]& , TagBoxNote -> "-321.665308"], 
                  StyleBox[
                   RowBox[{"-", "321.665308`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-321.665308, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 178.794638}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 178.794638]& , TagBoxNote -> "178.794638"], 
                  StyleBox["178.794638`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[178.794638, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 178.794638}, {
                    2.3846153846153846`, 373.675723}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 194.881085]& , TagBoxNote -> "194.881085"], 
                  StyleBox["194.881085`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[194.881085, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 373.675723}, {
                    2.3846153846153846`, 660.697228}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 287.021505]& , TagBoxNote -> "287.021505"], 
                  StyleBox["287.021505`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[287.021505, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -70.90852}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -70.90852]& , 
                   TagBoxNote -> "-70.90852"], 
                  StyleBox[
                   RowBox[{"-", "70.90852`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-70.90852, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -70.90852}, {
                    2.3846153846153846`, -206.948823}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -136.040303]& , TagBoxNote -> "-136.040303"], 
                  StyleBox[
                   RowBox[{"-", "136.040303`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-136.040303, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -206.948823}, {
                    2.3846153846153846`, -406.383106}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -199.434283]& , TagBoxNote -> "-199.434283"], 
                  StyleBox[
                   RowBox[{"-", "199.434283`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-199.434283, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 162.335572}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 162.335572]& , TagBoxNote -> "162.335572"], 
                  StyleBox["162.335572`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[162.335572, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 162.335572}, {
                    3.3846153846153846`, 322.125403}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 159.789831]& , TagBoxNote -> "159.789831"], 
                  StyleBox["159.789831`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[159.789831, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 322.125403}, {
                    3.3846153846153846`, 554.460073}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 232.33467]& , TagBoxNote -> "232.33467"], 
                  StyleBox["232.33467`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[232.33467, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -54.136455}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -54.136455]& , TagBoxNote -> "-54.136455"], 
                  StyleBox[
                   RowBox[{"-", "54.136455`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-54.136455, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{2.6153846153846154`, -54.136455}, {
                    3.3846153846153846`, -155.442586}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -101.306131]& , TagBoxNote -> "-101.306131"], 
                  StyleBox[
                   RowBox[{"-", "101.306131`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-101.306131, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -155.442586}, {
                    3.3846153846153846`, -300.166426}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -144.72384]& , TagBoxNote -> "-144.72384"], 
                  StyleBox[
                   RowBox[{"-", "144.72384`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-144.72384, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    261.198012}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 261.198012]& , 
                   TagBoxNote -> "261.198012"], 
                  StyleBox["261.198012`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[261.198012, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 261.198012}, {
                    5.384615384615385, 504.788541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 243.590529]& , 
                   TagBoxNote -> "243.590529"], 
                  StyleBox["243.590529`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[243.590529, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 504.788541}, {
                    5.384615384615385, 842.185639}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.397098]& , 
                   TagBoxNote -> "337.397098"], 
                  StyleBox["337.397098`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[337.397098, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -64.157411}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -64.157411]& , 
                   TagBoxNote -> "-64.157411"], 
                  StyleBox[
                   RowBox[{"-", "64.157411`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-64.157411, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -64.157411}, {
                    5.384615384615385, -284.68211199999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -220.524701]& , TagBoxNote -> "-220.524701"], 
                  StyleBox[
                   RowBox[{"-", "220.524701`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-220.524701, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -284.68211199999996`}, {
                    5.384615384615385, -633.451622}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -348.76951]& , 
                   TagBoxNote -> "-348.76951"], 
                  StyleBox[
                   RowBox[{"-", "348.76951`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-348.76951, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    240.277726}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 240.277726]& , 
                   TagBoxNote -> "240.277726"], 
                  StyleBox["240.277726`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[240.277726, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 240.277726}, {
                    6.384615384615385, 407.245041}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 166.967315]& , 
                   TagBoxNote -> "166.967315"], 
                  StyleBox["166.967315`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[166.967315, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 407.245041}, {
                    6.384615384615385, 612.774851}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 205.52981]& , 
                   TagBoxNote -> "205.52981"], 
                  StyleBox["205.52981`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[205.52981, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -43.223418}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -43.223418]& , 
                   TagBoxNote -> "-43.223418"], 
                  StyleBox[
                   RowBox[{"-", "43.223418`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-43.223418, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -43.223418}, {
                    6.384615384615385, -187.172377}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -143.948959]& ,
                    TagBoxNote -> "-143.948959"], 
                  StyleBox[
                   RowBox[{"-", "143.948959`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-143.948959, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -187.172377}, {
                    6.384615384615385, -403.978961}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -216.806584]& ,
                    TagBoxNote -> "-216.806584"], 
                  StyleBox[
                   RowBox[{"-", "216.806584`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-216.806584, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    229.681401}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 229.681401]& , 
                   TagBoxNote -> "229.681401"], 
                  StyleBox["229.681401`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[229.681401, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 229.681401}, {
                    7.384615384615385, 359.90092300000003`}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 130.219522]& , TagBoxNote -> "130.219522"], 
                  StyleBox["130.219522`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[130.219522, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 359.90092300000003`}, {
                    7.384615384615385, 506.193525}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 146.292602]& , 
                   TagBoxNote -> "146.292602"], 
                  StyleBox["146.292602`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[146.292602, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -32.703541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -32.703541]& , 
                   TagBoxNote -> "-32.703541"], 
                  StyleBox[
                   RowBox[{"-", "32.703541`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-32.703541, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -32.703541}, {
                    7.384615384615385, -139.843163}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -107.139622]& ,
                    TagBoxNote -> "-107.139622"], 
                  StyleBox[
                   RowBox[{"-", "107.139622`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-107.139622, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -139.843163}, {
                    7.384615384615385, -297.37217799999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -157.529015]& , TagBoxNote -> "-157.529015"], 
                  StyleBox[
                   RowBox[{"-", "157.529015`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-157.529015, {}], 
                  "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]], 
             GeometricTransformationBox[
              InsetBox[
               BoxData[
                FormBox[
                 StyleBox[
                  GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                  GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                 TraditionalForm]], {0., 0.}, Automatic, 
               Scaled[0.08]], {{{1., 254.368101}}, {{2., 254.314122}}, {{3., 
              254.293647}}, {{5., 208.734018}}, {{6., 208.79589}}, {{7., 
              208.821347}}}]}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}}, {{}, {}}}}, {
        DisplayFunction -> Identity, AspectRatio -> 1.2, 
         Axes -> {False, False}, AxesLabel -> {None, None}, 
         AxesOrigin -> {0.6153846153846154, -633.507599}, BaseStyle -> 
         Directive[FontFamily -> "Helvetica", 18, 
           GrayLevel[0]], CoordinatesToolOptions -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}, Epilog -> {
           InsetBox[
            FormBox[
             StyleBox[
             "\"b1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.5, 0.92}]], {0, 0}]}, 
         Frame -> {True, True, True, True}, FrameLabel -> {{None, 
            FormBox[
             StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
              GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
           None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             1., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox["\"med \\nDICE 13\"", TraditionalForm], {0, 0}}, {3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox["\"\\n\\n 2050\"", TraditionalForm], {0, 0}}, {5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 0}}, {7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}}}}, 
         FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
         GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, 
         PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
         PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
         Ticks -> {None, Automatic}}], 
       GraphicsBox[{{{
           Opacity[0], 
           
           PointBox[{{0.6153846153846154, -677.367262}, {
            7.384615384615385, -677.367262}}]}, {{}, {{{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 325.674968}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 325.674968]& , TagBoxNote -> "325.674968"], 
                  StyleBox["325.674968`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[325.674968, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 325.674968}, {
                    1.3846153846153846`, 448.542909}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 122.867941]& , TagBoxNote -> "122.867941"], 
                  StyleBox["122.867941`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[122.867941, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 448.542909}, {
                    1.3846153846153846`, 927.0318589999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 478.48895]& , TagBoxNote -> "478.48895"], 
                  StyleBox["478.48895`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[478.48895, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -24.433803}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -24.433803]& , TagBoxNote -> "-24.433803"], 
                  StyleBox[
                   RowBox[{"-", "24.433803`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-24.433803, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -24.433803}, {
                    1.3846153846153846`, -359.77948200000003`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -335.345679]& , TagBoxNote -> "-335.345679"], 
                  StyleBox[
                   RowBox[{"-", "335.345679`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-335.345679, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -359.77948200000003`}, {
                    1.3846153846153846`, -653.346497}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -293.567015]& , TagBoxNote -> "-293.567015"], 
                  StyleBox[
                   RowBox[{"-", "293.567015`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-293.567015, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 296.994075}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 296.994075]& , TagBoxNote -> "296.994075"], 
                  StyleBox["296.994075`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[296.994075, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 296.994075}, {
                    2.3846153846153846`, 365.56581900000003`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 68.571744]& , TagBoxNote -> "68.571744"], 
                  StyleBox["68.571744`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[68.571744, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 365.56581900000003`}, {
                    2.3846153846153846`, 716.494442}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 350.928623]& , TagBoxNote -> "350.928623"], 
                  StyleBox["350.928623`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[350.928623, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -21.881494}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -21.881494]& , TagBoxNote -> "-21.881494"], 
                  StyleBox[
                   RowBox[{"-", "21.881494`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-21.881494, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -21.881494}, {
                    2.3846153846153846`, -261.856784}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -239.97529]& , TagBoxNote -> "-239.97529"], 
                  StyleBox[
                   RowBox[{"-", "239.97529`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-239.97529, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -261.856784}, {
                    2.3846153846153846`, -446.390392}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -184.533608]& , TagBoxNote -> "-184.533608"], 
                  StyleBox[
                   RowBox[{"-", "184.533608`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-184.533608, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 278.588285}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 278.588285]& , TagBoxNote -> "278.588285"], 
                  StyleBox["278.588285`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[278.588285, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 278.588285}, {
                    3.3846153846153846`, 323.620518}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 45.032233]& , TagBoxNote -> "45.032233"], 
                  StyleBox["45.032233`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[45.032233, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 323.620518}, {
                    3.3846153846153846`, 614.675862}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 291.055344]& , TagBoxNote -> "291.055344"], 
                  StyleBox["291.055344`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[291.055344, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -19.365335}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -19.365335]& , TagBoxNote -> "-19.365335"], 
                  StyleBox[
                   RowBox[{"-", "19.365335`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-19.365335, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -19.365335}, {
                    3.3846153846153846`, -211.52313900000001`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -192.157804]& , TagBoxNote -> "-192.157804"], 
                  StyleBox[
                   RowBox[{"-", "192.157804`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-192.157804, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{
                    2.6153846153846154`, -211.52313900000001`}, {
                    3.3846153846153846`, -346.57549800000004`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -135.052359]& , TagBoxNote -> "-135.052359"], 
                  StyleBox[
                   RowBox[{"-", "135.052359`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-135.052359, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    360.335426}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 360.335426]& , 
                   TagBoxNote -> "360.335426"], 
                  StyleBox["360.335426`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[360.335426, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 360.335426}, {
                    5.384615384615385, 556.846723}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 196.511297]& , 
                   TagBoxNote -> "196.511297"], 
                  StyleBox["196.511297`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[196.511297, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 556.846723}, {
                    5.384615384615385, 878.425371}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 321.578648]& , 
                   TagBoxNote -> "321.578648"], 
                  StyleBox["321.578648`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[321.578648, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -9.09751}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.09751]& , 
                   TagBoxNote -> "-9.09751"], 
                  StyleBox[
                   RowBox[{"-", "9.09751`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-9.09751, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -9.09751}, {
                    5.384615384615385, -322.902164}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -313.804654]& ,
                    TagBoxNote -> "-313.804654"], 
                  StyleBox[
                   RowBox[{"-", "313.804654`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-313.804654, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -322.902164}, {
                    5.384615384615385, -677.367262}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -354.465098]& ,
                    TagBoxNote -> "-354.465098"], 
                  StyleBox[
                   RowBox[{"-", "354.465098`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-354.465098, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    337.79575}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.79575]& , 
                   TagBoxNote -> "337.79575"], 
                  StyleBox["337.79575`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[337.79575, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 337.79575}, {
                    6.384615384615385, 471.722523}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 133.926773]& , 
                   TagBoxNote -> "133.926773"], 
                  StyleBox["133.926773`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[133.926773, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 471.722523}, {
                    6.384615384615385, 662.944687}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 191.222164]& , 
                   TagBoxNote -> "191.222164"], 
                  StyleBox["191.222164`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[191.222164, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -9.809114}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.809114]& , 
                   TagBoxNote -> "-9.809114"], 
                  StyleBox[
                   RowBox[{"-", "9.809114`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-9.809114, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -9.809114}, {
                    6.384615384615385, -240.607673}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -230.798559]& ,
                    TagBoxNote -> "-230.798559"], 
                  StyleBox[
                   RowBox[{"-", "230.798559`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-230.798559, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -240.607673}, {
                    6.384615384615385, -460.335464}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -219.727791]& ,
                    TagBoxNote -> "-219.727791"], 
                  StyleBox[
                   RowBox[{"-", "219.727791`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-219.727791, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    323.234935}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 323.234935]& , 
                   TagBoxNote -> "323.234935"], 
                  StyleBox["323.234935`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[323.234935, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 323.234935}, {
                    7.384615384615385, 427.118758}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 103.883823]& , 
                   TagBoxNote -> "103.883823"], 
                  StyleBox["103.883823`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[103.883823, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 427.118758}, {
                    7.384615384615385, 560.048835}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 132.930077]& , 
                   TagBoxNote -> "132.930077"], 
                  StyleBox["132.930077`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[132.930077, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -9.344184}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.344184]& , 
                   TagBoxNote -> "-9.344184"], 
                  StyleBox[
                   RowBox[{"-", "9.344184`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-9.344184, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -9.344184}, {
                    7.384615384615385, -197.08487200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -187.740688]& , TagBoxNote -> "-187.740688"], 
                  StyleBox[
                   RowBox[{"-", "187.740688`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-187.740688, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -197.08487200000002`}, {
                    7.384615384615385, -356.537234}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -159.452362]& ,
                    TagBoxNote -> "-159.452362"], 
                  StyleBox[
                   RowBox[{"-", "159.452362`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-159.452362, {}], 
                  "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]], 
             GeometricTransformationBox[
              InsetBox[
               BoxData[
                FormBox[
                 StyleBox[
                  GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                  GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                 TraditionalForm]], {0., 0.}, Automatic, 
               Scaled[0.08]], {{{1., 273.685362}}, {{2., 270.10405}}, {{3., 
              268.100364}}, {{5., 201.058108}}, {{6., 202.609223}}, {{7., 
              203.511601}}}]}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}}, {{}, {}}}}, {
        DisplayFunction -> Identity, AspectRatio -> 1.2, 
         Axes -> {False, False}, AxesLabel -> {None, None}, 
         AxesOrigin -> {0.6153846153846154, -677.367262}, BaseStyle -> 
         Directive[FontFamily -> "Helvetica", 18, 
           GrayLevel[0]], CoordinatesToolOptions -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}, Epilog -> {
           InsetBox[
            FormBox[
             StyleBox[
             "\"b2\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.5, 0.92}]], {0, 0}]}, 
         Frame -> {True, True, True, True}, FrameLabel -> {{None, 
            FormBox[
             StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
              GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
           None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             1., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox["\"med \\nDICE 13\"", TraditionalForm], {0, 0}}, {3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox["\"\\n\\n 2100\"", TraditionalForm], {0, 0}}, {5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 0}}, {7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}}}}, 
         FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
         GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, 
         PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
         PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
         Ticks -> {None, Automatic}}], 
       GraphicsBox[{{{
           Opacity[0], 
           
           PointBox[{{0.6153846153846154, -899.498816}, {
            7.384615384615385, -899.498816}}]}, {{}, {{{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 424.208054}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 424.208054]& , TagBoxNote -> "424.208054"], 
                  StyleBox["424.208054`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[424.208054, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 424.208054}, {
                    1.3846153846153846`, 926.046433}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 501.838379]& , TagBoxNote -> "501.838379"], 
                  StyleBox["501.838379`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[501.838379, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 926.046433}, {
                    1.3846153846153846`, 1234.2045699999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 308.158137]& , TagBoxNote -> "308.158137"], 
                  StyleBox["308.158137`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[308.158137, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 1234.2045699999999`}, {
                    1.3846153846153846`, 1234.2045699999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 0.]& , TagBoxNote -> "0."], 
                  StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                  Style[0., {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -92.001081}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -92.001081]& , TagBoxNote -> "-92.001081"], 
                  StyleBox[
                   RowBox[{"-", "92.001081`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-92.001081, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -92.001081}, {
                    1.3846153846153846`, -833.239229}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -741.238148]& , TagBoxNote -> "-741.238148"], 
                  StyleBox[
                   RowBox[{"-", "741.238148`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-741.238148, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 408.018645}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 408.018645]& , TagBoxNote -> "408.018645"], 
                  StyleBox["408.018645`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[408.018645, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 408.018645}, {
                    2.3846153846153846`, 786.6154429999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 378.596798]& , TagBoxNote -> "378.596798"], 
                  StyleBox["378.596798`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[378.596798, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 786.6154429999999}, {
                    2.3846153846153846`, 1019.5467649999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 232.931322]& , TagBoxNote -> "232.931322"], 
                  StyleBox["232.931322`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[232.931322, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -0.008674}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -0.008674]& , 
                   TagBoxNote -> "-0.008674"], 
                  StyleBox[
                   RowBox[{"-", "0.008674`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-0.008674, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -0.008674}, {
                    2.3846153846153846`, -84.369973}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -84.361299]& , TagBoxNote -> "-84.361299"], 
                  StyleBox[
                   RowBox[{"-", "84.361299`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-84.361299, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -84.369973}, {
                    2.3846153846153846`, -647.238471}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -562.868498]& , TagBoxNote -> "-562.868498"], 
                  StyleBox[
                   RowBox[{"-", "562.868498`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-562.868498, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 396.478525}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 396.478525]& , TagBoxNote -> "396.478525"], 
                  StyleBox["396.478525`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[396.478525, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 396.478525}, {
                    3.3846153846153846`, 708.4047479999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 311.926223]& , TagBoxNote -> "311.926223"], 
                  StyleBox["311.926223`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[311.926223, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 708.4047479999999}, {
                    3.3846153846153846`, 905.7021149999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 197.297367]& , TagBoxNote -> "197.297367"], 
                  StyleBox["197.297367`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[197.297367, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -0.305369}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -0.305369]& , 
                   TagBoxNote -> "-0.305369"], 
                  StyleBox[
                   RowBox[{"-", "0.305369`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-0.305369, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -0.305369}, {
                    3.3846153846153846`, -77.216373}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -76.911004]& , TagBoxNote -> "-76.911004"], 
                  StyleBox[
                   RowBox[{"-", "76.911004`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-76.911004, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -77.216373}, {
                    3.3846153846153846`, -547.728852}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -470.512479]& , TagBoxNote -> "-470.512479"], 
                  StyleBox[
                   RowBox[{"-", "470.512479`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-470.512479, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    424.430174}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 424.430174]& , 
                   TagBoxNote -> "424.430174"], 
                  StyleBox["424.430174`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[424.430174, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 424.430174}, {
                    5.384615384615385, 985.5776720000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 561.147498]& , TagBoxNote -> "561.147498"], 
                  StyleBox["561.147498`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[561.147498, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 985.5776720000001}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 115.396599]& , 
                   TagBoxNote -> "115.396599"], 
                  StyleBox["115.396599`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[115.396599, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 1100.974271}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                   TagBoxNote -> "0."], 
                  StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                  Style[0., {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -66.469291}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -66.469291]& , 
                   TagBoxNote -> "-66.469291"], 
                  StyleBox[
                   RowBox[{"-", "66.469291`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-66.469291, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -66.469291}, {
                    5.384615384615385, -899.498816}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -833.029525]& ,
                    TagBoxNote -> "-833.029525"], 
                  StyleBox[
                   RowBox[{"-", "833.029525`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-833.029525, {}], 
                  "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    409.148947}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.148947]& , 
                   TagBoxNote -> "409.148947"], 
                  StyleBox["409.148947`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[409.148947, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 409.148947}, {
                    6.384615384615385, 855.950332}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 446.801385]& , 
                   TagBoxNote -> "446.801385"], 
                  StyleBox["446.801385`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[446.801385, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 855.950332}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 39.334762]& , 
                   TagBoxNote -> "39.334762"], 
                  StyleBox["39.334762`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[39.334762, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 895.285094}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 0]& , 
                   TagBoxNote -> "0"], 
                  StyleBox["0", {}, StripOnInput -> False]], Annotation[#, 
                  Style[0, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -62.129752}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -62.129752]& , 
                   TagBoxNote -> "-62.129752"], 
                  StyleBox[
                   RowBox[{"-", "62.129752`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-62.129752, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -62.129752}, {
                    6.384615384615385, -693.097152}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -630.9674]& , 
                   TagBoxNote -> "-630.9674"], 
                  StyleBox[
                   RowBox[{"-", "630.9674`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-630.9674, {}], "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.95, 0.95, 0.95]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    398.232356}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 398.232356]& , 
                   TagBoxNote -> "398.232356"], 
                  StyleBox["398.232356`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[398.232356, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.9, 0.9, 0.9]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 398.232356}, {
                    7.384615384615385, 771.819992}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 373.587636]& , 
                   TagBoxNote -> "373.587636"], 
                  StyleBox["373.587636`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[373.587636, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.85, 0.85, 0.85]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 771.819992}, {
                    7.384615384615385, 790.2512049999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, 18.431213]& , TagBoxNote -> "18.431213"], 
                  StyleBox["18.431213`", {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[18.431213, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.75, 0.75, 0.75]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -0.157619}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -0.157619]& , 
                   TagBoxNote -> "-0.157619"], 
                  StyleBox[
                   RowBox[{"-", "0.157619`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-0.157619, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.65, 0.65, 0.65]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -0.157619}, {
                    7.384615384615385, -57.341910999999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                   StatusArea[#, -57.184292]& , TagBoxNote -> "-57.184292"], 
                  StyleBox[
                   RowBox[{"-", "57.184292`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-57.184292, {}], "Tooltip"]& ]}, {
                Directive[
                 EdgeForm[
                  Directive[
                   Thickness[Small], 
                   Opacity[0.40599999999999997`]]], 
                 RGBColor[0.55, 0.55, 0.55]], 
                TagBox[
                 TooltipBox[
                  TagBox[
                   TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -57.341910999999996`}, {
                    7.384615384615385, -587.689933}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -530.348022]& ,
                    TagBoxNote -> "-530.348022"], 
                  StyleBox[
                   RowBox[{"-", "530.348022`"}], {}, StripOnInput -> False]], 
                 Annotation[#, 
                  Style[-530.348022, {}], 
                  "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {
          Null, Null}, {}, {}, {}}, {{}, {{{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]], 
             GeometricTransformationBox[
              InsetBox[
               BoxData[
                FormBox[
                 StyleBox[
                  GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                  GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                 TraditionalForm]], {0., 0.}, Automatic, 
               Scaled[0.08]], {{{1., 273.685362}}, {{2., 270.10405}}, {{3., 
              270.10405}}, {{5., 201.475455}}, {{6., 202.187942}}, {{7., 
              202.561273}}}]}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}, {{
             Directive[
              AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
              GrayLevel[0], 
              PointSize[0.1]]}, {}}}, {{}, {}}}}, {
        DisplayFunction -> Identity, AspectRatio -> 1.2, 
         Axes -> {False, False}, AxesLabel -> {None, None}, 
         AxesOrigin -> {0.6153846153846154, -899.498816}, BaseStyle -> 
         Directive[FontFamily -> "Helvetica", 18, 
           GrayLevel[0]], CoordinatesToolOptions -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}, Epilog -> {
           InsetBox[
            FormBox[
             StyleBox[
             "\"b3\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.5, 0.92}]], {0, 0}]}, 
         Frame -> {True, True, True, True}, FrameLabel -> {{None, 
            FormBox[
             StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
              GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
           None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             1., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox["\"med \\nDICE 13\"", TraditionalForm], {0, 0}}, {3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox["\"\\n\\n 2150\"", TraditionalForm], {0, 0}}, {5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 0}}, {7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             1.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             2.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             3.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             4.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             5.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             6.5, 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.008, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}, {
             7., 
              FormBox[
               TemplateBox[{0}, "Spacer1"], TraditionalForm], {0.004, 0}}}}}, 
         FrameTicksStyle -> GrayLevel[0], GridLines -> {None, None}, 
         GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, 
         PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
         PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
         Ticks -> {None, Automatic}}]}}, AutoDelete -> False, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],FormBox[
    TemplateBox[{
      StyleBox[
      "\"E<2050\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
       False], 
      StyleBox[
      "\"2050\[LessSlantEqual]E<2100\"", FontFamily -> "Helvetica", FontSize -> 
       20, StripOnInput -> False], 
      StyleBox[
      "\"2100\[LessSlantEqual]E<2200\"", FontFamily -> "Helvetica", FontSize -> 
       20, StripOnInput -> False], 
      StyleBox[
      "\"CDR<2050\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
       False], 
      StyleBox[
      "\"2050\[LessSlantEqual]CDR<2100\"", FontFamily -> "Helvetica", 
       FontSize -> 20, StripOnInput -> False], 
      StyleBox[
      "\"2100\[LessSlantEqual]CDR<2200\"", FontFamily -> "Helvetica", 
       FontSize -> 20, StripOnInput -> False], 
      StyleBox[
      "\"NE<2200\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
       False]}, "SwatchLegend", DisplayFunction -> (FormBox[
       StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                  GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                   AspectRatio -> Full, ImageSize -> {10, 10}, 
                   PlotRangePadding -> None, ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
           "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[{"SwatchLegend", "[", 
        RowBox[{
          RowBox[{"{", 
            RowBox[{
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.95, 0.95, 0.95], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.6333333333333333, 0.6333333333333333, 
                    0.6333333333333333], FrameTicks -> None, PlotRangePadding -> 
                  None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.95`", ",", "0.95`", ",", "0.95`"}], "]"}], 
                  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.95, 0.95, 0.95]; 
                   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.95, 0.95, 0.95], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.9, 0.9], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.6000000000000001, 0.6000000000000001, 
                    0.6000000000000001], FrameTicks -> None, PlotRangePadding -> 
                  None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.9`", ",", "0.9`"}], "]"}], 
                  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.9, 0.9, 0.9]; 
                   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.9, 0.9, 0.9], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.85, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.5666666666666667, 0.5666666666666667, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                  None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.85`", ",", "0.85`"}], "]"}], 
                  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.85, 0.85, 0.85]; 
                   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.85, 0.85, 0.85], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.75, 0.75, 0.75], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> RGBColor[0.5, 0.5, 0.5], FrameTicks -> None, 
                  PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.75`", ",", "0.75`", ",", "0.75`"}], "]"}], 
                  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.75, 0.75, 0.75]; 
                   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.75, 0.75, 0.75], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.65, 0.65, 0.65], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.43333333333333335`, 0.43333333333333335`, 
                    0.43333333333333335`], FrameTicks -> None, 
                  PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.65`", ",", "0.65`", ",", "0.65`"}], "]"}], 
                  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.65, 0.65, 0.65]; 
                   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.65, 0.65, 0.65], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.55, 0.55, 0.55], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> 
                  RGBColor[
                   0.3666666666666667, 0.3666666666666667, 
                    0.3666666666666667], FrameTicks -> None, PlotRangePadding -> 
                  None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0.55`", ",", "0.55`", ",", "0.55`"}], "]"}], 
                  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.55, 0.55, 0.55]; 
                   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.55, 0.55, 0.55], Editable -> False, Selectable -> 
               False], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                  PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"GrayLevel", "[", "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 = GrayLevel[0]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                Automatic, Method -> "Preemptive"], 
               GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}],
           ",", 
          RowBox[{"{", 
            RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7}],
             "}"}], ",", 
          RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
     True], 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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.82521060395747*^9, 3.82521088039786*^9, 
  3.8252119643693876`*^9, 3.825212166724673*^9, 3.8252123377319136`*^9, 
  3.8252125251511793`*^9, 3.8252159842361145`*^9, 3.825216378341688*^9},
 CellLabel->
  "Out[742]=",ExpressionUUID->"736789f3-efb6-4150-917d-3895b7ef9f84"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC07dist2050", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"C07dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "8"}], ",", 
        RowBox[{"2", ";;", "7"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1300"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.1"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<low\>\"", ",", "\"\<med \\nDICE 07\>\"", ",", "\"\<high\>\"", 
          ",", "\"\<\\n\\n 2050\>\"", ",", "\"\<low\>\"", ",", 
          "\"\<med \\nFaIR-Geoff\>\"", ",", "\"\<high\>\""}], "}"}], ",", 
        "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"BarSpacing", "\[Rule]", "0.3"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\< Gross/Negative/Net Emissions (Gt C)\>\"", ",", "Black"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "750"}], ",", 
            RowBox[{"-", "500"}], ",", 
            RowBox[{"-", "250"}], ",", "0", ",", "250", ",", "500", ",", 
            "750"}], "}"}], ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "\"\<low\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "\"\<med \\n DICE2007\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "\"\<high\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "\"\<\\n\\n 2050\>\""}], "}"}]}], "}"}], ",", 
          "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "\"\<low\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", " ", "\"\<med \\n FaIR-Geoff\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", "\"\<high\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<b1\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823890073090515*^9, 3.8238901364920716`*^9}, 
   3.8238905612572093`*^9, {3.824014631138024*^9, 3.8240146331043367`*^9}, {
   3.824047886346449*^9, 3.824047895397727*^9}, {3.824047943165348*^9, 
   3.824047970627758*^9}, {3.8240483489606447`*^9, 3.824048354178032*^9}, {
   3.824048411421276*^9, 3.824048568439223*^9}, {3.824048683448474*^9, 
   3.824048756243036*^9}, {3.824048904685441*^9, 3.824048923700327*^9}, {
   3.824048975432994*^9, 3.8240489777867336`*^9}, {3.8240490250710583`*^9, 
   3.8240490498034554`*^9}, {3.824049156505105*^9, 3.824049160200428*^9}, {
   3.8240492798860254`*^9, 3.8240493068717413`*^9}, {3.824049544474527*^9, 
   3.8240495456620073`*^9}, {3.8240496237252274`*^9, 
   3.8240497432837543`*^9}, {3.8240534882155123`*^9, 3.824053547768684*^9}, {
   3.8240536370508366`*^9, 3.82405364664505*^9}, {3.8240536818864856`*^9, 
   3.824053773350162*^9}, {3.82405382643391*^9, 3.824053842660067*^9}, {
   3.8240538973383293`*^9, 3.824053898787627*^9}, {3.8240540065565*^9, 
   3.8240541667210507`*^9}, {3.82405445522338*^9, 3.824054710823125*^9}, {
   3.8240547547787895`*^9, 3.8240547730436907`*^9}, 3.824054803396308*^9, {
   3.8240548335561185`*^9, 3.824055103385*^9}, {3.824055300198719*^9, 
   3.824055402644619*^9}, {3.824056364576741*^9, 3.824056451058465*^9}, {
   3.8240564816710095`*^9, 3.8240565673913155`*^9}, {3.824056647385868*^9, 
   3.824056796001286*^9}, {3.8240568335860376`*^9, 3.824056834834886*^9}, {
   3.8240568831265717`*^9, 3.82405690289912*^9}, {3.8240569380520515`*^9, 
   3.8240569392708035`*^9}, 3.8240577629263887`*^9, {3.824059361590516*^9, 
   3.8240594361071267`*^9}, {3.8240599331928234`*^9, 
   3.8240599992257614`*^9}, {3.824060144717406*^9, 3.8240601726287484`*^9}, {
   3.824060236132613*^9, 3.8240603486091995`*^9}, {3.824060382258993*^9, 
   3.8240606060305133`*^9}, {3.824060647127112*^9, 3.824060681806402*^9}, 
   3.824061923770802*^9, {3.82406335567825*^9, 3.824063389463982*^9}, {
   3.8240634218052716`*^9, 3.8240634877495193`*^9}, {3.8240635417768564`*^9, 
   3.824063588213892*^9}, {3.8240636254159484`*^9, 3.824063868334691*^9}, {
   3.824063935813938*^9, 3.8240639605716033`*^9}, {3.8240640305230494`*^9, 
   3.8240641366517296`*^9}, {3.824091829860238*^9, 3.8240918355709925`*^9}, {
   3.8241255457258525`*^9, 3.8241255537974553`*^9}, {3.8242834898777103`*^9, 
   3.824283508321797*^9}, {3.825210435713232*^9, 3.8252104359632325`*^9}, {
   3.825210487552305*^9, 3.825210487792306*^9}, 3.8252157515167866`*^9, {
   3.825215855102933*^9, 3.825215855532933*^9}, {3.8252159344050446`*^9, 
   3.825215937016048*^9}, {3.8252161081873045`*^9, 3.8252161274733324`*^9}, {
   3.825216556516942*^9, 3.8252165569769425`*^9}},
 CellLabel->
  "In[756]:=",ExpressionUUID->"1765031b-0f15-4203-8bd1-d8a5945242af"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FNC07dist2050", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"C07dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;", "8"}], ",", "8"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1300"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "250"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.1", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"fl", ",", "0.08"}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "500"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "250"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<-15\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"198", ",", "\"\<198\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"250", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"500", ",", "\"\<\>\""}], "}"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Net Emissions (Gt C)\>\"", ",", "18", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824057949228264*^9, 3.824057983124361*^9}, {
   3.8240582201554565`*^9, 3.82405828684138*^9}, {3.824058319988413*^9, 
   3.824058533291483*^9}, {3.8240585657665195`*^9, 3.8240586133661747`*^9}, {
   3.8240587306476727`*^9, 3.8240587571148233`*^9}, 3.824058864733663*^9, {
   3.8240589376302867`*^9, 3.8240590543182926`*^9}, {3.8240591427134*^9, 
   3.8240591573006215`*^9}, {3.8240597376787095`*^9, 3.824059912632352*^9}, {
   3.824060033237131*^9, 3.8240600629809504`*^9}, {3.824060707878212*^9, 
   3.8240607321672373`*^9}, {3.824060770902687*^9, 3.824060796453489*^9}, {
   3.824060829273352*^9, 3.8240609768534727`*^9}, {3.8240610164623747`*^9, 
   3.824061037151898*^9}, {3.824061276765772*^9, 3.824061377204176*^9}, {
   3.8240615783387156`*^9, 3.8240616084289684`*^9}, {3.8240617081210756`*^9, 
   3.8240617792607574`*^9}, {3.8240618316973295`*^9, 3.824061838522883*^9}, {
   3.8240619136230316`*^9, 3.8240619153211684`*^9}, {3.824061950200694*^9, 
   3.824061981458679*^9}, 3.824062041375255*^9, {3.8240620793410683`*^9, 
   3.824062096672375*^9}, {3.824062146041576*^9, 3.824062159082079*^9}, {
   3.8240622452952576`*^9, 3.8240622712280807`*^9}, {3.8240624217925386`*^9, 
   3.8240624358848343`*^9}, {3.824062549557721*^9, 3.824062688174779*^9}, {
   3.8240627299037237`*^9, 3.824062769916463*^9}, {3.824062923229401*^9, 
   3.8240629250404153`*^9}, {3.824063196384083*^9, 3.8240632117420673`*^9}, {
   3.824063252918992*^9, 3.8240632801715956`*^9}, {3.82406414329595*^9, 
   3.824064157376355*^9}, {3.8240918589160624`*^9, 3.8240918646806755`*^9}, {
   3.8252104418142405`*^9, 3.825210442034241*^9}, {3.825210508387335*^9, 
   3.825210508627335*^9}, 3.825215758126796*^9, {3.8252161341463413`*^9, 
   3.825216140809351*^9}, {3.8252165600969467`*^9, 3.8252165602469473`*^9}},
 CellLabel->
  "In[755]:=",ExpressionUUID->"224c91dd-23cb-44a1-bc25-4906454c2e8f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC07d2050", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"FC07dist2050", ",", "FNC07dist2050"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.82406217731055*^9, 3.824062184470115*^9}, {
   3.8240641643721743`*^9, 3.824064172447519*^9}, 3.824091300964791*^9, {
   3.824091347554255*^9, 3.824091347800666*^9}, {3.824091484954954*^9, 
   3.8240915083500295`*^9}, {3.8252104478152494`*^9, 
   3.8252104480352497`*^9}, {3.825210517119347*^9, 3.825210520029351*^9}, {
   3.8252161480313616`*^9, 3.8252161566943736`*^9}},
 CellLabel->
  "In[759]:=",ExpressionUUID->"c3d9fd63-dc71-4d9c-b198-9399fee9217c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC07dist2100", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"C07dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"10", ";;", "16"}], ",", 
        RowBox[{"2", ";;", "7"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1300"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.1"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<low\>\"", ",", "\"\<med \\nDICE 07\>\"", ",", "\"\<high\>\"", 
          ",", "\"\<\\n\\n 2100\>\"", ",", "\"\<low\>\"", ",", 
          "\"\<med \\nFaIR-Geoff\>\"", ",", "\"\<high\>\""}], "}"}], ",", 
        "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"BarSpacing", "\[Rule]", "0.3"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\< Gross/Negative/Net Emissions (Gt C)\>\"", ",", "Black"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "750"}], ",", 
            RowBox[{"-", "500"}], ",", 
            RowBox[{"-", "250"}], ",", "0", ",", "250", ",", "500", ",", 
            "750"}], "}"}], ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "\"\<low\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "\"\<med \\n DICE2007\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "\"\<high\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "\"\<\\n\\n 2050\>\""}], "}"}]}], "}"}], ",", 
          "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "\"\<low\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", " ", "\"\<med \\n FaIR-Geoff\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", "\"\<high\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<b2\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823890073090515*^9, 3.8238901364920716`*^9}, 
   3.8238905612572093`*^9, {3.824014631138024*^9, 3.8240146331043367`*^9}, {
   3.824047886346449*^9, 3.824047895397727*^9}, {3.824047943165348*^9, 
   3.824047970627758*^9}, {3.8240483489606447`*^9, 3.824048354178032*^9}, {
   3.824048411421276*^9, 3.824048568439223*^9}, {3.824048683448474*^9, 
   3.824048756243036*^9}, {3.824048904685441*^9, 3.824048923700327*^9}, {
   3.824048975432994*^9, 3.8240489777867336`*^9}, {3.8240490250710583`*^9, 
   3.8240490498034554`*^9}, {3.824049156505105*^9, 3.824049160200428*^9}, {
   3.8240492798860254`*^9, 3.8240493068717413`*^9}, {3.824049544474527*^9, 
   3.8240495456620073`*^9}, {3.8240496237252274`*^9, 
   3.8240497432837543`*^9}, {3.8240534882155123`*^9, 3.824053547768684*^9}, {
   3.8240536370508366`*^9, 3.82405364664505*^9}, {3.8240536818864856`*^9, 
   3.824053773350162*^9}, {3.82405382643391*^9, 3.824053842660067*^9}, {
   3.8240538973383293`*^9, 3.824053898787627*^9}, {3.8240540065565*^9, 
   3.8240541667210507`*^9}, {3.82405445522338*^9, 3.824054710823125*^9}, {
   3.8240547547787895`*^9, 3.8240547730436907`*^9}, 3.824054803396308*^9, {
   3.8240548335561185`*^9, 3.824055103385*^9}, {3.824055300198719*^9, 
   3.824055402644619*^9}, {3.824056364576741*^9, 3.824056451058465*^9}, {
   3.8240564816710095`*^9, 3.8240565673913155`*^9}, {3.824056647385868*^9, 
   3.824056796001286*^9}, {3.8240568335860376`*^9, 3.824056834834886*^9}, {
   3.8240568831265717`*^9, 3.82405690289912*^9}, {3.8240569380520515`*^9, 
   3.8240569392708035`*^9}, 3.8240577629263887`*^9, {3.824059361590516*^9, 
   3.8240594361071267`*^9}, {3.8240599331928234`*^9, 
   3.8240599992257614`*^9}, {3.824060144717406*^9, 3.8240601726287484`*^9}, {
   3.824060236132613*^9, 3.8240603486091995`*^9}, {3.824060382258993*^9, 
   3.8240606060305133`*^9}, {3.824060647127112*^9, 3.824060681806402*^9}, 
   3.824061923770802*^9, {3.82406335567825*^9, 3.824063389463982*^9}, {
   3.8240634218052716`*^9, 3.8240634877495193`*^9}, {3.8240635417768564`*^9, 
   3.824063588213892*^9}, {3.8240636254159484`*^9, 3.824063868334691*^9}, {
   3.824063935813938*^9, 3.8240639605716033`*^9}, {3.8240640305230494`*^9, 
   3.8240641366517296`*^9}, {3.824091318365783*^9, 3.8240913200418043`*^9}, {
   3.824091396972622*^9, 3.8240914139491463`*^9}, {3.824091785070686*^9, 
   3.824091791252164*^9}, {3.8241255281034746`*^9, 3.8241255337658978`*^9}, {
   3.825210450715253*^9, 3.8252104509352536`*^9}, {3.82521052635036*^9, 
   3.82521052657036*^9}, 3.8252157679388103`*^9, {3.825215950979068*^9, 
   3.825215955349074*^9}, {3.825216163777384*^9, 3.825216183455412*^9}, {
   3.825216542500922*^9, 3.8252165428109226`*^9}},
 CellLabel->
  "In[753]:=",ExpressionUUID->"ef06d3bd-bf14-42d9-ae31-2813a698de01"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FNC07dist2100", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"C07dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"10", ";;", "16"}], ",", "8"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1300"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "250"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.1", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"fl", ",", "0.08"}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "500"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "250"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<-15\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"198", ",", "\"\<198\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"250", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"500", ",", "\"\<\>\""}], "}"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Net Emissions (Gt C)\>\"", ",", "18", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824057949228264*^9, 3.824057983124361*^9}, {
   3.8240582201554565`*^9, 3.82405828684138*^9}, {3.824058319988413*^9, 
   3.824058533291483*^9}, {3.8240585657665195`*^9, 3.8240586133661747`*^9}, {
   3.8240587306476727`*^9, 3.8240587571148233`*^9}, 3.824058864733663*^9, {
   3.8240589376302867`*^9, 3.8240590543182926`*^9}, {3.8240591427134*^9, 
   3.8240591573006215`*^9}, {3.8240597376787095`*^9, 3.824059912632352*^9}, {
   3.824060033237131*^9, 3.8240600629809504`*^9}, {3.824060707878212*^9, 
   3.8240607321672373`*^9}, {3.824060770902687*^9, 3.824060796453489*^9}, {
   3.824060829273352*^9, 3.8240609768534727`*^9}, {3.8240610164623747`*^9, 
   3.824061037151898*^9}, {3.824061276765772*^9, 3.824061377204176*^9}, {
   3.8240615783387156`*^9, 3.8240616084289684`*^9}, {3.8240617081210756`*^9, 
   3.8240617792607574`*^9}, {3.8240618316973295`*^9, 3.824061838522883*^9}, {
   3.8240619136230316`*^9, 3.8240619153211684`*^9}, {3.824061950200694*^9, 
   3.824061981458679*^9}, 3.824062041375255*^9, {3.8240620793410683`*^9, 
   3.824062096672375*^9}, {3.824062146041576*^9, 3.824062159082079*^9}, {
   3.8240622452952576`*^9, 3.8240622712280807`*^9}, {3.8240624217925386`*^9, 
   3.8240624358848343`*^9}, {3.824062549557721*^9, 3.824062688174779*^9}, {
   3.8240627299037237`*^9, 3.824062769916463*^9}, {3.824062923229401*^9, 
   3.8240629250404153`*^9}, {3.824063196384083*^9, 3.8240632117420673`*^9}, {
   3.824063252918992*^9, 3.8240632801715956`*^9}, {3.82406414329595*^9, 
   3.824064157376355*^9}, {3.824091325596507*^9, 3.8240913269733562`*^9}, {
   3.824091427627793*^9, 3.824091430593933*^9}, {3.8240917985140257`*^9, 
   3.8240918040787287`*^9}, {3.82521045529626*^9, 3.8252104554962597`*^9}, {
   3.8252105350333724`*^9, 3.825210535303373*^9}, 3.8252157754898205`*^9, {
   3.8252161924294243`*^9, 3.8252161973204317`*^9}, {3.825216547503929*^9, 
   3.8252165478439293`*^9}},
 CellLabel->
  "In[754]:=",ExpressionUUID->"9a469885-6ada-4016-a528-69ce0f532a4c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC07d2100", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"FC07dist2100", ",", "FNC07dist2100"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.82406217731055*^9, 3.824062184470115*^9}, {
   3.8240641643721743`*^9, 3.824064172447519*^9}, {3.824091300964791*^9, 
   3.824091340923424*^9}, {3.824091451355304*^9, 3.824091468581418*^9}, 
   3.824091526341276*^9, {3.8240918095799203`*^9, 3.8240918144879055`*^9}, {
   3.825210464797273*^9, 3.8252104650172734`*^9}, {3.8252105389933777`*^9, 
   3.825210541614382*^9}, {3.8252162028734393`*^9, 3.8252162099554496`*^9}},
 CellLabel->
  "In[760]:=",ExpressionUUID->"0c8319cd-48c6-4451-be6a-77fc5061915f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC07dist2150", "=", 
   RowBox[{"BarChart", "[", 
    RowBox[{
     RowBox[{"C07dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"18", ";;", "24"}], ",", 
        RowBox[{"2", ";;", "7"}]}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1300"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ChartStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
        RowBox[{"Lighter", "[", 
         RowBox[{"Gray", ",", "0.1"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ChartLayout", "\[Rule]", "\"\<Stacked\>\""}], ",", 
     RowBox[{"ChartLabels", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "\"\<low\>\"", ",", "\"\<med \\nDICE 07\>\"", ",", "\"\<high\>\"", 
          ",", "\"\<\\n\\n 2150\>\"", ",", "\"\<low\>\"", ",", 
          "\"\<med \\nFaIR-Geoff\>\"", ",", "\"\<high\>\""}], "}"}], ",", 
        "None"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"BarSpacing", "\[Rule]", "0.3"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "True", ",", "True"}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\< Gross/Negative/Net Emissions (Gt C)\>\"", ",", "Black"}], 
           "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"-", "750"}], ",", 
            RowBox[{"-", "500"}], ",", 
            RowBox[{"-", "250"}], ",", "0", ",", "250", ",", "500", ",", 
            "750"}], "}"}], ",", "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"1", ",", "\"\<low\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2", ",", "\"\<med \\n DICE2007\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"3", ",", "\"\<high\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"4", ",", "\"\<\\n\\n 2050\>\""}], "}"}]}], "}"}], ",", 
          "Automatic"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"5", ",", "\"\<low\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"6", ",", " ", "\"\<med \\n FaIR-Geoff\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"7", ",", "\"\<high\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"FrameTicksStyle", "\[Rule]", "Black"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", "1.2"}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0.2", ",", "0.2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "50"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<b3\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.823890073090515*^9, 3.8238901364920716`*^9}, 
   3.8238905612572093`*^9, {3.824014631138024*^9, 3.8240146331043367`*^9}, {
   3.824047886346449*^9, 3.824047895397727*^9}, {3.824047943165348*^9, 
   3.824047970627758*^9}, {3.8240483489606447`*^9, 3.824048354178032*^9}, {
   3.824048411421276*^9, 3.824048568439223*^9}, {3.824048683448474*^9, 
   3.824048756243036*^9}, {3.824048904685441*^9, 3.824048923700327*^9}, {
   3.824048975432994*^9, 3.8240489777867336`*^9}, {3.8240490250710583`*^9, 
   3.8240490498034554`*^9}, {3.824049156505105*^9, 3.824049160200428*^9}, {
   3.8240492798860254`*^9, 3.8240493068717413`*^9}, {3.824049544474527*^9, 
   3.8240495456620073`*^9}, {3.8240496237252274`*^9, 
   3.8240497432837543`*^9}, {3.8240534882155123`*^9, 3.824053547768684*^9}, {
   3.8240536370508366`*^9, 3.82405364664505*^9}, {3.8240536818864856`*^9, 
   3.824053773350162*^9}, {3.82405382643391*^9, 3.824053842660067*^9}, {
   3.8240538973383293`*^9, 3.824053898787627*^9}, {3.8240540065565*^9, 
   3.8240541667210507`*^9}, {3.82405445522338*^9, 3.824054710823125*^9}, {
   3.8240547547787895`*^9, 3.8240547730436907`*^9}, 3.824054803396308*^9, {
   3.8240548335561185`*^9, 3.824055103385*^9}, {3.824055300198719*^9, 
   3.824055402644619*^9}, {3.824056364576741*^9, 3.824056451058465*^9}, {
   3.8240564816710095`*^9, 3.8240565673913155`*^9}, {3.824056647385868*^9, 
   3.824056796001286*^9}, {3.8240568335860376`*^9, 3.824056834834886*^9}, {
   3.8240568831265717`*^9, 3.82405690289912*^9}, {3.8240569380520515`*^9, 
   3.8240569392708035`*^9}, 3.8240577629263887`*^9, {3.824059361590516*^9, 
   3.8240594361071267`*^9}, {3.8240599331928234`*^9, 
   3.8240599992257614`*^9}, {3.824060144717406*^9, 3.8240601726287484`*^9}, {
   3.824060236132613*^9, 3.8240603486091995`*^9}, {3.824060382258993*^9, 
   3.8240606060305133`*^9}, {3.824060647127112*^9, 3.824060681806402*^9}, 
   3.824061923770802*^9, {3.82406335567825*^9, 3.824063389463982*^9}, {
   3.8240634218052716`*^9, 3.8240634877495193`*^9}, {3.8240635417768564`*^9, 
   3.824063588213892*^9}, {3.8240636254159484`*^9, 3.824063868334691*^9}, {
   3.824063935813938*^9, 3.8240639605716033`*^9}, {3.8240640305230494`*^9, 
   3.8240641366517296`*^9}, {3.824091318365783*^9, 3.8240913200418043`*^9}, {
   3.824091396972622*^9, 3.8240914139491463`*^9}, {3.824091558899126*^9, 
   3.8240915603797464`*^9}, {3.8240915935865116`*^9, 3.824091605366926*^9}, {
   3.82409173258856*^9, 3.8240917407429004`*^9}, 3.8241254272365522`*^9, {
   3.824125460609003*^9, 3.8241255142747645`*^9}, {3.8252104691182795`*^9, 
   3.825210469268279*^9}, {3.825210545484387*^9, 3.825210545764387*^9}, 
   3.825212159513663*^9, 3.8252123214698906`*^9, 3.825212445724067*^9, {
   3.8252158407209125`*^9, 3.825215841030913*^9}, {3.8252159697440944`*^9, 
   3.825215970084095*^9}, {3.825216214557456*^9, 3.825216235102485*^9}, {
   3.8252164742688255`*^9, 3.8252164751698265`*^9}, {3.8252165146598825`*^9, 
   3.8252165151698833`*^9}},
 CellLabel->
  "In[749]:=",ExpressionUUID->"88cbcc72-7353-431d-83b3-1d1490c0b842"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FNC07dist2150", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"C07dist", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"18", ";;", "24"}], ",", "8"}], "]"}], "]"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "7.5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1200"}], ",", "1300"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"1", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"100", ",", "250"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"PointSize", "[", "0.1", "]"}]}], "}"}]}], ",", 
     RowBox[{"PlotMarkers", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"fl", ",", "0.08"}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"False", ",", "False", ",", "False", ",", "True"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "500"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "250"}], ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"-", "15"}], ",", "\"\<-15\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"198", ",", "\"\<198\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"250", ",", "\"\<\>\""}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"500", ",", "\"\<\>\""}], "}"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Automatic", ",", "Automatic"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"GridLines", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"BaseStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", "18", 
        ",", "Black"}], "]"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Net Emissions (Gt C)\>\"", ",", "18", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.824057949228264*^9, 3.824057983124361*^9}, {
   3.8240582201554565`*^9, 3.82405828684138*^9}, {3.824058319988413*^9, 
   3.824058533291483*^9}, {3.8240585657665195`*^9, 3.8240586133661747`*^9}, {
   3.8240587306476727`*^9, 3.8240587571148233`*^9}, 3.824058864733663*^9, {
   3.8240589376302867`*^9, 3.8240590543182926`*^9}, {3.8240591427134*^9, 
   3.8240591573006215`*^9}, {3.8240597376787095`*^9, 3.824059912632352*^9}, {
   3.824060033237131*^9, 3.8240600629809504`*^9}, {3.824060707878212*^9, 
   3.8240607321672373`*^9}, {3.824060770902687*^9, 3.824060796453489*^9}, {
   3.824060829273352*^9, 3.8240609768534727`*^9}, {3.8240610164623747`*^9, 
   3.824061037151898*^9}, {3.824061276765772*^9, 3.824061377204176*^9}, {
   3.8240615783387156`*^9, 3.8240616084289684`*^9}, {3.8240617081210756`*^9, 
   3.8240617792607574`*^9}, {3.8240618316973295`*^9, 3.824061838522883*^9}, {
   3.8240619136230316`*^9, 3.8240619153211684`*^9}, {3.824061950200694*^9, 
   3.824061981458679*^9}, 3.824062041375255*^9, {3.8240620793410683`*^9, 
   3.824062096672375*^9}, {3.824062146041576*^9, 3.824062159082079*^9}, {
   3.8240622452952576`*^9, 3.8240622712280807`*^9}, {3.8240624217925386`*^9, 
   3.8240624358848343`*^9}, {3.824062549557721*^9, 3.824062688174779*^9}, {
   3.8240627299037237`*^9, 3.824062769916463*^9}, {3.824062923229401*^9, 
   3.8240629250404153`*^9}, {3.824063196384083*^9, 3.8240632117420673`*^9}, {
   3.824063252918992*^9, 3.8240632801715956`*^9}, {3.82406414329595*^9, 
   3.824064157376355*^9}, {3.824091325596507*^9, 3.8240913269733562`*^9}, {
   3.824091427627793*^9, 3.824091430593933*^9}, {3.8240915653572216`*^9, 
   3.8240915665379148`*^9}, {3.8240916146810155`*^9, 
   3.8240916180978355`*^9}, {3.8240917441483693`*^9, 3.824091750238287*^9}, {
   3.8252104734992857`*^9, 3.8252104736992855`*^9}, {3.825210552386397*^9, 
   3.8252105527363973`*^9}, {3.825210673767568*^9, 3.8252106841685824`*^9}, 
   3.825212151801652*^9, 3.825212330170903*^9, {3.8252162424464955`*^9, 
   3.825216250869508*^9}, {3.8252164827918377`*^9, 3.8252164830418377`*^9}, {
   3.8252165210828915`*^9, 3.825216521362892*^9}},
 CellLabel->
  "In[750]:=",ExpressionUUID->"1f4f131c-b8c7-4a74-aa2c-a3cffeebeaeb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FC07d2150", "=", 
   RowBox[{"Show", "[", 
    RowBox[{"FC07dist2150", ",", "FNC07dist2150"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.825216427599759*^9, 3.825216436520772*^9}},
 CellLabel->
  "In[761]:=",ExpressionUUID->"62615891-21f7-48b5-a029-b0d53032b39a"],

Cell[BoxData[
 RowBox[{
  RowBox[{"FigureBD07", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"Grid", "[", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"FC07d2050", ",", "FC07d2100", ",", "FC07d2150"}], "}"}], 
       "}"}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"SwatchLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Lighter", "[", 
            RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
           RowBox[{"Lighter", "[", 
            RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
           RowBox[{"Lighter", "[", 
            RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
           RowBox[{"Lighter", "[", 
            RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
           RowBox[{"Lighter", "[", 
            RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
           RowBox[{"Lighter", "[", 
            RowBox[{"Gray", ",", "0.1"}], "]"}], ",", "Black"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<E<2050\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<2050\[LessSlantEqual]E<2100\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<2100\[LessSlantEqual]E<2200\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CDR<2050\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<2050\[LessSlantEqual]CDR<2100\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<2100\[LessSlantEqual]CDR<2200\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<NE<2200\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.82412570592852*^9, 3.824125720354286*^9}, {
   3.8241257636601653`*^9, 3.824125785135518*^9}, {3.8241258455107646`*^9, 
   3.824125917071863*^9}, {3.8241259755453615`*^9, 3.8241260896123257`*^9}, {
   3.8241261470045605`*^9, 3.8241262339885645`*^9}, {3.8252105706974225`*^9, 
   3.8252105750594287`*^9}, {3.82521580350486*^9, 3.8252158110258703`*^9}, {
   3.825216272188538*^9, 3.8252162858515573`*^9}, 3.8252167372581987`*^9},
 CellLabel->
  "In[764]:=",ExpressionUUID->"c51307e5-b8bb-49ba-a268-d6dbb1b89e99"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FigureSI6B", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "FigureBD16", "}"}], ",", 
      RowBox[{"{", "FigureBD13", "}"}], ",", 
      RowBox[{"{", "FigureBD07", "}"}]}], "}"}], ",", 
    RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8252165754739685`*^9, 3.825216630849047*^9}, {
  3.825216740900204*^9, 3.825216744950211*^9}},
 CellLabel->
  "In[765]:=",ExpressionUUID->"539373be-836f-4268-b60f-32bf7fd5c057"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{
       TagBox[
        GridBox[{{
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -732.786057}, {
                7.384615384615385, -732.786057}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 158.330696}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 158.330696]& , TagBoxNote -> "158.330696"], 
                    StyleBox["158.330696`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[158.330696, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 158.330696}, {
                    1.3846153846153846`, 375.237521}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 216.906825]& , TagBoxNote -> "216.906825"], 
                    StyleBox["216.906825`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[216.906825, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 375.237521}, {
                    1.3846153846153846`, 723.032657}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 347.795136]& , TagBoxNote -> "347.795136"], 
                    StyleBox["347.795136`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[347.795136, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -150.095411}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -150.095411]& , TagBoxNote -> 
                    "-150.095411"], 
                    StyleBox[
                    RowBox[{"-", "150.095411`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-150.095411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -150.095411}, {
                    1.3846153846153846`, -387.738468}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -237.643057]& , TagBoxNote -> 
                    "-237.643057"], 
                    StyleBox[
                    RowBox[{"-", "237.643057`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-237.643057, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -387.738468}, {
                    1.3846153846153846`, -732.786057}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -345.047589]& , TagBoxNote -> 
                    "-345.047589"], 
                    StyleBox[
                    RowBox[{"-", "345.047589`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-345.047589, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 113.766036}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 113.766036]& , TagBoxNote -> "113.766036"], 
                    StyleBox["113.766036`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[113.766036, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 113.766036}, {
                    2.3846153846153846`, 248.30804799999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 134.542012]& , TagBoxNote -> "134.542012"], 
                    StyleBox["134.542012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[134.542012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 248.30804799999999`}, {
                    2.3846153846153846`, 465.507693}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 217.199645]& , TagBoxNote -> "217.199645"], 
                    StyleBox["217.199645`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[217.199645, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -104.675465}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -104.675465]& , TagBoxNote -> 
                    "-104.675465"], 
                    StyleBox[
                    RowBox[{"-", "104.675465`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-104.675465, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -104.675465}, {
                    2.3846153846153846`, -260.805679}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -156.130214]& , TagBoxNote -> 
                    "-156.130214"], 
                    StyleBox[
                    RowBox[{"-", "156.130214`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-156.130214, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -260.805679}, {
                    2.3846153846153846`, -475.265042}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -214.459363]& , TagBoxNote -> 
                    "-214.459363"], 
                    StyleBox[
                    RowBox[{"-", "214.459363`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-214.459363, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 90.435781}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 90.435781]& , 
                    TagBoxNote -> "90.435781"], 
                    StyleBox["90.435781`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[90.435781, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 90.435781}, {
                    3.3846153846153846`, 185.041956}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 94.606175]& , TagBoxNote -> "94.606175"], 
                    StyleBox["94.606175`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[94.606175, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 185.041956}, {
                    3.3846153846153846`, 343.59101}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 158.549054]& , 
                    TagBoxNote -> "158.549054"], 
                    StyleBox["158.549054`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[158.549054, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -80.859775}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -80.859775]& , TagBoxNote -> "-80.859775"], 
                    StyleBox[
                    RowBox[{"-", "80.859775`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-80.859775, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -80.859775}, {
                    3.3846153846153846`, -197.538004}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -116.678229]& , TagBoxNote -> 
                    "-116.678229"], 
                    StyleBox[
                    RowBox[{"-", "116.678229`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-116.678229, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -197.538004}, {
                    3.3846153846153846`, -353.350053}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -155.812049]& , TagBoxNote -> 
                    "-155.812049"], 
                    StyleBox[
                    RowBox[{"-", "155.812049`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-155.812049, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    261.198012}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 261.198012]& , 
                    TagBoxNote -> "261.198012"], 
                    StyleBox["261.198012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[261.198012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 261.198012}, {
                    5.384615384615385, 504.788541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 243.590529]& , 
                    TagBoxNote -> "243.590529"], 
                    StyleBox["243.590529`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[243.590529, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 504.788541}, {
                    5.384615384615385, 842.185639}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.397098]& , 
                    TagBoxNote -> "337.397098"], 
                    StyleBox["337.397098`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.397098, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -64.157411}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -64.157411]& , 
                    TagBoxNote -> "-64.157411"], 
                    StyleBox[
                    RowBox[{"-", "64.157411`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-64.157411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -64.157411}, {
                    5.384615384615385, -284.68211199999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -220.524701]& , TagBoxNote -> 
                    "-220.524701"], 
                    StyleBox[
                    RowBox[{"-", "220.524701`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-220.524701, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -284.68211199999996`}, {
                    5.384615384615385, -633.451622}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -348.76951]& , 
                    TagBoxNote -> "-348.76951"], 
                    StyleBox[
                    RowBox[{"-", "348.76951`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-348.76951, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    240.277726}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 240.277726]& , 
                    TagBoxNote -> "240.277726"], 
                    StyleBox["240.277726`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[240.277726, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 240.277726}, {
                    6.384615384615385, 407.245041}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 166.967315]& , 
                    TagBoxNote -> "166.967315"], 
                    StyleBox["166.967315`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[166.967315, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 407.245041}, {
                    6.384615384615385, 612.774851}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 205.52981]& , 
                    TagBoxNote -> "205.52981"], 
                    StyleBox["205.52981`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[205.52981, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -43.223418}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -43.223418]& , 
                    TagBoxNote -> "-43.223418"], 
                    StyleBox[
                    RowBox[{"-", "43.223418`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-43.223418, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -43.223418}, {
                    6.384615384615385, -187.172377}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -143.948959]& ,
                     TagBoxNote -> "-143.948959"], 
                    StyleBox[
                    RowBox[{"-", "143.948959`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.948959, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -187.172377}, {
                    6.384615384615385, -403.978961}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -216.806584]& ,
                     TagBoxNote -> "-216.806584"], 
                    StyleBox[
                    RowBox[{"-", "216.806584`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-216.806584, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    229.681401}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 229.681401]& , 
                    TagBoxNote -> "229.681401"], 
                    StyleBox["229.681401`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[229.681401, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 229.681401}, {
                    7.384615384615385, 359.90092300000003`}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 130.219522]& , TagBoxNote -> "130.219522"], 
                    StyleBox["130.219522`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[130.219522, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 359.90092300000003`}, {
                    7.384615384615385, 506.193525}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 146.292602]& , 
                    TagBoxNote -> "146.292602"], 
                    StyleBox["146.292602`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[146.292602, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -32.703541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -32.703541]& , 
                    TagBoxNote -> "-32.703541"], 
                    StyleBox[
                    RowBox[{"-", "32.703541`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-32.703541, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -32.703541}, {
                    7.384615384615385, -139.843163}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -107.139622]& ,
                     TagBoxNote -> "-107.139622"], 
                    StyleBox[
                    RowBox[{"-", "107.139622`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-107.139622, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -139.843163}, {
                    7.384615384615385, -297.37217799999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -157.529015]& , TagBoxNote -> 
                    "-157.529015"], 
                    StyleBox[
                    RowBox[{"-", "157.529015`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-157.529015, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -9.753399}}, {{2., -9.757349}}, {{
                  3., -9.759043}}, {{5., 208.734018}}, {{6., 208.79589}}, {{
                  7., 208.821347}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -732.786057}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2050\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -794.6889309999999}, {
                7.384615384615385, -794.6889309999999}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 274.815643}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 274.815643]& , TagBoxNote -> "274.815643"], 
                    StyleBox["274.815643`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[274.815643, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 274.815643}, {
                    1.3846153846153846`, 337.621668}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 62.806025]& , TagBoxNote -> "62.806025"], 
                    StyleBox["62.806025`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[62.806025, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 337.621668}, {
                    1.3846153846153846`, 787.100818}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 449.47915]& , TagBoxNote -> "449.47915"], 
                    StyleBox["449.47915`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[449.47915, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -54.510009}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -54.510009]& , TagBoxNote -> "-54.510009"], 
                    StyleBox[
                    RowBox[{"-", "54.510009`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-54.510009, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -54.510009}, {
                    1.3846153846153846`, -491.01699099999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -436.506982]& , TagBoxNote -> 
                    "-436.506982"], 
                    StyleBox[
                    RowBox[{"-", "436.506982`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-436.506982, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -491.01699099999996`}, {
                    1.3846153846153846`, -794.6889309999999}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -303.67194]& , TagBoxNote -> "-303.67194"], 
                    StyleBox[
                    RowBox[{"-", "303.67194`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-303.67194, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 230.190141}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 230.190141]& , TagBoxNote -> "230.190141"], 
                    StyleBox["230.190141`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[230.190141, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 230.190141}, {
                    2.3846153846153846`, 250.30777500000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 20.117634]& , TagBoxNote -> "20.117634"], 
                    StyleBox["20.117634`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[20.117634, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 250.30777500000002`}, {
                    2.3846153846153846`, 558.3927110000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 308.084936]& , TagBoxNote -> "308.084936"], 
                    StyleBox["308.084936`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[308.084936, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -47.532343}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -47.532343]& , TagBoxNote -> "-47.532343"], 
                    StyleBox[
                    RowBox[{"-", "47.532343`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-47.532343, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -47.532343}, {
                    2.3846153846153846`, -373.363738}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -325.831395]& , TagBoxNote -> 
                    "-325.831395"], 
                    StyleBox[
                    RowBox[{"-", "325.831395`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-325.831395, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -373.363738}, {
                    2.3846153846153846`, -566.5241510000001}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -193.160413]& , TagBoxNote -> 
                    "-193.160413"], 
                    StyleBox[
                    RowBox[{"-", "193.160413`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-193.160413, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 199.593238}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 199.593238]& , TagBoxNote -> "199.593238"], 
                    StyleBox["199.593238`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[199.593238, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 199.593238}, {
                    3.3846153846153846`, 205.87024200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 6.277004]& , TagBoxNote -> "6.277004"], 
                    StyleBox["6.277004`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[6.277004, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 205.87024200000002`}, {
                    3.3846153846153846`, 445.645236}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 239.774994]& , TagBoxNote -> "239.774994"], 
                    StyleBox["239.774994`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[239.774994, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -41.890674}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -41.890674]& , TagBoxNote -> "-41.890674"], 
                    StyleBox[
                    RowBox[{"-", "41.890674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-41.890674, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -41.890674}, {
                    3.3846153846153846`, -311.713579}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -269.822905]& , TagBoxNote -> 
                    "-269.822905"], 
                    StyleBox[
                    RowBox[{"-", "269.822905`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-269.822905, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -311.713579}, {
                    3.3846153846153846`, -454.066444}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -142.352865]& , TagBoxNote -> 
                    "-142.352865"], 
                    StyleBox[
                    RowBox[{"-", "142.352865`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-142.352865, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    360.335426}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 360.335426]& , 
                    TagBoxNote -> "360.335426"], 
                    StyleBox["360.335426`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.335426, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 360.335426}, {
                    5.384615384615385, 556.846723}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 196.511297]& , 
                    TagBoxNote -> "196.511297"], 
                    StyleBox["196.511297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[196.511297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 556.846723}, {
                    5.384615384615385, 878.425371}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 321.578648]& , 
                    TagBoxNote -> "321.578648"], 
                    StyleBox["321.578648`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[321.578648, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -9.09751}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.09751]& , 
                    TagBoxNote -> "-9.09751"], 
                    StyleBox[
                    RowBox[{"-", "9.09751`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.09751, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -9.09751}, {
                    5.384615384615385, -322.902164}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -313.804654]& ,
                     TagBoxNote -> "-313.804654"], 
                    StyleBox[
                    RowBox[{"-", "313.804654`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-313.804654, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -322.902164}, {
                    5.384615384615385, -677.367262}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -354.465098]& ,
                     TagBoxNote -> "-354.465098"], 
                    StyleBox[
                    RowBox[{"-", "354.465098`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-354.465098, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    337.79575}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.79575]& , 
                    TagBoxNote -> "337.79575"], 
                    StyleBox["337.79575`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.79575, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 337.79575}, {
                    6.384615384615385, 471.722523}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 133.926773]& , 
                    TagBoxNote -> "133.926773"], 
                    StyleBox["133.926773`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[133.926773, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 471.722523}, {
                    6.384615384615385, 662.944687}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 191.222164]& , 
                    TagBoxNote -> "191.222164"], 
                    StyleBox["191.222164`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[191.222164, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -9.809114}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.809114]& , 
                    TagBoxNote -> "-9.809114"], 
                    StyleBox[
                    RowBox[{"-", "9.809114`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.809114, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -9.809114}, {
                    6.384615384615385, -240.607673}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -230.798559]& ,
                     TagBoxNote -> "-230.798559"], 
                    StyleBox[
                    RowBox[{"-", "230.798559`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-230.798559, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{5.615384615384616, -240.607673}, {
                    6.384615384615385, -460.335464}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -219.727791]& ,
                     TagBoxNote -> "-219.727791"], 
                    StyleBox[
                    RowBox[{"-", "219.727791`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-219.727791, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    323.234935}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 323.234935]& , 
                    TagBoxNote -> "323.234935"], 
                    StyleBox["323.234935`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[323.234935, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 323.234935}, {
                    7.384615384615385, 427.118758}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 103.883823]& , 
                    TagBoxNote -> "103.883823"], 
                    StyleBox["103.883823`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[103.883823, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 427.118758}, {
                    7.384615384615385, 560.048835}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 132.930077]& , 
                    TagBoxNote -> "132.930077"], 
                    StyleBox["132.930077`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[132.930077, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -9.344184}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.344184]& , 
                    TagBoxNote -> "-9.344184"], 
                    StyleBox[
                    RowBox[{"-", "9.344184`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.344184, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -9.344184}, {
                    7.384615384615385, -197.08487200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -187.740688]& , TagBoxNote -> 
                    "-187.740688"], 
                    StyleBox[
                    RowBox[{"-", "187.740688`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-187.740688, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -197.08487200000002`}, {
                    7.384615384615385, -356.537234}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -159.452362]& ,
                     TagBoxNote -> "-159.452362"], 
                    StyleBox[
                    RowBox[{"-", "159.452362`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.452362, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
                  3., -8.421209}}, {{5., 201.058108}}, {{6., 202.609223}}, {{
                  7., 203.511601}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -794.6889309999999}, 
             BaseStyle -> Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b2\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2100\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -1096.704333}, {
                7.384615384615385, -1096.704333}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 388.25272}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 388.25272]& , 
                    TagBoxNote -> "388.25272"], 
                    StyleBox["388.25272`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[388.25272, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 388.25272}, {
                    1.3846153846153846`, 716.5086}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 328.25588]& , 
                    TagBoxNote -> "328.25588"], 
                    StyleBox["328.25588`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[328.25588, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 716.5086}, {
                    1.3846153846153846`, 1131.60549}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 415.09689]& , TagBoxNote -> "415.09689"], 
                    StyleBox["415.09689`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[415.09689, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -1.687248}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -1.687248]& , 
                    TagBoxNote -> "-1.687248"], 
                    StyleBox[
                    RowBox[{"-", "1.687248`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-1.687248, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -1.687248}, {
                    1.3846153846153846`, -183.275868}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -181.58862]& , TagBoxNote -> "-181.58862"], 
                    StyleBox[
                    RowBox[{"-", "181.58862`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-181.58862, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -183.275868}, {
                    1.3846153846153846`, -1096.704333}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -913.428465]& , TagBoxNote -> 
                    "-913.428465"], 
                    StyleBox[
                    RowBox[{"-", "913.428465`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-913.428465, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 360.672782}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 360.672782]& , TagBoxNote -> "360.672782"], 
                    StyleBox["360.672782`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.672782, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 360.672782}, {
                    2.3846153846153846`, 571.315752}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 210.64297]& , TagBoxNote -> "210.64297"], 
                    StyleBox["210.64297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[210.64297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 571.315752}, {
                    2.3846153846153846`, 898.431737}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 327.115985]& , TagBoxNote -> "327.115985"], 
                    StyleBox["327.115985`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[327.115985, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -4.785349}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -4.785349]& , 
                    TagBoxNote -> "-4.785349"], 
                    StyleBox[
                    RowBox[{"-", "4.785349`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-4.785349, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -4.785349}, {
                    2.3846153846153846`, -163.933462}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -159.148113]& , TagBoxNote -> 
                    "-159.148113"], 
                    StyleBox[
                    RowBox[{"-", "159.148113`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.148113, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -163.933462}, {
                    2.3846153846153846`, -878.392152}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -714.45869]& , TagBoxNote -> "-714.45869"], 
                    StyleBox[
                    RowBox[{"-", "714.45869`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-714.45869, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 340.631967}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 340.631967]& , TagBoxNote -> "340.631967"], 
                    StyleBox["340.631967`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[340.631967, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 340.631967}, {
                    3.3846153846153846`, 492.08491699999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 151.45295]& , TagBoxNote -> "151.45295"], 
                    StyleBox["151.45295`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[151.45295, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 492.08491699999996`}, {
                    3.3846153846153846`, 768.8402409999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 276.755324]& , TagBoxNote -> "276.755324"], 
                    StyleBox["276.755324`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[276.755324, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -6.205358}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -6.205358]& , 
                    TagBoxNote -> "-6.205358"], 
                    StyleBox[
                    RowBox[{"-", "6.205358`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-6.205358, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -6.205358}, {
                    3.3846153846153846`, -149.311475}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -143.106117]& , TagBoxNote -> 
                    "-143.106117"], 
                    StyleBox[
                    RowBox[{"-", "143.106117`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.106117, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -149.311475}, {
                    3.3846153846153846`, -758.211383}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -608.899908]& , TagBoxNote -> 
                    "-608.899908"], 
                    StyleBox[
                    RowBox[{"-", "608.899908`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-608.899908, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    424.430174}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 424.430174]& , 
                    TagBoxNote -> "424.430174"], 
                    StyleBox["424.430174`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[424.430174, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 424.430174}, {
                    5.384615384615385, 985.5776720000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 561.147498]& , TagBoxNote -> "561.147498"], 
                    StyleBox["561.147498`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[561.147498, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 985.5776720000001}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 115.396599]& , 
                    TagBoxNote -> "115.396599"], 
                    StyleBox["115.396599`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[115.396599, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 1100.974271}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                    TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -66.469291}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -66.469291]& , 
                    TagBoxNote -> "-66.469291"], 
                    StyleBox[
                    RowBox[{"-", "66.469291`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-66.469291, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -66.469291}, {
                    5.384615384615385, -899.498816}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -833.029525]& ,
                     TagBoxNote -> "-833.029525"], 
                    StyleBox[
                    RowBox[{"-", "833.029525`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-833.029525, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    409.148947}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.148947]& , 
                    TagBoxNote -> "409.148947"], 
                    StyleBox["409.148947`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[409.148947, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 409.148947}, {
                    6.384615384615385, 855.950332}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 446.801385]& , 
                    TagBoxNote -> "446.801385"], 
                    StyleBox["446.801385`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[446.801385, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 855.950332}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 39.334762]& , 
                    TagBoxNote -> "39.334762"], 
                    StyleBox["39.334762`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[39.334762, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 895.285094}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 0]& , 
                    TagBoxNote -> "0"], 
                    StyleBox["0", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -62.129752}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -62.129752]& , 
                    TagBoxNote -> "-62.129752"], 
                    StyleBox[
                    RowBox[{"-", "62.129752`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-62.129752, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -62.129752}, {
                    6.384615384615385, -693.097152}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -630.9674]& , 
                    TagBoxNote -> "-630.9674"], 
                    StyleBox[
                    RowBox[{"-", "630.9674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-630.9674, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    398.232356}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 398.232356]& , 
                    TagBoxNote -> "398.232356"], 
                    StyleBox["398.232356`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[398.232356, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 398.232356}, {
                    7.384615384615385, 771.819992}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 373.587636]& , 
                    TagBoxNote -> "373.587636"], 
                    StyleBox["373.587636`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[373.587636, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 771.819992}, {
                    7.384615384615385, 790.2512049999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 18.431213]& , TagBoxNote -> "18.431213"], 
                    StyleBox["18.431213`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[18.431213, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -0.157619}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -0.157619]& , 
                    TagBoxNote -> "-0.157619"], 
                    StyleBox[
                    RowBox[{"-", "0.157619`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-0.157619, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -0.157619}, {
                    7.384615384615385, -57.341910999999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -57.184292]& , TagBoxNote -> "-57.184292"], 
                    StyleBox[
                    RowBox[{"-", "57.184292`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-57.184292, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -57.341910999999996`}, {
                    7.384615384615385, -587.689933}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -530.348022]& ,
                     TagBoxNote -> "-530.348022"], 
                    StyleBox[
                    RowBox[{"-", "530.348022`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-530.348022, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {
              Null}, {}, {}, {}}, {{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
                  3., -8.13144}}, {{5., 201.475455}}, {{6., 202.187942}}, {{
                  7., 202.561273}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -1096.704333}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b3\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2150\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}]}}, AutoDelete -> False, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
       FormBox[
        TemplateBox[{
          StyleBox[
          "\"E<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]E<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]E<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"CDR<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]CDR<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]CDR<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"NE<2200\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False]}, "SwatchLegend", 
         DisplayFunction -> (FormBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                   "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
               "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[{"SwatchLegend", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.95, 0.95, 0.95], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6333333333333333, 0.6333333333333333, 
                    0.6333333333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.95`", ",", "0.95`", ",", "0.95`"}], "]"}], 
                    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.95, 0.95, 0.95]; 
                    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.95, 0.95, 0.95], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.9, 0.9], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6000000000000001, 0.6000000000000001, 
                    0.6000000000000001], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.9`", ",", "0.9`"}], "]"}], 
                    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.9, 0.9, 0.9]; 
                    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.9, 0.9, 0.9], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.85, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.5666666666666667, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.85`", ",", "0.85`"}], "]"}], 
                    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.85, 0.85, 0.85]; 
                    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.85, 0.85, 0.85], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.75, 0.75, 0.75], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.5, 0.5, 0.5], FrameTicks -> None,
                     PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.75`", ",", "0.75`", ",", "0.75`"}], "]"}], 
                    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.75, 0.75, 0.75]; 
                    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.75, 0.75, 0.75], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.65, 0.65, 0.65], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.43333333333333335`, 0.43333333333333335`, 
                    0.43333333333333335`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.65`", ",", "0.65`", ",", "0.65`"}], "]"}], 
                    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.65, 0.65, 0.65]; 
                    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.65, 0.65, 0.65], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.55, 0.55, 0.55], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3666666666666667, 0.3666666666666667, 
                    0.3666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.55`", ",", "0.55`", ",", "0.55`"}], "]"}], 
                    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.55, 0.55, 0.55]; 
                    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.55, 0.55, 0.55], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                   GrayLevel[0], Editable -> False, Selectable -> False]}], 
                "}"}], ",", 
              RowBox[{"{", 
                
                RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                  ",", #7}], "}"}], ",", 
              RowBox[{"LegendLayout", "\[Rule]", 
                RowBox[{"{", 
                  RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
         Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{
       TagBox[
        GridBox[{{
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -633.507599}, {
                7.384615384615385, -633.507599}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 210.63981}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 210.63981]& , 
                    TagBoxNote -> "210.63981"], 
                    StyleBox["210.63981`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[210.63981, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 210.63981}, {
                    1.3846153846153846`, 478.685377}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 268.045567]& , TagBoxNote -> "268.045567"], 
                    StyleBox["268.045567`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[268.045567, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 478.685377}, {
                    1.3846153846153846`, 887.8757}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.190323]& , 
                    TagBoxNote -> "409.190323"], 
                    StyleBox["409.190323`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[409.190323, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -103.614775}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -103.614775]& , TagBoxNote -> 
                    "-103.614775"], 
                    StyleBox[
                    RowBox[{"-", "103.614775`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-103.614775, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -103.614775}, {
                    1.3846153846153846`, -311.842291}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -208.227516]& , TagBoxNote -> 
                    "-208.227516"], 
                    StyleBox[
                    RowBox[{"-", "208.227516`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-208.227516, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -311.842291}, {
                    1.3846153846153846`, -633.507599}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -321.665308]& , TagBoxNote -> 
                    "-321.665308"], 
                    StyleBox[
                    RowBox[{"-", "321.665308`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-321.665308, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 178.794638}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 178.794638]& , TagBoxNote -> "178.794638"], 
                    StyleBox["178.794638`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[178.794638, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 178.794638}, {
                    2.3846153846153846`, 373.675723}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 194.881085]& , TagBoxNote -> "194.881085"], 
                    StyleBox["194.881085`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[194.881085, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 373.675723}, {
                    2.3846153846153846`, 660.697228}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 287.021505]& , TagBoxNote -> "287.021505"], 
                    StyleBox["287.021505`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[287.021505, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -70.90852}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -70.90852]& , 
                    TagBoxNote -> "-70.90852"], 
                    StyleBox[
                    RowBox[{"-", "70.90852`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-70.90852, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -70.90852}, {
                    2.3846153846153846`, -206.948823}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -136.040303]& , TagBoxNote -> 
                    "-136.040303"], 
                    StyleBox[
                    RowBox[{"-", "136.040303`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-136.040303, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -206.948823}, {
                    2.3846153846153846`, -406.383106}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -199.434283]& , TagBoxNote -> 
                    "-199.434283"], 
                    StyleBox[
                    RowBox[{"-", "199.434283`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-199.434283, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 162.335572}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 162.335572]& , TagBoxNote -> "162.335572"], 
                    StyleBox["162.335572`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[162.335572, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 162.335572}, {
                    3.3846153846153846`, 322.125403}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 159.789831]& , TagBoxNote -> "159.789831"], 
                    StyleBox["159.789831`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[159.789831, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 322.125403}, {
                    3.3846153846153846`, 554.460073}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 232.33467]& , TagBoxNote -> "232.33467"], 
                    StyleBox["232.33467`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[232.33467, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -54.136455}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -54.136455]& , TagBoxNote -> "-54.136455"], 
                    StyleBox[
                    RowBox[{"-", "54.136455`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-54.136455, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -54.136455}, {
                    3.3846153846153846`, -155.442586}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -101.306131]& , TagBoxNote -> 
                    "-101.306131"], 
                    StyleBox[
                    RowBox[{"-", "101.306131`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-101.306131, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -155.442586}, {
                    3.3846153846153846`, -300.166426}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -144.72384]& , TagBoxNote -> "-144.72384"], 
                    StyleBox[
                    RowBox[{"-", "144.72384`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-144.72384, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    261.198012}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 261.198012]& , 
                    TagBoxNote -> "261.198012"], 
                    StyleBox["261.198012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[261.198012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 261.198012}, {
                    5.384615384615385, 504.788541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 243.590529]& , 
                    TagBoxNote -> "243.590529"], 
                    StyleBox["243.590529`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[243.590529, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 504.788541}, {
                    5.384615384615385, 842.185639}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.397098]& , 
                    TagBoxNote -> "337.397098"], 
                    StyleBox["337.397098`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.397098, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -64.157411}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -64.157411]& , 
                    TagBoxNote -> "-64.157411"], 
                    StyleBox[
                    RowBox[{"-", "64.157411`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-64.157411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -64.157411}, {
                    5.384615384615385, -284.68211199999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -220.524701]& , TagBoxNote -> 
                    "-220.524701"], 
                    StyleBox[
                    RowBox[{"-", "220.524701`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-220.524701, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -284.68211199999996`}, {
                    5.384615384615385, -633.451622}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -348.76951]& , 
                    TagBoxNote -> "-348.76951"], 
                    StyleBox[
                    RowBox[{"-", "348.76951`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-348.76951, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    240.277726}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 240.277726]& , 
                    TagBoxNote -> "240.277726"], 
                    StyleBox["240.277726`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[240.277726, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 240.277726}, {
                    6.384615384615385, 407.245041}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 166.967315]& , 
                    TagBoxNote -> "166.967315"], 
                    StyleBox["166.967315`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[166.967315, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 407.245041}, {
                    6.384615384615385, 612.774851}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 205.52981]& , 
                    TagBoxNote -> "205.52981"], 
                    StyleBox["205.52981`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[205.52981, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -43.223418}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -43.223418]& , 
                    TagBoxNote -> "-43.223418"], 
                    StyleBox[
                    RowBox[{"-", "43.223418`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-43.223418, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -43.223418}, {
                    6.384615384615385, -187.172377}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -143.948959]& ,
                     TagBoxNote -> "-143.948959"], 
                    StyleBox[
                    RowBox[{"-", "143.948959`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.948959, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -187.172377}, {
                    6.384615384615385, -403.978961}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -216.806584]& ,
                     TagBoxNote -> "-216.806584"], 
                    StyleBox[
                    RowBox[{"-", "216.806584`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-216.806584, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    229.681401}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 229.681401]& , 
                    TagBoxNote -> "229.681401"], 
                    StyleBox["229.681401`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[229.681401, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 229.681401}, {
                    7.384615384615385, 359.90092300000003`}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 130.219522]& , TagBoxNote -> "130.219522"], 
                    StyleBox["130.219522`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[130.219522, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{6.615384615384616, 359.90092300000003`}, {
                    7.384615384615385, 506.193525}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 146.292602]& , 
                    TagBoxNote -> "146.292602"], 
                    StyleBox["146.292602`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[146.292602, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -32.703541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -32.703541]& , 
                    TagBoxNote -> "-32.703541"], 
                    StyleBox[
                    RowBox[{"-", "32.703541`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-32.703541, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -32.703541}, {
                    7.384615384615385, -139.843163}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -107.139622]& ,
                     TagBoxNote -> "-107.139622"], 
                    StyleBox[
                    RowBox[{"-", "107.139622`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-107.139622, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -139.843163}, {
                    7.384615384615385, -297.37217799999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -157.529015]& , TagBoxNote -> 
                    "-157.529015"], 
                    StyleBox[
                    RowBox[{"-", "157.529015`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-157.529015, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., 254.368101}}, {{2., 254.314122}}, {{
                  3., 254.293647}}, {{5., 208.734018}}, {{6., 208.79589}}, {{
                  7., 208.821347}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -633.507599}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 13\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2050\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -677.367262}, {
                7.384615384615385, -677.367262}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 325.674968}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 325.674968]& , TagBoxNote -> "325.674968"], 
                    StyleBox["325.674968`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[325.674968, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 325.674968}, {
                    1.3846153846153846`, 448.542909}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 122.867941]& , TagBoxNote -> "122.867941"], 
                    StyleBox["122.867941`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[122.867941, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 448.542909}, {
                    1.3846153846153846`, 927.0318589999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 478.48895]& , TagBoxNote -> "478.48895"], 
                    StyleBox["478.48895`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[478.48895, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -24.433803}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -24.433803]& , TagBoxNote -> "-24.433803"], 
                    StyleBox[
                    RowBox[{"-", "24.433803`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-24.433803, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -24.433803}, {
                    1.3846153846153846`, -359.77948200000003`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -335.345679]& , TagBoxNote -> 
                    "-335.345679"], 
                    StyleBox[
                    RowBox[{"-", "335.345679`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-335.345679, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -359.77948200000003`}, {
                    1.3846153846153846`, -653.346497}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -293.567015]& , TagBoxNote -> 
                    "-293.567015"], 
                    StyleBox[
                    RowBox[{"-", "293.567015`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-293.567015, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 296.994075}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 296.994075]& , TagBoxNote -> "296.994075"], 
                    StyleBox["296.994075`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[296.994075, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 296.994075}, {
                    2.3846153846153846`, 365.56581900000003`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 68.571744]& , TagBoxNote -> "68.571744"], 
                    StyleBox["68.571744`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[68.571744, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 365.56581900000003`}, {
                    2.3846153846153846`, 716.494442}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 350.928623]& , TagBoxNote -> "350.928623"], 
                    StyleBox["350.928623`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[350.928623, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -21.881494}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -21.881494]& , TagBoxNote -> "-21.881494"], 
                    StyleBox[
                    RowBox[{"-", "21.881494`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-21.881494, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -21.881494}, {
                    2.3846153846153846`, -261.856784}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -239.97529]& , TagBoxNote -> "-239.97529"], 
                    StyleBox[
                    RowBox[{"-", "239.97529`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-239.97529, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -261.856784}, {
                    2.3846153846153846`, -446.390392}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -184.533608]& , TagBoxNote -> 
                    "-184.533608"], 
                    StyleBox[
                    RowBox[{"-", "184.533608`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-184.533608, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 278.588285}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 278.588285]& , TagBoxNote -> "278.588285"], 
                    StyleBox["278.588285`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[278.588285, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 278.588285}, {
                    3.3846153846153846`, 323.620518}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 45.032233]& , TagBoxNote -> "45.032233"], 
                    StyleBox["45.032233`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[45.032233, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 323.620518}, {
                    3.3846153846153846`, 614.675862}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 291.055344]& , TagBoxNote -> "291.055344"], 
                    StyleBox["291.055344`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[291.055344, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -19.365335}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -19.365335]& , TagBoxNote -> "-19.365335"], 
                    StyleBox[
                    RowBox[{"-", "19.365335`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-19.365335, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -19.365335}, {
                    3.3846153846153846`, -211.52313900000001`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -192.157804]& , TagBoxNote -> 
                    "-192.157804"], 
                    StyleBox[
                    RowBox[{"-", "192.157804`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-192.157804, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{
                    2.6153846153846154`, -211.52313900000001`}, {
                    3.3846153846153846`, -346.57549800000004`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -135.052359]& , TagBoxNote -> 
                    "-135.052359"], 
                    StyleBox[
                    RowBox[{"-", "135.052359`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-135.052359, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    360.335426}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 360.335426]& , 
                    TagBoxNote -> "360.335426"], 
                    StyleBox["360.335426`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.335426, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 360.335426}, {
                    5.384615384615385, 556.846723}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 196.511297]& , 
                    TagBoxNote -> "196.511297"], 
                    StyleBox["196.511297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[196.511297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 556.846723}, {
                    5.384615384615385, 878.425371}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 321.578648]& , 
                    TagBoxNote -> "321.578648"], 
                    StyleBox["321.578648`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[321.578648, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -9.09751}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.09751]& , 
                    TagBoxNote -> "-9.09751"], 
                    StyleBox[
                    RowBox[{"-", "9.09751`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.09751, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -9.09751}, {
                    5.384615384615385, -322.902164}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -313.804654]& ,
                     TagBoxNote -> "-313.804654"], 
                    StyleBox[
                    RowBox[{"-", "313.804654`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-313.804654, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -322.902164}, {
                    5.384615384615385, -677.367262}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -354.465098]& ,
                     TagBoxNote -> "-354.465098"], 
                    StyleBox[
                    RowBox[{"-", "354.465098`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-354.465098, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    337.79575}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.79575]& , 
                    TagBoxNote -> "337.79575"], 
                    StyleBox["337.79575`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.79575, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 337.79575}, {
                    6.384615384615385, 471.722523}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 133.926773]& , 
                    TagBoxNote -> "133.926773"], 
                    StyleBox["133.926773`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[133.926773, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 471.722523}, {
                    6.384615384615385, 662.944687}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 191.222164]& , 
                    TagBoxNote -> "191.222164"], 
                    StyleBox["191.222164`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[191.222164, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -9.809114}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.809114]& , 
                    TagBoxNote -> "-9.809114"], 
                    StyleBox[
                    RowBox[{"-", "9.809114`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.809114, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -9.809114}, {
                    6.384615384615385, -240.607673}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -230.798559]& ,
                     TagBoxNote -> "-230.798559"], 
                    StyleBox[
                    RowBox[{"-", "230.798559`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-230.798559, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -240.607673}, {
                    6.384615384615385, -460.335464}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -219.727791]& ,
                     TagBoxNote -> "-219.727791"], 
                    StyleBox[
                    RowBox[{"-", "219.727791`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-219.727791, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    323.234935}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 323.234935]& , 
                    TagBoxNote -> "323.234935"], 
                    StyleBox["323.234935`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[323.234935, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 323.234935}, {
                    7.384615384615385, 427.118758}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 103.883823]& , 
                    TagBoxNote -> "103.883823"], 
                    StyleBox["103.883823`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[103.883823, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 427.118758}, {
                    7.384615384615385, 560.048835}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 132.930077]& , 
                    TagBoxNote -> "132.930077"], 
                    StyleBox["132.930077`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[132.930077, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -9.344184}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.344184]& , 
                    TagBoxNote -> "-9.344184"], 
                    StyleBox[
                    RowBox[{"-", "9.344184`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.344184, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -9.344184}, {
                    7.384615384615385, -197.08487200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -187.740688]& , TagBoxNote -> 
                    "-187.740688"], 
                    StyleBox[
                    RowBox[{"-", "187.740688`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-187.740688, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -197.08487200000002`}, {
                    7.384615384615385, -356.537234}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -159.452362]& ,
                     TagBoxNote -> "-159.452362"], 
                    StyleBox[
                    RowBox[{"-", "159.452362`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.452362, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., 273.685362}}, {{2., 270.10405}}, {{
                  3., 268.100364}}, {{5., 201.058108}}, {{6., 202.609223}}, {{
                  7., 203.511601}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -677.367262}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b2\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 13\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2100\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -899.498816}, {
                7.384615384615385, -899.498816}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 424.208054}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 424.208054]& , TagBoxNote -> "424.208054"], 
                    StyleBox["424.208054`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[424.208054, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 424.208054}, {
                    1.3846153846153846`, 926.046433}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 501.838379]& , TagBoxNote -> "501.838379"], 
                    StyleBox["501.838379`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[501.838379, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 926.046433}, {
                    1.3846153846153846`, 1234.2045699999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 308.158137]& , TagBoxNote -> "308.158137"], 
                    StyleBox["308.158137`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[308.158137, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 1234.2045699999999`}, {
                    1.3846153846153846`, 1234.2045699999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 0.]& , TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -92.001081}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -92.001081]& , TagBoxNote -> "-92.001081"], 
                    StyleBox[
                    RowBox[{"-", "92.001081`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-92.001081, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -92.001081}, {
                    1.3846153846153846`, -833.239229}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -741.238148]& , TagBoxNote -> 
                    "-741.238148"], 
                    StyleBox[
                    RowBox[{"-", "741.238148`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-741.238148, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 408.018645}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 408.018645]& , TagBoxNote -> "408.018645"], 
                    StyleBox["408.018645`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[408.018645, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 408.018645}, {
                    2.3846153846153846`, 786.6154429999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 378.596798]& , TagBoxNote -> "378.596798"], 
                    StyleBox["378.596798`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[378.596798, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 786.6154429999999}, {
                    2.3846153846153846`, 1019.5467649999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 232.931322]& , TagBoxNote -> "232.931322"], 
                    StyleBox["232.931322`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[232.931322, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -0.008674}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -0.008674]& , 
                    TagBoxNote -> "-0.008674"], 
                    StyleBox[
                    RowBox[{"-", "0.008674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-0.008674, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -0.008674}, {
                    2.3846153846153846`, -84.369973}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -84.361299]& , TagBoxNote -> "-84.361299"], 
                    StyleBox[
                    RowBox[{"-", "84.361299`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-84.361299, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -84.369973}, {
                    2.3846153846153846`, -647.238471}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -562.868498]& , TagBoxNote -> 
                    "-562.868498"], 
                    StyleBox[
                    RowBox[{"-", "562.868498`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-562.868498, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 396.478525}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 396.478525]& , TagBoxNote -> "396.478525"], 
                    StyleBox["396.478525`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[396.478525, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 396.478525}, {
                    3.3846153846153846`, 708.4047479999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 311.926223]& , TagBoxNote -> "311.926223"], 
                    StyleBox["311.926223`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[311.926223, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 708.4047479999999}, {
                    3.3846153846153846`, 905.7021149999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 197.297367]& , TagBoxNote -> "197.297367"], 
                    StyleBox["197.297367`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[197.297367, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -0.305369}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -0.305369]& , 
                    TagBoxNote -> "-0.305369"], 
                    StyleBox[
                    RowBox[{"-", "0.305369`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-0.305369, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -0.305369}, {
                    3.3846153846153846`, -77.216373}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -76.911004]& , TagBoxNote -> "-76.911004"], 
                    StyleBox[
                    RowBox[{"-", "76.911004`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-76.911004, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -77.216373}, {
                    3.3846153846153846`, -547.728852}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -470.512479]& , TagBoxNote -> 
                    "-470.512479"], 
                    StyleBox[
                    RowBox[{"-", "470.512479`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-470.512479, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    424.430174}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 424.430174]& , 
                    TagBoxNote -> "424.430174"], 
                    StyleBox["424.430174`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[424.430174, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 424.430174}, {
                    5.384615384615385, 985.5776720000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 561.147498]& , TagBoxNote -> "561.147498"], 
                    StyleBox["561.147498`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[561.147498, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 985.5776720000001}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 115.396599]& , 
                    TagBoxNote -> "115.396599"], 
                    StyleBox["115.396599`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[115.396599, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 1100.974271}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                    TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -66.469291}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -66.469291]& , 
                    TagBoxNote -> "-66.469291"], 
                    StyleBox[
                    RowBox[{"-", "66.469291`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-66.469291, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -66.469291}, {
                    5.384615384615385, -899.498816}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -833.029525]& ,
                     TagBoxNote -> "-833.029525"], 
                    StyleBox[
                    RowBox[{"-", "833.029525`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-833.029525, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    409.148947}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.148947]& , 
                    TagBoxNote -> "409.148947"], 
                    StyleBox["409.148947`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[409.148947, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 409.148947}, {
                    6.384615384615385, 855.950332}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 446.801385]& , 
                    TagBoxNote -> "446.801385"], 
                    StyleBox["446.801385`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[446.801385, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 855.950332}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 39.334762]& , 
                    TagBoxNote -> "39.334762"], 
                    StyleBox["39.334762`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[39.334762, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 895.285094}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 0]& , 
                    TagBoxNote -> "0"], 
                    StyleBox["0", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -62.129752}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -62.129752]& , 
                    TagBoxNote -> "-62.129752"], 
                    StyleBox[
                    RowBox[{"-", "62.129752`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-62.129752, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -62.129752}, {
                    6.384615384615385, -693.097152}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -630.9674]& , 
                    TagBoxNote -> "-630.9674"], 
                    StyleBox[
                    RowBox[{"-", "630.9674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-630.9674, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    398.232356}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 398.232356]& , 
                    TagBoxNote -> "398.232356"], 
                    StyleBox["398.232356`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[398.232356, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 398.232356}, {
                    7.384615384615385, 771.819992}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 373.587636]& , 
                    TagBoxNote -> "373.587636"], 
                    StyleBox["373.587636`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[373.587636, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 771.819992}, {
                    7.384615384615385, 790.2512049999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 18.431213]& , TagBoxNote -> "18.431213"], 
                    StyleBox["18.431213`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[18.431213, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -0.157619}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -0.157619]& , 
                    TagBoxNote -> "-0.157619"], 
                    StyleBox[
                    RowBox[{"-", "0.157619`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-0.157619, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -0.157619}, {
                    7.384615384615385, -57.341910999999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -57.184292]& , TagBoxNote -> "-57.184292"], 
                    StyleBox[
                    RowBox[{"-", "57.184292`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-57.184292, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -57.341910999999996`}, {
                    7.384615384615385, -587.689933}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -530.348022]& ,
                     TagBoxNote -> "-530.348022"], 
                    StyleBox[
                    RowBox[{"-", "530.348022`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-530.348022, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {
              Null, Null}, {}, {}, {}}, {{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., 273.685362}}, {{2., 270.10405}}, {{
                  3., 270.10405}}, {{5., 201.475455}}, {{6., 202.187942}}, {{
                  7., 202.561273}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -899.498816}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b3\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 13\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2150\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}]}}, AutoDelete -> False, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
       FormBox[
        TemplateBox[{
          StyleBox[
          "\"E<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]E<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]E<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"CDR<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]CDR<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]CDR<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"NE<2200\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False]}, "SwatchLegend", 
         DisplayFunction -> (FormBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                   "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
               "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[{"SwatchLegend", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.95, 0.95, 0.95], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6333333333333333, 0.6333333333333333, 
                    0.6333333333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.95`", ",", "0.95`", ",", "0.95`"}], "]"}], 
                    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.95, 0.95, 0.95]; 
                    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.95, 0.95, 0.95], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.9, 0.9], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6000000000000001, 0.6000000000000001, 
                    0.6000000000000001], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.9`", ",", "0.9`"}], "]"}], 
                    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.9, 0.9, 0.9]; 
                    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.9, 0.9, 0.9], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.85, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.5666666666666667, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.85`", ",", "0.85`"}], "]"}], 
                    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.85, 0.85, 0.85]; 
                    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.85, 0.85, 0.85], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.75, 0.75, 0.75], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.5, 0.5, 0.5], FrameTicks -> None,
                     PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.75`", ",", "0.75`", ",", "0.75`"}], "]"}], 
                    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.75, 0.75, 0.75]; 
                    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.75, 0.75, 0.75], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.65, 0.65, 0.65], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.43333333333333335`, 0.43333333333333335`, 
                    0.43333333333333335`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.65`", ",", "0.65`", ",", "0.65`"}], "]"}], 
                    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.65, 0.65, 0.65]; 
                    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.65, 0.65, 0.65], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.55, 0.55, 0.55], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3666666666666667, 0.3666666666666667, 
                    0.3666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.55`", ",", "0.55`", ",", "0.55`"}], "]"}], 
                    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.55, 0.55, 0.55]; 
                    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.55, 0.55, 0.55], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                   GrayLevel[0], Editable -> False, Selectable -> False]}], 
                "}"}], ",", 
              RowBox[{"{", 
                
                RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                  ",", #7}], "}"}], ",", 
              RowBox[{"LegendLayout", "\[Rule]", 
                RowBox[{"{", 
                  RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
         Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{
       TagBox[
        GridBox[{{
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -633.451622}, {
                7.384615384615385, -633.451622}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 229.159573}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 229.159573]& , TagBoxNote -> "229.159573"], 
                    StyleBox["229.159573`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[229.159573, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 229.159573}, {
                    1.3846153846153846`, 507.27735199999995`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 278.117779]& , TagBoxNote -> "278.117779"], 
                    StyleBox["278.117779`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[278.117779, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 507.27735199999995`}, {
                    1.3846153846153846`, 935.0907339999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 427.813382]& , TagBoxNote -> "427.813382"], 
                    StyleBox["427.813382`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[427.813382, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -88.488884}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -88.488884]& , TagBoxNote -> "-88.488884"], 
                    StyleBox[
                    RowBox[{"-", "88.488884`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-88.488884, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -88.488884}, {
                    1.3846153846153846`, -290.559733}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -202.070849]& , TagBoxNote -> 
                    "-202.070849"], 
                    StyleBox[
                    RowBox[{"-", "202.070849`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-202.070849, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -290.559733}, {
                    1.3846153846153846`, -605.559069}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -314.999336]& , TagBoxNote -> 
                    "-314.999336"], 
                    StyleBox[
                    RowBox[{"-", "314.999336`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-314.999336, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 201.585666}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 201.585666]& , TagBoxNote -> "201.585666"], 
                    StyleBox["201.585666`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[201.585666, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 201.585666}, {
                    2.3846153846153846`, 408.468861}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 206.883195]& , TagBoxNote -> "206.883195"], 
                    StyleBox["206.883195`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[206.883195, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 408.468861}, {
                    2.3846153846153846`, 716.532074}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 308.063213]& , TagBoxNote -> "308.063213"], 
                    StyleBox["308.063213`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[308.063213, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -60.130062}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -60.130062]& , TagBoxNote -> "-60.130062"], 
                    StyleBox[
                    RowBox[{"-", "60.130062`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-60.130062, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -60.130062}, {
                    2.3846153846153846`, -191.910829}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -131.780767]& , TagBoxNote -> 
                    "-131.780767"], 
                    StyleBox[
                    RowBox[{"-", "131.780767`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-131.780767, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -191.910829}, {
                    2.3846153846153846`, -387.10440700000004`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -195.193578]& , TagBoxNote -> 
                    "-195.193578"], 
                    StyleBox[
                    RowBox[{"-", "195.193578`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-195.193578, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 187.461242}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 187.461242]& , TagBoxNote -> "187.461242"], 
                    StyleBox["187.461242`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[187.461242, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 187.461242}, {
                    3.3846153846153846`, 360.257061}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 172.795819]& , TagBoxNote -> "172.795819"], 
                    StyleBox["172.795819`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[172.795819, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 360.257061}, {
                    3.3846153846153846`, 614.757793}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 254.500732]& , TagBoxNote -> "254.500732"], 
                    StyleBox["254.500732`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[254.500732, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -45.724425}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -45.724425]& , TagBoxNote -> "-45.724425"], 
                    StyleBox[
                    RowBox[{"-", "45.724425`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-45.724425, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -45.724425}, {
                    3.3846153846153846`, -143.761652}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -98.037227]& , TagBoxNote -> "-98.037227"], 
                    StyleBox[
                    RowBox[{"-", "98.037227`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-98.037227, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -143.761652}, {
                    3.3846153846153846`, -285.37087199999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -141.60922]& , TagBoxNote -> "-141.60922"], 
                    StyleBox[
                    RowBox[{"-", "141.60922`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-141.60922, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    261.198012}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 261.198012]& , 
                    TagBoxNote -> "261.198012"], 
                    StyleBox["261.198012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[261.198012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 261.198012}, {
                    5.384615384615385, 504.788541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 243.590529]& , 
                    TagBoxNote -> "243.590529"], 
                    StyleBox["243.590529`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[243.590529, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 504.788541}, {
                    5.384615384615385, 842.185639}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.397098]& , 
                    TagBoxNote -> "337.397098"], 
                    StyleBox["337.397098`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.397098, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -64.157411}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -64.157411]& , 
                    TagBoxNote -> "-64.157411"], 
                    StyleBox[
                    RowBox[{"-", "64.157411`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-64.157411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -64.157411}, {
                    5.384615384615385, -284.68211199999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -220.524701]& , TagBoxNote -> 
                    "-220.524701"], 
                    StyleBox[
                    RowBox[{"-", "220.524701`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-220.524701, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -284.68211199999996`}, {
                    5.384615384615385, -633.451622}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -348.76951]& , 
                    TagBoxNote -> "-348.76951"], 
                    StyleBox[
                    RowBox[{"-", "348.76951`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-348.76951, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    240.277726}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 240.277726]& , 
                    TagBoxNote -> "240.277726"], 
                    StyleBox["240.277726`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[240.277726, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 240.277726}, {
                    6.384615384615385, 407.245041}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 166.967315]& , 
                    TagBoxNote -> "166.967315"], 
                    StyleBox["166.967315`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[166.967315, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 407.245041}, {
                    6.384615384615385, 612.774851}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 205.52981]& , 
                    TagBoxNote -> "205.52981"], 
                    StyleBox["205.52981`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[205.52981, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -43.223418}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -43.223418]& , 
                    TagBoxNote -> "-43.223418"], 
                    StyleBox[
                    RowBox[{"-", "43.223418`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-43.223418, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -43.223418}, {
                    6.384615384615385, -187.172377}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -143.948959]& ,
                     TagBoxNote -> "-143.948959"], 
                    StyleBox[
                    RowBox[{"-", "143.948959`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.948959, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -187.172377}, {
                    6.384615384615385, -403.978961}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -216.806584]& ,
                     TagBoxNote -> "-216.806584"], 
                    StyleBox[
                    RowBox[{"-", "216.806584`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-216.806584, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    229.681401}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 229.681401]& , 
                    TagBoxNote -> "229.681401"], 
                    StyleBox["229.681401`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[229.681401, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 229.681401}, {
                    7.384615384615385, 359.90092300000003`}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 130.219522]& , TagBoxNote -> "130.219522"], 
                    StyleBox["130.219522`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[130.219522, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 359.90092300000003`}, {
                    7.384615384615385, 506.193525}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 146.292602]& , 
                    TagBoxNote -> "146.292602"], 
                    StyleBox["146.292602`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[146.292602, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -32.703541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -32.703541]& , 
                    TagBoxNote -> "-32.703541"], 
                    StyleBox[
                    RowBox[{"-", "32.703541`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-32.703541, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -32.703541}, {
                    7.384615384615385, -139.843163}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -107.139622]& ,
                     TagBoxNote -> "-107.139622"], 
                    StyleBox[
                    RowBox[{"-", "107.139622`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-107.139622, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -139.843163}, {
                    7.384615384615385, -297.37217799999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -157.529015]& , TagBoxNote -> 
                    "-157.529015"], 
                    StyleBox[
                    RowBox[{"-", "157.529015`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-157.529015, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., 329.531664}}, {{2., 329.427667}}, {{
                  3., 329.386922}}, {{5., 208.734018}}, {{6., 208.79589}}, {{
                  7., 208.821347}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -633.451622}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 07\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2050\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1300}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -677.367262}, {
                7.384615384615385, -677.367262}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 325.674968}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 325.674968]& , TagBoxNote -> "325.674968"], 
                    StyleBox["325.674968`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[325.674968, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 325.674968}, {
                    1.3846153846153846`, 448.542909}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 122.867941]& , TagBoxNote -> "122.867941"], 
                    StyleBox["122.867941`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[122.867941, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 448.542909}, {
                    1.3846153846153846`, 927.0318589999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 478.48895]& , TagBoxNote -> "478.48895"], 
                    StyleBox["478.48895`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[478.48895, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -24.433803}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -24.433803]& , TagBoxNote -> "-24.433803"], 
                    StyleBox[
                    RowBox[{"-", "24.433803`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-24.433803, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -24.433803}, {
                    1.3846153846153846`, -359.77948200000003`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -335.345679]& , TagBoxNote -> 
                    "-335.345679"], 
                    StyleBox[
                    RowBox[{"-", "335.345679`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-335.345679, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -359.77948200000003`}, {
                    1.3846153846153846`, -653.346497}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -293.567015]& , TagBoxNote -> 
                    "-293.567015"], 
                    StyleBox[
                    RowBox[{"-", "293.567015`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-293.567015, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 321.840801}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 321.840801]& , TagBoxNote -> "321.840801"], 
                    StyleBox["321.840801`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[321.840801, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 321.840801}, {
                    2.3846153846153846`, 416.461033}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 94.620232]& , TagBoxNote -> "94.620232"], 
                    StyleBox["94.620232`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[94.620232, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 416.461033}, {
                    2.3846153846153846`, 772.2246829999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 355.76365]& , TagBoxNote -> "355.76365"], 
                    StyleBox["355.76365`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[355.76365, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -14.405987}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -14.405987]& , TagBoxNote -> "-14.405987"], 
                    StyleBox[
                    RowBox[{"-", "14.405987`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-14.405987, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -14.405987}, {
                    2.3846153846153846`, -235.18856300000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -220.782576]& , TagBoxNote -> 
                    "-220.782576"], 
                    StyleBox[
                    RowBox[{"-", "220.782576`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-220.782576, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{
                    1.6153846153846154`, -235.18856300000002`}, {
                    2.3846153846153846`, -419.090522}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -183.901959]& , TagBoxNote -> 
                    "-183.901959"], 
                    StyleBox[
                    RowBox[{"-", "183.901959`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-183.901959, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 306.585553}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 306.585553]& , TagBoxNote -> "306.585553"], 
                    StyleBox["306.585553`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[306.585553, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 306.585553}, {
                    3.3846153846153846`, 375.198573}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 68.61302]& , TagBoxNote -> "68.61302"], 
                    StyleBox["68.61302`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[68.61302, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 375.198573}, {
                    3.3846153846153846`, 673.72741}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 298.528837]& , 
                    TagBoxNote -> "298.528837"], 
                    StyleBox["298.528837`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[298.528837, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -12.965717}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -12.965717]& , TagBoxNote -> "-12.965717"], 
                    StyleBox[
                    RowBox[{"-", "12.965717`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-12.965717, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -12.965717}, {
                    3.3846153846153846`, -189.064569}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -176.098852]& , TagBoxNote -> 
                    "-176.098852"], 
                    StyleBox[
                    RowBox[{"-", "176.098852`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-176.098852, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -189.064569}, {
                    3.3846153846153846`, -323.320478}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -134.255909]& , TagBoxNote -> 
                    "-134.255909"], 
                    StyleBox[
                    RowBox[{"-", "134.255909`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-134.255909, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    360.335426}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 360.335426]& , 
                    TagBoxNote -> "360.335426"], 
                    StyleBox["360.335426`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.335426, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 360.335426}, {
                    5.384615384615385, 556.846723}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 196.511297]& , 
                    TagBoxNote -> "196.511297"], 
                    StyleBox["196.511297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[196.511297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 556.846723}, {
                    5.384615384615385, 878.425371}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 321.578648]& , 
                    TagBoxNote -> "321.578648"], 
                    StyleBox["321.578648`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[321.578648, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -9.09751}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.09751]& , 
                    TagBoxNote -> "-9.09751"], 
                    StyleBox[
                    RowBox[{"-", "9.09751`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.09751, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -9.09751}, {
                    5.384615384615385, -322.902164}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -313.804654]& ,
                     TagBoxNote -> "-313.804654"], 
                    StyleBox[
                    RowBox[{"-", "313.804654`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-313.804654, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -322.902164}, {
                    5.384615384615385, -677.367262}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -354.465098]& ,
                     TagBoxNote -> "-354.465098"], 
                    StyleBox[
                    RowBox[{"-", "354.465098`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-354.465098, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    337.79575}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.79575]& , 
                    TagBoxNote -> "337.79575"], 
                    StyleBox["337.79575`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.79575, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 337.79575}, {
                    6.384615384615385, 471.722523}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 133.926773]& , 
                    TagBoxNote -> "133.926773"], 
                    StyleBox["133.926773`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[133.926773, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 471.722523}, {
                    6.384615384615385, 662.944687}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 191.222164]& , 
                    TagBoxNote -> "191.222164"], 
                    StyleBox["191.222164`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[191.222164, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -9.809114}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.809114]& , 
                    TagBoxNote -> "-9.809114"], 
                    StyleBox[
                    RowBox[{"-", "9.809114`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.809114, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -9.809114}, {
                    6.384615384615385, -240.607673}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -230.798559]& ,
                     TagBoxNote -> "-230.798559"], 
                    StyleBox[
                    RowBox[{"-", "230.798559`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-230.798559, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -240.607673}, {
                    6.384615384615385, -460.335464}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -219.727791]& ,
                     TagBoxNote -> "-219.727791"], 
                    StyleBox[
                    RowBox[{"-", "219.727791`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-219.727791, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    323.234935}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 323.234935]& , 
                    TagBoxNote -> "323.234935"], 
                    StyleBox["323.234935`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[323.234935, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 323.234935}, {
                    7.384615384615385, 427.118758}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 103.883823]& , 
                    TagBoxNote -> "103.883823"], 
                    StyleBox["103.883823`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[103.883823, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 427.118758}, {
                    7.384615384615385, 560.048835}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 132.930077]& , 
                    TagBoxNote -> "132.930077"], 
                    StyleBox["132.930077`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[132.930077, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -9.344184}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.344184]& , 
                    TagBoxNote -> "-9.344184"], 
                    StyleBox[
                    RowBox[{"-", "9.344184`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.344184, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -9.344184}, {
                    7.384615384615385, -197.08487200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -187.740688]& , TagBoxNote -> 
                    "-187.740688"], 
                    StyleBox[
                    RowBox[{"-", "187.740688`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-187.740688, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -197.08487200000002`}, {
                    7.384615384615385, -356.537234}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -159.452362]& ,
                     TagBoxNote -> "-159.452362"], 
                    StyleBox[
                    RowBox[{"-", "159.452362`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.452362, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., 357.92284}}, {{2., 353.13416}}, {{3.,
                   350.406932}}, {{5., 201.058108}}, {{6., 202.609223}}, {{7.,
                   203.511601}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -677.367262}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b2\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 07\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2100\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1300}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -899.498816}, {
                7.384615384615385, -899.498816}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 432.284731}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 432.284731]& , TagBoxNote -> "432.284731"], 
                    StyleBox["432.284731`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[432.284731, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 432.284731}, {
                    1.3846153846153846`, 995.2717399999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 562.987009]& , TagBoxNote -> "562.987009"], 
                    StyleBox["562.987009`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[562.987009, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 995.2717399999999}, {
                    1.3846153846153846`, 1274.441641}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 279.169901]& , TagBoxNote -> "279.169901"], 
                    StyleBox["279.169901`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[279.169901, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 1274.441641}, {
                    1.3846153846153846`, 1274.441641}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                    TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -68.023789}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -68.023789]& , TagBoxNote -> "-68.023789"], 
                    StyleBox[
                    RowBox[{"-", "68.023789`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-68.023789, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -68.023789}, {
                    1.3846153846153846`, -774.694757}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -706.670968]& , TagBoxNote -> 
                    "-706.670968"], 
                    StyleBox[
                    RowBox[{"-", "706.670968`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-706.670968, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 418.694818}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 418.694818]& , TagBoxNote -> "418.694818"], 
                    StyleBox["418.694818`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[418.694818, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 418.694818}, {
                    2.3846153846153846`, 865.605481}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 446.910663]& , TagBoxNote -> "446.910663"], 
                    StyleBox["446.910663`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[446.910663, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 865.605481}, {
                    2.3846153846153846`, 1071.035989}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 205.430508]& , TagBoxNote -> "205.430508"], 
                    StyleBox["205.430508`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[205.430508, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 1071.035989}, {
                    2.3846153846153846`, 1071.035989}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                    TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -63.502404}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -63.502404]& , TagBoxNote -> "-63.502404"], 
                    StyleBox[
                    RowBox[{"-", "63.502404`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-63.502404, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -63.502404}, {
                    2.3846153846153846`, -596.5668039999999}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -533.0644]& , TagBoxNote -> "-533.0644"], 
                    StyleBox[
                    RowBox[{"-", "533.0644`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-533.0644, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 409.041691}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 409.041691]& , TagBoxNote -> "409.041691"], 
                    StyleBox["409.041691`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[409.041691, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 409.041691}, {
                    3.3846153846153846`, 787.487531}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 378.44584]& , TagBoxNote -> "378.44584"], 
                    StyleBox["378.44584`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[378.44584, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 787.487531}, {
                    3.3846153846153846`, 961.949303}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 174.461772]& , TagBoxNote -> "174.461772"], 
                    StyleBox["174.461772`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[174.461772, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 961.949303}, {
                    3.3846153846153846`, 961.949303}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                    TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -58.508033}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -58.508033]& , TagBoxNote -> "-58.508033"], 
                    StyleBox[
                    RowBox[{"-", "58.508033`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-58.508033, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -58.508033}, {
                    3.3846153846153846`, -502.155992}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -443.647959]& , TagBoxNote -> 
                    "-443.647959"], 
                    StyleBox[
                    RowBox[{"-", "443.647959`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-443.647959, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    424.430174}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 424.430174]& , 
                    TagBoxNote -> "424.430174"], 
                    StyleBox["424.430174`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[424.430174, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 424.430174}, {
                    5.384615384615385, 985.5776720000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 561.147498]& , TagBoxNote -> "561.147498"], 
                    StyleBox["561.147498`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[561.147498, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 985.5776720000001}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 115.396599]& , 
                    TagBoxNote -> "115.396599"], 
                    StyleBox["115.396599`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[115.396599, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 1100.974271}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                    TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -66.469291}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -66.469291]& , 
                    TagBoxNote -> "-66.469291"], 
                    StyleBox[
                    RowBox[{"-", "66.469291`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-66.469291, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -66.469291}, {
                    5.384615384615385, -899.498816}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -833.029525]& ,
                     TagBoxNote -> "-833.029525"], 
                    StyleBox[
                    RowBox[{"-", "833.029525`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-833.029525, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    409.148947}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.148947]& , 
                    TagBoxNote -> "409.148947"], 
                    StyleBox["409.148947`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[409.148947, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 409.148947}, {
                    6.384615384615385, 855.950332}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 446.801385]& , 
                    TagBoxNote -> "446.801385"], 
                    StyleBox["446.801385`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[446.801385, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 855.950332}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 39.334762]& , 
                    TagBoxNote -> "39.334762"], 
                    StyleBox["39.334762`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[39.334762, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 895.285094}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 0]& , 
                    TagBoxNote -> "0"], 
                    StyleBox["0", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -62.129752}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -62.129752]& , 
                    TagBoxNote -> "-62.129752"], 
                    StyleBox[
                    RowBox[{"-", "62.129752`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-62.129752, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -62.129752}, {
                    6.384615384615385, -693.097152}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -630.9674]& , 
                    TagBoxNote -> "-630.9674"], 
                    StyleBox[
                    RowBox[{"-", "630.9674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-630.9674, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    398.232356}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 398.232356]& , 
                    TagBoxNote -> "398.232356"], 
                    StyleBox["398.232356`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[398.232356, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 398.232356}, {
                    7.384615384615385, 771.819992}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 373.587636]& , 
                    TagBoxNote -> "373.587636"], 
                    StyleBox["373.587636`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[373.587636, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 771.819992}, {
                    7.384615384615385, 790.2512049999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 18.431213]& , TagBoxNote -> "18.431213"], 
                    StyleBox["18.431213`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[18.431213, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -0.157619}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -0.157619]& , 
                    TagBoxNote -> "-0.157619"], 
                    StyleBox[
                    RowBox[{"-", "0.157619`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-0.157619, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -0.157619}, {
                    7.384615384615385, -57.341910999999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -57.184292]& , TagBoxNote -> "-57.184292"], 
                    StyleBox[
                    RowBox[{"-", "57.184292`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-57.184292, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -57.341910999999996`}, {
                    7.384615384615385, -587.689933}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -530.348022]& ,
                     TagBoxNote -> "-530.348022"], 
                    StyleBox[
                    RowBox[{"-", "530.348022`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-530.348022, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {
              Null, Null, Null, Null}, {}, {}, {}}, {{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., 357.92284}}, {{2., 353.13416}}, {{3.,
                   353.13416}}, {{5., 201.475455}}, {{6., 202.187942}}, {{7., 
                  202.561273}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -899.498816}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b3\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 07\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2150\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1300}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}]}}, AutoDelete -> False, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
       FormBox[
        TemplateBox[{
          StyleBox[
          "\"E<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]E<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]E<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"CDR<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]CDR<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]CDR<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"NE<2200\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False]}, "SwatchLegend", 
         DisplayFunction -> (FormBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                   "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
               "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[{"SwatchLegend", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.95, 0.95, 0.95], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6333333333333333, 0.6333333333333333, 
                    0.6333333333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.95`", ",", "0.95`", ",", "0.95`"}], "]"}], 
                    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.95, 0.95, 0.95]; 
                    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.95, 0.95, 0.95], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.9, 0.9], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6000000000000001, 0.6000000000000001, 
                    0.6000000000000001], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.9`", ",", "0.9`"}], "]"}], 
                    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.9, 0.9, 0.9]; 
                    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.9, 0.9, 0.9], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.85, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.5666666666666667, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.85`", ",", "0.85`"}], "]"}], 
                    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.85, 0.85, 0.85]; 
                    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.85, 0.85, 0.85], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.75, 0.75, 0.75], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.5, 0.5, 0.5], FrameTicks -> None,
                     PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.75`", ",", "0.75`", ",", "0.75`"}], "]"}], 
                    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.75, 0.75, 0.75]; 
                    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.75, 0.75, 0.75], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.65, 0.65, 0.65], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.43333333333333335`, 0.43333333333333335`, 
                    0.43333333333333335`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.65`", ",", "0.65`", ",", "0.65`"}], "]"}], 
                    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.65, 0.65, 0.65]; 
                    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.65, 0.65, 0.65], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.55, 0.55, 0.55], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3666666666666667, 0.3666666666666667, 
                    0.3666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.55`", ",", "0.55`", ",", "0.55`"}], "]"}], 
                    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.55, 0.55, 0.55]; 
                    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.55, 0.55, 0.55], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                   GrayLevel[0], Editable -> False, Selectable -> False]}], 
                "}"}], ",", 
              RowBox[{"{", 
                
                RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                  ",", #7}], "}"}], ",", 
              RowBox[{"LegendLayout", "\[Rule]", 
                RowBox[{"{", 
                  RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
         Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.825216637473057*^9, {3.8252167222931776`*^9, 3.825216746501213*^9}},
 CellLabel->
  "Out[765]=",ExpressionUUID->"105d134d-ac4e-4379-90fe-e8a0a1bce9ea"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<FigureSI6B.tiff\>\"", ",", "FigureSI6B"}], "]"}]], "Input",
 CellChangeTimes->{{3.825216760685233*^9, 3.8252167786632586`*^9}},
 CellLabel->
  "In[766]:=",ExpressionUUID->"43984db0-99f8-4d5c-907b-d62718713c10"],

Cell[BoxData["\<\"FigureSI6B.tiff\"\>"], "Output",
 CellChangeTimes->{3.82521678546727*^9},
 CellLabel->
  "Out[766]=",ExpressionUUID->"bbaac5e3-6a73-4ac6-8209-bfe4c62bc312"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IOVD16low", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"osD16low", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"44", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"osD16low", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"44", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"osD16low", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "44"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Black", ",", "Black", ",", "Black"}], "}"}]}], ",", 
    RowBox[{"Filling", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"2", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "1", "}"}], ",", 
         RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2015", ",", "2152"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.4"}], ",", "0.6"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"True", ",", "False"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
    RowBox[{"FrameTicks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.3"}], ",", "0", ",", "0.3"}], "}"}], ",", "None"}],
         "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2050", ",", "2100", ",", "2150"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", "0", ",", "1.0"}], "}"}]}], "}"}]}], 
      "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<\[Degree]C\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.10", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<a2: DICE2016\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<The Dive\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.75", ",", "0.45"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<-10y\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.5", ",", "0.70"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<+10y\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.5", ",", "0.20"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.825424638401723*^9, 3.8254246448852324`*^9}},
 CellLabel->
  "In[1051]:=",ExpressionUUID->"43ce3214-9bf1-4f37-970c-1fc1b242a0b8"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt2PtXzPkfwPFum6gUdrNufeWaWEsRFfVeRDdZ1crmsswmpGS7WKUvLSmW
Ulaayne8lGpWJN1LdJHpIkWLanVjRbb6SojNpX3xen/3rM9fsOd75vPDzHmc
M03N9J7nec1LT+TlsEFJQUFhGt68u39/DQWm8PfrY2BpbVEdnkaWFu+tA6yv
R6kzwfF78qfAMhZtjLHUDyGPBNZtbz4/e0MEeTSwFIuSGesqosi6wMT7tttn
sDjy2P89HsjjgI0os+pVm51AngDsoJd+YPbgJPIkYAc0UnaMfyol6wNbIZJE
Zd5LIRsA+yb9ybqDTankacCUgrUmuvSkkacD64iIu6samE6eAcz5Cw3fLvVM
siGwfV2Tvw0UZ5FnAZuwMPzsRrUcsjGwFqOhJ4d45JLnAnusHPFraUUe2RRY
UPfJRba6F8jzgOV5+FYv+66AbA5sdq2Dv1nJRTID1hQzMMRHs5C8AFhshnmb
eFoReRGwErs7hem13IuBTT9tuWimfzHZCpj6wE/XNI8uIdsA8+reV+FUzG0H
zGSXdJbI7TLZHtjNp1un6WuUkr8E1ha0ZqkkndsBmGRHtY62yxWyE7ATR601
PRVk5BXABvVkRHYkca8EtlI6+5qZfRnZBdhH7jN3iHu5VwNLfJ6j0nqinLwW
WP/qWa7zbCrI64Dl1BgYJT7nFgEz0B1+a1x8JdkVmMajbm3ZsqtkN3w/FWbZ
RL/l3gTsXmWDWcLZKrI7sKEz8gtMVl8jewDbfemzlafVq8lbgSn+MdRgbgH3
NmDnOoZ3hnjWkL2BFb8JGqCqfZ3sC8wm1iIpazP3dmB75l0I7LjMvQPYsarz
BSm6N8gBwE4Ve3re9ecOBPbuv5N6i3sXvr4wccPDmbXkIDx/Kv2rKsK59wCL
c/Zbod7JHYy/7/SNFEWbX8ghwBye7F7iJOXeD+zKnI/NVw24Sf4R2DjvvoBL
btyHgJ12VZDek3GHA9tiGfdb46Rb5Ahgkw6+OmwXyn0E2AOzlweU27mPYg/C
ahN3W98mHwP2L2trrYUp3GJg7hdbNpVp1pFjgel4hvvEbeM+jufFLtlv1E1u
CbDK5LJsjbn1ZADWPHdK1c7j3PHABg+Zk3xEsYF8Cp/PY7yk0407CVhWke6w
Kde4pfj+vKnL22z0K/k0sCPVReVXY7nP4Odtbb61htIdciqwBNMx5QHu3GnY
k7WLzzfWcqcDE9n17Zwyr5GcieezU7s/LZE7G5i3UWNQjVYTORdYV3eda1gA
dz6wz4vMTf3auAuA+VUmjFq/vJl8CVhMj5505EXuImDL/H3HTzNoIZfgeR7T
aq0ezV0KzNa0sthDqZUsA2ZxeLnE34S7HJiTrLAmdxt3JbAn/xE/F0m5q4Ad
fdk4sLeFG/se1pUFL2RFl94b+x5Vn3Wx6cjowvfGvhsYP/Ar1TMjY99jvvV3
nr/Onox9n6H17hW4kLHvsvhHna7bXMnY9zHf2wzo6PcgY99TXGqXD3bzIWPf
rZIWJj9s2kHGvm+9rK+m27KLjH3vya7dknF+Dxn7vjF76rNiwxAy9t1u7jMd
rccHyNh3f79wxYaOMDL2PSPaM/nskEgy9t03JlbFy+onMvbdxzZF77vDUWTs
+4K1WpOulEWTse+ueqYq4SqxZOy71/S32ZOtjpOx74YPUife3yshY98rzjTf
3b4JyNj3ncXJJv6RJ8nY98K8woDGnHgy9t0nWON+Q1sCGfte93m95h2dRDL2
/Z7ZzI4rXyaRse93EjVDE39IJmPfK93zJe35UjL2vb+6t13zxc9k7LvWEudH
/zVNIWPfV+jXvjm+5wwZ+145PDMi6MZZMvb9o8t5ISNGniNj339XrjALNUwj
Y98tvtqnKmrgxr7PWW7rMzX4PBn73hcT0DRuRjoZ+74+LOORWis39t1q69L8
zyIzyNh3C7PWfNHiTDL23ePY1cUPX3Nj35/OyzXbkpNFxr43p0YnqW3LJmPf
V6vI+lQn5ZCx77L9i05uaOLGvrfvD4x2iM4lY99Xrc1rNnbMI2Pfxw58tX3o
kHwy9t3xetfEsBvc2PfYhQ7qE3+6QMa+v5j/+znnlQVk7Hvk+k+8XHUvkrHv
b5e8O9Dc2PeOUeJG/fRLZOz7qzOGji67C8nYdyeTrikmk4vI2PfpzhbGFYe5
se8HRD2q4j+4se/vTudk12Iy9v3x13WbTK5zY9/7LAf2qc8vIWPf4ztKtKqT
ubHvxm2DHnsPuUzGvrPegBdlO7mx7z9ELTzo8ZAb+/4s1E2y2rGUjH0PfW20
92URN/bdzLG9QDb9Chn7bjWy8baOhBv7rvLwkH6XpoyMfc/4d/mq1F3c2Pcb
EU/0o7q5se+7yrrra0RlZOx7/9gjemW3ubHv34jtPjlkU07Gvtf1brf1LuLG
vv8Sb14xxriCjH3Pujdq0Imz3Nh3Jdf2+i8mVpKx71MTImumSrix73fcb49o
GX6VjH0/puaEfwI39t1+cdT6Rs0qMva9YEL1j9ID3Nj3LBkMWzDgGhn7PjNb
+z4Ec2PfXWwVN/crV5Ox73tbn3St2cuNfQ81KoxVVqkhY9+HaenHee/jxr5L
LDydkpWvk7Hvm9pPtIosubHvW3Zv3PkshDvwBFP4+xUkcLDA+wU+JHCEwEcF
Fgt8XGAQ+JTAUoHPCJwmcKbAuQIXCFwkcKnA5QJXCXxd4JsC1wvcKHCrwPcF
bhe4U+BugZ8J/FLg1wIrCL7PKQmsIrCqwGoCDxJYQ+DBwDaP+Wqptp8WzRva
wEyVcr8uWGn11/yhomjo2wmiv/zBz8vnEfk8Ip9H5POIfB75/5hH5PtE+T5R
vk+U7xPl+0SyfJ8on9/l87t8fpfP72T5/P7Pnt/l+8QPLd8nfuh/0D7xT/dc
vCs=
    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
      {GrayLevel[0.85], LineBox[{95, 232}], LineBox[{2, 233}], 
       LineBox[{3, 234}], LineBox[{4, 235}], LineBox[{5, 236}], 
       LineBox[{6, 237}], LineBox[{7, 238}], LineBox[{8, 239}], 
       LineBox[{9, 240}], LineBox[{10, 241}], LineBox[{11, 242}], 
       LineBox[{12, 243}], LineBox[{13, 244}], LineBox[{14, 245}], 
       LineBox[{15, 246}], LineBox[{16, 247}], LineBox[{17, 248}], 
       LineBox[{18, 249}], LineBox[{19, 250}], LineBox[{20, 251}], 
       LineBox[{21, 252}], LineBox[{22, 253}], LineBox[{23, 254}], 
       LineBox[{24, 255}], LineBox[{25, 256}], LineBox[{26, 257}], 
       LineBox[{27, 258}], LineBox[{28, 259}], LineBox[{29, 260}], 
       LineBox[{30, 261}], LineBox[{31, 262}], LineBox[{32, 263}], 
       LineBox[{33, 264}], LineBox[{34, 265}], LineBox[{35, 266}], 
       LineBox[{36, 267}], LineBox[{37, 268}], LineBox[{38, 269}], 
       LineBox[{39, 270}], LineBox[{40, 271}], LineBox[{41, 272}], 
       LineBox[{42, 273}], LineBox[{43, 274}], LineBox[{44, 275}], 
       LineBox[{45, 276}], LineBox[{46, 277}], LineBox[{47, 278}], 
       LineBox[{48, 279}], LineBox[{49, 280}], LineBox[{50, 281}], 
       LineBox[{51, 282}], LineBox[{52, 283}], LineBox[{53, 284}], 
       LineBox[{54, 285}], LineBox[{55, 286}], LineBox[{56, 287}], 
       LineBox[{57, 288}], LineBox[{58, 289}], LineBox[{59, 290}], 
       LineBox[{60, 291}], LineBox[{61, 292}], LineBox[{62, 293}], 
       LineBox[{63, 294}], LineBox[{64, 295}], LineBox[{65, 296}], 
       LineBox[{66, 297}], LineBox[{67, 298}], LineBox[{68, 299}], 
       LineBox[{69, 300}], LineBox[{70, 301}], LineBox[{71, 302}], 
       LineBox[{72, 303}], LineBox[{73, 304}], LineBox[{74, 305}], 
       LineBox[{75, 306}], LineBox[{76, 307}], LineBox[{77, 308}], 
       LineBox[{78, 309}], LineBox[{79, 310}], LineBox[{80, 311}], 
       LineBox[{81, 312}], LineBox[{82, 313}], LineBox[{83, 314}], 
       LineBox[{84, 315}], LineBox[{85, 316}], LineBox[{86, 317}], 
       LineBox[{87, 318}], LineBox[{88, 319}], LineBox[{89, 320}], 
       LineBox[{90, 321}], LineBox[{91, 322}], LineBox[{92, 323}], 
       LineBox[{93, 324}], LineBox[{94, 325}]}}, {
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJwVztk2QgEAQNHbp/gZU4iSMUVkJplCElLIrBAZwo/aHvZa5/F0pLPR9VAQ
BEk6RRfd9NBLmD76GSDCIENEiTFMnBFGGWOcCSZJMEWSFNPMkGaWOTLMs8Ai
Syyzwipr/I9m2SDHJltss8MuefbY54AChxQ5osQxJ5xS5owKVc654JIaV1xz
wy133PPAI3UaPPHMC01eeaPFOx988kWbb3745Q/rlS03
        "]]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJwV0Nc6AmAAgOE/d+KWXIADF8BNoSTZq4xQ2Ss7svcmGZmvg/d5vuOvtqGp
rjESQqinWbTQSpQYbcRpJ0EHSTrpopseeumjnwEGGWKYFGlGGGWMcTJMMMkU
WXLkmWaGWeaYZ4FFllhmhVUKrLHOBptssc0ORXbZo8Q+BxxyxDEnnHLGORdc
csU1N9xyxz0PPPLEM2VeqPDKG+98UOWTL7754fd/ek0IEf4Afx1NvQ==
        "]]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[{514, 515, 516, 517, 518, 519, 520, 521, 522, 523, 524, 525, 
        526, 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 
        540, 541, 542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 552, 553, 
        554, 555, 556}]}}, {
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
       1.6]}, {}, {}, {}, {}, {}, {}, {}}, {
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
       1.6]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{2015., 0},
  DisplayFunction->Identity,
  Epilog->{
    InsetBox[
     FormBox[
      StyleBox[
      "\"\[Degree]C\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.1, 0.9}]], {0, 0}], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"a2: DICE2016\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.9}]], {0, 0}], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"The Dive\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.75, 0.45}]], {0, 0}], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.7}]], {0, 0}], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.2}]], {0, 0}]},
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{{{-0.3, 
       FormBox[
        RowBox[{"-", "0.3`"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {0.3, 
       FormBox["0.3`", TraditionalForm]}}, None}, {{{2050, 
       FormBox["2050", TraditionalForm]}, {2100, 
       FormBox["2100", TraditionalForm]}, {2150, 
       FormBox["2150", TraditionalForm]}}, {{-0.5, 
       FormBox[
        RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {1., 
       FormBox["1.`", TraditionalForm]}}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
    GrayLevel[0]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2015, 2152}, {-0.4, 0.6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.824543218829271*^9, 3.824620261216247*^9, 
  3.8247435591031394`*^9, 3.825216789468275*^9, 3.8254246455952334`*^9},
 CellLabel->
  "Out[1051]=",ExpressionUUID->"f16e7ea1-b704-4075-9dfe-a12ff00b7e89"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"IOVFGlow", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"osFGlow", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"44", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"osFGlow", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"42", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"osFGlow", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "44"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Black", ",", "Black", ",", "Black"}], "}"}]}], ",", 
    RowBox[{"Filling", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"2", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", "1", "}"}], ",", 
         RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"2015", ",", "2152"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.4"}], ",", "0.6"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
    RowBox[{"Frame", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"True", ",", "False"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"LabelStyle", "\[Rule]", 
     RowBox[{"Directive", "[", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
    RowBox[{"FrameTicks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"None", ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2050", ",", "2100", ",", "2150"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "0.5"}], ",", "0", ",", "1.0"}], "}"}]}], "}"}]}], 
      "}"}]}], ",", 
    RowBox[{"Epilog", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<\[Degree]C\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.10", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<a3: FaIR-Geoffroy\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.60", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<The Dive\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.75", ",", "0.5"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<-10y\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.5", ",", "0.70"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<+10y\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.5", ",", "0.30"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8254246564537487`*^9, 3.825424663426759*^9}},
 CellLabel->
  "In[1052]:=",ExpressionUUID->"615ae9c5-bad7-4966-b418-1dc2f557eb40"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt2PtXzfkawPGajMmlpDXHVBJjDI1LdG+Sesbp4lIiCpVKd1HGoHSRMqb2
GN3cD0aPKYdEQkK5hBhiSCoyMVEWznTOCSc7k3IePZ9mTZ+/YGat/f2h1uuH
ffl892e/e/p8HLjUI+Q9NTW1CfTj3e+uSxeheKB7tHnOGocuf4hg1/atxlNl
GnsQwqNCi5Ycg61sPYTxuRf/rufwPdsA4VhL63ETyx/YhggzL6X5XL+5l22E
0OKepxuyNI89DOHTFdvK5w88xB6OYDnZYfZhn0L2CATri1ptbyYcZY9E0J90
onKLZhHbGKFhWvSSXo+Os0cj3Jk+u5fNmRPssQibOv36Dthxim2CcCHcq3hA
bCl7AsKta8ZbfbzPsM0QnuYq0w5POse2QIgvswuuSC1jWyFEtx80m+19nm2D
sPHJb/aGIy6wbRHG+W976HBf2A4h3y9x39UNF9n2CF9tCM6YaV7OBoTp3s+1
vrkpPBkh7dgzzYbQS2xHBEc9h7T4l8LO9HmEolnn6svsKQi2RuYz9d8KT6P7
2249fkbCj2xXhIlDrsRFtArPQJifYlN7KfIKeyZCxINl69ObhD0QJmnpjVjt
fZU9B0HH7uyZxZXCXggnjjqG/cOpgj0PweOl54sjpcLe9P5MDjg5ml5j+yK4
pTS+7r9f2A9hwQPDghqj6+wAhFG6rpbHtgoHIoQvyHkMA35iByNUBxikZCiE
QxEUQQvqnTVusMMRXvTe/lo7UTgC4WGV6RP9duEltN7UnPwVMTfZUQg2Z75T
Nr4S/hJhimWzsty2kv0VQofpIbegeOEVCJ9FW2i3lgpHIwzepUiM7BBehfDJ
7uZQZ4db7DiENsN56ZnJwgkISf2HTNxfLpyIYNWUrV/+QRU7CSEy7+vTRq7C
axGWDdZqGJcpvA5BO3Vv8tAa4RSEval7aq7q32Yr6P4kH9zn5S+8HiEzO83X
eq/wBoSsZLvShF+F0xGcqh2zM8yq2ZkIH+3etj4tVngjwiLP6bYV54U3I6ip
L64p6FPD3kqPX5sXWushvB3B9UDxzoadwjsQEtc3luU/Ft6FsMMvcOzt8bXs
3QgBP6mv/TxOGBECQyxexF4S/oH2f5zCOUbnDjsXIaY2qrTSV/ifCOpKuzX3
9gvvR5j1+s6LilbhAwhhWg/mPp58l32Qvv8dLy0CMoULEDSHrOiT+kC4EKFJ
18VIMbaOfZT2Z+SlzqPxwkW0f/72cGROhXAxQkjnLetFBvfYJ2k/vR5nOz9C
uARh+0cBQ78vET6N8EXIm/YN/X5mn0W4Unnk62m+wmUIBt9WaloVCF+g91/r
AffeCpcjbEloNpnpUc++jPCdxXPtllzhKwhjUgfV3VAKVyAos3w2RU2/z75O
683q/3nxbmFt+jz/eOlI1pX8oeRBkvUkG0g2lGwkmfqf9u/jqLxcdrbL1P/n
4Y2K423VbOr/nCadZctH17FHSo83ljxa8ljJJpInSDaTbCHZSrKNZFvJdpLt
JUP3+ht4fdT/fO+qWdqhGue6TP0PdT1vEHZ7IJv6/8SiX9HEXD029f+Ev/18
U98hbOr/m7znVW6Bw9jUf2XGN091bIazqf8vV+p33tYawab++/Q7Vnlj0Ui2
R/fzG7Op/+4VuSlWamPYXt2vN45N/f8tQH9wSd14NvV/qGlc1J4xpmzqf0GY
5o9j483Y1H/3p62jnp8yZ1P/HxitS0roY8mm/jfPiNm96oYVm/o/KckpsUNn
Ipv6Hx9W5Dk12IFN/V+wL2trxc9fsKn//6p8Fms9yJFN/S8bfi5RoeXMpv4f
DfpE5/CvLmzq/97cd0Gdyqb+p8PpAv/C6Wzqv8cUs/yYk27s6O71urOp/24R
4RqF6rPY1H/DEY6v1w7yYFP/G21aIk6Zz2ZT/02GFRmddZ3Dpv4vDZwyY2SU
J5v6fyS3fnV6hheb+n8txXKL08K5bOp/nw7XM1ED57Gp//Y3LBa2XxWm/i/P
NnxfsXY+m/rfGvwuWN5s6n+fqNwlWUU+bOr/nqmBU0+1+7Kp/wcP3fWPdvdj
U/8nNoWeVM/2Z1P/G0oCnVfFB7Cp/zkaGwuXjlrI3tG9X4Wp/0/ym4JikgPZ
1P84z7DjZUZBbOq/1ttnvfueFqb+P8paFWs7N5hN/Tf3+G/erlfC1P91uqH3
OreEsKn/1VX1fRdahrKp/415Lgb1tcLU/8iCHU8UCWFs6v945dVZScbhbOq/
5Wfv3/erEqb+ty2zcPFKXMSm/peUBB1xGx3Bpv6v1tg02KlWmPrfGVgc7Llu
MZv6v+ZC3aEQsyVs6v/bjzterWwQpv4nJQ+DlPRINvX/rNI6/LB9FJv6/ybS
PfPuf4TLu+//Ujb1f6fNqV/2GH/Jpv6XvCxfXpwkTP23KZkWc6dOmPo/b6VX
v2bTZWI/ZoPaH68kyeskKyRvkJwpebPk7ZJ3SUbJuZL3Sz4ouVBykeSTkk9L
LpNcLvmK5OuSKyVXS74ruV5yg+QmyU8lN0tukfw/yW2S30hWk/4evSe5l+Te
kjURHPKvb6795ZF9l/siOBcNmR0T4sLzRn/qUY2dS1Np8O/zx6cfNEe82LyS
TfMHXkyIVX+VzKb5o13jcfHqjPW/W/5/tMfrq+aRnlbNI6p5RDWPqOaRv8o8
ojpvVJ03qs4bVeeNqvNGtuq8sadV831Pq+Z71Xyvmu9V8/1fZb5XnTf2tOq8
saf/ROeN/wdyCqSx
    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
      {GrayLevel[0.85], LineBox[{97, 234}], LineBox[{2, 235}], 
       LineBox[{3, 236}], LineBox[{4, 237}], LineBox[{5, 238}], 
       LineBox[{6, 239}], LineBox[{7, 240}], LineBox[{8, 241}], 
       LineBox[{9, 242}], LineBox[{10, 243}], LineBox[{11, 244}], 
       LineBox[{12, 245}], LineBox[{13, 246}], LineBox[{14, 247}], 
       LineBox[{15, 248}], LineBox[{16, 249}], LineBox[{17, 250}], 
       LineBox[{18, 251}], LineBox[{19, 252}], LineBox[{20, 253}], 
       LineBox[{21, 254}], LineBox[{22, 255}], LineBox[{23, 256}], 
       LineBox[{24, 257}], LineBox[{25, 258}], LineBox[{26, 259}], 
       LineBox[{27, 260}], LineBox[{28, 261}], LineBox[{29, 262}], 
       LineBox[{30, 263}], LineBox[{31, 264}], LineBox[{32, 265}], 
       LineBox[{33, 266}], LineBox[{34, 267}], LineBox[{35, 268}], 
       LineBox[{36, 269}], LineBox[{37, 270}], LineBox[{38, 271}], 
       LineBox[{39, 272}], LineBox[{40, 273}], LineBox[{41, 274}], 
       LineBox[{42, 275}], LineBox[{43, 276}], LineBox[{44, 277}], 
       LineBox[{45, 278}], LineBox[{46, 279}], LineBox[{47, 280}], 
       LineBox[{48, 281}], LineBox[{49, 282}], LineBox[{50, 283}], 
       LineBox[{51, 284}], LineBox[{52, 285}], LineBox[{53, 286}], 
       LineBox[{54, 287}], LineBox[{55, 288}], LineBox[{56, 289}], 
       LineBox[{57, 290}], LineBox[{58, 291}], LineBox[{59, 292}], 
       LineBox[{60, 293}], LineBox[{61, 294}], LineBox[{62, 295}], 
       LineBox[{63, 296}], LineBox[{64, 297}], LineBox[{65, 298}], 
       LineBox[{66, 299}], LineBox[{67, 300}], LineBox[{68, 301}], 
       LineBox[{69, 302}], LineBox[{70, 303}], LineBox[{71, 304}], 
       LineBox[{72, 305}], LineBox[{73, 306}], LineBox[{74, 307}], 
       LineBox[{75, 308}], LineBox[{76, 309}], LineBox[{77, 310}], 
       LineBox[{78, 311}], LineBox[{79, 312}], LineBox[{80, 313}], 
       LineBox[{81, 314}], LineBox[{82, 315}], LineBox[{83, 316}], 
       LineBox[{84, 317}], LineBox[{85, 318}], LineBox[{86, 319}], 
       LineBox[{87, 320}], LineBox[{88, 321}], LineBox[{89, 322}], 
       LineBox[{90, 323}], LineBox[{91, 324}], LineBox[{92, 325}], 
       LineBox[{93, 326}], LineBox[{94, 327}]}}, {
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJwVztc6ggEAgOHfpbgbIhTJDCnZoYwikp2RXUZGcp9eB+/zfIdfZzIbXe0I
giBBl+gmRA+9hOmjnwEiRBlkiBjDxBlhlDHGmWCSBFNMM0OSWVKkmSPDPAss
ssQyK/wPZlljnQ1y5Nlki212KFBklz1K7HNAmUMqHHHMCaeccc4FVS654pob
atxyxz0PPPLEM3UavPDKG+80+eCTL75p8UObX/4Adywt8w==
        "]]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJwV0Oc2AmAAgOGvcCFuyRU4LoC7KmSvZGWUPbNF9t5EiHj8eM55f7+1DU11
jZEQQj0xEaeZFlpJ0EY7HXTSRTc99NJHPwMkGSTFEMOMMMoYacaZYJIpMmSZ
ZoZZ5phngUWWWGaFVdbIsc4Gm2yxzQ677JFnnwMKHHLEMSeccsY5F1xyxTU3
3HLHPQ888sQzL7xS5I13SnzwyRdlvvmhwu//7GgIEaJUUU0Nf1YUTIo=
        "]]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[{518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 528, 529, 
        530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, 541, 542, 543, 
        544, 545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 555, 556, 557, 
        558, 559, 560}]}}, {
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
       1.6]}, {}, {}, {}, {}, {}, {}, {}}, {
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[
       1.6]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{2015., 0},
  DisplayFunction->Identity,
  Epilog->{
    InsetBox[
     FormBox[
      StyleBox[
      "\"\[Degree]C\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.1, 0.9}]], {0, 0}], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"a3: FaIR-Geoffroy\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.6, 0.9}]], {0, 0}], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"The Dive\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.75, 0.5}]], {0, 0}], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.7}]], {0, 0}], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.3}]], {0, 0}]},
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{None, None}, {{{2050, 
       FormBox["2050", TraditionalForm]}, {2100, 
       FormBox["2100", TraditionalForm]}, {2150, 
       FormBox["2150", TraditionalForm]}}, {{-0.5, 
       FormBox[
        RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {1., 
       FormBox["1.`", TraditionalForm]}}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
    GrayLevel[0]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2015, 2152}, {-0.4, 0.6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.824543243547183*^9, 3.824620264764471*^9, 
  3.824743561451104*^9, 3.8252167911482778`*^9, 3.8254246641092596`*^9},
 CellLabel->
  "Out[1052]=",ExpressionUUID->"0e08ea37-e56c-47e1-ab7c-a026385d5973"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"osFGlow", "[", 
  RowBox[{"[", 
   RowBox[{"137", ",", 
    RowBox[{"{", 
     RowBox[{"44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8245451469961114`*^9, 3.8245451623100286`*^9}},
 CellLabel->
  "In[267]:=",ExpressionUUID->"a6880041-2817-4c51-96ab-c66172215e94"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"13.836199`", ",", "34.844154`", ",", "258.534786`"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8245451630417304`*^9},
 CellLabel->
  "Out[267]=",ExpressionUUID->"3ce7590f-31fb-44e4-a11a-8367efe0636f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"osD16low", "[", 
      RowBox[{"[", 
       RowBox[{"37", ",", "46"}], "]"}], "]"}], "-", 
     RowBox[{"osD16low", "[", 
      RowBox[{"[", 
       RowBox[{"87", ",", "46"}], "]"}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"osD16medium", "[", 
      RowBox[{"[", 
       RowBox[{"37", ",", "46"}], "]"}], "]"}], "-", 
     RowBox[{"osD16medium", "[", 
      RowBox[{"[", 
       RowBox[{"87", ",", "46"}], "]"}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"osD16high", "[", 
      RowBox[{"[", 
       RowBox[{"37", ",", "46"}], "]"}], "]"}], "-", 
     RowBox[{"osD16high", "[", 
      RowBox[{"[", 
       RowBox[{"87", ",", "46"}], "]"}], "]"}]}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.8245690546303263`*^9, 3.824569208712981*^9}, {
  3.824569617875923*^9, 3.824569676640552*^9}, {3.824620376294157*^9, 
  3.824620407497929*^9}},
 CellLabel->
  "In[410]:=",ExpressionUUID->"a41d4248-33f6-43ee-9a1c-12549aa9b545"],

Cell[BoxData["152.0499193333333`"], "Output",
 CellChangeTimes->{{3.824569069995583*^9, 3.824569084565221*^9}, 
   3.824569165549757*^9, 3.8245692093553753`*^9, {3.824569665505612*^9, 
   3.824569677207177*^9}, {3.824620400704358*^9, 3.824620408387334*^9}},
 CellLabel->
  "Out[410]=",ExpressionUUID->"36bf0165-9a4c-49b3-ad9e-1f038ece12d6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Mean", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"osFGlow", "[", 
      RowBox[{"[", 
       RowBox[{"37", ",", "44"}], "]"}], "]"}], "-", 
     RowBox[{"osFGlow", "[", 
      RowBox[{"[", 
       RowBox[{"87", ",", "44"}], "]"}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"osFGmedium", "[", 
      RowBox[{"[", 
       RowBox[{"37", ",", "44"}], "]"}], "]"}], "-", 
     RowBox[{"osFGmedium", "[", 
      RowBox[{"[", 
       RowBox[{"87", ",", "44"}], "]"}], "]"}]}], ",", 
    RowBox[{
     RowBox[{"osFGhigh", "[", 
      RowBox[{"[", 
       RowBox[{"37", ",", "44"}], "]"}], "]"}], "-", 
     RowBox[{"osFGhigh", "[", 
      RowBox[{"[", 
       RowBox[{"87", ",", "44"}], "]"}], "]"}]}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.824569545909119*^9, 3.824569551984396*^9}},
 CellLabel->
  "In[278]:=",ExpressionUUID->"2636e2f2-6bc1-462b-83c6-88fede575877"],

Cell[BoxData["76.50129799999999`"], "Output",
 CellChangeTimes->{3.8245695526849217`*^9},
 CellLabel->
  "Out[278]=",ExpressionUUID->"094a0ea9-ee0c-475f-9c0a-838ccaa50ac7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"osD16low", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "37", ",", "87", ",", "137"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}], "//",
   "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osD16medium", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "37", ",", "87", ",", "137"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}], "//",
   "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osD16high", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "37", ",", "87", ",", "137"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}], "//",
   "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osFGlow", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "37", ",", "87", ",", "137"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}], "//",
   "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osFGmedium", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "37", ",", "87", ",", "137"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}], "//",
   "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osFGhigh", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "37", ",", "87", ",", "137"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}], "//",
   "MatrixForm"}]}], "Input",
 CellChangeTimes->{{3.8245438917317924`*^9, 3.8245441026144304`*^9}, {
  3.824544348052373*^9, 3.8245443705877004`*^9}, {3.8245444571144743`*^9, 
  3.8245444745283613`*^9}, {3.8245446546208196`*^9, 3.8245446980127134`*^9}},
 CellLabel->
  "In[403]:=",ExpressionUUID->"ef242c84-1732-49f3-bfea-1ae45d154559"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"tCeiling\"\>", "\<\"scc2030\"\>", "\<\"scc2050\"\>", \
"\<\"scc2100\"\>"},
     {"2050.`", "242.705702`", "341.707819`", "255.600731`"},
     {"2100.`", "105.142273`", "241.390926`", "109.70846`"},
     {"2150.`", "29.309668`", "72.733476`", "357.63594`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.824543907358772*^9, 3.8245440650120215`*^9}, 
   3.824544103283842*^9, {3.824544359893827*^9, 3.824544371172693*^9}, 
   3.8245444751287165`*^9, 3.824544659879258*^9, 3.824544698775725*^9, 
   3.824544902274253*^9, 3.824545174820716*^9, 3.824620335259787*^9},
 CellLabel->
  "Out[403]//MatrixForm=",ExpressionUUID->"989cc601-2478-4478-9557-\
97f5abb31b1b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"tCeiling\"\>", "\<\"scc2030\"\>", "\<\"scc2050\"\>", \
"\<\"scc2100\"\>"},
     {"2050.`", "298.905272`", "420.159213`", "291.493707`"},
     {"2100.`", "143.974739`", "326.853654`", "136.325439`"},
     {"2150.`", "43.943665`", "108.62926`", "357.63594`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.824543907358772*^9, 3.8245440650120215`*^9}, 
   3.824544103283842*^9, {3.824544359893827*^9, 3.824544371172693*^9}, 
   3.8245444751287165`*^9, 3.824544659879258*^9, 3.824544698775725*^9, 
   3.824544902274253*^9, 3.824545174820716*^9, 3.8246203352734575`*^9},
 CellLabel->
  "Out[404]//MatrixForm=",ExpressionUUID->"52a5d27c-243b-451d-8cad-\
a1fd0068abd2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"tCeiling\"\>", "\<\"scc2030\"\>", "\<\"scc2050\"\>", \
"\<\"scc2100\"\>"},
     {"2050.`", "330.901479`", "460.675376`", "308.754645`"},
     {"2100.`", "173.33442`", "390.865191`", "153.665426`"},
     {"2150.`", "55.96493`", "137.895489`", "357.63594`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.824543907358772*^9, 3.8245440650120215`*^9}, 
   3.824544103283842*^9, {3.824544359893827*^9, 3.824544371172693*^9}, 
   3.8245444751287165`*^9, 3.824544659879258*^9, 3.824544698775725*^9, 
   3.824544902274253*^9, 3.824545174820716*^9, 3.8246203352790794`*^9},
 CellLabel->
  "Out[405]//MatrixForm=",ExpressionUUID->"d18a143f-1057-4825-82da-\
e681eeb5575b"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"tCeiling\"\>", "\<\"scc2030\"\>", "\<\"scc2050\"\>", \
"\<\"scc2100\"\>"},
     {"2050.`", "112.767765`", "260.299096`", "254.415044`"},
     {"2100.`", "43.849954`", "110.818757`", "197.799554`"},
     {"2150.`", "13.725255`", "34.561988`", "256.535848`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.824543907358772*^9, 3.8245440650120215`*^9}, 
   3.824544103283842*^9, {3.824544359893827*^9, 3.824544371172693*^9}, 
   3.8245444751287165`*^9, 3.824544659879258*^9, 3.824544698775725*^9, 
   3.824544902274253*^9, 3.824545174820716*^9, 3.824620335283305*^9},
 CellLabel->
  "Out[406]//MatrixForm=",ExpressionUUID->"222b66ae-cf73-41ee-8426-\
2f32e2ecb7ee"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"tCeiling\"\>", "\<\"scc2030\"\>", "\<\"scc2050\"\>", \
"\<\"scc2100\"\>"},
     {"2050", "129.841991`", "311.415573`", "289.979669`"},
     {"2100", "57.375226`", "144.44753`", "229.917088`"},
     {"2150", "19.735353`", "49.530385`", "357.635939`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.824543907358772*^9, 3.8245440650120215`*^9}, 
   3.824544103283842*^9, {3.824544359893827*^9, 3.824544371172693*^9}, 
   3.8245444751287165`*^9, 3.824544659879258*^9, 3.824544698775725*^9, 
   3.824544902274253*^9, 3.824545174820716*^9, 3.8246203352917433`*^9},
 CellLabel->
  "Out[407]//MatrixForm=",ExpressionUUID->"9fc627f3-e3de-49d8-a3ff-\
261d64c6f308"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"tCeiling\"\>", "\<\"scc2030\"\>", "\<\"scc2050\"\>", \
"\<\"scc2100\"\>"},
     {"2050.`", "138.953469`", "336.37529`", "307.071132`"},
     {"2100.`", "66.853892`", "167.849194`", "248.753076`"},
     {"2150.`", "24.520982`", "61.391829`", "357.63594`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.824543907358772*^9, 3.8245440650120215`*^9}, 
   3.824544103283842*^9, {3.824544359893827*^9, 3.824544371172693*^9}, 
   3.8245444751287165`*^9, 3.824544659879258*^9, 3.824544698775725*^9, 
   3.824544902274253*^9, 3.824545174820716*^9, 3.824620335297522*^9},
 CellLabel->
  "Out[408]//MatrixForm=",ExpressionUUID->"7138c48b-4325-40b3-850b-\
b0fed4d0aa4c"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"osFGlow", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "37", ",", "87", ",", "137"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}], "//",
   "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osFGmedium", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "37", ",", "87", ",", "137"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}], "//",
   "MatrixForm"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"osFGhigh", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "37", ",", "87", ",", "137"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"1", ",", "44", ",", "45", ",", "46"}], "}"}]}], "]"}], "]"}], "//",
   "MatrixForm"}]}], "Input",ExpressionUUID->"4b973f17-841d-46ec-813a-\
b032e15f419d"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"CO22030price", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"osD16medium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osD16low", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osD16high", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osFGmedium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osFGlow", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osFGhigh", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2150"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "350"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", " ", "DotDashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Orange", ",", "Thick"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"Orange", ",", "Dashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Orange", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotRangePadding", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameTicks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "20", ",", "50", ",", "136", ",", "200", ",", "249", ",", "307", 
              ",", "340"}], "}"}], ",", "None"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2020", ",", "2050", ",", "2100", ",", "2150"}], "}"}], 
            ",", "None"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year in which ceiling applies\>\"", ",", 
          "\"\<CO2 Price in year 2030 in US(2015)/tCO2\>\"", ",", "None", ",",
           "None"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", 
        RowBox[{"1", "/", "3"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"\"\<a1\>\"", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Offset", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              RowBox[{"Scaled", "[", 
               RowBox[{"{", 
                RowBox[{"0.40", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
          RowBox[{"Inset", "[", 
           RowBox[{"IOVD16low", ",", 
            RowBox[{"{", 
             RowBox[{"2096", ",", "264"}], "}"}], ",", "Automatic", ",", 
            RowBox[{"Scaled", "[", "0.4", "]"}]}], "]"}], ",", 
          RowBox[{"Inset", "[", 
           RowBox[{"IOVFGlow", ",", 
            RowBox[{"{", 
             RowBox[{"2125", ",", "264"}], "}"}], ",", "Automatic", ",", 
            RowBox[{"Scaled", "[", "0.4", "]"}]}], "]"}]}], "}"}]}]}], "]"}], 
     ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Orange", ",", "Thick", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2015.1", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2015.1", ",", "185"}], "}"}]}], "}"}], "]"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Thick", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2015.1", ",", "185"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2015.1", ",", "350"}], "}"}]}], "}"}], "]"}]}], 
         "}"}]}], "}"}], "]"}]}], "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.824290863377163*^9, 
  3.8242908745896063`*^9}},ExpressionUUID->"40b4ed18-871c-4276-ac66-\
3b79412f2fc7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"CO22030price", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"osD16medium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osD16low", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osD16high", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osFGmedium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osFGlow", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osFGhigh", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2150"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "350"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", " ", "DotDashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Orange", ",", "Thick"}], "}"}], ",", " ", 
          RowBox[{"{", 
           RowBox[{"Orange", ",", "Dashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Orange", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotRangePadding", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "10"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
       ",", 
       RowBox[{"FrameTicks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "20", ",", "50", ",", "136", ",", "200", ",", "249", ",", "307", 
              ",", "340"}], "}"}], ",", "None"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2020", ",", "2050", ",", "2100", ",", "2150"}], "}"}], 
            ",", "None"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
         "\"\<Year in which ceiling applies\>\"", ",", 
          "\"\<CO2 Price in year 2030 in US(2015)/tCO2\>\"", ",", "None", ",",
           "None"}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", 
        RowBox[{"1", "/", "3"}]}], ",", 
       RowBox[{"Epilog", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Text", "[", 
           RowBox[{
            RowBox[{"Style", "[", 
             RowBox[{"\"\<a1\>\"", ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
            RowBox[{"Offset", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              RowBox[{"Scaled", "[", 
               RowBox[{"{", 
                RowBox[{"0.40", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
          RowBox[{"Inset", "[", 
           RowBox[{"IOVD16low", ",", 
            RowBox[{"{", 
             RowBox[{"2095", ",", "273"}], "}"}], ",", "Automatic", ",", 
            RowBox[{"Scaled", "[", "0.42", "]"}]}], "]"}], ",", 
          RowBox[{"Inset", "[", 
           RowBox[{"IOVFGlow", ",", 
            RowBox[{"{", 
             RowBox[{"2125", ",", "273"}], "}"}], ",", "Automatic", ",", 
            RowBox[{"Scaled", "[", "0.42", "]"}]}], "]"}]}], "}"}]}]}], "]"}],
      ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Orange", ",", "Thick", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2015.1", ",", "0"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2015.1", ",", "185"}], "}"}]}], "}"}], "]"}]}], "}"}], 
        ",", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Thick", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2015.1", ",", "185"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2015.1", ",", "350"}], "}"}]}], "}"}], "]"}]}], 
         "}"}]}], "}"}], "]"}]}], "]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.824095248713587*^9, 3.824095249078344*^9}, {
   3.824095309426259*^9, 3.8240953985248833`*^9}, {3.824100318863562*^9, 
   3.824100427705413*^9}, {3.8241004727741375`*^9, 3.8241004783543906`*^9}, {
   3.8241009959310246`*^9, 3.824101039063255*^9}, {3.824101639500284*^9, 
   3.824101654973794*^9}, {3.8241018146729307`*^9, 3.824101817500695*^9}, {
   3.824123805357937*^9, 3.824123826170272*^9}, {3.8241239313424625`*^9, 
   3.824123987578723*^9}, {3.8241241312115755`*^9, 3.8241241621500216`*^9}, 
   3.8241246807102647`*^9, {3.8242836627147226`*^9, 3.8242836736345396`*^9}, {
   3.8242904605210094`*^9, 3.8242905131615944`*^9}, {3.8242905638618975`*^9, 
   3.8242906117678623`*^9}, {3.8242906560408297`*^9, 
   3.8242906934066124`*^9}, {3.8242907307064533`*^9, 3.8242907990453825`*^9}, 
   3.824290850446731*^9, {3.824290892447254*^9, 3.824290988201107*^9}, 
   3.824291438696129*^9, {3.8242914909899654`*^9, 3.824291542663967*^9}, {
   3.8254247466208773`*^9, 
   3.8254247510328836`*^9}},ExpressionUUID->"bb73a4cf-c813-4537-b68e-\
3638f4d94400"],

Cell[BoxData[
 GraphicsBox[{{{}, {{{}, {}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large], 
       LineBox[CompressedData["
1:eJxd1GtQ1FUUAPDNBEIBNwMFCxZDUNEU10ekwZzkDQK6AvJQnvKQeKwamYqI
K60MEjAOoTxGjohCirSgAQkIMkiANIpQEANCCNoMmu7gBBmP/nmPH7p35s6d
34c7Z+45556lofGy8DkikShV2P+dr1diIYy3SnQSyw/AaycXwm1J0szRN07h
nMo5nXMW52zO5zgXcEbOxZxLOZdxVnG+wbmGcx3nRs7NnFs5d3C+z7mbcy/n
fs5DnEc4/8H5KecXnF9ynuQ8xVmE//ccznM5a3J+h/M8zjqc9RAeq/7JCHlj
McIa0xsmtkXkhQi9PTe7W9PI+gieGv3jddHkRQinBt2rY+zIhgi54oMuvxiQ
lyAM22jlXBzez/wBwrOQtfrya2QTBH+H41GPD5FNEdq9bpeOAPlDhC6rRHsd
bfIyBGXCo4HOe3JmCwQnv4Zc32/JKxCuBtgst/EnWyIcPHlBb5UJeTVCUFJJ
W3pTPPMaBL2G/Dg/J7KVED8u4uXFu3HMUoSY7zXqqz3JGxDqwOWERlcs8yaE
T+7bxeZ7k60REkOk3qqeGObNCBfcrF/m+JM/RXBVq7X9Bj5ntkWQd7bJxoLI
gHByQBXbORzNvFV4v1T2fGUk2R5hOlpP3DG2j9kRYapUOX1eTnZGGKqzVntP
RDG7IpTOlv29P4m8DaG7KkR/ribZA8FuS4kfZkYybxfiDSRsGjEiyxCSnbxK
/yyOYPZCqFxQudpQSvYR7v+kZ6luCGf2RZinPKi73pPsj5CXrYhbO7SXeTfC
CfNdFZP7yYEIE285xw5rkIOFfF+vWDieF8YcirDFsMIzeR15L8JsQFuGbnso
c4RQT3NJ7ekwchSC70jPgnWzIczRCOs3aj8UF5BjEL4JW3Y0ZTM5Tqj3YP3F
lr5gZjmCVo7ZXtNE8gEEF3F5cpOE/AVCdN+dDV2pQcxfCv1wxMDI+NdA5q8Q
Nh5FA0ML8hGEtZ5P0mSH9zAnInQ88Ph59N5u5iQhX8lqnSUryckIfe1uM8uV
AcwKhCrFZXOfUX/mFIR86x8HLziTlQiNCXfSX1zzY05FOBT5rGr+YnIawkyB
YipG4cucjlBxukjLVr2LOUOIZyzTyQolZyGYzGooRD0+zGcQMh+dcjXzIGcj
HLY5py9p9WbOEfKd4DP/qT35HMJfz191+DV7MechiK+fjS1xJBcI/8FqRVfU
3Z3M54V5EKbRoLuTjAj4Xc9HcwZkzEUIxjZJ8V37yMUIoe7hO3ondzBfFvp/
8F2DK2nkUmEevdrTm2dCvoKgXv2ZI/ywnbkMwSqlYGLWnVyOUKNZ5ap64Mms
QpDU/257QJdcKeSv+ozx++4ezDcQHHN1pW1Z7sxVQr84jIsW/baNuQbh1sNp
daA5+SbC2dEx6VSCG3MdwqX+YxmZ7a7MtxCk5TXWlmbkRoSiY2VD1cddmJsQ
vJveOzI96MzcjNDyStPiY3tyC8LXZs6Xeq86Mbci1K6qDZYvJrcjGD2J37pU
6cjcgVCoan67fdIB/gXPX7+m
        "]]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxd1H801lccB3DMrKU5No2YPDTJr9Jkz6LFB2WeyK/Hr0ny8/FbEXLK9BDR
Mjzya3T4VERYmVTPiT1JhjWZ2Tr5NbOOXzUdNotmju277j07Z/eec889r3P/
+Nx7z+d99YIPe4QpyMnJ5XDz3/XlSK2CN/hJOsXecfDS4irQ9PHX/s+ZjHMY
5zIuYFzEuIzxecbIuJpxHeNGxk2MWxhLGbcxbmfcybiHcS/jfsY/Mh5kPMp4
nPEE4xnGs4znGf/B+AXjFcZy+H8rMFZkrMR4DeO1jNcxVkF45cH0aKw7tSpC
r/RKumgn9VsIArOoJRNV6vUIPjOnwmJGYonVEcYX7q35pYJ6A0KtpOT+iAe1
FkJ8b/OWdHlqbYRlMYQP1MUQ6yCIhleLiwXUughTv5qv1E5EE29C2Gi1e67r
OLU+t69Q2l2+jtoAQXFKTygrjyI2RNjBT7x+ZzO1MYJn7sIHelcjiU25+19Z
8nSxoN6GYJU0eb1NGkG8HaFZLSDjh13U5gh+i/pNlnfCiS0QUkrPvuhzoOYj
XEj35R/tFxHvRJhY/HZLwwFqKwT1nMqib2bCiD9EsMCxXK1j1NYIj60TogeU
qAEhAr7SfL8slNgOIVH54Jl2Y+o9XL2lLlWxLITYAeFRZHVNgpDaEaHrzLXk
oqfBxPsQSht4FRMZ1M4IHW7Zb8dpU7sgFKyXBBXfCiJ2Q9gvG5py8KT2QIj5
XqFl6++BxJ4IXqPSr1ck1N4If0ue9EfuoPbl3vO17zINGg8R+yH8pNy7du/z
AGJ/hATz+AZdW+oABJNs9aG+/IPEgdz5hr4IM3/sTxyMYGly0WCZTx2KoHJJ
NyU1/wCxCMEs7pJ821M/4giEmtN8uXcE1FEI2xc2rnTWf0wcg/CqR/CjRRXq
OATdZyfFN5J9iY8gdD+fW+4d9yFO4PrbTOTk7UKdiGDjlaUULPMmTka48efJ
h5L3qFMQDNMfWKbUehEfR5gfcw+x06VORcgc/NxuusKTOA3h8qFNY1Za1GKE
wSDn5RMVQuIMhCCP1FQ7HnUm1w/2wuTlGg/i01y+zrmHbTCjzkEIl8pX8Vrd
iT9FEJbo5SUJqHO5fE4lnLow7Each3Ct+aaRThx1AULjZ1+qBShSFyL0DGRv
q7N0JS5CcAW1oHuHXYhLEHLTk7Rt6vcTl3H/hanRsaonzsTlCN6maULfrdTn
EXy7f7OvSXIirkSo7sosc+rYR4xcfkYNRk3UqC8iuOXHah6JEBBXc/1mq2+f
d9eR+DJCW9HtUG0edR3CiHNWir74I+J6BIkRL6N+0oG4ESF6TugV4UJ9FeHN
o4KHya17iZsQftYorW8xoW5GSFs9MT9ctYe4BcHg7F/5zhrUNxE6AwwDdxXa
E0sRFvsiGgpVqW9z+Wrnpa1K7IjbEGarZabP1KllCJt5rcpFlbbE7Vy9grC7
nUbUHVw9y0Cfc7eAuBPhdXcZZjlSdyGEBC/Ex0ptiHu4/+mTqUbXSWvi+5yN
xyunNah7Ed6tnBU5uO6GfwCBbXi5
        "]]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJxd02lMFEYUB3Ag2AJB6lWLqEQJVErQKghdCdBXbD1XQQ4LKy6w7Moh7CIg
XRCFItCVQF288IQnsoYllKJyiYpo6YbLerbBFsJWsViECmKFQtVunZcmnUkm
k9+HN5m8ef+FEoW/zMTIyEhl2P+eb1Z6CQw2RSrjqpLhjTNLYE+C987/nM1Z
xTmfs5rzIc5HOZ/kjJzLOJdzruRczbmGcwPny5ybObdwbuXcyfkW53ucuzh3
c9Zz7uP8mPMg52HOzzmPc/6bsxH+3yacTTm/xdmMswVnS85WnKchOD2qneGh
Ic9ASPqyI/JGIXkWwmMXN3NbJXm2oX6+IMo0hGyNoFhzxiTKjWyDsM7+doej
FXkeQkP/X3d1D5OYbRG2Kk5o/erICxB8oCnbIpdshzB1eUnSRwFke0O93bJP
ptqS30fI2Pti4OFvicyOCHb5JTqvKrITwh3jtV1jSWRnhIuuMy2jBOQlCKWD
ix+lT+5gXorg3q8/5neF7IKgKZ5y2nMPeTnC04CgaL032R3hC2HP4VOvEpgF
CHej3g4tukL2QIhwO1L9YhfZE6FRuCGr3oPsjbCldrvPzyMKZkB4LyIvMSae
7IMwN8f+QtrvcuZPDfevz5dNyMirEMpaqoaGfo1nXoMQfT6jOFdMXofwrcU9
SUJ3HLMQoWR+wtZlIvJGhPIVqYX7urYz+yHckr72LAgm+yP07S2+UdEVyxyI
sNLmXcH9EPJmhDNVtWPa7hjmYIS4j+c8/C6MLEJIiVfUl/VFM4ciTD/rWKSL
JYsRLGadU0WMRDGHIzwLW2CmTiNLEIaOORjHmpKlCOMToqLj+7cxbzO8v3zi
8A/zyNGGfkkPFF6okDHHIqgWex0f8CDHIVRdSq1Y2SllliNkqZ3DTcLICQhe
dbLm+6ORzIkINpMHCr7aR05GKDDTXdMsJKcgyOVC365GCbMS4Xn+7jZdEDkN
4dSHL8TpzyKY0xGkN4s7AtXkPQiDmxpsc5aSMxFir9bO1NwOZ85CeBWuvziW
TM5GaN61umDfHHIuguTqop+0GWHMKoTUg72lB2+KmfMQdnXXixbZkfMN/98e
49um3Mr8NcL3O/Q/Jt4OZVYjmMvL4gqXkA8g9K+w69UUbGE+hJDbFnitfFjE
fAShWjtaPh5EPoqQZztuXdkUwnwcYUqP+I61E/kkwstogUx+NJi52JDH3tOO
t8zJiLBJs+2dmt2fM5ci7G5fFtL9fDNzmSGP010nPeXkswjfaDJrXg8EMZcj
GF9J6L8eQ65AmBgpmv3nk0DmSoT7f9jipIJcZciz4LPViWMBzNUIwe0uLecy
yecRcux6bn4wlVyDoG+UrFKe8GeuQ8hc6xTQ6UxuMMyju2D6y6ubmBsRTmqk
K8w3ky8jaF3H1MNDfsxNhnn2K3XYryI3Iwh9gx8YO5CvI4itLj21VvkytyA8
eeBu09y2kVmH0Obdej58GrkVwa1oruVO0QbmdoRfzipDA7VC5k6E0ZTsu1mT
6+Ef1+GuLQ==
        "]]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large], 
       LineBox[CompressedData["
1:eJxd1AlMlEcUAODtorUBSldEg8DSotS4gBQBARXxKQseq7JScEUpInepRRBR
waNEFFYQUbSKYuFJgOLJpVSUyhFRChZsQUTuxm2kFiwQFUyl9K/zauJMMpl8
mUwy7715Yxaw1TNYLBKJ1ML8b30z9mRDiOTjtqEF/vDG8dnQJjE59dYHOKs5
H+Z8lPOJbLj3l/3pt87g9s9yRs65nAs4X+JcxPkq5+ucKzhXcb7NuY7zPc73
ObdwbuPcybmXs4ZzH+d+zoOcn3Me5fyaswjftZjzBM7vc/4A3623NsKisuAq
n/+ti1A18VHJHkuyHsKB8q6GsclkCYLbTW3Z4t5NzPoIPxZ0FYrTyAYIKamx
0qi55GkI4uFPvSLr/ZgNEer8a8+3biAbIeictkwI13zBbIIQ0O44ogojmyJE
5D0MCXziy/wJQtrX0yNPBpBnINxvra7ubt/IbI7wYEZORoWSPAuh1tHAZWPt
BubZCDHpl62/dyVbIAw9DEqNu+vDbIXQYyiOD1SSrRGqI9rKZnesZ7ZBGJ2X
PuG3MLItwu6QFfFnRlXM9sJ9z1lOLjhEdkAoaxsorTclOyEsNB5u0r22jnkB
woXMlMoBBdkZ4eSsPOz43ZvZRbhf+ZT+ym/IIOR/sPLbfmPyUgSRqiRwZrkX
sxxBK8M2ElRkd4Qfdpd7HBn5nHk5gmfGiFPzKfJKBMPj//hpLySvQvho705L
Rbcn8xqEU4+nqrMSyEqEkLnFr67LyJ4If7uYmMt/WcvsheDiu61TFkdeh+Ah
zowenElej7A2W6OX2aRk3oBgt/VBTMFusi+C/7rZv47JyH4IySqfDoNiD2Z/
hFynZVLpFHKAUC87/XOTd6xhDkK4tP51flHnauYQIb8W9pIGOTkMYXB1c+ik
olXM4Qh7C82crKXkLQiZUUY52qkK5giE/CGdQvPxlcyRCPJE74pj0eRtCEZ5
ivH0pyuYtyPYWHt/mRJI3oGgtyrCwKdnOfMuhLxbVgMtvuQ4IZ/6L/Z7dC1j
3oMQnBqndt9E3oewfWkfKjTuzPEIY9O+s7oWTt6PcHBGV5PsuRvzAYTpPrZ3
h/eRExEid7ZG3NQlqxFizf2yGjPlzMkIlknTHjXOIR9GyPKTNUiqXZmPCOd/
lo59piIfRThr69ijfraUOV3o74Rcj4tq8gmE8DV+QWJz8kmEys05S7RrljBn
IDzzNfzDbTP5DMLjCMnlqVrks0J+Eh1ExvnAnIUwqT98+ISCjAiJaWrZMc1i
5hwh/l1CQA7kXITxxpd9H6a4MOcj3HhxxtRAs4i5QDh/fk7M0cXkC0I9bfSs
pdnOzJeE92cWHax8j3xF6J/SQufloQuZi4T+9y5XvmpawFyC0JTV0GLuTL6K
kCoPm2B8cT5zmdDPsRevuErJ1xGizNJ63dOdmG8gXMk63u2oTa4Q/htRTZL+
QUfmWwhPlIkXMsTkKoTmr0qL9RMcmGsQfppfnPRyIvk2wpbjyXfaU+Yx30EI
mikp/HMKuQ7Boj5vSCfbnrke4Wl9aKypFfkewoiWqSFU2MG/CoWRKg==
        "]]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxd1AlQVVUYB/CHvVxAHwYqisQmGQGPAHEJWT6QRQgBX8gjZHEQ2Yy92HwW
GBQJNJhIRCxfsgsBohGgCWNQggsWCq8gwVGbxBdiGqNG1s3zjTOdO3PnzG/O
mbN893+uUXiCbM88kUiUJ7z/tU8fRRWsbzeXrrEOhqfOqoLxrCHNZ87hnMe5
gHMR52LOpZzLOSPnGs4NnJs5t3E+ybmT82nOvZz7OJ/jfIHzZc5XOCs5j3Oe
5HyT82+cVZxnquDB2QqNZ37A9T/kPMdZhP/3PM5izvM5L0Tw6izySLQiqyO0
eBn/ZahDXoygq+srTrqzk1mC0HzrkrfVcfJSYbwyLNV3L1kLYabniEqpS16G
MGylcPU+G8S8AiF7X6VTXDh5JULFbpjNnHuTWRfhl/S0iOZDZD2EwUfhd/uN
yfoIfwRPfPh+WyCzIYL+pKfGp5vJxggPrxsaDfbJmU0QHvSldGR5k9ciWFh0
Gsz8GMBsiqDokEhmA8lmwvpHQqw6r+1gtkAIa7+3Kz+CbIlgaFZY+tOUP7MV
gnledsv+JLINwlD2rYWrHr3BbIvg39Taop5D3oAwZv2OPHU5eRNCo8+C9spG
GbMdwinVaMW0M9keIX1Ge8Hl8e3Mjgh6qm2LBzLIgLAjdhbMV5FdEHJOnUgd
6/JjdkW43ZXb4hpCdkeYTj88cVSNvBWh8KueEw4yX2YvBHfTjgN11T7M3giR
NnpDUY+3Mfsg7C7vWZQrI/shjJ7JCu1s9WaWISRPXk2OkpD9hXotqb9wMel1
5gAEZ+l8zeERL+ZABFH+3GMjIAchaF/d+dzOJk/mYCFviec9ZLrkUAS5S5pn
ef5W5l0ItTF+tpoicrgwf9nxaLs0D+YIhC0O+8VPZtyZIxGyIpcaKOPI0QjB
hSqv8yo35liEY+6t800TyG8hPLmSfnvtfVfmeITvLfZpKTPJiQgNAWEhy8Xk
ZIRy3xebiou2ML+NELfa3XlGn5yKsK1bekijzYU5Xbh/7RIP+RZyJsLS1js6
KqUzs0LYn1pu5uNE8rsIDu4Zv95SJ2cJ9d4uNT5YD8wHhLwNiPz63cg5CEZT
jqLGi07MHwjf/4fV02u0yXkIJqWxkdIQR+aDCH97KqbFTQ7MBQgDhmkv1M3Z
M3+MYFp54vkcGbkIodowXbGvaTPzJwiHV4oDJIvIxUI9uz02yGPsmEuEPNzd
Ya596TXmUiFflokZzevJZQhuZgVS8RebmMsR8ld/XVqlSa5EqATlKwHZG5kR
oaB75Fr97AbmowgeBvfVsuPJNQhON6Vyp6n1zHXCfY0OCt8TTW4Qzlvzc/2N
27bMx4T+mP6Ny+LJzQgfrdF0XfHnOuYWhJHN45Il75HbEHyGoxYEa5DbEWxu
xNWOltkwn0TQ+TxAPduC3IHwZc9Lon96rZk7hfMI5RyRk7uF/6HZxDqte1bM
p4Xx0SnlYwXkM0K+u+Imqs3IvQinjR9OeJW8ynwWwT7merv6mCVzHwImpu79
zIT8HUKuRoZ4Y7KU+RxCydpaHPvWgnkQ4eVvEhS/ryJfQAjNLa7yTzGHfwGD
8356
        "]]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJxd1Q1QVFUUAOAdEEFSBkmYBjYTBVQw2sQxwQUPiIjAgqxItKgQg0b+oUCr
IRj/MCCGC5n8xDvghghG4PAjRkbAkJr4i4KotDborKWJJtqaQS/v6c343syb
N9+cOfeeO/fc++xj4pUbjSQSSR7//vd9+aRw0L3RenHmhg/hpdM4yFXE3s34
31kcmLcrLwjO42Diyy2XBO/jQOrgaxBcJIqXcGBpvP5vwYc4sBly7xNcIcpH
UVzLQcqCVL3gWtH4x0TjN4rym0XjnxCtp0MU7xTl94jip0XxcxzE/tZwX/BF
UX39ovoGOfDwfNgr+KZofTpRfSMcQK7hsWC9KH5fNP6oKP6Eg0/Woo2wv3+J
6n8hypcg/KnOuiLYCGHRJqsxwZPw1fVNRjB07p8QbIavrsccIahWNyp4KkKw
Sza4hpEtEFRZMS56OdkSoS36qKvOjmyFYLPd4H/2cTTzDISHYZ2eF7rINghu
+77zXlRIfoO3boHjz0qyLcKb6l/elc8gSxHmy+PUt7RRzDMRBsdeU3fbkWch
KNOLt+kKNzDPRghYXuijMSU7INzpPy9ryV/P7ISwcGnB8FEr8jwE97Ypz85W
rGN25udzik8rdSYvQAgsVl58cDKS2RWh6fmcqcYKsgyhowll826rmBcijFrf
SlbsIi9CGC7OzVZNIy9GkH3U6vJE+wHzEgR/w6qWEC+yB+UPRDDLEd6THpy8
N4HshRBhNL9piwUZEKyVe5UPjr7P7INQYuNa3+hP9kXIiz3dNHY3nNmPz99Z
1yLLIfsjtPccMJ09lxyAUFPeM6vxp7XMQQgVW4134WZyMML45WqvM9PIqxE6
96wsnHI8jFnJ96PnnOm2EeQwBI368OeGf9YwhyNMc2+ttK8hRyDgxMwOdTBZ
heCifaEdeqZkXocQ2SzZVl9N3oBwIlJjrFaQoxFM4ebV+uehzDEIn2qS+kaO
kGMREgoM7VXh5E0Itxx3hvtOJscheJRUOde0rmbejGBuaeJWE0feysfNPFRX
bcnbEVpnFD1dVhnCvIPv7/Hd36pMyQkIZnf1j/YkBjMnIRjF6ge9byuY1Qh/
JH+cLwkl70ZYkn6veXt3EHMyQkP74Yk7i8kpCLm1XdztbwKZ9yJ4+9vI0h3J
aQj3ryeWlmEAcwbCZ8Nh2i4pOQuhdGOIUXn5KuYcfn6zIybvSMl5CN0DAyf7
K/2Z8xGqU4/p2uaQ9yHEB45kuNWtZN7P1/d4UlewG7mI31/IVHz1vR+zBuEt
S33QUAC5BCEpebjQ5PoK5oP8fZHi4Oi5mXwIYezGQHriC1/mMoT1oQFm4QfI
FXy/xF/Tpc4lVyJUuUyvHf9hOTMiOFz7dY1ERa5GuK4esp3+1IdZi9BnHDEy
UEyuQdA/1fTGuZFr+X53+tHucr83cx1/vnMKbl7ZRT6G8HWVn/0ZKbmBP1+H
JaGybmBuRPBbZhtcuoV8nO+PQDuLQGtyM8LbzYllJhnLmFv5/FOWCcM3vJhP
IKSus3PudSefROC7U/Gk1JO5g79fGqIa7cblzKcQZl2alB8RS+5EcPx9R9IX
55cydyHIB2PaLniQexCKMq02DdV5MPfy/SzPenRFSj6NcLlnaWexxp35LEJ9
SeU9R3PyOf7/0VfwelT2EvgX2KaZHg==
        "]]}}, {
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}]}}, {
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{
        0, Small, Small, 
         Small}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{
        0, Small, Small, 
         Small}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
{}}}, {
    {RGBColor[1, 0.5, 0], Thickness[Large], 
     LineBox[{{2015.1, 0}, {2015.1, 185}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], 
     LineBox[{{2015.1, 185}, {2015.1, 350}}]}}},
  AspectRatio->NCache[
    Rational[1, 3], 0.3333333333333333],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{2015., 0},
  DisplayFunction->Identity,
  Epilog->{
    InsetBox[
     FormBox[
      StyleBox[
      "\"a1\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.4, 0.95}]], {0, 0}], 
    InsetBox[
     GraphicsBox[{{}, 
       GraphicsComplexBox[CompressedData["
1:eJzt2PtXzPkfwPFum6gUdrNufeWaWEsRFfVeRDdZ1crmsswmpGS7WKUvLSmW
Ulaayne8lGpWJN1LdJHpIkWLanVjRbb6SojNpX3xen/3rM9fsOd75vPDzHmc
M03N9J7nec1LT+TlsEFJQUFhGt68u39/DQWm8PfrY2BpbVEdnkaWFu+tA6yv
R6kzwfF78qfAMhZtjLHUDyGPBNZtbz4/e0MEeTSwFIuSGesqosi6wMT7tttn
sDjy2P89HsjjgI0os+pVm51AngDsoJd+YPbgJPIkYAc0UnaMfyol6wNbIZJE
Zd5LIRsA+yb9ybqDTankacCUgrUmuvSkkacD64iIu6samE6eAcz5Cw3fLvVM
siGwfV2Tvw0UZ5FnAZuwMPzsRrUcsjGwFqOhJ4d45JLnAnusHPFraUUe2RRY
UPfJRba6F8jzgOV5+FYv+66AbA5sdq2Dv1nJRTID1hQzMMRHs5C8AFhshnmb
eFoReRGwErs7hem13IuBTT9tuWimfzHZCpj6wE/XNI8uIdsA8+reV+FUzG0H
zGSXdJbI7TLZHtjNp1un6WuUkr8E1ha0ZqkkndsBmGRHtY62yxWyE7ATR601
PRVk5BXABvVkRHYkca8EtlI6+5qZfRnZBdhH7jN3iHu5VwNLfJ6j0nqinLwW
WP/qWa7zbCrI64Dl1BgYJT7nFgEz0B1+a1x8JdkVmMajbm3ZsqtkN3w/FWbZ
RL/l3gTsXmWDWcLZKrI7sKEz8gtMVl8jewDbfemzlafVq8lbgSn+MdRgbgH3
NmDnOoZ3hnjWkL2BFb8JGqCqfZ3sC8wm1iIpazP3dmB75l0I7LjMvQPYsarz
BSm6N8gBwE4Ve3re9ecOBPbuv5N6i3sXvr4wccPDmbXkIDx/Kv2rKsK59wCL
c/Zbod7JHYy/7/SNFEWbX8ghwBye7F7iJOXeD+zKnI/NVw24Sf4R2DjvvoBL
btyHgJ12VZDek3GHA9tiGfdb46Rb5Ahgkw6+OmwXyn0E2AOzlweU27mPYg/C
ahN3W98mHwP2L2trrYUp3GJg7hdbNpVp1pFjgel4hvvEbeM+jufFLtlv1E1u
CbDK5LJsjbn1ZADWPHdK1c7j3PHABg+Zk3xEsYF8Cp/PY7yk0407CVhWke6w
Kde4pfj+vKnL22z0K/k0sCPVReVXY7nP4Odtbb61htIdciqwBNMx5QHu3GnY
k7WLzzfWcqcDE9n17Zwyr5GcieezU7s/LZE7G5i3UWNQjVYTORdYV3eda1gA
dz6wz4vMTf3auAuA+VUmjFq/vJl8CVhMj5505EXuImDL/H3HTzNoIZfgeR7T
aq0ezV0KzNa0sthDqZUsA2ZxeLnE34S7HJiTrLAmdxt3JbAn/xE/F0m5q4Ad
fdk4sLeFG/se1pUFL2RFl94b+x5Vn3Wx6cjowvfGvhsYP/Ar1TMjY99jvvV3
nr/Onox9n6H17hW4kLHvsvhHna7bXMnY9zHf2wzo6PcgY99TXGqXD3bzIWPf
rZIWJj9s2kHGvm+9rK+m27KLjH3vya7dknF+Dxn7vjF76rNiwxAy9t1u7jMd
rccHyNh3f79wxYaOMDL2PSPaM/nskEgy9t03JlbFy+onMvbdxzZF77vDUWTs
+4K1WpOulEWTse+ueqYq4SqxZOy71/S32ZOtjpOx74YPUife3yshY98rzjTf
3b4JyNj3ncXJJv6RJ8nY98K8woDGnHgy9t0nWON+Q1sCGfte93m95h2dRDL2
/Z7ZzI4rXyaRse93EjVDE39IJmPfK93zJe35UjL2vb+6t13zxc9k7LvWEudH
/zVNIWPfV+jXvjm+5wwZ+145PDMi6MZZMvb9o8t5ISNGniNj339XrjALNUwj
Y98tvtqnKmrgxr7PWW7rMzX4PBn73hcT0DRuRjoZ+74+LOORWis39t1q69L8
zyIzyNh3C7PWfNHiTDL23ePY1cUPX3Nj35/OyzXbkpNFxr43p0YnqW3LJmPf
V6vI+lQn5ZCx77L9i05uaOLGvrfvD4x2iM4lY99Xrc1rNnbMI2Pfxw58tX3o
kHwy9t3xetfEsBvc2PfYhQ7qE3+6QMa+v5j/+znnlQVk7Hvk+k+8XHUvkrHv
b5e8O9Dc2PeOUeJG/fRLZOz7qzOGji67C8nYdyeTrikmk4vI2PfpzhbGFYe5
se8HRD2q4j+4se/vTudk12Iy9v3x13WbTK5zY9/7LAf2qc8vIWPf4ztKtKqT
ubHvxm2DHnsPuUzGvrPegBdlO7mx7z9ELTzo8ZAb+/4s1E2y2rGUjH0PfW20
92URN/bdzLG9QDb9Chn7bjWy8baOhBv7rvLwkH6XpoyMfc/4d/mq1F3c2Pcb
EU/0o7q5se+7yrrra0RlZOx7/9gjemW3ubHv34jtPjlkU07Gvtf1brf1LuLG
vv8Sb14xxriCjH3Pujdq0Imz3Nh3Jdf2+i8mVpKx71MTImumSrix73fcb49o
GX6VjH0/puaEfwI39t1+cdT6Rs0qMva9YEL1j9ID3Nj3LBkMWzDgGhn7PjNb
+z4Ec2PfXWwVN/crV5Ox73tbn3St2cuNfQ81KoxVVqkhY9+HaenHee/jxr5L
LDydkpWvk7Hvm9pPtIosubHvW3Zv3PkshDvwBFP4+xUkcLDA+wU+JHCEwEcF
Fgt8XGAQ+JTAUoHPCJwmcKbAuQIXCFwkcKnA5QJXCXxd4JsC1wvcKHCrwPcF
bhe4U+BugZ8J/FLg1wIrCL7PKQmsIrCqwGoCDxJYQ+DBwDaP+Wqptp8WzRva
wEyVcr8uWGn11/yhomjo2wmiv/zBz8vnEfk8Ip9H5POIfB75/5hH5PtE+T5R
vk+U7xPl+0SyfJ8on9/l87t8fpfP72T5/P7Pnt/l+8QPLd8nfuh/0D7xT/dc
vCs=
        "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
           GrayLevel[0.85], 
           LineBox[{95, 232}], 
           LineBox[{2, 233}], 
           LineBox[{3, 234}], 
           LineBox[{4, 235}], 
           LineBox[{5, 236}], 
           LineBox[{6, 237}], 
           LineBox[{7, 238}], 
           LineBox[{8, 239}], 
           LineBox[{9, 240}], 
           LineBox[{10, 241}], 
           LineBox[{11, 242}], 
           LineBox[{12, 243}], 
           LineBox[{13, 244}], 
           LineBox[{14, 245}], 
           LineBox[{15, 246}], 
           LineBox[{16, 247}], 
           LineBox[{17, 248}], 
           LineBox[{18, 249}], 
           LineBox[{19, 250}], 
           LineBox[{20, 251}], 
           LineBox[{21, 252}], 
           LineBox[{22, 253}], 
           LineBox[{23, 254}], 
           LineBox[{24, 255}], 
           LineBox[{25, 256}], 
           LineBox[{26, 257}], 
           LineBox[{27, 258}], 
           LineBox[{28, 259}], 
           LineBox[{29, 260}], 
           LineBox[{30, 261}], 
           LineBox[{31, 262}], 
           LineBox[{32, 263}], 
           LineBox[{33, 264}], 
           LineBox[{34, 265}], 
           LineBox[{35, 266}], 
           LineBox[{36, 267}], 
           LineBox[{37, 268}], 
           LineBox[{38, 269}], 
           LineBox[{39, 270}], 
           LineBox[{40, 271}], 
           LineBox[{41, 272}], 
           LineBox[{42, 273}], 
           LineBox[{43, 274}], 
           LineBox[{44, 275}], 
           LineBox[{45, 276}], 
           LineBox[{46, 277}], 
           LineBox[{47, 278}], 
           LineBox[{48, 279}], 
           LineBox[{49, 280}], 
           LineBox[{50, 281}], 
           LineBox[{51, 282}], 
           LineBox[{52, 283}], 
           LineBox[{53, 284}], 
           LineBox[{54, 285}], 
           LineBox[{55, 286}], 
           LineBox[{56, 287}], 
           LineBox[{57, 288}], 
           LineBox[{58, 289}], 
           LineBox[{59, 290}], 
           LineBox[{60, 291}], 
           LineBox[{61, 292}], 
           LineBox[{62, 293}], 
           LineBox[{63, 294}], 
           LineBox[{64, 295}], 
           LineBox[{65, 296}], 
           LineBox[{66, 297}], 
           LineBox[{67, 298}], 
           LineBox[{68, 299}], 
           LineBox[{69, 300}], 
           LineBox[{70, 301}], 
           LineBox[{71, 302}], 
           LineBox[{72, 303}], 
           LineBox[{73, 304}], 
           LineBox[{74, 305}], 
           LineBox[{75, 306}], 
           LineBox[{76, 307}], 
           LineBox[{77, 308}], 
           LineBox[{78, 309}], 
           LineBox[{79, 310}], 
           LineBox[{80, 311}], 
           LineBox[{81, 312}], 
           LineBox[{82, 313}], 
           LineBox[{83, 314}], 
           LineBox[{84, 315}], 
           LineBox[{85, 316}], 
           LineBox[{86, 317}], 
           LineBox[{87, 318}], 
           LineBox[{88, 319}], 
           LineBox[{89, 320}], 
           LineBox[{90, 321}], 
           LineBox[{91, 322}], 
           LineBox[{92, 323}], 
           LineBox[{93, 324}], 
           LineBox[{94, 325}]}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           PointBox[CompressedData["
1:eJwVztk2QgEAQNHbp/gZU4iSMUVkJplCElLIrBAZwo/aHvZa5/F0pLPR9VAQ
BEk6RRfd9NBLmD76GSDCIENEiTFMnBFGGWOcCSZJMEWSFNPMkGaWOTLMs8Ai
Syyzwipr/I9m2SDHJltss8MuefbY54AChxQ5osQxJ5xS5owKVc654JIaV1xz
wy133PPAI3UaPPHMC01eeaPFOx988kWbb3745Q/rlS03
            "]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           PointBox[CompressedData["
1:eJwV0Nc6AmAAgOE/d+KWXIADF8BNoSTZq4xQ2Ss7svcmGZmvg/d5vuOvtqGp
rjESQqinWbTQSpQYbcRpJ0EHSTrpopseeumjnwEGGWKYFGlGGGWMcTJMMMkU
WXLkmWaGWeaYZ4FFllhmhVUKrLHOBptssc0ORXbZo8Q+BxxyxDEnnHLGORdc
csU1N9xyxz0PPPLEM2VeqPDKG+98UOWTL7754fd/ek0IEf4Afx1NvQ==
            "]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           
           PointBox[{514, 515, 516, 517, 518, 519, 520, 521, 522, 523, 524, 
            525, 526, 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 
            538, 539, 540, 541, 542, 543, 544, 545, 546, 547, 548, 549, 550, 
            551, 552, 553, 554, 555, 556}]}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
       AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, DisplayFunction :> 
       Identity, Epilog -> {
         InsetBox[
          FormBox[
           StyleBox[
           "\"\[Degree]C\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.1, 0.9}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"a2: DICE2016\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.9}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"The Dive\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.75, 0.45}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.7}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.2}]], {0, 0}]}, 
       Frame -> {{True, False}, {True, False}}, 
       FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{{{-0.3, 
            FormBox[
             RowBox[{"-", "0.3`"}], TraditionalForm]}, {0, 
            FormBox["0", TraditionalForm]}, {0.3, 
            FormBox["0.3`", TraditionalForm]}}, None}, {{{2050, 
            FormBox["2050", TraditionalForm]}, {2100, 
            FormBox["2100", TraditionalForm]}, {2150, 
            FormBox["2150", TraditionalForm]}}, {{-0.5, 
            FormBox[
             RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
            FormBox["0", TraditionalForm]}, {1., 
            FormBox["1.`", TraditionalForm]}}}}, GridLines -> {None, None}, 
       GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
       Directive[FontFamily -> "Helvetica", FontSize -> 18, 
         GrayLevel[0]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
       PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}], {2095, 273}, Automatic, 
     Scaled[0.42]], 
    InsetBox[
     GraphicsBox[{{}, 
       GraphicsComplexBox[CompressedData["
1:eJzt2PtXzfkawPGajMmlpDXHVBJjDI1LdG+Sesbp4lIiCpVKd1HGoHSRMqb2
GN3cD0aPKYdEQkK5hBhiSCoyMVEWznTOCSc7k3IePZ9mTZ+/YGat/f2h1uuH
ffl892e/e/p8HLjUI+Q9NTW1CfTj3e+uSxeheKB7tHnOGocuf4hg1/atxlNl
GnsQwqNCi5Ycg61sPYTxuRf/rufwPdsA4VhL63ETyx/YhggzL6X5XL+5l22E
0OKepxuyNI89DOHTFdvK5w88xB6OYDnZYfZhn0L2CATri1ptbyYcZY9E0J90
onKLZhHbGKFhWvSSXo+Os0cj3Jk+u5fNmRPssQibOv36Dthxim2CcCHcq3hA
bCl7AsKta8ZbfbzPsM0QnuYq0w5POse2QIgvswuuSC1jWyFEtx80m+19nm2D
sPHJb/aGIy6wbRHG+W976HBf2A4h3y9x39UNF9n2CF9tCM6YaV7OBoTp3s+1
vrkpPBkh7dgzzYbQS2xHBEc9h7T4l8LO9HmEolnn6svsKQi2RuYz9d8KT6P7
2249fkbCj2xXhIlDrsRFtArPQJifYlN7KfIKeyZCxINl69ObhD0QJmnpjVjt
fZU9B0HH7uyZxZXCXggnjjqG/cOpgj0PweOl54sjpcLe9P5MDjg5ml5j+yK4
pTS+7r9f2A9hwQPDghqj6+wAhFG6rpbHtgoHIoQvyHkMA35iByNUBxikZCiE
QxEUQQvqnTVusMMRXvTe/lo7UTgC4WGV6RP9duEltN7UnPwVMTfZUQg2Z75T
Nr4S/hJhimWzsty2kv0VQofpIbegeOEVCJ9FW2i3lgpHIwzepUiM7BBehfDJ
7uZQZ4db7DiENsN56ZnJwgkISf2HTNxfLpyIYNWUrV/+QRU7CSEy7+vTRq7C
axGWDdZqGJcpvA5BO3Vv8tAa4RSEval7aq7q32Yr6P4kH9zn5S+8HiEzO83X
eq/wBoSsZLvShF+F0xGcqh2zM8yq2ZkIH+3etj4tVngjwiLP6bYV54U3I6ip
L64p6FPD3kqPX5sXWushvB3B9UDxzoadwjsQEtc3luU/Ft6FsMMvcOzt8bXs
3QgBP6mv/TxOGBECQyxexF4S/oH2f5zCOUbnDjsXIaY2qrTSV/ifCOpKuzX3
9gvvR5j1+s6LilbhAwhhWg/mPp58l32Qvv8dLy0CMoULEDSHrOiT+kC4EKFJ
18VIMbaOfZT2Z+SlzqPxwkW0f/72cGROhXAxQkjnLetFBvfYJ2k/vR5nOz9C
uARh+0cBQ78vET6N8EXIm/YN/X5mn0W4Unnk62m+wmUIBt9WaloVCF+g91/r
AffeCpcjbEloNpnpUc++jPCdxXPtllzhKwhjUgfV3VAKVyAos3w2RU2/z75O
683q/3nxbmFt+jz/eOlI1pX8oeRBkvUkG0g2lGwkmfqf9u/jqLxcdrbL1P/n
4Y2K423VbOr/nCadZctH17FHSo83ljxa8ljJJpInSDaTbCHZSrKNZFvJdpLt
JUP3+ht4fdT/fO+qWdqhGue6TP0PdT1vEHZ7IJv6/8SiX9HEXD029f+Ev/18
U98hbOr/m7znVW6Bw9jUf2XGN091bIazqf8vV+p33tYawab++/Q7Vnlj0Ui2
R/fzG7Op/+4VuSlWamPYXt2vN45N/f8tQH9wSd14NvV/qGlc1J4xpmzqf0GY
5o9j483Y1H/3p62jnp8yZ1P/HxitS0roY8mm/jfPiNm96oYVm/o/KckpsUNn
Ipv6Hx9W5Dk12IFN/V+wL2trxc9fsKn//6p8Fms9yJFN/S8bfi5RoeXMpv4f
DfpE5/CvLmzq/97cd0Gdyqb+p8PpAv/C6Wzqv8cUs/yYk27s6O71urOp/24R
4RqF6rPY1H/DEY6v1w7yYFP/G21aIk6Zz2ZT/02GFRmddZ3Dpv4vDZwyY2SU
J5v6fyS3fnV6hheb+n8txXKL08K5bOp/nw7XM1ED57Gp//Y3LBa2XxWm/i/P
NnxfsXY+m/rfGvwuWN5s6n+fqNwlWUU+bOr/nqmBU0+1+7Kp/wcP3fWPdvdj
U/8nNoWeVM/2Z1P/G0oCnVfFB7Cp/zkaGwuXjlrI3tG9X4Wp/0/ym4JikgPZ
1P84z7DjZUZBbOq/1ttnvfueFqb+P8paFWs7N5hN/Tf3+G/erlfC1P91uqH3
OreEsKn/1VX1fRdahrKp/415Lgb1tcLU/8iCHU8UCWFs6v945dVZScbhbOq/
5Wfv3/erEqb+ty2zcPFKXMSm/peUBB1xGx3Bpv6v1tg02KlWmPrfGVgc7Llu
MZv6v+ZC3aEQsyVs6v/bjzterWwQpv4nJQ+DlPRINvX/rNI6/LB9FJv6/ybS
PfPuf4TLu+//Ujb1f6fNqV/2GH/Jpv6XvCxfXpwkTP23KZkWc6dOmPo/b6VX
v2bTZWI/ZoPaH68kyeskKyRvkJwpebPk7ZJ3SUbJuZL3Sz4ouVBykeSTkk9L
LpNcLvmK5OuSKyVXS74ruV5yg+QmyU8lN0tukfw/yW2S30hWk/4evSe5l+Te
kjURHPKvb6795ZF9l/siOBcNmR0T4sLzRn/qUY2dS1Np8O/zx6cfNEe82LyS
TfMHXkyIVX+VzKb5o13jcfHqjPW/W/5/tMfrq+aRnlbNI6p5RDWPqOaRv8o8
ojpvVJ03qs4bVeeNqvNGtuq8sadV831Pq+Z71Xyvmu9V8/1fZb5XnTf2tOq8
saf/ROeN/wdyCqSx
        "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
           GrayLevel[0.85], 
           LineBox[{97, 234}], 
           LineBox[{2, 235}], 
           LineBox[{3, 236}], 
           LineBox[{4, 237}], 
           LineBox[{5, 238}], 
           LineBox[{6, 239}], 
           LineBox[{7, 240}], 
           LineBox[{8, 241}], 
           LineBox[{9, 242}], 
           LineBox[{10, 243}], 
           LineBox[{11, 244}], 
           LineBox[{12, 245}], 
           LineBox[{13, 246}], 
           LineBox[{14, 247}], 
           LineBox[{15, 248}], 
           LineBox[{16, 249}], 
           LineBox[{17, 250}], 
           LineBox[{18, 251}], 
           LineBox[{19, 252}], 
           LineBox[{20, 253}], 
           LineBox[{21, 254}], 
           LineBox[{22, 255}], 
           LineBox[{23, 256}], 
           LineBox[{24, 257}], 
           LineBox[{25, 258}], 
           LineBox[{26, 259}], 
           LineBox[{27, 260}], 
           LineBox[{28, 261}], 
           LineBox[{29, 262}], 
           LineBox[{30, 263}], 
           LineBox[{31, 264}], 
           LineBox[{32, 265}], 
           LineBox[{33, 266}], 
           LineBox[{34, 267}], 
           LineBox[{35, 268}], 
           LineBox[{36, 269}], 
           LineBox[{37, 270}], 
           LineBox[{38, 271}], 
           LineBox[{39, 272}], 
           LineBox[{40, 273}], 
           LineBox[{41, 274}], 
           LineBox[{42, 275}], 
           LineBox[{43, 276}], 
           LineBox[{44, 277}], 
           LineBox[{45, 278}], 
           LineBox[{46, 279}], 
           LineBox[{47, 280}], 
           LineBox[{48, 281}], 
           LineBox[{49, 282}], 
           LineBox[{50, 283}], 
           LineBox[{51, 284}], 
           LineBox[{52, 285}], 
           LineBox[{53, 286}], 
           LineBox[{54, 287}], 
           LineBox[{55, 288}], 
           LineBox[{56, 289}], 
           LineBox[{57, 290}], 
           LineBox[{58, 291}], 
           LineBox[{59, 292}], 
           LineBox[{60, 293}], 
           LineBox[{61, 294}], 
           LineBox[{62, 295}], 
           LineBox[{63, 296}], 
           LineBox[{64, 297}], 
           LineBox[{65, 298}], 
           LineBox[{66, 299}], 
           LineBox[{67, 300}], 
           LineBox[{68, 301}], 
           LineBox[{69, 302}], 
           LineBox[{70, 303}], 
           LineBox[{71, 304}], 
           LineBox[{72, 305}], 
           LineBox[{73, 306}], 
           LineBox[{74, 307}], 
           LineBox[{75, 308}], 
           LineBox[{76, 309}], 
           LineBox[{77, 310}], 
           LineBox[{78, 311}], 
           LineBox[{79, 312}], 
           LineBox[{80, 313}], 
           LineBox[{81, 314}], 
           LineBox[{82, 315}], 
           LineBox[{83, 316}], 
           LineBox[{84, 317}], 
           LineBox[{85, 318}], 
           LineBox[{86, 319}], 
           LineBox[{87, 320}], 
           LineBox[{88, 321}], 
           LineBox[{89, 322}], 
           LineBox[{90, 323}], 
           LineBox[{91, 324}], 
           LineBox[{92, 325}], 
           LineBox[{93, 326}], 
           LineBox[{94, 327}]}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           PointBox[CompressedData["
1:eJwVztc6ggEAgOHfpbgbIhTJDCnZoYwikp2RXUZGcp9eB+/zfIdfZzIbXe0I
giBBl+gmRA+9hOmjnwEiRBlkiBjDxBlhlDHGmWCSBFNMM0OSWVKkmSPDPAss
ssQyK/wPZlljnQ1y5Nlki212KFBklz1K7HNAmUMqHHHMCaeccc4FVS654pob
atxyxz0PPPLEM3UavPDKG+80+eCTL75p8UObX/4Adywt8w==
            "]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           PointBox[CompressedData["
1:eJwV0Oc2AmAAgOGvcCFuyRU4LoC7KmSvZGWUPbNF9t5EiHj8eM55f7+1DU11
jZEQQj0xEaeZFlpJ0EY7HXTSRTc99NJHPwMkGSTFEMOMMMoYacaZYJIpMmSZ
ZoZZ5phngUWWWGaFVdbIsc4Gm2yxzQ677JFnnwMKHHLEMSeccsY5F1xyxTU3
3HLHPQ888sQzL7xS5I13SnzwyRdlvvmhwu//7GgIEaJUUU0Nf1YUTIo=
            "]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           
           PointBox[{518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 528, 
            529, 530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, 541, 
            542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 
            555, 556, 557, 558, 559, 560}]}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
       AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, DisplayFunction :> 
       Identity, Epilog -> {
         InsetBox[
          FormBox[
           StyleBox[
           "\"\[Degree]C\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.1, 0.9}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"a3: FaIR-Geoffroy\"", {
            FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
            False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.6, 0.9}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"The Dive\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.75, 0.5}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.7}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.3}]], {0, 0}]}, 
       Frame -> {{True, False}, {True, False}}, 
       FrameLabel -> {{None, None}, {None, None}}, 
       FrameTicks -> {{None, None}, {{{2050, 
            FormBox["2050", TraditionalForm]}, {2100, 
            FormBox["2100", TraditionalForm]}, {2150, 
            FormBox["2150", TraditionalForm]}}, {{-0.5, 
            FormBox[
             RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
            FormBox["0", TraditionalForm]}, {1., 
            FormBox["1.`", TraditionalForm]}}}}, GridLines -> {None, None}, 
       GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
       Directive[FontFamily -> "Helvetica", FontSize -> 18, 
         GrayLevel[0]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
       PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}], {2125, 273}, Automatic, 
     Scaled[0.42]]},
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox["\"CO2 Price in year 2030 in US(2015)/tCO2\"", TraditionalForm], 
     None}, {
     FormBox["\"Year in which ceiling applies\"", TraditionalForm], None}},
  FrameTicks->{{{{20, 
       FormBox["20", TraditionalForm]}, {50, 
       FormBox["50", TraditionalForm]}, {136, 
       FormBox["136", TraditionalForm]}, {200, 
       FormBox["200", TraditionalForm]}, {249, 
       FormBox["249", TraditionalForm]}, {307, 
       FormBox["307", TraditionalForm]}, {340, 
       FormBox["340", TraditionalForm]}}, None}, {{{2020, 
       FormBox["2020", TraditionalForm]}, {2050, 
       FormBox["2050", TraditionalForm]}, {2100, 
       FormBox["2100", TraditionalForm]}, {2150, 
       FormBox["2150", TraditionalForm]}}, None}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->1200,
  LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
    GrayLevel[0]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2015, 2150}, {0, 350}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 10}, {1, 1}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.824290461206547*^9, 3.824290514783423*^9, {3.8242906590177903`*^9, 
   3.8242906942854786`*^9}, {3.824290755465615*^9, 3.8242907998465767`*^9}, {
   3.8242908530236263`*^9, 3.824290989253189*^9}, 3.8242914396399145`*^9, {
   3.8242914971896257`*^9, 3.8242915432890854`*^9}, 3.8245431968753805`*^9, 
   3.824543256137754*^9, 3.824620275200497*^9, 3.8252168114273095`*^9, 
   3.8254246750512753`*^9},
 CellLabel->
  "Out[1053]=",ExpressionUUID->"7f6657ac-ac78-4797-a10e-6a113b2854fb"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.8241207070673294`*^9},ExpressionUUID->"e3efbba4-dabc-4c1f-8e9c-\
5c8aeccbfb98"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{"PeakTemp", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD16medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD16high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGlow", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGmedium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGhigh", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2150"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "DotDashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"False", ",", "True"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"False", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "20", ",", "50", ",", "136", ",", "200", ",", "252", ",", "312", 
            ",", "346"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "0.25", ",", "0.50", ",", "0.75", ",", "0.96", ",", "1.14", ",", 
            "1.35"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"None", ",", "\"\<Peak \[Degree]C relative to ceiling\>\""}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "3"}]}], ",", 
     RowBox[{"ImagePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"63", ",", "80"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "35"}], "}"}]}], "}"}]}]}], "]"}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.823769760321577*^9, 3.823769817471742*^9}, {
   3.82376984767619*^9, 3.823769867218925*^9}, {3.823769921034752*^9, 
   3.823769926879631*^9}, {3.8237699693338337`*^9, 3.823770000225604*^9}, {
   3.8238789831680326`*^9, 3.8238790337206187`*^9}, {3.823879082281946*^9, 
   3.8238791003415375`*^9}, {3.8238791519441366`*^9, 3.823879179838029*^9}, {
   3.824092780631268*^9, 3.8240928555392714`*^9}, {3.8240928981457005`*^9, 
   3.8240929942836285`*^9}, {3.8240930404167614`*^9, 
   3.8240930575294647`*^9}, {3.8240932502966003`*^9, 3.82409339650869*^9}, {
   3.824093508617507*^9, 3.8240935578743906`*^9}, {3.8240936031854935`*^9, 
   3.824093618588475*^9}, {3.8240936735305166`*^9, 3.824093725526871*^9}, {
   3.8240937575597916`*^9, 3.824093803103805*^9}, {3.8240938614948406`*^9, 
   3.8240939546359844`*^9}, {3.824093989846262*^9, 3.824093991606787*^9}, {
   3.824094065045829*^9, 3.8240940659832516`*^9}, {3.8240948155125713`*^9, 
   3.824094826120201*^9}, {3.8240948599479485`*^9, 3.8240949789715815`*^9}, {
   3.8240950145433445`*^9, 3.8240950153934298`*^9}, {3.8240950528970757`*^9, 
   3.8240951408157454`*^9}, {3.824095210671259*^9, 3.8240952117090254`*^9}, {
   3.8240954781829023`*^9, 3.824095705188472*^9}, {3.8240957452064447`*^9, 
   3.824095827520764*^9}, {3.824095898642528*^9, 3.8240960435211024`*^9}, {
   3.8240961192770805`*^9, 3.8240961889938173`*^9}, 3.824096614555083*^9, {
   3.8241236991879797`*^9, 3.824123703490944*^9}, {3.8242911646045856`*^9, 
   3.8242911857330203`*^9}},ExpressionUUID->"0cc22e45-1992-4758-95fc-\
79555c2dc75d"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"CO22030price", "=", 
  RowBox[{"Show", "[", 
   RowBox[{
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"osD16medium", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osD16low", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osD16high", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osFGmedium", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osFGlow", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osFGhigh", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2015", ",", "2150"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "350"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", " ", "DotDashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Orange", ",", "Thick"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{"Orange", ",", "Dashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Orange", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"PlotRangePadding", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "10"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
      RowBox[{"Frame", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
      ",", 
      RowBox[{"FrameTicks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
            "20", ",", "50", ",", "136", ",", "200", ",", "249", ",", "307", 
             ",", "340"}], "}"}], ",", "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"2020", ",", "2050", ",", "2100", ",", "2150"}], "}"}], 
           ",", "None"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Year in which ceiling applies\>\"", ",", 
         "\"\<CO2 Price in year 2030 in US(2015)/tCO2\>\"", ",", "None", ",", 
         "None"}], "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
      RowBox[{"AspectRatio", "\[Rule]", 
       RowBox[{"1", "/", "3"}]}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Text", "[", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<a1\>\"", ",", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
           RowBox[{"Offset", "[", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"0", ",", "0"}], "}"}], ",", 
             RowBox[{"Scaled", "[", 
              RowBox[{"{", 
               RowBox[{"0.40", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}]}], "]"}], ",", 
         RowBox[{"Inset", "[", 
          RowBox[{"IOVD16low", ",", 
           RowBox[{"{", 
            RowBox[{"2095", ",", "273"}], "}"}], ",", "Automatic", ",", 
           RowBox[{"Scaled", "[", "0.42", "]"}]}], "]"}], ",", 
         RowBox[{"Inset", "[", 
          RowBox[{"IOVFGlow", ",", 
           RowBox[{"{", 
            RowBox[{"2125", ",", "273"}], "}"}], ",", "Automatic", ",", 
           RowBox[{"Scaled", "[", "0.42", "]"}]}], "]"}]}], "}"}]}]}], "]"}], 
    ",", 
    RowBox[{"Graphics", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Orange", ",", "Thick", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2015.1", ",", "0"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2015.1", ",", "185"}], "}"}]}], "}"}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Thick", ",", 
         RowBox[{"Line", "[", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"2015.1", ",", "185"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"2015.1", ",", "350"}], "}"}]}], "}"}], "]"}]}], "}"}]}],
       "}"}], "]"}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PeakTemp", "=", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"osD16low", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osD16medium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osD16high", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osFGlow", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osFGmedium", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
         RowBox[{"osFGhigh", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", 
            RowBox[{"{", 
             RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2015", ",", "2150"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotRangePadding", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"0.035", ",", "0"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Red", ",", "Dashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Red", ",", "DotDashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "Thick"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Black", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
       RowBox[{"Frame", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"False", ",", "True"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"False", ",", "False"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"FrameTicks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
             "20", ",", "50", ",", "136", ",", "200", ",", "252", ",", "312", 
              ",", "346"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
             "0.25", ",", "0.50", ",", "0.75", ",", "0.96", ",", "1.14", ",", 
              "1.35"}], "}"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"FrameStyle", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Red", ",", "Red", ",", "Red"}], "}"}]}], ",", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "None", ",", 
            "\"\<Peak \[CapitalDelta]\[Degree]C relative to ceiling\>\""}], 
           "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
       RowBox[{"LabelStyle", "\[Rule]", 
        RowBox[{"Directive", "[", 
         RowBox[{
          RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
          RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
       RowBox[{"AspectRatio", "\[Rule]", 
        RowBox[{"1", "/", "3"}]}], ",", 
       RowBox[{"ImagePadding", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"73", ",", "80"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"50", ",", "35"}], "}"}]}], "}"}]}]}], "]"}], ",", 
     RowBox[{"Graphics", "[", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Thickness", "[", "0.004", "]"}], ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2149.9", ",", 
               RowBox[{"-", "0.03"}]}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2149.9", ",", "1.03"}], "}"}]}], "}"}], "]"}]}], "}"}],
         ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Thick", ",", 
          RowBox[{"Line", "[", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"{", 
              RowBox[{"2149.8", ",", "1.03"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"2149.8", ",", "1.5"}], "}"}]}], "}"}], "]"}]}], 
         "}"}]}], "}"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FigureA", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"Overlay", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"CO22030price", ",", "PeakTemp"}], "}"}], ",", 
       RowBox[{"ContentPadding", "\[Rule]", "False"}]}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", "Dashed", ",", "Thick"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", "Thick", ",", "DotDashed"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", "Thick"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", "Thick", ",", "Dashed"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Orange", ",", "Thick", ",", "DotDashed"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Thick"}], "}"}], ",", " ", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Thick", ",", "Dashed"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", "Thick", ",", "DotDashed"}], "}"}], ",", 
           "Black", ",", 
           RowBox[{"{", 
            RowBox[{"Black", ",", "Thick", ",", "Dashed"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Black", ",", "Thick", ",", "DotDashed"}], "}"}]}], "}"}],
          ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2P D16(med)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2P D16(low)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2P D16(high)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2P FG(med)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2P FG(low)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2P FG(high)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D16(med)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D16(low)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D16(high)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C FG(med)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C FG(low)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C FG(high)\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.824291319967455*^9, 3.824291408724327*^9}, {
   3.8245432835415044`*^9, 3.824543290565054*^9}, {3.8245433422162733`*^9, 
   3.8245433842018743`*^9}, {3.825216874398455*^9, 3.825216908357504*^9}, 
   3.8252171238648095`*^9, {3.825217157077857*^9, 3.8252172574449997`*^9}, {
   3.825217295183053*^9, 3.8252173848321805`*^9}, {3.825217414891223*^9, 
   3.8252174701893015`*^9}, 3.8252680117443295`*^9, {3.8252680662954617`*^9, 
   3.825268075406475*^9}, {3.825424732197357*^9, 
   3.8254247389508667`*^9}},ExpressionUUID->"59bd03aa-f00c-451b-9224-\
834b569cf196"],

Cell[BoxData[
 GraphicsBox[{{{}, {{{}, {}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large], 
       LineBox[CompressedData["
1:eJxd1GtQ1FUUAPDNBEIBNwMFCxZDUNEU10ekwZzkDQK6AvJQnvKQeKwamYqI
K60MEjAOoTxGjohCirSgAQkIMkiANIpQEANCCNoMmu7gBBmP/nmPH7p35s6d
34c7Z+45556lofGy8DkikShV2P+dr1diIYy3SnQSyw/AaycXwm1J0szRN07h
nMo5nXMW52zO5zgXcEbOxZxLOZdxVnG+wbmGcx3nRs7NnFs5d3C+z7mbcy/n
fs5DnEc4/8H5KecXnF9ynuQ8xVmE//ccznM5a3J+h/M8zjqc9RAeq/7JCHlj
McIa0xsmtkXkhQi9PTe7W9PI+gieGv3jddHkRQinBt2rY+zIhgi54oMuvxiQ
lyAM22jlXBzez/wBwrOQtfrya2QTBH+H41GPD5FNEdq9bpeOAPlDhC6rRHsd
bfIyBGXCo4HOe3JmCwQnv4Zc32/JKxCuBtgst/EnWyIcPHlBb5UJeTVCUFJJ
W3pTPPMaBL2G/Dg/J7KVED8u4uXFu3HMUoSY7zXqqz3JGxDqwOWERlcs8yaE
T+7bxeZ7k60REkOk3qqeGObNCBfcrF/m+JM/RXBVq7X9Bj5ntkWQd7bJxoLI
gHByQBXbORzNvFV4v1T2fGUk2R5hOlpP3DG2j9kRYapUOX1eTnZGGKqzVntP
RDG7IpTOlv29P4m8DaG7KkR/ribZA8FuS4kfZkYybxfiDSRsGjEiyxCSnbxK
/yyOYPZCqFxQudpQSvYR7v+kZ6luCGf2RZinPKi73pPsj5CXrYhbO7SXeTfC
CfNdFZP7yYEIE285xw5rkIOFfF+vWDieF8YcirDFsMIzeR15L8JsQFuGbnso
c4RQT3NJ7ekwchSC70jPgnWzIczRCOs3aj8UF5BjEL4JW3Y0ZTM5Tqj3YP3F
lr5gZjmCVo7ZXtNE8gEEF3F5cpOE/AVCdN+dDV2pQcxfCv1wxMDI+NdA5q8Q
Nh5FA0ML8hGEtZ5P0mSH9zAnInQ88Ph59N5u5iQhX8lqnSUryckIfe1uM8uV
AcwKhCrFZXOfUX/mFIR86x8HLziTlQiNCXfSX1zzY05FOBT5rGr+YnIawkyB
YipG4cucjlBxukjLVr2LOUOIZyzTyQolZyGYzGooRD0+zGcQMh+dcjXzIGcj
HLY5py9p9WbOEfKd4DP/qT35HMJfz191+DV7MechiK+fjS1xJBcI/8FqRVfU
3Z3M54V5EKbRoLuTjAj4Xc9HcwZkzEUIxjZJ8V37yMUIoe7hO3ondzBfFvp/
8F2DK2nkUmEevdrTm2dCvoKgXv2ZI/ywnbkMwSqlYGLWnVyOUKNZ5ap64Mms
QpDU/257QJdcKeSv+ozx++4ezDcQHHN1pW1Z7sxVQr84jIsW/baNuQbh1sNp
daA5+SbC2dEx6VSCG3MdwqX+YxmZ7a7MtxCk5TXWlmbkRoSiY2VD1cddmJsQ
vJveOzI96MzcjNDyStPiY3tyC8LXZs6Xeq86Mbci1K6qDZYvJrcjGD2J37pU
6cjcgVCoan67fdIB/gXPX7+m
        "]]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxd1H801lccB3DMrKU5No2YPDTJr9Jkz6LFB2WeyK/Hr0ny8/FbEXLK9BDR
Mjzya3T4VERYmVTPiT1JhjWZ2Tr5NbOOXzUdNotmju277j07Z/eec889r3P/
+Nx7z+d99YIPe4QpyMnJ5XDz3/XlSK2CN/hJOsXecfDS4irQ9PHX/s+ZjHMY
5zIuYFzEuIzxecbIuJpxHeNGxk2MWxhLGbcxbmfcybiHcS/jfsY/Mh5kPMp4
nPEE4xnGs4znGf/B+AXjFcZy+H8rMFZkrMR4DeO1jNcxVkF45cH0aKw7tSpC
r/RKumgn9VsIArOoJRNV6vUIPjOnwmJGYonVEcYX7q35pYJ6A0KtpOT+iAe1
FkJ8b/OWdHlqbYRlMYQP1MUQ6yCIhleLiwXUughTv5qv1E5EE29C2Gi1e67r
OLU+t69Q2l2+jtoAQXFKTygrjyI2RNjBT7x+ZzO1MYJn7sIHelcjiU25+19Z
8nSxoN6GYJU0eb1NGkG8HaFZLSDjh13U5gh+i/pNlnfCiS0QUkrPvuhzoOYj
XEj35R/tFxHvRJhY/HZLwwFqKwT1nMqib2bCiD9EsMCxXK1j1NYIj60TogeU
qAEhAr7SfL8slNgOIVH54Jl2Y+o9XL2lLlWxLITYAeFRZHVNgpDaEaHrzLXk
oqfBxPsQSht4FRMZ1M4IHW7Zb8dpU7sgFKyXBBXfCiJ2Q9gvG5py8KT2QIj5
XqFl6++BxJ4IXqPSr1ck1N4If0ue9EfuoPbl3vO17zINGg8R+yH8pNy7du/z
AGJ/hATz+AZdW+oABJNs9aG+/IPEgdz5hr4IM3/sTxyMYGly0WCZTx2KoHJJ
NyU1/wCxCMEs7pJ821M/4giEmtN8uXcE1FEI2xc2rnTWf0wcg/CqR/CjRRXq
OATdZyfFN5J9iY8gdD+fW+4d9yFO4PrbTOTk7UKdiGDjlaUULPMmTka48efJ
h5L3qFMQDNMfWKbUehEfR5gfcw+x06VORcgc/NxuusKTOA3h8qFNY1Za1GKE
wSDn5RMVQuIMhCCP1FQ7HnUm1w/2wuTlGg/i01y+zrmHbTCjzkEIl8pX8Vrd
iT9FEJbo5SUJqHO5fE4lnLow7Each3Ct+aaRThx1AULjZ1+qBShSFyL0DGRv
q7N0JS5CcAW1oHuHXYhLEHLTk7Rt6vcTl3H/hanRsaonzsTlCN6maULfrdTn
EXy7f7OvSXIirkSo7sosc+rYR4xcfkYNRk3UqC8iuOXHah6JEBBXc/1mq2+f
d9eR+DJCW9HtUG0edR3CiHNWir74I+J6BIkRL6N+0oG4ESF6TugV4UJ9FeHN
o4KHya17iZsQftYorW8xoW5GSFs9MT9ctYe4BcHg7F/5zhrUNxE6AwwDdxXa
E0sRFvsiGgpVqW9z+Wrnpa1K7IjbEGarZabP1KllCJt5rcpFlbbE7Vy9grC7
nUbUHVw9y0Cfc7eAuBPhdXcZZjlSdyGEBC/Ex0ptiHu4/+mTqUbXSWvi+5yN
xyunNah7Ed6tnBU5uO6GfwCBbXi5
        "]]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJxd02lMFEYUB3Ag2AJB6lWLqEQJVErQKghdCdBXbD1XQQ4LKy6w7Moh7CIg
XRCFItCVQF288IQnsoYllKJyiYpo6YbLerbBFsJWsViECmKFQtVunZcmnUkm
k9+HN5m8ef+FEoW/zMTIyEhl2P+eb1Z6CQw2RSrjqpLhjTNLYE+C987/nM1Z
xTmfs5rzIc5HOZ/kjJzLOJdzruRczbmGcwPny5ybObdwbuXcyfkW53ucuzh3
c9Zz7uP8mPMg52HOzzmPc/6bsxH+3yacTTm/xdmMswVnS85WnKchOD2qneGh
Ic9ASPqyI/JGIXkWwmMXN3NbJXm2oX6+IMo0hGyNoFhzxiTKjWyDsM7+doej
FXkeQkP/X3d1D5OYbRG2Kk5o/erICxB8oCnbIpdshzB1eUnSRwFke0O93bJP
ptqS30fI2Pti4OFvicyOCHb5JTqvKrITwh3jtV1jSWRnhIuuMy2jBOQlCKWD
ix+lT+5gXorg3q8/5neF7IKgKZ5y2nMPeTnC04CgaL032R3hC2HP4VOvEpgF
CHej3g4tukL2QIhwO1L9YhfZE6FRuCGr3oPsjbCldrvPzyMKZkB4LyIvMSae
7IMwN8f+QtrvcuZPDfevz5dNyMirEMpaqoaGfo1nXoMQfT6jOFdMXofwrcU9
SUJ3HLMQoWR+wtZlIvJGhPIVqYX7urYz+yHckr72LAgm+yP07S2+UdEVyxyI
sNLmXcH9EPJmhDNVtWPa7hjmYIS4j+c8/C6MLEJIiVfUl/VFM4ciTD/rWKSL
JYsRLGadU0WMRDGHIzwLW2CmTiNLEIaOORjHmpKlCOMToqLj+7cxbzO8v3zi
8A/zyNGGfkkPFF6okDHHIqgWex0f8CDHIVRdSq1Y2SllliNkqZ3DTcLICQhe
dbLm+6ORzIkINpMHCr7aR05GKDDTXdMsJKcgyOVC365GCbMS4Xn+7jZdEDkN
4dSHL8TpzyKY0xGkN4s7AtXkPQiDmxpsc5aSMxFir9bO1NwOZ85CeBWuvziW
TM5GaN61umDfHHIuguTqop+0GWHMKoTUg72lB2+KmfMQdnXXixbZkfMN/98e
49um3Mr8NcL3O/Q/Jt4OZVYjmMvL4gqXkA8g9K+w69UUbGE+hJDbFnitfFjE
fAShWjtaPh5EPoqQZztuXdkUwnwcYUqP+I61E/kkwstogUx+NJi52JDH3tOO
t8zJiLBJs+2dmt2fM5ci7G5fFtL9fDNzmSGP010nPeXkswjfaDJrXg8EMZcj
GF9J6L8eQ65AmBgpmv3nk0DmSoT7f9jipIJcZciz4LPViWMBzNUIwe0uLecy
yecRcux6bn4wlVyDoG+UrFKe8GeuQ8hc6xTQ6UxuMMyju2D6y6ubmBsRTmqk
K8w3ky8jaF3H1MNDfsxNhnn2K3XYryI3Iwh9gx8YO5CvI4itLj21VvkytyA8
eeBu09y2kVmH0Obdej58GrkVwa1oruVO0QbmdoRfzipDA7VC5k6E0ZTsu1mT
6+Ef1+GuLQ==
        "]]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large], 
       LineBox[CompressedData["
1:eJxd1AlMlEcUAODtorUBSldEg8DSotS4gBQBARXxKQseq7JScEUpInepRRBR
waNEFFYQUbSKYuFJgOLJpVSUyhFRChZsQUTuxm2kFiwQFUyl9K/zauJMMpl8
mUwy7715Yxaw1TNYLBKJ1ML8b30z9mRDiOTjtqEF/vDG8dnQJjE59dYHOKs5
H+Z8lPOJbLj3l/3pt87g9s9yRs65nAs4X+JcxPkq5+ucKzhXcb7NuY7zPc73
ObdwbuPcybmXs4ZzH+d+zoOcn3Me5fyaswjftZjzBM7vc/4A3623NsKisuAq
n/+ti1A18VHJHkuyHsKB8q6GsclkCYLbTW3Z4t5NzPoIPxZ0FYrTyAYIKamx
0qi55GkI4uFPvSLr/ZgNEer8a8+3biAbIeictkwI13zBbIIQ0O44ogojmyJE
5D0MCXziy/wJQtrX0yNPBpBnINxvra7ubt/IbI7wYEZORoWSPAuh1tHAZWPt
BubZCDHpl62/dyVbIAw9DEqNu+vDbIXQYyiOD1SSrRGqI9rKZnesZ7ZBGJ2X
PuG3MLItwu6QFfFnRlXM9sJ9z1lOLjhEdkAoaxsorTclOyEsNB5u0r22jnkB
woXMlMoBBdkZ4eSsPOz43ZvZRbhf+ZT+ym/IIOR/sPLbfmPyUgSRqiRwZrkX
sxxBK8M2ElRkd4Qfdpd7HBn5nHk5gmfGiFPzKfJKBMPj//hpLySvQvho705L
Rbcn8xqEU4+nqrMSyEqEkLnFr67LyJ4If7uYmMt/WcvsheDiu61TFkdeh+Ah
zowenElej7A2W6OX2aRk3oBgt/VBTMFusi+C/7rZv47JyH4IySqfDoNiD2Z/
hFynZVLpFHKAUC87/XOTd6xhDkK4tP51flHnauYQIb8W9pIGOTkMYXB1c+ik
olXM4Qh7C82crKXkLQiZUUY52qkK5giE/CGdQvPxlcyRCPJE74pj0eRtCEZ5
ivH0pyuYtyPYWHt/mRJI3oGgtyrCwKdnOfMuhLxbVgMtvuQ4IZ/6L/Z7dC1j
3oMQnBqndt9E3oewfWkfKjTuzPEIY9O+s7oWTt6PcHBGV5PsuRvzAYTpPrZ3
h/eRExEid7ZG3NQlqxFizf2yGjPlzMkIlknTHjXOIR9GyPKTNUiqXZmPCOd/
lo59piIfRThr69ijfraUOV3o74Rcj4tq8gmE8DV+QWJz8kmEys05S7RrljBn
IDzzNfzDbTP5DMLjCMnlqVrks0J+Eh1ExvnAnIUwqT98+ISCjAiJaWrZMc1i
5hwh/l1CQA7kXITxxpd9H6a4MOcj3HhxxtRAs4i5QDh/fk7M0cXkC0I9bfSs
pdnOzJeE92cWHax8j3xF6J/SQufloQuZi4T+9y5XvmpawFyC0JTV0GLuTL6K
kCoPm2B8cT5zmdDPsRevuErJ1xGizNJ63dOdmG8gXMk63u2oTa4Q/htRTZL+
QUfmWwhPlIkXMsTkKoTmr0qL9RMcmGsQfppfnPRyIvk2wpbjyXfaU+Yx30EI
mikp/HMKuQ7Boj5vSCfbnrke4Wl9aKypFfkewoiWqSFU2MG/CoWRKg==
        "]]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxd1AlQVVUYB/CHvVxAHwYqisQmGQGPAHEJWT6QRQgBX8gjZHEQ2Yy92HwW
GBQJNJhIRCxfsgsBohGgCWNQggsWCq8gwVGbxBdiGqNG1s3zjTOdO3PnzG/O
mbN893+uUXiCbM88kUiUJ7z/tU8fRRWsbzeXrrEOhqfOqoLxrCHNZ87hnMe5
gHMR52LOpZzLOSPnGs4NnJs5t3E+ybmT82nOvZz7OJ/jfIHzZc5XOCs5j3Oe
5HyT82+cVZxnquDB2QqNZ37A9T/kPMdZhP/3PM5izvM5L0Tw6izySLQiqyO0
eBn/ZahDXoygq+srTrqzk1mC0HzrkrfVcfJSYbwyLNV3L1kLYabniEqpS16G
MGylcPU+G8S8AiF7X6VTXDh5JULFbpjNnHuTWRfhl/S0iOZDZD2EwUfhd/uN
yfoIfwRPfPh+WyCzIYL+pKfGp5vJxggPrxsaDfbJmU0QHvSldGR5k9ciWFh0
Gsz8GMBsiqDokEhmA8lmwvpHQqw6r+1gtkAIa7+3Kz+CbIlgaFZY+tOUP7MV
gnledsv+JLINwlD2rYWrHr3BbIvg39Taop5D3oAwZv2OPHU5eRNCo8+C9spG
GbMdwinVaMW0M9keIX1Ge8Hl8e3Mjgh6qm2LBzLIgLAjdhbMV5FdEHJOnUgd
6/JjdkW43ZXb4hpCdkeYTj88cVSNvBWh8KueEw4yX2YvBHfTjgN11T7M3giR
NnpDUY+3Mfsg7C7vWZQrI/shjJ7JCu1s9WaWISRPXk2OkpD9hXotqb9wMel1
5gAEZ+l8zeERL+ZABFH+3GMjIAchaF/d+dzOJk/mYCFviec9ZLrkUAS5S5pn
ef5W5l0ItTF+tpoicrgwf9nxaLs0D+YIhC0O+8VPZtyZIxGyIpcaKOPI0QjB
hSqv8yo35liEY+6t800TyG8hPLmSfnvtfVfmeITvLfZpKTPJiQgNAWEhy8Xk
ZIRy3xebiou2ML+NELfa3XlGn5yKsK1bekijzYU5Xbh/7RIP+RZyJsLS1js6
KqUzs0LYn1pu5uNE8rsIDu4Zv95SJ2cJ9d4uNT5YD8wHhLwNiPz63cg5CEZT
jqLGi07MHwjf/4fV02u0yXkIJqWxkdIQR+aDCH97KqbFTQ7MBQgDhmkv1M3Z
M3+MYFp54vkcGbkIodowXbGvaTPzJwiHV4oDJIvIxUI9uz02yGPsmEuEPNzd
Ya596TXmUiFflokZzevJZQhuZgVS8RebmMsR8ld/XVqlSa5EqATlKwHZG5kR
oaB75Fr97AbmowgeBvfVsuPJNQhON6Vyp6n1zHXCfY0OCt8TTW4Qzlvzc/2N
27bMx4T+mP6Ny+LJzQgfrdF0XfHnOuYWhJHN45Il75HbEHyGoxYEa5DbEWxu
xNWOltkwn0TQ+TxAPduC3IHwZc9Lon96rZk7hfMI5RyRk7uF/6HZxDqte1bM
p4Xx0SnlYwXkM0K+u+Imqs3IvQinjR9OeJW8ynwWwT7merv6mCVzHwImpu79
zIT8HUKuRoZ4Y7KU+RxCydpaHPvWgnkQ4eVvEhS/ryJfQAjNLa7yTzGHfwGD
8356
        "]]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}], LineBox[CompressedData["
1:eJxd1Q1QVFUUAOAdEEFSBkmYBjYTBVQw2sQxwQUPiIjAgqxItKgQg0b+oUCr
IRj/MCCGC5n8xDvghghG4PAjRkbAkJr4i4KotDborKWJJtqaQS/v6c343syb
N9+cOfeeO/fc++xj4pUbjSQSSR7//vd9+aRw0L3RenHmhg/hpdM4yFXE3s34
31kcmLcrLwjO42Diyy2XBO/jQOrgaxBcJIqXcGBpvP5vwYc4sBly7xNcIcpH
UVzLQcqCVL3gWtH4x0TjN4rym0XjnxCtp0MU7xTl94jip0XxcxzE/tZwX/BF
UX39ovoGOfDwfNgr+KZofTpRfSMcQK7hsWC9KH5fNP6oKP6Eg0/Woo2wv3+J
6n8hypcg/KnOuiLYCGHRJqsxwZPw1fVNRjB07p8QbIavrsccIahWNyp4KkKw
Sza4hpEtEFRZMS56OdkSoS36qKvOjmyFYLPd4H/2cTTzDISHYZ2eF7rINghu
+77zXlRIfoO3boHjz0qyLcKb6l/elc8gSxHmy+PUt7RRzDMRBsdeU3fbkWch
KNOLt+kKNzDPRghYXuijMSU7INzpPy9ryV/P7ISwcGnB8FEr8jwE97Ypz85W
rGN25udzik8rdSYvQAgsVl58cDKS2RWh6fmcqcYKsgyhowll826rmBcijFrf
SlbsIi9CGC7OzVZNIy9GkH3U6vJE+wHzEgR/w6qWEC+yB+UPRDDLEd6THpy8
N4HshRBhNL9piwUZEKyVe5UPjr7P7INQYuNa3+hP9kXIiz3dNHY3nNmPz99Z
1yLLIfsjtPccMJ09lxyAUFPeM6vxp7XMQQgVW4134WZyMML45WqvM9PIqxE6
96wsnHI8jFnJ96PnnOm2EeQwBI368OeGf9YwhyNMc2+ttK8hRyDgxMwOdTBZ
heCifaEdeqZkXocQ2SzZVl9N3oBwIlJjrFaQoxFM4ebV+uehzDEIn2qS+kaO
kGMREgoM7VXh5E0Itxx3hvtOJscheJRUOde0rmbejGBuaeJWE0feysfNPFRX
bcnbEVpnFD1dVhnCvIPv7/Hd36pMyQkIZnf1j/YkBjMnIRjF6ge9byuY1Qh/
JH+cLwkl70ZYkn6veXt3EHMyQkP74Yk7i8kpCLm1XdztbwKZ9yJ4+9vI0h3J
aQj3ryeWlmEAcwbCZ8Nh2i4pOQuhdGOIUXn5KuYcfn6zIybvSMl5CN0DAyf7
K/2Z8xGqU4/p2uaQ9yHEB45kuNWtZN7P1/d4UlewG7mI31/IVHz1vR+zBuEt
S33QUAC5BCEpebjQ5PoK5oP8fZHi4Oi5mXwIYezGQHriC1/mMoT1oQFm4QfI
FXy/xF/Tpc4lVyJUuUyvHf9hOTMiOFz7dY1ERa5GuK4esp3+1IdZi9BnHDEy
UEyuQdA/1fTGuZFr+X53+tHucr83cx1/vnMKbl7ZRT6G8HWVn/0ZKbmBP1+H
JaGybmBuRPBbZhtcuoV8nO+PQDuLQGtyM8LbzYllJhnLmFv5/FOWCcM3vJhP
IKSus3PudSefROC7U/Gk1JO5g79fGqIa7cblzKcQZl2alB8RS+5EcPx9R9IX
55cydyHIB2PaLniQexCKMq02DdV5MPfy/SzPenRFSj6NcLlnaWexxp35LEJ9
SeU9R3PyOf7/0VfwelT2EvgX2KaZHg==
        "]]}}, {
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}]}}, {
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{
        0, Small, Small, 
         Small}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, {
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[0, 0, 1], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{0, Small, Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], Thickness[Large]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{Small, Small}]}, 
      {RGBColor[1, 0.5, 0], PointSize[
        NCache[
         Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
       Dashing[{
        0, Small, Small, 
         Small}]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}}, {{}, \
{}}}, {
    {RGBColor[1, 0.5, 0], Thickness[Large], 
     LineBox[{{2015.1, 0}, {2015.1, 185}}]}, 
    {RGBColor[0, 0, 1], Thickness[Large], 
     LineBox[{{2015.1, 185}, {2015.1, 350}}]}}},
  AspectRatio->NCache[
    Rational[1, 3], 0.3333333333333333],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{2015., 0},
  DisplayFunction->Identity,
  Epilog->{
    InsetBox[
     FormBox[
      StyleBox[
      "\"a1\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.4, 0.95}]], {0, 0}], 
    InsetBox[
     GraphicsBox[{{}, 
       GraphicsComplexBox[CompressedData["
1:eJzt2PtXzPkfwPFum6gUdrNufeWaWEsRFfVeRDdZ1crmsswmpGS7WKUvLSmW
Ulaayne8lGpWJN1LdJHpIkWLanVjRbb6SojNpX3xen/3rM9fsOd75vPDzHmc
M03N9J7nec1LT+TlsEFJQUFhGt68u39/DQWm8PfrY2BpbVEdnkaWFu+tA6yv
R6kzwfF78qfAMhZtjLHUDyGPBNZtbz4/e0MEeTSwFIuSGesqosi6wMT7tttn
sDjy2P89HsjjgI0os+pVm51AngDsoJd+YPbgJPIkYAc0UnaMfyol6wNbIZJE
Zd5LIRsA+yb9ybqDTankacCUgrUmuvSkkacD64iIu6samE6eAcz5Cw3fLvVM
siGwfV2Tvw0UZ5FnAZuwMPzsRrUcsjGwFqOhJ4d45JLnAnusHPFraUUe2RRY
UPfJRba6F8jzgOV5+FYv+66AbA5sdq2Dv1nJRTID1hQzMMRHs5C8AFhshnmb
eFoReRGwErs7hem13IuBTT9tuWimfzHZCpj6wE/XNI8uIdsA8+reV+FUzG0H
zGSXdJbI7TLZHtjNp1un6WuUkr8E1ha0ZqkkndsBmGRHtY62yxWyE7ATR601
PRVk5BXABvVkRHYkca8EtlI6+5qZfRnZBdhH7jN3iHu5VwNLfJ6j0nqinLwW
WP/qWa7zbCrI64Dl1BgYJT7nFgEz0B1+a1x8JdkVmMajbm3ZsqtkN3w/FWbZ
RL/l3gTsXmWDWcLZKrI7sKEz8gtMVl8jewDbfemzlafVq8lbgSn+MdRgbgH3
NmDnOoZ3hnjWkL2BFb8JGqCqfZ3sC8wm1iIpazP3dmB75l0I7LjMvQPYsarz
BSm6N8gBwE4Ve3re9ecOBPbuv5N6i3sXvr4wccPDmbXkIDx/Kv2rKsK59wCL
c/Zbod7JHYy/7/SNFEWbX8ghwBye7F7iJOXeD+zKnI/NVw24Sf4R2DjvvoBL
btyHgJ12VZDek3GHA9tiGfdb46Rb5Ahgkw6+OmwXyn0E2AOzlweU27mPYg/C
ahN3W98mHwP2L2trrYUp3GJg7hdbNpVp1pFjgel4hvvEbeM+jufFLtlv1E1u
CbDK5LJsjbn1ZADWPHdK1c7j3PHABg+Zk3xEsYF8Cp/PY7yk0407CVhWke6w
Kde4pfj+vKnL22z0K/k0sCPVReVXY7nP4Odtbb61htIdciqwBNMx5QHu3GnY
k7WLzzfWcqcDE9n17Zwyr5GcieezU7s/LZE7G5i3UWNQjVYTORdYV3eda1gA
dz6wz4vMTf3auAuA+VUmjFq/vJl8CVhMj5505EXuImDL/H3HTzNoIZfgeR7T
aq0ezV0KzNa0sthDqZUsA2ZxeLnE34S7HJiTrLAmdxt3JbAn/xE/F0m5q4Ad
fdk4sLeFG/se1pUFL2RFl94b+x5Vn3Wx6cjowvfGvhsYP/Ar1TMjY99jvvV3
nr/Onox9n6H17hW4kLHvsvhHna7bXMnY9zHf2wzo6PcgY99TXGqXD3bzIWPf
rZIWJj9s2kHGvm+9rK+m27KLjH3vya7dknF+Dxn7vjF76rNiwxAy9t1u7jMd
rccHyNh3f79wxYaOMDL2PSPaM/nskEgy9t03JlbFy+onMvbdxzZF77vDUWTs
+4K1WpOulEWTse+ueqYq4SqxZOy71/S32ZOtjpOx74YPUife3yshY98rzjTf
3b4JyNj3ncXJJv6RJ8nY98K8woDGnHgy9t0nWON+Q1sCGfte93m95h2dRDL2
/Z7ZzI4rXyaRse93EjVDE39IJmPfK93zJe35UjL2vb+6t13zxc9k7LvWEudH
/zVNIWPfV+jXvjm+5wwZ+145PDMi6MZZMvb9o8t5ISNGniNj339XrjALNUwj
Y98tvtqnKmrgxr7PWW7rMzX4PBn73hcT0DRuRjoZ+74+LOORWis39t1q69L8
zyIzyNh3C7PWfNHiTDL23ePY1cUPX3Nj35/OyzXbkpNFxr43p0YnqW3LJmPf
V6vI+lQn5ZCx77L9i05uaOLGvrfvD4x2iM4lY99Xrc1rNnbMI2Pfxw58tX3o
kHwy9t3xetfEsBvc2PfYhQ7qE3+6QMa+v5j/+znnlQVk7Hvk+k+8XHUvkrHv
b5e8O9Dc2PeOUeJG/fRLZOz7qzOGji67C8nYdyeTrikmk4vI2PfpzhbGFYe5
se8HRD2q4j+4se/vTudk12Iy9v3x13WbTK5zY9/7LAf2qc8vIWPf4ztKtKqT
ubHvxm2DHnsPuUzGvrPegBdlO7mx7z9ELTzo8ZAb+/4s1E2y2rGUjH0PfW20
92URN/bdzLG9QDb9Chn7bjWy8baOhBv7rvLwkH6XpoyMfc/4d/mq1F3c2Pcb
EU/0o7q5se+7yrrra0RlZOx7/9gjemW3ubHv34jtPjlkU07Gvtf1brf1LuLG
vv8Sb14xxriCjH3Pujdq0Imz3Nh3Jdf2+i8mVpKx71MTImumSrix73fcb49o
GX6VjH0/puaEfwI39t1+cdT6Rs0qMva9YEL1j9ID3Nj3LBkMWzDgGhn7PjNb
+z4Ec2PfXWwVN/crV5Ox73tbn3St2cuNfQ81KoxVVqkhY9+HaenHee/jxr5L
LDydkpWvk7Hvm9pPtIosubHvW3Zv3PkshDvwBFP4+xUkcLDA+wU+JHCEwEcF
Fgt8XGAQ+JTAUoHPCJwmcKbAuQIXCFwkcKnA5QJXCXxd4JsC1wvcKHCrwPcF
bhe4U+BugZ8J/FLg1wIrCL7PKQmsIrCqwGoCDxJYQ+DBwDaP+Wqptp8WzRva
wEyVcr8uWGn11/yhomjo2wmiv/zBz8vnEfk8Ip9H5POIfB75/5hH5PtE+T5R
vk+U7xPl+0SyfJ8on9/l87t8fpfP72T5/P7Pnt/l+8QPLd8nfuh/0D7xT/dc
vCs=
        "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
           GrayLevel[0.85], 
           LineBox[{95, 232}], 
           LineBox[{2, 233}], 
           LineBox[{3, 234}], 
           LineBox[{4, 235}], 
           LineBox[{5, 236}], 
           LineBox[{6, 237}], 
           LineBox[{7, 238}], 
           LineBox[{8, 239}], 
           LineBox[{9, 240}], 
           LineBox[{10, 241}], 
           LineBox[{11, 242}], 
           LineBox[{12, 243}], 
           LineBox[{13, 244}], 
           LineBox[{14, 245}], 
           LineBox[{15, 246}], 
           LineBox[{16, 247}], 
           LineBox[{17, 248}], 
           LineBox[{18, 249}], 
           LineBox[{19, 250}], 
           LineBox[{20, 251}], 
           LineBox[{21, 252}], 
           LineBox[{22, 253}], 
           LineBox[{23, 254}], 
           LineBox[{24, 255}], 
           LineBox[{25, 256}], 
           LineBox[{26, 257}], 
           LineBox[{27, 258}], 
           LineBox[{28, 259}], 
           LineBox[{29, 260}], 
           LineBox[{30, 261}], 
           LineBox[{31, 262}], 
           LineBox[{32, 263}], 
           LineBox[{33, 264}], 
           LineBox[{34, 265}], 
           LineBox[{35, 266}], 
           LineBox[{36, 267}], 
           LineBox[{37, 268}], 
           LineBox[{38, 269}], 
           LineBox[{39, 270}], 
           LineBox[{40, 271}], 
           LineBox[{41, 272}], 
           LineBox[{42, 273}], 
           LineBox[{43, 274}], 
           LineBox[{44, 275}], 
           LineBox[{45, 276}], 
           LineBox[{46, 277}], 
           LineBox[{47, 278}], 
           LineBox[{48, 279}], 
           LineBox[{49, 280}], 
           LineBox[{50, 281}], 
           LineBox[{51, 282}], 
           LineBox[{52, 283}], 
           LineBox[{53, 284}], 
           LineBox[{54, 285}], 
           LineBox[{55, 286}], 
           LineBox[{56, 287}], 
           LineBox[{57, 288}], 
           LineBox[{58, 289}], 
           LineBox[{59, 290}], 
           LineBox[{60, 291}], 
           LineBox[{61, 292}], 
           LineBox[{62, 293}], 
           LineBox[{63, 294}], 
           LineBox[{64, 295}], 
           LineBox[{65, 296}], 
           LineBox[{66, 297}], 
           LineBox[{67, 298}], 
           LineBox[{68, 299}], 
           LineBox[{69, 300}], 
           LineBox[{70, 301}], 
           LineBox[{71, 302}], 
           LineBox[{72, 303}], 
           LineBox[{73, 304}], 
           LineBox[{74, 305}], 
           LineBox[{75, 306}], 
           LineBox[{76, 307}], 
           LineBox[{77, 308}], 
           LineBox[{78, 309}], 
           LineBox[{79, 310}], 
           LineBox[{80, 311}], 
           LineBox[{81, 312}], 
           LineBox[{82, 313}], 
           LineBox[{83, 314}], 
           LineBox[{84, 315}], 
           LineBox[{85, 316}], 
           LineBox[{86, 317}], 
           LineBox[{87, 318}], 
           LineBox[{88, 319}], 
           LineBox[{89, 320}], 
           LineBox[{90, 321}], 
           LineBox[{91, 322}], 
           LineBox[{92, 323}], 
           LineBox[{93, 324}], 
           LineBox[{94, 325}]}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           PointBox[CompressedData["
1:eJwVztk2QgEAQNHbp/gZU4iSMUVkJplCElLIrBAZwo/aHvZa5/F0pLPR9VAQ
BEk6RRfd9NBLmD76GSDCIENEiTFMnBFGGWOcCSZJMEWSFNPMkGaWOTLMs8Ai
Syyzwipr/I9m2SDHJltss8MuefbY54AChxQ5osQxJ5xS5owKVc654JIaV1xz
wy133PPAI3UaPPHMC01eeaPFOx988kWbb3745Q/rlS03
            "]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           PointBox[CompressedData["
1:eJwV0Nc6AmAAgOE/d+KWXIADF8BNoSTZq4xQ2Ss7svcmGZmvg/d5vuOvtqGp
rjESQqinWbTQSpQYbcRpJ0EHSTrpopseeumjnwEGGWKYFGlGGGWMcTJMMMkU
WXLkmWaGWeaYZ4FFllhmhVUKrLHOBptssc0ORXbZo8Q+BxxyxDEnnHLGORdc
csU1N9xyxz0PPPLEM2VeqPDKG+98UOWTL7754fd/ek0IEf4Afx1NvQ==
            "]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           
           PointBox[{514, 515, 516, 517, 518, 519, 520, 521, 522, 523, 524, 
            525, 526, 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 
            538, 539, 540, 541, 542, 543, 544, 545, 546, 547, 548, 549, 550, 
            551, 552, 553, 554, 555, 556}]}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
       AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, DisplayFunction :> 
       Identity, Epilog -> {
         InsetBox[
          FormBox[
           StyleBox[
           "\"\[Degree]C\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.1, 0.9}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"a2: DICE2016\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.9}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"The Dive\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.75, 0.45}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.7}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.2}]], {0, 0}]}, 
       Frame -> {{True, False}, {True, False}}, 
       FrameLabel -> {{None, None}, {None, None}}, FrameTicks -> {{{{-0.3, 
            FormBox[
             RowBox[{"-", "0.3`"}], TraditionalForm]}, {0, 
            FormBox["0", TraditionalForm]}, {0.3, 
            FormBox["0.3`", TraditionalForm]}}, None}, {{{2050, 
            FormBox["2050", TraditionalForm]}, {2100, 
            FormBox["2100", TraditionalForm]}, {2150, 
            FormBox["2150", TraditionalForm]}}, {{-0.5, 
            FormBox[
             RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
            FormBox["0", TraditionalForm]}, {1., 
            FormBox["1.`", TraditionalForm]}}}}, GridLines -> {None, None}, 
       GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
       Directive[FontFamily -> "Helvetica", FontSize -> 18, 
         GrayLevel[0]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
       PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}], {2095, 273}, Automatic, 
     Scaled[0.42]], 
    InsetBox[
     GraphicsBox[{{}, 
       GraphicsComplexBox[CompressedData["
1:eJzt2PtXzfkawPGajMmlpDXHVBJjDI1LdG+Sesbp4lIiCpVKd1HGoHSRMqb2
GN3cD0aPKYdEQkK5hBhiSCoyMVEWznTOCSc7k3IePZ9mTZ+/YGat/f2h1uuH
ffl892e/e/p8HLjUI+Q9NTW1CfTj3e+uSxeheKB7tHnOGocuf4hg1/atxlNl
GnsQwqNCi5Ycg61sPYTxuRf/rufwPdsA4VhL63ETyx/YhggzL6X5XL+5l22E
0OKepxuyNI89DOHTFdvK5w88xB6OYDnZYfZhn0L2CATri1ptbyYcZY9E0J90
onKLZhHbGKFhWvSSXo+Os0cj3Jk+u5fNmRPssQibOv36Dthxim2CcCHcq3hA
bCl7AsKta8ZbfbzPsM0QnuYq0w5POse2QIgvswuuSC1jWyFEtx80m+19nm2D
sPHJb/aGIy6wbRHG+W976HBf2A4h3y9x39UNF9n2CF9tCM6YaV7OBoTp3s+1
vrkpPBkh7dgzzYbQS2xHBEc9h7T4l8LO9HmEolnn6svsKQi2RuYz9d8KT6P7
2249fkbCj2xXhIlDrsRFtArPQJifYlN7KfIKeyZCxINl69ObhD0QJmnpjVjt
fZU9B0HH7uyZxZXCXggnjjqG/cOpgj0PweOl54sjpcLe9P5MDjg5ml5j+yK4
pTS+7r9f2A9hwQPDghqj6+wAhFG6rpbHtgoHIoQvyHkMA35iByNUBxikZCiE
QxEUQQvqnTVusMMRXvTe/lo7UTgC4WGV6RP9duEltN7UnPwVMTfZUQg2Z75T
Nr4S/hJhimWzsty2kv0VQofpIbegeOEVCJ9FW2i3lgpHIwzepUiM7BBehfDJ
7uZQZ4db7DiENsN56ZnJwgkISf2HTNxfLpyIYNWUrV/+QRU7CSEy7+vTRq7C
axGWDdZqGJcpvA5BO3Vv8tAa4RSEval7aq7q32Yr6P4kH9zn5S+8HiEzO83X
eq/wBoSsZLvShF+F0xGcqh2zM8yq2ZkIH+3etj4tVngjwiLP6bYV54U3I6ip
L64p6FPD3kqPX5sXWushvB3B9UDxzoadwjsQEtc3luU/Ft6FsMMvcOzt8bXs
3QgBP6mv/TxOGBECQyxexF4S/oH2f5zCOUbnDjsXIaY2qrTSV/ifCOpKuzX3
9gvvR5j1+s6LilbhAwhhWg/mPp58l32Qvv8dLy0CMoULEDSHrOiT+kC4EKFJ
18VIMbaOfZT2Z+SlzqPxwkW0f/72cGROhXAxQkjnLetFBvfYJ2k/vR5nOz9C
uARh+0cBQ78vET6N8EXIm/YN/X5mn0W4Unnk62m+wmUIBt9WaloVCF+g91/r
AffeCpcjbEloNpnpUc++jPCdxXPtllzhKwhjUgfV3VAKVyAos3w2RU2/z75O
683q/3nxbmFt+jz/eOlI1pX8oeRBkvUkG0g2lGwkmfqf9u/jqLxcdrbL1P/n
4Y2K423VbOr/nCadZctH17FHSo83ljxa8ljJJpInSDaTbCHZSrKNZFvJdpLt
JUP3+ht4fdT/fO+qWdqhGue6TP0PdT1vEHZ7IJv6/8SiX9HEXD029f+Ev/18
U98hbOr/m7znVW6Bw9jUf2XGN091bIazqf8vV+p33tYawab++/Q7Vnlj0Ui2
R/fzG7Op/+4VuSlWamPYXt2vN45N/f8tQH9wSd14NvV/qGlc1J4xpmzqf0GY
5o9j483Y1H/3p62jnp8yZ1P/HxitS0roY8mm/jfPiNm96oYVm/o/KckpsUNn
Ipv6Hx9W5Dk12IFN/V+wL2trxc9fsKn//6p8Fms9yJFN/S8bfi5RoeXMpv4f
DfpE5/CvLmzq/97cd0Gdyqb+p8PpAv/C6Wzqv8cUs/yYk27s6O71urOp/24R
4RqF6rPY1H/DEY6v1w7yYFP/G21aIk6Zz2ZT/02GFRmddZ3Dpv4vDZwyY2SU
J5v6fyS3fnV6hheb+n8txXKL08K5bOp/nw7XM1ED57Gp//Y3LBa2XxWm/i/P
NnxfsXY+m/rfGvwuWN5s6n+fqNwlWUU+bOr/nqmBU0+1+7Kp/wcP3fWPdvdj
U/8nNoWeVM/2Z1P/G0oCnVfFB7Cp/zkaGwuXjlrI3tG9X4Wp/0/ym4JikgPZ
1P84z7DjZUZBbOq/1ttnvfueFqb+P8paFWs7N5hN/Tf3+G/erlfC1P91uqH3
OreEsKn/1VX1fRdahrKp/415Lgb1tcLU/8iCHU8UCWFs6v945dVZScbhbOq/
5Wfv3/erEqb+ty2zcPFKXMSm/peUBB1xGx3Bpv6v1tg02KlWmPrfGVgc7Llu
MZv6v+ZC3aEQsyVs6v/bjzterWwQpv4nJQ+DlPRINvX/rNI6/LB9FJv6/ybS
PfPuf4TLu+//Ujb1f6fNqV/2GH/Jpv6XvCxfXpwkTP23KZkWc6dOmPo/b6VX
v2bTZWI/ZoPaH68kyeskKyRvkJwpebPk7ZJ3SUbJuZL3Sz4ouVBykeSTkk9L
LpNcLvmK5OuSKyVXS74ruV5yg+QmyU8lN0tukfw/yW2S30hWk/4evSe5l+Te
kjURHPKvb6795ZF9l/siOBcNmR0T4sLzRn/qUY2dS1Np8O/zx6cfNEe82LyS
TfMHXkyIVX+VzKb5o13jcfHqjPW/W/5/tMfrq+aRnlbNI6p5RDWPqOaRv8o8
ojpvVJ03qs4bVeeNqvNGtuq8sadV831Pq+Z71Xyvmu9V8/1fZb5XnTf2tOq8
saf/ROeN/wdyCqSx
        "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
           GrayLevel[0.85], 
           LineBox[{97, 234}], 
           LineBox[{2, 235}], 
           LineBox[{3, 236}], 
           LineBox[{4, 237}], 
           LineBox[{5, 238}], 
           LineBox[{6, 239}], 
           LineBox[{7, 240}], 
           LineBox[{8, 241}], 
           LineBox[{9, 242}], 
           LineBox[{10, 243}], 
           LineBox[{11, 244}], 
           LineBox[{12, 245}], 
           LineBox[{13, 246}], 
           LineBox[{14, 247}], 
           LineBox[{15, 248}], 
           LineBox[{16, 249}], 
           LineBox[{17, 250}], 
           LineBox[{18, 251}], 
           LineBox[{19, 252}], 
           LineBox[{20, 253}], 
           LineBox[{21, 254}], 
           LineBox[{22, 255}], 
           LineBox[{23, 256}], 
           LineBox[{24, 257}], 
           LineBox[{25, 258}], 
           LineBox[{26, 259}], 
           LineBox[{27, 260}], 
           LineBox[{28, 261}], 
           LineBox[{29, 262}], 
           LineBox[{30, 263}], 
           LineBox[{31, 264}], 
           LineBox[{32, 265}], 
           LineBox[{33, 266}], 
           LineBox[{34, 267}], 
           LineBox[{35, 268}], 
           LineBox[{36, 269}], 
           LineBox[{37, 270}], 
           LineBox[{38, 271}], 
           LineBox[{39, 272}], 
           LineBox[{40, 273}], 
           LineBox[{41, 274}], 
           LineBox[{42, 275}], 
           LineBox[{43, 276}], 
           LineBox[{44, 277}], 
           LineBox[{45, 278}], 
           LineBox[{46, 279}], 
           LineBox[{47, 280}], 
           LineBox[{48, 281}], 
           LineBox[{49, 282}], 
           LineBox[{50, 283}], 
           LineBox[{51, 284}], 
           LineBox[{52, 285}], 
           LineBox[{53, 286}], 
           LineBox[{54, 287}], 
           LineBox[{55, 288}], 
           LineBox[{56, 289}], 
           LineBox[{57, 290}], 
           LineBox[{58, 291}], 
           LineBox[{59, 292}], 
           LineBox[{60, 293}], 
           LineBox[{61, 294}], 
           LineBox[{62, 295}], 
           LineBox[{63, 296}], 
           LineBox[{64, 297}], 
           LineBox[{65, 298}], 
           LineBox[{66, 299}], 
           LineBox[{67, 300}], 
           LineBox[{68, 301}], 
           LineBox[{69, 302}], 
           LineBox[{70, 303}], 
           LineBox[{71, 304}], 
           LineBox[{72, 305}], 
           LineBox[{73, 306}], 
           LineBox[{74, 307}], 
           LineBox[{75, 308}], 
           LineBox[{76, 309}], 
           LineBox[{77, 310}], 
           LineBox[{78, 311}], 
           LineBox[{79, 312}], 
           LineBox[{80, 313}], 
           LineBox[{81, 314}], 
           LineBox[{82, 315}], 
           LineBox[{83, 316}], 
           LineBox[{84, 317}], 
           LineBox[{85, 318}], 
           LineBox[{86, 319}], 
           LineBox[{87, 320}], 
           LineBox[{88, 321}], 
           LineBox[{89, 322}], 
           LineBox[{90, 323}], 
           LineBox[{91, 324}], 
           LineBox[{92, 325}], 
           LineBox[{93, 326}], 
           LineBox[{94, 327}]}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           PointBox[CompressedData["
1:eJwVztc6ggEAgOHfpbgbIhTJDCnZoYwikp2RXUZGcp9eB+/zfIdfZzIbXe0I
giBBl+gmRA+9hOmjnwEiRBlkiBjDxBlhlDHGmWCSBFNMM0OSWVKkmSPDPAss
ssQyK/wPZlljnQ1y5Nlki212KFBklz1K7HNAmUMqHHHMCaeccc4FVS654pob
atxyxz0PPPLEM3UavPDKG+80+eCTL75p8UObX/4Adywt8w==
            "]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           PointBox[CompressedData["
1:eJwV0Oc2AmAAgOGvcCFuyRU4LoC7KmSvZGWUPbNF9t5EiHj8eM55f7+1DU11
jZEQQj0xEaeZFlpJ0EY7HXTSRTc99NJHPwMkGSTFEMOMMMoYacaZYJIpMmSZ
ZoZZ5phngUWWWGaFVdbIsc4Gm2yxzQ677JFnnwMKHHLEMSeccsY5F1xyxTU3
3HLHPQ888sQzL7xS5I13SnzwyRdlvvmhwu//7GgIEaJUUU0Nf1YUTIo=
            "]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]], 
           
           PointBox[{518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 528, 
            529, 530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, 541, 
            542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 
            555, 556, 557, 558, 559, 560}]}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {
           Directive[
            PointSize[0.009166666666666668], 
            AbsoluteThickness[1.6], 
            GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
      DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
       NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
       AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, DisplayFunction :> 
       Identity, Epilog -> {
         InsetBox[
          FormBox[
           StyleBox[
           "\"\[Degree]C\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.1, 0.9}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"a3: FaIR-Geoffroy\"", {
            FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
            False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.6, 0.9}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"The Dive\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.75, 0.5}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.7}]], {0, 0}], 
         InsetBox[
          FormBox[
           StyleBox[
           "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
            StripOnInput -> False], TraditionalForm], 
          Offset[{0, 0}, 
           Scaled[{0.5, 0.3}]], {0, 0}]}, 
       Frame -> {{True, False}, {True, False}}, 
       FrameLabel -> {{None, None}, {None, None}}, 
       FrameTicks -> {{None, None}, {{{2050, 
            FormBox["2050", TraditionalForm]}, {2100, 
            FormBox["2100", TraditionalForm]}, {2150, 
            FormBox["2150", TraditionalForm]}}, {{-0.5, 
            FormBox[
             RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
            FormBox["0", TraditionalForm]}, {1., 
            FormBox["1.`", TraditionalForm]}}}}, GridLines -> {None, None}, 
       GridLinesStyle -> Directive[
         GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
       Directive[FontFamily -> "Helvetica", FontSize -> 18, 
         GrayLevel[0]], 
       Method -> {
        "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             (Identity[#]& )[
              Part[#, 1]], 
             (Identity[#]& )[
              Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
       PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
       Ticks -> {Automatic, Automatic}}], {2125, 273}, Automatic, 
     Scaled[0.42]]},
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox["\"CO2 Price in year 2030 in US(2015)/tCO2\"", TraditionalForm], 
     None}, {
     FormBox["\"Year in which ceiling applies\"", TraditionalForm], None}},
  FrameTicks->{{{{20, 
       FormBox["20", TraditionalForm]}, {50, 
       FormBox["50", TraditionalForm]}, {136, 
       FormBox["136", TraditionalForm]}, {200, 
       FormBox["200", TraditionalForm]}, {249, 
       FormBox["249", TraditionalForm]}, {307, 
       FormBox["307", TraditionalForm]}, {340, 
       FormBox["340", TraditionalForm]}}, None}, {{{2020, 
       FormBox["2020", TraditionalForm]}, {2050, 
       FormBox["2050", TraditionalForm]}, {2100, 
       FormBox["2100", TraditionalForm]}, {2150, 
       FormBox["2150", TraditionalForm]}}, None}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->1200,
  LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
    GrayLevel[0]],
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2015, 2150}, {0, 350}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 10}, {1, 1}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.825424687727293*^9, 3.8254246976923075`*^9}},
 CellLabel->
  "Out[1057]=",ExpressionUUID->"3d0d062b-fcba-4d25-bfed-b8fe77825c3b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FigureABC", "=", 
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Grid", "[", 
         RowBox[{"{", 
          RowBox[{"{", "FigureA", "}"}], "}"}], "]"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Legended", "[", 
         RowBox[{
          RowBox[{"Grid", "[", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"FCd2050", ",", "FCd2100", ",", "FCd2150"}], "}"}], 
            "}"}], "]"}], ",", 
          RowBox[{"Placed", "[", 
           RowBox[{
            RowBox[{"SwatchLegend", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Lighter", "[", 
                 RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
                RowBox[{"Lighter", "[", 
                 RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
                RowBox[{"Lighter", "[", 
                 RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
                RowBox[{"Lighter", "[", 
                 RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
                RowBox[{"Lighter", "[", 
                 RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
                RowBox[{"Lighter", "[", 
                 RowBox[{"Gray", ",", "0.1"}], "]"}], ",", "Black"}], "}"}], 
              ",", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<E<2050\>\"", ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<2050\[LessSlantEqual]E<2100\>\"", ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<2100\[LessSlantEqual]E<2200\>\"", ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<CDR<2050\>\"", ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<2050\[LessSlantEqual]CDR<2100\>\"", ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<2100\[LessSlantEqual]CDR<2200\>\"", ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
                RowBox[{"Style", "[", 
                 RowBox[{"\"\<NE<2200\>\"", ",", 
                  RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                  RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], 
              ",", 
              RowBox[{"LegendLayout", "\[Rule]", 
               RowBox[{"{", 
                RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
            "Below"}], "]"}]}], "]"}], "}"}], ",", 
       RowBox[{"{", "FigureC16", "}"}]}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "\n"}]], "Input",
 CellChangeTimes->{{3.8241263077670803`*^9, 3.824126339856432*^9}, {
  3.824754960120466*^9, 3.8247549952424808`*^9}, {3.825218371604638*^9, 
  3.8252183719046383`*^9}},
 CellLabel->
  "In[1060]:=",ExpressionUUID->"68b797ae-276e-4f82-80ef-4c8f06d52552"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TemplateBox[{
           OverlayBox[{
             GraphicsBox[{{{}, {{{}, {}, {
                   Hue[0.67, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1GtQ1FUUAPDNBEIBNwMFCxZDUNEU10ekwZzkDQK6AvJQnvKQeKwamYqI
K60MEjAOoTxGjohCirSgAQkIMkiANIpQEANCCNoMmu7gBBmP/nmPH7p35s6d
34c7Z+45556lofGy8DkikShV2P+dr1diIYy3SnQSyw/AaycXwm1J0szRN07h
nMo5nXMW52zO5zgXcEbOxZxLOZdxVnG+wbmGcx3nRs7NnFs5d3C+z7mbcy/n
fs5DnEc4/8H5KecXnF9ynuQ8xVmE//ccznM5a3J+h/M8zjqc9RAeq/7JCHlj
McIa0xsmtkXkhQi9PTe7W9PI+gieGv3jddHkRQinBt2rY+zIhgi54oMuvxiQ
lyAM22jlXBzez/wBwrOQtfrya2QTBH+H41GPD5FNEdq9bpeOAPlDhC6rRHsd
bfIyBGXCo4HOe3JmCwQnv4Zc32/JKxCuBtgst/EnWyIcPHlBb5UJeTVCUFJJ
W3pTPPMaBL2G/Dg/J7KVED8u4uXFu3HMUoSY7zXqqz3JGxDqwOWERlcs8yaE
T+7bxeZ7k60REkOk3qqeGObNCBfcrF/m+JM/RXBVq7X9Bj5ntkWQd7bJxoLI
gHByQBXbORzNvFV4v1T2fGUk2R5hOlpP3DG2j9kRYapUOX1eTnZGGKqzVntP
RDG7IpTOlv29P4m8DaG7KkR/ribZA8FuS4kfZkYybxfiDSRsGjEiyxCSnbxK
/yyOYPZCqFxQudpQSvYR7v+kZ6luCGf2RZinPKi73pPsj5CXrYhbO7SXeTfC
CfNdFZP7yYEIE285xw5rkIOFfF+vWDieF8YcirDFsMIzeR15L8JsQFuGbnso
c4RQT3NJ7ekwchSC70jPgnWzIczRCOs3aj8UF5BjEL4JW3Y0ZTM5Tqj3YP3F
lr5gZjmCVo7ZXtNE8gEEF3F5cpOE/AVCdN+dDV2pQcxfCv1wxMDI+NdA5q8Q
Nh5FA0ML8hGEtZ5P0mSH9zAnInQ88Ph59N5u5iQhX8lqnSUryckIfe1uM8uV
AcwKhCrFZXOfUX/mFIR86x8HLziTlQiNCXfSX1zzY05FOBT5rGr+YnIawkyB
YipG4cucjlBxukjLVr2LOUOIZyzTyQolZyGYzGooRD0+zGcQMh+dcjXzIGcj
HLY5py9p9WbOEfKd4DP/qT35HMJfz191+DV7MechiK+fjS1xJBcI/8FqRVfU
3Z3M54V5EKbRoLuTjAj4Xc9HcwZkzEUIxjZJ8V37yMUIoe7hO3ondzBfFvp/
8F2DK2nkUmEevdrTm2dCvoKgXv2ZI/ywnbkMwSqlYGLWnVyOUKNZ5ap64Mms
QpDU/257QJdcKeSv+ozx++4ezDcQHHN1pW1Z7sxVQr84jIsW/baNuQbh1sNp
daA5+SbC2dEx6VSCG3MdwqX+YxmZ7a7MtxCk5TXWlmbkRoSiY2VD1cddmJsQ
vJveOzI96MzcjNDyStPiY3tyC8LXZs6Xeq86Mbci1K6qDZYvJrcjGD2J37pU
6cjcgVCoan67fdIB/gXPX7+m
                    "]]}, {
                   Hue[0.9060679774997897, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1H801lccB3DMrKU5No2YPDTJr9Jkz6LFB2WeyK/Hr0ny8/FbEXLK9BDR
Mjzya3T4VERYmVTPiT1JhjWZ2Tr5NbOOXzUdNotmju277j07Z/eec889r3P/
+Nx7z+d99YIPe4QpyMnJ5XDz3/XlSK2CN/hJOsXecfDS4irQ9PHX/s+ZjHMY
5zIuYFzEuIzxecbIuJpxHeNGxk2MWxhLGbcxbmfcybiHcS/jfsY/Mh5kPMp4
nPEE4xnGs4znGf/B+AXjFcZy+H8rMFZkrMR4DeO1jNcxVkF45cH0aKw7tSpC
r/RKumgn9VsIArOoJRNV6vUIPjOnwmJGYonVEcYX7q35pYJ6A0KtpOT+iAe1
FkJ8b/OWdHlqbYRlMYQP1MUQ6yCIhleLiwXUughTv5qv1E5EE29C2Gi1e67r
OLU+t69Q2l2+jtoAQXFKTygrjyI2RNjBT7x+ZzO1MYJn7sIHelcjiU25+19Z
8nSxoN6GYJU0eb1NGkG8HaFZLSDjh13U5gh+i/pNlnfCiS0QUkrPvuhzoOYj
XEj35R/tFxHvRJhY/HZLwwFqKwT1nMqib2bCiD9EsMCxXK1j1NYIj60TogeU
qAEhAr7SfL8slNgOIVH54Jl2Y+o9XL2lLlWxLITYAeFRZHVNgpDaEaHrzLXk
oqfBxPsQSht4FRMZ1M4IHW7Zb8dpU7sgFKyXBBXfCiJ2Q9gvG5py8KT2QIj5
XqFl6++BxJ4IXqPSr1ck1N4If0ue9EfuoPbl3vO17zINGg8R+yH8pNy7du/z
AGJ/hATz+AZdW+oABJNs9aG+/IPEgdz5hr4IM3/sTxyMYGly0WCZTx2KoHJJ
NyU1/wCxCMEs7pJ821M/4giEmtN8uXcE1FEI2xc2rnTWf0wcg/CqR/CjRRXq
OATdZyfFN5J9iY8gdD+fW+4d9yFO4PrbTOTk7UKdiGDjlaUULPMmTka48efJ
h5L3qFMQDNMfWKbUehEfR5gfcw+x06VORcgc/NxuusKTOA3h8qFNY1Za1GKE
wSDn5RMVQuIMhCCP1FQ7HnUm1w/2wuTlGg/i01y+zrmHbTCjzkEIl8pX8Vrd
iT9FEJbo5SUJqHO5fE4lnLow7Each3Ct+aaRThx1AULjZ1+qBShSFyL0DGRv
q7N0JS5CcAW1oHuHXYhLEHLTk7Rt6vcTl3H/hanRsaonzsTlCN6maULfrdTn
EXy7f7OvSXIirkSo7sosc+rYR4xcfkYNRk3UqC8iuOXHah6JEBBXc/1mq2+f
d9eR+DJCW9HtUG0edR3CiHNWir74I+J6BIkRL6N+0oG4ESF6TugV4UJ9FeHN
o4KHya17iZsQftYorW8xoW5GSFs9MT9ctYe4BcHg7F/5zhrUNxE6AwwDdxXa
E0sRFvsiGgpVqW9z+Wrnpa1K7IjbEGarZabP1KllCJt5rcpFlbbE7Vy9grC7
nUbUHVw9y0Cfc7eAuBPhdXcZZjlSdyGEBC/Ex0ptiHu4/+mTqUbXSWvi+5yN
xyunNah7Ed6tnBU5uO6GfwCBbXi5
                    "]]}, {
                   Hue[0.1421359549995791, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd02lMFEYUB3Ag2AJB6lWLqEQJVErQKghdCdBXbD1XQQ4LKy6w7Moh7CIg
XRCFItCVQF288IQnsoYllKJyiYpo6YbLerbBFsJWsViECmKFQtVunZcmnUkm
k9+HN5m8ef+FEoW/zMTIyEhl2P+eb1Z6CQw2RSrjqpLhjTNLYE+C987/nM1Z
xTmfs5rzIc5HOZ/kjJzLOJdzruRczbmGcwPny5ybObdwbuXcyfkW53ucuzh3
c9Zz7uP8mPMg52HOzzmPc/6bsxH+3yacTTm/xdmMswVnS85WnKchOD2qneGh
Ic9ASPqyI/JGIXkWwmMXN3NbJXm2oX6+IMo0hGyNoFhzxiTKjWyDsM7+doej
FXkeQkP/X3d1D5OYbRG2Kk5o/erICxB8oCnbIpdshzB1eUnSRwFke0O93bJP
ptqS30fI2Pti4OFvicyOCHb5JTqvKrITwh3jtV1jSWRnhIuuMy2jBOQlCKWD
ix+lT+5gXorg3q8/5neF7IKgKZ5y2nMPeTnC04CgaL032R3hC2HP4VOvEpgF
CHej3g4tukL2QIhwO1L9YhfZE6FRuCGr3oPsjbCldrvPzyMKZkB4LyIvMSae
7IMwN8f+QtrvcuZPDfevz5dNyMirEMpaqoaGfo1nXoMQfT6jOFdMXofwrcU9
SUJ3HLMQoWR+wtZlIvJGhPIVqYX7urYz+yHckr72LAgm+yP07S2+UdEVyxyI
sNLmXcH9EPJmhDNVtWPa7hjmYIS4j+c8/C6MLEJIiVfUl/VFM4ciTD/rWKSL
JYsRLGadU0WMRDGHIzwLW2CmTiNLEIaOORjHmpKlCOMToqLj+7cxbzO8v3zi
8A/zyNGGfkkPFF6okDHHIqgWex0f8CDHIVRdSq1Y2SllliNkqZ3DTcLICQhe
dbLm+6ORzIkINpMHCr7aR05GKDDTXdMsJKcgyOVC365GCbMS4Xn+7jZdEDkN
4dSHL8TpzyKY0xGkN4s7AtXkPQiDmxpsc5aSMxFir9bO1NwOZ85CeBWuvziW
TM5GaN61umDfHHIuguTqop+0GWHMKoTUg72lB2+KmfMQdnXXixbZkfMN/98e
49um3Mr8NcL3O/Q/Jt4OZVYjmMvL4gqXkA8g9K+w69UUbGE+hJDbFnitfFjE
fAShWjtaPh5EPoqQZztuXdkUwnwcYUqP+I61E/kkwstogUx+NJi52JDH3tOO
t8zJiLBJs+2dmt2fM5ci7G5fFtL9fDNzmSGP010nPeXkswjfaDJrXg8EMZcj
GF9J6L8eQ65AmBgpmv3nk0DmSoT7f9jipIJcZciz4LPViWMBzNUIwe0uLecy
yecRcux6bn4wlVyDoG+UrFKe8GeuQ8hc6xTQ6UxuMMyju2D6y6ubmBsRTmqk
K8w3ky8jaF3H1MNDfsxNhnn2K3XYryI3Iwh9gx8YO5CvI4itLj21VvkytyA8
eeBu09y2kVmH0Obdej58GrkVwa1oruVO0QbmdoRfzipDA7VC5k6E0ZTsu1mT
6+Ef1+GuLQ==
                    "]]}, {
                   Hue[0.37820393249936934`, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1AlMlEcUAODtorUBSldEg8DSotS4gBQBARXxKQseq7JScEUpInepRRBR
waNEFFYQUbSKYuFJgOLJpVSUyhFRChZsQUTuxm2kFiwQFUyl9K/zauJMMpl8
mUwy7715Yxaw1TNYLBKJ1ML8b30z9mRDiOTjtqEF/vDG8dnQJjE59dYHOKs5
H+Z8lPOJbLj3l/3pt87g9s9yRs65nAs4X+JcxPkq5+ucKzhXcb7NuY7zPc73
ObdwbuPcybmXs4ZzH+d+zoOcn3Me5fyaswjftZjzBM7vc/4A3623NsKisuAq
n/+ti1A18VHJHkuyHsKB8q6GsclkCYLbTW3Z4t5NzPoIPxZ0FYrTyAYIKamx
0qi55GkI4uFPvSLr/ZgNEer8a8+3biAbIeictkwI13zBbIIQ0O44ogojmyJE
5D0MCXziy/wJQtrX0yNPBpBnINxvra7ubt/IbI7wYEZORoWSPAuh1tHAZWPt
BubZCDHpl62/dyVbIAw9DEqNu+vDbIXQYyiOD1SSrRGqI9rKZnesZ7ZBGJ2X
PuG3MLItwu6QFfFnRlXM9sJ9z1lOLjhEdkAoaxsorTclOyEsNB5u0r22jnkB
woXMlMoBBdkZ4eSsPOz43ZvZRbhf+ZT+ym/IIOR/sPLbfmPyUgSRqiRwZrkX
sxxBK8M2ElRkd4Qfdpd7HBn5nHk5gmfGiFPzKfJKBMPj//hpLySvQvho705L
Rbcn8xqEU4+nqrMSyEqEkLnFr67LyJ4If7uYmMt/WcvsheDiu61TFkdeh+Ah
zowenElej7A2W6OX2aRk3oBgt/VBTMFusi+C/7rZv47JyH4IySqfDoNiD2Z/
hFynZVLpFHKAUC87/XOTd6xhDkK4tP51flHnauYQIb8W9pIGOTkMYXB1c+ik
olXM4Qh7C82crKXkLQiZUUY52qkK5giE/CGdQvPxlcyRCPJE74pj0eRtCEZ5
ivH0pyuYtyPYWHt/mRJI3oGgtyrCwKdnOfMuhLxbVgMtvuQ4IZ/6L/Z7dC1j
3oMQnBqndt9E3oewfWkfKjTuzPEIY9O+s7oWTt6PcHBGV5PsuRvzAYTpPrZ3
h/eRExEid7ZG3NQlqxFizf2yGjPlzMkIlknTHjXOIR9GyPKTNUiqXZmPCOd/
lo59piIfRThr69ijfraUOV3o74Rcj4tq8gmE8DV+QWJz8kmEys05S7RrljBn
IDzzNfzDbTP5DMLjCMnlqVrks0J+Eh1ExvnAnIUwqT98+ISCjAiJaWrZMc1i
5hwh/l1CQA7kXITxxpd9H6a4MOcj3HhxxtRAs4i5QDh/fk7M0cXkC0I9bfSs
pdnOzJeE92cWHax8j3xF6J/SQufloQuZi4T+9y5XvmpawFyC0JTV0GLuTL6K
kCoPm2B8cT5zmdDPsRevuErJ1xGizNJ63dOdmG8gXMk63u2oTa4Q/htRTZL+
QUfmWwhPlIkXMsTkKoTmr0qL9RMcmGsQfppfnPRyIvk2wpbjyXfaU+Yx30EI
mikp/HMKuQ7Boj5vSCfbnrke4Wl9aKypFfkewoiWqSFU2MG/CoWRKg==
                    "]]}, {
                   Hue[0.6142719099991583, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1AlQVVUYB/CHvVxAHwYqisQmGQGPAHEJWT6QRQgBX8gjZHEQ2Yy92HwW
GBQJNJhIRCxfsgsBohGgCWNQggsWCq8gwVGbxBdiGqNG1s3zjTOdO3PnzG/O
mbN893+uUXiCbM88kUiUJ7z/tU8fRRWsbzeXrrEOhqfOqoLxrCHNZ87hnMe5
gHMR52LOpZzLOSPnGs4NnJs5t3E+ybmT82nOvZz7OJ/jfIHzZc5XOCs5j3Oe
5HyT82+cVZxnquDB2QqNZ37A9T/kPMdZhP/3PM5izvM5L0Tw6izySLQiqyO0
eBn/ZahDXoygq+srTrqzk1mC0HzrkrfVcfJSYbwyLNV3L1kLYabniEqpS16G
MGylcPU+G8S8AiF7X6VTXDh5JULFbpjNnHuTWRfhl/S0iOZDZD2EwUfhd/uN
yfoIfwRPfPh+WyCzIYL+pKfGp5vJxggPrxsaDfbJmU0QHvSldGR5k9ciWFh0
Gsz8GMBsiqDokEhmA8lmwvpHQqw6r+1gtkAIa7+3Kz+CbIlgaFZY+tOUP7MV
gnledsv+JLINwlD2rYWrHr3BbIvg39Taop5D3oAwZv2OPHU5eRNCo8+C9spG
GbMdwinVaMW0M9keIX1Ge8Hl8e3Mjgh6qm2LBzLIgLAjdhbMV5FdEHJOnUgd
6/JjdkW43ZXb4hpCdkeYTj88cVSNvBWh8KueEw4yX2YvBHfTjgN11T7M3giR
NnpDUY+3Mfsg7C7vWZQrI/shjJ7JCu1s9WaWISRPXk2OkpD9hXotqb9wMel1
5gAEZ+l8zeERL+ZABFH+3GMjIAchaF/d+dzOJk/mYCFviec9ZLrkUAS5S5pn
ef5W5l0ItTF+tpoicrgwf9nxaLs0D+YIhC0O+8VPZtyZIxGyIpcaKOPI0QjB
hSqv8yo35liEY+6t800TyG8hPLmSfnvtfVfmeITvLfZpKTPJiQgNAWEhy8Xk
ZIRy3xebiou2ML+NELfa3XlGn5yKsK1bekijzYU5Xbh/7RIP+RZyJsLS1js6
KqUzs0LYn1pu5uNE8rsIDu4Zv95SJ2cJ9d4uNT5YD8wHhLwNiPz63cg5CEZT
jqLGi07MHwjf/4fV02u0yXkIJqWxkdIQR+aDCH97KqbFTQ7MBQgDhmkv1M3Z
M3+MYFp54vkcGbkIodowXbGvaTPzJwiHV4oDJIvIxUI9uz02yGPsmEuEPNzd
Ya596TXmUiFflokZzevJZQhuZgVS8RebmMsR8ld/XVqlSa5EqATlKwHZG5kR
oaB75Fr97AbmowgeBvfVsuPJNQhON6Vyp6n1zHXCfY0OCt8TTW4Qzlvzc/2N
27bMx4T+mP6Ny+LJzQgfrdF0XfHnOuYWhJHN45Il75HbEHyGoxYEa5DbEWxu
xNWOltkwn0TQ+TxAPduC3IHwZc9Lon96rZk7hfMI5RyRk7uF/6HZxDqte1bM
p4Xx0SnlYwXkM0K+u+Imqs3IvQinjR9OeJW8ynwWwT7merv6mCVzHwImpu79
zIT8HUKuRoZ4Y7KU+RxCydpaHPvWgnkQ4eVvEhS/ryJfQAjNLa7yTzGHfwGD
8356
                    "]]}, {
                   Hue[0.8503398874989481, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1Q1QVFUUAOAdEEFSBkmYBjYTBVQw2sQxwQUPiIjAgqxItKgQg0b+oUCr
IRj/MCCGC5n8xDvghghG4PAjRkbAkJr4i4KotDborKWJJtqaQS/v6c343syb
N9+cOfeeO/fc++xj4pUbjSQSSR7//vd9+aRw0L3RenHmhg/hpdM4yFXE3s34
31kcmLcrLwjO42Diyy2XBO/jQOrgaxBcJIqXcGBpvP5vwYc4sBly7xNcIcpH
UVzLQcqCVL3gWtH4x0TjN4rym0XjnxCtp0MU7xTl94jip0XxcxzE/tZwX/BF
UX39ovoGOfDwfNgr+KZofTpRfSMcQK7hsWC9KH5fNP6oKP6Eg0/Woo2wv3+J
6n8hypcg/KnOuiLYCGHRJqsxwZPw1fVNRjB07p8QbIavrsccIahWNyp4KkKw
Sza4hpEtEFRZMS56OdkSoS36qKvOjmyFYLPd4H/2cTTzDISHYZ2eF7rINghu
+77zXlRIfoO3boHjz0qyLcKb6l/elc8gSxHmy+PUt7RRzDMRBsdeU3fbkWch
KNOLt+kKNzDPRghYXuijMSU7INzpPy9ryV/P7ISwcGnB8FEr8jwE97Ypz85W
rGN25udzik8rdSYvQAgsVl58cDKS2RWh6fmcqcYKsgyhowll826rmBcijFrf
SlbsIi9CGC7OzVZNIy9GkH3U6vJE+wHzEgR/w6qWEC+yB+UPRDDLEd6THpy8
N4HshRBhNL9piwUZEKyVe5UPjr7P7INQYuNa3+hP9kXIiz3dNHY3nNmPz99Z
1yLLIfsjtPccMJ09lxyAUFPeM6vxp7XMQQgVW4134WZyMML45WqvM9PIqxE6
96wsnHI8jFnJ96PnnOm2EeQwBI368OeGf9YwhyNMc2+ttK8hRyDgxMwOdTBZ
heCifaEdeqZkXocQ2SzZVl9N3oBwIlJjrFaQoxFM4ebV+uehzDEIn2qS+kaO
kGMREgoM7VXh5E0Itxx3hvtOJscheJRUOde0rmbejGBuaeJWE0feysfNPFRX
bcnbEVpnFD1dVhnCvIPv7/Hd36pMyQkIZnf1j/YkBjMnIRjF6ge9byuY1Qh/
JH+cLwkl70ZYkn6veXt3EHMyQkP74Yk7i8kpCLm1XdztbwKZ9yJ4+9vI0h3J
aQj3ryeWlmEAcwbCZ8Nh2i4pOQuhdGOIUXn5KuYcfn6zIybvSMl5CN0DAyf7
K/2Z8xGqU4/p2uaQ9yHEB45kuNWtZN7P1/d4UlewG7mI31/IVHz1vR+zBuEt
S33QUAC5BCEpebjQ5PoK5oP8fZHi4Oi5mXwIYezGQHriC1/mMoT1oQFm4QfI
FXy/xF/Tpc4lVyJUuUyvHf9hOTMiOFz7dY1ERa5GuK4esp3+1IdZi9BnHDEy
UEyuQdA/1fTGuZFr+X53+tHucr83cx1/vnMKbl7ZRT6G8HWVn/0ZKbmBP1+H
JaGybmBuRPBbZhtcuoV8nO+PQDuLQGtyM8LbzYllJhnLmFv5/FOWCcM3vJhP
IKSus3PudSefROC7U/Gk1JO5g79fGqIa7cblzKcQZl2alB8RS+5EcPx9R9IX
55cydyHIB2PaLniQexCKMq02DdV5MPfy/SzPenRFSj6NcLlnaWexxp35LEJ9
SeU9R3PyOf7/0VfwelT2EvgX2KaZHg==
                    "]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{0, Small, Small, Small}]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {{
                 RGBColor[1, 0.5, 0], 
                 Thickness[Large], 
                 LineBox[{{2015.1, 0}, {2015.1, 185}}]}, {
                 RGBColor[0, 0, 1], 
                 Thickness[Large], 
                 LineBox[{{2015.1, 185}, {2015.1, 350}}]}}}, {
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
               AspectRatio -> NCache[
                 Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
               AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
               DisplayFunction :> Identity, Epilog -> {
                 InsetBox[
                  FormBox[
                   StyleBox[
                   "\"a1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                  Offset[{0, 0}, 
                   Scaled[{0.4, 0.95}]], {0, 0}], 
                 InsetBox[
                  GraphicsBox[{{}, 
                    GraphicsComplexBox[CompressedData["
1:eJzt2PtXzPkfwPFum6gUdrNufeWaWEsRFfVeRDdZ1crmsswmpGS7WKUvLSmW
Ulaayne8lGpWJN1LdJHpIkWLanVjRbb6SojNpX3xen/3rM9fsOd75vPDzHmc
M03N9J7nec1LT+TlsEFJQUFhGt68u39/DQWm8PfrY2BpbVEdnkaWFu+tA6yv
R6kzwfF78qfAMhZtjLHUDyGPBNZtbz4/e0MEeTSwFIuSGesqosi6wMT7tttn
sDjy2P89HsjjgI0os+pVm51AngDsoJd+YPbgJPIkYAc0UnaMfyol6wNbIZJE
Zd5LIRsA+yb9ybqDTankacCUgrUmuvSkkacD64iIu6samE6eAcz5Cw3fLvVM
siGwfV2Tvw0UZ5FnAZuwMPzsRrUcsjGwFqOhJ4d45JLnAnusHPFraUUe2RRY
UPfJRba6F8jzgOV5+FYv+66AbA5sdq2Dv1nJRTID1hQzMMRHs5C8AFhshnmb
eFoReRGwErs7hem13IuBTT9tuWimfzHZCpj6wE/XNI8uIdsA8+reV+FUzG0H
zGSXdJbI7TLZHtjNp1un6WuUkr8E1ha0ZqkkndsBmGRHtY62yxWyE7ATR601
PRVk5BXABvVkRHYkca8EtlI6+5qZfRnZBdhH7jN3iHu5VwNLfJ6j0nqinLwW
WP/qWa7zbCrI64Dl1BgYJT7nFgEz0B1+a1x8JdkVmMajbm3ZsqtkN3w/FWbZ
RL/l3gTsXmWDWcLZKrI7sKEz8gtMVl8jewDbfemzlafVq8lbgSn+MdRgbgH3
NmDnOoZ3hnjWkL2BFb8JGqCqfZ3sC8wm1iIpazP3dmB75l0I7LjMvQPYsarz
BSm6N8gBwE4Ve3re9ecOBPbuv5N6i3sXvr4wccPDmbXkIDx/Kv2rKsK59wCL
c/Zbod7JHYy/7/SNFEWbX8ghwBye7F7iJOXeD+zKnI/NVw24Sf4R2DjvvoBL
btyHgJ12VZDek3GHA9tiGfdb46Rb5Ahgkw6+OmwXyn0E2AOzlweU27mPYg/C
ahN3W98mHwP2L2trrYUp3GJg7hdbNpVp1pFjgel4hvvEbeM+jufFLtlv1E1u
CbDK5LJsjbn1ZADWPHdK1c7j3PHABg+Zk3xEsYF8Cp/PY7yk0407CVhWke6w
Kde4pfj+vKnL22z0K/k0sCPVReVXY7nP4Odtbb61htIdciqwBNMx5QHu3GnY
k7WLzzfWcqcDE9n17Zwyr5GcieezU7s/LZE7G5i3UWNQjVYTORdYV3eda1gA
dz6wz4vMTf3auAuA+VUmjFq/vJl8CVhMj5505EXuImDL/H3HTzNoIZfgeR7T
aq0ezV0KzNa0sthDqZUsA2ZxeLnE34S7HJiTrLAmdxt3JbAn/xE/F0m5q4Ad
fdk4sLeFG/se1pUFL2RFl94b+x5Vn3Wx6cjowvfGvhsYP/Ar1TMjY99jvvV3
nr/Onox9n6H17hW4kLHvsvhHna7bXMnY9zHf2wzo6PcgY99TXGqXD3bzIWPf
rZIWJj9s2kHGvm+9rK+m27KLjH3vya7dknF+Dxn7vjF76rNiwxAy9t1u7jMd
rccHyNh3f79wxYaOMDL2PSPaM/nskEgy9t03JlbFy+onMvbdxzZF77vDUWTs
+4K1WpOulEWTse+ueqYq4SqxZOy71/S32ZOtjpOx74YPUife3yshY98rzjTf
3b4JyNj3ncXJJv6RJ8nY98K8woDGnHgy9t0nWON+Q1sCGfte93m95h2dRDL2
/Z7ZzI4rXyaRse93EjVDE39IJmPfK93zJe35UjL2vb+6t13zxc9k7LvWEudH
/zVNIWPfV+jXvjm+5wwZ+145PDMi6MZZMvb9o8t5ISNGniNj339XrjALNUwj
Y98tvtqnKmrgxr7PWW7rMzX4PBn73hcT0DRuRjoZ+74+LOORWis39t1q69L8
zyIzyNh3C7PWfNHiTDL23ePY1cUPX3Nj35/OyzXbkpNFxr43p0YnqW3LJmPf
V6vI+lQn5ZCx77L9i05uaOLGvrfvD4x2iM4lY99Xrc1rNnbMI2Pfxw58tX3o
kHwy9t3xetfEsBvc2PfYhQ7qE3+6QMa+v5j/+znnlQVk7Hvk+k+8XHUvkrHv
b5e8O9Dc2PeOUeJG/fRLZOz7qzOGji67C8nYdyeTrikmk4vI2PfpzhbGFYe5
se8HRD2q4j+4se/vTudk12Iy9v3x13WbTK5zY9/7LAf2qc8vIWPf4ztKtKqT
ubHvxm2DHnsPuUzGvrPegBdlO7mx7z9ELTzo8ZAb+/4s1E2y2rGUjH0PfW20
92URN/bdzLG9QDb9Chn7bjWy8baOhBv7rvLwkH6XpoyMfc/4d/mq1F3c2Pcb
EU/0o7q5se+7yrrra0RlZOx7/9gjemW3ubHv34jtPjlkU07Gvtf1brf1LuLG
vv8Sb14xxriCjH3Pujdq0Imz3Nh3Jdf2+i8mVpKx71MTImumSrix73fcb49o
GX6VjH0/puaEfwI39t1+cdT6Rs0qMva9YEL1j9ID3Nj3LBkMWzDgGhn7PjNb
+z4Ec2PfXWwVN/crV5Ox73tbn3St2cuNfQ81KoxVVqkhY9+HaenHee/jxr5L
LDydkpWvk7Hvm9pPtIosubHvW3Zv3PkshDvwBFP4+xUkcLDA+wU+JHCEwEcF
Fgt8XGAQ+JTAUoHPCJwmcKbAuQIXCFwkcKnA5QJXCXxd4JsC1wvcKHCrwPcF
bhe4U+BugZ8J/FLg1wIrCL7PKQmsIrCqwGoCDxJYQ+DBwDaP+Wqptp8WzRva
wEyVcr8uWGn11/yhomjo2wmiv/zBz8vnEfk8Ip9H5POIfB75/5hH5PtE+T5R
vk+U7xPl+0SyfJ8on9/l87t8fpfP72T5/P7Pnt/l+8QPLd8nfuh/0D7xT/dc
vCs=
                    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
                    GrayLevel[0.85], 
                    LineBox[{95, 232}], 
                    LineBox[{2, 233}], 
                    LineBox[{3, 234}], 
                    LineBox[{4, 235}], 
                    LineBox[{5, 236}], 
                    LineBox[{6, 237}], 
                    LineBox[{7, 238}], 
                    LineBox[{8, 239}], 
                    LineBox[{9, 240}], 
                    LineBox[{10, 241}], 
                    LineBox[{11, 242}], 
                    LineBox[{12, 243}], 
                    LineBox[{13, 244}], 
                    LineBox[{14, 245}], 
                    LineBox[{15, 246}], 
                    LineBox[{16, 247}], 
                    LineBox[{17, 248}], 
                    LineBox[{18, 249}], 
                    LineBox[{19, 250}], 
                    LineBox[{20, 251}], 
                    LineBox[{21, 252}], 
                    LineBox[{22, 253}], 
                    LineBox[{23, 254}], 
                    LineBox[{24, 255}], 
                    LineBox[{25, 256}], 
                    LineBox[{26, 257}], 
                    LineBox[{27, 258}], 
                    LineBox[{28, 259}], 
                    LineBox[{29, 260}], 
                    LineBox[{30, 261}], 
                    LineBox[{31, 262}], 
                    LineBox[{32, 263}], 
                    LineBox[{33, 264}], 
                    LineBox[{34, 265}], 
                    LineBox[{35, 266}], 
                    LineBox[{36, 267}], 
                    LineBox[{37, 268}], 
                    LineBox[{38, 269}], 
                    LineBox[{39, 270}], 
                    LineBox[{40, 271}], 
                    LineBox[{41, 272}], 
                    LineBox[{42, 273}], 
                    LineBox[{43, 274}], 
                    LineBox[{44, 275}], 
                    LineBox[{45, 276}], 
                    LineBox[{46, 277}], 
                    LineBox[{47, 278}], 
                    LineBox[{48, 279}], 
                    LineBox[{49, 280}], 
                    LineBox[{50, 281}], 
                    LineBox[{51, 282}], 
                    LineBox[{52, 283}], 
                    LineBox[{53, 284}], 
                    LineBox[{54, 285}], 
                    LineBox[{55, 286}], 
                    LineBox[{56, 287}], 
                    LineBox[{57, 288}], 
                    LineBox[{58, 289}], 
                    LineBox[{59, 290}], 
                    LineBox[{60, 291}], 
                    LineBox[{61, 292}], 
                    LineBox[{62, 293}], 
                    LineBox[{63, 294}], 
                    LineBox[{64, 295}], 
                    LineBox[{65, 296}], 
                    LineBox[{66, 297}], 
                    LineBox[{67, 298}], 
                    LineBox[{68, 299}], 
                    LineBox[{69, 300}], 
                    LineBox[{70, 301}], 
                    LineBox[{71, 302}], 
                    LineBox[{72, 303}], 
                    LineBox[{73, 304}], 
                    LineBox[{74, 305}], 
                    LineBox[{75, 306}], 
                    LineBox[{76, 307}], 
                    LineBox[{77, 308}], 
                    LineBox[{78, 309}], 
                    LineBox[{79, 310}], 
                    LineBox[{80, 311}], 
                    LineBox[{81, 312}], 
                    LineBox[{82, 313}], 
                    LineBox[{83, 314}], 
                    LineBox[{84, 315}], 
                    LineBox[{85, 316}], 
                    LineBox[{86, 317}], 
                    LineBox[{87, 318}], 
                    LineBox[{88, 319}], 
                    LineBox[{89, 320}], 
                    LineBox[{90, 321}], 
                    LineBox[{91, 322}], 
                    LineBox[{92, 323}], 
                    LineBox[{93, 324}], 
                    LineBox[{94, 325}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwVztk2QgEAQNHbp/gZU4iSMUVkJplCElLIrBAZwo/aHvZa5/F0pLPR9VAQ
BEk6RRfd9NBLmD76GSDCIENEiTFMnBFGGWOcCSZJMEWSFNPMkGaWOTLMs8Ai
Syyzwipr/I9m2SDHJltss8MuefbY54AChxQ5osQxJ5xS5owKVc654JIaV1xz
wy133PPAI3UaPPHMC01eeaPFOx988kWbb3745Q/rlS03
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwV0Nc6AmAAgOE/d+KWXIADF8BNoSTZq4xQ2Ss7svcmGZmvg/d5vuOvtqGp
rjESQqinWbTQSpQYbcRpJ0EHSTrpopseeumjnwEGGWKYFGlGGGWMcTJMMMkU
WXLkmWaGWeaYZ4FFllhmhVUKrLHOBptssc0ORXbZo8Q+BxxyxDEnnHLGORdc
csU1N9xyxz0PPPLEM2VeqPDKG+98UOWTL7754fd/ek0IEf4Afx1NvQ==
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    
                    PointBox[{514, 515, 516, 517, 518, 519, 520, 521, 522, 
                    523, 524, 525, 526, 527, 528, 529, 530, 531, 532, 533, 
                    534, 535, 536, 537, 538, 539, 540, 541, 542, 543, 544, 
                    545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 555, 
                    556}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[
                    0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
                   DisplayFunction -> Identity, DisplayFunction -> Identity, 
                    AspectRatio -> 
                    NCache[GoldenRatio^(-1), 0.6180339887498948], 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {2015., 0}, DisplayFunction :> Identity, 
                    Epilog -> {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"\[Degree]C\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.1, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"a2: DICE2016\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"The Dive\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.75, 0.45}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.7}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.2}]], {0, 0}]}, 
                    Frame -> {{True, False}, {True, False}}, 
                    FrameLabel -> {{None, None}, {None, None}}, 
                    FrameTicks -> {{{{-0.3, 
                    FormBox[
                    RowBox[{"-", "0.3`"}], TraditionalForm]}, {0, 
                    FormBox["0", TraditionalForm]}, {0.3, 
                    FormBox["0.3`", TraditionalForm]}}, None}, {{{2050, 
                    FormBox["2050", TraditionalForm]}, {2100, 
                    FormBox["2100", TraditionalForm]}, {2150, 
                    FormBox["2150", TraditionalForm]}}, {{-0.5, 
                    FormBox[
                    RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
                    FormBox["0", TraditionalForm]}, {1., 
                    FormBox["1.`", TraditionalForm]}}}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
                    Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                    GrayLevel[0]], 
                    Method -> {
                    "OptimizePlotMarkers" -> True, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
                    PlotRangeClipping -> True, 
                    PlotRangePadding -> {{0, 0}, {0, 0}}, 
                    Ticks -> {Automatic, Automatic}}], {2095, 273}, Automatic, 
                  Scaled[0.42]], 
                 InsetBox[
                  GraphicsBox[{{}, 
                    GraphicsComplexBox[CompressedData["
1:eJzt2PtXzfkawPGajMmlpDXHVBJjDI1LdG+Sesbp4lIiCpVKd1HGoHSRMqb2
GN3cD0aPKYdEQkK5hBhiSCoyMVEWznTOCSc7k3IePZ9mTZ+/YGat/f2h1uuH
ffl892e/e/p8HLjUI+Q9NTW1CfTj3e+uSxeheKB7tHnOGocuf4hg1/atxlNl
GnsQwqNCi5Ycg61sPYTxuRf/rufwPdsA4VhL63ETyx/YhggzL6X5XL+5l22E
0OKepxuyNI89DOHTFdvK5w88xB6OYDnZYfZhn0L2CATri1ptbyYcZY9E0J90
onKLZhHbGKFhWvSSXo+Os0cj3Jk+u5fNmRPssQibOv36Dthxim2CcCHcq3hA
bCl7AsKta8ZbfbzPsM0QnuYq0w5POse2QIgvswuuSC1jWyFEtx80m+19nm2D
sPHJb/aGIy6wbRHG+W976HBf2A4h3y9x39UNF9n2CF9tCM6YaV7OBoTp3s+1
vrkpPBkh7dgzzYbQS2xHBEc9h7T4l8LO9HmEolnn6svsKQi2RuYz9d8KT6P7
2249fkbCj2xXhIlDrsRFtArPQJifYlN7KfIKeyZCxINl69ObhD0QJmnpjVjt
fZU9B0HH7uyZxZXCXggnjjqG/cOpgj0PweOl54sjpcLe9P5MDjg5ml5j+yK4
pTS+7r9f2A9hwQPDghqj6+wAhFG6rpbHtgoHIoQvyHkMA35iByNUBxikZCiE
QxEUQQvqnTVusMMRXvTe/lo7UTgC4WGV6RP9duEltN7UnPwVMTfZUQg2Z75T
Nr4S/hJhimWzsty2kv0VQofpIbegeOEVCJ9FW2i3lgpHIwzepUiM7BBehfDJ
7uZQZ4db7DiENsN56ZnJwgkISf2HTNxfLpyIYNWUrV/+QRU7CSEy7+vTRq7C
axGWDdZqGJcpvA5BO3Vv8tAa4RSEval7aq7q32Yr6P4kH9zn5S+8HiEzO83X
eq/wBoSsZLvShF+F0xGcqh2zM8yq2ZkIH+3etj4tVngjwiLP6bYV54U3I6ip
L64p6FPD3kqPX5sXWushvB3B9UDxzoadwjsQEtc3luU/Ft6FsMMvcOzt8bXs
3QgBP6mv/TxOGBECQyxexF4S/oH2f5zCOUbnDjsXIaY2qrTSV/ifCOpKuzX3
9gvvR5j1+s6LilbhAwhhWg/mPp58l32Qvv8dLy0CMoULEDSHrOiT+kC4EKFJ
18VIMbaOfZT2Z+SlzqPxwkW0f/72cGROhXAxQkjnLetFBvfYJ2k/vR5nOz9C
uARh+0cBQ78vET6N8EXIm/YN/X5mn0W4Unnk62m+wmUIBt9WaloVCF+g91/r
AffeCpcjbEloNpnpUc++jPCdxXPtllzhKwhjUgfV3VAKVyAos3w2RU2/z75O
683q/3nxbmFt+jz/eOlI1pX8oeRBkvUkG0g2lGwkmfqf9u/jqLxcdrbL1P/n
4Y2K423VbOr/nCadZctH17FHSo83ljxa8ljJJpInSDaTbCHZSrKNZFvJdpLt
JUP3+ht4fdT/fO+qWdqhGue6TP0PdT1vEHZ7IJv6/8SiX9HEXD029f+Ev/18
U98hbOr/m7znVW6Bw9jUf2XGN091bIazqf8vV+p33tYawab++/Q7Vnlj0Ui2
R/fzG7Op/+4VuSlWamPYXt2vN45N/f8tQH9wSd14NvV/qGlc1J4xpmzqf0GY
5o9j483Y1H/3p62jnp8yZ1P/HxitS0roY8mm/jfPiNm96oYVm/o/KckpsUNn
Ipv6Hx9W5Dk12IFN/V+wL2trxc9fsKn//6p8Fms9yJFN/S8bfi5RoeXMpv4f
DfpE5/CvLmzq/97cd0Gdyqb+p8PpAv/C6Wzqv8cUs/yYk27s6O71urOp/24R
4RqF6rPY1H/DEY6v1w7yYFP/G21aIk6Zz2ZT/02GFRmddZ3Dpv4vDZwyY2SU
J5v6fyS3fnV6hheb+n8txXKL08K5bOp/nw7XM1ED57Gp//Y3LBa2XxWm/i/P
NnxfsXY+m/rfGvwuWN5s6n+fqNwlWUU+bOr/nqmBU0+1+7Kp/wcP3fWPdvdj
U/8nNoWeVM/2Z1P/G0oCnVfFB7Cp/zkaGwuXjlrI3tG9X4Wp/0/ym4JikgPZ
1P84z7DjZUZBbOq/1ttnvfueFqb+P8paFWs7N5hN/Tf3+G/erlfC1P91uqH3
OreEsKn/1VX1fRdahrKp/415Lgb1tcLU/8iCHU8UCWFs6v945dVZScbhbOq/
5Wfv3/erEqb+ty2zcPFKXMSm/peUBB1xGx3Bpv6v1tg02KlWmPrfGVgc7Llu
MZv6v+ZC3aEQsyVs6v/bjzterWwQpv4nJQ+DlPRINvX/rNI6/LB9FJv6/ybS
PfPuf4TLu+//Ujb1f6fNqV/2GH/Jpv6XvCxfXpwkTP23KZkWc6dOmPo/b6VX
v2bTZWI/ZoPaH68kyeskKyRvkJwpebPk7ZJ3SUbJuZL3Sz4ouVBykeSTkk9L
LpNcLvmK5OuSKyVXS74ruV5yg+QmyU8lN0tukfw/yW2S30hWk/4evSe5l+Te
kjURHPKvb6795ZF9l/siOBcNmR0T4sLzRn/qUY2dS1Np8O/zx6cfNEe82LyS
TfMHXkyIVX+VzKb5o13jcfHqjPW/W/5/tMfrq+aRnlbNI6p5RDWPqOaRv8o8
ojpvVJ03qs4bVeeNqvNGtuq8sadV831Pq+Z71Xyvmu9V8/1fZb5XnTf2tOq8
saf/ROeN/wdyCqSx
                    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
                    GrayLevel[0.85], 
                    LineBox[{97, 234}], 
                    LineBox[{2, 235}], 
                    LineBox[{3, 236}], 
                    LineBox[{4, 237}], 
                    LineBox[{5, 238}], 
                    LineBox[{6, 239}], 
                    LineBox[{7, 240}], 
                    LineBox[{8, 241}], 
                    LineBox[{9, 242}], 
                    LineBox[{10, 243}], 
                    LineBox[{11, 244}], 
                    LineBox[{12, 245}], 
                    LineBox[{13, 246}], 
                    LineBox[{14, 247}], 
                    LineBox[{15, 248}], 
                    LineBox[{16, 249}], 
                    LineBox[{17, 250}], 
                    LineBox[{18, 251}], 
                    LineBox[{19, 252}], 
                    LineBox[{20, 253}], 
                    LineBox[{21, 254}], 
                    LineBox[{22, 255}], 
                    LineBox[{23, 256}], 
                    LineBox[{24, 257}], 
                    LineBox[{25, 258}], 
                    LineBox[{26, 259}], 
                    LineBox[{27, 260}], 
                    LineBox[{28, 261}], 
                    LineBox[{29, 262}], 
                    LineBox[{30, 263}], 
                    LineBox[{31, 264}], 
                    LineBox[{32, 265}], 
                    LineBox[{33, 266}], 
                    LineBox[{34, 267}], 
                    LineBox[{35, 268}], 
                    LineBox[{36, 269}], 
                    LineBox[{37, 270}], 
                    LineBox[{38, 271}], 
                    LineBox[{39, 272}], 
                    LineBox[{40, 273}], 
                    LineBox[{41, 274}], 
                    LineBox[{42, 275}], 
                    LineBox[{43, 276}], 
                    LineBox[{44, 277}], 
                    LineBox[{45, 278}], 
                    LineBox[{46, 279}], 
                    LineBox[{47, 280}], 
                    LineBox[{48, 281}], 
                    LineBox[{49, 282}], 
                    LineBox[{50, 283}], 
                    LineBox[{51, 284}], 
                    LineBox[{52, 285}], 
                    LineBox[{53, 286}], 
                    LineBox[{54, 287}], 
                    LineBox[{55, 288}], 
                    LineBox[{56, 289}], 
                    LineBox[{57, 290}], 
                    LineBox[{58, 291}], 
                    LineBox[{59, 292}], 
                    LineBox[{60, 293}], 
                    LineBox[{61, 294}], 
                    LineBox[{62, 295}], 
                    LineBox[{63, 296}], 
                    LineBox[{64, 297}], 
                    LineBox[{65, 298}], 
                    LineBox[{66, 299}], 
                    LineBox[{67, 300}], 
                    LineBox[{68, 301}], 
                    LineBox[{69, 302}], 
                    LineBox[{70, 303}], 
                    LineBox[{71, 304}], 
                    LineBox[{72, 305}], 
                    LineBox[{73, 306}], 
                    LineBox[{74, 307}], 
                    LineBox[{75, 308}], 
                    LineBox[{76, 309}], 
                    LineBox[{77, 310}], 
                    LineBox[{78, 311}], 
                    LineBox[{79, 312}], 
                    LineBox[{80, 313}], 
                    LineBox[{81, 314}], 
                    LineBox[{82, 315}], 
                    LineBox[{83, 316}], 
                    LineBox[{84, 317}], 
                    LineBox[{85, 318}], 
                    LineBox[{86, 319}], 
                    LineBox[{87, 320}], 
                    LineBox[{88, 321}], 
                    LineBox[{89, 322}], 
                    LineBox[{90, 323}], 
                    LineBox[{91, 324}], 
                    LineBox[{92, 325}], 
                    LineBox[{93, 326}], 
                    LineBox[{94, 327}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwVztc6ggEAgOHfpbgbIhTJDCnZoYwikp2RXUZGcp9eB+/zfIdfZzIbXe0I
giBBl+gmRA+9hOmjnwEiRBlkiBjDxBlhlDHGmWCSBFNMM0OSWVKkmSPDPAss
ssQyK/wPZlljnQ1y5Nlki212KFBklz1K7HNAmUMqHHHMCaeccc4FVS654pob
atxyxz0PPPLEM3UavPDKG+80+eCTL75p8UObX/4Adywt8w==
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwV0Oc2AmAAgOGvcCFuyRU4LoC7KmSvZGWUPbNF9t5EiHj8eM55f7+1DU11
jZEQQj0xEaeZFlpJ0EY7HXTSRTc99NJHPwMkGSTFEMOMMMoYacaZYJIpMmSZ
ZoZZ5phngUWWWGaFVdbIsc4Gm2yxzQ677JFnnwMKHHLEMSeccsY5F1xyxTU3
3HLHPQ888sQzL7xS5I13SnzwyRdlvvmhwu//7GgIEaJUUU0Nf1YUTIo=
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    
                    PointBox[{518, 519, 520, 521, 522, 523, 524, 525, 526, 
                    527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 
                    538, 539, 540, 541, 542, 543, 544, 545, 546, 547, 548, 
                    549, 550, 551, 552, 553, 554, 555, 556, 557, 558, 559, 
                    560}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[
                    0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
                   DisplayFunction -> Identity, DisplayFunction -> Identity, 
                    AspectRatio -> 
                    NCache[GoldenRatio^(-1), 0.6180339887498948], 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {2015., 0}, DisplayFunction :> Identity, 
                    Epilog -> {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"\[Degree]C\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.1, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"a3: FaIR-Geoffroy\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.6, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"The Dive\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.75, 0.5}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.7}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.3}]], {0, 0}]}, 
                    Frame -> {{True, False}, {True, False}}, 
                    FrameLabel -> {{None, None}, {None, None}}, 
                    FrameTicks -> {{None, None}, {{{2050, 
                    FormBox["2050", TraditionalForm]}, {2100, 
                    FormBox["2100", TraditionalForm]}, {2150, 
                    FormBox["2150", TraditionalForm]}}, {{-0.5, 
                    FormBox[
                    RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
                    FormBox["0", TraditionalForm]}, {1., 
                    FormBox["1.`", TraditionalForm]}}}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
                    Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                    GrayLevel[0]], 
                    Method -> {
                    "OptimizePlotMarkers" -> True, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
                    PlotRangeClipping -> True, 
                    PlotRangePadding -> {{0, 0}, {0, 0}}, 
                    Ticks -> {Automatic, Automatic}}], {2125, 273}, Automatic, 
                  Scaled[0.42]]}, Frame -> {{True, False}, {True, False}}, 
               FrameLabel -> {{
                  FormBox[
                  "\"CO2 Price in year 2030 in US(2015)/tCO2\"", 
                   TraditionalForm], None}, {
                  FormBox[
                  "\"Year in which ceiling applies\"", TraditionalForm], 
                  None}}, FrameTicks -> {{{{20, 
                    FormBox["20", TraditionalForm]}, {50, 
                    FormBox["50", TraditionalForm]}, {136, 
                    FormBox["136", TraditionalForm]}, {200, 
                    FormBox["200", TraditionalForm]}, {249, 
                    FormBox["249", TraditionalForm]}, {307, 
                    FormBox["307", TraditionalForm]}, {340, 
                    FormBox["340", TraditionalForm]}}, None}, {{{2020, 
                    FormBox["2020", TraditionalForm]}, {2050, 
                    FormBox["2050", TraditionalForm]}, {2100, 
                    FormBox["2100", TraditionalForm]}, {2150, 
                    FormBox["2150", TraditionalForm]}}, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 1200, LabelStyle -> 
               Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                 GrayLevel[0]], 
               Method -> {
                "OptimizePlotMarkers" -> True, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 350}}, 
               PlotRangeClipping -> True, 
               PlotRangePadding -> {{0, 10}, {1, 1}}, 
               Ticks -> {Automatic, Automatic}}], 
             GraphicsBox[{{{}, {{{}, {}, {
                   Hue[0.67, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1H8w13ccB/Cvb6mYX5fYWirMdq41yUbO1rzOSUhb55SYzFR+hGUhKreT
om8yfUnlMF6ZmrBCpu9klh+VUBjp2wizr9/yjS/u2027fer1/mN7v+8+97nH
3ede93nf+/l8mwUe9NwvFolEEuF59X694vNB9N+VwPkkZwnnVM5Szpmcszjn
ckbOhZyLOJdyLuNcyVnGuYbzbc6NnJs4t3Ju59zFWc65l/MAZwXnUc6TnJ9z
nuWs5rzAWYT/t5jzYs5LOC/jrM1Zh7MeQujqndsNYvQdX9sAwUEs86nZ7Upe
jrBYwyZ6EgPJKxDabpWjtWUU2RihsFirYGpRAvkthOaVKR/3KU6R30bYq91t
n5MmJZsglDjWWwfcP09eg2D+4/WRsAs5ZFME++UhZVdVSDZHGEyPO+LgXUi2
EP4nfUt23NIi8nsIGGE7kaosIVsiRJiUG+eLy8jrEI6d6rn01cYK8noE/xnH
F7diK8lWCB8Wpgzu7K4iWyNs/U5r40WvX8g2CAOzVn1ne26RP0IQ50Q99wip
JdshTBoZ9+rH3SbbIxTvExUN3q0jOwjf69rFrDFqIH+CIMnLdNONaCR/iiBV
G4XJmu6QAWHV/LHA79fdIzshyHNPBDudayI7I/iVbJ5MEjeTXRDCOuX+bxxt
IbsiJH4TOZalaiW7I9SYq/vdDz8keyBcmk2Sqv5pI3+G0FF+wt3vXjt5B8KR
dC21bUYH2RPBLdTubEPA72QvhPtmg8NeNp3kXQgayUNtNzW7yLsRktq66+r6
mH0RnJbuqb908xHZD6E38XJ1wsVusj+CvmXOoaTYx+QAhM99tj823CMnByK0
T0kDE5yfkPchQO1Jbb0Nf5CDEF4EL5k+vrqHHIKgdFg106bTSz6A0OIR+vID
jafkcITMXy/nbphn/lrYr2mFq6GyjxyJoPUCg2+M95MPIRj8ZBSRFjVAjkZ4
v3cmPXOW+TCCrq22W1DMn+Q4BIsunasFauajQt929sruxA+S44X5V7J9tmn8
Rf4WwbB622CphDkBweThwgE9AwU5UZifluE9ksV8UsiDyrZl/ztD5GQE9ZWx
G4uuMUsQftAM+eKBwzA5BWF4z1zCkSbmVIS/HzRGm+0aIachtFqMa+YPM0sR
fj44dX1N7Cg5A2GtfPpL02Vj5EyE2uQBWWoO8wXBkqq941bj5Cyh3x0lGu4N
zNkI5SsHEsN9Jsi5CDvO1DVUKpnzhLxGuWTOJ0+SEcG5oL1iau0zcgFCxat4
ypgLERRW9SuGPKfIVxAembY+859iLkIId/Ld235aSS5GCJJbTmwyfE4uFfoW
It6yPpD5GoLKV+vpu+XMZQijweMxZ0TT5AoEM7PmNyt3MFeyPiBzFcJvyv4a
+2lmmZAnc4kq0mmGXI3g6zK++fw55hrh/jRI85lXMNcKfa9+stZyk4p8m92P
p5nrhfOLzW6N62FuRLDzU+Rds5ol30WwVq1eaDzO3CRYt2FrYxdzs5Cfl4Z+
pZZz5FaETnWSd0b8nOO/duFDOg==
                    "]]}, {
                   Hue[0.9060679774997897, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1HswVnkYB3DbljWVNKLd1BDJpRtWsyLlKW8m5dZb1ipso3KpllxWEu/a
kHdRtDVuy/aUN0PUlNxHclsptLm8KqHWa4lc2hChbc96zh+7v9/MmTOfP87v
zPl+n9/RdPcVHpkjJycn5q5/77Mr9DLI/XeFM45kLGYcxziB8SXGyYzTGCNj
CeMsxrmMbzHOZ1zMuIxxBeMaxnWMGxg/ZtzK+CnjDsYvGfcwfsV4kPEbxmOM
JxnPMJbD/3sO47mM5RkrMJ7PeCHjRQjnhgpworZi66wXI6yQH3WqczG1mLUy
grvK3Hjfkf1kFYT23tqxyNU+5KUI7w1PPwtqDyF/gWB24eD1lIJIshpCYlNd
n6r9OfIKBMfKLIkdXCSrI5RG3RTgVBJ5JcINieoLh8k0shaCsZGrWKpxhayN
kKpz3GKZLIOsg2DSmWc5U51J1kNQ6Nf3Fxdnk9cgyD6ez3LozCWvQzgitFwe
rniLvAEherruhnXRbbIhQsnnyaoxgXfIXyL0eL//Mce8gLwR4aLZJ7aRikXk
rxBarb43SxgvJm9C+HhSEDXQW0o2QyhML7SaKysjmyNs9pcYG74tJ29FCN1R
5NYSUUEGhOCiPIFnSiV5O4LaxjH7E7eryAKE7lXuu7SbqslWCPW7/9b9YaKG
vBPhl26/Peu1asm7EFxMT3vmO94n2yBoZQqU78bVke0Qmk281VQaH5AdEHI0
/eKvKdWThQiWe4Omtrk2kPchTNTrrj2b00j+muvLQTJtOu938jdcX2KlwUmD
x+T9CFiZ+Sijm7cLwrUxGwOjxCayG5e3zFYUa9dMPoiQlbB2fJ1CC9mdy2Ob
4Gj7b7wPI1QLIlTMo1rJHtz7ow2W7NgpJXshbJFqmlQrtpGPIix0+gw6pLyP
IyTFSyTRV56QfRA+RKkbhfg8JZ9AOJPt0SaEZ2R/BPXs8tFY5XZyIMLlPvvl
0n7eQQhC6/Rwnarn5GCuD89T6h3pHeQQ7jwcAK8toZ3kUK6P+KpxPZcusojL
P2CB60/wghyOoJ9Ua1Cm/JJ8BmFUo9n322jekVweaVdXlczwPovQcuzObeWA
P8hi7nvap/otXvOOQfDICBDFHOomxyGs1NeqXtPF+zzC7gMuMmNnGTmBm+fk
xQHWUt4/c/MA6+WV9vaQLyH0ZTZuUmzinYgwpG+q+87hT3IyQnhxjtOFJt6p
3P7zVB3vCXvJaQi5n64cHpDy/hXBwjFK3t25j4zc/kIXx3edvK8iPLH/6Dx6
6BVZgjC28WDCWD/vTIRlCXe7Pvj1k7MQkjPuj3w3xfs697+ZNC5zjhgg5yKs
fhAQprHoNfkml/eQYrlhCu9bCCHVYT1t2oPkPASrwSVglMc7n+svMK81xGKI
XIhwTyRWXPqIdzF3/t3mK6W6DpNLEU6qCkXCId5l3Pyp244fFo2QyxGeT+9T
VVN4Q65AyHhoOCy/h3cVwvbgfL+aVN41COZHbcQlPbxruedjvTZnbviLXIew
QFtPFHeK90OENr8ZB+8a3g3cPPaHyY4pvbX4B5ZcPfM=
                    "]]}, {
                   Hue[0.1421359549995791, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd03001XccB/CbJg9Lp5kJy06sYzbripSK6bPkIWWhdHowk9wy7WRUaoWE
E3m4ZIrpyicqdocecbvpupMhroea8hCJPIZR2UMP037r8/tj+37O+Z7veZ3v
P9/P9/v+mPgHe4nUBAJBPLf+3d9UeA4I/ltRjGMZxzNOYpzKOJ1xJmMJY2R8
lnEB40LGFxlfZSxjXM5YybiKcS1jFeNmxi2M2xh3Mn7IuI/xEONRxhOMJxn/
xfgVYwH+32qM32I8g7EmY23GMxnPYjwbwepQe1iHkdWKN9ZFcPV4ZbCn1Yus
h5BcdsL3VLKIrI8g8YiPciwIJRsgHK5sLxJZh5ONEHyq3XVscmLIcxGulChc
A+uPkT9A2LXaZVmmeyp5HkLZoWvrxGrpZFME34WyAfFUBnk+guXLffl26yRk
M4Q/TmgMfxyKZHMEk2LJjUUdueRPuH4uB4j7vzxH/hTB8Lj51cKX+WQhgsjI
XVitlJIXInxllpAqzy4iWyMEC6dKP3K9SLZBWKP+nnfFnUvkJQhJwuBZrUFX
yEsRup87ab14u4S8HOFdJ9euRkUp2R5hzurrt2vCZWQHBP/cz7VPr5STAcHP
YbOVj3E5eSVCaozujo6pG+RVCIs8Y1vGRivIzggFYm+3pkkl2RVhrdjuXMzv
P5PdEKRZ8x47CG6S1yJoR9eU7depIn+BIAzpO1Jr+gvZg7v/lI9NgH012Qth
WoVz2jyfGvIGhIezpS2jR2rJGxFqr9SXORTeIm/i8nLeMX+wq468BWFG9uzl
Q7oqsg/CDzNrnhl6NJB9EbIyhVWPUxrJflw+trmLPNuayP4IidbvB6QdbyYH
IAzcWqxubXebvAPBTWPk9dwB3oEI9/MfWU0/cYcchPAE2/cFO/1K/obLu1QW
kvic924EXcWftoEXWsjfIhQtTu9IDLxLDkVwNN4o6//wHnkvwl6tuAe9PbzD
EBqM/7ZszW0lH0DYbhG4xV/URj6IMF+iXz5k0U4OR4g5M8ui8ynvSG5ejtru
mlB0kKMQNFOWiDcl3idHIyheHBi6vrWTHIuwIcVGVrSgi3yUO9effGCg9oAc
j9AWaV0d1847AUHN3Pmk6lI3OQlhzLzR08XlIVnM/W9e/ambJbxTEcalGipH
sx5yGkKv+js/fp3BOx3hjkFRnlSrl3ySy1frArXtEbwzEaIiuyu+e8I7C+HZ
5tMa+3c+IksQmn0j7Ce7eJ9G8FyzxyLWu4+MCE9v9yZta+Sdy+Wp56BesUs/
+Sw/L5W8zyPcnT5gst5hgFyAUB99bEWCnLcUYSSkOyh76SC5ECHUNv5eQinv
Yq7faXLLnUuGyBcRvJWfNeWU8r6MkLdlld73tsPkqwirRQnLNOW8SxFCkpsC
Xts/JssQVBM5u1HJW46gI/DulDmNkMu592wwKr9Qx1uBsGn9Zr0wz1GyEiF/
a1j84TbelVxel6sy5viNkau4vHa6tpsO865G0Bj/KfRM6G/kWgQ0rNIIe8W7
DuGa4W7lYNw4WYUQUS8RJmpNrPgH+b83zQ==
                    "]]}, {
                   Hue[0.37820393249936934`, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1GlQ1VUUAPAHAqIiGuOgFasBIaElZII94bhCgsSSbLYIAgaRWoDbACEp
IoNLLxQKxRM8FEOREJcEnw95LOpTkE0QWWRVeIogoyiE/fXcD3XPzJ07v7kz
587cc+4xDdzkGawuEokShfV6fxPRx0D034jjvItzIudkzgc5p3BO43yEM3KW
cs7hfIpzPudCzhc5F3OWc1ZwruSs5FzNuY5zI+d7nNs5d3F+wFnF+QnnYc4j
nMc4i/D/VueswVmLszaCY64ypaGtw+GNJyOsLDT02hrs5PjGOggR9WKnrqIg
si6C+URV2FBKFHk6ApZGb1d7tpOshzA6oft8zIEk8gyEdRG6GZNWS8j6CCWR
/heWPEolz0KIEoegzfhR8jsIk2zUrQyWZJINENzL9q1VVmWTjRA+c7JPWx13
kmyC8GlSRN3tH06TZyMEHaqxvazIJ5sh5HSUz+3pLSBbIFQFh+kVm54jWyKc
6Z+pSvj+AtlKOL9jnbrv1t9ka4RlJql2Q1BMnodQJtpr4a6QkT9C8O1QC/bK
k5NtEMYUasOj4yXkjxEcJBKjBO9S8icIC7ZfD7uUoSDbIRyd+mKD1mAZeRFC
drC01cu+gixG6BNbjQ8kVpIdEF6ZSEwrGq6RAcHQ+2L3e3NukJcizDKL8V/x
k5K8HOGwY5u+df1N8kqEh7VWL5fZVpGdhfyax3q6VlSTVyE8rTTWET9ndkXY
URrT1SC9TXZDiDncW9LiV0N2R0geztxyZXIt2RNh0eKB8virzF8g+O3Jyo3c
Wkf2RsjS+Ge30fx6si9CR65hmX0fsz+CmuvbdpjdQP4SoSk1XNwYeIf8NcLy
zOqCx8aN5HUI09bXtLncZw5E2ONWVfQXNpGDEPo7/xjYGHyXHILw4fNrHnGW
zeRvEdSb+luMB5jDhPuzbqSXnrtHDkeYsG2KmWVsC3kjwnrL9++ucW4lb0Yw
W/4iXl+vjfwjQsC+sw+125kjEWa/6zwz3budvEXIp8ry8pExb0MYkNh9kGlx
n7wD4atN6SenH2CORvCQjtprvmCOFeplcmbir4Ed5DgEt5qx+advMscjeKe/
8jG07yTvEvp10RrZBilzAkJCRay+y1td5EQETfk2rakxzEkIstCXqrh+5mQh
X4CtXNOvm7xfqPflmd8UVjAfRNAof6llsbCHLEFo81i/VJnNnCL0a4qVxzP9
XvJhhJAZN+aeTmBOQ9CO+mWp3wjz7wi/BXVZq0IfkI8I73Fl3cLwZuYMhBP+
U85Wuz0ko1DvMdufR+TMmQilAaHtTgv6yFJhntU2XWvPYT6OYD9Yv7/DoJ+c
g1AXsHutg4T5TwR/3WH3Zi0V+RTC58Y7HceimfMQYo2yxE+HmPOFfvmuPm9S
6CNygfA/VPPcPduZCxHSbDaDi89j8nmEpE55bvct5osI8b2tpeZOA+RLCIod
Wd5pMuZihDn5ouM6Bk/IMqF/Z+QbJvsyyxFeT4fJh5ivIriedCmfX8OsQOhx
lLbJdAfJ5cK8qJh2aKUrcyXCqtcDei/zdYSigOZMZTmzUsh/YrF5r8aQ4789
NU3j
                    "]]}, {
                   Hue[0.6142719099991583, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1GlM1EcUAPAVQQGRymVpBcUG0bbcVhGk+DiqoKIGlV4euOGw0iACArbE
g24BBRENwmKQfQiFhYIiBUoMp66AHOW0LCIoRzkE0VbrQVvpX998aOclk8lv
kklm5r03S8UHvfxURCJRnDBez28iSgai/8ZxzhLOcZwTOCdxTuYs5ZzOGTln
c5ZzLuBcxLmEcznnCs41nBWcGzg3c27j3MVZyfku5/uchzmPcZ7k/JjzU84v
OP/NWYT/twpnVc5zOKtz1kRQu7Tcz8t1wumNtRDa9o7pZI2uX/fG2gjR25e4
99v7khcgrPR6lJf+LIysi1A+kvgqNfAEWR9hcGmCrK7yJHkhQq7K1JFXJWfJ
hghDCfu2tJmlkt9FcNzqGDBP/SLZCGH+P3q7CuSZ5MUI+4Keh8iMfiCbICRt
MjpiUiwnv4fQKlud33migGyKUBij+DjFqYhshuATqp2h4VlMXoGg5dRyK35z
CfkDhDmZFWey7MvI5gip21XEupblZEsEccb5ksFF18jWCDqhHrfD9SrItggB
3ZUGJzWqyB8h9EkzihSza8irEf5Im5Tlzqolr0E4pitbW/uK2QGhtA71XObe
IDsiWHv4nbJXV5CdEBbvGHSoM7hJBoRh//JZsiV1ZBeEPy37z/Ra1ZPdEOrd
n6mvcm0gr0dIE2tHJ3rfIrsjyESnzi4LbSRvRIiwFgtLTeTNCON++k0Whc3k
LQiu9u2XXRpbyNuE8yoa9w8/+YXsJeTn7U/eitJqI+9AKArXH5VnMXsjBG44
lOjg0E7+DKEutqeprJP5C4RGW8VVy6AO8i6E06bO5SqaneQ9CIqWPF+RnNkH
oX+mXkNvfRdZLNTnzYHmKyPMvkL+7GIDS2Nvk/2FepBMnVvz4a/k/Qif+jQ8
8G5lPoDwfvL3V64c7iZ/jTBPw3B3v5GSHIRwsvjn5Cc3mYMRau08ZcbBPeQQ
hAnvVo9Hi+6QwxCMjSY9tW4xhyPEHtzXFxnRS44UnLAhT7L8LvkbhM3x06YR
SuYohCory51fxfeRjyKESa2sapz6yccRPlcU3ZA+ZY5GmFp2ut0h/x5ZgnBY
NfinSJv75BiE5S91qsWnmeMQZu/xV66YYD6FoL/ndYcPkBMQNO8MP/bIZU4U
6s9gJsJNbZCchNDV/WRVkx/zOQTf8x0rKxXMyQjJ1yvq08yGyCkIFk5qNZEx
zFKEHx+avcgZZ76AYCOtdhnZOExOF95D8eXovcvMGQjVF90kx3R+I6Ow/6qk
1Cac+ZLQb+0zIRZ3mLMRJD2qhinrRsg5CJOxSp+BbGY5QpNnV8ddzVFyPoKG
3Ts7Yw4xFyCo15t/q6tkvizcxzYvcz6MkYsQzLsujBjnMhcjdPckHfNfME4u
QUiRBiwrjGQuQ5grfal9dJC5HKEy/vnQs00PyNcQvJVawc5lzBUIedZlC4ZN
JshVwn843dEri2euQRi97m514DnzdYQcN93KBPEkWYFQUKjcG97KXIfgHD1Y
L137kNyA8Fdoe9LvcuZGhGnn3dnbFk6RmxG27n5p3vrd1Lp/AZqWRng=
                    "]]}, {
                   Hue[0.8503398874989481, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd02lQ1VUUAPCnEehLRRAJ0CEwwA1N8Amk5jthyRIDDJoiIgmj4NCL1cAc
RBQFDBNMSCCioxCrC4IwCISPpSfKvr1kkUWQRdSXa45R9tdzP9S9M3fu/ObO
3HvOvecY+wS67ZkuEonihPl6fTMifgbRf0cU56Oc4zif4JzIOYlzCud0zsg5
i3Mu5/OcCzlf4VzGuZKznHMd53rOjZxbOXdyvsW5j/Mg5xHO45zvc/6D81PO
LzhPcRbh/z2dsxpndc4zOIs5z0II9LF3NgtYI33jOQguN7NirEQ7yHMRdF1z
cxLkgWRthIHV2me1ZBFkHQTnNPVPn4hiyLoISzo77AY1E8h6CB96HR53SE0i
GyCsVMjXnnwvjbwQIWSwK8TPDMmGCMrvwu0U/plkI4SNidHavj3Z5EUI1guW
W7Q45pNNEL5olm0bj75ANkN4fDA4z3FHIXkJQrfGdl2nqcvkZQgtz8dn/3mq
mGwunH9jpLN5VQl5JYLmLKOIJW2l5FUIC44MWwb4l5EtEXQu2g0d0CknSxB8
HScDZ8oryFZCvp2qGqXsV7INgviD6jxNk2vktQjHNrgrYgLk5PUInsOru6Uu
1eQNCI8y3mrQsqwhg5BfWah31ru1ZFuEoIgHqabT6sifIOwTPy4+Ncm8CSFA
7+3q4d7fyPYIJXLDeUubFGRHhDFrJ4l99XWyE0JeXIdDaXk92Vn47yz9+Ozi
G2RXhIMHZA1RxTfJbgj6alvnrChqIG8R4g+1e9VQ0kjeiqC++1L4ocomsjtC
8uwvl8XXNJM9ELK7Esuut7eQPRG8pyQPmwJbyV5CPDrrDGJfMu8S3r9HJIOj
bWQfhOEBP0+bue3k3QhRt9oz8zKYfRF+HO4z61veQd6LcCHgWfrTKmZ/hG88
IgeXuXSSZcL+OankyQhzAELXzL2LZPu7yEEIBcbBCb9oKskhCBZSa8meHOZ9
CCcvfVRsAr+TwxBMrk7FPu1l3i/Ud60qe0fYLfIBhMiEl5PzdbvJEQib7s8D
iyLmSITJE6r4zz7vIUchZL7/+kDmI0L/Bt3vDk3tJR9FuKcm0bJa30eOEfb/
rjr05A5zHMJl52SV/vHb5G+FfHvWGF+w6CefQLiaU7BOt5f5JMLzM7dPxx4b
ICci+PSea1TXHyR/j3DX+6xSEsichHA6yDhhUMH8A8LX09NmLDAcIqcg5B8e
DX0YxpyGMGua/LJfC3M6wlbzyM3uS++QMxD669c/1ohmRoQXtS2HNPuZzwnx
CNerbIbJWUI+10xFr5KYsxEanpWmih8x5yIYuKgFGzqPkPOF/50A5eYC5vMI
x9tC39k58y75IsJ2vUU5l/yYCxEqHtiG/qRgLkL4q7A/d77ZKPkKQv0Z1+qh
Y8ylCAs1vFaEjzKXCf3nNmNE226MXI5wPs9cXJHLXInQeDBEx0g8Tq4S6i3F
UTokY5YL9bxFovynmblG6KeMCVOF5QS5DmGbbbhDejKzAiEl87rqq5fM9Qj2
2RtzxnbeI99E2OXRufhqLXMjQmtH1Mftiyel/wLtVUA3
                    "]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {{
                 GrayLevel[0], 
                 Thickness[0.004], 
                 LineBox[{{2149.9, -0.03}, {2149.9, 1.03}}]}, {
                 RGBColor[1, 0, 0], 
                 Thickness[Large], 
                 LineBox[{{2149.8, 1.03}, {2149.8, 1.5}}]}}}, {
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
               AspectRatio -> NCache[
                 Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
               AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
               DisplayFunction :> Identity, 
               Frame -> {{False, True}, {False, False}}, FrameLabel -> {{None, 
                  FormBox[
                  "\"Peak \[CapitalDelta]\[Degree]C relative to ceiling\"", 
                   TraditionalForm]}, {None, None}}, FrameStyle -> {
                 RGBColor[1, 0, 0], 
                 RGBColor[1, 0, 0], 
                 RGBColor[1, 0, 0], 
                 RGBColor[1, 0, 0]}, FrameTicks -> {{{{20, 
                    FormBox["20", TraditionalForm]}, {50, 
                    FormBox["50", TraditionalForm]}, {136, 
                    FormBox["136", TraditionalForm]}, {200, 
                    FormBox["200", TraditionalForm]}, {252, 
                    FormBox["252", TraditionalForm]}, {312, 
                    FormBox["312", TraditionalForm]}, {346, 
                    FormBox["346", TraditionalForm]}}, {{0.25, 
                    FormBox["0.25`", TraditionalForm]}, {0.5, 
                    FormBox["0.5`", TraditionalForm]}, {0.75, 
                    FormBox["0.75`", TraditionalForm]}, {0.96, 
                    FormBox["0.96`", TraditionalForm]}, {1.14, 
                    FormBox["1.14`", TraditionalForm]}, {1.35, 
                    FormBox["1.35`", TraditionalForm]}}}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImagePadding -> {{73, 80}, {50, 35}}, 
               ImageSize -> 1200, LabelStyle -> 
               Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                 GrayLevel[0]], 
               Method -> {
                "OptimizePlotMarkers" -> True, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 1.5}}, 
               PlotRangeClipping -> True, 
               PlotRangePadding -> {{0, 0}, {0.035, 0}}, 
               Ticks -> {Automatic, Automatic}}]}, ContentPadding -> False], 
           TemplateBox[{
             StyleBox[
             "\"CO2P D16(med)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P D16(low)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P D16(high)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P FG(med)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P FG(low)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P FG(high)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C D16(med)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C D16(low)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C D16(high)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C FG(med)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C FG(low)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C FG(high)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False]}, "LineLegend", 
            DisplayFunction -> (StyleBox[
              StyleBox[
               PaneBox[
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}, {
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
                 "Grid"], Alignment -> Left, AppearanceElements -> None, 
                ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
              False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   
                   RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                    ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12}],
                    "}"}], ",", 
                 RowBox[{"LegendLayout", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 
            Editable -> True]},
          "Legended",
          DisplayFunction->(OverlayBox[{
             TagBox[
              GridBox[{{#}, {
                 TagBox[
                  StyleBox[
                   TemplateBox[{
                    StyleBox[
                    "\"CO2P D16(med)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P D16(low)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P D16(high)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P FG(med)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P FG(low)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P FG(high)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C D16(med)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C D16(low)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C D16(high)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C FG(med)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C FG(low)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C FG(high)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False]}, "LineLegend", 
                    DisplayFunction -> (StyleBox[
                    StyleBox[
                    PaneBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}, {
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxDividers -> {
                    "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}],
                     "Grid"], Alignment -> Left, AppearanceElements -> None, 
                    ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                    "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
                    FontFamily -> "Arial"}, Background -> Automatic, 
                    StripOnInput -> False]& ), 
                    InterpretationFunction :> (RowBox[{"LineLegend", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                    ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12}],
                     "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 
                    Editable -> True], ShowContents -> False, StripOnInput -> 
                   False], Deploy, DefaultBaseStyle -> "Deploy"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
               "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
              "Column"], #2}, All, 2, Alignment -> {0, -1}]& ),
          Editable->True,
          InterpretationFunction->(RowBox[{"Legended", "[", 
             RowBox[{#, ",", 
               RowBox[{"Placed", "[", 
                 RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Grid"]},
    {
     TemplateBox[{
       TagBox[
        GridBox[{{
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -732.786057}, {
                7.384615384615385, -732.786057}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 158.330696}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 158.330696]& , TagBoxNote -> "158.330696"], 
                    StyleBox["158.330696`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[158.330696, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 158.330696}, {
                    1.3846153846153846`, 375.237521}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 216.906825]& , TagBoxNote -> "216.906825"], 
                    StyleBox["216.906825`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[216.906825, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 375.237521}, {
                    1.3846153846153846`, 723.032657}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 347.795136]& , TagBoxNote -> "347.795136"], 
                    StyleBox["347.795136`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[347.795136, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -150.095411}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -150.095411]& , TagBoxNote -> 
                    "-150.095411"], 
                    StyleBox[
                    RowBox[{"-", "150.095411`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-150.095411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -150.095411}, {
                    1.3846153846153846`, -387.738468}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -237.643057]& , TagBoxNote -> 
                    "-237.643057"], 
                    StyleBox[
                    RowBox[{"-", "237.643057`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-237.643057, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -387.738468}, {
                    1.3846153846153846`, -732.786057}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -345.047589]& , TagBoxNote -> 
                    "-345.047589"], 
                    StyleBox[
                    RowBox[{"-", "345.047589`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-345.047589, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 113.766036}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 113.766036]& , TagBoxNote -> "113.766036"], 
                    StyleBox["113.766036`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[113.766036, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 113.766036}, {
                    2.3846153846153846`, 248.30804799999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 134.542012]& , TagBoxNote -> "134.542012"], 
                    StyleBox["134.542012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[134.542012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 248.30804799999999`}, {
                    2.3846153846153846`, 465.507693}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 217.199645]& , TagBoxNote -> "217.199645"], 
                    StyleBox["217.199645`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[217.199645, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -104.675465}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -104.675465]& , TagBoxNote -> 
                    "-104.675465"], 
                    StyleBox[
                    RowBox[{"-", "104.675465`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-104.675465, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -104.675465}, {
                    2.3846153846153846`, -260.805679}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -156.130214]& , TagBoxNote -> 
                    "-156.130214"], 
                    StyleBox[
                    RowBox[{"-", "156.130214`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-156.130214, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -260.805679}, {
                    2.3846153846153846`, -475.265042}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -214.459363]& , TagBoxNote -> 
                    "-214.459363"], 
                    StyleBox[
                    RowBox[{"-", "214.459363`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-214.459363, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 90.435781}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 90.435781]& , 
                    TagBoxNote -> "90.435781"], 
                    StyleBox["90.435781`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[90.435781, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 90.435781}, {
                    3.3846153846153846`, 185.041956}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 94.606175]& , TagBoxNote -> "94.606175"], 
                    StyleBox["94.606175`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[94.606175, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 185.041956}, {
                    3.3846153846153846`, 343.59101}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 158.549054]& , 
                    TagBoxNote -> "158.549054"], 
                    StyleBox["158.549054`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[158.549054, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -80.859775}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -80.859775]& , TagBoxNote -> "-80.859775"], 
                    StyleBox[
                    RowBox[{"-", "80.859775`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-80.859775, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -80.859775}, {
                    3.3846153846153846`, -197.538004}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -116.678229]& , TagBoxNote -> 
                    "-116.678229"], 
                    StyleBox[
                    RowBox[{"-", "116.678229`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-116.678229, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -197.538004}, {
                    3.3846153846153846`, -353.350053}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -155.812049]& , TagBoxNote -> 
                    "-155.812049"], 
                    StyleBox[
                    RowBox[{"-", "155.812049`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-155.812049, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    261.198012}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 261.198012]& , 
                    TagBoxNote -> "261.198012"], 
                    StyleBox["261.198012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[261.198012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 261.198012}, {
                    5.384615384615385, 504.788541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 243.590529]& , 
                    TagBoxNote -> "243.590529"], 
                    StyleBox["243.590529`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[243.590529, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 504.788541}, {
                    5.384615384615385, 842.185639}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.397098]& , 
                    TagBoxNote -> "337.397098"], 
                    StyleBox["337.397098`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.397098, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -64.157411}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -64.157411]& , 
                    TagBoxNote -> "-64.157411"], 
                    StyleBox[
                    RowBox[{"-", "64.157411`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-64.157411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -64.157411}, {
                    5.384615384615385, -284.68211199999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -220.524701]& , TagBoxNote -> 
                    "-220.524701"], 
                    StyleBox[
                    RowBox[{"-", "220.524701`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-220.524701, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -284.68211199999996`}, {
                    5.384615384615385, -633.451622}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -348.76951]& , 
                    TagBoxNote -> "-348.76951"], 
                    StyleBox[
                    RowBox[{"-", "348.76951`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-348.76951, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    240.277726}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 240.277726]& , 
                    TagBoxNote -> "240.277726"], 
                    StyleBox["240.277726`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[240.277726, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 240.277726}, {
                    6.384615384615385, 407.245041}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 166.967315]& , 
                    TagBoxNote -> "166.967315"], 
                    StyleBox["166.967315`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[166.967315, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 407.245041}, {
                    6.384615384615385, 612.774851}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 205.52981]& , 
                    TagBoxNote -> "205.52981"], 
                    StyleBox["205.52981`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[205.52981, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -43.223418}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -43.223418]& , 
                    TagBoxNote -> "-43.223418"], 
                    StyleBox[
                    RowBox[{"-", "43.223418`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-43.223418, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -43.223418}, {
                    6.384615384615385, -187.172377}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -143.948959]& ,
                     TagBoxNote -> "-143.948959"], 
                    StyleBox[
                    RowBox[{"-", "143.948959`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.948959, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -187.172377}, {
                    6.384615384615385, -403.978961}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -216.806584]& ,
                     TagBoxNote -> "-216.806584"], 
                    StyleBox[
                    RowBox[{"-", "216.806584`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-216.806584, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    229.681401}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 229.681401]& , 
                    TagBoxNote -> "229.681401"], 
                    StyleBox["229.681401`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[229.681401, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 229.681401}, {
                    7.384615384615385, 359.90092300000003`}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 130.219522]& , TagBoxNote -> "130.219522"], 
                    StyleBox["130.219522`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[130.219522, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 359.90092300000003`}, {
                    7.384615384615385, 506.193525}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 146.292602]& , 
                    TagBoxNote -> "146.292602"], 
                    StyleBox["146.292602`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[146.292602, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -32.703541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -32.703541]& , 
                    TagBoxNote -> "-32.703541"], 
                    StyleBox[
                    RowBox[{"-", "32.703541`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-32.703541, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -32.703541}, {
                    7.384615384615385, -139.843163}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -107.139622]& ,
                     TagBoxNote -> "-107.139622"], 
                    StyleBox[
                    RowBox[{"-", "107.139622`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-107.139622, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -139.843163}, {
                    7.384615384615385, -297.37217799999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -157.529015]& , TagBoxNote -> 
                    "-157.529015"], 
                    StyleBox[
                    RowBox[{"-", "157.529015`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-157.529015, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -9.753399}}, {{2., -9.757349}}, {{
                  3., -9.759043}}, {{5., 208.734018}}, {{6., 208.79589}}, {{
                  7., 208.821347}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -732.786057}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2050\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -794.6889309999999}, {
                7.384615384615385, -794.6889309999999}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 274.815643}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 274.815643]& , TagBoxNote -> "274.815643"], 
                    StyleBox["274.815643`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[274.815643, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 274.815643}, {
                    1.3846153846153846`, 337.621668}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 62.806025]& , TagBoxNote -> "62.806025"], 
                    StyleBox["62.806025`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[62.806025, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 337.621668}, {
                    1.3846153846153846`, 787.100818}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 449.47915]& , TagBoxNote -> "449.47915"], 
                    StyleBox["449.47915`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[449.47915, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -54.510009}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -54.510009]& , TagBoxNote -> "-54.510009"], 
                    StyleBox[
                    RowBox[{"-", "54.510009`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-54.510009, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -54.510009}, {
                    1.3846153846153846`, -491.01699099999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -436.506982]& , TagBoxNote -> 
                    "-436.506982"], 
                    StyleBox[
                    RowBox[{"-", "436.506982`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-436.506982, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -491.01699099999996`}, {
                    1.3846153846153846`, -794.6889309999999}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -303.67194]& , TagBoxNote -> "-303.67194"], 
                    StyleBox[
                    RowBox[{"-", "303.67194`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-303.67194, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 230.190141}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 230.190141]& , TagBoxNote -> "230.190141"], 
                    StyleBox["230.190141`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[230.190141, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 230.190141}, {
                    2.3846153846153846`, 250.30777500000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 20.117634]& , TagBoxNote -> "20.117634"], 
                    StyleBox["20.117634`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[20.117634, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 250.30777500000002`}, {
                    2.3846153846153846`, 558.3927110000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 308.084936]& , TagBoxNote -> "308.084936"], 
                    StyleBox["308.084936`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[308.084936, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -47.532343}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -47.532343]& , TagBoxNote -> "-47.532343"], 
                    StyleBox[
                    RowBox[{"-", "47.532343`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-47.532343, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -47.532343}, {
                    2.3846153846153846`, -373.363738}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -325.831395]& , TagBoxNote -> 
                    "-325.831395"], 
                    StyleBox[
                    RowBox[{"-", "325.831395`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-325.831395, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -373.363738}, {
                    2.3846153846153846`, -566.5241510000001}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -193.160413]& , TagBoxNote -> 
                    "-193.160413"], 
                    StyleBox[
                    RowBox[{"-", "193.160413`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-193.160413, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 199.593238}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 199.593238]& , TagBoxNote -> "199.593238"], 
                    StyleBox["199.593238`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[199.593238, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 199.593238}, {
                    3.3846153846153846`, 205.87024200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 6.277004]& , TagBoxNote -> "6.277004"], 
                    StyleBox["6.277004`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[6.277004, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 205.87024200000002`}, {
                    3.3846153846153846`, 445.645236}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 239.774994]& , TagBoxNote -> "239.774994"], 
                    StyleBox["239.774994`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[239.774994, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -41.890674}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -41.890674]& , TagBoxNote -> "-41.890674"], 
                    StyleBox[
                    RowBox[{"-", "41.890674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-41.890674, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -41.890674}, {
                    3.3846153846153846`, -311.713579}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -269.822905]& , TagBoxNote -> 
                    "-269.822905"], 
                    StyleBox[
                    RowBox[{"-", "269.822905`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-269.822905, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -311.713579}, {
                    3.3846153846153846`, -454.066444}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -142.352865]& , TagBoxNote -> 
                    "-142.352865"], 
                    StyleBox[
                    RowBox[{"-", "142.352865`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-142.352865, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    360.335426}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 360.335426]& , 
                    TagBoxNote -> "360.335426"], 
                    StyleBox["360.335426`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.335426, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 360.335426}, {
                    5.384615384615385, 556.846723}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 196.511297]& , 
                    TagBoxNote -> "196.511297"], 
                    StyleBox["196.511297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[196.511297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 556.846723}, {
                    5.384615384615385, 878.425371}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 321.578648]& , 
                    TagBoxNote -> "321.578648"], 
                    StyleBox["321.578648`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[321.578648, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -9.09751}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.09751]& , 
                    TagBoxNote -> "-9.09751"], 
                    StyleBox[
                    RowBox[{"-", "9.09751`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.09751, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -9.09751}, {
                    5.384615384615385, -322.902164}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -313.804654]& ,
                     TagBoxNote -> "-313.804654"], 
                    StyleBox[
                    RowBox[{"-", "313.804654`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-313.804654, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -322.902164}, {
                    5.384615384615385, -677.367262}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -354.465098]& ,
                     TagBoxNote -> "-354.465098"], 
                    StyleBox[
                    RowBox[{"-", "354.465098`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-354.465098, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    337.79575}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.79575]& , 
                    TagBoxNote -> "337.79575"], 
                    StyleBox["337.79575`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.79575, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 337.79575}, {
                    6.384615384615385, 471.722523}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 133.926773]& , 
                    TagBoxNote -> "133.926773"], 
                    StyleBox["133.926773`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[133.926773, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 471.722523}, {
                    6.384615384615385, 662.944687}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 191.222164]& , 
                    TagBoxNote -> "191.222164"], 
                    StyleBox["191.222164`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[191.222164, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -9.809114}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.809114]& , 
                    TagBoxNote -> "-9.809114"], 
                    StyleBox[
                    RowBox[{"-", "9.809114`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.809114, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -9.809114}, {
                    6.384615384615385, -240.607673}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -230.798559]& ,
                     TagBoxNote -> "-230.798559"], 
                    StyleBox[
                    RowBox[{"-", "230.798559`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-230.798559, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{5.615384615384616, -240.607673}, {
                    6.384615384615385, -460.335464}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -219.727791]& ,
                     TagBoxNote -> "-219.727791"], 
                    StyleBox[
                    RowBox[{"-", "219.727791`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-219.727791, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    323.234935}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 323.234935]& , 
                    TagBoxNote -> "323.234935"], 
                    StyleBox["323.234935`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[323.234935, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 323.234935}, {
                    7.384615384615385, 427.118758}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 103.883823]& , 
                    TagBoxNote -> "103.883823"], 
                    StyleBox["103.883823`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[103.883823, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 427.118758}, {
                    7.384615384615385, 560.048835}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 132.930077]& , 
                    TagBoxNote -> "132.930077"], 
                    StyleBox["132.930077`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[132.930077, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -9.344184}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.344184]& , 
                    TagBoxNote -> "-9.344184"], 
                    StyleBox[
                    RowBox[{"-", "9.344184`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.344184, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -9.344184}, {
                    7.384615384615385, -197.08487200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -187.740688]& , TagBoxNote -> 
                    "-187.740688"], 
                    StyleBox[
                    RowBox[{"-", "187.740688`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-187.740688, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -197.08487200000002`}, {
                    7.384615384615385, -356.537234}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -159.452362]& ,
                     TagBoxNote -> "-159.452362"], 
                    StyleBox[
                    RowBox[{"-", "159.452362`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.452362, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
                  3., -8.421209}}, {{5., 201.058108}}, {{6., 202.609223}}, {{
                  7., 203.511601}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -794.6889309999999}, 
             BaseStyle -> Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b2\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2100\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -1096.704333}, {
                7.384615384615385, -1096.704333}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 388.25272}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 388.25272]& , 
                    TagBoxNote -> "388.25272"], 
                    StyleBox["388.25272`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[388.25272, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 388.25272}, {
                    1.3846153846153846`, 716.5086}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 328.25588]& , 
                    TagBoxNote -> "328.25588"], 
                    StyleBox["328.25588`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[328.25588, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 716.5086}, {
                    1.3846153846153846`, 1131.60549}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 415.09689]& , TagBoxNote -> "415.09689"], 
                    StyleBox["415.09689`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[415.09689, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -1.687248}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -1.687248]& , 
                    TagBoxNote -> "-1.687248"], 
                    StyleBox[
                    RowBox[{"-", "1.687248`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-1.687248, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -1.687248}, {
                    1.3846153846153846`, -183.275868}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -181.58862]& , TagBoxNote -> "-181.58862"], 
                    StyleBox[
                    RowBox[{"-", "181.58862`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-181.58862, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -183.275868}, {
                    1.3846153846153846`, -1096.704333}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -913.428465]& , TagBoxNote -> 
                    "-913.428465"], 
                    StyleBox[
                    RowBox[{"-", "913.428465`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-913.428465, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 360.672782}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 360.672782]& , TagBoxNote -> "360.672782"], 
                    StyleBox["360.672782`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.672782, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 360.672782}, {
                    2.3846153846153846`, 571.315752}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 210.64297]& , TagBoxNote -> "210.64297"], 
                    StyleBox["210.64297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[210.64297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 571.315752}, {
                    2.3846153846153846`, 898.431737}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 327.115985]& , TagBoxNote -> "327.115985"], 
                    StyleBox["327.115985`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[327.115985, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -4.785349}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -4.785349]& , 
                    TagBoxNote -> "-4.785349"], 
                    StyleBox[
                    RowBox[{"-", "4.785349`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-4.785349, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -4.785349}, {
                    2.3846153846153846`, -163.933462}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -159.148113]& , TagBoxNote -> 
                    "-159.148113"], 
                    StyleBox[
                    RowBox[{"-", "159.148113`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.148113, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -163.933462}, {
                    2.3846153846153846`, -878.392152}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -714.45869]& , TagBoxNote -> "-714.45869"], 
                    StyleBox[
                    RowBox[{"-", "714.45869`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-714.45869, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 340.631967}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 340.631967]& , TagBoxNote -> "340.631967"], 
                    StyleBox["340.631967`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[340.631967, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 340.631967}, {
                    3.3846153846153846`, 492.08491699999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 151.45295]& , TagBoxNote -> "151.45295"], 
                    StyleBox["151.45295`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[151.45295, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 492.08491699999996`}, {
                    3.3846153846153846`, 768.8402409999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 276.755324]& , TagBoxNote -> "276.755324"], 
                    StyleBox["276.755324`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[276.755324, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -6.205358}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -6.205358]& , 
                    TagBoxNote -> "-6.205358"], 
                    StyleBox[
                    RowBox[{"-", "6.205358`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-6.205358, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -6.205358}, {
                    3.3846153846153846`, -149.311475}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -143.106117]& , TagBoxNote -> 
                    "-143.106117"], 
                    StyleBox[
                    RowBox[{"-", "143.106117`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.106117, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -149.311475}, {
                    3.3846153846153846`, -758.211383}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -608.899908]& , TagBoxNote -> 
                    "-608.899908"], 
                    StyleBox[
                    RowBox[{"-", "608.899908`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-608.899908, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    424.430174}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 424.430174]& , 
                    TagBoxNote -> "424.430174"], 
                    StyleBox["424.430174`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[424.430174, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 424.430174}, {
                    5.384615384615385, 985.5776720000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 561.147498]& , TagBoxNote -> "561.147498"], 
                    StyleBox["561.147498`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[561.147498, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 985.5776720000001}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 115.396599]& , 
                    TagBoxNote -> "115.396599"], 
                    StyleBox["115.396599`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[115.396599, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 1100.974271}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                    TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -66.469291}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -66.469291]& , 
                    TagBoxNote -> "-66.469291"], 
                    StyleBox[
                    RowBox[{"-", "66.469291`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-66.469291, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -66.469291}, {
                    5.384615384615385, -899.498816}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -833.029525]& ,
                     TagBoxNote -> "-833.029525"], 
                    StyleBox[
                    RowBox[{"-", "833.029525`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-833.029525, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    409.148947}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.148947]& , 
                    TagBoxNote -> "409.148947"], 
                    StyleBox["409.148947`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[409.148947, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 409.148947}, {
                    6.384615384615385, 855.950332}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 446.801385]& , 
                    TagBoxNote -> "446.801385"], 
                    StyleBox["446.801385`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[446.801385, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 855.950332}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 39.334762]& , 
                    TagBoxNote -> "39.334762"], 
                    StyleBox["39.334762`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[39.334762, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 895.285094}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 0]& , 
                    TagBoxNote -> "0"], 
                    StyleBox["0", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -62.129752}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -62.129752]& , 
                    TagBoxNote -> "-62.129752"], 
                    StyleBox[
                    RowBox[{"-", "62.129752`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-62.129752, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -62.129752}, {
                    6.384615384615385, -693.097152}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -630.9674]& , 
                    TagBoxNote -> "-630.9674"], 
                    StyleBox[
                    RowBox[{"-", "630.9674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-630.9674, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    398.232356}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 398.232356]& , 
                    TagBoxNote -> "398.232356"], 
                    StyleBox["398.232356`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[398.232356, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 398.232356}, {
                    7.384615384615385, 771.819992}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 373.587636]& , 
                    TagBoxNote -> "373.587636"], 
                    StyleBox["373.587636`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[373.587636, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 771.819992}, {
                    7.384615384615385, 790.2512049999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 18.431213]& , TagBoxNote -> "18.431213"], 
                    StyleBox["18.431213`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[18.431213, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -0.157619}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -0.157619]& , 
                    TagBoxNote -> "-0.157619"], 
                    StyleBox[
                    RowBox[{"-", "0.157619`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-0.157619, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -0.157619}, {
                    7.384615384615385, -57.341910999999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -57.184292]& , TagBoxNote -> "-57.184292"], 
                    StyleBox[
                    RowBox[{"-", "57.184292`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-57.184292, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -57.341910999999996`}, {
                    7.384615384615385, -587.689933}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -530.348022]& ,
                     TagBoxNote -> "-530.348022"], 
                    StyleBox[
                    RowBox[{"-", "530.348022`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-530.348022, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {
              Null}, {}, {}, {}}, {{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
                  3., -8.13144}}, {{5., 201.475455}}, {{6., 202.187942}}, {{
                  7., 202.561273}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -1096.704333}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b3\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2150\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}]}}, AutoDelete -> False, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
       FormBox[
        TemplateBox[{
          StyleBox[
          "\"E<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]E<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]E<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"CDR<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]CDR<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]CDR<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"NE<2200\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False]}, "SwatchLegend", 
         DisplayFunction -> (FormBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                   "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
               "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[{"SwatchLegend", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.95, 0.95, 0.95], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6333333333333333, 0.6333333333333333, 
                    0.6333333333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.95`", ",", "0.95`", ",", "0.95`"}], "]"}], 
                    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.95, 0.95, 0.95]; 
                    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.95, 0.95, 0.95], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.9, 0.9], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6000000000000001, 0.6000000000000001, 
                    0.6000000000000001], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.9`", ",", "0.9`"}], "]"}], 
                    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.9, 0.9, 0.9]; 
                    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.9, 0.9, 0.9], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.85, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.5666666666666667, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.85`", ",", "0.85`"}], "]"}], 
                    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.85, 0.85, 0.85]; 
                    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.85, 0.85, 0.85], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.75, 0.75, 0.75], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.5, 0.5, 0.5], FrameTicks -> None,
                     PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.75`", ",", "0.75`", ",", "0.75`"}], "]"}], 
                    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.75, 0.75, 0.75]; 
                    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.75, 0.75, 0.75], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.65, 0.65, 0.65], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.43333333333333335`, 0.43333333333333335`, 
                    0.43333333333333335`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.65`", ",", "0.65`", ",", "0.65`"}], "]"}], 
                    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.65, 0.65, 0.65]; 
                    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.65, 0.65, 0.65], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.55, 0.55, 0.55], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3666666666666667, 0.3666666666666667, 
                    0.3666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.55`", ",", "0.55`", ",", "0.55`"}], "]"}], 
                    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.55, 0.55, 0.55]; 
                    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.55, 0.55, 0.55], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                   GrayLevel[0], Editable -> False, Selectable -> False]}], 
                "}"}], ",", 
              RowBox[{"{", 
                
                RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                  ",", #7}], "}"}], ",", 
              RowBox[{"LegendLayout", "\[Rule]", 
                RowBox[{"{", 
                  RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
         Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{
       OverlayBox[{
         GraphicsBox[{{{}, 
            GraphicsComplexBox[CompressedData["
1:eJzt1/k31fsex/FNGi4dUYZya6eSuCqaULr5pBKalHOolAxFQoYyZKpExSkV
qUi+HyXpioZDbUNxUBlKJGQohVO3Dsf0sb+OorNvPvv9/eX8A3et7Rfrubb9
XXt9fD18XzMcPbfskebxeMNSPN7/vn//CmaQfZed51DzH8bf+wiDrKrRVb5L
10iHM+hp+b7OKW20TzLIcE7m6Wk63SN9ikHBRhb2jQ60zzJIvnvljsILtM8z
yF9TgXiW077EoO7japssh2gnMmiRwYvIa7o9I40ZNODb3hrjQDtF9H4pt136
sbTTGDSxteBpfAntWwza8fKYTGE/7TsMstCyPXRds3eks0SvF7llrbShLRBd
Ly0q5eQJ2vkMujPQFez2gHYhg0pTm2wbPtAuYdC899PLCpT7RrqUQXXVk1Xk
VtN+xqBtCobXUr1pVzFIc9q2SSFJtF8xKNQm0SugnPZr0XnmfDML66fdLDpP
7X+UHJtORvodgwq18+/sMaPdLnp/cWO0ghft/zLIvfdDrPsF2h0MmhJ6N9Mh
j3Y3g97r4cj6t7SJ6HzdP0Zm8/pHeoBBQf8897xVnfZXBmltq5ljakybh9G2
24unPbGlLY2RyqXsFjM/2jIYfeVvNs+Kpj0GI7/fT9R2ptAeh9GseSoJjQLa
shhNf51svKuc9niM8vcJ/tzVQFseo/nBgSGFv9FWwEg9fS/r1EV7IkaBRR++
zRXSVsJowKYheuhP2ioY/f7iXuf9QdqTRT9f+Hll1gBtNYz4j8zTHhPaUzGy
z1wac0V8fT5Ggsah3AefaKtjpBNVmezaRnsmRoMD5bJ/NNPWwOhd3mFZjzra
mhi5P6+4IVVFWwsjR3WZyodltP+FkddP1QoZxbTnYmT4Sj+x7iHt+RglfZM9
u0J8XnoYtc836Ptwj/ZCjIKH63dWZdBejFGJj4LXYBptfYxevnmvsVt8/oYY
me4vlxuPaS/DqHmmwKv7Mu3lGGkVX/GfcIn2CoyKsh11Xc7TRhj5LipP6j9L
2wQjy4OazwWnaa/G6IG6emlmFG1TjH4r979Re4K2GUYmfQ5ndCJoW2AUmtp5
NzOM9nqM/vOoeNPOI7Q3YpTM8xUsCaVtKfo8V4Mt9INpb8FIb6HigZ2BtH8U
3V93ajNuBtC2xshI2T98ij/trRhNPbwiOt2X9naMCu9e8bQ7SHsHRgnHchr0
DtC2w8j4Pomc4UPbHqPE0mBzXW/ajhitutPQsdWL9m6MIsYetbriSdsZI5+x
Hi5f9tP+G08z2qXbljhznqZcnja+uoXztGFuhHLxHM5T4deYCqcdnKd5OrN8
m6I5T32MItbXF3CeTrZ79OZJF+ep0puemh4+52nbPiWliA2cp+1XGZIQxHkq
o2WYgG5ynq6zf3f+UB3nacpwsrPJKM5Tp6ylW2J0OU8Vtrbe2GHLeTrn1vqc
c8c5T+3TBKem3+U83flo4+7exl7wdHemtUb/KM5Tg6awK4pzOU+bb6UU61lx
nrbXV7xadojzVM9jyE81ifNUaUCtMuPXPvCUNxgb2d7WB57aCt90JMtwnm7c
P7WmYhbnKW9j1Z21KzlPDS3iYwd3cJ6ade7ml/kR8HTU64xjF6MJeBru8TrE
PIWAp8oHI0yLHhDwdIF53Kn2UgKeSvXkusTUE/DUNWC2RUYbAU8LlJZ3K3cS
8PRhyk8bb/UR8LTzYnzQJpaAp1t5l+PfiFvkKa9u3kBmPwFPtSfFFMX2EPB0
bcvoKuMOAp6eqn8wTvcDAU+zVUtu3m8h4KkgtGW2YgMBT22kcm2cXxLwdPhr
x7zqCgKeav3yOd7pMQFPL5YUrtMuIODpYosN8do5BDw9XyT/cu8vBDxFcyPn
fsog4OlRZTv39DQCnnbG3bS+fY2Ap0cNmVEkiYCnrYtqVAMSCHj6afBAx1Lx
/0+Rp3NkT6QbxBDw1Ckl28lT/PsUefrllKZKSxQBTwOkNArDTxDwNKWy1MEu
nICnL/1ipPcdJeDpZOSbdT2UgKcyy97HTQgm4Om3CWNrrh8i4Kkpcz7V2Z+A
p0Jrxe2WvgQ8TSgTrnE4QMDTNe/iqy96E/BUZ22fT68nAU81TmzO9NxPwNPV
Vl+V5T0IeNq4p9L8mRsBT5c1lgnT9hHwtPjezbqrrgQ81Y/1uS3YS8DTt6Nl
rD65EPC02To9aZG4RZ5+SRQEXnAm4On5AJVGBXGLPD1Z3J6TvIeApw/3qsww
E/ffeCqlblXgsZfzNGvjlIZXHzlPIyo0lXt1OU/bUjUdclw5T1uyF+SpX+U8
jRl+u+J+A+ep3KvQMbUKPeDpnv2bFzxYy3nqouqXfySU8zS/d72VaTbn6ap1
PxcrdnCe5nqNGW6f2Que/sBKL8zfxnmqpce3PHOW87TTPGu61VPOU1mbM7KD
Q5ynq1SD7h5c3AeeelcF7ry3j3s+NSpda52MOU8Py0Sq69Zxnl5b8TjdTI6A
p8ujJh1oNCbgaXmp5cUq8f0l8vTJZe8+lRvc86lyXqB2vPjvX+SpVyWTbiLX
D57mrXX+ddioHzy9GfHjKYFbP3jqfKtDzjahHzwdtM7nVz/lnk8LGs6GjRY/
r4k8DS03qGnlC8FTvrdilJWZEDx1NVQZXuklBE/jtro4XrogBE+/6bWXoDwh
eLqgRH/87LdC8DR2Qq5w/jcheLrdRl3NjM+Cp/o7A1u3GbHgqcDQ7twGaxY8
jTPf9e/xnix46mcX+zI0ggVPN18rmRQdz4Knx9xHJ85MZ8HToa+q7zVyWfC0
qY7RD3nCgqcH5yvXTKpiwdPatgN1VXUseLpEes2WxEYWPBW6vrOya2LBU36w
4pSgBhY8LXtxeFRRLQueticlCprF1xd5qudze6JJBQueqvg3V61+zIKnrAmZ
xC9gwdOlAcuaiIAFT0+rldq23WPB07FaWZWDt1jwVOmH57NNb7Dg6T0LGbYi
mQVPNQ/JvD6TyIKnWc7aVrEXWfC0O8w5ti6GBU/D9q5p3hrNgqfNM9TfTI5i
wdNUnstnpeMseBr3KVVjXRgLnr5rLo/JCWXB05XeQYvsgljw9Lah7TiDABY8
re+Un2biy4KnpjruP4f4sOCpvUNhyEfx/SDy9PSWet1QDxY8naK0uMvYjQVP
4x6Wq+m4suDpDEvPmStcWPA0/PTU4/57WPA0Zbt2ba0TC56+zg7MsHFkwdOQ
ptzcL/YseCr/LDi9U/y6ZO9L9r5k70v2vmTvg6eSvS/Z+5K9L9n731uy9yV7
X7L3JXtfsvfBU8ne///c+38Bc/Ee4A==
             
             "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {
                EdgeForm[], 
                Directive[
                 GrayLevel[0], 
                 Opacity[0.2]], 
                GraphicsGroupBox[{
                  
                  PolygonBox[{{86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97,
                    98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 
                   110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121,
                    122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
                   133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144,
                    145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 
                   156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167,
                    168, 169, 170, 255, 254, 253, 252, 251, 250, 249, 248, 
                   247, 246, 245, 244, 243, 242, 241, 240, 239, 238, 237, 236,
                    235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 
                   224, 223, 222, 221, 220, 219, 218, 217, 216, 215, 214, 213,
                    212, 211, 210, 209, 208, 207, 206, 205, 204, 203, 202, 
                   201, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190,
                    189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 179, 
                   178, 177, 176, 175, 174, 173, 172, 
                   171}}]}]}, {}, {}}, {{}, {}, {}, {
                Hue[0.67, 0.6, 0.6], 
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]], 
                
                LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 
                 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 
                 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 
                 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 
                 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 
                 76, 77, 78, 79, 80, 81, 82, 83, 84, 85}]}, {
                Hue[0.9060679774997897, 0.6, 0.6], 
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]], 
                
                LineBox[{86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 
                 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 
                 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 
                 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 
                 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 
                 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 
                 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 
                 170}]}, {
                Hue[0.1421359549995791, 0.6, 0.6], 
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]], 
                
                LineBox[{171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 
                 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 
                 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 
                 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 
                 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 
                 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 
                 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 
                 253, 254, 255}]}}, {{
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}}, {{
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {}, {}, {}, {}, {}, {}, {}}, {{
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[
                 Tiny]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {{{{}, {}, 
              TagBox[{
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[1, 0, 0], 
                 Dashing[{Small, Small}], 
                 Thickness[Large]], 
                LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIwzV3MwFAz3+HsGRD4Yv+LY5eBTz2Cv5+NMXFGE4L/
2PHz0X2dCH7A1iv3sicg+Kd3KBZ+n4bgP/h9iV1wHoJvV14ctHEJgm9qVLHw
/moE36r2ReabTQh+B4PHs/qdCH7BYe70hQcQ/IX79s32PI5kn+ddzwtnEfwd
Igl/nlxB8G+KX0pquI3gT4lacXblIwQ/VvfVxo0vEfx8C2kvhw8IvlTzhmcx
3xF8PjZTc4Z/CL7fE75jM5gWwPlzeC3XKrAh+HyXo95lcyL4vjvWGf7jQfA3
Wv46FyyA4Ms0/14xQxjBD36j16oijuCv/xi5u1gKwb8htv0zpxyCz8FyKqNf
EcGP6b1ifkMFwa81E+TM0EDwD1W7muzWRnJvp/6cv3oIvvo2b7Z2IwQ/tT7+
1GVTBD8/Y+mEdEsEf97bRxv22SD4V6yu8bI6IPjXl//OmeSM4P/bIKH22A3B
/3Qz/WGVF4L/9lTOTUY/BJ8nIlPbJxDB/8Eyo/5uCJL//fbpGkUg+ArxsyTK
ohF8lgkrWBnjEXze2HU+/kkI/q5sq2XqKQh+WtWx//9TEXwA1MH7TQ==
                 "]]}, 
               Annotation[#, 
                "Charting`Private`Tag$110321#1"]& ]}}, {}}, {{{{}, {}, 
              TagBox[{
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[1, 0, 0], 
                 Thickness[Large], 
                 Dashing[{Small, Small}]], 
                LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIwzV3MwFAz34EBDH7Y/+LYZeBTj+DvZ2NMnNGE4D92
/Hx0XyeCH7D1yr3sCQj+6R2Khd+nIfgPfl9iF5yH4NuVFwdtXILgmxpVLLy/
GsG3qn2R+WYTgt/B4PGsfieCX3CYO33hAQR/4b59sz2PI9nnedfzwlkEf4dI
wp8nVxD8m+KXkhpuI/hTolacXfkIwY/VfbVx40sEP99C2svhA4Iv1bzhWcx3
BJ+PzdSc4R+C7/eE79gMpgVw/hxey7UKbAg+3+Wod9mcCL7vjnWG/3gQ/I2W
v84FCyD4Ms2/V8wQRvCD3+i1qogj+Os/Ru4ulkLwb4ht/8wph+BzsJzK6FdE
8GN6r5jfUEHwa80EOTM0EPxD1a4mu7WR3NupP+evHoKvvs2brd0IwU+tjz91
2RTBz89YOiHdEsGf9/bRhn02CP4Vq2u8rA4I/vXlv3MmOSP4/zZIqD12Q/A/
3Ux/WOWF4L89lXOT0Q/B54nI1PYJRPB/sMyovxuC5H+/fbpGEQi+QvwsibJo
BJ9lwgpWxngEnzd2nY9/EoK/K9tqmXoKgp9Wdez//1QEHwAfgQNJ
                 "]]}, 
               Annotation[#, "Charting`Private`Tag$110368#1"]& ]}}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0.96}, 
           DisplayFunction :> Identity, Epilog -> {
             InsetBox[
              FormBox[
               StyleBox[
               "\"c\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                StripOnInput -> False], TraditionalForm], 
              Offset[{0, 0}, 
               Scaled[{0.5, 0.98}]], {0, 0}]}, 
           Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
              FormBox[
              "\"delta SSA above preindustria (in \[Degree]C)\"", 
               TraditionalForm], None}, {
              FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {{
              Thickness[Large], 
              Directive[
               Thickness[Large], 
               Dashing[{Small, Small}]]}, {
              GrayLevel[0], 
              RGBColor[1, 0, 0]}}, FrameTicks -> {{{{1., 
                FormBox["1.`", TraditionalForm]}, {1.1, 
                FormBox["1.1`", TraditionalForm]}, {1.2, 
                FormBox["1.2`", TraditionalForm]}, {1.3, 
                FormBox["1.3`", TraditionalForm]}, {1.4, 
                FormBox["1.4`", TraditionalForm]}, {1.5, 
                FormBox["1.5`", TraditionalForm]}}, None}, {{{2020, 
                FormBox["2020", TraditionalForm]}, {2030, 
                FormBox["2030", TraditionalForm]}, {2040, 
                FormBox["2040", TraditionalForm]}, {2050, 
                FormBox["2050", TraditionalForm]}, {2060, 
                FormBox["2060", TraditionalForm]}, {2070, 
                FormBox["2070", TraditionalForm]}, {2080, 
                FormBox["2080", TraditionalForm]}, {2090, 
                FormBox["2090", TraditionalForm]}, {2100, 
                FormBox["2100", TraditionalForm]}}, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImagePadding -> {{60, 70}, {50, 10}}, 
           ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, 
           PlotRange -> {{2015, 2100}, {0.96, 1.55}}, PlotRangeClipping -> 
           True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
           Ticks -> {Automatic, Automatic}}], 
         GraphicsBox[{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]], 
              LineBox[CompressedData["
1:eJxd0XtIE3AQB/A1e6y0soiS1B5iJjXKxErC7DAxXdlDmskaI4eFBSUFQX8Y
jBgVFmUvipn+riyKWmUSlKmoS22V5ZAl0jIKVhgsGqIhPaTlGdH34Ljfh/vn
fnfzrSV5O7UajcYYyj91JEoVySO4ZqTYwHbwcfBJcDn4PPgS+DKYwdfAN8FO
cA34AfgRuAHcDG4Fu8EdYA/YC+4BvwW/V3T3hK9YU/JF7FdU9fVG+/qVn8V9
ivTfLvaeO/ZRHFBkqLQluI5+EAcVvbrV+To/4BMPKKLllsc5Ed3iIUVRF7wT
i+M84p+KhvyFV7pTnoo1TF1nzMNrvzeKtTw6X414LNOBslP+/rlnxeP/9kdD
B54EjgBPAUeCp4NngGeCo5i0ufbJm+7ZZb7ZTOsWHNQ6dBXiGKakfdVjGsZd
Fc9hWqZzxpiKbovnwX/jmI5syQltuFYcz5Sm9zo+xT4UJzB5MnuCA4Y6cSKT
e8LqCqOqFy+CfeqZerPCDoXHN4uXMIU5dNFVlhZxElO5azDRfNolTmbq27M4
dPEn4hSmwNL6hVPD28QrmCqnXW9smdUuTgWv4v/vm8bkiy4tTDa6xelgYurv
yrVGFjwTZ4AzmVoz7ux+t/+5OAuczfTDvLdtuPaF2ADewORM37b9flOHeCN4
MziPyTRY96bs10vxVnA+uABsYrJlNx2OTe0Um8EW8A6wFVwE3vXPvwHjnFOA

               "]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]]}, {}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]]}, {}}}, {{}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
           DisplayFunction :> Identity, 
           Frame -> {{False, True}, {False, False}}, FrameLabel -> {{None, 
              FormBox[
              "\"Probability for staying below 1.3\[Degree]C\"", 
               TraditionalForm]}, {None, None}}, FrameStyle -> {{
              Thickness[Large], 
              Directive[
               Thickness[Large], 
               RGBColor[0, 0, 1]]}, {
              GrayLevel[0], 
              RGBColor[1, 0, 0]}}, FrameTicks -> {{{{20, 
                FormBox["20", TraditionalForm]}, {50, 
                FormBox["50", TraditionalForm]}, {136, 
                FormBox["136", TraditionalForm]}, {200, 
                FormBox["200", TraditionalForm]}, {252, 
                FormBox["252", TraditionalForm]}, {312, 
                FormBox["312", TraditionalForm]}, {346, 
                FormBox["346", TraditionalForm]}}, {{0.25, 
                FormBox["0.25`", TraditionalForm]}, {0.5, 
                FormBox["0.5`", TraditionalForm]}, {0.75, 
                FormBox["0.75`", TraditionalForm]}, {1., 
                FormBox["1.`", TraditionalForm]}}}, {None, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImagePadding -> {{60, 70}, {10, 10}}, 
           ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, PlotRange -> {{2015, 2100}, {0, 1}}, 
           PlotRangeClipping -> True, 
           PlotRangePadding -> {{0, 0}, {0.005, 0}}, 
           Ticks -> {Automatic, Automatic}}]}, ContentPadding -> False], 
       TemplateBox[{
         StyleBox[
         "\"Median\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"0.05/0.95 Quantile\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"Probability\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False]}, "LineLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
               "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", 
               RowBox[{"{", 
                 RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
        True]},
      "Legended",
      DisplayFunction->(OverlayBox[{
         TagBox[
          GridBox[{{#}, {
             TagBox[
              StyleBox[
               TemplateBox[{
                 StyleBox[
                 "\"Median\"", FontFamily -> "Helvetica", FontSize -> 20, 
                  StripOnInput -> False], 
                 StyleBox[
                 "\"0.05/0.95 Quantile\"", FontFamily -> "Helvetica", 
                  FontSize -> 20, StripOnInput -> False], 
                 StyleBox[
                 "\"Probability\"", FontFamily -> "Helvetica", FontSize -> 20,
                   StripOnInput -> False]}, "LineLegend", 
                DisplayFunction -> (StyleBox[
                  StyleBox[
                   PaneBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxDividers -> {
                    "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}],
                     "Grid"], Alignment -> Left, AppearanceElements -> None, 
                    ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                    "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
                  FontFamily -> "Arial"}, Background -> Automatic, 
                  StripOnInput -> False]& ), 
                InterpretationFunction :> (RowBox[{"LineLegend", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
                Editable -> True], ShowContents -> False, StripOnInput -> 
               False], Deploy, DefaultBaseStyle -> "Deploy"]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          "Column"], #2}, All, 2, Alignment -> {0, -1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.8241246125437984`*^9, 3.824125588577282*^9, 
  3.8241263115514307`*^9, 3.824126341744375*^9, 3.8245434106252823`*^9, 
  3.824620315479066*^9, 3.824708671550172*^9, 3.8247549972454567`*^9, 
  3.825218375114643*^9, 3.8254247065633197`*^9},
 CellLabel->
  "Out[1060]=",ExpressionUUID->"00873da2-4c30-4ae9-96a5-fba5839eea31"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"FigureABC", "=", 
   RowBox[{"Grid", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Grid", "[", 
         RowBox[{"{", 
          RowBox[{"{", "FigureA", "}"}], "}"}], "]"}], "}"}], ",", 
       RowBox[{"{", "FigureBD16", "}"}], ",", 
       RowBox[{"{", "FigureC16", "}"}]}], "}"}], ",", 
     RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}], "\n"}]], "Input",
 CellChangeTimes->{{3.8241263077670803`*^9, 3.824126339856432*^9}, {
  3.824754960120466*^9, 3.8247549952424808`*^9}, {3.825217557971426*^9, 
  3.8252175777564545`*^9}, {3.825218387786661*^9, 3.8252183881866612`*^9}},
 CellLabel->
  "In[1061]:=",ExpressionUUID->"36c1fbfc-404a-469c-b566-8d780f257166"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TemplateBox[{
           OverlayBox[{
             GraphicsBox[{{{}, {{{}, {}, {
                   Hue[0.67, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1GtQ1FUUAPDNBEIBNwMFCxZDUNEU10ekwZzkDQK6AvJQnvKQeKwamYqI
K60MEjAOoTxGjohCirSgAQkIMkiANIpQEANCCNoMmu7gBBmP/nmPH7p35s6d
34c7Z+45556lofGy8DkikShV2P+dr1diIYy3SnQSyw/AaycXwm1J0szRN07h
nMo5nXMW52zO5zgXcEbOxZxLOZdxVnG+wbmGcx3nRs7NnFs5d3C+z7mbcy/n
fs5DnEc4/8H5KecXnF9ynuQ8xVmE//ccznM5a3J+h/M8zjqc9RAeq/7JCHlj
McIa0xsmtkXkhQi9PTe7W9PI+gieGv3jddHkRQinBt2rY+zIhgi54oMuvxiQ
lyAM22jlXBzez/wBwrOQtfrya2QTBH+H41GPD5FNEdq9bpeOAPlDhC6rRHsd
bfIyBGXCo4HOe3JmCwQnv4Zc32/JKxCuBtgst/EnWyIcPHlBb5UJeTVCUFJJ
W3pTPPMaBL2G/Dg/J7KVED8u4uXFu3HMUoSY7zXqqz3JGxDqwOWERlcs8yaE
T+7bxeZ7k60REkOk3qqeGObNCBfcrF/m+JM/RXBVq7X9Bj5ntkWQd7bJxoLI
gHByQBXbORzNvFV4v1T2fGUk2R5hOlpP3DG2j9kRYapUOX1eTnZGGKqzVntP
RDG7IpTOlv29P4m8DaG7KkR/ribZA8FuS4kfZkYybxfiDSRsGjEiyxCSnbxK
/yyOYPZCqFxQudpQSvYR7v+kZ6luCGf2RZinPKi73pPsj5CXrYhbO7SXeTfC
CfNdFZP7yYEIE285xw5rkIOFfF+vWDieF8YcirDFsMIzeR15L8JsQFuGbnso
c4RQT3NJ7ekwchSC70jPgnWzIczRCOs3aj8UF5BjEL4JW3Y0ZTM5Tqj3YP3F
lr5gZjmCVo7ZXtNE8gEEF3F5cpOE/AVCdN+dDV2pQcxfCv1wxMDI+NdA5q8Q
Nh5FA0ML8hGEtZ5P0mSH9zAnInQ88Ph59N5u5iQhX8lqnSUryckIfe1uM8uV
AcwKhCrFZXOfUX/mFIR86x8HLziTlQiNCXfSX1zzY05FOBT5rGr+YnIawkyB
YipG4cucjlBxukjLVr2LOUOIZyzTyQolZyGYzGooRD0+zGcQMh+dcjXzIGcj
HLY5py9p9WbOEfKd4DP/qT35HMJfz191+DV7MechiK+fjS1xJBcI/8FqRVfU
3Z3M54V5EKbRoLuTjAj4Xc9HcwZkzEUIxjZJ8V37yMUIoe7hO3ondzBfFvp/
8F2DK2nkUmEevdrTm2dCvoKgXv2ZI/ywnbkMwSqlYGLWnVyOUKNZ5ap64Mms
QpDU/257QJdcKeSv+ozx++4ezDcQHHN1pW1Z7sxVQr84jIsW/baNuQbh1sNp
daA5+SbC2dEx6VSCG3MdwqX+YxmZ7a7MtxCk5TXWlmbkRoSiY2VD1cddmJsQ
vJveOzI96MzcjNDyStPiY3tyC8LXZs6Xeq86Mbci1K6qDZYvJrcjGD2J37pU
6cjcgVCoan67fdIB/gXPX7+m
                    "]]}, {
                   Hue[0.9060679774997897, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1H801lccB3DMrKU5No2YPDTJr9Jkz6LFB2WeyK/Hr0ny8/FbEXLK9BDR
Mjzya3T4VERYmVTPiT1JhjWZ2Tr5NbOOXzUdNotmju277j07Z/eec889r3P/
+Nx7z+d99YIPe4QpyMnJ5XDz3/XlSK2CN/hJOsXecfDS4irQ9PHX/s+ZjHMY
5zIuYFzEuIzxecbIuJpxHeNGxk2MWxhLGbcxbmfcybiHcS/jfsY/Mh5kPMp4
nPEE4xnGs4znGf/B+AXjFcZy+H8rMFZkrMR4DeO1jNcxVkF45cH0aKw7tSpC
r/RKumgn9VsIArOoJRNV6vUIPjOnwmJGYonVEcYX7q35pYJ6A0KtpOT+iAe1
FkJ8b/OWdHlqbYRlMYQP1MUQ6yCIhleLiwXUughTv5qv1E5EE29C2Gi1e67r
OLU+t69Q2l2+jtoAQXFKTygrjyI2RNjBT7x+ZzO1MYJn7sIHelcjiU25+19Z
8nSxoN6GYJU0eb1NGkG8HaFZLSDjh13U5gh+i/pNlnfCiS0QUkrPvuhzoOYj
XEj35R/tFxHvRJhY/HZLwwFqKwT1nMqib2bCiD9EsMCxXK1j1NYIj60TogeU
qAEhAr7SfL8slNgOIVH54Jl2Y+o9XL2lLlWxLITYAeFRZHVNgpDaEaHrzLXk
oqfBxPsQSht4FRMZ1M4IHW7Zb8dpU7sgFKyXBBXfCiJ2Q9gvG5py8KT2QIj5
XqFl6++BxJ4IXqPSr1ck1N4If0ue9EfuoPbl3vO17zINGg8R+yH8pNy7du/z
AGJ/hATz+AZdW+oABJNs9aG+/IPEgdz5hr4IM3/sTxyMYGly0WCZTx2KoHJJ
NyU1/wCxCMEs7pJ821M/4giEmtN8uXcE1FEI2xc2rnTWf0wcg/CqR/CjRRXq
OATdZyfFN5J9iY8gdD+fW+4d9yFO4PrbTOTk7UKdiGDjlaUULPMmTka48efJ
h5L3qFMQDNMfWKbUehEfR5gfcw+x06VORcgc/NxuusKTOA3h8qFNY1Za1GKE
wSDn5RMVQuIMhCCP1FQ7HnUm1w/2wuTlGg/i01y+zrmHbTCjzkEIl8pX8Vrd
iT9FEJbo5SUJqHO5fE4lnLow7Each3Ct+aaRThx1AULjZ1+qBShSFyL0DGRv
q7N0JS5CcAW1oHuHXYhLEHLTk7Rt6vcTl3H/hanRsaonzsTlCN6maULfrdTn
EXy7f7OvSXIirkSo7sosc+rYR4xcfkYNRk3UqC8iuOXHah6JEBBXc/1mq2+f
d9eR+DJCW9HtUG0edR3CiHNWir74I+J6BIkRL6N+0oG4ESF6TugV4UJ9FeHN
o4KHya17iZsQftYorW8xoW5GSFs9MT9ctYe4BcHg7F/5zhrUNxE6AwwDdxXa
E0sRFvsiGgpVqW9z+Wrnpa1K7IjbEGarZabP1KllCJt5rcpFlbbE7Vy9grC7
nUbUHVw9y0Cfc7eAuBPhdXcZZjlSdyGEBC/Ex0ptiHu4/+mTqUbXSWvi+5yN
xyunNah7Ed6tnBU5uO6GfwCBbXi5
                    "]]}, {
                   Hue[0.1421359549995791, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd02lMFEYUB3Ag2AJB6lWLqEQJVErQKghdCdBXbD1XQQ4LKy6w7Moh7CIg
XRCFItCVQF288IQnsoYllKJyiYpo6YbLerbBFsJWsViECmKFQtVunZcmnUkm
k9+HN5m8ef+FEoW/zMTIyEhl2P+eb1Z6CQw2RSrjqpLhjTNLYE+C987/nM1Z
xTmfs5rzIc5HOZ/kjJzLOJdzruRczbmGcwPny5ybObdwbuXcyfkW53ucuzh3
c9Zz7uP8mPMg52HOzzmPc/6bsxH+3yacTTm/xdmMswVnS85WnKchOD2qneGh
Ic9ASPqyI/JGIXkWwmMXN3NbJXm2oX6+IMo0hGyNoFhzxiTKjWyDsM7+doej
FXkeQkP/X3d1D5OYbRG2Kk5o/erICxB8oCnbIpdshzB1eUnSRwFke0O93bJP
ptqS30fI2Pti4OFvicyOCHb5JTqvKrITwh3jtV1jSWRnhIuuMy2jBOQlCKWD
ix+lT+5gXorg3q8/5neF7IKgKZ5y2nMPeTnC04CgaL032R3hC2HP4VOvEpgF
CHej3g4tukL2QIhwO1L9YhfZE6FRuCGr3oPsjbCldrvPzyMKZkB4LyIvMSae
7IMwN8f+QtrvcuZPDfevz5dNyMirEMpaqoaGfo1nXoMQfT6jOFdMXofwrcU9
SUJ3HLMQoWR+wtZlIvJGhPIVqYX7urYz+yHckr72LAgm+yP07S2+UdEVyxyI
sNLmXcH9EPJmhDNVtWPa7hjmYIS4j+c8/C6MLEJIiVfUl/VFM4ciTD/rWKSL
JYsRLGadU0WMRDGHIzwLW2CmTiNLEIaOORjHmpKlCOMToqLj+7cxbzO8v3zi
8A/zyNGGfkkPFF6okDHHIqgWex0f8CDHIVRdSq1Y2SllliNkqZ3DTcLICQhe
dbLm+6ORzIkINpMHCr7aR05GKDDTXdMsJKcgyOVC365GCbMS4Xn+7jZdEDkN
4dSHL8TpzyKY0xGkN4s7AtXkPQiDmxpsc5aSMxFir9bO1NwOZ85CeBWuvziW
TM5GaN61umDfHHIuguTqop+0GWHMKoTUg72lB2+KmfMQdnXXixbZkfMN/98e
49um3Mr8NcL3O/Q/Jt4OZVYjmMvL4gqXkA8g9K+w69UUbGE+hJDbFnitfFjE
fAShWjtaPh5EPoqQZztuXdkUwnwcYUqP+I61E/kkwstogUx+NJi52JDH3tOO
t8zJiLBJs+2dmt2fM5ci7G5fFtL9fDNzmSGP010nPeXkswjfaDJrXg8EMZcj
GF9J6L8eQ65AmBgpmv3nk0DmSoT7f9jipIJcZciz4LPViWMBzNUIwe0uLecy
yecRcux6bn4wlVyDoG+UrFKe8GeuQ8hc6xTQ6UxuMMyju2D6y6ubmBsRTmqk
K8w3ky8jaF3H1MNDfsxNhnn2K3XYryI3Iwh9gx8YO5CvI4itLj21VvkytyA8
eeBu09y2kVmH0Obdej58GrkVwa1oruVO0QbmdoRfzipDA7VC5k6E0ZTsu1mT
6+Ef1+GuLQ==
                    "]]}, {
                   Hue[0.37820393249936934`, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1AlMlEcUAODtorUBSldEg8DSotS4gBQBARXxKQseq7JScEUpInepRRBR
waNEFFYQUbSKYuFJgOLJpVSUyhFRChZsQUTuxm2kFiwQFUyl9K/zauJMMpl8
mUwy7715Yxaw1TNYLBKJ1ML8b30z9mRDiOTjtqEF/vDG8dnQJjE59dYHOKs5
H+Z8lPOJbLj3l/3pt87g9s9yRs65nAs4X+JcxPkq5+ucKzhXcb7NuY7zPc73
ObdwbuPcybmXs4ZzH+d+zoOcn3Me5fyaswjftZjzBM7vc/4A3623NsKisuAq
n/+ti1A18VHJHkuyHsKB8q6GsclkCYLbTW3Z4t5NzPoIPxZ0FYrTyAYIKamx
0qi55GkI4uFPvSLr/ZgNEer8a8+3biAbIeictkwI13zBbIIQ0O44ogojmyJE
5D0MCXziy/wJQtrX0yNPBpBnINxvra7ubt/IbI7wYEZORoWSPAuh1tHAZWPt
BubZCDHpl62/dyVbIAw9DEqNu+vDbIXQYyiOD1SSrRGqI9rKZnesZ7ZBGJ2X
PuG3MLItwu6QFfFnRlXM9sJ9z1lOLjhEdkAoaxsorTclOyEsNB5u0r22jnkB
woXMlMoBBdkZ4eSsPOz43ZvZRbhf+ZT+ym/IIOR/sPLbfmPyUgSRqiRwZrkX
sxxBK8M2ElRkd4Qfdpd7HBn5nHk5gmfGiFPzKfJKBMPj//hpLySvQvho705L
Rbcn8xqEU4+nqrMSyEqEkLnFr67LyJ4If7uYmMt/WcvsheDiu61TFkdeh+Ah
zowenElej7A2W6OX2aRk3oBgt/VBTMFusi+C/7rZv47JyH4IySqfDoNiD2Z/
hFynZVLpFHKAUC87/XOTd6xhDkK4tP51flHnauYQIb8W9pIGOTkMYXB1c+ik
olXM4Qh7C82crKXkLQiZUUY52qkK5giE/CGdQvPxlcyRCPJE74pj0eRtCEZ5
ivH0pyuYtyPYWHt/mRJI3oGgtyrCwKdnOfMuhLxbVgMtvuQ4IZ/6L/Z7dC1j
3oMQnBqndt9E3oewfWkfKjTuzPEIY9O+s7oWTt6PcHBGV5PsuRvzAYTpPrZ3
h/eRExEid7ZG3NQlqxFizf2yGjPlzMkIlknTHjXOIR9GyPKTNUiqXZmPCOd/
lo59piIfRThr69ijfraUOV3o74Rcj4tq8gmE8DV+QWJz8kmEys05S7RrljBn
IDzzNfzDbTP5DMLjCMnlqVrks0J+Eh1ExvnAnIUwqT98+ISCjAiJaWrZMc1i
5hwh/l1CQA7kXITxxpd9H6a4MOcj3HhxxtRAs4i5QDh/fk7M0cXkC0I9bfSs
pdnOzJeE92cWHax8j3xF6J/SQufloQuZi4T+9y5XvmpawFyC0JTV0GLuTL6K
kCoPm2B8cT5zmdDPsRevuErJ1xGizNJ63dOdmG8gXMk63u2oTa4Q/htRTZL+
QUfmWwhPlIkXMsTkKoTmr0qL9RMcmGsQfppfnPRyIvk2wpbjyXfaU+Yx30EI
mikp/HMKuQ7Boj5vSCfbnrke4Wl9aKypFfkewoiWqSFU2MG/CoWRKg==
                    "]]}, {
                   Hue[0.6142719099991583, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1AlQVVUYB/CHvVxAHwYqisQmGQGPAHEJWT6QRQgBX8gjZHEQ2Yy92HwW
GBQJNJhIRCxfsgsBohGgCWNQggsWCq8gwVGbxBdiGqNG1s3zjTOdO3PnzG/O
mbN893+uUXiCbM88kUiUJ7z/tU8fRRWsbzeXrrEOhqfOqoLxrCHNZ87hnMe5
gHMR52LOpZzLOSPnGs4NnJs5t3E+ybmT82nOvZz7OJ/jfIHzZc5XOCs5j3Oe
5HyT82+cVZxnquDB2QqNZ37A9T/kPMdZhP/3PM5izvM5L0Tw6izySLQiqyO0
eBn/ZahDXoygq+srTrqzk1mC0HzrkrfVcfJSYbwyLNV3L1kLYabniEqpS16G
MGylcPU+G8S8AiF7X6VTXDh5JULFbpjNnHuTWRfhl/S0iOZDZD2EwUfhd/uN
yfoIfwRPfPh+WyCzIYL+pKfGp5vJxggPrxsaDfbJmU0QHvSldGR5k9ciWFh0
Gsz8GMBsiqDokEhmA8lmwvpHQqw6r+1gtkAIa7+3Kz+CbIlgaFZY+tOUP7MV
gnledsv+JLINwlD2rYWrHr3BbIvg39Taop5D3oAwZv2OPHU5eRNCo8+C9spG
GbMdwinVaMW0M9keIX1Ge8Hl8e3Mjgh6qm2LBzLIgLAjdhbMV5FdEHJOnUgd
6/JjdkW43ZXb4hpCdkeYTj88cVSNvBWh8KueEw4yX2YvBHfTjgN11T7M3giR
NnpDUY+3Mfsg7C7vWZQrI/shjJ7JCu1s9WaWISRPXk2OkpD9hXotqb9wMel1
5gAEZ+l8zeERL+ZABFH+3GMjIAchaF/d+dzOJk/mYCFviec9ZLrkUAS5S5pn
ef5W5l0ItTF+tpoicrgwf9nxaLs0D+YIhC0O+8VPZtyZIxGyIpcaKOPI0QjB
hSqv8yo35liEY+6t800TyG8hPLmSfnvtfVfmeITvLfZpKTPJiQgNAWEhy8Xk
ZIRy3xebiou2ML+NELfa3XlGn5yKsK1bekijzYU5Xbh/7RIP+RZyJsLS1js6
KqUzs0LYn1pu5uNE8rsIDu4Zv95SJ2cJ9d4uNT5YD8wHhLwNiPz63cg5CEZT
jqLGi07MHwjf/4fV02u0yXkIJqWxkdIQR+aDCH97KqbFTQ7MBQgDhmkv1M3Z
M3+MYFp54vkcGbkIodowXbGvaTPzJwiHV4oDJIvIxUI9uz02yGPsmEuEPNzd
Ya596TXmUiFflokZzevJZQhuZgVS8RebmMsR8ld/XVqlSa5EqATlKwHZG5kR
oaB75Fr97AbmowgeBvfVsuPJNQhON6Vyp6n1zHXCfY0OCt8TTW4Qzlvzc/2N
27bMx4T+mP6Ny+LJzQgfrdF0XfHnOuYWhJHN45Il75HbEHyGoxYEa5DbEWxu
xNWOltkwn0TQ+TxAPduC3IHwZc9Lon96rZk7hfMI5RyRk7uF/6HZxDqte1bM
p4Xx0SnlYwXkM0K+u+Imqs3IvQinjR9OeJW8ynwWwT7merv6mCVzHwImpu79
zIT8HUKuRoZ4Y7KU+RxCydpaHPvWgnkQ4eVvEhS/ryJfQAjNLa7yTzGHfwGD
8356
                    "]]}, {
                   Hue[0.8503398874989481, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1Q1QVFUUAOAdEEFSBkmYBjYTBVQw2sQxwQUPiIjAgqxItKgQg0b+oUCr
IRj/MCCGC5n8xDvghghG4PAjRkbAkJr4i4KotDborKWJJtqaQS/v6c343syb
N9+cOfeeO/fc++xj4pUbjSQSSR7//vd9+aRw0L3RenHmhg/hpdM4yFXE3s34
31kcmLcrLwjO42Diyy2XBO/jQOrgaxBcJIqXcGBpvP5vwYc4sBly7xNcIcpH
UVzLQcqCVL3gWtH4x0TjN4rym0XjnxCtp0MU7xTl94jip0XxcxzE/tZwX/BF
UX39ovoGOfDwfNgr+KZofTpRfSMcQK7hsWC9KH5fNP6oKP6Eg0/Woo2wv3+J
6n8hypcg/KnOuiLYCGHRJqsxwZPw1fVNRjB07p8QbIavrsccIahWNyp4KkKw
Sza4hpEtEFRZMS56OdkSoS36qKvOjmyFYLPd4H/2cTTzDISHYZ2eF7rINghu
+77zXlRIfoO3boHjz0qyLcKb6l/elc8gSxHmy+PUt7RRzDMRBsdeU3fbkWch
KNOLt+kKNzDPRghYXuijMSU7INzpPy9ryV/P7ISwcGnB8FEr8jwE97Ypz85W
rGN25udzik8rdSYvQAgsVl58cDKS2RWh6fmcqcYKsgyhowll826rmBcijFrf
SlbsIi9CGC7OzVZNIy9GkH3U6vJE+wHzEgR/w6qWEC+yB+UPRDDLEd6THpy8
N4HshRBhNL9piwUZEKyVe5UPjr7P7INQYuNa3+hP9kXIiz3dNHY3nNmPz99Z
1yLLIfsjtPccMJ09lxyAUFPeM6vxp7XMQQgVW4134WZyMML45WqvM9PIqxE6
96wsnHI8jFnJ96PnnOm2EeQwBI368OeGf9YwhyNMc2+ttK8hRyDgxMwOdTBZ
heCifaEdeqZkXocQ2SzZVl9N3oBwIlJjrFaQoxFM4ebV+uehzDEIn2qS+kaO
kGMREgoM7VXh5E0Itxx3hvtOJscheJRUOde0rmbejGBuaeJWE0feysfNPFRX
bcnbEVpnFD1dVhnCvIPv7/Hd36pMyQkIZnf1j/YkBjMnIRjF6ge9byuY1Qh/
JH+cLwkl70ZYkn6veXt3EHMyQkP74Yk7i8kpCLm1XdztbwKZ9yJ4+9vI0h3J
aQj3ryeWlmEAcwbCZ8Nh2i4pOQuhdGOIUXn5KuYcfn6zIybvSMl5CN0DAyf7
K/2Z8xGqU4/p2uaQ9yHEB45kuNWtZN7P1/d4UlewG7mI31/IVHz1vR+zBuEt
S33QUAC5BCEpebjQ5PoK5oP8fZHi4Oi5mXwIYezGQHriC1/mMoT1oQFm4QfI
FXy/xF/Tpc4lVyJUuUyvHf9hOTMiOFz7dY1ERa5GuK4esp3+1IdZi9BnHDEy
UEyuQdA/1fTGuZFr+X53+tHucr83cx1/vnMKbl7ZRT6G8HWVn/0ZKbmBP1+H
JaGybmBuRPBbZhtcuoV8nO+PQDuLQGtyM8LbzYllJhnLmFv5/FOWCcM3vJhP
IKSus3PudSefROC7U/Gk1JO5g79fGqIa7cblzKcQZl2alB8RS+5EcPx9R9IX
55cydyHIB2PaLniQexCKMq02DdV5MPfy/SzPenRFSj6NcLlnaWexxp35LEJ9
SeU9R3PyOf7/0VfwelT2EvgX2KaZHg==
                    "]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{0, Small, Small, Small}]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {{
                 RGBColor[1, 0.5, 0], 
                 Thickness[Large], 
                 LineBox[{{2015.1, 0}, {2015.1, 185}}]}, {
                 RGBColor[0, 0, 1], 
                 Thickness[Large], 
                 LineBox[{{2015.1, 185}, {2015.1, 350}}]}}}, {
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
               AspectRatio -> NCache[
                 Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
               AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
               DisplayFunction :> Identity, Epilog -> {
                 InsetBox[
                  FormBox[
                   StyleBox[
                   "\"a1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                  Offset[{0, 0}, 
                   Scaled[{0.4, 0.95}]], {0, 0}], 
                 InsetBox[
                  GraphicsBox[{{}, 
                    GraphicsComplexBox[CompressedData["
1:eJzt2PtXzPkfwPFum6gUdrNufeWaWEsRFfVeRDdZ1crmsswmpGS7WKUvLSmW
Ulaayne8lGpWJN1LdJHpIkWLanVjRbb6SojNpX3xen/3rM9fsOd75vPDzHmc
M03N9J7nec1LT+TlsEFJQUFhGt68u39/DQWm8PfrY2BpbVEdnkaWFu+tA6yv
R6kzwfF78qfAMhZtjLHUDyGPBNZtbz4/e0MEeTSwFIuSGesqosi6wMT7tttn
sDjy2P89HsjjgI0os+pVm51AngDsoJd+YPbgJPIkYAc0UnaMfyol6wNbIZJE
Zd5LIRsA+yb9ybqDTankacCUgrUmuvSkkacD64iIu6samE6eAcz5Cw3fLvVM
siGwfV2Tvw0UZ5FnAZuwMPzsRrUcsjGwFqOhJ4d45JLnAnusHPFraUUe2RRY
UPfJRba6F8jzgOV5+FYv+66AbA5sdq2Dv1nJRTID1hQzMMRHs5C8AFhshnmb
eFoReRGwErs7hem13IuBTT9tuWimfzHZCpj6wE/XNI8uIdsA8+reV+FUzG0H
zGSXdJbI7TLZHtjNp1un6WuUkr8E1ha0ZqkkndsBmGRHtY62yxWyE7ATR601
PRVk5BXABvVkRHYkca8EtlI6+5qZfRnZBdhH7jN3iHu5VwNLfJ6j0nqinLwW
WP/qWa7zbCrI64Dl1BgYJT7nFgEz0B1+a1x8JdkVmMajbm3ZsqtkN3w/FWbZ
RL/l3gTsXmWDWcLZKrI7sKEz8gtMVl8jewDbfemzlafVq8lbgSn+MdRgbgH3
NmDnOoZ3hnjWkL2BFb8JGqCqfZ3sC8wm1iIpazP3dmB75l0I7LjMvQPYsarz
BSm6N8gBwE4Ve3re9ecOBPbuv5N6i3sXvr4wccPDmbXkIDx/Kv2rKsK59wCL
c/Zbod7JHYy/7/SNFEWbX8ghwBye7F7iJOXeD+zKnI/NVw24Sf4R2DjvvoBL
btyHgJ12VZDek3GHA9tiGfdb46Rb5Ahgkw6+OmwXyn0E2AOzlweU27mPYg/C
ahN3W98mHwP2L2trrYUp3GJg7hdbNpVp1pFjgel4hvvEbeM+jufFLtlv1E1u
CbDK5LJsjbn1ZADWPHdK1c7j3PHABg+Zk3xEsYF8Cp/PY7yk0407CVhWke6w
Kde4pfj+vKnL22z0K/k0sCPVReVXY7nP4Odtbb61htIdciqwBNMx5QHu3GnY
k7WLzzfWcqcDE9n17Zwyr5GcieezU7s/LZE7G5i3UWNQjVYTORdYV3eda1gA
dz6wz4vMTf3auAuA+VUmjFq/vJl8CVhMj5505EXuImDL/H3HTzNoIZfgeR7T
aq0ezV0KzNa0sthDqZUsA2ZxeLnE34S7HJiTrLAmdxt3JbAn/xE/F0m5q4Ad
fdk4sLeFG/se1pUFL2RFl94b+x5Vn3Wx6cjowvfGvhsYP/Ar1TMjY99jvvV3
nr/Onox9n6H17hW4kLHvsvhHna7bXMnY9zHf2wzo6PcgY99TXGqXD3bzIWPf
rZIWJj9s2kHGvm+9rK+m27KLjH3vya7dknF+Dxn7vjF76rNiwxAy9t1u7jMd
rccHyNh3f79wxYaOMDL2PSPaM/nskEgy9t03JlbFy+onMvbdxzZF77vDUWTs
+4K1WpOulEWTse+ueqYq4SqxZOy71/S32ZOtjpOx74YPUife3yshY98rzjTf
3b4JyNj3ncXJJv6RJ8nY98K8woDGnHgy9t0nWON+Q1sCGfte93m95h2dRDL2
/Z7ZzI4rXyaRse93EjVDE39IJmPfK93zJe35UjL2vb+6t13zxc9k7LvWEudH
/zVNIWPfV+jXvjm+5wwZ+145PDMi6MZZMvb9o8t5ISNGniNj339XrjALNUwj
Y98tvtqnKmrgxr7PWW7rMzX4PBn73hcT0DRuRjoZ+74+LOORWis39t1q69L8
zyIzyNh3C7PWfNHiTDL23ePY1cUPX3Nj35/OyzXbkpNFxr43p0YnqW3LJmPf
V6vI+lQn5ZCx77L9i05uaOLGvrfvD4x2iM4lY99Xrc1rNnbMI2Pfxw58tX3o
kHwy9t3xetfEsBvc2PfYhQ7qE3+6QMa+v5j/+znnlQVk7Hvk+k+8XHUvkrHv
b5e8O9Dc2PeOUeJG/fRLZOz7qzOGji67C8nYdyeTrikmk4vI2PfpzhbGFYe5
se8HRD2q4j+4se/vTudk12Iy9v3x13WbTK5zY9/7LAf2qc8vIWPf4ztKtKqT
ubHvxm2DHnsPuUzGvrPegBdlO7mx7z9ELTzo8ZAb+/4s1E2y2rGUjH0PfW20
92URN/bdzLG9QDb9Chn7bjWy8baOhBv7rvLwkH6XpoyMfc/4d/mq1F3c2Pcb
EU/0o7q5se+7yrrra0RlZOx7/9gjemW3ubHv34jtPjlkU07Gvtf1brf1LuLG
vv8Sb14xxriCjH3Pujdq0Imz3Nh3Jdf2+i8mVpKx71MTImumSrix73fcb49o
GX6VjH0/puaEfwI39t1+cdT6Rs0qMva9YEL1j9ID3Nj3LBkMWzDgGhn7PjNb
+z4Ec2PfXWwVN/crV5Ox73tbn3St2cuNfQ81KoxVVqkhY9+HaenHee/jxr5L
LDydkpWvk7Hvm9pPtIosubHvW3Zv3PkshDvwBFP4+xUkcLDA+wU+JHCEwEcF
Fgt8XGAQ+JTAUoHPCJwmcKbAuQIXCFwkcKnA5QJXCXxd4JsC1wvcKHCrwPcF
bhe4U+BugZ8J/FLg1wIrCL7PKQmsIrCqwGoCDxJYQ+DBwDaP+Wqptp8WzRva
wEyVcr8uWGn11/yhomjo2wmiv/zBz8vnEfk8Ip9H5POIfB75/5hH5PtE+T5R
vk+U7xPl+0SyfJ8on9/l87t8fpfP72T5/P7Pnt/l+8QPLd8nfuh/0D7xT/dc
vCs=
                    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
                    GrayLevel[0.85], 
                    LineBox[{95, 232}], 
                    LineBox[{2, 233}], 
                    LineBox[{3, 234}], 
                    LineBox[{4, 235}], 
                    LineBox[{5, 236}], 
                    LineBox[{6, 237}], 
                    LineBox[{7, 238}], 
                    LineBox[{8, 239}], 
                    LineBox[{9, 240}], 
                    LineBox[{10, 241}], 
                    LineBox[{11, 242}], 
                    LineBox[{12, 243}], 
                    LineBox[{13, 244}], 
                    LineBox[{14, 245}], 
                    LineBox[{15, 246}], 
                    LineBox[{16, 247}], 
                    LineBox[{17, 248}], 
                    LineBox[{18, 249}], 
                    LineBox[{19, 250}], 
                    LineBox[{20, 251}], 
                    LineBox[{21, 252}], 
                    LineBox[{22, 253}], 
                    LineBox[{23, 254}], 
                    LineBox[{24, 255}], 
                    LineBox[{25, 256}], 
                    LineBox[{26, 257}], 
                    LineBox[{27, 258}], 
                    LineBox[{28, 259}], 
                    LineBox[{29, 260}], 
                    LineBox[{30, 261}], 
                    LineBox[{31, 262}], 
                    LineBox[{32, 263}], 
                    LineBox[{33, 264}], 
                    LineBox[{34, 265}], 
                    LineBox[{35, 266}], 
                    LineBox[{36, 267}], 
                    LineBox[{37, 268}], 
                    LineBox[{38, 269}], 
                    LineBox[{39, 270}], 
                    LineBox[{40, 271}], 
                    LineBox[{41, 272}], 
                    LineBox[{42, 273}], 
                    LineBox[{43, 274}], 
                    LineBox[{44, 275}], 
                    LineBox[{45, 276}], 
                    LineBox[{46, 277}], 
                    LineBox[{47, 278}], 
                    LineBox[{48, 279}], 
                    LineBox[{49, 280}], 
                    LineBox[{50, 281}], 
                    LineBox[{51, 282}], 
                    LineBox[{52, 283}], 
                    LineBox[{53, 284}], 
                    LineBox[{54, 285}], 
                    LineBox[{55, 286}], 
                    LineBox[{56, 287}], 
                    LineBox[{57, 288}], 
                    LineBox[{58, 289}], 
                    LineBox[{59, 290}], 
                    LineBox[{60, 291}], 
                    LineBox[{61, 292}], 
                    LineBox[{62, 293}], 
                    LineBox[{63, 294}], 
                    LineBox[{64, 295}], 
                    LineBox[{65, 296}], 
                    LineBox[{66, 297}], 
                    LineBox[{67, 298}], 
                    LineBox[{68, 299}], 
                    LineBox[{69, 300}], 
                    LineBox[{70, 301}], 
                    LineBox[{71, 302}], 
                    LineBox[{72, 303}], 
                    LineBox[{73, 304}], 
                    LineBox[{74, 305}], 
                    LineBox[{75, 306}], 
                    LineBox[{76, 307}], 
                    LineBox[{77, 308}], 
                    LineBox[{78, 309}], 
                    LineBox[{79, 310}], 
                    LineBox[{80, 311}], 
                    LineBox[{81, 312}], 
                    LineBox[{82, 313}], 
                    LineBox[{83, 314}], 
                    LineBox[{84, 315}], 
                    LineBox[{85, 316}], 
                    LineBox[{86, 317}], 
                    LineBox[{87, 318}], 
                    LineBox[{88, 319}], 
                    LineBox[{89, 320}], 
                    LineBox[{90, 321}], 
                    LineBox[{91, 322}], 
                    LineBox[{92, 323}], 
                    LineBox[{93, 324}], 
                    LineBox[{94, 325}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwVztk2QgEAQNHbp/gZU4iSMUVkJplCElLIrBAZwo/aHvZa5/F0pLPR9VAQ
BEk6RRfd9NBLmD76GSDCIENEiTFMnBFGGWOcCSZJMEWSFNPMkGaWOTLMs8Ai
Syyzwipr/I9m2SDHJltss8MuefbY54AChxQ5osQxJ5xS5owKVc654JIaV1xz
wy133PPAI3UaPPHMC01eeaPFOx988kWbb3745Q/rlS03
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwV0Nc6AmAAgOE/d+KWXIADF8BNoSTZq4xQ2Ss7svcmGZmvg/d5vuOvtqGp
rjESQqinWbTQSpQYbcRpJ0EHSTrpopseeumjnwEGGWKYFGlGGGWMcTJMMMkU
WXLkmWaGWeaYZ4FFllhmhVUKrLHOBptssc0ORXbZo8Q+BxxyxDEnnHLGORdc
csU1N9xyxz0PPPLEM2VeqPDKG+98UOWTL7754fd/ek0IEf4Afx1NvQ==
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    
                    PointBox[{514, 515, 516, 517, 518, 519, 520, 521, 522, 
                    523, 524, 525, 526, 527, 528, 529, 530, 531, 532, 533, 
                    534, 535, 536, 537, 538, 539, 540, 541, 542, 543, 544, 
                    545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 555, 
                    556}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[
                    0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
                   DisplayFunction -> Identity, DisplayFunction -> Identity, 
                    AspectRatio -> 
                    NCache[GoldenRatio^(-1), 0.6180339887498948], 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {2015., 0}, DisplayFunction :> Identity, 
                    Epilog -> {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"\[Degree]C\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.1, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"a2: DICE2016\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"The Dive\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.75, 0.45}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.7}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.2}]], {0, 0}]}, 
                    Frame -> {{True, False}, {True, False}}, 
                    FrameLabel -> {{None, None}, {None, None}}, 
                    FrameTicks -> {{{{-0.3, 
                    FormBox[
                    RowBox[{"-", "0.3`"}], TraditionalForm]}, {0, 
                    FormBox["0", TraditionalForm]}, {0.3, 
                    FormBox["0.3`", TraditionalForm]}}, None}, {{{2050, 
                    FormBox["2050", TraditionalForm]}, {2100, 
                    FormBox["2100", TraditionalForm]}, {2150, 
                    FormBox["2150", TraditionalForm]}}, {{-0.5, 
                    FormBox[
                    RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
                    FormBox["0", TraditionalForm]}, {1., 
                    FormBox["1.`", TraditionalForm]}}}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
                    Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                    GrayLevel[0]], 
                    Method -> {
                    "OptimizePlotMarkers" -> True, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
                    PlotRangeClipping -> True, 
                    PlotRangePadding -> {{0, 0}, {0, 0}}, 
                    Ticks -> {Automatic, Automatic}}], {2095, 273}, Automatic, 
                  Scaled[0.42]], 
                 InsetBox[
                  GraphicsBox[{{}, 
                    GraphicsComplexBox[CompressedData["
1:eJzt2PtXzfkawPGajMmlpDXHVBJjDI1LdG+Sesbp4lIiCpVKd1HGoHSRMqb2
GN3cD0aPKYdEQkK5hBhiSCoyMVEWznTOCSc7k3IePZ9mTZ+/YGat/f2h1uuH
ffl892e/e/p8HLjUI+Q9NTW1CfTj3e+uSxeheKB7tHnOGocuf4hg1/atxlNl
GnsQwqNCi5Ycg61sPYTxuRf/rufwPdsA4VhL63ETyx/YhggzL6X5XL+5l22E
0OKepxuyNI89DOHTFdvK5w88xB6OYDnZYfZhn0L2CATri1ptbyYcZY9E0J90
onKLZhHbGKFhWvSSXo+Os0cj3Jk+u5fNmRPssQibOv36Dthxim2CcCHcq3hA
bCl7AsKta8ZbfbzPsM0QnuYq0w5POse2QIgvswuuSC1jWyFEtx80m+19nm2D
sPHJb/aGIy6wbRHG+W976HBf2A4h3y9x39UNF9n2CF9tCM6YaV7OBoTp3s+1
vrkpPBkh7dgzzYbQS2xHBEc9h7T4l8LO9HmEolnn6svsKQi2RuYz9d8KT6P7
2249fkbCj2xXhIlDrsRFtArPQJifYlN7KfIKeyZCxINl69ObhD0QJmnpjVjt
fZU9B0HH7uyZxZXCXggnjjqG/cOpgj0PweOl54sjpcLe9P5MDjg5ml5j+yK4
pTS+7r9f2A9hwQPDghqj6+wAhFG6rpbHtgoHIoQvyHkMA35iByNUBxikZCiE
QxEUQQvqnTVusMMRXvTe/lo7UTgC4WGV6RP9duEltN7UnPwVMTfZUQg2Z75T
Nr4S/hJhimWzsty2kv0VQofpIbegeOEVCJ9FW2i3lgpHIwzepUiM7BBehfDJ
7uZQZ4db7DiENsN56ZnJwgkISf2HTNxfLpyIYNWUrV/+QRU7CSEy7+vTRq7C
axGWDdZqGJcpvA5BO3Vv8tAa4RSEval7aq7q32Yr6P4kH9zn5S+8HiEzO83X
eq/wBoSsZLvShF+F0xGcqh2zM8yq2ZkIH+3etj4tVngjwiLP6bYV54U3I6ip
L64p6FPD3kqPX5sXWushvB3B9UDxzoadwjsQEtc3luU/Ft6FsMMvcOzt8bXs
3QgBP6mv/TxOGBECQyxexF4S/oH2f5zCOUbnDjsXIaY2qrTSV/ifCOpKuzX3
9gvvR5j1+s6LilbhAwhhWg/mPp58l32Qvv8dLy0CMoULEDSHrOiT+kC4EKFJ
18VIMbaOfZT2Z+SlzqPxwkW0f/72cGROhXAxQkjnLetFBvfYJ2k/vR5nOz9C
uARh+0cBQ78vET6N8EXIm/YN/X5mn0W4Unnk62m+wmUIBt9WaloVCF+g91/r
AffeCpcjbEloNpnpUc++jPCdxXPtllzhKwhjUgfV3VAKVyAos3w2RU2/z75O
683q/3nxbmFt+jz/eOlI1pX8oeRBkvUkG0g2lGwkmfqf9u/jqLxcdrbL1P/n
4Y2K423VbOr/nCadZctH17FHSo83ljxa8ljJJpInSDaTbCHZSrKNZFvJdpLt
JUP3+ht4fdT/fO+qWdqhGue6TP0PdT1vEHZ7IJv6/8SiX9HEXD029f+Ev/18
U98hbOr/m7znVW6Bw9jUf2XGN091bIazqf8vV+p33tYawab++/Q7Vnlj0Ui2
R/fzG7Op/+4VuSlWamPYXt2vN45N/f8tQH9wSd14NvV/qGlc1J4xpmzqf0GY
5o9j483Y1H/3p62jnp8yZ1P/HxitS0roY8mm/jfPiNm96oYVm/o/KckpsUNn
Ipv6Hx9W5Dk12IFN/V+wL2trxc9fsKn//6p8Fms9yJFN/S8bfi5RoeXMpv4f
DfpE5/CvLmzq/97cd0Gdyqb+p8PpAv/C6Wzqv8cUs/yYk27s6O71urOp/24R
4RqF6rPY1H/DEY6v1w7yYFP/G21aIk6Zz2ZT/02GFRmddZ3Dpv4vDZwyY2SU
J5v6fyS3fnV6hheb+n8txXKL08K5bOp/nw7XM1ED57Gp//Y3LBa2XxWm/i/P
NnxfsXY+m/rfGvwuWN5s6n+fqNwlWUU+bOr/nqmBU0+1+7Kp/wcP3fWPdvdj
U/8nNoWeVM/2Z1P/G0oCnVfFB7Cp/zkaGwuXjlrI3tG9X4Wp/0/ym4JikgPZ
1P84z7DjZUZBbOq/1ttnvfueFqb+P8paFWs7N5hN/Tf3+G/erlfC1P91uqH3
OreEsKn/1VX1fRdahrKp/415Lgb1tcLU/8iCHU8UCWFs6v945dVZScbhbOq/
5Wfv3/erEqb+ty2zcPFKXMSm/peUBB1xGx3Bpv6v1tg02KlWmPrfGVgc7Llu
MZv6v+ZC3aEQsyVs6v/bjzterWwQpv4nJQ+DlPRINvX/rNI6/LB9FJv6/ybS
PfPuf4TLu+//Ujb1f6fNqV/2GH/Jpv6XvCxfXpwkTP23KZkWc6dOmPo/b6VX
v2bTZWI/ZoPaH68kyeskKyRvkJwpebPk7ZJ3SUbJuZL3Sz4ouVBykeSTkk9L
LpNcLvmK5OuSKyVXS74ruV5yg+QmyU8lN0tukfw/yW2S30hWk/4evSe5l+Te
kjURHPKvb6795ZF9l/siOBcNmR0T4sLzRn/qUY2dS1Np8O/zx6cfNEe82LyS
TfMHXkyIVX+VzKb5o13jcfHqjPW/W/5/tMfrq+aRnlbNI6p5RDWPqOaRv8o8
ojpvVJ03qs4bVeeNqvNGtuq8sadV831Pq+Z71Xyvmu9V8/1fZb5XnTf2tOq8
saf/ROeN/wdyCqSx
                    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
                    GrayLevel[0.85], 
                    LineBox[{97, 234}], 
                    LineBox[{2, 235}], 
                    LineBox[{3, 236}], 
                    LineBox[{4, 237}], 
                    LineBox[{5, 238}], 
                    LineBox[{6, 239}], 
                    LineBox[{7, 240}], 
                    LineBox[{8, 241}], 
                    LineBox[{9, 242}], 
                    LineBox[{10, 243}], 
                    LineBox[{11, 244}], 
                    LineBox[{12, 245}], 
                    LineBox[{13, 246}], 
                    LineBox[{14, 247}], 
                    LineBox[{15, 248}], 
                    LineBox[{16, 249}], 
                    LineBox[{17, 250}], 
                    LineBox[{18, 251}], 
                    LineBox[{19, 252}], 
                    LineBox[{20, 253}], 
                    LineBox[{21, 254}], 
                    LineBox[{22, 255}], 
                    LineBox[{23, 256}], 
                    LineBox[{24, 257}], 
                    LineBox[{25, 258}], 
                    LineBox[{26, 259}], 
                    LineBox[{27, 260}], 
                    LineBox[{28, 261}], 
                    LineBox[{29, 262}], 
                    LineBox[{30, 263}], 
                    LineBox[{31, 264}], 
                    LineBox[{32, 265}], 
                    LineBox[{33, 266}], 
                    LineBox[{34, 267}], 
                    LineBox[{35, 268}], 
                    LineBox[{36, 269}], 
                    LineBox[{37, 270}], 
                    LineBox[{38, 271}], 
                    LineBox[{39, 272}], 
                    LineBox[{40, 273}], 
                    LineBox[{41, 274}], 
                    LineBox[{42, 275}], 
                    LineBox[{43, 276}], 
                    LineBox[{44, 277}], 
                    LineBox[{45, 278}], 
                    LineBox[{46, 279}], 
                    LineBox[{47, 280}], 
                    LineBox[{48, 281}], 
                    LineBox[{49, 282}], 
                    LineBox[{50, 283}], 
                    LineBox[{51, 284}], 
                    LineBox[{52, 285}], 
                    LineBox[{53, 286}], 
                    LineBox[{54, 287}], 
                    LineBox[{55, 288}], 
                    LineBox[{56, 289}], 
                    LineBox[{57, 290}], 
                    LineBox[{58, 291}], 
                    LineBox[{59, 292}], 
                    LineBox[{60, 293}], 
                    LineBox[{61, 294}], 
                    LineBox[{62, 295}], 
                    LineBox[{63, 296}], 
                    LineBox[{64, 297}], 
                    LineBox[{65, 298}], 
                    LineBox[{66, 299}], 
                    LineBox[{67, 300}], 
                    LineBox[{68, 301}], 
                    LineBox[{69, 302}], 
                    LineBox[{70, 303}], 
                    LineBox[{71, 304}], 
                    LineBox[{72, 305}], 
                    LineBox[{73, 306}], 
                    LineBox[{74, 307}], 
                    LineBox[{75, 308}], 
                    LineBox[{76, 309}], 
                    LineBox[{77, 310}], 
                    LineBox[{78, 311}], 
                    LineBox[{79, 312}], 
                    LineBox[{80, 313}], 
                    LineBox[{81, 314}], 
                    LineBox[{82, 315}], 
                    LineBox[{83, 316}], 
                    LineBox[{84, 317}], 
                    LineBox[{85, 318}], 
                    LineBox[{86, 319}], 
                    LineBox[{87, 320}], 
                    LineBox[{88, 321}], 
                    LineBox[{89, 322}], 
                    LineBox[{90, 323}], 
                    LineBox[{91, 324}], 
                    LineBox[{92, 325}], 
                    LineBox[{93, 326}], 
                    LineBox[{94, 327}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwVztc6ggEAgOHfpbgbIhTJDCnZoYwikp2RXUZGcp9eB+/zfIdfZzIbXe0I
giBBl+gmRA+9hOmjnwEiRBlkiBjDxBlhlDHGmWCSBFNMM0OSWVKkmSPDPAss
ssQyK/wPZlljnQ1y5Nlki212KFBklz1K7HNAmUMqHHHMCaeccc4FVS654pob
atxyxz0PPPLEM3UavPDKG+80+eCTL75p8UObX/4Adywt8w==
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwV0Oc2AmAAgOGvcCFuyRU4LoC7KmSvZGWUPbNF9t5EiHj8eM55f7+1DU11
jZEQQj0xEaeZFlpJ0EY7HXTSRTc99NJHPwMkGSTFEMOMMMoYacaZYJIpMmSZ
ZoZZ5phngUWWWGaFVdbIsc4Gm2yxzQ677JFnnwMKHHLEMSeccsY5F1xyxTU3
3HLHPQ888sQzL7xS5I13SnzwyRdlvvmhwu//7GgIEaJUUU0Nf1YUTIo=
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    
                    PointBox[{518, 519, 520, 521, 522, 523, 524, 525, 526, 
                    527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 
                    538, 539, 540, 541, 542, 543, 544, 545, 546, 547, 548, 
                    549, 550, 551, 552, 553, 554, 555, 556, 557, 558, 559, 
                    560}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[
                    0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
                   DisplayFunction -> Identity, DisplayFunction -> Identity, 
                    AspectRatio -> 
                    NCache[GoldenRatio^(-1), 0.6180339887498948], 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {2015., 0}, DisplayFunction :> Identity, 
                    Epilog -> {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"\[Degree]C\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.1, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"a3: FaIR-Geoffroy\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.6, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"The Dive\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.75, 0.5}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.7}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.3}]], {0, 0}]}, 
                    Frame -> {{True, False}, {True, False}}, 
                    FrameLabel -> {{None, None}, {None, None}}, 
                    FrameTicks -> {{None, None}, {{{2050, 
                    FormBox["2050", TraditionalForm]}, {2100, 
                    FormBox["2100", TraditionalForm]}, {2150, 
                    FormBox["2150", TraditionalForm]}}, {{-0.5, 
                    FormBox[
                    RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
                    FormBox["0", TraditionalForm]}, {1., 
                    FormBox["1.`", TraditionalForm]}}}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
                    Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                    GrayLevel[0]], 
                    Method -> {
                    "OptimizePlotMarkers" -> True, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
                    PlotRangeClipping -> True, 
                    PlotRangePadding -> {{0, 0}, {0, 0}}, 
                    Ticks -> {Automatic, Automatic}}], {2125, 273}, Automatic, 
                  Scaled[0.42]]}, Frame -> {{True, False}, {True, False}}, 
               FrameLabel -> {{
                  FormBox[
                  "\"CO2 Price in year 2030 in US(2015)/tCO2\"", 
                   TraditionalForm], None}, {
                  FormBox[
                  "\"Year in which ceiling applies\"", TraditionalForm], 
                  None}}, FrameTicks -> {{{{20, 
                    FormBox["20", TraditionalForm]}, {50, 
                    FormBox["50", TraditionalForm]}, {136, 
                    FormBox["136", TraditionalForm]}, {200, 
                    FormBox["200", TraditionalForm]}, {249, 
                    FormBox["249", TraditionalForm]}, {307, 
                    FormBox["307", TraditionalForm]}, {340, 
                    FormBox["340", TraditionalForm]}}, None}, {{{2020, 
                    FormBox["2020", TraditionalForm]}, {2050, 
                    FormBox["2050", TraditionalForm]}, {2100, 
                    FormBox["2100", TraditionalForm]}, {2150, 
                    FormBox["2150", TraditionalForm]}}, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 1200, LabelStyle -> 
               Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                 GrayLevel[0]], 
               Method -> {
                "OptimizePlotMarkers" -> True, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 350}}, 
               PlotRangeClipping -> True, 
               PlotRangePadding -> {{0, 10}, {1, 1}}, 
               Ticks -> {Automatic, Automatic}}], 
             GraphicsBox[{{{}, {{{}, {}, {
                   Hue[0.67, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1H8w13ccB/Cvb6mYX5fYWirMdq41yUbO1rzOSUhb55SYzFR+hGUhKreT
om8yfUnlMF6ZmrBCpu9klh+VUBjp2wizr9/yjS/u2027fer1/mN7v+8+97nH
3ede93nf+/l8mwUe9NwvFolEEuF59X694vNB9N+VwPkkZwnnVM5Szpmcszjn
ckbOhZyLOJdyLuNcyVnGuYbzbc6NnJs4t3Ju59zFWc65l/MAZwXnUc6TnJ9z
nuWs5rzAWYT/t5jzYs5LOC/jrM1Zh7MeQujqndsNYvQdX9sAwUEs86nZ7Upe
jrBYwyZ6EgPJKxDabpWjtWUU2RihsFirYGpRAvkthOaVKR/3KU6R30bYq91t
n5MmJZsglDjWWwfcP09eg2D+4/WRsAs5ZFME++UhZVdVSDZHGEyPO+LgXUi2
EP4nfUt23NIi8nsIGGE7kaosIVsiRJiUG+eLy8jrEI6d6rn01cYK8noE/xnH
F7diK8lWCB8Wpgzu7K4iWyNs/U5r40WvX8g2CAOzVn1ne26RP0IQ50Q99wip
JdshTBoZ9+rH3SbbIxTvExUN3q0jOwjf69rFrDFqIH+CIMnLdNONaCR/iiBV
G4XJmu6QAWHV/LHA79fdIzshyHNPBDudayI7I/iVbJ5MEjeTXRDCOuX+bxxt
IbsiJH4TOZalaiW7I9SYq/vdDz8keyBcmk2Sqv5pI3+G0FF+wt3vXjt5B8KR
dC21bUYH2RPBLdTubEPA72QvhPtmg8NeNp3kXQgayUNtNzW7yLsRktq66+r6
mH0RnJbuqb908xHZD6E38XJ1wsVusj+CvmXOoaTYx+QAhM99tj823CMnByK0
T0kDE5yfkPchQO1Jbb0Nf5CDEF4EL5k+vrqHHIKgdFg106bTSz6A0OIR+vID
jafkcITMXy/nbphn/lrYr2mFq6GyjxyJoPUCg2+M95MPIRj8ZBSRFjVAjkZ4
v3cmPXOW+TCCrq22W1DMn+Q4BIsunasFauajQt929sruxA+S44X5V7J9tmn8
Rf4WwbB622CphDkBweThwgE9AwU5UZifluE9ksV8UsiDyrZl/ztD5GQE9ZWx
G4uuMUsQftAM+eKBwzA5BWF4z1zCkSbmVIS/HzRGm+0aIachtFqMa+YPM0sR
fj44dX1N7Cg5A2GtfPpL02Vj5EyE2uQBWWoO8wXBkqq941bj5Cyh3x0lGu4N
zNkI5SsHEsN9Jsi5CDvO1DVUKpnzhLxGuWTOJ0+SEcG5oL1iau0zcgFCxat4
ypgLERRW9SuGPKfIVxAembY+859iLkIId/Ld235aSS5GCJJbTmwyfE4uFfoW
It6yPpD5GoLKV+vpu+XMZQijweMxZ0TT5AoEM7PmNyt3MFeyPiBzFcJvyv4a
+2lmmZAnc4kq0mmGXI3g6zK++fw55hrh/jRI85lXMNcKfa9+stZyk4p8m92P
p5nrhfOLzW6N62FuRLDzU+Rds5ol30WwVq1eaDzO3CRYt2FrYxdzs5Cfl4Z+
pZZz5FaETnWSd0b8nOO/duFDOg==
                    "]]}, {
                   Hue[0.9060679774997897, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1HswVnkYB3DbljWVNKLd1BDJpRtWsyLlKW8m5dZb1ipso3KpllxWEu/a
kHdRtDVuy/aUN0PUlNxHclsptLm8KqHWa4lc2hChbc96zh+7v9/MmTOfP87v
zPl+n9/RdPcVHpkjJycn5q5/77Mr9DLI/XeFM45kLGYcxziB8SXGyYzTGCNj
CeMsxrmMbzHOZ1zMuIxxBeMaxnWMGxg/ZtzK+CnjDsYvGfcwfsV4kPEbxmOM
JxnPMJbD/3sO47mM5RkrMJ7PeCHjRQjnhgpworZi66wXI6yQH3WqczG1mLUy
grvK3Hjfkf1kFYT23tqxyNU+5KUI7w1PPwtqDyF/gWB24eD1lIJIshpCYlNd
n6r9OfIKBMfKLIkdXCSrI5RG3RTgVBJ5JcINieoLh8k0shaCsZGrWKpxhayN
kKpz3GKZLIOsg2DSmWc5U51J1kNQ6Nf3Fxdnk9cgyD6ez3LozCWvQzgitFwe
rniLvAEherruhnXRbbIhQsnnyaoxgXfIXyL0eL//Mce8gLwR4aLZJ7aRikXk
rxBarb43SxgvJm9C+HhSEDXQW0o2QyhML7SaKysjmyNs9pcYG74tJ29FCN1R
5NYSUUEGhOCiPIFnSiV5O4LaxjH7E7eryAKE7lXuu7SbqslWCPW7/9b9YaKG
vBPhl26/Peu1asm7EFxMT3vmO94n2yBoZQqU78bVke0Qmk281VQaH5AdEHI0
/eKvKdWThQiWe4Omtrk2kPchTNTrrj2b00j+muvLQTJtOu938jdcX2KlwUmD
x+T9CFiZ+Sijm7cLwrUxGwOjxCayG5e3zFYUa9dMPoiQlbB2fJ1CC9mdy2Ob
4Gj7b7wPI1QLIlTMo1rJHtz7ow2W7NgpJXshbJFqmlQrtpGPIix0+gw6pLyP
IyTFSyTRV56QfRA+RKkbhfg8JZ9AOJPt0SaEZ2R/BPXs8tFY5XZyIMLlPvvl
0n7eQQhC6/Rwnarn5GCuD89T6h3pHeQQ7jwcAK8toZ3kUK6P+KpxPZcusojL
P2CB60/wghyOoJ9Ua1Cm/JJ8BmFUo9n322jekVweaVdXlczwPovQcuzObeWA
P8hi7nvap/otXvOOQfDICBDFHOomxyGs1NeqXtPF+zzC7gMuMmNnGTmBm+fk
xQHWUt4/c/MA6+WV9vaQLyH0ZTZuUmzinYgwpG+q+87hT3IyQnhxjtOFJt6p
3P7zVB3vCXvJaQi5n64cHpDy/hXBwjFK3t25j4zc/kIXx3edvK8iPLH/6Dx6
6BVZgjC28WDCWD/vTIRlCXe7Pvj1k7MQkjPuj3w3xfs697+ZNC5zjhgg5yKs
fhAQprHoNfkml/eQYrlhCu9bCCHVYT1t2oPkPASrwSVglMc7n+svMK81xGKI
XIhwTyRWXPqIdzF3/t3mK6W6DpNLEU6qCkXCId5l3Pyp244fFo2QyxGeT+9T
VVN4Q65AyHhoOCy/h3cVwvbgfL+aVN41COZHbcQlPbxruedjvTZnbviLXIew
QFtPFHeK90OENr8ZB+8a3g3cPPaHyY4pvbX4B5ZcPfM=
                    "]]}, {
                   Hue[0.1421359549995791, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd03001XccB/CbJg9Lp5kJy06sYzbripSK6bPkIWWhdHowk9wy7WRUaoWE
E3m4ZIrpyicqdocecbvpupMhroea8hCJPIZR2UMP037r8/tj+37O+Z7veZ3v
P9/P9/v+mPgHe4nUBAJBPLf+3d9UeA4I/ltRjGMZxzNOYpzKOJ1xJmMJY2R8
lnEB40LGFxlfZSxjXM5YybiKcS1jFeNmxi2M2xh3Mn7IuI/xEONRxhOMJxn/
xfgVYwH+32qM32I8g7EmY23GMxnPYjwbwepQe1iHkdWKN9ZFcPV4ZbCn1Yus
h5BcdsL3VLKIrI8g8YiPciwIJRsgHK5sLxJZh5ONEHyq3XVscmLIcxGulChc
A+uPkT9A2LXaZVmmeyp5HkLZoWvrxGrpZFME34WyAfFUBnk+guXLffl26yRk
M4Q/TmgMfxyKZHMEk2LJjUUdueRPuH4uB4j7vzxH/hTB8Lj51cKX+WQhgsjI
XVitlJIXInxllpAqzy4iWyMEC6dKP3K9SLZBWKP+nnfFnUvkJQhJwuBZrUFX
yEsRup87ab14u4S8HOFdJ9euRkUp2R5hzurrt2vCZWQHBP/cz7VPr5STAcHP
YbOVj3E5eSVCaozujo6pG+RVCIs8Y1vGRivIzggFYm+3pkkl2RVhrdjuXMzv
P5PdEKRZ8x47CG6S1yJoR9eU7depIn+BIAzpO1Jr+gvZg7v/lI9NgH012Qth
WoVz2jyfGvIGhIezpS2jR2rJGxFqr9SXORTeIm/i8nLeMX+wq468BWFG9uzl
Q7oqsg/CDzNrnhl6NJB9EbIyhVWPUxrJflw+trmLPNuayP4IidbvB6QdbyYH
IAzcWqxubXebvAPBTWPk9dwB3oEI9/MfWU0/cYcchPAE2/cFO/1K/obLu1QW
kvic924EXcWftoEXWsjfIhQtTu9IDLxLDkVwNN4o6//wHnkvwl6tuAe9PbzD
EBqM/7ZszW0lH0DYbhG4xV/URj6IMF+iXz5k0U4OR4g5M8ui8ynvSG5ejtru
mlB0kKMQNFOWiDcl3idHIyheHBi6vrWTHIuwIcVGVrSgi3yUO9effGCg9oAc
j9AWaV0d1847AUHN3Pmk6lI3OQlhzLzR08XlIVnM/W9e/ambJbxTEcalGipH
sx5yGkKv+js/fp3BOx3hjkFRnlSrl3ySy1frArXtEbwzEaIiuyu+e8I7C+HZ
5tMa+3c+IksQmn0j7Ce7eJ9G8FyzxyLWu4+MCE9v9yZta+Sdy+Wp56BesUs/
+Sw/L5W8zyPcnT5gst5hgFyAUB99bEWCnLcUYSSkOyh76SC5ECHUNv5eQinv
Yq7faXLLnUuGyBcRvJWfNeWU8r6MkLdlld73tsPkqwirRQnLNOW8SxFCkpsC
Xts/JssQVBM5u1HJW46gI/DulDmNkMu592wwKr9Qx1uBsGn9Zr0wz1GyEiF/
a1j84TbelVxel6sy5viNkau4vHa6tpsO865G0Bj/KfRM6G/kWgQ0rNIIe8W7
DuGa4W7lYNw4WYUQUS8RJmpNrPgH+b83zQ==
                    "]]}, {
                   Hue[0.37820393249936934`, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1GlQ1VUUAPAHAqIiGuOgFasBIaElZII94bhCgsSSbLYIAgaRWoDbACEp
IoNLLxQKxRM8FEOREJcEnw95LOpTkE0QWWRVeIogoyiE/fXcD3XPzJ07v7kz
587cc+4xDdzkGawuEokShfV6fxPRx0D034jjvItzIudkzgc5p3BO43yEM3KW
cs7hfIpzPudCzhc5F3OWc1ZwruSs5FzNuY5zI+d7nNs5d3F+wFnF+QnnYc4j
nMc4i/D/VueswVmLszaCY64ypaGtw+GNJyOsLDT02hrs5PjGOggR9WKnrqIg
si6C+URV2FBKFHk6ApZGb1d7tpOshzA6oft8zIEk8gyEdRG6GZNWS8j6CCWR
/heWPEolz0KIEoegzfhR8jsIk2zUrQyWZJINENzL9q1VVmWTjRA+c7JPWx13
kmyC8GlSRN3tH06TZyMEHaqxvazIJ5sh5HSUz+3pLSBbIFQFh+kVm54jWyKc
6Z+pSvj+AtlKOL9jnbrv1t9ka4RlJql2Q1BMnodQJtpr4a6QkT9C8O1QC/bK
k5NtEMYUasOj4yXkjxEcJBKjBO9S8icIC7ZfD7uUoSDbIRyd+mKD1mAZeRFC
drC01cu+gixG6BNbjQ8kVpIdEF6ZSEwrGq6RAcHQ+2L3e3NukJcizDKL8V/x
k5K8HOGwY5u+df1N8kqEh7VWL5fZVpGdhfyax3q6VlSTVyE8rTTWET9ndkXY
URrT1SC9TXZDiDncW9LiV0N2R0geztxyZXIt2RNh0eKB8virzF8g+O3Jyo3c
Wkf2RsjS+Ge30fx6si9CR65hmX0fsz+CmuvbdpjdQP4SoSk1XNwYeIf8NcLy
zOqCx8aN5HUI09bXtLncZw5E2ONWVfQXNpGDEPo7/xjYGHyXHILw4fNrHnGW
zeRvEdSb+luMB5jDhPuzbqSXnrtHDkeYsG2KmWVsC3kjwnrL9++ucW4lb0Yw
W/4iXl+vjfwjQsC+sw+125kjEWa/6zwz3budvEXIp8ry8pExb0MYkNh9kGlx
n7wD4atN6SenH2CORvCQjtprvmCOFeplcmbir4Ed5DgEt5qx+advMscjeKe/
8jG07yTvEvp10RrZBilzAkJCRay+y1td5EQETfk2rakxzEkIstCXqrh+5mQh
X4CtXNOvm7xfqPflmd8UVjAfRNAof6llsbCHLEFo81i/VJnNnCL0a4qVxzP9
XvJhhJAZN+aeTmBOQ9CO+mWp3wjz7wi/BXVZq0IfkI8I73Fl3cLwZuYMhBP+
U85Wuz0ko1DvMdufR+TMmQilAaHtTgv6yFJhntU2XWvPYT6OYD9Yv7/DoJ+c
g1AXsHutg4T5TwR/3WH3Zi0V+RTC58Y7HceimfMQYo2yxE+HmPOFfvmuPm9S
6CNygfA/VPPcPduZCxHSbDaDi89j8nmEpE55bvct5osI8b2tpeZOA+RLCIod
Wd5pMuZihDn5ouM6Bk/IMqF/Z+QbJvsyyxFeT4fJh5ivIriedCmfX8OsQOhx
lLbJdAfJ5cK8qJh2aKUrcyXCqtcDei/zdYSigOZMZTmzUsh/YrF5r8aQ4789
NU3j
                    "]]}, {
                   Hue[0.6142719099991583, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1GlM1EcUAPAVQQGRymVpBcUG0bbcVhGk+DiqoKIGlV4euOGw0iACArbE
g24BBRENwmKQfQiFhYIiBUoMp66AHOW0LCIoRzkE0VbrQVvpX998aOclk8lv
kklm5r03S8UHvfxURCJRnDBez28iSgai/8ZxzhLOcZwTOCdxTuYs5ZzOGTln
c5ZzLuBcxLmEcznnCs41nBWcGzg3c27j3MVZyfku5/uchzmPcZ7k/JjzU84v
OP/NWYT/twpnVc5zOKtz1kRQu7Tcz8t1wumNtRDa9o7pZI2uX/fG2gjR25e4
99v7khcgrPR6lJf+LIysi1A+kvgqNfAEWR9hcGmCrK7yJHkhQq7K1JFXJWfJ
hghDCfu2tJmlkt9FcNzqGDBP/SLZCGH+P3q7CuSZ5MUI+4Keh8iMfiCbICRt
MjpiUiwnv4fQKlud33migGyKUBij+DjFqYhshuATqp2h4VlMXoGg5dRyK35z
CfkDhDmZFWey7MvI5gip21XEupblZEsEccb5ksFF18jWCDqhHrfD9SrItggB
3ZUGJzWqyB8h9EkzihSza8irEf5Im5Tlzqolr0E4pitbW/uK2QGhtA71XObe
IDsiWHv4nbJXV5CdEBbvGHSoM7hJBoRh//JZsiV1ZBeEPy37z/Ra1ZPdEOrd
n6mvcm0gr0dIE2tHJ3rfIrsjyESnzi4LbSRvRIiwFgtLTeTNCON++k0Whc3k
LQiu9u2XXRpbyNuE8yoa9w8/+YXsJeTn7U/eitJqI+9AKArXH5VnMXsjBG44
lOjg0E7+DKEutqeprJP5C4RGW8VVy6AO8i6E06bO5SqaneQ9CIqWPF+RnNkH
oX+mXkNvfRdZLNTnzYHmKyPMvkL+7GIDS2Nvk/2FepBMnVvz4a/k/Qif+jQ8
8G5lPoDwfvL3V64c7iZ/jTBPw3B3v5GSHIRwsvjn5Cc3mYMRau08ZcbBPeQQ
hAnvVo9Hi+6QwxCMjSY9tW4xhyPEHtzXFxnRS44UnLAhT7L8LvkbhM3x06YR
SuYohCory51fxfeRjyKESa2sapz6yccRPlcU3ZA+ZY5GmFp2ut0h/x5ZgnBY
NfinSJv75BiE5S91qsWnmeMQZu/xV66YYD6FoL/ndYcPkBMQNO8MP/bIZU4U
6s9gJsJNbZCchNDV/WRVkx/zOQTf8x0rKxXMyQjJ1yvq08yGyCkIFk5qNZEx
zFKEHx+avcgZZ76AYCOtdhnZOExOF95D8eXovcvMGQjVF90kx3R+I6Ow/6qk
1Cac+ZLQb+0zIRZ3mLMRJD2qhinrRsg5CJOxSp+BbGY5QpNnV8ddzVFyPoKG
3Ts7Yw4xFyCo15t/q6tkvizcxzYvcz6MkYsQzLsujBjnMhcjdPckHfNfME4u
QUiRBiwrjGQuQ5grfal9dJC5HKEy/vnQs00PyNcQvJVawc5lzBUIedZlC4ZN
JshVwn843dEri2euQRi97m514DnzdYQcN93KBPEkWYFQUKjcG97KXIfgHD1Y
L137kNyA8Fdoe9LvcuZGhGnn3dnbFk6RmxG27n5p3vrd1Lp/AZqWRng=
                    "]]}, {
                   Hue[0.8503398874989481, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd02lQ1VUUAPCnEehLRRAJ0CEwwA1N8Amk5jthyRIDDJoiIgmj4NCL1cAc
RBQFDBNMSCCioxCrC4IwCISPpSfKvr1kkUWQRdSXa45R9tdzP9S9M3fu/ObO
3HvOvecY+wS67ZkuEonihPl6fTMifgbRf0cU56Oc4zif4JzIOYlzCud0zsg5
i3Mu5/OcCzlf4VzGuZKznHMd53rOjZxbOXdyvsW5j/Mg5xHO45zvc/6D81PO
LzhPcRbh/z2dsxpndc4zOIs5z0II9LF3NgtYI33jOQguN7NirEQ7yHMRdF1z
cxLkgWRthIHV2me1ZBFkHQTnNPVPn4hiyLoISzo77AY1E8h6CB96HR53SE0i
GyCsVMjXnnwvjbwQIWSwK8TPDMmGCMrvwu0U/plkI4SNidHavj3Z5EUI1guW
W7Q45pNNEL5olm0bj75ANkN4fDA4z3FHIXkJQrfGdl2nqcvkZQgtz8dn/3mq
mGwunH9jpLN5VQl5JYLmLKOIJW2l5FUIC44MWwb4l5EtEXQu2g0d0CknSxB8
HScDZ8oryFZCvp2qGqXsV7INgviD6jxNk2vktQjHNrgrYgLk5PUInsOru6Uu
1eQNCI8y3mrQsqwhg5BfWah31ru1ZFuEoIgHqabT6sifIOwTPy4+Ncm8CSFA
7+3q4d7fyPYIJXLDeUubFGRHhDFrJ4l99XWyE0JeXIdDaXk92Vn47yz9+Ozi
G2RXhIMHZA1RxTfJbgj6alvnrChqIG8R4g+1e9VQ0kjeiqC++1L4ocomsjtC
8uwvl8XXNJM9ELK7Esuut7eQPRG8pyQPmwJbyV5CPDrrDGJfMu8S3r9HJIOj
bWQfhOEBP0+bue3k3QhRt9oz8zKYfRF+HO4z61veQd6LcCHgWfrTKmZ/hG88
IgeXuXSSZcL+OankyQhzAELXzL2LZPu7yEEIBcbBCb9oKskhCBZSa8meHOZ9
CCcvfVRsAr+TwxBMrk7FPu1l3i/Ud60qe0fYLfIBhMiEl5PzdbvJEQib7s8D
iyLmSITJE6r4zz7vIUchZL7/+kDmI0L/Bt3vDk3tJR9FuKcm0bJa30eOEfb/
rjr05A5zHMJl52SV/vHb5G+FfHvWGF+w6CefQLiaU7BOt5f5JMLzM7dPxx4b
ICci+PSea1TXHyR/j3DX+6xSEsichHA6yDhhUMH8A8LX09NmLDAcIqcg5B8e
DX0YxpyGMGua/LJfC3M6wlbzyM3uS++QMxD669c/1ohmRoQXtS2HNPuZzwnx
CNerbIbJWUI+10xFr5KYsxEanpWmih8x5yIYuKgFGzqPkPOF/50A5eYC5vMI
x9tC39k58y75IsJ2vUU5l/yYCxEqHtiG/qRgLkL4q7A/d77ZKPkKQv0Z1+qh
Y8ylCAs1vFaEjzKXCf3nNmNE226MXI5wPs9cXJHLXInQeDBEx0g8Tq4S6i3F
UTokY5YL9bxFovynmblG6KeMCVOF5QS5DmGbbbhDejKzAiEl87rqq5fM9Qj2
2RtzxnbeI99E2OXRufhqLXMjQmtH1Mftiyel/wLtVUA3
                    "]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {{
                 GrayLevel[0], 
                 Thickness[0.004], 
                 LineBox[{{2149.9, -0.03}, {2149.9, 1.03}}]}, {
                 RGBColor[1, 0, 0], 
                 Thickness[Large], 
                 LineBox[{{2149.8, 1.03}, {2149.8, 1.5}}]}}}, {
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
               AspectRatio -> NCache[
                 Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
               AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
               DisplayFunction :> Identity, 
               Frame -> {{False, True}, {False, False}}, FrameLabel -> {{None, 
                  FormBox[
                  "\"Peak \[CapitalDelta]\[Degree]C relative to ceiling\"", 
                   TraditionalForm]}, {None, None}}, FrameStyle -> {
                 RGBColor[1, 0, 0], 
                 RGBColor[1, 0, 0], 
                 RGBColor[1, 0, 0], 
                 RGBColor[1, 0, 0]}, FrameTicks -> {{{{20, 
                    FormBox["20", TraditionalForm]}, {50, 
                    FormBox["50", TraditionalForm]}, {136, 
                    FormBox["136", TraditionalForm]}, {200, 
                    FormBox["200", TraditionalForm]}, {252, 
                    FormBox["252", TraditionalForm]}, {312, 
                    FormBox["312", TraditionalForm]}, {346, 
                    FormBox["346", TraditionalForm]}}, {{0.25, 
                    FormBox["0.25`", TraditionalForm]}, {0.5, 
                    FormBox["0.5`", TraditionalForm]}, {0.75, 
                    FormBox["0.75`", TraditionalForm]}, {0.96, 
                    FormBox["0.96`", TraditionalForm]}, {1.14, 
                    FormBox["1.14`", TraditionalForm]}, {1.35, 
                    FormBox["1.35`", TraditionalForm]}}}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImagePadding -> {{73, 80}, {50, 35}}, 
               ImageSize -> 1200, LabelStyle -> 
               Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                 GrayLevel[0]], 
               Method -> {
                "OptimizePlotMarkers" -> True, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 1.5}}, 
               PlotRangeClipping -> True, 
               PlotRangePadding -> {{0, 0}, {0.035, 0}}, 
               Ticks -> {Automatic, Automatic}}]}, ContentPadding -> False], 
           TemplateBox[{
             StyleBox[
             "\"CO2P D16(med)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P D16(low)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P D16(high)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P FG(med)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P FG(low)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P FG(high)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C D16(med)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C D16(low)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C D16(high)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C FG(med)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C FG(low)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C FG(high)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False]}, "LineLegend", 
            DisplayFunction -> (StyleBox[
              StyleBox[
               PaneBox[
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}, {
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
                 "Grid"], Alignment -> Left, AppearanceElements -> None, 
                ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
              False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   
                   RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                    ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12}],
                    "}"}], ",", 
                 RowBox[{"LegendLayout", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 
            Editable -> True]},
          "Legended",
          DisplayFunction->(OverlayBox[{
             TagBox[
              GridBox[{{#}, {
                 TagBox[
                  StyleBox[
                   TemplateBox[{
                    StyleBox[
                    "\"CO2P D16(med)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P D16(low)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P D16(high)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P FG(med)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P FG(low)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P FG(high)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C D16(med)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C D16(low)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C D16(high)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C FG(med)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C FG(low)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C FG(high)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False]}, "LineLegend", 
                    DisplayFunction -> (StyleBox[
                    StyleBox[
                    PaneBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}, {
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxDividers -> {
                    "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}],
                     "Grid"], Alignment -> Left, AppearanceElements -> None, 
                    ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                    "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
                    FontFamily -> "Arial"}, Background -> Automatic, 
                    StripOnInput -> False]& ), 
                    InterpretationFunction :> (RowBox[{"LineLegend", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                    ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12}],
                     "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 
                    Editable -> True], ShowContents -> False, StripOnInput -> 
                   False], Deploy, DefaultBaseStyle -> "Deploy"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
               "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
              "Column"], #2}, All, 2, Alignment -> {0, -1}]& ),
          Editable->True,
          InterpretationFunction->(RowBox[{"Legended", "[", 
             RowBox[{#, ",", 
               RowBox[{"Placed", "[", 
                 RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Grid"]},
    {
     TemplateBox[{
       TagBox[
        GridBox[{{
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -732.786057}, {
                7.384615384615385, -732.786057}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 158.330696}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 158.330696]& , TagBoxNote -> "158.330696"], 
                    StyleBox["158.330696`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[158.330696, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 158.330696}, {
                    1.3846153846153846`, 375.237521}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 216.906825]& , TagBoxNote -> "216.906825"], 
                    StyleBox["216.906825`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[216.906825, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 375.237521}, {
                    1.3846153846153846`, 723.032657}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 347.795136]& , TagBoxNote -> "347.795136"], 
                    StyleBox["347.795136`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[347.795136, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -150.095411}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -150.095411]& , TagBoxNote -> 
                    "-150.095411"], 
                    StyleBox[
                    RowBox[{"-", "150.095411`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-150.095411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -150.095411}, {
                    1.3846153846153846`, -387.738468}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -237.643057]& , TagBoxNote -> 
                    "-237.643057"], 
                    StyleBox[
                    RowBox[{"-", "237.643057`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-237.643057, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -387.738468}, {
                    1.3846153846153846`, -732.786057}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -345.047589]& , TagBoxNote -> 
                    "-345.047589"], 
                    StyleBox[
                    RowBox[{"-", "345.047589`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-345.047589, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 113.766036}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 113.766036]& , TagBoxNote -> "113.766036"], 
                    StyleBox["113.766036`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[113.766036, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 113.766036}, {
                    2.3846153846153846`, 248.30804799999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 134.542012]& , TagBoxNote -> "134.542012"], 
                    StyleBox["134.542012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[134.542012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 248.30804799999999`}, {
                    2.3846153846153846`, 465.507693}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 217.199645]& , TagBoxNote -> "217.199645"], 
                    StyleBox["217.199645`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[217.199645, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -104.675465}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -104.675465]& , TagBoxNote -> 
                    "-104.675465"], 
                    StyleBox[
                    RowBox[{"-", "104.675465`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-104.675465, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -104.675465}, {
                    2.3846153846153846`, -260.805679}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -156.130214]& , TagBoxNote -> 
                    "-156.130214"], 
                    StyleBox[
                    RowBox[{"-", "156.130214`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-156.130214, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -260.805679}, {
                    2.3846153846153846`, -475.265042}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -214.459363]& , TagBoxNote -> 
                    "-214.459363"], 
                    StyleBox[
                    RowBox[{"-", "214.459363`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-214.459363, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 90.435781}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 90.435781]& , 
                    TagBoxNote -> "90.435781"], 
                    StyleBox["90.435781`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[90.435781, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 90.435781}, {
                    3.3846153846153846`, 185.041956}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 94.606175]& , TagBoxNote -> "94.606175"], 
                    StyleBox["94.606175`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[94.606175, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 185.041956}, {
                    3.3846153846153846`, 343.59101}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 158.549054]& , 
                    TagBoxNote -> "158.549054"], 
                    StyleBox["158.549054`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[158.549054, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -80.859775}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -80.859775]& , TagBoxNote -> "-80.859775"], 
                    StyleBox[
                    RowBox[{"-", "80.859775`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-80.859775, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -80.859775}, {
                    3.3846153846153846`, -197.538004}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -116.678229]& , TagBoxNote -> 
                    "-116.678229"], 
                    StyleBox[
                    RowBox[{"-", "116.678229`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-116.678229, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -197.538004}, {
                    3.3846153846153846`, -353.350053}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -155.812049]& , TagBoxNote -> 
                    "-155.812049"], 
                    StyleBox[
                    RowBox[{"-", "155.812049`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-155.812049, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    261.198012}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 261.198012]& , 
                    TagBoxNote -> "261.198012"], 
                    StyleBox["261.198012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[261.198012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 261.198012}, {
                    5.384615384615385, 504.788541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 243.590529]& , 
                    TagBoxNote -> "243.590529"], 
                    StyleBox["243.590529`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[243.590529, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 504.788541}, {
                    5.384615384615385, 842.185639}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.397098]& , 
                    TagBoxNote -> "337.397098"], 
                    StyleBox["337.397098`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.397098, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -64.157411}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -64.157411]& , 
                    TagBoxNote -> "-64.157411"], 
                    StyleBox[
                    RowBox[{"-", "64.157411`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-64.157411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -64.157411}, {
                    5.384615384615385, -284.68211199999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -220.524701]& , TagBoxNote -> 
                    "-220.524701"], 
                    StyleBox[
                    RowBox[{"-", "220.524701`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-220.524701, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -284.68211199999996`}, {
                    5.384615384615385, -633.451622}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -348.76951]& , 
                    TagBoxNote -> "-348.76951"], 
                    StyleBox[
                    RowBox[{"-", "348.76951`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-348.76951, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    240.277726}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 240.277726]& , 
                    TagBoxNote -> "240.277726"], 
                    StyleBox["240.277726`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[240.277726, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 240.277726}, {
                    6.384615384615385, 407.245041}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 166.967315]& , 
                    TagBoxNote -> "166.967315"], 
                    StyleBox["166.967315`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[166.967315, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 407.245041}, {
                    6.384615384615385, 612.774851}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 205.52981]& , 
                    TagBoxNote -> "205.52981"], 
                    StyleBox["205.52981`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[205.52981, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -43.223418}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -43.223418]& , 
                    TagBoxNote -> "-43.223418"], 
                    StyleBox[
                    RowBox[{"-", "43.223418`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-43.223418, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -43.223418}, {
                    6.384615384615385, -187.172377}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -143.948959]& ,
                     TagBoxNote -> "-143.948959"], 
                    StyleBox[
                    RowBox[{"-", "143.948959`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.948959, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -187.172377}, {
                    6.384615384615385, -403.978961}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -216.806584]& ,
                     TagBoxNote -> "-216.806584"], 
                    StyleBox[
                    RowBox[{"-", "216.806584`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-216.806584, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    229.681401}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 229.681401]& , 
                    TagBoxNote -> "229.681401"], 
                    StyleBox["229.681401`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[229.681401, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 229.681401}, {
                    7.384615384615385, 359.90092300000003`}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 130.219522]& , TagBoxNote -> "130.219522"], 
                    StyleBox["130.219522`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[130.219522, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 359.90092300000003`}, {
                    7.384615384615385, 506.193525}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 146.292602]& , 
                    TagBoxNote -> "146.292602"], 
                    StyleBox["146.292602`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[146.292602, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -32.703541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -32.703541]& , 
                    TagBoxNote -> "-32.703541"], 
                    StyleBox[
                    RowBox[{"-", "32.703541`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-32.703541, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -32.703541}, {
                    7.384615384615385, -139.843163}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -107.139622]& ,
                     TagBoxNote -> "-107.139622"], 
                    StyleBox[
                    RowBox[{"-", "107.139622`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-107.139622, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -139.843163}, {
                    7.384615384615385, -297.37217799999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -157.529015]& , TagBoxNote -> 
                    "-157.529015"], 
                    StyleBox[
                    RowBox[{"-", "157.529015`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-157.529015, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -9.753399}}, {{2., -9.757349}}, {{
                  3., -9.759043}}, {{5., 208.734018}}, {{6., 208.79589}}, {{
                  7., 208.821347}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -732.786057}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2050\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -794.6889309999999}, {
                7.384615384615385, -794.6889309999999}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 274.815643}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 274.815643]& , TagBoxNote -> "274.815643"], 
                    StyleBox["274.815643`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[274.815643, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 274.815643}, {
                    1.3846153846153846`, 337.621668}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 62.806025]& , TagBoxNote -> "62.806025"], 
                    StyleBox["62.806025`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[62.806025, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 337.621668}, {
                    1.3846153846153846`, 787.100818}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 449.47915]& , TagBoxNote -> "449.47915"], 
                    StyleBox["449.47915`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[449.47915, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -54.510009}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -54.510009]& , TagBoxNote -> "-54.510009"], 
                    StyleBox[
                    RowBox[{"-", "54.510009`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-54.510009, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -54.510009}, {
                    1.3846153846153846`, -491.01699099999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -436.506982]& , TagBoxNote -> 
                    "-436.506982"], 
                    StyleBox[
                    RowBox[{"-", "436.506982`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-436.506982, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -491.01699099999996`}, {
                    1.3846153846153846`, -794.6889309999999}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -303.67194]& , TagBoxNote -> "-303.67194"], 
                    StyleBox[
                    RowBox[{"-", "303.67194`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-303.67194, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 230.190141}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 230.190141]& , TagBoxNote -> "230.190141"], 
                    StyleBox["230.190141`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[230.190141, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 230.190141}, {
                    2.3846153846153846`, 250.30777500000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 20.117634]& , TagBoxNote -> "20.117634"], 
                    StyleBox["20.117634`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[20.117634, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 250.30777500000002`}, {
                    2.3846153846153846`, 558.3927110000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 308.084936]& , TagBoxNote -> "308.084936"], 
                    StyleBox["308.084936`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[308.084936, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -47.532343}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -47.532343]& , TagBoxNote -> "-47.532343"], 
                    StyleBox[
                    RowBox[{"-", "47.532343`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-47.532343, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -47.532343}, {
                    2.3846153846153846`, -373.363738}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -325.831395]& , TagBoxNote -> 
                    "-325.831395"], 
                    StyleBox[
                    RowBox[{"-", "325.831395`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-325.831395, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -373.363738}, {
                    2.3846153846153846`, -566.5241510000001}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -193.160413]& , TagBoxNote -> 
                    "-193.160413"], 
                    StyleBox[
                    RowBox[{"-", "193.160413`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-193.160413, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 199.593238}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 199.593238]& , TagBoxNote -> "199.593238"], 
                    StyleBox["199.593238`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[199.593238, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 199.593238}, {
                    3.3846153846153846`, 205.87024200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 6.277004]& , TagBoxNote -> "6.277004"], 
                    StyleBox["6.277004`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[6.277004, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 205.87024200000002`}, {
                    3.3846153846153846`, 445.645236}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 239.774994]& , TagBoxNote -> "239.774994"], 
                    StyleBox["239.774994`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[239.774994, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -41.890674}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -41.890674]& , TagBoxNote -> "-41.890674"], 
                    StyleBox[
                    RowBox[{"-", "41.890674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-41.890674, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -41.890674}, {
                    3.3846153846153846`, -311.713579}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -269.822905]& , TagBoxNote -> 
                    "-269.822905"], 
                    StyleBox[
                    RowBox[{"-", "269.822905`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-269.822905, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -311.713579}, {
                    3.3846153846153846`, -454.066444}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -142.352865]& , TagBoxNote -> 
                    "-142.352865"], 
                    StyleBox[
                    RowBox[{"-", "142.352865`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-142.352865, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    360.335426}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 360.335426]& , 
                    TagBoxNote -> "360.335426"], 
                    StyleBox["360.335426`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.335426, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 360.335426}, {
                    5.384615384615385, 556.846723}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 196.511297]& , 
                    TagBoxNote -> "196.511297"], 
                    StyleBox["196.511297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[196.511297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 556.846723}, {
                    5.384615384615385, 878.425371}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 321.578648]& , 
                    TagBoxNote -> "321.578648"], 
                    StyleBox["321.578648`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[321.578648, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -9.09751}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.09751]& , 
                    TagBoxNote -> "-9.09751"], 
                    StyleBox[
                    RowBox[{"-", "9.09751`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.09751, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -9.09751}, {
                    5.384615384615385, -322.902164}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -313.804654]& ,
                     TagBoxNote -> "-313.804654"], 
                    StyleBox[
                    RowBox[{"-", "313.804654`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-313.804654, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -322.902164}, {
                    5.384615384615385, -677.367262}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -354.465098]& ,
                     TagBoxNote -> "-354.465098"], 
                    StyleBox[
                    RowBox[{"-", "354.465098`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-354.465098, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    337.79575}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.79575]& , 
                    TagBoxNote -> "337.79575"], 
                    StyleBox["337.79575`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.79575, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 337.79575}, {
                    6.384615384615385, 471.722523}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 133.926773]& , 
                    TagBoxNote -> "133.926773"], 
                    StyleBox["133.926773`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[133.926773, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 471.722523}, {
                    6.384615384615385, 662.944687}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 191.222164]& , 
                    TagBoxNote -> "191.222164"], 
                    StyleBox["191.222164`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[191.222164, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -9.809114}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.809114]& , 
                    TagBoxNote -> "-9.809114"], 
                    StyleBox[
                    RowBox[{"-", "9.809114`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.809114, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -9.809114}, {
                    6.384615384615385, -240.607673}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -230.798559]& ,
                     TagBoxNote -> "-230.798559"], 
                    StyleBox[
                    RowBox[{"-", "230.798559`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-230.798559, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{5.615384615384616, -240.607673}, {
                    6.384615384615385, -460.335464}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -219.727791]& ,
                     TagBoxNote -> "-219.727791"], 
                    StyleBox[
                    RowBox[{"-", "219.727791`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-219.727791, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    323.234935}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 323.234935]& , 
                    TagBoxNote -> "323.234935"], 
                    StyleBox["323.234935`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[323.234935, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 323.234935}, {
                    7.384615384615385, 427.118758}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 103.883823]& , 
                    TagBoxNote -> "103.883823"], 
                    StyleBox["103.883823`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[103.883823, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 427.118758}, {
                    7.384615384615385, 560.048835}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 132.930077]& , 
                    TagBoxNote -> "132.930077"], 
                    StyleBox["132.930077`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[132.930077, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -9.344184}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.344184]& , 
                    TagBoxNote -> "-9.344184"], 
                    StyleBox[
                    RowBox[{"-", "9.344184`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.344184, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -9.344184}, {
                    7.384615384615385, -197.08487200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -187.740688]& , TagBoxNote -> 
                    "-187.740688"], 
                    StyleBox[
                    RowBox[{"-", "187.740688`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-187.740688, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -197.08487200000002`}, {
                    7.384615384615385, -356.537234}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -159.452362]& ,
                     TagBoxNote -> "-159.452362"], 
                    StyleBox[
                    RowBox[{"-", "159.452362`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.452362, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
                  3., -8.421209}}, {{5., 201.058108}}, {{6., 202.609223}}, {{
                  7., 203.511601}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -794.6889309999999}, 
             BaseStyle -> Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b2\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2100\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -1096.704333}, {
                7.384615384615385, -1096.704333}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 388.25272}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 388.25272]& , 
                    TagBoxNote -> "388.25272"], 
                    StyleBox["388.25272`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[388.25272, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 388.25272}, {
                    1.3846153846153846`, 716.5086}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 328.25588]& , 
                    TagBoxNote -> "328.25588"], 
                    StyleBox["328.25588`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[328.25588, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 716.5086}, {
                    1.3846153846153846`, 1131.60549}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 415.09689]& , TagBoxNote -> "415.09689"], 
                    StyleBox["415.09689`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[415.09689, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -1.687248}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -1.687248]& , 
                    TagBoxNote -> "-1.687248"], 
                    StyleBox[
                    RowBox[{"-", "1.687248`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-1.687248, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -1.687248}, {
                    1.3846153846153846`, -183.275868}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -181.58862]& , TagBoxNote -> "-181.58862"], 
                    StyleBox[
                    RowBox[{"-", "181.58862`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-181.58862, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -183.275868}, {
                    1.3846153846153846`, -1096.704333}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -913.428465]& , TagBoxNote -> 
                    "-913.428465"], 
                    StyleBox[
                    RowBox[{"-", "913.428465`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-913.428465, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 360.672782}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 360.672782]& , TagBoxNote -> "360.672782"], 
                    StyleBox["360.672782`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.672782, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 360.672782}, {
                    2.3846153846153846`, 571.315752}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 210.64297]& , TagBoxNote -> "210.64297"], 
                    StyleBox["210.64297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[210.64297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 571.315752}, {
                    2.3846153846153846`, 898.431737}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 327.115985]& , TagBoxNote -> "327.115985"], 
                    StyleBox["327.115985`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[327.115985, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -4.785349}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -4.785349]& , 
                    TagBoxNote -> "-4.785349"], 
                    StyleBox[
                    RowBox[{"-", "4.785349`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-4.785349, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -4.785349}, {
                    2.3846153846153846`, -163.933462}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -159.148113]& , TagBoxNote -> 
                    "-159.148113"], 
                    StyleBox[
                    RowBox[{"-", "159.148113`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.148113, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -163.933462}, {
                    2.3846153846153846`, -878.392152}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -714.45869]& , TagBoxNote -> "-714.45869"], 
                    StyleBox[
                    RowBox[{"-", "714.45869`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-714.45869, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 340.631967}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 340.631967]& , TagBoxNote -> "340.631967"], 
                    StyleBox["340.631967`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[340.631967, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 340.631967}, {
                    3.3846153846153846`, 492.08491699999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 151.45295]& , TagBoxNote -> "151.45295"], 
                    StyleBox["151.45295`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[151.45295, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 492.08491699999996`}, {
                    3.3846153846153846`, 768.8402409999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 276.755324]& , TagBoxNote -> "276.755324"], 
                    StyleBox["276.755324`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[276.755324, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -6.205358}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -6.205358]& , 
                    TagBoxNote -> "-6.205358"], 
                    StyleBox[
                    RowBox[{"-", "6.205358`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-6.205358, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -6.205358}, {
                    3.3846153846153846`, -149.311475}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -143.106117]& , TagBoxNote -> 
                    "-143.106117"], 
                    StyleBox[
                    RowBox[{"-", "143.106117`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.106117, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -149.311475}, {
                    3.3846153846153846`, -758.211383}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -608.899908]& , TagBoxNote -> 
                    "-608.899908"], 
                    StyleBox[
                    RowBox[{"-", "608.899908`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-608.899908, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    424.430174}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 424.430174]& , 
                    TagBoxNote -> "424.430174"], 
                    StyleBox["424.430174`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[424.430174, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 424.430174}, {
                    5.384615384615385, 985.5776720000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 561.147498]& , TagBoxNote -> "561.147498"], 
                    StyleBox["561.147498`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[561.147498, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 985.5776720000001}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 115.396599]& , 
                    TagBoxNote -> "115.396599"], 
                    StyleBox["115.396599`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[115.396599, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 1100.974271}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                    TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -66.469291}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -66.469291]& , 
                    TagBoxNote -> "-66.469291"], 
                    StyleBox[
                    RowBox[{"-", "66.469291`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-66.469291, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -66.469291}, {
                    5.384615384615385, -899.498816}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -833.029525]& ,
                     TagBoxNote -> "-833.029525"], 
                    StyleBox[
                    RowBox[{"-", "833.029525`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-833.029525, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    409.148947}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.148947]& , 
                    TagBoxNote -> "409.148947"], 
                    StyleBox["409.148947`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[409.148947, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 409.148947}, {
                    6.384615384615385, 855.950332}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 446.801385]& , 
                    TagBoxNote -> "446.801385"], 
                    StyleBox["446.801385`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[446.801385, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 855.950332}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 39.334762]& , 
                    TagBoxNote -> "39.334762"], 
                    StyleBox["39.334762`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[39.334762, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 895.285094}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 0]& , 
                    TagBoxNote -> "0"], 
                    StyleBox["0", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -62.129752}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -62.129752]& , 
                    TagBoxNote -> "-62.129752"], 
                    StyleBox[
                    RowBox[{"-", "62.129752`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-62.129752, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -62.129752}, {
                    6.384615384615385, -693.097152}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -630.9674]& , 
                    TagBoxNote -> "-630.9674"], 
                    StyleBox[
                    RowBox[{"-", "630.9674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-630.9674, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    398.232356}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 398.232356]& , 
                    TagBoxNote -> "398.232356"], 
                    StyleBox["398.232356`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[398.232356, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 398.232356}, {
                    7.384615384615385, 771.819992}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 373.587636]& , 
                    TagBoxNote -> "373.587636"], 
                    StyleBox["373.587636`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[373.587636, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 771.819992}, {
                    7.384615384615385, 790.2512049999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 18.431213]& , TagBoxNote -> "18.431213"], 
                    StyleBox["18.431213`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[18.431213, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -0.157619}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -0.157619]& , 
                    TagBoxNote -> "-0.157619"], 
                    StyleBox[
                    RowBox[{"-", "0.157619`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-0.157619, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -0.157619}, {
                    7.384615384615385, -57.341910999999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -57.184292]& , TagBoxNote -> "-57.184292"], 
                    StyleBox[
                    RowBox[{"-", "57.184292`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-57.184292, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -57.341910999999996`}, {
                    7.384615384615385, -587.689933}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -530.348022]& ,
                     TagBoxNote -> "-530.348022"], 
                    StyleBox[
                    RowBox[{"-", "530.348022`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-530.348022, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {
              Null}, {}, {}, {}}, {{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
                  3., -8.13144}}, {{5., 201.475455}}, {{6., 202.187942}}, {{
                  7., 202.561273}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -1096.704333}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b3\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2150\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}]}}, AutoDelete -> False, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
       FormBox[
        TemplateBox[{
          StyleBox[
          "\"E<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]E<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]E<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"CDR<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]CDR<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]CDR<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"NE<2200\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False]}, "SwatchLegend", 
         DisplayFunction -> (FormBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                   "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
               "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[{"SwatchLegend", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.95, 0.95, 0.95], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6333333333333333, 0.6333333333333333, 
                    0.6333333333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.95`", ",", "0.95`", ",", "0.95`"}], "]"}], 
                    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.95, 0.95, 0.95]; 
                    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.95, 0.95, 0.95], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.9, 0.9], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6000000000000001, 0.6000000000000001, 
                    0.6000000000000001], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.9`", ",", "0.9`"}], "]"}], 
                    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.9, 0.9, 0.9]; 
                    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.9, 0.9, 0.9], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.85, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.5666666666666667, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.85`", ",", "0.85`"}], "]"}], 
                    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.85, 0.85, 0.85]; 
                    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.85, 0.85, 0.85], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.75, 0.75, 0.75], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.5, 0.5, 0.5], FrameTicks -> None,
                     PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.75`", ",", "0.75`", ",", "0.75`"}], "]"}], 
                    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.75, 0.75, 0.75]; 
                    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.75, 0.75, 0.75], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.65, 0.65, 0.65], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.43333333333333335`, 0.43333333333333335`, 
                    0.43333333333333335`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.65`", ",", "0.65`", ",", "0.65`"}], "]"}], 
                    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.65, 0.65, 0.65]; 
                    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.65, 0.65, 0.65], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.55, 0.55, 0.55], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3666666666666667, 0.3666666666666667, 
                    0.3666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.55`", ",", "0.55`", ",", "0.55`"}], "]"}], 
                    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.55, 0.55, 0.55]; 
                    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.55, 0.55, 0.55], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                   GrayLevel[0], Editable -> False, Selectable -> False]}], 
                "}"}], ",", 
              RowBox[{"{", 
                
                RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                  ",", #7}], "}"}], ",", 
              RowBox[{"LegendLayout", "\[Rule]", 
                RowBox[{"{", 
                  RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
         Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{
       OverlayBox[{
         GraphicsBox[{{{}, 
            GraphicsComplexBox[CompressedData["
1:eJzt1/k31fsex/FNGi4dUYZya6eSuCqaULr5pBKalHOolAxFQoYyZKpExSkV
qUi+HyXpioZDbUNxUBlKJGQohVO3Dsf0sb+OorNvPvv9/eX8A3et7Rfrubb9
XXt9fD18XzMcPbfskebxeMNSPN7/vn//CmaQfZed51DzH8bf+wiDrKrRVb5L
10iHM+hp+b7OKW20TzLIcE7m6Wk63SN9ikHBRhb2jQ60zzJIvnvljsILtM8z
yF9TgXiW077EoO7japssh2gnMmiRwYvIa7o9I40ZNODb3hrjQDtF9H4pt136
sbTTGDSxteBpfAntWwza8fKYTGE/7TsMstCyPXRds3eks0SvF7llrbShLRBd
Ly0q5eQJ2vkMujPQFez2gHYhg0pTm2wbPtAuYdC899PLCpT7RrqUQXXVk1Xk
VtN+xqBtCobXUr1pVzFIc9q2SSFJtF8xKNQm0SugnPZr0XnmfDML66fdLDpP
7X+UHJtORvodgwq18+/sMaPdLnp/cWO0ghft/zLIvfdDrPsF2h0MmhJ6N9Mh
j3Y3g97r4cj6t7SJ6HzdP0Zm8/pHeoBBQf8897xVnfZXBmltq5ljakybh9G2
24unPbGlLY2RyqXsFjM/2jIYfeVvNs+Kpj0GI7/fT9R2ptAeh9GseSoJjQLa
shhNf51svKuc9niM8vcJ/tzVQFseo/nBgSGFv9FWwEg9fS/r1EV7IkaBRR++
zRXSVsJowKYheuhP2ioY/f7iXuf9QdqTRT9f+Hll1gBtNYz4j8zTHhPaUzGy
z1wac0V8fT5Ggsah3AefaKtjpBNVmezaRnsmRoMD5bJ/NNPWwOhd3mFZjzra
mhi5P6+4IVVFWwsjR3WZyodltP+FkddP1QoZxbTnYmT4Sj+x7iHt+RglfZM9
u0J8XnoYtc836Ptwj/ZCjIKH63dWZdBejFGJj4LXYBptfYxevnmvsVt8/oYY
me4vlxuPaS/DqHmmwKv7Mu3lGGkVX/GfcIn2CoyKsh11Xc7TRhj5LipP6j9L
2wQjy4OazwWnaa/G6IG6emlmFG1TjH4r979Re4K2GUYmfQ5ndCJoW2AUmtp5
NzOM9nqM/vOoeNPOI7Q3YpTM8xUsCaVtKfo8V4Mt9INpb8FIb6HigZ2BtH8U
3V93ajNuBtC2xshI2T98ij/trRhNPbwiOt2X9naMCu9e8bQ7SHsHRgnHchr0
DtC2w8j4Pomc4UPbHqPE0mBzXW/ajhitutPQsdWL9m6MIsYetbriSdsZI5+x
Hi5f9tP+G08z2qXbljhznqZcnja+uoXztGFuhHLxHM5T4deYCqcdnKd5OrN8
m6I5T32MItbXF3CeTrZ79OZJF+ep0puemh4+52nbPiWliA2cp+1XGZIQxHkq
o2WYgG5ynq6zf3f+UB3nacpwsrPJKM5Tp6ylW2J0OU8Vtrbe2GHLeTrn1vqc
c8c5T+3TBKem3+U83flo4+7exl7wdHemtUb/KM5Tg6awK4pzOU+bb6UU61lx
nrbXV7xadojzVM9jyE81ifNUaUCtMuPXPvCUNxgb2d7WB57aCt90JMtwnm7c
P7WmYhbnKW9j1Z21KzlPDS3iYwd3cJ6ade7ml/kR8HTU64xjF6MJeBru8TrE
PIWAp8oHI0yLHhDwdIF53Kn2UgKeSvXkusTUE/DUNWC2RUYbAU8LlJZ3K3cS
8PRhyk8bb/UR8LTzYnzQJpaAp1t5l+PfiFvkKa9u3kBmPwFPtSfFFMX2EPB0
bcvoKuMOAp6eqn8wTvcDAU+zVUtu3m8h4KkgtGW2YgMBT22kcm2cXxLwdPhr
x7zqCgKeav3yOd7pMQFPL5YUrtMuIODpYosN8do5BDw9XyT/cu8vBDxFcyPn
fsog4OlRZTv39DQCnnbG3bS+fY2Ap0cNmVEkiYCnrYtqVAMSCHj6afBAx1Lx
/0+Rp3NkT6QbxBDw1Ckl28lT/PsUefrllKZKSxQBTwOkNArDTxDwNKWy1MEu
nICnL/1ipPcdJeDpZOSbdT2UgKcyy97HTQgm4Om3CWNrrh8i4Kkpcz7V2Z+A
p0Jrxe2WvgQ8TSgTrnE4QMDTNe/iqy96E/BUZ22fT68nAU81TmzO9NxPwNPV
Vl+V5T0IeNq4p9L8mRsBT5c1lgnT9hHwtPjezbqrrgQ81Y/1uS3YS8DTt6Nl
rD65EPC02To9aZG4RZ5+SRQEXnAm4On5AJVGBXGLPD1Z3J6TvIeApw/3qsww
E/ffeCqlblXgsZfzNGvjlIZXHzlPIyo0lXt1OU/bUjUdclw5T1uyF+SpX+U8
jRl+u+J+A+ep3KvQMbUKPeDpnv2bFzxYy3nqouqXfySU8zS/d72VaTbn6ap1
PxcrdnCe5nqNGW6f2Que/sBKL8zfxnmqpce3PHOW87TTPGu61VPOU1mbM7KD
Q5ynq1SD7h5c3AeeelcF7ry3j3s+NSpda52MOU8Py0Sq69Zxnl5b8TjdTI6A
p8ujJh1oNCbgaXmp5cUq8f0l8vTJZe8+lRvc86lyXqB2vPjvX+SpVyWTbiLX
D57mrXX+ddioHzy9GfHjKYFbP3jqfKtDzjahHzwdtM7nVz/lnk8LGs6GjRY/
r4k8DS03qGnlC8FTvrdilJWZEDx1NVQZXuklBE/jtro4XrogBE+/6bWXoDwh
eLqgRH/87LdC8DR2Qq5w/jcheLrdRl3NjM+Cp/o7A1u3GbHgqcDQ7twGaxY8
jTPf9e/xnix46mcX+zI0ggVPN18rmRQdz4Knx9xHJ85MZ8HToa+q7zVyWfC0
qY7RD3nCgqcH5yvXTKpiwdPatgN1VXUseLpEes2WxEYWPBW6vrOya2LBU36w
4pSgBhY8LXtxeFRRLQueticlCprF1xd5qudze6JJBQueqvg3V61+zIKnrAmZ
xC9gwdOlAcuaiIAFT0+rldq23WPB07FaWZWDt1jwVOmH57NNb7Dg6T0LGbYi
mQVPNQ/JvD6TyIKnWc7aVrEXWfC0O8w5ti6GBU/D9q5p3hrNgqfNM9TfTI5i
wdNUnstnpeMseBr3KVVjXRgLnr5rLo/JCWXB05XeQYvsgljw9Lah7TiDABY8
re+Un2biy4KnpjruP4f4sOCpvUNhyEfx/SDy9PSWet1QDxY8naK0uMvYjQVP
4x6Wq+m4suDpDEvPmStcWPA0/PTU4/57WPA0Zbt2ba0TC56+zg7MsHFkwdOQ
ptzcL/YseCr/LDi9U/y6ZO9L9r5k70v2vmTvg6eSvS/Z+5K9L9n731uy9yV7
X7L3JXtfsvfBU8ne///c+38Bc/Ee4A==
             
             "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {
                EdgeForm[], 
                Directive[
                 GrayLevel[0], 
                 Opacity[0.2]], 
                GraphicsGroupBox[{
                  
                  PolygonBox[{{86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97,
                    98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 
                   110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121,
                    122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
                   133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144,
                    145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 
                   156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167,
                    168, 169, 170, 255, 254, 253, 252, 251, 250, 249, 248, 
                   247, 246, 245, 244, 243, 242, 241, 240, 239, 238, 237, 236,
                    235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 
                   224, 223, 222, 221, 220, 219, 218, 217, 216, 215, 214, 213,
                    212, 211, 210, 209, 208, 207, 206, 205, 204, 203, 202, 
                   201, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190,
                    189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 179, 
                   178, 177, 176, 175, 174, 173, 172, 
                   171}}]}]}, {}, {}}, {{}, {}, {}, {
                Hue[0.67, 0.6, 0.6], 
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]], 
                
                LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 
                 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 
                 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 
                 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 
                 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 
                 76, 77, 78, 79, 80, 81, 82, 83, 84, 85}]}, {
                Hue[0.9060679774997897, 0.6, 0.6], 
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]], 
                
                LineBox[{86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 
                 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 
                 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 
                 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 
                 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 
                 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 
                 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 
                 170}]}, {
                Hue[0.1421359549995791, 0.6, 0.6], 
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]], 
                
                LineBox[{171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 
                 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 
                 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 
                 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 
                 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 
                 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 
                 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 
                 253, 254, 255}]}}, {{
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}}, {{
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {}, {}, {}, {}, {}, {}, {}}, {{
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[
                 Tiny]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {{{{}, {}, 
              TagBox[{
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[1, 0, 0], 
                 Dashing[{Small, Small}], 
                 Thickness[Large]], 
                LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIwzV3MwFAz3+HsGRD4Yv+LY5eBTz2Cv5+NMXFGE4L/
2PHz0X2dCH7A1iv3sicg+Kd3KBZ+n4bgP/h9iV1wHoJvV14ctHEJgm9qVLHw
/moE36r2ReabTQh+B4PHs/qdCH7BYe70hQcQ/IX79s32PI5kn+ddzwtnEfwd
Igl/nlxB8G+KX0pquI3gT4lacXblIwQ/VvfVxo0vEfx8C2kvhw8IvlTzhmcx
3xF8PjZTc4Z/CL7fE75jM5gWwPlzeC3XKrAh+HyXo95lcyL4vjvWGf7jQfA3
Wv46FyyA4Ms0/14xQxjBD36j16oijuCv/xi5u1gKwb8htv0zpxyCz8FyKqNf
EcGP6b1ifkMFwa81E+TM0EDwD1W7muzWRnJvp/6cv3oIvvo2b7Z2IwQ/tT7+
1GVTBD8/Y+mEdEsEf97bRxv22SD4V6yu8bI6IPjXl//OmeSM4P/bIKH22A3B
/3Qz/WGVF4L/9lTOTUY/BJ8nIlPbJxDB/8Eyo/5uCJL//fbpGkUg+ArxsyTK
ohF8lgkrWBnjEXze2HU+/kkI/q5sq2XqKQh+WtWx//9TEXwA1MH7TQ==
                 "]]}, 
               Annotation[#, 
                "Charting`Private`Tag$110321#1"]& ]}}, {}}, {{{{}, {}, 
              TagBox[{
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[1, 0, 0], 
                 Thickness[Large], 
                 Dashing[{Small, Small}]], 
                LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIwzV3MwFAz34EBDH7Y/+LYZeBTj+DvZ2NMnNGE4D92
/Hx0XyeCH7D1yr3sCQj+6R2Khd+nIfgPfl9iF5yH4NuVFwdtXILgmxpVLLy/
GsG3qn2R+WYTgt/B4PGsfieCX3CYO33hAQR/4b59sz2PI9nnedfzwlkEf4dI
wp8nVxD8m+KXkhpuI/hTolacXfkIwY/VfbVx40sEP99C2svhA4Iv1bzhWcx3
BJ+PzdSc4R+C7/eE79gMpgVw/hxey7UKbAg+3+Wod9mcCL7vjnWG/3gQ/I2W
v84FCyD4Ms2/V8wQRvCD3+i1qogj+Os/Ru4ulkLwb4ht/8wph+BzsJzK6FdE
8GN6r5jfUEHwa80EOTM0EPxD1a4mu7WR3NupP+evHoKvvs2brd0IwU+tjz91
2RTBz89YOiHdEsGf9/bRhn02CP4Vq2u8rA4I/vXlv3MmOSP4/zZIqD12Q/A/
3Ux/WOWF4L89lXOT0Q/B54nI1PYJRPB/sMyovxuC5H+/fbpGEQi+QvwsibJo
BJ9lwgpWxngEnzd2nY9/EoK/K9tqmXoKgp9Wdez//1QEHwAfgQNJ
                 "]]}, 
               Annotation[#, "Charting`Private`Tag$110368#1"]& ]}}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0.96}, 
           DisplayFunction :> Identity, Epilog -> {
             InsetBox[
              FormBox[
               StyleBox[
               "\"c\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                StripOnInput -> False], TraditionalForm], 
              Offset[{0, 0}, 
               Scaled[{0.5, 0.98}]], {0, 0}]}, 
           Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
              FormBox[
              "\"delta SSA above preindustria (in \[Degree]C)\"", 
               TraditionalForm], None}, {
              FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {{
              Thickness[Large], 
              Directive[
               Thickness[Large], 
               Dashing[{Small, Small}]]}, {
              GrayLevel[0], 
              RGBColor[1, 0, 0]}}, FrameTicks -> {{{{1., 
                FormBox["1.`", TraditionalForm]}, {1.1, 
                FormBox["1.1`", TraditionalForm]}, {1.2, 
                FormBox["1.2`", TraditionalForm]}, {1.3, 
                FormBox["1.3`", TraditionalForm]}, {1.4, 
                FormBox["1.4`", TraditionalForm]}, {1.5, 
                FormBox["1.5`", TraditionalForm]}}, None}, {{{2020, 
                FormBox["2020", TraditionalForm]}, {2030, 
                FormBox["2030", TraditionalForm]}, {2040, 
                FormBox["2040", TraditionalForm]}, {2050, 
                FormBox["2050", TraditionalForm]}, {2060, 
                FormBox["2060", TraditionalForm]}, {2070, 
                FormBox["2070", TraditionalForm]}, {2080, 
                FormBox["2080", TraditionalForm]}, {2090, 
                FormBox["2090", TraditionalForm]}, {2100, 
                FormBox["2100", TraditionalForm]}}, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImagePadding -> {{60, 70}, {50, 10}}, 
           ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, 
           PlotRange -> {{2015, 2100}, {0.96, 1.55}}, PlotRangeClipping -> 
           True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
           Ticks -> {Automatic, Automatic}}], 
         GraphicsBox[{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]], 
              LineBox[CompressedData["
1:eJxd0XtIE3AQB/A1e6y0soiS1B5iJjXKxErC7DAxXdlDmskaI4eFBSUFQX8Y
jBgVFmUvipn+riyKWmUSlKmoS22V5ZAl0jIKVhgsGqIhPaTlGdH34Ljfh/vn
fnfzrSV5O7UajcYYyj91JEoVySO4ZqTYwHbwcfBJcDn4PPgS+DKYwdfAN8FO
cA34AfgRuAHcDG4Fu8EdYA/YC+4BvwW/V3T3hK9YU/JF7FdU9fVG+/qVn8V9
ivTfLvaeO/ZRHFBkqLQluI5+EAcVvbrV+To/4BMPKKLllsc5Ed3iIUVRF7wT
i+M84p+KhvyFV7pTnoo1TF1nzMNrvzeKtTw6X414LNOBslP+/rlnxeP/9kdD
B54EjgBPAUeCp4NngGeCo5i0ufbJm+7ZZb7ZTOsWHNQ6dBXiGKakfdVjGsZd
Fc9hWqZzxpiKbovnwX/jmI5syQltuFYcz5Sm9zo+xT4UJzB5MnuCA4Y6cSKT
e8LqCqOqFy+CfeqZerPCDoXHN4uXMIU5dNFVlhZxElO5azDRfNolTmbq27M4
dPEn4hSmwNL6hVPD28QrmCqnXW9smdUuTgWv4v/vm8bkiy4tTDa6xelgYurv
yrVGFjwTZ4AzmVoz7ux+t/+5OAuczfTDvLdtuPaF2ADewORM37b9flOHeCN4
MziPyTRY96bs10vxVnA+uABsYrJlNx2OTe0Um8EW8A6wFVwE3vXPvwHjnFOA

               "]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]]}, {}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]]}, {}}}, {{}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
           DisplayFunction :> Identity, 
           Frame -> {{False, True}, {False, False}}, FrameLabel -> {{None, 
              FormBox[
              "\"Probability for staying below 1.3\[Degree]C\"", 
               TraditionalForm]}, {None, None}}, FrameStyle -> {{
              Thickness[Large], 
              Directive[
               Thickness[Large], 
               RGBColor[0, 0, 1]]}, {
              GrayLevel[0], 
              RGBColor[1, 0, 0]}}, FrameTicks -> {{{{20, 
                FormBox["20", TraditionalForm]}, {50, 
                FormBox["50", TraditionalForm]}, {136, 
                FormBox["136", TraditionalForm]}, {200, 
                FormBox["200", TraditionalForm]}, {252, 
                FormBox["252", TraditionalForm]}, {312, 
                FormBox["312", TraditionalForm]}, {346, 
                FormBox["346", TraditionalForm]}}, {{0.25, 
                FormBox["0.25`", TraditionalForm]}, {0.5, 
                FormBox["0.5`", TraditionalForm]}, {0.75, 
                FormBox["0.75`", TraditionalForm]}, {1., 
                FormBox["1.`", TraditionalForm]}}}, {None, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImagePadding -> {{60, 70}, {10, 10}}, 
           ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, PlotRange -> {{2015, 2100}, {0, 1}}, 
           PlotRangeClipping -> True, 
           PlotRangePadding -> {{0, 0}, {0.005, 0}}, 
           Ticks -> {Automatic, Automatic}}]}, ContentPadding -> False], 
       TemplateBox[{
         StyleBox[
         "\"Median\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"0.05/0.95 Quantile\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"Probability\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False]}, "LineLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
               "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", 
               RowBox[{"{", 
                 RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
        True]},
      "Legended",
      DisplayFunction->(OverlayBox[{
         TagBox[
          GridBox[{{#}, {
             TagBox[
              StyleBox[
               TemplateBox[{
                 StyleBox[
                 "\"Median\"", FontFamily -> "Helvetica", FontSize -> 20, 
                  StripOnInput -> False], 
                 StyleBox[
                 "\"0.05/0.95 Quantile\"", FontFamily -> "Helvetica", 
                  FontSize -> 20, StripOnInput -> False], 
                 StyleBox[
                 "\"Probability\"", FontFamily -> "Helvetica", FontSize -> 20,
                   StripOnInput -> False]}, "LineLegend", 
                DisplayFunction -> (StyleBox[
                  StyleBox[
                   PaneBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxDividers -> {
                    "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}],
                     "Grid"], Alignment -> Left, AppearanceElements -> None, 
                    ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                    "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
                  FontFamily -> "Arial"}, Background -> Automatic, 
                  StripOnInput -> False]& ), 
                InterpretationFunction :> (RowBox[{"LineLegend", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
                Editable -> True], ShowContents -> False, StripOnInput -> 
               False], Deploy, DefaultBaseStyle -> "Deploy"]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          "Column"], #2}, All, 2, Alignment -> {0, -1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.8252175804474583`*^9, 3.8252183890566626`*^9, 
  3.8252679898112984`*^9, 3.82542471404433*^9},
 CellLabel->
  "Out[1061]=",ExpressionUUID->"c3d1dccc-744e-4bc8-ad39-290c61f05545"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FigureAB", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"Grid", "[", 
        RowBox[{"{", 
         RowBox[{"{", "FigureA", "}"}], "}"}], "]"}], "}"}], ",", 
      RowBox[{"{", "FigureBD16", "}"}]}], "}"}], ",", 
    RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.825424790901495*^9, 3.825424798353505*^9}},
 CellLabel->
  "In[1063]:=",ExpressionUUID->"56e358b6-1449-49d9-908d-f0c9bcce4cfb"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TagBox[GridBox[{
        {
         TemplateBox[{OverlayBox[{
             GraphicsBox[{{{}, {{{}, {}, {
                   Hue[0.67, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1GtQ1FUUAPDNBEIBNwMFCxZDUNEU10ekwZzkDQK6AvJQnvKQeKwamYqI
K60MEjAOoTxGjohCirSgAQkIMkiANIpQEANCCNoMmu7gBBmP/nmPH7p35s6d
34c7Z+45556lofGy8DkikShV2P+dr1diIYy3SnQSyw/AaycXwm1J0szRN07h
nMo5nXMW52zO5zgXcEbOxZxLOZdxVnG+wbmGcx3nRs7NnFs5d3C+z7mbcy/n
fs5DnEc4/8H5KecXnF9ynuQ8xVmE//ccznM5a3J+h/M8zjqc9RAeq/7JCHlj
McIa0xsmtkXkhQi9PTe7W9PI+gieGv3jddHkRQinBt2rY+zIhgi54oMuvxiQ
lyAM22jlXBzez/wBwrOQtfrya2QTBH+H41GPD5FNEdq9bpeOAPlDhC6rRHsd
bfIyBGXCo4HOe3JmCwQnv4Zc32/JKxCuBtgst/EnWyIcPHlBb5UJeTVCUFJJ
W3pTPPMaBL2G/Dg/J7KVED8u4uXFu3HMUoSY7zXqqz3JGxDqwOWERlcs8yaE
T+7bxeZ7k60REkOk3qqeGObNCBfcrF/m+JM/RXBVq7X9Bj5ntkWQd7bJxoLI
gHByQBXbORzNvFV4v1T2fGUk2R5hOlpP3DG2j9kRYapUOX1eTnZGGKqzVntP
RDG7IpTOlv29P4m8DaG7KkR/ribZA8FuS4kfZkYybxfiDSRsGjEiyxCSnbxK
/yyOYPZCqFxQudpQSvYR7v+kZ6luCGf2RZinPKi73pPsj5CXrYhbO7SXeTfC
CfNdFZP7yYEIE285xw5rkIOFfF+vWDieF8YcirDFsMIzeR15L8JsQFuGbnso
c4RQT3NJ7ekwchSC70jPgnWzIczRCOs3aj8UF5BjEL4JW3Y0ZTM5Tqj3YP3F
lr5gZjmCVo7ZXtNE8gEEF3F5cpOE/AVCdN+dDV2pQcxfCv1wxMDI+NdA5q8Q
Nh5FA0ML8hGEtZ5P0mSH9zAnInQ88Ph59N5u5iQhX8lqnSUryckIfe1uM8uV
AcwKhCrFZXOfUX/mFIR86x8HLziTlQiNCXfSX1zzY05FOBT5rGr+YnIawkyB
YipG4cucjlBxukjLVr2LOUOIZyzTyQolZyGYzGooRD0+zGcQMh+dcjXzIGcj
HLY5py9p9WbOEfKd4DP/qT35HMJfz191+DV7MechiK+fjS1xJBcI/8FqRVfU
3Z3M54V5EKbRoLuTjAj4Xc9HcwZkzEUIxjZJ8V37yMUIoe7hO3ondzBfFvp/
8F2DK2nkUmEevdrTm2dCvoKgXv2ZI/ywnbkMwSqlYGLWnVyOUKNZ5ap64Mms
QpDU/257QJdcKeSv+ozx++4ezDcQHHN1pW1Z7sxVQr84jIsW/baNuQbh1sNp
daA5+SbC2dEx6VSCG3MdwqX+YxmZ7a7MtxCk5TXWlmbkRoSiY2VD1cddmJsQ
vJveOzI96MzcjNDyStPiY3tyC8LXZs6Xeq86Mbci1K6qDZYvJrcjGD2J37pU
6cjcgVCoan67fdIB/gXPX7+m
                    "]]}, {
                   Hue[0.9060679774997897, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1H801lccB3DMrKU5No2YPDTJr9Jkz6LFB2WeyK/Hr0ny8/FbEXLK9BDR
Mjzya3T4VERYmVTPiT1JhjWZ2Tr5NbOOXzUdNotmju277j07Z/eec889r3P/
+Nx7z+d99YIPe4QpyMnJ5XDz3/XlSK2CN/hJOsXecfDS4irQ9PHX/s+ZjHMY
5zIuYFzEuIzxecbIuJpxHeNGxk2MWxhLGbcxbmfcybiHcS/jfsY/Mh5kPMp4
nPEE4xnGs4znGf/B+AXjFcZy+H8rMFZkrMR4DeO1jNcxVkF45cH0aKw7tSpC
r/RKumgn9VsIArOoJRNV6vUIPjOnwmJGYonVEcYX7q35pYJ6A0KtpOT+iAe1
FkJ8b/OWdHlqbYRlMYQP1MUQ6yCIhleLiwXUughTv5qv1E5EE29C2Gi1e67r
OLU+t69Q2l2+jtoAQXFKTygrjyI2RNjBT7x+ZzO1MYJn7sIHelcjiU25+19Z
8nSxoN6GYJU0eb1NGkG8HaFZLSDjh13U5gh+i/pNlnfCiS0QUkrPvuhzoOYj
XEj35R/tFxHvRJhY/HZLwwFqKwT1nMqib2bCiD9EsMCxXK1j1NYIj60TogeU
qAEhAr7SfL8slNgOIVH54Jl2Y+o9XL2lLlWxLITYAeFRZHVNgpDaEaHrzLXk
oqfBxPsQSht4FRMZ1M4IHW7Zb8dpU7sgFKyXBBXfCiJ2Q9gvG5py8KT2QIj5
XqFl6++BxJ4IXqPSr1ck1N4If0ue9EfuoPbl3vO17zINGg8R+yH8pNy7du/z
AGJ/hATz+AZdW+oABJNs9aG+/IPEgdz5hr4IM3/sTxyMYGly0WCZTx2KoHJJ
NyU1/wCxCMEs7pJ821M/4giEmtN8uXcE1FEI2xc2rnTWf0wcg/CqR/CjRRXq
OATdZyfFN5J9iY8gdD+fW+4d9yFO4PrbTOTk7UKdiGDjlaUULPMmTka48efJ
h5L3qFMQDNMfWKbUehEfR5gfcw+x06VORcgc/NxuusKTOA3h8qFNY1Za1GKE
wSDn5RMVQuIMhCCP1FQ7HnUm1w/2wuTlGg/i01y+zrmHbTCjzkEIl8pX8Vrd
iT9FEJbo5SUJqHO5fE4lnLow7Each3Ct+aaRThx1AULjZ1+qBShSFyL0DGRv
q7N0JS5CcAW1oHuHXYhLEHLTk7Rt6vcTl3H/hanRsaonzsTlCN6maULfrdTn
EXy7f7OvSXIirkSo7sosc+rYR4xcfkYNRk3UqC8iuOXHah6JEBBXc/1mq2+f
d9eR+DJCW9HtUG0edR3CiHNWir74I+J6BIkRL6N+0oG4ESF6TugV4UJ9FeHN
o4KHya17iZsQftYorW8xoW5GSFs9MT9ctYe4BcHg7F/5zhrUNxE6AwwDdxXa
E0sRFvsiGgpVqW9z+Wrnpa1K7IjbEGarZabP1KllCJt5rcpFlbbE7Vy9grC7
nUbUHVw9y0Cfc7eAuBPhdXcZZjlSdyGEBC/Ex0ptiHu4/+mTqUbXSWvi+5yN
xyunNah7Ed6tnBU5uO6GfwCBbXi5
                    "]]}, {
                   Hue[0.1421359549995791, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd02lMFEYUB3Ag2AJB6lWLqEQJVErQKghdCdBXbD1XQQ4LKy6w7Moh7CIg
XRCFItCVQF288IQnsoYllKJyiYpo6YbLerbBFsJWsViECmKFQtVunZcmnUkm
k9+HN5m8ef+FEoW/zMTIyEhl2P+eb1Z6CQw2RSrjqpLhjTNLYE+C987/nM1Z
xTmfs5rzIc5HOZ/kjJzLOJdzruRczbmGcwPny5ybObdwbuXcyfkW53ucuzh3
c9Zz7uP8mPMg52HOzzmPc/6bsxH+3yacTTm/xdmMswVnS85WnKchOD2qneGh
Ic9ASPqyI/JGIXkWwmMXN3NbJXm2oX6+IMo0hGyNoFhzxiTKjWyDsM7+doej
FXkeQkP/X3d1D5OYbRG2Kk5o/erICxB8oCnbIpdshzB1eUnSRwFke0O93bJP
ptqS30fI2Pti4OFvicyOCHb5JTqvKrITwh3jtV1jSWRnhIuuMy2jBOQlCKWD
ix+lT+5gXorg3q8/5neF7IKgKZ5y2nMPeTnC04CgaL032R3hC2HP4VOvEpgF
CHej3g4tukL2QIhwO1L9YhfZE6FRuCGr3oPsjbCldrvPzyMKZkB4LyIvMSae
7IMwN8f+QtrvcuZPDfevz5dNyMirEMpaqoaGfo1nXoMQfT6jOFdMXofwrcU9
SUJ3HLMQoWR+wtZlIvJGhPIVqYX7urYz+yHckr72LAgm+yP07S2+UdEVyxyI
sNLmXcH9EPJmhDNVtWPa7hjmYIS4j+c8/C6MLEJIiVfUl/VFM4ciTD/rWKSL
JYsRLGadU0WMRDGHIzwLW2CmTiNLEIaOORjHmpKlCOMToqLj+7cxbzO8v3zi
8A/zyNGGfkkPFF6okDHHIqgWex0f8CDHIVRdSq1Y2SllliNkqZ3DTcLICQhe
dbLm+6ORzIkINpMHCr7aR05GKDDTXdMsJKcgyOVC365GCbMS4Xn+7jZdEDkN
4dSHL8TpzyKY0xGkN4s7AtXkPQiDmxpsc5aSMxFir9bO1NwOZ85CeBWuvziW
TM5GaN61umDfHHIuguTqop+0GWHMKoTUg72lB2+KmfMQdnXXixbZkfMN/98e
49um3Mr8NcL3O/Q/Jt4OZVYjmMvL4gqXkA8g9K+w69UUbGE+hJDbFnitfFjE
fAShWjtaPh5EPoqQZztuXdkUwnwcYUqP+I61E/kkwstogUx+NJi52JDH3tOO
t8zJiLBJs+2dmt2fM5ci7G5fFtL9fDNzmSGP010nPeXkswjfaDJrXg8EMZcj
GF9J6L8eQ65AmBgpmv3nk0DmSoT7f9jipIJcZciz4LPViWMBzNUIwe0uLecy
yecRcux6bn4wlVyDoG+UrFKe8GeuQ8hc6xTQ6UxuMMyju2D6y6ubmBsRTmqk
K8w3ky8jaF3H1MNDfsxNhnn2K3XYryI3Iwh9gx8YO5CvI4itLj21VvkytyA8
eeBu09y2kVmH0Obdej58GrkVwa1oruVO0QbmdoRfzipDA7VC5k6E0ZTsu1mT
6+Ef1+GuLQ==
                    "]]}, {
                   Hue[0.37820393249936934`, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1AlMlEcUAODtorUBSldEg8DSotS4gBQBARXxKQseq7JScEUpInepRRBR
waNEFFYQUbSKYuFJgOLJpVSUyhFRChZsQUTuxm2kFiwQFUyl9K/zauJMMpl8
mUwy7715Yxaw1TNYLBKJ1ML8b30z9mRDiOTjtqEF/vDG8dnQJjE59dYHOKs5
H+Z8lPOJbLj3l/3pt87g9s9yRs65nAs4X+JcxPkq5+ucKzhXcb7NuY7zPc73
ObdwbuPcybmXs4ZzH+d+zoOcn3Me5fyaswjftZjzBM7vc/4A3623NsKisuAq
n/+ti1A18VHJHkuyHsKB8q6GsclkCYLbTW3Z4t5NzPoIPxZ0FYrTyAYIKamx
0qi55GkI4uFPvSLr/ZgNEer8a8+3biAbIeictkwI13zBbIIQ0O44ogojmyJE
5D0MCXziy/wJQtrX0yNPBpBnINxvra7ubt/IbI7wYEZORoWSPAuh1tHAZWPt
BubZCDHpl62/dyVbIAw9DEqNu+vDbIXQYyiOD1SSrRGqI9rKZnesZ7ZBGJ2X
PuG3MLItwu6QFfFnRlXM9sJ9z1lOLjhEdkAoaxsorTclOyEsNB5u0r22jnkB
woXMlMoBBdkZ4eSsPOz43ZvZRbhf+ZT+ym/IIOR/sPLbfmPyUgSRqiRwZrkX
sxxBK8M2ElRkd4Qfdpd7HBn5nHk5gmfGiFPzKfJKBMPj//hpLySvQvho705L
Rbcn8xqEU4+nqrMSyEqEkLnFr67LyJ4If7uYmMt/WcvsheDiu61TFkdeh+Ah
zowenElej7A2W6OX2aRk3oBgt/VBTMFusi+C/7rZv47JyH4IySqfDoNiD2Z/
hFynZVLpFHKAUC87/XOTd6xhDkK4tP51flHnauYQIb8W9pIGOTkMYXB1c+ik
olXM4Qh7C82crKXkLQiZUUY52qkK5giE/CGdQvPxlcyRCPJE74pj0eRtCEZ5
ivH0pyuYtyPYWHt/mRJI3oGgtyrCwKdnOfMuhLxbVgMtvuQ4IZ/6L/Z7dC1j
3oMQnBqndt9E3oewfWkfKjTuzPEIY9O+s7oWTt6PcHBGV5PsuRvzAYTpPrZ3
h/eRExEid7ZG3NQlqxFizf2yGjPlzMkIlknTHjXOIR9GyPKTNUiqXZmPCOd/
lo59piIfRThr69ijfraUOV3o74Rcj4tq8gmE8DV+QWJz8kmEys05S7RrljBn
IDzzNfzDbTP5DMLjCMnlqVrks0J+Eh1ExvnAnIUwqT98+ISCjAiJaWrZMc1i
5hwh/l1CQA7kXITxxpd9H6a4MOcj3HhxxtRAs4i5QDh/fk7M0cXkC0I9bfSs
pdnOzJeE92cWHax8j3xF6J/SQufloQuZi4T+9y5XvmpawFyC0JTV0GLuTL6K
kCoPm2B8cT5zmdDPsRevuErJ1xGizNJ63dOdmG8gXMk63u2oTa4Q/htRTZL+
QUfmWwhPlIkXMsTkKoTmr0qL9RMcmGsQfppfnPRyIvk2wpbjyXfaU+Yx30EI
mikp/HMKuQ7Boj5vSCfbnrke4Wl9aKypFfkewoiWqSFU2MG/CoWRKg==
                    "]]}, {
                   Hue[0.6142719099991583, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1AlQVVUYB/CHvVxAHwYqisQmGQGPAHEJWT6QRQgBX8gjZHEQ2Yy92HwW
GBQJNJhIRCxfsgsBohGgCWNQggsWCq8gwVGbxBdiGqNG1s3zjTOdO3PnzG/O
mbN893+uUXiCbM88kUiUJ7z/tU8fRRWsbzeXrrEOhqfOqoLxrCHNZ87hnMe5
gHMR52LOpZzLOSPnGs4NnJs5t3E+ybmT82nOvZz7OJ/jfIHzZc5XOCs5j3Oe
5HyT82+cVZxnquDB2QqNZ37A9T/kPMdZhP/3PM5izvM5L0Tw6izySLQiqyO0
eBn/ZahDXoygq+srTrqzk1mC0HzrkrfVcfJSYbwyLNV3L1kLYabniEqpS16G
MGylcPU+G8S8AiF7X6VTXDh5JULFbpjNnHuTWRfhl/S0iOZDZD2EwUfhd/uN
yfoIfwRPfPh+WyCzIYL+pKfGp5vJxggPrxsaDfbJmU0QHvSldGR5k9ciWFh0
Gsz8GMBsiqDokEhmA8lmwvpHQqw6r+1gtkAIa7+3Kz+CbIlgaFZY+tOUP7MV
gnledsv+JLINwlD2rYWrHr3BbIvg39Taop5D3oAwZv2OPHU5eRNCo8+C9spG
GbMdwinVaMW0M9keIX1Ge8Hl8e3Mjgh6qm2LBzLIgLAjdhbMV5FdEHJOnUgd
6/JjdkW43ZXb4hpCdkeYTj88cVSNvBWh8KueEw4yX2YvBHfTjgN11T7M3giR
NnpDUY+3Mfsg7C7vWZQrI/shjJ7JCu1s9WaWISRPXk2OkpD9hXotqb9wMel1
5gAEZ+l8zeERL+ZABFH+3GMjIAchaF/d+dzOJk/mYCFviec9ZLrkUAS5S5pn
ef5W5l0ItTF+tpoicrgwf9nxaLs0D+YIhC0O+8VPZtyZIxGyIpcaKOPI0QjB
hSqv8yo35liEY+6t800TyG8hPLmSfnvtfVfmeITvLfZpKTPJiQgNAWEhy8Xk
ZIRy3xebiou2ML+NELfa3XlGn5yKsK1bekijzYU5Xbh/7RIP+RZyJsLS1js6
KqUzs0LYn1pu5uNE8rsIDu4Zv95SJ2cJ9d4uNT5YD8wHhLwNiPz63cg5CEZT
jqLGi07MHwjf/4fV02u0yXkIJqWxkdIQR+aDCH97KqbFTQ7MBQgDhmkv1M3Z
M3+MYFp54vkcGbkIodowXbGvaTPzJwiHV4oDJIvIxUI9uz02yGPsmEuEPNzd
Ya596TXmUiFflokZzevJZQhuZgVS8RebmMsR8ld/XVqlSa5EqATlKwHZG5kR
oaB75Fr97AbmowgeBvfVsuPJNQhON6Vyp6n1zHXCfY0OCt8TTW4Qzlvzc/2N
27bMx4T+mP6Ny+LJzQgfrdF0XfHnOuYWhJHN45Il75HbEHyGoxYEa5DbEWxu
xNWOltkwn0TQ+TxAPduC3IHwZc9Lon96rZk7hfMI5RyRk7uF/6HZxDqte1bM
p4Xx0SnlYwXkM0K+u+Imqs3IvQinjR9OeJW8ynwWwT7merv6mCVzHwImpu79
zIT8HUKuRoZ4Y7KU+RxCydpaHPvWgnkQ4eVvEhS/ryJfQAjNLa7yTzGHfwGD
8356
                    "]]}, {
                   Hue[0.8503398874989481, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1Q1QVFUUAOAdEEFSBkmYBjYTBVQw2sQxwQUPiIjAgqxItKgQg0b+oUCr
IRj/MCCGC5n8xDvghghG4PAjRkbAkJr4i4KotDborKWJJtqaQS/v6c343syb
N9+cOfeeO/fc++xj4pUbjSQSSR7//vd9+aRw0L3RenHmhg/hpdM4yFXE3s34
31kcmLcrLwjO42Diyy2XBO/jQOrgaxBcJIqXcGBpvP5vwYc4sBly7xNcIcpH
UVzLQcqCVL3gWtH4x0TjN4rym0XjnxCtp0MU7xTl94jip0XxcxzE/tZwX/BF
UX39ovoGOfDwfNgr+KZofTpRfSMcQK7hsWC9KH5fNP6oKP6Eg0/Woo2wv3+J
6n8hypcg/KnOuiLYCGHRJqsxwZPw1fVNRjB07p8QbIavrsccIahWNyp4KkKw
Sza4hpEtEFRZMS56OdkSoS36qKvOjmyFYLPd4H/2cTTzDISHYZ2eF7rINghu
+77zXlRIfoO3boHjz0qyLcKb6l/elc8gSxHmy+PUt7RRzDMRBsdeU3fbkWch
KNOLt+kKNzDPRghYXuijMSU7INzpPy9ryV/P7ISwcGnB8FEr8jwE97Ypz85W
rGN25udzik8rdSYvQAgsVl58cDKS2RWh6fmcqcYKsgyhowll826rmBcijFrf
SlbsIi9CGC7OzVZNIy9GkH3U6vJE+wHzEgR/w6qWEC+yB+UPRDDLEd6THpy8
N4HshRBhNL9piwUZEKyVe5UPjr7P7INQYuNa3+hP9kXIiz3dNHY3nNmPz99Z
1yLLIfsjtPccMJ09lxyAUFPeM6vxp7XMQQgVW4134WZyMML45WqvM9PIqxE6
96wsnHI8jFnJ96PnnOm2EeQwBI368OeGf9YwhyNMc2+ttK8hRyDgxMwOdTBZ
heCifaEdeqZkXocQ2SzZVl9N3oBwIlJjrFaQoxFM4ebV+uehzDEIn2qS+kaO
kGMREgoM7VXh5E0Itxx3hvtOJscheJRUOde0rmbejGBuaeJWE0feysfNPFRX
bcnbEVpnFD1dVhnCvIPv7/Hd36pMyQkIZnf1j/YkBjMnIRjF6ge9byuY1Qh/
JH+cLwkl70ZYkn6veXt3EHMyQkP74Yk7i8kpCLm1XdztbwKZ9yJ4+9vI0h3J
aQj3ryeWlmEAcwbCZ8Nh2i4pOQuhdGOIUXn5KuYcfn6zIybvSMl5CN0DAyf7
K/2Z8xGqU4/p2uaQ9yHEB45kuNWtZN7P1/d4UlewG7mI31/IVHz1vR+zBuEt
S33QUAC5BCEpebjQ5PoK5oP8fZHi4Oi5mXwIYezGQHriC1/mMoT1oQFm4QfI
FXy/xF/Tpc4lVyJUuUyvHf9hOTMiOFz7dY1ERa5GuK4esp3+1IdZi9BnHDEy
UEyuQdA/1fTGuZFr+X53+tHucr83cx1/vnMKbl7ZRT6G8HWVn/0ZKbmBP1+H
JaGybmBuRPBbZhtcuoV8nO+PQDuLQGtyM8LbzYllJhnLmFv5/FOWCcM3vJhP
IKSus3PudSefROC7U/Gk1JO5g79fGqIa7cblzKcQZl2alB8RS+5EcPx9R9IX
55cydyHIB2PaLniQexCKMq02DdV5MPfy/SzPenRFSj6NcLlnaWexxp35LEJ9
SeU9R3PyOf7/0VfwelT2EvgX2KaZHg==
                    "]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{0, Small, Small, Small}]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {{
                 RGBColor[1, 0.5, 0], 
                 Thickness[Large], 
                 LineBox[{{2015.1, 0}, {2015.1, 185}}]}, {
                 RGBColor[0, 0, 1], 
                 Thickness[Large], 
                 LineBox[{{2015.1, 185}, {2015.1, 350}}]}}}, {
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
               AspectRatio -> NCache[
                 Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
               AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
               DisplayFunction :> Identity, Epilog -> {
                 InsetBox[
                  FormBox[
                   StyleBox[
                   "\"a1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                  Offset[{0, 0}, 
                   Scaled[{0.4, 0.95}]], {0, 0}], 
                 InsetBox[
                  GraphicsBox[{{}, 
                    GraphicsComplexBox[CompressedData["
1:eJzt2PtXzPkfwPFum6gUdrNufeWaWEsRFfVeRDdZ1crmsswmpGS7WKUvLSmW
Ulaayne8lGpWJN1LdJHpIkWLanVjRbb6SojNpX3xen/3rM9fsOd75vPDzHmc
M03N9J7nec1LT+TlsEFJQUFhGt68u39/DQWm8PfrY2BpbVEdnkaWFu+tA6yv
R6kzwfF78qfAMhZtjLHUDyGPBNZtbz4/e0MEeTSwFIuSGesqosi6wMT7tttn
sDjy2P89HsjjgI0os+pVm51AngDsoJd+YPbgJPIkYAc0UnaMfyol6wNbIZJE
Zd5LIRsA+yb9ybqDTankacCUgrUmuvSkkacD64iIu6samE6eAcz5Cw3fLvVM
siGwfV2Tvw0UZ5FnAZuwMPzsRrUcsjGwFqOhJ4d45JLnAnusHPFraUUe2RRY
UPfJRba6F8jzgOV5+FYv+66AbA5sdq2Dv1nJRTID1hQzMMRHs5C8AFhshnmb
eFoReRGwErs7hem13IuBTT9tuWimfzHZCpj6wE/XNI8uIdsA8+reV+FUzG0H
zGSXdJbI7TLZHtjNp1un6WuUkr8E1ha0ZqkkndsBmGRHtY62yxWyE7ATR601
PRVk5BXABvVkRHYkca8EtlI6+5qZfRnZBdhH7jN3iHu5VwNLfJ6j0nqinLwW
WP/qWa7zbCrI64Dl1BgYJT7nFgEz0B1+a1x8JdkVmMajbm3ZsqtkN3w/FWbZ
RL/l3gTsXmWDWcLZKrI7sKEz8gtMVl8jewDbfemzlafVq8lbgSn+MdRgbgH3
NmDnOoZ3hnjWkL2BFb8JGqCqfZ3sC8wm1iIpazP3dmB75l0I7LjMvQPYsarz
BSm6N8gBwE4Ve3re9ecOBPbuv5N6i3sXvr4wccPDmbXkIDx/Kv2rKsK59wCL
c/Zbod7JHYy/7/SNFEWbX8ghwBye7F7iJOXeD+zKnI/NVw24Sf4R2DjvvoBL
btyHgJ12VZDek3GHA9tiGfdb46Rb5Ahgkw6+OmwXyn0E2AOzlweU27mPYg/C
ahN3W98mHwP2L2trrYUp3GJg7hdbNpVp1pFjgel4hvvEbeM+jufFLtlv1E1u
CbDK5LJsjbn1ZADWPHdK1c7j3PHABg+Zk3xEsYF8Cp/PY7yk0407CVhWke6w
Kde4pfj+vKnL22z0K/k0sCPVReVXY7nP4Odtbb61htIdciqwBNMx5QHu3GnY
k7WLzzfWcqcDE9n17Zwyr5GcieezU7s/LZE7G5i3UWNQjVYTORdYV3eda1gA
dz6wz4vMTf3auAuA+VUmjFq/vJl8CVhMj5505EXuImDL/H3HTzNoIZfgeR7T
aq0ezV0KzNa0sthDqZUsA2ZxeLnE34S7HJiTrLAmdxt3JbAn/xE/F0m5q4Ad
fdk4sLeFG/se1pUFL2RFl94b+x5Vn3Wx6cjowvfGvhsYP/Ar1TMjY99jvvV3
nr/Onox9n6H17hW4kLHvsvhHna7bXMnY9zHf2wzo6PcgY99TXGqXD3bzIWPf
rZIWJj9s2kHGvm+9rK+m27KLjH3vya7dknF+Dxn7vjF76rNiwxAy9t1u7jMd
rccHyNh3f79wxYaOMDL2PSPaM/nskEgy9t03JlbFy+onMvbdxzZF77vDUWTs
+4K1WpOulEWTse+ueqYq4SqxZOy71/S32ZOtjpOx74YPUife3yshY98rzjTf
3b4JyNj3ncXJJv6RJ8nY98K8woDGnHgy9t0nWON+Q1sCGfte93m95h2dRDL2
/Z7ZzI4rXyaRse93EjVDE39IJmPfK93zJe35UjL2vb+6t13zxc9k7LvWEudH
/zVNIWPfV+jXvjm+5wwZ+145PDMi6MZZMvb9o8t5ISNGniNj339XrjALNUwj
Y98tvtqnKmrgxr7PWW7rMzX4PBn73hcT0DRuRjoZ+74+LOORWis39t1q69L8
zyIzyNh3C7PWfNHiTDL23ePY1cUPX3Nj35/OyzXbkpNFxr43p0YnqW3LJmPf
V6vI+lQn5ZCx77L9i05uaOLGvrfvD4x2iM4lY99Xrc1rNnbMI2Pfxw58tX3o
kHwy9t3xetfEsBvc2PfYhQ7qE3+6QMa+v5j/+znnlQVk7Hvk+k+8XHUvkrHv
b5e8O9Dc2PeOUeJG/fRLZOz7qzOGji67C8nYdyeTrikmk4vI2PfpzhbGFYe5
se8HRD2q4j+4se/vTudk12Iy9v3x13WbTK5zY9/7LAf2qc8vIWPf4ztKtKqT
ubHvxm2DHnsPuUzGvrPegBdlO7mx7z9ELTzo8ZAb+/4s1E2y2rGUjH0PfW20
92URN/bdzLG9QDb9Chn7bjWy8baOhBv7rvLwkH6XpoyMfc/4d/mq1F3c2Pcb
EU/0o7q5se+7yrrra0RlZOx7/9gjemW3ubHv34jtPjlkU07Gvtf1brf1LuLG
vv8Sb14xxriCjH3Pujdq0Imz3Nh3Jdf2+i8mVpKx71MTImumSrix73fcb49o
GX6VjH0/puaEfwI39t1+cdT6Rs0qMva9YEL1j9ID3Nj3LBkMWzDgGhn7PjNb
+z4Ec2PfXWwVN/crV5Ox73tbn3St2cuNfQ81KoxVVqkhY9+HaenHee/jxr5L
LDydkpWvk7Hvm9pPtIosubHvW3Zv3PkshDvwBFP4+xUkcLDA+wU+JHCEwEcF
Fgt8XGAQ+JTAUoHPCJwmcKbAuQIXCFwkcKnA5QJXCXxd4JsC1wvcKHCrwPcF
bhe4U+BugZ8J/FLg1wIrCL7PKQmsIrCqwGoCDxJYQ+DBwDaP+Wqptp8WzRva
wEyVcr8uWGn11/yhomjo2wmiv/zBz8vnEfk8Ip9H5POIfB75/5hH5PtE+T5R
vk+U7xPl+0SyfJ8on9/l87t8fpfP72T5/P7Pnt/l+8QPLd8nfuh/0D7xT/dc
vCs=
                    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
                    GrayLevel[0.85], 
                    LineBox[{95, 232}], 
                    LineBox[{2, 233}], 
                    LineBox[{3, 234}], 
                    LineBox[{4, 235}], 
                    LineBox[{5, 236}], 
                    LineBox[{6, 237}], 
                    LineBox[{7, 238}], 
                    LineBox[{8, 239}], 
                    LineBox[{9, 240}], 
                    LineBox[{10, 241}], 
                    LineBox[{11, 242}], 
                    LineBox[{12, 243}], 
                    LineBox[{13, 244}], 
                    LineBox[{14, 245}], 
                    LineBox[{15, 246}], 
                    LineBox[{16, 247}], 
                    LineBox[{17, 248}], 
                    LineBox[{18, 249}], 
                    LineBox[{19, 250}], 
                    LineBox[{20, 251}], 
                    LineBox[{21, 252}], 
                    LineBox[{22, 253}], 
                    LineBox[{23, 254}], 
                    LineBox[{24, 255}], 
                    LineBox[{25, 256}], 
                    LineBox[{26, 257}], 
                    LineBox[{27, 258}], 
                    LineBox[{28, 259}], 
                    LineBox[{29, 260}], 
                    LineBox[{30, 261}], 
                    LineBox[{31, 262}], 
                    LineBox[{32, 263}], 
                    LineBox[{33, 264}], 
                    LineBox[{34, 265}], 
                    LineBox[{35, 266}], 
                    LineBox[{36, 267}], 
                    LineBox[{37, 268}], 
                    LineBox[{38, 269}], 
                    LineBox[{39, 270}], 
                    LineBox[{40, 271}], 
                    LineBox[{41, 272}], 
                    LineBox[{42, 273}], 
                    LineBox[{43, 274}], 
                    LineBox[{44, 275}], 
                    LineBox[{45, 276}], 
                    LineBox[{46, 277}], 
                    LineBox[{47, 278}], 
                    LineBox[{48, 279}], 
                    LineBox[{49, 280}], 
                    LineBox[{50, 281}], 
                    LineBox[{51, 282}], 
                    LineBox[{52, 283}], 
                    LineBox[{53, 284}], 
                    LineBox[{54, 285}], 
                    LineBox[{55, 286}], 
                    LineBox[{56, 287}], 
                    LineBox[{57, 288}], 
                    LineBox[{58, 289}], 
                    LineBox[{59, 290}], 
                    LineBox[{60, 291}], 
                    LineBox[{61, 292}], 
                    LineBox[{62, 293}], 
                    LineBox[{63, 294}], 
                    LineBox[{64, 295}], 
                    LineBox[{65, 296}], 
                    LineBox[{66, 297}], 
                    LineBox[{67, 298}], 
                    LineBox[{68, 299}], 
                    LineBox[{69, 300}], 
                    LineBox[{70, 301}], 
                    LineBox[{71, 302}], 
                    LineBox[{72, 303}], 
                    LineBox[{73, 304}], 
                    LineBox[{74, 305}], 
                    LineBox[{75, 306}], 
                    LineBox[{76, 307}], 
                    LineBox[{77, 308}], 
                    LineBox[{78, 309}], 
                    LineBox[{79, 310}], 
                    LineBox[{80, 311}], 
                    LineBox[{81, 312}], 
                    LineBox[{82, 313}], 
                    LineBox[{83, 314}], 
                    LineBox[{84, 315}], 
                    LineBox[{85, 316}], 
                    LineBox[{86, 317}], 
                    LineBox[{87, 318}], 
                    LineBox[{88, 319}], 
                    LineBox[{89, 320}], 
                    LineBox[{90, 321}], 
                    LineBox[{91, 322}], 
                    LineBox[{92, 323}], 
                    LineBox[{93, 324}], 
                    LineBox[{94, 325}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwVztk2QgEAQNHbp/gZU4iSMUVkJplCElLIrBAZwo/aHvZa5/F0pLPR9VAQ
BEk6RRfd9NBLmD76GSDCIENEiTFMnBFGGWOcCSZJMEWSFNPMkGaWOTLMs8Ai
Syyzwipr/I9m2SDHJltss8MuefbY54AChxQ5osQxJ5xS5owKVc654JIaV1xz
wy133PPAI3UaPPHMC01eeaPFOx988kWbb3745Q/rlS03
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwV0Nc6AmAAgOE/d+KWXIADF8BNoSTZq4xQ2Ss7svcmGZmvg/d5vuOvtqGp
rjESQqinWbTQSpQYbcRpJ0EHSTrpopseeumjnwEGGWKYFGlGGGWMcTJMMMkU
WXLkmWaGWeaYZ4FFllhmhVUKrLHOBptssc0ORXbZo8Q+BxxyxDEnnHLGORdc
csU1N9xyxz0PPPLEM2VeqPDKG+98UOWTL7754fd/ek0IEf4Afx1NvQ==
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    
                    PointBox[{514, 515, 516, 517, 518, 519, 520, 521, 522, 
                    523, 524, 525, 526, 527, 528, 529, 530, 531, 532, 533, 
                    534, 535, 536, 537, 538, 539, 540, 541, 542, 543, 544, 
                    545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 555, 
                    556}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[
                    0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
                   DisplayFunction -> Identity, DisplayFunction -> Identity, 
                    AspectRatio -> 
                    NCache[GoldenRatio^(-1), 0.6180339887498948], 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {2015., 0}, DisplayFunction :> Identity, 
                    Epilog -> {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"\[Degree]C\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.1, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"a2: DICE2016\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"The Dive\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.75, 0.45}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.7}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.2}]], {0, 0}]}, 
                    Frame -> {{True, False}, {True, False}}, 
                    FrameLabel -> {{None, None}, {None, None}}, 
                    FrameTicks -> {{{{-0.3, 
                    FormBox[
                    RowBox[{"-", "0.3`"}], TraditionalForm]}, {0, 
                    FormBox["0", TraditionalForm]}, {0.3, 
                    FormBox["0.3`", TraditionalForm]}}, None}, {{{2050, 
                    FormBox["2050", TraditionalForm]}, {2100, 
                    FormBox["2100", TraditionalForm]}, {2150, 
                    FormBox["2150", TraditionalForm]}}, {{-0.5, 
                    FormBox[
                    RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
                    FormBox["0", TraditionalForm]}, {1., 
                    FormBox["1.`", TraditionalForm]}}}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
                    Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                    GrayLevel[0]], 
                    Method -> {
                    "OptimizePlotMarkers" -> True, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
                    PlotRangeClipping -> True, 
                    PlotRangePadding -> {{0, 0}, {0, 0}}, 
                    Ticks -> {Automatic, Automatic}}], {2095, 273}, Automatic, 
                  Scaled[0.42]], 
                 InsetBox[
                  GraphicsBox[{{}, 
                    GraphicsComplexBox[CompressedData["
1:eJzt2PtXzfkawPGajMmlpDXHVBJjDI1LdG+Sesbp4lIiCpVKd1HGoHSRMqb2
GN3cD0aPKYdEQkK5hBhiSCoyMVEWznTOCSc7k3IePZ9mTZ+/YGat/f2h1uuH
ffl892e/e/p8HLjUI+Q9NTW1CfTj3e+uSxeheKB7tHnOGocuf4hg1/atxlNl
GnsQwqNCi5Ycg61sPYTxuRf/rufwPdsA4VhL63ETyx/YhggzL6X5XL+5l22E
0OKepxuyNI89DOHTFdvK5w88xB6OYDnZYfZhn0L2CATri1ptbyYcZY9E0J90
onKLZhHbGKFhWvSSXo+Os0cj3Jk+u5fNmRPssQibOv36Dthxim2CcCHcq3hA
bCl7AsKta8ZbfbzPsM0QnuYq0w5POse2QIgvswuuSC1jWyFEtx80m+19nm2D
sPHJb/aGIy6wbRHG+W976HBf2A4h3y9x39UNF9n2CF9tCM6YaV7OBoTp3s+1
vrkpPBkh7dgzzYbQS2xHBEc9h7T4l8LO9HmEolnn6svsKQi2RuYz9d8KT6P7
2249fkbCj2xXhIlDrsRFtArPQJifYlN7KfIKeyZCxINl69ObhD0QJmnpjVjt
fZU9B0HH7uyZxZXCXggnjjqG/cOpgj0PweOl54sjpcLe9P5MDjg5ml5j+yK4
pTS+7r9f2A9hwQPDghqj6+wAhFG6rpbHtgoHIoQvyHkMA35iByNUBxikZCiE
QxEUQQvqnTVusMMRXvTe/lo7UTgC4WGV6RP9duEltN7UnPwVMTfZUQg2Z75T
Nr4S/hJhimWzsty2kv0VQofpIbegeOEVCJ9FW2i3lgpHIwzepUiM7BBehfDJ
7uZQZ4db7DiENsN56ZnJwgkISf2HTNxfLpyIYNWUrV/+QRU7CSEy7+vTRq7C
axGWDdZqGJcpvA5BO3Vv8tAa4RSEval7aq7q32Yr6P4kH9zn5S+8HiEzO83X
eq/wBoSsZLvShF+F0xGcqh2zM8yq2ZkIH+3etj4tVngjwiLP6bYV54U3I6ip
L64p6FPD3kqPX5sXWushvB3B9UDxzoadwjsQEtc3luU/Ft6FsMMvcOzt8bXs
3QgBP6mv/TxOGBECQyxexF4S/oH2f5zCOUbnDjsXIaY2qrTSV/ifCOpKuzX3
9gvvR5j1+s6LilbhAwhhWg/mPp58l32Qvv8dLy0CMoULEDSHrOiT+kC4EKFJ
18VIMbaOfZT2Z+SlzqPxwkW0f/72cGROhXAxQkjnLetFBvfYJ2k/vR5nOz9C
uARh+0cBQ78vET6N8EXIm/YN/X5mn0W4Unnk62m+wmUIBt9WaloVCF+g91/r
AffeCpcjbEloNpnpUc++jPCdxXPtllzhKwhjUgfV3VAKVyAos3w2RU2/z75O
683q/3nxbmFt+jz/eOlI1pX8oeRBkvUkG0g2lGwkmfqf9u/jqLxcdrbL1P/n
4Y2K423VbOr/nCadZctH17FHSo83ljxa8ljJJpInSDaTbCHZSrKNZFvJdpLt
JUP3+ht4fdT/fO+qWdqhGue6TP0PdT1vEHZ7IJv6/8SiX9HEXD029f+Ev/18
U98hbOr/m7znVW6Bw9jUf2XGN091bIazqf8vV+p33tYawab++/Q7Vnlj0Ui2
R/fzG7Op/+4VuSlWamPYXt2vN45N/f8tQH9wSd14NvV/qGlc1J4xpmzqf0GY
5o9j483Y1H/3p62jnp8yZ1P/HxitS0roY8mm/jfPiNm96oYVm/o/KckpsUNn
Ipv6Hx9W5Dk12IFN/V+wL2trxc9fsKn//6p8Fms9yJFN/S8bfi5RoeXMpv4f
DfpE5/CvLmzq/97cd0Gdyqb+p8PpAv/C6Wzqv8cUs/yYk27s6O71urOp/24R
4RqF6rPY1H/DEY6v1w7yYFP/G21aIk6Zz2ZT/02GFRmddZ3Dpv4vDZwyY2SU
J5v6fyS3fnV6hheb+n8txXKL08K5bOp/nw7XM1ED57Gp//Y3LBa2XxWm/i/P
NnxfsXY+m/rfGvwuWN5s6n+fqNwlWUU+bOr/nqmBU0+1+7Kp/wcP3fWPdvdj
U/8nNoWeVM/2Z1P/G0oCnVfFB7Cp/zkaGwuXjlrI3tG9X4Wp/0/ym4JikgPZ
1P84z7DjZUZBbOq/1ttnvfueFqb+P8paFWs7N5hN/Tf3+G/erlfC1P91uqH3
OreEsKn/1VX1fRdahrKp/415Lgb1tcLU/8iCHU8UCWFs6v945dVZScbhbOq/
5Wfv3/erEqb+ty2zcPFKXMSm/peUBB1xGx3Bpv6v1tg02KlWmPrfGVgc7Llu
MZv6v+ZC3aEQsyVs6v/bjzterWwQpv4nJQ+DlPRINvX/rNI6/LB9FJv6/ybS
PfPuf4TLu+//Ujb1f6fNqV/2GH/Jpv6XvCxfXpwkTP23KZkWc6dOmPo/b6VX
v2bTZWI/ZoPaH68kyeskKyRvkJwpebPk7ZJ3SUbJuZL3Sz4ouVBykeSTkk9L
LpNcLvmK5OuSKyVXS74ruV5yg+QmyU8lN0tukfw/yW2S30hWk/4evSe5l+Te
kjURHPKvb6795ZF9l/siOBcNmR0T4sLzRn/qUY2dS1Np8O/zx6cfNEe82LyS
TfMHXkyIVX+VzKb5o13jcfHqjPW/W/5/tMfrq+aRnlbNI6p5RDWPqOaRv8o8
ojpvVJ03qs4bVeeNqvNGtuq8sadV831Pq+Z71Xyvmu9V8/1fZb5XnTf2tOq8
saf/ROeN/wdyCqSx
                    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
                    GrayLevel[0.85], 
                    LineBox[{97, 234}], 
                    LineBox[{2, 235}], 
                    LineBox[{3, 236}], 
                    LineBox[{4, 237}], 
                    LineBox[{5, 238}], 
                    LineBox[{6, 239}], 
                    LineBox[{7, 240}], 
                    LineBox[{8, 241}], 
                    LineBox[{9, 242}], 
                    LineBox[{10, 243}], 
                    LineBox[{11, 244}], 
                    LineBox[{12, 245}], 
                    LineBox[{13, 246}], 
                    LineBox[{14, 247}], 
                    LineBox[{15, 248}], 
                    LineBox[{16, 249}], 
                    LineBox[{17, 250}], 
                    LineBox[{18, 251}], 
                    LineBox[{19, 252}], 
                    LineBox[{20, 253}], 
                    LineBox[{21, 254}], 
                    LineBox[{22, 255}], 
                    LineBox[{23, 256}], 
                    LineBox[{24, 257}], 
                    LineBox[{25, 258}], 
                    LineBox[{26, 259}], 
                    LineBox[{27, 260}], 
                    LineBox[{28, 261}], 
                    LineBox[{29, 262}], 
                    LineBox[{30, 263}], 
                    LineBox[{31, 264}], 
                    LineBox[{32, 265}], 
                    LineBox[{33, 266}], 
                    LineBox[{34, 267}], 
                    LineBox[{35, 268}], 
                    LineBox[{36, 269}], 
                    LineBox[{37, 270}], 
                    LineBox[{38, 271}], 
                    LineBox[{39, 272}], 
                    LineBox[{40, 273}], 
                    LineBox[{41, 274}], 
                    LineBox[{42, 275}], 
                    LineBox[{43, 276}], 
                    LineBox[{44, 277}], 
                    LineBox[{45, 278}], 
                    LineBox[{46, 279}], 
                    LineBox[{47, 280}], 
                    LineBox[{48, 281}], 
                    LineBox[{49, 282}], 
                    LineBox[{50, 283}], 
                    LineBox[{51, 284}], 
                    LineBox[{52, 285}], 
                    LineBox[{53, 286}], 
                    LineBox[{54, 287}], 
                    LineBox[{55, 288}], 
                    LineBox[{56, 289}], 
                    LineBox[{57, 290}], 
                    LineBox[{58, 291}], 
                    LineBox[{59, 292}], 
                    LineBox[{60, 293}], 
                    LineBox[{61, 294}], 
                    LineBox[{62, 295}], 
                    LineBox[{63, 296}], 
                    LineBox[{64, 297}], 
                    LineBox[{65, 298}], 
                    LineBox[{66, 299}], 
                    LineBox[{67, 300}], 
                    LineBox[{68, 301}], 
                    LineBox[{69, 302}], 
                    LineBox[{70, 303}], 
                    LineBox[{71, 304}], 
                    LineBox[{72, 305}], 
                    LineBox[{73, 306}], 
                    LineBox[{74, 307}], 
                    LineBox[{75, 308}], 
                    LineBox[{76, 309}], 
                    LineBox[{77, 310}], 
                    LineBox[{78, 311}], 
                    LineBox[{79, 312}], 
                    LineBox[{80, 313}], 
                    LineBox[{81, 314}], 
                    LineBox[{82, 315}], 
                    LineBox[{83, 316}], 
                    LineBox[{84, 317}], 
                    LineBox[{85, 318}], 
                    LineBox[{86, 319}], 
                    LineBox[{87, 320}], 
                    LineBox[{88, 321}], 
                    LineBox[{89, 322}], 
                    LineBox[{90, 323}], 
                    LineBox[{91, 324}], 
                    LineBox[{92, 325}], 
                    LineBox[{93, 326}], 
                    LineBox[{94, 327}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwVztc6ggEAgOHfpbgbIhTJDCnZoYwikp2RXUZGcp9eB+/zfIdfZzIbXe0I
giBBl+gmRA+9hOmjnwEiRBlkiBjDxBlhlDHGmWCSBFNMM0OSWVKkmSPDPAss
ssQyK/wPZlljnQ1y5Nlki212KFBklz1K7HNAmUMqHHHMCaeccc4FVS654pob
atxyxz0PPPLEM3UavPDKG+80+eCTL75p8UObX/4Adywt8w==
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    PointBox[CompressedData["
1:eJwV0Oc2AmAAgOGvcCFuyRU4LoC7KmSvZGWUPbNF9t5EiHj8eM55f7+1DU11
jZEQQj0xEaeZFlpJ0EY7HXTSRTc99NJHPwMkGSTFEMOMMMoYacaZYJIpMmSZ
ZoZZ5phngUWWWGaFVdbIsc4Gm2yxzQ677JFnnwMKHHLEMSeccsY5F1xyxTU3
3HLHPQ888sQzL7xS5I13SnzwyRdlvvmhwu//7GgIEaJUUU0Nf1YUTIo=
                    "]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    
                    PointBox[{518, 519, 520, 521, 522, 523, 524, 525, 526, 
                    527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 
                    538, 539, 540, 541, 542, 543, 544, 545, 546, 547, 548, 
                    549, 550, 551, 552, 553, 554, 555, 556, 557, 558, 559, 
                    560}]}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]]}, {
                    Directive[
                    PointSize[0.009166666666666668], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[
                    0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
                   DisplayFunction -> Identity, DisplayFunction -> Identity, 
                    AspectRatio -> 
                    NCache[GoldenRatio^(-1), 0.6180339887498948], 
                    Axes -> {False, False}, AxesLabel -> {None, None}, 
                    AxesOrigin -> {2015., 0}, DisplayFunction :> Identity, 
                    Epilog -> {
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"\[Degree]C\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.1, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"a3: FaIR-Geoffroy\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.6, 0.9}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"The Dive\"", {
                    FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                    False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.75, 0.5}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.7}]], {0, 0}], 
                    InsetBox[
                    FormBox[
                    StyleBox[
                    "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                    StripOnInput -> False], TraditionalForm], 
                    Offset[{0, 0}, 
                    Scaled[{0.5, 0.3}]], {0, 0}]}, 
                    Frame -> {{True, False}, {True, False}}, 
                    FrameLabel -> {{None, None}, {None, None}}, 
                    FrameTicks -> {{None, None}, {{{2050, 
                    FormBox["2050", TraditionalForm]}, {2100, 
                    FormBox["2100", TraditionalForm]}, {2150, 
                    FormBox["2150", TraditionalForm]}}, {{-0.5, 
                    FormBox[
                    RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
                    FormBox["0", TraditionalForm]}, {1., 
                    FormBox["1.`", TraditionalForm]}}}}, 
                    GridLines -> {None, None}, GridLinesStyle -> Directive[
                    GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
                    Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                    GrayLevel[0]], 
                    Method -> {
                    "OptimizePlotMarkers" -> True, 
                    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
                    PlotRange -> {{2015, 2152}, {-0.4, 0.6}}, 
                    PlotRangeClipping -> True, 
                    PlotRangePadding -> {{0, 0}, {0, 0}}, 
                    Ticks -> {Automatic, Automatic}}], {2125, 273}, Automatic, 
                  Scaled[0.42]]}, Frame -> {{True, False}, {True, False}}, 
               FrameLabel -> {{
                  FormBox[
                  "\"CO2 Price in year 2030 in US(2015)/tCO2\"", 
                   TraditionalForm], None}, {
                  FormBox[
                  "\"Year in which ceiling applies\"", TraditionalForm], 
                  None}}, FrameTicks -> {{{{20, 
                    FormBox["20", TraditionalForm]}, {50, 
                    FormBox["50", TraditionalForm]}, {136, 
                    FormBox["136", TraditionalForm]}, {200, 
                    FormBox["200", TraditionalForm]}, {249, 
                    FormBox["249", TraditionalForm]}, {307, 
                    FormBox["307", TraditionalForm]}, {340, 
                    FormBox["340", TraditionalForm]}}, None}, {{{2020, 
                    FormBox["2020", TraditionalForm]}, {2050, 
                    FormBox["2050", TraditionalForm]}, {2100, 
                    FormBox["2100", TraditionalForm]}, {2150, 
                    FormBox["2150", TraditionalForm]}}, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImageSize -> 1200, LabelStyle -> 
               Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                 GrayLevel[0]], 
               Method -> {
                "OptimizePlotMarkers" -> True, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 350}}, 
               PlotRangeClipping -> True, 
               PlotRangePadding -> {{0, 10}, {1, 1}}, 
               Ticks -> {Automatic, Automatic}}], 
             GraphicsBox[{{{}, {{{}, {}, {
                   Hue[0.67, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1H8w13ccB/Cvb6mYX5fYWirMdq41yUbO1rzOSUhb55SYzFR+hGUhKreT
om8yfUnlMF6ZmrBCpu9klh+VUBjp2wizr9/yjS/u2027fer1/mN7v+8+97nH
3ede93nf+/l8mwUe9NwvFolEEuF59X694vNB9N+VwPkkZwnnVM5Szpmcszjn
ckbOhZyLOJdyLuNcyVnGuYbzbc6NnJs4t3Ju59zFWc65l/MAZwXnUc6TnJ9z
nuWs5rzAWYT/t5jzYs5LOC/jrM1Zh7MeQujqndsNYvQdX9sAwUEs86nZ7Upe
jrBYwyZ6EgPJKxDabpWjtWUU2RihsFirYGpRAvkthOaVKR/3KU6R30bYq91t
n5MmJZsglDjWWwfcP09eg2D+4/WRsAs5ZFME++UhZVdVSDZHGEyPO+LgXUi2
EP4nfUt23NIi8nsIGGE7kaosIVsiRJiUG+eLy8jrEI6d6rn01cYK8noE/xnH
F7diK8lWCB8Wpgzu7K4iWyNs/U5r40WvX8g2CAOzVn1ne26RP0IQ50Q99wip
JdshTBoZ9+rH3SbbIxTvExUN3q0jOwjf69rFrDFqIH+CIMnLdNONaCR/iiBV
G4XJmu6QAWHV/LHA79fdIzshyHNPBDudayI7I/iVbJ5MEjeTXRDCOuX+bxxt
IbsiJH4TOZalaiW7I9SYq/vdDz8keyBcmk2Sqv5pI3+G0FF+wt3vXjt5B8KR
dC21bUYH2RPBLdTubEPA72QvhPtmg8NeNp3kXQgayUNtNzW7yLsRktq66+r6
mH0RnJbuqb908xHZD6E38XJ1wsVusj+CvmXOoaTYx+QAhM99tj823CMnByK0
T0kDE5yfkPchQO1Jbb0Nf5CDEF4EL5k+vrqHHIKgdFg106bTSz6A0OIR+vID
jafkcITMXy/nbphn/lrYr2mFq6GyjxyJoPUCg2+M95MPIRj8ZBSRFjVAjkZ4
v3cmPXOW+TCCrq22W1DMn+Q4BIsunasFauajQt929sruxA+S44X5V7J9tmn8
Rf4WwbB622CphDkBweThwgE9AwU5UZifluE9ksV8UsiDyrZl/ztD5GQE9ZWx
G4uuMUsQftAM+eKBwzA5BWF4z1zCkSbmVIS/HzRGm+0aIachtFqMa+YPM0sR
fj44dX1N7Cg5A2GtfPpL02Vj5EyE2uQBWWoO8wXBkqq941bj5Cyh3x0lGu4N
zNkI5SsHEsN9Jsi5CDvO1DVUKpnzhLxGuWTOJ0+SEcG5oL1iau0zcgFCxat4
ypgLERRW9SuGPKfIVxAembY+859iLkIId/Ld235aSS5GCJJbTmwyfE4uFfoW
It6yPpD5GoLKV+vpu+XMZQijweMxZ0TT5AoEM7PmNyt3MFeyPiBzFcJvyv4a
+2lmmZAnc4kq0mmGXI3g6zK++fw55hrh/jRI85lXMNcKfa9+stZyk4p8m92P
p5nrhfOLzW6N62FuRLDzU+Rds5ol30WwVq1eaDzO3CRYt2FrYxdzs5Cfl4Z+
pZZz5FaETnWSd0b8nOO/duFDOg==
                    "]]}, {
                   Hue[0.9060679774997897, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1HswVnkYB3DbljWVNKLd1BDJpRtWsyLlKW8m5dZb1ipso3KpllxWEu/a
kHdRtDVuy/aUN0PUlNxHclsptLm8KqHWa4lc2hChbc96zh+7v9/MmTOfP87v
zPl+n9/RdPcVHpkjJycn5q5/77Mr9DLI/XeFM45kLGYcxziB8SXGyYzTGCNj
CeMsxrmMbzHOZ1zMuIxxBeMaxnWMGxg/ZtzK+CnjDsYvGfcwfsV4kPEbxmOM
JxnPMJbD/3sO47mM5RkrMJ7PeCHjRQjnhgpworZi66wXI6yQH3WqczG1mLUy
grvK3Hjfkf1kFYT23tqxyNU+5KUI7w1PPwtqDyF/gWB24eD1lIJIshpCYlNd
n6r9OfIKBMfKLIkdXCSrI5RG3RTgVBJ5JcINieoLh8k0shaCsZGrWKpxhayN
kKpz3GKZLIOsg2DSmWc5U51J1kNQ6Nf3Fxdnk9cgyD6ez3LozCWvQzgitFwe
rniLvAEherruhnXRbbIhQsnnyaoxgXfIXyL0eL//Mce8gLwR4aLZJ7aRikXk
rxBarb43SxgvJm9C+HhSEDXQW0o2QyhML7SaKysjmyNs9pcYG74tJ29FCN1R
5NYSUUEGhOCiPIFnSiV5O4LaxjH7E7eryAKE7lXuu7SbqslWCPW7/9b9YaKG
vBPhl26/Peu1asm7EFxMT3vmO94n2yBoZQqU78bVke0Qmk281VQaH5AdEHI0
/eKvKdWThQiWe4Omtrk2kPchTNTrrj2b00j+muvLQTJtOu938jdcX2KlwUmD
x+T9CFiZ+Sijm7cLwrUxGwOjxCayG5e3zFYUa9dMPoiQlbB2fJ1CC9mdy2Ob
4Gj7b7wPI1QLIlTMo1rJHtz7ow2W7NgpJXshbJFqmlQrtpGPIix0+gw6pLyP
IyTFSyTRV56QfRA+RKkbhfg8JZ9AOJPt0SaEZ2R/BPXs8tFY5XZyIMLlPvvl
0n7eQQhC6/Rwnarn5GCuD89T6h3pHeQQ7jwcAK8toZ3kUK6P+KpxPZcusojL
P2CB60/wghyOoJ9Ua1Cm/JJ8BmFUo9n322jekVweaVdXlczwPovQcuzObeWA
P8hi7nvap/otXvOOQfDICBDFHOomxyGs1NeqXtPF+zzC7gMuMmNnGTmBm+fk
xQHWUt4/c/MA6+WV9vaQLyH0ZTZuUmzinYgwpG+q+87hT3IyQnhxjtOFJt6p
3P7zVB3vCXvJaQi5n64cHpDy/hXBwjFK3t25j4zc/kIXx3edvK8iPLH/6Dx6
6BVZgjC28WDCWD/vTIRlCXe7Pvj1k7MQkjPuj3w3xfs697+ZNC5zjhgg5yKs
fhAQprHoNfkml/eQYrlhCu9bCCHVYT1t2oPkPASrwSVglMc7n+svMK81xGKI
XIhwTyRWXPqIdzF3/t3mK6W6DpNLEU6qCkXCId5l3Pyp244fFo2QyxGeT+9T
VVN4Q65AyHhoOCy/h3cVwvbgfL+aVN41COZHbcQlPbxruedjvTZnbviLXIew
QFtPFHeK90OENr8ZB+8a3g3cPPaHyY4pvbX4B5ZcPfM=
                    "]]}, {
                   Hue[0.1421359549995791, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd03001XccB/CbJg9Lp5kJy06sYzbripSK6bPkIWWhdHowk9wy7WRUaoWE
E3m4ZIrpyicqdocecbvpupMhroea8hCJPIZR2UMP037r8/tj+37O+Z7veZ3v
P9/P9/v+mPgHe4nUBAJBPLf+3d9UeA4I/ltRjGMZxzNOYpzKOJ1xJmMJY2R8
lnEB40LGFxlfZSxjXM5YybiKcS1jFeNmxi2M2xh3Mn7IuI/xEONRxhOMJxn/
xfgVYwH+32qM32I8g7EmY23GMxnPYjwbwepQe1iHkdWKN9ZFcPV4ZbCn1Yus
h5BcdsL3VLKIrI8g8YiPciwIJRsgHK5sLxJZh5ONEHyq3XVscmLIcxGulChc
A+uPkT9A2LXaZVmmeyp5HkLZoWvrxGrpZFME34WyAfFUBnk+guXLffl26yRk
M4Q/TmgMfxyKZHMEk2LJjUUdueRPuH4uB4j7vzxH/hTB8Lj51cKX+WQhgsjI
XVitlJIXInxllpAqzy4iWyMEC6dKP3K9SLZBWKP+nnfFnUvkJQhJwuBZrUFX
yEsRup87ab14u4S8HOFdJ9euRkUp2R5hzurrt2vCZWQHBP/cz7VPr5STAcHP
YbOVj3E5eSVCaozujo6pG+RVCIs8Y1vGRivIzggFYm+3pkkl2RVhrdjuXMzv
P5PdEKRZ8x47CG6S1yJoR9eU7depIn+BIAzpO1Jr+gvZg7v/lI9NgH012Qth
WoVz2jyfGvIGhIezpS2jR2rJGxFqr9SXORTeIm/i8nLeMX+wq468BWFG9uzl
Q7oqsg/CDzNrnhl6NJB9EbIyhVWPUxrJflw+trmLPNuayP4IidbvB6QdbyYH
IAzcWqxubXebvAPBTWPk9dwB3oEI9/MfWU0/cYcchPAE2/cFO/1K/obLu1QW
kvic924EXcWftoEXWsjfIhQtTu9IDLxLDkVwNN4o6//wHnkvwl6tuAe9PbzD
EBqM/7ZszW0lH0DYbhG4xV/URj6IMF+iXz5k0U4OR4g5M8ui8ynvSG5ejtru
mlB0kKMQNFOWiDcl3idHIyheHBi6vrWTHIuwIcVGVrSgi3yUO9effGCg9oAc
j9AWaV0d1847AUHN3Pmk6lI3OQlhzLzR08XlIVnM/W9e/ambJbxTEcalGipH
sx5yGkKv+js/fp3BOx3hjkFRnlSrl3ySy1frArXtEbwzEaIiuyu+e8I7C+HZ
5tMa+3c+IksQmn0j7Ce7eJ9G8FyzxyLWu4+MCE9v9yZta+Sdy+Wp56BesUs/
+Sw/L5W8zyPcnT5gst5hgFyAUB99bEWCnLcUYSSkOyh76SC5ECHUNv5eQinv
Yq7faXLLnUuGyBcRvJWfNeWU8r6MkLdlld73tsPkqwirRQnLNOW8SxFCkpsC
Xts/JssQVBM5u1HJW46gI/DulDmNkMu592wwKr9Qx1uBsGn9Zr0wz1GyEiF/
a1j84TbelVxel6sy5viNkau4vHa6tpsO865G0Bj/KfRM6G/kWgQ0rNIIe8W7
DuGa4W7lYNw4WYUQUS8RJmpNrPgH+b83zQ==
                    "]]}, {
                   Hue[0.37820393249936934`, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd1GlQ1VUUAPAHAqIiGuOgFasBIaElZII94bhCgsSSbLYIAgaRWoDbACEp
IoNLLxQKxRM8FEOREJcEnw95LOpTkE0QWWRVeIogoyiE/fXcD3XPzJ07v7kz
587cc+4xDdzkGawuEokShfV6fxPRx0D034jjvItzIudkzgc5p3BO43yEM3KW
cs7hfIpzPudCzhc5F3OWc1ZwruSs5FzNuY5zI+d7nNs5d3F+wFnF+QnnYc4j
nMc4i/D/VueswVmLszaCY64ypaGtw+GNJyOsLDT02hrs5PjGOggR9WKnrqIg
si6C+URV2FBKFHk6ApZGb1d7tpOshzA6oft8zIEk8gyEdRG6GZNWS8j6CCWR
/heWPEolz0KIEoegzfhR8jsIk2zUrQyWZJINENzL9q1VVmWTjRA+c7JPWx13
kmyC8GlSRN3tH06TZyMEHaqxvazIJ5sh5HSUz+3pLSBbIFQFh+kVm54jWyKc
6Z+pSvj+AtlKOL9jnbrv1t9ka4RlJql2Q1BMnodQJtpr4a6QkT9C8O1QC/bK
k5NtEMYUasOj4yXkjxEcJBKjBO9S8icIC7ZfD7uUoSDbIRyd+mKD1mAZeRFC
drC01cu+gixG6BNbjQ8kVpIdEF6ZSEwrGq6RAcHQ+2L3e3NukJcizDKL8V/x
k5K8HOGwY5u+df1N8kqEh7VWL5fZVpGdhfyax3q6VlSTVyE8rTTWET9ndkXY
URrT1SC9TXZDiDncW9LiV0N2R0geztxyZXIt2RNh0eKB8virzF8g+O3Jyo3c
Wkf2RsjS+Ge30fx6si9CR65hmX0fsz+CmuvbdpjdQP4SoSk1XNwYeIf8NcLy
zOqCx8aN5HUI09bXtLncZw5E2ONWVfQXNpGDEPo7/xjYGHyXHILw4fNrHnGW
zeRvEdSb+luMB5jDhPuzbqSXnrtHDkeYsG2KmWVsC3kjwnrL9++ucW4lb0Yw
W/4iXl+vjfwjQsC+sw+125kjEWa/6zwz3budvEXIp8ry8pExb0MYkNh9kGlx
n7wD4atN6SenH2CORvCQjtprvmCOFeplcmbir4Ed5DgEt5qx+advMscjeKe/
8jG07yTvEvp10RrZBilzAkJCRay+y1td5EQETfk2rakxzEkIstCXqrh+5mQh
X4CtXNOvm7xfqPflmd8UVjAfRNAof6llsbCHLEFo81i/VJnNnCL0a4qVxzP9
XvJhhJAZN+aeTmBOQ9CO+mWp3wjz7wi/BXVZq0IfkI8I73Fl3cLwZuYMhBP+
U85Wuz0ko1DvMdufR+TMmQilAaHtTgv6yFJhntU2XWvPYT6OYD9Yv7/DoJ+c
g1AXsHutg4T5TwR/3WH3Zi0V+RTC58Y7HceimfMQYo2yxE+HmPOFfvmuPm9S
6CNygfA/VPPcPduZCxHSbDaDi89j8nmEpE55bvct5osI8b2tpeZOA+RLCIod
Wd5pMuZihDn5ouM6Bk/IMqF/Z+QbJvsyyxFeT4fJh5ivIriedCmfX8OsQOhx
lLbJdAfJ5cK8qJh2aKUrcyXCqtcDei/zdYSigOZMZTmzUsh/YrF5r8aQ4789
NU3j
                    "]]}, {
                   Hue[0.6142719099991583, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]], 
                   LineBox[CompressedData["
1:eJxd1GlM1EcUAPAVQQGRymVpBcUG0bbcVhGk+DiqoKIGlV4euOGw0iACArbE
g24BBRENwmKQfQiFhYIiBUoMp66AHOW0LCIoRzkE0VbrQVvpX998aOclk8lv
kklm5r03S8UHvfxURCJRnDBez28iSgai/8ZxzhLOcZwTOCdxTuYs5ZzOGTln
c5ZzLuBcxLmEcznnCs41nBWcGzg3c27j3MVZyfku5/uchzmPcZ7k/JjzU84v
OP/NWYT/twpnVc5zOKtz1kRQu7Tcz8t1wumNtRDa9o7pZI2uX/fG2gjR25e4
99v7khcgrPR6lJf+LIysi1A+kvgqNfAEWR9hcGmCrK7yJHkhQq7K1JFXJWfJ
hghDCfu2tJmlkt9FcNzqGDBP/SLZCGH+P3q7CuSZ5MUI+4Keh8iMfiCbICRt
MjpiUiwnv4fQKlud33migGyKUBij+DjFqYhshuATqp2h4VlMXoGg5dRyK35z
CfkDhDmZFWey7MvI5gip21XEupblZEsEccb5ksFF18jWCDqhHrfD9SrItggB
3ZUGJzWqyB8h9EkzihSza8irEf5Im5Tlzqolr0E4pitbW/uK2QGhtA71XObe
IDsiWHv4nbJXV5CdEBbvGHSoM7hJBoRh//JZsiV1ZBeEPy37z/Ra1ZPdEOrd
n6mvcm0gr0dIE2tHJ3rfIrsjyESnzi4LbSRvRIiwFgtLTeTNCON++k0Whc3k
LQiu9u2XXRpbyNuE8yoa9w8/+YXsJeTn7U/eitJqI+9AKArXH5VnMXsjBG44
lOjg0E7+DKEutqeprJP5C4RGW8VVy6AO8i6E06bO5SqaneQ9CIqWPF+RnNkH
oX+mXkNvfRdZLNTnzYHmKyPMvkL+7GIDS2Nvk/2FepBMnVvz4a/k/Qif+jQ8
8G5lPoDwfvL3V64c7iZ/jTBPw3B3v5GSHIRwsvjn5Cc3mYMRau08ZcbBPeQQ
hAnvVo9Hi+6QwxCMjSY9tW4xhyPEHtzXFxnRS44UnLAhT7L8LvkbhM3x06YR
SuYohCory51fxfeRjyKESa2sapz6yccRPlcU3ZA+ZY5GmFp2ut0h/x5ZgnBY
NfinSJv75BiE5S91qsWnmeMQZu/xV66YYD6FoL/ndYcPkBMQNO8MP/bIZU4U
6s9gJsJNbZCchNDV/WRVkx/zOQTf8x0rKxXMyQjJ1yvq08yGyCkIFk5qNZEx
zFKEHx+avcgZZ76AYCOtdhnZOExOF95D8eXovcvMGQjVF90kx3R+I6Ow/6qk
1Cac+ZLQb+0zIRZ3mLMRJD2qhinrRsg5CJOxSp+BbGY5QpNnV8ddzVFyPoKG
3Ts7Yw4xFyCo15t/q6tkvizcxzYvcz6MkYsQzLsujBjnMhcjdPckHfNfME4u
QUiRBiwrjGQuQ5grfal9dJC5HKEy/vnQs00PyNcQvJVawc5lzBUIedZlC4ZN
JshVwn843dEri2euQRi97m514DnzdYQcN93KBPEkWYFQUKjcG97KXIfgHD1Y
L137kNyA8Fdoe9LvcuZGhGnn3dnbFk6RmxG27n5p3vrd1Lp/AZqWRng=
                    "]]}, {
                   Hue[0.8503398874989481, 0.6, 0.6], 
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], 
                   LineBox[CompressedData["
1:eJxd02lQ1VUUAPCnEehLRRAJ0CEwwA1N8Amk5jthyRIDDJoiIgmj4NCL1cAc
RBQFDBNMSCCioxCrC4IwCISPpSfKvr1kkUWQRdSXa45R9tdzP9S9M3fu/ObO
3HvOvecY+wS67ZkuEonihPl6fTMifgbRf0cU56Oc4zif4JzIOYlzCud0zsg5
i3Mu5/OcCzlf4VzGuZKznHMd53rOjZxbOXdyvsW5j/Mg5xHO45zvc/6D81PO
LzhPcRbh/z2dsxpndc4zOIs5z0II9LF3NgtYI33jOQguN7NirEQ7yHMRdF1z
cxLkgWRthIHV2me1ZBFkHQTnNPVPn4hiyLoISzo77AY1E8h6CB96HR53SE0i
GyCsVMjXnnwvjbwQIWSwK8TPDMmGCMrvwu0U/plkI4SNidHavj3Z5EUI1guW
W7Q45pNNEL5olm0bj75ANkN4fDA4z3FHIXkJQrfGdl2nqcvkZQgtz8dn/3mq
mGwunH9jpLN5VQl5JYLmLKOIJW2l5FUIC44MWwb4l5EtEXQu2g0d0CknSxB8
HScDZ8oryFZCvp2qGqXsV7INgviD6jxNk2vktQjHNrgrYgLk5PUInsOru6Uu
1eQNCI8y3mrQsqwhg5BfWah31ru1ZFuEoIgHqabT6sifIOwTPy4+Ncm8CSFA
7+3q4d7fyPYIJXLDeUubFGRHhDFrJ4l99XWyE0JeXIdDaXk92Vn47yz9+Ozi
G2RXhIMHZA1RxTfJbgj6alvnrChqIG8R4g+1e9VQ0kjeiqC++1L4ocomsjtC
8uwvl8XXNJM9ELK7Esuut7eQPRG8pyQPmwJbyV5CPDrrDGJfMu8S3r9HJIOj
bWQfhOEBP0+bue3k3QhRt9oz8zKYfRF+HO4z61veQd6LcCHgWfrTKmZ/hG88
IgeXuXSSZcL+OankyQhzAELXzL2LZPu7yEEIBcbBCb9oKskhCBZSa8meHOZ9
CCcvfVRsAr+TwxBMrk7FPu1l3i/Ud60qe0fYLfIBhMiEl5PzdbvJEQib7s8D
iyLmSITJE6r4zz7vIUchZL7/+kDmI0L/Bt3vDk3tJR9FuKcm0bJa30eOEfb/
rjr05A5zHMJl52SV/vHb5G+FfHvWGF+w6CefQLiaU7BOt5f5JMLzM7dPxx4b
ICci+PSea1TXHyR/j3DX+6xSEsichHA6yDhhUMH8A8LX09NmLDAcIqcg5B8e
DX0YxpyGMGua/LJfC3M6wlbzyM3uS++QMxD669c/1ohmRoQXtS2HNPuZzwnx
CNerbIbJWUI+10xFr5KYsxEanpWmih8x5yIYuKgFGzqPkPOF/50A5eYC5vMI
x9tC39k58y75IsJ2vUU5l/yYCxEqHtiG/qRgLkL4q7A/d77ZKPkKQv0Z1+qh
Y8ylCAs1vFaEjzKXCf3nNmNE226MXI5wPs9cXJHLXInQeDBEx0g8Tq4S6i3F
UTokY5YL9bxFovynmblG6KeMCVOF5QS5DmGbbbhDejKzAiEl87rqq5fM9Qj2
2RtzxnbeI99E2OXRufhqLXMjQmtH1Mftiyel/wLtVUA3
                    "]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]]}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}, {{
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{0, Small, Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]]}, {
                   Directive[
                    PointSize[
                    NCache[
                    Rational[1, 120], 0.008333333333333333]], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    
                    Dashing[{
                    0, Small, Small, 
                    Small}]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {{
                 GrayLevel[0], 
                 Thickness[0.004], 
                 LineBox[{{2149.9, -0.03}, {2149.9, 1.03}}]}, {
                 RGBColor[1, 0, 0], 
                 Thickness[Large], 
                 LineBox[{{2149.8, 1.03}, {2149.8, 1.5}}]}}}, {
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
               AspectRatio -> NCache[
                 Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
               AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
               DisplayFunction :> Identity, 
               Frame -> {{False, True}, {False, False}}, FrameLabel -> {{None, 
                  FormBox[
                  "\"Peak \[CapitalDelta]\[Degree]C relative to ceiling\"", 
                   TraditionalForm]}, {None, None}}, FrameStyle -> {
                 RGBColor[1, 0, 0], 
                 RGBColor[1, 0, 0], 
                 RGBColor[1, 0, 0], 
                 RGBColor[1, 0, 0]}, FrameTicks -> {{{{20, 
                    FormBox["20", TraditionalForm]}, {50, 
                    FormBox["50", TraditionalForm]}, {136, 
                    FormBox["136", TraditionalForm]}, {200, 
                    FormBox["200", TraditionalForm]}, {252, 
                    FormBox["252", TraditionalForm]}, {312, 
                    FormBox["312", TraditionalForm]}, {346, 
                    FormBox["346", TraditionalForm]}}, {{0.25, 
                    FormBox["0.25`", TraditionalForm]}, {0.5, 
                    FormBox["0.5`", TraditionalForm]}, {0.75, 
                    FormBox["0.75`", TraditionalForm]}, {0.96, 
                    FormBox["0.96`", TraditionalForm]}, {1.14, 
                    FormBox["1.14`", TraditionalForm]}, {1.35, 
                    FormBox["1.35`", TraditionalForm]}}}, {None, None}}, 
               GridLines -> {None, None}, GridLinesStyle -> Directive[
                 GrayLevel[0.5, 0.4]], ImagePadding -> {{73, 80}, {50, 35}}, 
               ImageSize -> 1200, LabelStyle -> 
               Directive[FontFamily -> "Helvetica", FontSize -> 18, 
                 GrayLevel[0]], 
               Method -> {
                "OptimizePlotMarkers" -> True, 
                 "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                    (Identity[#]& )[
                    Part[#, 1]], 
                    (Identity[#]& )[
                    Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 1.5}}, 
               PlotRangeClipping -> True, 
               PlotRangePadding -> {{0, 0}, {0.035, 0}}, 
               Ticks -> {Automatic, Automatic}}]}, ContentPadding -> False],
           TemplateBox[{
             StyleBox[
             "\"CO2P D16(med)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P D16(low)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P D16(high)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P FG(med)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P FG(low)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"CO2P FG(high)\"", FontFamily -> "Helvetica", FontSize -> 20, 
              StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C D16(med)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C D16(low)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C D16(high)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C FG(med)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C FG(low)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False], 
             StyleBox[
             "\"\[Degree]C FG(high)\"", FontFamily -> "Helvetica", FontSize -> 
              20, StripOnInput -> False]}, "LineLegend", 
            DisplayFunction -> (StyleBox[
              StyleBox[
               PaneBox[
                TagBox[
                 GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}, {
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                  False, GridBoxDividers -> {
                   "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
                 "Grid"], Alignment -> Left, AppearanceElements -> None, 
                ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
              FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
              False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   
                   RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                    ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12}],
                    "}"}], ",", 
                 RowBox[{"LegendLayout", "\[Rule]", 
                   RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 
            Editable -> True]},
          "Legended",
          DisplayFunction->(OverlayBox[{
             TagBox[
              GridBox[{{#}, {
                 TagBox[
                  StyleBox[
                   TemplateBox[{
                    StyleBox[
                    "\"CO2P D16(med)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P D16(low)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P D16(high)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P FG(med)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P FG(low)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"CO2P FG(high)\"", FontFamily -> "Helvetica", FontSize -> 
                    20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C D16(med)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C D16(low)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C D16(high)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C FG(med)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C FG(low)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False], 
                    StyleBox[
                    "\"\[Degree]C FG(high)\"", FontFamily -> "Helvetica", 
                    FontSize -> 20, StripOnInput -> False]}, "LineLegend", 
                    DisplayFunction -> (StyleBox[
                    StyleBox[
                    PaneBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}, {
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #10, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #11, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #12}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxDividers -> {
                    "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}],
                     "Grid"], Alignment -> Left, AppearanceElements -> None, 
                    ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                    "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
                    FontFamily -> "Arial"}, Background -> Automatic, 
                    StripOnInput -> False]& ), 
                    InterpretationFunction :> (RowBox[{"LineLegend", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    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[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {"SelectionDeparture", 
                    "ParentChanged", "EvaluatorQuit"}]]]], BaseStyle -> 
                    Inherited, Evaluator -> Automatic, Method -> 
                    "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                    ",", #7, ",", #8, ",", #9, ",", #10, ",", #11, ",", #12}],
                     "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 
                    Editable -> True], ShowContents -> False, StripOnInput -> 
                   False], Deploy, DefaultBaseStyle -> "Deploy"]}}, 
               GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
               "Column", 
               GridBoxItemSize -> {
                "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
              "Column"], #2}, All, 2, Alignment -> {0, -1}]& ),
          Editable->True,
          InterpretationFunction->(RowBox[{"Legended", "[", 
             RowBox[{#, ",", 
               RowBox[{"Placed", "[", 
                 RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]}
       },
       AutoDelete->False,
       GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
      "Grid"]},
    {
     TemplateBox[{TagBox[
        GridBox[{{
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -732.786057}, {
                7.384615384615385, -732.786057}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 158.330696}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 158.330696]& , TagBoxNote -> "158.330696"], 
                    StyleBox["158.330696`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[158.330696, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 158.330696}, {
                    1.3846153846153846`, 375.237521}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 216.906825]& , TagBoxNote -> "216.906825"], 
                    StyleBox["216.906825`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[216.906825, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 375.237521}, {
                    1.3846153846153846`, 723.032657}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 347.795136]& , TagBoxNote -> "347.795136"], 
                    StyleBox["347.795136`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[347.795136, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -150.095411}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -150.095411]& , TagBoxNote -> 
                    "-150.095411"], 
                    StyleBox[
                    RowBox[{"-", "150.095411`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-150.095411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -150.095411}, {
                    1.3846153846153846`, -387.738468}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -237.643057]& , TagBoxNote -> 
                    "-237.643057"], 
                    StyleBox[
                    RowBox[{"-", "237.643057`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-237.643057, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -387.738468}, {
                    1.3846153846153846`, -732.786057}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -345.047589]& , TagBoxNote -> 
                    "-345.047589"], 
                    StyleBox[
                    RowBox[{"-", "345.047589`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-345.047589, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 113.766036}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 113.766036]& , TagBoxNote -> "113.766036"], 
                    StyleBox["113.766036`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[113.766036, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 113.766036}, {
                    2.3846153846153846`, 248.30804799999999`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 134.542012]& , TagBoxNote -> "134.542012"], 
                    StyleBox["134.542012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[134.542012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 248.30804799999999`}, {
                    2.3846153846153846`, 465.507693}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 217.199645]& , TagBoxNote -> "217.199645"], 
                    StyleBox["217.199645`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[217.199645, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -104.675465}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -104.675465]& , TagBoxNote -> 
                    "-104.675465"], 
                    StyleBox[
                    RowBox[{"-", "104.675465`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-104.675465, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -104.675465}, {
                    2.3846153846153846`, -260.805679}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -156.130214]& , TagBoxNote -> 
                    "-156.130214"], 
                    StyleBox[
                    RowBox[{"-", "156.130214`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-156.130214, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -260.805679}, {
                    2.3846153846153846`, -475.265042}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -214.459363]& , TagBoxNote -> 
                    "-214.459363"], 
                    StyleBox[
                    RowBox[{"-", "214.459363`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-214.459363, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 90.435781}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 90.435781]& , 
                    TagBoxNote -> "90.435781"], 
                    StyleBox["90.435781`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[90.435781, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 90.435781}, {
                    3.3846153846153846`, 185.041956}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 94.606175]& , TagBoxNote -> "94.606175"], 
                    StyleBox["94.606175`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[94.606175, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 185.041956}, {
                    3.3846153846153846`, 343.59101}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 158.549054]& , 
                    TagBoxNote -> "158.549054"], 
                    StyleBox["158.549054`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[158.549054, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -80.859775}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -80.859775]& , TagBoxNote -> "-80.859775"], 
                    StyleBox[
                    RowBox[{"-", "80.859775`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-80.859775, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -80.859775}, {
                    3.3846153846153846`, -197.538004}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -116.678229]& , TagBoxNote -> 
                    "-116.678229"], 
                    StyleBox[
                    RowBox[{"-", "116.678229`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-116.678229, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -197.538004}, {
                    3.3846153846153846`, -353.350053}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -155.812049]& , TagBoxNote -> 
                    "-155.812049"], 
                    StyleBox[
                    RowBox[{"-", "155.812049`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-155.812049, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    261.198012}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 261.198012]& , 
                    TagBoxNote -> "261.198012"], 
                    StyleBox["261.198012`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[261.198012, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 261.198012}, {
                    5.384615384615385, 504.788541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 243.590529]& , 
                    TagBoxNote -> "243.590529"], 
                    StyleBox["243.590529`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[243.590529, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 504.788541}, {
                    5.384615384615385, 842.185639}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.397098]& , 
                    TagBoxNote -> "337.397098"], 
                    StyleBox["337.397098`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.397098, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -64.157411}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -64.157411]& , 
                    TagBoxNote -> "-64.157411"], 
                    StyleBox[
                    RowBox[{"-", "64.157411`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-64.157411, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -64.157411}, {
                    5.384615384615385, -284.68211199999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -220.524701]& , TagBoxNote -> 
                    "-220.524701"], 
                    StyleBox[
                    RowBox[{"-", "220.524701`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-220.524701, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -284.68211199999996`}, {
                    5.384615384615385, -633.451622}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -348.76951]& , 
                    TagBoxNote -> "-348.76951"], 
                    StyleBox[
                    RowBox[{"-", "348.76951`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-348.76951, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    240.277726}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 240.277726]& , 
                    TagBoxNote -> "240.277726"], 
                    StyleBox["240.277726`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[240.277726, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 240.277726}, {
                    6.384615384615385, 407.245041}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 166.967315]& , 
                    TagBoxNote -> "166.967315"], 
                    StyleBox["166.967315`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[166.967315, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 407.245041}, {
                    6.384615384615385, 612.774851}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 205.52981]& , 
                    TagBoxNote -> "205.52981"], 
                    StyleBox["205.52981`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[205.52981, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -43.223418}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -43.223418]& , 
                    TagBoxNote -> "-43.223418"], 
                    StyleBox[
                    RowBox[{"-", "43.223418`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-43.223418, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -43.223418}, {
                    6.384615384615385, -187.172377}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -143.948959]& ,
                     TagBoxNote -> "-143.948959"], 
                    StyleBox[
                    RowBox[{"-", "143.948959`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.948959, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -187.172377}, {
                    6.384615384615385, -403.978961}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -216.806584]& ,
                     TagBoxNote -> "-216.806584"], 
                    StyleBox[
                    RowBox[{"-", "216.806584`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-216.806584, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    229.681401}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 229.681401]& , 
                    TagBoxNote -> "229.681401"], 
                    StyleBox["229.681401`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[229.681401, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 229.681401}, {
                    7.384615384615385, 359.90092300000003`}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 130.219522]& , TagBoxNote -> "130.219522"], 
                    StyleBox["130.219522`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[130.219522, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 359.90092300000003`}, {
                    7.384615384615385, 506.193525}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 146.292602]& , 
                    TagBoxNote -> "146.292602"], 
                    StyleBox["146.292602`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[146.292602, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -32.703541}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -32.703541]& , 
                    TagBoxNote -> "-32.703541"], 
                    StyleBox[
                    RowBox[{"-", "32.703541`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-32.703541, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -32.703541}, {
                    7.384615384615385, -139.843163}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -107.139622]& ,
                     TagBoxNote -> "-107.139622"], 
                    StyleBox[
                    RowBox[{"-", "107.139622`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-107.139622, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -139.843163}, {
                    7.384615384615385, -297.37217799999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -157.529015]& , TagBoxNote -> 
                    "-157.529015"], 
                    StyleBox[
                    RowBox[{"-", "157.529015`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-157.529015, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -9.753399}}, {{2., -9.757349}}, {{
                  3., -9.759043}}, {{5., 208.734018}}, {{6., 208.79589}}, {{
                  7., 208.821347}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -732.786057}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b1\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2050\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -794.6889309999999}, {
                7.384615384615385, -794.6889309999999}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 274.815643}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 274.815643]& , TagBoxNote -> "274.815643"], 
                    StyleBox["274.815643`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[274.815643, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 274.815643}, {
                    1.3846153846153846`, 337.621668}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 62.806025]& , TagBoxNote -> "62.806025"], 
                    StyleBox["62.806025`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[62.806025, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 337.621668}, {
                    1.3846153846153846`, 787.100818}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 449.47915]& , TagBoxNote -> "449.47915"], 
                    StyleBox["449.47915`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[449.47915, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -54.510009}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -54.510009]& , TagBoxNote -> "-54.510009"], 
                    StyleBox[
                    RowBox[{"-", "54.510009`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-54.510009, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -54.510009}, {
                    1.3846153846153846`, -491.01699099999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -436.506982]& , TagBoxNote -> 
                    "-436.506982"], 
                    StyleBox[
                    RowBox[{"-", "436.506982`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-436.506982, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -491.01699099999996`}, {
                    1.3846153846153846`, -794.6889309999999}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -303.67194]& , TagBoxNote -> "-303.67194"], 
                    StyleBox[
                    RowBox[{"-", "303.67194`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-303.67194, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 230.190141}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 230.190141]& , TagBoxNote -> "230.190141"], 
                    StyleBox["230.190141`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[230.190141, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 230.190141}, {
                    2.3846153846153846`, 250.30777500000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 20.117634]& , TagBoxNote -> "20.117634"], 
                    StyleBox["20.117634`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[20.117634, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 250.30777500000002`}, {
                    2.3846153846153846`, 558.3927110000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 308.084936]& , TagBoxNote -> "308.084936"], 
                    StyleBox["308.084936`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[308.084936, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -47.532343}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -47.532343]& , TagBoxNote -> "-47.532343"], 
                    StyleBox[
                    RowBox[{"-", "47.532343`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-47.532343, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -47.532343}, {
                    2.3846153846153846`, -373.363738}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -325.831395]& , TagBoxNote -> 
                    "-325.831395"], 
                    StyleBox[
                    RowBox[{"-", "325.831395`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-325.831395, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -373.363738}, {
                    2.3846153846153846`, -566.5241510000001}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -193.160413]& , TagBoxNote -> 
                    "-193.160413"], 
                    StyleBox[
                    RowBox[{"-", "193.160413`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-193.160413, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 199.593238}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 199.593238]& , TagBoxNote -> "199.593238"], 
                    StyleBox["199.593238`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[199.593238, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 199.593238}, {
                    3.3846153846153846`, 205.87024200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 6.277004]& , TagBoxNote -> "6.277004"], 
                    StyleBox["6.277004`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[6.277004, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 205.87024200000002`}, {
                    3.3846153846153846`, 445.645236}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 239.774994]& , TagBoxNote -> "239.774994"], 
                    StyleBox["239.774994`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[239.774994, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -41.890674}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -41.890674]& , TagBoxNote -> "-41.890674"], 
                    StyleBox[
                    RowBox[{"-", "41.890674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-41.890674, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -41.890674}, {
                    3.3846153846153846`, -311.713579}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -269.822905]& , TagBoxNote -> 
                    "-269.822905"], 
                    StyleBox[
                    RowBox[{"-", "269.822905`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-269.822905, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -311.713579}, {
                    3.3846153846153846`, -454.066444}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -142.352865]& , TagBoxNote -> 
                    "-142.352865"], 
                    StyleBox[
                    RowBox[{"-", "142.352865`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-142.352865, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    360.335426}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 360.335426]& , 
                    TagBoxNote -> "360.335426"], 
                    StyleBox["360.335426`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.335426, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 360.335426}, {
                    5.384615384615385, 556.846723}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 196.511297]& , 
                    TagBoxNote -> "196.511297"], 
                    StyleBox["196.511297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[196.511297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 556.846723}, {
                    5.384615384615385, 878.425371}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 321.578648]& , 
                    TagBoxNote -> "321.578648"], 
                    StyleBox["321.578648`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[321.578648, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -9.09751}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.09751]& , 
                    TagBoxNote -> "-9.09751"], 
                    StyleBox[
                    RowBox[{"-", "9.09751`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.09751, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -9.09751}, {
                    5.384615384615385, -322.902164}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -313.804654]& ,
                     TagBoxNote -> "-313.804654"], 
                    StyleBox[
                    RowBox[{"-", "313.804654`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-313.804654, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -322.902164}, {
                    5.384615384615385, -677.367262}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -354.465098]& ,
                     TagBoxNote -> "-354.465098"], 
                    StyleBox[
                    RowBox[{"-", "354.465098`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-354.465098, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    337.79575}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 337.79575]& , 
                    TagBoxNote -> "337.79575"], 
                    StyleBox["337.79575`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[337.79575, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 337.79575}, {
                    6.384615384615385, 471.722523}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 133.926773]& , 
                    TagBoxNote -> "133.926773"], 
                    StyleBox["133.926773`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[133.926773, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 471.722523}, {
                    6.384615384615385, 662.944687}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 191.222164]& , 
                    TagBoxNote -> "191.222164"], 
                    StyleBox["191.222164`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[191.222164, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -9.809114}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.809114]& , 
                    TagBoxNote -> "-9.809114"], 
                    StyleBox[
                    RowBox[{"-", "9.809114`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.809114, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -9.809114}, {
                    6.384615384615385, -240.607673}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -230.798559]& ,
                     TagBoxNote -> "-230.798559"], 
                    StyleBox[
                    RowBox[{"-", "230.798559`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-230.798559, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{5.615384615384616, -240.607673}, {
                    6.384615384615385, -460.335464}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -219.727791]& ,
                     TagBoxNote -> "-219.727791"], 
                    StyleBox[
                    RowBox[{"-", "219.727791`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-219.727791, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    323.234935}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 323.234935]& , 
                    TagBoxNote -> "323.234935"], 
                    StyleBox["323.234935`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[323.234935, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 323.234935}, {
                    7.384615384615385, 427.118758}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 103.883823]& , 
                    TagBoxNote -> "103.883823"], 
                    StyleBox["103.883823`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[103.883823, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 427.118758}, {
                    7.384615384615385, 560.048835}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 132.930077]& , 
                    TagBoxNote -> "132.930077"], 
                    StyleBox["132.930077`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[132.930077, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -9.344184}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -9.344184]& , 
                    TagBoxNote -> "-9.344184"], 
                    StyleBox[
                    RowBox[{"-", "9.344184`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-9.344184, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -9.344184}, {
                    7.384615384615385, -197.08487200000002`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -187.740688]& , TagBoxNote -> 
                    "-187.740688"], 
                    StyleBox[
                    RowBox[{"-", "187.740688`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-187.740688, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -197.08487200000002`}, {
                    7.384615384615385, -356.537234}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -159.452362]& ,
                     TagBoxNote -> "-159.452362"], 
                    StyleBox[
                    RowBox[{"-", "159.452362`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.452362, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {}, {}, {}, {}}, \
{{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
                  3., -8.421209}}, {{5., 201.058108}}, {{6., 202.609223}}, {{
                  7., 203.511601}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -794.6889309999999}, 
             BaseStyle -> Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b2\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2100\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}], 
           GraphicsBox[{{{
               Opacity[0], 
               
               PointBox[{{0.6153846153846154, -1096.704333}, {
                7.384615384615385, -1096.704333}}]}, {{}, {{{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, 388.25272}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 388.25272]& , 
                    TagBoxNote -> "388.25272"], 
                    StyleBox["388.25272`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[388.25272, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 388.25272}, {
                    1.3846153846153846`, 716.5086}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 328.25588]& , 
                    TagBoxNote -> "328.25588"], 
                    StyleBox["328.25588`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[328.25588, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 716.5086}, {
                    1.3846153846153846`, 1131.60549}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 415.09689]& , TagBoxNote -> "415.09689"], 
                    StyleBox["415.09689`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[415.09689, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, 0.}, {
                    1.3846153846153846`, -1.687248}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -1.687248]& , 
                    TagBoxNote -> "-1.687248"], 
                    StyleBox[
                    RowBox[{"-", "1.687248`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-1.687248, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -1.687248}, {
                    1.3846153846153846`, -183.275868}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -181.58862]& , TagBoxNote -> "-181.58862"], 
                    StyleBox[
                    RowBox[{"-", "181.58862`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-181.58862, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{0.6153846153846154, -183.275868}, {
                    1.3846153846153846`, -1096.704333}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -913.428465]& , TagBoxNote -> 
                    "-913.428465"], 
                    StyleBox[
                    RowBox[{"-", "913.428465`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-913.428465, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, 360.672782}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 360.672782]& , TagBoxNote -> "360.672782"], 
                    StyleBox["360.672782`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[360.672782, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 360.672782}, {
                    2.3846153846153846`, 571.315752}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 210.64297]& , TagBoxNote -> "210.64297"], 
                    StyleBox["210.64297`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[210.64297, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 571.315752}, {
                    2.3846153846153846`, 898.431737}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 327.115985]& , TagBoxNote -> "327.115985"], 
                    StyleBox["327.115985`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[327.115985, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, 0.}, {
                    2.3846153846153846`, -4.785349}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -4.785349]& , 
                    TagBoxNote -> "-4.785349"], 
                    StyleBox[
                    RowBox[{"-", "4.785349`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-4.785349, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -4.785349}, {
                    2.3846153846153846`, -163.933462}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -159.148113]& , TagBoxNote -> 
                    "-159.148113"], 
                    StyleBox[
                    RowBox[{"-", "159.148113`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-159.148113, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{1.6153846153846154`, -163.933462}, {
                    2.3846153846153846`, -878.392152}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -714.45869]& , TagBoxNote -> "-714.45869"], 
                    StyleBox[
                    RowBox[{"-", "714.45869`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-714.45869, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, 340.631967}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 340.631967]& , TagBoxNote -> "340.631967"], 
                    StyleBox["340.631967`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[340.631967, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 340.631967}, {
                    3.3846153846153846`, 492.08491699999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 151.45295]& , TagBoxNote -> "151.45295"], 
                    StyleBox["151.45295`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[151.45295, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 492.08491699999996`}, {
                    3.3846153846153846`, 768.8402409999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 276.755324]& , TagBoxNote -> "276.755324"], 
                    StyleBox["276.755324`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[276.755324, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, 0.}, {
                    3.3846153846153846`, -6.205358}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -6.205358]& , 
                    TagBoxNote -> "-6.205358"], 
                    StyleBox[
                    RowBox[{"-", "6.205358`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-6.205358, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -6.205358}, {
                    3.3846153846153846`, -149.311475}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -143.106117]& , TagBoxNote -> 
                    "-143.106117"], 
                    StyleBox[
                    RowBox[{"-", "143.106117`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-143.106117, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{2.6153846153846154`, -149.311475}, {
                    3.3846153846153846`, -758.211383}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -608.899908]& , TagBoxNote -> 
                    "-608.899908"], 
                    StyleBox[
                    RowBox[{"-", "608.899908`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-608.899908, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{}, {}, {}, {}, {}, \
{}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {5.384615384615385, 
                    424.430174}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 424.430174]& , 
                    TagBoxNote -> "424.430174"], 
                    StyleBox["424.430174`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[424.430174, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{4.615384615384616, 424.430174}, {
                    5.384615384615385, 985.5776720000001}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 561.147498]& , TagBoxNote -> "561.147498"], 
                    StyleBox["561.147498`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[561.147498, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 985.5776720000001}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 115.396599]& , 
                    TagBoxNote -> "115.396599"], 
                    StyleBox["115.396599`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[115.396599, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 1100.974271}, {
                    5.384615384615385, 1100.974271}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, 0.]& , 
                    TagBoxNote -> "0."], 
                    StyleBox["0.`", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0., {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, 0.}, {
                    5.384615384615385, -66.469291}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -66.469291]& , 
                    TagBoxNote -> "-66.469291"], 
                    StyleBox[
                    RowBox[{"-", "66.469291`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-66.469291, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{4.615384615384616, -66.469291}, {
                    5.384615384615385, -899.498816}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -833.029525]& ,
                     TagBoxNote -> "-833.029525"], 
                    StyleBox[
                    RowBox[{"-", "833.029525`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-833.029525, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {6.384615384615385, 
                    409.148947}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 409.148947]& , 
                    TagBoxNote -> "409.148947"], 
                    StyleBox["409.148947`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[409.148947, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 409.148947}, {
                    6.384615384615385, 855.950332}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 446.801385]& , 
                    TagBoxNote -> "446.801385"], 
                    StyleBox["446.801385`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[446.801385, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 855.950332}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 39.334762]& , 
                    TagBoxNote -> "39.334762"], 
                    StyleBox["39.334762`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[39.334762, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 895.285094}, {
                    6.384615384615385, 895.285094}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 0]& , 
                    TagBoxNote -> "0"], 
                    StyleBox["0", {}, StripOnInput -> False]], Annotation[#, 
                    Style[0, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, 0.}, {
                    6.384615384615385, -62.129752}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -62.129752]& , 
                    TagBoxNote -> "-62.129752"], 
                    StyleBox[
                    RowBox[{"-", "62.129752`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-62.129752, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{5.615384615384616, -62.129752}, {
                    6.384615384615385, -693.097152}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -630.9674]& , 
                    TagBoxNote -> "-630.9674"], 
                    StyleBox[
                    RowBox[{"-", "630.9674`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-630.9674, {}], 
                    "Tooltip"]& ]}}}, {}, {}}, {{}, {{}, {{
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    RectangleBox[{6.615384615384616, 0.}, {7.384615384615385, 
                    398.232356}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 398.232356]& , 
                    TagBoxNote -> "398.232356"], 
                    StyleBox["398.232356`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[398.232356, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 398.232356}, {
                    7.384615384615385, 771.819992}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, 373.587636]& , 
                    TagBoxNote -> "373.587636"], 
                    StyleBox["373.587636`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[373.587636, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 771.819992}, {
                    7.384615384615385, 790.2512049999999}, "RoundingRadius" -> 
                    0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, 18.431213]& , TagBoxNote -> "18.431213"], 
                    StyleBox["18.431213`", {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[18.431213, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, 0.}, {
                    7.384615384615385, -0.157619}, "RoundingRadius" -> 0]}], 
                    "DelayedMouseEffectStyle"], StatusArea[#, -0.157619]& , 
                    TagBoxNote -> "-0.157619"], 
                    StyleBox[
                    RowBox[{"-", "0.157619`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-0.157619, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -0.157619}, {
                    7.384615384615385, -57.341910999999996`}, 
                    "RoundingRadius" -> 0]}], "DelayedMouseEffectStyle"], 
                    StatusArea[#, -57.184292]& , TagBoxNote -> "-57.184292"], 
                    StyleBox[
                    RowBox[{"-", "57.184292`"}], {}, StripOnInput -> False]], 
                    Annotation[#, 
                    Style[-57.184292, {}], "Tooltip"]& ]}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Thickness[Small], 
                    Opacity[0.40599999999999997`]]], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    TagBox[
                    TooltipBox[
                    TagBox[
                    TagBox[
                    DynamicBox[{
                    FEPrivate`If[
                    CurrentValue["MouseOver"], 
                    EdgeForm[{
                    GrayLevel[0.5], 
                    AbsoluteThickness[1.5], 
                    Opacity[0.66]}], {}, {}], 
                    
                    RectangleBox[{6.615384615384616, -57.341910999999996`}, {
                    7.384615384615385, -587.689933}, "RoundingRadius" -> 0]}],
                     "DelayedMouseEffectStyle"], StatusArea[#, -530.348022]& ,
                     TagBoxNote -> "-530.348022"], 
                    StyleBox[
                    RowBox[{"-", "530.348022`"}], {}, StripOnInput -> False]],
                     Annotation[#, 
                    Style[-530.348022, {}], 
                    "Tooltip"]& ]}}}, {}, {}}}, {}, {}}, {}, {
              Null}, {}, {}, {}}, {{}, {{{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]], 
                 GeometricTransformationBox[
                  InsetBox[
                   BoxData[
                    FormBox[
                    StyleBox[
                    GraphicsBox[{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}, {0.25, 0.05}]}], 
                    GraphicsBoxOptions -> {DefaultBaseStyle -> Directive[
                    AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                    GrayLevel[0], 
                    PointSize[0.1]]}, StripOnInput -> False], 
                    TraditionalForm]], {0., 0.}, Automatic, 
                   Scaled[0.08]], {{{1., -7.588113}}, {{2., -8.13144}}, {{
                  3., -8.13144}}, {{5., 201.475455}}, {{6., 202.187942}}, {{
                  7., 202.561273}}}]}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}, {{
                 Directive[
                  AbsoluteThickness[1.6], FontFamily -> "Helvetica", 
                  GrayLevel[0], 
                  PointSize[0.1]]}, {}}}, {{}, {}}}}, {
            DisplayFunction -> Identity, AspectRatio -> 1.2, 
             Axes -> {False, False}, AxesLabel -> {None, None}, 
             AxesOrigin -> {0.6153846153846154, -1096.704333}, BaseStyle -> 
             Directive[FontFamily -> "Helvetica", 18, 
               GrayLevel[0]], 
             CoordinatesToolOptions -> {"DisplayFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 Identity[
                  Part[#, 1]], 
                 Identity[
                  Part[#, 2]]}& )}, Epilog -> {
               InsetBox[
                FormBox[
                 StyleBox[
                 "\"b3\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                  StripOnInput -> False], TraditionalForm], 
                Offset[{0, 0}, 
                 Scaled[{0.5, 0.92}]], {0, 0}]}, 
             Frame -> {True, True, True, True}, FrameLabel -> {{None, 
                FormBox[
                 StyleBox["\" Gross/Negative/Net Emissions (Gt C)\"", 
                  GrayLevel[0], StripOnInput -> False], TraditionalForm]}, {
               None, None}}, FrameTicks -> {{Automatic, Automatic}, {{{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {1., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox["\"med \\nDICE 16\"", TraditionalForm], {0, 0}}, {
                 3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox["\"\\n\\n 2150\"", TraditionalForm], {0, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox["\"low\"", TraditionalForm], {0, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox["\"med \\nFaIR-Geoff\"", TraditionalForm], {0, 
                  0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox["\"high\"", TraditionalForm], {0, 0}}}, {{1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {1.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {2.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {3.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {4.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {5.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {6.5, 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.008, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}, {7., 
                  FormBox[
                   TemplateBox[{0}, "Spacer1"], TraditionalForm], {
                  0.004, 0}}}}}, FrameTicksStyle -> GrayLevel[0], 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 400, 
             PlotRange -> {{0, 7.5}, {-1200, 1200}}, 
             PlotRangePadding -> {{0.2, 0.2}, {50, 50}}, 
             Ticks -> {None, Automatic}}]}}, AutoDelete -> False, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
       FormBox[
        TemplateBox[{
          StyleBox[
          "\"E<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]E<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]E<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"CDR<2050\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"2050\[LessSlantEqual]CDR<2100\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"2100\[LessSlantEqual]CDR<2200\"", FontFamily -> "Helvetica", 
           FontSize -> 20, StripOnInput -> False], 
          StyleBox[
          "\"NE<2200\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False]}, "SwatchLegend", 
         DisplayFunction -> (FormBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.95, 0.95, 0.95]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.9, 0.9, 0.9]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.85, 0.85, 0.85]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.75, 0.75, 0.75]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.65, 0.65, 0.65]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.55, 0.55, 0.55]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], 
                    RectangleBox[{0, 0}, {10, 10}, "RoundingRadius" -> 0]}, 
                    AspectRatio -> Full, ImageSize -> {10, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.5, 0.5}}}], 
                   "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
               "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[{"SwatchLegend", "[", 
            RowBox[{
              RowBox[{"{", 
                RowBox[{
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.95, 0.95, 0.95], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6333333333333333, 0.6333333333333333, 
                    0.6333333333333333], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.95`", ",", "0.95`", ",", "0.95`"}], "]"}], 
                    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.95, 0.95, 0.95]; 
                    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.95, 0.95, 0.95], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.9, 0.9, 0.9], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.6000000000000001, 0.6000000000000001, 
                    0.6000000000000001], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.9`", ",", "0.9`", ",", "0.9`"}], "]"}], 
                    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.9, 0.9, 0.9]; 
                    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.9, 0.9, 0.9], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.85, 0.85, 0.85], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.5666666666666667, 0.5666666666666667, 
                    0.5666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.85`", ",", "0.85`", ",", "0.85`"}], "]"}], 
                    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.85, 0.85, 0.85]; 
                    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.85, 0.85, 0.85], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.75, 0.75, 0.75], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.5, 0.5, 0.5], FrameTicks -> None,
                     PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.75`", ",", "0.75`", ",", "0.75`"}], "]"}], 
                    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.75, 0.75, 0.75]; 
                    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.75, 0.75, 0.75], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.65, 0.65, 0.65], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.43333333333333335`, 0.43333333333333335`, 
                    0.43333333333333335`], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.65`", ",", "0.65`", ",", "0.65`"}], "]"}], 
                    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.65, 0.65, 0.65]; 
                    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.65, 0.65, 0.65], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.55, 0.55, 0.55], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> 
                    RGBColor[
                    0.3666666666666667, 0.3666666666666667, 
                    0.3666666666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0.55`", ",", "0.55`", ",", "0.55`"}], "]"}], 
                    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.55, 0.55, 0.55]; 
                    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.55, 0.55, 0.55], Editable -> False, Selectable -> 
                   False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                   GrayLevel[0], Editable -> False, Selectable -> False]}], 
                "}"}], ",", 
              RowBox[{"{", 
                
                RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                  ",", #7}], "}"}], ",", 
              RowBox[{"LegendLayout", "\[Rule]", 
                RowBox[{"{", 
                  RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
         Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.825424800203508*^9},
 CellLabel->
  "Out[1063]=",ExpressionUUID->"8105ef3b-8d7d-4c6f-9162-37fca85f6fe1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Figure2.tiff\>\"", ",", "FigureABC"}], "]"}]], "Input",
 CellChangeTimes->{{3.8242361051544037`*^9, 3.8242361390374684`*^9}, {
  3.8247550160348682`*^9, 3.8247550205398474`*^9}},
 CellLabel->
  "In[1149]:=",ExpressionUUID->"7f905a86-7551-493e-926c-5529093c0151"],

Cell[BoxData["\<\"Figure2.tiff\"\>"], "Output",
 CellChangeTimes->{3.824236144311759*^9, 3.82475502395648*^9, 
  3.825218402498681*^9, 3.825267993781304*^9, 3.8252749430474486`*^9, 
  3.8254247191668377`*^9, 3.82544119102931*^9},
 CellLabel->
  "Out[1149]=",ExpressionUUID->"16679c01-87b5-42a6-8be9-02196268508e"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Fig3a", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"Grid", "[", 
      RowBox[{"{", 
       RowBox[{"{", 
        RowBox[{"T2100low", ",", "C2100low"}], "}"}], "}"}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Black", ",", "Blue"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<DICE2016\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<FaIR-Geoffroy\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"LegendMarkerSize", "\[Rule]", "20"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8254434098695974`*^9, 3.8254434394336395`*^9}},
 CellLabel->
  "In[1161]:=",ExpressionUUID->"70e2d9c8-c84c-4b3d-b151-b261881e174c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fig3", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "Fig3a", "}"}], ",", 
      RowBox[{"{", "FigureC16", "}"}]}], "}"}], ",", 
    RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.825443081362134*^9, 3.825443084253138*^9}, {
  3.825443120578189*^9, 3.825443295719436*^9}, {3.8254434493756533`*^9, 
  3.82544346788968*^9}},
 CellLabel->
  "In[1163]:=",ExpressionUUID->"93ef48d4-e295-4caa-850c-f98902d3a18a"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{TagBox[
        GridBox[{{
           GraphicsBox[{{{}, {{{}, {}, {
                 Hue[0.67, 0.6, 0.6], 
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]], 
                 LineBox[CompressedData["
1:eJxd1Hsw1WkYB/BTmbPF6aZWLa0iI2GzJHTTs12sLUou6TRIIsKkrFUqWza5
tLKIrVDv44RsVIp0UklSyS0ql4rNyki7SLkmoz11HrOz7zvzm3c+//zmfZ/n
+z4abn62HqMFAoFU9n3aP6/9DBwapHeHGjqXffZBBuZViiKx8xu5QxnccDaw
ntxEjmDwIlJsEGbUJXcUg0NWRv4qgeQYBqbFeyoy88nxDNaVpoaZCN7KfYKB
SkFBbZoFOZlB7XBlX9tRMjJo8bDW76ohpzIIcNl6PEP9ndwZDK7ZLdr40ZOc
xeCtrk9S8yVyNoNVNRcDzIfIuQwaVxT1D1t0yy1lUNPRrjcxjnyDgau52NCp
kVzIIFTq31ep0yN3MQNv6+5ouwByCQORsK6h+ha5nEGY2OuVsVKv3FUMHtuc
iXHfQH7CYGBH970fUsj1DIZMZAX6h9zAoNJUsq92QZ/cTQycBKppaw6QWxgc
nyktnVJCbmPgqzWu6MtJ/XK3MyicrWtv6kjuovucIvcwMIjM0fRuJg8wELLW
llXaA3IPMUjKWj+x2ossQLhvJXHp+oM8GmFZlqn34ddkBYSLwaNu7pzzXm4h
Qp1n5WD8VvJYBPEZdUn1KbIiwmMvf0NhLVmE8DTwmepk0aDcExAEUZ5VVcvI
kxDu+q/J1NhFVkZI672q0MTIUxGmePjNfVVGVkEIOF4sntxLno6g6qd300Tt
g9yqCHaV0/YZmJNnIHh8HX3hkTNZHSG4KkfcG0SehXDzL3N/nziyJoKRo7BG
eJashfAu28Yn8SpZG6FRZNrUfYesg9DlfW3+lHKyruz/Gi03Pj4k6yOUiOzv
3RrxPITWWW1eDmXkbxGEFi61xUVkIwTliLpepTyyMYKug6T9mzSyCYLmXUGk
dgzZDKHT+VBBTyB5EYLvpeeeCWLyEoSwMl1foRnZHEFLGnt5lTIZZJbFy6aN
6rkc4ZiZnkQ7n7wSwb3ceU1JONlC1q+saSsWridbIgxe6X18QIW8GuGnLNu9
6XXUfyuEmiXft1yPJ69FGH4ToVhjTbaR3Sft6ZIJY8i2CFVKu+dF5VL+7BHm
Ci2NQ9zIGxDOWVwU6ownb0SITQw0rMilvG9CeOS3+YtKMdkJYd6DUdcTh+g9
uSB44/vk66fIrgj2ra1q1UvJbgiKT4PUkhrpvboj1KpdKeoJJm9DyOmcqVSt
QfZCqCj/tGg+eCNEb9oy6HKI7Itw4eDypcEryTsQXqRutzGeSN6JkLVY5Xlq
M80jf1n9Sip2jikgByDMCV+3KBbJgQi7LQ1BEknegxB0PrQzbg95L8Lr4Jc+
D33J+xGe1HUvKPMg/yw7b2zCZuFW8kGE/Ppc27Hu5F8QHhqsrtrsRQ5FSHdf
OC7NjxyG8OFyrt2PQeQIhC8SpNG7DpOPyPJ8+LuTFsfIUQhHKu5fSZGQo2X5
THDdZZZDjpH1LzjG43YxOQ7BrN/xtw+15HiEzA7tgfTX5N8RthjrPQ8fIp9A
mN17unT7SD0TEc6/sLKapklORhg3qLTUzZh8GsHJPC5O3YKMCJ+mvZYjWYKw
Ni9ksY0nORVBqSN5W0ggOR1hwO5lWlIoOUM2f3YUvgqPJZ9DOKnfuczoFDkL
odnpjujoWfIFhNSM+f0x2eRshOT5klxTKfkywlf2askRBeRcBB/XTIVf75Dz
EDZ36FSuv0+WyvLxzMHy/QNyPsLi5pjxqWXkGwiJQf7WISP5LODyWsi5iHMx
53ucSziXci7nXMm5ivMjzk8413Ku5/yMcwPnPzk3cW7m3MK5lXMb5785t3Pu
RLht61xYNuIuzu8493Du4zzAeZDzEOdhzoKU/3s0ZwXOQs5jOStyFnGewHkS
Z2XOUzmrcJ7OWZXzDM7qnGdx1uSsxVmbsw5n3RTIq+/IKR2x/n/+F1m3Tf8=

                  "]]}, {
                 Hue[0.9060679774997897, 0.6, 0.6], 
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0]], 
                 LineBox[CompressedData["
1:eJxd1A1QVFUUB/ANcXVAkAH82pARNDJCJDBl8IOjw0QakKFWKmkQAoaGkoEY
KgLjiiKCYSyKe09qSsIQ4mqLgyjKAjkgn5kiFhUiNCiLAiKQ9vQdp+ncmTdv
fvPunbnnf899DiFRgetMFAqFXnqev1+MeAErWvSG4ZYH3i+cIMDNdcX6fZHd
spMF+LhZuk5+RN4j4OeKpBkxc42yUwXkfeNhGxtPThcQph5Qz7hIzhSgGvjA
YugfskZAhLJn12TvHtk5Au4E22QXJ5BRQLTaP7T9CvmEgKKZt7YWjnwoO1fA
mYBD3ZMWk/MFbG7bVeW4n1wooDhts8FQT9YJcBgRF/Nk/CPZeqmex/mRuiBy
iYADnqEjOo+RLwtI2tOk29dJLheQ6HW3fr9br+wqAbmG1uDmWHK1gL0dv954
/xK5TspzgtH9qrJPdpOAo1ZeHdYB5JsCJr0yLm3KIXKLAH2sxWDDbXKrgE9S
oG+sY7/sNik/j5RtZeHkDgGd2/+KrM0ndwloCXMun9pDNkrzf5+QdXrWY9m9
ArTdpyreiyUPCIg7dM6/R08eFtBYNuitfkJWIJzc/uXOPs8B2SYIphWDSqdY
sinCs6zIehMdWYmQnBioi+4mj0Y4PPpV7Zo3nsg2Q5jnUbapIJg8BsFvQkif
r4ZsidAwZ73KtoZsJa0/Z5ve/4xsjRD/prVNk9ugbFuEoIIdGw6uJY9HGLVW
4zculTwRYboxYMH882QVQmpia8/9O2Q7hMaAmrvKEUOy7RHSbZxSw14jT0GI
SmqOuu9DdkS4sWV+/VfB5GkI/i7GcXe2kZ0QpNXrhtLJ0xEKY2zv5R4nOyO4
Ln96rqSI7IJgsG+uNCsluyJEdIjWEAPZDcHiqm95ZhXZHeHrm+YjN1SSZyF8
tsbXrqiMPBvBvUDv6fwT2RNhmYN9StYpshfC9Yol1WcPkuch5Hgc083ZSl4g
zS/KSW74iAwIK7/v9Zv5FnkRgvZ17dmRpmQfhMW77VbX1lGe70j5hWdFbdeQ
30V4e5H3sh9Xk5cghLabZFWqyH4IG+3VZcO/0PkGICz/o9YYtp+8VOq3uU/N
TReSAxEq9qr8rhqpv5Yj5NU8y0vLIX8o5alIcVrqQ/4YYV9kvNPQPernVQhH
LzxcqVWTgxCyLY9qY6eS1yDM3OjpYlFC9+dTqZ8W+uatCiSHIGSEJPjYdND9
DKX+3EkOQ5idkW0eZE+OQKipfj7of/C5VO8K61ujsskbEA5Eux1RJJG/QFCO
bSwt3knehBBg9G8MV5OjpfMZFTdfk0negmDe+FiVeJwcg9B16br/kTPkrQiJ
0bdLfS+StyGE3Kp2+MFAjkfQDMYty7hG3iHVExftv+vlfhPY/hMRRJvlkaqX
TmbfdzPvYd7LnMqcxpzOfJA5k/lbZg3zYeYcZi0zMh9jPsF8kjmX+TRzPnMB
cyFzEbOO+TyznvkCcwlzKfNl5ivM5cwVzFXM15irma8z1zE3MDcx32C+ydzM
3ML8G3Mr85/MbcztzB3MfzN3MT9gNjI/ZO5l7mceYB5kHmZ+yqz47v82YTZl
VjKPZjZjHsNsyWzFbM1syzyeeSKzitmO2Z55CrMj8zRmJ+bpzM7MLv/5X8qx
nkM=
                  "]]}}, {{
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, {
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0]]}}, {{
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, {
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0]]}, {}, {}, {}}, {{
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, {
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0]]}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, 
                TagBox[{
                  Directive[
                   Opacity[1.], 
                   AbsoluteThickness[1.6], 
                   GrayLevel[0.5], 
                   Dashing[{Small, Small}], 
                   Thickness[Tiny]], 
                  LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfTTuLwNDzXyHs2dA4Iv95PZeK+dmBD9xg2xJWxeC
b3z97lrXWQj+483Kh3+uQOIH+DKlbEfwJQ+LcbAfR/B1X6e+nHcVwS9/ETIx
/ymCL7RMPfnbFwT/KI8Dx07GBXC+jKGN02ROBD/J4PfL5wII/gX+NcvEJRD8
mzfXHHssj+BfrCsI0VJH8FP4Wlx59RF8+bpO79NmCP7JE4H7me0QfL5/mdNu
uCL4Tnyut9V9EXxBzoJm4VAEn+NJj8OtGAT/3cycbOkUBD/fas7PH9kI/v2t
fV8DihH8csFitpYqBH9V+PKq4CYE/0zFvJi5nQh+Z8vThc0TEfy8Ark/LjOR
3GsudaRhAYK/8UXq+4gVCD5/aUnH6vUI/tSHJWY3tyH42yyOui/eh+Afy7px
7PlRBL+w3XrlibMIPnd94k/lqwj+2bDKuKg7CL6W5EM13ScIftk27tiq1wh+
rF3bt+TPCH7usk9LNH4j+NkvFQ+mMy2E81nEFzo4cyH4PfKPdWcKIvg2HOIG
pyQQ/I7bs6ZOV0DwD3U+zLivjuAb5Bpuea+N4M8NaPz/Xx/BBwAbVv2/
                   "]]}, 
                 Annotation[#, "Charting`Private`Tag$182212#1"]& ]}}, {}}, {
              GrayLevel[0.5], 
              Dashing[{Small, Small}], 
              Thickness[Tiny], 
              LineBox[{{2100, 0}, {2100, 1.8}}]}}, {
            DisplayFunction -> Identity, DisplayFunction -> Identity, 
             AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
             Axes -> {True, True}, AxesLabel -> {None, None}, 
             AxesOrigin -> {2015., 0.9}, DisplayFunction :> Identity, Epilog -> 
             InsetBox[
               FormBox[
                StyleBox[
                "\"a) delta SAT \"", {
                 FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                 False], TraditionalForm], 
               Offset[{0, 0}, 
                Scaled[{0.8, 0.95}]], {0, 0}], 
             Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
                FormBox["\"\[Degree]C\"", TraditionalForm], None}, {
                FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
               GrayLevel[0], 
               GrayLevel[0], Automatic, 
               GrayLevel[0]}, 
             FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
             Directive[FontFamily -> "Helvetica", FontSize -> 18, 
               GrayLevel[0]], 
             Method -> {
              "OptimizePlotMarkers" -> True, 
               "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                   (Identity[#]& )[
                    Part[#, 1]], 
                   (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                   (Identity[#]& )[
                    Part[#, 1]], 
                   (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
             PlotRange -> {{2015, 2200}, {0.9, 1.8}}, PlotRangeClipping -> 
             True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
             Ticks -> {Automatic, Automatic}}], 
           GraphicsBox[{{{}, {{{}, {}, {
                 Hue[0.67, 0.6, 0.6], 
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]], 
                 LineBox[CompressedData["
1:eJw11QtUTukaB/BvQlOu1VBux1EqURRD5dL4yxSDFIrINWGK3OpkTKRSuhPy
0fjYzx53p6ZEVEJJihoSk4yoGSk1LrEqjOLsMz3vXmuvvX5rX973fS7vNvZe
P2ellkqlylLO/1//ObZKGKWTMnChVyz+caiEq8NS3PV2siMkPIj8tyYtnR0t
4XJsfM9pj9jxEj7d/6HhRpe4DidKCLKtlfrZsJMkuO6Zcn3EQvZBCY7BLW+a
drA1EtK2fXHZLZVNEuwKn/48voJ9TEIv3eqPhz6xT0mw6ZX8drl5fIdTJPje
fOq7xYWdLgFGPfrdCWCfl5DzwTnQNZmdJaFlpe/JusvsXAlRruP3hP7BzpMw
9XNJpk7nhA5fl+BuH+7uZ8YuluD5aatXohO7VEJVyAeflT7sMglO+nMu3gtj
35cQPWPXhMLD7EoJ/1UHJg3JYldJKLIKNqgsY9dIsAiJzy6pZ9dKMIwNnFTf
xn4u4cnnIt2v9HZ1+IWEs48dYGfMbpJwLmNb8QQbdrMEn9LFM3Qc2O8luLiE
20VMZbdJ2BAcfl3tylYR7GW9L4Z6sLUIR/cdrxjgye5MGL4ho8ciYW2Ck/VR
z9vieR3Cwh3vPBa4sbsSBuskyk/FeN0Jlq0HHs+dyO5JyDnyPCdxBFuPYP3Y
VDtsANuAUL5xbEY3bXZvwhC9tL+MXnI8DAlT07QtEkT8+hKGGswcOzed3Z/Q
aZuJ65x49kBCdoH56ACRr0GEzT4ptpI9ezBh/3c9/PN02CaE9wNeZuXf5/ow
JRSFvmjZpWGbE6wOjTPts4xtQQh0Tmp1NmEPJ5xsONfpl6dcv1aEyResltod
Y48klGU/ailfwbYhFIS4pgSYsEcTZpWZR/Wq4X4bQ4j2ra6SNGxbwofmSrWx
J9teyZ/1rK37DdjjCWYmbXGq0pgOTyTMLNKsXhvB/kb5fpPLvfoJbBDWqkuc
o95Gd9iRoDWyWL3yFPtbwhJL+dKxxWxnwr64UenrDNjTCMMcG4Nab0R1eDph
V5fIyVuC2TMJ24xrcyfZsGcp85k9MkF6trPDboQf46LetR1izyFEVbtcLJ3L
dic8yJunq+7Bnkfo3uhV13wzssOehNykHB9NDHshYYZDN8cFLuxFhJf6fjt7
G7KXEPqm1w6vqI3o8DIlflFrMoty2N6E4mWFp22T2T6E8LqAV+ow9irCOV0b
q6tx7O8Jtv8Z1GdpHtuPEDz9dky7JY+3luCs+3e3f+1hryOcuah9oWsTewPB
ffeYrB7f8fo2Kf0QF/Prag07kBA2ufykRyM7SIm3sadHr685nj8Q2r9alFIc
xP6R4F//8fTZTPZWwu4a51utr9khSj9Zr/HON+P8hRJudlndZDefHa6sb8hv
m0Mi2BFKv656++uFVPZOwp+laXWqe+xogn7berPgZnYs4XZRpuxowPUVr8T3
2OywACv2LkLECrXDsCnsRML6Fk1zyDz2XsLESu+Lu1exkwirt1NVUABbTTCe
37jAbRv7IOFJ0d2B40R9/0RoOXLL1zWarVHiOdZx0rkY9hFCzTTK3ynuk1Jv
ftMzXon3f1byr372l8F29jElXz8Nbhy0mX2CcHdLwmJHf/YpwsNFY++cXc4+
Q6io++xx0p2dQjg93WvRCmf2LwS/yIbgEXbsdML35xoDPIayMwjHK+/ajzFi
nydktltajviSfYGA2PEBae843lmEzvaX4+wa2DmE/v1dO8+uYucq860/Gn/w
LvsKQX2gzfXKTXae0s8FQw9HF7KvKeP1N3hnL3xdqb8XLa9eX2ffIMydOPLM
ceFigqY9bJOX8C3C1wN89uoLlxIKU8P7FhewbxNSr5qptguXKfvtxjFTbYXL
CfXxFi9fXmPfV/pJT+vtceEKwoSE8+5LhCuV/a4T+hgJ/07I1zo4uiyfXUW4
VeCYGiP8hNBVSt0xRbhGWV9SZWZ7HvtPwqa1DlOyhGuV/9lrD8sA4TpC7ECT
dSOFnyv1Hbm/a+NVdiNhzZthqhPCLwimy6tneQu/IpzQWLcOEm4iBI3p2fLo
Cvut8j+yCJ6RLNys7B+Tm97PE24lxIT4t/cWfk8wH7ds/r3L7L8JB2vuf7lX
uI3QuD+j+2zhT4QDxV1W6wmrZJjqXutTlsvWktHv+e9GicKdZdgcrvB3E9aW
8SbrlKG+sI4MqVOJfvkldlcZrecLlu4T7i4jz0z12V24p4zsBO0mQ2E9GWec
vh31MIdtIGN25KSCQ8K9ZTT13nR8ibChjJJcjwfGwn2V+Tv5eD7LZveX8U2Q
kcVp4YEyFvdtcPIXHiQj1PLh2VHCg2U0bl6+pjWLbSKjuvDjxkvCpjLosXFh
qLC5DOur93ychS1k3Bkd59ZdeLiMfNW1qPKLbCsZ09+80U1W/D9XoLh7
                  "]]}, {
                 Hue[0.9060679774997897, 0.6, 0.6], 
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0]], 
                 LineBox[CompressedData["
1:eJw11Qs0lekaB/Cd6SIJNSIllWLcqgk1bjWPYaY0Og4p6aLESNLOsgwt01CN
7pRRTbqM7/ncolMmnR1GdCRFYQ9nNCmXXHIpl9So6WKc8834773WXnv91v7W
+73v+9xmb9np9ZWaTCYrkL5//f792S1QU3/HUt/1R+hv7xFIq6lXWxEFxwnU
qL1rs+w0fEigJQWO230K4HiB0pSNLsYNcKJADuvuJ2n9Dz4pkHOsuKx3ztER
Jwt0ItO59rwbfF6g4vftxRphMAvkNaAbbnIaThfoarHeYPMNOEugi/lj8yy6
4EsC5Uyc0j6kHT/iKwJNMB02W2EPKwSqnzAmdFwAXCBQfuxXGeYJcJFApyyL
KjPy4RKBmkelKMLa4DKBdm/50SJ2YsKIKwS67zvvygU7uEog86f+wacC4Brp
PKX73jsfg+sESlJP2JxWANcL1LC/0+FyG9wo0JoYg3hPzWMjbpHe13fGZO8i
+IlAj5sXdVv6wd0CBW9M66ADcK9AT1bGHM25DA9I9xMoy9pSBw8K9On0n+Ur
3sFvBHoR5xfrNfP4iIcEqrR80BDkAsuYth27NBQeBKsxpdueK/c/BI9m2mne
dXRGNjyWKdG6TS2xAlZn8u745ovUTliDaZl3ljxlVOKINZmMvbMfztGGtZic
C9Q07k+HdZjyXi9dnfERPJmpdr1T0UFrWJdJs8LvudwJ1mO6uM/TbeXn8FSm
30ftVequhKcx2bpZmeevgg2ZXmgNpJv4wkZM1/ONF3puhGcxvZ3n4GuxGTZm
EqICnEV/eC6Tu4EdZ6hsyrTn7Lo8U9XzZkzjV5388kPVehZMyps2ou9a2Iop
pPhxcJcnPJ/JJ8oqL9sN/pjJM66uL/5T2Jppvvfwtd02sK10Xz/veBxgAi9m
irzg6GE1BbZjOr3Gpe2GGuzANDHrk7SxjYiHE9OSF+fnlVyGlzJ5BV4WI6Jh
Yiosst/Q4wx/xtTQ4jq4fTTsyvStsUeS/A7y6QsmNcuDemcOwsuZXk0OOJOy
DF7B9PBESafTWNidKcI8x8LxFvL/H0zZ+5PubouB/8nktm3x8bRPYC+mJ/XR
B2r6UY/eTH0vL2v3pMFrmNQjh/TVfeC1Uv5O060OUIfXSe/rjyyOKEC/2MC0
SRnqox4M+zHVvKhtC50Kb2YyuWI/7qdK9K8tTDc7DZ1+j4MDmcyu6de+Xg4H
MU2Tl3SVG8HBTLk2+5X/mgWHMO1Kfl29cS0cyuSRWN8fsw+WMzVp+C9aI8Jh
TMml3wXl58Hh0vmitvbplcERTOXzOrsy78GRUjyUTTlRqv3uYjowO/zd2XI4
mim1L7nwyxJ4N1OphyHNzIdjpPOff2W+LEfV/5me/eSzdiAL3jdST2UZqnnA
NPM/+U8XpMIHmKqVqVH3UlTzgek76wRTn3PwEaYu2wmK96r5Ec8Umtuw9dRJ
+BjTGwN9LdfvVfNDytdwff9nCXCSdH/RGVZpR1TzhGmGY1bZ6oPwD0yVOuWF
U1XxSWZa8+sr1wd74LNMOr9MDkz/Fj7P1BMWcUoeDacw/fX456p5x9J6e41C
pkfAqVL/u21waygMTmfyb38X1bQDzpTuvzr8YUUInMV0vM3wa8VW+CJT3YSl
1dmB8CUmh6rT+uwP50jxz3vuKfjBV/C/ah5fZYqefm5Gtip/FExbtdzmKVbD
eUwrbzzsvOMFFzBNnv9kUqMHXCidV80v6I07XCTFJ6Nwj/4K+AaT5RRv7yXL
4BKmuNhJtkGucCnTpAsnQk85w2VMJ5uqusuXwnek+rSWh8ic4AqmBa01653s
4XtMW1KdNWIWw1Uj/fGWDayU9nNgeLzWQrhGWt9GN2rDfPi/Un/TNzO/YgnX
Sf36pW/KOHP4N6neE5w/CjSF65nad36zr2wO/Eiq3/LNt81nw43S/kp1O5JU
9drMtHFK1m2ZIdzC5BimPBRuALcxGd22f9atBz+R+uGF9oUBunAnU5LTgz9a
J8HdTK0/HE8P1IafSfmQff1qjybcy/TjI4PMSA24X1pvqmPrGHV4gOn7/A1/
Jo+BXzLt3TTH7eMP4EGpvh0uhVXK4NdSPb+tyw0ZPjziN1K+6D8vnzgEv2Na
/2tRu+ItPCTlb+vc6k1/wMPS/JIGtNYrWCaSnbvt8psvYTWRgnN170YNwKNF
6ry7aIx1PzxWpNgPNSYN9MDqIm3qM1PmPoU1RIq0K1wR1QVrinTYzHQndcBa
Im2zr3GZ2A7riDTOpErR1AJPFokOBVbkNsO6Il2zcd9xuBHWE+n+11mZgY/g
qSLl7vAMcqmHp4k0ZlX1JZPfYEORktafkE+og41EMm7RuThYC88SKeTV/dWt
v8DGIv3pXiyvrYbnijR+e0BvWSVsKlLgXcPK63dhM5Hez9H8IK8cthBJHNyf
+O/bsJVIoxbYhCpuHab/A7RSsmA=
                  "]]}}, {{
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, {
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0]]}}, {{
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, {
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0]]}, {}, {}, {}}, {{
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]]}, {
                 Directive[
                  PointSize[
                   NCache[
                    Rational[1, 90], 0.011111111111111112`]], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0]]}, {}, {}, {}}}, {{}, {}}}, {{{{}, {}, 
                TagBox[{
                  Directive[
                   Opacity[1.], 
                   AbsoluteThickness[1.6], 
                   GrayLevel[0.5], 
                   Dashing[{Small, Small}], 
                   Thickness[Tiny]], 
                  LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIQfTTuLwNDzXyHs2dA4Iv95PZeK+dmBD9xg2xJWxeC
b3z97lrXWQj+483Kh3+uQOIH+DKlbEfwJQ+LcbAfR/B1X6e+nHcVwS9/ETIx
/ymCL7RMPfnbFwT/KI8Dx07GBXC+jKGN02ROBD/J4PfL5wII/gX+NcvEJRD8
mzfXHHssj+BfrCsI0VJH8FP4Wlx59RF8+bpO79NmCP7JE4H7me0QfL5/mdNu
uCL4Tnyut9V9EXxBzoJm4VAEn+NJj8OtGAT/3cycbOkUBD/fas7PH9kI/v2t
fV8DihH8csFitpYqBH9V+PKq4CYE/0zFvJi5nQh+Z8vThc0TEfy8Ark/LjOR
3GsudaRhAYK/8UXq+4gVCD5/aUnH6vUI/tSHJWY3tyH42yyOui/eh+Afy7px
7PlRBL+w3XrlibMIPnd94k/lqwj+2bDKuKg7CL6W5EM13ScIftk27tiq1wh+
rF3bt+TPCH7usk9LNH4j+NkvFQ+mMy2E81nEFzo4cyH4PfKPdWcKIvg2HOIG
pyQQ/I7bs6ZOV0DwD3U+zLivjuAb5Bpuea+N4M8NaPz/Xx/BBwAbVv2/
                   "]]}, 
                 Annotation[#, "Charting`Private`Tag$190065#1"]& ]}}, {}}, {
              GrayLevel[0.5], 
              Dashing[{Small, Small}], 
              Thickness[Tiny], 
              LineBox[{{2100, 0}, {2100, 1.8}}]}}, {
            DisplayFunction -> Identity, DisplayFunction -> Identity, 
             AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
             Axes -> {True, True}, AxesLabel -> {None, None}, 
             AxesOrigin -> {2015., 650.}, DisplayFunction :> Identity, Epilog -> 
             InsetBox[
               FormBox[
                StyleBox[
                "\"b) C atmos\"", {FontFamily -> "Helvetica", FontSize -> 20},
                  StripOnInput -> False], TraditionalForm], 
               Offset[{0, 0}, 
                Scaled[{0.8, 0.95}]], {0, 0}], 
             Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
                FormBox["\"GtC\"", TraditionalForm], None}, {
                FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {
               GrayLevel[0], 
               GrayLevel[0], Automatic, 
               GrayLevel[0]}, 
             FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
             GridLines -> {None, None}, GridLinesStyle -> Directive[
               GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
             Directive[FontFamily -> "Helvetica", FontSize -> 18, 
               GrayLevel[0]], 
             Method -> {
              "OptimizePlotMarkers" -> True, 
               "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                   (Identity[#]& )[
                    Part[#, 1]], 
                   (Identity[#]& )[
                    Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                   (Identity[#]& )[
                    Part[#, 1]], 
                   (Identity[#]& )[
                    Part[#, 2]]}& )}}, 
             PlotRange -> {{2015, 2200}, {650, 1100}}, PlotRangeClipping -> 
             True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
             Ticks -> {Automatic, Automatic}}]}}, AutoDelete -> False, 
         GridBoxItemSize -> {
          "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],
       FormBox[
        TemplateBox[{
          StyleBox[
          "\"DICE2016\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False], 
          StyleBox[
          "\"FaIR-Geoffroy\"", FontFamily -> "Helvetica", FontSize -> 20, 
           StripOnInput -> False]}, "LineLegend", DisplayFunction -> (FormBox[
           StyleBox[
            StyleBox[
             PaneBox[
              TagBox[
               GridBox[{{
                  TagBox[
                   GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 20}, {20, 20}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 20}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.30000000000000004`] -> 
                    Baseline)], #, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 20}, {20, 20}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 20}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.30000000000000004`] -> 
                    Baseline)], #2}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                   "Grid"]}}, 
                GridBoxAlignment -> {
                 "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                False, GridBoxDividers -> {
                 "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
               "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[{
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                   GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                   RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                   False]}], "}"}], ",", 
              RowBox[{"{", 
                RowBox[{#, ",", #2}], "}"}], ",", 
              RowBox[{"LegendMarkerSize", "\[Rule]", "20"}], ",", 
              RowBox[{"LegendLayout", "\[Rule]", 
                RowBox[{"{", 
                  RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
         Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{OverlayBox[{
         GraphicsBox[{{{}, 
            GraphicsComplexBox[CompressedData["
1:eJzt1/k31fsex/FNGi4dUYZya6eSuCqaULr5pBKalHOolAxFQoYyZKpExSkV
qUi+HyXpioZDbUNxUBlKJGQohVO3Dsf0sb+OorNvPvv9/eX8A3et7Rfrubb9
XXt9fD18XzMcPbfskebxeMNSPN7/vn//CmaQfZed51DzH8bf+wiDrKrRVb5L
10iHM+hp+b7OKW20TzLIcE7m6Wk63SN9ikHBRhb2jQ60zzJIvnvljsILtM8z
yF9TgXiW077EoO7japssh2gnMmiRwYvIa7o9I40ZNODb3hrjQDtF9H4pt136
sbTTGDSxteBpfAntWwza8fKYTGE/7TsMstCyPXRds3eks0SvF7llrbShLRBd
Ly0q5eQJ2vkMujPQFez2gHYhg0pTm2wbPtAuYdC899PLCpT7RrqUQXXVk1Xk
VtN+xqBtCobXUr1pVzFIc9q2SSFJtF8xKNQm0SugnPZr0XnmfDML66fdLDpP
7X+UHJtORvodgwq18+/sMaPdLnp/cWO0ghft/zLIvfdDrPsF2h0MmhJ6N9Mh
j3Y3g97r4cj6t7SJ6HzdP0Zm8/pHeoBBQf8897xVnfZXBmltq5ljakybh9G2
24unPbGlLY2RyqXsFjM/2jIYfeVvNs+Kpj0GI7/fT9R2ptAeh9GseSoJjQLa
shhNf51svKuc9niM8vcJ/tzVQFseo/nBgSGFv9FWwEg9fS/r1EV7IkaBRR++
zRXSVsJowKYheuhP2ioY/f7iXuf9QdqTRT9f+Hll1gBtNYz4j8zTHhPaUzGy
z1wac0V8fT5Ggsah3AefaKtjpBNVmezaRnsmRoMD5bJ/NNPWwOhd3mFZjzra
mhi5P6+4IVVFWwsjR3WZyodltP+FkddP1QoZxbTnYmT4Sj+x7iHt+RglfZM9
u0J8XnoYtc836Ptwj/ZCjIKH63dWZdBejFGJj4LXYBptfYxevnmvsVt8/oYY
me4vlxuPaS/DqHmmwKv7Mu3lGGkVX/GfcIn2CoyKsh11Xc7TRhj5LipP6j9L
2wQjy4OazwWnaa/G6IG6emlmFG1TjH4r979Re4K2GUYmfQ5ndCJoW2AUmtp5
NzOM9nqM/vOoeNPOI7Q3YpTM8xUsCaVtKfo8V4Mt9INpb8FIb6HigZ2BtH8U
3V93ajNuBtC2xshI2T98ij/trRhNPbwiOt2X9naMCu9e8bQ7SHsHRgnHchr0
DtC2w8j4Pomc4UPbHqPE0mBzXW/ajhitutPQsdWL9m6MIsYetbriSdsZI5+x
Hi5f9tP+G08z2qXbljhznqZcnja+uoXztGFuhHLxHM5T4deYCqcdnKd5OrN8
m6I5T32MItbXF3CeTrZ79OZJF+ep0puemh4+52nbPiWliA2cp+1XGZIQxHkq
o2WYgG5ynq6zf3f+UB3nacpwsrPJKM5Tp6ylW2J0OU8Vtrbe2GHLeTrn1vqc
c8c5T+3TBKem3+U83flo4+7exl7wdHemtUb/KM5Tg6awK4pzOU+bb6UU61lx
nrbXV7xadojzVM9jyE81ifNUaUCtMuPXPvCUNxgb2d7WB57aCt90JMtwnm7c
P7WmYhbnKW9j1Z21KzlPDS3iYwd3cJ6ade7ml/kR8HTU64xjF6MJeBru8TrE
PIWAp8oHI0yLHhDwdIF53Kn2UgKeSvXkusTUE/DUNWC2RUYbAU8LlJZ3K3cS
8PRhyk8bb/UR8LTzYnzQJpaAp1t5l+PfiFvkKa9u3kBmPwFPtSfFFMX2EPB0
bcvoKuMOAp6eqn8wTvcDAU+zVUtu3m8h4KkgtGW2YgMBT22kcm2cXxLwdPhr
x7zqCgKeav3yOd7pMQFPL5YUrtMuIODpYosN8do5BDw9XyT/cu8vBDxFcyPn
fsog4OlRZTv39DQCnnbG3bS+fY2Ap0cNmVEkiYCnrYtqVAMSCHj6afBAx1Lx
/0+Rp3NkT6QbxBDw1Ckl28lT/PsUefrllKZKSxQBTwOkNArDTxDwNKWy1MEu
nICnL/1ipPcdJeDpZOSbdT2UgKcyy97HTQgm4Om3CWNrrh8i4Kkpcz7V2Z+A
p0Jrxe2WvgQ8TSgTrnE4QMDTNe/iqy96E/BUZ22fT68nAU81TmzO9NxPwNPV
Vl+V5T0IeNq4p9L8mRsBT5c1lgnT9hHwtPjezbqrrgQ81Y/1uS3YS8DTt6Nl
rD65EPC02To9aZG4RZ5+SRQEXnAm4On5AJVGBXGLPD1Z3J6TvIeApw/3qsww
E/ffeCqlblXgsZfzNGvjlIZXHzlPIyo0lXt1OU/bUjUdclw5T1uyF+SpX+U8
jRl+u+J+A+ep3KvQMbUKPeDpnv2bFzxYy3nqouqXfySU8zS/d72VaTbn6ap1
PxcrdnCe5nqNGW6f2Que/sBKL8zfxnmqpce3PHOW87TTPGu61VPOU1mbM7KD
Q5ynq1SD7h5c3AeeelcF7ry3j3s+NSpda52MOU8Py0Sq69Zxnl5b8TjdTI6A
p8ujJh1oNCbgaXmp5cUq8f0l8vTJZe8+lRvc86lyXqB2vPjvX+SpVyWTbiLX
D57mrXX+ddioHzy9GfHjKYFbP3jqfKtDzjahHzwdtM7nVz/lnk8LGs6GjRY/
r4k8DS03qGnlC8FTvrdilJWZEDx1NVQZXuklBE/jtro4XrogBE+/6bWXoDwh
eLqgRH/87LdC8DR2Qq5w/jcheLrdRl3NjM+Cp/o7A1u3GbHgqcDQ7twGaxY8
jTPf9e/xnix46mcX+zI0ggVPN18rmRQdz4Knx9xHJ85MZ8HToa+q7zVyWfC0
qY7RD3nCgqcH5yvXTKpiwdPatgN1VXUseLpEes2WxEYWPBW6vrOya2LBU36w
4pSgBhY8LXtxeFRRLQueticlCprF1xd5qudze6JJBQueqvg3V61+zIKnrAmZ
xC9gwdOlAcuaiIAFT0+rldq23WPB07FaWZWDt1jwVOmH57NNb7Dg6T0LGbYi
mQVPNQ/JvD6TyIKnWc7aVrEXWfC0O8w5ti6GBU/D9q5p3hrNgqfNM9TfTI5i
wdNUnstnpeMseBr3KVVjXRgLnr5rLo/JCWXB05XeQYvsgljw9Lah7TiDABY8
re+Un2biy4KnpjruP4f4sOCpvUNhyEfx/SDy9PSWet1QDxY8naK0uMvYjQVP
4x6Wq+m4suDpDEvPmStcWPA0/PTU4/57WPA0Zbt2ba0TC56+zg7MsHFkwdOQ
ptzcL/YseCr/LDi9U/y6ZO9L9r5k70v2vmTvg6eSvS/Z+5K9L9n731uy9yV7
X7L3JXtfsvfBU8ne///c+38Bc/Ee4A==
             
             "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}, {
                EdgeForm[], 
                Directive[
                 GrayLevel[0], 
                 Opacity[0.2]], 
                GraphicsGroupBox[{
                  
                  PolygonBox[{{86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97,
                    98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 
                   110, 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121,
                    122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 
                   133, 134, 135, 136, 137, 138, 139, 140, 141, 142, 143, 144,
                    145, 146, 147, 148, 149, 150, 151, 152, 153, 154, 155, 
                   156, 157, 158, 159, 160, 161, 162, 163, 164, 165, 166, 167,
                    168, 169, 170, 255, 254, 253, 252, 251, 250, 249, 248, 
                   247, 246, 245, 244, 243, 242, 241, 240, 239, 238, 237, 236,
                    235, 234, 233, 232, 231, 230, 229, 228, 227, 226, 225, 
                   224, 223, 222, 221, 220, 219, 218, 217, 216, 215, 214, 213,
                    212, 211, 210, 209, 208, 207, 206, 205, 204, 203, 202, 
                   201, 200, 199, 198, 197, 196, 195, 194, 193, 192, 191, 190,
                    189, 188, 187, 186, 185, 184, 183, 182, 181, 180, 179, 
                   178, 177, 176, 175, 174, 173, 172, 
                   171}}]}]}, {}, {}}, {{}, {}, {}, {
                Hue[0.67, 0.6, 0.6], 
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]], 
                
                LineBox[{1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 
                 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 
                 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 
                 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 
                 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 
                 76, 77, 78, 79, 80, 81, 82, 83, 84, 85}]}, {
                Hue[0.9060679774997897, 0.6, 0.6], 
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]], 
                
                LineBox[{86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 
                 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 
                 111, 112, 113, 114, 115, 116, 117, 118, 119, 120, 121, 122, 
                 123, 124, 125, 126, 127, 128, 129, 130, 131, 132, 133, 134, 
                 135, 136, 137, 138, 139, 140, 141, 142, 143, 144, 145, 146, 
                 147, 148, 149, 150, 151, 152, 153, 154, 155, 156, 157, 158, 
                 159, 160, 161, 162, 163, 164, 165, 166, 167, 168, 169, 
                 170}]}, {
                Hue[0.1421359549995791, 0.6, 0.6], 
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]], 
                
                LineBox[{171, 172, 173, 174, 175, 176, 177, 178, 179, 180, 
                 181, 182, 183, 184, 185, 186, 187, 188, 189, 190, 191, 192, 
                 193, 194, 195, 196, 197, 198, 199, 200, 201, 202, 203, 204, 
                 205, 206, 207, 208, 209, 210, 211, 212, 213, 214, 215, 216, 
                 217, 218, 219, 220, 221, 222, 223, 224, 225, 226, 227, 228, 
                 229, 230, 231, 232, 233, 234, 235, 236, 237, 238, 239, 240, 
                 241, 242, 243, 244, 245, 246, 247, 248, 249, 250, 251, 252, 
                 253, 254, 255}]}}, {{
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}}, {{
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {}, {}, {}, {}, {}, {}, {}}, {{
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Thickness[Large]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[Tiny]]}, {
                Directive[
                 PointSize[
                  NCache[
                   Rational[1, 90], 0.011111111111111112`]], 
                 AbsoluteThickness[1.6], 
                 GrayLevel[0], 
                 Dashing[{Small, Small}], 
                 Thickness[
                 Tiny]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {{{{}, {}, 
              TagBox[{
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[1, 0, 0], 
                 Dashing[{Small, Small}], 
                 Thickness[Large]], 
                LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIwzV3MwFAz3+HsGRD4Yv+LY5eBTz2Cv5+NMXFGE4L/
2PHz0X2dCH7A1iv3sicg+Kd3KBZ+n4bgP/h9iV1wHoJvV14ctHEJgm9qVLHw
/moE36r2ReabTQh+B4PHs/qdCH7BYe70hQcQ/IX79s32PI5kn+ddzwtnEfwd
Igl/nlxB8G+KX0pquI3gT4lacXblIwQ/VvfVxo0vEfx8C2kvhw8IvlTzhmcx
3xF8PjZTc4Z/CL7fE75jM5gWwPlzeC3XKrAh+HyXo95lcyL4vjvWGf7jQfA3
Wv46FyyA4Ms0/14xQxjBD36j16oijuCv/xi5u1gKwb8htv0zpxyCz8FyKqNf
EcGP6b1ifkMFwa81E+TM0EDwD1W7muzWRnJvp/6cv3oIvvo2b7Z2IwQ/tT7+
1GVTBD8/Y+mEdEsEf97bRxv22SD4V6yu8bI6IPjXl//OmeSM4P/bIKH22A3B
/3Qz/WGVF4L/9lTOTUY/BJ8nIlPbJxDB/8Eyo/5uCJL//fbpGkUg+ArxsyTK
ohF8lgkrWBnjEXze2HU+/kkI/q5sq2XqKQh+WtWx//9TEXwA1MH7TQ==
                 "]]}, 
               Annotation[#, 
                "Charting`Private`Tag$110321#1"]& ]}}, {}}, {{{{}, {}, 
              TagBox[{
                Directive[
                 Opacity[1.], 
                 AbsoluteThickness[1.6], 
                 RGBColor[1, 0, 0], 
                 Thickness[Large], 
                 Dashing[{Small, Small}]], 
                LineBox[CompressedData["
1:eJxTTMoPSmViYGAwAWIwzV3MwFAz34EBDH7Y/+LYZeBTj+DvZ2NMnNGE4D92
/Hx0XyeCH7D1yr3sCQj+6R2Khd+nIfgPfl9iF5yH4NuVFwdtXILgmxpVLLy/
GsG3qn2R+WYTgt/B4PGsfieCX3CYO33hAQR/4b59sz2PI9nnedfzwlkEf4dI
wp8nVxD8m+KXkhpuI/hTolacXfkIwY/VfbVx40sEP99C2svhA4Iv1bzhWcx3
BJ+PzdSc4R+C7/eE79gMpgVw/hxey7UKbAg+3+Wod9mcCL7vjnWG/3gQ/I2W
v84FCyD4Ms2/V8wQRvCD3+i1qogj+Os/Ru4ulkLwb4ht/8wph+BzsJzK6FdE
8GN6r5jfUEHwa80EOTM0EPxD1a4mu7WR3NupP+evHoKvvs2brd0IwU+tjz91
2RTBz89YOiHdEsGf9/bRhn02CP4Vq2u8rA4I/vXlv3MmOSP4/zZIqD12Q/A/
3Ux/WOWF4L89lXOT0Q/B54nI1PYJRPB/sMyovxuC5H+/fbpGEQi+QvwsibJo
BJ9lwgpWxngEnzd2nY9/EoK/K9tqmXoKgp9Wdez//1QEHwAfgQNJ
                 "]]}, 
               Annotation[#, "Charting`Private`Tag$110368#1"]& ]}}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0.96}, 
           DisplayFunction :> Identity, Epilog -> {
             InsetBox[
              FormBox[
               StyleBox[
               "\"c\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
                StripOnInput -> False], TraditionalForm], 
              Offset[{0, 0}, 
               Scaled[{0.5, 0.98}]], {0, 0}]}, 
           Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
              FormBox[
              "\"delta SSA above preindustria (in \[Degree]C)\"", 
               TraditionalForm], None}, {
              FormBox["\"Year\"", TraditionalForm], None}}, FrameStyle -> {{
              Thickness[Large], 
              Directive[
               Thickness[Large], 
               Dashing[{Small, Small}]]}, {
              GrayLevel[0], 
              RGBColor[1, 0, 0]}}, FrameTicks -> {{{{1., 
                FormBox["1.`", TraditionalForm]}, {1.1, 
                FormBox["1.1`", TraditionalForm]}, {1.2, 
                FormBox["1.2`", TraditionalForm]}, {1.3, 
                FormBox["1.3`", TraditionalForm]}, {1.4, 
                FormBox["1.4`", TraditionalForm]}, {1.5, 
                FormBox["1.5`", TraditionalForm]}}, None}, {{{2020, 
                FormBox["2020", TraditionalForm]}, {2030, 
                FormBox["2030", TraditionalForm]}, {2040, 
                FormBox["2040", TraditionalForm]}, {2050, 
                FormBox["2050", TraditionalForm]}, {2060, 
                FormBox["2060", TraditionalForm]}, {2070, 
                FormBox["2070", TraditionalForm]}, {2080, 
                FormBox["2080", TraditionalForm]}, {2090, 
                FormBox["2090", TraditionalForm]}, {2100, 
                FormBox["2100", TraditionalForm]}}, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImagePadding -> {{60, 70}, {50, 10}}, 
           ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, 
           PlotRange -> {{2015, 2100}, {0.96, 1.55}}, PlotRangeClipping -> 
           True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
           Ticks -> {Automatic, Automatic}}], 
         GraphicsBox[{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]], 
              LineBox[CompressedData["
1:eJxd0XtIE3AQB/A1e6y0soiS1B5iJjXKxErC7DAxXdlDmskaI4eFBSUFQX8Y
jBgVFmUvipn+riyKWmUSlKmoS22V5ZAl0jIKVhgsGqIhPaTlGdH34Ljfh/vn
fnfzrSV5O7UajcYYyj91JEoVySO4ZqTYwHbwcfBJcDn4PPgS+DKYwdfAN8FO
cA34AfgRuAHcDG4Fu8EdYA/YC+4BvwW/V3T3hK9YU/JF7FdU9fVG+/qVn8V9
ivTfLvaeO/ZRHFBkqLQluI5+EAcVvbrV+To/4BMPKKLllsc5Ed3iIUVRF7wT
i+M84p+KhvyFV7pTnoo1TF1nzMNrvzeKtTw6X414LNOBslP+/rlnxeP/9kdD
B54EjgBPAUeCp4NngGeCo5i0ufbJm+7ZZb7ZTOsWHNQ6dBXiGKakfdVjGsZd
Fc9hWqZzxpiKbovnwX/jmI5syQltuFYcz5Sm9zo+xT4UJzB5MnuCA4Y6cSKT
e8LqCqOqFy+CfeqZerPCDoXHN4uXMIU5dNFVlhZxElO5azDRfNolTmbq27M4
dPEn4hSmwNL6hVPD28QrmCqnXW9smdUuTgWv4v/vm8bkiy4tTDa6xelgYurv
yrVGFjwTZ4AzmVoz7ux+t/+5OAuczfTDvLdtuPaF2ADewORM37b9flOHeCN4
MziPyTRY96bs10vxVnA+uABsYrJlNx2OTe0Um8EW8A6wFVwE3vXPvwHjnFOA

               "]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]]}, {}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 60], 0.016666666666666666`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[Large]]}, {}}}, {{}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
           DisplayFunction :> Identity, 
           Frame -> {{False, True}, {False, False}}, FrameLabel -> {{None, 
              FormBox[
              "\"Probability for staying below 1.3\[Degree]C\"", 
               TraditionalForm]}, {None, None}}, FrameStyle -> {{
              Thickness[Large], 
              Directive[
               Thickness[Large], 
               RGBColor[0, 0, 1]]}, {
              GrayLevel[0], 
              RGBColor[1, 0, 0]}}, FrameTicks -> {{{{20, 
                FormBox["20", TraditionalForm]}, {50, 
                FormBox["50", TraditionalForm]}, {136, 
                FormBox["136", TraditionalForm]}, {200, 
                FormBox["200", TraditionalForm]}, {252, 
                FormBox["252", TraditionalForm]}, {312, 
                FormBox["312", TraditionalForm]}, {346, 
                FormBox["346", TraditionalForm]}}, {{0.25, 
                FormBox["0.25`", TraditionalForm]}, {0.5, 
                FormBox["0.5`", TraditionalForm]}, {0.75, 
                FormBox["0.75`", TraditionalForm]}, {1., 
                FormBox["1.`", TraditionalForm]}}}, {None, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImagePadding -> {{60, 70}, {10, 10}}, 
           ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, PlotRange -> {{2015, 2100}, {0, 1}}, 
           PlotRangeClipping -> True, 
           PlotRangePadding -> {{0, 0}, {0.005, 0}}, 
           Ticks -> {Automatic, Automatic}}]}, ContentPadding -> False],
       TemplateBox[{
         StyleBox[
         "\"Median\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"0.05/0.95 Quantile\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"Probability\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False]}, "LineLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
               "}"}], ",", 
             RowBox[{"{", 
               RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", 
               RowBox[{"{", 
                 RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
        True]},
      "Legended",
      DisplayFunction->(OverlayBox[{
         TagBox[
          GridBox[{{#}, {
             TagBox[
              StyleBox[
               TemplateBox[{
                 StyleBox[
                 "\"Median\"", FontFamily -> "Helvetica", FontSize -> 20, 
                  StripOnInput -> False], 
                 StyleBox[
                 "\"0.05/0.95 Quantile\"", FontFamily -> "Helvetica", 
                  FontSize -> 20, StripOnInput -> False], 
                 StyleBox[
                 "\"Probability\"", FontFamily -> "Helvetica", FontSize -> 20,
                   StripOnInput -> False]}, "LineLegend", 
                DisplayFunction -> (StyleBox[
                  StyleBox[
                   PaneBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[Large], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxDividers -> {
                    "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}],
                     "Grid"], Alignment -> Left, AppearanceElements -> None, 
                    ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                    "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
                  FontFamily -> "Arial"}, Background -> Automatic, 
                  StripOnInput -> False]& ), 
                InterpretationFunction :> (RowBox[{"LineLegend", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
                Editable -> True], ShowContents -> False, StripOnInput -> 
               False], Deploy, DefaultBaseStyle -> "Deploy"]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          "Column"], #2}, All, 2, Alignment -> {0, -1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8254430852931395`*^9, {3.825443186426282*^9, 3.825443296950438*^9}, {
   3.825443452035657*^9, 3.825443468679681*^9}},
 CellLabel->
  "Out[1163]=",ExpressionUUID->"7680a107-84a1-4e8d-b636-87858eacb745"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Figure2alt.tiff\>\"", ",", "FigureAB"}], "]"}]], "Input",
 CellChangeTimes->{{3.825424812007025*^9, 3.825424817027032*^9}},
 CellLabel->
  "In[1164]:=",ExpressionUUID->"1ca6a6e2-f4e1-4a5c-8484-1b2a4b0d8cca"],

Cell[BoxData["\<\"Figure2alt.tiff\"\>"], "Output",
 CellChangeTimes->{3.8254248196780357`*^9, 3.8254434793706956`*^9},
 CellLabel->
  "Out[1164]=",ExpressionUUID->"91dd177f-6a63-452c-88ee-922667cc859f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Figure3.tiff\>\"", ",", "Fig3"}], "]"}]], "Input",
 CellChangeTimes->{{3.8254434836627026`*^9, 3.8254434918537145`*^9}},
 CellLabel->
  "In[1166]:=",ExpressionUUID->"05f318c2-90e9-4021-ab0c-53afe2389e89"],

Cell[BoxData["\<\"Figure3.tiff\"\>"], "Output",
 CellChangeTimes->{{3.8254434883037095`*^9, 3.825443492933716*^9}},
 CellLabel->
  "Out[1166]=",ExpressionUUID->"e56142e1-19b1-4658-93ad-4fa49db2e8f3"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CO22030priceslow", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGlow", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2150"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "350"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", "Green", "]"}], ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "25", ",", "50", ",", "100", ",", "150", ",", "200", ",", "250", 
            ",", "300"}], "}"}], ",", "None"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2020", ",", "2050", ",", "2100", ",", "2150"}], "}"}], 
          ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<CO2 Price in year 2030 in US(2015)/tCO2\>\"", ",", "None", ",", 
        "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<low CDR cost\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "3"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PeakTemplow", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGlow", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2150"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.03", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", "Green", "]"}], ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"False", ",", "True"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"False", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "20", ",", "50", ",", "136", ",", "200", ",", "252", ",", "312", 
            ",", "346"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "0.25", ",", "0.50", ",", "0.75", ",", "0.96", ",", "1.14", ",", 
            "1.35"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "None", ",", 
          "\"\<Peak \[CapitalDelta]\[Degree]C relative to ceiling\>\""}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "3"}]}], ",", 
     RowBox[{"ImagePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"73", ",", "80"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "35"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FigureSI6Alow", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"Overlay", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"CO22030priceslow", ",", "PeakTemplow"}], "}"}], ",", 
       RowBox[{"ContentPadding", "\[Rule]", "False"}]}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Darker", "[", "Green", "]"}], ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", "Black", 
           ",", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}], ",", "Dashed"}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}], ",", "Dashed"}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Darker", "[", "Green", "]"}], ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}], ",", "Dashed"}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price D16\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price D13\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price D07\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price FG\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D16\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D13\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D07\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C FG\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.824291319967455*^9, 3.824291408724327*^9}, {
   3.8245432835415044`*^9, 3.824543290565054*^9}, {3.8245433422162733`*^9, 
   3.8245433842018743`*^9}, {3.825216874398455*^9, 3.825216908357504*^9}, 
   3.8252171238648095`*^9, {3.825217157077857*^9, 3.8252172574449997`*^9}, {
   3.825217295183053*^9, 3.8252173848321805`*^9}, {3.825217414891223*^9, 
   3.8252174701893015`*^9}, 3.8252680117443295`*^9, {3.8252680662954617`*^9, 
   3.8252687966174927`*^9}, {3.825269339895258*^9, 3.8252694737204475`*^9}, {
   3.8252704416720543`*^9, 3.8252704856181164`*^9}, {3.8252705280281763`*^9, 
   3.8252705288481774`*^9}},
 CellLabel->
  "In[1014]:=",ExpressionUUID->"b9bf0358-8b32-44d7-97cc-01e96fa9d4fd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<FigureSI6Alow.tiff\>\"", ",", "FigureSI6Alow"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8252694769414515`*^9, 3.8252694996844835`*^9}},
 CellLabel->
  "In[982]:=",ExpressionUUID->"4e43ee37-64b2-46b1-bc78-be23d8fb6aea"],

Cell[BoxData["\<\"FigureSI6Alow.tiff\"\>"], "Output",
 CellChangeTimes->{3.825269500744485*^9},
 CellLabel->
  "Out[982]=",ExpressionUUID->"c071771a-7cf7-40ef-a282-a321e4bfb261"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CO22030pricesmed", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGmedium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2150"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "350"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", "Green", "]"}], ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "25", ",", "50", ",", "100", ",", "150", ",", "200", ",", "250", 
            ",", "300"}], "}"}], ",", "None"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2020", ",", "2050", ",", "2100", ",", "2150"}], "}"}], 
          ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<CO2 Price in year 2030 in US(2015)/tCO2\>\"", ",", "None", ",", 
        "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<medium CDR cost\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "3"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PeakTempmed", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGmedium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2150"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.03", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", "Green", "]"}], ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"False", ",", "True"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"False", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "20", ",", "50", ",", "136", ",", "200", ",", "252", ",", "312", 
            ",", "346"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "0.25", ",", "0.50", ",", "0.75", ",", "0.96", ",", "1.14", ",", 
            "1.35"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "None", ",", 
          "\"\<Peak \[CapitalDelta]\[Degree]C relative to ceiling\>\""}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "3"}]}], ",", 
     RowBox[{"ImagePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"73", ",", "80"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "35"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FigureSI6Amed", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"Overlay", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"CO22030pricesmed", ",", "PeakTempmed"}], "}"}], ",", 
       RowBox[{"ContentPadding", "\[Rule]", "False"}]}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Darker", "[", "Green", "]"}], ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", "Black", 
           ",", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}], ",", "Dashed"}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}], ",", "Dashed"}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Darker", "[", "Green", "]"}], ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}], ",", "Dashed"}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price D16\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price D13\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price D07\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price FG\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D16\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D13\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D07\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C FG\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.82527004890333*^9, 3.825270167743498*^9}, {
  3.8252705045111427`*^9, 3.8252705232071695`*^9}},
 CellLabel->
  "In[1011]:=",ExpressionUUID->"2dd91ae9-8ad3-4c7c-ad92-0ff5a5b4de2d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<FigureSI6Amed.tiff\>\"", ",", "FigureSI6Amed"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.825270180615516*^9, 3.825270185586523*^9}},
 CellLabel->
  "In[992]:=",ExpressionUUID->"d4193bc1-7c79-4054-ac52-0125cae5cc4f"],

Cell[BoxData["\<\"FigureSI6Amed.tiff\"\>"], "Output",
 CellChangeTimes->{3.8252701869765253`*^9},
 CellLabel->
  "Out[992]=",ExpressionUUID->"40333152-35df-40f3-a8b0-d08e2e46511a"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"CO22030priceshigh", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGhigh", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "44"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2150"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "350"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", "Green", "]"}], ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "10"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "1"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "25", ",", "50", ",", "100", ",", "150", ",", "200", ",", "250", 
            ",", "300"}], "}"}], ",", "None"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"2020", ",", "2050", ",", "2100", ",", "2150"}], "}"}], 
          ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<CO2 Price in year 2030 in US(2015)/tCO2\>\"", ",", "None", ",", 
        "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<high CDR cost\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.50", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}], "}"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "3"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PeakTemphigh", "=", 
   RowBox[{"ListLinePlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGhigh", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2150"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRangePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.03", ",", "0"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Red", ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Darker", "[", "Green", "]"}], ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "Dashed", ",", 
          RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"False", ",", "True"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"False", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "20", ",", "50", ",", "136", ",", "200", ",", "252", ",", "312", 
            ",", "346"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
           "0.25", ",", "0.50", ",", "0.75", ",", "0.96", ",", "1.14", ",", 
            "1.35"}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
         "None", ",", 
          "\"\<Peak \[CapitalDelta]\[Degree]C relative to ceiling\>\""}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"None", ",", "None"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "1200"}], ",", 
     RowBox[{"AspectRatio", "\[Rule]", 
      RowBox[{"1", "/", "3"}]}], ",", 
     RowBox[{"ImagePadding", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"73", ",", "80"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"50", ",", "35"}], "}"}]}], "}"}]}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FigureSI6Ahigh", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"Overlay", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"CO22030priceshigh", ",", "PeakTemphigh"}], "}"}], ",", 
       RowBox[{"ContentPadding", "\[Rule]", "False"}]}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Darker", "[", "Green", "]"}], ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}]}], "}"}], ",", "Black", 
           ",", 
           RowBox[{"{", 
            RowBox[{"Blue", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}], ",", "Dashed"}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"Red", ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}], ",", "Dashed"}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Darker", "[", "Green", "]"}], ",", 
             RowBox[{"Thickness", "[", "0.002", "]"}], ",", "Dashed"}], "}"}],
            ",", 
           RowBox[{"{", 
            RowBox[{"Black", ",", "Dashed"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price D16\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price D13\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price D07\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<CO2Price FG\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D16\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D13\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C D07\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<\[Degree]C FG\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.825270200702546*^9, 3.825270289094726*^9}, {
  3.825270547211203*^9, 3.825270556342216*^9}},
 CellLabel->
  "In[1017]:=",ExpressionUUID->"3db5da93-d0ae-4fcd-ac25-97f7fa3156e3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<FigureSI6Ahigh.tiff\>\"", ",", "FigureSI6Ahigh"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8252703435678596`*^9, 3.8252703495878687`*^9}},
 CellLabel->
  "In[1000]:=",ExpressionUUID->"f1492682-33e7-47ec-9a39-173dcec59e89"],

Cell[BoxData["\<\"FigureSI6Ahigh.tiff\"\>"], "Output",
 CellChangeTimes->{3.8252703064177504`*^9, 3.82527035061887*^9},
 CellLabel->
  "Out[1000]=",ExpressionUUID->"c296a0cd-3027-4705-8384-1cc7e5b9f68a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FigureSI6A", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", "FigureSI6Alow", "}"}], ",", 
      RowBox[{"{", "FigureSI6Amed", "}"}], ",", 
      RowBox[{"{", "FigureSI6Ahigh", "}"}]}], "}"}], ",", 
    RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.825270308910756*^9, 3.825270384685966*^9}, {
   3.8252705713352375`*^9, 3.825270591008265*^9}, 3.825270635405328*^9},
 CellLabel->
  "In[1023]:=",ExpressionUUID->"633841c3-4cad-44a4-ad60-73dd4e012ddb"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     TemplateBox[{OverlayBox[{
         GraphicsBox[{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1H801lccB3DMrKU5No2YPDTJr9Jkz6LFB2WeyK/Hr0ny8/FbEXLK9BDR
Mjzya3T4VERYmVTPiT1JhjWZ2Tr5NbOOXzUdNotmju277j07Z/eec889r3P/
+Nx7z+d99YIPe4QpyMnJ5XDz3/XlSK2CN/hJOsXecfDS4irQ9PHX/s+ZjHMY
5zIuYFzEuIzxecbIuJpxHeNGxk2MWxhLGbcxbmfcybiHcS/jfsY/Mh5kPMp4
nPEE4xnGs4znGf/B+AXjFcZy+H8rMFZkrMR4DeO1jNcxVkF45cH0aKw7tSpC
r/RKumgn9VsIArOoJRNV6vUIPjOnwmJGYonVEcYX7q35pYJ6A0KtpOT+iAe1
FkJ8b/OWdHlqbYRlMYQP1MUQ6yCIhleLiwXUughTv5qv1E5EE29C2Gi1e67r
OLU+t69Q2l2+jtoAQXFKTygrjyI2RNjBT7x+ZzO1MYJn7sIHelcjiU25+19Z
8nSxoN6GYJU0eb1NGkG8HaFZLSDjh13U5gh+i/pNlnfCiS0QUkrPvuhzoOYj
XEj35R/tFxHvRJhY/HZLwwFqKwT1nMqib2bCiD9EsMCxXK1j1NYIj60TogeU
qAEhAr7SfL8slNgOIVH54Jl2Y+o9XL2lLlWxLITYAeFRZHVNgpDaEaHrzLXk
oqfBxPsQSht4FRMZ1M4IHW7Zb8dpU7sgFKyXBBXfCiJ2Q9gvG5py8KT2QIj5
XqFl6++BxJ4IXqPSr1ck1N4If0ue9EfuoPbl3vO17zINGg8R+yH8pNy7du/z
AGJ/hATz+AZdW+oABJNs9aG+/IPEgdz5hr4IM3/sTxyMYGly0WCZTx2KoHJJ
NyU1/wCxCMEs7pJ821M/4giEmtN8uXcE1FEI2xc2rnTWf0wcg/CqR/CjRRXq
OATdZyfFN5J9iY8gdD+fW+4d9yFO4PrbTOTk7UKdiGDjlaUULPMmTka48efJ
h5L3qFMQDNMfWKbUehEfR5gfcw+x06VORcgc/NxuusKTOA3h8qFNY1Za1GKE
wSDn5RMVQuIMhCCP1FQ7HnUm1w/2wuTlGg/i01y+zrmHbTCjzkEIl8pX8Vrd
iT9FEJbo5SUJqHO5fE4lnLow7Each3Ct+aaRThx1AULjZ1+qBShSFyL0DGRv
q7N0JS5CcAW1oHuHXYhLEHLTk7Rt6vcTl3H/hanRsaonzsTlCN6maULfrdTn
EXy7f7OvSXIirkSo7sosc+rYR4xcfkYNRk3UqC8iuOXHah6JEBBXc/1mq2+f
d9eR+DJCW9HtUG0edR3CiHNWir74I+J6BIkRL6N+0oG4ESF6TugV4UJ9FeHN
o4KHya17iZsQftYorW8xoW5GSFs9MT9ctYe4BcHg7F/5zhrUNxE6AwwDdxXa
E0sRFvsiGgpVqW9z+Wrnpa1K7IjbEGarZabP1KllCJt5rcpFlbbE7Vy9grC7
nUbUHVw9y0Cfc7eAuBPhdXcZZjlSdyGEBC/Ex0ptiHu4/+mTqUbXSWvi+5yN
xyunNah7Ed6tnBU5uO6GfwCBbXi5
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1Hs012ccB/DfTG7nt8hEo4sk6cdECQl9Vvj9fu6jiZTctdaUUi6HXDM1
xZbTrKk++GnWXBtyzBpDhHMSXXdomyk6LNpM08X2XZ/n7Jw9zznPec7rn+/z
fN7fz/MsD9vnG6kkEolyhPnv+moknwddy/Sgp48i4ZXTzkPwzLjXf87inMM5
l3M+5wLOhZyLOCNnBedyzhWcazjXcW7k3My5hXM75y7OvZz7ON/kfJfzIOef
OY9wHuM8wXmK8zTnvzi/4CzC/1uJszJnFc5qnDU4iznP56zFWZuzDoLiY0+z
eWPMughzDatkEwPMixC0eqLmy2uZ9RH6c10GAjOZFyPEHhK1D7kzL0U4PmKW
riNmNkSoUUq+PNseQTZCwLbkxPR4ZmMEr7PSjlRjZhOEzsbh4fLecLIpwsau
8VbFfmYJws7SB6C5gNkc4YSrU3VCVRjZQjhfXrZflJzZEqFAJ0DkNxxKXosw
z6qvvjqR2RphBswsRzSZbYT6XfoK5WUhZDuELKmB1Nye2R7hbrhR2b2zu8gO
CO49su++7AwmOyH0qRdnWvy+kwwI32tMDT1cwrwZYbwtqdTffQfZGUHFTcM8
LSmI7Iqg760cu7RyO1km1OulniMfCyS7IRw+cfp1RwmzB8InfacPro4NIHsh
hE926P3WvI3sg+Dvdn1a+w1mX4Rbp2alP4X6k7ciLE7pVVX+9j2yP8LQmbgg
o0XMAQgvc3bVZiduJW9HGItKxcH7fuQdCNK4602uMuZghFb96IEF9b7kEASD
pnvLTE2YwxD+nBktWf7Fu+QIIa/wgujgN5mjhPpsvQ915fmQdyMsk8s1t2gy
70GY0pX5vDD2Ju9FqP+lxnrKyoscg3DN/zM/JVdP8n6Ej94SEg31IB9AsI2x
2mSb4U6OQ0h5WOG94aIb+TDC4wkzzf47cnKCkG+Rx6BEzJyEoOGp7d7tIiMn
I7itdCi+c1RKPiLUc0SRI+5xJacJ+Yu3qYIuc4bQf3usEgqjXMhZCJfcHn0e
3OxMzkaoVQymnNRjzhH6sfD2hdr4LeTjCE+0rnr/OriZnIuw8O9456OuzCcR
JHkxWS7175DzhfvRIDk2sYr5U4T4SD1x1XkgFwj9+Nof+asNmE8j+Mw9XrLe
ZhO5EMGwsLRz0tGJfAYhsGzaY42nI7kIoXFFkW5zhAP5HILTigX6rRkbyYhw
3xGePii3J5cgTNq5SA/c2kBWIJg8H32/RY35gnAfzmrZj222I5cL+3lXXmnK
sCVfRPjAPPTD3Gs25ArhfTh+8OaNhcxVCD86zM+cjV5PrhG+3/YkWaXFmnwJ
IcTftP/lYuY64f+N71NvSV1HbkDIPmWd6jG6ltyIoGZYf+yUH3MTQrUzPlPt
sCI3I+y9oVRXac98BWGDWYnJszpLcgtCarE099w65h+E/lUc7ZHsXUNuF/Jz
uJ0rTrIgX0W4/E21gyzvbXIXgp327pqvvjYndyN0zyXqW/aZkXsRlhjFeK18
LoF/ANhI0BI=
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1HtQ1EUcAPCTOZMcZVCBTAEPkkc8FU5APPAr0nWSKQ/Ri4cnZzy0U0SI
x3mD6PBSz6AkUVT4Kr54hSIxDKiZkokRRl3AKAb5AF8lMiilYP30u/3R7szO
zueP3e9+d7+7NurE0FgjkUiUL/RX4+umKwOXpy7Gd23XwmtnlUF8yamxO/85
m3M+Zz3nQs5FnPdxPsgZOR/lfJJzNedTnOs5N3I+y/kC5xbOVzi3cf6Js4Fz
N+cezn2c73C+x/kR50HOw5z/4jzKWYT/txFnMec3OBtznsh5EmcTzqacpyKM
GJ0JmDKL2QzBuWfoc7OJzBYIvZrktc8H1OTpCIG7NANbmplnILhZGrca5TJb
Ilhqd+WNKJitEb4LK5D6jGeWICy+q/qhqjmGbIsQc2z7TqcNzLMRDLovdZoZ
zPbC+tUzH5u0rCE7CvOVu+2q1zM7IchulHv3mDC7IJy4OqIPVKvIbghLWyIH
estXk+cgHC6r6HK9HU32QMhNnuwptWGWIswxxOREro4ieyEMXDojfvtAJNlH
2K9eYRbRHUH2RfjF81yL0oJZhiD/cVXr9+Efkf0RfqtaaT+6V0kGhGsubwaH
XV9FDkDouzEcv1DCHIgwN0bqfCNhJVmOIGkYTqisDycrEI5ujFdliJmDEMTj
PFIeRa0gL0UI0k6PONQcRl6GsF+xzqtgFnMwQrFlWtCEHaHkUATzFug6/yyE
vALBv7hiyWAC80oE4XoqVb3BZCVCdN+Q0jOCOQLh9+LnGWGnl5OjhPzMfGtP
f72MvBrheuHWONNLH5LXICxPK01v71xKVgv5u7349MSTD8gfI9xKdujeOo05
DsF9nb4zZEEQOQFhtp3fpJr1S8jrEYZv1rh0lCnIGgQnvat4fs/75I0IUSl1
Bq0V8yaEpLY6h22xcvJmBN90e+mSuvfIKQjbW3fbfjKeORVBu2K0d0p0IDld
qIfkP1PPNS0ma4XzlrdfLLVk1iHUS4pGkrIDyJkIE/b9bZI5uIicJcx/UfHk
5xjm7Qh2te1zJV1AzkYoF4/lWIcw5yIY3z6RlFi6kJyP8Oq68Yg/eaeQn2+/
bG2tH1mPYOXr9/jyRRn5M4SxOHWTae8CciGC49Ds+yXjmL8Q4hdObW5w9iUX
IYyGGPZviZpP3oswbY3ypW6PD3kfgu28P9QlHd7kEoTGGleZuznzQYSGnIFj
apUXuRSh4mlmuVXtPDIi7Dm+qEMmZj6CEK5pe5ivkpKPInTeChPpv/EkH0fI
8xLNNLVjPim8z64j4xMKPMiVCNZ5346av5xLrkbwSaj1t97M/BXCZo+kKsmD
OeRTCN7BfYd0ccx1CN3bkuVF7e7keiFeYszN9C43coNQb4pj3R33XMmNCJHF
Mw6XjWNuQui4ZnhoYeNCPovQKkmbclzhTD6PcP+AdPLOVCfyBYRnhgdVVZXv
ki8iPMjwtjDrdyS3CP+X8SbtWw7MlxEK9L/2/7PBgXwFQVMn9wtstidfRXin
KT66fDJzG0Js6OKZWbF28C8J1rTh
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1AlQVVUYB/CHvVxAHwYqisQmGQGPAHEJWT6QRQgBX8gjZHEQ2Yy92HwW
GBQJNJhIRCxfsgsBohGgCWNQggsWCq8gwVGbxBdiGqNG1s3zjTOdO3PnzG/O
mbN893+uUXiCbM88kUiUJ7z/tU8fRRWsbzeXrrEOhqfOqoLxrCHNZ87hnMe5
gHMR52LOpZzLOSPnGs4NnJs5t3E+ybmT82nOvZz7OJ/jfIHzZc5XOCs5j3Oe
5HyT82+cVZxnquDB2QqNZ37A9T/kPMdZhP/3PM5izvM5L0Tw6izySLQiqyO0
eBn/ZahDXoygq+srTrqzk1mC0HzrkrfVcfJSYbwyLNV3L1kLYabniEqpS16G
MGylcPU+G8S8AiF7X6VTXDh5JULFbpjNnHuTWRfhl/S0iOZDZD2EwUfhd/uN
yfoIfwRPfPh+WyCzIYL+pKfGp5vJxggPrxsaDfbJmU0QHvSldGR5k9ciWFh0
Gsz8GMBsiqDokEhmA8lmwvpHQqw6r+1gtkAIa7+3Kz+CbIlgaFZY+tOUP7MV
gnledsv+JLINwlD2rYWrHr3BbIvg39Taop5D3oAwZv2OPHU5eRNCo8+C9spG
GbMdwinVaMW0M9keIX1Ge8Hl8e3Mjgh6qm2LBzLIgLAjdhbMV5FdEHJOnUgd
6/JjdkW43ZXb4hpCdkeYTj88cVSNvBWh8KueEw4yX2YvBHfTjgN11T7M3giR
NnpDUY+3Mfsg7C7vWZQrI/shjJ7JCu1s9WaWISRPXk2OkpD9hXotqb9wMel1
5gAEZ+l8zeERL+ZABFH+3GMjIAchaF/d+dzOJk/mYCFviec9ZLrkUAS5S5pn
ef5W5l0ItTF+tpoicrgwf9nxaLs0D+YIhC0O+8VPZtyZIxGyIpcaKOPI0QjB
hSqv8yo35liEY+6t800TyG8hPLmSfnvtfVfmeITvLfZpKTPJiQgNAWEhy8Xk
ZIRy3xebiou2ML+NELfa3XlGn5yKsK1bekijzYU5Xbh/7RIP+RZyJsLS1js6
KqUzs0LYn1pu5uNE8rsIDu4Zv95SJ2cJ9d4uNT5YD8wHhLwNiPz63cg5CEZT
jqLGi07MHwjf/4fV02u0yXkIJqWxkdIQR+aDCH97KqbFTQ7MBQgDhmkv1M3Z
M3+MYFp54vkcGbkIodowXbGvaTPzJwiHV4oDJIvIxUI9uz02yGPsmEuEPNzd
Ya596TXmUiFflokZzevJZQhuZgVS8RebmMsR8ld/XVqlSa5EqATlKwHZG5kR
oaB75Fr97AbmowgeBvfVsuPJNQhON6Vyp6n1zHXCfY0OCt8TTW4Qzlvzc/2N
27bMx4T+mP6Ny+LJzQgfrdF0XfHnOuYWhJHN45Il75HbEHyGoxYEa5DbEWxu
xNWOltkwn0TQ+TxAPduC3IHwZc9Lon96rZk7hfMI5RyRk7uF/6HZxDqte1bM
p4Xx0SnlYwXkM0K+u+Imqs3IvQinjR9OeJW8ynwWwT7merv6mCVzHwImpu79
zIT8HUKuRoZ4Y7KU+RxCydpaHPvWgnkQ4eVvEhS/ryJfQAjNLa7yTzGHfwGD
8356
               "]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[0.002]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
           DisplayFunction :> Identity, Epilog -> {
             InsetBox[
              FormBox[
               StyleBox[
               "\"low CDR cost\"", {
                FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                False], TraditionalForm], 
              Offset[{0, 0}, 
               Scaled[{0.5, 0.95}]], {0, 0}]}, 
           Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
              FormBox[
              "\"CO2 Price in year 2030 in US(2015)/tCO2\"", TraditionalForm],
               None}, {
              FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
              None}}, FrameTicks -> {{{{25, 
                FormBox["25", TraditionalForm]}, {50, 
                FormBox["50", TraditionalForm]}, {100, 
                FormBox["100", TraditionalForm]}, {150, 
                FormBox["150", TraditionalForm]}, {200, 
                FormBox["200", TraditionalForm]}, {250, 
                FormBox["250", TraditionalForm]}, {300, 
                FormBox["300", TraditionalForm]}}, None}, {{{2020, 
                FormBox["2020", TraditionalForm]}, {2050, 
                FormBox["2050", TraditionalForm]}, {2100, 
                FormBox["2100", TraditionalForm]}, {2150, 
                FormBox["2150", TraditionalForm]}}, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 350}}, 
           PlotRangeClipping -> True, PlotRangePadding -> {{0, 10}, {1, 1}}, 
           Ticks -> {Automatic, Automatic}}], 
         GraphicsBox[{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1H8w13ccB/Cvb6mYX5fYWirMdq41yUbO1rzOSUhb55SYzFR+hGUhKreT
om8yfUnlMF6ZmrBCpu9klh+VUBjp2wizr9/yjS/u2027fer1/mN7v+8+97nH
3ede93nf+/l8mwUe9NwvFolEEuF59X694vNB9N+VwPkkZwnnVM5Szpmcszjn
ckbOhZyLOJdyLuNcyVnGuYbzbc6NnJs4t3Ju59zFWc65l/MAZwXnUc6TnJ9z
nuWs5rzAWYT/t5jzYs5LOC/jrM1Zh7MeQujqndsNYvQdX9sAwUEs86nZ7Upe
jrBYwyZ6EgPJKxDabpWjtWUU2RihsFirYGpRAvkthOaVKR/3KU6R30bYq91t
n5MmJZsglDjWWwfcP09eg2D+4/WRsAs5ZFME++UhZVdVSDZHGEyPO+LgXUi2
EP4nfUt23NIi8nsIGGE7kaosIVsiRJiUG+eLy8jrEI6d6rn01cYK8noE/xnH
F7diK8lWCB8Wpgzu7K4iWyNs/U5r40WvX8g2CAOzVn1ne26RP0IQ50Q99wip
JdshTBoZ9+rH3SbbIxTvExUN3q0jOwjf69rFrDFqIH+CIMnLdNONaCR/iiBV
G4XJmu6QAWHV/LHA79fdIzshyHNPBDudayI7I/iVbJ5MEjeTXRDCOuX+bxxt
IbsiJH4TOZalaiW7I9SYq/vdDz8keyBcmk2Sqv5pI3+G0FF+wt3vXjt5B8KR
dC21bUYH2RPBLdTubEPA72QvhPtmg8NeNp3kXQgayUNtNzW7yLsRktq66+r6
mH0RnJbuqb908xHZD6E38XJ1wsVusj+CvmXOoaTYx+QAhM99tj823CMnByK0
T0kDE5yfkPchQO1Jbb0Nf5CDEF4EL5k+vrqHHIKgdFg106bTSz6A0OIR+vID
jafkcITMXy/nbphn/lrYr2mFq6GyjxyJoPUCg2+M95MPIRj8ZBSRFjVAjkZ4
v3cmPXOW+TCCrq22W1DMn+Q4BIsunasFauajQt929sruxA+S44X5V7J9tmn8
Rf4WwbB622CphDkBweThwgE9AwU5UZifluE9ksV8UsiDyrZl/ztD5GQE9ZWx
G4uuMUsQftAM+eKBwzA5BWF4z1zCkSbmVIS/HzRGm+0aIachtFqMa+YPM0sR
fj44dX1N7Cg5A2GtfPpL02Vj5EyE2uQBWWoO8wXBkqq941bj5Cyh3x0lGu4N
zNkI5SsHEsN9Jsi5CDvO1DVUKpnzhLxGuWTOJ0+SEcG5oL1iau0zcgFCxat4
ypgLERRW9SuGPKfIVxAembY+859iLkIId/Ld235aSS5GCJJbTmwyfE4uFfoW
It6yPpD5GoLKV+vpu+XMZQijweMxZ0TT5AoEM7PmNyt3MFeyPiBzFcJvyv4a
+2lmmZAnc4kq0mmGXI3g6zK++fw55hrh/jRI85lXMNcKfa9+stZyk4p8m92P
p5nrhfOLzW6N62FuRLDzU+Rds5ol30WwVq1eaDzO3CRYt2FrYxdzs5Cfl4Z+
pZZz5FaETnWSd0b8nOO/duFDOg==
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1H801XcYB/A7x/phTcRaRL9d82NqqFSqp8lmahmitqVFaWM1KuS0WyxN
dzeH1OX4cfGkO2F3fqTTbiVT4aqu1EjlR92JVKSW0DGy73o+f2yf55zP+ZzX
f8/ned7nMzMozCdYTyQSSYXz7/26JDkg+m/Fcj7AWco5gfNhznLOaZwVnJGz
knM+ZxXnEs6nOKs5l3Ou5FzFuZazlvN1zo2cb3Nu5azj3MH5Iecezs84v+D8
kvMwZxH+33qc9TmP4TyOswHnCZwNORtxnsTZFCFXPCSRGw8ue+3JCG7VLjEm
BiuWv/YUhNL4Q60NNwPI5gjZN/ytkveGky0E7+1csUcmIU9DyGs4+3bo7z+S
ZyBMHpyebpiVSJ6FUJec8tWYzXLyHIRXYtNZOqMMshihe93i6dlWSH4PQdMY
cOfNuONkW4Qd+gWmS8xPkO0R3g2U7QwZLiQ7IExb27645p1i8jyEat8kZ/Wv
pWRHBMPgfFnBizKyM4JYNCq39T5NXoBQXK/ot9GoyS4Ie1O7LrR9fo68GEH2
8FaT1+h5siuCunO2zaPASvIyhBTDptFF2gtkQFCptss07pfIHyL0HQ3NSdRU
kVciNE+VBDr61ZA/QjCStwwsfawheyDEKKUTfom+TPZEeJo0WJgy/ip5NUKY
8ZTuqWla8hoEJ+nEnpdzr5E/Q1jq4ZXsVlVP9kEYnBl2Zqj0OnktQm/UeWf3
2Btkf4QXB7dmb/D9g7weQX6xXJMubiB/IeRBttAxaZh5A0KL0yq9xsZG8kYE
uyE3J6+im+RNCCbBYTZdh5rIQQgJcas0iq9vkbcg2Ls/TwHP2+StCF07444Z
2t0hfyO8t3PZIgOjZnKokKcWZW7pAPM2hKt9ul5VWwv5O6FfJ9Pd5ZdbyeHC
PutqPLVlbeSdCO7BlzKu5N4lRyBEiLcX9ibfI0chnPFK1Fu5QkeORlgtPaMM
Pce8R5if9oho/vw/yRKE9siR/W0lzPsQlD/tjrV+v50ci5BkbhLkUMC8X5iP
cljZbH2ffAAhKEckS/6ZOR6hyOGEftWcDrIUwXej3bFzSmaZsK96d7ea2Z3k
BIQJs3waHPKYExFqRj7Oc7N+QD4s5MGxNuBAAfMRwW3dygr7LrIcwVI1uiut
mDkVQRKUZXvP6SE5DUFva0Vcjpo5A6HkVX1ghesjsgLhy7Fjvze5xJyNcG1R
tNj5k8dkRFhiZmFVfI05F8EvfsdCqX83WSnkLVyvIaSNOQ+hxwQ+OLmlh5yP
cCSiriPzCXMhQoil36dGkU/IKoSJ+9pFQyPMRULeY5rz1xzsJZcg/GbtsW33
xKfkkwh3Ixd05KQzn0IYGYjUKYyfkU8jvOE9b7OBP7MawWzdBouUTOazCJse
SaJTdczlCJ09WcKP+Be5AiF+usLL8lvmSmFfR4+LvEuYLyLsiulXh/UzVyGs
Tzz8g+uS5+QaBIMml8zEWOZahHuH5jbfr2a+gvBgnFlt2Vt9ZC3CjPF/R03y
7lv+D/atNCc=
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd03tQlFUYBvAVMAnCCAkVVMJhEIHRFR1TRuTFHIpEEyFMIhY2YtAodYFg
QJC4CN6IEGVBsxfbGMaIQVwSuQeEQCiKgJiYbrvckctCYkjSp+9pps6ZOfPN
748zc77zPo+VdP+uT3REIlGqsJ9/X6xD34LovyuecxLnVM4nOKdzzuQs53yO
M3JWcM7nXMC5iLOScynnCs41nOs5N3Ju4XyTczvnLs7dnB9y1nDu5zzMeYzz
JOcnnGc4i/D/1uGsx/klzvqcDTi/wnk+Z2POJgjeGuODYXYvu7ywKYJirVhb
bONGNkMI6tXJupYTSF6E0PeD5uPIL2VkcwT1Qn93rd9h8hKEpX3rVf7ZKeRl
CMOvm3W/GpVOfgOhMVB8OLnlNHk5wvgVZ1dp+VmyNcLD+DOFARa5ZBuEZQs7
ll+QK8i2CMXnfWMj3s8n2yHsPDq0aLdfAdkBYdRCEhPsXkRehbBabG86EFdM
FiMET2kCczuVZEeEmZ1761s2XyGvQ3DLNnJsarxKXo9w7Pq1klxpBXkDguVq
Rd1bi6rJTgjguNTJebSGvAnB5N593XBJLXkzQoVffaS0s44MCL2ROS1RH/5C
3oJQ1qXcpa9pIG9FsLKcDPWJbSS7IZyMmbCwMW8mv4MwrT+j6qv+lfwuQo/W
sm2/5DrZA8E6azY97ukN8g6E8FFVhnrHTfJO4f/vnqrpXXKLvAvB192+KneM
2Vt4z8Wzm9W1bWQfBN2bth9NZ90mf4Cg9FFuvPFZO9kXQSXRO5m9tYPsh1Cb
dKsg1LKT7I8we+Nxv9EUcwDC3t1WPSs67pClCEMW8m7b4i5yEELWBi0EfX2X
HCzkddOFLRFhv5FDEA46Nflked0j70M4OrLnTsjGbnIowpy1D35+b8l98ucI
KWurc3T1ficfEPLoWboseYhZhiAMe0/X7QfkcASZ2WNlneQh+QuEBVrX1uAO
5ighLxpbMPVQkaMRVoS6LFbXMR9CcN9eLg92+oMch/Dp+EpRw2XmeGEeccfU
NfZqcgKC2CPPwO175iQh3wv8E7wsNeQjCFOXEh4ckTOnInw3MBx0wLSHfAyh
8uJl34CvmE8gCOU1e2LQS05DiOkynBuawpyOMGKlijms20fOQDiVJhOfjWfO
RHiU6GBo84z5jHDetPBtVXQ/WY7wmoXDOcVfzDn/9nuAfA5hXk7r1Xt/Mp8X
+l1Z7RoTMUhGhH3bJ9K8JpkvIGy0e9NzW9gQWYEwt9pojf8Ec57QF+vMKmPZ
MDkfwc/7eKpUy3wRITF3vn237BG5ACFfvUb39DhzIcK65+MPGyEXIUQmhvwY
MsFcjDAgyWg2DRslKxHiV+rOU04y/yT00W9OcrTTGLkU4YBNnuGlaOYyhOOq
QVFqOXMFQmtlyra0p8xVQh6To6f1N42TaxBWOecMNh1irhXub2YiLqtgrkco
8fxmftDfzA0I5k88jZ46a8mNCJIAH9u2WOZmhDMZPcILMbcg1EnbSx4/07r8
A9E5N5Y=
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1GlQ1VUUAPAHAqIiGuOgFasBIaElZII94bhCgsSSbLYIAgaRWoDbACEp
IoNLLxQKxRM8FEOREJcEnw95LOpTkE0QWWRVeIogoyiE/fXcD3XPzJ07v7kz
587cc+4xDdzkGawuEokShfV6fxPRx0D034jjvItzIudkzgc5p3BO43yEM3KW
cs7hfIpzPudCzhc5F3OWc1ZwruSs5FzNuY5zI+d7nNs5d3F+wFnF+QnnYc4j
nMc4i/D/VueswVmLszaCY64ypaGtw+GNJyOsLDT02hrs5PjGOggR9WKnrqIg
si6C+URV2FBKFHk6ApZGb1d7tpOshzA6oft8zIEk8gyEdRG6GZNWS8j6CCWR
/heWPEolz0KIEoegzfhR8jsIk2zUrQyWZJINENzL9q1VVmWTjRA+c7JPWx13
kmyC8GlSRN3tH06TZyMEHaqxvazIJ5sh5HSUz+3pLSBbIFQFh+kVm54jWyKc
6Z+pSvj+AtlKOL9jnbrv1t9ka4RlJql2Q1BMnodQJtpr4a6QkT9C8O1QC/bK
k5NtEMYUasOj4yXkjxEcJBKjBO9S8icIC7ZfD7uUoSDbIRyd+mKD1mAZeRFC
drC01cu+gixG6BNbjQ8kVpIdEF6ZSEwrGq6RAcHQ+2L3e3NukJcizDKL8V/x
k5K8HOGwY5u+df1N8kqEh7VWL5fZVpGdhfyax3q6VlSTVyE8rTTWET9ndkXY
URrT1SC9TXZDiDncW9LiV0N2R0geztxyZXIt2RNh0eKB8virzF8g+O3Jyo3c
Wkf2RsjS+Ge30fx6si9CR65hmX0fsz+CmuvbdpjdQP4SoSk1XNwYeIf8NcLy
zOqCx8aN5HUI09bXtLncZw5E2ONWVfQXNpGDEPo7/xjYGHyXHILw4fNrHnGW
zeRvEdSb+luMB5jDhPuzbqSXnrtHDkeYsG2KmWVsC3kjwnrL9++ucW4lb0Yw
W/4iXl+vjfwjQsC+sw+125kjEWa/6zwz3budvEXIp8ry8pExb0MYkNh9kGlx
n7wD4atN6SenH2CORvCQjtprvmCOFeplcmbir4Ed5DgEt5qx+advMscjeKe/
8jG07yTvEvp10RrZBilzAkJCRay+y1td5EQETfk2rakxzEkIstCXqrh+5mQh
X4CtXNOvm7xfqPflmd8UVjAfRNAof6llsbCHLEFo81i/VJnNnCL0a4qVxzP9
XvJhhJAZN+aeTmBOQ9CO+mWp3wjz7wi/BXVZq0IfkI8I73Fl3cLwZuYMhBP+
U85Wuz0ko1DvMdufR+TMmQilAaHtTgv6yFJhntU2XWvPYT6OYD9Yv7/DoJ+c
g1AXsHutg4T5TwR/3WH3Zi0V+RTC58Y7HceimfMQYo2yxE+HmPOFfvmuPm9S
6CNygfA/VPPcPduZCxHSbDaDi89j8nmEpE55bvct5osI8b2tpeZOA+RLCIod
Wd5pMuZihDn5ouM6Bk/IMqF/Z+QbJvsyyxFeT4fJh5ivIriedCmfX8OsQOhx
lLbJdAfJ5cK8qJh2aKUrcyXCqtcDei/zdYSigOZMZTmzUsh/YrF5r8aQ4789
NU3j
               "]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
           DisplayFunction :> Identity, 
           Frame -> {{False, True}, {False, False}}, FrameLabel -> {{None, 
              FormBox[
              "\"Peak \[CapitalDelta]\[Degree]C relative to ceiling\"", 
               TraditionalForm]}, {None, None}}, FrameTicks -> {{{{20, 
                FormBox["20", TraditionalForm]}, {50, 
                FormBox["50", TraditionalForm]}, {136, 
                FormBox["136", TraditionalForm]}, {200, 
                FormBox["200", TraditionalForm]}, {252, 
                FormBox["252", TraditionalForm]}, {312, 
                FormBox["312", TraditionalForm]}, {346, 
                FormBox["346", TraditionalForm]}}, {{0.25, 
                FormBox["0.25`", TraditionalForm]}, {0.5, 
                FormBox["0.5`", TraditionalForm]}, {0.75, 
                FormBox["0.75`", TraditionalForm]}, {0.96, 
                FormBox["0.96`", TraditionalForm]}, {1.14, 
                FormBox["1.14`", TraditionalForm]}, {1.35, 
                FormBox["1.35`", TraditionalForm]}}}, {None, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImagePadding -> {{73, 80}, {50, 35}}, 
           ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 1.5}}, 
           PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0.03, 0}},
            Ticks -> {Automatic, Automatic}}]}, ContentPadding -> False],
       TemplateBox[{
         StyleBox[
         "\"CO2Price D16\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"CO2Price D13\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"CO2Price D07\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"CO2Price FG\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C D16\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C D13\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C D07\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C FG\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False]}, "LineLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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.8, 0.5}}}], "Grid"]}, {
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
               "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                 ",", #7, ",", #8}], "}"}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", 
               RowBox[{"{", 
                 RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), Editable -> 
        True]},
      "Legended",
      DisplayFunction->(OverlayBox[{
         TagBox[
          GridBox[{{#}, {
             TagBox[
              StyleBox[
               TemplateBox[{
                 StyleBox[
                 "\"CO2Price D16\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"CO2Price D13\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"CO2Price D07\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"CO2Price FG\"", FontFamily -> "Helvetica", FontSize -> 20,
                   StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C D16\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C D13\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C D07\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C FG\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False]}, "LineLegend", 
                DisplayFunction -> (StyleBox[
                  StyleBox[
                   PaneBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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.8, 0.5}}}], 
                    "Grid"]}, {
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxDividers -> {
                    "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}],
                     "Grid"], Alignment -> Left, AppearanceElements -> None, 
                    ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                    "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
                  FontFamily -> "Arial"}, Background -> Automatic, 
                  StripOnInput -> False]& ), 
                InterpretationFunction :> (RowBox[{"LineLegend", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                    ",", #7, ",", #8}], "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 
                Editable -> True], ShowContents -> False, StripOnInput -> 
               False], Deploy, DefaultBaseStyle -> "Deploy"]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          "Column"], #2}, All, 2, Alignment -> {0, -1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{OverlayBox[{
         GraphicsBox[{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1GtQ1FUUAPDNBEIBNwMFCxZDUNEU10ekwZzkDQK6AvJQnvKQeKwamYqI
K60MEjAOoTxGjohCirSgAQkIMkiANIpQEANCCNoMmu7gBBmP/nmPH7p35s6d
34c7Z+45556lofGy8DkikShV2P+dr1diIYy3SnQSyw/AaycXwm1J0szRN07h
nMo5nXMW52zO5zgXcEbOxZxLOZdxVnG+wbmGcx3nRs7NnFs5d3C+z7mbcy/n
fs5DnEc4/8H5KecXnF9ynuQ8xVmE//ccznM5a3J+h/M8zjqc9RAeq/7JCHlj
McIa0xsmtkXkhQi9PTe7W9PI+gieGv3jddHkRQinBt2rY+zIhgi54oMuvxiQ
lyAM22jlXBzez/wBwrOQtfrya2QTBH+H41GPD5FNEdq9bpeOAPlDhC6rRHsd
bfIyBGXCo4HOe3JmCwQnv4Zc32/JKxCuBtgst/EnWyIcPHlBb5UJeTVCUFJJ
W3pTPPMaBL2G/Dg/J7KVED8u4uXFu3HMUoSY7zXqqz3JGxDqwOWERlcs8yaE
T+7bxeZ7k60REkOk3qqeGObNCBfcrF/m+JM/RXBVq7X9Bj5ntkWQd7bJxoLI
gHByQBXbORzNvFV4v1T2fGUk2R5hOlpP3DG2j9kRYapUOX1eTnZGGKqzVntP
RDG7IpTOlv29P4m8DaG7KkR/ribZA8FuS4kfZkYybxfiDSRsGjEiyxCSnbxK
/yyOYPZCqFxQudpQSvYR7v+kZ6luCGf2RZinPKi73pPsj5CXrYhbO7SXeTfC
CfNdFZP7yYEIE285xw5rkIOFfF+vWDieF8YcirDFsMIzeR15L8JsQFuGbnso
c4RQT3NJ7ekwchSC70jPgnWzIczRCOs3aj8UF5BjEL4JW3Y0ZTM5Tqj3YP3F
lr5gZjmCVo7ZXtNE8gEEF3F5cpOE/AVCdN+dDV2pQcxfCv1wxMDI+NdA5q8Q
Nh5FA0ML8hGEtZ5P0mSH9zAnInQ88Ph59N5u5iQhX8lqnSUryckIfe1uM8uV
AcwKhCrFZXOfUX/mFIR86x8HLziTlQiNCXfSX1zzY05FOBT5rGr+YnIawkyB
YipG4cucjlBxukjLVr2LOUOIZyzTyQolZyGYzGooRD0+zGcQMh+dcjXzIGcj
HLY5py9p9WbOEfKd4DP/qT35HMJfz191+DV7MechiK+fjS1xJBcI/8FqRVfU
3Z3M54V5EKbRoLuTjAj4Xc9HcwZkzEUIxjZJ8V37yMUIoe7hO3ondzBfFvp/
8F2DK2nkUmEevdrTm2dCvoKgXv2ZI/ywnbkMwSqlYGLWnVyOUKNZ5ap64Mms
QpDU/257QJdcKeSv+ozx++4ezDcQHHN1pW1Z7sxVQr84jIsW/baNuQbh1sNp
daA5+SbC2dEx6VSCG3MdwqX+YxmZ7a7MtxCk5TXWlmbkRoSiY2VD1cddmJsQ
vJveOzI96MzcjNDyStPiY3tyC8LXZs6Xeq86Mbci1K6qDZYvJrcjGD2J37pU
6cjcgVCoan67fdIB/gXPX7+m
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1AtM00cYAHBU1oEBZ0Swogg6VEAmRh66gt2nRSgMhSIqiAJicdjNSQxR
xBcybFAJoikCUvET0VTHXOeIQwUsrKNYwSkjpguPySs+6mNOHDhx2X9+lyW7
Sy6XX+6Se3zfdzNTt8WmjbWxsckX+r/ju7bnNDS+zXlfNFsF75xzGtpmpL/3
n/M453Mu4FzEWcO5lLOWM3Ku4qzjXM1Zz7mGcy3nOs4GzkbOLZxbOd/h3MHZ
wrmL833OA5wfcn7C+XfOQ5xHOI9ytsH/eyxnW84iznacx3N24DyB80TOkzhP
5uyC0BMfI9ZMZRYjlEharEuHt5BdEaq/sST/aWSejnDX9nC88SDzDIT9MVO8
NcHMHgj+F844Gh6kk2ch/PXUarh6hNkT4Y3V2WW9F/McBIXTXqm54TOyF8IG
Z91P96OZfRDcZjSNbOnaTPZFyPMJ3O2RxjwfoRfkLvrHaeQFCKN9scVXtjIv
RHB0C9YZnynJAQjdZfbqlxnMQQh+Bqnk1fAm8mKEQ8+N1VNymSUIO7oTj4kn
MIcgFKksz+21qWQpQmCYVaeaxwwIuavc5T11G8nLEFCcsNAUzRyKsNjQujNj
IIUcJtzHYeDXwWxmOYJp3sQl3k7MkcL6iJemmoRkchTCGq/2t9qiJPJKhMvK
wsENtzaQYxB2Ou35ZciOORah3c14e3LkenIcwl59gWP30UTyGoQm/zMRqZZ1
5HgEQ5bI8e2HzOsQ0n9OU03KTCCvR5jbOK1d1xxPThL28xu+qXBjTkF4Hqw2
7du5lpyKcONu4bR9HWvISoTPHSQzM4OYNyPUaa4pp5evJqcjnPlqfu+dccwq
IV67awdqt8WRv0D4Ue6nGu5ZRf4SwS7BJWpUwZwh5PfNI1EGUyx5uxBfRX2g
filzJoLLIXvVSL2CvAOhs7JVVCZlzhLyJ+BZ27bGGHI2wqlX3ialnHkPwtR4
0wvZ2WjyPoREkfacsn4lOQfhek7J1KCuFeRchODqjFvhY5nzhPmUjDa3j6LI
aoRyj8dSm+RPyfkIR+N+e728OJJ8GGH5H8UQ2R5BLkAwF/xQnOTEXCi8z3eW
Oc6JcnKRUE/nNn9Qcz6cfBwh3P3lmAMjYWQNwuwnnRGhK5lPIAyJB8tKLiwn
lwrnkx0eM8me+aRQj11h47K2hpK1wv5/73JdcE9GrhDyW3FtyE/GjAhyscj3
as0yciVCS0lMY683cxXCbde6b81nl5LPC/GS9L/p82DWIfT3jKoPVQL5IoKn
96ON6XOZqxECKuz6QlI+IV9COPl0/F59lpSsR5h20PP77JIl5MsI93of+nTX
h5BrEEJcOqsqHwWTryB0vCg9YJ7OXIswaJ93KnW1hHwNYYW6/7WD5mNynfC/
dVurGiyLyQ0Il67vuiibxWxAUJtvnFi7fRG5CUHrmi590BxENgr/67Hs6EEP
5mYhHrZfPx7cH0huQXD33SRb1B9ANiNYi8p7RVHMrQgVyRq8UesP/wD1RWkZ

               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1HlQ1GUYB3AkK9zkCIQKmTRG7msjRCCPR1iVS4WNQ0FgIdgUCVggMN2B
zQNxJQKjAA94NEYNkfAIPJBDKQiVMWACyRrw4kwhsRBB+unzjjO978w773z+
ea/v877vRSVIYzQ1NDSyhP58fNGUJeD/2OaQ7nY5vLCqBMKMDA689E7OWZyz
OedyzudcyPkgZ+Rcyvk453LOlZzPcj7HuYZzPedGzs2cr3G+wbmDcxfnW5x7
ON/l3M95mPMI5zHO45wnOWvg/63JeSbn1zhrcRZxns1Zh7MeZ33OcxAKmvbn
LU9jNkL4LTFv24Vg5rcRINbAIs2K2Rjh6q6WOqOHMWQThCvtNjFFZczvIqTV
lhg7hDHPR0g13vT9Yi1mUwRf9Vdrm8ujyQsQDHQu/XTFh9kcwWFC1Db7/sdk
SwSL71rE8Upma4QkR8UJ1GW2RUjG3d3OGEW2F84TXFF93Z5ZjHA72aJr+mIk
2RFhs/dpnVWezE4IPz4NVD1sl5GdEdaPT4QURDC7IIx92iAN64kguyGIVSOH
JSLmxQij5w2G69zCyUsRzi+qizySEEYGBPnhQ+22ZRvI7gizFPeGD/WHkiUI
uY87Bk9YM69EsHHSuypPCiF7IvR0nelzrF1P9kYQdd8d8dJm9hX298dJ218j
1pHXIKRrSA+4VAeT/RAqW4TA9JmlCA0505rLFUHkACFPn2cWGR2B5CAEOw+T
odtuzOsQLjUVmceVBpBDEB6VtcZ+oc+8ASHL94lewI6PyOEIRdWDbgHjUrJM
mE+mWf0gkTkKocu7337PsD85Wrivpybz7OKY5QjLvtz2aO4DP/JGhBnqPLPk
FOZYhGvm9ZWTT9aS4xAqMjo/adVnjkc49kt29TfiNeREhH8KPTc5B64mJyFs
HBBVvZnhS05BMHlDtMPxBx9yqlAPk/WBxXe9yVsQmgv8GnrnMW9F0LpzTJEg
8yIrEQwbobP2qCc5HeGznBk3h0ZXkVXC+jKpUunOvB3hhpnJ1r0FK8k7EfoW
pu4ZHF1BzkSIaXwV/f2YsxBW2F0/qXdWQlYL78tQmi6dy5yNsKugp+P1LA9y
DsKWcGvn+/+6k3MR/pbo9fXGMe9D+Es1pH7n3nJyvpDXiM9UTSTztwgps3b/
ebsXyIUIxZ+7DtfGMO9HiK2fP9DevYx8EOEVSUO21chScrFQf88D0GZGId+J
U17p4iXkIwiDWj3y0ZDF5FKEkb0+gd3qD8lHEWRBlm1T9W7k4wjmwafGV0+5
kssQ2tQJlsqlzOUIEdvkXqpMF3KFkH9+p3d/2yJyJcKZdt1BUzPm0wj7Qr+O
91E6k88iZFZIcKJzIblKeI81yZYersznhP+tOHV8c7ET+YLwn71laVWpxVyD
MHFmnpVp2gfkWoTVBlUl2QOO5HqEg3PuL2mVMV8W6rnUWZH0+/vkRoTGgQWh
YSHMPyPccZIYPrslJjcjWAdpX74VxdwiuClaMX3TgXwNYWZ54EXzMXv4D5D3
dj4=
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1AlMlEcUAODtorUBSldEg8DSotS4gBQBARXxKQseq7JScEUpInepRRBR
waNEFFYQUbSKYuFJgOLJpVSUyhFRChZsQUTuxm2kFiwQFUyl9K/zauJMMpl8
mUwy7715Yxaw1TNYLBKJ1ML8b30z9mRDiOTjtqEF/vDG8dnQJjE59dYHOKs5
H+Z8lPOJbLj3l/3pt87g9s9yRs65nAs4X+JcxPkq5+ucKzhXcb7NuY7zPc73
ObdwbuPcybmXs4ZzH+d+zoOcn3Me5fyaswjftZjzBM7vc/4A3623NsKisuAq
n/+ti1A18VHJHkuyHsKB8q6GsclkCYLbTW3Z4t5NzPoIPxZ0FYrTyAYIKamx
0qi55GkI4uFPvSLr/ZgNEer8a8+3biAbIeictkwI13zBbIIQ0O44ogojmyJE
5D0MCXziy/wJQtrX0yNPBpBnINxvra7ubt/IbI7wYEZORoWSPAuh1tHAZWPt
BubZCDHpl62/dyVbIAw9DEqNu+vDbIXQYyiOD1SSrRGqI9rKZnesZ7ZBGJ2X
PuG3MLItwu6QFfFnRlXM9sJ9z1lOLjhEdkAoaxsorTclOyEsNB5u0r22jnkB
woXMlMoBBdkZ4eSsPOz43ZvZRbhf+ZT+ym/IIOR/sPLbfmPyUgSRqiRwZrkX
sxxBK8M2ElRkd4Qfdpd7HBn5nHk5gmfGiFPzKfJKBMPj//hpLySvQvho705L
Rbcn8xqEU4+nqrMSyEqEkLnFr67LyJ4If7uYmMt/WcvsheDiu61TFkdeh+Ah
zowenElej7A2W6OX2aRk3oBgt/VBTMFusi+C/7rZv47JyH4IySqfDoNiD2Z/
hFynZVLpFHKAUC87/XOTd6xhDkK4tP51flHnauYQIb8W9pIGOTkMYXB1c+ik
olXM4Qh7C82crKXkLQiZUUY52qkK5giE/CGdQvPxlcyRCPJE74pj0eRtCEZ5
ivH0pyuYtyPYWHt/mRJI3oGgtyrCwKdnOfMuhLxbVgMtvuQ4IZ/6L/Z7dC1j
3oMQnBqndt9E3oewfWkfKjTuzPEIY9O+s7oWTt6PcHBGV5PsuRvzAYTpPrZ3
h/eRExEid7ZG3NQlqxFizf2yGjPlzMkIlknTHjXOIR9GyPKTNUiqXZmPCOd/
lo59piIfRThr69ijfraUOV3o74Rcj4tq8gmE8DV+QWJz8kmEys05S7RrljBn
IDzzNfzDbTP5DMLjCMnlqVrks0J+Eh1ExvnAnIUwqT98+ISCjAiJaWrZMc1i
5hwh/l1CQA7kXITxxpd9H6a4MOcj3HhxxtRAs4i5QDh/fk7M0cXkC0I9bfSs
pdnOzJeE92cWHax8j3xF6J/SQufloQuZi4T+9y5XvmpawFyC0JTV0GLuTL6K
kCoPm2B8cT5zmdDPsRevuErJ1xGizNJ63dOdmG8gXMk63u2oTa4Q/htRTZL+
QUfmWwhPlIkXMsTkKoTmr0qL9RMcmGsQfppfnPRyIvk2wpbjyXfaU+Yx30EI
mikp/HMKuQ7Boj5vSCfbnrke4Wl9aKypFfkewoiWqSFU2MG/CoWRKg==
               "]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[0.002]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
           DisplayFunction :> Identity, Epilog -> {
             InsetBox[
              FormBox[
               StyleBox[
               "\"medium CDR cost\"", {
                FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                False], TraditionalForm], 
              Offset[{0, 0}, 
               Scaled[{0.5, 0.95}]], {0, 0}]}, 
           Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
              FormBox[
              "\"CO2 Price in year 2030 in US(2015)/tCO2\"", TraditionalForm],
               None}, {
              FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
              None}}, FrameTicks -> {{{{25, 
                FormBox["25", TraditionalForm]}, {50, 
                FormBox["50", TraditionalForm]}, {100, 
                FormBox["100", TraditionalForm]}, {150, 
                FormBox["150", TraditionalForm]}, {200, 
                FormBox["200", TraditionalForm]}, {250, 
                FormBox["250", TraditionalForm]}, {300, 
                FormBox["300", TraditionalForm]}}, None}, {{{2020, 
                FormBox["2020", TraditionalForm]}, {2050, 
                FormBox["2050", TraditionalForm]}, {2100, 
                FormBox["2100", TraditionalForm]}, {2150, 
                FormBox["2150", TraditionalForm]}}, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 350}}, 
           PlotRangeClipping -> True, PlotRangePadding -> {{0, 10}, {1, 1}}, 
           Ticks -> {Automatic, Automatic}}], 
         GraphicsBox[{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1HswVnkYB3DbljWVNKLd1BDJpRtWsyLlKW8m5dZb1ipso3KpllxWEu/a
kHdRtDVuy/aUN0PUlNxHclsptLm8KqHWa4lc2hChbc96zh+7v9/MmTOfP87v
zPl+n9/RdPcVHpkjJycn5q5/77Mr9DLI/XeFM45kLGYcxziB8SXGyYzTGCNj
CeMsxrmMbzHOZ1zMuIxxBeMaxnWMGxg/ZtzK+CnjDsYvGfcwfsV4kPEbxmOM
JxnPMJbD/3sO47mM5RkrMJ7PeCHjRQjnhgpworZi66wXI6yQH3WqczG1mLUy
grvK3Hjfkf1kFYT23tqxyNU+5KUI7w1PPwtqDyF/gWB24eD1lIJIshpCYlNd
n6r9OfIKBMfKLIkdXCSrI5RG3RTgVBJ5JcINieoLh8k0shaCsZGrWKpxhayN
kKpz3GKZLIOsg2DSmWc5U51J1kNQ6Nf3Fxdnk9cgyD6ez3LozCWvQzgitFwe
rniLvAEherruhnXRbbIhQsnnyaoxgXfIXyL0eL//Mce8gLwR4aLZJ7aRikXk
rxBarb43SxgvJm9C+HhSEDXQW0o2QyhML7SaKysjmyNs9pcYG74tJ29FCN1R
5NYSUUEGhOCiPIFnSiV5O4LaxjH7E7eryAKE7lXuu7SbqslWCPW7/9b9YaKG
vBPhl26/Peu1asm7EFxMT3vmO94n2yBoZQqU78bVke0Qmk281VQaH5AdEHI0
/eKvKdWThQiWe4Omtrk2kPchTNTrrj2b00j+muvLQTJtOu938jdcX2KlwUmD
x+T9CFiZ+Sijm7cLwrUxGwOjxCayG5e3zFYUa9dMPoiQlbB2fJ1CC9mdy2Ob
4Gj7b7wPI1QLIlTMo1rJHtz7ow2W7NgpJXshbJFqmlQrtpGPIix0+gw6pLyP
IyTFSyTRV56QfRA+RKkbhfg8JZ9AOJPt0SaEZ2R/BPXs8tFY5XZyIMLlPvvl
0n7eQQhC6/Rwnarn5GCuD89T6h3pHeQQ7jwcAK8toZ3kUK6P+KpxPZcusojL
P2CB60/wghyOoJ9Ua1Cm/JJ8BmFUo9n322jekVweaVdXlczwPovQcuzObeWA
P8hi7nvap/otXvOOQfDICBDFHOomxyGs1NeqXtPF+zzC7gMuMmNnGTmBm+fk
xQHWUt4/c/MA6+WV9vaQLyH0ZTZuUmzinYgwpG+q+87hT3IyQnhxjtOFJt6p
3P7zVB3vCXvJaQi5n64cHpDy/hXBwjFK3t25j4zc/kIXx3edvK8iPLH/6Dx6
6BVZgjC28WDCWD/vTIRlCXe7Pvj1k7MQkjPuj3w3xfs697+ZNC5zjhgg5yKs
fhAQprHoNfkml/eQYrlhCu9bCCHVYT1t2oPkPASrwSVglMc7n+svMK81xGKI
XIhwTyRWXPqIdzF3/t3mK6W6DpNLEU6qCkXCId5l3Pyp244fFo2QyxGeT+9T
VVN4Q65AyHhoOCy/h3cVwvbgfL+aVN41COZHbcQlPbxruedjvTZnbviLXIew
QFtPFHeK90OENr8ZB+8a3g3cPPaHyY4pvbX4B5ZcPfM=
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd0n8w13ccB/Bv+oVUxrcYynSdsZxKJtrwWqmppMlu1yLhIie/1r4z1xBS
fuSwob5JeZnvkCSEyUlf86X8/Kohff3Ir4xGHFpsy+0zr88f2/t99773Pe59
73vf+/l+GngGHvFSEggEsdz8d10coZkg+O+IYBzNOJZxAuNkxqmMxYwzGCNj
CeM8xgWMixiXMq5gXMVYyljG+BHjZsZtjNsZdzHuYdzPeJjxKONxxlOMZxnP
Mf6bsQD/byXGyxivYKzMWJWxGuM1jNUZazAWMl6P8EmFkurrWQPbRWsjJBZr
ukU5HybrIBxojbMuTfIi6yG8ku/dU58tIm9EaFPJOm86EEF+D8Gm1dzjr4ZY
8iYE+wX3/ntvksmbEYa9K5Zk6l8mGyKIVhbvuNB6jWyEsHpn/0ytchb5A4TH
m7rnw30lZBOEZ8dRIlXKI5siXLupniRrukXehqB6SONgY+8dshmC4740j57V
JWRzBAublLcz5qVkC4T2zlh3PddysiXCZNPVCdWwCvIuhKMJlZ19uZXkjxHG
0ht2dvdUkW0QrntHBscIH5ABYWR516e5hVLybgRcp11S2VFDtkOoH2i+MyKo
Je9DsLwhjzi7Q0a2R8iKvlp+zquOfADhwc9j8nBJPdmBy++CKER56CHZESHV
v39Nu3ED+TOE7SfcIsJEjeQjCG+rz80MyprInyMIvzxtVKbVQv4C4Sepktgs
qJV8FEFx28tMTy4nH0OYdiszG7jSRnZF0LaT5Bx3eEx2Qzjk67O0aMkTsjvC
wkTJiW8reXsi6Fc7CA2++ZV8EqHRKcJIvL2d7M3lmZE5aDnF2wfhZowPV4kO
si+CtOSJRCjqJPshPHe2mjC2ekoO4PaDt3lmCrrIQQhF+W7huQ28zyBs7d28
IjLtGVnEve+hariup4IcjOCk0A31MOsmhyDURiabuCv1kM8ilNXEjT7t5B3K
5eF+qdfmVi85HKE1UOyTHNVHjuDycJxQc3Z5To5CMFG3Nk7R6SdHc33oNagT
xPG+yP3//Utvhv7gHYvQNHtQ5nJqgByPkNmSL+/o5J3A5V98WFBnP0hORHj/
dPse80reyQjnc5O3vDYZIv+AMGShI3VB3qkIXxV6XKzXHCZfRti1Uh5tGMdb
jNCjca9fbYF3Oud3HFe5iV6QMxDWnrQu+/Ml7xsI71qt+k7hMUJGhMXnKnj/
iPCRzNZvzOk3sgRhKdc2aOKdg1A4q/ArsBsl5yGoBK7dDdW88xH8k/qC9K3G
yAUIWlWjW+zv8i5EmOpWH/pw60tyEXfe3+rKYD7vEoT1c/EB9w1/J5ci7Mea
nNZs3uUIZ+ITh6f1x8kVCKVfpy9XXOddiXBX3BXqqjtBruL6YRq/cU7Mu5rr
87znZJ3WK7IU4UWYXsv3abx/QQj0ns0eEE6SZQhizdKGgRTe9dz9vanTx1Sm
yI8QNizbcNt3P+9Grp8x6wLmY3k3I4SMnyoWNkzZ/gNdLzOd
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1H00FXYYB3AzvUxSUxFCXWVKp0Vl1unkyQqT3qQOIi0mb3W950QroggN
J817T026XnJuddtqu0mRuChuurvK9ILS5uXaWVPd5uyu5/fH9nvO+Z3f+fz3
nOd8n2febqHH19paWlppmvfv/74ST4PWf+sw5xTOaZwzOWdzPsk5n3MxZ+Rc
xlnEuZqzmLOE81XOUs51nBs4N3Fu5dzOuZOzknM35yec+zgPcB7krOL8J+fX
nN9x1sL/W5uzDueJnCdz1uWsx1mf83TOBpxnIrxK3hT9h8DS8b0NETbtL42/
a7iZPBvBSDpg47osiGyCYNxsfibINZY8B8Htu/EFFe5JZHOEJvmxJSJhOnku
wpMA8TPPsByyAKHCLvPnNZJT5PkIEvF5s/HCYrIVwp61IUJV6hmyNYLT6oGu
6rdl5EUINm+UflgmIi9G6Buz/7vr22ryEgQTdW7WpB1i8lIEj6H7o/lJl8h2
CJbH0oq2NkvIyxFWCh6f61zwI9keYfuDlpHlBdfIDghW0YtHKidJySs183Dp
twoNqSWvQvCqitvgGlZHXo0wPF/wLgNvkgHBpSXJPPTRLbITgm37lU/RqIG8
FqHng1JJhPdtsjOCWa6PdUFxI9kVoXta/C6tp3fIbgi1mKqTuaSZ7I6wr8dh
YWuCjLwRYaeiQdu/o4W8GWG6TO1QaNlG9kA4L5jVaJh8l+ypmfdBma139z3y
dgRxi+r0PmwneyF8nihP19naQfZBaI4ycPOfLCf7Ijz3PV4lq2XeiTA4y1DT
8n3yLoS6BJesj2w7ybsRMm7WS4TDzIEIYcqR9NjKB+QghHrpnQKrcAU5GEFo
c93e1OYXcihC5Lau/etUzOEIBiGmh85eUpL3afJZMea5MaGLHIHQomxvG4eH
5CiEtMCmi6/0HpFjEKxLL09IUTDHIRyoP9inKOsmxyMU385InRf1K/kAQlG2
YnaMUw85EeGrvZklKoPH5G8QAr74TP1hP/NhBKnsYXm87xNyMsIRo4MTQhqZ
UxAOPRRtnGT3lHwU4aX+7j26JcxpCFnz11zV1n1GPo7wifvsNlkccybC7Ubp
CYc+5hOa/bvnXFPk0UvORpBHT/FLr2PORfgy0CLQe2kf+SSCtv4Zt7ZS5lMI
gi3B3mPT+sn5CB9HRi8yPsxciPB9fN6VDaPMxQgXTdZ7mQY8J5ciZCbFznHs
ZEaEEmefRUKXF+SzCL7mYc4TrzGXIWy7IX+jWjxALtfcn2zlsDkyixDKjDPK
L894Sa5ECLaweb03jbkaYdRGEZGjZq7R5GVqeN6uyN/IYoTrvTPNmvuZLyEc
XZVsunDH72SJpl/Flgc6Hcw/IGzpHrW6sW6QfBVB7acsvCBl/kmzP47qHIHd
EFmqyWvJFMvrIuZahPKpx84lWQyT6xDepcuOrshjvoVw4sUy7NEbITcgVPnN
kJscYW5EePNXzRr/t8xNCOsvjJkOOajIMoRExQof/RjmVoTec0UNc8Uqx38A
x3cxfA==
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1GlM1EcUAPAVQQGRymVpBcUG0bbcVhGk+DiqoKIGlV4euOGw0iACArbE
g24BBRENwmKQfQiFhYIiBUoMp66AHOW0LCIoRzkE0VbrQVvpX998aOclk8lv
kklm5r03S8UHvfxURCJRnDBez28iSgai/8ZxzhLOcZwTOCdxTuYs5ZzOGTln
c5ZzLuBcxLmEcznnCs41nBWcGzg3c27j3MVZyfku5/uchzmPcZ7k/JjzU84v
OP/NWYT/twpnVc5zOKtz1kRQu7Tcz8t1wumNtRDa9o7pZI2uX/fG2gjR25e4
99v7khcgrPR6lJf+LIysi1A+kvgqNfAEWR9hcGmCrK7yJHkhQq7K1JFXJWfJ
hghDCfu2tJmlkt9FcNzqGDBP/SLZCGH+P3q7CuSZ5MUI+4Keh8iMfiCbICRt
MjpiUiwnv4fQKlud33migGyKUBij+DjFqYhshuATqp2h4VlMXoGg5dRyK35z
CfkDhDmZFWey7MvI5gip21XEupblZEsEccb5ksFF18jWCDqhHrfD9SrItggB
3ZUGJzWqyB8h9EkzihSza8irEf5Im5Tlzqolr0E4pitbW/uK2QGhtA71XObe
IDsiWHv4nbJXV5CdEBbvGHSoM7hJBoRh//JZsiV1ZBeEPy37z/Ra1ZPdEOrd
n6mvcm0gr0dIE2tHJ3rfIrsjyESnzi4LbSRvRIiwFgtLTeTNCON++k0Whc3k
LQiu9u2XXRpbyNuE8yoa9w8/+YXsJeTn7U/eitJqI+9AKArXH5VnMXsjBG44
lOjg0E7+DKEutqeprJP5C4RGW8VVy6AO8i6E06bO5SqaneQ9CIqWPF+RnNkH
oX+mXkNvfRdZLNTnzYHmKyPMvkL+7GIDS2Nvk/2FepBMnVvz4a/k/Qif+jQ8
8G5lPoDwfvL3V64c7iZ/jTBPw3B3v5GSHIRwsvjn5Cc3mYMRau08ZcbBPeQQ
hAnvVo9Hi+6QwxCMjSY9tW4xhyPEHtzXFxnRS44UnLAhT7L8LvkbhM3x06YR
SuYohCory51fxfeRjyKESa2sapz6yccRPlcU3ZA+ZY5GmFp2ut0h/x5ZgnBY
NfinSJv75BiE5S91qsWnmeMQZu/xV66YYD6FoL/ndYcPkBMQNO8MP/bIZU4U
6s9gJsJNbZCchNDV/WRVkx/zOQTf8x0rKxXMyQjJ1yvq08yGyCkIFk5qNZEx
zFKEHx+avcgZZ76AYCOtdhnZOExOF95D8eXovcvMGQjVF90kx3R+I6Ow/6qk
1Cac+ZLQb+0zIRZ3mLMRJD2qhinrRsg5CJOxSp+BbGY5QpNnV8ddzVFyPoKG
3Ts7Yw4xFyCo15t/q6tkvizcxzYvcz6MkYsQzLsujBjnMhcjdPckHfNfME4u
QUiRBiwrjGQuQ5grfal9dJC5HKEy/vnQs00PyNcQvJVawc5lzBUIedZlC4ZN
JshVwn843dEri2euQRi97m514DnzdYQcN93KBPEkWYFQUKjcG97KXIfgHD1Y
L137kNyA8Fdoe9LvcuZGhGnn3dnbFk6RmxG27n5p3vrd1Lp/AZqWRng=
               "]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
           DisplayFunction :> Identity, 
           Frame -> {{False, True}, {False, False}}, FrameLabel -> {{None, 
              FormBox[
              "\"Peak \[CapitalDelta]\[Degree]C relative to ceiling\"", 
               TraditionalForm]}, {None, None}}, FrameTicks -> {{{{20, 
                FormBox["20", TraditionalForm]}, {50, 
                FormBox["50", TraditionalForm]}, {136, 
                FormBox["136", TraditionalForm]}, {200, 
                FormBox["200", TraditionalForm]}, {252, 
                FormBox["252", TraditionalForm]}, {312, 
                FormBox["312", TraditionalForm]}, {346, 
                FormBox["346", TraditionalForm]}}, {{0.25, 
                FormBox["0.25`", TraditionalForm]}, {0.5, 
                FormBox["0.5`", TraditionalForm]}, {0.75, 
                FormBox["0.75`", TraditionalForm]}, {0.96, 
                FormBox["0.96`", TraditionalForm]}, {1.14, 
                FormBox["1.14`", TraditionalForm]}, {1.35, 
                FormBox["1.35`", TraditionalForm]}}}, {None, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImagePadding -> {{73, 80}, {50, 35}}, 
           ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 1.5}}, 
           PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0.03, 0}},
            Ticks -> {Automatic, Automatic}}]}, ContentPadding -> False],
       TemplateBox[{
         StyleBox[
         "\"CO2Price D16\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"CO2Price D13\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"CO2Price D07\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"CO2Price FG\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C D16\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C D13\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C D07\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C FG\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False]}, "LineLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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.8, 0.5}}}], "Grid"]}, {
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
               "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                 ",", #7, ",", #8}], "}"}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", 
               RowBox[{"{", 
                 RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), Editable -> 
        True]},
      "Legended",
      DisplayFunction->(OverlayBox[{
         TagBox[
          GridBox[{{#}, {
             TagBox[
              StyleBox[
               TemplateBox[{
                 StyleBox[
                 "\"CO2Price D16\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"CO2Price D13\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"CO2Price D07\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"CO2Price FG\"", FontFamily -> "Helvetica", FontSize -> 20,
                   StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C D16\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C D13\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C D07\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C FG\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False]}, "LineLegend", 
                DisplayFunction -> (StyleBox[
                  StyleBox[
                   PaneBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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.8, 0.5}}}], 
                    "Grid"]}, {
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxDividers -> {
                    "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}],
                     "Grid"], Alignment -> Left, AppearanceElements -> None, 
                    ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                    "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
                  FontFamily -> "Arial"}, Background -> Automatic, 
                  StripOnInput -> False]& ), 
                InterpretationFunction :> (RowBox[{"LineLegend", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                    ",", #7, ",", #8}], "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 
                Editable -> True], ShowContents -> False, StripOnInput -> 
               False], Deploy, DefaultBaseStyle -> "Deploy"]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          "Column"], #2}, All, 2, Alignment -> {0, -1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{OverlayBox[{
         GraphicsBox[{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd02lMFEYUB3Ag2AJB6lWLqEQJVErQKghdCdBXbD1XQQ4LKy6w7Moh7CIg
XRCFItCVQF288IQnsoYllKJyiYpo6YbLerbBFsJWsViECmKFQtVunZcmnUkm
k9+HN5m8ef+FEoW/zMTIyEhl2P+eb1Z6CQw2RSrjqpLhjTNLYE+C987/nM1Z
xTmfs5rzIc5HOZ/kjJzLOJdzruRczbmGcwPny5ybObdwbuXcyfkW53ucuzh3
c9Zz7uP8mPMg52HOzzmPc/6bsxH+3yacTTm/xdmMswVnS85WnKchOD2qneGh
Ic9ASPqyI/JGIXkWwmMXN3NbJXm2oX6+IMo0hGyNoFhzxiTKjWyDsM7+doej
FXkeQkP/X3d1D5OYbRG2Kk5o/erICxB8oCnbIpdshzB1eUnSRwFke0O93bJP
ptqS30fI2Pti4OFvicyOCHb5JTqvKrITwh3jtV1jSWRnhIuuMy2jBOQlCKWD
ix+lT+5gXorg3q8/5neF7IKgKZ5y2nMPeTnC04CgaL032R3hC2HP4VOvEpgF
CHej3g4tukL2QIhwO1L9YhfZE6FRuCGr3oPsjbCldrvPzyMKZkB4LyIvMSae
7IMwN8f+QtrvcuZPDfevz5dNyMirEMpaqoaGfo1nXoMQfT6jOFdMXofwrcU9
SUJ3HLMQoWR+wtZlIvJGhPIVqYX7urYz+yHckr72LAgm+yP07S2+UdEVyxyI
sNLmXcH9EPJmhDNVtWPa7hjmYIS4j+c8/C6MLEJIiVfUl/VFM4ciTD/rWKSL
JYsRLGadU0WMRDGHIzwLW2CmTiNLEIaOORjHmpKlCOMToqLj+7cxbzO8v3zi
8A/zyNGGfkkPFF6okDHHIqgWex0f8CDHIVRdSq1Y2SllliNkqZ3DTcLICQhe
dbLm+6ORzIkINpMHCr7aR05GKDDTXdMsJKcgyOVC365GCbMS4Xn+7jZdEDkN
4dSHL8TpzyKY0xGkN4s7AtXkPQiDmxpsc5aSMxFir9bO1NwOZ85CeBWuvziW
TM5GaN61umDfHHIuguTqop+0GWHMKoTUg72lB2+KmfMQdnXXixbZkfMN/98e
49um3Mr8NcL3O/Q/Jt4OZVYjmMvL4gqXkA8g9K+w69UUbGE+hJDbFnitfFjE
fAShWjtaPh5EPoqQZztuXdkUwnwcYUqP+I61E/kkwstogUx+NJi52JDH3tOO
t8zJiLBJs+2dmt2fM5ci7G5fFtL9fDNzmSGP010nPeXkswjfaDJrXg8EMZcj
GF9J6L8eQ65AmBgpmv3nk0DmSoT7f9jipIJcZciz4LPViWMBzNUIwe0uLecy
yecRcux6bn4wlVyDoG+UrFKe8GeuQ8hc6xTQ6UxuMMyju2D6y6ubmBsRTmqk
K8w3ky8jaF3H1MNDfsxNhnn2K3XYryI3Iwh9gx8YO5CvI4itLj21VvkytyA8
eeBu09y2kVmH0Obdej58GrkVwa1oruVO0QbmdoRfzipDA7VC5k6E0ZTsu1mT
6+Ef1+GuLQ==
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1HtQ1EUcAPCDITDUNBVQrAZQDwcIEQjwUvyeICKcIg9BUN7yxgcYjiA1
hBwdSqRGRQnxFc8iJLruiAEkRUBDokAUjaKSQiIUvEDwKMx++d1ppt2ZnZ3P
Hzuz39daxuwLiNMXiUQKYf97PlnZ5fCrU9/6roxUeOKcclhYn+H6n/M4KzgX
cj7OuZhzCedSzshZybmSczVnFedazvWcmzg3c27j3M65k3M35xucv+Pcz/k2
50HOw5zvcdZyfsBZx3mGswj/b33OBpwNOc/ibMx5DudnOM/nvIDzIs6mCJbF
D9Oc9zIvRlC+ZFg2X8ZsjtA73CtaYcb8HIJdwv1Cl+sp5BcQat3vlFTnMlsg
aOVXg6TWzFYIj99LuZbbkkxeLvgzSbpyO7MYYXrSI1U1kEReibAis+Z+awKz
DYJLyDcH2oYTyXYI43U9KU6pzPYIbo5vzVwaTyA7IGz+QbfQ5DCzI0KntW2+
rQGzM8IR0wUOkqJ4sguCEfT32i5hdkOo6FaPlSvjyBKEsag2d73VzGsRlplc
Mc29sJvsjjAlPF8rYwYEqVY3VdMfS96A8JurzNl7D7MngqiqPm324xiyF8KP
4n7biRPM3ggOm+OONoiZfRBUQro0TdFkGcKLJbozlYHMWxGqTh27OHo3irxN
uB/vG7wxnzkAwflWkvKsJXMQguO66AKjVyPJwQgN/rs/PX0+grwDIWeuYn7I
TDg5DOHa75mupsC8C+GcWNE4T7GLHIEQ7+C13LhnJzkK4eyXl8zEFswxCDLX
AmlUWhh5N8LTfx1c8OzlUHI8QtFTcun7zzMnIjwcEhJ2aAc5GSGjSK/v7s0Q
cqoQX9PJwQY35r0I+ekV4fKyYPJ+hKUTkl+OGzKnIyxZM/vw92nbya8g6JaO
1g8MBJEPCvWUq7WTgcyHhP6Rfy636AgkZyH0tHaPDG5gzhbuPzplZn0xgPwa
gsG6G3XR7sw5CKVniorONfuTcxFsC+4dsfNizkPQdMUWJ3y7jZyP0Jjnse+P
UGaF8H67UuV0lx/5KMIj0zK7L8a3kgsROkx+umNlzlyEoN/QdsLIewv5OEKE
jctQRpaMfFKIf9C+ZZHGl1yM4KPNd7bR+pDfRRB/Iltt5MRcIszjVI00Mmsz
+QMEddx045yvvMmlCIe8dr7juZj5Q4SWn1fF++7dREaEWLH/Kl27F7lCqKdB
weiYNbNS6Bf7/ZnVxzaSPxLycX3eiNWEJ7kS4fWuecvyIpmrECb79G6ZdHmQ
qxFu+w5INR7MNUL8m/TnupzfQFYhPFDKkhNdmdVCfwxJ3qytk5JrEbA1O1NP
wlwn/C8HvJNPNwO5HsFCoxku82FuRPCzDBkJVa0nNyFkmTt4/9ntTr6A0C1+
w08yvY7cjLBTbdOyRczcgmAsn+WWF7aW3CbMx/m7qe1vv0y+gjDz8dKV2h4J
uR0hfM/lv9VmzB0IXyf5XV0TvYbcKcyDoVfETZUb/APumpho
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1H801WccB3DyI6zJjM3E0CrX1kHI9btPhulelJ+5SsyPO/kxtLSUMykc
GWaO07EKnxMznDtuZhaTzG4mrrWprVapTJlOWTjOtKm17/o8Z+fsec55znNe
/z3nc97vj01CZljyMg0NjRLh/vs+O3n10Khqm5mJSIFnPlQPD0pfmfjPhZxL
OJdxruRczbmG80nOyLmRczNnBWcl507OZzj3cu7nrOI8xFnN+QfOlzlf5XyD
823OdzhPc37AeZbzAudHnB9z1sD/exlnbc66nPU4G3BewdmQsxFnY84mCGPu
m87PhTC/hDC3xdY4aAOzGcJ5j8i+3zSZzRGu5tee6FK9Q7ZA+Dsu587QQeZX
EXSPpP0+LWK2RjidPlUZMSonr0b49swqv7RU5jUI2lM24T6azOsQnuaaOw5V
JZNFCI/cLhXOWDG/juA5sdYtpyWJvB7hSkOWt4Ejsz3Czb0jhtmdiWRHhNv2
Szm23sxOCJeCFj3shhPILgjOqX0SnxhmV4RxKHh//sHbZDcEf7l9Vm4BsweC
y8LWrNMvM3shoKlZh4cynuyD8JFlxK89EmZAuP/4evK50TiyL0JyRriXvT6z
H0KQ8/j9xsBd5ACEjbC7OfTDWHIgQtn6TxJzx3aSJQh2NtGRDhbMQcL82t6Q
F6bsIIcgmOg3HZd1x5C3Cf+/Nljf/DxzGMLBaxPtF5Jk5AiEHB8vaWV/NDkK
4Ul/ZB1YMUcjDIZ2H405tJ0cg+Ch9ZpD2lQUeSdCud7gN5+GMO9CEBWMuu/v
iSTHI5hnRBr/YsecgGDctyhOORFBTkIYMPtY1PkCsxxBHSsdWl4aTk5BKFww
cffTZU5FmLqrXKooCiOnC/m08q/tXs78LsKOi0YVsvJQchZCqPxIkJMp8x4E
6eeLq2ZwG3mvkK+BpNZ4e+Z9CIZG6h8n87eS9yMkXPljn7QphHwAYbf4r5qV
l4PJeQhnNyojD+swf4Dws4V1TYN3EPmQ0K/v8gBzpeTDCKtbiqoufC0hFyJY
b55LVGsyFyNMNy6WtwdvIZcIeVybHeVXG0guRWjXOSsunn+LXIaw0k430EXK
XIEQr8iM39MSQK5EOL7DRjFowFyFECDqOtyU7U+uRnAaqdN2ve5HPibMR/1F
VZSEuQYhWiNc17D3TfJxoZ8dB+eVTswnEeZjJbFOCl9yHQKkvmi7aMeMCIuj
T36abN1MPoWgFbu07IADcyPCpGq7Z+lXQG5COFZ1d021L3Mzgsx0Yl3DqU3k
VoSwL8e1b6l8yAqEzLnZOq2H3uQ2BK9zos35lsxKhIxh05t3w7zIHcK8Vljn
ico9yZ0IIZfHbhiMepC7ECraxsZzjJnPCPlJ1wmW7nQn9yBs+P5Woa/CjdyL
EKfn/vDpUzG5D8FMHWfznoy5HyG/WJw22+VKHhD63J2m/6cZswrBcmrkOWX+
RvKgsN8+k+H4PRfyEILRiNxwi4x5GEEhTi26N+JMViPsN+gOu+jrDP8Ahom2
qg==
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd1Q1QVFUUAOAdEEFSBkmYBjYTBVQw2sQxwQUPiIjAgqxItKgQg0b+oUCr
IRj/MCCGC5n8xDvghghG4PAjRkbAkJr4i4KotDborKWJJtqaQS/v6c343syb
N9+cOfeeO/fc++xj4pUbjSQSSR7//vd9+aRw0L3RenHmhg/hpdM4yFXE3s34
31kcmLcrLwjO42Diyy2XBO/jQOrgaxBcJIqXcGBpvP5vwYc4sBly7xNcIcpH
UVzLQcqCVL3gWtH4x0TjN4rym0XjnxCtp0MU7xTl94jip0XxcxzE/tZwX/BF
UX39ovoGOfDwfNgr+KZofTpRfSMcQK7hsWC9KH5fNP6oKP6Eg0/Woo2wv3+J
6n8hypcg/KnOuiLYCGHRJqsxwZPw1fVNRjB07p8QbIavrsccIahWNyp4KkKw
Sza4hpEtEFRZMS56OdkSoS36qKvOjmyFYLPd4H/2cTTzDISHYZ2eF7rINghu
+77zXlRIfoO3boHjz0qyLcKb6l/elc8gSxHmy+PUt7RRzDMRBsdeU3fbkWch
KNOLt+kKNzDPRghYXuijMSU7INzpPy9ryV/P7ISwcGnB8FEr8jwE97Ypz85W
rGN25udzik8rdSYvQAgsVl58cDKS2RWh6fmcqcYKsgyhowll826rmBcijFrf
SlbsIi9CGC7OzVZNIy9GkH3U6vJE+wHzEgR/w6qWEC+yB+UPRDDLEd6THpy8
N4HshRBhNL9piwUZEKyVe5UPjr7P7INQYuNa3+hP9kXIiz3dNHY3nNmPz99Z
1yLLIfsjtPccMJ09lxyAUFPeM6vxp7XMQQgVW4134WZyMML45WqvM9PIqxE6
96wsnHI8jFnJ96PnnOm2EeQwBI368OeGf9YwhyNMc2+ttK8hRyDgxMwOdTBZ
heCifaEdeqZkXocQ2SzZVl9N3oBwIlJjrFaQoxFM4ebV+uehzDEIn2qS+kaO
kGMREgoM7VXh5E0Itxx3hvtOJscheJRUOde0rmbejGBuaeJWE0feysfNPFRX
bcnbEVpnFD1dVhnCvIPv7/Hd36pMyQkIZnf1j/YkBjMnIRjF6ge9byuY1Qh/
JH+cLwkl70ZYkn6veXt3EHMyQkP74Yk7i8kpCLm1XdztbwKZ9yJ4+9vI0h3J
aQj3ryeWlmEAcwbCZ8Nh2i4pOQuhdGOIUXn5KuYcfn6zIybvSMl5CN0DAyf7
K/2Z8xGqU4/p2uaQ9yHEB45kuNWtZN7P1/d4UlewG7mI31/IVHz1vR+zBuEt
S33QUAC5BCEpebjQ5PoK5oP8fZHi4Oi5mXwIYezGQHriC1/mMoT1oQFm4QfI
FXy/xF/Tpc4lVyJUuUyvHf9hOTMiOFz7dY1ERa5GuK4esp3+1IdZi9BnHDEy
UEyuQdA/1fTGuZFr+X53+tHucr83cx1/vnMKbl7ZRT6G8HWVn/0ZKbmBP1+H
JaGybmBuRPBbZhtcuoV8nO+PQDuLQGtyM8LbzYllJhnLmFv5/FOWCcM3vJhP
IKSus3PudSefROC7U/Gk1JO5g79fGqIa7cblzKcQZl2alB8RS+5EcPx9R9IX
55cydyHIB2PaLniQexCKMq02DdV5MPfy/SzPenRFSj6NcLlnaWexxp35LEJ9
SeU9R3PyOf7/0VfwelT2EvgX2KaZHg==
               "]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[0.002]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 120], 0.008333333333333333]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
           DisplayFunction :> Identity, Epilog -> {
             InsetBox[
              FormBox[
               StyleBox[
               "\"high CDR cost\"", {
                FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
                False], TraditionalForm], 
              Offset[{0, 0}, 
               Scaled[{0.5, 0.95}]], {0, 0}]}, 
           Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
              FormBox[
              "\"CO2 Price in year 2030 in US(2015)/tCO2\"", TraditionalForm],
               None}, {
              FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
              None}}, FrameTicks -> {{{{25, 
                FormBox["25", TraditionalForm]}, {50, 
                FormBox["50", TraditionalForm]}, {100, 
                FormBox["100", TraditionalForm]}, {150, 
                FormBox["150", TraditionalForm]}, {200, 
                FormBox["200", TraditionalForm]}, {250, 
                FormBox["250", TraditionalForm]}, {300, 
                FormBox["300", TraditionalForm]}}, None}, {{{2020, 
                FormBox["2020", TraditionalForm]}, {2050, 
                FormBox["2050", TraditionalForm]}, {2100, 
                FormBox["2100", TraditionalForm]}, {2150, 
                FormBox["2150", TraditionalForm]}}, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 350}}, 
           PlotRangeClipping -> True, PlotRangePadding -> {{0, 10}, {1, 1}}, 
           Ticks -> {Automatic, Automatic}}], 
         GraphicsBox[{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd03001XccB/CbJg9Lp5kJy06sYzbripSK6bPkIWWhdHowk9wy7WRUaoWE
E3m4ZIrpyicqdocecbvpupMhroea8hCJPIZR2UMP037r8/tj+37O+Z7veZ3v
P9/P9/v+mPgHe4nUBAJBPLf+3d9UeA4I/ltRjGMZxzNOYpzKOJ1xJmMJY2R8
lnEB40LGFxlfZSxjXM5YybiKcS1jFeNmxi2M2xh3Mn7IuI/xEONRxhOMJxn/
xfgVYwH+32qM32I8g7EmY23GMxnPYjwbwepQe1iHkdWKN9ZFcPV4ZbCn1Yus
h5BcdsL3VLKIrI8g8YiPciwIJRsgHK5sLxJZh5ONEHyq3XVscmLIcxGulChc
A+uPkT9A2LXaZVmmeyp5HkLZoWvrxGrpZFME34WyAfFUBnk+guXLffl26yRk
M4Q/TmgMfxyKZHMEk2LJjUUdueRPuH4uB4j7vzxH/hTB8Lj51cKX+WQhgsjI
XVitlJIXInxllpAqzy4iWyMEC6dKP3K9SLZBWKP+nnfFnUvkJQhJwuBZrUFX
yEsRup87ab14u4S8HOFdJ9euRkUp2R5hzurrt2vCZWQHBP/cz7VPr5STAcHP
YbOVj3E5eSVCaozujo6pG+RVCIs8Y1vGRivIzggFYm+3pkkl2RVhrdjuXMzv
P5PdEKRZ8x47CG6S1yJoR9eU7depIn+BIAzpO1Jr+gvZg7v/lI9NgH012Qth
WoVz2jyfGvIGhIezpS2jR2rJGxFqr9SXORTeIm/i8nLeMX+wq468BWFG9uzl
Q7oqsg/CDzNrnhl6NJB9EbIyhVWPUxrJflw+trmLPNuayP4IidbvB6QdbyYH
IAzcWqxubXebvAPBTWPk9dwB3oEI9/MfWU0/cYcchPAE2/cFO/1K/obLu1QW
kvic924EXcWftoEXWsjfIhQtTu9IDLxLDkVwNN4o6//wHnkvwl6tuAe9PbzD
EBqM/7ZszW0lH0DYbhG4xV/URj6IMF+iXz5k0U4OR4g5M8ui8ynvSG5ejtru
mlB0kKMQNFOWiDcl3idHIyheHBi6vrWTHIuwIcVGVrSgi3yUO9effGCg9oAc
j9AWaV0d1847AUHN3Pmk6lI3OQlhzLzR08XlIVnM/W9e/ambJbxTEcalGipH
sx5yGkKv+js/fp3BOx3hjkFRnlSrl3ySy1frArXtEbwzEaIiuyu+e8I7C+HZ
5tMa+3c+IksQmn0j7Ce7eJ9G8FyzxyLWu4+MCE9v9yZta+Sdy+Wp56BesUs/
+Sw/L5W8zyPcnT5gst5hgFyAUB99bEWCnLcUYSSkOyh76SC5ECHUNv5eQinv
Yq7faXLLnUuGyBcRvJWfNeWU8r6MkLdlld73tsPkqwirRQnLNOW8SxFCkpsC
Xts/JssQVBM5u1HJW46gI/DulDmNkMu592wwKr9Qx1uBsGn9Zr0wz1GyEiF/
a1j84TbelVxel6sy5viNkau4vHa6tpsO865G0Bj/KfRM6G/kWgQ0rNIIe8W7
DuGa4W7lYNw4WYUQUS8RJmpNrPgH+b83zQ==
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd03001WccAPDLaN2UaXMMpfKyOM5FZ17qRPNNhZVKdidtJlOZcVUcDcsh
vXCz2I1bVHf5eitt6B5a6EpE8lZqUci6eVkpuqN00slO++X7+2N7nnOe85zP
+Z7nnOf5vpiH7PLboS0QCKTcfndOr4RcEPx37WN8kLGU8RHGMsZyxjmMFYyR
cSHjYsYljJWMLzCuYlzDuI5xI+Nmxu2MbzHuZNzNuI/xQ8ZDjIcZjzIeYzzB
eJLxFGMB/t/ajHUYz2A8k/EsxrMZ6zM2YPwhY0PGRghTkRtl3Rp992kbI5gv
2uqhm+pFNkVw2FmgVaMbQp6PkLK8ZHebVzR5AcIjK3mtQXQieRHCgQjNcFJ1
CtkC4cnF1fbLDvxMtkIY9cl7YaqSkxdz9xcNh3257iTZBmGsYaWH3AHJtggL
a30MzfcUkEUI+2WiYO3KM2R7hE+Oy1Ud4+fIS7i4OM0sfVUp+VOErZqsAsEm
JdkJwVn4QOapW052QTjoNc+r5FoFeRnCHi0HR4n8d/JyhO+jmpZYh1WS3bj/
dAmK8jyryZ8h5MZY1IsdVWRAiDgZq8i3vEz2QDhaGfhPt9UV8mqE7a7qjenZ
dWRPhG3fShW1p+vJ3gjH9I4l2Z2/Sl6LcLepW+hQ30D2QVgfWlM60dtI3oCQ
cSNDrH59jeyLsLe3/3yL6XWyH4LJgjdbRGuayWKESO3Zbbm7Wsj+nAeGElPz
W8kBCK8Pbc50u9dG/goheIXm69KPbpADEQ7pxess9btJDkKYDmd3kIMRbPRR
/WrXLXIIwsfVZ39zNbpN3o6gPPeiePIK71CE9KA5vqbhf5DDELo6TqWJje+Q
wxF0nRP0Rpp4SxAqQ5J6VsR3kncimGn1iYJEXeTdCJteaXlHDvCORnBvMXM5
euIuOQZh7ltlkdcX98g/IATMvzkVrt9NjuPmYcgGDNt5/4hQ3Xj0fYufesgJ
XH8fynJK8uklJ3LvsfaWxH5wn7wPQWSf0bq+k/d+hOfCnvh5p/rIBxFCVR4L
Rdv+JKcgZA7vMGyze0CWIqRlyrzvT/JOQ1gqvZvmcl1NPoLw7M54TvLah+QM
hHp/oVFqBW8ZAhSqa/Xn95MzEaT6yZbJKbzlCBtWifs7xngfR5hhO6j+LnCA
nIPwTZFqRNLM+yRCTHbjlrnOg2QFwuWSw7q1+bxPIyyzi7u92WCIjAhPLcdS
c5N453P9HhgVJdbwLkQYN2jaOBj0F/kMwrrourLFHbyLEbJMewUSeET+FUHb
IPalbTnvEoQ+z/fi9Kwek8u4/LlKLByzeSsRuOF9eUo4TC5HKLN9UzYzkfcF
hJVz1FcvjfO+iPDu+bLQJ+QqBIVxZtbh+7wvIbwt3/tc6fuUXMPlO0BdN9TE
u5ar/4lZ495uI+Q6BNWdX6xPV/C+ijDBdbul7Si5kZvfJYqInDzeTQj+XW1/
O5k8Izdz9RFKP6+S8W5FsNeaPCsWasjtCI8bKnRMkjXu/wKWdiSl
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd03lQ1GUYB/BlvZA0VgZLjiTxwgI1jEPRfGIclkEqQYOEFZSBDQiFYXJX
dEVcdAMCZBxmXcDkUVEoUS5DA4xD4khMkENQEyEuaXVAg8xA+8Xz/lHvO/PO
O58/3ut5v++ioEjvELFIJEoQ+r/jVFNlg+i/LY7zEc4JnJM5p3FO56zjfJIz
cs7hnMc5n3Mh58ucr3Ku4FzFuZZzA+cmzs2c2zh3cr7P+SHnPs5DnPWcRzj/
wfk55wnOIvy/xZync57J2ZCzEec5nF/nLOFswtkUIdrLzjqp8bWNU34DQfHi
wx05W9zICxCOW42+2xG1i2yOsNatWJpnFk22RNjlrVK5KmLJC4X5KdppG9o0
5LcRslPr52yrO0a2RtCIS+Pn/Z1OXoIQPLg7QpGTSV6GEFOcZTYZimQbBHOH
wKVW5WfJ7yCcLRpXlkpzybYIo6Ozu2IsLpBXItR0XQyxtywgr0Z402NZrkJT
RLZHAM+ao+vVJeT3EcbKCx38Y74nOyJsOjo80Bt5heyMcCAsSZSr/IG8DuEj
tVOO1+Fy8nqEggxVyc2Ua+QPEJIKFKaDeZVkQFgwe/faE71VZFeELyQDilV/
VpM3IaTPv95uILlOdkNYITtWM2ZTS3ZHSIkzkqZ5/ET2QFBP8ytT764jeyLY
HhxSv9DWkz9GyHAPczx2vYG8BeHVvgK/jJFGsjfCN6G+i/qX3yBvQ8hbGBbl
799E9kHosg5zeqG7Sf4MQTssDpB3/kL2E+5btHlb5NxmsgzhRtgnjWuLmAMQ
EkYzfff6tJB3Imz1O7RZ9JI5COFZ/4xOae5tcrBQL8V871jvVrIc4ZBJtkv1
S+ZQBD2a3HnvUhs5HMFOKVf3yNrJEcJ+xvrnqyQd5D0IVuOuBveqmaOEPIT6
lBrH3CFHC+cPLLQoteskf4kwN/GAUEJmBcIas9TBNdhF3odQFn5q8dMdd8n7
EVqzJ93nmd0jq4T8O0X4p3cxxyIEYE6VWHefHIcwGe+usfT/laxGsIkLCm60
fEA+gpDlY3RY1susEd6zLXPgrdxucgJCZUuqRazTQ3ISQomuUyXLYk5GePTM
y00m6iGnIuRHn35aEMKchnDaVnXw4g3m40J9pz5ILzkdYXH4mVvSDGatkPfw
sfZPDX4j6xDWbQ+/1h3KnImQ9lccfH6b+SRCc7uPfpVLH/kUwviOeROR55gR
QebbZBhp3E8+I+Qxxny1+37mHARDf/349n7m8whRyo495VsGyHkISonL1qEK
5u8QHILk2fU2g+R8hIYn4qUztMyXEPCru47J4iFyIcLOJm1+UhRzMULPrRH5
3AfMlxFWOsdXBno+IpciDPZMP99axnwV4UHflaHgFcPkMgQ31XL5NR1zBYLx
CUulx6zfyT8K/8nL3f6CkrkKYUPL3p5Zg8w1wvoTpvWHffXkWoTHkleF5+qZ
6xBql8gaFjs/JjcgdE9oEmd+y/wzQiKMGVubPSE3CfmQTo4Zff1k4z8vly2v

               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]], 
              LineBox[CompressedData["
1:eJxd02lQ1VUUAPCnEehLRRAJ0CEwwA1N8Amk5jthyRIDDJoiIgmj4NCL1cAc
RBQFDBNMSCCioxCrC4IwCISPpSfKvr1kkUWQRdSXa45R9tdzP9S9M3fu/ObO
3HvOvecY+wS67ZkuEonihPl6fTMifgbRf0cU56Oc4zif4JzIOYlzCud0zsg5
i3Mu5/OcCzlf4VzGuZKznHMd53rOjZxbOXdyvsW5j/Mg5xHO45zvc/6D81PO
LzhPcRbh/z2dsxpndc4zOIs5z0II9LF3NgtYI33jOQguN7NirEQ7yHMRdF1z
cxLkgWRthIHV2me1ZBFkHQTnNPVPn4hiyLoISzo77AY1E8h6CB96HR53SE0i
GyCsVMjXnnwvjbwQIWSwK8TPDMmGCMrvwu0U/plkI4SNidHavj3Z5EUI1guW
W7Q45pNNEL5olm0bj75ANkN4fDA4z3FHIXkJQrfGdl2nqcvkZQgtz8dn/3mq
mGwunH9jpLN5VQl5JYLmLKOIJW2l5FUIC44MWwb4l5EtEXQu2g0d0CknSxB8
HScDZ8oryFZCvp2qGqXsV7INgviD6jxNk2vktQjHNrgrYgLk5PUInsOru6Uu
1eQNCI8y3mrQsqwhg5BfWah31ru1ZFuEoIgHqabT6sifIOwTPy4+Ncm8CSFA
7+3q4d7fyPYIJXLDeUubFGRHhDFrJ4l99XWyE0JeXIdDaXk92Vn47yz9+Ozi
G2RXhIMHZA1RxTfJbgj6alvnrChqIG8R4g+1e9VQ0kjeiqC++1L4ocomsjtC
8uwvl8XXNJM9ELK7Esuut7eQPRG8pyQPmwJbyV5CPDrrDGJfMu8S3r9HJIOj
bWQfhOEBP0+bue3k3QhRt9oz8zKYfRF+HO4z61veQd6LcCHgWfrTKmZ/hG88
IgeXuXSSZcL+OankyQhzAELXzL2LZPu7yEEIBcbBCb9oKskhCBZSa8meHOZ9
CCcvfVRsAr+TwxBMrk7FPu1l3i/Ud60qe0fYLfIBhMiEl5PzdbvJEQib7s8D
iyLmSITJE6r4zz7vIUchZL7/+kDmI0L/Bt3vDk3tJR9FuKcm0bJa30eOEfb/
rjr05A5zHMJl52SV/vHb5G+FfHvWGF+w6CefQLiaU7BOt5f5JMLzM7dPxx4b
ICci+PSea1TXHyR/j3DX+6xSEsichHA6yDhhUMH8A8LX09NmLDAcIqcg5B8e
DX0YxpyGMGua/LJfC3M6wlbzyM3uS++QMxD669c/1ohmRoQXtS2HNPuZzwnx
CNerbIbJWUI+10xFr5KYsxEanpWmih8x5yIYuKgFGzqPkPOF/50A5eYC5vMI
x9tC39k58y75IsJ2vUU5l/yYCxEqHtiG/qRgLkL4q7A/d77ZKPkKQv0Z1+qh
Y8ylCAs1vFaEjzKXCf3nNmNE226MXI5wPs9cXJHLXInQeDBEx0g8Tq4S6i3F
UTokY5YL9bxFovynmblG6KeMCVOF5QS5DmGbbbhDejKzAiEl87rqq5fM9Qj2
2RtzxnbeI99E2OXRufhqLXMjQmtH1Mftiyel/wLtVUA3
               "]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}}, {{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}}, \
{{
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 
                NCache[
                 Rational[2, 3], 0.6666666666666666], 0], 
               Dashing[{Small, Small}], 
               Thickness[0.002]]}, {
              Directive[
               PointSize[
                NCache[
                 Rational[1, 90], 0.011111111111111112`]], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}], 
               Thickness[
               0.002]]}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, \
{}}}, {{}, {}}}, {
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
           AspectRatio -> NCache[
             Rational[1, 3], 0.3333333333333333], Axes -> {False, False}, 
           AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
           DisplayFunction :> Identity, 
           Frame -> {{False, True}, {False, False}}, FrameLabel -> {{None, 
              FormBox[
              "\"Peak \[CapitalDelta]\[Degree]C relative to ceiling\"", 
               TraditionalForm]}, {None, None}}, FrameTicks -> {{{{20, 
                FormBox["20", TraditionalForm]}, {50, 
                FormBox["50", TraditionalForm]}, {136, 
                FormBox["136", TraditionalForm]}, {200, 
                FormBox["200", TraditionalForm]}, {252, 
                FormBox["252", TraditionalForm]}, {312, 
                FormBox["312", TraditionalForm]}, {346, 
                FormBox["346", TraditionalForm]}}, {{0.25, 
                FormBox["0.25`", TraditionalForm]}, {0.5, 
                FormBox["0.5`", TraditionalForm]}, {0.75, 
                FormBox["0.75`", TraditionalForm]}, {0.96, 
                FormBox["0.96`", TraditionalForm]}, {1.14, 
                FormBox["1.14`", TraditionalForm]}, {1.35, 
                FormBox["1.35`", TraditionalForm]}}}, {None, None}}, 
           GridLines -> {None, None}, GridLinesStyle -> Directive[
             GrayLevel[0.5, 0.4]], ImagePadding -> {{73, 80}, {50, 35}}, 
           ImageSize -> 1200, LabelStyle -> 
           Directive[FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0]], 
           Method -> {
            "OptimizePlotMarkers" -> True, 
             "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& ), "CopiedValueFunction" -> ({
                 (Identity[#]& )[
                  Part[#, 1]], 
                 (Identity[#]& )[
                  Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {0, 1.5}}, 
           PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0.03, 0}},
            Ticks -> {Automatic, Automatic}}]}, ContentPadding -> False],
       TemplateBox[{
         StyleBox[
         "\"CO2Price D16\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"CO2Price D13\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"CO2Price D07\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"CO2Price FG\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C D16\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C D13\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C D07\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False], 
         StyleBox[
         "\"\[Degree]C FG\"", FontFamily -> "Helvetica", FontSize -> 20, 
          StripOnInput -> False]}, "LineLegend", DisplayFunction -> (StyleBox[
          StyleBox[
           PaneBox[
            TagBox[
             GridBox[{{
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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.8, 0.5}}}], "Grid"]}, {
                TagBox[
                 GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                  GridBoxAlignment -> {
                   "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                  AutoDelete -> False, 
                  GridBoxDividers -> {
                   "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                  GridBoxItemSize -> {
                   "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
              GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
              AutoDelete -> False, 
              GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
              GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
              GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
             "Grid"], Alignment -> Left, AppearanceElements -> None, 
            ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
            "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
          FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
          False]& ), InterpretationFunction :> (RowBox[{"LineLegend", "[", 
           RowBox[{
             RowBox[{"{", 
               RowBox[{
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                 InterpretationBox[
                  ButtonBox[
                   TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                   Automatic, Method -> "Preemptive"], 
                  GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                 ",", 
                 RowBox[{"{", 
                   RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
               "}"}], ",", 
             RowBox[{"{", 
               
               RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                 ",", #7, ",", #8}], "}"}], ",", 
             RowBox[{"LegendLayout", "\[Rule]", 
               RowBox[{"{", 
                 RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), Editable -> 
        True]},
      "Legended",
      DisplayFunction->(OverlayBox[{
         TagBox[
          GridBox[{{#}, {
             TagBox[
              StyleBox[
               TemplateBox[{
                 StyleBox[
                 "\"CO2Price D16\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"CO2Price D13\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"CO2Price D07\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"CO2Price FG\"", FontFamily -> "Helvetica", FontSize -> 20,
                   StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C D16\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C D13\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C D07\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False], 
                 StyleBox[
                 "\"\[Degree]C FG\"", FontFamily -> "Helvetica", FontSize -> 
                  20, StripOnInput -> False]}, "LineLegend", 
                DisplayFunction -> (StyleBox[
                  StyleBox[
                   PaneBox[
                    TagBox[
                    GridBox[{{
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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.8, 0.5}}}], 
                    "Grid"]}, {
                    TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 
                    NCache[
                    Rational[2, 3], 0.6666666666666666], 0], 
                    Thickness[0.018000000000000002`], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                    False, GridBoxDividers -> {
                    "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}],
                     "Grid"], Alignment -> Left, AppearanceElements -> None, 
                    ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
                    "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
                  FontFamily -> "Arial"}, Background -> Automatic, 
                  StripOnInput -> False]& ), 
                InterpretationFunction :> (RowBox[{"LineLegend", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}]}], "}"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 
                    Rational[2, 3], 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.4444444444444444, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", 
                    FractionBox["2", "3"], ",", "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[0, 
                    Rational[2, 3], 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[0, 
                    Rational[2, 3], 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Thickness", "[", "0.002`", "]"}], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
                    ",", 
                    RowBox[{"{", 
                    RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; FrontEnd`Private`$ColorSelectorUseMakeBoxes = 
                    True; MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}]}], 
                    "}"}], ",", 
                    RowBox[{"{", 
                    
                    RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, 
                    ",", #7, ",", #8}], "}"}], ",", 
                    RowBox[{"LegendLayout", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 
                Editable -> True], ShowContents -> False, StripOnInput -> 
               False], Deploy, DefaultBaseStyle -> "Deploy"]}}, 
           GridBoxAlignment -> {"Columns" -> {{Left}}}, DefaultBaseStyle -> 
           "Column", 
           GridBoxItemSize -> {
            "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], 
          "Column"], #2}, All, 2, Alignment -> {0, -1}]& ),
      Editable->True,
      InterpretationFunction->(RowBox[{"Legended", "[", 
         RowBox[{#, ",", 
           RowBox[{"Placed", "[", 
             RowBox[{#2, ",", "Below"}], "]"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.8252703857589755`*^9, {3.8252705620442243`*^9, 3.8252705918782663`*^9}, 
   3.8252706360653286`*^9},
 CellLabel->
  "Out[1023]=",ExpressionUUID->"7770e7a4-6746-4c3a-bb0f-39646dc5f096"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<FigureSI6A.tiff\>\"", ",", "FigureSI6A"}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{
  3.825268389983919*^9, 3.825268544932138*^9, {3.82527059448927*^9, 
   3.8252706416763363`*^9}},
 CellLabel->
  "In[1024]:=",ExpressionUUID->"90590712-d464-46ed-8e25-0f85870ac88e"],

Cell[BoxData["\<\"FigureSI6A.tiff\"\>"], "Output",
 CellChangeTimes->{3.825270643616339*^9},
 CellLabel->
  "Out[1024]=",ExpressionUUID->"381ea079-ce3e-4e33-bc36-ea762cb69652"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.824097026243964*^9, 3.824097413596793*^9}, {
   3.8240974983813505`*^9, 3.8240975142615833`*^9}, {3.8240991003812776`*^9, 
   3.824099101098219*^9}, {3.8240996496945066`*^9, 3.824099675267728*^9}, {
   3.8240997137101746`*^9, 3.824099926877396*^9}, {3.8240999632459774`*^9, 
   3.824100181766982*^9}, {3.824100496350878*^9, 3.824100725682849*^9}, {
   3.824100764473697*^9, 3.824100946720783*^9}, {3.824101078004368*^9, 
   3.8241011826625137`*^9}, {3.8241016922621756`*^9, 3.824101697416159*^9}, {
   3.824101858035652*^9, 3.8241018620594683`*^9}, 
   3.824543209907256*^9},ExpressionUUID->"2a420925-0770-4ed5-93b5-\
bdc75246214a"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt2P071fcfwHEV0t0yuiWlVkk0MnPT6vQetZ2WK4RaKcwamY5kURlWUg4J
Ue4S73EUylKcE3J33N8VlqEkmqy7Ed828p3VXrze313r8xfs+l7n88NxPa7r
HNc578/n8zyv817svH/rVxPl5OR04WHs7/ihQoncP49ZlGSpxvbMFnqsH/cc
SuKsdW/kqgWi51Gyyv75qSBJGFqNEi33FnPDgmj0AkpED2xM+7Tj0Qsp8VDt
P3fkchJakxLFTcnbmheloJdQEnjA82ncSxF6KSUdQq2b8c2X0MspsbWJ8jYp
yESvoKTSJsIwLysLvZISU62hJt62bLQuJSeW5vgGd1xDv09J9fcBcyUuOWh9
SqJ2u83PGM5FG8DnPxPwxxpPCdqQEvNex3qdthtoI0p2WM0762aYjzahpOhN
hOrysAL0GkrO/JSVFP3gJnotJZ1L9FuN9YvQPEoKD6/3KPErRhNKNP1WNEdV
l6DNKNGIDPL/KKQUvQHW66LZWhU9KfoTWG8H3eln7jDzKdFN7j3ieagM/Rkl
eZO861LVy9EWcD6k6j+mlzJvocRl/KhAW1Ei3FNz7ffpleitlJiclOtuz2G2
hfdj36gcvqMKvQ2en2d6brpcNfpzSl5ZpSyLuMS8k5I0laSm55Y16F2UlFkF
z/YYYXaA96t9KLkntRbtRMnkANvyAMs6tDMlQwGpGsajzHsoCX92UPN5Rj3a
hRKBncrdyTsa0HspEVdRVbPJt9BfU+Jluf2QroR5HyW7IlfVt311G+1Bib2/
tx2d04j2pMTCkC+1qWH2oqSqTNnUf10T+iAlnh9LdB1jmX0ocQjSrksbZD5M
ydkhRcc4i2a0LyV/3uR903qJ2Y+S/ikqHZ2TfkQHwPlbElqr7sR8lBKDBY2u
pIg5kJLm9dLKULU76CBKnFfxFEoPM5+k5PSGvfLqbcxCSi4v0+h1MmpBh8Lz
9b870XCOOQzuhz5tuCWYw2F9nVdo3bP7CR0J62GeUSSUMEdRov5b2o31c1vR
ZymZXuPw4vVh5hi4/vdFh1bdY46jxO9LJbnwdW3oBEr+u3KkfTdlTqRky8aV
Yavk29FJlJx8omyispeZUnJcUBHd2cCcQklj4QKfrtV30SJKSqbZ55yLZb5I
SUaJwxfSP5nTKZHX7H9mt+ceOhOuf037mKv1zFco8Y/6aN+SDzrQP8D/H7bp
STvPnE3Jzs0T3N5Muo++Tknfhk18kYA5l5IC3eVGi9qYJXD+Xc1fx3/cic6D
9Twf8tTsCnMB3M+OZgrBcx+gCyl5kC2wdjnOXAzX+wahjusL5lJKnl2Pa/fb
1YUuo8Rq/ye3ttcyV1DSvbd6Rol6N7qKkoiH15IrtzLXQC8Xft2hH8pcB72c
f1HSImVugPthLLgjzNB3L+uxK3Baybih7z4hz7KOZRmgoe+jp+jq6PRP0dD3
o8kHHhL+NjT0vb3liO1o1xdo6PtR5drIL5+7oaHv5YN+ii3nD6Ch72ZiaciT
Nh/0WN/Dt4lFqX5o6PtQjFdx+7fH0ND3mJgzvpa9QWjou7PerGyNMCEa+s5b
H6a8UBCGhr4/sBWVtZtFoqHv717JjO1yi0JD39/EyI3aZJ5FQ9+7PBflf/g0
Bg19d084lJjyXjza6H/n4zwa+q4dt1rBPfECGvrek3n9RWh3Mhr6rsg3PLZk
zvdo6PsO6+Nu83gpaOi7QY8grc0lFQ19/714UOwaI0JD36+oBeV31qehoe+N
983Lhl9fREPfr4qHM1YapqOh7y8OPg55vC8DDX2fyv9jkVNWJhr6br7OX/71
wGU09D1h6iC/cG0WGvpumGhg3CX8AQ199/PP2ny66Soa+u5JNm/PPp2Nhr43
TJZfE210DQ19N+5+Wa70kBn6bvFa67vh8Oto6Pv1QadTnbwcNPR91rLFZySD
zNB33ZaEXzQu5aKh7x4dw+klDmI09N1+RXzivfkSNPS9yEhdZ3UjM/T90VC9
ls7JG2jou/wCs3MJ6/LQ0PeAsHz3KSPM0PfaRy239cX5aOj7TP9DOpsPFqCh
7yeUTIJWfngTDX2PrVFwHRhmhr6bBLuLg4sK0dD3+pm7eqcEFaGh7w+d9jvz
txSjoe/OLw8I0ueVoKHvfa0G88MfM0Pf13Ye+dnUvhQNfbdZ6jhFVMEMfR8O
V1N1fl+Khr4rjA9AzNB3PY/UCYUKZWjoe43/Ze+fvZih7y392ycUdzBD33sT
JsZf2FiOhr5/MH6CmaHvA1L3WKMFFWjou0V690CgkBn6Pv71P8QMff/WNddu
055KNPT9WLSg+50WZuh780I9Ubl5FRr6rsRT1NkiZoa+K+znp07UqkZD3zt3
jwWVGfoel3YhoX5GDRr6nhctHNALZIa++1rfdFR4xQx9Xzez//Y9QS0a+u6s
Gp9f2ssMfU967z+7P9tdh4a+83zL/R+1MkPftfQvtAqs6tHQ9xxxMX9vPTP0
/c01ZY2Jnzagoe9j384W5czQ99kmdxX7yS009N0tU+tlRDEz9L0yymvYlHcb
DX0P/OWbfp8iZuj7qJVbRQOvEQ19l6q53nm3lBn6vrpZU8FycRMa+r7xrn3d
iDMz9H3844iY/ZKJ3D+PoxwHcSzkOIzjSI7PchzHcSLHlGMRx+kcX+E4m+Nc
jvM4LuS4lOMKjms4buC4ieMWjts5vs9xN8ePOH7C8a8cD3D8G8evOB7lWI7z
e24ix/IcK3KsxPFUjqdz/A7Mp4173qydYYLzhjIlrn2Sabe8d/49f7i8sjS2
6hb87bdeL5tHZPOIbB6RzSOyeeT/Yx6R7SfK9hNl+4my/UTZfiJatp8om99l
87tsfpfN72jZ/P7vnt9l+4lvW7af+Lb/RfuJfwHcqMTL
    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
      {GrayLevel[0.85], LineBox[{95, 232}], LineBox[{2, 233}], 
       LineBox[{3, 234}], LineBox[{4, 235}], LineBox[{5, 236}], 
       LineBox[{6, 237}], LineBox[{7, 238}], LineBox[{8, 239}], 
       LineBox[{9, 240}], LineBox[{10, 241}], LineBox[{11, 242}], 
       LineBox[{12, 243}], LineBox[{13, 244}], LineBox[{14, 245}], 
       LineBox[{15, 246}], LineBox[{16, 247}], LineBox[{17, 248}], 
       LineBox[{18, 249}], LineBox[{19, 250}], LineBox[{20, 251}], 
       LineBox[{21, 252}], LineBox[{22, 253}], LineBox[{23, 254}], 
       LineBox[{24, 255}], LineBox[{25, 256}], LineBox[{26, 257}], 
       LineBox[{27, 258}], LineBox[{28, 259}], LineBox[{29, 260}], 
       LineBox[{30, 261}], LineBox[{31, 262}], LineBox[{32, 263}], 
       LineBox[{33, 264}], LineBox[{34, 265}], LineBox[{35, 266}], 
       LineBox[{36, 267}], LineBox[{37, 268}], LineBox[{38, 269}], 
       LineBox[{39, 270}], LineBox[{40, 271}], LineBox[{41, 272}], 
       LineBox[{42, 273}], LineBox[{43, 274}], LineBox[{44, 275}], 
       LineBox[{45, 276}], LineBox[{46, 277}], LineBox[{47, 278}], 
       LineBox[{48, 279}], LineBox[{49, 280}], LineBox[{50, 281}], 
       LineBox[{51, 282}], LineBox[{52, 283}], LineBox[{53, 284}], 
       LineBox[{54, 285}], LineBox[{55, 286}], LineBox[{56, 287}], 
       LineBox[{57, 288}], LineBox[{58, 289}], LineBox[{59, 290}], 
       LineBox[{60, 291}], LineBox[{61, 292}], LineBox[{62, 293}], 
       LineBox[{63, 294}], LineBox[{64, 295}], LineBox[{65, 296}], 
       LineBox[{66, 297}], LineBox[{67, 298}], LineBox[{68, 299}], 
       LineBox[{69, 300}], LineBox[{70, 301}], LineBox[{71, 302}], 
       LineBox[{72, 303}], LineBox[{73, 304}], LineBox[{74, 305}], 
       LineBox[{75, 306}], LineBox[{76, 307}], LineBox[{77, 308}], 
       LineBox[{78, 309}], LineBox[{79, 310}], LineBox[{80, 311}], 
       LineBox[{81, 312}], LineBox[{82, 313}], LineBox[{83, 314}], 
       LineBox[{84, 315}], LineBox[{85, 316}], LineBox[{86, 317}], 
       LineBox[{87, 318}], LineBox[{88, 319}], LineBox[{89, 320}], 
       LineBox[{90, 321}], LineBox[{91, 322}], LineBox[{92, 323}], 
       LineBox[{93, 324}], LineBox[{94, 325}]}}, {
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJwVztk2QgEAQNHbp/gZU4iSMUVkJplCElLIrBAZwo/aHvZa5/F0pLPR9VAQ
BEk6RRfd9NBLmD76GSDCIENEiTFMnBFGGWOcCSZJMEWSFNPMkGaWOTLMs8Ai
Syyzwipr/I9m2SDHJltss8MuefbY54AChxQ5osQxJ5xS5owKVc654JIaV1xz
wy133PPAI3UaPPHMC01eeaPFOx988kWbb3745Q/rlS03
        "]]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJwV0Nc6AmAAgOE/d+KWXIADF8BNoSTZq4xQ2Ss7svcmGZmvg/d5vuOvtqGp
rjESQqinWbTQSpQYbcRpJ0EHSTrpopseeumjnwEGGWKYFGlGGGWMcTJMMMkU
WXLkmWaGWeaYZ4FFllhmhVUKrLHOBptssc0ORXbZo8Q+BxxyxDEnnHLGORdc
csU1N9xyxz0PPPLEM2VeqPDKG+98UOWTL7754fd/ek0IEf4Afx1NvQ==
        "]]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[{514, 515, 516, 517, 518, 519, 520, 521, 522, 523, 524, 525, 
        526, 527, 528, 529, 530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 
        540, 541, 542, 543, 544, 545, 546, 547, 548, 549, 550, 551, 552, 553, 
        554, 555, 556}]}}}], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{2015., 0},
  DisplayFunction->Identity,
  Epilog->{
    InsetBox[
     FormBox[
      StyleBox[
      "\"\[Degree]C\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.1, 0.95}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"a2: DICE2016\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.95}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"The Dive\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.75, 0.45}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.7}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.2}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]]},
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{{{-0.3, 
       FormBox[
        RowBox[{"-", "0.3`"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {0.3, 
       FormBox["0.3`", TraditionalForm]}}, None}, {{{2050, 
       FormBox["2050", TraditionalForm]}, {2100, 
       FormBox["2100", TraditionalForm]}, {2150, 
       FormBox["2150", TraditionalForm]}}, {{-0.5, 
       FormBox[
        RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {1., 
       FormBox["1.`", TraditionalForm]}}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
    GrayLevel[0]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{2015, 2152}, {-0.4, 0.6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8240970662233505`*^9, {3.8240971409831915`*^9, 3.824097166290045*^9}, 
   3.8240972125579042`*^9, {3.8240972516863737`*^9, 3.8240972787775946`*^9}, {
   3.824097309547497*^9, 3.8240974145550566`*^9}, {3.824097500175721*^9, 
   3.8240975153869743`*^9}, 3.824099102247204*^9, 3.824099676194867*^9, {
   3.824099735767871*^9, 3.8240999277400236`*^9}, {3.824099982701112*^9, 
   3.824099995466473*^9}, {3.8241000411465282`*^9, 3.824100114242882*^9}, {
   3.824100161750442*^9, 3.8241001826316185`*^9}, {3.8241005515255904`*^9, 
   3.824100588602373*^9}, {3.8241006295125685`*^9, 3.8241007265379024`*^9}, 
   3.8241007970319033`*^9, {3.8241008500065236`*^9, 3.824100917280305*^9}, 
   3.824100947829829*^9, {3.8241010800913234`*^9, 3.824101140368099*^9}, {
   3.824101175232848*^9, 3.824101183263297*^9}, 3.8241016984178467`*^9, 
   3.8241018628117857`*^9, 3.824102042416684*^9, 3.824283764367242*^9},
 CellLabel->
  "Out[2219]=",ExpressionUUID->"33d56636-485c-4f1d-b909-85642571a456"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{
  3.824101787137789*^9},ExpressionUUID->"52201424-3770-414e-9a7f-\
b224c7908565"],

Cell[CellGroupData[{

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8241017054995003`*^9, 3.824101799796549*^9}, {
   3.824101872916681*^9, 3.8241020357499056`*^9}, {3.8241020747125015`*^9, 
   3.8241021014325576`*^9}, 
   3.8245432335101824`*^9},ExpressionUUID->"7cb2f32e-74fb-41d7-a168-\
379254be56d5"],

Cell[BoxData[
 GraphicsBox[{{}, GraphicsComplexBox[CompressedData["
1:eJzt2Ps3VvkewHGJaqwyTmEkXTTIokRKkvSJLuhmyqUL3UiUlMJ00VG6HBVR
yTGRPnViKLc6pETlUqPoZMSg5qLLIanVqEy6jfOpz9es8f0Lzqz17B8e67X2
epZnP3vv9/48X/0V6+atVFZSUjKnl49/P239EXw75o53aYye/MmaCE5mnfof
fjvC1kZIzfMPyFY9xtZBMLyxcdtQ9ZNsXYR5v2puSElOYeshHOiZHT/RMp09
BEF5u/ft5IoM9jCE7LzX6SZjc9jDEewnz89erHKObYCwJ31USGzdv9lGCINb
+kYVZuSxjRGOe9i2O+7MZ5sg5C+1W2jheZE9kj5/ge+LW1aX2GYIuRtGm5tq
FrHNaf/Oe3dLXl5mj0FA13fBtr5X2WMRBkS4tb+YWMy2Quj4xTk0QKWEbY1Q
G29T3losbIOQMO7sVY/gUrYtgmv0kn4uumVsOwSHB0NmDi0QBjrer52StL66
xrZHqEhWsWpuFJ6KsOBM6GzHNdfZ0xHOO03zfvZc2BEhLKEoYOLa79jOCM9+
GDPwQLPwLISHJTtiRy4rZ8+h/eHb81bXCbsgzKl+b5E5+wZ7HsJ18xF+h0uF
XRHcEzs9Bk+4yXZHyPzCYcL3WcILEO5pr7QqN6hgL0Iw7Vgb2XZU2BMhXDOk
aUj/SvYShJIrfXQt9wovQ4g1s8rUVL7FXoGg5jc8YNMWYR+63pbk94lqF/ZF
uDXJIOz5uv+w/RD2nvd+kvVUeDVCzIEzB738b7MDEA71ys/b3SwciOCmpRu5
0rKKvR7BOfH0Vp+NwhsQXh6Me2WeKxyM8HrB2yrVduFQ+r4Me4LW+O/ZmxCK
Plz0K98kvAXBpvlba/VC4TAEjyPbPFQ6hf+OYDbUyelzh2r2dgSj/e9iZv1D
OALhrrJ96/0K4V0IKz/4rijQuMPeg9DDv7NnhptwJEJbg411faLwPoS0qPDj
QfeFoxASrS/+csK4hn0A4ZFT9bjD64Rj6XhtL0xcky98CKF3ok3Mvk7hOATz
2spFao617Hi6f7JtHeceFE5ASF7WGRJ4V/gogg/d3TUGP7CTEKY4P737c6Bw
MkL0lBG71AuEkXqx3TjBQrWOfRJBZYgOdLgIn0KIsP58hPkx4VSEv5Vttt7R
IpzWdX/Xs08jnP6Yi53CGQhbBgeV96oWzkKYkPSmVm9YAzsHwavY6sGNQOFz
dH69t456XCSci/AqJX/yF/3uss8jPI54Gz/BS/gCgupPS6p1MoULEHbYT9qm
8rtwIcKJuuNlzXPusS8jtFzcnTUVha8iNJ4wrhrxQriEzoeS9pt2hx/ZZQiH
508srYkXvo6QErHv9NIW4XKE5XqeNk22P7Fv0veR3PpufaxwJYLj+33jPB8J
qyMo/XnTkNxfsqZkbck6knUl60mm/kc/y8PX13MufzL1v83vYWReRw2b+u/6
SCNoo0kD20B6v5FkY8kmkkdKNpNsLnmM5LGSrSRbS7aRbCvZruv4q/j4qP++
s4p1V93pceWT7bv2a7Cp/1t3q77uOUSHTf3vEXlpi9bAwWzqv75dzsMrMIxN
/dczmPomQns4m/qvo1avPv3pl2zq/ylL8xfnjIzY1H8Lr8jaocuN2dT/b17o
p+kWmbBdu/7fKDb1f+reeNvk+NFs6r/DNevwAWoWbOr/f6cZNdY5jmFT/4PD
cq29EyzZ1H+tDye+GVE3lk39P9RS1bJ5vBWb+q/7pvBB+gwbNvV/YaNpQftR
Ozb1v9L7Vvmwr6ewqf8Log0zos86sKn/ekcS01IuTmNT/3W2jr7sFzODTf1X
Kzw8N2atE5v6/9Kj3HOg60w29f9m+rHlq2fOZlP/t67KdXPymcsO7To/Lmzq
//3N6fUJdV+xqf9pB9ycb7+ax6b+vwwZ+Pudfq5s6v+4C5mjbEe7san/oW+n
eJ1ycWdT/5tCyvQHOXqwqf84sKx36Hth6v+iotJnVTkL2JFdz7uFbOq/1eOZ
68LNFrGp/85tbZ81bF7Mpv4/qMxuUir2ZFP/g3raTY7SWMI+1HW8S9nUf9W5
+h5PFi5jU//L/+lSfF91OZv6v78x3LThrDD1vy/8K7hl6Qo29d9TSTdlZqcw
9f95etJvcUnebOr/NVtT/2vjfdgnu64PYep/WqpB6/rglWzq/xvfxEF3Bviy
qf997HqZzskTpv5rawXZ3HBfxab+N3jhqavKfmzq/88x90YfzxCm/j8s1r60
zd2fTf1PVZtuGKK8mk39958fEhOQJUz9f3IuoT7Mcw2b+p/57jv74D4BbOr/
qMWt+3edF6b+ZxWo18b5rGVT/5+aG30o0gxkU/9Nvp1k2FwmTP0/02t54OsN
69jU/xqn8wVJ/dezqf8vVUrmnF0tTP0Pqpgxr7pUmPofu2d+U9OgIDb1X312
Q0vvEOGw46D052275F2SIyVHSY6VHCc5QXKSZJR8SnKa5AzJOZJzJV+QXCj5
quQyyeWSKyVXSa6RXC/5R8mNkh9Jfiz5qeRfJb+S3CH5vWQl6fmkLFlFcq+u
51Wb3Sf3QTjn/aVGdusMni/UEALiK6Y3v/dh96Xrk6ava6khf8wfhvFxl263
7WDT/FH72ceBfx+b5o/2hh51WpaH/rD8e7Tb51HMI92tmEcU84hiHlHMI3+V
eUSx3qhYb1SsNyrWGxXrjWzFemN3K+b77lbM94r5XjHfK+b7v8p8r1hv7G7F
emN3/x+tN/4PCfK0vg==
    "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, 
      {GrayLevel[0.85], LineBox[{97, 234}], LineBox[{2, 235}], 
       LineBox[{3, 236}], LineBox[{4, 237}], LineBox[{5, 238}], 
       LineBox[{6, 239}], LineBox[{7, 240}], LineBox[{8, 241}], 
       LineBox[{9, 242}], LineBox[{10, 243}], LineBox[{11, 244}], 
       LineBox[{12, 245}], LineBox[{13, 246}], LineBox[{14, 247}], 
       LineBox[{15, 248}], LineBox[{16, 249}], LineBox[{17, 250}], 
       LineBox[{18, 251}], LineBox[{19, 252}], LineBox[{20, 253}], 
       LineBox[{21, 254}], LineBox[{22, 255}], LineBox[{23, 256}], 
       LineBox[{24, 257}], LineBox[{25, 258}], LineBox[{26, 259}], 
       LineBox[{27, 260}], LineBox[{28, 261}], LineBox[{29, 262}], 
       LineBox[{30, 263}], LineBox[{31, 264}], LineBox[{32, 265}], 
       LineBox[{33, 266}], LineBox[{34, 267}], LineBox[{35, 268}], 
       LineBox[{36, 269}], LineBox[{37, 270}], LineBox[{38, 271}], 
       LineBox[{39, 272}], LineBox[{40, 273}], LineBox[{41, 274}], 
       LineBox[{42, 275}], LineBox[{43, 276}], LineBox[{44, 277}], 
       LineBox[{45, 278}], LineBox[{46, 279}], LineBox[{47, 280}], 
       LineBox[{48, 281}], LineBox[{49, 282}], LineBox[{50, 283}], 
       LineBox[{51, 284}], LineBox[{52, 285}], LineBox[{53, 286}], 
       LineBox[{54, 287}], LineBox[{55, 288}], LineBox[{56, 289}], 
       LineBox[{57, 290}], LineBox[{58, 291}], LineBox[{59, 292}], 
       LineBox[{60, 293}], LineBox[{61, 294}], LineBox[{62, 295}], 
       LineBox[{63, 296}], LineBox[{64, 297}], LineBox[{65, 298}], 
       LineBox[{66, 299}], LineBox[{67, 300}], LineBox[{68, 301}], 
       LineBox[{69, 302}], LineBox[{70, 303}], LineBox[{71, 304}], 
       LineBox[{72, 305}], LineBox[{73, 306}], LineBox[{74, 307}], 
       LineBox[{75, 308}], LineBox[{76, 309}], LineBox[{77, 310}], 
       LineBox[{78, 311}], LineBox[{79, 312}], LineBox[{80, 313}], 
       LineBox[{81, 314}], LineBox[{82, 315}], LineBox[{83, 316}], 
       LineBox[{84, 317}], LineBox[{85, 318}], LineBox[{86, 319}], 
       LineBox[{87, 320}], LineBox[{88, 321}], LineBox[{89, 322}], 
       LineBox[{90, 323}], LineBox[{91, 324}], LineBox[{92, 325}], 
       LineBox[{93, 326}], LineBox[{94, 327}]}}, {
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJwVztc6ggEAgOHfpbgbIhTJDCnZoYwikp2RXUZGcp9eB+/zfIdfZzIbXe0I
giBBl+gmRA+9hOmjnwEiRBlkiBjDxBlhlDHGmWCSBFNMM0OSWVKkmSPDPAss
ssQyK/wPZlljnQ1y5Nlki212KFBklz1K7HNAmUMqHHHMCaeccc4FVS654pob
atxyxz0PPPLEM3UavPDKG+80+eCTL75p8UObX/4Adywt8w==
        "]]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[CompressedData["
1:eJwV0Oc2AmAAgOGvcCFuyRU4LoC7KmSvZGWUPbNF9t5EiHj8eM55f7+1DU11
jZEQQj0xEaeZFlpJ0EY7HXTSRTc99NJHPwMkGSTFEMOMMMoYacaZYJIpMmSZ
ZoZZ5phngUWWWGaFVdbIsc4Gm2yxzQ677JFnnwMKHHLEMSeccsY5F1xyxTU3
3HLHPQ888sQzL7xS5I13SnzwyRdlvvmhwu//7GgIEaJUUU0Nf1YUTIo=
        "]]}, 
      {GrayLevel[0], PointSize[0.009166666666666668], AbsoluteThickness[1.6], 
       PointBox[{518, 519, 520, 521, 522, 523, 524, 525, 526, 527, 528, 529, 
        530, 531, 532, 533, 534, 535, 536, 537, 538, 539, 540, 541, 542, 543, 
        544, 545, 546, 547, 548, 549, 550, 551, 552, 553, 554, 555, 556, 557, 
        558, 559, 560}]}}}], {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{2015., 0},
  DisplayFunction->Identity,
  Epilog->{
    InsetBox[
     FormBox[
      StyleBox[
      "\"\[Degree]C\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.1, 0.95}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"a3: FaIR-Geoffroy\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.6, 0.95}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"The Dive\"", {FontFamily -> "Helvetica", FontSize -> 20}, 
       StripOnInput -> False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.75, 0.5}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"-10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.7}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]], 
    InsetBox[
     FormBox[
      StyleBox[
      "\"+10y\"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
       False], TraditionalForm], 
     Offset[{0, 0}, 
      Scaled[{0.5, 0.3}]], 
     ImageScaled[{
       Rational[1, 2], 
       Rational[1, 2]}]]},
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{None, None}, {{{2050, 
       FormBox["2050", TraditionalForm]}, {2100, 
       FormBox["2100", TraditionalForm]}, {2150, 
       FormBox["2150", TraditionalForm]}}, {{-0.5, 
       FormBox[
        RowBox[{"-", "0.5`"}], TraditionalForm]}, {0, 
       FormBox["0", TraditionalForm]}, {1., 
       FormBox["1.`", TraditionalForm]}}}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
    GrayLevel[0]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{2015, 2152}, {-0.4, 0.6}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8241017411837397`*^9, 3.8241017699881735`*^9}, 
   3.824101800661095*^9, {3.8241018999853277`*^9, 3.824101979310741*^9}, {
   3.8241020116057224`*^9, 3.824102036651705*^9}, {3.8241020763157396`*^9, 
   3.824102102911746*^9}, 3.824283792166311*^9},
 CellLabel->
  "Out[2220]=",ExpressionUUID->"133b3796-e091-499e-a5a5-7a0bd47dd667"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SIOVD16low", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD16low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD16low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SIOVD13low", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD13low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SIOVD07low", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD07low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07low", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SIOVFGlow", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osFGlow", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"40", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGlow", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"40", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGlow", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.824097523775836*^9, 3.824097550582651*^9}, {
  3.824099082720294*^9, 3.8240990835599318`*^9}, {3.824743480581443*^9, 
  3.8247434819693975`*^9}, {3.8247439488801994`*^9, 3.8247439700968137`*^9}, {
  3.824744018400797*^9, 3.8247440197698355`*^9}, {3.8252707405555305`*^9, 
  3.8252707683595695`*^9}, {3.8252708106346292`*^9, 3.8252709049597626`*^9}},
 CellLabel->
  "In[1036]:=",ExpressionUUID->"d1ded865-b58b-4c4f-96b1-c94283fca969"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SIOVD16med", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD16medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD16medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SIOVD13med", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD13medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SIOVD07med", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD07medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07medium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SIOVFGmed", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osFGmedium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"40", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGmedium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"40", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGmedium", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.825271511419922*^9, 3.8252715824700217`*^9}},
 CellLabel->
  "In[1040]:=",ExpressionUUID->"f6f13829-a4d6-47a9-b9bb-b16a7e031eb2"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SIOVD16high", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD16high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD16high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD16high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SIOVD13high", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD13high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD13high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SIOVD07high", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osD07high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"44", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osD07high", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"True", ",", "False"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SIOVFGhigh", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"osFGhigh", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"40", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "41"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGhigh", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"40", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "42"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"osFGhigh", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "40"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Blue", ",", "Red", ",", "Black"}], "}"}]}], ",", 
     RowBox[{"Filling", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", "1", "}"}], ",", 
          RowBox[{"{", "LightGray", "}"}]}], "}"}]}], "}"}]}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2152"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", "1.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year in which ceiling applies\>\"", ",", 
        "\"\<\[CapitalDelta]\[Degree]C relative to ceiling\>\"", ",", "None", 
        ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.825271690824176*^9, 3.825271755265267*^9}},
 CellLabel->
  "In[1044]:=",ExpressionUUID->"b73c6f15-1158-4083-976e-6425d8ffb124"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SIOVTemperature", "=", 
  RowBox[{"Legended", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<\>\"", ",", 
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<DICE2016\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}], ",", 
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<DICE2013\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}], ",", 
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<DICE2007\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}], ",", 
          RowBox[{"Text", "[", 
           RowBox[{"Style", "[", 
            RowBox[{"\"\<FaIR-Geoffroy\>\"", ",", 
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
             "Bold"}], "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<low CDR cost\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}], ",", 
            RowBox[{"90", " ", "Degree"}]}], "]"}], ",", "SIOVD16low", ",", 
          "SIOVD13low", ",", "SIOVD07low", ",", "SIOVFGlow"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<medium CDR cost\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}], ",", 
            RowBox[{"90", "Degree"}]}], "]"}], ",", "SIOVD16med", ",", 
          "SIOVD13med", ",", "SIOVD07med", ",", "SIOVFGmed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Rotate", "[", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<high CDR cost\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}], ",", 
            RowBox[{"90", " ", "Degree"}]}], "]"}], ",", "SIOVD16high", ",", 
          "SIOVD13high", ",", "SIOVD07high", ",", "SIOVFGhigh"}], "}"}]}], 
       "}"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"PointLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Black", ",", "Thick"}], "}"}], ",", "Blue", ",", "Red"}], 
         "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<Peak\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<10 years before ceiling applies\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<10 years after ceiling applies\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"LegendMarkerSize", "\[Rule]", "20"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", "Below"}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.823701054194289*^9, 3.8237011665854473`*^9}, {
  3.823701237690548*^9, 3.823701263525584*^9}, {3.8237012982106333`*^9, 
  3.823701460948867*^9}, {3.8237477926117773`*^9, 3.8237480043720803`*^9}, {
  3.8237480752151804`*^9, 3.8237481219822464`*^9}, {3.823748218235437*^9, 
  3.8237482511804833`*^9}, {3.823748336707604*^9, 3.8237483859396734`*^9}, {
  3.823879673876086*^9, 3.823879736590906*^9}, {3.82387979682454*^9, 
  3.823879811006611*^9}, {3.8252717902023163`*^9, 3.8252719207885003`*^9}},
 CellLabel->
  "In[1048]:=",ExpressionUUID->"275b0b98-4ef2-4d38-92f1-9a951ff1b89b"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{"\"\"", 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox["\"DICE2016\"", FontFamily -> "Helvetica", FontSize -> 18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style["DICE2016", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox["\"DICE2013\"", FontFamily -> "Helvetica", FontSize -> 18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style["DICE2013", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox["\"DICE2007\"", FontFamily -> "Helvetica", FontSize -> 18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style["DICE2007", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"FaIR-Geoffroy\"", FontFamily -> "Helvetica", FontSize -> 18, 
            GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
         "InlineText"], 
        Text[
         Style["FaIR-Geoffroy", FontFamily -> "Helvetica", FontSize -> 18, 
          GrayLevel[0], Bold]]]}, {
       RotationBox[
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"low CDR cost\"", FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style["low CDR cost", FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0], Bold]]], BoxRotation -> 1.5707963267948966`], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2WlUz3kbx/FKKJXCyNgia5ZJRFLoO9Y2e0RiSBIKI1F0k6hspSKlTL5K
y4hoT9KuTSp7pkWaNi1aJft95bpm+51zP7sf3Pc5//8DzuscB+Xnc97X+Smb
7V65VUJMTKwGfuj++dunP2dif/98x9mtau8Ga/WFOt+syNmHNonGoFUH0N9z
Fr1g28WFKi7oIZy1LJ07J26rB3oYZ+E66Wqbcr3RSpz5Ou9fGs380SP/+PUc
PYqzwdm6nVIzgtBjODu9W8Uhrm8IehxnJ2XD7Ua3h6FVOFtjFuAdUxmOnsjZ
T1Gtm06XRaAncyZxXH6sSdsttCpnDR7+r3o5RKHVODP+UXZfk0wMehpnzk3j
tzj4xqKnczZmvvuNbVLxaA3OXqr3v9LPKgGtyVlzD4/fMnNvo7U4c2y5ssBA
6Q56Nme3rfYVLPs5CT2XsxmPVtprp99FM87KLkq72MiloOdx5hc9t9p3cip6
AWfphiUpUY/IizhTvbZwwVT7NLQuZzLS328oH5aO1udsd4tzrlEa2ZCzWYfD
pptZZKCXcvakfddkFdlM9HLOqh03LAmIIq/kLMCuQFHB5B7aiLPL5/XkrMWy
0Gs469MW7dkQQl7L2dqwGQ+0l2ajTTjruWOqnW8n2ZSz4LfxkhWXc9AbOftq
Ot18tn4uehNn8YUT1YPfks04m6g06OmowDy0OWeyr1sUspbdR1vA91Nsur7P
F7IlZ5V5L7SDbuSjd3DWXy0xaZbpA7QVZ0eSf1h7TaYAvYsz8ff9J2omkfdw
drNhUKOLdSF6L2dpnx1791IoQu/jTN9PJyR2O3k/Z06z7zg0ZJDtOLuQH5kU
rvQQfZCzq2nW1q/syQ6cdf/rRDwlH4avz833Re3UR2hHeP4kv67PdSc7ceZv
bLtGppF8HP68aw/DxfUfo104W9l6ZLFRGPkEZ/dmfjd3fe8n6FOcjdr74WCy
BfkMZ9fMxcIqs8junO1c6P976binaA/Oxp3+eNbQlezFWY1218kedeTzsAdu
j4KP6D1DX+BshJ6e/Pxwsi9nO+6+tMyWe47240zR2t3Gfw/5EjwvhqG2Q5+Q
AzjLC82Ok9UsRnPOyjUn5B+6RA7krG+/maFe4i/QV+H3sxod0GhBDuEsNlVp
wIQH5DD4/nx+fnu7+m/oa5x5FaTm3PcjX4f/bxsT9WQlStARnAVpDc85uIN8
C/Zk46LI0kfkKM7MDD8cmjC7FB0Dz2ejwtdbweQ4zvaqlzoWypehEzhranlu
7naQnMjZlNS5WrbV5CTObPOChm5eUY5O5uxim3LYkLvkVM6W2e8bPXniS3Q6
PM/DK/RkfMiZnBlo5aVZSVSgszjTObsiwH4WOYczo6yUwoQ95DzOWn/xfWsW
Rs7n7HxXqXTnSzLsu1tTLH+XlZr8zbDv3sWxd8u8hqV8M+z7RI0a20xlbTTs
+8Ut9sZzNi1Fw76ryXd/BSZo2PeswNeN5nvM0bDvww/o9274aoWGfQ83ebSi
r4UNGvZdN2R+aG2ZHRr2fVeGipTSy8No2Pe2uEc7oyOd0LDv2+ImdaRNc0HD
vhtqdijKN59Ew77b27qLv2hwQ8O+R/tYh97o54mGfd930U9yt+45NOy7jUG4
8s9nvdGw7/M2yo+7l+2Dhn03V9aSdJf0Q8O+71b9Ejde9xIa9n1aTcTYqmMB
aNj33Ovlr/ZbcjTs+6G00Fn2nlfQsO8pt1MOlsYHomHfbY7LVr2oDkLDvj+f
UixXohiMhn2v1J7acG95CBr2vSRYzjX4aCga9j1vR2JAXWIYGvb9a0Fnndy7
X9Gw7/KLjV+/0QpHw76vUXn0+ZLTdTTse96gGA/HhzfQsO89M267DB5yEw37
Xt8jV9t12i007LvOaudeZi/IsO8zVxjYTDoeiYZ9/3DxYNkotSg07Ptmt+jX
UhVk2HfdXUsSf/CMRsO+62hXJJotikHDvltduL+o9hMZ9r19doL2zvhYNOx7
eYRPiNSeODTsu6lk1ode4+LRsO9ZJxZc2VpGhn2vO+Hgs9InAQ37vn7j7XKN
VbfRsO8jpT/u798vEQ37vqqoaazbQzLsu9/8lTJjz91Bw76/m1N/03htEhr2
3XPzwN3mSnfRsO9fFnc/0GTY94ahvqUqUclo2PeP16etMjmSgoZ9N5rVNGHW
+FQ07LuqsY5G7lky7PtJs7Zevu/JsO/dT+d48zQ07HvzuueWs4rIsO8fFkp/
kJmTjoZ9D2xIly8IJcO+a1T3ad7bLwMN+846D77LPkSGfT/qPf+0VS0Z9r3D
1SLAdFUmGvbd9ZP6sa5UMuy79qq6pCzVe2jYd90hpc8UA8iw75K1Z1Sa5LLQ
sO/R/8pZH3GYDPv+0KNVxbuFDPt+OLuluNAsGw37/nWkl3L2MzLs+0++hgPP
6OegYd+fd+432JtKhn1/HDg3d7hGLhr2PbZyaJ/LN8iw7xLmdcU/js1Dw75P
CvIsnBRAhn0v2fFs8MtB99Gw7xekjOCvQIZ9X7rIe3OpXD4a9j1pTMGpsJNk
2PfYLD5gXu8HaNj3qXEKVfw4GfbdxEB8+9ceBWjY92MVrU0bjpFh313VU/x6
SBaiYd8HyKv473Umw74H6FgbhfYoQsO+W9ZdrjBbSIZ933lk26EOF7LDZSb2
94+jwMcFPiHwGYE9BD4vsK/AlwTmAl8VOEzg6wLfEjhG4ASBkwROFThT4ByB
8wUuEviJwMUClwpcIXCVwHUCNwrcInCHwF0CfxJYTHDPSQgsKXAvgaUE7iOw
rMB9Ods+fPUSBVt57A0FzrQkEtYlrdX9sz8kxafta+RmaOiPwjuRXE3FBg39
cfWadOCbHo5o6I+8wae0y6tc0dAfW/o80/R3/8/35ajQm7U7L/x1X2r2t7z1
a/tf92Wlp529lvFVNPSHpOdCP7vedE9Cf3DrGQ1nmumehP6wHhapeFmC7kfo
j0OuJVc2T6X7EfpjY5vO+zsH6H6E/lC/eqpy9bM4NPTHYjfpqT5GdB9Cf1R0
qJafLaH7EPpDwt+mxdAyGQ390ThQsVTeju49zT/6ne496A8JOQ1bpYF0z0F/
nAjoPtDofoP+8OgauDMhh+436I+hnYfMfplI9xj0R/GlY9vmnaN7DPrDNHxO
o7ME3VvQHzsfF2+UOUj3FfSH0897Xvu2030F/ZE0quul/n66n6A/rnQ4e7R/
ofsJ+uNh5DF902y6j6A/7D2lu2Z40f0D/aG3XeNsxia6b6A/cpUra4ym0T0D
/SHuUl0Y35PuFegP58JnaWnlZOiPeb03pF+Jp/sE+qPUKTjR0YfuEeiPb/N5
gO4N6I9l65Y8H7CB7gvoj6I3HmaOC+h+gP5gycf79J1C9wL0x/ttvVqPDqd7
APqjWWtoW6Es9T/0x33D7Z9/EKe+h/44fzf40pROMvSH/cgo3QHN1PfQH9Lv
+bboeup56A+FGwPhQqIeh/6YVNrmeb6DDP0hN6OPnoXtKzT0x5gnsr8GdpGh
P8RWlybcc6hEQ39Ih/itMxD/HQ39MSDRoPL6CTL0x7CCTzv6KlShoT/k3L2M
a33J0B/F7TPubx1djYb+6Ap5Hd0jggz9EdTTcv0DrRo09EfNhreO9jlk6I+P
DzL3Ka+pRUN/5I+p73m5hgz9Ebv7zU2lA3Vo6I8Rxa0/jZR6jYb+SHapSDjj
T4b+SD4Rt6VetR4N/RHeff5mkKE/IgdXOFmta0BDfyw/nZYR00yG/nCyWXS+
06URDf2xILAo6s2IJjT0R1T345lAhv6oUk3/rnrlGzT0x9OR+U0b35ChP6zm
mWwpOtmMhv6wKFZpmDmgBQ394WEpsXCyGRn6o91EumxsJBn6o25bve1psVY0
9IeyMhT4cnIM/X/gZOiPlOaXSZqtZOgP+1En2vfMa0NDf5gsqp/jfY4M/VGo
4L6us4oM/TE08cUIlZnt6FTax5Nk6I+aA375diVk6A8N06qACNUONPSHWvvw
T5lHydAfanIZizOfkKE/5D4PML2u8hYN/fG4y9nYy+Htn/su9veP6L4U3Zei
+1J0X4ruS/T/+30pej8kej8kej8kej8kej+EFr0fEvW7qN9F/S7qd7So3/+3
+130fuifFr0f+qdF74dE74dE74dE74dE74fQovdD/7X3Q/8Ge6SzTQ==
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{95, 325}], 
             LineBox[{2, 326}], 
             LineBox[{3, 327}], 
             LineBox[{4, 328}], 
             LineBox[{5, 329}], 
             LineBox[{6, 330}], 
             LineBox[{7, 331}], 
             LineBox[{8, 332}], 
             LineBox[{9, 333}], 
             LineBox[{10, 334}], 
             LineBox[{11, 335}], 
             LineBox[{12, 336}], 
             LineBox[{13, 337}], 
             LineBox[{14, 338}], 
             LineBox[{15, 339}], 
             LineBox[{16, 340}], 
             LineBox[{17, 341}], 
             LineBox[{18, 342}], 
             LineBox[{19, 343}], 
             LineBox[{20, 344}], 
             LineBox[{21, 345}], 
             LineBox[{22, 346}], 
             LineBox[{23, 347}], 
             LineBox[{24, 348}], 
             LineBox[{25, 349}], 
             LineBox[{26, 350}], 
             LineBox[{27, 351}], 
             LineBox[{28, 352}], 
             LineBox[{29, 353}], 
             LineBox[{30, 354}], 
             LineBox[{31, 355}], 
             LineBox[{32, 356}], 
             LineBox[{33, 357}], 
             LineBox[{34, 358}], 
             LineBox[{35, 359}], 
             LineBox[{36, 360}], 
             LineBox[{37, 361}], 
             LineBox[{38, 362}], 
             LineBox[{39, 363}], 
             LineBox[{40, 364}], 
             LineBox[{41, 365}], 
             LineBox[{42, 366}], 
             LineBox[{43, 367}], 
             LineBox[{44, 368}], 
             LineBox[{45, 369}], 
             LineBox[{46, 370}], 
             LineBox[{47, 371}], 
             LineBox[{48, 372}], 
             LineBox[{49, 373}], 
             LineBox[{50, 374}], 
             LineBox[{51, 375}], 
             LineBox[{52, 376}], 
             LineBox[{53, 377}], 
             LineBox[{54, 378}], 
             LineBox[{55, 379}], 
             LineBox[{56, 380}], 
             LineBox[{57, 381}], 
             LineBox[{58, 382}], 
             LineBox[{59, 383}], 
             LineBox[{60, 384}], 
             LineBox[{61, 385}], 
             LineBox[{62, 386}], 
             LineBox[{63, 387}], 
             LineBox[{64, 388}], 
             LineBox[{65, 389}], 
             LineBox[{66, 390}], 
             LineBox[{67, 391}], 
             LineBox[{68, 392}], 
             LineBox[{69, 393}], 
             LineBox[{70, 394}], 
             LineBox[{71, 395}], 
             LineBox[{72, 396}], 
             LineBox[{73, 397}], 
             LineBox[{74, 398}], 
             LineBox[{75, 399}], 
             LineBox[{76, 400}], 
             LineBox[{77, 401}], 
             LineBox[{78, 402}], 
             LineBox[{79, 403}], 
             LineBox[{80, 404}], 
             LineBox[{81, 405}], 
             LineBox[{82, 406}], 
             LineBox[{83, 407}], 
             LineBox[{84, 408}], 
             LineBox[{85, 409}], 
             LineBox[{86, 410}], 
             LineBox[{87, 411}], 
             LineBox[{88, 412}], 
             LineBox[{89, 413}], 
             LineBox[{90, 414}], 
             LineBox[{91, 415}], 
             LineBox[{92, 416}], 
             LineBox[{93, 417}], 
             LineBox[{94, 418}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0Nc6AmAAgOGfO3FLLsCBC+CiUJLsVUaojOwtssle2Zmvg/d5vuOvpr6x
tqEqhFBHk2imhQhRWonRRpx2EnTQSRfd9NBLH/0MMMgQSVIMM8IoY6QZZ4JJ
MmTJMcU0M8ySZ455FlhkiWVWWGWNdTbYZIttCuywS5E99jngkCOOOeGUM0qc
c8ElV1xzwy133PPAI2WeeOaFV95454MKn3zxzQ+//+OrQ/gDQVJOXg==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNw9c6AmAAANC/zKxky6iQUVa2jJQ9MiIzXXgA3v/OOd93Mj9/td9ICKFp
JBpC1BZbbbPdDjuN2WW3PfbaZ9x+Ew446JDDjjjqmOMmnXDSKadNmTbjjLPO
mXXeBRddMmfeZVdcdc11C2646Zbb7rjrnvsWPfDQI48teWLZiqeeee6Fl155
7Y233ln13gcffbLmsy/WffXNdz/89MuG3zb9B2IZFD8=
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw4c6lQEAANA/b9Ir9QLpkhHuVURk75IVys4me7dVdrYkRFHoOZzzfedm
KHIrfCMIggpvRwVBtHcMGWOsd40z3gQTvWeSyaYYNmKq931gmuk+NMNMH5ll
to/NMdc88y2w0CKLLbHUMsut8IlPrfSZVVZbY611PrfeBht94UubbLbFVtts
t8NXdtpltz322me/Aw762iGHHXHUMcedcNIpp51x1jnf+NZ3vveDH/3kvJ/9
4lcXXHTJZVdcdc1vrrvhpltuu+Oue3533x8e+NNDjzz2lyee+ts/nnnuX/95
4aVX/vcalZxZoA==
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2XtUzfkax/GtCUlSinFJTS653yqUyJdqMhQJuYaiqBC6uEyJapIkopwk
+dZsKUo1hUol3SMaIioRiig1VCLiPHkea8381jnrrHPW+WP+2P3Bev2hpb3z
8X76qVs7mttIiUSiOvil8/evH304E/35Q1ngfgL3F3ggZ80uAz6X9tKe+dUq
nE1qmKjRkeGMVuUsxjTsYZOZN/oHzhbNMroX7xyAHsLZzcDgNd3WBaGHcXak
xa5vR8QJtAZ8/kI1uelt4eiRnJnLpmWIJ0WiR3O2YXTu0DdvxeixnB0ukFuc
f/Usejxn158cmz8s5Bx6Imf9dy1X6ukWh9bkbJSM6uNHkxPQ2pydeHPpjkNS
InoKZw5hpsaiqUloHc6yXhUG3spKRk/jbEn/lTLbzS6hp3Pm5C1XU157Ga3P
WbR5UvcV+1LRjLPzQ42nfTf0Cno2Z8VvZA0XXE9HG8LrccxBdr1rJvpHzqoM
x92MU8hCz+Esw9869cw98lzOpM95KBQduYY24Sy05ypVhx+z0fM5K/H5pOX1
nmzGmYKl2WPNszloc86qK1s2zDTPRS/m7NOAR7HXPpIt4P2rLF+qKs5DL+Ms
Yt+yKU5z8tEr4PVeGL5Lt4G8Cv5+55JWrD1cgF7NmdK+V2qGmoXotfD3K0mt
bL1Dtobvl+RpugbbitDrOdujm2QZ0fs62pYzm/47vDbGkTdy9uTivEHy826g
7TkzeRrrG1pH3sTZ44MTKp79UozeAl+/jX2fdPWb6K2cDesZkhV3hbwdvt4O
60vrl9xCO3PW63F22ptGsitnHVV69ia+JeidnN3Wt/ijUuF39G7Owoe+tZxr
SXbj7MFP7ssrYsh7OGs6pC7SeUfey1n3O3lRwbNvoz050zuUvPhRANmbszLV
d7O7VJJ9OCud52/TPvwO2hdej6la7be3kv04axtSERBzhezPmVzn29+tFB0A
n2/yCvkWM/IRziauky3TOUk++u37lRzEmZZv74b3E+6ij3OmWWtgNnk3OYSz
GXMWBBrkkkM5u/G+bcD38vfQYZypXekZpLyMHA7vV2NslWsEmXOmXFIuNbue
HMnZd/U6e6K1y9BieH2HJYofupOjOBvx/bq1gwvI0fDv47tlNfd730ef4+xy
8sA+bcvIsZyZTgxzCIkgX+DMvatdfuRLcgK8HkuXdrWf9AD9G2cnB5UqHd9J
Tob3S2p4135Z5EucDTrVvEilezk6hbM0pYart0zJafB69soxzg0ip3Pmf/V1
jz6V5EzOHEebW21Sr0BnwZ936PGBbyBnc/bSRvnGuDhyLmeKeTW9JjaT8zmT
ss30Oq1TiS7krG7imtV73cnXOdOOTJ76PptcDO9HZMLByO4P0f/Dvi+uUdjm
NLo886th3+/JdJhkbFG/+tWw75EynYugj4Z9P5a/cfASUzM07HvdGet1q41X
oWHfS3iEh+dBGzTs+y9JK2+s19mChn0Psj8dUCDnjIZ991FZWaIQsAsN+772
vPTBnBMeaNh32wcj66cqeaFh30MbXczXHPdBw77v2arvEmvuh4Z9b9NT7tpu
GICGfXf+R+5yxcmBaNh3mYTCeDXrY2jY96HexoOMY4PRsO+XTHyefZALQcO+
V7g4Gll7hqJh39M0o6foKJ5Cw77vEZmf1Ek9jYZ91zqw+9pZ3Qg07Lt0F03n
Bh6Jhn0v7zHhWkxvMRr2XfWQQcf4TWfQsO+jin8Os8uOQsO+p0jJtrYoRqNh
39XSXe1yrGLQsO8FXuNcP8aeQ8O+lycq+t5vPY+GfV+/dMWPr2bEoWHfR9hm
9L9+4AIa9n3k22EvQ4vi0bDvN9I8xhruT0DDvtdFqj9bODoRDfvur7Tm9chb
ZNh3UeCej9O2/oaGfZ/NMr1l5ZPQsO+da/Y0jgz77tGa4nhxfjIa9v2k1IlT
Rk1k2PePF2Q+Xz56EQ37rvjJcbjelEto2PdV6rH5fcrIsO9eB2b6TXO6jIZ9
/zpnCilo2PeA4JANw+PIsO8nA2c1DjFJRcO+99I+7XS5ngz7/sHU6oynXxoa
9n1Xl3e3Y8ZcQcO+277b5f+2mAz77nKz5uTmLelo2Pesm0/zshUy0LDvI/oe
ung1iQz77rmk9a2eaSYa9j309mGfRc/JsO+daxS07yra/9veZqFh34tEZnmH
VpJh3+dZGKUURZNh32eMHGk0po0M+66ctFqu1vAaGvbdwsPbKusoGfZ9anVz
jswTMuy7k+LjA8snZKNh38e2jpWpdSfDvn/NiRtk2PcfZG1Nrg3MQcO+t5eE
qnnYkWHfO/q8KftwmQz7rliQlnKoWy4a9r3ev+ngvCVk2PcxHx5YcjEZ9n2B
aj9702Yy7PvGo8vMG/Xz0LDv3rb3M/oeIMO+O3lO0XW7Q4Z9j+qcJ5V8NOx7
xsdnGfY2ZNj3510fGJ+9QIZ9H/BcevP292TYd/vNAysdZhWgYd/TWib8ZONH
hn1POF+0yKKUDPs+KkEUJadSiIZ9b3u5s5jZkGHfm/VMbdPjyLDvu1w/lO1v
JcO+X++QN9qnX4SGfW8sls5J9SG7nWaiP3/sFdhbYF+B/QU+InCQwCEChwnM
BRYLHC1wrMAJAicLnCJwusBZAucKXChwscC/C3xX4AcCPxS4WuAagesEbhD4
D4FbBH4v8CeBRYL/z6UElha4m8AyAssKLCewvMAKAv+L/ojUaHcLUmzT/2ro
D4M8HQ8l2VnYK9AfiT4HH5bes0RDf4Tfthge6L4VDf0R7l47a7efGxr6I6o0
rZf91V/Q0B/92tROyJ/69/flZw3lIdUKoWjoj/ql09TCh3M09EfBXcvyrl6/
oqE/tknHKOsNpHsS+uN7K7/tdp/onoT+UF38dFp+33g09EfeosPaKXF0P0J/
yNtE+8W00P0I/aEh+hI0eiHdi9Af8SVhraMKUtDQH+7HX1yrWk73IfSHX939
sgVfMtDQHym1Q0e9tKL7D/ojWL7si24x3X/QH7Gxm/0KjOi+g/5oPtYZWHTP
QX9UDHKz0lxC9xr0h0JQ5bsZr+heg/7wEPvKnd9J9xj0R9PhtnPBPei+gv5w
VOxfPyiE7qv53+4FupfMvt0HdC9Bf7SpO6a2J9L9A/3R6JqhbbSX7hvoj5b9
tuGrFtH9Av0RlJ1ecEKD7hHoj0S/qZqHP5GhPyq15kndvUv3B/THmHYDrQUX
6J6A/lCycRz14iDdC9Af/l7zCsI2UP9Df4w1ehvM5lLfQ3+82O4VIT+Geh36
o6lWX1dWgfob+qNfpTgy8R0Z+uNGczVcNNTb0B9BWso70ouot6E/4m/mzy1O
qkJDfxjZ5IRej3yEhv5w1th8rjHwMRr6I3VBgJThrGo09IeJb6rY/goZ+qOt
+Kho8uQnaOiPpy4dnlUJZOgP8YEde0eMe4qG/jg8UMl6fAwZ+mOM+JO4YsQz
NPSH9WmRX+AZMvTHhfFnpXOH1aChPxatHhNxRUyG/mgsMTLIH1qL7rwvh5iX
jo8iQ3/kdxhHGYx4job+0NIstPSOIUN/aFXVizPHvkBDfwyO/eIUEk+G/nCz
PjX6sVYdOoTunRQy9EfC5xKrzOkv0dAfK7t3/1kphwz9cUt3p4b2T6/Q0B96
A1SGx98iQ38s8dk21deiHg390bJVqtSuigz90aDEJv22vgEN/XHUGQLuNRn6
ww6uGwWX12joj957noraO8jQHzM8KqLn729EQ39cHjFn047eTWjoj0cuU2pO
nyBDf3S8c6kOU/wDDf3RZSFc5BZk6I8BS1epBJ8kQ3+sfem283g1GfqjtuEU
LOIbNPSHj1rYgsEOZOiPxmO/ihYmkKE/nDoDu5UM/bEs4Mi+6Xpv0dAfnT8N
CNhLLqSfn+SRoT+eywwoTOrZjIb++KHHR9c+C8n/7X35nyy5PyX3p+T+lNyf
kvsT/Xe/PyXPjyTPjyTPjyTPjyTPj9CS50eSfpf0u6TfJf2OlvT737vfJc+P
/mrJ86O/WvL8SPL8SPL8SPL8SPL8CC15fvR/e370T2KvSZ4=
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{4, 330}], 
             LineBox[{5, 331}], 
             LineBox[{6, 332}], 
             LineBox[{7, 333}], 
             LineBox[{8, 334}], 
             LineBox[{9, 335}], 
             LineBox[{10, 336}], 
             LineBox[{11, 337}], 
             LineBox[{12, 338}], 
             LineBox[{13, 339}], 
             LineBox[{14, 340}], 
             LineBox[{15, 341}], 
             LineBox[{16, 342}], 
             LineBox[{17, 343}], 
             LineBox[{18, 344}], 
             LineBox[{19, 345}], 
             LineBox[{20, 346}], 
             LineBox[{21, 347}], 
             LineBox[{22, 348}], 
             LineBox[{23, 349}], 
             LineBox[{24, 350}], 
             LineBox[{25, 351}], 
             LineBox[{26, 352}], 
             LineBox[{27, 353}], 
             LineBox[{28, 354}], 
             LineBox[{29, 355}], 
             LineBox[{30, 356}], 
             LineBox[{31, 357}], 
             LineBox[{32, 358}], 
             LineBox[{33, 359}], 
             LineBox[{34, 360}], 
             LineBox[{35, 361}], 
             LineBox[{36, 362}], 
             LineBox[{37, 363}], 
             LineBox[{38, 364}], 
             LineBox[{39, 365}], 
             LineBox[{40, 366}], 
             LineBox[{41, 367}], 
             LineBox[{42, 368}], 
             LineBox[{43, 369}], 
             LineBox[{44, 370}], 
             LineBox[{45, 371}], 
             LineBox[{46, 372}], 
             LineBox[{47, 373}], 
             LineBox[{48, 374}], 
             LineBox[{49, 375}], 
             LineBox[{50, 376}], 
             LineBox[{51, 377}], 
             LineBox[{52, 378}], 
             LineBox[{53, 379}], 
             LineBox[{54, 380}], 
             LineBox[{55, 381}], 
             LineBox[{56, 382}], 
             LineBox[{57, 383}], 
             LineBox[{58, 384}], 
             LineBox[{59, 385}], 
             LineBox[{60, 386}], 
             LineBox[{61, 387}], 
             LineBox[{62, 388}], 
             LineBox[{63, 389}], 
             LineBox[{64, 390}], 
             LineBox[{65, 391}], 
             LineBox[{66, 392}], 
             LineBox[{67, 393}], 
             LineBox[{68, 394}], 
             LineBox[{69, 395}], 
             LineBox[{70, 396}], 
             LineBox[{71, 397}], 
             LineBox[{72, 398}], 
             LineBox[{73, 399}], 
             LineBox[{74, 400}], 
             LineBox[{75, 401}], 
             LineBox[{76, 402}], 
             LineBox[{77, 403}], 
             LineBox[{78, 404}], 
             LineBox[{79, 405}], 
             LineBox[{80, 406}], 
             LineBox[{81, 407}], 
             LineBox[{82, 408}], 
             LineBox[{83, 409}], 
             LineBox[{84, 410}], 
             LineBox[{85, 411}], 
             LineBox[{86, 412}], 
             LineBox[{87, 413}], 
             LineBox[{88, 414}], 
             LineBox[{89, 415}], 
             LineBox[{90, 416}], 
             LineBox[{91, 417}], 
             LineBox[{92, 418}], 
             LineBox[{93, 419}], 
             LineBox[{94, 420}]}, {
             GrayLevel[0.85], 
             LineBox[{95, 325}], 
             LineBox[{96, 326}], 
             LineBox[{97, 327}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0EVWgmEAQNHvZyduyQU4YAG6KhVE7AYDAxs7sVuxxcS6DO45b/xq4g21
9VEIoY5G0UQzCZK0kKKVNG2000EnXXTTQy999DPAIENkyDLMCKOMkWOcCSaZ
Is80M8wyxzwLLFJgiWVWWGWNdTbYZIttdtilyB77HHDIEceccMoZ51xwyRXX
3FDiljvueeCRJ555ocwrb7zzwSdfVPjmh1/+qsNjIUTE+Ae47E0c
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNw+c2AmAAANDPXiWZESpklL0JkT0jhBDHA/D+/9x7zs38/FV+G0IIdZsa
Q2i2xVbbbLfDTruMGLXbmD3G7bXPfgccdMiEw46YdNQxx02ZNuOEk06ZddoZ
Z50zZ955F1x0yWVXXHXNdTfcdMttd9y14J77Hlj00CNLHnviqWeee+GlV157
4613lr33wYqPPvls1RdffbPmux9+WvfLb/8B7aEU+w==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw4c6lQEAANBfb9Ir9QZIlHGVPUtGV5GZ7F1GtoZRIVshslKy4zGc833n
dlToTlJEEARhI28FQZTR3jXGe8Ya530fGG+CiSYZMtmHPjLFVNNMN8NMs8w2
x1zzzPexTyzwqYUWWWyJzwxb6nNfWGa5L62w0iqrrbHWV9b52nobbLTJZlts
tc12O+y0y27f+NYee+2z33cOOOiQw4446pjjvveDH/3khJNOOe1nv/jVGWed
85vzLrjoksuuuOqa3/3huhtu+tMtt/3ljrvuue+Bvz30j3898p/Hnnjqmede
eOl/r7z2BrjLWrA=
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2XlUz/kex/EoKopMyZJlMqixVJZrSeUTrptBkoRQqTRZhlSmlEi0ICZp
9JPk06qUpH5o8WtRElosRY3MaJeyVIaIcd95v+fcme8599xz77l/zB+//uA8
/shp+fXq+fbVtNtuvrG3jIzMU/ij5+/Pb19wJvPHNzWB1QUeypl/kapxRMD8
uZ89nLNRFnX6RYPd0SM46610+8z2/v7oUZwlvpvwrmp9MPpLzoo36O31K/kR
PYazZedzsiaYnUKP5Uyc3H1jnhtHj+dsnOew6y6LY9DanF16/+wcmxyPnsDZ
D0nH1m8aloiexFm1om5+4sBktA58/KvS7L9SuYDW42xK+TdW7coX0VM50w00
WZotSkNP50wtdWRQlZYYPYOz4CUBpuXZl9CzONs4vWPX9RVX0PqcLfhOY6Hx
qwy0AWcWbmPDPgVnoY04kxTpLJf87SqacTYgUGVV2c8S9DzOngwafO7U4Vz0
As5q5x88YRCZh17I2bZpg+uOeeSjTTirmzOl9brZNfQ3nJ01yBqkPrgAvYQz
xaL8OPsysilnP+3c/nc730K0GWfX5+QdV9e5jjbnzHqS0rH7D8kW8PnV56tn
exehLTmT32UoUht9A72as6Z1h5Ju5ZCtOHvq+/7E7PXF6HWcff5ydJGtOet5
7zPBN9G2nHWUzpgZr3ULbcfZmk3m/bIkZAfO7N51fpdvfhvtyNnMGXPMvZvJ
TpzZlvbyne1Zgt7M2eUou4hcxVL0Vvh6SmKKDojI2zizqtDKLBhfhnbm7JFf
k/4RMdmFs8oUxU1HjMvRbpwFqdo81y4jf8/ZoszuEaMn30F7cDY9N1xWzpXs
yZl9ZlxlcAZ5N2ea8uNKxB/JezgLW1ml5Gx8F+3D2ZygRXt1/ci+nBnr7GjY
V0w+AK833Sjfgv730P7w/bs+/b7ElBzI2dLqFvmdx8iHODOJq7o7q4IcxNns
U0dltqnfRx/lrGLixmF1q8nBnD2PNJhUEU4O4SzJWPRIUkMO5exjtNxHv1EV
6BPw72lviH9uQxbB6/fh5oFeUeRweH2I3g3YU0eO4GxLuHtE9FeV6EjOuoYN
GXDAgcw5G2sdWTY4jhzNWVu3c7BKIzmWs82bq61sxj5Ax8PP0/Ap6eX25AT4
eGzaJF3R5HOc3drm+DqmlpzM2YV0zU8lXz5Ep3C266LeAlMbcirskV/IzcTT
5DTOhqaPSxpTQxbDx39S6UbnsCr0Zc4Kn/2gp7SanMGZa1THhcYfyVmc9R2U
uGnIffJVzu4aWb56pFKNzoHXb5Gph6IpOQ++X0P7Tso8RL4Gn3+XropcMbkQ
XO16MlzuJ3QR/Hwt06hsYeRizt5F3Qs86U2+xVnPZx+aSS7hzKmPf/K2X8n/
w747Lskf/u39XrmfDfse1tg69cPZiWjY91Q3I4PFwcZo2HdFjUjrr2+boWHf
t/mlDl+8ei0a9j01SPlx20AHNOy7vELT03avLWjYd88PP8fP7d6Bhn2v+95p
dVDW92jYd7VdIW6lDV5o2Hdli6Lc8gwfNOy7wZYr651S9qNh38WGngXeDf5o
2Pf7MYmRJXMPoWHfTWJ6az3KO4KGfZ8VsOVSgCQY3bPv13R/7YwPQcO+Fysk
OMslhqJh3zd9kk1emX0CDftuEj//bPNjERr2PeP8ZAPdwafQsO8OF9z3Xl11
Gg37XnWmsNk09Qwa9r0xM2egvGIUGvbdN9HxgTmLRsO+B6uOD3LcGIOGff8y
fJfL0n2xaNh3ieU890URcWjY98C9VfdiEuPRsO9jktYaaknOomHfr1veERfe
SkDDvu993FKmWp6Ihn3v++2rt4erz6Fh3zUvyB+vq09Cw77Pcqw+nteUjIZ9
7xezptqo4Twa9l30pvRjZX0KGva9wc/NQ6H+Ahr2/fO3zzkVDfs+8nb2s16d
ZNh3sxmN/V66XETDvhdUnNAvbiXDvkeLZ3Zdc0hDw75vOJLeovCEDPt+/mCf
nOi16WjYd5eP2UauD8iw74WhJtFhy8Vo2PftEWpNhmVk2HddM3PbXksuoWHf
v/V67d9dTIZ9d073gEW5jIZ9b55Ra33yChn23Sh9LFs6+Qoa9l35bEnpzGgy
7LtJjX3L/CEZaNj3N8/HjvlwmAz7rmJc+bRSJhMN+3568Y6V1e5k2HcbxdjC
lOdk2Hefe2YxwQ5ZaNj3h6ahBxb8RIZ9f3wn9PQes2w07LvqwvQ072Iy7LuO
27jelXOvomHfHeCjq7hChn0vH/ROJ05HgoZ9t9xnpTQqngz7ftZwXHPhqBw0
7PuRDJnp34SRYd9fiP82Zqh8Lhr2Xdadm+5yI8O+q0beaV1WR074vb/y0LDv
Cn3inBqtybDvtjI9hUSGfY8UO6/xKyXDvt9+G7TASS4fDftuv1sk2TqHDPv+
JPOt880dZNj3UtcFOYsTybDvnRrjh8c+IcO+/7Z7barFkGto2PdbFvkJsaZk
2PdDli/6OPqRYd8jzK0nRmWTYd8PKiV5fNVJhn3XPHa5XWtCARr23dDeJq3d
lgz7/vbmch9tERn23c+j5zcmGfZd9vL+Qd1yhfR6PMNk/vjmI/ABgQMFDhI4
WOBQgUUCRwjMBY4VOEHgZIFTBRYLnCHwVYHzBC4UuFjgEoHvCFwhcJXANQI/
EbhB4KcCtwn8SuDXAncJ/EFgGcHv894CywncV2AFgfsJrCTwAIFVBIb+sGhQ
2eE6QRF7BPojdppeR9r4hWjoD4em3mE3wjegoT+akxrs3fe5oKE/6odYL+pY
txcN/THy8+AGoKE/2gar1wz0+Pf3ZfsVQ2O77H/dl098TqTYakShoT9GDakc
Ey2KRUN/pEVaee9cmYCG/jA72Dp01Tq6J6E/XmrYeDkuSkVDf+jqTVRr2UP3
I/SH49uGDVEP6H6E/vhgtqmwxIjuReiPhSeVp94szkRDfxwqvXEpyo7uQ+iP
0bqxBfOH0j0I/cGmjtQ3fEn3IPTHF48ey7rZ0P0H/XF1XaG73QO696A/mtzD
SzzW0j0H/ZFVJTZXaKB7DvpDc/TrrZbedJ9Bfxzx6lk8ur+gP94rfKhtzqV7
C/qjsWP0ve02dE9Bf/Rct3u66X6C/nB7WRtSb0r3DvTH5zwYQfcM9IfVook5
Ua/I0B9mwz4Z1V+jewX6Q/aO9vr3YXR/QH+ILcWzy76jewL6o9ZG7sjJBXQf
QH9cO3A3eeto6n3oj09lb54qvyVDf2xapdmoVUk9D/3RqiGq0U6jPof+CJvV
wRyOUW9Df8gYRM/b6Uq9DP2xQ/+mZdiKR2joj4Mv1jx0ml2Dhv7oNe2X/GUj
HqOhPwKm9RyEP6OhP9qWZ4zyayVDf8A3e03V/V/Q0B8u6m/EBTZP0NAfqh3G
5Y6VZOiPDw3aTG1JLRr6Q2vr3GH1BWToj0VLs0WO+nVo6I8t7V/LFKWToT/c
9hyqz5tYj4b+0FsS329hHBn6I03V2nfF6AY09Mfbi76/+IvI0B8xLW0OzmqN
aOgPybl0K9sfyNAf8MOr3tWvCQ394VXVv8/WADL0xwvNWq+9ss1o6I/jR130
TvmQoT+e75/Uf/xvZOgPL7WUf9R6PkVDfwzSmBQR+44c/vvPdwsa+kM+vDzz
0a9k6I92Sa6x185naOiPzUs7j654TYb+mD1h5vLFrq1o6I8+ucpTrDvJ0B9N
Y0NzVFza0NAf6ywOB9p1kKE/9kcNmFjj8hwN/ZFQP0X2x3Zyyu//H/ACDf3h
vt/pvFMnGfqjxSbklprrSzT0h8/XsvLi12ToD811vfw89V+hoT+cx8f3v+hJ
hv44XPtMJjCbDP1RLglYfLSbDP0B7/1ewaAdDf2hYxj+7OZuMvTHfvUv9LKu
kqE/Li0/PcDhIxn6Y3jXcuVuww409IeNraX2PW8y9MeJkEb4CpGhPwrsKi69
+Y38396X/8nS+1N6f0rvT+n9Kb0/0X/1+1P6/Ej6/Ej6/Ej6/Ej6/AgtfX4k
7Xdpv0v7XdrvaGm//7X7Xfr86M+WPj/6s6XPj6TPj6TPj6TPj6TPj9DS50f/
t+dH/wQ9sXFt
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{4, 330}], 
             LineBox[{5, 331}], 
             LineBox[{6, 332}], 
             LineBox[{7, 333}], 
             LineBox[{8, 334}], 
             LineBox[{9, 335}], 
             LineBox[{10, 336}], 
             LineBox[{11, 337}], 
             LineBox[{12, 338}], 
             LineBox[{13, 339}], 
             LineBox[{14, 340}], 
             LineBox[{15, 341}], 
             LineBox[{16, 342}], 
             LineBox[{17, 343}], 
             LineBox[{18, 344}], 
             LineBox[{19, 345}], 
             LineBox[{20, 346}], 
             LineBox[{21, 347}], 
             LineBox[{22, 348}], 
             LineBox[{23, 349}], 
             LineBox[{24, 350}], 
             LineBox[{25, 351}], 
             LineBox[{26, 352}], 
             LineBox[{27, 353}], 
             LineBox[{28, 354}], 
             LineBox[{29, 355}], 
             LineBox[{30, 356}], 
             LineBox[{31, 357}], 
             LineBox[{32, 358}], 
             LineBox[{33, 359}], 
             LineBox[{34, 360}], 
             LineBox[{35, 361}], 
             LineBox[{36, 362}], 
             LineBox[{37, 363}], 
             LineBox[{38, 364}], 
             LineBox[{39, 365}], 
             LineBox[{40, 366}], 
             LineBox[{41, 367}], 
             LineBox[{42, 368}], 
             LineBox[{43, 369}], 
             LineBox[{44, 370}], 
             LineBox[{45, 371}], 
             LineBox[{46, 372}], 
             LineBox[{47, 373}], 
             LineBox[{48, 374}], 
             LineBox[{49, 375}], 
             LineBox[{50, 376}], 
             LineBox[{51, 377}], 
             LineBox[{52, 378}], 
             LineBox[{53, 379}], 
             LineBox[{54, 380}], 
             LineBox[{55, 381}], 
             LineBox[{56, 382}], 
             LineBox[{57, 383}], 
             LineBox[{58, 384}], 
             LineBox[{59, 385}], 
             LineBox[{60, 386}], 
             LineBox[{61, 387}], 
             LineBox[{62, 388}], 
             LineBox[{63, 389}], 
             LineBox[{64, 390}], 
             LineBox[{65, 391}], 
             LineBox[{66, 392}], 
             LineBox[{67, 393}], 
             LineBox[{68, 394}], 
             LineBox[{69, 395}], 
             LineBox[{70, 396}], 
             LineBox[{71, 397}], 
             LineBox[{72, 398}], 
             LineBox[{73, 399}], 
             LineBox[{74, 400}], 
             LineBox[{75, 401}], 
             LineBox[{76, 402}], 
             LineBox[{77, 403}], 
             LineBox[{78, 404}], 
             LineBox[{79, 405}], 
             LineBox[{80, 406}], 
             LineBox[{81, 407}], 
             LineBox[{82, 408}], 
             LineBox[{83, 409}], 
             LineBox[{84, 410}], 
             LineBox[{85, 411}], 
             LineBox[{86, 412}], 
             LineBox[{87, 413}], 
             LineBox[{88, 414}], 
             LineBox[{89, 415}], 
             LineBox[{90, 416}], 
             LineBox[{91, 417}], 
             LineBox[{92, 418}], 
             LineBox[{93, 419}], 
             LineBox[{94, 420}]}, {
             GrayLevel[0.85], 
             LineBox[{95, 325}], 
             LineBox[{96, 326}], 
             LineBox[{97, 327}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0EVWgmEAQNHvZyduyQU4YAG6KhVE7AYDAxs7sVuxxcS6DO45b/xq4g21
9VEIoY5G0UQzCZK0kKKVNG2000EnXXTTQy999DPAIENkyDLMCKOMkWOcCSaZ
Is80M8wyxzwLLFJgiWVWWGWNdTbYZIttdtilyB77HHDIEceccMoZ51xwyRXX
3FDiljvueeCRJ555ocwrb7zzwSdfVPjmh1/+qsNjIUTE+Ae47E0c
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNw+c2AmAAANDPXiWZESpklL0JkT0jhBDHA/D+/9x7zs38/FV+G0IIdZsa
Q2i2xVbbbLfDTruMGLXbmD3G7bXPfgccdMiEw46YdNQxx02ZNuOEk06ZddoZ
Z50zZ955F1x0yWVXXHXNdTfcdMttd9y14J77Hlj00CNLHnviqWeee+GlV157
4613lr33wYqPPvls1RdffbPmux9+WvfLb/8B7aEU+w==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw4c6lQEAANBfb9Ir9QZIlHGVPUtGV5GZ7F1GtoZRIVshslKy4zGc833n
dlToTlJEEARhI28FQZTR3jXGe8Ya530fGG+CiSYZMtmHPjLFVNNMN8NMs8w2
x1zzzPexTyzwqYUWWWyJzwxb6nNfWGa5L62w0iqrrbHWV9b52nobbLTJZlts
tc12O+y0y27f+NYee+2z33cOOOiQw4446pjjvveDH/3khJNOOe1nv/jVGWed
85vzLrjoksuuuOqa3/3huhtu+tMtt/3ljrvuue+Bvz30j3898p/Hnnjqmede
eOl/r7z2BrjLWrA=
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2XtUjukaBvASxqmkZUepxJAkTCcdpB50QCVKUU6dU6OMQZFKGSqmHHIc
DA99DU0kJBSJDoghUeSQVOTQDOVQlOy77rtlPGvttdfea+1/9vq+P7R+f6Tv
/bze67p6BnktcvLtJCMj0wJ/tH1tf/XgTObvr16CFQQrctblwDBfp4l2lu1W
4iyzj2OIQdIqdF/OzJvWyT1rTEArc1aVbvg6SXU7uj9noyV5E/tb/opW5ezE
63cnRxkdQKtxNq0gYfa1G8loDc5eO6Yo+S5KQWtyNnTpjny3PkfQgzkzmmDp
fHR2OnoIZ8Z58k0t3x1Ha3GmMu5U8bZuGWhtziqnhCzsXHUSrcPZHTvnzibn
TqF1OdvSOq9H711n0KM4u7jANbP3imz0d5zdvKq9fbb7ObQ+Z88kjQlHx51H
G3K2Mtfcpyg2Fz2Gs5Dmw/rO7hfQJpwl1n60UBtyEW3G2cj5Ox5bPiSbc5Y6
L/Lglfg8tAVnP8b7bJxmkI9mnNm518uvvUGewFnCiefdKv0K0FacWfW3TFj5
hmwD/x5+XL81ohA9iTMzDYNpKp/JU+DzbTYePTX8Etqes7Hql8MC35GncuYW
Y1JWEHQZPY2zwIrF6zfUkJ04Gyfff0iE+xX0DM4UzXPOfV9MduXs1HEr/1+s
i9CzOHN649JwLJvsDu9v1O/WVnpX0XM4c4ip/tDrEHkeZ3Mr1NJKNa6hPTgb
pmRvdGI72YuzBXOTnrDef6B9OLvtoRqzMY7sx1mc99wHNnLX0Qs4a+i684NC
JDmQs8clerUqzeSFcL2xSalLQ2+ggzkzOfdzY/V78g+cTTKqa8w3K0b/yNkn
vSMO3ivJSzkbHmKo8C6bHMLZgD1xkUGfyMs5+3ZvnZ+N5U10GGdNarM2bIom
h3MW1Ut97KF8ciRnY2r2qeR/U4KO4iwo5aezGvbk1ZwtHiBfOXITeQ1nCrHJ
0QNLyTGcJcfuL72icgsdB59P9OGDrvPJ6znbtC9hjnEyOZ6zzdHm2eEvyRs4
s75ttW+j/m30Js767d2xPmEFOZGzABc7s6IL5K3wvJD9vjSteyl6O3z/6hS/
MifyTs7sf8/cXbmbvIuzyPXVualPyHs42zXPS/fW6DL0Xs48/pBdbRpG5px5
+Ro2rCggH4D7PyzOJlTxDlrCWWhZcHbxHPJvnMk2mq+6d4h8iLPpH+40FL0j
/86Zv3zFzCcT7qIPw///T28MPTaR0zjrpr60e2wFOZ2zGiVbjTjdcvRxuD+D
ClqPryRnwP3zj8daSUXkTM58W28aB6jeQ5+G++nDSDO3QHIWZzv7eQz8NYt8
lrPxvi3N8T3vo3M4u1x87Kcpc8i5nKmuK+42Jo18Ed5/mRO795mcz9m28LpR
05weoAs5+9mwXuG1hHyZsxGxyuXXG8lFnDVunr0l2O4h+hpc7+Zeppl7yf9F
PnxlJcF9BSsL7i9YVbCaYA3BkA8Jf57kjYW5Oe2GfKhfUB13suk2GvJhRo3i
4iU65Wgt4fu1BesI1hU8SvB3gvUFGwoeI9hEsJlgc8EWglnH9Vfi9UE+pLqX
TFfwkzvfbsgHP/sLqv63+qAhH2oNe2aMlfRHQz6cmm/hpjdHHQ350JJSX+Lg
pYmGfGjcuPaZoslgNOTDm2Uqrbfkh6AhH2b3PFF8PUAL7dTx92ujIR8ciyQx
Y2RGoF07ft5INOTDRw+VAVnlo9GQDwP1woL3j9BDQz6k+Xe7pLtSHw354Pjs
3bD6MwZoyIcKjTVR4d2N0JAPdVND9y6/PgYN+TAuyjryk+JYNOTDSv8Ml8k+
lmjIh7kHN28vuj8eDfnwovj5CmNlKzTkQ+7g85Fx8jZoyIfj3t8qHn1pi4Z8
SJa0PXAnoyEfNrCzafPT7dCQD06T9FNDTzugQzqu1xEN+eAQuEAuXXY6GvJB
bYjVh9XKTmjIh2qT14FnDJzRkA+jNDM0cuxnoCEfFnlNmqoV7IKGfDgmeRCx
YaMrGvLhaozRNmvPmWjIh+6f7M8F95mFhnywuG7o2XyFDPmwZJ9al7jVbmjI
h3c+bQ80dzTkQ/dgycLNGbPRkA/7J3tNPtM8Bw35cPjI3fkhjvPQkA9ja/xO
y+6bj4Z8qMzyslm+0gMN+ZAkl5i+aJgnelfH/UqGfKhNrfEOjfZCQz6Eufif
zNXwRkM+yH9+3rXHWTLkQ9Xm5SvMZvqgIR8MnF6l7HlPhnxYo+R3r3WbLxry
4XbJgx6eRn5oyIfqFFvVB2VkyIegtF21ceH+aMiH0Y1XpkdpL0BDPhgN7/Jw
XgkZ8qFpsaGta2QAGvIhK8v7mINOIBryIUJuywDrMjLkQ6tXpo/Lmu/RkA+r
LpYf8dVfiIZ8+Dzo0/tllWTIh6hoTRazIQgN+ZDTaLzgqEUwGvKhJchx092/
yPkdn/8iNOTDbpMzj/Zr/4CGfMh6k78kM4oM+WCSNSX0TjkZ8mHWMteedXqL
6X7cx2T+/ooSvEZwnOB4wZsEbxW8U/AewVywRPAhwYcFpwvOEHxa8FnBuYLz
BV8WfE1wseDbgu8KfiC4UnCN4GeC6wS/FvxWcJPgFsEyQh51EtxZcFfB3Tiz
TL22texRlUW7oX/YZKg7h/raYh+B/rGk1Ny2JtsHDf1j6Dd1gQ1bl6Ghf/C8
8BWy76PR0D+a5Z5kRmxcj4b+4bFEYW93h0Q09I8LS91Pjf9zBxr6x7L2wfRl
n3bX76SjNv5f79PJtqY7HaK+7NOx65fcvrn4yz712VZicC7/yz49VFU48mnt
l316wzdQ6ewg2qPQP46+7FcXE0R7FPrHjTu6OxKu0x6F/jFRc4dJAzuLhv5R
ILNOa1p+Dhr6x6wqWV/nNNqf0D9a8mXfNrfS/oT+YZGYqBHjSvsS+ofRiqLA
rL20J6F//Cr/wb9rPe1H6B/JvpIKZ1Pag9A/XpjrtL6Ko/0H/eOzZuKgS2W0
96B/qLuefvLtcNpv0D/a1qH1Ktpr0D+2Wz5S1i2lfQb94/ktnY8TDWhfQf94
0WXf0xpr2kvQP95cHtjLvJEM/SMsL6KmTEL7CPpHxPbaCw/daO9A/4h/eyDk
fA/aL9A/zMa9Klx9kTyjY9/RXoH+kdT501oNPdof0D+qUtULTF+QoX/I2quY
8GTaG9A/yncsNL/rRfsB+ofVgeLjfw2kfQD9o7d3ySO7x2ToH7FTb2Qf47QH
oH+8rN7/KtiX+r5fR35Qf4f+0an85cOBr8jQP2STru7OO0l9HfqH3PKeQ7Qj
qZ9D//DWHnbPZVIFGvpHe11QeoSG/uHZ/gsCMvSPwQMm9dvtWomG/iFXl+Q8
M4cM/eNVosmIA1qP0dA/5i7anaK4kQz9Y7qk2bTLBzL0jxeaR7/Z4lWFhv4x
taRF78gfZOgfrrs/z1Q3rUZD/ygwc8nxl5Chf8RcilS261ODhv7RJXd5V/kI
MvSPnICPdVEvydA/XD0Ncru4PUFD/4g/129+xiUy9I/OhR+7ahk/RUP/eDTd
e8K1ZDL0j89bdaa/V65FQ//w63t15JEYMvSPbss2T3BrIkP/+MWnRrcu4Bka
+sfc8x7GC++ToX8cdIfCO/U5GvpHbIvBT025ZOgfeZ4BlbZGL9DQP2xulV+p
PESG/mFaX7qhSu0luq1/eK6dbZFIhv7hrvB22v2udWjoH44Doy1bwsnQPyI1
kszfNJChf7TP74A/0dA/ItrmYCUZ+sdO/R+Y3cy/0NA/2uf3dTL0j9W1FXlD
bV+hoX/khyW57swhQ/8Yni7zWy+112joH6P7pqvHzyJD/2h7OvTYRob+YZ9i
V6hXQob+8dRS8ihHoR4N/UP9Uu9tNvZk6B9T2h7Q68jQP7I97x+4VkiG/qFz
cNzQ2s4N6P90n/47S/fr15buV+l+le5X6X79f92v0vMv6fmX9PxLev4lPf9C
S8+/pOdff39J94N0P0j3g3Q/SPcDWnr+9bWl519fW3r+JT3/kp5/Sc+/pOdf
aOn51//s/Ouf2ueicw==
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{4, 338}], 
             LineBox[{5, 339}], 
             LineBox[{6, 340}], 
             LineBox[{7, 341}], 
             LineBox[{8, 342}], 
             LineBox[{9, 343}], 
             LineBox[{10, 344}], 
             LineBox[{11, 345}], 
             LineBox[{12, 346}], 
             LineBox[{13, 347}], 
             LineBox[{14, 348}], 
             LineBox[{15, 349}], 
             LineBox[{16, 350}], 
             LineBox[{17, 351}], 
             LineBox[{18, 352}], 
             LineBox[{19, 353}], 
             LineBox[{20, 354}], 
             LineBox[{21, 355}], 
             LineBox[{22, 356}], 
             LineBox[{23, 357}], 
             LineBox[{24, 358}], 
             LineBox[{25, 359}], 
             LineBox[{26, 360}], 
             LineBox[{27, 361}], 
             LineBox[{28, 362}], 
             LineBox[{29, 363}], 
             LineBox[{30, 364}], 
             LineBox[{31, 365}], 
             LineBox[{32, 366}], 
             LineBox[{33, 367}], 
             LineBox[{34, 368}], 
             LineBox[{35, 369}], 
             LineBox[{36, 370}], 
             LineBox[{37, 371}], 
             LineBox[{38, 372}], 
             LineBox[{39, 373}], 
             LineBox[{40, 374}], 
             LineBox[{41, 375}], 
             LineBox[{42, 376}], 
             LineBox[{43, 377}], 
             LineBox[{44, 378}], 
             LineBox[{45, 379}], 
             LineBox[{46, 380}], 
             LineBox[{47, 381}], 
             LineBox[{48, 382}], 
             LineBox[{49, 383}], 
             LineBox[{50, 384}], 
             LineBox[{51, 385}], 
             LineBox[{52, 386}], 
             LineBox[{53, 387}], 
             LineBox[{54, 388}], 
             LineBox[{55, 389}], 
             LineBox[{56, 390}], 
             LineBox[{57, 391}], 
             LineBox[{58, 392}], 
             LineBox[{59, 393}], 
             LineBox[{60, 394}], 
             LineBox[{61, 395}], 
             LineBox[{62, 396}], 
             LineBox[{63, 397}], 
             LineBox[{64, 398}], 
             LineBox[{65, 399}], 
             LineBox[{66, 400}], 
             LineBox[{67, 401}], 
             LineBox[{68, 402}], 
             LineBox[{69, 403}], 
             LineBox[{70, 404}], 
             LineBox[{71, 405}], 
             LineBox[{72, 406}], 
             LineBox[{73, 407}], 
             LineBox[{74, 408}], 
             LineBox[{75, 409}], 
             LineBox[{76, 410}], 
             LineBox[{77, 411}], 
             LineBox[{78, 412}], 
             LineBox[{79, 413}], 
             LineBox[{80, 414}], 
             LineBox[{81, 415}], 
             LineBox[{82, 416}], 
             LineBox[{83, 417}], 
             LineBox[{84, 418}], 
             LineBox[{85, 419}], 
             LineBox[{86, 420}], 
             LineBox[{87, 421}], 
             LineBox[{88, 422}], 
             LineBox[{89, 423}], 
             LineBox[{90, 424}], 
             LineBox[{91, 425}], 
             LineBox[{92, 426}], 
             LineBox[{93, 427}], 
             LineBox[{94, 428}], 
             LineBox[{95, 429}], 
             LineBox[{96, 430}], 
             LineBox[{97, 431}], 
             LineBox[{98, 432}]}, {
             GrayLevel[0.85], 
             LineBox[{99, 333}], 
             LineBox[{100, 334}], 
             LineBox[{101, 335}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0EVWAlAAQNEPBrbgDtySS2ABujYbCyXsbhEUu7tbr4N7zhu/1mRHW3sk
hJCkU3TRTQ+99NFPigEGGWKYEdKMMkaGLDnyjDPBJFNMM8Msc8yzwCJLLLPC
Kmuss8EmWxTYpkiJHXYps8c+BxxyxDEnnHLGORdccsU1N9xyxz0PPPLEMy+8
8sY7H3zyxTc//P4PjIYQIUoFlVRRTYwaaqmjngYaaaKZOAla+AOaKkXe
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNwwVSQlEAAMCnV8DAFuzCFhG7AwPE7m8XoHL/cXdmE1G5UKoJIUTGakOo
s94GG43bZLMtttpmux12mjBpl9322Guf/Q446JDDjphy1DHHnXDSKaedMe2s
GefMOu+Ciy657Iqrrrnuhptuue2Ou+6Zc98DDz0yb8Fji5546pnnXnjpldfe
eOud9z4Y+eiTz7746pvvfvjpl9+WLFvxx1//rPoPEEIcsQ==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw9c6kAEAANA/b+KVeoQegCtJ9qaykpCEyM4sZERkhYhQSWVnZZbVhXO+
74TeCr8ZdiMIggwjQoLgtpHeMcq7RhtjrHHGm2CiSSabYqppppthpve87wOz
zDbHXPN8aL6PLPCxhRZZ7BNLfGqpzyyz3AqfW2mVL6y2xlrrrLfBRl/aZLMt
ttpmu698bYeddvnGbnvstc+39jvgOwcd8r3DjjjqmON+cMJJp/zotDN+ctY5
Pzvvgot+8avfXPK7y/7wp79ccdU1191w0y1/u+2Ou+657x8PPPTIY0889a//
PPPcCy+98r/XGL9lUA==
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}, {
       RotationBox[
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"medium CDR cost\"", FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style["medium CDR cost", FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0], Bold]]], BoxRotation -> 1.5707963267948966`], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2WlUz3kbx/FsSVMylMmWEAkpMqGib5SJFolGUpgQZU9GqKYxKRSFtJG+
tIgW7dFOSSqUFqQwlZKKociS6b64rtl+Zx7eD+77nH8POK8n5fTv/+l9+Y2x
3Wa+vreYmFgT/PH57y8fgzkT+/uHrMBDOdNutLvcK2yb7hfLcybfOiKoduJ+
9HDOPG+4DTU65oMeyZnF1egIU3YCrcDZ64CY0acaA9GKnPU2mGJ7/4fT6LGc
7fAb9PQrK45Wgs9/+9vSMudz6AmcNXZpfnrgG4GeyJms3mmvIUFR6Emc2S8J
axx4Kho9hbP7r4vfpAVfRE/lbO/mEvdk/1i0Omcn929Vs/eJR0/nLKjGvP+e
OQnoGZxdWLTSukEjEa3JmWrgkdvvVZLQszhLd/twJ2R0MlqLM+/r2yQny6Wg
dThbLfVUP1MyFT0XPv/7gW71YmloBp/f/psK4y7yPM48jG6c3tCWjtbn7JJy
xtTuJ5fRCziLaTUzWVh9BW3IWcgeR5OfSzPQizg7k9zPozo/E23MWfYMA/eK
zCy0KWfLJWISPVKz0WacBS844T0tIQdtzllUeaOtVGwuehln0UVj6puW5aG/
58zr9wFTv68kW3J2vO1rB89lV9FWnLU6KbZeqCJbc2ZasaG/9fJr6FWcFdYp
Wk2uIa/hTFHv1dpSm3y0LWclZ/pqNj8hr+Osq8W5lK0vQNtxdvWm5vb+z8kb
wTNNwkZtv4524GxWtndXw1vyZs6+03lwy8etEL0Vvp6E39m1/W+gt8PrsdFv
/3k/siNn6kba3waOKEI7wfd/zKypDVHkHzkbqXxgj6/GTbQzZzKpW+T7XSXv
5WxJnXX3lsXFaBfObMxT6/o+JrtxpjJ37hjtbSVod/j+hIgbdIiVovdzFrlQ
5dnb42QP+Hlrs/fKnXAL7cnZ9Z5RS85mkA9y5nrSpW2q2W30Yc6k4q+E9zwl
+3DWqampbe56B30U/r3zWI6HZBnaj7O8S8eUJJaTj3M2RWV3WEM42Z+z4Xkr
4SUiB3CmFpE/X163HB3EmdU67ceLj5BD4P2aPD5mbC35NGdxHi+Oz5p8F32G
s2aL0Kre+8gc3r9jdml/LCaf40wvK351wogKdARnM+yX7vLdTI7izD2tKlYj
hxzN2WyD7xzfy1SiL3Jm5BSwwsOWHAt788PbpPYUcjxnv7rl9ekjUYVO4Eyn
bk/97JXkJM42jrtnonKJnMLZyn1hF+f1qUancVbw3FddypJ8Gb7/SuPnSMWR
MzjbMjJxaFjve+gseD/MHFJxwJKcw9m3ZS636+LJefB+S7XffKnfffQ1znZX
b80ssyYXcBYfOnHAoRRyIWdmX96gD9BFnBkvtqzvtZ5cDK+nbuQi/2xyKfz8
JqWpKHxTg/6Xfa8qtZI0/CiT+8Ww75mBHxsnshlo2PdSAxdlu2xDNOz7y+Gd
kem6y9Gw70dju6fLj7NFw77XjGzW/HWVPRr2/UKtvuqtuO1o2Pc+yfOOvWh2
QsO+tweP7+XgsAcN+16uF7j9maobGvY9Jc4u9JXrz2jY92Fz0stOSnigYd+X
luqVlV/0RE/94+sfQsO+b088J16h7oOGfTevDN5n+O4oGvbdyjDv2esmPzTs
e6bBmthta46jYd9nrd+a83XdCTTse+eMNX6d9ifRsO9LL63sW/ghAA37HqsV
0+9tUBAa9t3O652X6pwQNOz7Ya2dMgMen0LDvjuYrlrX2y0UDfte/X2bWqZy
GBr2XfOm7zu5TRwN+679+dMbnkXDvr+Ed9e5CefQsO+q/sam7VLhaNj3EadG
XcjpIMO+z28q5jVPItCw7yMGd1l+KItEw74nqT1wTrgehbb84/12Hg373tH8
cH9kRjQa9t3P2Mv0TuYFNOy7o9k144e5F9Gw7+XW548FFMegYd+9zPd9veVG
LBr2XdJIh28ujkPDvvcPGLdO8U48GvZd9lYfy8Z7l9Cw71pWVcePOiagYd8z
U409G96TYd/3yQ0b5eeRiIZ9n1FzUSlJJgkN+17YXVvmH0qGfU/wNbV5PyUZ
DfteniC/Ky6bDPve/vnX25IUNOy7wWnTpKqnZNj3sF5v7CpdUtGw700nW7do
yKWhYd8H53TN3HiJDPvulymx1N8oHQ37/sZYbVpACxn2PdH05Mthhy6jYd8D
ox8Nvz/pChr2vZ93fvDqW2TY93Gmyg+eO2agYd9jzfdGBcpnomHfczMmmXlf
JcO+n5P8yXPmpiw07PuRsjuVrUOz0bDvsiWqcZ4FZNj3By8U+EfHHDTsu0nH
0aVOSrlo2HfxrNKEJdVk2PfzeuU67gZ5aNj3oy0D4BUmw74fnpPiK9dNhn3v
jvb8dMbyKhr2PaTUeWVLKhn2vaNkjY+h7DU07PvI5LaFa3aSYd8fy/d2X3uH
DPs+vjTl0+TJ+WjY9+nH7m5W8CLDvpelFBRvbCTDvhdHT/fJ1CtAw76HWbnu
suBk2Peo1WMfafWQYd/9sh99erXqOhr2PaoiQ9ohlwz7vkh6i5imYiEa9n3I
ur7LZu0nw76Hl4oHr2skw763D+pJiPzuBhr2feD9qkaVGDLsu9vsZJuzMkVo
2Pdpq1e5uzqRYd/vmfp76NeQXcKY2N8/3AX2EPigwD4C+wnsL3CQwKcF5gJH
CBwtcKzACQKnCHxZ4CyB8wQuELhI4FKBywSuFPi+wLUCPxG4UeBnArcJ/JvA
nQK/E7hbYDHB7/veAvcVWFxgCYElBZYSeCDsSXsq7yrMm/vFg+D9Kt6xvMh6
9p/9YSvb13fbSys09EdNU2Gnx/itaOiP9+r7HvxYsxcN/aF1bM3F4FQPNPRH
QHlRs9ziI+h/uS8zDsTr8w9/3ZdxEXKPzd79dV9qTLM5WDX6LBr6I2TCZt1h
DeFo6I+ZdUnzu/PpnoT+kGhRcTx4+QIa+qOh52i0WR3dj9Af683nj3CXpnsR
+sPrY1HcwnS6F6E/rnwTJHfYie5D6I9G+/c/x+jQPQj9cUKrl4mHNN170B+V
C3Zp+b2hew/6o2e3/oHnTXTfQX+khaYt6NtA9xz0h7ZjhIb6a7rfoD9cDNJX
VfxC9xn0h3N6kv6GYLrHoD+Gz+hcvD2R7i/oj/pxtouUyunegv4oMfpd+acu
uq+gP07V71iiOpbuJ+gP69n7NqRY0L0E/TE2Sn9wtg/dR9Afd2faD5e9RfcQ
9EfMmB2+kTJ073zuj6U/ftCzofsG+qOrRHmyZwzdM9AfcWYRH2f3o3sF+kPj
oEzbOzW6P6A/+NWo2+H1ZOiPyM7Pv0Dp3oD+uNJg4uZtSvcE9Ee03+Q3UyTo
XoD+cNbTd6i5Tob+yNf/RVbnAN0H0B9xXmpDDAyp/6E/5lSNmZkvTX0P/SG1
vD+rrSJDfwT6RkR4naWeh/74dEBh2t6t1OvQH/sv2FWbM+px6A8FqDHvwdTj
0B9hzYtHVLWQoT/MF4a6T7j2EA39UbJhj0JtaC0a+kNrJds4x6UODf1h7Xvt
zUTrR2joj7s7v7I5xB6joT9UAgvVsgY/QUN/dIy+u221Fxn6w/n0uXFXusnQ
HxWbkhMH7/wVDf3xqeZDi24rGfrDLnyn2+G19WjoD0WVsfmTHpGhP4w+/3fJ
igY09Edl0KCdC6vI0B8xTFVcZmkjGvqjOerWLOlyMvRHu8ps5bdmT9HQH+6X
Y5YfKydDfxj1k7PINW9CQ3/E9lF88byKDP2ha3FA3HZFMxr6o9nc2uJtHRn6
497inhUda5+hI6jnW8jQH8M+/4Lf0YKG/ggKv/Fyywcy9IfFO42sFb88R0N/
jL+503X0wFY09IdKu3SOejAZ+mNvvmtjtVIbGvpjQdsQNi2JDP1h7ZRUuVe3
HQ39ket2UHrobTL0R88qSZkQmxdo6I/dcuZu5u1k6I9ABZM369xeoqE/Hn5c
Jjdc4jc09Ed4sfoL8SVk6I95zik7CkLI0B86DsYHrzSSoT8eem/Ujpr6Cg39
8ZXSRDefPWToj+od3Wb2BWToD60W14ZNMq//3Hexv3+I7kvRfSm6L0X3pei+
RP+/35ei50Oi50Oi50Oi50Oi50No0fMhUb+L+l3U76J+R4v6/X+730XPh/5p
0fOhf1r0fEj0fEj0fEj0fEj0fAgtej70X3s+9B9K958c
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{95, 325}], 
             LineBox[{2, 326}], 
             LineBox[{3, 327}], 
             LineBox[{4, 328}], 
             LineBox[{5, 329}], 
             LineBox[{6, 330}], 
             LineBox[{7, 331}], 
             LineBox[{8, 332}], 
             LineBox[{9, 333}], 
             LineBox[{10, 334}], 
             LineBox[{11, 335}], 
             LineBox[{12, 336}], 
             LineBox[{13, 337}], 
             LineBox[{14, 338}], 
             LineBox[{15, 339}], 
             LineBox[{16, 340}], 
             LineBox[{17, 341}], 
             LineBox[{18, 342}], 
             LineBox[{19, 343}], 
             LineBox[{20, 344}], 
             LineBox[{21, 345}], 
             LineBox[{22, 346}], 
             LineBox[{23, 347}], 
             LineBox[{24, 348}], 
             LineBox[{25, 349}], 
             LineBox[{26, 350}], 
             LineBox[{27, 351}], 
             LineBox[{28, 352}], 
             LineBox[{29, 353}], 
             LineBox[{30, 354}], 
             LineBox[{31, 355}], 
             LineBox[{32, 356}], 
             LineBox[{33, 357}], 
             LineBox[{34, 358}], 
             LineBox[{35, 359}], 
             LineBox[{36, 360}], 
             LineBox[{37, 361}], 
             LineBox[{38, 362}], 
             LineBox[{39, 363}], 
             LineBox[{40, 364}], 
             LineBox[{41, 365}], 
             LineBox[{42, 366}], 
             LineBox[{43, 367}], 
             LineBox[{44, 368}], 
             LineBox[{45, 369}], 
             LineBox[{46, 370}], 
             LineBox[{47, 371}], 
             LineBox[{48, 372}], 
             LineBox[{49, 373}], 
             LineBox[{50, 374}], 
             LineBox[{51, 375}], 
             LineBox[{52, 376}], 
             LineBox[{53, 377}], 
             LineBox[{54, 378}], 
             LineBox[{55, 379}], 
             LineBox[{56, 380}], 
             LineBox[{57, 381}], 
             LineBox[{58, 382}], 
             LineBox[{59, 383}], 
             LineBox[{60, 384}], 
             LineBox[{61, 385}], 
             LineBox[{62, 386}], 
             LineBox[{63, 387}], 
             LineBox[{64, 388}], 
             LineBox[{65, 389}], 
             LineBox[{66, 390}], 
             LineBox[{67, 391}], 
             LineBox[{68, 392}], 
             LineBox[{69, 393}], 
             LineBox[{70, 394}], 
             LineBox[{71, 395}], 
             LineBox[{72, 396}], 
             LineBox[{73, 397}], 
             LineBox[{74, 398}], 
             LineBox[{75, 399}], 
             LineBox[{76, 400}], 
             LineBox[{77, 401}], 
             LineBox[{78, 402}], 
             LineBox[{79, 403}], 
             LineBox[{80, 404}], 
             LineBox[{81, 405}], 
             LineBox[{82, 406}], 
             LineBox[{83, 407}], 
             LineBox[{84, 408}], 
             LineBox[{85, 409}], 
             LineBox[{86, 410}], 
             LineBox[{87, 411}], 
             LineBox[{88, 412}], 
             LineBox[{89, 413}], 
             LineBox[{90, 414}], 
             LineBox[{91, 415}], 
             LineBox[{92, 416}], 
             LineBox[{93, 417}], 
             LineBox[{94, 418}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0Nc6AmAAgOGfO3FLLsCBC+CiUJLsVUaojOwtssle2Zmvg/d5vuOvpr6x
tqEqhFBHk2imhQhRWonRRpx2EnTQSRfd9NBLH/0MMMgQSVIMM8IoY6QZZ4JJ
MmTJMcU0M8ySZ455FlhkiWVWWGWNdTbYZIttCuywS5E99jngkCOOOeGUM0qc
c8ElV1xzwy133PPAI2WeeOaFV95454MKn3zxzQ+//+OrQ/gDQVJOXg==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNw9c6AmAAANC/zKxky6iQUVa2jJQ9MiIzXXgA3v/OOd93Mj9/td9ICKFp
JBpC1BZbbbPdDjuN2WW3PfbaZ9x+Ew446JDDjjjqmOMmnXDSKadNmTbjjLPO
mXXeBRddMmfeZVdcdc11C2646Zbb7rjrnvsWPfDQI48teWLZiqeeee6Fl155
7Y233ln13gcffbLmsy/WffXNdz/89MuG3zb9B2IZFD8=
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw4c6lQEAANA/b9Ir9QLpkhHuVURk75IVys4me7dVdrYkRFHoOZzzfedm
KHIrfCMIggpvRwVBtHcMGWOsd40z3gQTvWeSyaYYNmKq931gmuk+NMNMH5ll
to/NMdc88y2w0CKLLbHUMsut8IlPrfSZVVZbY611PrfeBht94UubbLbFVtts
t8NXdtpltz322me/Aw762iGHHXHUMcedcNIpp51x1jnf+NZ3vveDH/3kvJ/9
4lcXXHTJZVdcdc1vrrvhpltuu+Oue3533x8e+NNDjzz2lyee+ts/nnnuX/95
4aVX/vcalZxZoA==
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2XlUznkbx/EktBkNlSR7wiBKKFLfSXZlmmYwRZQ9S03uMTElEaJSphXR
N+60SJsiKZUS7UlFKa0oSR6yjzwX1zVnZn7nPOd5znnmj/nj7g/O6/jLXT7e
1/mOsHP4dp20lJRUK/zy6ffPX/05k/rzl7LAqgKrCawusAZn1setR8Tm2Rl/
9lDO1hnIRUzycEEP50x/k7pycU9P9EjO5nevbrj82g+tyZl9ushfTSYIrcXZ
sHu6DRNGn0CP5Uz3vNmaXyZy9FecDRmybNSV8tPoCZxZZExN+H5vBFqbswil
m6OPGEahJ3MWVzn0lUmPc2hdzu6YjYsPLDuP1uMsqGxl/w1zEtDTOHNPsIxV
90hE63PmrTR0q0ZiEnoGZ25TdFZ6Vl5AG3L2wumu641nyWgjzmSLZp91kb2I
ZpwZnDgitU31EtqEs8uHrOATS0Wbcia+b2nQMe4yei5n01oXObhpp6Hnc+bZ
f+JOw4lX0As5m741b5PnV+noxZytr+kODNTKQJtzpmxV9WHNiKvobzhbOeXt
+hODM9HfcjZo1qWyQNks9HeciUrT5ha6k5dytnZ4qXb9O/JyzlJqj8kd2J6N
tuKsYo78usZ28grObhX5b5Zfew1tw5ldf+2WL2vJqznLktlWV2yZg7aD7+/r
81WHCslrOXs++jtH569z0es5OxZaM+jsRfJGztgA25zb46+j7eH7pyYyaeXk
LZw926wpd00lD72Ns7Iy4+zrh8mOnO1uknrn+pHsxJnNPI0kd9ENtIgzvaru
klet5B2cacX6JA6wuYl25mypwhOdo+XkXfD5O/Z5HDAvH+3CWd+Pbb3l08m7
4edbz32kqk4Beg9nQ3PWGHtFkPfCnx88OHm3eiHag7Ofzj0Sv/YhH+BsuaNx
g3uPIrQn/Pswe3HEUkQ+zJlh+J2w3Edkb86aDEOzRFbF6COc9bP9Te9pMdmP
swVXbt1wYSXoXzmLL85bWHSBHMBZ25jQOiutUnQQZ9rLYxScj5FDOKuWzW1/
16sMfZyzPmNOr7I2JodyplmhGH3amXyKs8lKMjfLEsmcs+GVCfUD2smnOXub
Yeb2atQttJizIoUEX/OV5LOcKRaGOSgEkaM4C88sGzW3lBzD2YUg6fLuPuXo
WM583MJ+bGTkOM721R9Qi99JTuDs6pSaGM0kchJ8Pmtnpbx7TE7mzGlq0viJ
o26jL3LmodhS/cCanMqZSp7qXo0AchpnzsFeb8yLyOmcZf4rZUOQTAX6Kmdz
KuNFRobkLM5Mym7FBInI1+Dn+f3Rkbqx5FzOVskadH5sJudxtk285Wjy4Er0
Tc4GHm/XK/+WXMBZbZXqqeDD5CLOPgxYERuVTf4b9j3/xlPp0b16Z3427LvO
L9U7atR10LDvFuv3LdZ1mouGfV9YcmhWsu/3aNj3d6FXVk4ys0XDvmudG1m7
9rtNaNj3nibtjYWmP6Jh36eaqnQrOuxAw77ffml6Z/8wFzTs+5mevyY4jHFH
w74XfvGvfta7PNCw78GigH3VMp5o2PcQtcKuRbleaNj3xIh5lrOO+aJh3/t+
/sCOomHfS08VVmg6+6Nh39MyxDpW8wLRsO8vq7KWyqkGo2Hffd8vbc99EIKG
feeNxerp8cfRsO8BEVXvfXaEomHfJ+95Fm666BQa9j1y5hLDDQocDfteoP5S
yecpGfZd+ef0fIdb4WjY922ZLkl2qafRsO824f2CEsPPoGHfPb58L/ONtxgN
+z4/q/X5Q8cINOx700yd9uvfnEXDvh+rfqRTMCUSDfsevvhM/nW1KDTse8e+
CQpa3WTY9/mRcS5Bj6LRsO9zjzv3cS6PQcO+z/Yx+fWHjHNo2Pe7XZwrn49F
w76XLx191NXvPBr2PXy/jLe2Qxwa9t2N117stIhHw75HXwuDTzQBDftuHVA9
3N+bDPvuaynSDP5Idvz9/6dENOy712YXrfePyLDvSV3hCo+tk9Cw78YfZzl3
lJNh36uNl/TsveACGvY9IfpF1JtMMux7x+XFZnunJ6Nh38UaRVpZCWTY99uv
4mP1xqWgYd9jZ6reE58mw74b9R5vnqJ6EQ37XvrSVX++Jxn2/dIu8131b8iw
7/aLPS+L7S+hYd9tm3xPl9SSYd+lmgfpdS1JRcO+VwbNuNmeTYZ9/0o/ffjI
qZfRsO85JxVGZUSRYd+zo/tpdmqkoWHf9Sc631rmR4Z9V1kW6LpM5goa9r33
RM3Vop1k2Hf7+tpVs56SYd87t7sk669JR8O+uxsdHbPgDhn23X30ssQ3Zhlo
2Hen9w/8VXLIsO/aQ+9vX21wFQ37vsnyJ98tcWTY900zZg7SGJ2Jhn3fOKLH
mcITZNj3wM5Bh8pks9Cw7yrNv5mNNSXDvsc2+RSNciPDvk+LjZ4gf4UM+77Q
5uQa9ooM+26oHTPHVCcbDfseIN6sVb+FDPtuqOJY+iKSDPtudTI0PLWZDPsu
elywYefQa2jYd3+n1wZGVmTYd1+1TwFGhn1vtpTy3lBGhn2/2RG8ZKliDhr2
vTbM64D3PLJLGJP689cegT0E9hTYW2A/gQMEDhE4VGAusFjgKIFjBU4QOFng
VIHTBc4SOFfgmwIXCVwmcIXAdwWuFbhB4BaBWwV+IvAzgbsEfiPwbwJLCf7/
lhZYRuDeAssKLC+wosBfCKwk8P/QH1+nSsu/7BqBvQL9cQRqe6/lErT67z2x
Dg398bR0zuy8MyI09EeZXPg+7cY9aOgPoxI92/f5//m+bFmf2iNs2B/3pahP
4pT9JX/cl32nN7zIkQ1HQ3/cGnnv7W57MRr6o3olF2dJ0z0J/XEiWsk3t5Du
SegPebP+iwrq4tHQH+ZzA21r+9K9CP0xzcj/wws9ug+hPyqqPFdrrKD7EPqj
s/BYh7wr3YPQH8u906ruR9L9B/3Rdjx/+r1auvegP06ud99xUJnuOeiPh73u
zouMo3sN+oOrqCWlVdJ9Bv2R11gU/1CK7i3oD/1TpXt2TaH7Cvoj3OPYRbd1
dE9Bf2ReaivdLaZ7CfqjZb/IWbaZ7iPoj4CtDV9UjKN7B/pDZ5XNHlcR3TfQ
Hx+uur1oyqV7BvpD+YfNY1MG0j0C/RGRJR2i60j3B/RHzfl1uhqldG9Afzy3
SdFtDKZ7AfpDzVR8duVi6n/oDzP7jT0TelC/Q390dySt+jmN/Om+vLpYecRP
1OfQHwUWe8aG6FBfQ3+0hYY16T8jQ39EH9wIPxLUz9AfWUnlYmVRFRr6o/7T
eW5wBw39kbVjsl2Y1F009EdCjM3uyHwy9MekOs3e7oHVaOiPmhvyuwfb1aCh
PyxqBrvY6t5DQ3/kuPtNWC1di4b+SMk+1Hqnigz98Xy1V53RuTo09EeJQ8hG
v7330dAfZuYdipbW9WjojwlKs8b5qzegoT943YjrUofI0B/6GV6vm1+RoT8+
1bL1hkY09EdYcUxpZRUZ+kMtcYnU9flNaOiPMZsrZuulkaE/9kX6jX85oRkN
/dE8TT3LmpOhP36Msz2QN6AFDf0xo0+ph9YhMvRHbf/LDYrdZOiP2i/NFWxE
D9Chv99rZOiPQQYKv9TYPkRDf3z+69aQoT9m5hpvabN4hIb+6Ak/bayQDP0R
11WzJda0FQ39IefQz4RdJUN/bPW97zjMoA0N/TEwvXX8/Atk6I9n95Sap056
jIb+kNtqENwUQ4b+UH1zeFuGVjsa+mMBzz5bcoYM/eF0+EjL82FP0NAfyduP
96o5SYb+uBBy12XF4A409EeO9uGhb0LI0B8Fb+06rw98iob+eOCqUXw0kAz9
4bC+60yjcica+iNkQHJ+oz8Z+sOpLuC5ldwzNPTHEJkh5+0XkKE/LA6qbHvr
SYb+cH6yIVE5n/z/3pf/zZL7U3J/Su5Pyf0puT/R/7T7U/J+JHk/krwfSd6P
JO9HaMn70V8t6XdJv0v6XdLvkn5H/9P6XfJ+9FdL3o/+asn7keT9SPJ+JHk/
krwfoSXvR3/b+9G/AcX1M+o=
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{5, 331}], 
             LineBox[{6, 332}], 
             LineBox[{7, 333}], 
             LineBox[{8, 334}], 
             LineBox[{9, 335}], 
             LineBox[{10, 336}], 
             LineBox[{11, 337}], 
             LineBox[{12, 338}], 
             LineBox[{13, 339}], 
             LineBox[{14, 340}], 
             LineBox[{15, 341}], 
             LineBox[{16, 342}], 
             LineBox[{17, 343}], 
             LineBox[{18, 344}], 
             LineBox[{19, 345}], 
             LineBox[{20, 346}], 
             LineBox[{21, 347}], 
             LineBox[{22, 348}], 
             LineBox[{23, 349}], 
             LineBox[{24, 350}], 
             LineBox[{25, 351}], 
             LineBox[{26, 352}], 
             LineBox[{27, 353}], 
             LineBox[{28, 354}], 
             LineBox[{29, 355}], 
             LineBox[{30, 356}], 
             LineBox[{31, 357}], 
             LineBox[{32, 358}], 
             LineBox[{33, 359}], 
             LineBox[{34, 360}], 
             LineBox[{35, 361}], 
             LineBox[{36, 362}], 
             LineBox[{37, 363}], 
             LineBox[{38, 364}], 
             LineBox[{39, 365}], 
             LineBox[{40, 366}], 
             LineBox[{41, 367}], 
             LineBox[{42, 368}], 
             LineBox[{43, 369}], 
             LineBox[{44, 370}], 
             LineBox[{45, 371}], 
             LineBox[{46, 372}], 
             LineBox[{47, 373}], 
             LineBox[{48, 374}], 
             LineBox[{49, 375}], 
             LineBox[{50, 376}], 
             LineBox[{51, 377}], 
             LineBox[{52, 378}], 
             LineBox[{53, 379}], 
             LineBox[{54, 380}], 
             LineBox[{55, 381}], 
             LineBox[{56, 382}], 
             LineBox[{57, 383}], 
             LineBox[{58, 384}], 
             LineBox[{59, 385}], 
             LineBox[{60, 386}], 
             LineBox[{61, 387}], 
             LineBox[{62, 388}], 
             LineBox[{63, 389}], 
             LineBox[{64, 390}], 
             LineBox[{65, 391}], 
             LineBox[{66, 392}], 
             LineBox[{67, 393}], 
             LineBox[{68, 394}], 
             LineBox[{69, 395}], 
             LineBox[{70, 396}], 
             LineBox[{71, 397}], 
             LineBox[{72, 398}], 
             LineBox[{73, 399}], 
             LineBox[{74, 400}], 
             LineBox[{75, 401}], 
             LineBox[{76, 402}], 
             LineBox[{77, 403}], 
             LineBox[{78, 404}], 
             LineBox[{79, 405}], 
             LineBox[{80, 406}], 
             LineBox[{81, 407}], 
             LineBox[{82, 408}], 
             LineBox[{83, 409}], 
             LineBox[{84, 410}], 
             LineBox[{85, 411}], 
             LineBox[{86, 412}], 
             LineBox[{87, 413}], 
             LineBox[{88, 414}], 
             LineBox[{89, 415}], 
             LineBox[{90, 416}], 
             LineBox[{91, 417}], 
             LineBox[{92, 418}], 
             LineBox[{93, 419}], 
             LineBox[{94, 420}]}, {
             GrayLevel[0.85], 
             LineBox[{95, 325}], 
             LineBox[{96, 326}], 
             LineBox[{97, 327}], 
             LineBox[{98, 328}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0EVWgmEAQNHvZyduyQU4YAG6KhVE7AYDAxs7sVuxxcS6DO45b/xq4g21
9VEIoY5G0UQzCZK0kKKVNG2000EnXXTTQy999DPAIENkyDLMCKOMkWOcCSaZ
Is80M8wyxzwLLFJgiWVWWGWNdTbYZIttdtilyB77HHDIEceccMoZ51xwyRXX
3FDiljvueeCRJ555ocwrb7zzwSdfVPjmh1/+qsNjIUTE+Ae47E0c
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNw+c2AmAAANDPXiWZESpklL0JkT0jhBDHA/D+/9x7zs38/FV+G0IIdZsa
Q2i2xVbbbLfDTruMGLXbmD3G7bXPfgccdMiEw46YdNQxx02ZNuOEk06ZddoZ
Z50zZ955F1x0yWVXXHXNdTfcdMttd9y14J77Hlj00CNLHnviqWeee+GlV157
4613lr33wYqPPvls1RdffbPmux9+WvfLb/8B7aEU+w==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw4c6lQEAANBfb9Ir9QZIlHGVPUtGV5GZ7F1GtoZRIVshslKy4zGc833n
dlToTlJEEARhI28FQZTR3jXGe8Ya530fGG+CiSYZMtmHPjLFVNNMN8NMs8w2
x1zzzPexTyzwqYUWWWyJzwxb6nNfWGa5L62w0iqrrbHWV9b52nobbLTJZlts
tc12O+y0y27f+NYee+2z33cOOOiQw4446pjjvveDH/3khJNOOe1nv/jVGWed
85vzLrjoksuuuOqa3/3huhtu+tMtt/3ljrvuue+Bvz30j3898p/Hnnjqmede
eOl/r7z2BrjLWrA=
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2WlUz3kbx/FKWaqxhLQQUg1FpkY0xvKVpEEZUZYpStkK0caoRiUUaZKi
vW9ECWmVNoySFFqllCytRhQjocF9cV33mZnfmXPuB/c8mAf/HnBez1L59L7O
d+xaR7N1EmJiYu3wx6e/P3/IcSb2549hAssLrCCwEmcZbbp6AxqtZ3/2SM4G
VV3KvrzLA63C2bd6x5RlXf3QYzh7aJvyeJnDYbQqZ/elbfSOphxFq3HW5D/m
dsGAKLQGZ62p6+2Ccjl6PGeRRa9XlbufQGtyJrfnSkncvFPoiZy96/B6ekDx
NFqbs7arxpPte86gv+LMzMPDwK0xGa3LWYxsYPDythT0FM6OZ0x7c9UuDT2V
swfXerf3tqSj9TnTbF4wU8YgEz2ds9Q3JjYnfS6gZ3B2If9+8MiULPQszjYH
j36hVXMRzcCzFZsKOrLRBpw1yGU/lP2Qgzbk7OnHka2lMnloI85CI2aWS8vm
o405m5Cs2Zvc/xJ6AWd9jVbXFEpcRi/iLGdvsiF/RzblbIHR7asxblfQ33Mm
Kymu69JBNuNMY/mnf8Ev6GWcKR7yWP2immzB2Uv3yA8d86+iV3C2rlCKL8kh
r4LvR1ODRoNWAdqSM89bTnXtUeTVnKUN8bvbLVOItuYsa+3uupk/ktdyxjeX
DG9sIdtxtnxcbqWu2TX0es5Mbd0nteeTN3L2pPKyWuiEIrQ9Z2OiFo86E0Le
zNm8Vw5PEz6St3Jm7bZYRd7+OnobZzrhmgqh1WQnzi71TNt4flYx2gV+Xlsq
DqUkkt04u92ouMVc7gZ6J2dnp9nvfeJO3sXZI3X9bu9msgdn4htDtN8vLEH/
BF//L+UW6aWTveDnfV7YcUulUrQPZ/u23Uz70pvsy1nPWYeMke3kfZw5+s6b
F2V6E+3HmfPu7ouOmeQD8PkukZPbpHwLHcDZgTMll7R8yIHw9dE8FFbXRg7i
rM9ci6xdprfRwZyF/aJweHwGOYQzH9eRs5cplaGPcjbiVaOChBc5DL7f4trF
R1vIEZzFvdFpTVYvR0dxtnrYzC6dFeQYzuZ4lkZpHyRzzo4sb1MIyicfh6/H
0WKpDV3keM6ahzQY16lWoE9xZmTl0LnUnJwI/5/FJ758up+cxNldPjn/fTb5
LGdDHKN353aQkzmTGBi34JZKJTqFs6XteUXaS8hpnMmEa+2x30PO4ExPo9DS
LJN8AfYsW3HrlTbyRc5iR0r5+ShWoXM4Kxs2/XzqQnIeZ8ucTDviPMmX4Oc5
zXbc4PPkK5zNbS3h9x6Sr8K+/Xpd4+2QanQhZ/JDI392mEsu4qz+7U/2eS7k
Ys4KXrbV+5wkl3AmFaDtOPAu+SZn77ulZZ73u4P+B/bdN/t+qafTsMufDfte
/jxorZfh12jYd7tPc25jhIZ9PxAcZFz/Zika9v32FJveGwpr0LDv1ZUNsPjr
0bDvaoMM5Tc93oKGfdePnW4xYaYzGvZ9w502e63XO9Cw786DXTKS1D3RsO+2
XoZDx6/1RsO+J2ef+NiyyhcN+7462pa93rUfDfseoS5ub193AA37rtfRUzjd
PBAN+/5KKdewuyYIDfv+ePZ95r0jGA37nqMz08a/Xwga9j3fwmDHd1GhaNj3
ymunQg3GHEPDvptF6mc/iAtDw76bSefkx+tEoGHflS/2cS05EYmGff/NzbfK
Z0Q0Gva9LE7WXCc0Bg37Pn10jHpxf46GfQ833jT15wIy7Htb0o+BxTvi0LDv
53yfB+trHUfDvkfV+7qvayTDvs8YGqF2NOQEGvb9vvp2C0OTeDTsu0WuRrxe
35No2PeeW+/vNF0iw75PeGKz0dXpFBr2fYWzl3WgSgIa9t3hwsvgjzfIsO9X
83Ud77gmomHf40wGxrqonkbDvlfC+vpVkWHfB0sWl6fuSULDvtdIuC+Kn3IG
DfvuleMt0dlMhn0f8miN5KHws2jYd82gupWvTM+hYd+t9n106SOVjIZ9z3lr
5FKWQ4Z9v+a08MzY7efRsO/RuVaTTYakoGHf64/f7BtuR4Z9f5OwzD8tiwz7
Dt8M6w/SqWjY9zYzS/PXVmTY9+mtM2zXpJFh3ytmPlWa1C8NDft+61vTisOW
ZNh3g9ThUyalkmHfk7o27Ezvm46GfU9XYyaTfiDDvmeFxSpHpJFh339qciib
OCADDfueVN3hbWFNhn0/Is4PKGeRYd/dtZceefhFJhr2fffxNBuTdWTY92Uf
MvOc8smw77P6aplmyl9Aw74njJmtnL2VDPuu3laocu86GfZ9vW9Wv7FjstCw
7xFPp1Sa/UiGfZd6JD2+uooM+17ksPrOykkX0bDvmkVvI7/3I8O+rwiecbfn
ERn2nZ/UqjWakY2GfTddU3Z34jEy7Ht15JLfzF+SL/z392sOGva9qvGhzJHT
ZNh3l7WDntlK5aJh3yvGblMrtybDvtd/Je1zPYsM+/4yYrmrhUweGva9wm3R
/VArMuz7zfBn0p4pZNj3zm9SRo7tk4+GfX8/SRx+pMiw78kvwjtiE8iw76eH
fau0/x3ZI5aJ/fnDS2Bfgf0EDhA4SOAQgcMEjhKYCxwvcKLAZwVOEThD4IsC
5wl8ReBCgYsFvilwucDVAtcK3CDwQ4GbBW4XuEPgLoFfCfxG4N8FFhP8/pYQ
WFLgvgL3F1haYFmBBwo8WOC/6Y9un8XOL1XHYZ9AfyzeEbPztvz3aOiPEXnt
WsZfr0dDfyjeUIlbb+yKhv5YcOyD+ulF3mjoj+LK/dqJjv7ov7kvT+sG5M7J
+OO+zEhJGPUh4o/7coPhJseuvXFo6A+DWe11Z9/Fo6E/tN7WWvH4RDT0R3PP
1Pd1P59FQ38o9QYf6vcD3Y+f7stnVS/CvOl+hP4Yt98vcumNDDT0x3TVByer
1ek+hP6wuFPaOSWc7kHoDw3niZ1J/ej+g/4YMb9Fw34T3XvQHyvOuJkYO9D9
Bv3xXE3194Oc7jXoj/ml3ir29XSfQX/olGdO5iPovoL+aBSPydi2ku4p6I9R
wavGh0fRvQT90TBop7XYI7qPoD8u8b2SAdp030B/bG3Un3DTne4Z6I9P1+ea
CrpXoD8Gl/TqR4yjewP6I0F1eJG8D90X0B8bPEt0VjbQ/QD9kVLaFbuVU/9D
f3zjUekvuZT6HfrjhpPcgjX9qb+hP1otP104ZOiPjuHy8ClTT0N/XHGff2iA
DvUw9MfBXwoyHJ+ToT8cajv9XZOoj6E/CvKuh2tsrkFDfzhq5U9V1rqLhv7Y
bl63Y14XGfoDji34lViLhv5QPN2zzNS9Dg39UVpbfusDu4eG/vCzK07tlq1H
Q3+Mj0mX8q0hQ3/sKvBsrolvQEN/RF07uHes03009EdkUI2Ci0EjGvrDZktA
dJfcAzT0h+3cab19WsjQH3kl907ttHyIhv7YM8JTalMRGfpj971E0366j9DQ
H08Grt0gHU2G/jikNueihPRjNPTHl4sUbpW4kaE/rhXlBeo3k6E/isuMkiPN
mtDQH5XOMlb+V8jQH9/ZjbZb+VUzOoTusRgy9Ifqko0rewa1oKE/hmx31lT0
IkN/nNgZmmnyggz9kaq0cIWybSsa+iPAGw7WajL0R7TRKk3H+W1o6A9LFQej
vtlk6A/zy5Vvuya2o6E/FgfVPlfhZOiPeMWDp9KHPkFDf2wcrfVmix8Z+uOF
Vs22w71k6A/HLzaHWm//FQ39kd80bNSNFjL0x74ZPsoTfniKhv4IqFlyR7KC
DP2xpOGFxuV5HWjoj16r2ohzeWToj4TZvYdVdZ+hoT8KomXG5SeSoT9OfbH/
pPfo52joj9/9S/bphZKhPwLbvuaNsp1o6I8zVkMrlfaQoT/evk6es+YdGfpj
4bke5Wf6XWjoD48avVUDXcjQH00nIwvHpJD/3/vyf1l0f4ruT9H9Kbo/Rfcn
+t92f4rej0TvR6L3I9H7kej9CC16P/qrRf0u6ndRv4v6XdTv6H9bv4vej/5q
0fvRXy16PxK9H4nej0TvR6L3I7To/egfez/6D8XRQHA=
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{5, 331}], 
             LineBox[{6, 332}], 
             LineBox[{7, 333}], 
             LineBox[{8, 334}], 
             LineBox[{9, 335}], 
             LineBox[{10, 336}], 
             LineBox[{11, 337}], 
             LineBox[{12, 338}], 
             LineBox[{13, 339}], 
             LineBox[{14, 340}], 
             LineBox[{15, 341}], 
             LineBox[{16, 342}], 
             LineBox[{17, 343}], 
             LineBox[{18, 344}], 
             LineBox[{19, 345}], 
             LineBox[{20, 346}], 
             LineBox[{21, 347}], 
             LineBox[{22, 348}], 
             LineBox[{23, 349}], 
             LineBox[{24, 350}], 
             LineBox[{25, 351}], 
             LineBox[{26, 352}], 
             LineBox[{27, 353}], 
             LineBox[{28, 354}], 
             LineBox[{29, 355}], 
             LineBox[{30, 356}], 
             LineBox[{31, 357}], 
             LineBox[{32, 358}], 
             LineBox[{33, 359}], 
             LineBox[{34, 360}], 
             LineBox[{35, 361}], 
             LineBox[{36, 362}], 
             LineBox[{37, 363}], 
             LineBox[{38, 364}], 
             LineBox[{39, 365}], 
             LineBox[{40, 366}], 
             LineBox[{41, 367}], 
             LineBox[{42, 368}], 
             LineBox[{43, 369}], 
             LineBox[{44, 370}], 
             LineBox[{45, 371}], 
             LineBox[{46, 372}], 
             LineBox[{47, 373}], 
             LineBox[{48, 374}], 
             LineBox[{49, 375}], 
             LineBox[{50, 376}], 
             LineBox[{51, 377}], 
             LineBox[{52, 378}], 
             LineBox[{53, 379}], 
             LineBox[{54, 380}], 
             LineBox[{55, 381}], 
             LineBox[{56, 382}], 
             LineBox[{57, 383}], 
             LineBox[{58, 384}], 
             LineBox[{59, 385}], 
             LineBox[{60, 386}], 
             LineBox[{61, 387}], 
             LineBox[{62, 388}], 
             LineBox[{63, 389}], 
             LineBox[{64, 390}], 
             LineBox[{65, 391}], 
             LineBox[{66, 392}], 
             LineBox[{67, 393}], 
             LineBox[{68, 394}], 
             LineBox[{69, 395}], 
             LineBox[{70, 396}], 
             LineBox[{71, 397}], 
             LineBox[{72, 398}], 
             LineBox[{73, 399}], 
             LineBox[{74, 400}], 
             LineBox[{75, 401}], 
             LineBox[{76, 402}], 
             LineBox[{77, 403}], 
             LineBox[{78, 404}], 
             LineBox[{79, 405}], 
             LineBox[{80, 406}], 
             LineBox[{81, 407}], 
             LineBox[{82, 408}], 
             LineBox[{83, 409}], 
             LineBox[{84, 410}], 
             LineBox[{85, 411}], 
             LineBox[{86, 412}], 
             LineBox[{87, 413}], 
             LineBox[{88, 414}], 
             LineBox[{89, 415}], 
             LineBox[{90, 416}], 
             LineBox[{91, 417}], 
             LineBox[{92, 418}], 
             LineBox[{93, 419}], 
             LineBox[{94, 420}]}, {
             GrayLevel[0.85], 
             LineBox[{95, 325}], 
             LineBox[{96, 326}], 
             LineBox[{97, 327}], 
             LineBox[{98, 328}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0EVWgmEAQNHvZyduyQU4YAG6KhVE7AYDAxs7sVuxxcS6DO45b/xq4g21
9VEIoY5G0UQzCZK0kKKVNG2000EnXXTTQy999DPAIENkyDLMCKOMkWOcCSaZ
Is80M8wyxzwLLFJgiWVWWGWNdTbYZIttdtilyB77HHDIEceccMoZ51xwyRXX
3FDiljvueeCRJ555ocwrb7zzwSdfVPjmh1/+qsNjIUTE+Ae47E0c
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNw+c2AmAAANDPXiWZESpklL0JkT0jhBDHA/D+/9x7zs38/FV+G0IIdZsa
Q2i2xVbbbLfDTruMGLXbmD3G7bXPfgccdMiEw46YdNQxx02ZNuOEk06ZddoZ
Z50zZ955F1x0yWVXXHXNdTfcdMttd9y14J77Hlj00CNLHnviqWeee+GlV157
4613lr33wYqPPvls1RdffbPmux9+WvfLb/8B7aEU+w==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw4c6lQEAANBfb9Ir9QZIlHGVPUtGV5GZ7F1GtoZRIVshslKy4zGc833n
dlToTlJEEARhI28FQZTR3jXGe8Ya530fGG+CiSYZMtmHPjLFVNNMN8NMs8w2
x1zzzPexTyzwqYUWWWyJzwxb6nNfWGa5L62w0iqrrbHWV9b52nobbLTJZlts
tc12O+y0y27f+NYee+2z33cOOOiQw4446pjjvveDH/3khJNOOe1nv/jVGWed
85vzLrjoksuuuOqa3/3huhtu+tMtt/3ljrvuue+Bvz30j3898p/Hnnjqmede
eOl/r7z2BrjLWrA=
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2XlUz/kex/GQUSm0mcxU6LSY0KpFJZ9Cioqhmrq0aEoNrjItmEFJFMU0
TVRuUx+hYrRRakYradWkhUpTxI9QwoQk5b55f5zhc84994977x/3nN/vD86D
w/nR8nq+z3emp98q77EiIiKv4Ye3P797SVAi8uFLkvMkzlM4y1ByKFfWLWz1
ioXvLEfJMk+bX4cVQ9BTKWmNeG6VqXMQrUCJjnaZuUnQYfRnlMzz2Vmr65KE
VqQk5tk38iPHjqGVKVm3efDbFMWT6BmU7E1Yfvr8PzLQKpT87NO33FD5DFqV
kkbnYdOO49lodUri78hHJsflomdRsgH+9kSNc2hNSmbbLbMoiM9Dz6EkSGDt
4yHIR2tREiJ/60L95wVoHUrapDqmehsWovUo6VAw7VYz/hU9j5L6nC+v+6n/
hjakZHyplK7bALMxJTccrYds8i+gTShZ3TtiZbq5CG1GyUm9y4qiSsVoc0pU
C9Q7j1QzE0qOPqx5fdyvBG1Jie0m8ywp+VL0YkpMzMKfNhcyW1HSF7nIMEar
DG1NycT+CWY6oczL4P2qyK2xaGa2pUTmZHH5p+rlaHtKhl5kWbh/x7ySEoNd
3YdVG5hXUXJr95jwyWoX0Q6U5KZ+0qyzg9mJkmSJwp6hZmZnSh4Vdm9tnnsJ
/TdK/pwwrqE4gnktJZ/J1Y9zFjC7UTKl3uzXNFKB9qDEz8d9e0wysycld6V0
BpReM3tREi4paL+75jJ6PSW+Dd4bZIqYfSnRVR8pllOuRG+gRN0gb0xbKPMm
Skpkz7lJ3mXeTEn+yGz4FKlC+1PifelobWoO87eUuEZem75OoRodSEmdl3Fy
QyhzMCUul5b0P3jIvI0SzXsz7vs61qC/o+Sp1N6G6+XMOyipTVvb7apVi95F
iYfTrKaRJOZQSiy8Xw9HT6xDh1HyZNhI234HczglO3OipTr7mPfB11dxhXOa
+xV0JCWFwamqqk3MBygJHroOX6H16Gh4PwULLDwvMB+iJH3h8I8qer+jY+D/
R8/vWlAGcywlecoltnIzG9BxlDhdq3s8L5H5CCWJmgqHW8SvohMoyenZeKTO
ivkoJYYzM3XvhzMnUSJonZxbfpE5mZIME8H6wjGNaEpJ/0NHr0DCnErJT2kW
jWahzCcoocahu26WMqdRsuVMVIevSBM6g5KDISlbugnzaUpkvUQdjMOYz1Cy
0eMX0ahLzFmUKI9ot6aOb0bnwL9XZUNqw1Lms5QYpceOoQeY8yjJVhPsSa5n
Pk+JaGyOn4Z0C7qQkqgvW28MOzD/RskXj6RKdBKZi+DvM7i64/dO5hJKlES2
fJWtcg1dRonpfrE3Kr7MF+H97pFtzM5krqBkwU7R0ScDzJWUzO1fqKdkch1d
Dd8fG1p6p+5mroXPt6k2FxqrmK9Q8jx0e3Xc5Fb0f2EfPrIc56mcFTh/xlmR
szLnGZxhHw4+yqeDlWUl7wz74CCYsiVAsx2t/v73r6JncX9ek/MczlqcdTjr
cZ7H2ZCzMWcTzmaczTkTzpacF3O24mzNeRlnW872nFdyXsXZgbMTZ+f3H48n
+PGAfXjqeycy/6Vo6TvDPiy6bBwiKyGNhn1wHt2xJsfhUzTsQ/DGRMmqgWlo
2IcuEf2b5SsU0bAPMSU2zdRXGQ378PrU0yY7zxlo2IecQHOz5TEz0bAPXguj
TlqXqKBhHwaCpo02S6miYR+MwzUNvqdqaNiHnbGmm1T0NdCwD5eo7fGay7PQ
sA9i2a43/J010bAPdsWbpRV6Z6NhH2LrQqxLd85Fwz6cW9K0+ZmuNhr24YF7
bK1cgA4a9uFV0gVXbTtdNOyDxA3BExsNPTTsg1h91vezZfTRsA8KEm2TrPqY
YR/e5VDrPDTsg7pJ3RzLXAM07MPk62/mX4k3QsM+PPcabTT6xgQN+1Dgbu6i
u3YBGvbB6u3bnU7QsA/pDZMKsxIs0HHv388iNOyDU+hjQ7+kxWjYh0GRznj9
jiVo2IfE3bUvB6ctRcM+mIwtdClytkbDPjR3BhkKUmzQsA+Bbl/HZ3QtQ8M+
jDv89LG+li0a9mG/+soKlX12aNiHgerpkmaD9mjYB/3IyX0vtVeiYR98XQZ/
2HufGfZBZeRF0K2kL9GwD03Dla3JLqvQOe//favRsA+Fdbs6H/zODPvgW2u/
MCPKAQ37MK1G+dh6a0c07MOS59fLnMSd0LAP+f4ue+tFvkLDPsQHxu1pF3VG
wz6scyx+bf+TCxr2IUjp9Bc1JmvRF9/3uDsa9kGw76ZdQZ8HGvYhoPjvaZZm
nmjYB1vF7TPOWn+Nhn2gGZucV7t4oWEfMtJUe/0DvdnnYwoR+fAVyjmccyTn
aM4xnOM4J3BO4kw5n+CcwfkM5xzOeZwLORdxLuNcwbma8xXOVzm3cG7j/Afn
W5wFnO9z7uP8hPMzzi85v+Yswn0/H8tZlPMnnMU4Q3+MT9XwXrWo1/ydoT+u
ut+XPt5jhX0C/RG2erp113wvNPSH/qrHp5JeBKKhPwrvHRqN37gbDf1xe2Z0
SmXxfjT0R/rY/u2jeT+ioT/uRK+zv6oej4b+MFth5jNR7Gc09IfUiOzaMxn/
+j6NWf72C+iv+7QhxfB08+6/7tPMfRULjpjnoKE/PAImJYvbnUVDf0ia19dE
2bJ7FPrjk2NFPxyffx4N/RG/eqynjBa7P6E/PJMP593+nN2X0B/SATbXgmXZ
PQn94dNaLL9fnN2L0B+dCck5FePYvQf98WdiX0r6GHbPQX+EyKSYlo8yQ3/k
V1JZywnsHoP+0LHxPjBfjN1b0B/KDrdNKuXZfQX98bbWU6az+wn647lW1w8d
2uxegv6osn4hZrCI3UPQH4mek8IOObH7B/ojReTAj2oB7N6B/tiq4wm/xO4Z
6I8H3nJ1czPZ/QL9sWh+Y5ZlLbtXoD/yK2p9BQPsPoH+WPfpksk7JNk9Af2R
EyzXk3GcGfpj49Ith0xM2L0A/VEZ0V53vpkZ+qNWryJXazO7B6A/DqpaFI6V
YH0P/VFRf8pLJIMZ+qPrTZW4rBXrd+iPsMvdV7LvMUN/xBtFbMyPYH0O/ZEZ
3h9rPJv1N/THVx7VD50amKE/vojbm50dxHoc+mOiuIJrl2IbGvpj/9mCuIHL
zNAf5UZ2KUr+7Wjoj16nBpvHn99AQ38oKfbZSdYwQ39E+K3r3La1Aw39ERG9
9FS4xh9o6A/bqFeqW9uYoT9KtLUcv4nqREN/BCZoa5eZd6GhP1wqci4lPGOG
/uhXO9hocvomGvojSNT/3DbdW2joD40h6VLPg8zQH+Pc1rfN6mWG/pBze/sV
3o2OZn2Tzgz9oSz/Zuvi8bfR0B8trQMGdd7M0B9eh5v0iyuYoT/iLhZVJarf
QUN/zDUfX7ZtHzP0xy+P1F+mPWCG/tBNKLW8t0yAhv6wrVjTczOLGfqj9OfF
4SHSd9HQH7/khufrBjNDf3Q2vvl27g1m6I/wdlGFIwvvoaE/+iLaPLpPMEN/
1Nm1NP0h0YOG/hA3mua4bwsz9IdY1ZzvZdqYoT/i9E4dkyL30dAfc1qO3lNK
Z4b+aG2PCVk/5QEa+uNIgo9a5jZm6I8JCUOTdt1mhv4ojhq882L5QzT0h1Ob
pL/FeWboj1M656cIZvSioT+kXjV1pEQxQ3/0XLTW3jDIDP2RtlimONqzDw39
cSazzT24gRn6wyLsdlWC6SM09MdwQGPM0wxm6I9XFq4nVk7tR0N/rHAdmtOw
h/k/vU//nYX368cW3q8fW3i/Cu9X4f36/3u/Cp9/CZ9/CZ9/CZ9/CZ9/oYXP
v4TPvz58Ce+Hjy28H4T3g/B+EN4Pwudf+BI+//rYwudfwudfwudfwudfwudf
aOHzr//Z869/Ao1q+eE=
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{5, 339}], 
             LineBox[{6, 340}], 
             LineBox[{7, 341}], 
             LineBox[{8, 342}], 
             LineBox[{9, 343}], 
             LineBox[{10, 344}], 
             LineBox[{11, 345}], 
             LineBox[{12, 346}], 
             LineBox[{13, 347}], 
             LineBox[{14, 348}], 
             LineBox[{15, 349}], 
             LineBox[{16, 350}], 
             LineBox[{17, 351}], 
             LineBox[{18, 352}], 
             LineBox[{19, 353}], 
             LineBox[{20, 354}], 
             LineBox[{21, 355}], 
             LineBox[{22, 356}], 
             LineBox[{23, 357}], 
             LineBox[{24, 358}], 
             LineBox[{25, 359}], 
             LineBox[{26, 360}], 
             LineBox[{27, 361}], 
             LineBox[{28, 362}], 
             LineBox[{29, 363}], 
             LineBox[{30, 364}], 
             LineBox[{31, 365}], 
             LineBox[{32, 366}], 
             LineBox[{33, 367}], 
             LineBox[{34, 368}], 
             LineBox[{35, 369}], 
             LineBox[{36, 370}], 
             LineBox[{37, 371}], 
             LineBox[{38, 372}], 
             LineBox[{39, 373}], 
             LineBox[{40, 374}], 
             LineBox[{41, 375}], 
             LineBox[{42, 376}], 
             LineBox[{43, 377}], 
             LineBox[{44, 378}], 
             LineBox[{45, 379}], 
             LineBox[{46, 380}], 
             LineBox[{47, 381}], 
             LineBox[{48, 382}], 
             LineBox[{49, 383}], 
             LineBox[{50, 384}], 
             LineBox[{51, 385}], 
             LineBox[{52, 386}], 
             LineBox[{53, 387}], 
             LineBox[{54, 388}], 
             LineBox[{55, 389}], 
             LineBox[{56, 390}], 
             LineBox[{57, 391}], 
             LineBox[{58, 392}], 
             LineBox[{59, 393}], 
             LineBox[{60, 394}], 
             LineBox[{61, 395}], 
             LineBox[{62, 396}], 
             LineBox[{63, 397}], 
             LineBox[{64, 398}], 
             LineBox[{65, 399}], 
             LineBox[{66, 400}], 
             LineBox[{67, 401}], 
             LineBox[{68, 402}], 
             LineBox[{69, 403}], 
             LineBox[{70, 404}], 
             LineBox[{71, 405}], 
             LineBox[{72, 406}], 
             LineBox[{73, 407}], 
             LineBox[{74, 408}], 
             LineBox[{75, 409}], 
             LineBox[{76, 410}], 
             LineBox[{77, 411}], 
             LineBox[{78, 412}], 
             LineBox[{79, 413}], 
             LineBox[{80, 414}], 
             LineBox[{81, 415}], 
             LineBox[{82, 416}], 
             LineBox[{83, 417}], 
             LineBox[{84, 418}], 
             LineBox[{85, 419}], 
             LineBox[{86, 420}], 
             LineBox[{87, 421}], 
             LineBox[{88, 422}], 
             LineBox[{89, 423}], 
             LineBox[{90, 424}], 
             LineBox[{91, 425}], 
             LineBox[{92, 426}], 
             LineBox[{93, 427}], 
             LineBox[{94, 428}], 
             LineBox[{95, 429}], 
             LineBox[{96, 430}], 
             LineBox[{97, 431}], 
             LineBox[{98, 432}]}, {
             GrayLevel[0.85], 
             LineBox[{99, 333}], 
             LineBox[{100, 334}], 
             LineBox[{101, 335}], 
             LineBox[{102, 336}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0EVWAlAAQNEPBrbgDtySS2ABujYbCyXsbhEUu7tbr4N7zhu/1mRHW3sk
hJCkU3TRTQ+99NFPigEGGWKYEdKMMkaGLDnyjDPBJFNMM8Msc8yzwCJLLLPC
Kmuss8EmWxTYpkiJHXYps8c+BxxyxDEnnHLGORdccsU1N9xyxz0PPPLEMy+8
8sY7H3zyxTc//P4PjIYQIUoFlVRRTYwaaqmjngYaaaKZOAla+AOaKkXe
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNwwVSQlEAAMCnV8DAFuzCFhG7AwPE7m8XoHL/cXdmE1G5UKoJIUTGakOo
s94GG43bZLMtttpmux12mjBpl9322Guf/Q446JDDjphy1DHHnXDSKaedMe2s
GefMOu+Ciy657Iqrrrnuhptuue2Ou+6Zc98DDz0yb8Fji5546pnnXnjpldfe
eOud9z4Y+eiTz7746pvvfvjpl9+WLFvxx1//rPoPEEIcsQ==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw9c6kAEAANA/b+KVeoQegCtJ9qaykpCEyM4sZERkhYhQSWVnZZbVhXO+
74TeCr8ZdiMIggwjQoLgtpHeMcq7RhtjrHHGm2CiSSabYqppppthpve87wOz
zDbHXPN8aL6PLPCxhRZZ7BNLfGqpzyyz3AqfW2mVL6y2xlrrrLfBRl/aZLMt
ttpmu698bYeddvnGbnvstc+39jvgOwcd8r3DjjjqmON+cMJJp/zotDN+ctY5
Pzvvgot+8avfXPK7y/7wp79ccdU1191w0y1/u+2Ou+657x8PPPTIY0889a//
PPPcCy+98r/XGL9lUA==
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}, {
       RotationBox[
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"high CDR cost\"", FontFamily -> "Helvetica", FontSize -> 18, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style["high CDR cost", FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0], Bold]]], BoxRotation -> 1.5707963267948966`], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2WlYz/kax/GEFuEkS8swFJKJVLInXxJZGhXRJrSSIUUlJS2YhBQpU+Gr
IiJp36iQCm2qobJFabFMFMbu3LnvmTPzu855dh6cc13//wOulwck/T+9bz9l
WxdTB3ExMbEW+KH7528vOc7E/voaJPAQzgZca+6n2WU065sVOBurbG42oWAz
WomzJzs6PTtO+6OHcjZ6q77S4Kl70N9ztn7B/GlHjELRIzjzHGzqa/riEFqF
szjdLre67ZHoUZztNv88YHePaLQqZ2a/l7Ykeh1Dq3EWv3SF3s0ujv6BM5Uv
axYdOBWLHsdZ493XTrNM49EanJkrvTPp9/EkWpOzqu3T0laeSEBrc2Zr5GBS
Z3AGrcOZ1w3n3GNtiejJnD2anfbsQfA59FTOlndsmqEz7jx6Omc3YzT27ilP
Ruty5rzT95RN1gW0HmdpvhO1VgaloBlnKYqNAT9ZpKLncOYXo7lGRz0NPZez
r6P0PAM+k+dxtuRwh+KeqnS0IWfsg6pRYGwGeiFno8a2r1nrnolezNmGL6vc
mw2z0D9y9vrTurjpw7LRxpzVrE9Lkesim3Im75+S7389B72Ms4OjpFawE7no
5Zw5TD1W6bctD23Ombt7iW30sotoS84W2A+3t9C8hLbmrE9ASZZnv3y0DWem
ajKrVj0jr+asRUqxNO1mAdoWvr4Sa5/7Ly9E28PXT2vR9w0lZEfOjkyYUKg3
/TJ6LXw+dJ1kpJLIzpyNc9yZJal8Bf0TZyPvGI1NPkzeyFnYqllFEjJX0Zvg
9+89pDDcn+zG2bPP82ZsfEfewllyxIyJlzcVoT04K7F3/RrWTt7KWfUnrSQj
u2vobZxFbmob//0Dsg9n/PRP5kstitG+nGW9GvPDd7fJfpydvHRZXnVpCToA
Pr6xwwMSb5F3cnbrxqXCc8al6N2cbfK8vTGvihzEWU6I67VrJtfRwZzJ+Bhk
2dSQ93FmMjE++LHZDXQIZxFPxW0c68ihnDXJ2yzotL6JPsjZiFqDPg6PyOGc
ecvVxQQ6laEjOHunbbKz9gX5CGdvmbqmvXs5Oooz2YiUE9GfyTHwfo1b0TN8
dwX6GHw+rV2iz8hWojlnndL1Xt9Fk2M507OSlPQeWIWO52xataKClwX5FGdD
YvUbDTn5NPx57VnJPVvJiZztSn35JkPjFvocZ/W/zGmd5EE+z1n2ljKv4nzy
Bc5+S5+koiBZjU6Fj1fBSsrNmJzOWdQv3S9yJmfjMx64pDeRszlbdkAnO2l8
DToX3o+LVlzYv5V8kbOhERK+y66S8zmz65Q48r5/LbqQM/jHy9ljSb7C2dQG
16sdp8hF8H41ipIw6CIXw8f71Mx+C/sVXcqZzzwVnYD95BucVQbmpXncJZdx
ticyYbPB2Nvof7PvjosvKznVvMr/Ztj3NwFLNneqjCz4Ztj3/N2N2fuip6Nh
3+2Vp/cK6bUQDftunKCbO2CIGRr2vWXFZr/VITZo2HejuwWp1fH2aNh36cFD
bWTDnNGw7+N9tict2r8JDfvuaajFYqW3oGHfy4fXNOhkeqJh399c6v6AvNGw
7z02nLVw8tmBhn133tXu3e+yPxr2vb/29VKLukA07HteZpbVwZ670bDvw5Kc
4TtSEBr2XflmwJ5ZwcFo2PfZMtIKKx/sQ8O+Kx+2nd9kfAAN+x4yovsXQtGw
731D14objDuIhn1v75M5YInHITTs+/DYW8OKKsLRsO/BJQYZQWoRaNh31X2O
Dh9DI9Gw75/kpcTt246gYd+9ek0xzTSMQsO+2/WTz0k4G42GfW92MBr3cvBR
NOx70sDIpsFBx9Cw7033w1IaPh1Hw76rm7yNcMvnaNj3qNk+q0t2nEDDvpeO
zA5LNYhFw75X2YU72fSPQ8O+D9UX2/S8ngz73rfcXWndmXg07Pvo5AqtEd4n
0bDvu2S6/wan0LDvnVstfRt/SEDDvt8dOCozT/I0Gvb9UZWV7sVWMuy7zxjH
Swo3zqBh3yd588EKqYlo2PfRKye+d4w+i4Z9r9H0mbt4zzk07Htx3LIrA7cl
oWHfD24pb47ecB4N+36yIPJKoGMyGvZ9SWVeCte8gIZ9r9ZRi5K8QIZ9T+5T
a/tSMwUN+95kXCBjlUaGfU/S3J6sPDUVDfte5bdtonM+GfY9nBdUjZyXhoZ9
l7/zbvHbSjLs+5yt6a5Flulo2PeeaXPCfmslw77Pf6LqvG5jBhr23frr+cqY
N2TY96zsYqfUHZlo2PfyJNnldtJZaNh3lYTk1vURZNj3pkczJSNGZqNh3793
6bTakkqGfa/5sfyJhH4OGvb9Ra31Rs1aMuz70df5rzKcctGw76m5v26u/kiG
fd+r/Z39wbA8NOx79NSchyfULqJh33t9+4ZLhn3vSvrHs/2Wl9Cw7xqtptZm
b8mw7y55VdYJYflo2HdZj2CzQM0CNOy7dPHlk3YVZNh3LV+l31umFKJh33dF
uH81DyLDvsvOHHtIqYEM+y45uiz9s/plNOy7uOGGx82+ZNh3NuFejmY1Gfb9
bIWz/0zVK2jY9xFztZvrtpFh3z3lBnwxqCLDvlv3Kv4goXoVDfs+V8urZ5kP
GfZdr/L45MQaMux7tuUYjRL1IjTse3F89xcs2ec4E/vry0/gnQIHCbxP4FCB
wwU+InCMwFzgeIFPC3xO4AsCpwucLfBFgQsFLhK4VOAygasErhW4TuB7AjcK
3Cxwm8DPBX4p8GuB3wn8SWAxwfd7cYF7CSwhsJTAfQTuK3B/gWXh/eZd79Gg
pPVnfxgaf1LYfMcUDf2xP+uwTfR+BzT0R4xxkJ/+aTc09MeOK/VJDto+aOgP
62KjfjrHA9HQH2kZ+YZrb/7n+zLLO2dJiHg4GvrDRjO7JeTLv+7LCR/dE2Ys
iUFDf7w9LNk+1o3uSegP5fMxlyY20D0J/aGVah/yZCXdj9AfimFq6ec+0v0I
/eGgZKRRXEj3IvTHKtXg0NyjSWjoDxeNL5ljDOkehP5Y1HuwWUE13YPQH/s0
XPrfcaZ7D/rj4XsD6Q8ydN9Bfww0MLxfkU/3HfSH/IK8WyU+dL9Bf9jGzu5z
bA7da9Afq/UstKyH0X0G/REaKOfY8IXuM+iPid05/5zuL+iP0yFmCytf070F
/bE4ZMbJwDd0X0F/JEaNeKonRvfR4j/uO7qHoD80XJv9S1Xo/oH+ePjFWsde
l+4d6I8eBfMOjrCm+wb6o1G2++Cjewb6A47BLL1zdL9Afxie0k9ovU/3CvSH
xFHZ6W1ydH9Af/zSt6RL0ZjuDeiPqCMaRU8P0L0B/ZG2pvugp/vC9o/vP3Qv
QH+0XJ/UW3sG3QPQHwsln30d2kKG/rib0KTV8zD1PvTHK17v7mJAPQ/9IZaY
7br3PRn6Qy7/9ylrk6nXoT+SJoU37F1LPQ79oT9sefaTkdTj0B9bpH9+8PgR
GfqjfNjnCXdi76ChP+zU11raOtShoT9GxQy52KZej4b+CDzRX/1eJxn6Y8fu
Ketf5jegoT+kDkwOMd97Fw39kf9ha1ue1T30zj/ul/to6I/8Ia8fKIg/QEN/
1PlqF/9cT4b+EFebF1GW8hAN/fFCrcJk/vxGNPRHj7ib0VczyNAfHYmSZfqq
j9DQH497DzizLpIM/VGtkBSXKP0YDf2ReGe8uN12MvSHn+/DAq9XZOiPLotj
kp5OTWjojyqb7bqv75OhP0wWbVbfadaM7r4vbz3et6aCDP1h+GjboPPzn6Dj
6f1yhQz98WvPFuWlei1o6I9v50AuGfrjmetD56NTW9HQH25Tgm4HZ5KhPzp6
5E5wmtyGhv4wK5xZeTyTDP0RZzl30KEp7WjojwUOwdOkcsnQH677K+2/6j5F
Q3+UvTy+kReSoT/6iZndyzZ4hob+eFyudDH5Bhn6w3ypxSAPk+do6I8EK4+g
HXVk6A+x6WWR8qtfoKE/5O4Z1qu0k6E/JDvOup1w+w0N/cEViyQ9PpGhP3IU
Nxa2/tyBhv7Y3v0fXtIv/9x3sb++RPel6L4U3Zei+1J0X6L/3+9L0fMh0fMh
0fMh0fMh0fMhtOj5kKjfRf0u6ndRv6NF/f6/3e+i50N/t+j50N8tej4kej4k
ej4kej4kej6EFj0f+q89H/on44xY7A==
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{95, 325}], 
             LineBox[{2, 326}], 
             LineBox[{3, 327}], 
             LineBox[{4, 328}], 
             LineBox[{5, 329}], 
             LineBox[{6, 330}], 
             LineBox[{7, 331}], 
             LineBox[{8, 332}], 
             LineBox[{9, 333}], 
             LineBox[{10, 334}], 
             LineBox[{11, 335}], 
             LineBox[{12, 336}], 
             LineBox[{13, 337}], 
             LineBox[{14, 338}], 
             LineBox[{15, 339}], 
             LineBox[{16, 340}], 
             LineBox[{17, 341}], 
             LineBox[{18, 342}], 
             LineBox[{19, 343}], 
             LineBox[{20, 344}], 
             LineBox[{21, 345}], 
             LineBox[{22, 346}], 
             LineBox[{23, 347}], 
             LineBox[{24, 348}], 
             LineBox[{25, 349}], 
             LineBox[{26, 350}], 
             LineBox[{27, 351}], 
             LineBox[{28, 352}], 
             LineBox[{29, 353}], 
             LineBox[{30, 354}], 
             LineBox[{31, 355}], 
             LineBox[{32, 356}], 
             LineBox[{33, 357}], 
             LineBox[{34, 358}], 
             LineBox[{35, 359}], 
             LineBox[{36, 360}], 
             LineBox[{37, 361}], 
             LineBox[{38, 362}], 
             LineBox[{39, 363}], 
             LineBox[{40, 364}], 
             LineBox[{41, 365}], 
             LineBox[{42, 366}], 
             LineBox[{43, 367}], 
             LineBox[{44, 368}], 
             LineBox[{45, 369}], 
             LineBox[{46, 370}], 
             LineBox[{47, 371}], 
             LineBox[{48, 372}], 
             LineBox[{49, 373}], 
             LineBox[{50, 374}], 
             LineBox[{51, 375}], 
             LineBox[{52, 376}], 
             LineBox[{53, 377}], 
             LineBox[{54, 378}], 
             LineBox[{55, 379}], 
             LineBox[{56, 380}], 
             LineBox[{57, 381}], 
             LineBox[{58, 382}], 
             LineBox[{59, 383}], 
             LineBox[{60, 384}], 
             LineBox[{61, 385}], 
             LineBox[{62, 386}], 
             LineBox[{63, 387}], 
             LineBox[{64, 388}], 
             LineBox[{65, 389}], 
             LineBox[{66, 390}], 
             LineBox[{67, 391}], 
             LineBox[{68, 392}], 
             LineBox[{69, 393}], 
             LineBox[{70, 394}], 
             LineBox[{71, 395}], 
             LineBox[{72, 396}], 
             LineBox[{73, 397}], 
             LineBox[{74, 398}], 
             LineBox[{75, 399}], 
             LineBox[{76, 400}], 
             LineBox[{77, 401}], 
             LineBox[{78, 402}], 
             LineBox[{79, 403}], 
             LineBox[{80, 404}], 
             LineBox[{81, 405}], 
             LineBox[{82, 406}], 
             LineBox[{83, 407}], 
             LineBox[{84, 408}], 
             LineBox[{85, 409}], 
             LineBox[{86, 410}], 
             LineBox[{87, 411}], 
             LineBox[{88, 412}], 
             LineBox[{89, 413}], 
             LineBox[{90, 414}], 
             LineBox[{91, 415}], 
             LineBox[{92, 416}], 
             LineBox[{93, 417}], 
             LineBox[{94, 418}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0Nc6AmAAgOGfO3FLLsCBC+CiUJLsVUaojOwtssle2Zmvg/d5vuOvpr6x
tqEqhFBHk2imhQhRWonRRpx2EnTQSRfd9NBLH/0MMMgQSVIMM8IoY6QZZ4JJ
MmTJMcU0M8ySZ455FlhkiWVWWGWNdTbYZIttCuywS5E99jngkCOOOeGUM0qc
c8ElV1xzwy133PPAI2WeeOaFV95454MKn3zxzQ+//+OrQ/gDQVJOXg==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNw9c6AmAAANC/zKxky6iQUVa2jJQ9MiIzXXgA3v/OOd93Mj9/td9ICKFp
JBpC1BZbbbPdDjuN2WW3PfbaZ9x+Ew446JDDjjjqmOMmnXDSKadNmTbjjLPO
mXXeBRddMmfeZVdcdc11C2646Zbb7rjrnvsWPfDQI48teWLZiqeeee6Fl155
7Y233ln13gcffbLmsy/WffXNdz/89MuG3zb9B2IZFD8=
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw4c6lQEAANA/b9Ir9QLpkhHuVURk75IVys4me7dVdrYkRFHoOZzzfedm
KHIrfCMIggpvRwVBtHcMGWOsd40z3gQTvWeSyaYYNmKq931gmuk+NMNMH5ll
to/NMdc88y2w0CKLLbHUMsut8IlPrfSZVVZbY611PrfeBht94UubbLbFVtts
t8NXdtpltz322me/Aw762iGHHXHUMcedcNIpp51x1jnf+NZ3vveDH/3kvJ/9
4lcXXHTJZVdcdc1vrrvhpltuu+Oue3533x8e+NNDjzz2lyee+ts/nnnuX/95
4aVX/vcalZxZoA==
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2WlUzvkbx/EWIUsiE6JSWZKSJUtEXzSVfUsyE5JEqSTZs7WL0kZK8i2U
JUmiVSlNSsgWSRsyokWLlLE0l67LOTO/J/855z8P5sHdg5zX6Unnvu8+3tf5
qVhuXLxWQkxMrBq+ff+346sPZ2J//eorsLzA/QVWEHgQZwPylSKtjZfqd1iJ
M48Vfac2jNmOHsyZ/eFyR+UUD7QqZ2+vGYya5HYYPYSz2rmRzQppwehhnJ05
7RVZlB+KVuds3WOXIy61EWgNzuI0Hyy37h2F1uSs16OMlMydp9GjOPukWeiW
diUaPZqzk4fHvpS4fxY9lrOrdhe1+5ScR+twFiOl/Ue3h7HoCZwFuAz175MW
h57Emad/8zf9+fHoyZw15MT2m6l7Ga3HWWDAlfgYxQT0NPh5hkY/jXYy42xe
78oPo8qvoGdwJqPtbTwvLRFtwJmJsnG5bvBVtCFnB9R6GcjbXEMbcybR++Xt
Z1OS0LM589LRcEzomYyey9mauvd2h8vJ8zkLmTIuyzEuBb2QM1+LV39s252K
XsyZUkX5+Oo5aWgTztKSfTs3yKejTTkL22XcVl5BNuNs77OpO8zOXkf/wpnK
5rUL7R0z0Obw/h2I664/KRO9krPjy+eI27STLeD97Ou8a9aaG2hLzq7ZPnVP
zCVbcXa6fIlu3YgstDVn7UGZu4x8yes5m7TOwGZjA9mWM9cLevvjl2Sj7eD3
35PlUHyN7MBZ6P7bba0DbqIdOZv8K1s/1YXsBK93rIJ7ShnZGT5flqmyF/Rz
0Fs5q/vglmocSd4Ov39JzKsxkr+hd3L2oqeNSaUV2YUzb9cBS+JzyXs4ex2S
1T9APRe9D17/Hk79VvuQXTn7HOjb5ddasjtnxhOzo1Tn30J7cra70NjdMJ7s
zdkQg0+u8n3y0D6c2c5r9lviTD7EWZ/sU75qT8h+8P6WdT3oMykf7c+ZS1P8
wg1h5EDORk0Ne5f/hRzM2fRm3W1pK2+jj3I2X+aks2oW+RhnTuMTRmqpFaDD
OMu/pGzp5kEO5+ybUfTMmDfkCM4MFvEFVbPuoDm8HhrymSNiyVGcSS8esVVH
5i76NLx/4X1kgxzJ0ZxZ9r4ps+Yh+Sxnz+37hdXo3EOf50xf6Y9606PkWM72
HErZIP2JHAd/H3aDV9j9UoiOh/evrc29Np2cwNn4brOsW2TuoxPh87HzS3m0
PvkaZ7MbPOEvjJzM2cCelVr+nJwKe9NjsIv6A3I67FGR0scZ4g/QGZxp+B57
9mYM+QZno7XeBZWuJmdz5nBw7ECrQHIOZ8sSde/ZZ5NzOVs0P/GCfxM5jzNF
sU3LLqk+RN/mbI5iVYvFYvIdzkzVH34NdyX/C/vev1uxjGFtc0aHYd8XPy35
bPKTRmaHYd+vtos/Ob9iJhr2PVR286yirUvQsO9mg+59sZWxQMO+r9044s3B
6+vQsO/Tgr4261g4omHftXboaek7bkHDvnvL7Ffb33kXGvZdd/jH+9NM96Fh
328vOL97spIbGvY9OH3yrX21HmjYdykfs5z4m95o2PfCj9U9WwMOomHfN4c/
d9+11g8N+27/smqPV5Q/GvbdfNmdrht7BaJh3weHypyI2BaEhn2PajSQffMi
GA37vuGk360eJkfRsO/qTUPehuWHoGHftzh5vvSbGIqGfZcc5ljjEBGGhn13
zVOdly4ZjoZ9r7VtCi5yPoGGfS90H3Zg6OsINOy7W4z/yBZNjoZ9/9aU7/Pi
HRn2vedXOfPYs5Fo2Hed6zlm0aui0LDv1sXqNRPlTqFh35dqZz6yyiXDvt99
m3Cs2OU0GvZdY1L6YNXxZ9Cw7wbZrd8615Fh3wvWVzX7xESjYd8zR7q2X7SK
QcO+S761fDRb5Swa9r3z9YmeYpVk2PeUTQc/pUSeQ8O+N8ftvKFndR4N+65V
a+OVOewCGvb9ZOBmy151ZNh3m69a4m0xsWjY98MvB21xNr+Ihn0vV36/dKRc
HBr2fe/YXK9nBWTYd7le6sedPC6hYd8NHzp8GKMcj4Z9188tveruQoZ9l+yS
6Cz1nAz7fsvo4DhP3cto2PfW/EX71I+RYd9VLpdNZa1k2Hezczzq3bIENOx7
iF7EUeVkMuz7PZ3Vn/P7X0HDvjs5yNUf2UGGff/5+KvSYaVk2Pdv+7p0lp2W
iA78sVdk2Hfd0OSlspJX0bDvA59m1oxbR4Z9l4wXh8Igw75rdwTLNTTs+5lZ
I6o/BpJh3zN+OiBt20aGfT/kWtlYtyIJDfu+2sfJ5ks2GfZdu+MFSUbDvg+4
cLf9gh8Z9p15W+VdbiHDvk9wKgtu+iUFDft+s0Xd/HA2GfY9WqZp5+gRqWjY
98yrckNVAsiw770VsnJb3pNh36Nn6PXRXpCGhn0vWzW1/teLZNh3hf47lst1
T0fDvqsoKmW32ZBh380mK0cMzSPDvnunv353a9h1NOz7mGuyVdydDPu+pcp4
nUUVGfY9IPXE7tfTM9Cw753ExzrXcjLsu+naip+y2smw72UuaqnrVmSiYd/V
DY/euZxOdjnJxP76tU9gd4G9BT4ksL/AwQIfEzhcYC7waYHPChwrcLzAiQIn
C5wu8A2BcwTOE/iOwPcFfixwscClAlcKXCVwtcC1AjcI/EHgNoG/CCwm+P9b
QuBOAncWuKvA3QTuIbCMwLIC/4P++GK/wL+4XgZ7BfpDZfCqGVJeRmjoD22H
U+LpUpZo6A/PybGOBUZOaOiP34cEZ8g67UFDf7htqK/em+KJ/gf35e+Dq9cv
nROGhv5ouDl9RrA2R0N/KGfM7auy5RQa+sPVX9NCIonuSeiPoUeD0wobz6Gh
P1xNfBR9Z15EQ3+sqg86JbaI7kXoj/HS5f6GUnQPQn+4Gw00iv2N7kHojy3i
2uPsftx/0B82m3JHD19P9x70x9sisTORhnTPQX98r3OTcXS/fe+PsG3hUWp0
n0F/BCSZfy0eQvcX9IfVlIoFviF0b0F/rFntHZ4RQfcU9MeR7kf2al2i+wn6
40lusbR2Ft1H0B/zrNMvfiihewj6w++un0nFJ7p3oD92lby4lK9A9wr0xwCl
z8s1f6Z7BPrDXqJHwcmNdG+Y/ugtui+gPz55LAvUe0r3A/SHxfd5lqP+h/7w
6L6j08TF1PfQHx0/DqGeh/5Ql+EVrRupx6E/+qXEXJgiT/0M/RF/rvlsWyYZ
+sN3Zc+FCrbUy9AfRYXHfUz6P0JDf0iNd+lek0uG/kiy/H4BP0ZDfyiKl2qu
1CxCQ38sahU3tn9Jhv7Qz1ecEBD6BA390bs9/ozRkqforT/6uBgN/fGlSp31
vUOG/kjJCeiievAZGvrDzSNIZ+/cEjT0R9JwY7ttvZ6joT80R/ndnveYDP3R
JP1sx8DjpWjoD+u0Gcqaa8rQ0B+B1Wv7FmiVo6E/fAL9jZ+3kaE/Jno/8Zlw
qwIN/VH3qPHY/tmVaOiPLFNpea8rZOgPdroiQ2bQC3Qg9bsnGfpj/kyTF4UN
ZOiPzhqvKtaZv0RDf6w4k1Zjl0eG/nAOyVnee/wrNPTH9dgDUhlRZOiPSVrb
HyyTrUJDf7xTa/A6uZcM/WFlvmmTST0Z+qNRNnfBq5Wv0dAfc5xuxA0rJEN/
BCmUiNmx39HQHxKy21o0EsjQH6WGktu7D3mDhv4InGKnOi6EDP0Bf7wtx6Wr
0dAfcRqf47ruIUN/TO9ZkZ3aSIb++P7r+1u/RUN/hPcPDDrwnAz90Z6wCy72
d2jojyyzihtVuWToj6TQbo3GejVo6I+0RyeGR1whQ398gE+7mkYtGvpj3ujw
DcciydAfpkUF73UG1KGhP+ZLe89K9idDf4yCmjaRrkdDf7y5eaXTgP3k//e+
/F8W3Z+i+1N0f4ruT9H9if6v3Z+i50ei50ei50ei50ei50do0fOjv1vU76J+
F/W7qN9F/Y7+r/W76PnR3y16fvR3i54fiZ4fiZ4fiZ4fiZ4foUXPj/6150d/
AucSEcE=
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{5, 331}], 
             LineBox[{6, 332}], 
             LineBox[{7, 333}], 
             LineBox[{8, 334}], 
             LineBox[{9, 335}], 
             LineBox[{10, 336}], 
             LineBox[{11, 337}], 
             LineBox[{12, 338}], 
             LineBox[{13, 339}], 
             LineBox[{14, 340}], 
             LineBox[{15, 341}], 
             LineBox[{16, 342}], 
             LineBox[{17, 343}], 
             LineBox[{18, 344}], 
             LineBox[{19, 345}], 
             LineBox[{20, 346}], 
             LineBox[{21, 347}], 
             LineBox[{22, 348}], 
             LineBox[{23, 349}], 
             LineBox[{24, 350}], 
             LineBox[{25, 351}], 
             LineBox[{26, 352}], 
             LineBox[{27, 353}], 
             LineBox[{28, 354}], 
             LineBox[{29, 355}], 
             LineBox[{30, 356}], 
             LineBox[{31, 357}], 
             LineBox[{32, 358}], 
             LineBox[{33, 359}], 
             LineBox[{34, 360}], 
             LineBox[{35, 361}], 
             LineBox[{36, 362}], 
             LineBox[{37, 363}], 
             LineBox[{38, 364}], 
             LineBox[{39, 365}], 
             LineBox[{40, 366}], 
             LineBox[{41, 367}], 
             LineBox[{42, 368}], 
             LineBox[{43, 369}], 
             LineBox[{44, 370}], 
             LineBox[{45, 371}], 
             LineBox[{46, 372}], 
             LineBox[{47, 373}], 
             LineBox[{48, 374}], 
             LineBox[{49, 375}], 
             LineBox[{50, 376}], 
             LineBox[{51, 377}], 
             LineBox[{52, 378}], 
             LineBox[{53, 379}], 
             LineBox[{54, 380}], 
             LineBox[{55, 381}], 
             LineBox[{56, 382}], 
             LineBox[{57, 383}], 
             LineBox[{58, 384}], 
             LineBox[{59, 385}], 
             LineBox[{60, 386}], 
             LineBox[{61, 387}], 
             LineBox[{62, 388}], 
             LineBox[{63, 389}], 
             LineBox[{64, 390}], 
             LineBox[{65, 391}], 
             LineBox[{66, 392}], 
             LineBox[{67, 393}], 
             LineBox[{68, 394}], 
             LineBox[{69, 395}], 
             LineBox[{70, 396}], 
             LineBox[{71, 397}], 
             LineBox[{72, 398}], 
             LineBox[{73, 399}], 
             LineBox[{74, 400}], 
             LineBox[{75, 401}], 
             LineBox[{76, 402}], 
             LineBox[{77, 403}], 
             LineBox[{78, 404}], 
             LineBox[{79, 405}], 
             LineBox[{80, 406}], 
             LineBox[{81, 407}], 
             LineBox[{82, 408}], 
             LineBox[{83, 409}], 
             LineBox[{84, 410}], 
             LineBox[{85, 411}], 
             LineBox[{86, 412}], 
             LineBox[{87, 413}], 
             LineBox[{88, 414}], 
             LineBox[{89, 415}], 
             LineBox[{90, 416}], 
             LineBox[{91, 417}], 
             LineBox[{92, 418}], 
             LineBox[{93, 419}], 
             LineBox[{94, 420}]}, {
             GrayLevel[0.85], 
             LineBox[{95, 325}], 
             LineBox[{96, 326}], 
             LineBox[{97, 327}], 
             LineBox[{98, 328}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0EVWgmEAQNHvZyduyQU4YAG6KhVE7AYDAxs7sVuxxcS6DO45b/xq4g21
9VEIoY5G0UQzCZK0kKKVNG2000EnXXTTQy999DPAIENkyDLMCKOMkWOcCSaZ
Is80M8wyxzwLLFJgiWVWWGWNdTbYZIttdtilyB77HHDIEceccMoZ51xwyRXX
3FDiljvueeCRJ555ocwrb7zzwSdfVPjmh1/+qsNjIUTE+Ae47E0c
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNw+c2AmAAANDPXiWZESpklL0JkT0jhBDHA/D+/9x7zs38/FV+G0IIdZsa
Q2i2xVbbbLfDTruMGLXbmD3G7bXPfgccdMiEw46YdNQxx02ZNuOEk06ZddoZ
Z50zZ955F1x0yWVXXHXNdTfcdMttd9y14J77Hlj00CNLHnviqWeee+GlV157
4613lr33wYqPPvls1RdffbPmux9+WvfLb/8B7aEU+w==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw4c6lQEAANBfb9Ir9QZIlHGVPUtGV5GZ7F1GtoZRIVshslKy4zGc833n
dlToTlJEEARhI28FQZTR3jXGe8Ya530fGG+CiSYZMtmHPjLFVNNMN8NMs8w2
x1zzzPexTyzwqYUWWWyJzwxb6nNfWGa5L62w0iqrrbHWV9b52nobbLTJZlts
tc12O+y0y27f+NYee+2z33cOOOiQw4446pjjvveDH/3khJNOOe1nv/jVGWed
85vzLrjoksuuuOqa3/3huhtu+tMtt/3ljrvuue+Bvz30j3898p/Hnnjqmede
eOl/r7z2BrjLWrA=
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2Wk41vkex3Fri6ksNUoLlWijoqLN9MvpYNKi5TDFJAZJisy4JUaSiBYt
kjU/EmoSUjehlBRChRSjiJMYSWmiGW3nq+93rjPzv865zoMzD+bB7UFdrydd
3G4f72//cfZuqxxlpKSk2uCPvr8/fahwJvX7j2ECqwo8QuCRnHk8rvHYqG22
8JNHc7Z7c2fbzksitDpnLj1s6gyHPeixnGWeMl1tFBWGHs9ZkIx4t/LbcPQE
zg7KjXRtXxCN1uZsUbXK1JOH49GTOMvfvnBrgW8iegpnup0L9cfMO4XW4Szx
jqnaNulU9DTOrig/yjpXeQY9g7N3Hyr2DbVNQ+tzFnxql0ZNRjp6Fmctdgn3
Z73IQBtwNkjetb9mTyZ6DmcHTE8HTnx9Hj2Ps6n1wfkt7VnoBZzFnPFx+Lbm
AvoLzlqb5JKrcy+iGWeauseyNWPFaGPO+ulO2PCddzZ6MWcXU1d4BC/LQZtw
Zioz2MBT/RLajDNvz4PSdc/ISzi7saZ34MbsXPRSzpqYmeqMXXno5ZzVuz1f
/KVZPtoCXo/htheKP7uMXsWZgvkC7nqLvIYz7X1vw5YGX0FbwtdvZP/6oXEB
+ivOHhlbjbd4T17HmeyLJ9XfWF9F28DXa9C0PiqbvJ6zvbmKzGXoNfQGzvad
fj309layPbyfPGXlG0rJDvD5xY+c/mhCIdqJs0BH1zannWRnzsZ8eyJzeh3Z
hbP1SoejRXrX0a6cjX87tiwghLwV3j9iHdvjTWR3eP9t9snTmluE9uAsfTHv
7X+Y/B28XrPHpem1kUXw721driXLbqC3cxZ55YHS6OPkHfD5DlOflddJ9oXv
7+uZ3bl/v4n2g9drwL7QOXFk/9/eP+QAzp7tCxTHmhejAznriVYfFp5IDuKs
d4hfs1QveS9nP59N+rzRogQdylnatbdnbFLJ+zkzD0veof+RfJCzbS0dcZWW
pehDnK1T4ckRaeQjnJnsWJlnK38LHc6Z87Goql5rcgRnoxTFtc+zyJGc5T7c
kHpdoQwdzZlKkLT5OXtyLGdVs4+6iS+RT3DmUFEy1ku5HM3h5+/jHLtCZ3Ii
Z8P9TX6qKiAncSZe1pWTqlqBTuZM2ep2g9oWcipnzV7VuvOLyGc4+zW/+bTp
yNvos5xlVc5deGMb+RxnHb9MV5IrIWdwdjs0NeQLjTvo8/B6iVzlmj3JF2B/
vo1xTy8nizlLORxxq175LjqHM9XLq6XfLCDnwutnuyg605mcD3uSyOJLjpKv
cCadZLDNo4B8lbOCqMhpRe3kQs7qbEUr1FUr0UWcDRsw/8aZReSbnLUP7PsB
JZfA6zers8ItknyLs5szJjofvU4u50zdwqBF4QX5T9j3RO1e33Dl/gWfDPs+
QXGx6qZmXTTse/agOealHsZo2Pfyb/q+4SvRsO96txsDjeVs0LDvdR1m3XG2
DmjYd58em2Tta5vRsO8HvcdsK+nngYZ9/+D45oldgggN+x4Ys3/K9RwfNOy7
flvg3UXH/dGw7yFR36ufXLAbDfu+tfCyvlvNHjTse4BVWVzUhr1o2PevFnSb
7a4PRcO+X5Xb+qhi9QE07PvYSdnPfe6FoWHf716q764adhgN+z6l5aJKrvkR
NOy7lrzq1fBdR9Gw7+0RY5o1xOFo2Pc7u/OyRPXH0LDvb9Y6Jl/4EIGGfW9L
EA8+OTYSDftuZBfSP3xZFBr23eXkvDElO6LRsO+tjdPeeqbEoGHfC/KOac0r
i0XDvjv9ssLQ4nEcGvZ98GyFL526T6Bh32X7fv3KcTTs+zSrhQalYWTY98Cp
3GKFRgIa9n1q799mrjhHhn0/bX5T74hRIhr2PbzB8EpPORn2vcGqxbjF9iQa
9n3VZNGsId1k2Pfh3V92ZoQkoWHfJ8s/Wl814hQa9v3VwDrvUTFk2PdXXi9S
9cYlo2HfE58VKt5OIcO+l93vHZ+gm4KGfS8YEjsz8QIZ9r3t12oTz3mpaNj3
/Sqvh+8oIsO+x7rKevHlp9Gw79pqcz/z+ZEM+/50u3ziRMczaNj3h05TijS7
yLDv2fDd2+77Axr2Pdwl/mDxoLNo2He/90qjdGLJsO/x6vX6j3XS0LDvFZ4j
N53OJ8O+D2w4ZCK//Bwa9j0zuCczoJEM+16zfnG9nmc6Gva9oOvixgi5DDTs
e3jClOSqFWTY93g5g9bHUWTYd5la/wHbWsiw76OWXn+prJeJhn3/JkuzxsuP
DPve99lqlZFh3ydEM+V9I86jYd8nG1Wb73ckw767d6arv0kjw77zEWv1i1+R
Yd8dpYfmeBpmoWHfeyvdbz30JcO+txounWV2jQz7rqDjP1m2/wU07Hua/up1
O83JsO9BxX6q5ofJsO+K9hsV4h6QYd8vNRisHqd+EQ37HmT0/OUDBzLse9nQ
vgEmw75rRYTn3ekiw767uKbLXzYUo2HfG2e3mbvtJMO+r/k49si4YjLse2nJ
2trqIdlo2PcAyw0l7ZZk2HftOd27nsSRYd/Hh5aO2vCUDPu+JmxWTppuDhr2
/WLwZYurIrJvPJP6/Ye/wIEC7xV4v8CHBA4XOFLgWIG5wEkCpwp8VuAMgS8I
nCNwvsBXBS4SuETgcoHvCnxP4FqBHwr8WOAnArcJ3CHwS4FfC/yLwO8ElhL8
/pYRWE7gfgIPEFhB4EECDxFYSeD/0B8eK3XhLf4Z9gn0h6h30ddJFiZo6I8j
Gl1T77vboaE/5pqcN01V80BDf9it8vU1FvmhoT9EByJkje4FoaE/+tZ2zc3/
fl86tG5xFSX9+770Ph+j9t6Zo6E/Rs621dLIO4mG/jiZ2eMlNk1BQ390dfX9
QvoBDf1RWJfmqD+a7kfoj+FLtFNEQXQvQn+wpYV7FgTQfQj90Z2XMdvam+5B
6I/Fe9qfNrvR/Qf94bMpVCrFi+476I9lAYZJK3+756A/0qN8syoO0L0G/RGa
LhrWmkr3GPTHiIFb5h5vpvsL+mOz0lPR9Dd0X0F/hH9+vUZaie4h6I/JNmGF
3ZPo3oH+OOCvYHpoCd0z0B8BsutyA7bQvQL9ofN9W0BvBN0j0B9RZpsMwq7T
vQH98XF7+rqol3RfQH/EOVuNa5lI9wD0R6r6Jndra+p96I+68ZsMeyOp56E/
Itpl1jvVUq9Df6Rnmq9xG0y9DP1RtmlF6dxMct992RVt5WlJvQv90ffbQOoD
Gfrj5xb5WtOUKjT0R6jo81V+q6rR0B87VeLnX/tAhv7o4CoP9M7dQ0N/6Ho5
BTTZ1KChP/Yq9l0U99HQHxo9xtL118jQH4XOlmJF7wfovvvSNmOUWLcWDf0x
OMQHXkIy9MdMtYOtM3kdGvoj1+WE5quvf0RDf1THvzdTVqtHQ3/YGbpah9eR
oT/W86SrMpEP0dAf73ebBY22foSG/pjkb+9QOroBDf0RY6mwy6aZDP2hcy/6
6ZiURjT0R0HlwVF+ho/R0B9ZkbW+NjFk6I+ffl5pYiPVhIb+OOuR8CrdkQz9
kaDj+31aGRn6Y+enH5BmNPSHpkviHdMoMvSHj0t3zT+k/4mG/pi31uVyozMZ
+uPQr/5sYxUZ+uNujWXH9PlP0NAfPV8rv3M7RYb+sLEqH+Cm2IKG/vjoPXKG
2Q4y9McA646etS1k6A93r/tb8yyeoqE/vJTmr27LJ0N/zLZ3ii+e1IqG/ijp
lNGSjyBDf/DgHw32y7ShoT82lEecDXUnQ3803XnpNLiBDP0xbc7uAtulP6HF
v/3/EBn6o+FJdpvD5HZ0333pO9HpciQZ+kPx+GivJf2foaE/Ulea6f/gRYb+
MKr0bOrfSob+aH03rHiXVQca+uO50seMU8Vk6I+iCTYlmnOeo6E/Gt8FhfQ7
TYb+CGHdiuPVOtHQHwWm77sV9pH/3/vyf1lyf0ruT8n9Kbk/Jfcn+q92f0qe
H0meH0meH0meH0meH6Elz4/+aEm/S/pd0u+Sfpf0O/qv1u+S50d/tOT50R8t
eX4keX4keX4keX4keX6Eljw/+tOeH/0LtiQafA==
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{5, 331}], 
             LineBox[{6, 332}], 
             LineBox[{7, 333}], 
             LineBox[{8, 334}], 
             LineBox[{9, 335}], 
             LineBox[{10, 336}], 
             LineBox[{11, 337}], 
             LineBox[{12, 338}], 
             LineBox[{13, 339}], 
             LineBox[{14, 340}], 
             LineBox[{15, 341}], 
             LineBox[{16, 342}], 
             LineBox[{17, 343}], 
             LineBox[{18, 344}], 
             LineBox[{19, 345}], 
             LineBox[{20, 346}], 
             LineBox[{21, 347}], 
             LineBox[{22, 348}], 
             LineBox[{23, 349}], 
             LineBox[{24, 350}], 
             LineBox[{25, 351}], 
             LineBox[{26, 352}], 
             LineBox[{27, 353}], 
             LineBox[{28, 354}], 
             LineBox[{29, 355}], 
             LineBox[{30, 356}], 
             LineBox[{31, 357}], 
             LineBox[{32, 358}], 
             LineBox[{33, 359}], 
             LineBox[{34, 360}], 
             LineBox[{35, 361}], 
             LineBox[{36, 362}], 
             LineBox[{37, 363}], 
             LineBox[{38, 364}], 
             LineBox[{39, 365}], 
             LineBox[{40, 366}], 
             LineBox[{41, 367}], 
             LineBox[{42, 368}], 
             LineBox[{43, 369}], 
             LineBox[{44, 370}], 
             LineBox[{45, 371}], 
             LineBox[{46, 372}], 
             LineBox[{47, 373}], 
             LineBox[{48, 374}], 
             LineBox[{49, 375}], 
             LineBox[{50, 376}], 
             LineBox[{51, 377}], 
             LineBox[{52, 378}], 
             LineBox[{53, 379}], 
             LineBox[{54, 380}], 
             LineBox[{55, 381}], 
             LineBox[{56, 382}], 
             LineBox[{57, 383}], 
             LineBox[{58, 384}], 
             LineBox[{59, 385}], 
             LineBox[{60, 386}], 
             LineBox[{61, 387}], 
             LineBox[{62, 388}], 
             LineBox[{63, 389}], 
             LineBox[{64, 390}], 
             LineBox[{65, 391}], 
             LineBox[{66, 392}], 
             LineBox[{67, 393}], 
             LineBox[{68, 394}], 
             LineBox[{69, 395}], 
             LineBox[{70, 396}], 
             LineBox[{71, 397}], 
             LineBox[{72, 398}], 
             LineBox[{73, 399}], 
             LineBox[{74, 400}], 
             LineBox[{75, 401}], 
             LineBox[{76, 402}], 
             LineBox[{77, 403}], 
             LineBox[{78, 404}], 
             LineBox[{79, 405}], 
             LineBox[{80, 406}], 
             LineBox[{81, 407}], 
             LineBox[{82, 408}], 
             LineBox[{83, 409}], 
             LineBox[{84, 410}], 
             LineBox[{85, 411}], 
             LineBox[{86, 412}], 
             LineBox[{87, 413}], 
             LineBox[{88, 414}], 
             LineBox[{89, 415}], 
             LineBox[{90, 416}], 
             LineBox[{91, 417}], 
             LineBox[{92, 418}], 
             LineBox[{93, 419}], 
             LineBox[{94, 420}]}, {
             GrayLevel[0.85], 
             LineBox[{95, 325}], 
             LineBox[{96, 326}], 
             LineBox[{97, 327}], 
             LineBox[{98, 328}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0EVWgmEAQNHvZyduyQU4YAG6KhVE7AYDAxs7sVuxxcS6DO45b/xq4g21
9VEIoY5G0UQzCZK0kKKVNG2000EnXXTTQy999DPAIENkyDLMCKOMkWOcCSaZ
Is80M8wyxzwLLFJgiWVWWGWNdTbYZIttdtilyB77HHDIEceccMoZ51xwyRXX
3FDiljvueeCRJ555ocwrb7zzwSdfVPjmh1/+qsNjIUTE+Ae47E0c
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNw+c2AmAAANDPXiWZESpklL0JkT0jhBDHA/D+/9x7zs38/FV+G0IIdZsa
Q2i2xVbbbLfDTruMGLXbmD3G7bXPfgccdMiEw46YdNQxx02ZNuOEk06ZddoZ
Z50zZ955F1x0yWVXXHXNdTfcdMttd9y14J77Hlj00CNLHnviqWeee+GlV157
4613lr33wYqPPvls1RdffbPmux9+WvfLb/8B7aEU+w==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw4c6lQEAANBfb9Ir9QZIlHGVPUtGV5GZ7F1GtoZRIVshslKy4zGc833n
dlToTlJEEARhI28FQZTR3jXGe8Ya530fGG+CiSYZMtmHPjLFVNNMN8NMs8w2
x1zzzPexTyzwqYUWWWyJzwxb6nNfWGa5L62w0iqrrbHWV9b52nobbLTJZlts
tc12O+y0y27f+NYee+2z33cOOOiQw4446pjjvveDH/3khJNOOe1nv/jVGWed
85vzLrjoksuuuOqa3/3huhtu+tMtt/3ljrvuue+Bvz30j3898p/Hnnjqmede
eOl/r7z2BrjLWrA=
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, 
         GraphicsComplexBox[CompressedData["
1:eJzt2XtUzekawPHtMiGNLpQuxigVIqM05ZJ6qVGSJF10USkquhehlUSJhlFm
JNHwIl1UVO6ELmbTRSUVKimli5iUCMM4D89rzXjXWeucP878cdbavz9qfdba
u36rdvv5Pr3Kbv5WqwYKBIJ38OHj50+XOCWCv18SnEdwluIsw3kUJY7qRT1h
YmsNP1mOkoLmr6TTV29Hy1Ni9jxaRyPgZ7QiJYatmnaGuonoMZS4DA/1lxhA
0WMpqf1pvYlwzTH0OEqM4iJlPOpS0CqUmHwoPes14ARalZKyHnHjxSWZaHVK
pjyXfRC66BR6IiVhVTGDl97KRmtQoiTTv+xtZQ56CiVHE5ZMOX8mFz2VkklP
yuaohp1GT6NkoUHI6ImTzqC1KbFzWS6b9huzDiUH51SKS9ifRetSkqOt+Cbv
EfMMuD8JpVXvPc6hZ1FScj1rq3wHsz4lN46Ejz7ncR5tQEma3rG2jFZmQknC
oDnV51ZcQM+Dn0dbCa1rYjaG5y/Ui5nrehE9nxK9phdFQ5uZTSkZ8Uo9unXl
JbQZJXulR0fM72Q2p2SfQ7deXeBltAUl26pGzyv/g9mSkiVe9v2x2/LQVpSU
Nyr42shcQVtT4pkUnVZ4mNmWEnP/zVMVta+il1HybndzzuHfmB0oqfB+KlPj
eA3tBI/fPft45EtmZ0r064/pNZjko10pmbzIbO75BGY3SporHfXz2plXUrKp
Y+vbfTML0B6UbBiuOjF8F7MXJcMnVt8xaWJeQ0n8gq99BbqFaB9Kqocb3Cre
yexHibpictOkVuYASqYWD7h8QL8IHUSJh/emPZX7mNdSEuEh9e29HuYQSuaV
qdnUL7qO3kDJSKMg7cAM5lBKxJKOr5w57Dd0GCXh38zwNF7NHA73/9QzZ1Qx
cwQlr1telU6YLERvpWSH+Rsp65+Yo+B+hdrvZXqYoylpipY/tdHmBnoH3E9u
xLCGS8w/UuKvYbXCR/kmehf8/od0Tgrawbybki37Troq9TDHUSJt83p6nn0x
+mdKBjtc2up7nXkvvL68NXYWTi1B76MkKfmNu8NB5v2U/Hqp1/7QkFL0AUpm
ffXm/s11zEnw97k58tWTFuZDlATOKrZNWFqGppT0yT9OTChiPkpJe/DvIVd0
bqGTKTFYl2kVmsKcQkkMeSmpolCOTqNEJcVY5sou5hOUeEsvMW8UVKAz4edf
LIzUDGE+ScmR3lOP47uYsyk5sy4gW0+rEp1LSVBh1O1MH+YzlBBLv/r+NOZz
8PqOUo9Re8x8Ad4fHgUu0VS5jb5EyXzn2usDXZjzKPFx+nCyIon5KiUBG+Ya
r6ljzqfEy3nE5W75KnQhJR+GFkWo2TFfp8Qy1lchYB+zkJILykJv5xrmm5So
do8psZS9gy6hJLTJPfuRNXMZJT9m0dUx8cz/wHz4wnKc5Tkrch7DeSzncZxV
OMN8sG6VCgzWKL76yTAferxadpx9XY2G+XDexcBey+kBWuPz4++jp3DPn8p9
/WmctTnrcNblPIPzLM76nA04E87zOBtzns/ZlLMZZ3POFpwtOVtxtuZsy3kZ
ZwfOTpydObtyduO8krMHZy/Oazj7cPbjHMA5iPNaziGcYT789Ows7Rc24esL
5sNR9bdhe6X70TAfMhyqlozwGHTtk2E+JPYqpyleEUfDfMhea6C/ME4aDfNh
uXznD8/CZdEwHw5J7P7Zrl0eDfMhb+MJI79oJTTMh7o2YV+U2lg0zIe7stML
6yPHoWE+eJgXKHreUUbDfKj8Pc4twng8GuaD7PsjiRPuqqJhPuiu77vmtFMd
DfPBtmd+2x7DiWiYD1Z36/6wltVAw3wIgnfHH4sno2E++OoV6C06rImG+bD6
G5tFUuu+Q8N8yN2yNmf18Wlo+vn+tNAwH6KFI+cmbZ+OhvlwflPs2y5ZXXTK
5+83Gw3zwVZy/3bzNwQN8yG3t9R1l6kxGubDsj/DHLOtTdAwHyKkiuPcuxag
YT4EGPdnep8xR8N8KPhgm+s+3hIN80Fx9IiolQOWomE+bM1MtXVZboOG+bBU
raTRqtwODfPh5ILzakEF9miYD3csbj0WM1qOhvmQGhKdrrnOFQ3z4V71Rut3
D1egYT6c6BtZ7qfpjob5cPl55It091VomA/epg3unUaeaJgPCw2bn9Zqr0bD
fOgwr7N+MN4bDfOh/c8ngQ/X+KLDDhPB368IzlGcd3DexTmO817O+zkncaac
kzmncc7knM35DOcLnPM453O+zvkm5zLOlZyrOd/j3MC5iXMr5w7OTzk/59zH
+TXnd5wF3PvZQM6DOYtxHsr53/SHv5uphbrf99gn0B+LS5KjdQWOaOgPOcu0
1Nh8fzT0x8PpMkekfcLQ0B8WB8R+eCGIRkN/fFoHJGPR0B8znbd0LEjci4b+
mCrMn7X72wNo6I+gppogT/X/fj/VU5qsVWH2137qUu5j1xGZhYb+6N0UmG7m
yPZR6I/7Q+zlzN+xfRT6o+JVx9f9e9j+Cf1hVNxaXT6N7ZPQH5IS48Im3mb7
I/SH0tYWbb81bB+E/hh10qQ5dBTb76A/PMy6/Ifls30O+mNmdXdhrQ/b16A/
xL8rSJdUZfsX9Mc2g2XCaD+2X0F/OLVMv2+4mO1P0B89hwaVSmuz/Qj6w+VC
8Irk0Wz/gf4ICHuWqDaA7TvQH2vFe0/v6WKG/vCT/6qgpZ7tN9AfZ/PHjpx0
i+0v0B/teuY6pgVsX4H+SN9xZ8G5S2wfgf6QS1bYmXKa7R/QH5tCfUojTrN9
A/pDYbDtCM1ctk9AfzgFf/yPAdsfoD/EVp5avzmP7QvQH/Fff1xg2H4A/ZFS
E3fhRhXrf+iPFe90fr/lz3oe+iN91GzF7W+ZoT+U6gQ+JIr1OvRHy0NPpxlS
rL+hPyLuVR1LP8QM/XGwpUG9YTLrbeiPLL+XSX1XmaE/NjqEN2ksrkZDf2Qd
NdR50coM/VEzzEvFZ0MNGvojQzkw9rhkLRr6Q8tQT2dVKjP0x+5Tc06rkrto
6A/Vi++299UzQ38EFXWnOIbcQ0N/hH8cl3L30dAf85+OJFq5zNAfXbu6dy60
qUNDfxwb//ELMkN/CAKe3g9OrEdDfzwZrCOtq9+Ahv4QvL+6+cUjZuiPHIv4
boWYB2joj6y675WztBrR0B8XUzNmy9UzQ3+8Snjwy/ZtD9HQH271R8vEFJrQ
0B+PVxyp1fFnhv74JUA5tknIDP2xbuCBoUpjm9HQHye2tMFGyQz9ITEgP8ez
ghn6w3ZK+NJlkx6hoT8ab+r3Dolkhv54XVSxWbKRGfrDDb5994wWNPRH1jU1
wYe9zNAfpS/PJYr3MEN/KC4eHDjWohUN/VHTSWqXZjBDf8TcDh6+fNhjNPSH
vbxK6ilPZuiPy8/mBf8qZIb++CO7MU1WvQ0N/XEzwbKgeRsz9MeYIc6a69uY
oT/OWg1tlTFpR0N/ZKZPEb+cxgz9UbYpaNQ48Q409EfGfjPDZh9m6I+D1jq1
f5YzQ3/EH+pUE2p3oqE/7OatX5AUzwz9sf/YjW7ft8zQH6YpRqnty5+goT9c
HaonXCxihv6ovBMxt2pCF/p/vZ/+J4v21y8t2l+/tGh/Fe2vov31/2d/FZ1/
ic6/ROdfovMv0fkXWnT+JTr/Eu0Pf12i/eFLi/YH0f4g2h9E51+fL9H515cW
nX+Jzr9E51+i8y/R+RdadP71j51//Qs69C++
          "], {{{}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {}, {
             GrayLevel[0.85], 
             LineBox[{6, 340}], 
             LineBox[{7, 341}], 
             LineBox[{8, 342}], 
             LineBox[{9, 343}], 
             LineBox[{10, 344}], 
             LineBox[{11, 345}], 
             LineBox[{12, 346}], 
             LineBox[{13, 347}], 
             LineBox[{14, 348}], 
             LineBox[{15, 349}], 
             LineBox[{16, 350}], 
             LineBox[{17, 351}], 
             LineBox[{18, 352}], 
             LineBox[{19, 353}], 
             LineBox[{20, 354}], 
             LineBox[{21, 355}], 
             LineBox[{22, 356}], 
             LineBox[{23, 357}], 
             LineBox[{24, 358}], 
             LineBox[{25, 359}], 
             LineBox[{26, 360}], 
             LineBox[{27, 361}], 
             LineBox[{28, 362}], 
             LineBox[{29, 363}], 
             LineBox[{30, 364}], 
             LineBox[{31, 365}], 
             LineBox[{32, 366}], 
             LineBox[{33, 367}], 
             LineBox[{34, 368}], 
             LineBox[{35, 369}], 
             LineBox[{36, 370}], 
             LineBox[{37, 371}], 
             LineBox[{38, 372}], 
             LineBox[{39, 373}], 
             LineBox[{40, 374}], 
             LineBox[{41, 375}], 
             LineBox[{42, 376}], 
             LineBox[{43, 377}], 
             LineBox[{44, 378}], 
             LineBox[{45, 379}], 
             LineBox[{46, 380}], 
             LineBox[{47, 381}], 
             LineBox[{48, 382}], 
             LineBox[{49, 383}], 
             LineBox[{50, 384}], 
             LineBox[{51, 385}], 
             LineBox[{52, 386}], 
             LineBox[{53, 387}], 
             LineBox[{54, 388}], 
             LineBox[{55, 389}], 
             LineBox[{56, 390}], 
             LineBox[{57, 391}], 
             LineBox[{58, 392}], 
             LineBox[{59, 393}], 
             LineBox[{60, 394}], 
             LineBox[{61, 395}], 
             LineBox[{62, 396}], 
             LineBox[{63, 397}], 
             LineBox[{64, 398}], 
             LineBox[{65, 399}], 
             LineBox[{66, 400}], 
             LineBox[{67, 401}], 
             LineBox[{68, 402}], 
             LineBox[{69, 403}], 
             LineBox[{70, 404}], 
             LineBox[{71, 405}], 
             LineBox[{72, 406}], 
             LineBox[{73, 407}], 
             LineBox[{74, 408}], 
             LineBox[{75, 409}], 
             LineBox[{76, 410}], 
             LineBox[{77, 411}], 
             LineBox[{78, 412}], 
             LineBox[{79, 413}], 
             LineBox[{80, 414}], 
             LineBox[{81, 415}], 
             LineBox[{82, 416}], 
             LineBox[{83, 417}], 
             LineBox[{84, 418}], 
             LineBox[{85, 419}], 
             LineBox[{86, 420}], 
             LineBox[{87, 421}], 
             LineBox[{88, 422}], 
             LineBox[{89, 423}], 
             LineBox[{90, 424}], 
             LineBox[{91, 425}], 
             LineBox[{92, 426}], 
             LineBox[{93, 427}], 
             LineBox[{94, 428}], 
             LineBox[{95, 429}], 
             LineBox[{96, 430}], 
             LineBox[{97, 431}], 
             LineBox[{98, 432}]}, {
             GrayLevel[0.85], 
             LineBox[{99, 333}], 
             LineBox[{100, 334}], 
             LineBox[{101, 335}], 
             LineBox[{102, 336}], 
             LineBox[{103, 337}]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]], 
             PointBox[CompressedData["
1:eJwV0EVWAlAAQNEPBrbgDtySS2ABujYbCyXsbhEUu7tbr4N7zhu/1mRHW3sk
hJCkU3TRTQ+99NFPigEGGWKYEdKMMkaGLDnyjDPBJFNMM8Msc8yzwCJLLLPC
Kmuss8EmWxTYpkiJHXYps8c+BxxyxDEnnHLGORdccsU1N9xyxz0PPPLEMy+8
8sY7H3zyxTc//P4PjIYQIUoFlVRRTYwaaqmjngYaaaKZOAla+AOaKkXe
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]], 
             PointBox[CompressedData["
1:eJwNwwVSQlEAAMCnV8DAFuzCFhG7AwPE7m8XoHL/cXdmE1G5UKoJIUTGakOo
s94GG43bZLMtttpmux12mjBpl9322Guf/Q446JDDjphy1DHHnXDSKaedMe2s
GefMOu+Ciy657Iqrrrnuhptuue2Ou+6Zc98DDz0yb8Fji5546pnnXnjpldfe
eOud9z4Y+eiTz7746pvvfvjpl9+WLFvxx1//rPoPEEIcsQ==
              "]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]], 
             PointBox[CompressedData["
1:eJwNw9c6kAEAANA/b+KVeoQegCtJ9qaykpCEyM4sZERkhYhQSWVnZZbVhXO+
74TeCr8ZdiMIggwjQoLgtpHeMcq7RhtjrHHGm2CiSSabYqppppthpve87wOz
zDbHXPN8aL6PLPCxhRZZ7BNLfGqpzyyz3AqfW2mVL6y2xlrrrLfBRl/aZLMt
ttpmu698bYeddvnGbnvstc+39jvgOwcd8r3DjjjqmON+cMJJp/zotDN+ctY5
Pzvvgot+8avfXPK7y/7wp79ccdU1191w0y1/u+2Ou+657x8PPPTIY0889a//
PPPcCy+98r/XGL9lUA==
              "]]}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}, {{
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[0, 0, 1]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              RGBColor[1, 0, 0]]}, {
             Directive[
              PointSize[0.007333333333333334], 
              AbsoluteThickness[1.6], 
              GrayLevel[0]]}, {}, {}, {}, {}, {}, {}, {}}}], {{}, {}}}, {
        DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False},
          AxesLabel -> {None, None}, AxesOrigin -> {2015., 0}, 
         DisplayFunction :> Identity, Frame -> {{True, False}, {True, False}},
          FrameLabel -> {{
            FormBox[
            "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", 
             TraditionalForm], None}, {
            FormBox["\"Year in which ceiling applies\"", TraditionalForm], 
            None}}, FrameTicks -> {{Automatic, Automatic}, {
           Automatic, Automatic}}, GridLines -> {None, None}, GridLinesStyle -> 
         Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 600, LabelStyle -> 
         Directive[FontFamily -> "Helvetica", FontSize -> 18, 
           GrayLevel[0]], 
         Method -> {
          "OptimizePlotMarkers" -> True, 
           "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& ), "CopiedValueFunction" -> ({
               (Identity[#]& )[
                Part[#, 1]], 
               (Identity[#]& )[
                Part[#, 2]]}& )}}, PlotRange -> {{2015, 2152}, {-0.5, 1.5}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
         Ticks -> {Automatic, Automatic}}]}}, AutoDelete -> False, 
     GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],FormBox[
    TemplateBox[{
      StyleBox[
      "\"Peak\"", FontFamily -> "Helvetica", FontSize -> 20, StripOnInput -> 
       False], 
      StyleBox[
      "\"10 years before ceiling applies\"", FontFamily -> "Helvetica", 
       FontSize -> 20, StripOnInput -> False], 
      StyleBox[
      "\"10 years after ceiling applies\"", FontFamily -> "Helvetica", 
       FontSize -> 20, StripOnInput -> False]}, "PointLegend", 
     DisplayFunction -> (FormBox[
       StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 20}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.30000000000000004`] -> 
                    Baseline)], #, 
                  GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 20}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.30000000000000004`] -> 
                    Baseline)], #2, 
                  GraphicsBox[{{}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], 
                    PointBox[
                    NCache[{
                    Scaled[{
                    Rational[1, 2], 
                    Rational[1, 2]}]}, {
                    Scaled[{0.5, 0.5}]}]]}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 20}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.30000000000000004`] -> 
                    Baseline)], #3}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
           "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[{"{", 
                RowBox[{
                  InterpretationBox[
                   ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                   GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                  RowBox[{"Thickness", "[", "Large", "]"}]}], "}"}], ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                  FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                  False]], Appearance -> None, BaseStyle -> {}, 
                BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                Automatic, Method -> "Preemptive"], 
               RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
              ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                  "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                  FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                  FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                 StyleBox[
                  RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> False]}], 
            "}"}], ",", 
          RowBox[{"{", 
            RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
          RowBox[{"LegendMarkerSize", "\[Rule]", "20"}], ",", 
          RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
     True], 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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.8237010831693296`*^9, 3.8237010950913467`*^9}, 
   3.8237011332014008`*^9, 3.823701167325449*^9, 3.823701265335587*^9, 
   3.8237013232376704`*^9, {3.823701357483719*^9, 3.823701392328768*^9}, 
   3.823701462618869*^9, 3.823747971938035*^9, 3.8237480056120825`*^9, {
   3.823748104218221*^9, 3.823748122502247*^9}, 3.8237482529504857`*^9, 
   3.823748386839675*^9, 3.823879689234926*^9, 3.823879748495035*^9, 
   3.823879812188735*^9, 3.8240962980575333`*^9, 3.824744030632394*^9, 
   3.825271921708502*^9},
 CellLabel->
  "Out[1048]=",ExpressionUUID->"5b34e315-0f62-4dd0-88a2-20a3fb121753"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SIOV_Temperature_Fig.tiff\>\"", ",", "SIOVTemperature"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8238798291308765`*^9, 3.823879854440792*^9}},
 CellLabel->
  "In[1049]:=",ExpressionUUID->"93b3ae9d-afdd-4689-9b2c-4743c16c369a"],

Cell[BoxData["\<\"SIOV_Temperature_Fig.tiff\"\>"], "Output",
 CellChangeTimes->{3.8238798586505327`*^9, 3.8247440383784995`*^9, 
  3.8252719627785606`*^9},
 CellLabel->
  "Out[1049]=",ExpressionUUID->"87da399d-5750-4824-b114-2b1221e9db0a"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"osD16low", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "48"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.824744236535075*^9, 3.824744252259444*^9}},
 CellLabel->
  "In[938]:=",ExpressionUUID->"dd92edc0-47c9-44f7-adb8-5e50029d32ca"],

Cell[BoxData["\<\"W\"\>"], "Output",
 CellChangeTimes->{{3.8247442485495167`*^9, 3.8247442526644487`*^9}},
 CellLabel->
  "Out[938]=",ExpressionUUID->"7f4ae93a-19e2-4e07-a0a9-8c936e79b2e2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SIW", "=", 
  RowBox[{"Legended", "[", 
   RowBox[{
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"osD16medium", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "48"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osD16low", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "48"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osD16high", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "48"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osFGmedium", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "48"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osFGlow", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "48"}], "}"}]}], "]"}], "]"}], ",", 
        RowBox[{"osFGhigh", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"{", 
            RowBox[{"1", ",", "48"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"PlotStyle", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Thick"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Thick", ",", "Dashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Blue", ",", "Thick", ",", "DotDashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Orange", ",", "Thick"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Orange", ",", "Thick", ",", "Dashed"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"Orange", ",", "Thick", ",", "DotDashed"}], "}"}]}], 
        "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"2015", ",", "2150"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"494000", ",", "500000"}], "}"}]}], "}"}]}], ",", " ", 
      RowBox[{"Axes", "\[Rule]", "False"}], ",", " ", 
      RowBox[{"Frame", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
      ",", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
        "\"\<Year in which ceiling applies\>\"", ",", 
         "\"\<Trillion USD (in 2010 prices)\>\"", ",", "None", ",", "None"}], 
        "}"}]}], ",", 
      RowBox[{"LabelStyle", "\[Rule]", 
       RowBox[{"Directive", "[", 
        RowBox[{
         RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
         RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black"}], "]"}]}], ",", 
      RowBox[{"Epilog", "\[Rule]", 
       RowBox[{"Text", "[", 
        RowBox[{
         RowBox[{"Style", "[", 
          RowBox[{"\"\<Social Welfare (present value of utility)\>\"", ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
             RowBox[{"FontSize", "\[Rule]", "20"}]}], "}"}]}], "]"}], ",", 
         RowBox[{"Offset", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}], ",", 
           RowBox[{"Scaled", "[", 
            RowBox[{"{", 
             RowBox[{"0.30", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
      RowBox[{"ImageSize", "\[Rule]", "800"}]}], "]"}], ",", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Blue", ",", 
            RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Dashed", ",", "Blue", ",", 
            RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"DotDashed", ",", "Blue", ",", 
            RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", "Orange", 
          ",", 
          RowBox[{"{", 
           RowBox[{"Dashed", ",", "Orange", ",", 
            RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"DotDashed", ",", "Orange", ",", 
            RowBox[{"Thickness", "[", "0.01", "]"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Style", "[", 
           RowBox[{"\"\<D16: med CDR cost)\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<D16: low CDR cost\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<D16: high CDR cost\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<FG: med CDR cost\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<FG: low CDR cost\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<FG: high CDR cost\>\"", ",", 
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Row\>\"", ",", "2"}], "}"}]}]}], "]"}], ",", "Below"}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.824744280293338*^9, 3.824744386372854*^9}, {
  3.8247444848799295`*^9, 3.8247445402255697`*^9}, {3.824744593720872*^9, 
  3.8247448651658587`*^9}, {3.824744921822609*^9, 3.8247452879162865`*^9}, {
  3.8247453264810867`*^9, 3.824745357945034*^9}, {3.8247458613921947`*^9, 
  3.8247458694546456`*^9}, {3.8247460286840525`*^9, 3.8247460584666867`*^9}, {
  3.824746105887536*^9, 3.8247461387465153`*^9}},
 CellLabel->
  "In[966]:=",ExpressionUUID->"9db1720c-cfae-4856-85d5-7c486108d80a"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{{}, {}, {
        Hue[0.67, 0.6, 0.6], 
        Directive[
         PointSize[
          NCache[
           Rational[1, 120], 0.008333333333333333]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJxd1Q1M1GUcwPGDlDSZouvSLjpC0EG+gE3BGC+/w0PhoOO8QwQE1PN4O14z
37qRh3oxFqiAhGin/CB0aGYOSvMFQ4aK0EKBLAabQmoM0ECc5UXaE3t+tZ7b
brfP9v//t+f3PP/7uuqztUn2EomkgH3/+Z345FbC+rrR4r4AuWLCeZXQI7X9
Z4vgAsFFgosFlwmuEGwVjIJrBNcKPiX4jOCvBX8r+JLgRsHNglsEfy/4puAu
wT8L7hV8V/A9wQOChwWPCH4i+A/B44Il+H/bC54k2EHwFMGvCHYUPB3hWYpD
yb92Quh449FYP3kWwrzByeYB8qsITgMRrWPk19j9ab1tkwO55yDMOPTY1YUs
Q8iy1XsB2RnBEjY6M40sR5hWPqg/RH4L4cXWrNab5LkINZnjz6YHcbsjHGyO
rdKR5yMcN4eZjpI9EKI/e+H7G/lthHp32BsC3AsRknxallaRFyO0WRcP2Sm4
vRE+9F+UnUJ+B8Hwa2buLfJShDCr9FZQMLcPwumQad515OUIwa72iR4ruP0Q
Cpcfca8m+yNcN+/SuCi5AxHU55u+qCQDQoPfdYlbCHcwwq72GW4nyEqE2U5x
d5as5F7JPPPqpAZyKHtehbdRtYpbhZA36jjYTY5AcB7qj04P5Vaz+Zuyi56T
NQgfT/087UAYtxbB+/zqZk8VdxTCj4pE8xVyNMKSdpUpLpw7BiHW2LD/CTkO
4aljX+3+CO54hFHzqpoF73Ensus1cwwt5A0INs99nUlqbj07j6cy2l+K5DYg
3Hker6wmJyN8GrJxtkLDnYowdsDodZdsRID0nbnm1dwZCHFHrH1yLXcW258C
vfYyOQfhhkTzTYKOezOCSVdiGydvYedrpMfJGsW9DeHqidv9fmu4d7D9uPhR
cjfZxOZ3qdSyPZo7l827o2iZdC33TrYf82WGOnIeQgjaXo6M4d6NMH7Pw2mI
bGHzOxfwfn4sdz5CcaOL3DWO+oDwwdMfplwkf4JwIX2qZ9Q66gWCvHFu9jB5
H1tv6bu398RTPxBet5OqZQncpQhrFY5dX5HLEHyvqWOUidzl7P1SpnT/RK5A
yLxxMtS4nvswQvXwomN/kq0IbtjUV7iB+yg775sb/pJtpP4gJERueVhLrmbz
zdl6ZpmeejTxPvpfIR9H2LFJURK+ifqEEBhw9lgX+SRCosXTFG+gXiE8WOfi
8Av5NEJ7pY8qNYn6hTDY1hE4TK5DKJu1+35WMvWMzevLMN8R8lmEPV4RPjkp
1De2/jedex+RL7D/28LUBRmp1DuEfLtw+QD5MoLs9wfn9GnUP4QVzkOPe8hN
CNI133XojNRDhO2WTm0r+RrCXlPBtqB06iOC3bjOr57cirCw06tqXgb1EiH8
/sPacua/AZkIiO4=
         "]]}, {
        Hue[0.9060679774997897, 0.6, 0.6], 
        Directive[
         PointSize[
          NCache[
           Rational[1, 120], 0.008333333333333333]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large], 
         Dashing[{Small, Small}]], 
        LineBox[CompressedData["
1:eJxd1Q1M1GUYAPADXLlQJJKvZhR+jfGRRXRjkOcjQw7B+BK54+MAiQ85OD4O
pu4kp54hEqEoM0A4HoXYBVqAp0NEIgUkQqhmKxlTVCg0SjasEPTqzb1Prfe/
/fffb//9/+/zPnue93FNyY1Ks5RIJCXs/uf57Cqqh0sz+uOP5S4bn3lfPeSM
lv3ng4JLBJcJPiq4UnCV4FrBKLhRsFHwGcGtgk2COwR3Ce4R3Ct4QPCQ4G8E
3xD8o+AxweOCJwRPCZ4WPCP4keA5wU8ES/D/thS8SPBzghcLfkHwEsE2CG7n
Hdv+tS2CuvGT9gWyHcLHr3boLIK5lyPsl1U4LiE7IBSCnXQF2QmhK6FX7k1+
GaHI+pcTYeQVCPNBheH5ZBeElgeTh2rIryFYODzeNEheiXDT1bxfspl7NYK7
s8R9PXktwgbne6v2kd0QbOOWhX9FdkcYOnn1A6cQbk8EyxQ7g4b8OoKDU7t6
gPwGwofZP19yC+X2RpDJXOPLyT4IU139w3NkKYKLc0tdxhZuX4RNN+PVo2Q/
hLOXwycj3uV+B6H/bdnVQbKMre8o75OHcQNC0p70T6+RAxCsTf4+IeHcgQiZ
T73eHCEHIfzVZquJieAORjiytdB0mxzCvrf+7Qd1JPcWhJ6An5r/JIchWE03
WBVHcUcgHFNGddtv5Y5i8egWzjWRo9n/Wyou+0ZzxyA86cu++DVZieBxeFqf
tI07DmHtnQDzLDmBxbPazeZwDHciguOM93EXBXcyQsUy3U4TOQXhu7zB2hAl
dypClo3t9Dg5HcHXMBKxK5Z7B6vPPYbPl8ZxqxHy7znMNpCz2fs1Cgu/eO4c
lg/d2LURch7Ciz7p3mkJ3FqE3zPtvebJhQinOi8ay1XcO1n+K90rViZy70ao
C4obPU/WIZROeOQHJ3EXIdyVaUNHyXsREkMHFFnJdP6zei7c+NEC+QBC+fPx
Y6XbaR6w/lKtW++cwl2McPrk01NN5BKEyOVTVm+9x12KUB3aHNNNLkMwKUsr
g1O5yxHW+EvbvyUfRej2UjbHpnEfQxi+26cdJ1ciGKqTF6enc59g+yu4sf0B
uYr1u2HD+5oM7hqEtkN/RD4k1yJszpTezt3BbWD9KLd85SEZEeRWu601mdyn
EerP6hvukxsRVPbGyVQ1dxNC2oTn0C2yEeH7RZEKRRZ3M6vn69v0w+QzLF6/
gvDAbO7PEH59pO/sILey8+eLoCseGu52hOiy2Yw6sonlI1thXJrDfQHB38ez
uIjcgXC9INB8n9yJENvb+lJMLs07hM4Dmt4ecjdCza5aO/c8mn8I65qqzRXk
KwhajbFkjtzL1p+vPKfK5+5n+bij2vsleQCh6pZ5epWWexBBJ20xHyQPISiP
LFyYYP4bKEmPZw==
         "]]}, {
        Hue[0.1421359549995791, 0.6, 0.6], 
        Directive[
         PointSize[
          NCache[
           Rational[1, 120], 0.008333333333333333]], 
         AbsoluteThickness[1.6], 
         RGBColor[0, 0, 1], 
         Thickness[Large], 
         Dashing[{0, Small, Small, Small}]], 
        LineBox[CompressedData["
1:eJxd1QtMllUYB/CPm5IT5pSQ/BhxUxqZFUOuIg8oQorc/eCTi4AgiCWgoETm
gDEQQiJuM3HyH2CFMYZMGBgGS24ZmZaSCwZYaF5CGWMTCbU3dp61ztnenf12
tnN23uc5+1vFp4Yk6qpUqhPK9++8OI7VkvGIaV+ui4XXonNqSa9C/Z/zJZ+Q
XCK5THKl5FOSz0iG5AbJX0luktwi+aLkDsldknsk90oelDwk+brkm5JvSx6V
PCF5UvJ9yX9JnpY8K3lO8oJkFf5vXcn6kpdINpS8TPJyycaSV4AO1usM5bFX
gvJ3DHQVsk1A757qti5nm4JuPJzsqmObgbaoc6Y62WtAfxRZjv3KNgeFNa2p
XGBbgPJcsxfsXIUtQZq3Hsxp2dag4kiDuHK2LUjXyMngBnsdaKjV7sKrbsJv
gNz0bN6OZduDsksHfVvY60FNGUcvG7gLbwBNj6wIjWW/AzJyyrzWzXZQ9tMv
nbXZJOwISvO2Ki9hO4GeJS1Jf8Z2Ad3yaNWmeAi7gdxPXjQZZ28CWQ8MHw7f
LLwZdP3J376/sAn0SvrdqBBPYW9Q1syD3JvsrSCVk2W5loS3KfUajY+5w/YD
PX860XbAS3g7KMjlm8w5tr9SrxazzEJv4QBQtbdlodkW4SBQ+5xJ2dfsEOW+
hrtSaKtwGOipjt/UMFsDWrb/pE6qj3AEaHXCD3mG24R3g7ytdAPq2VGgqb0G
gZ6+wjGgxu6YuFF2LMikyuhAtp9wPOjPSR/Na+8JJ4Cci7xUnex9INvYDK12
u3Cysv5iq888OwWEkLXna3YIvw96c9XxDz38hQ+C5jucKsfZacp+t44+zt0p
fAikM/9xqm2AcAaort1Ib4B9ROl3VdqZ/YHCWcr/anG2Wh4knA3as/RaUTP7
mNKP6prLQcHCx0GOZw1bZ9g5oKU/5WsqQ4TzQH19wZ9vDOU8AO0c6T40zC4A
PfZ0+PFIGOcDaGNsWYPpLuFi0Moxi8k2dgnoZVVVQZhGuBS0tiL0oxl2Gahz
/kLnp+HC5Yv96bw+gvMEFD0xc3+AXQ1a+FI9GK/lfFHq1T/bu8A+DYr8OXis
ajfnDSjCvVhvQ6TwWVCyZ4hjHxugQZuOuMgo4TqQp/tE8TS7ARST+EF9frTw
FyD9l5GNq2M4n0CPnFdVNLLPK+/puX+02x7OK+X+lfY6V9nNoJpmu+yIWM4v
UH/vvSt32a0g+xdPbqfHcZ6Bxnsm2xfY7aA2hzvhBfGcb8p5vY8uGe8VvqSs
/67+rYrdBUo3z2pTJwh/C3q9QOMLdg/oXvjhMptE4e9ASQlln5xj94I8Tj90
XbdPuB/UYD5UfY49CPKqHay3SRK+CvK1+j4K7CGQX+BnV9TJFl7/AEKNTuk=

         "]]}, {
        Hue[0.37820393249936934`, 0.6, 0.6], 
        Directive[
         PointSize[
          NCache[
           Rational[1, 120], 0.008333333333333333]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0], 
         Thickness[Large]], 
        LineBox[CompressedData["
1:eJxd1X9MVWUYB/ArMsVEhkRiZcav+SsRR3LFIniwWzKnqEBMwYwhIIICIiAR
XoH4pREDBsEuIN/44a5oSESBwghREJDotlhoYCBY0YC8cyrSEDvBeeZ6z3Z2
9tn7z3ne9/s+j1VAhGeQgUKhyJDe/76zT0Ip+ZysflwQuNJt1omltKWu47lT
BGcIzhScLThPcKHgYsEQXCFYK/ii4BrBdYIbBDcJbhF8XXCH4G7BOsG9gm8J
HhA8JPie4FHB44L1gh8KfiJ4WrAC/7eBYEPBCwQbCX4B9Mzq6XMbgy5Pp0cX
sk1APiZ2Dhq2KWjkRmFjCdsMdL7CI7GcbQ4aG1b+eoG9DJTwoMa0nr0clBVz
zK+N/Qoov3fR6C/sFSB9amfvGHslyOJ2z2bDINmWoGuBVZaWbGtQUJV/nivb
FrTPoj4ngL0KZFvwzPQ0ew2ocMdL3bXsdaDIngzPQfZ60FVthYdJsOwNILfk
4XRX9kZQqfP63ii2A+jnphFzLXsTKK64zGaQrZTqWeauszgk2wn0qL9vnif7
LdD08uMFn7OdQTkTCae62C6gRWdeLzcKkU0gv60uo9vYW0Fvz9upymCrQL6P
Lms62e+Dgifv3V18WLY7aEFS/vxd7O2giSXN+lz2DpD3SGVRH9sDpDocoV8R
Kns3aHVr2p8BbE/QdmODsPNsb5Br+0CMnu0DOto282BzmOy90v9kHLxziu0L
+nHSy6aDvR8UkjPRZHpE9gHQG48LSvax/UFLb1xpKGMHgPZ2ORiOswOlPNd+
EuV4VHYwyKZ/akbNDgH9rrMu6mCHgnL3z7xrFi77CMg0Xjnmxw4HVQw2Z1Wy
I0FDdtmW99lRoBN2VqVOEbKjQX3lkU+T2LGgn6z7t9xkx4FiDDTu5pGy40Hj
9o2rP2QnSPVoHX+oZKtBN798T/k3OxHU8/IeX+Ux2cmg6lsfKdXsFCnf4WbX
2thpoA3SBTeO4vkAOunq+JsX+8xsvg5q2Jkg+zu2aUPsLNBrTodUq47z/JDy
f+GrwjB2LiizPySxhp03118esr8ALf723JRTNM8XkCIiKSWBrQEZvVOU/z27
GNTlfXWNQYzss6CW8bPOKjbm9ieVXSbVo/vmdju7AuQfu+vAwljZ50B56am+
29hakNmnLV1p7CrQQIjiUhv7Iuiv+kvzDU/IrgZVJe/pdGPXgP5Rh06r2bWg
Xs0fJY3sOtCT1sCqSfZ3s/tr82YczzepX76oMwxnXwEtlA5Uy26aWx9mN4Nw
usbq1Y95/kn5K15a6cVulfrPzoDsz9jXQVJ5d1vZ7aCvd4dpptgdUj433W+w
j5fdBVo7scQliN0N+mDjurUayf8C3cqebQ==
         "]]}, {
        Hue[0.6142719099991583, 0.6, 0.6], 
        Directive[
         PointSize[
          NCache[
           Rational[1, 120], 0.008333333333333333]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0], 
         Thickness[Large], 
         Dashing[{Small, Small}]], 
        LineBox[CompressedData["
1:eJxd1X1M1VUYB3DGvIRI7CaQiopXRZYBSQFBivAQxUSNJRChIOEVCC6IQBck
xFBKBKK6YwQML5dvaoYCokGMlaA14sXhQLLWDEocNuJtQSwuyku/3O+ZdX7b
2W+fnT/Oy/c5e9arDwfHmpqYmORL49//oy+7ikJK1084xdv7PfLxKlrsVj32
B4LzBRcJ1gkuEVwuWC8Ygs8JrhZcK/hyFa1W/uc8jcJ8s+Crgq8LbhPcKbhb
cK/g24J/Ftwv+K7gIcHDgscE/yl4WrBR8JxgE/zfpoKXCDYTbA766nuPx7YA
9ceE7nVmW4J6nQx3XNhWoJtdH465spWgIs1Tkx7s5aCyToXndrYNaGtkzXwA
+2nQ82OuGSHslaAnPSy61Gw7kJehR5nOXgOy9Uw+UMi2B4WHtnWdYatAK49u
CWplbwCN+CZO9LMdQO7Gh58vsB1Bh1T7kzYmyH4GtGk0xX0X+1lQ1xvOE+ls
Z1BcUNnJs+znQEd2D9z/ge0Kyr1hnDHTyH4BtHbtm2e92e7S/vwOtmvZL4J8
vaos6tleoG91P7qMsreC/s6+abo5Uba3dN91yrB4tg8oxkdlcoFNoPvL9g2P
sF8GWSz/ZdwlSfYroJCGJx6ksgNAbQpMNrF3gBwCelrm2DtBOQl7fP0Pyd4N
ms9/60AhOwjUZLRR9rFfB50oNt1mlyw7GFRqHtqjZoeCXlOmX6thh4GCsn4z
TrPDQZ3L/kjxOSx7H+ibCm/bfHYkyNL+/MAtdhToIwe/5tUpsqNB2y3rDLFs
NeiToamcenYMSHPqWtgsOw50q7jD2j9Vdrx0fsfqK0VsDSjx1dMbf2IngfaH
qA6uS5OdLL2H26Nx8ewUUHbO+45X2GmgviG1fpatldZv3dnq947sDNCSxYiC
AnYmaEYxPdXLzpLyzoyYXaGVnQ3yThgsjmK/B7qnLW45xz4OWqgcTx1h54Ls
7ubWbknnfiDVe9fFeC07D2Tm4oBmdj7IL+7tPXPsQtDo4poM3wzuFyA3j6VW
ueyPQa4GP+s2tk6qt8C4k4ojsoul/Da9FB3ALgFVzix+lscuBT1oWBfYzi4H
JbvZBisyZVeAqkoCW/zZetDSX3V5J9gGKT+Vor6VDVDFMXu3h+wz0nscjLT2
fJf7EehOh0VQGvu8lJ96871adrVU3xqr3t/ZF0GnPD61VWVxvwLVrlrVGM6+
BDL9S3dBx74szQ9umOlgfynlu23h9AK7EVQz7ljuflR2k5SXPncsgd0MMs+Y
KzOwvwbZNETp+9hXQSsmK42KbNmtoC+Gd1zyYl8HNdbFtWjY34Gcdmkd9ew2
0EDJ1Eg3ux0U3xNrMc/uBHlWz+c5H5N9Q9r/+r3REexuKU91QHmB5H8A+hiJ
mQ==
         "]]}, {
        Hue[0.8503398874989481, 0.6, 0.6], 
        Directive[
         PointSize[
          NCache[
           Rational[1, 120], 0.008333333333333333]], 
         AbsoluteThickness[1.6], 
         RGBColor[1, 0.5, 0], 
         Thickness[Large], 
         Dashing[{0, Small, Small, Small}]], 
        LineBox[CompressedData["
1:eJxd1X9M1HUYB/CLTOHiqFHGz7F0ikwRjUsxf+BzZHEhR3gL+qETQ+5AOA48
8M4SkJrjDgOijgzxgMfGzMQAC9QQ4mKHoFFwcGOWsDnAvLRBKf4AEfrEvk+t
z3f77rvX9v3j+X6e9/d5FiVmKFUuIpHIxO5/nnNXTjXYxOdy+hIDZHPOr4av
0xr/8yHOJs5FnEs5l3Eu52zhjJxrOJ/kfJpzA+dGzuc5t3C2crZx7uLczbmX
s4PzFc6DnK9xHuXs5PwH5z85T3B+wHmaswj/bxfO8zjP5+zKWczZHeEXp6X+
X3sg9P8wNd5PfhrhZ79l1wfInghVbgrPQfKzCOt31A6NkJ9DqJv41TJG9kZI
xLSPp8m+CCtf9r8l2S3YH+H6OadjMTkAIdXYpt5Afh6hM6r72zfJixG2xTQe
M5CXIGSLb5sryIEIr+ulUis5CGFJzvhmJ3k5wsi25Z94JgkORjiuGpoNJ4cg
NBlbY9PJqxECZ80JleRQhOo4tW8P+UWE9lijykUleC2rL/SlpWHkdQghvqEx
6eT1CAELZztryBsRlm5yzx0ihyPYG7xVXmrBgDDtnZWsJEcgbM4aMJSQtyCM
zbcf/pH8KsKanc2FbsmC5QjnzaZMOTkK4UjP7WATORqhrW+yoYscg5CxovWe
W4rgWNbvo7ucW8lKhI5Lj/JKyG8g6G2Lau3keFbfSPu7C/cIfgth2NBf+Tb5
HYSfbgwqqsg7WD4uHMgcIe9k/Xjwwr2gVMG7EGr1iitaciKCXGN4qomchHBZ
eav4IVmNUJkfqIxIE5yCMBN0M7qQnMrO53O/nF6yhtVXKnF4aQRrmUVTigRy
JoJNFjF6gqxDeMwr6aMxcjbCQJF7xNp0wXqWj1GPh7nk/Qi5emtTB/l9hAOT
lWqJVnAO+/6Qr8Rx5DyE1i91FRZyPsJr6rseo+QPWf3j61QrMmgfIMgsRrOO
XICA1g1HvyObEMZPLdCIMgUfZv+TpO3JSHIRwqEPbmiLySUIrrVnyvrJpQjq
rfH7fPYK/hSha3udRwK5DOHYpbDtNeQjCD7xf8X/Ti5n8+a4Y2alTnAFwiqT
XKEjWxDuRq+SnSVXIWjsLo5JMrI8XRx8YlOW4C8Qpvqu9hwk1yBc290Q2k4+
gRB+s37ZvGzaT3Pv179CPoUgbp2xFZBPs7xIJpM7yXVz88O8YB/tLwS/lPDI
SPI3CNr7uoMF5EaWz17Y2EE+i7C6ueW9x/W03xBME1fDZORm1h/pnqw8cguC
5NEzwRfI3yOcifks4T7ZyvJxZ69EahDcjqC4UyLVkm0IlrRy+0nyRYTCXtff
hsldbB7LozP99wu+zPLlsyYjjtyNYEyNGi5m/hs3fJaX
         "]]}}}, {{}, {}}}, {
    DisplayFunction -> Identity, DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {False, False}, 
     AxesLabel -> {None, None}, AxesOrigin -> {2015., 494000.}, 
     DisplayFunction :> Identity, Epilog -> InsetBox[
       FormBox[
        StyleBox[
        "\"Social Welfare (present value of utility)\"", {
         FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> False], 
        TraditionalForm], 
       Offset[{0, 0}, 
        Scaled[{0.3, 0.95}]], 
       ImageScaled[{
         Rational[1, 2], 
         Rational[1, 2]}]], Frame -> {{True, False}, {True, False}}, 
     FrameLabel -> {{
        FormBox["\"Trillion USD (in 2010 prices)\"", TraditionalForm], None}, {
        FormBox["\"Year in which ceiling applies\"", TraditionalForm], None}},
      FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, GridLinesStyle -> Directive[
       GrayLevel[0.5, 0.4]], ImageSize -> 800, LabelStyle -> 
     Directive[FontFamily -> "Helvetica", FontSize -> 18, 
       GrayLevel[0]], 
     Method -> {
      "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           Identity[
            Part[#, 1]], 
           Identity[
            Part[#, 2]]}& )}}, PlotRange -> {{2015, 2150}, {494000, 500000}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{0, 0}, {0, 0}}, 
     Ticks -> {Automatic, Automatic}}], 
   FormBox[
    FormBox[
     TemplateBox[{
       StyleBox[
       "\"D16: med CDR cost)\"", FontFamily -> "Helvetica", FontSize -> 20, 
        StripOnInput -> False], 
       StyleBox[
       "\"D16: low CDR cost\"", FontFamily -> "Helvetica", FontSize -> 20, 
        StripOnInput -> False], 
       StyleBox[
       "\"D16: high CDR cost\"", FontFamily -> "Helvetica", FontSize -> 20, 
        StripOnInput -> False], 
       StyleBox[
       "\"FG: med CDR cost\"", FontFamily -> "Helvetica", FontSize -> 20, 
        StripOnInput -> False], 
       StyleBox[
       "\"FG: low CDR cost\"", FontFamily -> "Helvetica", FontSize -> 20, 
        StripOnInput -> False], 
       StyleBox[
       "\"FG: high CDR cost\"", FontFamily -> "Helvetica", FontSize -> 20, 
        StripOnInput -> False]}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.09]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    RGBColor[0, 0, 1], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[0.09]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    RGBColor[1, 0.5, 0], 
                    Thickness[0.09]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "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[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.01`", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.01`", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                   RowBox[{"Thickness", "[", "0.01`", "]"}]}], "}"}], ",", 
               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[{"{", 
                 RowBox[{
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   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[{"Thickness", "[", "0.01`", "]"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                   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[{"Thickness", "[", "0.01`", "]"}]}], "}"}]}], "}"}],
            ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6}], "}"}], 
           ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "2"}], "}"}]}]}], "]"}]& ), 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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.8247448663965883`*^9, 3.8247449549540453`*^9, {3.8247450008791776`*^9, 
   3.8247452375496073`*^9}, {3.8247452799868293`*^9, 3.824745289081522*^9}, 
   3.824745328002303*^9, {3.8247460969757566`*^9, 3.824746140214209*^9}},
 CellLabel->
  "Out[966]=",ExpressionUUID->"c9302b12-32ab-4058-a7b9-5f5f9542551d"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<SI6F2_SIW.tiff\>\"", ",", "SIW"}], "]"}]], "Input",
 CellChangeTimes->{{3.824746151294555*^9, 3.824746179148721*^9}},
 CellLabel->
  "In[967]:=",ExpressionUUID->"9077a896-b545-45cc-965e-fbd22135e81a"],

Cell[BoxData["\<\"SI6F2_SIW.tiff\"\>"], "Output",
 CellChangeTimes->{3.82474618114283*^9},
 CellLabel->
  "Out[967]=",ExpressionUUID->"d27ad817-704e-4dbf-be45-8c28541011d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"\[IndentingNewLine]", 
     RowBox[{"Legended", "[", 
      RowBox[{
       RowBox[{"Grid", "[", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"FCd2050", ",", "FCd2100", ",", "FCd2150"}], "}"}], "}"}], 
        "]"}], ",", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"SwatchLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Lighter", "[", 
              RowBox[{"Gray", ",", "0.9"}], "]"}], ",", 
             RowBox[{"Lighter", "[", 
              RowBox[{"Gray", ",", "0.8"}], "]"}], ",", 
             RowBox[{"Lighter", "[", 
              RowBox[{"Gray", ",", "0.7"}], "]"}], ",", 
             RowBox[{"Lighter", "[", 
              RowBox[{"Gray", ",", "0.5"}], "]"}], ",", 
             RowBox[{"Lighter", "[", 
              RowBox[{"Gray", ",", "0.3"}], "]"}], ",", 
             RowBox[{"Lighter", "[", 
              RowBox[{"Gray", ",", "0.1"}], "]"}], ",", "Black"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Style", "[", 
              RowBox[{"\"\<E<2050\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<2050\[LessSlantEqual]E<2100\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<2100\[LessSlantEqual]E<2200\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<CDR<2050\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<2050\[LessSlantEqual]CDR<2100\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<2100\[LessSlantEqual]CDR<2200\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}], ",", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<NE<2200\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "20"}]}], "]"}]}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
         "Below"}], "]"}]}], "]"}], "}"}], "}"}], ",", 
   RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.824744478673927*^9, 
  3.824744479074597*^9}},ExpressionUUID->"42cfcb4e-8fec-4c65-80e0-\
e315934ab5e2"],

Cell[BoxData[
 GraphicsBox[{{}, {
    {RGBColor[0, 0, 1], PointSize[0.0055000000000000005`], AbsoluteThickness[
     1.6], PointBox[CompressedData["
1:eJxd1Q1M1GUYAPADXLlQJJKvZhR+jfGRRXRjkOcjQw7B+BK54+MAiQ85OD4O
pu4kp54hEqEoM0A4HoXYBVqAp0NEIgUkQqhmKxlTVCg0SjasEPTqzb1Prfe/
/fffb//9/+/zPnue93FNyY1Ks5RIJCXs/uf57Cqqh0sz+uOP5S4bn3lfPeSM
lv3ng4JLBJcJPiq4UnCV4FrBKLhRsFHwGcGtgk2COwR3Ce4R3Ct4QPCQ4G8E
3xD8o+AxweOCJwRPCZ4WPCP4keA5wU8ES/D/thS8SPBzghcLfkHwEsE2CG7n
Hdv+tS2CuvGT9gWyHcLHr3boLIK5lyPsl1U4LiE7IBSCnXQF2QmhK6FX7k1+
GaHI+pcTYeQVCPNBheH5ZBeElgeTh2rIryFYODzeNEheiXDT1bxfspl7NYK7
s8R9PXktwgbne6v2kd0QbOOWhX9FdkcYOnn1A6cQbk8EyxQ7g4b8OoKDU7t6
gPwGwofZP19yC+X2RpDJXOPLyT4IU139w3NkKYKLc0tdxhZuX4RNN+PVo2Q/
hLOXwycj3uV+B6H/bdnVQbKMre8o75OHcQNC0p70T6+RAxCsTf4+IeHcgQiZ
T73eHCEHIfzVZquJieAORjiytdB0mxzCvrf+7Qd1JPcWhJ6An5r/JIchWE03
WBVHcUcgHFNGddtv5Y5i8egWzjWRo9n/Wyou+0ZzxyA86cu++DVZieBxeFqf
tI07DmHtnQDzLDmBxbPazeZwDHciguOM93EXBXcyQsUy3U4TOQXhu7zB2hAl
dypClo3t9Dg5HcHXMBKxK5Z7B6vPPYbPl8ZxqxHy7znMNpCz2fs1Cgu/eO4c
lg/d2LURch7Ciz7p3mkJ3FqE3zPtvebJhQinOi8ay1XcO1n+K90rViZy70ao
C4obPU/WIZROeOQHJ3EXIdyVaUNHyXsREkMHFFnJdP6zei7c+NEC+QBC+fPx
Y6XbaR6w/lKtW++cwl2McPrk01NN5BKEyOVTVm+9x12KUB3aHNNNLkMwKUsr
g1O5yxHW+EvbvyUfRej2UjbHpnEfQxi+26cdJ1ciGKqTF6enc59g+yu4sf0B
uYr1u2HD+5oM7hqEtkN/RD4k1yJszpTezt3BbWD9KLd85SEZEeRWu601mdyn
EerP6hvukxsRVPbGyVQ1dxNC2oTn0C2yEeH7RZEKRRZ3M6vn69v0w+QzLF6/
gvDAbO7PEH59pO/sILey8+eLoCseGu52hOiy2Yw6sonlI1thXJrDfQHB38ez
uIjcgXC9INB8n9yJENvb+lJMLs07hM4Dmt4ecjdCza5aO/c8mn8I65qqzRXk
KwhajbFkjtzL1p+vPKfK5+5n+bij2vsleQCh6pZ5epWWexBBJ20xHyQPISiP
LFyYYP4bKEmPZw==
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[0.0055000000000000005`], AbsoluteThickness[
     1.6], PointBox[CompressedData["
1:eJxd1Q1M1GUcwPGDlDSZouvSLjpC0EG+gE3BGC+/w0PhoOO8QwQE1PN4O14z
37qRh3oxFqiAhGin/CB0aGYOSvMFQ4aK0EKBLAabQmoM0ECc5UXaE3t+tZ7b
brfP9v//t+f3PP/7uuqztUn2EomkgH3/+Z345FbC+rrR4r4AuWLCeZXQI7X9
Z4vgAsFFgosFlwmuEGwVjIJrBNcKPiX4jOCvBX8r+JLgRsHNglsEfy/4puAu
wT8L7hV8V/A9wQOChwWPCH4i+A/B44Il+H/bC54k2EHwFMGvCHYUPB3hWYpD
yb92Quh449FYP3kWwrzByeYB8qsITgMRrWPk19j9ab1tkwO55yDMOPTY1YUs
Q8iy1XsB2RnBEjY6M40sR5hWPqg/RH4L4cXWrNab5LkINZnjz6YHcbsjHGyO
rdKR5yMcN4eZjpI9EKI/e+H7G/lthHp32BsC3AsRknxallaRFyO0WRcP2Sm4
vRE+9F+UnUJ+B8Hwa2buLfJShDCr9FZQMLcPwumQad515OUIwa72iR4ruP0Q
Cpcfca8m+yNcN+/SuCi5AxHU55u+qCQDQoPfdYlbCHcwwq72GW4nyEqE2U5x
d5as5F7JPPPqpAZyKHtehbdRtYpbhZA36jjYTY5AcB7qj04P5Vaz+Zuyi56T
NQgfT/087UAYtxbB+/zqZk8VdxTCj4pE8xVyNMKSdpUpLpw7BiHW2LD/CTkO
4aljX+3+CO54hFHzqpoF73Ensus1cwwt5A0INs99nUlqbj07j6cy2l+K5DYg
3Hker6wmJyN8GrJxtkLDnYowdsDodZdsRID0nbnm1dwZCHFHrH1yLXcW258C
vfYyOQfhhkTzTYKOezOCSVdiGydvYedrpMfJGsW9DeHqidv9fmu4d7D9uPhR
cjfZxOZ3qdSyPZo7l827o2iZdC33TrYf82WGOnIeQgjaXo6M4d6NMH7Pw2mI
bGHzOxfwfn4sdz5CcaOL3DWO+oDwwdMfplwkf4JwIX2qZ9Q66gWCvHFu9jB5
H1tv6bu398RTPxBet5OqZQncpQhrFY5dX5HLEHyvqWOUidzl7P1SpnT/RK5A
yLxxMtS4nvswQvXwomN/kq0IbtjUV7iB+yg775sb/pJtpP4gJERueVhLrmbz
zdl6ZpmeejTxPvpfIR9H2LFJURK+ifqEEBhw9lgX+SRCosXTFG+gXiE8WOfi
8Av5NEJ7pY8qNYn6hTDY1hE4TK5DKJu1+35WMvWMzevLMN8R8lmEPV4RPjkp
1De2/jedex+RL7D/28LUBRmp1DuEfLtw+QD5MoLs9wfn9GnUP4QVzkOPe8hN
CNI133XojNRDhO2WTm0r+RrCXlPBtqB06iOC3bjOr57cirCw06tqXgb1EiH8
/sPacua/AZkIiO4=
      "]]}, 
    {GrayLevel[0], PointSize[0.0055000000000000005`], AbsoluteThickness[1.6], 
     PointBox[CompressedData["
1:eJxd1QtMllUYB/CPm5IT5pSQ/BhxUxqZFUOuIg8oQorc/eCTi4AgiCWgoETm
gDEQQiJuM3HyH2CFMYZMGBgGS24ZmZaSCwZYaF5CGWMTCbU3dp61ztnenf12
tnN23uc5+1vFp4Yk6qpUqhPK9++8OI7VkvGIaV+ui4XXonNqSa9C/Z/zJZ+Q
XCK5THKl5FOSz0iG5AbJX0luktwi+aLkDsldknsk90oelDwk+brkm5JvSx6V
PCF5UvJ9yX9JnpY8K3lO8oJkFf5vXcn6kpdINpS8TPJyycaSV4AO1usM5bFX
gvJ3DHQVsk1A757qti5nm4JuPJzsqmObgbaoc6Y62WtAfxRZjv3KNgeFNa2p
XGBbgPJcsxfsXIUtQZq3Hsxp2dag4kiDuHK2LUjXyMngBnsdaKjV7sKrbsJv
gNz0bN6OZduDsksHfVvY60FNGUcvG7gLbwBNj6wIjWW/AzJyyrzWzXZQ9tMv
nbXZJOwISvO2Ki9hO4GeJS1Jf8Z2Ad3yaNWmeAi7gdxPXjQZZ28CWQ8MHw7f
LLwZdP3J376/sAn0SvrdqBBPYW9Q1syD3JvsrSCVk2W5loS3KfUajY+5w/YD
PX860XbAS3g7KMjlm8w5tr9SrxazzEJv4QBQtbdlodkW4SBQ+5xJ2dfsEOW+
hrtSaKtwGOipjt/UMFsDWrb/pE6qj3AEaHXCD3mG24R3g7ytdAPq2VGgqb0G
gZ6+wjGgxu6YuFF2LMikyuhAtp9wPOjPSR/Na+8JJ4Cci7xUnex9INvYDK12
u3Cysv5iq888OwWEkLXna3YIvw96c9XxDz38hQ+C5jucKsfZacp+t44+zt0p
fAikM/9xqm2AcAaort1Ib4B9ROl3VdqZ/YHCWcr/anG2Wh4knA3as/RaUTP7
mNKP6prLQcHCx0GOZw1bZ9g5oKU/5WsqQ4TzQH19wZ9vDOU8AO0c6T40zC4A
PfZ0+PFIGOcDaGNsWYPpLuFi0Moxi8k2dgnoZVVVQZhGuBS0tiL0oxl2Gahz
/kLnp+HC5Yv96bw+gvMEFD0xc3+AXQ1a+FI9GK/lfFHq1T/bu8A+DYr8OXis
ajfnDSjCvVhvQ6TwWVCyZ4hjHxugQZuOuMgo4TqQp/tE8TS7ARST+EF9frTw
FyD9l5GNq2M4n0CPnFdVNLLPK+/puX+02x7OK+X+lfY6V9nNoJpmu+yIWM4v
UH/vvSt32a0g+xdPbqfHcZ6Bxnsm2xfY7aA2hzvhBfGcb8p5vY8uGe8VvqSs
/67+rYrdBUo3z2pTJwh/C3q9QOMLdg/oXvjhMptE4e9ASQlln5xj94I8Tj90
XbdPuB/UYD5UfY49CPKqHay3SRK+CvK1+j4K7CGQX+BnV9TJFl7/AEKNTuk=

      "]]}, 
    {RGBColor[1, 0.5, 0], PointSize[0.0055000000000000005`], 
     AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxd1X1M1VUYB3DGvIRI7CaQiopXRZYBSQFBivAQxUSNJRChIOEVCC6IQBck
xFBKBKK6YwQML5dvaoYCokGMlaA14sXhQLLWDEocNuJtQSwuyku/3O+ZdX7b
2W+fnT/Oy/c5e9arDwfHmpqYmORL49//oy+7ikJK1084xdv7PfLxKlrsVj32
B4LzBRcJ1gkuEVwuWC8Ygs8JrhZcK/hyFa1W/uc8jcJ8s+Crgq8LbhPcKbhb
cK/g24J/Ftwv+K7gIcHDgscE/yl4WrBR8JxgE/zfpoKXCDYTbA766nuPx7YA
9ceE7nVmW4J6nQx3XNhWoJtdH465spWgIs1Tkx7s5aCyToXndrYNaGtkzXwA
+2nQ82OuGSHslaAnPSy61Gw7kJehR5nOXgOy9Uw+UMi2B4WHtnWdYatAK49u
CWplbwCN+CZO9LMdQO7Gh58vsB1Bh1T7kzYmyH4GtGk0xX0X+1lQ1xvOE+ls
Z1BcUNnJs+znQEd2D9z/ge0Kyr1hnDHTyH4BtHbtm2e92e7S/vwOtmvZL4J8
vaos6tleoG91P7qMsreC/s6+abo5Uba3dN91yrB4tg8oxkdlcoFNoPvL9g2P
sF8GWSz/ZdwlSfYroJCGJx6ksgNAbQpMNrF3gBwCelrm2DtBOQl7fP0Pyd4N
ms9/60AhOwjUZLRR9rFfB50oNt1mlyw7GFRqHtqjZoeCXlOmX6thh4GCsn4z
TrPDQZ3L/kjxOSx7H+ibCm/bfHYkyNL+/MAtdhToIwe/5tUpsqNB2y3rDLFs
NeiToamcenYMSHPqWtgsOw50q7jD2j9Vdrx0fsfqK0VsDSjx1dMbf2IngfaH
qA6uS5OdLL2H26Nx8ewUUHbO+45X2GmgviG1fpatldZv3dnq947sDNCSxYiC
AnYmaEYxPdXLzpLyzoyYXaGVnQ3yThgsjmK/B7qnLW45xz4OWqgcTx1h54Ls
7ubWbknnfiDVe9fFeC07D2Tm4oBmdj7IL+7tPXPsQtDo4poM3wzuFyA3j6VW
ueyPQa4GP+s2tk6qt8C4k4ojsoul/Da9FB3ALgFVzix+lscuBT1oWBfYzi4H
JbvZBisyZVeAqkoCW/zZetDSX3V5J9gGKT+Vor6VDVDFMXu3h+wz0nscjLT2
fJf7EehOh0VQGvu8lJ96871adrVU3xqr3t/ZF0GnPD61VWVxvwLVrlrVGM6+
BDL9S3dBx74szQ9umOlgfynlu23h9AK7EVQz7ljuflR2k5SXPncsgd0MMs+Y
KzOwvwbZNETp+9hXQSsmK42KbNmtoC+Gd1zyYl8HNdbFtWjY34Gcdmkd9ew2
0EDJ1Eg3ux0U3xNrMc/uBHlWz+c5H5N9Q9r/+r3REexuKU91QHmB5H8A+hiJ
mQ==
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{False, False},
  AxesLabel->{None, None},
  AxesOrigin->{2012.1875000000002`, 494891.0004568889},
  DisplayFunction->Identity,
  Epilog->InsetBox[
    FormBox[
     StyleBox[
     "\"c) \"", {FontFamily -> "Helvetica", FontSize -> 20}, StripOnInput -> 
      False], TraditionalForm], 
    Offset[{0, 0}, 
     Scaled[{0.1, 0.95}]], 
    ImageScaled[{
      Rational[1, 2], 
      Rational[1, 2]}]],
  Frame->{{True, False}, {True, False}},
  FrameLabel->{{
     FormBox[
     "\"\[CapitalDelta]\[Degree]C relative to ceiling\"", TraditionalForm], 
     None}, {
     FormBox["\"Year in which ceiling applies\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  LabelStyle->Directive[FontFamily -> "Helvetica", FontSize -> 18, 
    GrayLevel[0]],
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{2012.1875000000002`, 2150.}, {494891.0004568889, 
   499554.398706}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8247443497016945`*^9, 3.82474438847523*^9},
 CellLabel->
  "Out[941]=",ExpressionUUID->"e869296c-bff1-4114-96de-4a1100cae0c1"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{3.8247441898479834`*^9, 
  3.8247442290435395`*^9},ExpressionUUID->"59e8b463-cb93-48fe-acdf-\
64541959031e"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8233664217162867`*^9, 3.8233666297745795`*^9}, {
   3.8233666689016347`*^9, 3.8233667001856785`*^9}, 
   3.8233668137398386`*^9},ExpressionUUID->"c0eadac6-9d5a-4f28-93e0-\
adb60eeb65fa"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.817239243671129*^9, 
  3.8172392476812925`*^9}},ExpressionUUID->"77ab7fae-35f2-42e1-8463-\
5d95095df481"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"CC161summary", "=", 
    RowBox[{"Table", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "v3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"j", ",", "14"}], "}"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CC161summary", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "=", 
    RowBox[{"{", 
     RowBox[{
     "\"\<Counter\>\"", ",", "\"\<year\>\"", ",", "\"\<atmos_c\>\"", ",", 
      "\"\<atmos_c\>\"", ",", "\"\<atmos_c\>\"", ",", "\"\<atmos_b\>\"", ",", 
      "\"\<atmos_b\>\"", ",", "\"\<atmos_b\>\"", ",", "\"\<Tc_Fex1\>\"", ",", 
      "\"\<Tc_Fex2\>\"", ",", "\"\<Tc_Fex3\>\"", ",", "\"\<Tb_Fex1\>\"", ",", 
      "\"\<Tb_Fex2\>\"", ",", "\"\<Tb_Fex3\>\""}], "}"}]}], ";", " ", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"CC161summary", "[", 
        RowBox[{"[", 
         RowBox[{"n", ",", "1"}], "]"}], "]"}], "=", 
       RowBox[{"n", "-", "1"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "2", ",", "v3"}], "}"}]}], "]"}], 
    "\[IndentingNewLine]", 
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"CC161summary", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"n", "+", "2"}], ",", "2"}], "]"}], "]"}], "=", 
       RowBox[{"1765", "+", "n"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"n", ",", "0", ",", 
        RowBox[{"v3", "-", "2"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"CC161summary", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"3", ";;", "5"}]}], "]"}], "]"}], "=", 
     RowBox[{"atmos1CC16c", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"4", ";;", "6"}]}], "]"}], "]"}]}]}], ";", 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CC161summary", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", 
       RowBox[{"6", ";;", "8"}]}], "]"}], "]"}], "=", 
    RowBox[{"atmos1CC16b", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", 
       RowBox[{"4", ";;", "6"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CC161summary", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", 
       RowBox[{"9", ";;", "11"}]}], "]"}], "]"}], "=", 
    RowBox[{"temp1CC16c", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", 
       RowBox[{"4", ";;", "6"}]}], "]"}], "]"}]}], ";", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"CC161summary", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", 
       RowBox[{"12", ";;", "14"}]}], "]"}], "]"}], "=", 
    RowBox[{"temp1CC16b", "[", 
     RowBox[{"[", 
      RowBox[{
       RowBox[{"2", ";;"}], ",", 
       RowBox[{"4", ";;", "6"}]}], "]"}], "]"}]}], ";"}], "*)"}]], "Input",
 CellChangeTimes->{{3.8172305506424026`*^9, 
  3.8172305554443502`*^9}},ExpressionUUID->"303edcda-951d-46e7-b77f-\
62a87deed046"],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.8171506083565454`*^9, 3.8171506089141655`*^9}, {
  3.8171507764007835`*^9, 
  3.8171508153094416`*^9}},ExpressionUUID->"5d96b46f-02c8-4e05-9fa3-\
367f5418f820"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datacheck", "=", 
   RowBox[{"Import", "[", "\"\<test_overshoot_Fair.csv\>\"", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.818597866091382*^9, 3.8185978971154256`*^9}, 
   3.818604986430295*^9, {3.8226188442594647`*^9, 3.822618846849468*^9}},
 CellLabel->
  "In[125]:=",ExpressionUUID->"b0b07454-a922-4207-83bc-126c58d8ebb4"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "datacheck", "]"}]], "Input",
 CellChangeTimes->{{3.8185979017964325`*^9, 3.818597912097447*^9}},
 CellLabel->
  "In[234]:=",ExpressionUUID->"82f74eed-90e3-4226-865d-20e9c499f481"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"151", ",", "21"}], "}"}]], "Output",
 CellChangeTimes->{3.818597912907448*^9, 3.818604992981304*^9},
 CellLabel->
  "Out[234]=",ExpressionUUID->"8c2732e3-f652-496f-91f6-52bd9355f3d3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"datacheck", "[", 
   RowBox[{"[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "151"}], "}"}], "]"}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.818605157646688*^9, 3.818605199442747*^9}},
 CellLabel->
  "In[126]:=",ExpressionUUID->"416846d6-8389-40cb-83b7-29e4bcde8577"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"T\"\>", "\<\"E\"\>", "\<\"Ec\"\>", "\<\"Ecp\"\>", "\<\"R1\"\>", \
"\<\"R2\"\>", "\<\"R3\"\>", "\<\"R4\"\>", "\<\"Catm\"\>", "\<\"CCA\"\>", \
"\<\"Catmstock\"\>", "\<\"alpha\"\>", "\<\"F\"\>", "\<\"TMF\"\>", \
"\<\"TMS\"\>", "\<\"TDF\"\>", "\<\"TDS\"\>"},
     {"2015.`", "36.934088`", "10.074765`", "4.752248`", "58.679`", 
      "43.2369`", "17.5644`", "2.84384`", "400.325549`", "313.252`", 
      "848.690164`", "0.500694`", "1.951762`", "0.874469`", "0.108018`", 
      RowBox[{"-", "0.021943`"}], "0.253006`"},
     {"2164.`", "0.`", "0.`", "0.`", "84.800523`", "44.835981`", "0.554479`", 
      "0.`", "408.192393`", "551.566633`", "865.367874`", "0.906284`", 
      "2.055923`", "0.991547`", "0.397327`", 
      RowBox[{"-", "0.02488`"}], "0.930639`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.8186051691697044`*^9, 3.8186052001937475`*^9}, 
   3.818607971881682*^9, 3.8226188526204767`*^9},
 CellLabel->
  "Out[126]//MatrixForm=",ExpressionUUID->"169b3b4a-1233-4040-94d0-\
76738d35ab5c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"y", "=", "187"}], ",", "\[IndentingNewLine]", 
      RowBox[{"transFairG", "=", 
       RowBox[{"Table", "[", 
        RowBox[{"0", ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "y"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "20"}], "}"}]}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", "1", "]"}], "]"}], "=", 
       RowBox[{"{", 
        RowBox[{
        "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-R1\>\"", ",", 
         "\"\<4-R2\>\"", ",", "\"\<5-R3\>\"", ",", "\"\<6-R4\>\"", ",", 
         "\"\<7-C\>\"", ",", "\"\<8-CCA\>\"", ",", "\"\<9-F\>\"", ",", 
         "\"\<10-Fex\>\"", ",", "\"\<11-TF\>\"", ",", "\"\<12-TMF\>\"", ",", 
         "\"\<13-TMS\>\"", ",", "\"\<14-TDF\>\"", ",", "\"\<15-TDS\>\"", ",", 
         "\"\<16-TM\>\"", ",", "\"\<17-TD\>\"", ",", "\"\<18-\[Alpha]\>\"", 
         ",", "\"\<19-\[Alpha]check\>\"", ",", "\"\<20-atmosGt\>\""}], 
        "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"transFairG", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}], "=", 
         RowBox[{"2015", "-", "1", "+", "n"}]}], ",", 
        RowBox[{"{", 
         RowBox[{"n", ",", "1", ",", 
          RowBox[{"y", "-", "1"}]}], "}"}]}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"emcolumns", "=", 
       RowBox[{"{", "1", "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
         RowBox[{"transFairG", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
         RowBox[{
          RowBox[{"dtemp", "[", 
           RowBox[{"[", 
            RowBox[{
             RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "/", "2.12"}]}], 
        ","}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
       RowBox[{"datacheck", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "4"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}],
        "=", "cconlystartvalues2015"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{
        "initial", " ", "carbon", " ", "values", " ", "for", " ", "R1"}], ",",
         "R2", ",", "R3", ",", "R4"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "7"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"Total", "[", 
         RowBox[{"transFairG", "[", 
          RowBox[{"[", 
           RowBox[{"2", ",", 
            RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}], "+", 
        "278.0014091894"}]}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
       "initial", " ", "atmospheric", " ", "carbon", " ", "concentration"}], 
       "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", "ccastartvalue2015"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "9"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"F2x", "/", 
           RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
         RowBox[{"Log", "[", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"2", ",", "7"}], "]"}], "]"}], "/", "278"}], "]"}]}], "/.",
         "parFair"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"fexcolumns", "=", 
         RowBox[{"{", 
          RowBox[{"8", ",", "9", ",", "10", ",", "11", ",", "12", ",", "13"}],
           "}"}]}], ","}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "10"}], "]"}], "]"}], "=", "0"}], ",", 
      RowBox[{"(*", 
       RowBox[{
        RowBox[{"dataCBA", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "92"}], ",", 
           RowBox[{"fexcolumns", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], ","}], "*)"}], 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}], "=", 
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"{", 
           RowBox[{"12", ",", "13", ",", "14", ",", "15"}], "}"}]}], "]"}], 
        "]"}], "=", "tconlystartvalues2015"}], ",", " ", 
      RowBox[{"(*", 
       RowBox[{
       "initial", " ", "values", " ", "for", " ", "Mix", " ", "Layer", " ", 
        "Fast", " ", "and", " ", "Slow", " ", "Response", " ", "and", " ", 
        "Deep", " ", "Layer", " ", "Fast", " ", "and", " ", "Slow", " ", 
        "Response"}], "*)"}], "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "16"}], "]"}], "]"}], "=", 
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "17"}], "]"}], "]"}], "=", 
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "18"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"FindRoot", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"rirf", "[", 
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "8"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"2", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
           RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
          RowBox[{"{", 
           RowBox[{"\[Alpha]", ",", "0.2"}], "}"}]}], "]"}], "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "19"}], "]"}], "]"}], "=", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "18"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"Do", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "1"}], ",", 
               RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "+", 
            RowBox[{"dr", "[", 
             RowBox[{"aFair", ",", "\[Tau]Fair", ",", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}], ",", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", 
                 RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], "]"}]}]}], ",", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
           RowBox[{"278.0014091894", "+", 
            RowBox[{"Total", "[", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}]}]}], ",", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "7"}], "]"}], "]"}], "-", 
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "7"}], "]"}], "]"}]}], 
                ")"}]}], ")"}], "*", "2.1293970467500096"}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"F2x", "/", 
               RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
             RowBox[{"Log", "[", 
              RowBox[{
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", "7"}], "]"}], "]"}], "/", 
               "278.0014091894"}], "]"}]}], "/.", "parFair"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"expf", "*", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "12"}], "]"}], "]"}]}], "+", 
              RowBox[{"amixf", "*", "intf"}]}], "/.", 
             RowBox[{"f0", "\[Rule]", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
            RowBox[{"f1", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"exps", "*", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "13"}], "]"}], "]"}]}], "+", 
              RowBox[{"amixs", "*", "ints"}]}], "/.", 
             RowBox[{"f0", "\[Rule]", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
            RowBox[{"f1", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"expf", "*", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "14"}], "]"}], "]"}]}], "+", 
              RowBox[{"adeepf", "*", "intf"}]}], "/.", 
             RowBox[{"f0", "\[Rule]", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
            RowBox[{"f1", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{
              RowBox[{"exps", "*", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "15"}], "]"}], "]"}]}], "+", 
              RowBox[{"adeeps", "*", "ints"}]}], "/.", 
             RowBox[{"f0", "\[Rule]", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
            RowBox[{"f1", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", 
                RowBox[{"{", 
                 RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
             RowBox[{
              RowBox[{
               RowBox[{"transT", ".", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", 
                   RowBox[{"{", 
                    RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}]}], "+", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
                RowBox[{"Total", "[", 
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", 
                    RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}]}], "/.",
               "parTG"}]}], ","}], "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
              RowBox[{"Total", "[", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{"i", ",", 
                  RowBox[{"11", ";;", "12"}]}], "]"}], "]"}], "]"}]}], ","}], 
            "*)"}], "*)"}], "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{"FindRoot", "[", 
             RowBox[{
              RowBox[{
               RowBox[{"rirf", "[", 
                RowBox[{
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "8"}], "]"}], "]"}], ",", 
                 RowBox[{"transFairG", "[", 
                  RowBox[{"[", 
                   RowBox[{"i", ",", "16"}], "]"}], "]"}]}], "]"}], 
               "\[Equal]", 
               RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
              RowBox[{"{", 
               RowBox[{"\[Alpha]", ",", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}]}], 
               "}"}]}], "]"}], "[", 
            RowBox[{"[", 
             RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 
           RowBox[{
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                RowBox[{"rT", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"transFairG", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "16"}], "]"}], "]"}], "-", 
                   RowBox[{"transFairG", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "16"}], "]"}], "]"}]}], 
                  ")"}]}], "+", 
                RowBox[{"rc", "*", 
                 RowBox[{"(", 
                  RowBox[{
                   RowBox[{"transFairG", "[", 
                    RowBox[{"[", 
                    RowBox[{"i", ",", "8"}], "]"}], "]"}], "-", 
                   RowBox[{"transFairG", "[", 
                    RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}]}], 
                  ")"}]}]}], ")"}], "/", 
              RowBox[{"(", 
               RowBox[{"dalpha", "[", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "]"}], 
               ")"}]}]}], "/.", "parFair"}]}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "3", ",", "187"}], "}"}]}], "]"}], ",", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}], "=", 
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "7"}], "]"}], "]"}], "*", "2.12"}]}]}], 
     "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"FairCWOutput", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"k", "+", "2"}]}], "]"}], "]"}], "=", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}]}], ",", 
       RowBox[{
        RowBox[{"FairCWOutput", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", 
           RowBox[{"k", "+", "6"}]}], "]"}], "]"}], "=", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "16"}], "]"}], "]"}]}]}], "*)"}], "}"}], 
    ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "1"}], "}"}]}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.818597954303506*^9, 3.818598036012622*^9}, {
   3.8185980738176746`*^9, 3.8185980827986875`*^9}, {3.8186084368463964`*^9, 
   3.8186085148805065`*^9}, {3.8186091236015034`*^9, 3.818609124221504*^9}, {
   3.822618914874619*^9, 3.8226189164856215`*^9}, {3.8226189640756884`*^9, 
   3.822618980739212*^9}, 3.8226191724174824`*^9, {3.8226194756009645`*^9, 
   3.822619477023466*^9}},
 CellLabel->
  "In[139]:=",ExpressionUUID->"60a5a1f9-7998-4ed0-bf4f-adabdb9cf75a"],

Cell[BoxData[
 TemplateBox[{
  "FindRoot","lstol",
   "\"The line search decreased the step size to within tolerance specified \
by AccuracyGoal and PrecisionGoal but was unable to find a sufficient \
decrease in the merit function. You may need more than \
\\!\\(\\*RowBox[{\\\"MachinePrecision\\\"}]\\) digits of working precision to \
meet these tolerances.\"",2,139,2,26320890317309668270,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.822619215887044*^9, 3.822619478073468*^9},
 CellLabel->
  "During evaluation of \
In[139]:=",ExpressionUUID->"956fd5d5-3c94-4a3c-bb36-b41fcc343a49"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"transFairG", "[", 
   RowBox[{"[", 
    RowBox[{"{", 
     RowBox[{"1", ",", "2", ",", "87", ",", "186"}], "}"}], "]"}], "]"}], "//",
   "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8186083407782564`*^9, 3.818608353893279*^9}, {
  3.822619235953072*^9, 3.8226192720041776`*^9}},
 CellLabel->
  "In[132]:=",ExpressionUUID->"f297abc6-3c90-48f4-afbc-02e1d5faeaa2"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"1-Y\"\>", "\<\"2-E\"\>", "\<\"3-R1\"\>", "\<\"4-R2\"\>", "\<\"5-R3\
\"\>", "\<\"6-R4\"\>", "\<\"7-C\"\>", "\<\"8-CCA\"\>", "\<\"9-F\"\>", \
"\<\"10-Fex\"\>", "\<\"11-TF\"\>", "\<\"12-TMF\"\>", "\<\"13-TMS\"\>", \
"\<\"14-TDF\"\>", "\<\"15-TDS\"\>", "\<\"16-TM\"\>", "\<\"17-TD\"\>", \
"\<\"18-\[Alpha]\"\>", "\<\"19-\[Alpha]check\"\>", "\<\"20-atmosGt\"\>"},
     {"2015", "4.752248`", "58.67921274495937`", "43.23694001744334`", 
      "17.564411310666078`", "2.843841913560096`", "400.32581517602887`", 
      "313.2518991916266`", "1.951793041371635`", "0", "1.951793041371635`", 
      "0.8744688356918116`", "0.10801833594743858`", 
      RowBox[{"-", "0.021942597229288662`"}], "0.2530062051352929`", 
      "0.9824871716392501`", "0.23106360790600428`", "0.5006938615107441`", 
      "0.5006938615107441`", "848.6907281731812`"},
     {"2100", "0.`", "84.80689447205442`", "53.91430550525276`", 
      "4.171915434881384`", "7.80727469928699`*^-7", "420.89452538231603`", 
      "525.5755603441472`", "2.2199398950492877`", "0", "2.2199398950492877`",
       "1.0743442612051497`", "0.30065498883944475`", 
      RowBox[{"-", "0.026957968594240933`"}], "0.7042098650573179`", 
      "1.3749992500445944`", "0.6772518964630769`", "0.8643121399953667`", 
      "0.8625200968223113`", "892.29639381051`"},
     {"2199", "0.`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.818608355033281*^9, 3.8186085222215166`*^9, 3.8186091294925117`*^9, 
   3.8226192227880535`*^9, {3.822619253751152*^9, 3.822619272884179*^9}},
 CellLabel->
  "Out[132]//MatrixForm=",ExpressionUUID->"521e0858-e3eb-463c-bbfe-\
1263cdfe78a1"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"temp", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "150"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"temp", "[", 
    RowBox[{"[", 
     RowBox[{";;", ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"transFairG", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Do", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"temp", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", 
     RowBox[{"dalpha", "[", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"i", "+", "1"}], ",", "19"}], "]"}], "]"}], "]"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "150"}], "}"}]}], "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.8185988317992554`*^9, 3.8185989526164255`*^9}, {
  3.8186080066387854`*^9, 3.8186080239718103`*^9}, {3.821033373664445*^9, 
  3.821033452974557*^9}},
 CellLabel->
  "In[290]:=",ExpressionUUID->"09d98907-0e23-4a61-b4de-50873701f6e6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"temp", "[", 
  RowBox[{"[", 
   RowBox[{"1", ";;", "10"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.818598956312438*^9, 3.818598963572448*^9}},
 CellLabel->
  "In[293]:=",ExpressionUUID->"a988f98d-4d10-4fd7-b1af-1c6a6f028b11"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"2015", ",", "19.371337521530222`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2016", ",", "19.106346946413396`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2017", ",", "18.85348890631576`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2018", ",", "18.60886214952916`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2019", ",", "18.3703303031798`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2020", ",", "18.13665591867175`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2021", ",", "17.90708131037536`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2022", ",", "17.681115814106306`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2023", ",", "17.45842402675771`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2024", ",", "17.238764916808577`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.81859896494345*^9, 3.8186052396788034`*^9, {3.821033410543497*^9, 
   3.821033458325565*^9}},
 CellLabel->
  "Out[293]=",ExpressionUUID->"e64eea1b-e3c3-42b9-8a11-ce5856cd1950"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dalpha", "[", 
  RowBox[{"transFairG", "[", 
   RowBox[{"[", 
    RowBox[{"151", ",", "19"}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.818598523922419*^9, 3.818598551085457*^9}},
 CellLabel->
  "In[215]:=",ExpressionUUID->"8530f363-9f91-4418-b8c0-58a55226f35b"],

Cell[BoxData["2.7213394212012645`"], "Output",
 CellChangeTimes->{3.818598552396459*^9},
 CellLabel->
  "Out[215]=",ExpressionUUID->"931fc32d-82cf-417a-8eff-40ea86e9aaff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dalpha", "[", "0.35490", "]"}]], "Input",
 CellChangeTimes->{{3.8186070578873663`*^9, 3.8186070652073765`*^9}, {
   3.8186075217870193`*^9, 3.8186075226570206`*^9}, 3.8210356301366234`*^9, 
   3.8210357639268117`*^9},
 CellLabel->
  "In[299]:=",ExpressionUUID->"055d21b9-ac0f-4426-a0cb-fb38edd0eff3"],

Cell[BoxData["25.68550401099492`"], "Output",
 CellChangeTimes->{3.8186070660773773`*^9, 3.818607523377022*^9, 
  3.8210356311766243`*^9, 3.821035764746813*^9},
 CellLabel->
  "Out[299]=",ExpressionUUID->"1b980aef-56ee-48b6-a1ee-499e277ee545"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"conlystartvalues", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"1", ";;", "2"}], ",", 
     RowBox[{"12", ";;", "15"}]}], "]"}], "]"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.823517746415249*^9, 3.8235177497852535`*^9}, {
  3.823517949387594*^9, 3.8235180169766893`*^9}, {3.823518074899778*^9, 
  3.8235181007838144`*^9}},
 CellLabel->"In[98]:=",ExpressionUUID->"e0780ce9-c19f-49a3-b9b8-2470dca18601"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"12-TMF\"\>", "\<\"13-TMS\"\>", "\<\"14-TDF\"\>", "\<\"15-TDS\"\>"},
     {"0.8744688356918116`", "0.10801833594743858`", 
      RowBox[{"-", "0.021942597229288662`"}], "0.2530062051352929`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.8235177505352545`*^9, {3.823517956378604*^9, 3.82351801770669*^9}, {
   3.823518084230791*^9, 3.823518101103815*^9}},
 CellLabel->
  "Out[98]//MatrixForm=",ExpressionUUID->"b6fff5be-a7f2-4634-abd6-\
463c4ce7e305"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"edata", "=", 
   RowBox[{"Import", "[", "\"\<check.csv\>\"", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8235177647082744`*^9, 3.8235177865913053`*^9}, 
   3.823517882891445*^9},
 CellLabel->"In[87]:=",ExpressionUUID->"8caec232-13a2-4128-8a44-1841feab873e"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Dimensions", "[", "edata", "]"}]], "Input",
 CellChangeTimes->{{3.8235178865024505`*^9, 3.823517891883458*^9}},
 CellLabel->"In[88]:=",ExpressionUUID->"1da43900-c964-4fe0-b614-e218720ff5fe"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"287", ",", "4"}], "}"}]], "Output",
 CellChangeTimes->{3.8235178925534587`*^9},
 CellLabel->"Out[88]=",ExpressionUUID->"2b939d5e-0c2f-4372-8f96-30f3875e4d3d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"y", "=", "287"}], ",", "\[IndentingNewLine]", 
     RowBox[{"transFairG", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "y"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"j", ",", "20"}], "}"}]}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", "1", "]"}], "]"}], "=", 
      RowBox[{"{", 
       RowBox[{
       "\"\<1-Y\>\"", ",", "\"\<2-E\>\"", ",", "\"\<3-R1\>\"", ",", 
        "\"\<4-R2\>\"", ",", "\"\<5-R3\>\"", ",", "\"\<6-R4\>\"", ",", 
        "\"\<7-C\>\"", ",", "\"\<8-CCA\>\"", ",", "\"\<9-F\>\"", ",", 
        "\"\<10-Fex\>\"", ",", "\"\<11-TF\>\"", ",", "\"\<12-TMF\>\"", ",", 
        "\"\<13-TMS\>\"", ",", "\"\<14-TDF\>\"", ",", "\"\<15-TDS\>\"", ",", 
        "\"\<16-TM\>\"", ",", "\"\<17-TD\>\"", ",", "\"\<18-\[Alpha]\>\"", 
        ",", "\"\<19-\[Alpha]check\>\"", ",", "\"\<20-atmosGt\>\""}], "}"}]}],
      ",", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"n", "+", "1"}], ",", "1"}], "]"}], "]"}], "=", 
        RowBox[{"2015", "-", "1", "+", "n"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"n", ",", "1", ",", 
         RowBox[{"y", "-", "1"}]}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"emcolumns", "=", 
      RowBox[{"{", "2", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}], "=", 
        RowBox[{
         RowBox[{"dtemp", "[", 
          RowBox[{"[", 
           RowBox[{
            RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}], "/", "2.12"}]}], 
       ","}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;", "y"}], ",", "2"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"edata", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "287"}], ",", 
          RowBox[{"emcolumns", "[", 
           RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}], "/", 
       "2.1293970467500096"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"{", 
          RowBox[{"3", ",", "4", ",", "5", ",", "6"}], "}"}]}], "]"}], "]"}], 
      "=", 
      RowBox[{"conlystartvalues", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "initial", " ", "carbon", " ", "values", " ", "for", " ", "R1"}], ",", 
       "R2", ",", "R3", ",", "R4"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "7"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{"2", ",", 
           RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}], "+", 
       "278.0014091894"}]}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
      "initial", " ", "atmospheric", " ", "carbon", " ", "concentration"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "8"}], "]"}], "]"}], "=", 
      RowBox[{"conlystartvalues", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "8"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "9"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{"F2x", "/", 
          RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
        RowBox[{"Log", "[", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"2", ",", "7"}], "]"}], "]"}], "/", "278"}], "]"}]}], "/.",
        "parFair"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{"fexcolumns", "=", 
        RowBox[{"{", 
         RowBox[{"40", ",", "44", ",", "45"}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;"}], ",", "10"}], "]"}], "]"}], "=", 
        RowBox[{"dataRCP1", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"2", ";;", "255"}], ",", 
           RowBox[{"fexcolumns", "[", 
            RowBox[{"[", "k", "]"}], "]"}]}], "]"}], "]"}]}], ","}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "11"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"{", 
          RowBox[{"12", ",", "13", ",", "14", ",", "15"}], "}"}]}], "]"}], 
       "]"}], "=", 
      RowBox[{"conlystartvalues", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"12", ";;", "15"}]}], "]"}], "]"}]}], ",", " ", 
     RowBox[{"(*", 
      RowBox[{
      "initial", " ", "values", " ", "for", " ", "Mix", " ", "Layer", " ", 
       "Fast", " ", "and", " ", "Slow", " ", "Response", " ", "and", " ", 
       "Deep", " ", "Layer", " ", "Fast", " ", "and", " ", "Slow", " ", 
       "Response"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "16"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "17"}], "]"}], "]"}], "=", 
      RowBox[{"Total", "[", 
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", 
          RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "18"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"FindRoot", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"rirf", "[", 
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "8"}], "]"}], "]"}], ",", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"2", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
          RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
         RowBox[{"{", 
          RowBox[{"\[Alpha]", ",", "0.2"}], "}"}]}], "]"}], "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "19"}], "]"}], "]"}], "=", 
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", "18"}], "]"}], "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"Do", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", 
             RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "-", "1"}], ",", 
              RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "+", 
           RowBox[{"dr", "[", 
            RowBox[{"aFair", ",", "\[Tau]Fair", ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "2"}], "]"}], "]"}], ",", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", 
                RowBox[{"3", ";;", "6"}]}], "]"}], "]"}]}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "7"}], "]"}], "]"}], "=", 
          RowBox[{"278.0014091894", "+", 
           RowBox[{"Total", "[", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"3", ";;", "6"}]}], "]"}], "]"}], "]"}]}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "8"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{
              RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "2"}], "]"}], "]"}], "-", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "7"}], "]"}], "]"}], "-", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{
                   RowBox[{"i", "-", "1"}], ",", "7"}], "]"}], "]"}]}], 
               ")"}]}], ")"}], "*", "2.12"}]}]}], ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "9"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{"F2x", "/", 
              RowBox[{"Log", "[", "2", "]"}]}], ")"}], "*", 
            RowBox[{"Log", "[", 
             RowBox[{
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", "7"}], "]"}], "]"}], "/", 
              "278.0014091894"}], "]"}]}], "/.", "parFair"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "11"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "12"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"expf", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "12"}], "]"}], "]"}]}], "+", 
             RowBox[{"amixf", "*", "intf"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"exps", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "13"}], "]"}], "]"}]}], "+", 
             RowBox[{"amixs", "*", "ints"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "14"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"expf", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "14"}], "]"}], "]"}]}], "+", 
             RowBox[{"adeepf", "*", "intf"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "15"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{
             RowBox[{"exps", "*", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"i", "-", "1"}], ",", "15"}], "]"}], "]"}]}], "+", 
             RowBox[{"adeeps", "*", "ints"}]}], "/.", 
            RowBox[{"f0", "\[Rule]", 
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{
                RowBox[{"i", "-", "1"}], ",", "11"}], "]"}], "]"}]}]}], "/.", 
           RowBox[{"f1", "\[Rule]", 
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", "11"}], "]"}], "]"}]}]}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "16"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"12", ";;", "13"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "17"}], "]"}], "]"}], "=", 
          RowBox[{"Total", "[", 
           RowBox[{"transFairG", "[", 
            RowBox[{"[", 
             RowBox[{"i", ",", 
              RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{"i", ",", 
               RowBox[{"{", 
                RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}], "=", 
            RowBox[{
             RowBox[{
              RowBox[{"transT", ".", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"11", ",", "12"}], "}"}]}], "]"}], "]"}]}], "+", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"1", ",", "0"}], "}"}], "*", "xi1", "*", 
               RowBox[{"Total", "[", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", 
                   RowBox[{"9", ";;", "10"}]}], "]"}], "]"}], "]"}]}]}], "/.",
              "parTG"}]}], ","}], "\[IndentingNewLine]", 
          RowBox[{"(*", 
           RowBox[{
            RowBox[{
             RowBox[{"transFairG", "[", 
              RowBox[{"[", 
               RowBox[{"i", ",", "13"}], "]"}], "]"}], "=", 
             RowBox[{"Total", "[", 
              RowBox[{"transFairG", "[", 
               RowBox[{"[", 
                RowBox[{"i", ",", 
                 RowBox[{"11", ";;", "12"}]}], "]"}], "]"}], "]"}]}], ","}], 
           "*)"}], "*)"}], "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "18"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{"FindRoot", "[", 
            RowBox[{
             RowBox[{
              RowBox[{"rirf", "[", 
               RowBox[{
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "8"}], "]"}], "]"}], ",", 
                RowBox[{"transFairG", "[", 
                 RowBox[{"[", 
                  RowBox[{"i", ",", "16"}], "]"}], "]"}]}], "]"}], "\[Equal]", 
              RowBox[{"lirf", "[", "\[Alpha]", "]"}]}], ",", 
             RowBox[{"{", 
              RowBox[{"\[Alpha]", ",", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "18"}], "]"}], "]"}]}], 
              "}"}]}], "]"}], "[", 
           RowBox[{"[", 
            RowBox[{"1", ",", "2"}], "]"}], "]"}]}], ",", 
         RowBox[{
          RowBox[{"transFairG", "[", 
           RowBox[{"[", 
            RowBox[{"i", ",", "19"}], "]"}], "]"}], "=", 
          RowBox[{
           RowBox[{
            RowBox[{"transFairG", "[", 
             RowBox[{"[", 
              RowBox[{
               RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"rT", "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "16"}], "]"}], "]"}], "-", 
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "16"}], "]"}], "]"}]}], 
                 ")"}]}], "+", 
               RowBox[{"rc", "*", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{"i", ",", "8"}], "]"}], "]"}], "-", 
                  RowBox[{"transFairG", "[", 
                   RowBox[{"[", 
                    RowBox[{
                    RowBox[{"i", "-", "1"}], ",", "8"}], "]"}], "]"}]}], 
                 ")"}]}]}], ")"}], "/", 
             RowBox[{"(", 
              RowBox[{"dalpha", "[", 
               RowBox[{"transFairG", "[", 
                RowBox[{"[", 
                 RowBox[{
                  RowBox[{"i", "-", "1"}], ",", "19"}], "]"}], "]"}], "]"}], 
              ")"}]}]}], "/.", "parFair"}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "3", ",", "287"}], "}"}]}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"transFairG", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "20"}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"transFairG", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;"}], ",", "7"}], "]"}], "]"}], "*", "2.12"}]}]}], 
    "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "1", ",", "1"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.823517737784237*^9, 3.82351774029424*^9}, {
  3.823517898004466*^9, 3.82351794658659*^9}, {3.823517999252664*^9, 
  3.8235180487067413`*^9}, {3.823518110985829*^9, 3.8235181239688473`*^9}, {
  3.823518241277067*^9, 3.82351824314707*^9}, {3.823518300468152*^9, 
  3.823518300888152*^9}, {3.823518359305235*^9, 3.8235183607352366`*^9}, {
  3.823518393882283*^9, 3.823518394272284*^9}},
 CellLabel->
  "In[111]:=",ExpressionUUID->"3747a0ef-572e-4aa4-b850-9264a3eb9f8c"],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.823517716221206*^9, 
  3.823517716781207*^9}},ExpressionUUID->"f78fc20b-736f-4a30-9f3b-\
03967ce9339f"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"transFairG", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;", "85"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "16"}], "}"}]}], "]"}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.82351817230797*^9, 3.8235181998420086`*^9}, {
  3.8235182511480813`*^9, 3.823518272875113*^9}, {3.823518316930175*^9, 
  3.823518317130175*^9}, {3.823522991445077*^9, 3.8235229918550777`*^9}},
 CellLabel->
  "In[113]:=",ExpressionUUID->"6da3452c-00ae-4399-986c-91e514b2f22b"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJw10g9M1GUYB/DDg5Mdp96wwAhZR3QGQ7MghDLuGwPHlNCA6GJwyt9pqFzD
jThBbqhwLjmx4Sz1fB8Ui8r+aJbKLMwSodWy6C6vwkBY0+XgPPl3g44uf8+9
27t3n+3d992+z6spqcopnyeTyfJ8+//zwaoTaP52YMxiHNM9sFmgtGKkbPe/
7D0CS50DqQFwSbYIvHurr3npLvZ+Acou/VvfxW4V2Gedyd85wW4T0O3d/r58
5T3J7wh4/wqaTHudfUwgKrnni60dbBIwKK5V0E12h0BxW07X2BK35E6BFe7Y
wyW57NMC7tvzHZ4W9mcCqoaM+DO97HMCcY8kNZnl9yVfEPiotiegKJV9SeDs
H+6TKbXsywJFH18emn+O/Z3ArEcefGGU3SuQnaZvSokdl/yDwMmXB7Q7S9nX
BSqPhCRV2ti/CnzTbTox5WDfEFj7/Y2HF6onJP8pMJRjDjqWyR4UKOwyfm01
s0cEtimtW/vPs28LpGtf07w6yr7ry9P0ORUxk5JdAmn3Peaf9OxxAYer755t
P3taYIF9cNLQzZ4VKB++tG7OxZYRltfHHK/UTEmeR9A/u8rauoEdSLD8U/lJ
wS62gjAUMtP45YfsYMLgsgONrXa2khBm7w63e9kqwpEo+QmjdlryQl++R16z
PoutJkSEq0eKjOxQgvKm4mnL2+yHCO8FV3d0nWWHEe7MuJqHrrOXEDoDe5bf
ucuOIBj2VU99pfBIjiQMq7cZsqLYUQRzhWLOnMB+jGA6+MKpzDXsaELIlvjC
1nx2DCF3qsScUcbWElqCNjleqWI/Sdhcd/HUpzXsOMIboXC+WM+OJ1zpMD0x
28Be4evPFrdo2O+VBOeh9tp6//1nCIsDVBmHatmJhPO9Ne0Xd7CTCNOjKcb1
/veTCd7phGW2LeznCKP5uqr+UvZqwtiO/uLFBnYqYXeYLaRazwZBcfT307Jc
dhph3UHboqsvsdN9+VeiE69mstcQ3uoPb5SnszN9fZxRtpt17LUEx49O9ern
2VmE3xKS2xJXsbMJkWXFps3+/jcQtnvf/Nn+FDuH8EFLtcUUz87z/YfJjXvz
Ytn5hF8snZ8Xa9l6wp5Qh4oeZxcQPNNW2wINu5AwblFZOv3zNxAePTwRWBXJ
3kQoiLtWvjGCXUIIdHvn7H6XEeoalLeaoj26/wDp0cmB
       "]]}}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
      NCache[
       Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[1.6]}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[
      1.6]}, {}}, {
     {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
       NCache[
        Rational[1, 60], 0.016666666666666666`]], AbsoluteThickness[
      1.6]}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2013.2708333333335`, 0.9485283297901435},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->600,
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2013.2708333333335`, 2098.}, {0.9485283297901435, 
   1.5937463249231745`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8235182006820097`*^9, {3.823518252738083*^9, 3.823518273525114*^9}, {
   3.8235183065491605`*^9, 3.823518317780176*^9}, 3.823518364707242*^9, 
   3.82351839857229*^9, 3.823522992705079*^9},
 CellLabel->"Out[113]=",ImageCache->GraphicsData["CompressedBitmap", "\<\
eJzdXAe4HlUR3by/vDRaSCCUkNBBioYmCApIlyZFikgJgZBAAiEEkM6jtwCh
t1BUkCKdhJbQmxCNiALSQ4AgQQGRIojruTO37p7930uMn3zmC8u/u+fOzp05
M3fu3bvZesjY4fuOGjJ2xNAhgzYbM2T08BFDDxm06UFjcKnWLcvadsmybsP7
Z/idZ5n+5/78GP9lWR9zrA0bNkwv+tubzJW74ebckhjfHSDn0yYM0z9Zmzl0
75g0E9fdVT0zp3Vzt1m+O5JJIbi6wXXHJStyzqS0GVx95qQOf0mvdCqrB+1X
nhtRimifMC0vK5aNaqGZk2BalvWouFLhB1UFkszPPOthtPA628cliGYZcQCT
RHD+CcG9KSCjkroTnfBjwjTpV3driK5p1aeMw31nVpHKFBtZkNUw5/N7J9DO
lH90o34YaA49jb+cqLJGbV3ACGN6tcbgSiYR1Y4b5dvKut6dysD/2qK4qtBl
oU7l2LvuVxlzoI8CQaoPE7tTuYUr3O6DPN9FVORK+zOKiCqE6NevBSLmlGpV
JaVXCylqgCzmexnUBV1cjnH2IbocpGZ2UvSZRYsXGpWvcIsvmepf8FK95V3R
q2/V3cCEyMxMQs8qCeb6hAk6FnkDzp4O/lLpgr80OpJg7k+aNne4LLl83tga
9mfLzFmFkczZuyvSNC8pq6qS+gFzX7f+XZXW2Y+RVdJ8qMQ35iy/W9/kvnoI
8UfLAq0KKCYTfXt1KivzsVRd9XRBSqHqcb4pVz1dltW6TpFRo1mWJchaGKVm
r+b571azs3O33fw0N/HfJsbLNXuuJiTtuxfOl/gPzwf8n8nrSa224mxK+d5c
7sXsyttzrvTy+MJ5Ryf3i+f8Kbn9s3Yl+usTX1/fu+amxvIXX371yWdfxKjv
UBntDn30pY+Ov2GqR69L0Sr72nuf36Nj4j1PvtaJbEHXIbtjwuNDT777lRkf
OPw6FN9D8LM++HT46feNGf/Ahx9/7vBrU7xwo/bsy+9Bm1OveSprjZbMV7vl
oZeAxtGjv03RveUcUoF+4fX3PXotQbdZSFSRRlP/0rpAUW4dXRs1bjL+orNO
8ppBci3UydK+ao4byZ1H5EJTGBrmhtGd3DVayC3XfUZuA2K1//Ax+n/RzdOy
Lkor1OdFLeeTc8gr8Gd1kWqmu0mt2lLLklzLNIgGJZzk1bzkpNLqsl3nzy0n
4SzQ8p1ZHzvJgxNLuJpBZuz1VgxYQBAIBngKLNcolT/fyhkT9fzJ595Gx866
9umsNXpBOb9xyotAI049+psU3VfOEfdAT3lmukevWo02Vj78wodTK69C8f0i
26Gz02d+5PAre7yBLyQ43FaLRDGxEpW7sOA17pG2Iq5/g+L7yzn6V7AgRy+S
hxx39cTnPHpFil40smDM6BWq0YGnU1941+GXp/jFBA+KwCxpBl2O4hd3FgdV
U7YuS/EDUstHGXcZil8itXzE3aUTjw4U3CPTZqjFIw8tReXKGonNzZff/mzW
Gi3z+xpwQIPpHr0kRYuMGrQoeGhQNTp4CF1w+IEUv7TzEMwBI0YxsQTFL+M8
pB6NYmIAxS9b6dHFKX651KNRLC1G8cs7jwKPsI48umjiUeFzXbNQGnOLULkS
LXUfcxG+P8VLLFoGxOMNR0teqCE6C3xZmKIl29gYjUf+harRhgGeMg7fj+Il
91kGpIzpS/GrOrwyIGLMghQvmTswBkO8w/eheBkXDAOUMRHDFkg8OtjhIDSt
ROancmUktUxJc8V8FC9jeh0prpQr5qV4qSxszkgrmHkoXuql+p2PvlJiWG+K
l8qN5BiOlqrQ5ph4FODzZ521lBmmsxepEdpptcgrqaJkysYeQXbUvtmJvHWc
vBJbu3dZnqkPVS84tVQLtM+RXjLfCCyP5EnLqtqQX43kridykTZL0dDwctPK
UCu4+FJR5nfzJMKiyKknfXc1YbNwXpQn83hbu6c5u0bZtn5elbP5G7gN8hBZ
ae7mK4kb5lW5u4z9fs7zdhm5kZxrXeXi718eaYAb5yHm3Lj+FZUlyBAVeLy5
/E+K3cRhkxH9S4rdNE9yOYY7c/kLit1MsEiDCWP/QbGb53lcCds67nOK3SJn
+fsziv1BzpjzKcVuGbEmzDs+oditUsZY7N8Tb20tGJ0hYp5sWfIxlbdNxBJX
gXPkthEHHEv+RpE/lHOdSzq2fFSNDGzBkGEuf0ix2zlskh8/oNjtHVuSHPhX
it3BMSCp5P9CsTs6bMKA9yn2RxFbAgNmJZ7aiXr+PSpvZ8EWR+0/U+wuEUtC
nniXYneVcz9aZ9VI2XliZ7COATMpcreIK44B71DkT+Tcu1+Qb1cjA1es/9+i
2N2d/5Ur1v8zKHaPPMkWtop7M/HTns7vutZg/T6dytsr8nuo3t6g2CF5kiWs
T1+n2L0dVxL/v0axQ6n/X6XYffKQAdw6I0fuK+fpOPEKRQ6L/O+qrpcFaXcN
sIprmt3r04j2uJiXI9nw1PMY/sydl4K8UvUS9mk0C5rt52TpmGPHkT9RWdo2
7D1wFdYwxy5klzC+vEhl6CpueJteXMUa4ZiVzDpfEFnlGkpXeb3t7NOCtP1F
mq+p7Jz0eS+taqUtffdZ1FHeuJZmrn9M+ptUUM3yG7yizJGOzQnz/0DZJG8F
wwzXYp+jWNkDYce+wPzfU6zudEiZz5GjIz475j9LkQfLeTrf+J1HGuDBKZvt
vGEalTbGMS0Z835LsYdQVv6GYsemrLNj3lSKPZRy6hmKPYwy5WmKPTxiQKiV
f02xP6UMeIpijxBssUZ+kmKPJAwISAM8ShDpesYTVNbRcq5Vj/P849XIUtXz
GMUeQxnwKMUe67AwfRj1HqHY41IG2FHvYYo9PmWAzVEPUWxHxIAwA3uQYk+I
GBDY8gDFnkgZMCXx1UmCKa5TTKbyThasr3st9n6KPUXOte5xMymOPDUPecKt
TdxHkafl5TxxbzWyNPrdQ7GnO2zClrsp9oyIWSFfTKLYMylbJlLsWQ6b1Ep3
JZ4a51iSzNPvpPLOFqx/K2Oxd1DsORGjQk65nWLPpYy6jWLHR8wKbLmVYs+j
zLqFYs+PmOWyC0deEDHLIW8WpIzAPVq88dSdwzU/yJeqhgvzMhd/FWSzd57x
fiX8Lo7uIrG0CnATlelrGpUp902VdYGTkXD5RiojVGpSbpTWcS7OWRa9QWSV
qyxbs/mapti7S/IQDSHPXu+ldVJlVbwpvTSSGuLxl0l/+btMc63Y48ucNIRX
GOGvo9y6PE+i0UbstRR7hcNqfrfVwC8odkKek/z+c4q9kmJ/RrFX5SEaQ+Re
47EGejXFXE3lSUtbMYRx4yqKFY1K0X0lxUpPC2srHCn2K8ysJlCkeKUws7qC
Iq8jyMspUjhW86EqyMuqkaWx6FKKvT7F2pi7JPGSRGApLi+m8m5MsXbmdhHF
3uSwSS18IcVKpivF3QUUezPFnk+xt1DseRR7K8WOp9jbKPZcir09xdrIPodi
73DYJAucnfhLRuhSphhH5d1FsWdR7ESKPZNiJ1HsGRR7N8WeTrH3UOxpFHsv
xZ5KsfdR7CkUez/Fnkyxkyn2pMRfUyjmRCrvAYo9gWIfpNgOin2IYo+n2IdT
rB21jqPYRyJsiINjKVbmS6WYOYZiH6NYmbO1fF+o47mvjUpVw+NU7lFBLls1
qpD1RCrL5sIjqSytDPx6jFaD9XiNzVRbsXYhEx9RLbFR+LClVHPJ7Nysqya5
XWbypOay7/aiTziK8mRlIOR/O/Yc7uWlVVfTWbCiInw6lWYr1MOS/rpqq91Z
sMIbz1BZh1J2TXVY3cCISaK5PJZiZe0mjKAYys3lQyhW1oQawOoCBI74LSP5
wRQva1J1rQ5CHTOaYmWlq65rIFDb1lIHeayByrqZrYtCvXUglScrd3Z/AAZo
W+uNolhZEbR1HKhp682RFCsrkuYNidamNtMcQLGyJmrqTc00Nhr3p1hZjQ2Z
xu4NG0Gxsgps1kqSOBpOsbLqbGJO31JZ3uxHsS853ui6teXNMIp92XFBp3Q4
Oi7sk/js1civEGt9NpTKfI36bG+Kfd35LKnlh1DsG6kfbMbfi2KnOz9o1rN+
2JNi33S21Zi0q6x7UOwMZ1uNM5Th5vLuFPuWs62GTmTb3Sj+nTzERbAx/4Z7
Zmo3y99dE5/Jmznzxijh7S5UnrwbDFy0GXNnin2P8msnip3lbKC5BlZDO7HB
jhQv71LrusoRuLMDxco7WrMqozFsV5q2p1h592tWhkaNmxx8vB3FyjvlBkYj
3z/nt20p/qO0j2iFtoLfhuLlnbl97xB8t3XiO3lLb7keRu2tqLxPnO80N1hO
bkmxsqugAR9ovGuKFl23oPjPI04GXTenWNk1YXKq6mzz2WYUK7sxGl5nRIiz
Mf9K4ktnY40lRCraCn5jipcdJ2aertyw9pPdK11eBfN1T2kVTHa8NGAMb3Gn
/YbhCZ2thZG3Z3nqnYhJG1C5uh4Waj+3HpY7hmnvbeSv31o3//VitW5yrYEo
0iwR9Vt2U7XY3wUVOzrcClSpwjKHuuu7jyLn4fW8bLJaVvPfvZbe35pDM+WB
5eS6iSWSlbKGXymz3yIyO7Sn/gcnXRTxb2LMobvrnzIYFoQd5Q7/0sUcZOdh
QyNKt0c4e69V2Ub2NprspSNUZMc1K9vME/EFf232X6MSL3s/TfRqhsSTHE9X
821cE9lXaiJXk7o6QbCDK+Uv4Him9o3k8y8gzKFP5XP4dxDm0Lf0HGerlSvb
9HPPQVJUc7m9KPw7B3NYOLUXnuZ8z79HMAfZkd2AK9T3GIUcx/hXBuawaOp7
jHUIfbmzXGWbxR3HdGRESwy6cod/PWAOssu9CX3U1rABjGHnBWG3v2s00PVe
5zFgvtOK7/X3dxpI214r55mBlW2WirSCSmo0u8OZ78v3vWyiz5pzYW340/aF
77b39jTMUY+iT9A1+IC2WcFZWrMnjvgtd/j+eM+PJtRBcKopMPTZapbvfDeH
lZwl4BalD0xv6yO+n90cVnGtkNfVfjC7HfH7VLaSiGzCzL5VeFbYg+4aDS6h
YUDbH76j3BxWL/UHVrC5nO/8NgfJd+1o5W2HIyS4XNKjsqVk5CYeoDMCKIqk
DQKal+89zYeENb9xPqtmlnxP2QRcmaWWAU3MClNDpEAx6GPW0WtywFMAMV9B
1uSgFsLfbD5zaMJWcAmgSAsQACWqmSOjZjt4jSBQOeg9IsPEka43w7UQon/r
8nzcts9vk+drWvTPr8EciX7omNW/t7SHchrjWU0OfgN4Vs1V/f4ZXoK50b+s
TVriF87NaKdvnKC111VtBQIlugZb9RIJCK/kPmxrdW2T9rC9istqOOg3VHge
fsNFUKfaslLjtUMjWFbZqAQx0axvv+GYVNuG1xZ/gVYdG2jtr5p3ObWCZm2i
nt+6rTuFqU66LxtIWM3sTlErwuPQ0Yw1Zv1SpJk5hdoBzlbLKMlNg+7VWpm6
3veJz3fNYVPnTTBUbG8k1uELtQ8UHBVZGn+hr/ijrtxR84gedWjv9SjoAFqH
tRqngsxgTGTCgOiTfTbEwSB4DG7IWkHNc0mZYFY19CHouHmyWKWugYa/GA7U
D/6zA927RPu/lfO/+gEPVy3AZ9gbtkfHt4+0MJxpi2LH6C29N7Hn+Ctaasjj
L4zLV+XNYVtnXQiGyWH4mosnSDHdEA81/NOVCKUYakQxZN5Hqo5qf9ghO7tS
A79HGhZAKQ8nigZ19AwKKbflu5ym54CmQbjBaOE9YCIcl83XfsU44G/nzGFn
ly1gLghEt+uSOfF0dSi0gjCIkiqqpjmw6AX0O2tvYQGTQ6+p1EF2H5vaQHWw
Ea96+NiC0VUb7Zv/XES/gjbzBB9tpr5UDsCenqmiXxOS9YoaC0808m6q1E1W
1pqan2BZTUswjuZMr11WFw9odvM5te7vG1/hcUXd76h8rqyA1mATDfmsHlnb
PKoHDnKtgd76nhs7PygyW8/Zzb9U1tmc3Tay6wvVs+D043c2++tMSqyjKum+
x3cXN2rRuvDvoHWqQ9WcW/+NqmEt59yplDnb8cstku4+if9VoNZ6MO58Pe7W
Iv/977Vp4clu/wanDORz\
\>"],ExpressionUUID->"32baf66e-d3b0-4c00-b232-31bf673816de"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"transFairG", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.823518141041871*^9, 3.8235181506128845`*^9}},
 CellLabel->
  "In[100]:=",ExpressionUUID->"bba90757-bf8b-4f8a-add7-6010c09283b3"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"1-Y\"\>", "\<\"2-E\"\>", "\<\"3-R1\"\>", "\<\"4-R2\"\>", "\<\"5-R3\
\"\>", "\<\"6-R4\"\>", "\<\"7-C\"\>", "\<\"8-CCA\"\>", "\<\"9-F\"\>", \
"\<\"10-Fex\"\>", "\<\"11-TF\"\>", "\<\"12-TMF\"\>", "\<\"13-TMS\"\>", \
"\<\"14-TDF\"\>", "\<\"15-TDS\"\>", "\<\"16-TM\"\>", "\<\"17-TD\"\>", \
"\<\"18-\[Alpha]\"\>", "\<\"19-\[Alpha]check\"\>", "\<\"20-atmosGt\"\>"},
     {"1765", "3.7877384259126847`", "58.67921274495937`", 
      "43.23694001744334`", "17.564411310666078`", "2.843841913560096`", 
      "400.32581517602887`", "313.2518991916266`", "1.951793041371635`", "0", 
      "1.951793041371635`", "0.8744688356918116`", "0.10801833594743858`", 
      RowBox[{"-", "0.021942597229288662`"}], "0.2530062051352929`", 
      "0.9824871716392501`", "0.23106360790600428`", "0.5006938615107441`", 
      "0.5006938615107441`", "848.6907281731812`"},
     {"1766", "3.8334938819694613`", "59.51211376972114`", 
      "43.87669222981565`", "17.686942333729874`", "2.583379712889016`", 
      "401.6605372355557`", "318.54929545520497`", "1.969581602387094`", "0", 
      "1.969581602387094`", "0.8895279730332282`", "0.11016846962333966`", 
      RowBox[{"-", "0.02232046842585547`"}], "0.25804236086850135`", 
      "0.9996964426565679`", "0.23572189244264588`", "0.5096509957268064`", 
      "0.5095898472733992`", "851.5203389393781`"},
     {"1767", "3.8854239112558138`", "60.356299615309354`", 
      "44.52874208381333`", "17.83443159035473`", "2.479199479235197`", 
      "403.2000819581126`", "323.5225593352466`", "1.9900578609434303`", "0", 
      "1.9900578609434303`", "0.9032904567531461`", "0.11233573111748346`", 
      RowBox[{"-", "0.022665803359263242`"}], "0.26311863427486065`", 
      "1.0156261878706296`", "0.2404528309155974`", "0.518121694865935`", 
      "0.5180062607414919`", "854.7841737511988`"},
     {"1768", "3.9335401318340173`", "61.21094139537135`", 
      "45.19194779173585`", "18.003245864921766`", "2.454285865771998`", 
      "404.861830107201`", "328.33875833866733`", "2.012071894459763`", "0", 
      "2.012071894459763`", "0.9162670952443072`", "0.1145227859128744`", 
      RowBox[{"-", "0.022991419482079518`"}], "0.2682412685882985`", 
      "1.0307898811571816`", "0.24524984910621897`", "0.5263684196692592`", 
      "0.5262018911487761`", "858.3070798272662`"},
     {"1769", "3.977877386900702`", "62.07521786238483`", 
      "45.865304406983704`", "18.19056267109653`", "2.470037679237983`", 
      "406.6025318091031`", "333.0815707908644`", "2.035035179314885`", "0", 
      "2.035035179314885`", "0.928763769111224`", "0.11673116874049735`", 
      RowBox[{"-", "0.02330499209916495`"}], "0.2734138585361265`", 
      "1.0454949378517213`", "0.2501088664369615`", "0.5345354533846169`", 
      "0.5343191632970842`", "861.9973674352985`"},
     {"1770", "4.018408007120978`", "62.948301793051236`", 
      "46.54787190407473`", "18.39403649237832`", "2.5066934112264954`", 
      "408.39831279013083`", "337.7935400861821`", "2.0586222742991174`", "0",
       "2.0586222742991174`", "0.9409702597290697`", "0.11896181937244697`", 
      RowBox[{"-", "0.023611283297065196`"}], "0.2786386053017759`", 
      "1.0599320791015165`", "0.25502732200471073`", "0.5427049327931253`", 
      "0.5424392054827357`", "865.8044231150774`"},
     {"1771", "4.055117388830371`", "63.829362811723975`", 
      "47.23874829894726`", "18.61163583400842`", "2.5539605887981467`", 
      "410.2351167228778`", "342.49636461307887`", "2.082641140240934`", "0", 
      "2.082641140240934`", "0.9530068942902192`", "0.12121534046449461`", 
      RowBox[{"-", "0.02391331238419955`"}], "0.2839169204571654`", 
      "1.074222234754714`", "0.26000360807296585`", "0.5509249321125307`", 
      "0.5506095161957283`", "869.698447452501`"},
     {"1772", "4.087991568921321`", "64.71756752110235`", 
      "47.93705365049527`", "18.84154918554511`", "2.6063888398391164`", 
      "412.1039683863819`", "347.2009412125634`", "2.1069689544780643`", "0", 
      "2.1069689544780643`", "0.9649506358214854`", "0.1234921294403028`", 
      RowBox[{"-", "0.02421301055425951`"}], "0.2892497348688167`", 
      "1.0884427652617883`", "0.2650367243145572`", "0.5592241224778642`", 
      "0.5588584259543683`", "873.6604129791297`"},
     {"1773", "4.117005568022285`", "65.6120771036089`", "48.64191845783368`",
       "19.082125217400574`", "2.6610356946420426`", "413.9985656628852`", 
      "351.91244679058366`", "2.1315195572779295`", "0", 
      "2.1315195572779295`", "0.9768502889771722`", "0.12579244751101293`", 
      RowBox[{"-", "0.024511602437361783`"}], "0.29463766035914923`", 
      "1.102642736488185`", "0.27012605792178745`", "0.5676196553707936`", 
      "0.5672028809515681`", "877.6769592053166`"},
     {"1774", "4.142124798877629`", "66.51204523078219`", 
      "49.35247610840159`", "19.33183383706534`", "2.716271221498345`", 
      "415.9140355871475`", "356.63295512476816`", "2.156226681217825`", "0", 
      "2.156226681217825`", "0.9887357328811016`", "0.12811645663532695`", 
      RowBox[{"-", "0.02480983777500981`"}], "0.300081076276319`", 
      "1.1168521895164285`", "0.2752712385013092`", "0.576121529857556`", 
      "0.5756527572540627`", "881.7377554447528`"},
     {"1775", "4.163306476136382`", "67.41661628010417`", 
      "50.067857702037514`", "19.589239277559674`", "2.7711574185028924`", 
      "417.84627986760427`", "361.362806979609`", "2.1810351541290802`", "0", 
      "2.1810351541290802`", "1.0006237574094599`", "0.13046423985784808`", 
      RowBox[{"-", "0.02510813786694082`"}], "0.30558017713174623`", 
      "1.131087997267308`", "0.2804720392648054`", "0.5847350906541814`", 
      "0.584213329379901`", "885.8341133193211`"},
     {"1776", "4.180486677478276`", "68.32492074083163`", 
      "50.78718515693846`", "19.852976487457802`", "2.8251182443471983`", 
      "419.7916098189751`", "366.1013392389568`", "2.205896016225519`", "0", 
      "2.205896016225519`", "1.0125218823366506`", "0.13283581275058717`", 
      RowBox[{"-", "0.02540669140299058`"}], "0.31113499939901035`", 
      "1.1453576950872377`", "0.2857283079960198`", "0.5934625037189117`", 
      "0.5928867287968401`", "889.9582128162272`"},
     {"1777", "4.193627484657805`", "69.23608086395095`", "51.5095755914072`",
       "20.121745395901808`", "2.8777768839129307`", "421.7465879245729`", 
      "370.847275922564`", "2.2307643844839777`", "0", "2.2307643844839777`", 
      "1.024430960069119`", "0.13523113028789474`", 
      RowBox[{"-", "0.025705519772156092`"}], "0.3167454376166764`", 
      "1.1596620903570138`", "0.2910399178445203`", "0.602303659269849`", 
      "0.6016728366273931`", "894.1027664000947`"},
     {"1778", "4.202671637804064`", "70.14920645872851`", 
      "52.23413595306844`", "20.39429484519192`", "2.928856518612175`", 
      "423.70790296500104`", "375.59895190900096`", "2.255597793791581`", "0",
       "2.255597793791581`", "1.0363469990289929`", "0.13765009124908806`", 
      RowBox[{"-", "0.0260045228158245`"}], "0.32241125470035875`", 
      "1.173997090278081`", "0.29640673188453426`", "0.6112567563989812`", 
      "0.6105698616599265`", "898.2607542858022`"},
     {"1779", "4.207557391738907`", "71.06339391769394`", 
      "52.959961276892685`", "20.669412972972495`", "2.9781303825168157`", 
      "425.67230773947597`", "380.3544354576006`", "2.2803553663884775`", "0",
       "2.2803553663884775`", "1.0482624511639522`", "0.1400925409996817`", 
      RowBox[{"-", "0.02630351113459682`"}], "0.32813208845706493`", 
      "1.1883549921636338`", "0.3018285773224681`", "0.6203186792081617`", 
      "0.6195747122611656`", "902.4252924076891`"},
     {"1780", "4.208219543028236`", "71.97772546490013`", 
      "53.68613336342902`", "20.945919369098387`", "3.0253948044295784`", 
      "427.63658219125716`", "385.1115990510443`", "2.3049973184965187`", "0",
       "2.3049973184965187`", "1.0601671436659275`", "0.14255827340898386`", 
      RowBox[{"-", "0.026602229467426505`"}], "0.3339074560766903`", 
      "1.2027254170749113`", "0.3073052266092638`", "0.6294852501895656`", 
      "0.6286832469411874`", "906.5895542454653`"},
     {"1781", "4.204578798333942`", "72.89126609399412`", 
      "54.411717207546694`", "21.222655350671698`", "3.0704515025935386`", 
      "429.5974993442061`", "389.8681617392606`", "2.329484512275094`", "0", 
      "2.329484512275094`", "1.0720489536637112`", "0.1450470321536942`", 
      RowBox[{"-", "0.02690037362133457`"}], "0.3397367571853727`", 
      "1.2170959858174055`", "0.31283638356403815`", "0.6387514030172766`", 
      "0.637890445228831`", "910.746698609717`"},
     {"1782", "4.19657879287418`", "73.80306855045126`", 
      "55.135765823262275`", "21.498485700006537`", "3.1131078295263546`", 
      "431.55183709264645`", "394.62171275346026`", "2.353778585667279`", "0",
       "2.353778585667279`", "1.0838943174029427`", "0.14755851181141158`", 
      RowBox[{"-", "0.027197603248001308`"}], "0.3456192764067645`", 
      "1.2314528292143543`", "0.3184216731587632`", "0.6481113033280528`", 
      "0.6471905271267093`", "914.8898946364105`"},
     {"1783", "4.1841500961966895`", "74.71217049229`", "55.85731705200165`", 
      "21.772290621216737`", "3.153167659068925`", "433.49635501397734`", 
      "399.36973296417574`", "2.3778416439527055`", "0", 
      "2.3778416439527055`", "1.0956886158490025`", "0.1500923588354043`", 
      RowBox[{"-", "0.02749355151950166`"}], "0.35155418564518953`", 
      "1.2457809746844068`", "0.32406063412568786`", "0.6575584439903661`", 
      "0.6565770473352829`", "919.012272629632`"},
     {"1784", "4.167221996735382`", "75.61759421160257`", "56.5753930763534`",
       "22.042961764044918`", "3.1904293647541877`", "435.4277876061551`", 
      "404.1096065018379`", "2.40163615862717`", "0", "2.40163615862717`", 
      "1.1074164532727746`", "0.15264817226149807`", 
      RowBox[{"-", "0.02778783211871457`"}], "0.3575405457413538`", 
      "1.2600646255342727`", "0.32975271362263925`", "0.6670857075434073`", 
      "0.6660429570153003`", "923.1069097250489`"},
     {"1785", "4.145722630015646`", "76.5183463839643`", 
      "57.289000002609875`", "22.30939876438047`", "3.224684844810285`", 
      "437.34283918516496`", "408.8386291299702`", "2.42512488643071`", "0", 
      "2.42512488643071`", "1.1190618643024806`", "0.15522550429508244`", 
      RowBox[{"-", "0.02808004443476835`"}], "0.3635773078472625`", 
      "1.274287368597563`", "0.33549726341249414`", "0.676685410736267`", 
      "0.6755806478315954`", "927.1668190725497`"},
     {"1786", "4.119571421585546`", "77.4134161757071`", 
      "57.997125781886346`", "22.57050405969271`", "3.255717014821575`", 
      "439.23817222150774`", "413.55401450668484`", "2.4482707076847348`", 
      "0", "2.4482707076847348`", "1.1306084618718553`", 
      "0.15782386073952503`", 
      RowBox[{"-", "0.028369777275428172`"}], "0.3696633144296741`", 
      "1.2884323226113803`", "0.34129353715424593`", "0.6863493343711727`", 
      "0.6851819814782099`", "931.1849251095964`"},
     {"1787", "4.08870726635423`", "78.30177947457696`", "58.69874447418106`",
       "22.82518609917439`", "3.2833061062573985`", "441.11042534358984`", 
      "418.2528972925418`", "2.471036825853317`", "0", "2.471036825853317`", 
      "1.1420395551418463`", "0.16044270144756806`", 
      RowBox[{"-", "0.028656611826044728`"}], "0.37579730032738506`", 
      "1.3024822565894143`", "0.34714068850134033`", "0.6960687440049804`", 
      "0.6948383101321286`", "935.1541017284105`"},
     {"1788", "4.053060606603361`", "79.18239705294594`", 
      "59.39281426060044`", "23.072354738877003`", "3.3072262455233608`", 
      "442.9562014873468`", "422.93234035377617`", "2.493386598383583`", "0", 
      "2.493386598383583`", "1.1533382420355764`", "0.1630814407906619`", 
      RowBox[{"-", "0.02894012397148651`"}], "0.3819778938505276`", 
      "1.3164196828262384`", "0.3530377698790411`", "0.7058344111985984`", 
      "0.7045404974455768`", "939.0671471531753`"},
     {"1789", "4.012562780173285`", "80.05421476239594`", 
      "60.07827757499652`", "23.310919655461202`", "3.3272459912621626`", 
      "444.7720671735159`", "427.58933819306503`", "2.5152835027815996`", "0",
       "2.5152835027815996`", "1.1644874706915151`", "0.16573944799565204`", 
      RowBox[{"-", "0.029219885838152646`"}], "0.3882036175691753`", 
      "1.3302269186871671`", "0.35898373173102266`", "0.7156366236113739`", 
      "0.7142789284650073`", "942.9167824078537`"},
     {"1790", "3.967146150077172`", "80.91616375647305`", 
      "60.75406127739284`", "23.53978902460473`", "3.34312888258328`", 
      "446.55455213045394`", "432.22081992252`", "2.5366911046703486`", "0", 
      "2.5366911046703486`", "1.175470083760473`", "0.16841604743802116`", 
      RowBox[{"-", "0.029495466905494646`"}], "0.3944728890001903`", 
      "1.3438861311984942`", "0.36497742209469564`", "0.7254651913050273`", 
      "0.7240435158015639`", "946.6956505165624`"},
     {"1791", "3.9167376989318927`", "81.76715932151613`", 
      "61.419075403239425`", "23.757866594457823`", "3.354632199273221`", 
      "448.3001427078866`", "436.82365182009835`", "2.557572949444819`", "0", 
      "2.557572949444819`", "1.1862688452109669`", "0.17111051884311174`", 
      RowBox[{"-", "0.029766434678629633`"}], "0.40078402107853717`", 
      "1.3573793640540786`", "0.37101758639990756`", "0.735309448964677`", 
      "0.7338237017220584`", "950.3963025407196`"},
     {"1792", "3.861281702982132`", "82.60610463455608`", 
      "62.07221700537687`", "23.964055413134833`", "3.3615125432998325`", 
      "450.00529878576765`", "441.3946381453127`", "2.5778927327766774`", "0",
       "2.5778927327766774`", "1.1968664651202945`", "0.17382209752710837`", 
      RowBox[{"-", "0.030032355310410066`"}], "0.40713522272172453`", 
      "1.3706885626474028`", "0.3771028674113145`", "0.7451582565310896`", 
      "0.743608458624712`", "954.0112334258274`"},
     {"1793", "3.8007176986331865`", "83.43188973334051`", 
      "62.712369055511026`", "24.15725532670062`", "3.3635237301879606`", 
      "451.66644703514015`", "445.9305253777453`", "2.597614183886572`", "0", 
      "2.597614183886572`", "1.2072456211887548`", "0.17654997467196573`", 
      RowBox[{"-", "0.03029279414126901`"}], "0.41352459947375575`", 
      "1.3837955958607204`", "0.38323180533248674`", "0.7550000046600659`", 
      "0.753386294266228`", "957.5328677144971`"},
     {"1794", "3.7349877849876214`", "84.24339207320479`", 
      "63.33840099491065`", "24.336362771717624`", "3.3604176092152898`", 
      "453.27998263844836`", "450.42800400290565`", "2.6167010482042583`", 
      "0", "2.6167010482042583`", "1.217388968545397`", "0.179293297512512`", 
      RowBox[{"-", "0.030547315945270735`"}], "0.41995015394337204`", 
      "1.3966822660579088`", "0.3894028379981013`", "0.7648226149704787`", 
      "0.7631452517820017`", "960.9535631935106`"},
     {"1795", "3.6640368779078027`", "85.03947713915244`", 
      "63.94916934759855`", "24.50027077295117`", "3.351944912361664`", 
      "454.8422713614639`", "454.8837100912773`", "2.6351170713533487`", "0", 
      "2.6351170713533487`", "1.2272791455996868`", "0.18205116950157593`", 
      RowBox[{"-", "0.030795485076943616`"}], "0.42640978619082226`", 
      "1.4093303151012626`", "0.39561430111387863`", "0.7746135401452254`", 
      "0.7728729094977179`", "964.2656152863035`"},
     {"1796", "3.58780848581543`", "85.81899814001832`", "64.54351739229956`",
       "24.647867870939358`", "3.33785490400611`", "456.34964749666335`", 
      "459.2942266745831`", "2.6528259318276723`", "0", "2.6528259318276723`",
       "1.2368987740330952`", "0.18482265042079987`", 
      RowBox[{"-", "0.03103686547106905`"}], "0.43290129398741456`", 
      "1.4217214244538952`", "0.4018644285163455`", "0.784359763295955`", 
      "0.7825563799969434`", "967.4612526929263`"},
     {"1797", "3.50626123220905`", "86.58079929297706`", "65.12027854292788`",
       "24.778041872357964`", "3.3178999355521728`", "457.7984288332151`", 
      "463.6560840533766`", "2.6697913707824386`", "0", "2.6697913707824386`",
       "1.2462304625649039`", "0.1876067565312381`", 
      RowBox[{"-", "0.03127102073717485`"}], "0.43942237316825583`", 
      "1.433837219096142`", "0.40815135243108097`", "0.7940477984256538`", 
      "0.7921823101872888`", "970.5326691264161`"},
     {"1798", "3.4193525876786874`", "87.3237155730158`", 
      "65.67827608046652`", "24.889678993180773`", "3.291834401595763`", 
      "459.18491423765886`", "467.96576248183464`", "2.6859771134163335`", 
      "0", "2.6859771134163335`", "1.2552568121470316`", 
      "0.19040246075667536`", 
      RowBox[{"-", "0.031497514289886425`"}], "0.4459706180616299`", 
      "1.445659272903707`", "0.4144731037717435`", "0.8036636961801462`", 
      "0.8017368865476093`", "973.4720181838368`"},
     {"1799", "3.327045146330444`", "88.0465738262769`", "66.21632429940331`",
       "24.981664931070426`", "3.259416046494671`", "460.5053882926453`", 
      "472.2196931954839`", "2.701346870654531`", "0", "2.701346870654531`", 
      "1.2639604160798508`", "0.1932086928163218`", 
      RowBox[{"-", "0.03171590935183281`"}], "0.4525435217998029`", 
      "1.4571691088961725`", "0.42082761244797007`", "0.8131930475370233`", 
      "0.8112058382919803`", "976.2714231804081`"},
     {"1800", "3.2293062430490425`", "88.7481938002321`", 
      "66.73322957149065`", "25.052885914396153`", "3.220407077751876`", 
      "461.7561255532708`", "476.4142594382218`", "2.7158643331496224`", "0", 
      "2.7158643331496224`", "1.2723238598548934`", "0.19602433935453842`", 
      RowBox[{"-", "0.031925768949699874`"}], "0.4591384766228725`", 
      "1.4683481992094318`", "0.4272127076731726`", "0.8226209892601583`", 
      "0.8205744421885539`", "978.9229861729342`"},
     {"1801", "3.1261057744772462`", "89.4273887003562`", 
      "67.22779092491504`", "25.10222922352356`", "3.1745746669560737`", 
      "462.93339270515094`", "480.54579731812765`", "2.729493137927198`", "0",
       "2.729493137927198`", "1.2803297188719145`", "0.19884824404461612`", 
      RowBox[{"-", "0.03212665585694567`"}], "0.46575277412184496`", 
      "1.4791779629165307`", "0.4336261182648993`", "0.8319322103622429`", 
      "0.829827528354938`", "981.41879253492`"},
     {"1802", "3.0174282395134404`", "90.08296836320193`", 
      "67.6988033254875`", "25.12858721855062`", "3.1216949539137158`", 
      "464.0334630505538`", "484.6105960536421`", "2.7421969745446275`", "0", 
      "2.7421969745446275`", "1.2879605608582851`", "0.2016792077392067`", 
      RowBox[{"-", "0.032318132654509085`"}], "0.4723836055909826`", 
      "1.4896397685974918`", "0.44006547293647347`", "0.8411109613184734`", 
      "0.838949488671482`", "983.7509416671741`"},
     {"1803", "2.9032615976600384`", "90.713740008392`", "68.14505845919085`",
       "25.130858214610253`", "3.0615531858914626`", "465.0526190574846`", 
      "488.6048999059881`", "2.7539395492735115`", "0", "2.7539395492735115`",
       "1.2951989511871935`", "0.20451598866540632`", 
      RowBox[{"-", "0.032499761864256696`"}], "0.479028062484738`", 
      "1.4997149398525997`", "0.4465283006204813`", "0.8501410689311097`", 
      "0.847924290754104`", "985.9115524018674`"},
     {"1804", "2.783601749164948`", "91.3185099641475`", "68.56534652427976`",
       "25.107948729726218`", "2.9939454335175766`", "465.98715984107105`", 
      "492.5249091530145`", "2.764684603516252`", "0", "2.764684603516252`", 
      "1.3020274562074716`", "0.2073573026083894`", 
      RowBox[{"-", "0.0326711060325364`"}], "0.48568313684787146`", 
      "1.509384758815861`", "0.45301203081533503`", "0.8590059517267719`", 
      "0.8567354923951269`", "987.8927788630707`"},
     {"1805", "2.6584531779265625`", "91.89608553251972`", 
      "68.9584581700421`", "25.058775977420776`", "2.9186803859364914`", 
      "466.8334092553191`", "496.36678113201293`", "2.774395936165107`", "0", 
      "2.774395936165107`", "1.3084286480181921`", "0.21020182312017888`", 
      RowBox[{"-", "0.03283172784998395`"}], "0.4923457218044436`", 
      "1.518630471138371`", "0.45951399395445963`", "0.8676886385676017`", 
      "0.8653662591242378`", "989.6868276212766`"},
     {"1806", "2.5278276689710903`", "92.44527657593008`", 
      "69.32318615096463`", "24.982270057632736`", "2.8355806906080288`", 
      "467.5877226645355`", "500.12663136269293`", "2.783037407929412`", "0", 
      "2.783037407929412`", "1.3143851095665116`", "0.2130481817452462`", 
      RowBox[{"-", "0.03298119027944048`"}], "0.49901261208622694`", 
      "1.5274332913117576`", "0.46603142180678647`", "0.876171790285727`", 
      "0.8737993847066822`", "991.2859720488152`"},
     {"1807", "2.3917541727472473`", "92.96489924722182`", 
      "69.65832919441257`", "24.877379008215165`", "2.744487054933912`", 
      "468.2465036941835`", "503.8005344260633`", "2.7905730571823253`", "0", 
      "2.7905730571823253`", "1.3198794452735665`", "0.21589496832262223`", 
      RowBox[{"-", "0.03311905682258267`"}], "0.5056805047403266`", 
      "1.5357744135961888`", "0.4725614479177439`", "0.8844377256906472`", 
      "0.8820173159534817`", "992.682587831669`"},
     {"1808", "2.2502707352362297`", "93.45377796612317`", 
      "69.96269405883749`", "24.743071569228896`", "2.6452594367013886`", 
      "468.80621222029094`", "507.3845263094163`", "2.796967112581539`", "0", 
      "2.796967112581539`", "1.3248942959243313`", "0.2187407313700912`", 
      RowBox[{"-", "0.033244891893546305`"}], "0.5123460000290591`", 
      "1.5436350272944224`", "0.47910110813551277`", "0.8924684543497146`", 
      "0.8900021841893674`", "993.8691699070168`"},
     {"1809", "2.103429237791104`", "93.91074842567868`", 
      "70.23509865847427`", "24.57834135947769`", "2.5377796669229262`", 
      "469.26337729995356`", "510.8746063246487`", "2.802184060138924`", "0", 
      "2.802184060138924`", "1.3294123546239383`", "0.22158397851822254`", 
      RowBox[{"-", "0.03335826121931002`"}], "0.5190056024465642`", 
      "1.5509963331421608`", "0.4856473412272542`", "0.9002457124075005`", 
      "0.897735839708444`", "994.8383598759016`"},
     {"1810", "1.9512969323131617`", "94.33466093227422`", 
      "70.47437553388306`", "24.382211521058963`", "2.4219542445561317`", 
      "469.6146114211724`", "514.2667394841686`", "2.806188723427582`", "0", 
      "2.806188723427582`", "1.3334163870972937`", "0.22442317703803633`", 
      RowBox[{"-", "0.03345873234906312`"}], "0.5256557219547315`", 
      "1.55783956413533`", "0.49219698960566843`", "0.907751003960617`", 
      "0.9051998917205573`", "995.5829762128856`"},
     {"1811", "1.7939560594537032`", "94.72438366269733`", 
      "70.67937523885699`", "24.153739284172744`", "2.297716742524057`", 
      "469.85662411765117`", "517.5568594136755`", "2.8089463351518758`", "0",
       "2.8089463351518758`", "1.3368892555590142`", "0.227256754464769`", 
      RowBox[{"-", "0.03354587525316163`"}], "0.5322926754442161`", 
      "1.5641460100237832`", "0.49874680019105444`", "0.9149656479345694`", 
      "0.9123757537846978`", "996.0960431294205`"},
     {"1812", "1.6315126872662855`", "95.07880784183696`", 
      "70.84897171015297`", "23.892023065898304`", "2.165032480620806`", 
      "469.9862442879091`", "520.7408715497332`", "2.8104227070982124`", "0", 
      "2.8104227070982124`", "1.3398139503874396`", "0.23008309937501403`", 
      RowBox[{"-", "0.03361926311790806`"}], "0.5389126885546985`", 
      "1.5698970497624536`", "0.5052934254367905`", "0.9218708316791074`", 
      "0.9192446958809377`", "996.3708378903673`"},
     {"1813", "1.4640927377814708`", "95.3968520569566`", "70.9820667457048`",
       "23.596208416943533`", "2.0239013532141588`", "470.0004377622191`", 
      "523.8146579882927`", "2.8105843458394983`", "0", "2.8105843458394983`",
       "1.3421736298838876`", "0.2329005623457766`", 
      RowBox[{"-", "0.033678473343209926`"}], "0.5455118979212334`", 
      "1.575074192229664`", "0.5118334245780235`", "0.9284476735230981`", 
      "0.9257879054366256`", "996.4009280559046`"},
     {"1814", "1.2918472415459066`", "95.67746771377928`", 
      "71.07759566245532`", "23.265495467494915`", "1.874361842005798`", 
      "469.89632987513534`", "526.7740828609876`", "2.809398626448352`", "0", 
      "2.809398626448352`", "1.3439516667728117`", "0.23570745709680505`", 
      RowBox[{"-", "0.03372308870938431`"}], "0.5520863538498773`", 
      "1.5796591238696167`", "0.5183632651404929`", "0.9346772921686147`", 
      "0.9319865552062643`", "996.180219335287`"},
     {"1815", "1.1149550271160529`", "95.91964507699895`", 
      "71.13453355698462`", "22.899147110128098`", "1.7164951974124643`", 
      "469.67123013092413`", "529.6149989762014`", "2.8068339921836216`", "0",
       "2.8068339921836216`", "1.345131704354987`", "0.2385020618695382`", 
      RowBox[{"-", "0.033752698786180944`"}], "0.5586320235475316`", 
      "1.5836337662245252`", "0.5248793247613507`", "0.9405408850684501`", 
      "0.9378218801346732`", "995.7030078775592`"},
     {"1816", "0.933625795167827`", "96.12241997879559`", "71.1519022548927`",
       "22.496498014902542`", "1.5504298445102938`", "469.32265928250115`", 
      "532.3332558606139`", "2.802860185264482`", "0", "2.802860185264482`", 
      "1.3456977232257945`", "0.24128262107934223`", 
      RowBox[{"-", "0.0337669016069098`"}], "0.5651447949918985`", 
      "1.5869803443051367`", "0.5313778933849888`", "0.9460198162055937`", 
      "0.9432752636980205`", "994.9640376789025`"},
     {"1817", "0.7481085725329364`", "96.28488236441196`", 
      "71.1287791536371`", "22.056965978654986`", "1.3763474262403066`", 
      "468.8483841123444`", "534.9247093951161`", "2.79744857084366`", "0", 
      "2.79744857084366`", "1.3456341229817688`", "0.244047347319549`", 
      RowBox[{"-", "0.033765305718661556`"}], "0.5716204816254442`", 
      "1.5896814703013178`", "0.5378551759067827`", "0.9510957150186077`", 
      "0.9483283354662901`", "993.9585743181701`"},
     {"1818", "0.5586932516017845`", "96.40618517224098`", 
      "71.0643064066198`", "21.58006359484543`", "1.194488144485428`", 
      "468.2464525075917`", "537.3852340905876`", "2.7905724720822658`", "0", 
      "2.7905724720822658`", "1.3449258209684685`", "0.2467944237839779`", 
      RowBox[{"-", "0.03374753266013712`"}], "0.5780548280295569`", 
      "1.5917202447524463`", "0.5443072953694198`", "0.9557505886564467`", 
      "0.9529630821068172`", "992.6824793160945`"},
     {"1819", "0.36571750448728124`", "96.48555471636021`", 
      "70.95770165370683`", "21.065411759080828`", "1.005157023684033`", 
      "467.5152343422319`", "539.7107377106634`", "2.7822075818812597`", "0", 
      "2.7822075818812597`", "1.3435583691135604`", "0.2495220071623717`", 
      RowBox[{"-", "0.03371321989328026`"}], "0.5844435167063877`", 
      "1.593080376275932`", "0.5507302968131075`", "0.9599669471929129`", 
      "0.9571619714842261`", "991.1322968055317`"},
     {"1820", "0.1695749844074956`", "96.52230285122526`", 
      "70.80827058431016`", "20.512755323691383`", "0.8087311733989812`", 
      "466.65346912202585`", "541.897178944444`", "2.7723324656395625`", "0", 
      "2.7723324656395625`", "1.3415180938071216`", "0.2522282311160528`", 
      RowBox[{"-", "0.03366202431322207`"}], "0.5907821762197156`", 
      "1.5937463249231745`", "0.5571201519064936`", "0.9637279441810406`", 
      "0.9609080923333025`", "989.3053545386948`"},
     {"1821", "8.967045403365621`*^-6", "96.52220464462872`", 
      "70.62198126900279`", "19.93025104888673`", "0.6137593063797908`", 
      "465.68960545829805`", "543.9405889216832`", "2.761265757462017`", "0", 
      "2.761265757462017`", "1.3388109722025694`", "0.2549114277417641`", 
      RowBox[{"-", "0.033594095901602464`"}], "0.5970668999191566`", 
      "1.5937223999443335`", "0.5634728040175542`", "0.967024254038988`", 
      "0.9641919964506994`", "987.2619635715919`"},
     {"1822", "1.0248018345524599`*^-6", "96.52210505368448`", 
      "70.4368136313767`", "19.366215292283094`", "0.4662947573625576`", 
      "464.79283792410683`", "545.8417382667485`", "2.7509488324812206`", "0",
       "2.7509488324812206`", "1.3355658468219975`", "0.2575713937040556`", 
      RowBox[{"-", "0.03351266763763454`"}], "0.6032972115417675`", 
      "1.593137240526053`", "0.569784543904133`", "0.9698989731273419`", 
      "0.9670563965597994`", "985.3608163991065`"},
     {"1823", "6.405005595746556`*^-7", "96.52200567517555`", 
      "70.25267879625851`", "18.819766375684775`", "0.354592723088452`", 
      "463.9504527596073`", "547.6275961733487`", "2.7412394058652487`", "0", 
      "2.7412394058652487`", "1.331974284006824`", "0.2602090863110351`", 
      RowBox[{"-", "0.033422546397104916`"}], "0.6094753533447484`", 
      "1.5921833703178592`", "0.5760528069476435`", "0.972461537798885`", 
      "0.969610091686028`", "983.5749598503675`"},
     {"1824", "3.843017445943099`*^-7", "96.52190650333907`", 
      "70.06950921813045`", "18.290135661673375`", "0.2698729900775148`", 
      "463.1528335626204`", "549.3185496856806`", "2.7320296943024958`", "0", 
      "2.7320296943024958`", "1.3281720455819899`", "0.2628252981813706`", 
      RowBox[{"-", "0.03332713878173821`"}], "0.6156031818410658`", 
      "1.5909973437633604`", "0.5822760430593276`", "0.9747919334284297`", 
      "0.9719326429371339`", "981.8840071527553`"},
     {"1825", "3.843017445943099`*^-7", "96.52180756889007`", 
      "69.88725397224336`", "17.776640488900593`", "0.20554877214863349`", 
      "462.3926599915827`", "550.9301184710002`", "2.7232375757045473`", "0", 
      "2.7232375757045473`", "1.3242546710863135`", "0.26542069663523915`", 
      RowBox[{"-", "0.03322884211609784`"}], "0.6216822600629966`", 
      "1.5896753677215525`", "0.5884534179468988`", "0.9769485640926119`", 
      "0.9740821668399694`", "980.2724391821554`"},
     {"1826", "2.562011630628733`*^-7", "96.5217088252899`", 
      "69.7058740406332`", "17.278663374374087`", "0.15666437132600566`", 
      "461.6643198010232`", "552.4742002181329`", "2.714800070420659`", "0", 
      "2.714800070420659`", "1.3202887854968661`", "0.26799585303843265`", 
      RowBox[{"-", "0.03312932818650441`"}], "0.6277139262934306`", 
      "1.5882846385352987`", "0.5945845981069262`", "0.9789740321219264`", 
      "0.976101067937935`", "978.7283579781692`"},
     {"1827", "2.562011630628733`*^-7", "96.52161028620336`", 
      "69.52533914434213`", "16.795637535278775`", "0.11948295074375148`", 
      "460.963479105968`", "553.9599830347963`", "2.706668558488841`", "0", 
      "2.706668558488841`", "1.3163202968321994`", "0.2705512647524974`", 
      RowBox[{"-", "0.033029748939281844`"}], "0.6336993454786364`", 
      "1.5868715615846969`", "0.6006695965393545`", "0.9808993810172282`", 
      "0.9780202520078259`", "977.2425757046523`"},
     {"1828", "2.562011630628733`*^-7", "96.52151194074304`", 
      "69.34562526850378`", "16.327036306524633`", "0.09118153702995616`", 
      "460.28676424220146`", "555.3946190891279`", "2.698805226309148`", "0", 
      "2.698805226309148`", "1.3123803313624416`", "0.27308737162983004`", 
      RowBox[{"-", "0.032930885409935134`"}], "0.6396395478639393`", 
      "1.5854677029922717`", "0.6067086624540041`", "0.9827472097576884`", 
      "0.9798622212291865`", "975.8079401934672`"},
     {"1829", "2.562011630628733`*^-7", "96.52141378040335`", 
      "69.16671296660881`", "15.872365649720594`", "0.06962438420661413`", 
      "459.6315259703394`", "556.7837247686219`", "2.691180425192559`", "0", 
      "2.691180425192559`", "1.3084895223557966`", "0.2756045684547137`", 
      RowBox[{"-", "0.032833255338462826`"}], "0.645535458133769`", 
      "1.5840940908105103`", "0.6127022027953062`", "0.9845339572110218`", 
      "0.9816433459161111`", "974.4188350571196`"},
     {"1830", "1.2810058153143666`*^-7", "96.52131577057105`", 
      "68.98858608663151`", "15.431158662818609`", "0.053193631130276406`", 
      "458.99566334055146`", "558.1317538153456`", "2.683770692857832`", "0", 
      "2.683770692857832`", "1.304661101445912`", "0.27810321436014884`", 
      RowBox[{"-", "0.03273719073945019`"}], "0.6513879174682526`", 
      "1.582764315806061`", "0.6186507267288025`", "0.9862715764838385`", 
      "0.9833755303162751`", "973.0708062819691`"},
     {"1831", "1.2810058153143666`*^-7", "96.52121793356149`", 
      "68.81123095850215`", "15.002971700336062`", "0.04066251857876241`", 
      "458.3774923003785`", "559.4422766920856`", "2.6765572742146486`", "0", 
      "2.6765572742146486`", "1.300903120156927`", "0.28058363998066915`", 
      RowBox[{"-", "0.03264289364565592`"}], "0.6571977002969158`", 
      "1.5814867601375961`", "0.62455480665126`", "0.9879687607135258`", 
      "0.985067432581096`", "971.7602836768025`"},
     {"1832", "1.2810058153143666`*^-7", "96.52112026476829`", 
      "68.63463565982572`", "14.587381310126236`", "0.03109989210586412`", 
      "457.77564631622613`", "560.7181904500618`", "2.6695249999547586`", "0",
       "2.6695249999547586`", "1.2972200401586917`", "0.283046152902585`", 
      RowBox[{"-", "0.03255047601146934`"}], "0.6629655270645278`", 
      "1.5802661930612767`", "0.6304150510530585`", "0.9896318393642937`", 
      "0.9867253569723745`", "970.4843701903994`"},
     {"1833", "1.2810058153143666`*^-7", "96.52102276025319`", 
      "68.45878957791028`", "14.183982053005565`", "0.0237984128605013`", 
      "457.18900199342954`", "561.9618766859638`", "2.662661445851103`", "0", 
      "2.662661445851103`", "1.2936138663282957`", "0.2854910418291112`", 
      RowBox[{"-", "0.03245998814424125`"}], "0.6686920739868827`", 
      "1.579104908157407`", "0.6362320858426415`", "0.9912654322177846`", 
      "0.9883539050289455`", "969.2406842260707`"},
     {"1834", "1.2810058153143666`*^-7", "96.52092541656853`", 
      "68.28368307404473`", "13.792384807439204`", "0.018220355003317867`", 
      "456.6166228424558`", "563.1753207576014`", "2.655956296124062`", "0", 
      "2.655956296124062`", "1.2900849498367277`", "0.287918579778122`", 
      RowBox[{"-", "0.032371438855724854`"}], "0.6743779805407476`", 
      "1.5780035296148498`", "0.6420065416850227`", "0.9928729258658918`", 
      "0.9899564500406909`", "968.0272404260063`"},
     {"1835", "1.2810058153143666`*^-7", "96.52082823062959`", 
      "68.10930724238074`", "13.412215446456317`", "0.013956648535521258`", 
      "456.0577167574022`", "564.3602019294883`", "2.649400861414718`", "0", 
      "2.649400861414718`", "1.2866325535617085`", "0.2903290265463868`", 
      RowBox[{"-", "0.0322848096496895`"}], "0.680023855235726`", 
      "1.5769615801080952`", "0.6477390455860365`", "0.9944568200602968`", 
      "0.9915354819520383`", "966.8423595256927`"},
     {"1836", "1.2810058153143666`*^-7", "96.52073119962299`", 
      "67.93565373700483`", "13.043113780872831`", "0.010695893041264542`", 
      "455.5116037999419`", "565.5179616708774`", "2.642987713201717`", "0", 
      "2.642987713201717`", "1.2832552469813092`", "0.2927226306189621`", 
      RowBox[{"-", "0.03220006463078337`"}], "0.685630280086534`", 
      "1.5759778776002713`", "0.6534302154557506`", "0.99601897877737`", 
      "0.9930928574356377`", "965.6846000558769`"},
     {"1837", "1.2810058153143666`*^-7", "96.52063432094114`", 
      "67.76271464805238`", "12.684732694058667`", "0.008200890375470294`", 
      "454.9776917428277`", "566.6498555035328`", "2.6367104060670274`", "0", 
      "2.6367104060670274`", "1.2799511792500726`", "0.29509963065647643`", 
      RowBox[{"-", "0.03211715735669229`"}], "0.6911978140965988`", 
      "1.575050809906549`", "0.6590806567399065`", "0.9975608117403258`", 
      "0.9946299806811917`", "964.5527064947947`"},
     {"1838", "1.2810058153143666`*^-7", "96.52053759213541`", 
      "67.59048241301574`", "12.336737415531404`", "0.006290855415888215`", 
      "454.45545746549845`", "567.7569924430439`", "2.63056326633408`", "0", 
      "2.63056326633408`", "1.2767182656889238`", "0.2974602566618355`", 
      RowBox[{"-", "0.03203603551763524`"}], "0.6967269959907747`", 
      "1.5741785223507594`", "0.6646909604731395`", "0.9990834051980152`", 
      "0.9961479336636115`", "963.4455698268567`"},
     {"1839", "2.562011630628733`*^-7", "96.52044103871894`", 
      "67.41894978192651`", "11.998804932351966`", "0.0048279552769116395`", 
      "453.94443289767435`", "568.8403650699776`", "2.6245412324263118`", "0",
       "2.6245412324263118`", "1.273554313184287`", "0.29980473090331783`", 
      RowBox[{"-", "0.03195664408294001`"}], "0.7022183463774677`", 
      "1.5733590440876049`", "0.6702617022945278`", "1.0005876158548088`", 
      "0.9976475696867771`", "962.3621977430697`"},
     {"1840", "2.562011630628733`*^-7", "96.52034463063406`", 
      "67.24810968565508`", "11.670623330236893`", "0.003706948007690337`", 
      "453.44419378393377`", "569.9008725342541`", "2.618639727105612`", "0", 
      "2.618639727105612`", "1.2704571024784113`", "0.30213326864919426`", 
      RowBox[{"-", "0.031878927365911996`"}], "0.7076723694692987`", 
      "1.5725903711276055`", "0.6757934421033867`", "1.0020741379319666`", 
      "0.99912958021523`", "961.3016908219396`"},
     {"1841", "2.562011630628733`*^-7", "96.52024836574407`", 
      "67.0779552893517`", "11.35189141158209`", "0.002847521769892362`", 
      "452.95435177784776`", "570.9393381303029`", "2.6128545679468504`", "0",
       "2.6128545679468504`", "1.2674244406787727`", "0.30444607875938123`", 
      RowBox[{"-", "0.031802830341425725`"}], "0.7130895544689053`", 
      "1.571870519438154`", "0.6812867241274796`", "1.0035435508283823`", 
      "1.0005945423226033`", "960.2632257690373`"},
     {"1842", "2.562011630628733`*^-7", "96.52015224198492`", 
      "66.908479939914`", "11.042318209523527`", "0.0021883297652585303`", 
      "452.4745479105877`", "571.9565228720406`", "2.607181893285191`", "0", 
      "2.607181893285191`", "1.264454193414472`", "0.30674336416979897`", 
      RowBox[{"-", "0.03172829945280877`"}], "0.7184703767034313`", 
      "1.571197557584271`", "0.6867420772506225`", "1.0049963529289083`", 
      "1.0020429523991203`", "959.246041570446`"},
     {"1843", "3.843017445943099`*^-7", "96.52005628519268`", 
      "66.73967717729298`", "10.741622609907157`", "0.001682522738187528`", 
      "452.004447784531`", "572.9531359540006`", "2.6016181079548315`", "0", 
      "2.6016181079548315`", "1.2615443030503326`", "0.309025322291882`", 
      RowBox[{"-", "0.03165528306887876`"}], "0.72381529856028`", 
      "1.5705696253422146`", "0.6921600154914013`", "1.0064329853804146`", 
      "1.0034752498134676`", "958.2494293032058`"},
     {"1844", "5.124032653587577`*^-7", "96.51996049342495`", 
      "66.57154066411971`", "10.449532891688122`", "0.0012942423176957561`", 
      "451.5437374809505`", "573.9298428838862`", "2.596159837021224`", "0", 
      "2.596159837021224`", "1.2586927975108155`", "0.3112921453462292`", 
      RowBox[{"-", "0.03158373170535738`"}], "0.7291247702686078`", 
      "1.5699849428570447`", "0.6975410385632504`", "1.0078538486509068`", 
      "1.0048918334167882`", "957.2727234596151`"},
     {"1845", "8.967045403365621`*^-7", "96.51986492046427`", 
      "66.40406426206981`", "10.165786473407675`", "0.0009961265211712483`", 
      "451.092120971863`", "574.8872717841654`", "2.5908038969689646`", "0", 
      "2.5908038969689646`", "1.2558977931778212`", "0.31354402064626963`", 
      RowBox[{"-", "0.03151359809758337`"}], "0.7343992305637411`", 
      "1.5694418138240909`", "0.7028856324661578`", "1.0092593139558315`", 
      "1.0062930729281712`", "956.3152964603496`"},
     {"1846", "0.000015884449568305877`", "96.51977273779877`", 
      "66.23724518048672`", "9.890133547259337`", "0.0007711966928541438`", 
      "450.6493318516377`", "575.826018394076`", "2.5855474367031044`", "0", 
      "2.5855474367031044`", "1.2531575035091367`", "0.31578113095348054`", 
      RowBox[{"-", "0.031444837416770816`"}], "0.7396391075191859`", 
      "1.5689386344626173`", "0.7081942701024151`", "1.0106497347224968`", 
      "1.007679320360299`", "955.376583525472`"},
     {"1847", "0.8653272097903514`", "96.70771283779185`", 
      "66.26490385745738`", "9.866688154468058`", "0.2396838114963868`", 
      "451.08039785061374`", "576.7466521610023`", "2.5906647953748094`", "0",
       "2.5906647953748094`", "1.2510414534110144`", "0.31801028912734985`", 
      RowBox[{"-", "0.03139174045879477`"}], "0.7448603585713354`", 
      "1.569051742538364`", "0.7134686181125406`", "1.012238434196457`", 
      "1.0092631212405951`", "956.2904434433011`"},
     {"1848", "2.0457632514559516`", "97.15216165386168`", 
      "66.55717173678275`", "10.177652109965473`", "0.74991288129271`", 
      "452.6383075713026`", "577.7809016462285`", "2.6091186837821554`", "0", 
      "2.6091186837821554`", "1.2506825942373674`", "0.3202468214394043`", 
      RowBox[{"-", "0.03138273578991695`"}], "0.7500988817162457`", 
      "1.5709294156767717`", "0.7187161459263288`", "1.014672056494613`", 
      "1.0116883986032132`", "959.5932120511616`"},
     {"1849", "3.583873750387489`", "97.93084167246977`", 
      "67.19364413818914`", "10.915231098181337`", "1.5684203732454753`", 
      "455.6095464714857`", "579.0796875286618`", "2.6441384453959604`", "0", 
      "2.6441384453959604`", "1.2532932340878187`", "0.32250999529332885`", 
      RowBox[{"-", "0.031448243234449114`"}], "0.7553998060761755`", 
      "1.5758032293811475`", "0.7239515628417263`", "1.0186669049162773`", 
      "1.015667004531714`", "965.8922385195498`"},
     {"1850", "5.689980287374016`", "99.16717825264118`", 
      "68.30095243157011`", "12.228835464880408`", "2.782829741314294`", 
      "460.48120507980605`", "580.8145294882556`", "2.701065784707034`", "0", 
      "2.701065784707034`", "1.26027845342907`", "0.324824540919674`", 
      RowBox[{"-", "0.03162351975467188`"}], "0.7608210560926453`", 
      "1.585102994348744`", "0.7291975363379734`", "1.025062009409755`", 
      "1.0220298669926893`", "976.2201547691889`"},
     {"1851", "5.593475504335249`", "100.38254373711928`", 
      "69.38494813377629`", "13.48194555088094`", "3.697546891081009`", 
      "464.94839350225755`", "583.2022581018492`", "2.7527398587121894`", "0",
       "2.7527398587121894`", "1.271494749788613`", "0.3272010122429095`", 
      RowBox[{"-", "0.03190496451676804`"}], "0.7663873517204286`", 
      "1.5986957620315225`", "0.7344823872036605`", "1.0342161262701386`", 
      "1.0311275972747702`", "985.6905942247861`"},
     {"1852", "5.493536603638077`", "101.57619217961381`", 
      "70.4453953419607`", "14.676563109296321`", "4.384738001484479`", 
      "469.08429782175534`", "586.0804385442266`", "2.8001410972036482`", "0",
       "2.8001410972036482`", "1.2854965119746404`", "0.3296330459388397`", 
      RowBox[{"-", "0.03225630354179484`"}], "0.7720837884482437`", 
      "1.6151295579134801`", "0.7398274849064488`", "1.0453598984946681`", 
      "1.0421937220485866`", "994.4587113821214`"},
     {"1853", "5.3903165346821895`", "102.74741079396739`", 
      "71.48196252137024`", "15.814559634098929`", "4.899529264693514`", 
      "472.9448714035301`", "589.3234936043904`", "2.844011170436862`", "0", 
      "2.844011170436862`", "1.3012504909915368`", "0.3321154120141034`", 
      RowBox[{"-", "0.032651610043544485`"}], "0.77789811631166`", 
      "1.6333659030056402`", "0.7452465062681155`", "1.057929688794091`", 
      "1.054668593190974`", "1002.6431273754839`"},
     {"1854", "5.283960056755419`", "103.89551819309098`", 
      "72.49425166855347`", "16.897647810383507`", "5.283455176985301`", 
      "476.5722820384133`", "592.8353783787595`", "2.884906570783248`", "0", 
      "2.884906570783248`", "1.3180217310282676`", "0.3346437363298706`", 
      RowBox[{"-", "0.03307244215343959`"}], "0.7838200899735651`", 
      "1.6526654673581382`", "0.7507476478201255`", "1.0715117013284428`", 
      "1.0681423300213453`", "1010.3332379214362`"},
     {"1855", "5.17460640645549`", "105.0198632035865`", "73.48182178892948`",
       "17.927377174024308`", "5.567557138491223`", "479.99802849443154`", 
      "596.5429614736864`", "2.923243614551756`", "0", "2.923243614551756`", 
      "1.335290071528929`", "0.33721428770118556`", 
      RowBox[{"-", "0.03350574774988713`"}], "0.7898409700570925`", 
      "1.6725043592301145`", "0.7563352223072054`", "1.0858012009006666`", 
      "1.082313598989517`", "1017.5958204081949`"},
     {"1856", "5.062387020049976`", "106.11982318196485`", 
      "74.44420619821251`", "18.905141514193424`", "5.7749371740984365`", 
      "483.24551725786927`", "600.3905457777043`", "2.959334009862367`", "0", 
      "2.959334009862367`", "1.3526894686291167`", "0.33982381772233805`", 
      RowBox[{"-", "0.0339423418822553`"}], "0.7959531479762162`", 
      "1.6925132863514547`", "0.7620108060939609`", "1.10057280248062`", 
      "1.0969598029313992`", "1024.4804965866829`"},
     {"1857", "4.947442294089372`", "107.1948059701139`", 
      "75.38092889010993`", "19.8321966611349`", "5.922768057071107`", 
      "486.3321087678298`", "604.3355494400574`", "2.9934121969970553`", "0", 
      "2.9934121969970553`", "1.3699641290174296`", "0.3424694417388477`", 
      RowBox[{"-", "0.034375806060396794`"}], "0.8021498671420956`", 
      "1.7124335707562772`", "0.7677740610816988`", "1.1156588555480342`", 
      "1.1119155070206768`", "1031.0240705877993`"},
     {"1858", "4.829909812121304`", "108.2442492902235`", 
      "76.29151456731815`", "20.70967661675859`", "6.02382356818899`", 
      "489.27067323188925`", "608.3452015779486`", "3.0256556800698995`", "0",
       "3.0256556800698995`", "1.3869369126293232`", "0.3451485509918077`", 
      RowBox[{"-", "0.03480169539967898`"}], "0.8084250171829561`", 
      "1.732085463621131`", "0.7736233217832771`", "1.1309337324295725`", 
      "1.1270568171003215`", "1037.2538272516053`"},
     {"1859", "4.709930351085641`", "109.26762144323155`", 
      "77.17549719975139`", "21.538611084413176`", "6.0876271299308105`", 
      "492.07076604672693`", "612.3940571547943`", "3.0562001021026424`", "0",
       "3.0562001021026424`", "1.4034866292433519`", "0.3478587479123787`", 
      RowBox[{"-", "0.035216968936137495`"}], "0.8147729823874627`", 
      "1.7513453771557306`", "0.7795560134513252`", "1.1463024062932543`", 
      "1.142290054186206`", "1043.1900240190612`"},
     {"1860", "4.587650336469575`", "110.26442253953527`", 
      "78.03242702135407`", "22.319942375157332`", "6.121304541223305`", 
      "494.73950566666997`", "616.4621478738305`", "3.0851503338618156`", "0",
       "3.0851503338618156`", "1.4195317636782454`", "0.3505977985228165`", 
      RowBox[{"-", "0.03561958125120773`"}], "0.8211885302159126`", 
      "1.770129562201062`", "0.7855689489647049`", "1.1616921488647785`", 
      "1.157543538547583`", "1048.8477520133404`"},
     {"1861", "4.463219512070528`", "111.23418522243172`", 
      "78.86187544484268`", "23.05453995923838`", "6.130212332389102`", 
      "497.2822221483019`", "620.5336142983604`", "3.1125885674480416`", "0", 
      "3.1125885674480416`", "1.4350188317674546`", "0.353363597379191`", 
      RowBox[{"-", "0.03600819029417636`"}], "0.8276667291872368`", 
      "1.7883824291466457`", "0.7916585388930605`", "1.177046494903412`", 
      "1.172761625379881`", "1054.2383109544`"},
     {"1862", "4.336805563854133`", "112.17647856866085`", 
      "79.66344211137151`", "23.743217429118545`", "6.118404099373526`", 
      "499.7029513979245`", "624.5956960845313`", "3.1385803949223354`", "0", 
      "3.1385803949223354`", "1.4499140736663216`", "0.35615414178054994`", 
      RowBox[{"-", "0.03638194894660574`"}], "0.8342028884703506`", 
      "1.8060682154468717`", "0.7978209395237449`", "1.1923208568317802`", 
      "1.1879003753793007`", "1059.3702569636`"},
     {"1863", "4.208583732976364`", "113.09090973137725`", 
      "80.43675877696411`", "24.386744837044628`", "6.088970898542722`", 
      "502.00479343332876`", "628.6379884833841`", "3.163179182025421`", "0", 
      "3.163179182025421`", "1.4641975456213516`", "0.3589675128111631`", 
      RowBox[{"-", "0.036740356770135686`"}], "0.8407925134803061`", 
      "1.8231650584325148`", "0.8040521567101705`", "1.207479344191539`", 
      "1.202924417008535`", "1064.250162078657`"},
     {"1864", "4.078743351906061`", "113.97712700307619`", 
      "81.18149406131066`", "24.985861448899378`", "6.044293796135566`", 
      "504.19018549882185`", "632.6518932105796`", "3.1864293632992466`", "0",
       "3.1864293632992466`", "1.477858930482405`", "0.3618018613972119`", 
      RowBox[{"-", "0.03708315488181825`"}], "0.8474312732195389`", 
      "1.8396607918796168`", "0.8103481183377207`", "1.2224924577489862`", 
      "1.217804672657549`", "1068.8831932575024`"},
     {"1865", "3.9474887409228354`", "114.83482307307979`", 
      "81.89735795964077`", "25.541287480906036`", "5.986230728043301`", 
      "506.26110843106994`", "636.6302127249701`", "3.2083689077251702`", "0",
       "3.2083689077251702`", "1.490894584043523`", "0.3646553981283403`", 
      RowBox[{"-", "0.03741025183946554`"}], "0.854114976437373`", 
      "1.8555499821718633`", "0.8167047245979074`", "1.237335425007764`", 
      "1.2325167178149772`", "1073.2735498738684`"},
     {"1866", "3.8150398491436075`", "115.66373842413952`", 
      "82.58410618199673`", "26.05373493608601`", "5.916255241757343`", 
      "508.21924397337966`", "640.5668498554579`", "3.229031180640562`", "0", 
      "3.229031180640562`", "1.5033054668192833`", "0.36752638590751524`", 
      RowBox[{"-", "0.03772167174477637`"}], "0.8608395544141372`", 
      "1.8708318527267986`", "0.8231178826693608`", "1.25198700511779`", 
      "1.2470396031771196`", "1077.4247972235648`"},
     {"1867", "3.6816442945505674`", "116.46366734520882`", 
      "83.24154696139102`", "26.52392092818338`", "5.835563139539823`", 
      "510.06610756372305`", "644.4565849483771`", "3.2484464868171004`", "0",
       "3.2484464868171004`", "1.515095716048779`", "0.3704131348224225`", 
      RowBox[{"-", "0.038017518411365796`"}], "0.8676010489486808`", 
      "1.8855088508712015`", "0.829583530537315`", "1.266428640877157`", 
      "1.2613550189573162`", "1081.3401480350929`"},
     {"1868", "3.5475700628633677`", "117.23446235758739`", 
      "83.86954605735254`", "26.9525781062498`", "5.745150469283625`", 
      "511.80314617987335`", "648.2949116154088`", "3.266643202260138`", "0", 
      "3.266643202260138`", "1.5262716765966737`", "0.37331399876133764`", 
      RowBox[{"-", "0.03829795104766308`"}], "0.8743956044318894`", 
      "1.8995856753580114`", "0.8360976533842263`", "1.280643869335377`", 
      "1.2754467141313748`", "1085.0226699013315`"},
     {"1869", "3.4131117863118017`", "117.97604000537764`", 
      "84.46803304724283`", "27.340466190321692`", "5.645873978006811`", 
      "513.431822410349`", "652.0779149937814`", "3.2836487316826566`", "0", 
      "3.2836487316826566`", "1.5368412581325122`", "0.37622737338844864`", 
      RowBox[{"-", "0.038563168126942465`"}], "0.8812194631043788`", 
      "1.9130686315209608`", "0.8426562949774363`", "1.2946179208717667`", 
      "1.2893001013849124`", "1088.47546350994`"},
     {"1870", "3.278593814927751`", "118.68838731328566`", 
      "85.0370082177096`", "27.688383777625678`", "5.538497838208818`", 
      "514.9536863362298`", "655.802182358561`", "3.299490316819421`", "0", 
      "3.299490316819421`", "1.5468135289313214`", "0.37915169526529924`", 
      RowBox[{"-", "0.038813397194770324`"}], "0.8880689629986941`", 
      "1.9259652241966205`", "0.8492555658039238`", "1.3083374608942457`", 
      "1.3029020027818774`", "1091.7018150328072`"},
     {"1871", "3.144371499537476`", "119.37156852318263`", 
      "85.57654967916783`", "27.99717998380323`", "5.423729737384626`", 
      "516.3704371129384`", "659.4647382909583`", "3.3141957221789724`", "0", 
      "3.3141957221789724`", "1.5561984793129877`", "0.3820854419394797`", 
      RowBox[{"-", "0.03904888893311095`"}], "0.8949405381470454`", 
      "1.9382839212524674`", "0.8558916492139345`", "1.3217904390875275`", 
      "1.3162405014027887`", "1094.7053266794294`"},
     {"1872", "3.010843488669815`", "120.02573450276068`", 
      "86.0868231880286`", "28.26776909454605`", "5.302252083142844`", 
      "517.6839880578782`", "663.0629984836659`", "3.3277939465112083`", "0", 
      "3.3277939465112083`", "1.565006912213488`", "0.38502713293437807`", 
      RowBox[{"-", "0.03926991441448672`"}], "0.9018307208995556`", 
      "1.950034045147866`", "0.8625608064850689`", "1.33496602235173`", 
      "1.3293048756481667`", "1097.4900546827018`"},
     {"1873", "2.8784483989751606`", "120.65113143065244`", 
      "86.56809118463326`", "28.501143803544785`", "5.1747454669843576`", 
      "518.8965210752149`", "666.5947390927395`", "3.3403158161188182`", "0", 
      "3.3403158161188182`", "1.5732504274037888`", "0.3879753315770403`", 
      RowBox[{"-", "0.03947676470599104`"}], "0.9087361462055698`", 
      "1.961225758980829`", "0.8692593814995787`", "1.3478545954444117`", 
      "1.342085600451423`", "1100.0606246794555`"},
     {"1874", "2.747671218916127`", "121.24811087306068`", 
      "87.02072323915375`", "28.698389859673032`", "5.041908884366354`", 
      "520.0105420456539`", "670.058077619511`", "3.3517945841077195`", "0", 
      "3.3517945841077195`", "1.5809414728504874`", "0.3909286475893528`", 
      RowBox[{"-", "0.0396697521580545`"}], "0.915653557682859`", 
      "1.9718701204398401`", "0.8759838055248046`", "1.3604478128523076`", 
      "1.3545743990438868`", "1102.4223491367864`"},
     {"1875", "2.61905009848299`", "121.81714133578446`", 
      "87.44520799679339`", "28.86070223820222`", "4.904477697777641`", 
      "521.0289384579578`", "673.4514634342106`", "3.3622665505874707`", "0", 
      "3.3622665505874707`", "1.5880934497763848`", "0.39388574045646807`", 
      RowBox[{"-", "0.03984921304067587`"}], "0.9225798155073225`", 
      "1.981979190232853`", "0.8827306024666466`", "1.3727386942538002`", 
      "1.36676433805247`", "1104.5813495308705`"},
     {"1876", "2.49317980885848`", "122.35882056802386`", "87.8421658796188`",
       "28.989401895040885`", "4.76323905119668`", "521.9550365832803`", 
      "676.773676603307`", "3.371771677669623`", "0", "3.371771677669623`", 
      "1.5947208602779797`", "0.3968453235806273`", 
      RowBox[{"-", "0.04001551124751203`"}], "0.9295119061422897`", 
      "1.991566183858607`", "0.8894963948947777`", "1.3847217578741917`", 
      "1.3786499600889623`", "1106.5446775565542`"},
     {"1877", "2.3707260877931797`", "122.87389098343056`", 
      "88.21236498699062`", "29.085956192659808`", "4.619048358523043`", 
      "522.792669711004`", "680.0238336786542`", "3.380354318847403`", "0", 
      "3.380354318847403`", "1.6008394941409936`", "0.39980616928770785`", 
      RowBox[{"-", "0.04016904298354397`"}], "0.9364469540651172`", 
      "2.0006456634287013`", "0.8962779110815733`", "1.396393188717428`", 
      "1.3902274510422974`", "1108.3204597873284`"},
     {"1878", "2.2524264107158243`", "123.36325524871633`", 
      "88.5567371523735`", "29.151999114716176`", "4.4728430719407895`", 
      "523.5462437771469`", "683.2014006491489`", "3.3880639231128473`", "0", 
      "3.3880639231128473`", "1.6064666505925067`", "0.40276711474073285`", 
      RowBox[{"-", "0.04031024232938923`"}], "0.9433822356181213`", 
      "2.0092337653332395`", "0.9030719932887321`", "1.407751041446085`", 
      "1.4014948418148605`", "1109.9180368075513`"},
     {"1879", "2.1391012610598192`", "123.82799432130156`", 
      "88.87639651217465`", "29.189354261251967`", "4.3256572018293715`", 
      "524.2208114859576`", "686.306211779917`", "3.3949558286029236`", "0", 
      "3.3949558286029236`", "1.6116213909162123`", "0.4057270687993746`", 
      RowBox[{"-", "0.040439587580046635`"}], "0.9503151950752653`", 
      "2.0173484597155866`", "0.9098756074952187`", "1.418795474086531`", 
      "1.4124522407779412`", "1111.3481203502301`"},
     {"1880", "2.0316645083183946`", "124.26938774211298`", 
      "89.17266038558758`", "29.2000603366849`", "4.178636297351923`", 
      "524.8221539511374`", "689.338494511371`", "3.401092135748298`", "0", 
      "3.401092135748298`", "1.6163248240727883`", "0.40868501993017553`", 
      RowBox[{"-", "0.04055760841182159`"}], "0.9572434631698947`", 
      "2.025009844002964`", "0.9166858547580732`", "1.4295290148596238`", 
      "1.4231020991935917`", "1112.6229663764113`"},
     {"1881", "1.9311327576396158`", "124.68893596004693`", 
      "89.4470722344942`", "29.186398810894882`", "4.033052601435253`", 
      "525.3568687962713`", "692.2989004858829`", "3.406542648803185`", "0", 
      "3.406542648803185`", "1.6206004258609878`", "0.41164004526045483`", 
      RowBox[{"-", "0.040664893890871356`"}], "0.9641648783012705`", 
      "2.0322404711214426`", "0.9234999844103992`", "1.439956863307788`", 
      "1.433449510818607`", "1113.7565618480953`"},
     {"1882", "1.8386450788853959`", "125.08838694355592`", 
      "89.70142902833435`", "29.15092666161388`", "3.890323286329137`", 
      "525.8324751092333`", "695.1885426696405`", "3.4113859907813335`", "0", 
      "3.4113859907813335`", "1.6244743973050395`", "0.4145913209266129`", 
      RowBox[{"-", "0.040762101466035934`"}], "0.9710775107729106`", 
      "2.0390657182316523`", "0.9303154093068746`", "1.4500872293752234`", 
      "1.443502549275733`", "1114.7648472315748`"},
     {"1883", "1.755471588873135`", "125.46976465715439`", 
      "89.93781051323586`", "29.096510973503587`", "3.7520282593894048`", 
      "526.2575235926832`", "698.0090396531376`", "3.4157107710473835`", "0", 
      "3.4157107710473835`", "1.6279760653487767`", "0.4175381338588818`", 
      RowBox[{"-", "0.04084996702325`"}], "0.9779796903954493`", 
      "2.0455141992076586`", "0.9371297233721994`", "1.4599317155763247`", 
      "1.453272648191308`", "1115.6659500164885`"},
     {"1884", "1.6830339477881047`", "125.83540199179424`", 
      "90.15861305539093`", "29.026368746768483`", "3.6199309832016704`", 
      "526.6417239665553`", "700.7625668298396`", "3.41961692567694`", "0", 
      "3.41961692567694`", "1.6311383287561199`", "0.4204798951429847`", 
      RowBox[{"-", "0.04092931607429463`"}], "0.9848700377830166`", 
      "2.0516182238991045`", "0.943940721708722`", "1.469505744175066`", 
      "1.4627750260736112`", "1116.4804548090974`"},
     {"1885", "1.6229247003392298`", "126.18797789807206`", 
      "90.3665877966238`", "28.944111515696715`", "3.496001597965365`", 
      "526.996087997758`", "703.4519154484092`", "3.4232172095602205`", "0", 
      "3.4232172095602205`", "1.6339981564452366`", "0.4234161551618784`", 
      RowBox[{"-", "0.04100107626124036`"}], "0.99174749981902`", 
      "2.057414311607115`", "0.9507464235577796`", "1.4788290371659532`", 
      "1.472029163373042`", "1117.231706555247`"},
     {"1886", "1.5769302085419008`", "126.53055950272892`", 
      "90.56488392483298`", "28.85379573223943`", "3.3824430920349378`", 
      "527.3330914412363`", "706.0805601903439`", "3.4266388673427173`", "0", 
      "3.4266388673427173`", "1.6365971443098664`", "0.4263466207253348`", 
      RowBox[{"-", "0.041066291328478596`"}], "0.9986113897779483`", 
      "2.062943765035201`", "0.9575450984494697`", "1.4879261555920953`", 
      "1.4810593383272683`", "1117.946153855421`"},
     {"1887", "1.5470638287152425`", "126.86665143451043`", 
      "90.75709935162149`", "28.759981737746653`", "3.281723023661847`", 
      "527.6668647369404`", "708.6527361203276`", "3.43002557417688`", "0", 
      "3.43002557417688`", "1.638982141678479`", "0.42927117446939944`", 
      RowBox[{"-", "0.04112613684213945`"}], "1.005461432763799`", 
      "2.0682533161478784`", "0.9643352959216596`", "1.4968271092147112`", 
      "1.489895231980062`", "1118.6537532423138`"},
     {"1888", "1.5355943486399903`", "127.20025132941903`", 
      "90.9473377304788`", "28.667799873608626`", "3.1966088206529077`", 
      "528.0134069435594`", "711.1735266614121`", "3.4335395776844164`", "0", 
      "3.4335395776844164`", "1.641205956923496`", "0.4321898968217895`", 
      RowBox[{"-", "0.0411819378955814`"}], "1.0122978171585846`", 
      "2.0733958537452857`", "0.9711158792630031`", "1.505568049013285`", 
      "1.4985726148170013`", "1119.388422720346`"},
     {"1889", "1.5450882624363182`", "127.53591452229573`", 
      "91.14027491372774`", "28.58302756954999`", "3.130210203841764`", 
      "528.3908363988153`", "713.6489633326346`", "3.4373641609104646`", "0", 
      "3.4373641609104646`", "1.643328152771197`", "0.43510309086112875`", 
      RowBox[{"-", "0.041235189065694206`"}], "1.0191212528489346`", 
      "2.0784312436323256`", "0.9778860637832404`", "1.5141920553615935`", 
      "1.5071341271317629`", "1120.1885731654884`"},
     {"1890", "1.5784597288373154`", "127.87882959433227`", 
      "91.34123656436597`", "28.512179458070083`", "3.0860301218796664`", 
      "528.819684928048`", "716.0861390757964`", "3.441706471827352`", "0", 
      "3.441706471827352`", "1.6454159481753923`", "0.438011310503479`", 
      RowBox[{"-", "0.04128757704315159`"}], "1.025933037246067`", 
      "2.083427258678871`", "0.9846454602029155`", "1.522750042123439`", 
      "1.5156301728184325`", "1121.0977320474617`"},
     {"1891", "1.6390305224320816`", "128.2349069479856`", 
      "91.5562891561188`", "28.46261320530515`", "3.068026145762772`", 
      "529.3232446445724`", "718.4933371843207`", "3.446800778939815`", "0", 
      "3.446800778939815`", "1.6475452455121624`", "0.4409153925156471`", 
      RowBox[{"-", "0.04134100640728117`"}], "1.0327351302690317`", 
      "2.0884606380278097`", "0.9913941238617505`", "1.5313018011307078`", 
      "1.5241199501065439`", "1122.1652786464936`"},
     {"1892", "1.7306120179064175`", "128.61088519706425`", 
      "91.7923492915958`", "28.44265713495065`", "3.0806874774662734`", 
      "529.9279882904771`", "720.8801781329644`", "3.4529123213119375`", "0", 
      "3.4529123213119375`", "1.6498018100873546`", "0.44381649300096393`", 
      RowBox[{"-", "0.04139762922284`"}], "1.0395302398036141`", 
      "2.0936183030883186`", "0.9981326105807742`", "1.5399172199878137`", 
      "1.5326726509631885`", "1123.4473351758115`"},
     {"1893", "1.857590377068077`", "129.01445606794996`", 
      "92.0573120467701`", "28.461760342275163`", "3.1291269778729762`", 
      "530.6640646242682`", "723.2577879047114`", "3.460341708627175`", "0", 
      "3.460341708627175`", "1.6522826290920416`", "0.44671612907910324`", 
      RowBox[{"-", "0.041459879139585806`"}], "1.0463219193269904`", 
      "2.098998758171145`", "1.0048620401874047`", "1.5486777139504093`", 
      "1.5413688683437636`", "1125.0078170034487`"},
     {"1894", "2.0130576514804597`", "129.45181018941622`", 
      "92.35752062217706`", "28.527289307365123`", "3.2158842318129244`", 
      "531.5539135401714`", "725.6389904241354`", "3.469309410747216`", "0", 
      "3.469309410747216`", "1.6550907735008178`", "0.44961614868913646`", 
      RowBox[{"-", "0.041530342464530606`"}], "1.0531144971788604`", 
      "2.1047069221899544`", "1.0115841547143298`", "1.5576742242577601`", 
      "1.550298599192524`", "1126.8942967051635`"},
     {"1895", "2.0047642958439646`", "129.88736236507253`", 
      "92.65625330077994`", "28.59222981929156`", "3.290120718327469`", 
      "532.4273753928716`", "728.0373516036002`", "3.478097379291219`", "0", 
      "3.478097379291219`", "1.658222205069745`", "0.45251742634659536`", 
      RowBox[{"-", "0.041608917868093946`"}], "1.0599100216953155`", 
      "2.1107396314163402`", "1.0183011038272216`", "1.5669424573328397`", 
      "1.5594971381701086`", "1128.7460358328879`"},
     {"1896", "1.9954616361872162`", "130.32089328638105`", 
      "92.95330800554629`", "28.656373601512943`", "3.3536165293482845`", 
      "533.2856006121885`", "730.4482928073651`", "3.486718020233467`", "0", 
      "3.486718020233467`", "1.6615866447842351`", "0.45541973371931593`", 
      RowBox[{"-", "0.04169334002534427`"}], "1.0667079580647993`", 
      "2.117006378503551`", "1.025014618039455`", "1.5764252881648593`", 
      "1.5689079098708645`", "1130.5654732978398`"},
     {"1897", "1.9863070602335433`", "130.75243514195603`", 
      "93.24873618862974`", "28.719822512587267`", "3.4081591931090975`", 
      "534.1305622256821`", "732.8679451544539`", "3.4951918891154543`", "0", 
      "3.4951918891154543`", "1.6651156381243484`", "0.45832286454682375`", 
      RowBox[{"-", "0.04178189124218173`"}], "1.0735078231732236`", 
      "2.123438502671172`", "1.031725931931042`", "1.5860781575433929`", 
      "1.5784867956347854`", "1132.356791918446`"},
     {"1898", "1.9771313482498054`", "131.18198334635693`", 
      "93.54254662691842`", "28.782613100173243`", "3.455184892331406`", 
      "534.9637371551801`", "735.2931327622077`", "3.5035344370703414`", "0", 
      "3.5035344370703414`", "1.6687578415102635`", "0.4612266365224129`", 
      RowBox[{"-", "0.04187328318053601`"}], "1.0803091900122714`", 
      "2.1299844780326764`", "1.0384359068317355`", "1.5958667484704876`", 
      "1.5881998247381073`", "1134.1231227689818`"},
     {"1899", "1.9679310410408228`", "131.6095325604869`", 
      "93.83474372764935`", "28.844768305256775`", "3.4958843738239884`", 
      "535.7863381566171`", "737.7212324461676`", "3.5117583717075003`", "0", 
      "3.5117583717075003`", "1.6724748091368826`", "0.4641308861466581`", 
      RowBox[{"-", "0.0419665511395716`"}], "1.0871116756250236`", 
      "2.136605695283541`", "1.045145124485452`", "1.6057645586713287`", 
      "1.5980207666603345`", "1135.8670368920284`"},
     {"1900", "1.9587044728768506`", "132.03507708177713`", 
      "94.12532877781398`", "28.906301049660566`", "3.53124634620015`", 
      "536.5993624448517`", "740.1500744376092`", "3.51987416604307`", "0", 
      "3.51987416604307`", "1.6762378643803522`", "0.4670354654494931`", 
      RowBox[{"-", "0.04206097555149898`"}], "1.0939149334282394`", 
      "2.1432733298298454`", "1.0518539578767405`", "1.6157511128964637`", 
      "1.6079293587909496`", "1137.5906483830859`"},
     {"1901", "1.949455358894064`", "132.45861201380472`", 
      "94.4143017988775`", "28.967218105205472`", "3.562094199501773`", 
      "537.4036353067895`", "742.5778613311566`", "3.527890511910479`", "0", 
      "3.527890511910479`", "1.6800257171730097`", "0.469940239345047`", 
      RowBox[{"-", "0.04215602219558821`"}], "1.1007186470167154`", 
      "2.1499659565180567`", "1.0585626248211273`", "1.6258105848834548`", 
      "1.6179099409642168`", "1139.2957068503938`"},
     {"1902", "1.9401853648222083`", "132.88013282122873`", 
      "94.70166158335459`", "29.027521284632506`", "3.589114193563508`", 
      "538.1998390721794`", "745.0031023219531`", "3.535814622980104`", "0", 
      "3.535814622980104`", "1.6838226504962632`", "0.47284508348363913`", 
      RowBox[{"-", "0.042251296692766484`"}], "1.1075225251321152`", 
      "2.1566677339799023`", "1.0652712284393488`", "1.6359307352020676`", 
      "1.6279504033231904`", "1140.9836588330204`"},
     {"1903", "1.930896155921412`", "133.29963532989643`", 
      "94.98740607458367`", "29.087208797414`", "3.612879173207018`", 
      "538.9885385645011`", "747.4245592487845`", "3.543652499626127`", "0", 
      "3.543652499626127`", "1.6876171398017226`", "0.47574988247774114`", 
      RowBox[{"-", "0.04234650986346189`"}], "1.1143262975077255`", 
      "2.1633670222794636`", "1.0719797876442636`", "1.6461020896922975`", 
      "1.6380413728296948`", "1142.6557017567425`"},
     {"1904", "1.9215893969821864`", "133.71711572690063`", 
      "95.27153265697561`", "29.14627628057167`", "3.6338680663232523`", 
      "539.7702019201712`", "749.8412024563662`", "3.551409145161571`", "0", 
      "3.551409145161571`", "1.6914008045690465`", "0.47865452844435497`", 
      RowBox[{"-", "0.04244145141958305`"}], "1.1211297114543364`", 
      "2.1700553330134014`", "1.0786882600347534`", "1.6563173051100029`", 
      "1.64817558514529`", "1144.312828070763`"},
     {"1905", "1.912267009675274`", "134.13257061652143`", 
      "95.5540384352848`", "29.20471765364536`", "3.6524819963810264`", 
      "540.5452178912326`", "752.2521746582277`", "3.5590887450920485`", "0", 
      "3.5590887450920485`", "1.695167613703061`", "0.48155891980791754`", 
      RowBox[{"-", "0.04253597002595727`"}], "1.1279325290563427`", 
      "2.1767265335109784`", "1.0853965590303853`", "1.6665706792648636`", 
      "1.6583473998170186`", "1145.9558619294132`"},
     {"1906", "1.9029296345575868`", "134.54599674193315`", 
      "95.83492011671792`", "29.26252534826543`", "3.669057128593658`", 
      "541.3139085249102`", "754.6567613400932`", "3.5666947989021`", "0", 
      "3.5666947989021`", "1.698913283872599`", "0.4844629603078725`", 
      RowBox[{"-", "0.042629958203156196`"}], "1.134734524847227`", 
      "2.1833762441804714`", "1.0921045666440707`", "1.6768577727281926`", 
      "1.6685524258485456`", "1147.5854860728095`"},
     {"1907", "1.8935798338567797`", "134.9573914028543`", 
      "96.1141745706663`", "29.31969130321489`", "3.6838761324905986`", 
      "542.076542598626`", "757.054366351592`", "3.5742302580152163`", "0", 
      "3.5742302580152163`", "1.7026348258620725`", "0.4873665581838236`", 
      RowBox[{"-", "0.04272334094432878`"}], "1.141535483900982`", 
      "2.190001384045896`", "1.098812142956653`", "1.687175116932819`", 
      "1.6787872327876732`", "1149.2022703090872`"},
     {"1908", "1.8842188882170627`", "135.36675217711345`", 
      "96.3917986394876`", "29.376206935393103`", "3.697176779080415`", 
      "542.8333437204747`", "759.444492016293`", "3.5816976098652757`", "0", 
      "3.5816976098652757`", "1.7063302033877559`", "0.490269625506898`", 
      RowBox[{"-", "0.042816067154053665`"}], "1.1483352002659954`", 
      "2.1965998288946538`", "1.1055191331119418`", "1.697519989572208`", 
      "1.6890491285576967`", "1150.8066886874062`"},
     {"1909", "1.8748482074271864`", "135.77407694875342`", 
      "96.66778924227381`", "29.432063431243073`", "3.709159424676505`", 
      "543.5844982363469`", "761.8267226423894`", "3.589098959264735`", "0", 
      "3.589098959264735`", "1.7099980764992782`", "0.4931720776199689`", 
      RowBox[{"-", "0.042908103209644596`"}], "1.15513347565391`", 
      "2.203170154119247`", "1.1122253724442654`", "1.7078902409889285`", 
      "1.6993359876209295`", "1152.3991362610554`"},
     {"1910", "1.8654695840133517`", "136.17936399123155`", 
      "96.94214351743094`", "29.487252045144544`", "3.719993278165119`", 
      "544.3301620213722`", "764.2007109362441`", "3.596436098051598`", "0", 
      "3.596436098051598`", "1.713637609993257`", "0.4960738326775088`", 
      RowBox[{"-", "0.0429994281537722`"}], "1.1619301183618438`", 
      "2.209711442670766`", "1.1189306902080716`", "1.7182841605953632`", 
      "1.7096461188372465`", "1153.9799434853091`"},
     {"1911", "1.8560831466504815`", "136.58261160588847`", 
      "97.21485849302135`", "29.541763769538488`", "3.7298210359640467`", 
      "545.0704640938125`", "766.5661668135698`", "3.603710542901923`", "0", 
      "3.603710542901923`", "1.7172483300335577`", "0.4989748112562729`", 
      RowBox[{"-", "0.04309003009670978`"}], "1.1687249423605122`", 
      "2.216223141289831`", "1.1256349122638023`", "1.728700373774784`", 
      "1.7199781634382507`", "1155.5493838788825`"},
     {"1912", "1.8466912006860012`", "136.98381859495734`", 
      "97.485931607491`", "29.5955900602088`", "3.7387637760160684`", 
      "545.8055132280732`", "768.9228479943913`", "3.6109236021966713`", "0", 
      "3.6109236021966713`", "1.7208300182606846`", "0.5018749360348098`", 
      RowBox[{"-", "0.04317990355927469`"}], "1.175517766543561`", 
      "2.2227049542954944`", "1.1323378629842864`", "1.739137762357677`", 
      "1.7303310164051955`", "1157.1076880435153`"},
     {"1913", "1.8372948994980485`", "137.38298401125445`", 
      "97.75536047608877`", "29.64872258360667`", "3.7469241296514166`", 
      "546.5354003900013`", "771.2705523980396`", "3.6180764013962654`", "0", 
      "3.6180764013962654`", "1.7243826342443545`", "0.5047741315337153`", 
      RowBox[{"-", "0.04326904752697061`"}], "1.1823084141191758`", 
      "2.22915676577807`", "1.1390393665922052`", "1.7495954044379118`", 
      "1.7407037668587417`", "1158.6550488268028`"},
     {"1914", "1.827895523730834`", "137.78010718584463`", 
      "98.02314293823498`", "29.701153309796187`", "3.7543892665045435`", 
      "547.2602018897803`", "773.6091117288175`", "3.625169915200237`", "0", 
      "3.625169915200237`", "1.7279062582412505`", "0.5076723238938872`", 
      RowBox[{"-", "0.043357464013637256`"}], "1.1890967120906977`", 
      "2.2355785821351377`", "1.1457392480770605`", "1.760072527501815`", 
      "1.7510956517586276`", "1160.1916280063344`"},
     {"1915", "1.8184942267624955`", "138.17518770039416`", 
      "98.28927704322983`", "29.752874516963274`", "3.7612333157830795`", 
      "547.9799817657704`", "775.9383861524551`", "3.632204991914747`", "0", 
      "3.632204991914747`", "1.7314010496626544`", "0.5105694406919801`", 
      RowBox[{"-", "0.04344515701930003`"}], "1.1958824908243737`", 
      "2.2419704903546345`", "1.1524373338050737`", "1.770568472637758`", 
      "1.7615060204475463`", "1161.7175613434333`"},
     {"1916", "1.809091264064412`", "138.56822519206176`", 
      "98.55376085989909`", "29.803878566882375`", "3.767519175421412`", 
      "548.6947929836647`", "778.2582598503358`", "3.6391823660516107`", "0", 
      "3.6391823660516107`", "1.734867216710905`", "0.5134654107804562`", 
      RowBox[{"-", "0.043532131768273245`"}], "1.2026655836747133`", 
      "2.248332627491361`", "1.15913345190644`", "1.781082666669442`", 
      "1.7719343071482836`", "1163.2329611253692`"},
     {"1917", "1.799688685982246`", "138.95921974352922`", 
      "98.8165928870342`", "29.854158435607353`", "3.7733007618957375`", 
      "549.4046810174666`", "780.568637232958`", "3.6461026940159855`", "0", 
      "3.6461026940159855`", "1.7383049953861578`", "0.5163601641595698`", 
      RowBox[{"-", "0.04361839418238757`"}], "1.2094458266846453`", 
      "2.2546651595457274`", "1.1658274325022577`", "1.7916146011333813`", 
      "1.7823800100607752`", "1164.7379237570292`"},
     {"1918", "1.7902873890139075`", "139.34817163227376`", 
      "99.07777180074005`", "29.90370739679799`", "3.7786240971201375`", 
      "550.1096841163319`", "782.8694399280731`", "3.652966557258425`", "0", 
      "3.652966557258425`", "1.741714635154563`", "0.5192536318740415`", 
      RowBox[{"-", "0.043703950521368926`"}], "1.2162230583435019`", 
      "2.2609682670286047`", "1.1725191078221329`", "1.8021638166493537`", 
      "1.7928426760032297`", "1166.2325303266236`"},
     {"1919", "1.7808885255983007`", "139.73508138618655`", 
      "99.33729651646871`", "29.952519103402597`", "3.783528600090518`", 
      "550.8098347955483`", "785.1606041624026`", "3.659774477287587`", "0", 
      "3.659774477287587`", "1.7450963887946012`", "0.5221457459227776`", 
      RowBox[{"-", "0.04378880712805787`"}], "1.2229971193755589`", 
      "2.267242134717379`", "1.179208312247501`", "1.8127298905967604`", 
      "1.8033218881998294`", "1167.7168497665625`"},
     {"1920", "1.7714929931725674`", "140.11994972816285`", 
      "99.5951661353705`", "30.000587520186194`", "3.7880480335256292`", 
      "551.5051606066452`", "787.4420785884031`", "3.6665269235632327`", "0", 
      "3.6665269235632327`", "1.7484505057043487`", "0.5250364391828413`", 
      RowBox[{"-", "0.0438729702604722`"}], "1.2297678525619573`", 
      "2.27348694488719`", "1.1858948823014852`", "1.8233124278540045`", 
      "1.8138172570609534`", "1169.1909404860878`"},
     {"1921", "1.7621010472080871`", "140.50277743660436`", 
      "99.851379803188`", "30.047906745359416`", "3.7922111915037986`", 
      "552.1956843660556`", "789.7138224385341`", "3.6732243160738562`", "0", 
      "3.6732243160738562`", "1.7517772272417087`", "0.5279256453413667`", 
      RowBox[{"-", "0.04395644597488179`"}], "1.2365351025812292`", 
      "2.2797028725830755`", "1.1925786566063474`", "1.833911053289701`", 
      "1.8243284128443795`", "1170.654850856038`"},
     {"1922", "1.7527143534346048`", "140.88356565186962`", 
      "100.10593702836435`", "30.09447141233352`", "3.796043040483802`", 
      "552.8814263224513`", "791.9758039202567`", "3.679867046656454`", "0", 
      "3.679867046656454`", "1.755076784416186`", "0.5308132988423985`", 
      RowBox[{"-", "0.04403924006788945`"}], "1.2432987158847815`", 
      "2.2858900832585847`", "1.199259475816892`", "1.8445254063399052`", 
      "1.8348550002413169`", "1172.1086238035966`"},
     {"1923", "1.743333808819646`", "141.26231570922272`", 
      "100.35883751111909`", "30.140276468623245`", "3.799565091886407`", 
      "553.5624039702515`", "794.2279989816179`", "3.6864554773933875`", "0", 
      "3.6864554773933875`", "1.7583493970939807`", "0.5336993348469334`", 
      RowBox[{"-", "0.04412135805648478`"}], "1.2500585406033045`", 
      "2.2920487319409144`", "1.2059371825468197`", "1.8551551374674404`", 
      "1.845396674816181`", "1173.5522964169331`"},
     {"1924", "1.7339603093915033`", "141.63902913862998`", 
      "100.61008114443156`", "30.185317174017197`", "3.802795922815676`", 
      "554.2386325692944`", "796.4703902075569`", "3.6929899458369415`", "0", 
      "3.6929899458369415`", "1.7615952735880516`", "0.5365836891952728`", 
      RowBox[{"-", "0.04420280516775784`"}], "1.2568144264585903`", 
      "2.2981789627833242`", "1.2126116212908324`", "1.8657999049017409`", 
      "1.8559530999411489`", "1174.9859010469042`"},
     {"1925", "1.7245947521177023`", "142.0137076649645`", 
      "100.85966801515531`", "30.229589098502984`", "3.8057516170415866`", 
      "554.9101255850644`", "798.702965888614`", "3.6994707694259197`", "0", 
      "3.6994707694259197`", "1.7648146108517722`", "0.5394662983758474`", 
      RowBox[{"-", "0.044283586343758445`"}], "1.2635662246905146`", 
      "2.3042809092276197`", "1.219282638346756`", "1.8764593725341385`", 
      "1.8665239445191968`", "1176.4094662403365`"},
     {"1926", "1.7152370092625535`", "142.38635298533868`", 
      "101.10759817519694`", "30.273087830097165`", "3.808445855186736`", 
      "555.5768940352195`", "800.9257192339218`", "3.705898239330713`", "0", 
      "3.705898239330713`", "1.768007594513257`", "0.5423470994931516`", 
      RowBox[{"-", "0.0443637062423575`"}], "1.2703137879819297`", 
      "2.3103546940064086`", "1.2259500817395723`", "1.8871332076804623`", 
      "1.8771088809424765`", "1177.8230153546656`"},
     {"1927", "1.7058890020271809`", "142.75696721433857`", 
      "101.3538721013075`", "30.31580955442224`", "3.8108908321463066`", 
      "556.2389488916147`", "803.1386476226618`", "3.712272643741292`", "0", 
      "3.712272643741292`", "1.7711743998817968`", "0.5452260302466375`", 
      RowBox[{"-", "0.04444316926250097`"}], "1.2770569704092278`", 
      "2.3164004301284344`", "1.232613801146727`", "1.8978210798236446`", 
      "1.8877075837342794`", "1179.2265716502231`"},
     {"1928", "1.6965511145578862`", "143.12555255002206`", 
      "101.5984903508779`", "30.357750612892758`", "3.8130970613602213`", 
      "556.896299764553`", "805.3417521348953`", "3.718594255255054`", "0", 
      "3.718594255255054`", "1.7743151932202947`", "0.5481030289165235`", 
      RowBox[{"-", "0.04452197957613846`"}], "1.2837956274091034`", 
      "2.322418222136818`", "1.239273647832965`", "1.908522660205597`", 
      "1.8983197291599785`", "1180.6201555008524`"},
     {"1929", "1.687224115616889`", "143.49211135749616`", 
      "101.84145364860926`", "30.398907610014778`", "3.8150737275037465`", 
      "557.5489555330239`", "807.5350370308447`", "3.724863337034185`", "0", 
      "3.724863337034185`", "1.7774301324326345`", "0.5509780343456492`", 
      RowBox[{"-", "0.04460014114547102`"}], "1.290529615736052`", 
      "2.3284081667782837`", "1.245929474590581`", "1.9192376207673207`", 
      "1.9089449942728887`", "1182.0037857300108`"},
     {"1930", "1.6779089021717146`", "143.8566461967762`", 
      "102.0827629155396`", "30.439277446519288`", "3.81682891863165`", 
      "558.1969246668668`", "809.7185093397018`", "3.7310801459642056`", "0", 
      "3.7310801459642056`", "1.7805193680887292`", "0.5538509859276517`", 
      RowBox[{"-", "0.04467765774867211`"}], "1.297258793434675`", 
      "2.334370354016381`", "1.252581135686003`", "1.9299656338916444`", 
      "1.919583056487517`", "1183.3774802937578`"},
     {"1931", "1.668605345547441`", "144.21915959991404`", 
      "102.3224190395406`", "30.478857026189463`", "3.818369506151501`", 
      "558.8402143611956`", "811.8921785202853`", "3.7372449244138215`", "0", 
      "3.7372449244138215`", "1.783583043925411`", "0.5567218235910946`", 
      RowBox[{"-", "0.04475453299245622`"}], "1.3039830198025077`", 
      "2.3403048675165055`", "1.2592284868100516`", "1.9407063716350312`", 
      "1.930233592999537`", "1184.7412544457347`"},
     {"1932", "1.6593149837381234`", "144.57965443316527`", 
      "102.56042324912934`", "30.51764372704266`", "3.8197017784467207`", 
      "559.4788323771841`", "814.0560560919147`", "3.743357917941591`", "0", 
      "3.743357917941591`", "1.7866212977990106`", "0.5595904877908287`", 
      RowBox[{"-", "0.04483077033598143`"}], "1.3107021553697817`", 
      "2.3462117855898392`", "1.2658713850338004`", "1.9514595054473083`", 
      "1.9408962804024485`", "1186.0951246396303`"},
     {"1933", "1.6500381999508305`", "144.93813364605427`", 
      "102.79677685475366`", "30.555635069037987`", "3.8208312147418027`", 
      "560.1127859739877`", "816.2101554505867`", "3.7494193650837455`", "0", 
      "3.7494193650837455`", "1.7896342627639674`", "0.5624569195033043`", 
      RowBox[{"-", "0.04490637311791442`"}], "1.3174160618884474`", 
      "2.3520911822672717`", "1.272509688770533`", "1.9622247064531544`", 
      "1.9515707949507273`", "1187.439106264854`"},
     {"1934", "1.6407758920923206`", "145.29460038321844`", 
      "103.03148136439505`", "30.592828858101747`", "3.8217627446101385`", 
      "560.7420825397254`", "818.3544916224585`", "3.755429503429106`", "0", 
      "3.755429503429106`", "1.7926220677275189`", "0.5653210602195647`", 
      RowBox[{"-", "0.04498134457285829`"}], "1.3241246023157607`", 
      "2.3579431279470837`", "1.2791432577429025`", "1.9730016451407262`", 
      "1.9622568123441126`", "1188.773214984218`"},
     {"1935", "1.6315285715749688`", "145.64905790042317`", 
      "103.26453839712386`", "30.62922307361609`", "3.8225007247083838`", 
      "561.3667292852715`", "820.4890810936397`", "3.76138856671697`", "0", 
      "3.76138856671697`", "1.7955848381082564`", "0.5681828519406823`", 
      RowBox[{"-", "0.04505568784787729`"}], "1.3308276408035955`", 
      "2.3637676900489386`", "1.2857719529557181`", "1.9837899914886716`", 
      "1.9729540077456436`", "1190.0974660847758`"},
     {"1936", "1.6222959829273955`", "146.00150939791823`", 
      "103.49594951156071`", "30.664815650146963`", "3.8230488109442278`", 
      "561.9867325599702`", "822.6139416350846`", "3.767296778353319`", "0", 
      "3.767296778353319`", "1.7985226958396996`", "0.5710422371662872`", 
      RowBox[{"-", "0.04512940600258661`"}], "1.3375250426715735`", 
      "2.3695649330059867`", "1.2923956366689868`", "1.9945894144253244`", 
      "1.9836620553253288`", "1191.4118730271368`"},
     {"1937", "1.6130796627348072`", "146.35195840985168`", 
      "103.72571660771416`", "30.699604984734044`", "3.823410550217939`", 
      "562.6020997419178`", "824.7290920943535`", "3.7731543694627354`", "0", 
      "3.7731543694627354`", "1.8014357600449806`", "0.57389915889198`", 
      RowBox[{"-", "0.045202502026081795`"}], "1.3442166744010031`", 
      "2.375334918936961`", "1.2990141723749213`", "2.0053995817527728`", 
      "1.994380628154264`", "1192.7164514528656`"},
     {"1938", "1.6038798678774324`", "146.70040852619013`", 
      "103.95384164021803`", "30.7335895697367`", "3.823589052298082`", 
      "563.212837977843`", "826.8345523540921`", "3.7789615668823413`", "0", 
      "3.7789615668823413`", "1.8043241478172058`", "0.5767535606088382`", 
      RowBox[{"-", "0.045274978856520015`"}], "1.3509024036337267`", 
      "2.381077708426044`", "1.3056274247772066`", "2.0162201606741066`", 
      "2.005109398700394`", "1194.0112165130272`"},
     {"1939", "1.5946973666478739`", "147.0468635038488`", 
      "104.18032673317505`", "30.766768136732157`", "3.8235871938603667`", 
      "563.8189547570164`", "828.9303431995381`", "3.784718598644879`", "0", 
      "3.784718598644879`", "1.8071879745175297`", "0.57960538630009`", 
      RowBox[{"-", "0.04534683938859944`"}], "1.3575820991643268`", 
      "2.3867933608176197`", "1.3122352597757274`", "2.027050817608564`", 
      "2.015848038706773`", "1195.2961840848748`"},
     {"1940", "1.5855327991334291`", "147.3913272388326`", 
      "104.40517415156096`", "30.799139617810358`", "3.823407620724284`", 
      "564.4204578183283`", "831.0164862437199`", "3.7904256931027134`", "0", 
      "3.7904256931027134`", "1.8100273542386462`", "0.5824545804406345`", 
      RowBox[{"-", "0.04541808648518943`"}], "1.364255630939003`", 
      "2.3924819346792807`", "1.3188375444538136`", "2.037891218458639`", 
      "2.026596219368951`", "1196.571370574856`"},
     {"1941", "1.5763855252468006`", "147.73380348805415`", 
      "104.62838601463481`", "30.830702782185426`", "3.8230524306245597`", 
      "565.017353904899`", "833.0930038537132`", "3.7960830671403065`", "0", 
      "3.7960830671403065`", "1.81284239946541`", "0.5853010879878039`", 
      RowBox[{"-", "0.04548872296881465`"}], "1.3709228700339353`", 
      "2.398143487453214`", "1.3254341470651207`", "2.0487410280967553`", 
      "2.0373536109426866`", "1197.836790278386`"},
     {"1942", "1.5672570820428113`", "148.07429634242723`", 
      "104.84996478410388`", "30.861456853945125`", "3.822523846159128`", 
      "565.6096510160354`", "835.1599189920347`", "3.801690947556473`", "0", 
      "3.801690947556473`", "1.8156332213966906`", "0.5881448543784987`", 
      RowBox[{"-", "0.045558751629731206`"}], "1.3775836886485737`", 
      "2.403778075775189`", "1.3320249370188426`", "2.059599910302291`", 
      "2.0481198825375153`", "1199.092460153995`"},
     {"1943", "1.5581478541373792`", "148.41280997644165`", 
      "105.06991300584282`", "30.89140118122221`", "3.8218238899820567`", 
      "566.1973572428888`", "837.2172552418768`", "3.80724956001706`", "0", 
      "3.80724956001706`", "1.818399930674792`", "0.5909858255335925`", 
      RowBox[{"-", "0.04562817524422959`"}], "1.3842379601159553`", 
      "2.4093857562083842`", "1.3386097848717258`", "2.0704675283142095`", 
      "2.058894702802476`", "1200.3383973549242`"},
     {"1944", "1.549058225676806`", "148.74934864806133`", 
      "105.28823331000667`", "30.92053523529882`", "3.8209544150311436`", 
      "566.780480797798`", "839.2650367439041`", "3.812759129349683`", "0", 
      "3.812759129349683`", "1.821142637404548`", "0.593823947854895`", 
      RowBox[{"-", "0.04569699657511382`"}], "1.3908855588955915`", 
      "2.4149665852594433`", "1.3451885623204778`", "2.081343544833246`", 
      "2.069677739822824`", "1201.5746192913318`"},
     {"1945", "1.539988836748388`", "149.08391675434046`", 
      "105.5049284685717`", "30.948858682145175`", "3.8199172014453016`", 
      "567.3590302959026`", "841.303288141829`", "3.8182198822164763`", "0", 
      "3.8182198822164763`", "1.8238614513317812`", "0.5966591682237116`", 
      RowBox[{"-", "0.04576521837617946`"}], "1.3975263605700927`", 
      "2.420520619555493`", "1.3517611421939133`", "2.0922276220282985`", 
      "2.080468661157616`", "1202.8011442273134`"},
     {"1946", "1.5309391759397515`", "149.41651858120272`", 
      "105.72000113753255`", "30.976371055573612`", "3.8187136531715398`", 
      "567.9330136168804`", "843.3320345543482`", "3.823632036389206`", "0", 
      "3.823632036389206`", "1.826556481522674`", "0.5994914339949017`", 
      RowBox[{"-", "0.04583284338416816`"}], "1.4041602418312529`", 
      "2.4260479155175756`", "1.3583273984470847`", "2.1031194212131332`", 
      "2.0912671335963267`", "1204.0179888677865`"},
     {"1947", "1.5219105229558736`", "149.74715869265117`", 
      "105.93345425853117`", "31.003072265613884`", "3.817345340693543`", 
      "568.5024397468899`", "845.3513014673946`", "3.828995818147467`", "0", 
      "3.828995818147467`", "1.829227836533091`", "0.6023206929949635`", 
      RowBox[{"-", "0.04589987432301648`"}], "1.4107870804755627`", 
      "2.4315485295280546`", "1.364887206152546`", "2.1140186028723496`", 
      "2.102072823001784`", "1205.2251722634066`"},
     {"1948", "1.5129031351465998`", "150.0758417086106`", 
      "106.14529082977495`", "31.028962305714828`", "3.8158137055276726`", 
      "569.0673177390281`", "847.3611147705723`", "3.8343114524703004`", "0", 
      "3.8343114524703004`", "1.8318756248845383`", "0.6051468935250479`", 
      RowBox[{"-", "0.04596631391579882`"}], "1.4174067554112695`", 
      "2.437022518409586`", "1.3714404414954706`", "2.124924826988607`", 
      "2.112885394861687`", "1206.4227136067398`"},
     {"1949", "1.5039175239243041`", "150.4025723601354`", 
      "106.35551396316521`", "31.054041324337025`", "3.814120150106798`", 
      "569.6276569871445`", "849.361500715285`", "3.8395791656274607`", "0", 
      "3.8395791656274607`", "1.834499955077045`", "0.6079699843592895`", 
      RowBox[{"-", "0.04603216488505066`"}], "1.4240191466544678`", 
      "2.4424699394363345`", "1.3779869817694173`", "2.13583775322209`", 
      "2.1237045142445203`", "1207.6106328127464`"},
     {"1950", "1.4949540743745215`", "150.7273554619588`", 
      "106.56412685615334`", "31.078309588235655`", "3.8122660123189513`", 
      "570.1834671080667`", "851.3524858966041`", "3.8447991840795424`", "0", 
      "3.8447991840795424`", "1.8371009356705261`", "0.610789914743811`", 
      RowBox[{"-", "0.04609742995481018`"}], "1.4306241353267672`", 
      "2.4478908504143373`", "1.384526705371957`", "2.146757040796734`", 
      "2.1345298458837245`", "1208.7889502691014`"},
     {"1951", "1.4860122736760277`", "151.05019571737793`", 
      "106.77113259078327`", "31.10176722831422`", "3.8102523293521564`", 
      "570.7347570552276`", "853.3340972288161`", "3.8499717261767183`", "0", 
      "3.8499717261767183`", "1.8396786748304472`", "0.6136066343904741`", 
      RowBox[{"-", "0.04616211183921784`"}], "1.4372216036406567`", 
      "2.4532853092209215`", "1.3910594918014387`", "2.1576823483505`", 
      "2.14536105383593`", "1209.9576849570826`"},
     {"1952", "1.477093403412266`", "151.371098108178`", 
      "106.97653453603236`", "31.124414748989746`", "3.808080370523549`", 
      "571.2815369531237`", "855.3063618605105`", "3.8550970193969905`", "0", 
      "3.8550970193969905`", "1.8422332805081527`", "0.616420093475243`", 
      RowBox[{"-", "0.04622621324704125`"}], "1.443811434895668`", 
      "2.458653373983396`", "1.3975852216486269`", "2.1686133336506694`", 
      "2.156197801399575`", "1211.1168583406222`"},
     {"1953", "1.4681975908493103`", "151.6900676437992`", 
      "107.18033608913957`", "31.146252698285785`", "3.805751297302889`", 
      "571.8238169179274`", "857.2693072277272`", "3.8601752892751753`", "0", 
      "3.8601752892751753`", "1.8447648608470244`", "0.619230242641724`", 
      RowBox[{"-", "0.04628973689186674`"}], "1.450393513486672`", 
      "2.4639951034887484`", "1.4041037765948052`", "2.1795496543468342`", 
      "2.1670397516830495`", "1212.2664918660062`"},
     {"1954", "1.4593253488083837`", "152.00710944511806`", 
      "107.38254076220967`", "31.167281777155214`", "3.8032662857124655`", 
      "572.3616074595955`", "859.2229610188646`", "3.8652067631846885`", "0", 
      "3.8652067631846885`", "1.8472735241426892`", "0.6220370329993556`", 
      RowBox[{"-", "0.04635268549110084`"}], "1.4569677248996329`", 
      "2.4693105571420446`", "1.410615039408532`", "2.190490967829223`", 
      "2.177886567537473`", "1213.4066078143424`"},
     {"1955", "1.4504770614357885`", "152.32222871648625`", 
      "107.58315215351305`", "31.18750280217337`", "3.800626493235965`", 
      "572.8949193548087`", "861.1673511712563`", "3.8701916691541487`", "0", 
      "3.8701916691541487`", "1.8497593789396207`", "0.6248404161232718`", 
      RowBox[{"-", "0.04641506176839425`"}], "1.463533955711293`", 
      "2.4745997950628924`", "1.4171188939428987`", "2.201436931315216`", 
      "2.1887379117022174`", "1214.5372290321945`"},
     {"1956", "1.441651832233615`", "152.63543046744684`", 
      "107.78217366077669`", "31.206916343409702`", "3.7978327108811887`", 
      "573.4237623719143`", "863.1025058593277`", "3.875130223975266`", "0", 
      "3.875130223975266`", "1.8522225333848144`", "0.6276403440458224`", 
      RowBox[{"-", "0.04647686843742398`"}], "1.4700920935693096`", 
      "2.479862877430637`", "1.4236152251318857`", "2.2123872014713584`", 
      "2.1995934463445965`", "1215.6583762284586`"},
     {"1957", "1.4328511987263028`", "152.94672004164755`", 
      "107.97960902686154`", "31.225523415737875`", "3.794886077925844`", 
      "573.9481477515728`", "865.0284533957515`", "3.880022656400169`", "0", 
      "3.880022656400169`", "1.8546630954063898`", "0.6304367692553831`", 
      RowBox[{"-", "0.04653810820637488`"}], "1.4766420271894674`", 
      "2.485099864661773`", "1.4301039189830924`", "2.2233414343189137`", 
      "2.2104528329203323`", "1216.7700732333344`"},
     {"1958", "1.4240752881799246`", "153.2561028103915`", 
      "108.17546202367998`", "31.243325075890972`", "3.7917876587361876`", 
      "574.4680867580987`", "866.945222312858`", "3.8848691936016064`", "0", 
      "3.8848691936016064`", "1.857081173285833`", "0.6332296447017604`", 
      RowBox[{"-", "0.04659878379229865`"}], "1.4831836463683383`", 
      "2.4903108179875932`", "1.4365848625760398`", "2.234299285902977`", 
      "2.221315732979557`", "1217.8723439271694`"},
     {"1959", "1.415324229269403`", "153.5635841729435`", 
      "108.36973645272454`", "31.260322423329708`", "3.7885384545715937`", 
      "574.9835906929693`", "868.8528413369835`", "3.8896700613184243`", "0", 
      "3.8896700613184243`", "1.8594768754190911`", "0.636018923792233`", 
      RowBox[{"-", "0.046658897915119096`"}], "1.4897168419740094`", 
      "2.4954957992113243`", "1.4430579440588904`", "2.2452604121718043`", 
      "2.2321818079718074`", "1218.965212269095`"},
     {"1960", "1.4065986625516516`", "153.86916966776212`", 
      "108.56243625992747`", "31.276516745216476`", "3.7851395549044113`", 
      "575.4946714172105`", "870.7513393662017`", "3.894425488732952`", "0", 
      "3.894425488732952`", "1.8618503104092423`", "0.638804560391445`", 
      RowBox[{"-", "0.04671845329995747`"}], "1.496241505945833`", 
      "2.5006548708006875`", "1.4495230526458756`", "2.2562244690847795`", 
      "2.24305071931942`", "1220.0487034044863`"},
     {"1961", "1.3978975628538388`", "154.17286461053666`", 
      "108.75356516260467`", "31.291909044672575`", "3.781591671254445`", 
      "576.0013396784684`", "872.6407454855851`", "3.899135692922917`", "0", 
      "3.899135692922917`", "1.864201586523747`", "0.641586508814207`", 
      RowBox[{"-", "0.04677745266351352`"}], "1.5027575312775658`", 
      "2.505788095337954`", "1.4559800786140524`", "2.2671911122781534`", 
      "2.253922128117974`", "1221.122840118353`"},
     {"1962", "1.3892223394950978`", "154.47467462320245`", 
      "108.94312719524419`", "31.306500732600075`", "3.777895851765601`", 
      "576.5036075922123`", "874.5210888681776`", "3.903800901963039`", "0", 
      "3.903800901963039`", "1.8665308117614092`", "0.6443647238233298`", 
      RowBox[{"-", "0.04683589871574577`"}], "1.5092648120122931`", 
      "2.510895535584739`", "1.4624289132965473`", "2.2781599968132022`", 
      "2.264795694900332`", "1222.1876480954902`"},
     {"1963", "1.3805729920058116`", "154.7746053275937`", 
      "109.13112639354144`", "31.320293225414634`", "3.774053059672057`", 
      "577.0014871956218`", "876.3923988520017`", "3.908421341474976`", "0", 
      "3.908421341474976`", "1.868838094337864`", "0.6471391606329714`", 
      RowBox[{"-", "0.046893794172053534`"}], "1.51576324325027`", 
      "2.5159772549708355`", "1.4688694490782164`", "2.2891307779089325`", 
      "2.2756710803712275`", "1223.2431528547183`"},
     {"1964", "1.3719500336768216`", "155.07266245708377`", 
      "109.31756690970006`", "31.333288091010036`", "3.770064326909671`", 
      "577.4949909741035`", "878.2547049130154`", "3.912997239530463`", "0", 
      "3.912997239530463`", "1.8711235426482022`", "0.6499097749078846`", 
      RowBox[{"-", "0.04695114175233916`"}], "1.5222527211471573`", 
      "2.521033317556087`", "1.475301579394818`", "2.3001031109964534`", 
      "2.2865479453586923`", "1224.2893808650995`"},
     {"1965", "1.3633534640385108`", "155.36885174494512`", 
      "109.50245289743587`", "31.34548690279253`", "3.765930608028062`", 
      "577.9841313426016`", "880.1080366755612`", "3.9175288218502233`", "0", 
      "3.9175288218502233`", "1.873387265221695`", "0.6526765227614987`", 
      RowBox[{"-", "0.04700794417987188`"}], "1.5287331429095303`", 
      "2.5260637879831935`", "1.4817251987296585`", "2.311076651657429`", 
      "2.297425950892816`", "1225.3263584463155`"},
     {"1966", "1.3547827707392714`", "155.66317881311736`", 
      "109.68578839751964`", "31.356891095975556`", "3.7616526493867664`", 
      "578.4689201453994`", "881.9524238875971`", "3.9220163071984095`", "0", 
      "3.9220163071984095`", "1.875629370185158`", "0.6554393607480004`", 
      RowBox[{"-", "0.047064204167822324`"}], "1.5352044067763293`", 
      "2.5310687309331583`", "1.4881402026085069`", "2.3220510551925106`", 
      "2.308304757751201`", "1226.3541107082467`"},
     {"1967", "1.3462389784823192`", "155.9556495062095`", 
      "109.86757768237692`", "31.36750240408987`", "3.757231437229883`", 
      "578.9493702193063`", "883.7878963652969`", "3.9264599218757934`", "0", 
      "3.9264599218757934`", "1.8778499654155973`", "0.6581982458616187`", 
      RowBox[{"-", "0.047119924423092784`"}], "1.5416664120171846`", 
      "2.5360482112772162`", "1.4945464875940917`", "2.333025976791826`", 
      "2.319184026442603`", "1227.3726648649294`"},
     {"1968", "1.3377222154729596`", "156.24626969669092`", 
      "110.04782505519682`", "31.37732260309958`", "3.752667928216527`", 
      "579.4254944726039`", "885.6144840451086`", "3.9308598911927644`", "0", 
      "3.9308598911927644`", "1.8800491589259096`", "0.6609531355393327`", 
      RowBox[{"-", "0.04717510765599538`"}], "1.5481190589387588`", 
      "2.541002294465242`", "1.5009439512827634`", "2.3440010718204545`", 
      "2.330063417782817`", "1228.3820482819203`"},
     {"1969", "1.3292327376521882`", "156.53504531264832`", 
      "110.22653487870026`", "31.386353547849186`", "3.7479630902034056`", 
      "579.8973060188011`", "887.4322169709931`", "3.9352164407206103`", "0", 
      "3.9352164407206103`", "1.8822270587985808`", "0.6637039876584804`", 
      RowBox[{"-", "0.04722975657858841`"}], "1.5545622488791464`", 
      "2.5459310464570613`", "1.507332492300558`", "2.354975995968365`", 
      "2.340942592867422`", "1229.3822887598585`"},
     {"1970", "1.3207706736949278`", "156.82198231013103`", 
      "110.40371154675796`", "31.394597136079895`", "3.743117868432132`", 
      "580.364818050801`", "889.2411252913867`", "3.9395297951426254`", "0", 
      "3.9395297951426254`", "1.8843837731342092`", "0.6664507605350435`", 
      RowBox[{"-", "0.04728387390338465`"}], "1.5609958842038558`", 
      "2.550834533669253`", "1.513712010300471`", "2.3659504052947637`", 
      "2.351821213090212`", "1230.373414267698`"},
     {"1971", "1.3123353825746482`", "157.10708650589487`", 
      "110.57935931212995`", "31.40205509143659`", "3.7381329774965693`", 
      "580.828043076358`", "891.0412392482641`", "3.9438001712249866`", "0", 
      "3.9438001712249866`", "1.8865194095620483`", "0.6691934129165981`", 
      RowBox[{"-", "0.04733746233106967`"}], "1.5674198682892988`", 
      "2.5557128224786463`", "1.5200824059582292`", "2.3769239557846964`", 
      "2.3626989397625673`", "1231.355451321879`"},
     {"1972", "1.3039280171998706`", "157.39036396722432`", 
      "110.75348268861504`", "31.408729472858507`", "3.733009421791333`", 
      "581.2869947398892`", "892.8325891180416`", "3.9480277946355913`", "0", 
      "3.9480277946355913`", "1.8886340754347193`", "0.6719319039809636`", 
      RowBox[{"-", "0.04739052455538762`"}], "1.5738341055196259`", 
      "2.5605659794156828`", "1.5264435809642383`", "2.387896303282005`", 
      "2.373575434112243`", "1232.3284288485652`"},
     {"1973", "1.2955484498349052`", "157.67182073364864`", 
      "110.92608616405464`", "31.414622309788452`", "3.7277481152253737`", 
      "581.7416865121172`", "894.6152052745682`", "3.9522128878651914`", "0", 
      "3.9522128878651914`", "1.8907278781681096`", "0.674666193338779`", 
      RowBox[{"-", "0.047443063271670194`"}], "1.5802385012927593`", 
      "2.565394071506889`", "1.532795438021089`", "2.3988671042362446`", 
      "2.3844503578721925`", "1233.2923754056885`"},
     {"1974", "1.2871970646260538`", "157.95146292817387`", 
      "111.09717431520306`", "31.41973574792862`", "3.722350033751132`", 
      "582.1921322144567`", "896.3891181626158`", "3.956355675073395`", "0", 
      "3.956355675073395`", "1.8928009251576685`", "0.6773962410308122`", 
      RowBox[{"-", "0.04749508117473623`"}], "1.5866329620140929`", 
      "2.5701971661884806`", "1.5391378808393565`", "2.409836015486768`", 
      "2.3953233731796844`", "1234.2473202946483`"},
     {"1975", "1.2788739893090055`", "158.22929670156475`", 
      "111.26675175036115`", "31.42407197630573`", "3.7168161406110687`", 
      "582.6383457582427`", "898.1543583071244`", "3.9604563796991843`", "0", 
      "3.9604563796991843`", "1.8948533238281942`", "0.6801220075271155`", 
      RowBox[{"-", "0.04754658096014098`"}], "1.5930173950945117`", 
      "2.5749753313553096`", "1.5454708141343707`", "2.42080269443862`", 
      "2.406194142723182`", "1235.1932930074747`"},
     {"1976", "1.2705783278554685`", "158.505328009881`", 
      "111.43482288018708`", "31.42763293848838`", "3.7111471068417687`", 
      "583.0803401247983`", "899.9109563050802`", "3.964515215113814`", "0", 
      "3.964515215113814`", "1.8968851810309142`", "0.6828434537185905`", 
      RowBox[{"-", "0.047597565309047414`"}], "1.5993917089306369`", 
      "2.5797286347495048`", "1.5517941436215894`", "2.4317667986403357`", 
      "2.4170623292616824`", "1236.1303210645726`"},
     {"1977", "1.2623112327043469`", "158.77956305960936`", 
      "111.60139237689992`", "31.430420914573688`", "3.705343907189667`", 
      "583.5181294476727`", "901.6589427539199`", "3.9685324037707583`", "0", 
      "3.9685324037707583`", "1.8988966031609826`", "0.6855605409147573`", 
      RowBox[{"-", "0.047648036891174465`"}], "1.6057558128996`", 
      "2.58445714407574`", "1.5581077760084254`", "2.442727985547597`", 
      "2.4279275955020134`", "1237.0584344290662`"},
     {"1978", "1.2540728320609464`", "159.05200808509755`", 
      "111.76646494469996`", "31.432438228801825`", "3.699407509642274`", 
      "583.9517279576417`", "903.3983483167548`", "3.97250816751394`", "0", 
      "3.97250816751394`", "1.9008876966891661`", "0.6882732308477899`", 
      RowBox[{"-", "0.047697998378138394`"}], "1.6121096173684937`", 
      "2.5891609275369563`", "1.5644116189903552`", "2.4536859133880635`", 
      "2.43878960486951`", "1237.9776632702003`"},
     {"1979", "1.2458631259252675`", "159.32266932069538`", 
      "111.93004529117856`", "31.43368721365613`", "3.693338842658125`", 
      "584.3811498575883`", "905.1292037158295`", "3.976442726446516`", "0", 
      "3.976442726446516`", "1.9028585680171393`", "0.6909814856698613`", 
      RowBox[{"-", "0.04774745243982174`"}], "1.618453033688155`", 
      "2.5938400536870008`", "1.5707055812483333`", "2.4646402410348003`", 
      "2.4496480214254763`", "1238.8880376980871`"},
     {"1980", "1.237682370707922`", "159.59155305647278`", 
      "112.09213818489957`", "31.434170282942333`", "3.6871388716649367`", 
      "584.8064095853797`", "906.8515397188125`", "3.980336301355656`", "0", 
      "3.980336301355656`", "1.9048093234418557`", "0.6936852679504154`", 
      RowBox[{"-", "0.04779640174347936`"}], "1.624785974186775`", 
      "2.5984945913922712`", "1.5769895724432956`", "2.475590628048399`", 
      "2.4605025098471045`", "1239.789588321005`"},
     {"1981", "1.2295296694413846`", "159.85866538759083`", 
      "112.25274819712519`", "31.433889605916846`", "3.680808278721424`", 
      "585.2275206587543`", "908.565387142474`", "3.984189103157983`", "0", 
      "3.984189103157983`", "1.9067400686651568`", "0.6963845406690261`", 
      RowBox[{"-", "0.047844848941433246`"}], "1.6311083521531715`", 
      "2.603124609334183`", "1.5832635032117384`", "2.486536734200404`", 
      "2.4713527350737996`", "1240.6823437965593`"},
     {"1982", "1.2214060468288703`", "160.12401263188093`", 
      "112.4118801325895`", "31.43284765332271`", "3.6743480217050237`", 
      "585.6444976288982`", "910.2707767850462`", "3.9880013508015013`", "0", 
      "3.9880013508015013`", "1.9086509088677275`", "0.6990792672127868`", 
      RowBox[{"-", "0.0478927966729283`"}], "1.637420081830677`", 
      "2.6077301760805143`", "1.5895272851577487`", "2.497478219475315`", 
      "2.4821983621540054`", "1241.5663349732642`"},
     {"1983", "1.2133115028703787`", "160.38760110717675`", 
      "112.56953879983772`", "31.43104690530453`", "3.6677590267656583`", 
      "586.0573550284847`", "911.967739484008`", "3.991773261641596`", "0", 
      "3.991773261641596`", "1.9105419491468807`", "0.7017694113791326`", 
      RowBox[{"-", "0.04794024757511739`"}], "1.6437210784237481`", 
      "2.6123113605260135`", "1.5957808308486308`", "2.5084147445950205`", 
      "2.493039056916195`", "1242.4415926603876`"},
     {"1984", "1.2052460380355268`", "160.64943713141633`", 
      "112.72572901146027`", "31.42848985214147`", "3.6610421931140014`", 
      "586.4661073775321`", "913.6563061046628`", "3.995505051512342`", "0", 
      "3.995505051512342`", "1.9124132943690952`", "0.7044549373723124`", 
      RowBox[{"-", "0.0479872042793612`"}], "1.6500112580897004`", 
      "2.6168682317414076`", "1.6020240538103392`", "2.5193459710682435`", 
      "2.503874485852847`", "1243.3081476403681`"},
     {"1985", "1.1972099082653094`", "160.90952707815615`", 
      "112.88045564144399`", "31.42517906696867`", "3.6541984677174195`", 
      "586.8707694436862`", "915.3365075299387`", "3.9991969371177523`", "0", 
      "3.9991969371177523`", "1.9142650491918607`", "0.7071358098012062`", 
      RowBox[{"-", "0.048033669411776336`"}], "1.6562905379335993`", 
      "2.621400858993067`", "1.6082568685218228`", "2.530271561052764`", 
      "2.5147043161575993`", "1244.1660312206147`"},
     {"1986", "1.189202216592202`", "161.16787712604398`", 
      "113.03372336697693`", "31.42111687994488`", "3.6472285238812323`", 
      "587.271355086247`", "917.0083746668852`", "4.002849125505341`", "0", 
      "4.002849125505341`", "1.916097317617835`", "0.7098119936727302`", 
      RowBox[{"-", "0.048079645582048074`"}], "1.6625588359928107`", 
      "2.6259093112905654`", "1.6144791904107627`", "2.5411911771198783`", 
      "2.525528215407371`", "1245.0152727828438`"},
     {"1987", "1.1812238599837295`", "161.42449364864123`", 
      "113.18553707058965`", "31.41630588808249`", "3.6401332834483386`", 
      "587.6678790801617`", "918.6719383829516`", "4.006461830723496`", "0", 
      "4.006461830723496`", "1.9179102030357411`", "0.712483454388768`", 
      RowBox[{"-", "0.04812513538445652`"}], "1.668816071229814`", 
      "2.6303936574245093`", "1.6206909358453574`", "2.5521044820943968`", 
      "2.536345851386386`", "1245.8559036499428`"},
     {"1988", "1.1732747102345857`", "161.6793829916529`", 
      "113.33590161040082`", "31.410748663395836`", "3.6329136119386822`", 
      "588.0603560667882`", "920.3272295570006`", "4.010035264259666`", "0", 
      "4.010035264259666`", "1.9197038085722338`", "0.7151501577468679`", 
      RowBox[{"-", "0.048170141406705835`"}], "1.6750621635338345`", 
      "2.6348539663191017`", "1.6268920221271288`", "2.5630111396640807`", 
      "2.5471568926589603`", "1246.6879548615912`"},
     {"1989", "1.165354895550077`", "161.93255152864543`", 
      "113.48482187769183`", "31.4044478262067`", "3.6255703959539725`", 
      "588.448800817898`", "921.974279063214`", "4.013569637462048`", "0", 
      "4.013569637462048`", "1.9214782370114536`", "0.7178120699381003`", 
      RowBox[{"-", "0.04821466622790566`"}], "1.6812970337158268`", 
      "2.6392903069495537`", "1.6330823674879211`", "2.573910814181373`", 
      "2.5579610084850115`", "1247.5114577339439`"},
     {"1990", "1.1574646723408155`", "162.18400568890607`", 
      "113.63230282569221`", "31.397406081410885`", "3.6181045779946053`", 
      "588.8332283634038`", "923.6131177721043`", "4.017065162712837`", "0", 
      "4.017065162712837`", "1.9232335909214338`", "0.7204691575455914`", 
      RowBox[{"-", "0.048258712421742955`"}], "1.6875206035050379`", 
      "2.643702748467025`", "1.639261891083295`", "2.584803170934498`", 
      "2.5687578689916566`", "1248.3264441304161`"},
     {"1991", "1.1496028872286634`", "162.43375165109552`", 
      "113.77834915383424`", "31.38962582005594`", "3.610516763233678`", 
      "589.2136525776194`", "925.2437765588919`", "4.020522040594255`", "0", 
      "4.020522040594255`", "1.924969972099089`", "0.7231213875365519`", 
      RowBox[{"-", "0.04830228254255539`"}], "1.6937327955303383`", 
      "2.648091359635641`", "1.6454305129877829`", "2.59568787562242`", 
      "2.5795471447503573`", "1249.1329434645531`"},
     {"1992", "1.1417704371811461`", "162.6817957887884`", 
      "113.92296576735983`", "31.381109702191196`", "3.6028078175228795`", 
      "589.5900882652622`", "926.8662862279132`", "4.023940478875111`", "0", 
      "4.023940478875111`", "1.9266874815376807`", "0.7257687272575063`", 
      RowBox[{"-", "0.048345379124515`"}], "1.6999335333090477`", 
      "2.652456208795187`", "1.6515881541845328`", "2.6065645942250355`", 
      "2.590328506472263`", "1249.930987122356`"},
     {"1993", "1.133967193992958`", "162.92814444770303`", 
      "114.06615754754948`", "31.371860364967432`", "3.5949785616434378`", 
      "589.9625501112635`", "928.4806775656557`", "4.027320682971343`", "0", 
      "4.027320682971343`", "1.928386219841877`", "0.728411144436547`", 
      RowBox[{"-", "0.048388004692043046`"}], "1.7061227412522129`", 
      "2.656797364278424`", "1.6577347365601698`", "2.617432993405943`", 
      "2.6011016256516477`", "1250.7206062358787`"},
     {"1994", "1.1261921329608837`", "163.1728037508925`", 
      "114.20792915101477`", "31.361880170218992`", "3.5870295287565828`", 
      "590.3310517902828`", "930.0869813280118`", "4.030662847891013`", "0", 
      "4.030662847891013`", "1.930066286615296`", "0.7310486071736484`", 
      RowBox[{"-", "0.048430161744441924`"}], "1.7123003446419232`", 
      "2.6611148937889446`", "1.6638701828974813`", "2.6282927401592815`", 
      "2.611866173987562`", "1251.5018297953995`"},
     {"1995", "1.1184448694690055`", "163.41577973783578`", 
      "114.34828515335995`", "31.35117138853786`", "3.578961167692758`", 
      "590.6956066368264`", "931.6852281766137`", "4.033967164349802`", "0", 
      "4.033967164349802`", "1.931727779912162`", "0.7336810839296807`", 
      RowBox[{"-", "0.04847185274213592`"}], "1.7184662696055764`", 
      "2.6654088638418427`", "1.6699944168634404`", "2.639143500916352`", 
      "2.622621822630997`", "1252.274686070072`"},
     {"1996", "1.1107233545805093`", "163.65707800278076`", 
      "114.48722967647316`", "31.33973573048836`", "3.570773390975273`", 
      "591.0562259901176`", "933.275448659347`", "4.03723380380645`", "0", 
      "4.03723380380645`", "1.933370795291626`", "0.7363085435102894`", 
      RowBox[{"-", "0.048513080082941695`"}], "1.7246204430781213`", 
      "2.6696793388019153`", "1.6761073629951797`", "2.6499849406855756`", 
      "2.633368241223559`", "1253.0391990990493`"},
     {"1997", "1.1030289966752955`", "163.8967044460194`", 
      "114.62476716338173`", "31.327575328878766`", "3.5624665773113184`", 
      "591.4129227049913`", "934.8576730967665`", "4.04046295030543`", "0", 
      "4.04046295030543`", "1.934995426086945`", "0.7389309550599267`", 
      RowBox[{"-", "0.048553846108822754`"}], "1.7307627927880775`", 
      "2.6739263811468716`", "1.6822089466792547`", "2.6608167225396038`", 
      "2.644105097656203`", "1253.7953961345816`"},
     {"1998", "1.0953646148612466`", "164.1346655804388`", 
      "114.76090269390284`", "31.314693132788108`", "3.554041920049169`", 
      "591.7657125165789`", "936.4319316797065`", "4.0436548127917575`", "0", 
      "4.0436548127917575`", "1.9366017659271608`", "0.7415482880851907`", 
      RowBox[{"-", "0.04859415316916451`"}], "1.7368932473122014`", 
      "2.6781500540123515`", "1.688299094143037`", "2.671638510869583`", 
      "2.654832060873571`", "1254.5433105351474`"},
     {"1999", "1.0877369974449504`", "164.37096939402772`", 
      "114.89564287323105`", "31.301094020547122`", "3.545502453451435`", 
      "592.1146179306573`", "937.9982546364434`", "4.046809660214216`", "0", 
      "4.046809660214216`", "1.938189913279422`", "0.7441605125082034`", 
      RowBox[{"-", "0.048634003734752546`"}], "1.743011736200512`", 
      "2.682350425787625`", "1.6943777324657594`", "2.6824499761864646`", 
      "2.6655488059867176`", "1255.2829900129937`"},
     {"2000", "1.0801519094386287`", "164.60562512751457`", 
      "115.02899560156966`", "31.286784492205637`", "3.53685261260747`", 
      "592.4596670232974`", "939.5566726080565`", "4.049927810517924`", "0", 
      "4.049927810517924`", "1.9397599761652982`", "0.7467675987356542`", 
      RowBox[{"-", "0.048673400516116606`"}], "1.7491181901380064`", 
      "2.6865275749009525`", "1.7004447896218897`", "2.6932508017164256`", 
      "2.6762550205964484`", "1256.0144940893904`"},
     {"2001", "1.072603073948069`", "164.83864065766073`", 
      "115.16096737609261`", "31.271769254596887`", "3.5280947907385074`", 
      "592.8008812684889`", "941.1072169250203`", "4.05300952061437`", "0", 
      "4.05300952061437`", "1.9413120691514563`", "0.7493695176490026`", 
      RowBox[{"-", "0.048712346388019204`"}], "1.7552125409217136`", 
      "2.690681586800459`", "1.7065001945336944`", "2.70404068184738`", 
      "2.686950403408302`", "1256.7378682891965`"},
     {"2002", "1.0650658952784096`", "165.07001851658615`", 
      "115.29155918935393`", "31.256046068432173`", "3.5192244600748053`", 
      "593.1382574238471`", "942.6499191736511`", "4.056054823112591`", "0", 
      "4.056054823112591`", "1.942846296309165`", "0.7519662404189129`", 
      RowBox[{"-", "0.048750843961867234`"}], "1.7612947210260534`", 
      "2.6948125367280777`", "1.7125438770641863`", "2.714819304058299`", 
      "2.697634646114149`", "1257.453105738556`"},
     {"2003", "1.0575137292675922`", "165.29975544663907`", 
      "115.42076607532152`", "31.239605239545472`", "3.510230200108658`", 
      "593.4717661510147`", "944.1848097781033`", "4.059063514521705`", "0", 
      "4.059063514521705`", "1.9443627289558274`", "0.7545577382069506`", 
      RowBox[{"-", "0.04878889502719163`"}], "1.767364662904134`", 
      "2.698920467162778`", "1.7185757678769424`", "2.725586320372153`", 
      "2.70830740537515`", "1258.160144240151`"},
     {"2004", "1.0499587450881254`", "165.52785083453512`", 
      "115.54858580765799`", "31.222440649968178`", "3.5011049986942817`", 
      "593.8013914802557`", "945.7119166196991`", "4.062035511631728`", "0", 
      "4.062035511631728`", "1.9458614075443428`", "0.7571439820913557`", 
      RowBox[{"-", "0.048826500599056216`"}], "1.7734222988138937`", 
      "2.7030053896356985`", "1.7245957982148374`", "2.7363413422801344`", 
      "2.718968297781492`", "1258.8589499381421`"},
     {"2005", "1.04245243900754`", "165.754315257133`", "115.67502770476308`",
       "31.204560821892592`", "3.4918567237739175`", "594.1271696969626`", 
      "947.2312659709764`", "4.064971201490976`", "0", "4.064971201490976`", 
      "1.9473423808033496`", "0.7597249434479757`", 
      RowBox[{"-", "0.048863661900183694`"}], "1.779467561710343`", 
      "2.7070673242513252`", "1.7306038998101594`", "2.747083982885358`", 
      "2.7296169414603257`", "1259.5495997575608`"},
     {"2006", "1.0350313194825935`", "165.97916722457921`", 
      "115.80010926189189`", "31.18598453857659`", "3.482502714643757`", 
      "594.4491729290914`", "948.7428855161663`", "4.067871292347144`", "0", 
      "4.067871292347144`", "1.9488057457918606`", "0.7623005944602722`", 
      RowBox[{"-", "0.048900381366025994`"}], "1.7855003864401289`", 
      "2.7111063402521327`", "1.7366000050741028`", "2.757813910422544`", 
      "2.740253009009901`", "1260.232246609674`"},
     {"2007", "1.0276956433935143`", "166.20242530283895`", 
      "115.92384802555567`", "31.16673051266644`", "3.4730589840886954`", 
      "594.7674720145499`", "950.2468062189887`", "4.070736478649161`", "0", 
      "4.070736478649161`", "1.9502516528196194`", "0.7648709083144776`", 
      RowBox[{"-", "0.04893666276822829`"}], "1.79152071019864`", 
      "2.715122561134097`", "1.7425840474304115`", "2.7685308628507452`", 
      "2.7508762419779966`", "1260.9070406708458`"},
     {"2008", "1.0204231203928669`", "166.42410321418495`", 
      "116.04625654576769`", "31.146811030057503`", "3.4635341296463884`", 
      "595.0821141090566`", "951.7430619938672`", "4.073567239722777`", "0", 
      "4.073567239722777`", "1.9516802809597775`", "0.7674358590483016`", 
      RowBox[{"-", "0.04897251060018118`"}], "1.7975284721756397`", 
      "2.719116140008079`", "1.7485559615754585`", "2.779234623333054`", 
      "2.761486426656675`", "1261.5740819112002`"},
     {"2009", "1.013187234523899`", "166.64420891897544`", 
      "116.16734143590867`", "31.126230827261008`", "3.4539288105621506`", 
      "595.3931191821073`", "953.2316881761905`", "4.076363808873375`", "0", 
      "4.076363808873375`", "1.9530918069902925`", "0.7699954212504838`", 
      RowBox[{"-", "0.04900792929768311`"}], "1.8035236128515428`", 
      "2.723087228240776`", "1.7545156835538598`", "2.789924983097227`", 
      "2.772083357233445`", "1262.2334126660676`"},
     {"2010", "1.0059560884943217`", "166.8627434462921`", 
      "116.28710217301028`", "31.104985647864353`", "3.444234932576143`", 
      "595.7004753891429`", "954.712719924883`", "4.079126132467041`", "0", 
      "4.079126132467041`", "1.9544863773785366`", "0.7725495697147607`", 
      RowBox[{"-", "0.04904292253596465`"}], "1.8095060731869186`", 
      "2.7270359470932974`", "1.760463150650954`", "2.8006017058619466`", 
      "2.7826668006825925`", "1262.885007824983`"},
     {"2011", "0.9986756233393328`", "167.07969607821045`", 
      "116.40552613887807`", "31.083056068990953`", "3.4344302474385495`", 
      "596.004117722918`", "956.1861904987592`", "4.081853678953442`", "0", 
      "4.081853678953442`", "1.9558640737806294`", "0.7750982789459483`", 
      RowBox[{"-", "0.04907749236398082`"}], "1.8154757934656112`", 
      "2.7309623527265776`", "1.7663983011016304`", "2.8112644843342194`", 
      "2.793236453647822`", "1263.5287295725861`"},
     {"2012", "0.9912525826132621`", "167.2950358321899`", 
      "116.52257984795341`", "31.060396570717003`", "3.424468673752536`", 
      "596.3038901140128`", "957.6521285047783`", "4.084545099878548`", "0", 
      "4.084545099878548`", "1.9572248575980056`", "0.7776415223252503`", 
      RowBox[{"-", "0.04911163781319765`"}], "1.8214327113396818`", 
      "2.7348663799232558`", "1.772321073526484`", "2.8219128692524005`", 
      "2.803791872420874`", "1264.1642470417073`"},
     {"2013", "0.9835665514783078`", "167.5087055595592`", 
      "116.63820287706376`", "31.036928101311723`", "3.4142747126105366`", 
      "596.5995204399452`", "959.1105533029356`", "4.087198007668961`", "0", 
      "4.087198007668961`", "1.9585684971658943`", "0.7801792709166357`", 
      RowBox[{"-", "0.04914535307057008`"}], "1.8273767590336425`", 
      "2.73874776808253`", "1.7782314059630724`", "2.8325461707741413`", 
      "2.8143323751369396`", "1264.790983332684`"},
     {"2014", "0.9756439186251494`", "167.72065384592722`", 
      "116.7523407642657`", "31.01257982665648`", "3.4037863417551333`", 
      "596.8907699680046`", "960.5614694109349`", "4.089810318150586`", "0", 
      "4.089810318150586`", "1.9598945743698148`", "0.7827114930009798`", 
      RowBox[{"-", "0.04917862764456625`"}], "1.833307862253298`", 
      "2.7426060673707946`", "1.7841292346087316`", "2.843163433971327`", 
      "2.824857017662014`", "1265.40843233217`"},
     {"2015", "0.9681821913609691`", "167.93098084525076`", 
      "116.86509532387545`", "30.987478536942763`", "3.393139227760968`", 
      "597.1781031232299`", "962.0048693675426`", "4.092386252659208`", "0", 
      "4.092386252659208`", "1.9612028920273692`", "0.785238158351827`", 
      RowBox[{"-", "0.04921145658738954`"}], "1.8392259502006605`", 
      "2.7464410503791963`", "1.790014493613271`", "2.8537638667365575`", 
      "2.8353650169073368`", "1266.0175786212474`"},
     {"2016", "0.9626485051853522`", "168.14010551999087`", 
      "116.97689691008337`", "30.962164103481104`", "3.3828632238766514`", 
      "597.463438946832`", "963.4407722524992`", "4.0949430549107975`", "0", 
      "4.0949430549107975`", "1.9624944709662278`", "0.7877592507025015`", 
      RowBox[{"-", "0.04924386551414425`"}], "1.8451309847750696`", 
      "2.750253721668729`", "1.7958871192609254`", "2.8643480561458468`", 
      "2.8458569542351646`", "1266.6224905672839`"},
     {"2017", "0.9569192091770665`", "168.34798536314145`", 
      "117.08769984155556`", "30.936571655964222`", "3.372858561007191`", 
      "597.7465246110685`", "964.8692993677731`", "4.097478487827108`", "0", 
      "4.097478487827108`", "1.9637708624876073`", "0.7902747635181518`", 
      RowBox[{"-", "0.04927589335083481`"}], "1.8510229506702542`", 
      "2.7540456260057593`", "1.8017470573194194`", "2.874917639410389`", 
      "2.8563344499821413`", "1267.2226321754652`"},
     {"2018", "0.9493494935974373`", "168.55422045060166`", 
      "117.1970901240929`", "30.910172744119404`", "3.3625797638124633`", 
      "598.0254722720265`", "966.2905512529687`", "4.099975684786785`", "0", 
      "4.099975684786785`", "1.965032221575596`", "0.7927846779560558`", 
      RowBox[{"-", "0.04930754398639729`"}], "1.8569018037518026`", 
      "2.757816899531652`", "1.8075942597654053`", "2.8854727354626744`", 
      "2.8667976223688423`", "1267.8140012166962`"},
     {"2019", "0.9406638940620062`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2020", "0.9330502392836528`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2021", "0.9362973316991106`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2022", "0.9129539580075456`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2023", "0.8798602134155945`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2024", "0.8425071269532097`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2025", "0.8040736402885651`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2026", "0.766612436835809`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2027", "0.7315405637372795`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2028", "0.6999030661166166`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2029", "0.6725288819131747`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2030", "0.6501224354156458`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2031", "0.6333375525519493`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2032", "0.6227965451647841`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2033", "0.6191292835745049`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2034", "0.6229903610624016`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2035", "0.6350724178301925`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2036", "0.6561175400014646`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2037", "0.6869268679753763`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2038", "0.7283640551522208`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2039", "0.7813545005800561`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2040", "0.8468998215961726`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2041", "0.9259445038722632`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2042", "1.0194481476872512`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2043", "1.1281042892711475`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2044", "1.4223869233888269`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2045", "1.7510992619676335`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2046", "2.094959999972105`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2047", "2.4634340993410024`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2048", "2.874699024938888`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2049", "3.3741712781869517`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"},
     {"2050", "4.233311872841292`", "0", "0", "0", "0", "0", "0", "0", "0", 
      "1.951793041371635`", "0", "0", "0", "0", "0", "0", 
      "0.5006938615107441`", "0", "0.`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8235181514128857`*^9},
 CellLabel->
  "Out[100]//MatrixForm=",ExpressionUUID->"cd682742-12a9-4dfd-9813-\
84466c0d7058"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datacheck", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "20"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.818607070407384*^9, 3.818607081268399*^9}, {
  3.8186071385574794`*^9, 3.8186071390074797`*^9}, {3.821033301513343*^9, 
  3.8210333023543444`*^9}},
 CellLabel->
  "In[279]:=",ExpressionUUID->"fa8a2a56-0be6-459c-95a3-902185291729"],

Cell[BoxData["\<\"dalpha\"\>"], "Output",
 CellChangeTimes->{3.8186070821184*^9, 3.8186071395074806`*^9, 
  3.8210333040143466`*^9},
 CellLabel->
  "Out[279]=",ExpressionUUID->"6f43236e-51df-4239-bd1a-a8417a83de6b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"temp", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"datacheck", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"3", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "20"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.818598159248795*^9, 3.818598231047896*^9}, {
  3.81859836121519*^9, 3.8185983919362335`*^9}, {3.8185984255002804`*^9, 
  3.8185984258802814`*^9}, {3.8185984743063493`*^9, 3.81859848214736*^9}, {
  3.818598976745467*^9, 3.818598991587488*^9}, {3.8185990467455654`*^9, 
  3.8185990690775967`*^9}},
 CellLabel->
  "In[294]:=",ExpressionUUID->"694672c6-8fa4-4f77-9213-0a2e881a27be"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwt1QtMU1ccBvAOK77AIYhjKAgFKoIFZA0TJ9gYZEScU4bEgaDoBDS8fPBQ
EXAhaFwRZ4QxIcgYCjLCOsRnnKIiE1bAKA514lAedgqDxScbzPW752vSNL98
3/mfe+5tU8cNSSGbTGQyWYHxjU/plX1MI+vW5fnO/EAjOcdoh4uLM+97C+83
Wqbf+LCY1qKf8bo1ij5kdHbXo38V9BHklrt9DPOFi4xeryiOrKVLjC57GhiR
Qpdhv4K62X50BXz2v9LxdJXRmsGe9jYv4Rqsn/a4uojWoT/uzNyNdD36ze98
7EGfw/VbOY0+9xS+CDvHFmjpBviUb4iSbsR5vCvcr3gI34D3qWdG0nqjG648
tf1HJXwT+RuVSxHdAY80qj+k72L+V/qAznnCD3B9hfUr0+lueK1/qC3di355
RvDP7sIG7Nd52zuaHsD8da9MTelhrH/R0/iDm/AL9EcMm0PoN+i7lT4fmSs8
in7Wk3XltKzM+DluuCaYNjG6IWLOvZeuwnKjs60X95TRpsg9XVuW0xON1kyy
yBuZIzwZ/d5w90raDPnwsYrV9FRYffyNnLbA/rqIOaeVwpZYn/C7Vww9HfnJ
SGsbegYcu+BOi4uwDeZNuZ+cSdsiz7xu8KZnSfsd9DM4C9sjN7udVEo7wMEL
s1fTCvS7EpLMaWd4lo1/k5OwEuev7h7Iol2RfxqXsZB2Qy4PHHypEJ6H+R5y
TR3tgfPF26ck0V7ox7zVqmhv9J+O7RtwFFZjvl1ETA3tg/yyxjWBXoB5Q5db
PeiFyG1uhv3tILwI+fRPrtXT/tgv+pXlTlqD+aGJS/3pJej/5BsupwMwT5/5
XeFs4UDkIfkrlXQQXPT68ll74WXS/dcPLqOXIy/u6/zDTngF3Nq1O5VeCf9q
2TmVDsH6juP9VbOEQ5HnZVQG0GHIty6Z8Xim8Bp4bLPnXjocdlcNOdJr4WsH
VzXaCkdh3rWIkDh6PeygGjSnN8CZm+1Ovy/8Bfxy6cNIOkb6Pv7iNpGOQ771
+tgpG+Et8Ok/V0XT8ej71Tta0ImwYndsw3vCyXBkvN02ehvWr8n3c6F3SNff
dOXeDOFU6Xy3vs+n0+H+FV2B9C6sTzsf+9ZaOAPuS1x0ns6Eg2pDd9DZ0ryj
J73oL2FXX/Vf04VzYGXaYA2di/VhyrZ4ej/yBFm7ij6A/EKlYchKWIu8oNLq
FH0Q9kwJSqMPob86OWsRfRje26szoY+gXzLpTrOlcCG8WN77NV0Ep/bfCaeP
wmm6cme6BPO0q5YMTRMuhYerai7QZdL9yL2XS5dj/fHqhs/oCuSFzZ870iek
53+gZMhCuAp+diD7El2NfkzUWB5dg1x9eHIUXYt8tPaYB61DHpQe9/Zd4Trp
eedmldP10nlPbg+kz8CD1upnU4XPweYuukP0Bdh3XacPfRFuy/u2y1z4kvT7
ae3PoRvgrIof59FX4RV2fR1mwo2wT1/6HroJ3pkcqaRvwN845bZPEW6BP8p5
kk7r4avb0hR0G2ySqNJPFr4Jz+0xSaVvwfO1z2fTHXD3o7HmScK/wc0nnHbQ
d6X/ryNb7On7cKW668ZE4QfS/Z2g3U4/hMMs8+3pbvhuoLxlgvBj6by7RlPo
Xnh8wE4F3S/93q7mtJsKG+BNG732mGr+B9eGVus=
       "]]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwt1H1Uz1ccB/D2k1R6UP3SE3r6eYxUnn6e31sdxBYi2Wy/SIU8ZJMhjsnT
OiFpISvuhywhUUkJk0YjSRJSWJPnZepn0VFj37mfe84997z+uOfec+/n83YN
jQoMVxkYGOxU5v/rx7FOQN+oP2YZMggfvVHgtXNVVIgTO06xYUlATq2P9FaB
mCX7PazS2IkCrVG6tFYdO1lANKRfcnBnpwj0O2xT6ffMWzpNIFNrcfarbDYJ
VPoudhq3nH1Q2T/zUNnbUexMgfypey3COrKzBJbmmt+LrfCSPiHg1i2v0T+F
fVKg15ECo1Oh7EKBdFXvuuIB7LMCFQZ2YVf1A6WLBYyDIt9gC/uiQMP9HTm1
GvZlgZvWHuk7zntKlwsk2+1ZFzKLXamc/6HcZUzrAOlqgXV7XtX33sWuEShc
Nueg3RD2PQEbU6ulxrf6S9cLUMauYy3L2Y8EXn2bYVJnx34mkDK1f8HJIg/p
RgEvD/XztTp2k8DuRMuYoR3Y/wjM13zmXpPZT7pVwFSdEzdnMrtdwPl8wfPr
b/pKGxBsuvy01FWwVYTr1mGG0yewDQmlS0RQhL6PtBHhcePeGzP2so0JYaq1
2zT+bFNCkU3j+YqW3tJmBN2mZDE9nW1BuLZy1vP8qewuhEvvc1frDdjWirU/
2Jjm9JJWEyy6BlS1z2F3JbguH9lWZsO2J1x0b9ZHl/aUdiSceWXfo20Vuxuh
864XKp0nuwehvcTDf1+DRtqFEOi3OejsHrYb4c7BOuvTU9gaQuL+uZ12GrN7
Kfd70lA75YK7dB/Ce8sTM17GsPsRUPvBYOEQdn9CdXNKbFmTm7Qn4VebPJ3Z
MbYX4Tfz1navSLYPod/WAYbD+7AHE14nTIvWPHWVHkoILxnY8jqDrSWMHTY4
/NA89ghCyb2/H4/pyx5F+Ds3ZEXRXy7SYwjry1rfOhxng/DOb5/mm2Xsz5T7
+g4u2qBl+xGsgiseOPzrLD2O0HPkUFVzPHsC4XZ766QtjuyJBPPMYelPjvaQ
/pxQ2HHS8k/GsgMIo321EXdvdpeeQvhxkcs3iyLZgYSW5soVBSr2dMJzX7vq
grRu0jOU/64q3h6pZc8kfL1s/Iert5ykv1Lq5S6KaqLZXxMGvjOt2mrL1hF2
H3VOfVTgKD2bYN/xQkPdLHYo4d/1908s/oQdRnAYXVC5M9NBOoIwLGHmlslT
2fMJzurkAzvb7KUjCU6TZjrNPcReRIjSz4rOnc5eQph9Jaj/2g7spQSf7e0X
ivPspL8j7J+X92JZODua0Gzl3TPJnv094X5OTS/ba12lVxJ+8e/77M16dgxh
zRyfIK8R7DUE99qEw2f0ttJrlf4bGXBjRxZ7HcH7ZWrb0Xns9QTDoPTgDhr2
RuU97m5X7/hTLb2ZUN4zqO4LYscReosedT6z2fFK//tkDtW6srcSho/v3j24
wUY6gTD5yvCcHzPYiYTs0ObUkkh2EsnVi51M+G6RUjFvrKV3EY4nh8fNPcdO
UfLId8qQmE3snwmj4vb2jQ5gpxHqol76+duz9xFeGNdHND+0kiaCGt65Ydns
A4RY91ij1Bj2QcI0Q+25LePZGYS8ppZ8T1t2JsHPfuy21Q1dpI8Qso7s/mNB
LjtLyY87G/ybY9nZSt42LdSYBLJPKPWrapp82I2dS3A83zQx6aml9ElCyhLr
DcXx7FOE6Hzbtque7EKlf/WqxvSbFtJFhJW+jrbaVeyzhBFGYcdXOLN/JSQE
u8QElppLFxNuXHuP04vZJYRJlzuNTrVlXyREqpPKX5wzky4lxE344kxKBPsy
we7V7y93W7LLCPFJiRPqCjtLlxPm56ivBIeyKwjj/LxXdTBjVyp5dc4n6la+
qXQVIXmjX21pCLta8eJ6i2oT9m3l/z8NiWnLM5GuIbQOm398jI5dSziU26fx
gDH7nlJ/TZGnB+UZSz8gfGlXcMNAx64nmDlbTXMzYT9U8qH7Q+dTJztJP1LO
y3P9UD6b/YSw8Fa2yQJz9jMlD+KzhiQXGeE/EAm+sw==
       "]]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2012.916666666667, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->500,
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2012.916666666667, 2164.}, {0, 19.371333}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8185981979338493`*^9, 3.818598215565874*^9}, {
   3.81859837599621*^9, 3.8185983927362347`*^9}, 3.818598482608361*^9, 
   3.818598992527489*^9, {3.818599055375578*^9, 3.8185990698575983`*^9}, 
   3.8186050115413885`*^9, 3.8186051196315794`*^9, 3.818605244232811*^9, 
   3.8186085320625305`*^9, 3.8210334686865797`*^9},
 CellLabel->
  "Out[294]=",ExpressionUUID->"a429ccb7-6d41-4d57-95f9-df3717ca1bff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datacheck", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "21"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8210334906506104`*^9, 3.821033497991621*^9}},
 CellLabel->
  "In[295]:=",ExpressionUUID->"0ec031f1-4a71-46fb-afbc-1f6cad48f2ef"],

Cell[BoxData["\<\"alpha\"\>"], "Output",
 CellChangeTimes->{3.821033498951622*^9},
 CellLabel->
  "Out[295]=",ExpressionUUID->"c93f98d0-30ed-4834-97da-0ba4346101e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"transFairG", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "19"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"datacheck", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "21"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8186080630168653`*^9, 3.818608111962934*^9}},
 CellLabel->
  "In[296]:=",ExpressionUUID->"d1c8e7e2-bfbe-4a68-823d-8c12e791880f"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwt1Xs013cYB3CXbqI4utIivywqq9Xa6Eft3f1mjAyr/JJWa82lki4mnNiG
VIqaRr6PQkIx/daapVku0XSbqIMMk1tZiaIU+67P8z3nc77n9c/3PM/5Ps/7
Y+bl57xJS0ND47h8/n+/fYIkmDfpK7IH13/81qESxuqb2KU7ssMlbC69XXc3
nh0hIetri+WTG9nREmo0/RqNrBqEYyRMdI7+Z9hudpyEyDezOhWF7HgJPt7Z
rZEGjcKJEj4/tjHns/VskjBLVdPzQzY7RYJNr3qNSvMf4XQJD/2DT11wYWdJ
GO0TG01n2TlyvTnpTlYaTcJqCW3Fp1+vc2dfkuAWOeGMdS77soT+8jkpBSMe
ChdIaC60or6t7CIJlR4Hf39Uxi6V+zPxvBA7rVm4XIK99uiy59Hs2xLCV5m/
GNXJvivhxRap4Ylri/B9CZl10Z1RV9i1EsxiTJ2bLVqF6yWsMWzu04plN0nY
GRD9S8MAu1UCHemfFObbJvxYQs+XCedb6thPJVglWqv1ndqFuyV8k+6+qa+I
3StB1/NVZYbykfBrCWrteX0Tc9kahLWma7Ndpj8W1iK0/pmW65DGHkSotNXO
0p3cITyEYFiisDyQzB5GGOJ0P77c7F/h4QTrkhC3W6fZegT7pz+nHLV4IjyS
oEy9c2bMObYBQXtZ6cXpxk+FDQmHvRf4Z6rYowlOxat26qSwxxIC/jUbt6Sd
PZ7QdqUiw2NWp7AxYZ2mys95L/sdQte1mjjFVbYJ4auIftsbus+EJxG2ITXA
yZWtIAysVi08n8w2JzwzjDrS2MGeQqg6EY8OZZewJWGyXsKEGxHsaQQv38ba
0HtsK7me2xethlp0C88gxMw/Sard7PcJ1ad78r4tZc8mlJ3LfxRo/Fx4DmFm
jnOMnQ/7I0JsFHWVFrBtCJYlNz8xGfNCWEmYYqQoUm5l2xHu7VNufaeAPZ9g
1Om28I+xPcIgFOxpnmfhy15IMJ5YMc++hL2Y8PUu7VEzTHuFlxLyqnRCr+9h
LycMLrNVmlawVxJsnxS3T53xUtieEKb308zWSLYDQdFiedKtmf0pobiy7feA
Ra+EnQmnXk4xRTLbRa6nIGq+eoDtSmjHELql6hN2JzTUGpUcvsJeQ8jVtrJ+
ZvJaeB1BVe0R2h3CVhGCa0/YxDWwPQnXdA5o31r0RtiLsNO4Lu5UGvsLwrSQ
+2q94f3CmwlWmusX6/qytxDGh81dkPgXeyuhyNnher71gLA3QaPrA3Pfk2xf
wobkQ39XamrgrbcRDgZPT1J+yN5BqHk1LK9pC3snIXvKgfyKRPYueZ6+DHEZ
eoe9R3Z3vWPIYE3hQEKd046ztkp2EKH8yYHv7fzYwYRkv4fYn8IOJUQWZ3qO
qGbvJ3QkuGTW6WsJhxNemc2d3LOE/R1hqVfkCPcgdgThhGpRj9YFdhQh6Obe
vJdt7GiCWu0dPt9MW/gQQe/XIzUV7uwYgk9wc+rlGPZRgluQw8zXpew4Qo/r
9vePaw4SPi5/z2h31SElO16u3/Ls9XZ/9o+E/GN7lNnn2IkEvzc5fze0sJMI
K49O1YlUDBYmOX/83FMyPdin5P+xpWKp0wl2CmHkY9jsr2SnEfZNWhu0zHCI
cLq8vyd9HmQ4sjMI5w+H91w8yM4i7Ngetmh3Ofu8PP9JixW9ukOFc+R9fC+w
Zak9O5eQOjWqaftBtlreb5sk/4hb7Ity//dIM8FwmPAlwvqBz8f95srOk/P5
RpVnXwL7MqHwnvkFv0b2FcKsueMN3pumI1xAWGLmmLbCn32V4BBYXF6bzy4i
eKg39/brDBcukedH47uMMjd2KeGSwyZXtzPs63I9hXbKwl52uZzXHbGWU+11
hW/K98nKwHmpyezbhKY7swNXv2T/RXgUYg/H1XrCdwnb+6spN5tdRVgxcc6O
YyNHCN8nfNjdNU5vG7ta7n+jQ/27d9m1hEOK+GvtypHCdYSs/KsO7insesKg
wtXdGwz0hRvlfPs+7V2dEHYT4cesmQFeT9nNch4/gLftbAPhVkKfU1JRso8B
/gMxYgom
       "]]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwt1AtQVGUUB3BAJSJcVlEUQ3QF0RABo5BI9I8p+BYIEDZFQzQCeihG5qAi
oAnB+iJfIPeE4APxkQuIySgjQgtpPEIzQh62GomhSJtgFF39zp25c+c339yZ
e87/3KOK+CRwjYmRkdF++X7+fHElSDhW/GHs2SFts144UcJLW4Iqtixlp0io
8A27cugge6eE3O45yt/b2ekS/taGpumntAvvlqCqLmxpj2dnSnAZN3++ZQX7
oISdT21DNcq7wtkShv96Z9CGlWySkBydbFV/lp0nYY/vkCUlxr8Jn5Cwf1ar
tXMwu1BC18SMeq8C9jkJPdVp7Q+M9MJFEn6y2r8RYexSCQ2tC9t9tOwyCXbW
0Yt7FPeEyyX8WFB7MySWfU3CxE02let/YOsk2Kf4vernfF/4uoS2Ms/umxp2
nYRUi1Mb7XvYjRLGxuV86xr2u/BtCUX67qL+cnazhDXBKVnpTh3CbXK/KoPX
tH7N1kv4Z9aXfU9M/hDukKDILc69sY79UILXIHvXmLvsxxJOL8yoqw16IPyX
fL7PI/ipjt0rYejV5q57MzuF+yUM01PKoRK2EWFOX5L1cLeHwiaEE8bJeUtP
sQcT3v6XXAIn/ylsShjobC6yOc42IzT/sswub1KXsDmhoWpYTPdJtgWh/bx5
lrHLI2EFwTxn9plGLVtJsKzb/JZ27GPh4YSsEPNtyyPYIwhHopap7h1nWxNe
TjcMXdTFHk1oLdf77nmzW3gMYWRG8RXtZrYtQYrvjTlfxbYjJGyWO6Z8Ijye
cOC0Ye7s99gTCF2m9er6Y2wHwufPP7CH7UiwfTFgPcKTCb8GZB/VaNhOhJwD
aRlf3GE7E9ROn/h5Tv1L2IXQNzKmVLeZ7Ub4Qr2lzamW/TrhYqr68Hsqg/Ab
hO+ODtxTb2B7EFYXaQocdWxPQubii1cv2f4t7EXwMVhOsFnPnkFYMc2+zFvH
nkmo3pcX4zjuqTDk+nIdHBri2bMJvo+Cyr1r2XMITkZV7lGTe4V9CSYfvBa2
JIk9j1DiSqO6mtkLCG5rF4bM9ewTXkQIs17UH5DJXiLn3fCuXtnN9ifMyE82
bF3yTDiQUKbKMM8uZAcRtt8wGhX5yj/CIYTPvHYbGqPZoYToZw8TO2vYasIi
G0/Kn9IvvJww5OheL+MMdjhh69Gx0/u72Kvk/AvTPt0X8K9wBMGj5tmNa0Xs
SLkfZrs8NKP/E15LyO/tTXmYwI4iBGZ5XmxtZ0cTnJMGTkf6DQjHEia5t4Rs
Os3+mGB9Z9NiS3MjvPCnhL17tOeOe7PXy/M93SZ4xzr2BkKcckNRQT47nnB9
Vfq8EU3sjQSryRHDKhTGwpsI89caFBfeYScQosIVlx5tZG8hJPoFnfj4DDuR
kB65y99dz04iHHR1LZ85xkQ4hVDc2pS615+9g9Axrcbd9Uv2TsLsFXn+1pfZ
aYS24YlbFxjY6fI+SB387g3nQcIaOW+3xMffRLJ3E1y8Dz+ozmbv5fdvsjPl
fPOVuomKwcL7Cf8d8klY5cc+SLgViKaBRPZhwvjSGiuzS+xsgsPq4r6tBnYO
QRW3xv8jtyHCRIjYdrbjVgw7V64n3NKx8jg7T57XVXtWztKzjxGma0K/Wqoy
FT5BsHP3txkIZxcQPK1+2h56hF1IMHX6rfWDZvYZgkVcksdbti8JnyO0jFdP
aVrOPk8YYb/wfmgOu0jeH3RHVdnGLiGsTKi3c3UwEy4ldGoqPU5Gsb8jXHky
3nvuGXYZ4bLbIafRBvZlQtWIwnUe3i8Ll8vzFF5ypGQH+yqhdl6K77l69jV5
v+0IUM6wMxeukuvxqz4VF8vWEdZPM721roxdQ/A7pW4IULwifJ1Qum/nY9cI
9o+EJxZjnk0qZdcRpmrNKkOUFsIN8v/QeSzz52h2I+fxPfsWwXuuYtj0SUOF
bxPej1XpfFLZTXJ/LpilG/5kN8v7I6FOGxasEG4hXDCPoJgr7DZ5/9r36MY5
WwrfletPvqSNz2Lr5fn1bHx01VQpfJ9wsmXMbScfdoecn9qxojtBif8BHdv+
DA==
       "]]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2011.8958333333335`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->500,
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2011.8958333333335`, 2164.}, {0, 4.122016}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8186081141239367`*^9, 3.8186085400945415`*^9, 
  3.81860913904558*^9, 3.8210335048626304`*^9},
 CellLabel->
  "Out[296]=",ExpressionUUID->"6fe5695b-2cf1-463c-bb16-699ebbcbc75e"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"temp", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"0", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "187"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "2"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"temp", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}], "=", 
   RowBox[{"transFairG", "[", 
    RowBox[{"[", 
     RowBox[{
      RowBox[{"2", ";;"}], ",", "1"}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Do", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"temp", "[", 
     RowBox[{"[", 
      RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", 
    RowBox[{"Total", "[", 
     RowBox[{"datacheck", "[", 
      RowBox[{"[", 
       RowBox[{"i", ",", 
        RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"i", ",", "2", ",", "187"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"Do", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"temp", "[", 
        RowBox[{"[", 
         RowBox[{"i", ",", "2"}], "]"}], "]"}], "=", 
       RowBox[{"dalpha", "[", 
        RowBox[{"transFairG", "[", 
         RowBox[{"[", 
          RowBox[{
           RowBox[{"i", "+", "1"}], ",", "19"}], "]"}], "]"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "150"}], "}"}]}], "]"}], ";"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.8210335142046432`*^9, 3.8210335245766582`*^9}, 
   3.822619701921784*^9, {3.8226197327548275`*^9, 3.8226198110529375`*^9}},
 CellLabel->
  "In[146]:=",ExpressionUUID->"309f4383-bc53-4659-ad80-db891deb102b"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"transFairG", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.822619849559492*^9, 3.8226198557320004`*^9}},
 CellLabel->
  "In[150]:=",ExpressionUUID->"80c8c37d-c16c-47d2-8dd7-1143bf59c36d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"1-Y\"\>", ",", "\<\"2-E\"\>", ",", "\<\"3-R1\"\>", 
   ",", "\<\"4-R2\"\>", ",", "\<\"5-R3\"\>", ",", "\<\"6-R4\"\>", 
   ",", "\<\"7-C\"\>", ",", "\<\"8-CCA\"\>", ",", "\<\"9-F\"\>", 
   ",", "\<\"10-Fex\"\>", ",", "\<\"11-TF\"\>", ",", "\<\"12-TMF\"\>", 
   ",", "\<\"13-TMS\"\>", ",", "\<\"14-TDF\"\>", ",", "\<\"15-TDS\"\>", 
   ",", "\<\"16-TM\"\>", ",", "\<\"17-TD\"\>", ",", "\<\"18-\[Alpha]\"\>", 
   ",", "\<\"19-\[Alpha]check\"\>", ",", "\<\"20-atmosGt\"\>"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.8226198564420013`*^9},
 CellLabel->
  "Out[150]=",ExpressionUUID->"3d608d22-f374-4757-9ee2-c8ff2fe17e32"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"transFairG", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "16"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"temp", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}], ",", 
   RowBox[{"PlotRange", "\[Rule]", "Full"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8186170569159575`*^9, 3.818617102382021*^9}, {
  3.8226193989688563`*^9, 3.822619399348857*^9}, {3.8226194300539*^9, 
  3.822619431233902*^9}, {3.822619830372465*^9, 3.822619834973471*^9}, {
  3.8226198650245132`*^9, 3.8226198827930384`*^9}},
 CellLabel->
  "In[152]:=",ExpressionUUID->"24928cbd-824d-4a6a-89f8-4a4ecc67a4a2"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJw91ns81XkaB3BJuaREQm65Hbk0ypnca3pcUg2Ve6XJNY1kJGwZq8I2kj3h
RSFMv+eXVjXFIispNDttUyJldBaTmMZKlshgqpHmt+P5rtfrvLzefzjH7/v9
PM/nGIYd8ImQlZGRqRde//v9x08yBye+6xnNiB1d/4dTONDSk52WnyYf5yDj
zN8ivNeNzTqDA6sOo7jiRLKEgy3x8V0BVeQcDkQVgXVRg+TTHGSfVcrfp/96
1oUcWEvHxFW+5BIOUqqc5I9kkJGDZ4VzD7++Rb7AgaYb99zoNfkSBxo71Ny0
ReOzvsqBfYW/d+cOciUH6dLBK9sl5BoOlizSi85qItdxMJlX8MmBcfItDqKi
GsRDJr/M+jYHg6nH/EcCyHc44Ba7iiIyyPeEv99s+Z+1N8gtHOySKe8Oekl+
xIHznNHEGq2JWXcI5xtum2q6kdzJgWJzg/bXCeSnwnlrmv/0Acl9HIzcGh62
aSH3c1DhlCgVTZEHOTAbfVL7D/3JWQ9z4F3/UPRgA3lMOI+HKWs89pMnOLg4
b36Edjb5DQd3vTw53SryNAfdqadENo/JMgj/dmpNdx8lyyJEpb06JV4wNWs5
hOQbb6y6TcjzET4Oexurt5asgCCN6vP/0YushBByLKnpdRhZGSGxQsFrXRx5
EcILm3L3s0fJixEU/ioN6D1BVkPYblqc9OIUWR3BeMn5xhM5ZA2Eb++8kw5l
k7UQvF3OLeyQkLURPLYEGhtmkHURApWTi6LTyPoIdYn29YbJZAOEp5f7SjL/
RDZCuFrdqtYdQzZBcP12QaE4kmyKUKAw4HgllGyG0HlNS8V3F9kCYbBJXPyx
P3klwhU5v1M+28hWCKF210eqN5NXI5xuTZj0dyOLEbSL8ILTevIahAnvIYtw
R7Itgk6F++oHNmR7BNMVlvJx1mRHhF/Ll7b5f0Rei2CQoCtJMCd/gjCl2m3b
IiIDQkCK8veBRmQXhFGHTEf95WQ3hPCy6rPqumR3BC8P03dOy8ibEHo6/FJy
NcifIphsdg3RUCd7IjStf9jzL1XyVoTKk/menArZC2H38HUVfiHZB+GVZ/DZ
+yx/fgiH0rZGaSqRAxDaHbernlQg70B4PtluoSdPDkQYmNAJaZ9H/gzhfZji
5xflyEEIPoqxc4rnkkMQ6p0uTV+RJYch7LVfZt01h7wHoXnmfqoh816Exphf
f/yLDDkS4beEv9t++EDzEyXkR+Zgbi5zNALGP3qzljkGodrZIPn9DDlWyGOa
nt0PzHGCrdCzgTkBIbh564t65kMIytv8HR4wJyJ8ZrA8eYQ5ScifdMmYAfu8
ZISWewFP9zAfRTDXP5lVx5yCEOeVFajDnicNIX/Gp0jCfFx4vrEz5QvY86cL
ebe99raAOQNhyPngy9Xs/DIR3o62DT9hliBARFdiOjvvLISdZQnyLuw+coT8
/uygqcDuKxfhaNAmy07m08I+6NZ7UDWfnI+QlnEg7TS770KEvjC5n46xPBQh
WPXlJMUrkksQct7nDcSw/JxDOJ5hc/sgyxcKeSoVlf1ZmXxeeL/YI44SlscL
CGHP0Kh0EbkMoSPTUP42y+8lhIzK83nPF5O/QdBSaTykpEa+ipDQ8TLUbgm5
QthfkcGK+9h8VCKoi+aacEvJ1cJ8DXju72LzVIPgGW9drKlFrhXyWqEct5PN
X52Q95OSynPa5HoE+6aSZS90yLcQuhx848R65EaE6FU9qSn65NvC/QxEqz5m
8/5PhH5ds2FjQ/IdBLOFmr2JbD/cFfKioH6jzZh8T/h/y25+asb2SbOQt9Td
e9NMyS0IK5JGentWkB8irPpyUuLI9tEjBNH1E26FFuR2hOwvrXunLMkdCLJu
r2wD2D6TIkQe1VlRa0XuFM7vq2iJxmpyN8JKo163w2wfPkUQf1G5qlNMfoaw
bpHPRw5ryH3CfXYFLy9i+/S5MF9tZwbf2ZL7hfmPvBu9y548gFDi9jjnpgN5
EOG8dpGjjhN5COHIPBnvJNaPwwguS5/c7FxHfoVQsVIabsv2+5jQb6JScR6Q
x4XPt72uNupMnkCoLQ4d3exKnhLOI72xppT1xRuETIfKbdMbyO8QRhI6y303
kqcR7ivmNlzeRJ5BuFE19MUM6x8ZHvoWf13h7UGW5UF2Qim21JP1Pw8/NNqV
/rKF9T8PNnLfObiwPlPgId/7Z1H2//ufhwmz0MBub9b/PGQtz2029mX9z8MF
S7+o/X6s/3mI1Fa0qmJ9qcaD2DxXaTKA9T8P39zxmLTdwfqfB/cYxf5DO1n/
8xD2vWprTSDrfx7carUvjrE+1uXBt2rDPovdrP95UF+puyAsiPU/D+PLJMcL
gln/87CxoL+1OYT1Pw95l9t7f2N9b8qDq17QNYtw1v88rDs24Lx9D+t/HuzM
Db5KjWD9z4NLnOrhy3tZ//Og/F8VtbbPWf/zIL3Z4DUufL/4HU/w3mU=
       "]]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJw91gtUTfkeB/BuE3pglFceRS9korx6SX1VkqYH5ZGQJIkhVEwrpSQmlTQl
um6d/dsxMYQ0Hk0eNyYukZvHovEaYhS6KGUqpbvp95+91llnfdY+53/O/u/f
7/fdRsFrfJepq6mplSqvz+9fjlgJHtWns5LXvnX64gQJ5w4+Oqbezk6ScOtK
bX+fKe+6nCzhQLbz8D3R7DQJVUF+tbOOszMkNOTlNAfXsXdJ8O+stVps2NDl
HAlvorP+yPdj50qYbLP68opkNkmofFmcU32WvV/CtkGDfTQa2AcllO829Go2
bexyoYStS8oyD/uziyQU6BxvM0ljn5BQOHdEu++/2SUSPmT3eGneyD4roaPP
EItc0/ddLpPQND7lz91z2eUS6lss+2gks69IMHH/qfpmCfu6sr7BJbtXdewq
CfGJqf0n6Td1+Y6Eosjboblu7GoJtm05X2tGsR9K0B1W3bCY2E8kjF5n8Czl
Gvu5hMj45pI1zew6Zb8D4xyaDJq7XC/BzPSW9SdX9jsJ7ivlkIiV7CYJw900
d1qns1skfF/tGjq2iN0uoc8Vs3SHKrYaIX+qtsr5DVud8OZ1mZ2J9ocuaxBO
rtbvdsGE3Z2QttUoos2erUno3ljfeMSHrU0oWZfa+usSdk/CNzNUrz+uZfcm
PHSeZzwzjt2H0M3r28K0bWw9wsASh7tpaex+hEmbnmab7mQPIEz+aUtzfDpb
nxDj96P20lT2YIJrQazmIbHeUMLwYve+bxPYhoRjOk62Ugx7OKFzz3c31aPY
xoQJdicneK5mmxKqVfP1KJQ9gnBrVu/QvkHsUcr5xormU/PZo5Xf99Uxy/Jj
WxC8b7WPO+LFHkswW7DIW8udbUW4Um8Rc8CZPV75/EaPG9unsCcSsnOWmx2x
ZVsTVK5J8boT2baEabq+p3+xZNsTdkfj913fsB0I/vrGB46NZDsSclaGjulm
ygZhSK8nYzKGs50J97YOy/UxYLsSrt0xjXYZzHYj3E2Vc8MGst0JT0+dene2
H9uDcPXz+NBjexL25owtf/U125swfkHx6Iu92DMJW0+O23BRh+1LWGcXuLlO
iz2b0PLCxnOiJnsuQa3ij3P7urP9CfFhL65O6sYOIHzn/nDpy6/YCwmn386K
P6fODiRMfdfy4eg/2EGEAeW4d16NHUww+N6jx+tO7ocQAvrbhI8TDiUkqLr3
zPzEDiNU5cy4oyO8kjAiJaM0r4O9ipAY8eD8dOFwwoVnD850F15LePbox+P3
29kRhKb7qwrLhaOU+mg8GlMmvIEQMchmUpVwtFKPT5QbIByjfP9ino6JWD+W
cH1a7MhQ4U0E5/WRDaeFEwgh1xrXDxL/P5Fg5d52IkU4iZAUN3m7prj+bYTV
f5p1ZgknEx5189C2EPuXovxeiK3qv8JpBGv1htJNYr/TCYaPI4PsxP3IIKzS
qFnfIZxJsF0xuF+luH+7CCv0HY0LNNi7Ca8Nwn/YJu53DuFxbUvYOlEPe5V+
18yQl/Zg5xLOt+RPCRT1oyIUOl20ChL1Rco8Ct4UHibmXT4h8KHbV9GiHvcT
jMcX1uzoyS4gGL1yVPtZ1O9BwuevV/RmH1L+T9S13g2i3gsJmZVz3g/VZR8l
RPVWaXmJ/ihS6sNm/6zNfdnFSn85TH9+RvTTCYKT9dWdLf3Zp5R+zPtnkK3o
vxKlf/43cmmsPruUEHRYI/W3QeyzyvXcs6zuNYR9nhD5l51jwFB2mTJPdEzO
HRT9flHZ3x0BS9oM2eWEmRrrDL3FfLhMqAgPbdpnxL6izLvfF1S0GrMrCDXH
pUu+Yr5cJ6Ro+FUWmrFvEBxvrn/aQ8yjKkLHQE31kFHsW4TL1VqWF8zZdwh5
fTeGDRPz7K5S/971cpwFu5rgvn3Rgwdj2PcJ5o6ORpPFPHxI0H5vuHyvFfsx
of5AZ2HrOPYTpV4XPmn0n8CuIRzVvWBbIubrc8IWz/ERA6zZLwjzf9h3OMqG
XUewd0hquC3m8ytCa+IAPSuRj/WEchd9px2T2W+U9VIOLX7pwH6n9Me8ykhX
R3Yj4bal7po8J3YTITaxfMNfYH8gqC83n+8t8qKFkHWpY3qBC7tNOX9qi+5H
V3a7sl8FWg983NiflPrJL0rNn85Wk6FvVmfZJPJIXYb3Lzjj4iHyX0bMf8zt
M78V+S8jvXYCPfYU+S9jz44brebeIv9lZP/a6hYlngd6yljWERpcOlPkvwzr
qXfi1HxF/st4mxGc4CryUk9GZr3uym2zRf7LMJxdY395jsh/GaqpLp0a80T+
y+gom6OCv8h/GdM8t5vGiDweKmPzIi9VcYDIfxn/UvutsXaByH9lvWPzxw5Z
JPJfuZ7nCYu8AkX+ywge9ypg42KR/zIsNvn5//x3/suoqPlkcls874yWsbDS
/tnHYJH/Mq7NGBVnFCLyX4aVZ4G22zKR/zJCvxwfnP4PtmHvEg==
       "]]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2011.1458333333335`, 0.9587204052113131},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->500,
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2011.1458333333335`, 2200.}, {0.9587204052113131, 
   1.4102857061963696`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8186170649569683`*^9, 3.818617103002022*^9}, 
   3.8226193195352445`*^9, 3.8226193999188576`*^9, 3.822619432224903*^9, 
   3.8226194884444823`*^9, 3.8226198367134733`*^9, {3.822619867288017*^9, 
   3.8226198835330396`*^9}},
 CellLabel->
  "Out[152]=",ExpressionUUID->"8886058f-6d3c-41b1-b292-b9a8338a6825"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"transFairG", "[", 
  RowBox[{"[", 
   RowBox[{"1", ",", "16"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8226195403330555`*^9, 3.822619548975568*^9}},
 CellLabel->
  "In[142]:=",ExpressionUUID->"e08b1acb-b25a-46ed-9cda-8f7b5c590c28"],

Cell[BoxData["\<\"16-TM\"\>"], "Output",
 CellChangeTimes->{3.822619549685569*^9},
 CellLabel->
  "Out[142]=",ExpressionUUID->"5990aa53-23c7-4a33-bcc6-77fdef6c7d0c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Total", "[", 
  RowBox[{"datacheck", "[", 
   RowBox[{"[", 
    RowBox[{
     RowBox[{"2", ";;"}], ",", 
     RowBox[{"14", ";;", "15"}]}], "]"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8226196125801573`*^9, 3.822619632838686*^9}},
 CellLabel->
  "In[144]:=",ExpressionUUID->"faad36d2-9294-46d6-b5fc-d669abdb15b4"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"195.802201`", ",", "55.56633000000001`"}], "}"}]], "Output",
 CellChangeTimes->{3.822619634088688*^9},
 CellLabel->
  "Out[144]=",ExpressionUUID->"56da74e4-6e61-4c71-b9a1-a6ec20fd3e86"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"datacheck", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.8226196574272203`*^9, 3.8226196619382267`*^9}},
 CellLabel->
  "In[145]:=",ExpressionUUID->"5c82eece-32eb-408d-8bac-95bbda5ba315"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"T\"\>", ",", "\<\"E\"\>", ",", "\<\"Ec\"\>", 
   ",", "\<\"Ecp\"\>", ",", "\<\"R1\"\>", ",", "\<\"R2\"\>", 
   ",", "\<\"R3\"\>", ",", "\<\"R4\"\>", ",", "\<\"Catm\"\>", 
   ",", "\<\"CCA\"\>", ",", "\<\"Catmstock\"\>", ",", "\<\"alpha\"\>", 
   ",", "\<\"F\"\>", ",", "\<\"TMF\"\>", ",", "\<\"TMS\"\>", 
   ",", "\<\"TDF\"\>", ",", "\<\"TDS\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.822619662698228*^9},
 CellLabel->
  "Out[145]=",ExpressionUUID->"e6eb4162-9a43-4bc3-98a4-ddc2a3c07920"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"transFairG", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "16"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{
      RowBox[{"datacheck", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], "+", 
      RowBox[{"datacheck", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "15"}], "}"}]}], "]"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.8186081721820188`*^9, 3.8186081898850436`*^9}, {
  3.8186171660521107`*^9, 3.8186171785631285`*^9}, {3.82261958615812*^9, 
  3.8226195965606346`*^9}},
 CellLabel->
  "In[143]:=",ExpressionUUID->"3946f544-2c58-4c6d-b888-927f02fbdbfa"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJw91ntYzXccB/CzhEqk5NY9KQnh0OnGvCUNhe6moTpuSZI0WgvVjLSDnphL
mfP5yZN7q1jIxDYzIpG0yqVGCy1qVs217efZ57vzPOc5z+uf8zu/3/f9+byP
rXpl4GIdhUJB8vv959GSDU8NG7UwCP/958Od7ZMU719PtHBsvVP8nVXHf27R
IqDkhv21qew2LdxupIz3Xc5u1+JQ9x6LzbazX2px2d9Pa1HIfqtFXepWe5db
bAXhV8/yTT6tbB1CdNrzrcpenf9Zl5B89qVz3VB2D8I49as4ywlsPUJ1dEPI
XX+2ASFiQ9KFP9VsQ0Jivp7/xHh2H8JjlxM+e9ez+xL0vqoOrd/MNiHMcchJ
eryVbUqw63egdHMmewDhh0uvq5u3swcRArz2967SsM0IvjPD7GzT2RaEMMPk
7Jg0thXhTKJbiW0y24Zw70jDvoxP2UMIx4vKTepi2UMJU37otUcZxXYg7NZr
8jgWyXYk1JwcZBT0CduJ8OSCMmdcCHsk4Zhu8NbA2WxnQqTr6WdF09ljCDvL
EzpCvNlKglk2HfScxB5PaA9odlrowVYRzPN9xlxzYbsRHIaN6Bk/lu1B+PtE
/4qQUewJBJsEC03CcPaHhE7jOtV1ezYIoSmGv4QNYXsRWt0zPKys2d6EhXlF
e00t2D4Ef1+H156D2dMI96uCU7IGsGcQhk6fEjHAlO1HuDDpxv2fjdmzCAVb
dvlpjdj+hPktp42k3uxAwnO/8L1XRf6CCWvSZkUPNGCHEio95hhv0WN/THjY
Uelk2ZMdRmhqN4+o7M6eR3in1l96SJe9gBCoH/dBTjd2BKHE8/DbYzpsNWGJ
2+CxtR+wFxHKuq6m2govIZTG/n33CwU7ivAm4VvVP//w/ETL+VGsysoSjiHQ
6psvJwjHEoom2yS/62LHyXlMs3S9LRwv25n8zgsnEMLLZj0uEV5DMJwd4n5N
OJEwz8Y6+Zlwkpy/6n5tNuJ6yYTrV0LvLRJeTxhutWXbGeEUQrz/tjBzcT9p
hF1dgdka4Y3y/bV9faKXuP9Nct5VJ1/tFk4nNE9e9XSMeH4ZhFetFS13hDUE
LK5N3CSe9zbC3LyEnl7iPDLl/D5yH6gnziuLsH7BtBE1wjvlfVBnea2wB3sX
IS19ZdpOcd57CA1q3d82iDxkE5wbMpNW67P3ETLf7WiKFfnZT9iY7nJxlcgX
yXnKtc/73JB9QP6+uHUeGpHHgwT1AxqS24edR6jKsO15UeT3MCG94MCOh33Z
RwmDjErXGJiwjxMSqp5GuvZj58v7Kypcf5mYjwKCqX23odr+7CJ5vpr8lteK
eTpF8Fs9NmfgIHaxnNd8w/i5Yv7OyHnfoinYb8YuIbhd2Df4sTn7e0Kte1C8
0pJdSogZfT81xYp9UT6fphjjW2LefyQ0Wji22NmyLxEcew+sTxT74bKcFz3T
sxV27Cvy7807N8NR7JMyOW+p85ekObCvE4YlPau/P4x9gzD6sw6Nh9hHNwn2
pzd773FiVxK2fza2vnMEu4qg4/1cFSr2WTUhar35sGJndo38/L6M0QwYw64j
jBxS771W7MN7BOWKgtE1SvYDwsQ+gaPcx7Mb5POsDbfOFvv0oTxfFV8/ea1i
N8rzH3U55hM3dhNhn/etzHPu7CeEA2bZHuae7GbCuu6KgCTRjy0Er/53ztVM
ZD8n5I+sXqgS+71N7jf7XOUOsF/I11edNmmdzG4nFOdEtk6fwu6Un8em0lO5
oi9eEjLcC2a/ncp+TXiWUHMi6CP2W8JV/azzR6axuwhnC5tXdIn+UUho6PtN
foAvW0eCTrtBXK6f6H8Jt0tdc/+aKfpfgovuT+5eos/0JOwKeGS//f/+l9Du
GBlWFyD6X8I266wyuyDR/xIOjgiOXh4s+l9ClJm+c6HoSxMJyuFZBh2hov8l
HL3k26H6WPS/BJ9Y/cY1c0X/S1D/Ylx+Kkz0vwTvYrNDbaKPLSQEFU5d5jRf
9L8E05EWvdQLRP9LeDFYs3F3uOh/CR/tbiwvixD9L2HHkcr6N6LvHSRMsVxw
0mmh6H8JEzc0TZ6zSPS/BNfhNl+mLhb9L8Er3njtkSWi/yUY/mFkUrFU9L+E
6nPn/V/I/y/+BSIPTy8=
       "]]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJw91gtUzncYB/B3qXShrdxyi27IonLpJvVVSVqFMBWlJa/WaJOYk0ruU0nL
bM30IhazeJ+/TZrbITGyrOHQZEZMRnNpaYW0v3me/c95z3s+5/++v//teZ7v
3zb+w4i5BhqNZrv6efWdWn6wweaOHmaz/zi9p6XZT/Nqu6dHTWyGT3P/p6/d
qIejw0X3l4Hsx3oEJ+1ISEliN+sxMMhko3seu1WPj2sDtcOJ/UKPt8465vnU
sDWE4nFmOv+HbAPCwwcnvOzNWl7bkHBwgbXRSXu2MSF3jW3KM2+2CcG4qbFp
3yS2GaF8YU7bD++xuxDenqh78PwjtgXhuv8Mu8kZ7LcIRmHvlOauZVsRepX7
XMnNZXcnjM68tdlhI7snYczXq54uz2NbE9Kmfmo2J4fdhxBYkm6yV9brRxh4
ILjboyy2DUFv7ue5LY09kNDxxQe/GKSy7QgjvQ6ODF3AdiDU6qKstmvZgwgX
p1hou8Wxh6j7m6qelkWxh6rHjzB33DSV7UwIv/jCbV8YezjBcWZMuGkw25Vw
ttE5bbc/e4T6+2UhF9aPZY8ibC6c57jPk+1O0AWuXm45iu1JGG8Zceg7F7Y3
4fOl+PWzt9k+hEhru936wWxfQmGSdpiRAxuEvl1vDssfyPYnXF0zYOuk/uxA
wvnLDksD+rCDCFdydmxN7MUOJtwqK3t8tDs7hHCuoceksVbsUMKWwuGV999k
hxNGzDwwtKIrezJhzUG3JRXm7AjCQq/YFfdM2dMIrXc9QkeZsN8laKp+P7bT
mB1JWJ5499xoI3Y04YPg63P+7MSeRTj0aMryYwbsWMK4x60t+99gxxF6VuLq
cQ07ntD/45DODzq4HxII6OGR7CbWErJ0xl0KXrITCTWFEy+bi5MIg7LzDxe1
s+cTVqbUHZ8gTiacvF13xFj8EeH2b58q116wUwjN1+aXVopT1fpo2p92QryE
kNLbY3SNeKlajzfVByBOU/9fUWRuL+unE34anz5YK84k+C9e9OSQOIuQcL5p
cW85/5UE1+Bn32eLVxNWZ4xZbyLXv5aw4A/Hjk3iTwi/GYWYOcv9y1aPl+Cp
+1mcS3A3eHI4U+53HsHmxqI4L3ke+YT5hvWL28UFBM/3+3Svluf3GeF9a1+7
EkP254QH/ZPXrZXnXUi40dCauFDqYYva7yb5O+Z0Zm8lHG8tHhsr9aMjlPpV
uMZJfW1X51F8ZnKizLtiQuz1oE5LpR53EexGlNZv6MIuIdje99V8I/W7h/Dq
71UW7L3q+aSet3gi9V5KKKie/nc/S/Z+QqqFzjRM+oPU+vDYNWVFN/YBtb98
Jtw5Iv30PcHP/dzG1h7sMrUfi76M85T+K1f756/Bc9Kt2YcJcd8a5pzqzT6q
Xs9Vl9qufdnHCYv+8fKN7sc+oc4Tc/tje6TfK9T7uyH6vWc27ErCZMOFNuEy
H84QqpK1zTtt2WfVeffrzKo2O3YVoV7ZdjpC5stPhGzDqdWljuwLBN9fFt/q
LPOohtDey8QgYQj7IuFMranLSSf2ZUJRt2WJA2SeXVHrP7xxR4Yzu5YQvD6m
rm4Y+xrBydfXdozMw+sEs79t5m1xZd8gNO7uKG1zY99U63XWzabIkex6wn7L
k57lMl/vEFaFjkjp6c6+S4hat/PbVA/2PYK3z+onl2Q+3ye0rexp5Sr52Eio
DLD22zCG/VBdL3vv7D992I/V/phRvSjQl91EuORi+WGRH7uZkL6ycsk/YLcQ
DOY5RYVLXrQSNp1un1ASwH6m7i9bZfk8kP1CvV8lpnWTgtgv1fopppziCWyN
AmvHey7NkkcGCsK/w5GAEMl/BWk/OnkXvCP5ryCvYeT2G6GS/wq+2HChzSlc
8l/B5h/aglLlfaCLgrnt2vjDkyX/FbiPu5yhiZD8V/AoPz4rUPLSSkFBo2XS
2mmS/wpsptV7n5ku+a9ANy6gw3CG5L+C9hPTdYiU/FcwPnS9Q5rkcT8FK2LC
dAeiJf8VfKU51dQwU/JfXU8fNbxvjOS/ej13smLCYiX/FcS73Y9eNlvyX4Fz
5tTIb/7PfwVV9S/tL8n7zlAFs6q9bz+Pl/xXcH7ikAzbBMl/Ba6hJWZBcyX/
FWj/21r8/gW8FWLM
       "]]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1965.3125000000002`, 1.310219548255136},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->500,
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1965.3125000000002`, 4400.}, {1.310219548255136, 
   1.4102857061963696`}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.818608191016045*^9, 3.8186171793831296`*^9, 
  3.821033281458314*^9, 3.822619520916528*^9, 3.822619597074136*^9},
 CellLabel->
  "Out[143]=",ExpressionUUID->"1df6c96e-70ec-4c73-a163-2da04bc45eaf"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ListLinePlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"transFairG", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "18"}], "}"}]}], "]"}], "]"}], ",", 
     RowBox[{"transFairG", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{"2", ";;"}], ",", 
        RowBox[{"{", 
         RowBox[{"1", ",", "19"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"PlotStyle", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Blue", ",", "Red"}], "}"}]}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.818607649197199*^9, 3.818607667049224*^9}, {
  3.8186077633923597`*^9, 3.818607778744381*^9}},
 CellLabel->
  "In[258]:=",ExpressionUUID->"23f80986-7c28-4e18-bc01-2b87f2214d8d"],

Cell[BoxData[
 GraphicsBox[{{}, {{{}, {}, 
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwt1H1UjnkaB/CeSKpnI2IimtBUpGexTQrDl8E0jWnTmEyRZKox2LbJay9r
m5QaK1FtydDvMpOmyHim0ori6c1ITURTmYrHS2i1Yb3UEO29ftd9zn3u8/nj
Puf6Xb/v+U5Y81efEEMDA4MM5f3/980TI2B3Z9jEE0b6eW8cK2CpaTQ38WbH
C8z2U0+uyGInCRj6VbcV32bvFuiv108L1tyU3iuw7KBRvXUUO13genKMp/pn
9n4Bhy7bIN9Rt6QPCozekLjUIoRNAp5LNm71KmHnCLxYmuNlbXJbOk9gfVva
93EB7AKB398665VcxNYK1DSOLFlgdke6WCCm6oRNfjD7lEBt5Ip7NefYZQKr
U3ZoD43rlNYJtNqXR7lEs6sFzqUE1iS3sS8IvApPPlzw3l3peoGceT9WpB1m
XxZwGzBMWGR8T7pJYPw7iQbVYexWgaeXoLZoZbcLzL+01FPz/n1pvUBWl4Pz
eC37jkB1nenL6zZd0vcFbk4NadyUwu5W9v1B5rEbqn9LPxLoXaAOtd3Cfipw
2iFTN7Ob3SfQaTE10D74gXS/QEOz5mJ3B9uAcLquPuIfft3ShoRfn/cXGbaw
BxNyEoKu+Pj+R3oI4c9RzS+jW9hDCQ2qvsXb/XukTQltHT3FfjfYakLQp0em
m4c+lDYn3DtTkfptD3s44YuPp9fFznkkPYJQ6df5SMSxLQlT3nZVHatljyYs
vJhbctjisbQVIf/ytbM7/NljCd/PaS/1zmGPI3zuqnEf+pBtQ4jxma7Ln/Vf
aVtCnr6myiWRPZFwXP1Nfl4T247g9MTq58GTnkjbK/OmvxvkEcF2JLhdW1sQ
UcmeouxjjH993Min0lMJN4zzr24NYWsInSrrKu9T7GkE7SG7b9TqZ9IzCH6P
dhoeXc12IWz+i+MLhxK2K8EmzWZygvq5tBvhw9o/ueo+Z88iGBm1nWw5w55D
8EkJdbpo2Ss9l6ByX26SEcYG4cpXe35yr2UvIOhu5W4usuuTXkiYbZeSqfqa
vZgwvG/wRxOvsz0IHe8Wl4yc87u0J6Exc9GzqwfYSwiX2t1HB71gexFaw2a8
Xer/Qtqb4P3JMvPfzrB9CC4ho9orxr+UXqacx3vF38Ji2b6E7IDZnR232Z8R
yiNGGJt79Ev7E85pblzrL2CvJBi3f7Aib8Qr6VXK/RXuSDWPZK9W8n+0N9VZ
z15DOLuv9O+DPF5LBxPWjVm6d4+WHarsA5GWv4wZkF5L6Fvnv618B3sd4RdN
rseqHvYGJa89udYtUw3wxmHK+Wq0w5vXsMMJ8cvddjllsSMI7RaOU1ousTcR
8OpjbesQlfQWwkRfz1d/nMveRphhsHF0x2Z2FKHIzX+y/jg7hnDEYn2K+132
dsL5rKzGLhtD6VhClmplwePl7DjCynxY+uxjxxOanDfOUtexdxLCPv1i3wSj
QdJJhF2OSY1p89i7CE/w5evgKPZuJQ/hX2/IPMneQzg0tv6882P2XsJXcScs
nZwHS6cq81oN06V+yU5X8hK969u1uewMQuEWfZf2Nns/YV/yqJDwCUbSBwgV
B1sWFQSyDxJKM8w+WpfNzibM7B1Uqe1gk5Lndxan7Bw/RPo7wkOr9JlPAtg5
hOYm267X2excQq2mO75Qz85T+i3xZN5bk4yljxIcdKWlbqHsAsKw4kUPbY+y
fySUlQcHtPewtYTvNmcObHUZKl1IiFySVqWKZhcT1FZh6UmV7BJlfl9VyDgz
E+lThAUDGe4Ny9inCfbH3adpBbtM6W/H9MRfH7DPKn0YOT/Hx91UWkcICCwf
8V4Su5LwU5FjwrFWdjXB9JxX3ckpZtLnCf96cLlq03b2BUJJ9NWFhk3si4Sr
AwO925zU0vWEgef/tH8az25Q/ve7GZ6iZ19W7v+HxPWhc/8gfUXp/2uTrNOz
2U2EkXY182eozKWbCbvb9od/FspuVfoj0fHC2Ab2b8r+yuw/THIbJt2u9Mfu
9Ql5R9jXCVs9w53LTIdL65U+PpDg+ux99i3CtvkOE2K3s+8QNGY6o7Wn2XcJ
i21Dogp72fcJJtPbVwW6WuB/ESD+Xw==
       "]]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6], 
      LineBox[CompressedData["
1:eJwt1AtUVVUaB3AGecrDt0OmjAEGcyMkcJBuCn8dkAYRH5mYKRIiBZKAMSYP
EUkQk0QF0VLcXz4QFYkQHwsQ4coYsAjRQSJFuALSxW4ORqOCgHPG/Z219jrr
t9Zee+9z/t/+XguNXrbe0MDAIFcZ/3+/fJIEHLrH2H1nrPV+6RSB2FNFEWmL
2TsEvv1q6+wrh9gZAuZmeTrXTnamgLorqzHY+b70XoHsZoud+z9n5wjYJG8w
HbrGPiQwtCZqb/m4TukjAm98+qGVLoRNApYfHD6w/3v2CYG2vvMbakd1SRcI
1O2apsoJYhcKfHHRNmmkkF0s4LctO8/aqFu6VMCxNeds/Wr2ZYF9tt7tsy+x
KwRydzkWr5rwQLpKoGrT9iGPWHaNwF9mrZrW1MSuFchIiRxxcuuRbhCY6Brh
7HOA3STgItK09oPsZoFLi98xrw/5RbpVIGBaWpBnHbtNoHB9j2+Mu05aKzAw
5qjtZ4LdLVCbo34xz6pXWidw16Xv7r0ktl7gbePIdL9H7D6Bomx98baPHkr/
ocxXafrSW9jPBLpLLa6uWfSr9JCST79TvNF1tgHh3jWb9YnQSxsSPlyyr0RT
wTYiGEwYSLij/k3ahFD5yvhqTRnbjLC08HBM4pxH0qMJjg0uIUZVbEuCS9iu
pWt8/yNtTfh6eX5fWgN7LKEj3L+3UtUnPZ4wTkxX28WwJxLcP6jNi7rInky4
/Cy6PG+YbUPY2Hv/zQu+j6WnECb/WZtasoc9lfC+jaf6QCvbluB9TX19tf3v
0tMJ48+v220WzbYjnHM93nGwnO1AaFj+nflo837p1wn/jHNDcBDbiVATGXcm
O5+tIrxSU7H29BO2M2F6o/vHR/3+kHYhXDn76qXYr9muhLv5obPs9Gw3gn7r
388Xef9Xepbyvc0znk7KYXsQ9mvPlKzoZXsq+6/x2hnt/URaTVg+w9p4bS57
DsH+prrQ/hHbizB81PW38gVPpUHwz73t9Dqx5xO6J/QUhwyyfQiZa7+qjXj/
mfQCwlulbSe9v2e/S3ijuWuT1mpA2p/wnllZoP8GdgDB+NWVgYl17ECC7t2f
tsY6DUovIUTX1HSqMtjLCDuv9mw9qWMvJ1SvC1jU8Y/n0iuU9TwNAlvOslcS
tg+OT86wHpJeRRhZdq+jP5a9mjB74uOkyS3sYMLD0L5PHqmHpUMIOTHjauKJ
HUqobcisvGgyIh2mrO/rkXf8U3Y4IS7O+YrXbfYnhJ+a9AfT576QjiRMWLj4
h/h8dpSS5+axaRZmBnjpjYT6a70nXOayYwgLPNpvnNzE3qTcR9WKczEF7DhC
83wHw6x29maCnd+68waT/iS9hVAe4ln/r4XsBMLZer/P21PZSYTXFrlNXljG
TiY0Vs18y/J3dgphfY5+h53KUDqVsLt/xCgrlL2D8KQuULvsMDudEJB8LC26
mZ1BOJ7lUtBjNUr6S0L4xGM+ZX7sTMLP6qv5+u3sPQSTvJaNKRXsvYQpfekH
tzxl71fyGzyZ2OpmJJ2j7Be0uu34Rnauct7opbr2M+xDSv0knJ6/5xf2N4QN
8e6jLzkYSx8haEzqtMGh7KNKXof8+3cTmwg/mrsa+nawjyn1HRUQuc/WRPqE
Uj+7696MD2bnE/YlzB82EuwCpb/YR83z0rLPKPk7ZMyYaWcqXUg4/POpbzvD
2EWEB3cs08IK2MUE1eZdKdV6dgkhLLzX1dTNTLpUuf8lmr/6bGFfJAStTH6x
8yr7MiHX4vSSLlNz6TLl/9zq/fHjpewKQrHmGzgdYVcq+d6ozvLUsasITyfd
rD73t9HSGsKtrDmDeTvYNQTn976InX6bfZ3Qmp0avsjRQrpW6Q/z4ky9Etn1
BN+B/EDLm+wGQpFj4Y1bTpbSjYQ7qoiYwlR2E8Hhh2az0nb2LUKFsfb+qLlW
0s1Kv3Q/ZXohj91C+LJy20ftBtbSrYRfRz1PyA5n3yG4TtFoOxvZbYSWqfM6
//32GOl2glFmRNi6U2wt4cLDG84ai7HSnUp/evzcZqovu5vw2cyGd+q3sXsI
ZQ/8h2+Ws3UEn64rHu4DY/E/6x4Khg==
       "]]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}, {
     {RGBColor[0, 0, 1], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[1.6]}, 
     {RGBColor[1, 0, 0], PointSize[
       NCache[
        Rational[1, 90], 0.011111111111111112`]], AbsoluteThickness[
      1.6]}, {}, {}, {}}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{2011.8958333333335`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->500,
  Method->{
   "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{2011.8958333333335`, 2164.}, {0, 4.303098184766221}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8186077796843824`*^9},
 CellLabel->
  "Out[258]=",ExpressionUUID->"a6ea025e-53a0-43a2-bbfe-403680a1bfb2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"transFairG", "//", "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.8185980989907103`*^9, 3.818598108200723*^9}},
 CellLabel->
  "In[207]:=",ExpressionUUID->"4deb0b1d-6e8f-44b7-95b9-7b014b7759c8"],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"\<\"1-Y\"\>", "\<\"2-E\"\>", "\<\"3-R1\"\>", "\<\"4-R2\"\>", "\<\"5-R3\
\"\>", "\<\"6-R4\"\>", "\<\"7-C\"\>", "\<\"8-CCA\"\>", "\<\"9-F\"\>", \
"\<\"10-Fex\"\>", "\<\"11-TF\"\>", "\<\"12-TMF\"\>", "\<\"13-TMS\"\>", \
"\<\"14-TDF\"\>", "\<\"15-TDS\"\>", "\<\"16-TM\"\>", "\<\"17-TD\"\>", \
"\<\"18-\[Alpha]\"\>", "\<\"19-\[Alpha]check\"\>", "\<\"20-atmosGt\"\>"},
     {"2015", "5.082533`", "58.67921274495937`", "43.23694001744334`", 
      "17.564411310666078`", "2.843841913560096`", "400.32581517602887`", 
      "313.2518991916266`", "1.951793041371635`", "0", "1.951793041371635`", 
      "0.8744688356918116`", "0.10801833594743858`", 
      RowBox[{"-", "0.021942597229288662`"}], "0.2530062051352929`", 
      "0.9824871716392501`", "0.23106360790600428`", "0.5006938615107441`", 
      "0.5006938615107441`", "848.6907281731812`"},
     {"2016", "4.562433`", "59.67051224006918`", "44.039974592254495`", 
      "17.8927947406617`", "2.784785591200854`", "402.38947635358625`", 
      "318.54929545520497`", "1.9792864061157796`", "0", 
      "1.9792864061157796`", "0.8900673780194364`", "0.11017473453991063`", 
      RowBox[{"-", "0.022334003438051156`"}], "0.25805703488428955`", 
      "1.000242112559347`", "0.2357230314462384`", "0.5097699441334407`", 
      "0.5097071708780573`", "853.0656898696029`"},
     {"2017", "4.608277`", "60.67177377836299`", "44.853182337372495`", 
      "18.233588027596394`", "2.7888080720492603`", "404.54876140478115`", 
      "323.74115838667177`", "2.0079314283324314`", "0", 
      "2.0079314283324314`", "0.9051996258084353`", "0.11235976981523205`", 
      RowBox[{"-", "0.02271370915751812`"}], "0.2631749389720254`", 
      "1.0175593956236673`", "0.24046122981450727`", "0.5187688638423319`", 
      "0.5186449130819036`", "857.6433741781361`"},
     {"2018", "4.657896`", "61.68381762577969`", "45.67732989054251`", 
      "18.587078371451074`", "2.826755909229348`", "406.77639098640265`", 
      "328.8933231936342`", "2.0373233222838336`", "0", "2.0373233222838336`",
       "0.9200695117567046`", "0.11457456579791568`", 
      RowBox[{"-", "0.023086831566105956`"}], "0.2683625501475979`", 
      "1.0346440775546202`", "0.24527571858149194`", "0.5277962009738817`", 
      "0.5276112120848221`", "862.3659488911736`"},
     {"2019", "4.707928`", "62.70673350965748`", "46.51247498462843`", 
      "18.952820750554675`", "2.8831856883162907`", "409.0566241225569`", 
      "334.04003630498715`", "2.067243044100041`", "0", "2.067243044100041`", 
      "0.9348028148014018`", "0.1168198401547994`", 
      RowBox[{"-", "0.023456526770064923`"}], "0.27362154936787064`", 
      "1.0516226549562013`", "0.2501650225978057`", "0.536913009133428`", 
      "0.5366663011946919`", "867.2000431398207`"},
     {"2020", "4.75817`", "63.740567059422325`", "47.358656375178384`", 
      "19.330473997926443`", "2.9502075645327945`", "411.38131418646`", 
      "339.19901376951265`", "2.097574896311068`", "0", "2.097574896311068`", 
      "0.9494797546133107`", "0.11909609210358482`", 
      RowBox[{"-", "0.023824807680380554`"}], "0.2789531059266964`", 
      "1.0685758467168955`", "0.2551282982463159`", "0.5461558327487048`", 
      "0.5458462369557701`", "872.1283860752952`"},
     {"2021", "4.808438`", "64.78532392916631`", "48.21588665607183`", 
      "19.719748074457307`", "3.0237211656476286`", "413.7460890147431`", 
      "344.3795796935524`", "2.1282544061404423`", "0", "2.1282544061404423`",
       "0.9641532389339901`", "0.12140370288557786`", 
      RowBox[{"-", "0.024193001883830043`"}], "0.28435811278743384`", 
      "1.0855569418195679`", "0.2601651109036038`", "0.5555478529753903`", 
      "0.5551738877219945`", "877.1417087112554`"},
     {"2022", "4.85856`", "65.84097240196641`", "49.084148824036774`", 
      "20.120375788627715`", "3.1015563586371417`", "416.1484625626681`", 
      "349.58669497195143`", "2.1592426725693565`", "0", 
      "2.1592426725693565`", "0.9788589685242238`", "0.12374298571777409`", 
      RowBox[{"-", "0.024562005201262224`"}], "0.28983730358333815`", 
      "1.1026019542419978`", "0.2652752983820759`", "0.5651046654741422`", 
      "0.5646646328704601`", "882.2347406328564`"},
     {"2023", "4.90838`", "66.90744686485542`", "49.96339645806063`", 
      "20.532099211905148`", "3.1825411135949158`", "418.5868928378161`", 
      "354.82298838863767`", "2.19051363248567`", "0", "2.19051363248567`", 
      "0.993621279010968`", "0.12611421080768367`", 
      RowBox[{"-", "0.02493242827406169`"}], "0.2953913112085949`", 
      "1.1197354898186516`", "0.27045888293453324`", "0.5748373596537728`", 
      "0.574329401100305`", "887.4042128161701`"},
     {"2024", "4.957755`", "67.98465063265598`", "50.853554652485464`", 
      "20.954662338475725`", "3.26602585950124`", "421.06030267251845`", 
      "360.0898001390687`", "2.2220476236783617`", "0", "2.2220476236783617`",
       "1.0084566767310652`", "0.12851761791455446`", 
      RowBox[{"-", "0.025304685287258585`"}], "0.30102069723987446`", 
      "1.1369742946456196`", "0.27571601195261586`", "0.584754212667016`", 
      "0.5841763422020292`", "892.6478416657392`"},
     {"2025", "5.006555`", "69.07245877223062`", "51.754521725463306`", 
      "21.387807622979`", "3.3516379247582453`", "423.5678352348312`", 
      "365.3877277069657`", "2.253828125911024`", "0", "2.253828125911024`", 
      "1.0233760791918651`", "0.13095342261201587`", 
      RowBox[{"-", "0.025679050188255885`"}], "0.30672596660502466`", 
      "1.154329501803881`", "0.28104691641676877`", "0.5948616538976801`", 
      "0.5942117789814136`", "897.9638106978422`"},
     {"2026", "5.054641`", "70.17071614636616`", "52.66616643415577`", 
      "21.831268480875867`", "3.439147181187672`", "426.1087074319855`", 
      "370.7169175689985`", "2.2858398401363993`", "0", "2.2858398401363993`",
       "1.0383862846475327`", "0.13342181918733373`", 
      RowBox[{"-", "0.026055693562152704`"}], "0.3125075743738577`", 
      "1.1718081038348664`", "0.286451880811705`", "0.6051648325800277`", 
      "0.6044407675329292`", "903.3504597558093`"},
     {"2027", "5.101929`", "71.27924936500285`", "53.588339797918124`", 
      "22.28478140067098`", "3.528412287271626`", "428.6821920402636`", 
      "376.07721967944894`", "2.3180684402412925`", "0", 
      "2.3180684402412925`", "1.0534910033447544`", "0.13592298213160448`", 
      RowBox[{"-", "0.026434708508262968`"}], "0.3183659292485605`", 
      "1.1894139854763588`", "0.29193122074029754`", "0.6156679666462416`", 
      "0.6148674415796481`", "908.8062471253589`"},
     {"2028", "5.14832`", "72.39786352553097`", "54.52087135185205`", 
      "22.748078478460705`", "3.619333824089795`", "431.2875563693335`", 
      "381.4682857018207`", "2.3504997928145897`", "0", "2.3504997928145897`",
       "1.0686916037079073`", "0.13845706696138355`", 
      RowBox[{"-", "0.026816129363756543`"}], "0.3243013954881561`", 
      "1.2071486706692909`", "0.29748526612439957`", "0.6263745838355638`", 
      "0.6254952504786865`", "914.329619502987`"},
     {"2029", "5.19373`", "73.5263454721536`", "55.463572247588836`", 
      "23.220889301921847`", "3.7118368252415275`", "433.92405303630585`", 
      "386.88962036783937`", "2.383119846911571`", "0", "2.383119846911571`", 
      "1.0839876468100371`", "0.14102421046262587`", 
      RowBox[{"-", "0.02719994511486487`"}], "0.33031429347987384`", 
      "1.225011857272663`", "0.30311434836500895`", "0.6372876738879394`", 
      "0.6363271094512627`", "919.9189924369684`"},
     {"2030", "5.238077`", "74.66446423038323`", "56.416235500556226`", 
      "23.702939429449906`", "3.8058579684472793`", "436.59090631823665`", 
      "392.34061465014605`", "2.415914473308756`", "0", "2.415914473308756`", 
      "1.0993772875869308`", "0.14362453075938475`", 
      RowBox[{"-", "0.027586109464339557`"}], "0.33640489990005956`", 
      "1.2430018183463156`", "0.30881879043572`", "0.648409797544269`", 
      "0.6473655071976784`", "925.5727213946617`"},
     {"2031", "5.281273`", "75.81196970316596`", "57.37863449576838`", 
      "24.193946939839044`", "3.9013363153677316`", "439.28729664354114`", 
      "397.82056592050054`", "2.4488692867752517`", "0", 
      "2.4488692867752517`", "1.1148575688599378`", "0.1462581271635807`", 
      RowBox[{"-", "0.027974548209216`"}], "0.34257344736229595`", 
      "1.2611156960235186`", "0.3145988991530799`", "0.6597431609666096`", 
      "0.6586125793949573`", "931.2890688843073`"},
     {"2032", "5.323272`", "76.96860179742744`", "58.35053228728581`", 
      "24.693632872095588`", "3.9982212305369993`", "442.01239737674587`", 
      "403.3286890061065`", "2.4819701080729533`", "0", "2.4819701080729533`",
       "1.1304246666596651`", "0.14892508020902662`", 
      RowBox[{"-", "0.028365165396594814`"}], "0.3488201244970985`", 
      "1.2793497468686916`", "0.32045495910050364`", "0.6712896725886948`", 
      "0.6700701648474805`", "937.0662824387013`"},
     {"2033", "5.364016`", "78.13408781642032`", "59.33167879342604`", 
      "25.201716132908217`", "4.09646295335625`", "444.7653548855109`", 
      "408.8641330075247`", "2.5152027263239893`", "0", "2.5152027263239893`",
       "1.146074091481557`", "0.1516254518299723`", 
      RowBox[{"-", "0.0287578483736447`"}], "0.35514507637011156`", 
      "1.2976995433115293`", "0.32638722799646686`", "0.6830510001132025`", 
      "0.6817398618019331`", "942.9025523572831`"},
     {"2034", "5.403452`", "79.30814354619027`", "60.32181183822972`", 
      "25.717913581569434`", "4.196011614855955`", "447.5452897702454`", 
      "414.4259892918875`", "2.548552922958908`", "0", "2.548552922958908`", 
      "1.1618008340329231`", "0.15435928540114074`", 
      RowBox[{"-", "0.029152471444757737`"}], "0.36154840457588366`", 
      "1.316160119434064`", "0.3323959331311259`", "0.6950286059687013`", 
      "0.6936230629981006`", "948.7960143129203`"},
     {"2035", "5.441534`", "80.49047477665015`", "61.32065865503117`", 
      "26.241940791211363`", "4.2968173345866365`", "450.3513007468793`", 
      "420.01329810142363`", "2.582006526144697`", "0", "2.582006526144697`", 
      "1.1775994828640817`", "0.15712660582802002`", 
      RowBox[{"-", "0.02954889882320723`"}], "0.3680301674493535`", 
      "1.3347260886921017`", "0.3384812686261463`", "0.7072237761330951`", 
      "0.7057209842109864`", "954.7447575833842`"},
     {"2036", "5.478205`", "81.68077491125992`", "62.3279333674174`", 
      "26.773507797913304`", "4.398825463422323`", "453.18245072941295`", 
      "425.6250547384523`", "2.6155492527490023`", "0", "2.6155492527490023`",
       "1.193464309876316`", "0.1599274195702545`", 
      RowBox[{"-", "0.029946986776754933`"}], "0.3745903801206387`", 
      "1.3533917294465705`", "0.3446433933438838`", "0.7196376417050265`", 
      "0.7180346856302771`", "960.7467955463555`"},
     {"2037", "5.513442`", "82.87873235521612`", "63.343344570938136`", 
      "27.31232780799476`", "4.5019859309849135`", "456.03779985453394`", 
      "431.2602116331958`", "2.649167106942434`", "0", "2.649167106942434`", 
      "1.209389350917501`", "0.16276171482018906`", 
      RowBox[{"-", "0.0303465856499957`"}], "0.3812290149332308`", 
      "1.37215106573769`", "0.3508824292832351`", "0.7322711954413169`", 
      "0.7305650883013105`", "966.800135691612`"},
     {"2038", "5.547211`", "84.08402812513586`", "64.36659281725504`", 
      "27.8581129359073`", "4.60624718261956`", "458.9163902503178`", 
      "436.917687314134`", "2.682846200850752`", "0", "2.682846200850752`", 
      "1.225368478888543`", "0.16562946182208607`", 
      RowBox[{"-", "0.030747541698779815`"}], "0.3879460021916823`", 
      "1.3909979407106292`", "0.3571984604929025`", "0.7451253165550029`", 
      "0.7433129987120224`", "972.9027473306738`"},
     {"2039", "5.579484`", "85.29633715285033`", "65.39737192755058`", 
      "28.410575000637053`", "4.7115569678230305`", "461.817250238261`", 
      "442.59637021969445`", "2.716572806753397`", "0", "2.716572806753397`", 
      "1.2413954543484107`", "0.16853061310799272`", 
      RowBox[{"-", "0.03114969836001904`"}], "0.3947412307140674`", 
      "1.4099260674564034`", "0.3635915323540484`", "0.7582007838777615`", 
      "0.756279121898094`", "979.0525705051134`"},
     {"2040", "5.610233`", "86.51532828540033`", "66.43536896508708`", 
      "28.969424666051502`", "4.817861296022425`", "464.73939240196137`", 
      "448.2951227926497`", "2.750333336366119`", "0", "2.750333336366119`", 
      "1.2574639663984688`", "0.1714651037535965`", 
      RowBox[{"-", "0.03155289727757618`"}], "0.4016145484312604`", 
      "1.4289290701520654`", "0.37006165115368417`", "0.7714982873870212`", 
      "0.7694640729901031`", "985.2475118921582`"},
     {"2041", "5.639425`", "87.74066319853502`", "67.48026309470228`", 
      "29.53436926440483`", "4.925102408038337`", "467.6818071550805`", 
      "454.01278451603713`", "2.7841142690507836`", "0", 
      "2.7841142690507836`", "1.2735676594385705`", "0.1744328515730229`", 
      RowBox[{"-", "0.031956978973642004`"}], "0.4085657628432004`", 
      "1.4480005110115934`", "0.3766087838695584`", "0.7850184348266045`", 
      "0.7828683838785304`", "991.4854311687707`"},
     {"2042", "5.66705`", "88.97200139461431`", "68.53173072290357`", 
      "30.105118655804084`", "5.033225127918135`", "470.6434850906401`", 
      "459.7481732926507`", "2.817902409718976`", "0", "2.817902409718976`", 
      "1.28970016464624`", "0.17743375743338952`", 
      RowBox[{"-", "0.03236178363862614`"}], "0.41559464175565713`", 
      "1.4671339220796296`", "0.383232858117031`", "0.798761757826835`", 
      "0.7964925094288121`", "997.7641883921572`"},
     {"2043", "5.693092`", "90.20899889880684`", "69.58944412972014`", 
      "30.681382741000878`", "5.142173344532668`", "473.62340830346056`", 
      "465.50009112147137`", "2.85168478607416`", "0", "2.85168478607416`", 
      "1.3058551319381126`", "0.18046770566808695`", 
      RowBox[{"-", "0.032767151933149136`"}], "0.4227009142482387`", 
      "1.4863228376061997`", "0.3899337623150896`", "0.8127287246117967`", 
      "0.8103368401790824`", "1004.0816256033364`"},
     {"2044", "5.717537`", "91.45130869369261`", "70.65307190371702`", 
      "31.262871384786855`", "5.251889871958815`", "476.62055104355534`", 
      "471.26732695247046`", "2.885448654078217`", "0", "2.885448654078217`", 
      "1.3220262498846997`", "0.1835345644258616`", 
      RowBox[{"-", "0.03317292548775335`"}], "0.42988427149203173`", 
      "1.5055608143105614`", "0.3967113460042784`", "0.8269197457430825`", 
      "0.8244017081784614`", "1010.4355682123373`"},
     {"2045", "5.740373`", "92.69858115386681`", "71.72227937976733`", 
      "31.849294390225527`", "5.362316404710522`", "479.6338805179702`", 
      "477.04865922671087`", "2.919181504496286`", "0", "2.919181504496286`", 
      "1.3382072618460061`", "0.18663418602663917`", 
      RowBox[{"-", "0.0335789473077858`"}], "0.43714436758302977`", 
      "1.5248414478726453`", "0.40356542027524395`", "0.8413351785213685`", 
      "0.8386873915017888`", "1016.8238266980969`"},
     {"2046", "5.76158`", "93.95046230754448`", "72.79672683901306`", 
      "32.44035869394437`", "5.473390769893495`", "482.66234779979544`", 
      "482.84285818924144`", "2.952870959121966`", "0", "2.952870959121966`", 
      "1.3543919730906302`", "0.18976640725285174`", 
      RowBox[{"-", "0.03398506195203401`"}], "0.4444808202244949`", 
      "1.544158380343482`", "0.41049575827246093`", "0.8559753283339516`", 
      "0.8531941157686131`", "1023.2441773355664`"},
     {"2047", "5.78116`", "95.20659861716804`", "73.87607443670473`", 
      "33.035774161504236`", "5.585053253411024`", "485.70490965818806`", 
      "488.6486862494491`", "2.9865050112835876`", "0", "2.9865050112835876`",
       "1.3705742643966152`", "0.1929310497288513`", 
      RowBox[{"-", "0.034391115874005215`"}], "0.45189321161564`", 
      "1.5635053141254664`", "0.41750209574163477`", "0.8708404492269552`", 
      "0.8679220549016433`", "1029.6944084753588`"},
     {"2048", "5.79911`", "96.46663589290988`", "74.95998106938632`", 
      "33.63525160398743`", "5.69724375087811`", "488.76052150656176`", 
      "494.46490233089685`", "3.0200719407298338`", "0", 
      "3.0200719407298338`", "1.3867481101959946`", "0.1961279203983629`", 
      RowBox[{"-", "0.0347969578772181`"}], "0.4593810895699442`", 
      "1.5828760305943574`", "0.42458413169272613`", "0.8859307520091229`", 
      "0.8828713392778088`", "1036.172305593911`"},
     {"2049", "5.815425`", "97.73021885807792`", "76.0481039219117`", 
      "34.2385017543948`", "5.809900625930963`", "491.8281343497154`", 
      "500.2902641034111`", "3.0535602748162938`", "0", "3.0535602748162938`",
       "1.4029075861817124`", "0.1993568119206597`", 
      RowBox[{"-", "0.03520243930607937`"}], "0.4669439684430955`", 
      "1.602264398102372`", "0.43174152913701613`", "0.9012464061158548`", 
      "0.8980420577668257`", "1042.6756448213966`"},
     {"2050", "5.830103`", "98.99699180102249`", "77.14009913814013`", 
      "34.845235723139545`", "5.922961294445968`", "494.9066971461482`", 
      "506.1235293349736`", "3.0869588093492077`", "0", "3.0869588093492077`",
       "1.4190468743996851`", "0.20261750305387266`", 
      RowBox[{"-", "0.035607414173656225`"}], "0.4745813300307979`", 
      "1.6216643774535577`", "0.4389739158571417`", "0.9167875393870202`", 
      "0.91343425768045`", "1049.2021979498343`"},
     {"2051", "5.843139`", "100.26659792324286`", "78.23562114737335`", 
      "35.4551637747067`", "6.036361022011681`", "497.9951530567346`", 
      "511.96345748453047`", "3.1202565626122394`", "0", 
      "3.1202565626122394`", "1.435160265720371`", "0.20590975902043143`", 
      RowBox[{"-", "0.03601173922369418`"}], "0.4822926244247272`", 
      "1.6410700247408025`", "0.44628088520103304`", "0.9325542372424226`", 
      "0.9290479441559041`", "1055.7497244802773`"},
     {"2052", "5.85454`", "101.53868194699467`", "79.33432535410087`", 
      "36.06799840442742`", "6.150036195367285`", "501.09245109029024`", 
      "517.8088104533924`", "3.153442895231025`", "0", "3.153442895231025`", 
      "1.4512421660735608`", "0.20923333191915525`", 
      RowBox[{"-", "0.03641527408706347`"}], "0.49007727097775117`", 
      "1.660475497992716`", "0.4536619968906877`", "0.9485465417965828`", 
      "0.9448830794693867`", "1062.3159963114153`"},
     {"2053", "5.864313`", "102.81289011529498`", "80.43586813373976`", 
      "36.68345396140356`", "6.26392347998271`", "504.197544879821`", 
      "523.6583551795871`", "3.186507488685708`", "0", "3.186507488685708`", 
      "1.4672871062318449`", "0.21258796119939039`", 
      RowBox[{"-", "0.03681788152725056`"}], "0.4979346594144794`", 
      "1.6798750674312353`", "0.4611167778872288`", "0.9647644552086904`", 
      "0.9609395865030635`", "1068.8987951452207`"},
     {"2054", "5.872462`", "104.08886954002801`", "81.53990615899542`", 
      "37.30124546949516`", "6.37795842874746`", "507.3093887866661`", 
      "529.5108655370756`", "3.2194402961001147`", "0", "3.2194402961001147`",
       "1.4832897455878633`", "0.2159733740875482`", 
      RowBox[{"-", "0.03721942753513875`"}], "0.505864150830323`", 
      "1.6992631196754115`", "0.46864472329518425`", "0.9812079400677868`", 
      "0.9772173492921234`", "1075.4959042277321`"},
     {"2055", "5.878994`", "105.3662688538521`", "82.64609707368771`", 
      "37.921089204054645`", "6.492076128919742`", "510.42694044991424`", 
      "535.3651232909895`", "3.2522315621191673`", "0", "3.2522315621191673`",
       "1.499244873681913`", "0.21938928599345345`", 
      RowBox[{"-", "0.037619781367339615`"}], "0.5138650786432648`", 
      "1.7186341596753665`", "0.4762452972759252`", "0.9978769174903136`", 
      "0.9937162113370902`", "1082.1051137538182`"},
     {"2056", "5.883912`", "106.64473734100602`", "83.75409859780576`", 
      "38.54270129775104`", "6.60620978139721`", "513.54915620736`", 
      "541.2199193252043`", "3.2848717674873344`", "0", "3.2848717674873344`",
       "1.5151474093260628`", "0.22283540089252712`", 
      RowBox[{"-", "0.03801881552421489`"}], "0.5219367494890284`", 
      "1.73798281021859`", "0.4839179339648135`", "1.0147712647638742`", 
      "1.010435973445446`", "1088.7242111596033`"},
     {"2057", "5.887231`", "107.9239275449162`", "84.86357121970782`", 
      "39.165800923792204`", "6.720294054108036`", "516.6750029319243`", 
      "547.0740539891282`", "3.317351745423847`", "0", "3.317351745423847`", 
      "1.5309924035578906`", "0.22631141174542374`", 
      RowBox[{"-", "0.03841640582399309`"}], "0.5300784442039739`", 
      "1.7573038153033143`", "0.4916620383799808`", "1.031890812873471`", 
      "1.0273763914682983`", "1095.3510062156795`"},
     {"2058", "5.888965`", "109.20349505090141`", "85.97417797033235`", 
      "39.79010974053318`", "6.834264087780691`", "519.8034560389476`", 
      "552.9263392022386`", "3.3496626511477436`", "0", "3.3496626511477436`",
       "1.5467750461935852`", "0.22981700097209598`", 
      RowBox[{"-", "0.0388124315672031`"}], "0.5382894189354777`", 
      "1.776592047165681`", "0.49947698736827456`", "1.0492353484459707`", 
      "1.0445371783622022`", "1101.983326802569`"},
     {"2059", "5.889125`", "110.48309783427825`", "87.08558375194796`", 
      "40.4153508132198`", "6.948054237558625`", "522.9334958264046`", 
      "558.7755998528298`", "3.3817959151898296`", "0", "3.3817959151898296`",
       "1.5624906667729799`", "0.23335184087408825`", 
      RowBox[{"-", "0.03920677556038745`"}], "0.5465689061310502`", 
      "1.795842507647068`", "0.5073621305706628`", "1.0668046126198911`", 
      "1.0619180032513622`", "1108.619011151978`"},
     {"2060", "5.887727`", "111.76239734686744`", "88.19745646166028`", 
      "41.041249844106154`", "7.061599340627685`", "526.0641121826616`", 
      "564.620674417565`", "3.4137432832812573`", "0", "3.4137432832812573`", 
      "1.5781347351250679`", "0.23691559405129883`", 
      RowBox[{"-", "0.03959932413029247`"}], "0.5549161155144982`", 
      "1.8150503291763667`", "0.5153167913842057`", "1.0845982985602325`", 
      "1.0795184891017828`", "1115.2559178272427`"},
     {"2061", "5.88478`", "113.0410569958991`", "89.30946542496184`", 
      "41.667532999386665`", "7.174832411326477`", "529.1942970209741`", 
      "570.4604161603426`", "3.4454967304824455`", "0", "3.4454967304824455`",
       "1.5937028590742426`", "0.24050791378723899`", 
      RowBox[{"-", "0.03998996706631217`"}], "0.5633302349882984`", 
      "1.8342107728614816`", "0.5233402679219862`", "1.1026160488288859`", 
      "1.0973382103270004`", "1121.8919096844652`"},
     {"2062", "5.880306`", "114.31874496891943`", "90.42128431368351`", 
      "42.29393045615292`", "7.287688383693288`", "532.3230573118492`", 
      "576.2936930636873`", "3.4770485852534194`", "0", "3.4770485852534194`",
       "1.6091907851621174`", "0.2441284444578018`", 
      RowBox[{"-", "0.040378597638600515`"}], "0.5718104315910378`", 
      "1.8533192296199192`", "0.5314318339524373`", "1.120857451783558`", 
      "1.1153766893562722`", "1128.5248815011203`"},
     {"2063", "5.874326`", "115.59513401649482`", "91.53259092160994`", 
      "42.920175920888134`", "7.400103202788882`", "535.4494132511818`", 
      "582.1193895923022`", "3.5083915004098913`", "0", "3.5083915004098913`",
       "1.6245944039372802`", "0.2477768219997948`", 
      RowBox[{"-", "0.040765112730804465`"}], "0.5803558525948352`", 
      "1.872371225937075`", "0.5395907398640307`", "1.1393220431829425`", 
      "1.133633398374698`", "1135.1527560925056`"},
     {"2064", "5.866857`", "116.86990058301656`", "92.64306627030423`", 
      "43.546005335147115`", "7.512012335452334`", "538.5723937133203`", 
      "587.9364078525687`", "3.539518397945976`", "0", "3.539518397945976`", 
      "1.6399097495188162`", "0.25145267432375784`", 
      RowBox[{"-", "0.041149412829111734`"}], "0.5889656264722645`", 
      "1.891362423842574`", "0.5478162136431527`", "1.1580093047505589`", 
      "1.1521077580357013`", "1141.773474672239`"},
     {"2065", "5.857922`", "118.14272611050644`", "93.75239595786186`", 
      "44.17115845345289`", "7.623352382895471`", "541.6910420941167`", 
      "593.7436679252802`", "3.5704225182794005`", "0", "3.5704225182794005`",
       "1.6551329991731913`", "0.25515562172099043`", 
      RowBox[{"-", "0.04153140201163372`"}], "0.5976388638497159`", 
      "1.9102886208941818`", "0.5561074618380821`", "1.1769186613535496`", 
      "1.170799134811243`", "1148.3850092395276`"},
     {"2066", "5.847535`", "119.41329508292137`", "94.86026814524789`", 
      "44.79537616133031`", "7.734058242145723`", "544.8044068210453`", 
      "599.5401089041916`", "3.601097317033483`", "0", "3.601097317033483`", 
      "1.67026046976554`", "0.25888527723477217`", 
      RowBox[{"-", "0.04191098785935946`"}], "0.6063746583768878`", 
      "1.9291457470003124`", "0.5644636705175283`", "1.1960494782681035`", 
      "1.189706838447182`", "1154.985342460616`"},
     {"2067", "5.835728`", "120.6812989375595`", "95.96637759559518`", 
      "45.418405494547514`", "7.8440683154929784`", "547.9115595325952`", 
      "605.3246885157057`", "3.6315366355093057`", "0", "3.6315366355093057`",
       "1.6852886191975145`", "0.26264124707362296`", 
      RowBox[{"-", "0.0422880814922349`"}], "0.6151720876947461`", 
      "1.9479298662711375`", "0.5728840062025111`", "1.2154010579336274`", 
      "1.2088301189135369`", "1161.572506209102`"},
     {"2068", "5.822523`", "121.94643389206318`", "97.07042343328787`", 
      "46.03999664691969`", "7.953320977332292`", "551.011584139003`", 
      "611.0963851101211`", "3.6617345824322354`", "0", "3.6617345824322354`",
       "1.700214049667752`", "0.2664231310564437`", 
      RowBox[{"-", "0.04266259765097609`"}], "0.6240302144781564`", 
      "1.9666371807241958`", "0.5813676168271803`", "1.2349726423977483`", 
      "1.2281681688679535`", "1168.1445583746865`"},
     {"2069", "5.807948`", "123.20840224822408`", "98.17211049342099`", 
      "46.65990458470957`", "8.061756202566164`", "554.1035827183209`", 
      "616.8541978819673`", "3.69168558220788`", "0", "3.69168558220788`", 
      "1.71503350684528`", "0.2702305230114526`", 
      RowBox[{"-", "0.04303445467632787`"}], "0.6329480873702936`", 
      "1.9852640298567326`", "0.5899136326939658`", "1.254763410806493`", 
      "1.247720121358958`", "1174.6995953628405`"},
     {"2070", "5.792029`", "124.4669119573874`", "99.27114887698879`", 
      "47.277888377672596`", "8.169314695773494`", "557.1866730972223`", 
      "622.5971477586963`", "3.7213843416181036`", "0", "3.7213843416181036`",
       "1.729743879842257`", "0.2740630111828549`", 
      RowBox[{"-", "0.04340357450837987`"}], "0.6419247419351651`", 
      "2.003806891025112`", "0.5985211674267853`", "1.2747724788646264`", 
      "1.2674850493757575`", "1181.2357469661113`"},
     {"2071", "5.774789`", "125.72167596855658`", "100.36725328388793`", 
      "47.8937102767106`", "8.275936940533622`", "560.2599856590888`", 
      "628.3242778075394`", "3.7508258101762837`", "0", "3.7508258101762837`",
       "1.7443421972867599`", "0.27792017858940005`", 
      RowBox[{"-", "0.043769882588022994`"}], "0.6509592014974415`", 
      "2.02226237587616`", "0.6071893189094185`", "1.29499889576993`", 
      "1.2874619629535424`", "1187.7511695972682`"},
     {"2072", "5.756263`", "126.97241483599853`", "101.46014570761221`", 
      "48.5071390575254`", "8.381566583682336`", "563.3226753742185`", 
      "634.0346531714644`", "3.7800052863597458`", "0", "3.7800052863597458`",
       "1.758825628145542`", "0.28180160342448085`", 
      RowBox[{"-", "0.044133307877594445`"}], "0.6600504780795906`", 
      "2.040627231570023`", "0.6159171702019962`", "1.3154416424894002`", 
      "1.3076498075774257`", "1194.2440717933434`"},
     {"2073", "5.736481`", "128.21885563274682`", "102.54955431720167`", 
      "49.1179485032316`", "8.486148531482518`", "566.3739161740626`", 
      "639.7273623957949`", "3.808918353507004`", "0", "3.808918353507004`", 
      "1.773191484231814`", "0.28570685948211`", 
      RowBox[{"-", "0.04449378292380419`"}], "0.6691975733996218`", 
      "2.058898343713924`", "0.6247037904758176`", "1.3360996340479885`", 
      "1.3280474665151543`", "1200.712702289013`"},
     {"2074", "5.715476`", "129.46073260250623`", "103.63521413469682`", 
      "49.725918194289754`", "8.589629644038277`", "569.4129037649311`", 
      "645.4015178231537`", "3.8375608970960133`", "0", "3.8375608970960133`",
       "1.7874372198395196`", "0.2896355165508608`", 
      RowBox[{"-", "0.04485124384855804`"}], "0.6783994797937941`", 
      "2.0770727363903805`", "0.633548235945236`", "1.356971718959213`", 
      "1.3486537603578608`", "1207.155355981654`"},
     {"2075", "5.69328`", "130.69778694235683`", "104.71686681599617`", 
      "50.33083316413455`", "8.69195822989298`", "572.4388543417806`", 
      "651.0562562002327`", "3.8659290831323414`", "0", "3.8659290831323414`",
       "1.8015604311408917`", "0.2935871408042529`", 
      RowBox[{"-", "0.04520563033384082`"}], "0.6876551811309987`", 
      "2.0951475719451444`", "0.6424495507971578`", "1.3780566793659044`", 
      "1.369467447204475`", "1213.570371204575`"},
     {"2076", "5.669922`", "131.9297661508586`", "105.79425998490785`", 
      "50.932483008946036`", "8.793083105557947`", "575.4510014396704`", 
      "656.6907389927062`", "3.89401931990614`", "0", "3.89401931990614`", 
      "1.8155588524873862`", "0.29756129515038354`", 
      RowBox[{"-", "0.045556885528897605`"}], "0.6969636536316833`", 
      "2.11312014763777`", "0.6514067681027857`", "1.3993532292630155`", 
      "1.39048722104586`", "1219.9561230521015`"},
     {"2077", "5.645443`", "133.15642663565637`", "106.86714992881883`", 
      "51.5306652601097`", "8.892956977168462`", "578.4486079911534`", 
      "662.3041522635624`", "3.92182836165631`", "0", "3.92182836165631`", 
      "1.8294303573388464`", "0.3015575396231322`", 
      RowBox[{"-", "0.04590495607354876`"}], "0.7063238667841524`", 
      "2.1309878969619787`", "0.6604189107106037`", "1.4208600143177261`", 
      "1.4117117116423588`", "1226.3110489412452`"},
     {"2078", "5.619881`", "134.37753306158308`", "107.93530093004017`", 
      "52.125184464095035`", "8.99153513435658`", "581.4309627794748`", 
      "667.8957078323209`", "3.949353265413301`", "0", "3.949353265413301`", 
      "1.8431729618869273`", "0.3055754318106213`", 
      RowBox[{"-", "0.0462497921891107`"}], "0.7157347843481298`", 
      "2.1487483936975487`", "0.669484992159019`", "1.442575616391839`", 
      "1.4331394889569047`", "1232.6336410924866`"},
     {"2079", "5.593272`", "135.59285791606396`", "108.99848482373037`", 
      "52.715851577974206`", "9.088774685857224`", "584.3973781930258`", 
      "673.4646437955928`", "3.9765913611413266`", "0", "3.9765913611413266`",
       "1.8567848240081606`", "0.3096145272355289`", 
      RowBox[{"-", "0.04659134765212562`"}], "0.7251953652455476`", 
      "2.1663993512436894`", "0.678604017593422`", "1.4644985546943305`", 
      "1.454769064448498`", "1238.9224417692149`"},
     {"2080", "5.565655`", "136.8021821610213`", "110.05648167730796`", 
      "53.30248479912339`", "9.184635329878335`", "587.347193156731`", 
      "679.0102246725378`", "4.003540270019593`", "0", "4.003540270019593`", 
      "1.8702642419392514`", "0.31367437972613765`", 
      RowBox[{"-", "0.046929579761121464`"}], "0.734704564429636`", 
      "2.183938621665389`", "0.6877749846685146`", "1.4866272865102599`", 
      "1.4765988917437363`", "1245.1760494922698`"},
     {"2081", "5.537067`", "138.0052947982787`", "111.10907934923115`", 
      "53.884908976504825`", "9.279078642686597`", "590.2797709561013`", 
      "684.5317417778728`", "4.0301978759289545`", "0", "4.0301978759289545`",
       "1.8836096525962847`", "0.31775454177973744`", 
      RowBox[{"-", "0.047264449294436586`"}], "0.7442613337361048`", 
      "2.2013641943760223`", "0.6969968844416682`", "1.5089602084901088`", 
      "1.4986273679835387`", "1251.3931144269347`"},
     {"2082", "5.507553`", "139.20199460796596`", "112.15607528912848`", 
      "54.46295786620052`", "9.372070267587244`", "593.1945072202823`", 
      "690.0285132578091`", "4.056562389523945`", "0", "4.056562389523945`", 
      "1.8968196323707627`", "0.3218545649476126`", 
      RowBox[{"-", "0.047595920530194354`"}], "0.7538646227848792`", 
      "2.2186741973183755`", "0.7062687022546849`", "1.5314956589011348`", 
      "1.5208528360435336`", "1257.5723553069986`"},
     {"2083", "5.477157`", "140.39208993122287`", "113.19727631954152`", 
      "55.036473813604886`", "9.463579303595662`", "596.090828557365`", 
      "695.4998848631939`", "4.082632326579309`", "0", "4.082632326579309`", 
      "1.909892899820739`", "0.32597400024595885`", 
      RowBox[{"-", "0.04792396131383035`"}], "0.7635133799425724`", 
      "2.2358669000666977`", "0.715589418628742`", "1.5542319231458386`", 
      "1.5432735899914969`", "1263.7125565416138`"},
     {"2084", "5.445923`", "141.57539867020358`", "114.23249864313777`", 
      "55.605307736358284`", "9.553578105852235`", "598.9681923449518`", 
      "700.9452303935096`", "4.108406497400971`", "0", "4.108406497400971`", 
      "1.9228283160688437`", "0.3301123985446631`", 
      RowBox[{"-", "0.04824854306807984`"}], "0.7732065532331054`", 
      "2.2529407146135068`", "0.7249580101650256`", "1.5771672379372526`", 
      "1.5658878791703141`", "1269.8125677712978`"},
     {"2085", "5.413896`", "142.75174850538122`", "115.26156807470643`", 
      "56.16931940032872`", "9.642042424527249`", "601.8260875943436`", 
      "706.3639519847992`", "4.133884006203932`", "0", "4.133884006203932`", 
      "1.9356248845360413`", "0.33426931094754075`", 
      RowBox[{"-", "0.04856964078629709`"}], "0.7829430912283182`", 
      "2.269894195483582`", "0.7343734504420211`", "1.6002997952395968`", 
      "1.5886939120541868`", "1275.8713057000084`"},
     {"2086", "5.381118`", "143.92097624365258`", "116.28431937744807`", 
      "56.72837657048988`", "9.728950446135961`", "604.6640318271266`", 
      "711.7554803712992`", "4.159064215330984`", "0", "4.159064215330984`", 
      "1.9482817487139426`", "0.3384442891478731`", 
      RowBox[{"-", "0.04888723297655711`"}], "0.7927219438807296`", 
      "2.2867260378618157`", "0.7438347109041725`", "1.6236277454570887`", 
      "1.6116898594206657`", "1281.8877474735084`"},
     {"2087", "5.347642`", "145.0829302086433`", "117.30059873680938`", 
      "57.28235813793016`", "9.814285866456727`", "607.4815821392397`", 
      "717.1192747496194`", "4.18394683559917`", "0", "4.18394683559917`", 
      "1.9607981936242231`", "0.3426368858172382`", 
      RowBox[{"-", "0.04920130169827615`"}], "0.8025420634342755`", 
      "2.3034350794414613`", "0.7533407617359993`", "1.647149202216431`", 
      "1.6348738589918472`", "1287.8609541351882`"},
     {"2088", "5.313517`", "146.2374693715118`", "118.31026287103981`", 
      "57.831152966218276`", "9.898036401017517`", "610.2783307991874`", 
      "722.4548236305302`", "4.208531878638486`", "0", "4.208531878638486`", 
      "1.973173648923417`", "0.34684665502117557`", 
      RowBox[{"-", "0.04951183264011863`"}], "0.8124024053979019`", 
      "2.3200203039445926`", "0.7628905727577833`", "1.6708622512571374`", 
      "1.6582440241002379`", "1293.7900612942774`"},
     {"2089", "5.278795`", "147.38446400285414`", "119.3131797122504`", 
      "58.37466074599784`", "9.980194484817616`", "613.0539081353201`", 
      "727.761645077929`", "4.232819674335773`", "0", "4.232819674335773`", 
      "1.9854076898513378`", "0.35107315261369887`", 
      RowBox[{"-", "0.04981881514379541`"}], "0.8223019294696121`", 
      "2.3364808424650367`", "0.7724831143258167`", "1.694764957143275`", 
      "1.681798450281322`", "1299.6742852468785`"},
     {"2090", "5.243528`", "148.5237956727088`", "120.30922841513105`", 
      "58.91279199734372`", "10.060757075042163`", "615.8079823496257`", 
      "733.0392871036009`", "4.256810861251072`", "0", "4.256810861251072`", 
      "1.9975000383279624`", "0.35531593663559363`", 
      RowBox[{"-", "0.05012224223158735`"}], "0.8322396004693818`", 
      "2.352815974963556`", "0.7821173582377945`", "1.7188553711648649`", 
      "1.7055352229565275`", "1305.5129225812066`"},
     {"2091", "5.207765`", "149.65535659866146`", "121.298298694421`", 
      "59.445467234331076`", "10.139724684531016`", "618.5402564013445`", 
      "738.287327913957`", "4.280506352101704`", "0", "4.280506352101704`", 
      "2.0094505613983693`", "0.35957456768269636`", 
      RowBox[{"-", "0.05042211056732491`"}], "0.8422143892017605`", 
      "2.3690251290810656`", "0.7917922786344356`", "1.7431315378542886`", 
      "1.7294524237545386`", "1311.3053435708505`"},
     {"2092", "5.171565`", "150.77905181885077`", "122.2802930758544`", 
      "59.97261982163652`", "10.21710416317404`", "621.2504780689158`", 
      "743.505375778706`", "4.303907413857717`", "0", "4.303907413857717`", 
      "2.0212592727103518`", "0.36384860930208107`", 
      RowBox[{"-", "0.05071842049346514`"}], "0.8522252733838406`", 
      "2.385107882012433`", "0.8015068528903755`", "1.7675915027859184`", 
      "1.7535481381197828`", "1317.0510135061015`"},
     {"2093", "5.134986`", "151.8947989746726`", "123.25512668035944`", 
      "60.494195687150665`", "10.292908091228682`", "623.9384386228114`", 
      "748.6930697244472`", "4.327015648222175`", "0", "4.327015648222175`", 
      "2.032926336673471`", "0.3681376284267358`", 
      RowBox[{"-", "0.05101117613545271`"}], "0.86227123866338`", 
      "2.401063965100207`", "0.8112600625279273`", "1.7922333250634634`", 
      "1.777820467444314`", "1322.7494898803602`"},
     {"2094", "5.098087`", "153.00252852808495`", "124.22272745763104`", 
      "61.0101536150719`", "10.36715484748235`", "626.6039736376703`", 
      "753.8500799329465`", "4.3498329910854725`", "0", "4.3498329910854725`",
       "2.0444520706663396`", "0.3724411957947769`", 
      RowBox[{"-", "0.05130038545710608`"}], "0.8723512796007075`", 
      "2.4168932664611167`", "0.8210508941436014`", "1.8170550885822665`", 
      "1.8022675400291186`", "1328.400424111861`"},
     {"2095", "5.060926`", "154.1021835443132`", "125.18303597215694`", 
      "61.52046497895874`", "10.439868149770982`", "629.2469618345999`", 
      "758.9761080754556`", "4.3723616954326845`", "0", "4.3723616954326845`",
       "2.0558369457758356`", "0.3767588863562589`", 
      RowBox[{"-", "0.05158606027916626`"}], "0.8824644006215736`", 
      "2.4325958321320944`", "0.8308783403424074`", "1.8420549128742552`", 
      "1.826887521665578`", "1334.003559089352`"},
     {"2096", "5.02356`", "155.1937194745555`", "126.13600519017744`", 
      "62.025113486986406`", "10.511076684426211`", "631.8673240255456`", 
      "764.0708874306507`", "4.3946043157373404`", "0", "4.3946043157373404`",
       "2.067081585630956`", "0.3810902796576943`", 
      RowBox[{"-", "0.05186821625003527`"}], "0.8926096169177944`", 
      "2.4481718652886504`", "0.8407414006677592`", "1.8672309628406496`", 
      "1.8516786250029655`", "1339.5587269341568`"},
     {"2097", "4.986059`", "156.27710698088853`", "127.08160340334203`", 
      "62.524098891019584`", "10.580817673528358`", "634.4650361381784`", 
      "769.1341828318691`", "4.416563811711486`", "0", "4.416563811711486`", 
      "2.0781867704643937`", "0.3854349602816253`", 
      RowBox[{"-", "0.05214687294769122`"}], "0.9027859554768377`", 
      "2.463621730746019`", "0.8506390825291464`", "1.892581461835206`", 
      "1.8766391223296512`", "1345.0658766129384`"},
     {"2098", "4.948487`", "157.35233063247182`", "128.0198128930522`", 
      "63.01743528348552`", "10.649134774967036`", "637.0401227733767`", 
      "774.165791605249`", "4.438243486155032`", "0", "4.438243486155032`", 
      "2.089153442121512`", "0.3897925183119334`", 
      RowBox[{"-", "0.052422054005375945`"}], "0.912992456171697`", 
      "2.478945960433445`", "0.8605704021663211`", "1.9181047093748824`", 
      "1.9017673626989053`", "1350.5250602795586`"},
     {"2099", "4.910911`", "158.41938955745337`", "128.95063061372943`", 
      "63.50515197201752`", "10.71607877406072`", "639.592660106661`", 
      "779.1655437786861`", "4.459647002722338`", "0", "4.459647002722338`", 
      "2.099982705767315`", "0.39416254976864395`", 
      RowBox[{"-", "0.0526937871544271`"}], "0.9232281727793126`", 
      "2.494145255535959`", "0.8705343856248855`", "1.943799095130102`", 
      "1.9270617856593875`", "1355.9364394261215`"},
     {"2100", "4.873399`", "159.47829766027513`", "129.8740684277484`", 
      "63.9872937842506`", "10.781707666996137`", "642.1227767286703`", 
      "784.1333024200266`", "4.4807783862894155`", "0", "4.4807783862894155`",
       "2.110675832143017`", "0.39854465705263253`", 
      RowBox[{"-", "0.05296210428090112`"}], "0.9334921740221863`", 
      "2.5092204891956493`", "0.8805300697412852`", "1.9696631146713894`", 
      "1.9525209364483567`", "1361.300286664781`"},
     {"2101", "4.836018`", "160.5290834043785`", "130.7901528927255`", 
      "64.4639208115464`", "10.846086212912034`", "644.6306525109624`", 
      "789.0689639215673`", "4.501642007122587`", "0", "4.501642007122587`", 
      "2.121234258460346`", "0.4029384493795892`", 
      RowBox[{"-", "0.05322704144801352`"}], "0.943783544584836`", 
      "2.524172707839935`", "0.8905565031368226`", "1.995695384774922`", 
      "1.9781434808289233`", "1366.6169833232402`"},
     {"2102", "4.798845`", "161.57179198521018`", "131.69892751360118`", 
      "64.9351112697101`", "10.909288606054039`", "647.1165285639754`", 
      "793.9724580891797`", "4.522242657358652`", "0", "4.522242657358652`", 
      "2.1316595925388158`", "0.40734354325050504`", 
      RowBox[{"-", "0.053488638999953333`"}], "0.9541013862157927`", 
      "2.539003135789321`", "0.9006127472158393`", "2.0218946609800543`", 
      "2.0039282222413615`", "1371.887040555628`"},
     {"2103", "4.761955`", "162.60648489562723`", "132.60045230448503`", 
      "65.40096093913091`", "10.971397549290872`", "649.5807048779341`", 
      "798.8437489035873`", "4.542585524442718`", "0", "4.542585524442718`", 
      "2.1419536184575843`", "0.41175956295354427`", 
      RowBox[{"-", "0.05374694170370229`"}], "0.9644448189031126`", 
      "2.5537131814111285`", "0.9106978771994103`", "2.048259859461405`", 
      "2.0298741229857784`", "1377.1110943412202`"},
     {"2104", "4.725425`", "163.63324036050258`", "133.49480424804452`", 
      "65.86158375237319`", "11.032504581956587`", "652.0235421322768`", 
      "803.6828349243807`", "4.562676199601405`", "0", "4.562676199601405`", 
      "2.152118300065313`", "0.4161861410523047`", 
      RowBox[{"-", "0.054001998837105894`"}], "0.9748129820180059`", 
      "2.5683044411176175`", "0.9208109831809`", "2.074790077061097`", 
      "2.055980323761818`", "1382.289909320427`"},
     {"2105", "4.689335`", "164.6521539886308`", "134.38207797900188`", 
      "66.31711266435785`", "11.092710679851539`", "654.445464501242`", 
      "808.4897497021745`", "4.582520694472246`", "0", "4.582520694472246`", 
      "2.162155785068054`", "0.42062291888829717`", 
      RowBox[{"-", "0.05425386429144874`"}], "0.9852050354917703`", 
      "2.5827787039563512`", "0.9309511712003216`", "2.1014846127966234`", 
      "2.0822461645051207`", "1387.424384742633`"},
     {"2106", "4.65376`", "165.66333768623366`", "135.26238467550536`", 
      "66.76769826007856`", "11.152124611427535`", "656.8469544226451`", 
      "813.2645622687999`", "4.602125392070267`", "0", "4.602125392070267`", 
      "2.172068406334114`", "0.4250695470608821`", 
      RowBox[{"-", "0.0545025966041967`"}], "0.9956201609399241`", 
      "2.597137953394996`", "0.9411175643357275`", "2.1283429883766587`", 
      "2.1086712043109888`", "1392.5155433760078`"},
     {"2107", "4.618789`", "166.66692269916646`", "136.13585520837321`", 
      "67.2135127532173`", "11.210866756817504`", "659.2285666069745`", 
      "818.0073771180216`", "4.621497155219697`", "0", "4.621497155219697`", 
      "2.1818586864293263`", "0.4295256859442341`", 
      RowBox[{"-", "0.054748259072798254`"}], "1.0060575628730672`", 
      "2.6113843723735606`", "0.951309303800269`", "2.155364970046109`", 
      "2.135255242793293`", "1397.564561206786`"},
     {"2108", "4.58451`", "167.66305939562315`", "137.0026399270943`", 
      "67.6547497038917`", "11.269068391107915`", "661.5909266071171`", 
      "822.7183351177192`", "4.6406433079062825`", "0", "4.6406433079062825`",
       "2.191529345651792`", "0.4339910062596424`", 
      RowBox[{"-", "0.05499091995629606`"}], "1.0165164700373537`", 
      "2.6255203519114345`", "0.9615255500810577`", "2.1825505975575874`", 
      "2.161998348088756`", "1402.5727644070885`"},
     {"2109", "4.551011`", "168.65191726614194`", "137.86290867118615`", 
      "68.09162403336461`", "11.326871368213741`", "663.9347305283064`", 
      "827.3976141247979`", "4.6595716263995675`", "0", "4.6595716263995675`",
       "2.201083306835674`", "0.43846518962869474`", 
      RowBox[{"-", "0.055230652595866146`"}], "1.0269961367101879`", 
      "2.6395484964643687`", "0.9717654841143217`", "2.209900210443345`", 
      "2.188900882604988`", "1407.5416287200096`"},
     {"2110", "4.518384`", "169.63368579281124`", "138.71685167827727`", 
      "68.52437317672607`", "11.384428981338756`", "666.2607488185533`", 
      "832.0454294294744`", "4.678290363497696`", "0", "4.678290363497696`", 
      "2.2105236999819717`", "0.442947929134195`", 
      RowBox[{"-", "0.055467535531015535`"}], "1.0374958440140347`", 
      "2.653471629116167`", "0.9820283084830191`", "2.2374144749212115`", 
      "2.215963529024194`", "1412.4727874953333`"},
     {"2111", "4.48672`", "170.60857423197547`", "139.5646793718161`", 
      "68.95325681728964`", "11.441905386101492`", "668.5698249965827`", 
      "836.6620343320521`", "4.696808231872726`", "0", "4.696808231872726`", 
      "2.21985386617467`", "0.447438929883697`", 
      RowBox[{"-", "0.05570165259784815`"}], "1.048014901236358`", 
      "2.667292796058367`", "0.9923132486385098`", "2.265094411373158`", 
      "2.2431873171518424`", "1417.3680289927554`"},
     {"2112", "4.45612`", "171.5768137872412`", "140.40662461365662`", 
      "69.3785597385572`", "11.49947815884371`", "670.8628854876988`", 
      "841.2477204908861`", "4.71513447649937`", "0", "4.71513447649937`", 
      "2.2290773638015313`", "0.4519379096077694`", 
      RowBox[{"-", "0.05593309308515998`"}], "1.058552647230909`", 
      "2.681015273409301`", "1.002619554145749`", "2.2929414239481045`", 
      "2.270573652715529`", "1422.2293172339216`"},
     {"2113", "4.426685`", "172.5386576094826`", "141.2429427148052`", 
      "69.80059182576642`", "11.557337864269652`", "673.140939203724`", 
      "845.8028188129127`", "4.733278864152003`", "0", "4.733278864152003`", 
      "2.2381979765122835`", "0.4564445992955395`", 
      RowBox[{"-", "0.05616195193412975`"}], "1.069108451906329`", 
      "2.6946425758078227`", "1.0129464999721993`", "2.3209573347314016`", 
      "2.298124350576875`", "1427.0587911118948`"},
     {"2114", "4.39852`", "173.4943816660473`", "142.0739123431421`", 
      "70.21968920742097`", "11.61568881876916`", "675.4050812247796`", 
      "850.3277001282748`", "4.7512517057027015`", "0", "4.7512517057027015`",
       "2.247219720112007`", "0.46095874383559443`", 
      RowBox[{"-", "0.0563883299112912`"}], "1.0796817177273028`", 
      "2.7081784639476014`", "1.0232933878160115`", "2.349144417419419`", 
      "2.3258416675610034`", "1431.8587721965328`"},
     {"2115", "4.371731`", "174.44428495806216`", "142.89983575896827`", 
      "70.63621454545881`", "11.674748990591238`", "677.6564934424805`", 
      "854.8227759467488`", "4.769063854022987`", "0", "4.769063854022987`", 
      "2.2561468489470053`", "0.4654801026681465`", 
      RowBox[{"-", "0.05661233376877044`"}], "1.0902718812420933`", 
      "2.7216269516151517`", "1.0336595474733228`", "2.377505432096476`", 
      "2.3537283363546404`", "1436.6317660980587`"},
     {"2116", "4.346427`", "175.38869017233927`", "143.7210394991024`", 
      "71.05055789621628`", "11.734750506041044`", "679.8964472630989`", 
      "859.2884990870377`", "4.786726718163197`", "0", "4.786726718163197`", 
      "2.2649838615534263`", "0.47000845044208006`", 
      RowBox[{"-", "0.05683407638602384`"}], "1.1008784146215123`", 
      "2.7349923119955064`", "1.0440443382354885`", "2.406043660133098`", 
      "2.381787599488193`", "1441.38046819777`"},
     {"2117", "4.322726`", "176.32794563708208`", "144.5378764049497`", 
      "71.4631392646172`", "11.795941805151061`", "682.1263123012002`", 
      "863.725364326263`", "4.80425232423913`", "0", "4.80425232423913`", 
      "2.2737355091605522`", "0.4745435777185828`", 
      RowBox[{"-", "0.057053676983206826`"}], "1.1115008273070017`", 
      "2.748279086879135`", "1.0544471503237949`", "2.434762942874039`", 
      "2.4100232469523233`", "1446.1077820785445`"},
     {"2118", "4.300748`", "177.2624257564909`", "145.35072608130727`", 
      "71.87440916242376`", "11.858587700494542`", "684.3475578901165`", 
      "868.1339094377605`", "4.821653318894264`", "0", "4.821653318894264`", 
      "2.2824068056107696`", "0.4790852917137708`", 
      RowBox[{"-", "0.0572712613700905`"}], "1.1221386677500493`", 
      "2.7614920973245405`", "1.0648674063799588`", "2.463667724323479`", 
      "2.4384396578892447`", "1450.816822727047`"},
     {"2119", "4.280614`", "178.19253122806865`", "146.1599951317753`", 
      "72.28484888949266`", "11.922969208722895`", "686.5617536474596`", 
      "872.5147161121931`", "4.83894296523483`", "0", "4.83894296523483`", 
      "2.2910030350277193`", "0.4836334170377847`", 
      RowBox[{"-", "0.05748696213847461`"}], "1.1327915251433385`", 
      "2.774636452065504`", "1.0753045630048639`", "2.4927630930936417`", 
      "2.467041841434937`", "1455.5109177326144`"},
     {"2120", "4.262454`", "179.1186909983271`", "146.96611918683354`", 
      "72.69497308181073`", "11.989385660039082`", "688.7705781164104`", 
      "876.8684107180173`", "4.856135201453963`", "0", "4.856135201453963`", 
      "2.299529760832227`", "0.4881877964673317`", 
      RowBox[{"-", "0.05770091888841971`"}], "1.1434590312302366`", 
      "2.7877175572995587`", "1.085758112341817`", "2.5220548263608227`", 
      "2.4958354795508173`", "1460.1936256067902`"},
     {"2121", "4.246393`", "180.04136117629247`", "147.7695617947747`", 
      "73.10532828880665`", "12.058152794617584`", "690.9758132438915`", 
      "881.1956654077575`", "4.873244588421454`", "0", "4.873244588421454`", 
      "2.3079928328399646`", "0.49274829171893225`", 
      RowBox[{"-", "0.05791327840634505`"}], "1.1541408621159341`", 
      "2.800741124558897`", "1.0962275837095892`", "2.5515494351012245`", 
      "2.5248269710567675`", "1464.86872407705`"},
     {"2122", "4.232573`", "180.96102872761185`", "148.5708182426861`", 
      "73.5164977903193`", "12.129607170232456`", "693.1793611202497`", 
      "885.497198669878`", "4.890286429906358`", "0", "4.890286429906358`", 
      "2.3163983967858703`", "0.49731478426350245`", 
      RowBox[{"-", "0.058124194904020036`"}], "1.164836740175401`", 
      "2.8137131810493727`", "1.1067125452713809`", "2.581254210628213`", 
      "2.5540234771423567`", "1469.5402455749295`"},
     {"2123", "4.221136`", "181.87821147455867`", "149.3704155664919`", 
      "73.92910157187409`", "12.204105523677955`", "695.3832433260027`", 
      "889.7737767136817`", "4.907276756311203`", "0", "4.907276756311203`", 
      "2.3247529069752577`", "0.5018871762044881`", 
      RowBox[{"-", "0.058333830336011944`"}], "1.1755464361101995`", 
      "2.826640083179746`", "1.1172126057741876`", "2.611177279627406`", 
      "2.583432974801257`", "1474.2124758511259`"},
     {"2124", "4.212229`", "182.79345918253853`", "150.16891368235073`", 
      "74.34379772701978`", "12.282025643008657`", "697.5896054243178`", 
      "894.0262145452537`", "4.924232347794944`", "0", "4.924232347794944`", 
      "2.3330631365792605`", "0.5064653911585848`", 
      RowBox[{"-", "0.05854235465802428`"}], "1.1862697710113526`", 
      "2.839528527737845`", "1.1277274163533282`", "2.64132765743279`", 
      "2.613064308926645`", "1478.889963499554`"},
     {"2125", "4.206002`", "183.70735421199518`", "150.9669060700538`", 
      "74.76128329348964`", "12.363766676560838`", "699.8007194414995`", 
      "898.2553770688285`", "4.941170741084466`", "0", "4.941170741084466`", 
      "2.341336187204658`", "0.5110493751513001`", 
      RowBox[{"-", "0.05874994606702744`"}], "1.197006618456977`", 
      "2.852385562355958`", "1.1382566723899494`", "2.6717153030800493`", 
      "2.6429272458037096`", "1483.577525215979`"},
     {"2126", "4.202611`", "184.6205128222166`", "151.76502112885862`", 
      "75.18229594154721`", "12.449750313455747`", "702.0189893954782`", 
      "902.4621800863936`", "4.958110258820327`", "0", "4.958110258820327`", 
      "2.3495794983178566`", "0.5156390975338141`", 
      RowBox[{"-", "0.058956791237729886`"}], "1.2077569066598004`", 
      "2.8652185958516707`", "1.1488001154220706`", "2.7023511755859`", 
      "2.6730325280521763`", "1488.280257518414`"},
     {"2127", "4.202221`", "185.53358712704102`", "152.563924205077`", 
      "75.60761650590145`", "12.540422761426159`", "704.2469597888456`", 
      "906.6475913724547`", "4.975070060204253`", "0", "4.975070060204253`", 
      "2.357800858891349`", "0.5202345519473451`", 
      RowBox[{"-", "0.05916308561481672`"}], "1.2185206207259518`", 
      "2.878035410838694`", "1.1593575351111352`", "2.7332472951374274`", 
      "2.7033919341221053`", "1493.0035547523528`"},
     {"2128", "4.205002`", "186.4472661813627`", "153.36431872297922`", 
      "76.03807037761047`", "12.636255527688926`", "706.4873199990413`", 
      "910.8126319668398`", "4.992070158817949`", "0", "4.992070158817949`", 
      "2.366008420043407`", "0.5248357573287641`", 
      RowBox[{"-", "0.05936903373011107`"}], "1.2292978050103622`", 
      "2.890844177372171`", "1.169928771280251`", "2.764416808441304`", 
      "2.7340183421049233`", "1497.7531183979677`"},
     {"2129", "4.211129`", "187.36227706763782`", "154.16694731600253`", 
      "76.47452889878886`", "12.737746220477293`", "708.7429086923065`", 
      "914.9583774171177`", "5.009131439372158`", "0", "5.009131439372158`", 
      "2.3742107067127876`", "0.5294427589354507`", 
      RowBox[{"-", "0.05957484949552139`"}], "1.2400885655172373`", 
      "2.9036534656482385`", "1.180513716021716`", "2.795874056059908`", 
      "2.764925795037492`", "1502.5349664276898`"},
     {"2130", "4.220782`", "188.27938598239052`", "154.97259295824628`", 
      "76.91791076058334`", "12.845419373499093`", "711.0167182641193`", 
      "919.0859589648746`", "5.026275673293261`", "0", "5.026275673293261`", 
      "2.382416628463419`", "0.5340556293859872`", 
      RowBox[{"-", "0.05978075647415799`"}], "1.2508930723376244`", 
      "2.9164722578494064`", "1.1911123158634664`", "2.8276346409935327`", 
      "2.796129567826394`", "1507.3554427199329`"},
     {"2131", "4.234144`", "189.19939888811896`", "155.78207964819737`", 
      "77.36918283990657`", "12.959826742904001`", "713.3118973085269`", 
      "923.1965646707305`", "5.043525518036468`", "0", "5.043525518036468`", 
      "2.390635488648382`", "0.538674469708206`", 
      RowBox[{"-", "0.05998698811028003`"}], "1.2617115621042052`", 
      "2.929309958356588`", "1.201724573993925`", "2.8597154984071023`", 
      "2.8276462350762093`", "1512.221222294077`"},
     {"2132", "4.251411`", "190.12316433820163`", "156.59627533302466`", 
      "77.82936386944533`", "13.081550439653874`", "715.6317631697254`", 
      "927.2914403649896`", "5.060904590485671`", "0", "5.060904590485671`", 
      "2.398876995583418`", "0.5432994104301105`", 
      RowBox[{"-", "0.06019378800966675`"}], "1.2725443405465076`", 
      "2.9421764060135285`", "1.2123505525368408`", "2.892134969749279`", 
      "2.8594937430502037`", "1517.139337919818`"},
     {"2133", "4.272782`", "191.0515741288031`", "157.41609259154927`", 
      "78.29952526699329`", "13.211203146533235`", "717.9798043232789`", 
      "931.3718909594562`", "5.07843746160613`", "0", "5.07843746160613`", 
      "2.4071512746942183`", "0.5479306127098468`", 
      RowBox[{"-", "0.06040141024442298`"}], "1.2833917851375827`", 
      "2.955081887404065`", "1.2229903748931596`", "2.9249128827869018`", 
      "2.8916914875194464`", "1522.1171851653514`"},
     {"2134", "4.298458`", "191.9855637334802`", "158.24248909409263`", 
      "78.78079169530116`", "13.34942815726941`", "720.3596818695435`", 
      "935.4392815213754`", "5.096149642906127`", "0", "5.096149642906127`", 
      "2.4154688769403894`", "0.5525682694514378`", 
      RowBox[{"-", "0.060610119564357474`"}], "1.2942543477073394`", 
      "2.9680371463918274`", "1.2336442281429818`", "2.9580706303736473`", 
      "2.9242603902195703`", "1527.1625255634322`"},
     {"2135", "4.328647`", "192.92611382428822`", "159.0764691831645`", 
      "79.27434304865518`", "13.496900910275283`", "722.7752361557832`", 
      "939.4950380745471`", "5.114067609267937`", "0", "5.114067609267937`", 
      "2.423840785945636`", "0.5572126064207683`", 
      RowBox[{"-", "0.06082019157589697`"}], "1.30513255705646`", 
      "2.9810533923664044`", "1.244312365480563`", "2.9916312500351676`", 
      "2.957222976164632`", "1532.2835006502605`"},
     {"2136", "4.363554`", "193.87424961988728`", "159.9190832139104`", 
      "79.78141361693189`", "13.65432775751953`", "725.2304833976491`", 
      "943.5406484017914`", "5.13221874544233`", "0", "5.13221874544233`", 
      "2.432278421737806`", "0.561863883338704`", 
      RowBox[{"-", "0.061031912835933136`"}], "1.3160270215167618`", 
      "2.99414230507651`", "1.2549951086808286`", "3.0256195037934086`", 
      "2.9906034509611077`", "1537.4886248030161`"},
     {"2137", "4.403395`", "194.831043275849`", "160.77143003210946`", 
      "80.3032952308841`", "13.822448821234948`", "727.7296265494775`", 
      "947.5776623199151`", "5.150631396156149`", "0", "5.150631396156149`", 
      "2.4407936437082363`", "0.5665223949684481`", 
      RowBox[{"-", "0.0612455809260799`"}], "1.326938431498061`", 
      "3.0073160386766844`", "1.265692850571981`", "3.0600619582488062`", 
      "3.0244277783611313`", "1542.7868082848925`"},
     {"2138", "4.448382`", "195.7976130154626`", "161.634656090916`", 
      "80.84133616241893`", "14.002036610449121`", "730.2770510686466`", 
      "951.6076921792766`", "5.169334802001952`", "0", "5.169334802001952`", 
      "2.4493987519120988`", "0.5711884721889793`", 
      RowBox[{"-", "0.06146150448530249`"}], "1.3378675620024343`", 
      "3.020587224101078`", "1.2764060575171319`", "3.094987067804146`", 
      "3.058723760847297`", "1548.187348265531`"},
     {"2139", "4.498725`", "196.77512269514153`", "162.50995501719956`", 
      "81.39694062035692`", "14.19389543044236`", "732.8773229525405`", 
      "955.6324127854217`", "5.188359050563472`", "0", "5.188359050563472`", 
      "2.4581064820861616`", "0.5758624829931245`", 
      RowBox[{"-", "0.06168000308490053`"}], "1.3488152749619595`", 
      "3.033968965079286`", "1.287135271877059`", "3.1304252520592644`", 
      "3.0935211143906076`", "1553.699924659386`"},
     {"2140", "4.554627`", "197.76478028333042`", "163.39856605864406`", 
      "81.97156685718271`", "14.398859585112604`", "735.5351819736698`", 
      "959.6535609006276`", "5.207734990765653`", "0", "5.207734990765653`", 
      "2.4669299945138925`", "0.5805448333941812`", 
      RowBox[{"-", "0.06190140694910588`"}], "1.3597825213622514`", 
      "3.047474827908074`", "1.2978811144131455`", "3.1664089678960474`", 
      "3.1288515378559607`", "1559.33458578418`"},
     {"2141", "4.616278`", "198.76783503561188`", "164.30177118811122`", 
      "82.5667236146283`", "14.617790182308726`", "738.2555292100601`", 
      "963.67293411948`", "5.227494104688221`", "0", "5.227494104688221`", 
      "2.475882853860046`", "0.5852359681922634`", 
      RowBox[{"-", "0.0621260564490823`"}], "1.3707703430374383`", 
      "3.0611188220523093`", "1.308644286588356`", "3.2029727714158467`", 
      "3.1647487723333136`", "1565.1017219253274`"},
     {"2142", "4.683859`", "199.7855755390141`", "165.2208931057156`", 
      "83.1839677428272`", "14.851573396998655`", "741.0434189739556`", 
      "967.6923889000217`", "5.247668410846521`", "0", "5.247668410846521`", 
      "2.4849790015545774`", "0.5899363715921883`", 
      RowBox[{"-", "0.06235430140996912`"}], "1.3817798741174085`", 
      "3.0749153731467658`", "1.3194255727074393`", "3.240153369149157`", 
      "3.201248650286594`", "1571.012048224786`"},
     {"2143", "4.757528`", "200.81932471411815`", "166.1572901052516`", 
      "83.82489789567175`", "15.101115098178548`", "743.90403700262`", 
      "971.713838039253`", "5.26829026762029`", "0", "5.26829026762029`", 
      "2.4942327184391373`", "0.5946465676302882`", 
      RowBox[{"-", "0.06258650017358902`"}], "1.392812342027513`", 
      "3.0888792860694254`", "1.330225841853924`", "3.2779896576386576`", 
      "3.238389132597097`", "1577.0765584455546`"},
     {"2144", "4.83741`", "201.87043264416565`", "167.11234870280944`", 
      "84.49114546126641`", "15.367333193671188`", "746.8426691913128`", 
      "975.7392469992244`", "5.289392110240996`", "0", "5.289392110240996`", 
      "2.5036585710411394`", "0.5993671203031038`", 
      RowBox[{"-", "0.06282301825033071`"}], "1.4038690677899934`", 
      "3.1030256913442433`", "1.3410460495396628`", "3.316522737888518`", 
      "3.2762103216107294`", "1583.3064586855833`"},
     {"2145", "4.923588`", "202.94026744846715`", "168.0874742520687`", 
      "85.18436302435995`", "15.651148097900936`", "749.8646620121967`", 
      "979.7706287789505`", "5.311006131622442`", "0", "5.311006131622442`", 
      "2.5132713385933525`", "0.6040986333199881`", 
      RowBox[{"-", "0.06306422648788913`"}], "1.4149514654445237`", 
      "3.1173699719133405`", "1.3518872389566345`", "3.355795898728012`", 
      "3.314754443143081`", "1589.7130834658572`"},
     {"2146", "5.016084`", "204.03020202711102`", "169.0840773063414`", 
      "85.90620754627058`", "15.953468645642428`", "752.9753647147654`", 
      "983.8100371295048`", "5.33316383873376`", "0", "5.33316383873376`", 
      "2.5230859152865293`", "0.608841749364554`", 
      RowBox[{"-", "0.06331049861854084`"}], "1.4260610403183291`", 
      "3.131927664651083`", "1.3627505416997883`", "3.3958545573622176`", 
      "3.354065787143915`", "1596.3077731953028`"},
     {"2147", "5.114855`", "205.14159993647306`", "170.10355908868866`", 
      "86.65832252707636`", "16.275177850991714`", "756.1800685926298`", 
      "987.8595575084323`", "5.355895597118109`", "0", "5.355895597118109`", 
      "2.5331171862337483`", "0.6135971487782441`", 
      RowBox[{"-", "0.06356220814678097`"}], "1.4371993859427774`", 
      "3.1467143350119926`", "1.3736371777959964`", "3.436746148885017`", 
      "3.3941905983542533`", "1603.1017454163753`"},
     {"2148", "5.219759`", "206.27579387652642`", "171.14728934857854`", 
      "87.44231066849535`", "16.617110151149607`", "759.4839132341499`", 
      "991.9212959484098`", "5.379229953096065`", "0", "5.379229953096065`", 
      "2.543379870021627`", "0.6183655475175375`", 
      RowBox[{"-", "0.06381972439854175`"}], "1.4483681792686396`", 
      "3.1617454175391644`", "1.384548454870098`", "3.4785199524917187`", 
      "3.4351769049027947`", "1610.1058960563978`"},
     {"2149", "5.330525`", "207.4340576591527`", "172.2165775041775`", 
      "88.2596982220081`", "16.98002172201284`", "762.8917642967511`", 
      "995.9973646956952`", "5.403192773835071`", "0", "5.403192773835071`", 
      "2.553888313780238`", "0.6231476941266041`", 
      RowBox[{"-", "0.06408340737898716`"}], "1.4595691735752847`", 
      "3.177036007906842`", "1.3954857661962976`", "3.5212268233299056`", 
      "3.477074255438455`", "1617.3305403091126`"},
     {"2150", "5.44672`", "208.6175710055544`", "173.31263639941886`", 
      "89.1118902094209`", "17.364553354638907`", "766.408060158433`", 
      "1000.0898638689296`", "5.427806194851343`", "0", "5.427806194851343`", 
      "2.564656231301789`", "0.627944365485818`", 
      RowBox[{"-", "0.06435360120125949`"}], "1.4708041885126226`", 
      "3.192600596787607`", "1.406450587311363`", "3.56491880555302`", 
      "3.519933340493444`", "1624.7850875358781`"},
     {"2151", "5.567695`", "209.82737260946885`", "174.43653397260437`", 
      "90.00011061746947`", "17.77118039349426`", "770.036606782437`", 
      "1004.2008584260411`", "5.4530872406338915`", "0", 
      "5.4530872406338915`", "2.5756963688425443`", "0.6327563610065168`", 
      RowBox[{"-", "0.06463062570061869`"}], "1.4820750965037661`", 
      "3.208452729849061`", "1.4174444708031475`", "3.6096485918780803`", 
      "3.5638054639906445`", "1632.4776063787667`"},
     {"2152", "5.692543`", "211.06430407378443`", "175.58913552745506`", 
      "90.92533102129657`", "18.200153654710114`", "773.7803334666462`", 
      "1008.3323490155177`", "5.479046220905842`", "0", "5.479046220905842`", 
      "2.5870200854865786`", "0.6375844949219454`", 
      RowBox[{"-", "0.06491476590472563`"}], "1.4933838046884764`", 
      "3.224604580408524`", "1.4284690387837509`", "3.6554687882207237`", 
      "3.6087418260512028`", "1640.41430694929`"},
     {"2153", "5.819998`", "212.32893189985842`", "176.77102339015994`", 
      "91.88817100015774`", "18.651415288222797`", "777.6409507677988`", 
      "1012.4862360970742`", "5.505684511235338`", "0", "5.505684511235338`", 
      "2.5986368213560773`", "0.6424295861379024`", 
      RowBox[{"-", "0.06520625868971638`"}], "1.5047322311508142`", 
      "3.24106640749398`", "1.4395259724610978`", "3.7024309273067226`", 
      "3.6547925611964427`", "1648.5988156277335`"},
     {"2154", "5.948339`", "213.621448616039`", "177.9823950793959`", 
      "92.88877189047349`", "19.12449216671248`", "781.618516942021`", 
      "1016.6642744877232`", "5.532991789143766`", "0", "5.532991789143766`", 
      "2.610553416837182`", "0.6472924449039055`", 
      RowBox[{"-", "0.06550527569788613`"}], "1.5161222736996463`", 
      "3.2578458617410875`", "1.45061699800176`", "3.750584138706935`", 
      "3.702005443372825`", "1657.0312559170845`"},
     {"2155", "6.075244`", "214.94154218039156`", "179.22292879217588`", 
      "93.92662984675681`", "19.61835385575979`", "785.710863864484`", 
      "1020.8680162921015`", "5.560942419037328`", "0", "5.560942419037328`", 
      "2.6227732407610485`", "0.6521738554155191`", 
      RowBox[{"-", "0.06581190146158426`"}], "1.5275557691189041`", 
      "3.2749470961765677`", "1.4617438676573198`", "3.799973373093456`", 
      "3.7504241578206505`", "1665.7070313927063`"},
     {"2156", "6.197583`", "216.2882204023315`", "180.49160254869594`", 
      "95.00037114558548`", "20.13121981311005`", "789.912823099123`", 
      "1025.098738674667`", "5.589490624089913`", "0", "5.589490624089913`", 
      "2.6352950590293207`", "0.6570745530302412`", 
      RowBox[{"-", "0.06612610501421479`"}], "1.5390344398014424`", 
      "3.292369612059562`", "1.4729083347872276`", "3.850637019860109`", 
      "3.800085984025363`", "1674.6151849701407`"},
     {"2157", "6.311142`", "217.65957538946674`", "181.7864515511573`", 
      "96.10745048261057`", "20.660298934148543`", "794.2151855467832`", 
      "1029.3573513256272`", "5.618564051544173`", "0", "5.618564051544173`", 
      "2.6481115500150523`", "0.6619951942961274`", 
      RowBox[{"-", "0.06644770263795426`"}], "1.550559823548511`", 
      "3.3101067443111796`", "1.4841121209105568`", "3.9026036944338185`", 
      "3.8510186728701896`", "1683.7361933591806`"},
     {"2158", "6.410138`", "219.05244260395398`", "183.10421695440104`", 
      "97.24371354605526`", "21.201406538113563`", "798.603188831924`", 
      "1033.644276921129`", "5.648054422123286`", "0", "5.648054422123286`", 
      "2.6612073009802253`", "0.6669363169007072`", 
      RowBox[{"-", "0.06677630758888602`"}], "1.5621331797600089`", 
      "3.3281436178809325`", "1.4953568721711228`", "3.95588783487756`", 
      "3.9032361675377656`", "1693.0387603236788`"},
     {"2159", "6.486422`", "220.46188673077904`", "184.4398161930697`", 
      "98.4027363734552`", "21.748378185823615`", "803.0542266725276`", 
      "1037.959291339049`", "5.677803343226701`", "0", "5.677803343226701`", 
      "2.6745559828939967`", "0.6718982845735768`", 
      RowBox[{"-", "0.06711125920616584`"}], "1.5737553603824506`", 
      "3.3464542674675735`", "1.5066441011762848`", "4.010483465174381`", 
      "3.9567325443945283`", "1702.4749605457587`"},
     {"2160", "6.546551`", "221.88439729168005`", "185.78963757771248`", 
      "99.57998873796433`", "22.297226960842227`", "807.552659757599`", 
      "1042.3013013186978`", "5.707701973073398`", "0", "5.707701973073398`", 
      "2.6881229668477866`", "0.6768812873725963`", 
      RowBox[{"-", "0.06745168856438159`"}], "1.585426810579313`", 
      "3.365004254220383`", "1.5179751220149313`", "4.06636510076962`", 
      "4.011482906522976`", "1712.01163868611`"},
     {"2161", "6.662958`", "223.33220349929664`", "187.16629492485086`", 
      "100.7914192854453`", "22.864194058765285`", "812.1555209577582`", 
      "1046.6687065343604`", "5.738122779073003`", "0", "5.738122779073003`", 
      "2.70189645197635`", "0.681885684952856`", 
      RowBox[{"-", "0.06779729955048445`"}], "1.5971483727535891`", 
      "3.3837821369292063`", "1.5293510732031046`", "4.123535650273304`", 
      "4.067489996316432`", "1721.7697044304475`"},
     {"2162", "6.766558`", "224.8025223923298`", "188.56691831760813`", 
      "102.03335819391788`", "23.44550330588128`", "816.849711399137`", 
      "1051.0621257586372`", "5.76897012983723`", "0", "5.76897012983723`", 
      "2.7158809832879918`", "0.6869120141334015`", 
      RowBox[{"-", "0.06814820621003279`"}], "1.6089213042709698`", 
      "3.4027929974213933`", "1.540773098060937`", "4.182037439720642`", 
      "4.124794897941852`", "1731.7213881661705`"},
     {"2163", "6.855026`", "226.29206578782328`", "189.98811928092653`", 
      "103.30151085624678`", "24.03698206004379`", "821.6200871744404`", 
      "1055.481584234994`", "5.8001370452081575`", "0", "5.8001370452081575`",
       "2.7300692617145863`", "0.691960679122781`", 
      RowBox[{"-", "0.06850422539126005`"}], "1.6207465518898911`", 
      "3.4220299408373673`", "1.5522423264986311`", "4.241891779196778`", 
      "4.183418235295633`", "1741.8345848098138`"},
     {"2164", "6.923497`", "227.7964883389551`", "191.42542141419213`", 
      "104.59023956908749`", "24.633361738444922`", "826.4469202500795`", 
      "1059.926511754639`", "5.831489178778005`", "0", "5.831489178778005`", 
      "2.744442673062705`", "0.6970319270013243`", 
      RowBox[{"-", "0.06886489001777377`"}], "1.632624694334846`", 
      "3.441474600064029`", "1.5637598043170722`", "4.303098187527967`", 
      "4.243359430444345`", "1752.0674709301686`"}
    },
    GridBoxAlignment->{"Columns" -> {{Center}}, "Rows" -> {{Baseline}}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.8185981092907248`*^9},
 CellLabel->
  "Out[207]//MatrixForm=",ExpressionUUID->"98023250-7aae-4e2f-9c1c-\
8f2f0397d1b7"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.816702810193735*^9, 
  3.816702812259286*^9}},ExpressionUUID->"78c0a8e3-07c3-435a-a365-\
7e3acbde67dc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"atmosB3", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CCFund1summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"dataB3Nor2", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "300"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"500", ",", "2000"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "Gray", ",", "Red", ",", "Green", ",", "Orange", ",", "Blue", ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8103100196050105`*^9, 3.810310023869816*^9}, {
  3.810310066758728*^9, 3.8103100688696194`*^9}, {3.810310422003482*^9, 
  3.810310438219056*^9}, {3.8103107643068357`*^9, 3.8103107675628347`*^9}, {
  3.8103110311322737`*^9, 3.810311038094536*^9}, {3.8103116509606934`*^9, 
  3.810311695058364*^9}, {3.81036421724445*^9, 3.8103642175137014`*^9}, {
  3.8103643231590214`*^9, 3.81036435655635*^9}, {3.810364421046413*^9, 
  3.8103644214581995`*^9}, {3.8103712056984377`*^9, 3.810371206112501*^9}, {
  3.811092519747139*^9, 3.8110925336729555`*^9}},
 CellLabel->
  "In[1208]:=",ExpressionUUID->"77bbcdab-a87f-4a50-9152-1b6de2727a60"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJw1l3lUzHsfx8eSrhIhZA8h+xWFCm+lDVFNNdqnaZlmaprFjcJlinKJq41S
0lxZuoXsLYokWtzIHspNpXsLCSWJPJ7n+X76Z86rT695nfc5vzOnmSSQOvr3
5XA4s/twOP99/f9P+/L/vfAjwX6BBxa2qy19iX+CqikzxU5IrI2BeutbBwYT
62C9a2e/k3JiXXS2FBisDSMeh/CeoE+TlcR6MP/342DebuLJ0D7RnTgrkVgf
1bJLm++riKdh3fBM09QcYgPYa/eXVBUTz0RqRo9JyUPi2Xgitmm685p4LvK2
bnTjDdjB+GdIHG463tQnno+6xDDv/dbEhviQHpCiLyVegD13JRXqh4kXwszx
Jq7cITaCU2fymir1nYyNMe+xyZFia+JFkMTV5E3dT7wYnr+Zjop5QbwEkppI
11DjKMYmGJkkipckEZui90JZyOc+0YzNUDiFM3b3RuKl0P7gczqtk3gZYrQ+
68Rs38V4OfJ6xgw4o/MbY+DP4vhxRpcYK4Fzpe0nXX12s/sKFKrFaM4fvYfd
V+DmitsB52oZc8zx+7RU7bLsGHY3h7LPwiGLoveyuwXmjc9wvBC0j90tsGlw
tvCq++/svhJJ2489r3bez+4rkfFm8bXU2bHsbomuT7v48ecZKy1xR/14nsAs
jt2toC7SGRxVwVhphVvRpxZKXOPZ3RqPDoW6xL5mrLSGpWPSo1XbE9jdBt8S
14zuHJ7I7jbov07E/ZDJmGOLb02bgqKWHmB3W/RLzmxWv8eYswo8kdvy+4KD
7L4KTsOja0w+MOasRtpJ7kDVtiR2X42NPV++8tWT2X0NZIFbr7fGMFauQVj3
RPcrmofY3Q7VD7pM3aIZK+2gOTAtnddD97Xg3BjRz0Ocwu5rsXrqZ4H2A8ac
deDPqD5lYpTK7utwgjt/1ZlYxhx7qKl68+1eMYY93C+3e2gtOMz+3h5vpl+c
9zaccbE9RpfrXvqUz5jjgAmdrdecPjKGAxQdt/IWTktjvgMc9miElDoyLnZA
wb9H/lwRzpjjCHGbfWXvIcZwxGBHXqjlJfId8ZOJwizkNvmOGGtQcvxBLflc
hDrtKrnXQj4XI60ygm98IJ+LY8p+eVqfyeei2ePUEK0v5Dshcu/1mlHd5Dth
S2V63p5O8p2Qcv3osovvyHdCs+7nuJZ/yHdGpn76oS0vyHeGLXeHc8YD8p2h
fU06/nQZ+c5wCy8aU11AvgvKG84GW5wm3wV1qfs9F6eT74IxfTRNamPJd8HH
LdnHuZHk83DklvJw4QbyeXg7Sf7c1J98HvZ1vi1vcCGfh8qjFmtv2pC/HsOq
Ind3mJC/HgbKP7K2zSF/PWReRgcleuSvR67Pwf5/DSffFWrLhgQcUSffFQ+O
xLe+7KHnxxXT735Xmr2j58cVoYYlKpdGen7c8OvXqwun1NDz44atDY1HEqrI
d8OU4ZVV6TfId8O78KXPjAvId4d5QZHA8Rz57jj+3t60OZN8d+SX5sS1qMh3
x0KTe+dcDpHvgeUxZZWT4sn3wBT9leetYsj3gJWTCMU7yfeAh+3uhuht5Hsi
rM+Nnrgw8j3hND4z+qWCfE+M1LoQI5KQ7wk1jRzOzEDyvcDPMx6l50u+FzK2
1S2x9iLfC1yV7ruDruR7Yf6A45+1ncn3RkbwhMTL9uR7o0M3pUW5hnxvnDXK
DRTakO+NZm6uULaSfD5sMrX6JYCxHh9lMTr698zo/fg4sSiCM2sJYz7/x/Pk
dirJiN6fjzGiOw9HGzJW8XHFc9uenLnU40MietLlPItxPR+i0nMjtAyo74Ow
t98DH+pT3webKl9+ODmJ+j5o7w5X7ZlAfR90HC5K3zyW+j64OrVsl0KX+j7g
JbzcGT6C+j44lCN7sXcY9X2QsNFFlTGE+gK43VtjWT6I+gI0nd+n/DiQ+gKI
I7oD9NWpLwD3feor1/7UF0A9b79Wah/qC+DF3Rlc38s+T4sFWJtj+nzOV8b1
AmzYnJsQ0U2fv74Yvatk6KNPjPV8Mdjj45Y5HfR57IunR+Yc3/WeMd8X+kHj
/mppo89zX4zZVHV63RvGKl9oPc3PvdJCfV/0ta4bP+Mf6vsi4pW2fnIT9f2Q
+L7+lUYD9f0Q+zh/pvJv6vthzGNeTk8t9f0QcD6wftMz6vsh8ukB7scn1PeD
w89h7dJH1PdD8lB/5w/3qe+Hgi/7rUKrqe8P3VUDhnZVUd8foyz6LY64TX1/
JIQ/LlevoL4/qgdslSbcov6Pv0/nFY8vpb4/Kos7C7OuU98fIx4kL//xHwXr
+0M6OSWitJD6ARjyWs3fsYD6AeiwrBjemEv9AHw949W84RL1A1BpN26N5gXq
B+C9WfZp1VnqB6Cs6OEzkzPUD4BN/Rvx/WzqB2DGzJwevz+pL0SUSO34txPU
F8Jh6bIFqceoL0RXW+8U46PUF2JactaA++nUFyL73V3XoDTqC5F7M0Sknkp9
IZKGIftkMvWFCD51Y+LKg9QPxAnvt/VNCdQPRF3a4OSdcdQPROT0xhtT91M/
EG6rimrK9lI/EI0DXp8T7aF+IH6pf/Jp0G/UD8Srd04nz0RRPxBPfH9vdNhB
fRGS7xc1dSipL4KZT9TQpG3UF+FhcbPmiq3UF2FvW9vZpnDqizBlrjJ79ybq
ixAuun/AKJT6Irjp3y6vVVD/x/vpJ93bIaO+GK6mPe7zQ6gvxtYID7vnQdQX
I3S5XesOEfXFME+PXzRXSH0xtGanRNf6UV+M2ORZj6IE1BdjikWOtSGf+mJI
y27PfulJ/SBEp13KinenfhD2OYqFy1ypH4TBLfrb21yoHwTvSct+SXeifhAM
b2mGrHakfhDmZ+6K/bKO+kEYVVqgyrKjfhA+xn5JcV9N/WBcGZScMsyW+sFo
tRDeLLGifjDqX5enhK2kfjB8WiOGzTanfjBO6MRl1S2nfjBeOolPxC2lfjCC
ktO6rE2pH4zyud9Nvy+mvgSNZ8wVF4ypL0Hg7KKr4oXUl8BbpXiuZ0h9CSql
3LFP51FfgnuihobYOdSXYNPmqFrbWdSXQOPvpWf6zqC+BNW64zlF06gfgpNN
qgXh+tQPwTnjRq15k6kfgg4Nd7XmidQPQV8DTugf46kfgrp8zUL+WOqH4Aov
9MXE0dQPQW1ZbMvzkdQPQQzOtxzUob4U36LMLzgNo74Uek9tOoZpU1+K1xpF
rx5rUV+KiJ2bWxM1qS/FklqXbKeB1JfibOnFT6PUqS+Fg+GY4if9qS/FX6KL
nof6Ul+G5KMGBh4cxtoyLBx0zHxCL/v+oCdDRaH3p5c9jH+WwTB/MC+jmzFk
ELSkjAnsYmwvw5IZBSXzOhnzZVjbVTyx8wNjmQwNVmEVee30fUUGnrN+VlQb
41gZ/p7k5mP3hrFKhmuleq+1WxmflWGDg6Xr438YF8swc/GBj0dfMa6WIatq
cZ24kXG9DG8CTk9b8JJxuwwaxu3hvS/o+5EcL77XmpXVMtaWQ+Or3bH4Z7Rf
Dtuakk+eNbRfjgp7cdScx7RfDsN9Pv276fuWvRzvtjfEld+j/XLweiy9ku7S
fjkaf5VvF1bRfjnU+LZ1Rrdpvxw7HAZa9a+g/XJo21aXPLhF++VI/JxocLSU
9stRZnRbuaGE9suhqbMz2qKY9suRJuR7j7xK+3/08lPyW67QfgXOrhgSWphP
+xVYLBhVsjeX9itgF/2rr+AS7VdgwvNKDeMLtF+BO73WyzXO0X4FzDS/5TSc
of0KrB+72zv3FO1X4FGk88O9WbRfgbafOlr8M2m/AsGy6QmmJ2i/AsIq4eWh
x2i/AlzJ9Qn//kH7Ffh8Wfd5YXoK/gOpPbvA
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJw1l3k8lGsfxlWnEpUO5WhRdKSUQulYWlySjn2JsS9jG4xhZrQopzRH2igi
S6ISWsiapVI0yNHeOW3SplQ6ipKSQvX2vu/98898vn5z+d7XM/f9PEPdX7g6
aLiMjIz2MBmZ/77+/6fH5H8v3FiwX0B7Vt5x8wBiWRx5r/yCE0w8AZc3HuPP
FBBPxO4RX/j3xcQqGB3iffPIBuJpmOOgOC5PQqwG379MK8fHE8/E0WPqo2an
EWugMrfCa0YusSaU9i0psygnnoPttscCuhqI50L2QltWUAuxNg6ZXbor/454
AZbWK4aay21lrIvEMRmFMVrEeuhfpPdN15Z4IfoOL4+/sY54Ea56fNN7nEes
D+/x3JT2FuLF4D1c5ShSjGP8G4qaG5LGOhMb4HzjPnXrg8SGCEqsu1D7ltgI
AQZ+U7ostjE2Ru+UN1/8ioiXYOQ7V79jk7czXopxDRruC5KJl0Hn+quZG5V2
MF4Oz6TKJY9yiE0wsOXG4wqjnYyBye0ZxvOfMJYAewX2j2ISd7G5KRKMCvRq
rOLZ3BT+7UVvbyomsPkKdGjPdD3awViyAtJcfv2npt1sbga/5U4ZYWV72NwM
01zs5aKPJrL5SuxL0zTanZ/E5iuR55hqI3TZy+bm6NEvS7v0hLHEHJMnBas/
4Sez+SqcPuuipDrAWLIKg3/tmtidkMLmv6PML3Z59Yx9bP47Dt5On9dcyVjG
AusLfy4PtUplcwskqd2+9L6NsYwlVDpv1aesTWNzSxTML5FJH53O5la498q4
xmw/Y4kV6h9ojW6flcHm1tDuWSh/oZSxxBrvp1eMmrt4P5vbQOG01Z+SKsYS
G0Rnf0rT081kc1vU1/fnVeczltjibnj/lRTFA2xuh49jTmz238hYYodAt/zB
xvs0t0cLP7t2jW4Wm9vj0a/bly+TMJZxwOHxdflDzYzhgIrF3ENHRmez9zsg
M/PifC0TxlIHFO4WpGRFMJZxRMV7ZzmNdMZwxNQog1W9VZR3RFhf7STDG5R3
hGLhl7uGbZRfjeyoXDm7TsqvRoC8xy9Xuii/GlMXH8tTeE351WgoWXso7hnl
neAxybQ0+TblnSCcOtr+sJTyTnALOjxBvYDyTjinUHcqdg/lnWE8YVT8XOoD
Z5iPP5e5zZryzpC976T3YRblnXF77SHv1q90/TjY5Fsuf+A2XT8O/FRiV2w5
TtebgwURxcodGxlLOSjObbdQtqa8CwY95mm5TqW8C557WzR1vqbP0wX7D5gX
ydUwlrognfthcfdO+nxdcfmNQ0StK2O44l5YgrBYk/KuyHaQ+DzsY/tH6oqI
xIJfgptof7lhdNyId4I0xnDDkEPInpE82m9uEMx9tG+lAeXd0HSt9MyyMZR3
x8Nvr6q/PmT7F+6YpJFuv6uU9rM77JM0V+yJZSx1x6rVmh8rXWj/e8DWtf3r
l3mU98DlnppUp+GU94CZs2JxXSs7P1IPbLPsrF5wis6XJ86P7OjJSWAMT2iZ
tZiM5dF580Ren8Seb0p5TxT+dIt/WpXyXvDP+3l15wA7v/CCVvfCz0P36Tx7
4fS44oHu04ylXtDzOWRYlUHn3xvCy976Vhso740dJ5vOFrlT3hsvdSaK/l5C
eW+UfqjNqZxOeR/EdtcWcIZT3gf6M1b2F3fQ/cYHUTZLOyquMpb6wDei6Elw
OWMZX5yrv1F+OYMxfPFC1Cv7TwzlfdFQ2le2hkd5X3wXbjKqtqM8F+dOug3t
MWCsxkXISL/vA2r097gwVXiRPCjHmMvFon1KD+P66H7JRZCWgSTjKeMcLrJK
YhN1rjGWcsEZdNe0OMP4KRf+l5bqtOXT/dUPmim1qr3JjNX8MEs66Xn0Fsbw
g2yNMyc6nDHXD+qtoeldnuT3g9WGVN0rdP/O8YO2+LWxijH5/dAh/e37P1rk
94OJftGursnk98ea8SXmIjny+6PO9eJnp0H2fIA/XEOU61K7GHP90XK1JlHn
CT1P/DFSkLpH62/GOf64sWPrmo0NjKX+SJuqZKRexfipP6ZcHWOleoKePwHQ
KzF3DcpirBaAWNOpVUOJ5A9A6pnj0U9iyR8Ak4n58xSiyB+Al5857TvDyB+A
as1Ing2X/AHIDP3D2YlD/gAkOStwsq3IHwjVHove2SB/IHSK5UQfFpM/EHyf
k2OHaZM/EAVGR5stZ5I/EJsTZzVeUSF/IIbZFm2IUyB/IIpchmtGjyJ/ILbW
9Jge/UrP5yDsjZ/z1/A+xmpBOLHxRMeBLsYIgk9dtoT7gjE3CEMeRZ89HjGW
BOGOYebZ2DuMc4LQpyCf8uAaY2kQcr52Gvs2MX4ahKg7mdfH1ZGfh/rmCQr/
VpOfhy7/LVPelpKfh+aSuhXTCsjPw0C23PuoXPLzMD755sH+LPLzUD0nTuVI
Gvl5+Di0TkGQRH4eKs8I53J2kT8YV/gtu3lbyR+M7gNC3UObyR+MZc816z9E
kT8Y4e+734ZGkj8Yjm5PgocE5A+GsMItvzSY/MGQthm5x/mTPxixNi3Xxd7k
D4GJRYnTFjfyh6Bq0fSXx5zIHwI5zRMWr+3IH4JFX4XmFlbkD8Ho5cKxF8zJ
H/Lj8zHLtjclfwgCP/o6f1pK/hC0fLcprzIkfyh49646J+iTPxQLNnHHrdcl
fyhO2+9/tVmb/KFQbS4zS51D/lCYz/TVkWqQPxT5D25dGKVO/lA8muvW6qlK
/lCIrk2MbpxMfj7CXtXcMFMmPx8xHx873FIkPx971wc0iBTI/2OeYVeqPpb8
fEx7N36wQ5b8fEwVhSw7PZL8fDzvlFM/MJz8fFy/+DQl8Tt9fw3D0ZQtrqlD
jNXCUPBHVlXuF8YIQ0emiVvjJ8bcMFxfsjS89wN93w2Dot0CqdZ7xjlhmFtU
P078lrE0DPdzFlxtesP4aRiCPPtzZneSX4CHMfvdsjrIL8CX/rl3lF6QXwDn
o5P0Dj4j/4/3t3Fn67SRX4DF6uvbLz8ivwA7nq12FT8gvwBafq2LZ90nvwDG
MYsePr9L/nD0P7QeUXCb/OEIK7y+I/of8ofDQn5vp9NN8odj2MVeQ8Pr5A+H
Yd3AEY2r5A+HoImbPOUy+cORaWm1TqWZ/OHgLPp8bkYT+SOg8fFUim4j+SNg
Uu22e0U9+SNgZpf4wOsC+SMwWN56IraW/BF43dOnU3GO/BFQ3Flj/fos+SMw
WV72vsYZ8kfgxGbTwsBq8gvRm68VXFxJfiH4cQ8yhk6RXwiLO1rWruXkF4Lz
1bq5vJT8QsxI/22TUgn5hTCY92xiTBH5hZBsWsZ7XUh+IVyr1DO8C8gvQn7p
k7Z7xxlPEKEyWX+F8zFajwih2xa2t+Qz1hXh2xmVKu88Wp8Iz9wTLN8cYewg
gnOXwxhJDq1XhAk3hSeVDzMWiRCTrZJbepDWL4Jx06wqTjbjvSLwZ/y6eeAA
9RFBRef8lUOZjMtEWPlq4y6L/dTvx3qLk98MpTP+WwS3e0byZWnUVwRbraW3
eKmMe0T4Sd731q/7qL8Y8xKWc58lU38xutU6k/P3Un8xsrsUD/KTqL8Y0a2b
zhkkUn8x5r+7nzpiD/UXw+andM17CdT/B8scTyuMp/5iPGsQP43dRf3FKFW1
fOy5k/qL8fPnOlODHdRfjDejWkcob6f+Yqhd2P5vXxz1FyN2q/2LB1upvxhW
g8+PS2OpvxhfrD+bnfyT+osRn3Lea7+E+kdi95HpDdu3UP9IXNlpnbI2hvpH
Yl0jNzp0M/WPhNf471o+m6h/JJRfPlfi/EH9I3/8f9Pc6hhN/SMh6JCNttlI
/SMxyfODv+UG6h+JhI74QOso6v9jPZxh4dbrqX8k3iQ12diuo/6RmKrf3Oiw
lvpHwtMx/a7TmmT8B2oIryU=
      "]]}, 
    {RGBColor[0, 1, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJw113s01Pkfx/GRiC6bln7dS1pJUpJalLwi18j9fhszLjOuM1OtUJpcIkWU
dGHbQbW22q0kpVxGFySKRbr8atnUhkKr+/W3v7Ofd/90Ht7nfZ7fDzPf+c5c
Xqxr6CgOh7NIgcP5/////hs2V/M2KW/0Swb7AcrnOzp9E0RWQUffbNkMPlkN
1pOKO3rCyRpQ/umHE1nR5Kn4orY73nYjeSZ2qLuqrthC1sTjIFudjDSyFmzv
TzSU5pC/Q8Ywd5Pzj+T5EOrG1dqeIi9A619Gk89Wkxdi/YUd6o/byIvgMC9+
s1EfeTGqkl6cUh2dwmyAuKMTHzZrkZfCtq1F5bUV2RAbBn8//TKavAzr1rbd
sSogG8EusP3Nhlvk5VC6ssNlrEoq8wrMreIF7LIlf4/L41zGp+eQjfH06/o3
md1kE0iNG8XTTdKYTbFaddSVqsPklWib7mHySmkH8ypsPvN13NJEshmaqrry
X3wgr0ZpZqNvQlo6szlO9r06tnhGBjOgvX2owbCKWQpM/Sb3x4uCnWy+Bl4f
Ar9t0cxk8zVwjmmS+fcycyxgamNaYXtuF5tbYN662Svts3azuSUmW/5YpiTJ
YnNLONVpfBjkZrP5WuypX7U3xmcPm6/F3C7eaK5+Dptb4d2X88cUypilVhi3
L656gWkum1ujXpFvaXmdWWqNJItfV1xy3cvmNgh4/S7tbQ+z1Aa1+uIpDpJ9
bG6LMyef545WzGNzW3xtsrTYvI+ZYweRYaLpI639bG6H59mndVLPMHPssW2K
43DFynw2t0d+e0xd3VVmzjps2PHQ4J3NATZfB5mgBqcbmDkOsLo4M8Xe4iCb
O6Dk7FE38wvMHEfkKdpsnDD/EJs7wsuvbMvqbGbOeoTd3Bi8aYjm62FvbNnp
aXeYzZ2wZGZ92bECZqkTuozjTix7SnNnZG+X/vHngoJ/DWe8PzDnQimfWeqM
xe1x+en5zHJnrPjD7OruOmaOC8r1Dec866V9FxRd/bK9hVPI9l1w2K40XDKZ
We6ChDpH/qx5zBxXGF55/tvChcxwRXJifdcgWeoKmz+NDW5p074rRt7euLlk
Bu27oaDg4ast42jfDepvc+1nv6Xrd4NaSZRa+iO6fjfINPhmWlfo+t2Rder9
iHsxXb87xnB0j2duo313VK58WqbpS/vuUHD17EswpH0P9BxtOPFOhfY98EYw
Tr/nIf2+PTDQr5yRfZZZ7oGNdanWVqn0+/eEeV4o186TGZ5oPqYTdVeH9j2R
W1Acofee/X3lnvjceVxD0kR/fy/kvuC1dhQwwwveNdPUk6Pp9eCF9slzfPLM
ad8L037e8kTnW9r3hsMVV6nHE/Z6gzeyLoR6GVbS69EbS0ZnHL2VxSz3hsf8
/94y5dPr0wc3R/J8pCa074NWxb5+mRrt+2Dxx2R767/Y613ug69TG7+fXkuv
f19sHly+Wv0gM3wxtjO2XFtC7xdfjD7n/midI+374qgwvfgHXdr3w4vcVb0y
Zdr3g5vaaOfaXno/+qG056L0Br0f5X5ISklpryyh96c/AqX6pqmpzPCHy+fe
T/PCaN8fzbpTF+6zpX1/XPuUp39Dj/YDsKnIaVnVRNoPgHZAbkvEK7pfBIBr
ZJjUcI9ZHoCya+vSW2vp/hGIT023XbYfZ0YgdIcUhO1ZtB8I48KWgKpNtB+I
/Br545WBtB8EFaO52i42tB+E3p01S0cMaD8IzzNVXabMoP0g1A29LKpTon0u
To4x0fhrmN3vNLn4+XiCV/p/mcFF5yf9GFkjM5eL9uM6Zjrn6X7JRZom32Rm
MbOMC2WHGuvEPcxyLp798iHMfCtzNxcjzwajwyLp/hoM24y4ay98qB+MJ+aq
3rdtqR+MrIW5SuONqR+MklUd73/Sof4/+5872lKmUD8Y9tIpV6rGUD8Y6Vtb
Dazfsft9dzBUnrqtn9xH938efOyGKwzvM2vy8LpUxX//TWbwUHhPtMe0mpnL
g9O05LQ5p5mlPDQW3ZLZFTHLeNA7cOfO6X3Mch4SLh8Kc99BfR7euskUjOKp
z8esvLpi6yjq83EsQTi8J4j6fNw2mesyzo36fHA3NBRWW1Ofj71xD82KTKnP
R6Rms8uFxdTn4xqX0/Rei/p8JC/L+iV8CvVD8HdfZafCeOqHQLZ01/PrHOqH
oLLFM6PiNfv85IbA+cZjhZZ++jwNgfJm8/vK3cyyEJiJ3QdCOpnlIcj4oaGt
v4m5OwROW62C9srp8zkUq7+YvvCuYNYMhRMa1WxOMSMU8+fv/epUTP1QRLf5
bk88SP1QlKW0+V3Jpn4oEu1G1eikUT8U/Kdzq0sTqR+KXe6erRYS6ochZL/r
jHcC6odB5WWtxo0g6ofh83+shGWe1A/DRt2ih5WO1A/Do3A78ztrqR8Gs/L6
ygmrqB+G2wu3Onsvo34Y9Du1lc8tpH44uKpzfRdoUT8cB5WWHKiYRv1w6J3e
e8ljEvXDMSks9KaKKvXDoV1V2HSTQ/1wJHfsTCt5x56H5OF4eX0mJ3eYuTsc
/ve23Nr1jJ6fBDAfPWd/QTezpgDe3f0HL91lhgA/+5YN9rcycwW4O2Fnqd4N
et4SINa+bk1iHbNMgF/fmCg+qKS+AL+kjc2zKaO+AB8PDVVePUF9Ia439Po5
llBfiKxS7ezHBdQXYs1mz+LsPOoLUZD52QhZ1Bfi8lBjwdc06gvxUfGM3u9J
1BciP6Bu1Kk46gtx7Is/L1dE/QgEakw+nyGkfgSiAnxOpvOoHwHhdiXrHD/q
RyC175bDMXfqR0A6RvlBoyP1I7Bp2Zrql9bUj8A520n3dUD9CIzyaXCJMKF+
JDrqJ82sNKR+JNLvnjw7bhH1I9GiMfNNpDb1/5krxlvdmU39SLxa3Vewdir1
I+HN6+yvmUT9SASLmtstxlE/Ev07byxqHU39KOzVujcQ+YU9X2tGoVfBeLrq
O2ZE4c/qWWPKXzJzo/Ddudk5IQP0PB4FhxlHxs94wiyLgvTi3MIHj5jlUdhq
4KVx/C5zdxTWGCW+3fw7Pd9HY4O6go5zM/WjEX3kztGl9dSPRlf2afVpcupH
Q2XgYanqJepH48OJXWc55dSPRjFvSfXXX6kfjcHCEF+lUupH4/zfvlPVi6kf
g4rBCZa6hdSPwcpC1V3m+dSPwbksM+uAHOrHIOFMT1VaJvVjMKJ5FRdTqR+D
Gx/v1g8nUT8Gw+7zbBbFUz8GWx9MPB+1gfqxUE663Xo+mvqxGKroNFUSUD8W
Hg33pnN51I/F4IuLTZf8qR+LWuXXXTO9qB+LzBWxihku1I9FStqT5a/XUT8W
AuX600Jr6osw8DS9uhfMaiKYNOtuCllJ1yPCYYXZagPLmQ1EMNYS5W80oOsT
wSg055SyHrOzCKXfhzXLtOl6RSg7qVdtpsksEuEeL17p0XS6fhH4Nhukuycz
54iw5e3l26ZqdB4ROFcr7vWNZT4jwvRS9SM/KdH5RNjWuzggmMPcKkLB1pqN
1m/Y98luEQ52tId2DDAPiyC9/qxF3MPMEeOsrShavYtZTYyI7qm5V5uZNcVI
1i26tOUKs4EYmSVam20uMkMMochAT/03ZmcxlmfPGBoqYeaK8ZvRzdkdh5hF
YszqXNR6dQ993xXD6OueaxfTmHPEKL5WIq1IZJaJUeT9RqlWzHxGjIKJES9b
wpnlYrwQeFgMBDC3ipGUkyz4xp3OL0Zk/OBhc3s6vxjWTUlLEkDnl2DfNteu
yyvo/BLUb4zr4ejT+SW4mRJV7T2Pzi/BkXMmbeXT6PwS/DHy9+TpanR+CeJ9
JQ/3KNP5JXil26On/Jl93xdJIMgxGUkbYZZKcOzVxG6NfuYcCRZq3+882s0s
k8AsoS3DrIv5jARDLampj1qY5RKsP1r+IOVaNv4Hzv2d9w==
      "]]}, 
    {RGBColor[1, 0.5, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJw1l3lcTXkfx6+1ENUgpYyL3BBSqVToU0raF+3rrdttr7sIbbYk2dI2FCFZ
oiYtRky2a6khFGPJUk93HhNPpImIojwzr/l9zz/39X597+e8z+fce87vnBmh
InfhcA6HM38Yh/PPp/IU28FXewctOP9s2ATOvxvWVui0jhalMVZErPndI5+k
xCqwaEp4sHU98SRk3NrR/0cqsToqZ96F2VZiLcRkte2v3EnMxfGgRD1pHvFM
pMcueCw7RKyNxtIGXuNpYh6SuDV6z88Tz8G69lrNxbeI52Hm9eSA+S+I5yNO
XXDph/fEC1ER1hRjM3Yr40Xw6M+4pKNDrA+3A5Euc1cRGyDm6L6c6jhiQzQ5
1QjNC4gXo+qzZTJuERthh8G57zZDxMYYu2FX202zdMYmWGw7s3bFRuIlqL6W
sn/lbWJTjNhwL9hWaxtjM8zblRJ2cz2xOe5cCPQxaSVeih9SHjop2mcwXoZx
Lt/yy64RL0eF4aBi5IrtjC0wWC4yzmsmBh6sdS93Dc/8lzcDcRZD3fcVdrC5
JcLPf7zN/YXxZkto73r/68KYnWxuhXP+9nXy+bvY3Ao5orXmfV8Yc1Yg4mPr
gFbzbjZfgc59U0WPzuxhc2sMRsf/kbc/i82t8XDBo57SzL1sboOI4pm2Jchm
cxuMUO6ud5Qx5qxE6/iOkntWOWy+Ej96hx07+Btjji12ipZs1XPOZXNb8Ln3
RJ2PGXNWYdyi9FheUB6br0LjbYtm51eMOXaY/QK5ZXH5bG4H7dupywp7GXPs
EenmyEta/xOb2+N6f8DWk18Ycxxgf2XugW3r9rG5A8TWJVEpPYw5jlD1/PR0
QLifzR3RVvIkdfsTxhwnzDm65X6FZQGbO0F1TFXl8FLGHGcYmtx5YzC6kM2d
cUGrhPs2iDHHBX/eR+3HKpq7IHpC4++zv9HcFQ69atoCHPiX4YrrXGldyQbG
m11hKXM633GWscwVN8qiBMYvGXPcoORoNlM27iDLu8GnUDqxagHjzW547W67
ztCOscwNaUsrSrYHMea4o3yhRuBQHOXdoZ9pukS+nvLucGjY0pOeSnl3GG0v
01pJzFkN7lyH3o30faxG5fH/Fu+Ip/xqGM7+8qQxhPKrsb9XXnjYjfIeqJ3t
ZOO/nPIe6O6a8VfgHMp7IEknt+6TMuU9sNk3rzvxE/X3xPN6lWrTZ3T+PDFr
8gip9CKdP0807E9olBTR+fNE0Zjuz+JUynvhvSCp7LQ/5b3w4s/tPS5mlPeC
T1nWhHx1ynuhusjk+qE++v28wQndGZD1iDG84fvNgJdVQ7+3N+aZHX9enc1Y
5g2bIhtlVRHlfdAkjNghc6K8D0I/vFX+fT7lfbBbp0hxtRLlfXBq8sojbl30
//NFyKyajMd3GcMXvrv6tdsr6P/qi9QU9aopWYxlvjj4WdnHSER5P+zp2fyU
50Z5P7R6ZGa0GlLeD8YpOaouUyjvh6B8vcmir3R9+GNGR6zrEjlj+KP58KOT
xfV0Pflj8umVIUfLGcv8kTbjw0XjXMoHwFq6aq9XEuUDoGfLcR7iUz4AcM6f
Ms+O8gHwd38b/lCf8oGIffO/vR+mUj4Qm09pRWaOpHwgnK7VrNvRza53WSDE
d8449z2l6z8IPpcvRN69wRhBKHyb6K5QSfeLIJjcOFl6+ADlg/DlrsglP4Py
wRCsORTcKaV8MJ7+lFC+L5jywWi/c0OU50j5YHTuMX7XYUp5PtT006+n6zDm
8pG7rjdfMpn2x4f2w4fTfx7BmM8HT2t157wPdL/jI8HXyLFHzriYjzOVI+72
NzOW8WFs16pgfZWxnI9nN58mNJ2h+2MIUhZ9H1ZwmDE3BHk9uycWZTFGCNKa
M1TbNjLmh4Df8j3FR0T+EHB3nbFX5JM/BG3G6Xq9ruQPQXTTpLLJVuQPwef0
Lm64IflD4TZ+TGW3NvlDUe+ywKRUjfyhuMlbap+lSP5QOPaedigZoPUgFB+7
q651djEuDoX2JytRQDtjWSiGqyRUDz5gLA9FIvo179yk9UOATROXF14+z5gr
wNjR9T3PyhhDgL2mA95ahxnzBXg+/K+snTnkF2DY7mtF07eRXwCrwpi4tkTy
C8Bx7zt0JZb8Alxt6lW8wSd/GOrc61d3eZA/DN+UTtQtsSN/GKZXBm4sX0b+
MDy4mCRdbkD+MLiXW937i0f+MLRZK6pf0yR/GFoMvybVqpA/DOWaOdMaR5Ff
iIQJGu/7B9h6yxUiMbxluksPYwjRKMscd7mDMV+IAv/WhY4vaL0WQuecac6n
+4yLhdBICXpzqYGxTIiMbU+PHLnEWC6E9OVg1sEaWt/DMbqk0e7sKfKHI+Lk
692vD5M/HCcTzCyNfiJ/OBq85qWX7CJ/OIzkx4x5aeQPx421U/sbEskfjrzh
wnepIvKHQ/O7brpNOPkjcOLRmjLdQPJHQO2pRuECD/JHoKYynL/CgfwRmDXp
TrTYivwRiN+d/GeVKfkj8HKRZscYffJHYPTPwcmpc8gfAbGv7nIOl/yRCExs
1Ts0hfyRUBuy2OWkTP5IJHmkFk1UIH8kfI617OgeouepSARPt+5s7WNcHIlH
a77y5N2MZZHoSHvw+eMrxvJIKNWMcPqxnZ6/omAeNF7Vr4UxNwozD9WIS5sZ
IwrBhoYtE24x5kchPkd6fIuM/FHoCXqWo/Ar+aNQsGld14lq8kdBGGZQ5FpG
/ij4mnnqKx0jfzTut5ya1n6Q/NHoGDJ+diWf/NEIzckpqdhD/mgsGOXlfiaD
/NE48GTeh+ubyB+Nyjr3hf9NJH80dl64t2CSlPzReKw78q13DPljsPOciWNF
GPljcCZ02OVxQeSPwdw3ucIN3uSPgXmbasyQK/lj4JbW35BpT/4YqOsJD2lb
kz8Gt2ZUBTcvI38MDLpLn2aakD8Wic2nPnrqkz8Wmbwf0+fqkj8WOvcb5qjM
Jn8s4mMPJg2bTv5Y7Dte/WZQnfyx4Bn6Hh8zkfyx2CtP99QeT/5YaCQ7Cx0V
yB+H9X0hFRuGkT8Olh8GHK58Zc/viEOy/HHtmD7G/DjUnPLSFfTQ834c1tgX
t/z2hnFxHNLzXjmYdjCWxWFayqnhte2M5XHg1adlWDyn94N4rL4+XunJI8bc
eKhGf5kvaSZ/PBZraiSpN5I/HiMHw1Wab5I/HkZvkxXyr5I/HgXOdxYK6sj/
9/4MzTNNz5E/Hi3B/FkaVeQXoUnnyoVR5eQXQbGktu7bCfKL8Khglc2Io+QX
oXnNfxLGF5FfhKu5A+qz9pNfBOF53j2bXPKLsHKPslP8HvKLoFO0YuBoJvnF
OMy5MNi+lbGKGOcPrvXhbaLjESPaUmPF+mTGi8QQ6BqVNa2l4xPj4p4LMJAw
dhWjo9je+WgsHa8Ynw3bk9UiGYvFEG0wEeYK6PjFWBo2qmt6MONsMV4Eb7Gt
8qM+Yoz/MfWItRfjKjHsRuUpvXSjfmIYqHUcyXZifF8MVZuouZZ21FeM+ryK
tn5rxj1iRJbn2V0G9ZdAoLbu2Lal1F8Cz8fpOj5LqL8EnRs73ukvpv4SJHZ7
mE5ZRP0lSNm7fed3XeovAc+8dGqvDvWXoMwgVd41i/pLYHD6y7vu6dRfgmkn
spT7NKm/BMVrIiaOVKf+EjiEHn2rMYn6S6CwcamLkQr1l6A3nmfhp0T9Jeja
vc4uXZH6S5CxoTDv/EjqL0Go2dhj7znUX4pMo0Z7/UH2Pq0ihYHW918S+hlz
pSj+JbD0xifGi6RwNDPJVvvAGFJonl0/XNzN2FWKotTtBQ/fMOZL0Z7TqW36
mrFYCo7A0/7ES3qf/3v/xeduT5UzzpZi1PqOyNxWxsVSbCtwmq3yjHGVFBlt
EdV5jxnLpPDLPquo+Xs2/g/kLpef
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJw9lnk8FHgfxyebEJXt1KZ15IiEUsjj+MiRs2iQ3McY91x02mo6iKmU5EiK
okOpCBvpkJ62skSlNnRnK3mUimo7ePZ57e/7+Mfr7evtPZ/Xa8yMVoRwaZQc
h8MxGsHh/O/7P1/9doaqX6Nexm0C+wEe3RfrKAiJFeGkcURrhoRYFc4/2VdE
riSeCLWOkUoqKcRqCJonNzpTSqyOKO2TE1+nEWti8/GcXSGZxNq4+CR+LCeP
WAfZzzt2qB4k1gPPt976bDnxTIyKzMwzP0dsCOPN4nOXbxAb4cskr96iLmJj
KGb160/uJzbF55MhY1YpbGY8B+/cay8oahPPxfozJ7mGIDZDT4eteG4E8TwU
pqaapacTz8c+9zGSzVXE5uh9xJ2y+zmxBQwFU4PUp25hbAn9hY11aT7EC9Dt
9mQAucRWyC93Mah7RPwv2JtcsOUapzK2RkpZ0rSMVGIb/D7Crv5kN7Et1Dpd
40080hjbYeOwzz7v88SA7HVa0Mr5W/9hKaBl0dXz6Cxjjj12Ss8eOe+Qzu72
qHydNtKxgzFnIdZK/UdkrM5g94WobLppka8lY3cHeFX8Mtq3nbHUAT2DFtMO
7drG7o7QUdzgYOG3nd0dUWWZUFKjs4PdnZCgWzu/9itjqRO+jq+Uy+/MZHdn
HOKZC0sbdrK7M9zWjZ27x28Xuy+Ch3Ehd28rY+kiPNvV2f3ULYvdXeBrdX/J
wDXGUhc8tPZZZuq8m91dETDhhYbSVcZSV/gpfF/32iGb3d3gV6TcaNnIWOqG
1Ni/QgPt9rC7OwZk+4/UnGMsdUfqxHX+1WY57O4BrxSz1LYyxlIPhA7XKqSr
57K7J/6M+nFD8DbGUk/I5q3xfjVI98V480m+63xgHrsvRvf+8D8zzjPmLIGn
qpuiklo+uy9B/ZTu5xwBY44XdE9aJ7pcZAwvmHolj7usuJf9vhc+8lq1fD0Z
N3gh3OOKsep2xhxv6Mo053GuMoY3pg5a6M37TL43wv0r5Jt1C5jvDc28wZzv
now5S9HEO6P3ScQYS/HDcevqT5mMpUvxgavz3v4Y+UvxsN54jPoF8rmoWMwZ
0dJCPheq7jZqxzrJ52LlF9nAX8/J52KPtvJC5dfk+yC8NfqDUR/5Pjgnkl0t
IZb6YNXhyS/P95Lvg1rje+8aX5Lvi8KmToPXT8n3RVnD29Mp/+/7wuyNx7ny
W+T7Ynsm70TVNfL9MK25e3rjefL9YNimVziqknw/9I6qbj9aSr4fQj6bSn/L
I38ZrpxsLZfJyF+G59Fl6UrryF+G6lftBoFC8pcheZWCXk44+f7gnZ0d1MQl
3x8TcjXSlJzJ94f74AWXCEvy/dE91DX6kSH5y3E278679dPJXw6rPre7b8eS
vxxPt1w59ZBD/nK0cue9svtAz58ArHM34qm8oOdPAHJc2zfaddDzJwBBf8hX
NDfT8y8AIVW2FyobyA/E/GbZlhfV5AcioahZmV9GfiDSUtqcjQ+QH4jw5h0P
zLPJD0Jd36SX69PJD0JhVTB35Hryg2Dsvy+5MYn8IOReFvKqYskPxqypZ0s7
QskPxumZi/bP8iM/GHq1pcknPMgPRsuClTH+DuSHoN7rcZOJFfkhmFtz+U/D
OeSH4D9XoOY5k/wQuL3Yr7VXg/xQGJ2qzFKaQn4oVnc4a+aNJT8U2c4Sd9dR
5Ifi3u0BZ7Uh+v8PQyPn6OCoj4w1wxAW3Jc8+Q29HoSho3XbKdsXjMPCoF/Z
OHrzI3o9CcOmSBOXZ/cYF4dhtw7XOKCVcUMYLBW0FvZeY/wkDLwHz7bmNFA/
HKtdG5J866gfjvm20/2Mz1A/HIdnN9T9fIL64Zg4pLRVq5T64RjjMjjLdj/1
w/EkZbyZJJf64VhcWvCkeif1w9G88Fy7agb1I2DU4Ne/fhP1I9AzQZ8/lEL9
CCR7plllrqB+BComZ+2cL6R+BJK2Dyr1xVA/AtutV8lqI6gfgeFkK9/cIOpH
IL9M7/UGP+pHQiHtFX+tF/UjkaHYXrDJjfqROF6SV3fAkfqRiOcprGuypX4k
PHgrnBUXUD8SDW137bhm1I/Ex7cxe0/Mpn4ktgwZB0yYSX0eUkQ+Fhna1OdB
V6h+X3U69XnQrp62t3QK9XkYdrEbXDie+jxkD9j+2qdCfR7GjueHlilQn4ek
7vSDIjnq8zDE8S23/07vT1E47eLyTPczY80oWPaq2v/4gTGisPZGxmKVN4zD
ojC9b2KGag+930XB5vqHVq1uxsVRCPmh/pnNY8YNUfCz6+2K6GT8JAoHauNT
su9Sn48h+Rs329qoz0e+XNxEtWbq8/HTg6hC4TXq8+G+88P5m43U5+PQ97na
1hepz8eCQ42eFXXU56O1pKF2Zg31+dDowtKKCupH48y4T+1O5dSPRmIXjj89
Sv1oZG64YLO1hPrRmLbC+P3cIupHoya5pb+ngPrRMOi0zT+ZS/1oJMWq3V2x
m/rRqDy3ttAtk/oxOBX+bIuejPoxsNK/8kY5jfoxmNSiYP5lI/VjEP3tmHr/
OurH4NvbLOO3a6gfA32+hs/ACurH4LD6rzvlJNSPgZe340g1AfVjsTEwfsgs
jvqxGHHbWT6UT/1Y3Jh3440sgvqxmPieb3sphPqxcB0pXDOCPv8Ux6Lsy41+
p2XUj8XjHfvGZnGpHwuZy4/RPUuoH4er8rV/OHpQPw57zq9JPexC/TgUqRcE
jnWifhwmdR7Yu9Ge+nHgan82/WhD/ThcXhuik2xF/Tg0Fk6s+WJO/TgUHzT9
kmFG/XhkoF821ZT68dBVexBWZUT9eFy/MW6Qa0D9eJiHvQsa1KV+PKaIDhcW
aVM/HsO3LAVeGtSPR/9m4QUFderHY3SLaU6TGvUTMKPhwJTtk6ifgIN/GBT7
j6d+AmxUBrRnjqN+As6u6pL/qkz9BJyxnrHyriL1E7DUVhBwVp76CQi9HudU
JEf9BNza+pN+xjB9fk3EUR0T5ZRvjDUTcVCdXyL6izESIXFZZpL4kXFYIgJG
6ioJPtDn4URcCZjalNzPuDgRx4wvKUv7GDckQi/Jk5/1mvGTRFQLhkzKXlJf
gDtXT8y41E19Ae5nzMjvfEp9ATqK0x4OPaK+AA6aCt6zHlBfgMh6/vvADuoL
oO73/NKOe9QXIN9g0enGO9QX4MiC01uG2qgvhGi64JXtTeoL4WASoJDxO/WF
mH3b0fnWdeoLUbrDwFTjN+oLMV1vxbbkK9QX4ubh9S5NDdQXIrDm8RHdi9QX
Yp/C0KfUeuqLoM596dtTy1hVhCr/8q/ev9LjEWFNrGiwvoqxqQhGCddeGFXS
4xOhwDdkSekpxl4inGyt+6peTo9XhO8yiPPKGItEENTry34+So9fhNI75QMl
pYx3ieCup7F75iHaI8KkWbnBZ4oYV4hQbjilwHk/7RNhwGJnckcB4zYRVJyf
dwvzaa8ID161b1PJZdwvQskPh1rKsmm/GCqLgls8smi/GP52hq3vM2m/GH01
d6YWb6f9Ynz5d0akh4z2i+FaGF09vJX2i5ET1Gpbk0r7xbB5tVxFuJn2ixF5
+uOQwUbaL8aFZrl7L9fT/r//3vKNWWW/0H4xvD6v4iSupf1ixDzW1jRfTfvF
qLcUnOCspP1iJM8eV9+WRPvFSB9z51uJmPaL0aQ5ynWNkPZLMMLe6eriRNov
QW/hCR2jeNovgduwSHN0LO2XwEXbYk4vn/b/zUkxw7d5tF+C2ps9WXURtF+C
2R1zAkvCaL8E3aOt5mSH0H4J5MuLlTYF0X4JfpvjWJsUQPsluM+fLBfjT/sl
WDLO522QH+2XYFH36B3+Prn4LzMKlAw=
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw1l3k81Pkfx0e6V5u2C6l1dviVpKRIXqFx5sqVc4zBmBnmaJWKmgiV2NoY
lQ7KbmolhEhK0n1KStshXdSmJfXTpX79Hvt5+8fj2Xuej+f39XgMI32+1Dty
AIfDma7G4fz/+79f3bYmmp8jO0TJYP+AR61yoyFS4qGo+hBkbKgg1oTZEd3j
ESuIx6DdZNJEjTXEWtArLTXNUhLrYrBOSMCrNGI9eLumcMKyiA1wvfCPM5xc
YiOce5a6b1QB8WS41kW3VBcTT0Wf08WX804QmyA05bDGuUvE06GR/FFVeJ/Y
FJkfDhbqdhObQSL73LtuSArjWRC/KL49xoDYHIcdHbdbgXg2zhmkjnfiE8/B
6QHalwo3ElvAReHVXnSMeC6CXXvLGp4SW8JpucXHQO0NjOch61v0qTs+xPMx
ubYl+g8VsRVUrvsuz2sjtkbXb+o5b01TGS9Abt+ste5pxDaQDX4ny39OvBCj
oku2+S9JY2yLk+c6navriIGPxUtXGVum/8tKwKlahfYaxpxFOKEzqnIidyO7
L8K4Y7NbRj5gzLHDEcWnYVfXbGJ3O2R1jNAIM97M7vZ4OvbuxOJWxkp7pDYZ
hebkZLC7Ax7N125rCtrC7g4IC3uTrfafTHZfjC+ruV/rBmSx+2JUlT6Shz5h
zOFCe+wwb7NLv7I7F0fzXs9eGLSV3R2RXZlUfPA2Y6UjHlwxbFjquY3dnVB5
fPK1C9cYK50Qc/BZNt/tN3Z3xiN3J67qCmOlM4Lqte5dc9nO7i7wX9Z/R3KJ
sdIF6qr6b/e42ezuiqKsugEJDYyVrni7pWHMMescdncDJ2/aVfVyxko3fAvY
m99hpGL3JfDrudz+eDtj5RKcCJ9ck/aV7u5YoysLihXksrs7FHWCRPtzjDke
+FSZX96gt4PdPWCkt7u0bAVjjic85zhu7TjPGJ4YXZnXu3jUTvZ6T+RO6084
7su43hNNNskcp2zGHC9EliS/HnSNMbxg0FRRwOHsYr4XbPp9dgXMYFzvhRqv
QRMcfBlzvPF1bO6nnpWM4Y27tu9PF+SQ7w373KOHVSXke8Nx6wfF+LPkLwVn
iWKPuJn8paiNLP/4oo38pZjKdS6600n+UtgMC72W8oZ8H+jat1+x7SHfBzZa
Ry54ECt9kF0QskTtH/J90DnGymXfK/J9UZk9xTX0Gfm+8A7mlaU/IN8X6suH
dnrS89V/f33on0ndF8n3Q/G3OzN31JHvhzK1eQdWlJHvB6cTqh3lheT74ZCu
3m1JLvn+cG3tjLm2iXx/VHs+T3u5hnx/SPufLrgXS74/5lYkaZeHkR8A8wBu
d5oX+QEIvjslNsqe/AAkVawy5lmQH4CmwLK4pCnkL4OeiTK4Xpv8ZTCpda9q
Hk7+MuwxdKoTfKH3zzK8X8YpFr2h908gRu/+feH9x/T+CcRJi92V5c30/guE
8+HNkc/Okx+IF4ONh8WdID8I1p0hIscS8oPA956eLN5PfhAS252tWlXkB8H8
kO+s1Azyg1Hbm5coV5IfjEk35w7Kiyc/GC1ejRP6ReQHw6bc+942Hvkh8DeT
nAnyIz8ELYtvLPByIz8EmY1hK36xIz8Ejk7mRxvnkR+K6KwfbGxnkh+KRmvX
uIfG5IfCqPxy0X5d8kOxQni7dNto8sPwMHOwzu/DyQ9DeFBrQYsa+WHIuyy+
bvKR/XzXhyHAV7N1dzf9/PPQf7uryLSTsR4PJ4wHCtrb6PcBD9bpD/uK7zLm
8dAwP+J29g36fcLDipLmutwLjPN52H41fP2x09TjIWO5weHO44wf85Cd0rDI
spT64Ri2yPdMXhH1w1GRN3+ddgH1w2GVvGD40Z3UD4dD/3AP/9+oH46Y/RVn
tDOoHw5L6Yh/elOoH44DhcsnPUykfjjsUuv+2xZPfT5q+T8Fvo+jPh+2Q1et
0xVSn4+2QeukPuHU5+PXhFjPwkDq86FnI7ow0If6fFy4+rl61RLq83FC77pI
zZH6fBw53RmaA+pHYPyzluNWVtSPQJn2Ze6b2dSPwJ28bXZVM6gfAZ+uc4Ks
KdSPQIZRouYqfepH4PNBjkw+gfoR0N7yc9XKsdSPQKR119+ZI6kvwN+RgRfK
h1FfgHtnH3e/VKe+AF2Wdo0zvrLPE54AByYGn0r8QJ83Avzzt92frW8Z5wvA
fb1sJLeLcb0A5j0au053MH4sgIfcJ9H+CX0+ReJA+F6d+w8Y60Xi+U6JdPVd
xoiEcdFZdZNb1I+EhrOvz9Or1I+EYcU4u8MXqB8Jrt2XjMQG6kdi6vV+t4A6
6kdiz14HLqqpH4Ubph0bLI5RPwqqnJlcixLqR8FYa8Nfiw9RPwr3rz7NDi2k
fhRCUjmGafuoH4Wbn6YOrNxF/SjIahyOdeZQPwqmS+cYTN9G/WiMqNQfunYL
9aOhr7p45U469aPxPpj/1/wU6kfDIElHdWAt9aNxtDt+mvZq6kfDL5jbkxdP
/e+v/zH3rqGc+tGoDclsrpZQX4g3C18k+AqpL0Ro+sqpXyKoL8Ty8GE2xWHU
FyL61NmVgiDqC2HQxxNM9qe+ELp+Gq/eeFNfCGVLyQ9n3KkvhH9t86tdLtSP
gaCvsXkNl/oxMG/KWiKxo34MbHaMnRa6kPox0A4y6wqwon4MJiecn8ifS/0Y
tPBmDIkzp34M7Eu+jF1vSv0YvE1//rDAhPoi/OQ+et75ydQXQb7N0rXbgPoi
3A24OsDwZ+qLEPNr2W7eBOqL8MxUOCR/PPVFuLDFxOnlaOqLsLuraI+1JvVF
iO9+p5urQX0xNjU4B/UOpb4YSz1m+QYOor4YNdorlBfVqC8G58wvPZb0959S
jL7xDSWlnxjni7HOukZq1se4Xoy4GS8nHe9l/FiMDM6I887d9PejBImzR6fc
f81YT4JB12dXJrxkDAk0J8rctF8w5klQtr/gaN0T6kvAHbpNQ9RGfQk2lVc6
TnpAfQky51b3tLZSX4JPEzZ8zGmhfix+OTlZEnSL+rHYXHTtg9EN6sei+LJt
2/sr1I/FbGHZyisXqR8Lo5gZQQfPUT8W4ntd+hsbqB+LwK9VEdLT1I+Fnq5D
fMhJ6schP61hpEsN9ePgyovPXFBF/TjEGn9dMO8Y9eMwfM+IhAWl1I/D0NPr
rRcfoX4cXA76p3ocpn4cdIra3EIOUj8OwhlcP0Uh9aUwGbHGcUsB9aXwqEh1
K91LfSlmzp12/lYe9aXYYdZi93kH9aW4D+f0/6ioL0VylMH6YPr/Qr0UgTW3
5Nu3Ul8Kda3hh25kUl8G9Ul7bUdmMNaU4Z3aHpnPRnoeGYadKuLmpTI2k2GK
TXDUy2R6Phn4niVuC5WMPWXY/WPH2ewkel4ZNJ1U3l2rGctkaEzZ3uydQM8v
w/EjtW+q4hlvleFyb+ZGneW0R4brkvC9KTLGpTLUW0bK+2JpnwyXXOKmicSM
b8rwbObMM4+FtFeGvvSq1pAoxt0ytH572HQ/gvbLsXbC8KawcNovR+06C62O
UNovx+8Vj7rig2m/HFn6eoMGBtJ+OVYPVQp3+tN+OdAe6DjLl/bLsd5885/X
vGm/HCOG3IkXe9J+OcLq1kRpuNN+OfR/0Eoqc6X9cjQO3p0e4Ez75dDZsDdl
kCPtl+PF25ppFQ60//t9oMV2oR3tl+PArcNiPdB+Odx1Wjb/ZUP7Fci0SRiX
Y037FTgqeNfgP5/2K3Duxz2LJ1jSfgW0aqdrPZlD+xW4fID/5Kg57VfgYeP4
okQz2q9ARc+4R26mtF8B84zUZYbTab8CXVcDRnycRvsVuDkn9UbTFNr/vc/1
Exwxpv0KnGxOb95kSPsVeGv9yiRWX4X/AYT2ma4=
      "]]}, 
    {GrayLevel[0], PointSize[0.006944444444444445], Thickness[Large], 
     LineBox[CompressedData["
1:eJw1l3k8lGsfxsfRQj45KR1tslSUlCVOaHFFkWQPQ2Fm7MYwMzippKG0L5IW
a06KNtWJNimTQp2IFiVORU5FOVGhUL1v73vu3/wzn+/85prvXM/nee7nfnQE
0e7BP3E4HEMFDud/7/++uq0D1g7G3C9OBvsA2iMLa5yuESthzorKFQPXiUeh
qXpE4kQ5sTr2Jyn6llYSj8M+i5lH9OqIJyFez8zB8AmxNvY23brzrY1YF38d
G7llWjfxVIRsXG76sZ9YD4FPa3RmDNvIeDocayeHpYwmNkCX5blJvxsSGyKh
tDTQxJZ4NhLKUlV/5hIbozzhvMAihtgE/V82dc5PJzaFvWK8ytRi4jk4WabZ
WvKE2AzDymrO3R+6ibE5ptrVzYq1JP4VO3at0fwgJp4L+YK6wxeLiS3w/YP/
BdNBYkuoXzC7VGGfwtgKUb96CXIziefBLF9rZGEP8Xz4bhLMbPfazHgBJvmP
2ptZRbwQyZPSjR8u2sLYGieqHOcqVxIDrlVfjAedtv7LMsDHaLP0SBtjziI4
p8RPfZ64jc0XgR+jmquss53NbWAZeGiM2QPGMht8bw4uf797B5vbYkKFyd1c
751sbotanRMpadN2sfliqGQpzF6quJvNF6NbNFCs1cqYswTupT1GDnf2sPkS
XLbWGJkRkMrmdjhg/eIXw6eMZXYwMTgxJtVzL5vbo/CBi8W8J4xl9gi7N5A+
xSeNzZeivapn06smxrKlSNR1STvD38fmDqg6Wn7QppWxzAEw9y91CEpn82U4
oFz+yOU1Y9kyfPZT+xodtp/NHfFwYOVP4reMZY6oHXLzil3wATZfjuojHZ1T
mxjLlmNXolm26fKDbO6EB7rN/YlXGcuc8FUy+GqM3iE2d4ajTqrjqt2MZc4Y
XhI7NKuT5i7Y9XPxwVl2GWzugt+FATDKYMxxhdbORn28YQxXuBTj6k3jTPZ9
VzQ0aO4oimIsd8V65M05kc+Y44atfX8kazUwhhs6Imb2aQzNYnk3VI3jVpsY
MJa74anBjZfG9ow57vieyy0cEcQY7kict01pQzzl3ZH8VmvxxxTKu2NU/XrL
mN2U98Dx6IyHwfsp74EIR82/44hlHliwfsj3c+mU90DflCVBjWmUX4E9QttK
ix2UXwGHQS3ePxsovwLORiYHwqMpvwLr0+ZF6goo74nq5Iq85a6U94Tn59uv
DSwp74mXi3uEM6dQ3hP3Juqn9CtT3gsaYauXmryn4+eFhEaVoacf0fH3wtRZ
+y9NuUrH3wtuExs65Ll0/L0hUB+ypyuZ8t7Ymn8q9nMY5b1xWPGu2nlnynuj
KS56ia4R5bmIUzCac1qN8lyEDKZeWtVL5wsXtm/Mf9vWyFjORV92z/UP1+n8
8UFqs9HhzuN0/vjAyYX78sYeyvtAuz6j5EQs5X2wtM21XMWX8r445tSwQLqI
8r5oWGdQeE2f8r4YrB/aK/qZ8r4oOCz+7V0fnd8rsfoz59nBl4yxEuLA4ime
d+l6WAnbeYU+vBLG8pUIuF/0JDaX8qvg8OX5i5YtlF+Fo7EdAWkSyq9CqfzV
H68DKL8K0gLlZhdnyvth2Iz4EZZWlPdD+/Ob04bPoLwf4m0njLXQoLwfFBzP
CEx+orw/xnoZHD/eza5v+KPm8YBu6wu63v2RLT5b01zLWO6PA52NSouv0PoQ
AIF7QkLyScoHQJTem6WcQ/kAbHn+svXaDsoH4L1+YAJ3HeV50K/OeZAUzlib
B/eHswt8/Oj3eJhUF4oFrox5PNwsV5rwaRH9Pg/S4y9SRKaM83j4sfpNm6dH
Ph7yKtSOjlZn3MJDbtLeg73DyM9HRL6V5tZBtv5p83Gy1P5XjXeMwcfR9qQ9
N1oY8/hoemPy55xHtF7yoXpDMv5zJeM8Puz37TDpvsxYzsebwRMf0s4wbuGj
TSHY4/0RWn8F2PPKr1eWQX4B+IVc89up5BdgeUXK/OQk8gvA0dZf3hhDfgFK
pEbGpyLIL/h3veWRXwBLWeILa2/yC5DsfTfnqTP5A2FsqlBut5j8gVggvOR3
3Jz8gVhjHVX+1YD8gchctTPJXIf8gTh9bnxLxTjyByL2ste6Q2rkD4Te2Xsm
vBHkD8Re1Z/5XznkD/r/eoI+dn/SDoLigVWVgveMEYSnF6cXJ7Uz5gWhtuP8
oUMv6X4WBLgoDnNoZJwXhM5KV+eSu4zlQTAXhByurmbcEoRvExySxXK6Pwaj
7i/bikuXyB+M1bN39rwsJn8whhkNjHAvIn8w8jTFfiaF5A/GxS/qnPwc8gfD
09Hqz0Xp5A+G0bOpwxbtJn8wnIyzheM2kz8EvMmmrxQTyB+C1qu1E/VjyB+C
mcZBce9E5A9BQZmXzeoI8ofgonpq338CyR8Cq+F1mwoCyB8CyavOnL1c8odg
Uq7/DEdn8oci+/ixK/uXkj8U24d41EbakT8Ul2T1ay1syB8KnpJlV7kV+UNR
nmwWqGZK/lBIfFJqZbPIH4p/1CI2q08nfygUH3wfztUmfxicM7KiF2uSPwxi
fbXWw+PIHwZdi9ltIaPJH4axCs5duqrkD8O1H9thbRXyh+HHbnl64lDyh+GB
m2rIGA75w9AxymL09EHaP4Wj3mDOsd5PjLXDoXS3sX5XJ2OE435a9cPzbxnz
wnEikuvh00b7rXCYNT5ak/6McV440t4VpHs3M5aHo4vj4hv/kHFLOKLUfYTt
98gfgW7xPDNDYu0InLqY1dJ8h/wRMLLYWB4gJ38E+gcrI7eVkT8C3m/GpX67
TP4I3E5A3qdi8kcgISimYf5Z8kfg6QGF0BlF5BfCoU/J/OYp8guhfOvdQEo+
+YUwC2s/nJdHfiGcDSYIrbPIL4TKIXnRYBr5hejZuf6O3R7yC9GaOW9Aazv5
hVj5Md43cQv5I+FdoxRdl0L+SPgHizzKksgfCfcx6xcu20D+SPR+ueZUvpb8
kejfXBE6M4b8kVjWNTFgMJr8kXB8zX3eEEX+SPBvLVRQjyC/CPvVNGRVweQX
Ya5ZcGEA7a8hwsmk1zFneOQXQbQ7Jqvbj/wiPD4buzDBh/wiCEce69P1Ir8I
rdPXxN1zJ78I4bqR8QMu5I9C5FpX1xHLyR+FcfHvF2Tbkj8KCRdVVfvmkz8K
wukXNO5bkj8Ke25s9yiyIH8UFIQNZxyI5VGw0RtvedeE/FHIm5h5fp8h+aPh
sbbgIHcG+aNRq73wXJse+aPh3rjkvqI++aMRn8HP79QhfzS0nHqDrmuSPxr1
jpVVCRPIHw23Hnm19ljyRyNtSWa8/Sjyi8HrSIh/rMx4lBjze54VnR5O/0eM
Lk1zvcVDGRuLcTA2fWMGh/6fGCUlHjGW39nzkasYnyaHZhp/Y8wTo8z3fc2Q
L4zFYqy7UWhp2UfPU2L8/XtX1Kt+xqliaMjsOkbT9/PEGPMwhbvgI+NzYhhF
1nr5v2csFyPu7Z+hVzoZ14vx+YD0OreDcYsYtmu07GP+ZtwtRqJUXXt7Gz3f
SfDtlxzDOHq+GyWBwb4JTXjGWFuCx1YSy8nNjI0lyHXIOnm1iTEkuCE+w7d7
Qv1/zO18DboaqL8E8Tkj+0MfUX8JjI7NHj+c5jIJlGL1RAYPqL8E68ZXSu/W
UX8JZNnG/JIa6i/BUc9ZHe23qb8EI37ZMse6mvpLcDPoJE/9FvWXYH7lyUWH
Kqi/BJx9Kwq4xBwp4nS8Nmy6Tv2l8EhIsLl4hfpLYXJwhWhuKfWXYpnA4crg
BeovxfE3z7ijLlJ/KWz/M0RDSMyTYo3NWes7xdRfiqL8k8q6JdRfirL906wc
/6D+Ujimqrnyz1B/KdzcemfmnKL+UuxVudfSVUj9pcj2jvNSKdiH/wLOjJTY

      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 500.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 300}, {500, 2000}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8103100242626724`*^9, 3.810310073490427*^9, 3.810310438800198*^9, 
   3.8103107683776865`*^9, 3.8103110401497555`*^9, {3.8103116635569453`*^9, 
   3.81031169569376*^9}, {3.8103643484165945`*^9, 3.810364357494349*^9}, 
   3.810364422074423*^9, 3.810368578567133*^9, 3.810368841547587*^9, 
   3.810371206530656*^9, 3.8109597617985325`*^9, 3.811092534444132*^9, 
   3.811093278769143*^9},
 CellLabel->
  "Out[1208]=",ExpressionUUID->"dc78b985-e4f0-4b59-8ef6-4a500a22e263"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"atmosB4", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CCFund1summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "5"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"dataB4Nor2", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "2"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "300"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"500", ",", "1700"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
      "Gray", ",", "Red", ",", "Green", ",", "Orange", ",", "Blue", ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.810310036179265*^9, 3.8103100406996307`*^9}, {
  3.8103100764592147`*^9, 3.810310079748242*^9}, {3.81031044826429*^9, 
  3.810310458754898*^9}, {3.8103107777146435`*^9, 3.8103107878428383`*^9}, {
  3.810311052805298*^9, 3.810311059403012*^9}, {3.8103117067122817`*^9, 
  3.810311753503275*^9}, {3.8103644318678303`*^9, 3.810364474255127*^9}, {
  3.8103712102651243`*^9, 3.8103712105774145`*^9}, {3.811092576057415*^9, 
  3.81109258612728*^9}},
 CellLabel->
  "In[1209]:=",ExpressionUUID->"b6454ab1-9855-41cf-99f8-fa686e9ba6c4"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJw9lnlYzIseh0d0kBxKm3JJhWgXbaRPRdr3RftUMzVT0zQzSCiFFolORGix
nLoUqUSWDhlKFFG2SNJ1ZTmWE1lK6Lr3/L63f3revr3zzud5fk/NzMgEb64M
i8XSH8Vi/ff731/9Nv/7xt4E5gdIKSspEUQSj4NJ0Psza7nEk/GHzxj3iXxi
JfQqVus5xBOrYXH+jCFbCfE0OErrmzWTiDVRfq/OUD6VWAsdMopS4yxiHbw0
Wd5Yl0c8GwEaJxw7ioh1oTN1zpe6cuJ5CBtzprb8DLE+2kYedA9cIzbEeDmX
5N5uYmPYd3qL6weITXAw6bp1+8TNDM+HasT8g+l6xKaose27ZO5GvACtdW1u
S1cSL8Sgwnklhf3EZnjzVW+K/E1ic0zoyppVODqdYQvsadzloGNDbInH0wxG
T9lIbIULPRkeN1qIFyHv1+/6Z6dmMLwY7onfzAzExNZw90003NROvASOhzjr
v5hnMmyDSo1MjRtHiIEL2XtFpppZf3MasOPr6QrPQwyzbPEppabYXG8Lc7dF
7T7DJU8uMMyyg7K3xgajwGzmbgeDmufzxn1nmGWP8xL3XK2KrczdHs9dQjja
oTnMfSmejnq2oEJtG3Nfioa27VcXPGKYtQxGxTumGJRtZ+7L8GCmeWSvJJe5
O6CDxb+4y+E35u6ACkf1NxaT8pj7cqh1Wb65mcxw2nLoDlZ/3vua7o4YtX4s
Wy14B3N3xNmVzn/daGWY5QS9qW3bF1vtZO5OkF16ittVzjDLGSqrK3/XU8ln
7s4IbZadcHIjwywX7D1uHvn5T7q7YJXYb0261y7m7oqVD1WKX55iOM0Vt06w
zC4r7WbubtgaVbv5pIjhNDfcbbnNj7tGd3dIdx9vPaxRwNzdkf/gjM7cWIZZ
HvAuDKq/fJLuHmhdvbzZe5Dunmj4cJJ/zXzP3wxPbL1ubKwoYTjNE2Le6Knz
jzAs9US+T7vZwk6GWV7omFvFt5LZy/he+MtCoSNIl+E0L9heqdstdWJY6oWu
L6GJB6IZZnnDsdqjZ24q+d44/tT6bHE++d54VrEWi8rI98ZId7KS/QnyfeCm
7Rn2vZ78n3z+g9zJS+T7gKPxctmxK+T7oNauiDf7Kvm+SC5W7OQ3k+8Lw6xz
6g2N5PuiK6v0VdhF8n0RtjtJcfM58v1Q6tH1IK6WfD+kB7SXuhwl3w/vDj5v
cj9Evh+m961OPLKHfH/ISOfUp20n3x82L3adG95Evj8yy3y+WySR7w+PFp3D
PvHkB0Cl7IQNL5L8ADyZ4XcsI4D8AHwzaYu57Ep+ANxy3tgb25G/Ai+veiy8
a07+CkQ0yc1uMCB/Ba7vr5D/qE3+CigYyT1fp05+IHLDVD38FcgPhMUSzpzs
ceQHImThE8GkEXp+AnFKOsTR+UzPTxBWqP97dsNbev6CEMrrWne3j56/IEwr
KyoL7yE/CIV1spY+/3/+gvF60g+LY+3kB6NszVBZSCv5wejv39kU2UR+MB5v
Hb55qoH8EETcCBB6nCM/BG1tvxYbnCI/BH0DxYXO1eSHwN6p7u6ho+SHwiir
cNTcw+SHQnhMcaTvEPmhUOapp90sIT8UCRtUZz7ZR34Y9KwsfdQKyA9DY8Q9
t6Sd5Idhx+OGVR9zyQ/Dt0XWSvk55IfjqV1SkucW8sPBMnd3nZNBfjh+aaqO
VdtEfji2KzqrTk8ln42KbXUFlskMa7Ix6+qRbv5aej02ameGfShPZJjNhu9k
DQyvpNdnQ81btiZczPBBNrTsTcI7hNRjo/LSFmsvAcO9bHxcJ3ulm0/9CCwZ
ns9dGUP9CNTqPnmqyqV+BBS0mgWXI6kfgZInG4Rr2NSPgIW+GndhGPUjsE/p
xa9fg6kfgYdDF9JaAqkfgfiSf1kcCKB+JJRUqobX+1E/EjNmjM8O9qF+JLYf
OiKx9aJ+JIq5AWYGHtSPRIDuA9NpbtSPhM+pL9mKLtSPxKs7PzonOFE/EjVf
Ta+PW079KKSo/SNdfhn1o+Ci/ubDZHvqR2GCXKObmi31o6DTVq06x4b6UfDb
WLbNzJr6UdCqYZUtW0T9KPQKYn2DLKkfhXGliXMS6O89i4PSozoKGxdSn4Pc
NW+/7TWlPgeqL850nTOhPgflIW3rOo2oz4FFrLjyowH1Obgh66+irE99Dm7a
DKtZzqM+BzbTUl0CdanPherv4dWps6nPxf3c38LLdajPReisP963aVGfi3Qd
tsMnTepzMcF1cNSMGdTnImhTwlunf1Cfi052pmSVBvW5KHr0y+uDU6kfjWly
M++3qVI/GtfKC2uGlakfDb07Xy8YKlE/Gn3Go++GKlI/GmbTl87aMZn60dA6
lDev6VfqR8OuZP6Jz/LUj8brmzu6506gfgyytLW44eOpH4PBsOjevLHUj0GV
Ezf5iiz1Y3A/QOQ4Mpr6MdjfbV1pLkP9GKjLvJAIWNSPgXuI3OXSH8z/+94Y
9Ke4DnZ9o///PKgbv12rMMywJg8pf7bmuA0xDB4+ZNwSZH5hmM2Dk+OdiQ2f
6PMEDwnPdKOGBhg+yEORt6Df4gPDUh5GZhWsSuynPg9KI1ul1e+oz0dC+EjV
uzfU5yPY8F663mvq87GiZnM79xX1+ZgyKWzV4RfU58Pjx9nVz/qoz8f7RdJU
7WfU56NMS7+X95T6fDzYFqBV3kv9WDTzTd8/66F+LExn5pXMfUz9WLztvzEQ
/4j6sdg3qC049pD6sajNVPr0upP6sdBOTgk3uk/9WHRsYF1ddZf6sfhl3Vmj
07epHwfxNYH8UDv145AzcvHnh0Dqx2GJA+d7Rhv147AgW/Cs9Tr14zDdWP/z
pFbqx6GjNbhlxTXqx+G0bPuC/c3Uj8O7G046fU3UF+DDFZTqN1JfgG7lWVNX
X6K+ACF+u+XPX6S+AF+VhgdGNVBfACuTiVbO56kvgLB4/MZd9dQX4LafYfqj
s9QXIHOkasvsM9SPh26jZI+wjvrx6Pm4+fBp+ryKeCy9WN0/upb68VDLyHBy
raF+POoFvcYFVdSPh8XC85G9ldSPx0y2apHxMerHo3bb18kpFdQXYr/ud+tr
R6gvxECi5gWlw9QXosGy6iqnjPpCHH+jvLj2d+oL8c5zzLQfB6kvRKa31n2X
A9QX4m2V/beiEuoLUZnjX/2qiPoJUBWcumhVSP0E5Gvej9+2l/oJODfZOK+3
gPoJuDrFLtZoN/UToCCq2rkhn/oJaLgXqty+g/oJuJBXmaaTR/0EJPR2XF+V
S30RnPOHNJq3MTxZhBbf2JuqOfR+RCiXXysVZDNsLIJQ8YRlYxa9PxHydx2d
qprJsKcID0sDebHp9H5FGNNz7JJ0E8MiEZL2sOyUN9L7F6H1D4PrvFSG837+
vmqEmTSF9vx8vQX5YrVkhmtEmJ7r4yZcR/tEyOh4ue5yEsPtItgeib6ttob2
ivDpRXm5aDXD/SK0a6dpt6yk/WLY5l6q0JLQfjG+upnmrxfRfjGCZAaj7ghp
vxhrGvQOz4+n/WKMM+lt3xpH+8UQSXJmPeXTfjEqq/yOLubRfjGkVv5J+6Jp
vxgadWOiBji0X4wXBaNuuUfRfjEsVMLmHY2g/WJkpq/cP5ZN+8WQq29r4YbR
fjHq9smUNYbQfjHml+lXawbTfjH4r8ULUgNpvwTx4Z+6ewJov+Sn/1Bo40/7
Jfinz9inRb60XwKVQku/QW/aL4FdTb1cgBftl+D4Y+nDMx60X4LLTU++qLnT
fgkeVztoJ7vSfgnSmrU5vc60X4L1Qz867ZxovwQ92fOuHFhO+yVofnnrE8uB
9kvQGNhvGbW0AP8BIk2Wjg==
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJw1l3k81PkfxycdaMvRImkVEZKEQsnxkighypkj4z7GMDO7UlklkXTIkdBW
jlQWqRVafiqlLNHtqKiU0NYWEh1q99fvt5/3/DOP57zm9X1+3zOf7+c7o+of
tSFIjMPh6EzgcP73/O9jyOL/T9wEsBfQkfThU4Q/sQQuNu79Z0cQsQzm30m8
PDeMWA7W9faOPD6xImxVMlrjRcQ/YOYtgyfxW4hV0Byj15a1g3getpoUqr5J
JlbHbfnpc86mE2vgbmL5lxnHiLUwU+qfKvsSYm1s7rqbW1hDrIOs2dbnuC3E
uljw5dKTu0+J9VBx2VVi1QdifTzbnHVTfMYuxgbw7Hk4J0GPeAkeSzfuk3cm
XgrtYmeLuduIDSFWNZoocYrYCI+953RbdhIb457VjlIDqUTGy2AzUOlmY0e8
HMtUlM4MpBKbIOG54tntD4lX4O0VLZXohUmMTdGo2DFNLYnYDEe1dqv29BOb
w9f6qOYbp92MLSBl+bl2TwMx4Oudo9hnnvwvxwMTfJIEag2MOZZQMr+T7+K0
h+WWaB/iHub1M+asxMSKmLG1SSksX4kO/RMfW3T2stwKudulpfK7Gcdbwejl
4C/+h/axfBUk1aTXnXbez/JV4G2zKHk+6wDLrTHfpL2f38843hqNvc6T9vye
ynIbtPktMAs+eJDlNpjrxReXNkxj+WqsVLSd8uwE4/jVWPYmx6n0+3SWr8Fe
ZynXF7sYx6+BdbhCNOc95bZQvmNwb2tABsttERG+58iFu4w5a/Ew0f93A/NM
lq+F74ejVX7FjDl2kLl2f/El6UMst8O7dt9JLT8y5tijZSB3SLyNcnucnfJ5
gaReFssd4OOk5x+czDjeAVcfTSu89pDyddgXf/pap8Zhlq/D0A9Xjb0iGXMc
cUR1WFfxHOWOyC44PzjwmnIncBtTH1SqZv/LcMKxKUHjYesZxzvhfXe+rHgs
43onCOyFxjnHGXPWwzZOoti0jvrroS9cayHdRv31CJVcNNOsn/rrsdmxWvXv
d9TfgLrWUaO9n6m/ARaWRtfUv1J/AziOwzmK49TfgFVv9/WVvqe+M/Is45br
v6K+MxIuyNWMd1HfGam5Ptt8blDfGSsiV7kUVlHfBd0rotNn0zxwgZQEb8Kc
ROq7YC7XfHg4hPou8Bko6X1kS31XzPtV6Z6GNvVdkTXa3y8nSX1XvJ5SIfuk
n33e9a6YVH7/TX0Dff5uuCu2rPh9HmO4obmw2eZULH1fbqgd12iY4E59NyQm
zrBcZEB9dwz3pd53nE59d9RkGkYkvKT14g4d+TUT+xoY17tDb+dzv4w8Wj8e
2P2b5VB2LGN44Guubth0D+p7YJPmRjmOIfU9sKfxeVnsDOpvxFgbOHuH2PrF
RvzoLJa15Dat5404VmGzf+sZxvXf8jPP/XP30/r3RJPkU93UCOp7IjZpopyL
A/U9kfaT6ZwBXep7IvGzspq5LPW9MOxW0OX+nl1v8IL3p6OHFz6g69ELYipW
MdV1jOu9YKf1wnC4gK5PbwhChPkPk6nvDetn2/bxIqnvDYOI2JuFrtT3hpdm
oHqsGfV90GRe5PtqPvV98Cppr/6YFPV9MFW/c+qhj2y/qPdBe4+nZP1z2j82
IWzns09bbzLGJiTdV3K7/DvtN5tQrld4OrGI+pugY1mofzuN+r7Qj603PBJH
fV8ktZ4weRpOfV+Y8S26j3lQ3xfawa4Kt22oz4XVhVc3RYaMVbgwy52XuVud
jsdFWVG52EQ5xlwuquL7Jr2eSMfnouHytGmmtF/mc9ETuvvC4AvG9Vyojjfw
Jncw7uGi+0LGrK1/0P7qh3y9jII1NYxV/HAv/cHy6FLG8INSrfy+0WOMuX7I
Odca1ppG+7Uf9PnDN8Zo/873Q4ym2wtBDPn9kPLzE5jxyO+Hi36Rva6+5PfH
Iq2R6bXO5PdHnMq0yYFryO8PkYzZI1cz8vvj6lzrIwcMyO+PDT/LLxPXIr8/
3pSrBF1XJr8/KtrPBlyl+02PP5bdvL/9qyT5A3BxhmbcFg75A2Cod0VM5wO7
XyEAA6dzhhTfMuYGYHj5gp0r++h+FgAv1Uk1+d2M8wOwcNpkB/02xvXf3p84
bexjC+OeADy9tVl+uIHuj4E44OgRJV/HWCUQkyrlL/MryR8I/rucZ+Nl5A/E
tbzevIqT5A+E9cUbxZnHyR+IVQdnpxdkkz8QJbJ3qrvSyB8ICdnayuV7yR+E
Vw1Hdl3bRf4gZKm9dYmJI38QppQW3baLIX8QSq7/9dhaSP4glD2NQxCP/EF4
OlWn93QQ+YOQcirD5Tsu+YMgvrxWLt2T/MGY2WjcZuRK/mCs71678osj+YOx
yFin68Va8gejdvGSun5r8gfDsV3CQdKS/MGQHXRzXW1K/mA0ix7+mWdM/mAo
yv2x9fsl5A+BkVqXzAld8ofgioJx/mpt8ofgz7EnJ8U1yB+C13Jt2S9UyR+C
ed4C+05l8odgRF59qHsW+UMgk2AsOS5P/hC4WVaG684gfyi4YX/9GS1F/lBM
k1Cx6JxK/lA0HnJebCtO/lDkffWec3Mi+UNxXO/qzyEc8odi/6Oa83qf2e+x
+lDov7YQrxhh3BOKOv6DXIc3jDlhOCceNk9hgLFKGI5mcgLHexgjDB4f7DLG
HzHmhmHY+8MBzXb6vReGddGWZyNuM87/1i+qFtxtJn8Ydq27WOJ7jfxhKGho
uvX1EvnD8Vv3JueKGvKHI8HkqHx6JfnD0d9hoppylvzhKKnRq9hfQv5wPB/U
6Cw/Sf5wyHz89MvbfPKHY0+54ITtUfKH40Gp0Pd8Nvl5ME1+PNkok/w8BDcp
D3Skkp+H7V6/HU/ZS34eFC+fnOu4m/w86CvYXdVKID8Pr/qKdJS3k5+HhNED
ucrbyM/DnJ3d9ks2kz8CZdFzB7xE5I9AoqD6UnYk+SPwvNWO/yyc/BEonyUd
sDyE/BH45YblPycDyB8B6URDdQ0u+b8dv7Snr9yb/BHw4tx0WbeR/HzoTszU
G3MlPx+P62a/K91Afj6aWqvLtzqSn4/qqF+b1tqTn4+YtLzmhbbk52O4mPtg
lg35+SirnjVTxYr8fEhUxPxHG+SPBHdgsZO5GfkjIeZ+5LyvCfkjsWxMQybT
mPyRGBIP729ZSv5IdL1b2POdAfkjMagwkrJxMfkjITcy5UaVDvkjUXrEoVhB
m/xR6Mls+ClZk/xRaJfu2S42n/xR+FhVsHTfPPJHoSXO+6WsCvmjYGu5IrJA
mfxREJv/vshsNvmj4JLsEDugSP4oDLSKKtMUyC/AloZ2Bys5xjICjPSK3/sq
S+cjQNOp5Obr0oz1BEhZMjM/ezqdnwCnFl94Gf4dYycBlDKUfrKSpPMVQE74
eLWWOGOBABFp4XHSk+n8BciSNin4LMY4TYByKyfDEQ7NI8CtUZO/3/3N/u+d
E2CHSWP0yBfG9QIY/93TNPqZ8R0BJGfbb5nwiXGPAOKR/TPkPzAeEuCd7uB1
3VH6/yjEWFyTqeMIYxkhchK8xH8cZqwiRFJt75TcQcZ6Qlx536F57w1jCNGl
/Npzwl+MnYTY1V3VbfCKMVeIe9dfHo58yVggxGm9kjMV/YzjhVDTd698/4Jx
mhBX4/esNutlnC8EvyxFN+UZzS+Ef3pRXvdTml+I8pFLjUuf0PxCfD9ev+1g
N80vxMZ4nROvH9H8QhSO8iodHtL8InDUFgxWdtL8IkzWtmlV6aD5RRi+ZaSZ
3Ebzi+BgvlV26B7NL0JAQedn37s0vwim7q57Om7T/CKoL5RRcrpF84ugVKmr
eKeV5hdh1s6yZJcWml8EK7XJmZ3NNL8Ih9TPF69vovlFSP7BYnFHI80vQr17
Xcum66n4L0LLla8=
      "]]}, 
    {RGBColor[0, 1, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJw9l3s8lGkfxoeSU5uUFSJqQwciJIpcoSg55nycA2PGcWbSYavdUEolpHR8
20jat1jREqvTdNBSWCUdrGpQSanULh20b+++n71/7/wzn+9cc32+83vmuZ/n
fqbyUwPilDkcjoUSh/O/939egy7jQx2rGyMywT5A9Lbi4nnRxGq4v/PV+qU8
4vEw7cva2B1LrIN3T8bHm4qJ9XDbueyVVQqxIc6lqjpOTSM2wdAc0ZhvNhBP
w9kLMQb8zcTTobgxS2nMLmIzzDSMGLvkAPEMuJy/aB1QSjwL7hsKjsiqiS1w
9amt1tsG4jkor+59q9tJbA3bEMut1m+J56LvcEdRjuZmxjaIPH/EOXcmsS1O
OZVcKvQitoONme8ff0mJ5yHAuPaw5RFiezieXPt9QQvxfEyZZ6Kze9QWxg64
86D05G4XYkcYLbrROpJBvAAlbnrGdjeJF2JgZ+iDoslZjJ0wfe054b5VxM4I
2d5/VdROvAgaEydxghZuZewCuxZHtX1lxEDwuYa14dO3/cPpgMWniqFLpYw5
i3Gwo/mvdqtsli/GY16pz9YrjDmu+NNXv+xs1HaWu0Kv+9PFhUo7WO6GObVO
N66VM053g8dI7bcvY3ay3B2SytylrgY5LHdH16s+NeffGXOWoIbr22N3bBfL
l+Di9UKhOCWX5UsRUFqvp+2Sx/KleDC7v65YPZ/lHrjLD+zRWM043QOSo9NG
PLop98ThgF9ybnnvZrknJpe6rZ5Sz5izDCd2b64sMy1g+TKUOk492JvHmLMc
sQP+Ja4fKF+OTje3WW7Re1juBQdr927+ZcbpXpivPebDjKl7Wb4C+3bqVOh/
xzh9Bay6mvpb7lDujbPtiWY95oUs98abfaHLOGsYc3xQslNLq/si5T7w2jV8
3l15H8t9UXnX3PujC+N0X3B1zSu61lLuB9t+//MPTzKGH4Rbvm192UHf98PJ
uaVlGp8Zy/0QqOdsv9xwP+v740/NLJMWe8bwh1PhZF6VF+N0f0zcfu2+WQRj
uT/O8SSK+DjqByDmVX5ARQL1A/BdbYWLSyL1AzDMsT8rjKd+ANYFm8sTY6i/
EuKFQwnFK6m/Eg5ZWe/D3am/ErEV5k4v5lJ/JRbt0Vh/6P+/PxBNhnUG50dT
PxA1zj3yYy9o/kB8NVLvWthK8wfi4esT0o5KOn5BaFJdLji9m45fEBo/PzPl
SqkfhMlGeXFT/KgfhM023eFmc6gfjKUb3CvKNakfjIuF0sbfn9P/GYycIosP
XQ2M5cGwVB5f1n6M/v8QrHhu5PhkE2OE4FKS7Z3pUdQPwcKdWy6cWUD9EDyc
cFn9hB71Q/FmMDVN/T073xCKFu8Y43cddD6GQu1W9NWEGsbyv3muVtHGQjo/
w2Drd3Sy1Rrqh8HFtyohO4T6YejR8ZRtc6B+GJpXtEtEBtQPh4FRo+30v9j6
QDge5Lyrq1bQegnHut60MToNjOXhGHYdrTn/FK2vCHzaOVhvkE/9CDQEGNZX
r6F+BC5XvT/KofUoj0Bm6c9VQ0uoH4n123+Iy59D/UhsEgh9bk6ifiTe1M6b
VKxE/UjcXrpINHaA1n8UTgV3aynfY4wozA7l3d96ha4HUcgedAjMq2Asj4J2
/pVO3cPUj0bbdZ3NhtnUj4ZB31OjI6upH417GrqHcgTUj0b9ioKaN/7Uj0Fz
X6zNZVA/Bhd3PTP9ZEX9GGhnKpoOGlM/Bq9/eSM/oEV9LkZuJ5YOf2HXOxMu
THSTrlUOMgYXM5+9Tr/UzZjLRa521z7TdrpectHSlOWruMa4iIt3Idkz+88y
lnMxenbNKpeTjBVcZPieHvf4MF1fedB1mdXekEt+HjjVoqE/M8jPA/+BobFg
Nfl5sNe4PXeimPw8OMqNrJWjyM+DQugosPAnPw/q63JS9y4hPw/5UWVSuwXk
56NPqb9Z04r8fHhov+zXmU5+Pj6pGqkE6JOfj2OG54IujyM/H5t2hX2OHk1+
PhZPethl+YndX+R8hJ/IS5gxyFjBx/VbheY+z+j+I8Cqg48mFHcxNhGg9XWz
qkE7YwgwLKo2rW9izBVgunPjky1yup8JwPE4tEVWy7hIAI+OkM/pFeQX4JW+
2rKaUvILEGNUrql+hPyxiO79xXvdXvLHAnLHiZo55I+F16E5669uJn8sZsy8
uGPvBvLHor3Jf1H6KvLH4ojVQ+n2RPLHQrOY23haQP5YqB3Onfoygvxx8Gyq
ueweSP446DlcN6xbQf443LL92dhlCfnjoNYZ+uWhM/njEPki9spee/LHIVPt
9kGeFfnjUDd5brjrDPLH4WnV9hsOU8kvxOGgnseuBuQXIm3N3VzuRPIL0Zip
dqBwLPmFsOe+Dr2vQn4hlO6NV+b9h+0/ioTQid1vZfOWsVwIuy85L6Y9YawQ
4qrth3129xhz4rFJU9oqvsHYJB4lswcGqy8wRjx+Om+V+U0VY248vFcn9tUd
p/1OPMK3Fi6OP0D+eCj0g0Uzc8gfD7v3lv0a6eSPR5SP/yOVNPKLEL7mglhP
RH4RGuqqZD6R5BehV2z6qtCP/CI4HR/Se+dOfhFClw0tS3Ikvwj8nrGqKnPI
L8Ko3ZoBp6eRXwSbZF8IJ5FfDEsdn09OY8kvhru5WfE3SuQXo8F3VLveMNvv
ccVYk/D2geVLxulilKi8jvNTMC4SY5T1SMi2DsZyMTwP73jWdYOxQoyolml3
58tp/5iAXKGTytEaxiYJ2K5qV2lWxhgJ+Hr2C8uLReRPgOuEURND95E/AV+5
nGlTzSF/AnB2/+XmDPInIIO34O7xteRPQMz6ja2bk8mfiOPzBfPTBORPxATj
t+UbwsifiIKDx7RyfcmfCHPR46LyJeRPhDDSa/SDheRPxOcLI+YGNuRPhG/U
uG28GeRPhFOncVXdFPInIdNFJ9voa/Inwato9PF8TfInoW3d4kdjlcmfhOG4
yv6CD7QfT0LF46G4mW8YFyX9vd/wSvntKWN5EkwufO27vouxIglK99eEObQz
5iTj/k2bTSNNjE2S4Sm9tKZJzhjJWLfAMae8ljE3GR0THH3yK8ifjO/NhjZn
lJI/GWo6xVu++xf5kzFwT/V43h7yJ+OA9dxFx3eQPwUTwx7oyDPIn4KczB3z
n68jfwo6a3U+m0jIn4Le61vVo+PJn4IrqfYLiqPJn4K18TM83waRPwXDLc9c
fL3JnwL+nkveVe7kT8W4gv5X05zIn4qXq47m/2BL/lSU2txpNJ9N/lS84fyk
fnoa+VPxIUM/yMWA/KngZAeWd2mTPxWrg+cYZquTPxVjb87bYqtEfgl+UJqg
0f+BPW+Nl+BbL+fgHwcZm0jgXZmhlfacsbUET7J0670UjCHBes7HUWb3GftJ
wHHc+HhMG2OuBGmmS1OHfmUskaD/y5Gevkv0vCfBlefKTx7XMs6X4Oyzr7T7
TjMu+ts/kIX3PzKulEA3K3OURhFjuQQ7ShaXmBxg3CZBY3NdvWs+Y4UE2n8I
XqZkMx6UwL6rc3VJOj1fSnEur1O/ex3NL4WFBX/9dCnNL4WWm2Vukpjml0L/
oTDkBo/ml6LtTG2zSTjNL0W2SuLyjQE0vxQj4rKWJ8tpfikGTkRvDXWj+aWY
q/VRp2UhzS/F+Gsjs73saH4pco5OLPrNguaXAsUra6NNaX4p7jkZnBwyovml
yHs3EFagS/NLscgzSG6rRfNL8WaKGfeRKs0vQ+2kni27OTS/DPWtu86s+Mie
z01keBvY9pvKO8bWMlxrf6rU8IIxZNBo9riW28vYT4Y2Z/er/C7GXBkGfgwT
OncwlshgYaZiMq2VcboMuvqzPo/7lXG+DPu9Ki3/c4lxkQyGlv7Wz+sYV8oQ
/FPvd4oqxnIZMr//93nFqZ34L2cqfe4=
      "]]}, 
    {RGBColor[1, 0.5, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJw1l3s4lHkfxkdblkrYbDqKqJRSEaHkTiGnHMIYxzHjPJhD3l4dbJYipciG
tJR0IgmlszZLp00HVqVUTpVVUqKEpLe93t93/pnrc93PPZ/rvp6ZeZ5HSyB2
DRrB4XDmyXE4/773bhuMSkz7asH594Ut4Pz/hYvKm/X1o+IZK+DUU3WhrpRY
BSWdufbZ0cRq+Hkn90R+DPFERJmvHyGMJZ4K+91X5AfjiTURfvXerLRk4hnY
cKl9hPMeYh1ontks8ttPPAuxpxfUvztCrIurqrYXFpYRz4XVQE1e0FXieUhK
r26pv0+sj0KTJy1X24gX4vmW99mSfuJFMN9aJ1ygmsDYAIqpC/by5hMbQq5x
sratI/FiFIx/NNNVSmwE3/M/Vj3IJjbGw5fC+iU3iZcgx8Vu9+MBYhMkHTtj
MNFgK2NTHB9TxeVKiM3wo4FeTW858VK0/ulk78jZxngZHuXH9Ze5EpvjeIhm
iOQk8XJMXXGppVIpkbEF6n4pfNq4nhi42LhG/OYfxnHAnXsWDWMCkli+Akpc
9ViHNsZxK3DezSghV7Sd5ZYYDn80vm2IcZwlguwMJvRlJLN8JVyev45JNd7B
8pV49tPvHc5NjDmr8N+FhxQep+xk+SrY1RsJj65IYbkVisyKb2kOMY6zgorz
kb37L+9iuTX2qwTr+WzZzXJrTJDqBOyxTmW5DWqXfmgzUEhjuQ1cr/itGopk
zFmNMdfkN895QPlqpCi8nb7cbA/LbeEoXrD42kHGcbbwXS/4ZDAyneV2GJ6Q
tUgthHGcHaxlsVPe36TcHq2bVrc6zvqN5fa44Nd7pvpXxhwHCPVkyi1PKHeA
jXz+Pmv9vSx3RNIsCS/3F8Zxjiidfa4m8zblazA9cdeYXtUMlq/BYvkvvBg3
xhwnLPQ5JRvYQ7kTco31irm3KXeGxqr5dQlfGcMZTc/yEyP1MtnxzliUqdqg
7sa40hl1UanRaf9lzHHB5SlaCX0ZjOECH1+fJkEJ9V0w8lZF/Ldq6rvARlGj
8ls99V2xKe2tW0Yz9V0R0zwja6id+q6Q8zdRj3lDfVfYOn0sW0XMWYvTNe7q
RXQ81uL11HOFvfR5cWvxa97A9KBH1F+L4VHl6Ra3qe+GNs9PKbcuU98Ns4uk
bauLqO+Ge6792UP7qO+GTm6W5ZRt1HfHvGgT23/E1HfH5uhHM/fyqO+OR+LC
HCdL6rujyi/louNc6ntA9qXZ7rIq9T0wyuNr5OV+Ol8eMJqx/4OkmXGlB4zH
FvgMXKfzx4WCWtPNdSfp/HHhKpqf8SGd+lyEbrysnLKB+lx4nZQUcPnU98Sc
yRmvvW2o7wlVsUZGkT71PbG8YlDfaQL1PdFQXmO3Zpi+fzw0y/kpl7QzBg+7
poyrXX+fvq88aJi9bDp8nnElDxX3VlRsyqO+F7S6BKIPydT3gmZs+scv66jv
hcHsoSl7/ajvhepzGTmnbKnvDYUj75VtjajvjVLr8UM8Lep7Y8Y2s9VNStT3
Ro++cda9Qfr9+WBu36lu3Q7G8EFpd2zY64f0e/RBwONQ07HXGFf64GilQs6u
09T3hd9Ft37hIer7QuVVQmdGGvV90d6TEzopjvq+OHJq/8ZOMfX9kF/k2DSW
T30/lC1XbNrkTH0/FLWsfTZ/BfX9kKhkwZtjQH1/vEmQhYVrU98fD8tVdneq
Ud8fWQoDycXy1PfHoh+s/E/00/8TH9cDT8598YaxJh/yk8S7PJ4zBh9O25KN
h+8z5vPRf7DDramK/u/4WHvZmffpLOM8PprCvbvMCxlX8iHesfbUhRzGLXzc
Tfp8XJBG/gA41hW3m20lfwA2lDZUrYwhfwA89i1rjo4gfwBkp0f7/s0nfwCW
dk1b7OVO/gAkhH07oWhH/gD4Of0R8XI5+QOQmL0x8JUh+QWwrFXtHjuH/ALk
mybxPDTIL4D6idan18aTX4BLlgrruIrkF2DWhb6RY76x60OeAKE72hxefGRc
KUC/zn2/p28YtwjQUfskubeFri9CPD+mlaDfwFhTCMM67tltdxlDiJVd4jFf
qhnzhehdOPtA+iW6HgmxgzMwxaqM/EJo229drFpAfiEKFZXShw6QX4ifOjJN
5DLJH4jbS67UTtlF/kD83Rev6L6V/IFoyDBbUbKJ/IFwv2x0bto68gdCLvfu
tMPh5P+e775UbykgfyBMNAxrhnjkD0TkXDWjv1zIH4TyBxffldmSPwgxN2am
nF5B/iC4zG1zuW5K/iBcv3Vr8N0i8gdhYsHjuwvmkj8I4+8kmSTOIH8QlMPP
8ronkz8InxWcHSXjyR+MV08Omo8cS/5gCIatAk+OJH8wUqvLKyK+svsDfjBu
ehaUL+2j+4VgKPvXRGm9Z5wXjDvG44YndjCuDEaSkv9XrVbGLcGYOXycZ95I
9x8h8Opx2x5Rz1gzBOOyDtUW3GGMEBwzljoMXCd/CMKNpMX+V8kfAs+e3KEH
F8gfgq/DB954nCZ/CGyqXJM6i8gfgo8uWc9Sj5I/9Pv17T9TVh4kfyisN3B5
Y7LJH4qsXB1Zczr5Q5FQ+7PjnynkD0Wm5+czZxPJH4rQw1sfVsSRPxRKL0xm
124kfyhq5R9GdEWTPwzb+wPXa4jJH4bqOX9peoeRPww/G0/syBeSPwweObP2
DvuSPwxeW9r/DPQkfxhMhx6oPXElfxjkYj4f4zuSPwyX7hueeGdD/nAEvb3Y
nmhJ/nC49wpSDc3JHw51/fVDnUvIH44TvKDfCg3IHw6u6IDX+vnkD4dZfHyd
iy75w/HNaeChmTb5w9F94x8LPQ3yi/DHOrPtupPIL0LVvOgQIzXyi/DBdt4R
e2XyixBrZTEkGk1+EZqvudtljSK/CNNUJ3PqOOQXwaWqOFS7n90Pt4jglJ1f
WvGO7o8jsM8keqfoFWPNCGRoqccvfMYYEdB7OcJTvp4xPwKf0m487fqLcVwE
6hJdSroqGedF4NI+q8KRFxhXRmBxPLpml5A/Au6+/crBx8gfiWM+4tzSXPJH
IufGzB1KGeSPxLI1LopJKeSPhIS3bZHCVvJH4lPyHpMDm8gfiXLt2CXW68gf
idVT0yLGiMgfiVXHBs48EZA/CrfsLyw650X+KOgsKh486kr+KHg3zl5QbEf+
KBSWO+hctSR/FK7onup6bkb+733XHgcVQ/JHIdanYjRXj/xReFstVC/QJr8Y
5r9fn6Y8lfxi/LB2uVGiGvnFyF5i0K6iRH4x7HQaZAdHkV+MMwUjV5sPs+ef
vO/HP9tp/K6PcaUYzXra306/Z9wiRptcKmI7GHMkuKKXFs1tZawigY9ChRIa
GWtKMORQmLGsnvFCCQTlr2F7hzEkKL5je9T3OmNnCXYsieuM/YMxXwJeQ5Vu
2XnGEgmWt/qbdJXS85oECZ5rXhmeYJwmgWr78M3dh2mPBF9Ga7t8zmFcKkHk
5k2jQjJp3/dcGujVnMq4VoL6kqDukGTaK0FV5vKp3+IZd0uwu3Hfx/zNtF+K
Y49fznZbT/ulECp4WyhLaL8UbmpC0/ow2i/FuTQ1jTIh7ZfC3sMGO31pvxSl
v5QfiuLSfik83jTMErrQfimynhTlBtvTfinun38cHWVF+6W4M950f4IF7Zdi
fOPtk/mmtF+KajvTjvuGtF+K0UY9jgr6tF+K/Zb55ba6tF+KpVU1E36bQful
kI9qHeqYSvtlyOBuTLBTp/0yhJ2sVD2vSvtleBwj2agzlvbLULJMV/93edov
w/VJivHT5Wi/DK1C7cbSL+z5nC/DvJ6SKPs+xhIZZtefKe3pZhwng/yLNVuP
dDJOk2Hvr14q3u2M82SokZ83MK6VcakMo8pyVB48ZVwpw+CLnOjDj3bhf3O6
oTo=
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJw9l3k41Iseh4cSJ21EJS3qzKnI0UIS4WOX7LvJPmMdw8yoUGHKUogsoVOy
lHRREmnTglOHSkraKZ1OnaKOrc1Ny+0+9/e9/vG8vs/r/X3wDBYERjkHSbNY
LE0pFuu/7//3NmSsMW0s6FX4DjAfwKNVvX0ykcRyaJQom/sKiadhY13IzT3R
xEqI7PZfLh9DPAvv2u7Ka24lnoPitSPJ7xOJ1eC4yU83K4V4IeykjOZP2k3M
huwoUvflES9Cl902Z8ci4iV4a1nGCakg1kDGH6uMJ9cRa+KS1o5fRZeJtXDG
1r7lSgfxctzX6Z5u8Ix4BX5pNxqY/Z54JSBwm1k2MYlhbWisVG+SYxPr4Pej
I5X7QbwKF4aj3x3yJ9ZFYaxCDS+ZeDUSjQf1NY8R62HT4vHvzR8SrwH/2ZWX
n+WSGdaHnoJfVokRsQG+LUx32BRHvBb5Ep5Z2zliQ1gcaD5/+zuxERQKOgw6
16cwbIyY/Mq144uJgW5VLrvoI8MSILHKpv6KWypzN0Gr5oOvexsZlpiA8zu3
UG3JTuZuimq3l6wtBxiWmEL1tK5qrvIu5m6GUaMHcY4FDEvMkPXpSkbR3DTm
bo6WxLZGk2qGJebYfnHTzY9G6czdAn4jfxr4PGRYYoGpOXGjU2MymLslKmJ3
q6TN3s3cLXEq8XgpWhhmWWFRDFe1SJDJ3K3QPpCm/VI1i7lbY5a9zbBPO8MS
a0in3ym0S9jD3NdhY2KRXvCsbOa+DoNq0UppIoZZNhjLtcn5+TrdbWB25+mD
tgU5zH09+Ca7DRRiGZash+WlTZsz2+lui7VNk7x65+Uyd1u0hVbFHY1kmGWH
wX+WS2c30t0OzcueytnL5DF3ezS3LHDdv55hiT2Gbinp6mXR3QFbKsvefmqn
uwOGOJKGM7J7mbsjAsZrpboYMQxHlOvlzjgvZFjiiMjqv/CimOEmR8xv26DY
00a+E251KpsdGSDfCdFDSz67TstnfCf8Ef98/kQthpucwLeqO/TcimGWM7I8
j7XK+jIMZ7DL3/VVCsl3xtJI/qH3ieQ7Y3SCnqfabvJdsEdWTzc4n3wXaOZw
2r8dIN8FVTbzZ88tJd8FDsWWez+Xke+K6+t4sveI4YpvK3wTn5aQ74rVwyXR
FkXku6Lh8P0Z5oXku6E2QFA6IYd8N4yV/el0Ko18N/z8LjV063by3fBvDYcT
SbHkuyN9YeGrN5Hku8Oi6eukLh757phZVBrkwiHfHY0WKTZpDuR7QKpn16sk
c/I98GhKaAVnDfkeUNdILVT7/9ffA2fHrbTuWUi+JzpPW5wsmUm+JxS9gr+J
J5HviWdGF8p9pMj3hExXcX/QR/r+e2F3RWx8zhv6/ntB4cYh9PbSz48XFjvM
Tsm5Sz8/XjAeF5heco18Dr68+Hpb+jL5HKg/OXu64RT5HHjZqv1aU0U+B0+m
Z9zqLyV/A1q2dYJbSP4GRJz1TVLOIn8D2F9rt40lk78BQ2nBO5S2ke+NPyRJ
qr7R5Htjcc3W7/fCyfdGm/7mkbhA8r0Rs4v92oRDvg98A/uGVjmT74OEuHPH
7GzI90Fn/rWSnabk+8DR66TU3/rk+wKv3h8O1SbfF/M6E3gTNMn3xXLFGLlW
Nvm+0NSvnvWvueT7oSHtZNiRGeT7IcIje6RpKvl+cDtqMfxBjnw/hG8LPGAp
Tb4/hNbxDXVjzOuDmj8Scu+NX/WBYfijaTiw8s4Aw/7+mDJOTS3jNb2e+ENp
puFEznOGS/0hJbv6EXoYbvLH1fN10Yb3GX7mj/bqmuMOt+n1KQCTd9Uf2nKd
+gFgl5W3nL5C/QA0vUy4KneZ+gFQH7HhRJ2jfgCat3bxX9dTPwBv3b+sjq2h
fgCUkOA0u5L6P/jCjMJbh6kfiCPtQw/ziqkfiOnHxBfDf6N+IMyj9l912Uv9
H8zJc7TdQ/1A2ChvTfBMp34gznJHeqNTqB+IadcHVUsk1A/EZjcLyydbqc+F
5tdFq5fEUJ+Ld76DKjvE1Oeiw+yr96CA+lx4umjNDgujPhf3sx/pDvCoz8XR
E7EFyf7U52Jv/uLiRd7U5+LVkzkanR7U56F0GIqZLtTnobdSXtXHgfo89HVr
v9Ch3y/+PGw0ldeYaUV9HgzDXDbLmlGfh7Kq19ITjKnPQ+fVLmN5A+rzcMrw
8cwFq6kfhDfsD5vNtKkfhMEo246IZdQPQlSe4cuypdQPgsfdWv2/FlM/CPNY
E0XL2NQPgvZoWUeyGvWD0N46N/PlHOoHocHEdIKjCvWD0XR4Qv4VZeoHw8dW
jWOlSP1gzNDZyLo1hfrBiN2eepgrT/1gVA965rHkqB+Mu+23E46Mp34w5L+y
+C5S1A+G2tvyQflv9Ps9BJ7xxxPaPjOsFoJsHe6y7E8MIwQ3dMve8N4z7B+C
LXcz3xkP098DIVjWf2l03gDDpSGwY2dMlHvDcFMIKvQWBI2+YvhZCBbJ6DsO
vqB+KCLNQz6M/En9UNRaJgk+P6V+KKoEdXtle6gfihMrVC3nP6J+KDjuJ/8y
uU/9UHz4WCMf1kX9UEQrmGzJvU39UJie0RhtvUn9MMg/ljkqdYP6YaiMfs4y
bqN+GAxWNnbtukr9MBRNfyF1v4X6YThQYcbWaKJ+GPq7mqPSL1I/DNaT/B36
z1M/DB/Zi7h2Z6kfjtbXBn0XG6gfjge+Thna9dQPx2Zd05qjtdQPx849jbrs
GuqH46FIrvtf1dQPh+vMTwd1KqkfDveV7oLmCuqH40DPWI1rOfX5qHtQtXa4
jPp8JF3u+SmnhPp8dG3ccFPnIPX5KB+pCn+yn/p8ZF+2Dc7aR30+eowgQQH1
+RhTjts3mkd9PuRWTj7akEP9CKifkpaO3UP9CIxO9p1nmEn9CCC9iCeTQf0I
BNkUL7+7i/oRuN/rqFCZSv0IjPRMq01Ipn4E/pEusPLeQf0INAe6t+tLqC+A
af4n9bkJ1BegWT12t9w26gvwxUNYNxJHfQFmNLQqPY+hvgCvszz97m2ivgDF
flq4E019AQ54PX7UIaK+ADentBTfjKJ+JFy6L8zrFFA/ErVKtcndfOpHwjL1
SPHfYdSPRJH866B3IdSPRLfKgJFMMPUj8X6J4fE5POpHwn5w++86gdSPhOR8
3zoXf+pHwab1kWiTL/WjEO9cNeGgN/Wj8Ebuk1ELh/pRiFNxPt7vSf0oLPDx
dJ7lQf0opDxec2K9G/WjcKFEsybehfpRmLzdI6reifpCdDZfMn/rwPA0IVSt
E6WW2tPzCBG5z/KZwJbh5UIk9XJP19rQ8wmRWNeX8sGaYUchwgosnhtb0fMK
8c/Dju50C4aFQtwb67B7YEbPL0RmfMVPGqYMZwtxceT2UCJoz4/nsTG6cc+I
4VohvP6uN9c0pH1CnDtToLXTgOHbQkTk2XW9XEN7hfDbK3Cw0mN4SIhrU89J
HdOl/SJY59WvUVxF+0WwKB/cGKdN+0WQ+W66un8F7RchPuBtn9ty2i/CdruD
HS1atF8Evv31Fzq/0n4R9BuDDaqX0n4RTp10OqimQft/fD4Vd/5vS2i/COL6
LfJKi2m/COo7G0pzf6H9Iiz9ENs8nU37Rdjs2ulbsJD2i6BnavJBZQHtFyHF
sbytdD7t/+Env9qiQf9vssTov5N14/Qc2i/Gmtk2x6BK+8XoZmeuaVeh/WIs
3h5zYsMs2i9Gh23Kk4EZtF+ML+N0R5KUab8YP2X7VcxRov1i8M6Ujp1RpP1i
KB5nTXRRoP1irOyLV+qfSvvFuDhx4YvUKbRfDO3vslg0mfaLIefZLndNPhf/
AebwiP4=
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJw1l3k01Hsfx0dSKaLFTUWpdHMtWSJK6k2WXGQZuzCDGTszo9UNk5QK2UIr
WnSjFNqpS5tKpdTNdZUkhOpWt5RUHk/Peb4f/zgvn/Py+r3PODPHrKBYN8EI
DoejK8Ph/O/7/7/eL9NW/iboiUgG+wH+Nmnvk4shHgPhV2PbABGxMgT7XZoy
44gnQ/Nyg/m4dcSqsO7J1ND9jVgNAULz4/1JxBooK6lZs3ML8WxU+xemKKQT
a4Kbaj5rTy7xz9jQXbbIdT+xFmQd88vCjhJrY0v1mZlKVcS6iL/X2xRXSzwf
atHfo281EhtA60unOp4TG+Jllkz9rH5iI0wRajiVjd3MeAHmXqkaraJJbIzP
O6o6y0BsAsNAD9MLPOKF8NU7w5WmEJui6KFXh/MJYjMECYyzJS3Ei/DwxING
Y/kUxovhX780pXcpsTk4M/alP9hAvATaDXsSFlUTW+Bq8caFqzhbGC/FZ7nQ
6785Ei/DaEUTk0eFxIBMWLs0b4CxFNg1amv/W8+t7G4JRb7CLwOXGEst4TKv
Wf3qL6nsboWMxJsVQQcYS61wyrFcvmHKNnZfjrbFN++172YsXY77A1990jS2
s7s1EvxyOwtOMpZaY5qOZU2N1Q52t4G8jG5lwVPGUht4qHY+uvFbGrvbglc1
Ra92Zjq726KnbXv815uMOXYY2h7w+klcBrvb4XpAWOXx2TvZfQV2trXZlD1i
LF2Bg7f1VqlvzWR3e3x8eft5hloWu9uj5T/Hm/5Zw5jzKzSaToy+2kj3X5GR
kKd04OdsdneAYEJ55U8JjKUOUPuibFjbRHdH/Ouw5bOpZg67OyJ3k57drNWM
OU64Lk5TnHuF7k4oUjVa8GVsLruvRHZdVgjXlbF0JeYblPQN5tLdGTsd3sld
ekh3Z9Sf1VdYr7iL3V3QsOSiylhrxnBBq5WOPH8tY6kLhNt1vq05wrjOBRu3
77bgNpLvCsm+483fP5LvCo/vuZbbVPKY7wpey9K6yQsY17liyeYLhXWOjDlu
WNdVuulsEGO4IcF+s6bmGvLdEDHhfJJZCvluuBTd7aWTRT4XRbEDhgv3kM9F
przwY3YR+VzojWx/LT5MPhd21sWtSiXku+OtR//90iPkuyP0deskySHy3VHw
xJhbUEi+OxJKCt9xqcfxQIiJmt2fOeR7wNI5tWZZGvke0DL6dOR6MvkeMFfW
frFjA/me+P6kyqoylnxPjNyXeNdTQL4nfEx77+T5ku8Jh8qZB3Y4k+8Ft/7U
SGtr8r2g0vW+qNWMfC+0vv1ky9Mj3wsJGqt7n8wi3xv7emM3BP5EvjeKzQtn
fhxLvjfie0Y6FA7T6++Nj+c2WYT20+vvAwG/tpjbR6+/D9L2fXEPaqO/Hx+8
8kwcetxEvg/KTe6eLqkn3xensrY8a6gh3xeB42wbllWS74u5kwf8vx4l3xe3
XWYYDu4n3w/9G5S7F+SS7wfjQd2kY9vJ90Ntq3Kfi5R8PzgZjUjSXUf+KnxY
ur3RLIb8VbijbpAfJyB/FUoDdhxsXUX+Kjxp7n0tcCffH80tfZnqjuT7Y+jU
faPB5eT7QzvShj9gTr4/euTv+U4zJj8AX9RLPvN1yQ9AufLpKTc0yQ/A/ILi
NAd18gPQt2nXsw8q5Aci4YZ637nx5AeC15r6+57R5AfieY2qXz6H/EAIujyX
nhqk9wceXKaVqHZ9YKzBg4lNYqX+G8bgQbBZW6+gmzGPh5tGlvLT2un9hIf1
jnE9p1sYF/NQ8OCkuZDeb+p4ePwu8Z/5dxk//8ENEQ8V66nPR07DwKhRddTn
wzzvj0GlaurzMfXcJoHBGerzoTSw8YvgJPX5GH7+84GTx6jPR4J+R/b4w9Tn
I3XxS+GmA9TnQyNZ/tvo3dQPwrX8TPXCHOoHIffT3LV2GdQPwuwmgxTZbdQP
wr2RASX3k6kfBNnmU4OnEqgfhFpuxfji9dQPwsyT49KK46gfhBU34jadiaF+
MCrUbtU/Dqd+MOLax6SOElA/GK/mWOk78KgfjOHON3/u96N+MLQzTvt/9aR+
MJySs8rD3agfjJY7l+Z2O1E/GNcmRh4Kt6d+CK7IqA4NW1M/BM/CTT+Vgfoh
eLBovGbAEuqHwFUcs0LNjPohkB/x7HXvAuqH4FL3fJvr+tQPwXo3xytHdagf
AoVJc5z2zqO+AGsaDe7vnUN9AR5prDt3aCb1BdA5+vXOuenUF2BlkUX6X1Oo
L4C6+ot82cnUFyDaNcVgkTL1BbjiqJUTr0B9AdI1lSbVj6G+EDe2diioyVFf
iPyJuwulMtQXgrvSLubVEPv85QnhXfLXHv5X+jwWQmr+ParjM+NiITqNVfLD
PzKuE4Knenjqt3eMnwuRVHQro+ANfb6H4klXAd+sj7FGKNbO2Hiyq5sxQuHy
NMa38AX1Q6HZnlsc0E79UHybpbJgzlPqhwL+unM+tFA/FMPeZaW3HlM/FFmH
LRWPPqR+GCYZda7Nuk/9MKzMax5MvEv9MLzX11odd5v6YXim87hOUk/9MJx5
us8i4Rr1w9CjvT8lvY76YSi+bc8tvEz9MMjY9a++VE39cOy84iPXfp764ZCd
kJckd5b64bgjc6jKrIr64SjbJYyPPUX9cJj+HiEuP0H9cKjca2wYKKV+OM6+
LX1t+Tv1w/G++v36zCPUj8DCXdWVrw5SPwL+dz+bOhRRPwLRNemisv3Uj0Do
LQ+biXupH4HmqcVhyQXUj8C5vq6/B3dRPwJW6bUpkhzqR+BmXH/Tv5nUj8SK
bYp74jOoHwmPWpXbo9KoH/nj/eDd1IJt1I9EziuLWN2t1I/EdItjjg2bqR8J
q73uMeGbqB+Ji5K2c+OTqB+JsAg7tYsbqR+FA5Y7PobFUz8KAhvniunrqR+F
tpG9NU1rqB+FhX0Bkp1x1I/CBa1Lga5i6v/4fb/O1lGJpX4UAvj3JnREUT8K
Zo2fZE9GUD8act3Z7xLDqB+N4oXdw95C6kfDJHPlW8MQ6kfDvF/WTDmI+tFY
YXV564dA6kejoL469Zk/9aPh/uG+V4Mf9aORZ8+JvuBD/Rhwh156Hfeifgxm
LCm3LPGgfgzUk9r7i7jUj8HCb3Oj97tSPwYdEweUCp2pH4Oe8uyAEifqx+C8
s2Z4uQP1Y/BdODRYY0/9WFTlKi9rtKN+LKy19GVf2lA/Fo3djfHfllM/FteE
yRaTragfC67SGAcjUD8WM5a/neW5lPqxuKxQUrp+CfVjYbt50aiixdQXYZ+G
zbZbZoyVRcjaYTziy0J6HhGUxyQc1zFhbCDC7ERT78AF9HwiONhNV8wzZOwi
QntOj/8DfXpeEYLKurwU5jMWifDiyC8t9rr0/CKMfHO5IkObcZYI3jeMav/U
oj0iaJu/aZg+j3GFCKeTJyUHz6V9IlQsDTx/ag7jBz/23K6rGp5Fe0VI6XbI
dNNg/F6E2qrFx4/NoP1i2FoZe3DUab8Yrs1p43ym034xDtnP5NZMpf1iHNyo
uVNVlfaLMU7zD7l1P9F+MVRCmy62Tqb9YtxR/ues1STaL8YDw46rpRNovxhb
5yRaT1am/WKsbjArko6n/WKoBWt8fq9A+8XIX1HZFjyO9ovxd0W2bYs87Rfj
Ie9pudMY2i9GoLKvd/0o2i9Gl0beS0s52i8B38FgSp0s7ZfA/oTjE/MRtF+C
1L5c7kUO7Zdg1527NYuH2f+vkOBRn0xH7RBjFwnm3br6zvY7Y54E/+l8Xdz0
lbFIgmar9f0Bg/T/sASlmf/KvBlgnCXBiJVF49d8Zlwswdp1n3plPzGukMC9
0Zeb95FxnQR/tIr0tD9k478UOJ4c
      "]]}, 
    {GrayLevel[0], PointSize[0.006944444444444445], Thickness[Large], 
     LineBox[CompressedData["
1:eJw1lnk81Pkfx4loUxJdUhKtpKIcbeV6hdxy5b5m3MYYM1PYShJhK0qkYyur
W+VolZBkHKXSIR1baWU72GQlOlZKv93fft7zzzye83q85vl9zfH9fmeHxLmH
j5KSklogLSX17/N/j36LiMW/DlWVp4K9gBfu+ReqaojH4I2p7khcHbESZC6k
TdzQSDwJszK85kZeJZ6GJzPdxyk1E8/ARYOiJUtbiDXQ8LTvlfl9Yk1YlI6f
/OIZ8RwMOX2849FNrA3eluQTHe+IdWA97FP/9jOxLpJlR/oHpdMYL8C9Ez3q
vsrEejApaoofN594ETrD1KrSLIkXw+6Fa52CL7EBBpc/zxm/ltgQ5fqPfzy7
l9gIKgc/Q3yB2BjrE8OKLzwhXoL+DCNdodwWxj/g75hym1oD4qUwTQ841R1B
vAxFWZt+ERUQL0f6iv02eb8Rm2CswSjdGWrpjE2RU9vxVRRJbAblRsVQ9zpi
c+woMzt3bFoGYwuk2Lxuq0sgBnTeVavw2xmnAD5aNW0GdpksX4GG4dMBOnWM
U1Zg+vYT51SW/8RySwzMk7p6roZxiiXuPLVq+GS/leVWSBuaH6b3kHGKFXxm
v5r7IGoby60x/bjjt1y57Sy3xrGXD5bJlTGWWgnXM39OcPbNYvlKPC5PCpRT
yGa5DSxfK8zurmecYoMOP+1GUeIOltti0ZfOpB69nSy3RW1p8Fm1XsZSdghR
2V+d4pHDcjvEZKx2SypnLGWPhOaQA/cn7mK5PczeHVzI4TOWcsCpz/m35a9S
7oDmR9/p12vkstwRb8QOyFrHOMURHjK3ugPuUO6E3iVFXx/OymO5EyzzmnIN
BIylnCGYOaP3VjXlzrg4ccpkkfRulq9C9I7iL+V2jFNWQeBhqqe7jXIXrDr4
9K3rFcpdcMEp48XQV8pdEZBv/XGFYf5/DFdk5BltGsdlnOIKo/s6cx5nMpa4
onbU3byBM4yl3KBnqj/Zv4X6brj4Xt/+1Svqu2FfQ1rE1GHqu+F5sGz2Y8U9
rO+OcuXB4jlqjOGOkJ8OXi7QZpzijvenb/OkFzKWuEOrUbfjmh71PTC0uKv0
1Xzqe6B+ZpFH0Dzqe6DmXEL7aC3qe4DrM5Lkr0r91QhdOf7E4XHUX40tD3wa
/EZRfzU8n1ZdSRqk41+NbX4/+89+Rvs9YSAr1Rx0h/Z74m7X0srvLtN+Twyc
/yJ5cIL6nrhyI+qlYQ71veAx5qVy5ibqe+EZ71BVQAz1vTC895jBytXU94L1
jpLIa+bU98bd8r5ZjrrU98YW50O26crU98a59Znth4fZ9y3xxtYf33zx76Lv
3wdrKyYPt9xmDB/82K8i31pJvxcftCrt8E04Sn0fyDk7Ft/Mor4v1MWGT6US
qe8LHWvJ7N1c6vuiMrSntNeZ+r54epi7mLeM+n6YsfGmvKwW9f1QZxfVskyJ
+n4o2rXnxoER9vuX+MEFKlyZPvp/+KOlVlLc+owx/JH5zLmy9zb9X/zRpc2L
FtRT3x9+tp4qsmepH4DQtmeO3ALqB+C48wOzgZ3UD8DC82t+Hp1G/QB4Nia7
FK+hfiB+HqNWUBBK/UBwfKPdHXyoHwiXvkSdsQ7UD4TZgLyMyzLqB6EzMmBp
6wLqB2H0dH6PqSb1g2B7Y4r9sDL1gxBq+8J1kxz1g/G36lRF2a/sfIJgHJ+m
cbfpHZ1vgjF2OEH5bjdjSTCq7kp1WLbT+YeDthu1Ej6djzQ4sOz/+6Oggd6P
g64xqtfWVDDmcBCmpVQWc5renwPx1xrzwULGhRzsc1tQeX4f+TjQuSR7MjmH
cScHJy2Gdx3JID8XHBnNJs+N5OfiqFmQnXwi+bkQthnpTI8hPxfNvMFvp0PI
z0WF2yHFMF/yc1Hzm/3Gx87k50LQlPe7kx35uehNW6AQYU3+EJif3znZ1Iz8
Idhw1Gvf5UXkD0HfX3teQof8Ibi2nvdhshb5Q7AgYkul7XTyhyCja3m2kQr5
Q1B7+pyfhgL5Q6B70uz7blnyhyKBp/fDo2/s+qERir7e+ROUPzJGKC5pHzO2
eceYEwq5fy+AvXS9CUW2jXnZ0i7GhaE4lKLdcPUpY0ko7n1ZXOLczrgzFGP1
60/tvEfXrzAIN6Q2fWwmfxhKrQs/N9eTPww9lsUjYyTkD8NRH0F0RQ35w3BC
N1Z06yz5w7ChwCJ2Ugn5w7B53EwTnSLyh+FOQcv9Y4XkD0fD45Lw8gLyh2NI
suNbwz7yhyN1xu5FHjnkD8fZ00HJc7eSPxxlA7INtzPJH45p3XGWf6SSPxzX
5dquaK8nfzhW1eyLWB9P/gi85kbFlwvJHwHDpQ5BM2PIHwFJd+bEUTzyRyBb
/8mL9HDyR2Bm95I/1EPJH4EDCYtvGQWTPwLyXMGnAX/yR+CqW/XWJ57kj0RJ
HEd81JX8kYiVSSxUdCB/JMxvXd/utJL8kdhw5E3DBOKUyP9/PvdA/kjkBt3v
8zYhfyTmHDjTtc6Y/JEw5g5f99EnfxSeyJRIXOeTPwqTdh/JN5lH/ijcFsqY
12mRPwod5VZfrNTJH4WU1O2TK6aTPwp7pSPnqaqRPwppXpxrvKnkj8LDrm+e
tkrkj4baI916TUXyR+Nm/y+CTgXyR4N70sd4jDz5o9HhW/OX5WjyR0Na2Pt4
UJr80Vhhv3m0cITdv0mikbr21+hX3xh3/sMvD1nt/0z3dzwkX7+aFvuesQYP
Y4cKIwc/MAYPO35VCbIcZMzhoetmQvpIL90v8qCndmhQpYtxIQ/3J/Roju4m
Pw/pSa3nVF+Sn4e0euPE97+TPwYrNicOnHpC/hg02vjWqbaTPwbV2XL9Dx+T
Pwbzxqg/K3hI/hh49OSKxt0nfwys3RW+z2sjfwx86+OsnFrJH4N8va+OyjfJ
z4cn/+abay3k5yNBdeSeczP5+VA/dvLa4Sby8+FmeGzbkQby8xGjqHRzYj35
+Vh9pqx07CXy8/HZzmH9oyry82G/YF7irGryx6KwiO/jUUH+WJR8MZimRfff
iEV1c1um4Cz5Y/H63YYD5mXkj8Uli44zD0+RPxauS2sqnE6SPxZHNVfNVaW8
MxY6yVnVb46TX4CMWQddAg+TX4Dokqg1Mw6SX4C8Er2TW4g5Apy3cBW07ye/
AEfmmXzl5JNfgErt3/dcyyG/AKuqvLtid5JfgApXg2XxWeSPQ+We68Kk7eSP
w7qWBzvHbyN/HH5r3Lv1yFbyxyEgVybhQzr542Bs65Wsmkr+OPTGGk5+TiyJ
g37W+yNLNpM/Dl9UO4rrN5BfiDt1gR/PJDJWEsL7jv3b9jV0PEIE63BMpsUz
XiSE1KxLCaeIIcSF9O7jmiLGrkLY9pjl5/HpeIVw5puXOhMLhbApty3aH0XH
L0TYa6upk8IZ5wixbk5QwW0O7RHiitke8/MhjM8KMf70+FVNQbRPCKMI5Q+p
foxbhZg+nJvd7EV7hehWV778yZ1xvxCc23zvIjfaL0Jx/HOxKbGSCLsUJ3CT
XGi/CDmGzo9GHGm/CB+mTHi7zon2i7D2jbFZlAPtF6HfWLb5uDXtF+GK9Pth
c0vaL8KB0rkXSy1ovwj7J3aobzGl/SLo5SYcdTGh/SLIfD96iuQH2i9CieFl
fYER7RfhjL/Z3Fpj2i9CYOO47JOGtF+EhX0WBoGLab8IZ2W6s3T0ab8Yoy7q
R37Uo/1i1P45324NsYYYDR1NOU91ab8Y6ckngj7Nof1itLvLr9uoSfvFOOAd
76Uwm/aLsfzOo718YqEYlRcPKrdq0H4xLEZt+nuIOEeMzbPP+G+cQfvF2Cm6
csVtKu0XI6OsLP71JNovxvNXrwPu/sP/A3g5mcs=
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 500.},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 300}, {500, 1700}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.810310041114992*^9, {3.8103100772777734`*^9, 3.810310080225879*^9}, {
   3.8103104499612036`*^9, 3.8103104591807394`*^9}, {3.8103107790497484`*^9, 
   3.810310788592764*^9}, 3.8103110617261314`*^9, 3.8103117160715265`*^9, {
   3.8103117475911303`*^9, 3.8103117540880213`*^9}, {3.8103644635675583`*^9, 
   3.810364474908421*^9}, 3.8103685803541565`*^9, 3.810368843351223*^9, 
   3.810371210983017*^9, 3.810959767500373*^9, 3.811092587272145*^9, 
   3.811093283049307*^9},
 CellLabel->
  "Out[1209]=",ExpressionUUID->"7d5cc0be-6ea6-4656-b73f-7fa4a01dc625"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"dataB1Nor2", "[", 
  RowBox[{"[", "1", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.810364518854079*^9, 3.810364527185104*^9}},
 CellLabel->
  "In[355]:=",ExpressionUUID->"ac39877e-771c-4d9a-aee0-f2e9489756b9"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"\<\"year\"\>", ",", "\<\"atm CO2\"\>", ",", "\<\"Tatm\"\>", 
   ",", "\<\"Tocn\"\>", ",", "\<\"emis\"\>", ",", "\<\"cum ems\"\>", 
   ",", "\<\"c-up ocn\"\>", ",", "\<\"c-up lnd\"\>", ",", "\<\"dic tot\"\>", 
   ",", "\<\"dic (<50m)\"\>", ",", "\<\"dic (<100m)\"\>", 
   ",", "\<\"dic (>100m)\"\>"}], "}"}]], "Output",
 CellChangeTimes->{3.810364527826629*^9},
 CellLabel->
  "Out[355]=",ExpressionUUID->"a782a592-0365-4873-9336-e8104c4e1b58"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tempB1", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "12"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "12"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "12"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"dataB1Nor2", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "300"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Gray", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}], ",", "Red", ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
       RowBox[{"{", 
        RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Blue", ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8103100954265184`*^9, 3.8103101256034408`*^9}, {
  3.8103104722560973`*^9, 3.8103104958842993`*^9}, {3.810310804872401*^9, 
  3.810310839184111*^9}, {3.8103111079853926`*^9, 3.8103111356835427`*^9}, {
  3.8103117653748627`*^9, 3.810311794807333*^9}, {3.8103644931904516`*^9, 
  3.8103645070007143`*^9}, {3.810364544958067*^9, 3.8103645625392714`*^9}, {
  3.8103689677630534`*^9, 3.810368968681082*^9}, {3.8103711770652275`*^9, 
  3.8103711773840456`*^9}},
 CellLabel->
  "In[938]:=",ExpressionUUID->"eef89598-0ae4-40c1-a7f8-1c499f481b85"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {GrayLevel[0.5], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVlXtYzGkbx6ckvEiL0mKJJbE5VTqrr3Ol0nF0QDPVdJ6aGYdsWxpSlKIi
JdRsOba0taFQGSWRkCinKKcUokhZitd7ee6u651/5vr0ne/16Z55nvs3ySvU
UaDI4XB0FDic/73/eHVYcP7/hTeGle6H3w1gfx+MYzvTN2Uv1mSsirGYrcTl
z2U8GmamJXPm3zNnrIHoHX/dFadbMh6PbrU3NVeWOzLWxGWj0Qp1nW6MJ+Na
eLzjRTmf8RS8SEsbb3rIj7EWfB/+1vCgNoSxNg6PT/r1RMlaxjOwnWsfM/T1
RsY6UDFwq0sfFcV4Fp7WrEC7TjTjOWj5Y5JbhmQb47l4Xru8oU6UwFgX02wm
5gonJjPWw5nP6n9O+GMPY30YZgligtzSGc9D3EKr9N4rBxgboPBYfsHVNzLG
hvDfvVH5yvUcxkawVC1+Nkz1KGNjZG4/brSjJJexCa47ZKV5NOYxNsWa7PLS
VSUFjM2gXGjcJLI9xXg+HjTOeP5tahFjc/T0hZ+Mtz7H2AJb78bO9LpQyhgY
czvC3PaS/AdLgdqS5g1K9eUsX4CEqZUuSaMqWb4AVx9rvQjfXMXyhVCfea5r
hGY1yxcifFdEh3tHDcsX4VZ+seUvH26yfBGKmorrfffcYvliWGtkOV+zvM3y
xRgc6embq17P8iXQvW8/oaqvgeVLcDersb607x7Ll+Li1Q3qA9UfsnwpKlXu
LWlb8ojlyzDhpL7T7oQmli/D1EVX5sR0NbPcEvt7+yzGznzKcksUeM/fLAx9
xnIrvFQMWH/33HOWW2GQ1j/TDqm0sNwaXkn6T9QCX7LcGio5t9z9alpZvhzH
Gp2qr+m/YvlyvBgg81mb/ZrlNpCuuGgdP7qd5TbQsr71yiT+Lctt4bstLMlV
gd1LqS3c2mVfEsrontrhppVxhWNEJ8vt8Mpl38FFJu9ZvgLK88Ke9fYwlq7A
0a0u4omnP7DcHr+YteasEHf9YNhDZqQ200DnI/u8PTxQ4yx9wVhuD/P23Xub
D3SzvgMWDA5KUnHsYX0H5GUmr6tS+sT6DthU+GzgjVOM5Q7I0Es8+Yr/L+s7
QrvgfdjroZ9Z3xFGhUdvHPqHsdQR01RKojpcvrC+I1J4nutPfmTMccKsa31D
5Mm9rO+Emhi9wJEz+ljfCUc62k33lDGWO0G/ZkKd0YqvrO+M02eDbD89ZAxn
WHKL4m76fGN9Z+RvqI+40MZY7oyt7377KpjHwY++CwqPe2p/XcsYLnhZtH3H
yXzGUhdcqiioCn/NWO6Cuq8Xi4VTFFifi4iUjvm7PBiDi55OVbQlMZZyMfW+
b3vMJcZyLsRWwxRF3dRfiU8Ow6cXaimy/kqcGuQ40cOFsXQl+q7zmtduYSxf
CcWRhXuG5DHmuCJvj1669j3qu6LVxEzwiDOA9V1Rm1n9SU+bsdwVYj2BlpEd
Y44beN3NFR8ljOGGpv0+Wzbupb4bqtaX61QUU98N1htKjz69T313tN9/bvHs
X+q7o3Xb9LpaDSXWd4cex9n9jAFjuTuMI0fpZTox5njA5uic5SmhjL+fVr5N
77gD8dT3gNs+z5RLh6jvgdqwxOWjy6i/CmvftefsbqD+KgQJd4ywfkv9VfD0
PqtiMXAg66+CrcaF87+PY8xZjdYvcT2cuYyxGtKrSr0PljCWroa3f+T14e7U
X43pDzYvzxJSfw1erL1okCql/hp4TDl4rSuF+msQ5WirX3GI+muQFrXYY+AZ
6nsi41VAz4XL1PeEa+S3mJ4G6nti3PmfvfNbqO+JE+eOnH37kfo8RA8RRZ9R
Uv7Bmjzcdru8ZegoxuAh+VG3cacmYx4P4eI666BZjKU8bG03mBFpyljGQ4e+
+fvplozlPNT3jHiwzplxMw9GRhtH83mMOXwYfdjG6wwiPx8L7Ldma4eRn48E
k97tQ7aQn4+rvJG5exPIz8fFmpDwur3k5+OGfgP/goz8fOTMlbd45pKfj9wM
rsWZQvJ7IVjtQNylEvJ7YU7tnbqESvJ7YYRWzuKfbpDfCx1tvxc6NZDfC9eq
F6lyH5PfC+/3PFo/toX8Xmh13xKZ3U5+L0w/2d74rov83hie1q2r1Et+bzh/
8NJ+ojiI+b2Rmpy/bPsQxjxv7GwLVvsygrHUG2axLjqm6oxl3pA5JVdbjWcs
98Z0DceN2pMZN3tDISI05t40xhwf3GidPshjJmNNH+StXupcoEt+HxgrTDvf
aEh+H6j3bnV/bEZ+HzgbLlldtID8PjjXYKUQsJT8PlC6rj2ty5r8Plgcl/HA
bQX5BVA7PEp1vxP5BVC+MKW+eCX5BZiacnnKKQ/yC3A9+fOjRE/yC5DIrRy2
zJv8Arg7/7a72Zf8AlTyzed7BJJfgG+DPOqLhOT3RcDAWSN7ROT3haDTq/vn
deT3RQrXWmdSGPl9cUmawx8eTn5f+E/uDWuKIL8vYtY3KqZHkd8Xtk+w13AL
+b/395s3lm0lvx/M9YviZ20jvx/cSx9qb4sjvx/c/qO24OoO8n/PbXWzPyaS
3w+dzwL+HJZEfj+Ui+vKVFLI74fFdpvkvbvJ7wflSbnGd1PJ74+KsKDEzDTy
+6NpZaSJ0z7y+8P0y+ZrHzPI748xowKKYg+Q3x+DPif7KWeS3x88YaPO+izy
+2MGd3zEbRn5/eGaJb83KZv8AYjVfXaEl0P+ANQ2epolHSJ/APbN4g4vOEz+
ALyTFnhWHCF/AD5WVadWHSV/AG6V/IqyY+QPQPqO7oSjx8kfAEWDYVeic8kf
iHrlcK7TX+QPxFJp8Gr1E+QPRHWOcPZ1Yl4gzprFWWw8Sf5AxM6T3BuTR/5A
rKtYO/sEsTwQHJXI5Hl/kz8QDueKQ04Rc4Jw5SGnQTuf/EE4kXRk4m5iBCGh
e7D/B2JeEJ4K7D5bFZA/CMGJTuPSiGXfc5nw+QNieRAWVAY9VfuH/EEo3TTu
8zJiTjB+Uk8TiYk1g6EY1RCWQoxgzGss3/QXMS8YnKzSLSXE0mDc07hzqZJY
FoxZ5bHBVcTyYDQelO262O8PRp9Gy7JT/X4hovVWN2b1+4Ww7emSbe33C5Hq
kJ/t1e8X4kWsYJRJv1+Imb3G04b2+4XYIUlvq++fX4iKJT+ZZxA3C+HQeira
lZgTAl6sxx1VYs0QuArCIyv6v/8QxG2ct13U//2HYNMn0bcxxNIQtHYofD1L
v6csBCf2jC/hEstDMKFxd9hbOg/NITArC7bYTMwJxY0IrREjiDVDYR6mOzCd
zhdCsVBVwWA8MS8UJo/LCvbTeZSGgsNPTe4/r7JQJKb/rp5I51keikH1Y7jf
6Lw3h8Lb5lc7Yf/5F6FiWKHqXbofqiKUfjPJMyPWFGGkX9mKTLpPc0To8LHs
+0L3DSIMKJz7yoXYXoR4g0emJ+h+8kToyQy/+5Xur0gETX5Piy2xVITzhne2
7KP7niSCp2V67BPaBzIRZmSozdMizhchtO1thh/tD7kILRrFTw//ybhWhFWp
4W+b+/fN9/9vnGG3BnGHCDYaTV9taT9xxNhsmPoyivaXqhhNa5r+zjtI84vB
WXpl5wPad3PE0HIvuDWAGGIkrSvznrGf5hdjVcbUaXb9+1KMwUr69qG0T0Vi
1CiZVSWm0/xidJ58G3ec9m+SGKaTxjSW76X5xai2cXt/n/Z1vhhv2iaHv91D
84thdyg7jkNc+/3zpxMtVfv3vRizHtqf/oWeBx1ijN3s9Uo7meaX4HJIyQBd
en6oSpAbe6DJaBfNL8HzdyXJ83fS/BKUR3+2BT1/IMGqqOF3kUDzS6A4v4tv
0f+8kmBXg/bPZvE0vwR9qcMbDOj5JpVgZc3N+NnbaX4Jajqfz9ai56FM8n2f
W78cG0vzSzDjBbd+eAzNLwGXO7vta/Qg/BfCdEiy
      "]]}, 
    {GrayLevel[0.5], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVk3s41PkexycdYmyhaNNFV+1WinRDTt4sErmTS2iMMS6DuXRdhdllU6Js
KN0kLZUKpXRZabaSbiKUVEolUZIkKsnpPH0/53nO/DPPa97ev9f3PfM1kS92
C1bicDgGgzic/75/f3VacP7/hYUarjMTB6azz1Xh46K5/aXImrEmbN+6WI52
82CsDb+RZsoHW3iMR0G+MPbemtAwxmMxcWlNtkublPEETHo/SjTaeB3jSTCc
qTtreVEc4ynIS8hquGqbwHgq1r8xP50Xu5nxz1gqa7NN3LON8XR0b33tdcI/
jbEBDHQTJ4rkOxnPgkrCgZ/S7fYyNkLm9BOdpi+yGc/Gy/KYe57D/mJsjImb
N3Fj8g8xngPvdIF1TvlRxnORcvGyl9f8IsbzoJzqqjP83knG8zG+aJdq3rXT
jBdArSqzMVj7HGMT2HZaz8i9WMrYFIskrT6+oQrGZog9mmZ8KO8S44WYzvfN
9RtXztgcqc5F46/drmD8bzzcPmfX49IbjBdhloG4xritkrEF8hb1LeXnVzMG
Fkz49RRHXvOd5YC9U1KlZHUdyy0xKlKe4pp0j+WWqLCq6e6/cJ/lVgi41HN9
pcZDllthxOmE+4ExjSz/BYMOVXM1Bjex/BdEiXZceeD+lOXWiIqdNb2v8BnL
rSEO/HTGbGQzy20gCFiQhT9esNwGHxsNOnP6Wlhui/O6cwtfrW1luS3WGFVn
b/rYxvLF2Bgwbeer9a9ZvhiZ1w73xXDesNwOhcO3mBcmdLDcDp+DzA/8Opj+
D5YgeaqO5OUlxvIlGOix3Pgy7h3L7eH8RXbyumkXy+3RMH711ba3jDkOMLFO
bD964D3LHdCje4q70amb5UuxLqPxce8HxvKlmOtRFL115weWO2Ir57hqm3EP
yx3htjKCX1zBmOOEUWf33zvk2ctyJ7hvULJKfsSY44x7Bfefm/p9ZLkzksIu
/JhZx5jjAsecIOVdNp++M1zQsrasYmEhY7kLNp9LHEjS+vydFS4IGF5asS+C
MccVPv8yrEpXMIYr/Db0f949tI/1XWH4xXHlc3fGCleUWriUHU5jzHHDHN2c
jBmVjOGG3LRF6iWcL6zvhrSSnn/SZzFWuEFWtChJx4sxxx13akU5m6MZwx2i
ZsvTi3dR3x0f9TaJjhRT3x1XR+H8oBvU98C8wnyf3EfU90Dhw+K8V6+p74G3
RpMTpn6kvgcizwwuzRvUz/qesO7nrDqjyhieaM0s/e3gUMZyT5SoJySe0GSs
8IRiIOPPKcOpvwzcPa9UFxJjGWS97n8YaVF/GQoO5KXN16D+MvQcrUyK/oH6
Xkia6Ns9XY36Xmg/MW96lDL1veBRGy8V0nkVXuislQmN+2m/Nx6Nz3DooH3w
Rr78Un1xN+33Bn/z3mXpnbTfG5ZWGs5Z7dT3gaNnw7CmVur7wCVJXUf4gvo+
CE8X5D56Sn0ftF1OSV/1mPq+0Et9Ncn5IfV9UfbH14L4+9T3xalJ88LG3aO+
L1rGZitPrKP+cjQv2LkxtYb6y7Fhyr4I0R3qL0fe81ybgmrqL0fVD36NnsQc
P7TXO5SsIIYf+PbGBZeI5X5wMfaqj6bnKfywpmWdVTz5OP5oXXdd9X4t9f3h
HantIr1LfX+UqU3vsqunvj/451QLfRuoH4CmtvonB/+3PwC/N+w5rUffjzwA
/o6TL1Q0UT8Ase/C7fc8p/4K2L7p+JjRQv0V0Pzzhe2pNuqvgFv4sfT39Hsp
VsDDMmq2K/2eHB5G3+1wufGe8QQedKcJLy7vpefxcLnk4rZBfYx5PKzYH2v9
91d6Pg8L3iWcTFRi9yubh6a34tlBKnTfeJhTp2LuyGXcxIMkWs3Udhjd30AY
esQk2NP9nxAIM1uLBp+RdJ8DUfx78D7ZaMa8QGh+0g9P06P7HYjzZWfTz08i
fyAEreE6L6eSPxAGtTFGo2eQPxDH5tsYuRmSn4+GRMt1KXPIz0fpmoCKGwvI
z8e/za0Gq5uTn4+bDp+eOID8fAyUrRCnWJOfj7M3vEfX2JGfj4ozU2+OdCQ/
Hyufmnb4upI/CNyMJzn7PMkfBF/TRIMnPuQPwqV0u269APJ/4yf5//jxyR8E
94Co6l1C8gfhbv/xzNpw8gchPuS5Ql1M/iCo5q7cbrmS/AJ0bzgila0lvwCe
N6+m7F9PfgGqMtbeuR5HfgFmxk1d0hlPfgEMYxaOHbGJ/AKYNNpsm5NMfgEW
vHbpd0olvwDlubuTg9PJH4zYuGPH12SSPxhvD951id9L/mCoykcUbMkmfzAi
Rmipb/uL/ME4urVVbdth8gfjFxOtkC3HyB8MJ92AxfFF5A+G6egh89acIr8Q
FtbelkFnyS9E5u9bZziWkl+I9kS/TcYK8gsx5crd3OFXyC8ENo0PeVtBfiHk
xRv0K26SX4hhEXaPMqvIL0TYEe9WQS35Q7Bb0g6DevKH4OTuuPtvHpA/BIvG
asw78pj8Iah53a4e+Iz8IahtapQNbyF/CG53Xza60Eb+b89T2WUieEP+EOxd
ybs+5B35Q7HbccncvG7yh0L96+ONFh/JH4pCe5Gsro/8oXAv3FMpGCB/KB7U
Wat3Kn1l/lDU5Ic/WKXCWBGKnJBXT9+rMW4KRfORO/5RQxlzwpCaFcpt1mQ8
IQxvL+ubeWgzRhhQfKHq4o+MeWHILJifrT+GsTwM6UUpuhv1yB+Gjlhx1vOJ
5A8Dv1S5a6E++cNQY7atbOvP5A9HWblnx6MZ5A/HlZasnVMMyR+Om0t17YXG
5A/H0oiY1oPzyB+Oa941Vo0m5A9HufiZQMuc/OF4ncI9Bgvyh+PrqsFdEVbk
FwGGljvSbMgvgvEzvVun7cgvgu/4Ayo1DuQXYcNck6ltTuQXQS0mNKfPlfwi
rB4epqnqSX4R9nqNcR3uTX4RtKfscxi5nPwReDXnrZpOAPkjcPiBTsawQPJH
oD3Me6eygPwReGA0zadXSP4I+AeonmsOI38EOkqCfCojyB+Bq8VcqyIx+SOw
1qi1I1lG/khMbNjwTrCa/JE43v5Fy2wd+SMRXBVzlrue/JH4WaDtWB9D/kh0
+GdYZ8vJH4m7cw86COLJHwnuaP6FCRvJHwnt+IEH9zeRPwquNbXzk7eQPwoq
L6rPmG8lfxR0djT1tKaSPwpX5FeVUtPIH4X68x0PZu8gfxS+JGWVV2WSPwrR
O9ZwRHvIHwX9yi3JSlnkF+NGOa8pPZv8YnQYf/CYdJD8YtS8uHYtP5f8YtjZ
HeqbeZj8YlSeGKd/LJ/8YtRNG6r/03Hyi7HoXPburELyizH54jgrrZPkl+Cv
6AJu3CnGmhII48c+ellC55GgJ1/31NJzjI0kOPs5qPvY33Q+CQw6mzncMsYu
3/5eP8pLoKDzSnBZtO3wuUuMJRIonH+brF5O55fAYsKQXu8KxqkSYP7ps9nX
aY8Ec6s8eptvMi6SwOxJtZ/+bdonQSe3qItfzbj6W/9Xw7V7amivBF07TRqr
6xh3SvCM/yVaqZ72SzF7gp35rAbaL8Wx45qd7g9pvxRcb41bqxtpvxSm991l
O57Qfil4xW8UxU9pvxR1DY2Km89pvxRRJV3Sphe0X4oxGiVTOl/Sfin0nFfF
fG6j/VIsydM2Umqn/VJofXhzWLWD9kuRMKvRXq2T9kshG3FXTbmL9ksRzlf4
97+n/VLs/br90LsPtF8K86Ercp710n4ZhMVmndWfaL8Mt8WGq8730X4ZzBvH
PtzfT/u/cXKASvwA7ZchjrtqH2/QANv/rf9FqdNsMGOeDCre251GKDOWyHCx
5pbTSxXGchlMuhIMSlQZp8qwRn9MZhyXcbYM6aHzfrT5gXGRDMZ/Xng9ZBhj
hQy3SkZWXtUYsPgP5BQW7Q==
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVl3s41Pkex52yKVut7jdb6iStkEIl5I1CbomE3MZgZjCYmVbotlql6IYu
S8K4dWElXdhu1tH15DgoVGo3FUK7ilVZbTp7nv18zvOc+Wee1/P2ntfv4/f8
vt/vb7Ywyi1kmIqKit7fVFT++/3X542lyv9/0DioXziu7eOKv3Ak8MhgR2r0
VPo7DYSeXy2ea6RLPBFd1yfFVzkvJZ4K3ar1L71zrIk1EesY3bOt2pFYC22G
U2M3VbgTz0HtmQe1/iN8iOfihkbziY+qQuJ5mJxY+MF2p5h4Pgy7ErQXzo8k
1kWmtuZszbEbifWg9LnX1X4nhtgA4ysanzcFbCM2xOZ1Xkl5AzuIF+Hhsjzj
pLpdxIvRMmtSzT7bZGIj9O39x0RP+UFiY3iOrxlWci6N2AQjPfp70jSPEi+B
JMU3ZcuwY8RLsaXon9qfZNnEyxBhcUF84nIusSladlXnpB4oIF6OMcEbzphf
OUlshrOm8bpX7YqJzZEnPtX+d7NSYguUOG3sNft3GfEKiLprTjiZXiC2hENe
7q6xz8uJAZM5cUWZNZf+4njAwHJJx+OBq5Rb4be8oEHjJVWUW0H1WHCuw8Rq
yq1xuXdVS+GUG5RbwyB7u+rnVrcot0HaHUWBauodym2QE7Ov5LlaDeUrkd1y
W3qpsJbylchan6duaFJP+Sqs95hhc7GogfJVeDEy7O0Uo/uU2+IzO6cJHbWN
lNtCoy3z2r7NzZTb4acNBiv8lj2k3A7qY4zcD4xoodwefr1nbpm3PabcHj9X
912MrP+J8tVosyjunHz3KeWrkfo4f5l6ZyvlDtDvWuGf+eYZ5Q4wijVXaA09
p9wRn2ns7u7/oo1yR5xLNk2Ua7dT7gSz+Vl7X1l0UO6EshOlaeVeLyl3RlKJ
9Nm86E7KnaFs2GObmtZFuQsexo7e7XS2m3IXyNpij5XVvqJ8DbS0jxbM7P6F
8jV4Mf190zvVHspd8UPpPXnel6//YrhiaNSzz+9Mo3Ug3hUXhTMzpucTV7ki
9/DN2N26vdRfiys/qM9uKCXGWjQu/mhTubiP+muxK+hG07TzxFVr8a5i5rzz
hr9R3w3y/dtf+hUTww3fn3t1q29OP/Xd4BcruuzyHXGVGy7cenXPbeRb6rtj
5Z61iW3RxHBH2eQxI3qeEse7Q938lpq/7Tvqu+PYZWPpvNPEKuvwfUqKtsXI
99RfB4ftQcbHg4jj18E486ix1RXiqnW4vtkzSu+LAep74MSE3e6BAcTwwBbD
xSEdxcTxHnB6+LziRj9xlQfa9LPq1Zb/Tv310O4MX3NtCzHWY45r34f+S8Tx
61G0V7r3x37iqvWIf7pn3EK9Qep7QqcuOstTQAxPbL6XfN85lTjeEw1qzw11
fiSu8kSHMLP79y7ue6G8fE//k3EfqO+FQVxrebmEON4Lf3iFX1rkTVzlBYcJ
5ZUNscQq3vDcUxzx9Aj3vZG/5ZOn4iz3vXF3cITVoTvc90bwxh5135+5vwGv
D8ift/dyfwMSVprHrR7+B/U3oCclyTR7PHHVBoxMcTw5OItYxQfHFdbnvl5A
DB8kj/g1a7YJ931Q/+BjwyQL7vsgvSjDPMSG+74YmyUW/92e+77QiDzkKHTk
vi8an7a+N3Lmvi9emprePM2s4gfdCVa5jU7c94PmGne7Gw7c98NriVJ1jx33
/TBunE2jwf/8/pioL5Lc5uuDP45E75UHLOW+P771OCVRNeS+P5rfNJld1+F+
APomZApPzeR+AISLPBp+nMj9AExafGjuJHXuB+CCzcKE80P8/xdgq51NVmEf
sZYAlWO35bxt5/shwAEn/TklD4kFAnTs3P6o6S7fXwFGW9mPirtKrBTArOaF
QU4J328BtlUYP3XNJm4VIL3OPPnoAfYH4rz+paKY7ewPxM1UwxcfItgfiO83
/LpO14/9gTi+83TzKCf2B+Ku9c0XyuXsD0T0JPn1t/PZH4hbgb5Pxk5hfyCe
pIW96FVlvxCV/s6rCvroedASYm7cDJMFrfw8CXHwYMDwfbXEAiFG13vb1lzm
50uICbuvnPv1JLFSCJFB6dKBw/y8CXEzI7m8ZwdxqxAfUvsNmyL5+QtC7cQc
cakP+4PwtWjh9B327A/CoYWnLjubsD8IPq+vHp86h/1B+EyyRr99LPuDYHa3
YmL5B14vgjD757S4A53ErUGQu2R8Jm/i9ScYA/MVrQHVxFrBmJp5JNevlNej
YLjG7KiWHicWBMM/Ya3bwSRen4JRiKSw25uIlcHwO51vMSWY/cE421diFr+W
/cGw+f7fmqqW7A/B4/FpggI99ofAI8SzRDid/SFYZfPtFoxkfwiGymYMt3zH
62sILka/qgloI1aGYPTFFcML7vF6GwI7pWr+6H8Qt4ag1uiXjGOlvH6LsH28
xymXbGItEWpy9Wbq7uf1XITCNPPv9LcSC0Q4q5NT6h3OfhHGG+8LLt3AfhHq
nN5PWOjAfhFGZX415ZEp+0WY9rWkp+Qr9ouhDNyqf2Ya+8VIMqpVaxnFfjH2
xsw/v2iQ9h+BGP9c4999sZv3JzGuf9u/UfSYWCnG2W1qEpt/8X4lxsiDn8TO
14hbxXCsVCndeYZYRYIUW0zuyiHWkiD7w9Pizam8H0qw2FF+2DSB/RJc3bT8
X9rR7JcgvX21kaWY/ZI/z3s7YnZ5s1+C1Bn79g84sl+C0tEGu9NXsD8Ux2cV
Lg1ZxP5Q6MwJ9fCfy/5QtPpvvJ8whf2hsHQ4bN+kzv5QDNu+a6fbEO3nylCE
DERd+NDL+30orAsqrerbiVtDseqRekPdI97/w3D6j7jlg7XEWmEYXjPsgUs1
McIw1KHmU1tOLAjDnLaL16KLiePDUGm+4KSdkv1h6Jhy44j1EfaHoadq2zJR
MvvD8NXQx8Rz37A/HILIgIp50ewPR/YYHK4OY384pB/PyHcJ2B+OtmaN4VHr
2R8Omci1d7sT+8ORr1128II1+8Nx1DVzhoYp+8MR5y5LSFnIfikSa1VjTeax
X4rZX3yROKTJfikWlXpUvJrAfin2v3pr9Ic6+6WwVz1WsnAY+6VAUE/Brt/p
/FUlha/0dezHN8StUtxOEKYd7eTzWwQ6t/pWuLYSa0Xgp0Pv7y54yOe5CDy6
v3quTj2xIAJb90pF1nf4fBeBuXtOmG2rIlZGQC84Zaj5B/b/2Q9WveJSxv4I
bDJxiWk7zf5IWPUUlH2Xx/5IfKo87SbJZH8k2lysr3ocZn8kbqUVeATsZ38k
lEtnntqZyP5IfLk4Y/PNb9gfiZZIi7zZceyPxKys9PR0BfujsG2gvOwrKfuj
YF3dkNQYwv4o6Nm7FKcHsD8KgnqtY9He7I+Ctml8T5g7+6OQf9r9UKwz+6PQ
Za83K9uO/VGo83UZbLFivwxN0Y0VBubEGjI0ry3qSl/C1yND6Kwoj2mLiA1l
cC+tji9dwNcnw6WkDAefecSuMnwniI3VnM3XK8MFx1zXvhnEsj99b00Ln0zm
65fhp2fXdR6PI06R4Z24WuPX0TyPDJfrDMPG83n/rAwKh4v3HYbzfDJotaxc
cHSI3g/qZQiT3K/87XfiVhluHmtIDnpL/ObP3xP66LS/IVaRY7ek5VnML8Qa
cgQqP66e0UmsJYeFrk5g3QtiQznGjDngdfgpMeSoSzPJDn1M7CrH1x4aB10e
EAvk6AtJM7C5TyyTo1iyscu2jt9v5LiWu93Lu4Y4RQ6RZmD+5tvESjlU341p
LrpOfFYOK70vezp/5PchOSI/17hqfJXnlyNu0ymTAz/w/HLEJmZ86r/A88vR
8T58QFLG8yugfJ0yvLuE51fAaHpzUkwRz6+A2phIwbiTPL8CcU1qORX5PL8C
goB9W0KVPL8C79bpjdfJ4vkVOP/EUvomg+dX4Pmj8t4bR3l+Bbo/1ZgXHOL5
FXiv6/p2fwrPr4BewoMp3+7n+RUYl59+Mj6Z51dgpUfiiqTd/Zb/AVBIAGk=

      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVlnlYzGsfxifC4aRSZMmbopOolFJk69aGLC0yhdJMNU3TOjNxOISkVNJ6
KslWjq2NKELSSFREJSccSpZja1Ep5IjXe53n23W980/XZ+7r/n2ep2f5jZZn
sJNgEIfD0ZfjcP73999PpwXn/z8oOKh0KCxPm33/E7xD1kxTc7dgrAz7Cc1u
qsvsGY/G3P7wEuHYtYzH4aLDwheKp7wYT8TBfbpNQ2/4M9ZEgGkb3+CWlPFk
6ModWP3H8c2MtRGVvS1rQ+oOxjowyunYx3m2i7EuVhybP3JdbjTj6Xjb8TPX
ZlE8Y31Y3O60fLs+mfEMZLmX8NQmpTE2gm5d6/2hkgzGM/GLsnG8yOcIY2Pc
TumaPyX6KGMTnPFqqDguO854FtxiFRbX+WQzNoWq2ZtBvhH5jM0wV/ft+Jej
zjKejaTKiV2Ck4WM5yDLPufRsagLjM3x0FiRv7v4EuO54ObszN08r5TxPPyz
w2r2zVgZ4/noaJgw+djJcsYLoDhTRe5edwXjhYjdqx0TGlTJ2ALh+c9vrFO/
xRj4bBihVdhX8y+HAdP90y8UytexfBEiiy6N/ftYPcsX4brR6r6nbg0st4Tl
8k0Kd/T+ZLklbAtFjmnKD1huhbyIlsqnwx+x3Aof93MLVNUes9waBXtXiv1M
mlhujf3O2Xjv8ZTlNlA3a55SUtPCchsUiIpnPel4xnJbBNye+lJ/zAuW28Lh
8oakgIUvWb4YZVN0JrmK/mb5YpQ7jxiWl/KK5UuQ61I4TLvsNcuX4NvjDM/w
129YvhSnHD+mpSq8Y/lSrC/OSTQ2aGW5HUp+3ZQ1f0kby+1Q77M8M9utneXL
8Gl6LT9U1MHyZdgmbvp0L/A9y5cjxVbgHTiLnbuw5egeE/nmXR6dwxV4/mpn
r7JmF8tXwHBcmFN6HGPOSminLP5i3Uv5SlQptb5+we1muT3eLy9VdTzHOMwe
0XO4O0KGfWC5A0pcS4rmchnDAfuuW0oyDzMOc0BtX+T+ky2MZQ44OsFgkPvE
HtZ3RKzJfps/HRnDEfGlV1ca7GQc5og7XZpvo3MYyxyxPfqqhspd6juB13nC
43Mr9Z2w6eWRISHyvazvhIbbodpXxjKWOSGtuv03JR3GnFUoeqlllmfIGKtw
9VX0ocZZ1F8F0ZF7po2m1F+Fe3XG2h3G1HeG3ZkLdV761HfG6aARj7dPpr4z
ai5vObl7DPWdcSIbD0uHUH818mos9/l8oPGvRtmJkw/Km2n+q3FOde4/o6po
/qsx91TxoqQzNH8uhp+Jb9qSSn0uUrjy64dtoT4X4umXc4Xu1Oci12FrdrUF
9V3QOLvusJsW9V1QWO4kWjqI+i5Y+Cfn2vnntH4u+JieFFpRTuvvikCNxPS0
o7T+rkiLzv5uF07r7wpukMbWPj71XRFiKu9avIj6a9C9nh+1X4v6a6B247NF
oRz116D1QK15xTO2/2RrYDV8G7f/Gu3Ptfi6r9Ev/ChjrAVvZfXzoF20X9fi
S4PBrgZv6q9F5qXT00psqb8OZjvyB8+YRv11OBValTNTgfrrwBWNKap6z86H
bB1i0q+E9jbQ+XHDsfn8A5cvMoYbFNWUbUcfpvPkhrGGC94MiqC+Gyq2ibIi
/ajvjgdZPRoHHanvjhau4nhLc+q7w/p4avAGLeq7I/3KCJ+ZI6i/HtsKVf03
f2DnHeuRkXa9zKaJ7oP10OPcjNpXyVi2HoJ74hD/c3Q/eKAk76552SHqeyD/
na1FYgz1PWDAPx/1ZCP1PaD8z4JHWZ7U5yFqsNH5JnvGmjzwPq1QiVtAz+Mh
MVRNOU+PMY8HQ5OTb8wn0PN58K7OGm86nHEmDypTnB1Nutj9JuPB/NCenpo6
xi08KPvG7jY7S/cfH6cctqYKkxlr8rGhz7jHfQNj8FGjYVIz2oUxj4/NRmox
UXMZh/Gh+DrhY4EG40w+8hYVc+IGk5+P+V0evepv2f3bwse578Vc11rGHE90
1ouuzb/AWNMTo8qGSCoOMYYnrO/HVHZEMuZ54tLRS6+Lgug+94TOG+PI0a6M
Mz1RNNm+TcmSscwTBrbLsg/rk98T98K3TikdS34v6EvnTRUOJr8X1L7mXs14
z94f8ELTg7Ylzk8Y87zA5Y1sSaxmHOYFzlDFCIdixple6Kgwq4w9zljmBdt+
6U6rFMYtXuheVP8qZBe9n7wxruyl95gQxpremD55a9dUL/J7Q6syYHjuKvJ7
Q2mO7ZYMa/J7435I+dIeU/J7w+j4vvKLU8nvjfBJqwQt48nvjbrxerYiBfIL
oFXVP8bhO3t/agrwbujthJRuxhAgPj9phOkrxjwBLDe2fTP4i963ApjXp+eH
3WWcKUBj+8nU6dcZywSY8/KXEboXGbcI0K+2Ysav+Yw5PlhxLsZs1B/k98GV
mmG1X9PJ74MHCYXLZiWQ3wcRQQ2biiLJ74NkXT3+jlDy+yBusKAvIYT8PvDJ
zPjtuR/5fRAuiGrb6El+IX4x/fWo3VryC3FC2tbk5kR+ISLq+5Vy7MgvxJJn
pwzMrMgvxGcLYU3fPPILMaJf72P3LPILYVFhZaYzg/xCzI7UzkueSn5fbH+8
JN5Ei/y+qKuOOThMnfy+GKfi0a44hvy+0Hml82KxEvl9USpXMr5gOPl9IThR
csRKnvy+GJsVHzvoO/u91OKL+LgDRh199PtJhPTW1Cb5XsaaImjH9StYdzKG
CCd+rhfntTLmiZCo2psw9zXjMBHkd8ya0/GccaYIl8MUrG83M5aJcEGYP7nm
L/KLsNPGVPt9I/n9YFPNm2HaQH4/HDzWw99fS34/2Ebe7lSvIb8fDvvMrC2r
Ir8f1hZ9Kd11g/x+yL3wvN27nPx+qPqabeNVRn4/ZFVduLbzCvn9cXPSE9PL
l8jvD5s9ucsVi8nvj7yHGipbisjvD5Ur7XHfzpLfH9mq2/sOnCG/P44dKC9c
mU9+f9gZDJLTyCW/P2Ye+lLLySZ/APY1vkj6fIL8AdDdc75A/jj5A2B4fdHQ
6X+QPwDvBco+nlnkD8DdMt+vp4+QPwCevTyp4mHyB2DN5DKT7QfJH4C6kcsz
vmaQPxBf8pNW7N1P/kA0z1OXGqWTPxDhzYGWf6eRPxDdXc0quankD8R0pWEu
4SnkD4TzT8K/hL+TPxC+Bf25q5PJH4g7FqX/OCaRPwiWR3I2rkskfxCkrq9S
NiaQPwjqM5YpHYonfxDari2Mro0jfxCMi1ySFIgzg9ARG8Ln7iV/EL7VX9E5
E0v+IJQfVtkympgTjMmecffC95A/GDvMP0d8iSF/MKysmtu3EPOCsVxooz+Y
OCwY7tIEl9+jyR8MnU58nEEsC4ZoT0TP/SjyB8NwR7wonJgjxhaLphYzYmUx
6vriH3btpvGIkaFfOfI8sZEYZ+SqurcTQ4zdVa0TnYgdxEhPCbE3JOaJkXjD
JmYUsfgHpw7u+RJJ4xejSjCjoJU4UYwJY8URzcSZYsTJ6oMeEheIsUc+KmKA
ZWK8u6V5poW4ToyPi+1V24hbxJiZLN30jbhTjA9TRXZqNB6OBArGNiMHxqss
Qc34FROXDMxfgl13r1YJBuYvQc9IW4e4gflLwH1kpHd5YP4S3OuYMunNwPwl
aHuePFqd/r9iCcaZbBfaE4dJUDQlQTeCOFGCmwn6xVeJMyVY8z2lWY7Ws0CC
E43RHOuB9ZXgVtq1p7uJ6yTInndu9R3iFgmq/8P/OIb2S6cEDnKY6EnMkaKp
Kr/7HLGyFLfikjnyA/tRit6W82FcYiMpNg+5YnCaGFI4jjo5XJ72s4MUVdui
c92IeT+eX2mec5lYLMW00lO94+h8hEkxvD2tcSNx4o9+rt6uOuJMKYrPCj/p
0fkqkOJayJu8PcQyKZzdNr59+4P/Cy8//wE=
      "]]}, 
    {RGBColor[0, 1, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVl3lQU+caxoOIG1bxCmqLCyBKpeoFAbciPsgqtOyySIQEkhC2kISCIlyI
aAUU1FaqUJVGFCuKXFFbsbQaqVUqLogbVNEoQnEFl+KGenvH970zN/9kfvPM
c37zzjnnO99nGZMSJO0nEAimGggE//1//+uZL/j/H74zHnhettrm2HschKJg
iXf/j22JTbDM94TMbYcxsSnuTHmW93jIDLrOGGR7TNl1fbYP8VjEl36hNneN
ILZA5ET1PwfvlxBbofCA3OXMSwWxNaa+0Zyybk8jngzRfeM9sh//RfwxLjqF
JBVuXElsiz9/jMiWOxUQT4Xg3KzrqTfXE0+HakjfgdrWjcR2aHxVIvs8sYTY
HsotVjOdj2wjnoHM8uY1iQ+2EzvgdnnXyIPKCmJHKJqaD5qkVxI7oVn/KEE+
uJp4Jta0HzebtbWGeBZM/Dz6pecfIp4N67xE+5ymw8RzcKhs9uyVmXXEc5Gb
7ZKTu+EY8aeomuW8ysa4ntgZXnZWw2sKThDPw+cfCt7c8TxF7IKW9s2Z+R6n
iefDL37elTd5Z4mBLf5ZBuPym96zBkBGv3kdKc2Uu8LleF7i5cxLlLtiv/QT
E9uqK5QvwED7KO9zglbKF6DK4mJxVMY1yt3QN+zuYQuzG5S7YWJto++qeD3l
7tBscOlsa7lFuTtW57kKToe1U+6BFuHz274ddyj3wFbzL+d6ajop98SXg37/
NNumi3JPlDcdMNzcepdyL3ibXr4/9pv7lHvBYp5XS374Q8q9sUkx/JarVTfl
3ljuU/4ucBm/BwuRXz3CxlD8mPKFaFjeeUno84RyH8y8Obkvz+Ep5T6oP/D4
5/3mzyj3xXjTpaeN+v1FuS/cszoWHO0gFnyGPwpfjBt9spfyzzBs3Q+/Lip/
TvnneGT9ZH1jxgvKP0dy7k5c8n1JuR+6lxqXXh39inI/vNlbUebdRizwB8Tn
nfdseU25P4rbBN8UBfVRHoDsM4N+22Dw5j0jAJFTit1Eu4k1AThVWbjiR8+3
71kXAPcTp6qE14kFgThxpEc9Jf4d9QOx9uGnUoOHxJpAJI6x73/fQYD3/UDc
9TevaE4iFgQhbvZtkfN2YgRhwtrvtjhcINYEIaJoXEFDH/eDINXarh1ubUD9
YAyr2J1n6UWMYNSn+QeNlRFrgnFumNlryxXEumCcHeb0clEJ90NgWNLec2Mv
90OwKqSlqLOO+yGYHjI8v6SB+3/nP/xw1qKZ+4uQMzq0sKqF+4sQPNXyw4Tr
3F+E0TtO9+a1cX8Rjvx+ptaRc0EopBLX5WX/64dCbZ404SlfXxOKcxPrzaIa
uR+Ktu49OYPruR+GoetWb5lwmPth8Fb4WTXs4X4Y/vzWYcyUbdwPQ3mI8ynZ
Ou6Ho2FJqNHObO6H48Kf35r3U3A/HLJ9fi/KhNwPh1vPgNxNPtyPwI5pzUGG
s7kfgbEyefhbvj+aCGz8zsQxdwT3I+C/7YR27xu+/4shmRo9qvgu3//FaO6a
Whh0me//Yphatk59peP7vxgDnE4kbqnifiS2fvXRHfcS7kfC1qgq1HAV9yMx
PjMn41YK9yNx+qrRna5I7gsx6P76QCtv7gtxPqtVtdGR+0JYvrwWvsCS+0Lc
WJrz0GEY95fgH5dPTWzt5ed/CVbUKSLbLvDzvwSfdGH7sn3EuiX4bU/lH9UF
xIIozOlLvrJSxv0oVBlsyn3hxv0ojCuynT7MivtR8PxLM/c3AfejMbDhSfo4
Pb2PiIbXQcdeMx2xJhqdbkOP7tPy+xuNByt+9Wtfwe+vCPvrMncciiW2EKHr
6i6jCfy+Q4RPF26+OH4KsUgEg4uD7Q8M5euLkJKbprvSQ+uFVgRv41XC/MvE
OhGGTCtac+InYr0IvoMy5AVaYoEY+8yqlzevJrYQw/BSquW2ZF6PxEgfcPJ2
RwixSIxth9Z6VTrz+iTGwP4Zxe3W7BfDNdg3+qsP2C/Gsq9T6vf30nqnF+Pb
OA8zFz2vfzFIve6odTpNbBEDrznV5zceIkYMMg3ql4V+RyyKwdGWrMyMNcSa
GDRduWP9Ko1YG4OCyD/Sr4qJdTGIVHSZfeDH/hjEKYpMSuayPxbpK5K90mzY
Hwtxea+o3JT9sZAsEawf24/9sbgosVl4q5vX81hkxC4Y3d1GrI2FcZnbpAVn
iHWxcPHWerT+RKyPxS/jWp7UVBILJDgZ/jC4oYTYQoL8mvlPP8onhgSv1zfL
dy8lFkkw6vklO0Uc+yUYERCRkxDGfgmyRIelW73YL4HxuKhUwWz2S6B529pR
/DH7pbBxNSgO+5D9Ugw9uE/sNYT9UmR5TroV85q+ZyIpzv6y1GT3A/7eSTFR
U1Y46gaxVopsx3M3qs4T66S4N6Z3cvxxYr0Usy/01C08yN9HGdxtlds+qyC2
kCG4LTZYvZkYMhTldbfUFrBfhrHRWavHZ7FfhnT7o1k7FOyXYejdNds9xOyX
oWXtAgvDEPbLcG++5ZBrnuyPg+GR5b1n5rA/DrWSCzOvTmV/HFqetSS9mMD+
OExTH1luP5L9cQj88GdtzgD2x2FV7f0Dt17S/kAXh/G/9Z4Nf0isj4Ov/lLe
HT3vH+QIdp8/YeUlYgs5bCfNuOHQQAw5mu6UF/bWEYvk+LXxter0v4k1clhb
Tyuq3kGslaPlQY/b9s3sl0Pp4e5Wvpb9ctQcvXe8Jof98XDrTDY5n8r+eNgJ
P5j+Mo798YicnzvFTsj+eOS4PjmsDmB/PFYdDSrWubM/HrbfH3v+0Rz2x8Oq
2WCkZhr74xGxaf30bkv2J6DilUmafBT7E7BSt27yvSHsT8Dtl69Nv3hH+y9R
ApzktVYDn/F+LAEd/Y2flHcRaxNgXZ22wbONWJeA7+f93v74ArE+AUEFQb0V
J4kFibgdeqBRVEdskYjzlW+uWe0nRiIcOuIb7u1kfyKEMUsaakvZn4iRVWu6
CtexPxGtuwo7pSvZn4g0Nzsnz2XsT8SLs7N6bJPZnwTrxq0K0xj2J2FkZKO6
Xxj7kzA86XFNry/7k2AoLXDvBvuTILvXXvDAif1JCJ4/eMwjW/YnIWXCyEFP
J7A/CdFd2XtfmbI/GTvPll4wGsL+ZETHifeYvaP9L5Ih98qynPKMWJSMn8Y/
kOAusSYZ3ze1Hom8QaxNxmu/J5bLLxLrkuE4au2y0gZifTKenpRW1P3C+2sF
5hj94K0/QGyhgNu6If8etJv9Cpx49Um3wzb2K+DSaO8h/pr9CtzqrV6xIY/9
CqQZeifWZ7FfgZ1bJz16rmK/Auan9qjt4tifAv35kksJQvanYNRQP+vvA9mf
grqftJM6PNmfgquPlq20dmZ/CnzLip2l9uxPgU3VgM27J7M/BWts0+SPzNn/
9/VyU884jWC/ErlG/UuzBxCbKFFWmF7W8JrOIxZKJM9VZpk+JrZT4tXeh8fE
ncRQovSiNqbmGnGAEj5vt900vEAsUsL/YPiOMD7fKJVIdxmQuK+OzztKuNlW
CI1qiDcocfx6fPWSXcRaJXzXpxrVbiHer8RAQ80M06+IdUqce+zQL3U1cZMS
amF9R3MmsV4JUXTQNCcVcY8Suhjz1FIZsUCF0piNk99GEpuoEFXdeTMmkOdX
YebwhEG/e/L8KggD/rlnhjPPr8LQjX/kldnz/CrcfFznaGzD86vg0+dnuHws
z69C6G6N7u4Inl+F07OyDRYP5PlVcP9SsutMH50PtSoMOJf7dMET4v0qFDZV
HjvyJ7FOhcARRv+ybyNuUmFFX9rHe5uJ9SrUHG9ZPLmBuEeFyrDIsh2/8PlT
jfCAjNyJB4lN1LjXJPhq525iCzXSyq7Z2pQR26kxom/aj1UbiaGG3aN9rTMK
iAPU8PH/xLwum1ikxtLKq+s9vyBWqlHUkbnlYjyfh/++ftq9deJo4g1qJBRO
f9MdwvOrsWlD9LUcH55fjcISodU/wPOrceRnf4NdTn/N/w+ou83h
      "]]}, 
    {RGBColor[0, 1, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxV13tYzPkeB/DJRtbmaDe3QtoirC4IFbbeEtJNN9NNmZpmmu4zU6xcql1q
3UtCWjGbS7k8uthNKozr6aSTsm4bMQm1SSUcjkpnz7Ofz3meM//M83o+8573
7/t7ftevw+K9JYMEAoG5lkDw3++/Pt0Ogv//IL7qG78TBjMv/cWhCNAU+Glj
BlkPqdlaH/adPGv/l0di3pRs4bVqe/qfsVg3esDd+Z43eTxchlhPEFaJyMYY
yD52+PuXkWQTTGrU0b6boSRPQltCTWvm0iSyGTKvR2/MVqWSp0L36NFDwd5p
5G8gOp96ZPGtbWRzzKrc3JeXk0m2xMNL3u2zXbLJMxCWMrOrbnsOeSZqTZfX
nIrLI89C9vbdbaXf/0y2hsVSrYSJZ46SZ+PKd3uNkpYUkudg59HQbHff0+S5
EDdtHKSRF5NtYGU0Y7ZdXynZFr3JzbO1Gn4l2+GK7LhU6205eR5aWnun7Iis
Is/H7TC7yzcN1eQF2DXofmK1xRXytzDc8SHbPP4a2R4vwtNUhpobZAeMNZA0
Lfz+H2TA0PD1ycfetX85FXhk5/Gg3vcWzRfCxr4u2npRA80X4qvlDVaOb27T
3BHfjb479OL5OzR3hLdzX1HW3ns0X4RH7pM10rQHNF+E+rSBnMIfG2nuhImb
u3uycx/R3AmFsoriBVWPab4Y+bKAEd+u1tB8MToy7ZPSdzfTfAnEFk0+9SVP
ab4EVZZzrjXdaaH5UnQOm5sX/+9nNF8K3egnoiVGL2juDNWXB+5/7dhKc2e0
6amWV4vbaL4MIa1pQt0f/qD5MqgaH/39xk/tNHeBUtpw53HRS5q7YI2eYIrH
hQ6au0K4OMBh3NVXNHdFda24JULdSXM3SOcED5b80kVzN7SMUQw3X87noTv0
V15Hw0VyqjsSJl7NfTT1Nc09cGh+RI3+TnKqB76/+sPqxS95vhz1B6Xeyxf1
0Hw55ky9YWq4lyzwRKP7Yav9GjI8UXNi9bvLk9/Q7z0xLULH+HA4We0J6YQd
vt/mkQVeqGm/NFB6iwwvdE69+9yoj/NeGD/q19PHTd5S3gvCLFfbNYvIAm8o
x3youxhChjfe2oaeOp9ITvVG77Luovw0znujsGWG97ndnPdBjyQkzvYA532Q
YyF7HX2Q8z5Qvln179yfOO8D7eptOsP2c94X4+vCagd2cd4Xpyf2GFzfxHlf
7Bi+QZS/mvO+mLY2cvjDcM6v+PMEmtld4sX5Fbi4btGGyAWcXwEzx19WLZzM
+T/tduHdGl3OC7Hfp0To1MP7TwiHTeE3m+/x/hNiwGNVYUoF738hAs2v/c31
f/vfD12TfpMrUzjvB7XSYN+EUM77Qb8r8r3ckfN+wPtvdXaZct4fsx6XI1ub
8/7IGB3QrXrOx4s/dj85pltzg6z2R3XyqF6TQj5+ApCeJL5wcSsfPwFYMrx7
x5lozgegw1i154w75wOgMDuW3WnF+UBk3bFszvyK84HwCY00KXrHx3Mg5hU/
He//O1kdiCcuc/dkX+DjOwifpElZUflkBOFQbmdW04+cD8IXmwZ93hnL+SAU
Jt3FQV/Or8Tcsq0NbfM5vxLyBcHt/zTl/EocODhijIsu51finsmKY4Hv+PwM
hq9TRHr/YzKC0bmxp9L8H3y+BmNnwIJtLWfJ6mAsmdRQanSY8yE4t32M3aNt
nA9BqfrWx9HfcT4Efbni2zfFnA/B1pvbbd57cn4V3n5dUbHXnvOrcNHT4+QR
c86vwpl5fUOMxnF+FdoXzjmiNYzzIrhU7LLZ10PXH2MRfvA4bvKqgQwRNrwf
WvaphCwS4dIk18+qs/h6JULM+6nlTolklQi71474OVpIVovQdzhBYWdH1oiQ
Udy57/R4siAU7g5vCyoF3B8Kb52u4+LndH1EKNYY/dR7qIYsCkWnulUiKyan
hiIz1tqgYh9ZFYrVtckpGRvJ6lBYWqYnt4WTNaEwrEi2vuTG198wrJVktA2f
QzYOwy6Dbw7cmsD9YYj5YJX8mQ73h+FYx2dZ+d18PQ/Db7EWa082klVh6P/N
K3XCdbI6DJnjSy3fFJE1YQg+Oq53yk9kgRhddaLac+lkYzG2Peu6q1KSIcZ1
4dVjT0LIIjGqh67PULhyvxibZSaNQlvuF6PdeLDflsncL8aDFWk2OvrcL4b9
DVftegH3h8PM5WDKw066XxmHo392nO43TWSE4xeM3V95kywKR3DhXv8dFeTU
cBgdKavNPUFWhWNX+pcXWnPI6nCEjH1rELOFrAnHtvqg9WZr+f4ogax626iR
Mu6XwMSsaOYcf+6XoKT1l9ItztwvwcaP8twv7LhfgqoNi69cmsb9EnSGJtsc
MeR+CdbpoLH0C+6X4GNK+aqOPrpfC6Q4tNR1p1sn2ViKdYKo8vtPyJDC3L3h
8tYGskiKvIaqoaKrfL+Xwixi9sLgX8kqKdLjHP/YUEBWS7FvVG9t5QGyRorc
6lF7DXZwfwTKph2y3p/M/RGILRu3YaaC+yOwK6ht9Qsx90dg0vDq6xVC7o9A
z8s3yQXLuD8Cjk/iHU8t4P4IlPqmuN+04v4/+174rNAx5X4ZqkeK9YNGc78M
L4cUPbz+OffLENB0P9i5n553RDL43/9ie3M3OVWGg17vtmQ8I6tkqF/k1Orx
gKyW4fFgL2/jWrJGBlnoyXOD1fz8FImEgdMd/WfJxpF4arW7Y0ghGZHIas/u
/fog90cipufsGLdM7o/EmZ/7c9I2c38kWvbc/Xh7LfdHotlsYLhVLPdHwuFB
ZV5OKPdHwUO+wvBLIfdHYWqRanC2C/dHofGC9SgTB+6PgtO7Kw0Xrbk/Ckb/
ehAXOZX7o5C8of+HiRO4Pwpm8z/GNn/J/VGYVRNSUTqE+6NRZ9iesrOXni+N
o9Gvn/kyoZuMaDTN2BwU9pwsisaHcwNegY38PBoNWW140spbZFU0koSnkyXX
yOpoGFYe9tp4nqyJhmpn/vvcM2RBDDY1FPqrj3B/DMrnfnJ4lcP9MUhMsDWY
sov7Y1DzWV1TxCbuj8GH/slTStZyfwzsvOTdWnHcH4Mz/a1/+Im5PwapD2dU
lPhzfyxO+k9P/cqD+2Nx/8Le3zcu4v5YJMx0suy25f5YSH2LpkdZcn8stILe
53WYcn8sBLbvkhMNuD8W804PftX7N+6PRceVzJKt2twfh2q35rLxH+l53zgO
yYExr8q7yIjDoGcWFkHPyaI4ZPpeWaL1kJwah/L11SNO1ZNVcbiTaWcSdIOs
jsOwa2LdkVVkTRyuNXdt+62E3y/iMfboq2n7Crg/HjYNK9NW5nF/PI4Xxc4y
28P98Vgvcd7cs4X741H/1P/25WTuj4eJ3h69nETuj0dVwCBhYhT3x+O8OqjG
R8T9cqTWBZrPFZL15LD3Cpk+zo23Rw69ObZ3tR3JM+R4+iq+4rUNb58cHwsy
bj6zIHvKse5m5OdPTHl75Zjlt8nvoQFZLkdZx2LrRyN4++XwFVp1NQ8mZ8rR
7f6rZWsvvY+p5Pj0WhP/+jW5WA5l5ZnnA61ktRyDsquvjXxMrpdj0gY33el3
yBo5TII+f7Wkhtwth42X0zOpmixQoM3p8vL0MrKeAnuHjjl19DTZWIFPK+wq
b+STZyjwxOiEfU8OGQo4J3ekmGSQPRWY3XB8gk8aWaRA3YiX0VvWk+UKvDCc
VnBRwe+bChSHZ/W8jSBnKpD3Pt96ZgivX4FOZGxZ48vrV+Bp0vbKChdevwKL
60pvD4DXr8D8gr/3O9vw+hWo6btyO9uC169Auaat5Zkpr1+J4w1pGfMMef1K
uCbWGu3W4/UrYb35nlb7EF6/EmunbwxY1k/vz1Di9xcBpQVvyJ5KaEv9Jwxr
J4uUME3XT0nQkOVK6G8pTHx8j5yqxNStHfOX/ZOcqUT+oKP6Z6+SVUq0nLDw
nFhBLlZi2ImUssxislqJkc/KJdoFLxz+A/4ACeY=
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVlXk4lHsfxkdSKidR0fLWQVIpKSWdcrhTSSnr0FgbM2bsY2acFm3mIMtJ
RxRaRRulPWlDWkTatAhR1vbipCiUXu91ft+u651/5vrMPffzee7nmQddQaiT
qA+Hw5mixOH87/3f1z+WnP9/IX60s8BmpzH7XBVp5yNjv9ydz3gIhDP17L0i
nBgPg6zMQMk02IvxCMStOzBeslLE+D/QCT7T9vfuEMY68Eg9Ym+ZFcZYD7uS
/r7qxQ9nrI+orsaEOjUFYwMYjoyySeqKYjwRk//RixudEMfYEDHPkyqqK7cw
noLLO/rsPtaVxHgqFF49QX4RKYynYaiSafSHuJ2Mp6Om2iizRD+dsQm2cZ5t
STidyXgGuiuOHI09epDxTFw8eOd8gko2Y1Msu+XyoeF2DuNZuCvhH1JXPsXY
DAndByUXvM8wno3Vwb/uSPuey/g3ZKf0D+/TfJ7xHLS9X398gdZlxnPR/Ud5
f7cdhYzNkew6PZVjdpXx79APzJ7JW3adsQVmlfAv79lazNgSHZYHWj8plTIG
+t6Yq+W6v+xfVgC1Qm6Blfwuy+fh+CvR9x+zy1k+DxbWVTpHyx+w3AqzDOs0
KiIesdwKv1/XM+lYWMHy+dBITz/noFfJ8vlQv7HuSsfQapYvgNjxlFvpyBqW
L0DxowdJfJNnLF8Ik0ZvazPPOpYvRJ9285p7ZfUst4ba4n6Rji0NLLfGW7lu
6j7tJpYvwvgfPTOzFjazfBEmi3QE1qtfsNwGs597DOLmvGS5DUbPTFQ5XP+K
5YuhI5xjoqr1huWLsTTp/XabJW9ZvgQWycOjzNe/Y/kSDN42L+Di0fcst4Wa
cl73kccfWG4Lk356Bd+/trB8Kd7mnZa7DWLPnWIpxv9x+6o0lZ7DZXigaRbL
G/OR5cswrSV90sl9jDl2EAzIWDt6TBvL7cA/oXbRJYUxxx62K1Ws9VQ/sdwe
Yc2JHPuVjDkO6Lo53CmvljEccFVwXNfC4jP7vgO266+fX72TcZED4g6NKYpu
ZcxxRN0tjwYby3bWd0SK7QuRWTxjhSNaQnwfB95lXOSI00Wpq1TUOljfCb6q
TVdnLmQMJxjebLM0DGescELXuKeeo7IZFzlhQ4Nlk8VD6jvjx8YMTvUX6jvD
JLV799SRX1jfGZoHTBYqZjEucoZzwHBrTQfGHC4ydDdxp4gZg4svM/qYaIVT
n4szTxofacRTn4uE2/LJPqnUd8GQxkA360zqu8D3wfcEzlHqu+CG5sB9d05R
3wUmroLXTeeo74q2SN7IjRep74rrGZF7bl2mviuMHncXfMynvitevTw6Ub+A
+svRd7N5cwzlWI4JO+XZ5j/7y9Hyyt5URMcvWo5HL5vSxp6nPg93vx6sis6l
Pg+D0+4V55ymPg+ZqaWvDp6gPg8lfsvVInOo74auso9rnLOp7wZ/ha5x8UHq
u+F6m5nBELo+RW6Izt4X77GX+u44N6v/yus7qe+O97oHOlzp+ircEewww2vs
Nuq7wyHllO2vW6nvAVX75heeW6jvgeL8i06Vf1HfA76JRzQS46jvgc+Rtr6b
YqjvifKHGutzo6nvCcs/Hg7+TxT1PXHofu6eS39S3xNCmz/TEhXU90I/N5vh
qRHU98KVeSG1ZRup74Xa7XPjpxAXeYHH+3365Q3U94Z7v1XcMGJ4I7tmSZkz
scIbNkqPv7oTF3ljIvebT+zP/gpskC+ZU/mzvwKF2bbrF//0r8AI1w3NtT/9
K3B2YdnbRDpfDh8jnvJW8mmPDh+XJFoxtrQXfEj8jpx0jGTM5yOiJHm//Of1
4eOi+7hFOXT9MviIPlh6v3sT+fhQNFgvFcUyrudjde4V92a6HxwflJR0GIXT
/dLxAefzyTC9BPL7wHqsUZ86ur98H5x7WsA7nkh+H2z5TWdXQhL5fRDhvtNp
48/fiw9SjJuLFSnk90FBCNcuOY38AiiU7Q6cpt+fTi9rnyuu201+ATQLc2eN
Sie/AAbV41R8MsgvwNrz+Zfy9pNfAIfOy43ah8gvQNag+JtRWeQXINpIg9d5
hPxC9Dmsfm3NMfILMWyBvbnSSfILEdexWZBMzyNf2Ht/7FYY0fOqEOKdVabV
/TzyC7FxrV1O+M/nXYimgHPpk+nvQ70QsR+GazcWkt8Xah46M9Kvkt8Xq/gm
hfwb5PfFUVnj6okl5PfFle26ru23yO+LW+/cIkvvkN8X95v0G9Pvk98X388r
ha55SH5fbDj2yZ1bQX4RDMofh8+oIr8IvL52D4fXkF+E4kFjhV3PyC/CKA/e
lcZ68ovgeP+88F4T+UVQdhk2Of8l+UXYzdsgzHlDfhFy1tVV73pPfjHe2/fj
b2klvxivuZtm/NlGfjH6vy0UrmwnvxjVpcmPgr6SX4wG7pcoQTf5xagv72fM
6yG/GLgtGLZM6Svzi9Ek1h5l1Zcxxw/dhpqtpv0Z6/gh39z89YSBjOGH1MWv
Kkb9wpjvh/roWR6DhjBW+CFAvWZEpybjDD+Ue8cYvBrOuMgP5qYqeytGkN8P
FatC1l0bTX5/HG7pOXF8LPn9MWPiuqo0XfL7Y/6AftkKffL7I0qUIfCbQH5/
ZAeuWLvEkPz+CI/J3GJoRH5/xFmp1qhOI78/CpMndDabkD8AwdoavxSakj8A
Z0vnt2+fTf4A7O4ysvOfS/4ADLafEz7bgvwBqHDK6uo/j/wB2KzeYvF4PvkD
wDVY/nCPNfkD4PbUJ1OwmPyBSBW6rh+3lPyB0G5X/1hnR/5AjNAQ9ux0JH8g
1LJaXR255A9Egdyzqu9y8gfidUjbk1w38gfiycAli4Se5A9EzwFH419WkD8I
+cYXH571IX8Qjt7lB7v4kj8II+w/vmwTkz8Ikz7syUsIIH8QPr9U+V03mPxB
uNAz6XSuhPxB4O38a52VjPxBODd62oXbYeQPRk3Ja1+HVeQPRn+9d4JHa8gf
jCzVK5mO68gfjKg2M7U7G8gfDGNDY2MrBfmDYe0rbj0TSf5g8Aam5o7ZRP5g
dEqGmUTHkj8EA+POOr6OJ38IuGJXK5sE8oegLTE0+ODf5A8Bz65g4fet5A/B
3LWXlzluI38IbjpXp+xNIX8IxG3c3Bdp5A+B8l9HDCbtIr8EJjMF3wL2kF+C
a+339xxOJ78E4rwzHc8yyC9BjOxz3yEHyC/Bog4VQ4tD5JdgcOzzSwFZ5JfA
StNuW9IR8ktQu1Kl+2wO+UOhuVvL6cFx8odi6iM36ZuT5A/FlYZhat9Okz8U
h/u+WzEgl/yhmLjj2pqheeQPhWvD7caRF8gfCquJUpPRl8jfe7zDMU7a+eSX
wsH43fjBhYyHSKF1svgqp4jOR4q7qkHylquMp0kxVV6bX3Wdzk+KHQaX9IuK
GTtIcSK1TGt/CZ2vFLkprg0RtxhLpVD1kuS63abz7+2fq26ccpfxVil6Pj2e
9+0e7ZHCuvNNSEk541NSIDc9LvEh7ZMiNH6ButNjxuVS5C+ZO0njCe2Vov5w
rdadSsb/SHFH132zopr2y5C9LpY7tYb2yxARdu1FZS3tl+FCcque4jntl+FR
5t4s/XraL0PVvVHW1xtovwxjLZ+YejfRfhnijrWmfWqm/TLUVpkNiHpJ+2Ww
6LcmVv017Zdh327Bvl1vaL8MTja7pv/6jvb3nk9YlkP6e9ovw947or0jW2i/
DPEpBuKtrbS/9/vdGuHKH2m/rPf/U2NMWBvtl8M5ZJrZ80+0X472t2tsF7TT
fjmmDz1QmdVB++VIzlA3UPlK++VYK6ks9e6k/XJwTzZNz+ui/XIobPqeUf1G
++Vw36sU5vKd9ssxO0JZd08P7ZejY5VE8vwH7ZejQsWxcIxSJ9vfe/zfbPfz
+jAu6j2e9qoNScqdlv8FDFAIzw==
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxV13lUzfkfx/FrySRpIhKiYhATlbQYS6+0S/u+37q35bbde6NlSHNTlik1
UVPIkhASUmnwk26TiJ8S2Uq4SkRKWbNM8+t35vP+nfPrH+fRu1dP33vO1zm0
goUuISM5HI7OCA7nv3/+89Vvyvn/L/T712qXv9Rn35fHns/H8ucus2JWRvjG
c2oDBW7MkxC6VbvU1IbLrAbfg7Xc/fvCmNVR1/Wn0c9GImZNcHddahsvjGOe
Bc+V418F5Wxg/gHlRz9XavNSmOfCat4b66u/b2bWxu24zSdEcenMC8Dt3Dzl
pWI2sw6qDgcEtNrnMC9CjNHbQadx+cx6iJmY3/jCrYBZH+0mcX86qBcyL0Z8
r+Tdsc4iZgPIWj/4JY4tZl6CbYvHvTbMO85siJhtfS2bck4yG8HuglHKZLkz
zMbQuamn1ZhSwWwC6wQDv3KLKualGNsgaJrncp75JygFGq5PPXWReRniuRre
TxZJmZfjWb5MdE3/T+YVyHLU8TwTdJl5JUpbFT731VxhNgX3zqrWbPtrzMDb
kiNj4sfd+McSILW9/eng5yZ2N0NSVVDgXsVb7G6GjQ0/GoRU3mb3VUiSdqkN
rL3D7qtQNFn/ze+r77G7OWarzImIM37A7ua4coufkry0jd0t8OrUIdcox3Z2
t8DgQev7ZQmP2d0S5Wv7H9t7ydjdEqMlEdN/THrK7laYq69XH1Tcwe5WWL3+
06LWu53sbo2z107ERY7tYndrpNdNaewwfc7uNuAdtTg+KvEFu9ug5uwcm5yy
bna3xSiNqa723S/Z3Rbde8akD8zoYffVUP8k9bB1es3uqzH3d7WVGsm97G6H
DAH3ukdxH7vb4bqWuWXr1Tfsvgbl/kbiZhF77yRrsPaLzq/Bn+k9tIea6Pwk
440D7G4P/w+vvvR+ZeY4oC0zTU8v7i27O+DqslOy893MHEf4P9s/x83jHbs7
wr0n7cOtamaOEz5+aMlX0Xj/j+EEowmfA+TWM0ucID9x94qDTczS4Z+Xt9vX
o/6B7Z0R5+W44z2fGc6oMpDW3y1mljjj1Ayr2jMdzFJnNH/5drlc7SPbuyDL
6kylki0zXND+tvLb0FpmiQscyj751uxmlrpAd9uT+9kXaO+Kqq4Tihfv0d4V
BVuCNLL6aO8K+0dHufYjP7G9K0q8FJ6ZT2TmuEHhfLRWzUxmDHtZ8kxFbWaJ
G6oeF3WJFtHeDfy0BY4Gi2nvji+3vVfsNqC9O9ZeEyh30V3iDtfW6mgPPdoP
2zDiq7YO7T0wWSj8NW8u7T2Qed9e1KRBew9kz66+/G0K7T3Q8Mw2y+l72nti
U9oF83452nviqbDh8dBXen5PCOv+wN4B+vw88bOK/MHnz+nz88Ixuay5Xx7S
5+cFjsXQ/ZfNtPdCUVn7tiv1tPfCTNuW0wf/9/l7I7tuvmnGadp7I3Ha5kNa
h2nvjUV5xQ7Fu2jvjUvjbudbZNLeB1xuUdi0TbT3wcSW8WlGCbT3QXdGmG5h
FO194LZoXb9vMO19IXokrIv0or0vclr9fm1yoL0vmlbduZ1qSXtfGDpqYfty
2vsha7RxpsyA9n7gVMrkJD/S3g8m2i8Ohc+mvR/k+k237J5Oe3/sCnaUKU6i
vT8arF58vKRIe3/4nw03OCVHe38YNRsfaxui9ycALqrXbTBI708AzDdo1D0a
oPcnAGMyb5ie6aH3JwArzTW+O99F+0DotY8Z++4J7QPxYF2EWkAb7QNx0iux
evAO7QPB183Sr71Jey70klconL3OrMnFQ9UJsuZ6+n1cJGt48ybXMnO5UP1N
U2/TRfr9XCy5MKJC5RxzIRevxXfnXK+gHheJy2zKik8zy7hQLFAJOHKC+kEY
mWHGu3KU+kHYmTxTV/4w9Yd91IgnKKR+EG5EJaJ7L/WDcDHvYX3qbuoHobio
9uSKPOoHoX7ocqdKDvWDEMLrTBydTf1g7NjZ+mZ8JvWDYWPtHKafTv1gjLAc
eB+5lfrBWMeLOlKdRv1gqO1VcZi/ifrBsDN59LDkF+oH49jAm3izjdQPRtuT
B50966nPQ3KCmn1JIvV5OD97e+2GeOrzECXfUBe4jvo8DMmadnvGUp8HZfWZ
LYEi6vPgq9Btvj6G+jzk2nefOxJFfR7OiBoqHkdQn4+MJxLJXAH1+Zg+9fCX
jWHU5yPBsaawM4T6fCxR9fb1pH/vJXyI+1ZEtwVTn49l6t6GgiDq8/FN/bvS
UVzq8zFG0frpsQDqh0Btx2Cttz/1Q1C5YKWVqh/1QyB2OWnyyIf6Ibh3aIF3
mTf1Q4DXlwazvKgfgiChc1WCJ/WHf1/ckmqBB/VDMPpB+HGeO/VDYTvC7VS4
G/VDodQhPB3vSv1QdGu9/227C/VDkXnkRUypM/VDIZ1p8qbFifqh0G8q3jWC
LA1Fn934s4aO1A/FkvtmFmIH6ofhjqHfH+X21A+D1sS3Vp/XUD8MdVs7Z9mQ
uWHY03DUt8CO+mEY0gnd+nY19cMgnOy9wJksDYPUzNb8D1vqh0G3yVg8i8wJ
h2ZRxq6dNtQPR+2q78PlyQjHLt0l8anW1A9H3vHfOkaSJeHo66vrSLOifjjW
uJboKpCl4chunLko15L64Vg3I9dtFpkjwPxit30VFtQXoFlj+982ZAjAD4x4
IDOnvgAJNy1zN5AlAlQ9+TJGnVwoQM77gz/UrKK+AM9Vp4fyyTIB3s0wuKdI
5kTg+t+5r8+aUT8CSl85zlwyIiAynWqpROZGwHn1Xz41oH4Edv7LxySWXBgB
dfcbxvPI0giUKd/cJjOlfgTSbsqf3kPmRCIzsXSGJ1kzcvj/UxeuqJARiXVa
P52/tZL6kTgU+VG8gyyJRNPGpUrO5MJITHv7wWcyWRqJreNzvz5YQf1I/JRy
b/k+MicKmbdypwSTNaMgCHz37wVkROG7Kwo175ZTPwrxCyu+VZMlUbDbnDK4
jVwYhdY74yJdydIoBCoLStTJsihIlfaXPF9G/Wj0tgszKsia0Rj/1yjNFDKi
YdX78L4jmRsNHf69hZpkSTTaFcsC+n+ifjRKPXdMriZLo1GYcm5jOlkWjWnW
I955kjkxmOj3rm4eWTMGrxrWyg0upX4M0kN1fr5K5g7//LZn0/LIkhjAsycp
hFwYg9yujEnGZGkM0pKKNo4ly2IgV997vs2E+kJkJCQvP0HWFML6SfO99WQI
8SWrx8CWzBWiY7dNnipZIkRa1Q2HLmPqC3FaJ6SukiwV4txCH5tUskyIzBmF
9U5kjgi6qQpTZ5CVRdg5amXSSyP6+4igsf2C6lmyngirWmz2p5AhQuIEfp4j
2UmEqZ+e/zWdzBXhXr6NZ7chs0iErLt3myvJEhEu1XS4J5OzRSid0rrQhlwo
wiTB/AcTyGUiXH24Jbd9CT2fCF1J+XFHyM0idPtN+xBDlong21A+34TcL0KS
hrtwyICeX4yRX0v31JKVxVBK2/JLGllTjEM92l6ryXpiNIUutFImQ4wanxtX
WhbT84tx+cCpiHwyV4x0ccFob7JIjE0f/earkSViXHdWsnqgT88vRuPsrjEF
5EIxSnq9E33IZWJ8M019PoUsFSNksYfuXT16fjEW1j7esIMsE6PTWnbGntwv
hvzaTVkKZE4sGqMLPOp16flj0ZGW1ptM1ozFhY6Kk0vJerFotQi2HVhEzx8L
lX3pF4+RnWJhkpB4IIjMjUVU2eJGNbIoFrP2TvVsXEjPH4v9ByQvksnZsXiW
4xGnSy6MRcCNjnSZDj1/LCZ+3xSbTZbGQs30gMxs2P8BFkLeGg==
      "]]}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], Thickness[Large], 
     LineBox[CompressedData["
1:eJxdWHd8jOkWHnWVRVhtFz+jLlaJ3uUhStREpEiTyUx6Jpni6m1yrd6iX9Yy
V++ib6IN1yLXsliuuozVSwirrl32ez/P+cP1j9+Z873v6c953tQy24ITChsM
hsaFDAb1/8d/BX7LVtbJ+XPKGT/+gOk1LU8iux2kXALnDNcLl5x+6NBH2QcF
k/JCDq/fRbkiVts7l7q4yk25KlZ0anx+6d1ZlKsjbekIzUQe7zPi9e24f/+v
1XHKtTFlXfh/Wxzdzu/r4njuD7OKF6ylvj4Cgv6sOvTiPOob4KcJAYfG1VhP
uRHqLv6QNf7dRsqNEfvZ6S8HXplBuSl8931drvTuY7zPF3NuP695znaRcnNc
7jxq8PrWZym3QNi4rXvMEzZQbomaL6zaT+JPK3geL9cizKXcmvb2UW4Dv/Co
7Ycen6bcFg/2bityb+YPlNvh5uiKW3vd3Ei5PZplrCq0v5iZcgec3vjzhbDH
hyh3RGR8xxuBs8TfTujd9EOtv16todwZS/Ytyio3Wux1Yf4lHj+5j/kAHtRv
XmJz9dyPsguo1uzXusUzF/L7rhhWeGmJastZf1dXON+W00I4SX03mO6cqX31
7Tnqu6HIyNJ1G4y/RL0/hnuXlV9z4DL1/li043PH5hk3qO+OHK26lQOuUd8d
xStU9Dt2jd8bekATdn87lve5eiCuRahvow1Xqe+Jaz2VRS/1PWHs+szyU4zo
e2H1jYNll7W8Qn0vvE/QO476AKwbdbxhh3n0xxUAn8Htd50YzvsMvTE3f6xf
6yF3qe+NLSnXHdNn36e+D/vvNvV9cLtijbw7fqLvi+qPfmvzlecR9X1Rumc9
LaXPqO+HJY2qLjxfsoD6fsgs+uOc5iNE3x+buqgGekF9f9S2jhy9pjFlwwC8
ahA958jLx9QPgJ6uM/eoD0SyfuAJ9YHQyzNT7g/C0IsVnnf9+fePMoIw1RKj
pfQ5vw/CHTWeT/m9JwhP8/7TbUsKvzcMxKOhuyu9O8nvMRC1sp3Jc/Pl/ECU
1AGE9j0DcWXzH9HpP9JfQzDeadL7HYwfwcyvxBuMS5lDey549ZLng6G8z0kT
/wchJPhr97RsOT8IDfPLHPRdIucHodLMPg+LtnrF84NQXgcU+mcIwYnPOn8X
uoL3IQS716qGkPMhuFdj3f2ApnI+BO/9/8h/5JH8hyL8cTMNUSR/obi4SgGg
xB+KC/dSv3m1WPIXigcBamDpryEMjmplvE2yeD/CkLnQf4b1HmVXGPFU8heG
VuXbdDoQTNkQDiUtqiX5D0fTLPeb5ndpzxUOo4LvLnI+HHr7lRD7gxF6eP1q
rYt4fjDGad2e2/s1zw9Gv7WltCO83zMYHe2np567LucjkNQ9xVYwSfIXgfq3
Jy4/tfEpz0fApcajHfvfE4GpkyJ/2X9L6h+J6/OnaL9QRiRye39e+JspMg+R
0OFuMfWeSPbrQ56PYr9I/aNw4JYaQDkfhdfFY//Vr5LEHwVrybfupJ2Sv2ji
v5yPhp6OLzg/rmjEqPYcI/ajobZPhecSfwz95X2IQeH9xTQEk3mMQZXLp18P
uvWA52OIB5QNQ1BEHxA5PwQqW0ndBS+GoLTekLTnGYIvi4aVbbJD+jcWNn0B
Mx+IRaI+wOJ/LBR6D2mYz/OxmHbuurf0fJlfE9S2O9WR9xlNONy+Tp8xE2kf
JhTXG5L1NJk+7V+XCWUDty1ImEq924SVPfb8/td5yZcJersuYn94Tdin1nll
qX8c8ZX+G+PQYkSTWjVfSD/EMb88b4pD/UHFVs3rIP0Vh6zm6gDz547Dw4Vq
wUi+4nBfjd+vjNcbB7WNl3eS+pmRWf/I5HXhPG80o+FJHw0hZJ7N6KUvNObH
ZP6//jSjztW341P3Ew/cZig0fJJH2WP+tH+8Zu5Tid+CnWodXuV9Rgvxm/WC
BdO6qg1L2WTBik1bLsUOl/m2QG2rgyvor9uCQv2/LRO4Texb8GHHmOfZQcRP
r4V4LPgZjyb+qiOl/vHYa56gUSCeRzwuFbzoEzGZ/pnisXJX2zdH4mWfxKPK
3rMaI+T97niobrDEiP146Ou4r9Q/nvtb7CdAebsgQeJPwPG+bbWQJf8J2KNl
Y2eE9F8CVHdYwyT+BOz4/um6Y33pvzuB8yT2E1BOHyDqvQnkX9L/ibh2US0Y
ysZE4oP0XyJmD1MIzXk1JZIfiP1ExOoNI/EnMn7By0RMSN3/j/lVGZ83Edpw
Neu3VuJPQsitNd8dNfK8MYnzKHiahF0RL3OuTJf+S0Kaauf5sp+SoNO/YfTX
nQSz7iDnyZOE9j16aZSN+fMmofXTdtovYj8ZX2homniBemMy8hWdXSr7JBkD
zs6Nfu9Pe6Zk8n/Zb8kYrejTSfanOxna8tUYjeBtMlx78c/fjkv/J6NAq1bb
aYJ/KVDb9UMtysYU4rXYTyH/YX1MKdDpj7/MXwr0chyk7E7B3HKj22zqwng8
KchopTwQ+ymcH/prSMUv/VXGpP9ToQ2L9kQRPE2FV9HHleRzplSoaU02SPyp
+MoTpVFOmb9Uzp/s+1So10C1sdL/qVBsrUE0/TOksZ6S/zTU0wFX6p+Glvo/
qX8a+0v2SxoqKbq5WvA3jf7SH08aNLCqfPm01D+N8ZKvGqzQ27EU4zNaodOn
RpJ/K942v7u13m3BXyv051uO5N+K6bPVApX8W6EVRwMUwX8ren/v0hD2Du1b
sVmlP1D4cTpG6Q8Qmf90aMXXGJvsw3RojxPtycN9ZErnfEv+06HTjzz6506H
3h7Vac+TDvWaqlCR+9CbDo18aASB9xkyiJ9iPwPtdEIj8WcQnyT+DDxR6yqX
/erKwLKjRo3xSv4zOC/CVzOgqh/XQvAng/tA+IcN15INtsyivN9o43tG8M8G
nX4VFvy1QSOH7zY8Y3+6bHw/SPw2qGpNXC77z0Y8Yb69NuID3zMGO/c9/fex
Q7FR9xvmx2hnfZk/Xzt0uMrmfbBz3mkvyM73D+Mz2aG3V0/q7Xbo6QiV/rHj
aDfF4BhPlh2zGqgOFDyxf/reybbzfSv4aie/4X1n7KiurveVebMTb1iPAjtG
6n/gEP7kgE7P1rCePg7oz9XDgkeOT/mirwMK/WpapD4OVNUJCe8LcmDY/Koa
Q5N5dUCne1GMz+7A9psPNIYi/MwBrXjaE43zkuXAZPXnlNUyTw44FP23sz7Z
DgTrAyXz5cC8aPUiYb7OOD7FB68DTx55tAozngIH3xPCP5zcP5R9nDh4uIoW
Ef0zOjFJrd+XtO/rJD8WfuKEyv5JH8pBTmxT7XdK5sUJvRyNmC+7EyqbD4cK
v3VCpwcnaC/Lyfe08DknwnTAppztJP8TPuuE/pzNyff7GwOU6uI=
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 300}, {-0.5, 3}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.810310126190897*^9, 3.8103102307552805`*^9, 3.8103104968873124`*^9, 
   3.8103108400378027`*^9, 3.810311136374346*^9, {3.8103117878770947`*^9, 
   3.810311795511711*^9}, {3.810364548800211*^9, 3.8103645634791546`*^9}, 
   3.8103685842417727`*^9, 3.810368846589282*^9, 3.8103689693896255`*^9, 
   3.810371178318118*^9, 3.810959773603524*^9},
 CellLabel->
  "Out[938]=",ExpressionUUID->"5b1b8e4f-cda1-4e2a-ae02-42764a2218d0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tempB1", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CCFund1summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "6"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "12"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"dataB1Nor2", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "300"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "3"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Orange", ",", "Blue", ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.81109330280968*^9, 3.811093334589757*^9}, {
  3.811093376739485*^9, 3.8110933775996814`*^9}},
 CellLabel->
  "In[1211]:=",ExpressionUUID->"26631207-351d-4d68-8bb7-b3d58873445a"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {RGBColor[1, 0.5, 0], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVl3lcjHsbxkf2JUWcU1JGyHKSSk6FdKWIpNKitGhq2pdpZmwhDAkphGQJ
DcoSCUk50nIoHccSkS3eoUTFUdnJ8Xo/7vuP9/lnPt+5up7v76me33M/Q4Ni
3ULUBAKBUSeB4H+fP49WG8H/H8j/O+jIboNO9H0P9FhlUKEo1iXWxGyt9WNX
yccSD8Cej04H56hNJNaGQfzHXTrH7YkHo+Oxtvmr487EQtw4YZ779awnsQH6
twc/uZfjTzwcvnkhr2cUi4kN0SvD8IJNQQTxKJwYtko/ZJGUeAxqV0Y29K1c
SGyExpYRqUteLCU2xh+2u7+LPq4iNsE70wzf0OQEYlNcWt7TyqVgPbEZrol6
LmhOSSEej4aB5dIara3E5shasPrKEuc04glQ23rE/azaLuLfIVGzu3jdei+x
BUw9Uhqq1imJLYGSm5VTcIjYChO87zx85HaYeCLGTvpu41V5jHgSqtyXhiQf
zCWejJ1zN4/M/XiK2BqGT5NCXHzyiadgZm2tX59vBcQ26Hs3cH9mfRExoG0S
0LajX/FPVgBTsWac08ZSym2RKl/oE360nHJbrOx7z+Ft/iXKp8Kw0Lr1/csK
yqeis/U1YdSMKsrtUHRkf6NmzVXK7bBA9/2fYUnXKbdH5sT49PsTqim3x+PQ
daUfim9RPg3rO53Ubp5XQ/k0iIUXj8X0uUv5dBgdNbEdfKeW8unwsrjqGX3q
PuUOkNm8P1mgfEi5Ayq0/VeaZdVRPgM73IpOfD//hPIZsNv42SxVqqJ8JnRG
/X0XKU8pnwkNj3XF8XnPKHeE3o7BOdkP6il3RE4Xsw8Dez2nfBauH69fLEQj
5bPQ7jFIMmD5C8qdMMRqg2zyHy8pd8Lp+tJ4VUcT5bPhqJebM2NqC+WzIXax
aCxOekW5M3ZrWG1bd/s15c4wOjCorFX3DeUu2LXxYV22Gd3XChe81BQEfKjl
+9wVzR2dv6cva/vJcIXJgK9alnrt9POu8F6aLttUQlzmilkDAjqc57+l/hxU
+pZnWnYQYw6CVopLeu16R/056Jq70WKj6Xvqz0H91QeJiipigRtkS9yqLvh9
oL4bngv/idP4h1jhhvN9bLe7x3+kvhskyaPEwd0/Ud8dQdolzwy2EMMdReHf
hy7S+kx9d4QMbxFMTyMuc0fDregdCf2+UN8DVx4edRImE8MD117sed6/01fq
e0DnZvILzwXEZR5wnbw1pfEpscATLSte+FU4dVDfE7nRE/Q+5BMrPKE2UWK2
6tdv1PeE1jW9xIglxIK5CFO2C8tqiDEXagmTHFON/qX+XBQebez3cjVx2Vyc
fzOrubaGWOCF7IHmYonBd+p7Ib1owNqyGGKFFyr+6jlaVUBc5gUd9+xnqi/E
Am9kiVasjtIX4GffGw4to/9osSZWeKPUbMz0r77EZd5YtDPTOyuOWDAPW/3i
PNu2c38elnyuO/oql/vzsHlo8tRdldyfh5u9D08SPOG+D3x8D+uavOO+D445
7tMc37MT9X1QX6Rcr6VHXOYDwTQj2aNxxAJfDLj9eFGaLTF8MabpcbODG/d9
EezxpejfQO77Iu/q0/RyKff9UHhh+4DdK7nvB9F+h7aUZO77oeV3aGbv5L4f
lkwoFjQd5L4/Iup8Rotyue+PA89lXv0Kue+PU47zTDuXcd8fVufm20+u4v58
rKg163HpJvfn41Hc+MX7ark/H3u2NKy4Vcf9+TB70FYT/Iz7AfjQ6fE3vxfc
D8BO77OOpS3cD0DWCO+W1DfcD8DY4ypVbTv3Rcg7oNGx4z2xUITQ6sm1tz/y
+UQ4clqnautnYpEIL28NdLr3hc8vQtQn1YkjX4mVIgyut6vt1sE+EbQupt7+
xLlKhFWTD2evZhYEIsIu+n4Wn08YiDzDXYNC2YdAjJpr/LSK1yMKxN3FTYnV
vF5FIAStvtaKt+wPRN8Fa40etbI/EBVdRqY3vGZ/IIw1U4Izm9kfhLnynNC+
/PsTBqGtxy4v83r2B+G95kv1Af9hfxBs9nR0OvWQ/UFINrpY1Yv/XsogNC51
EY68xf4gaLZaWna/xv4gLDu/0T+3kv1inFv9qVy3nP1imO0zzPS4wH4xHvq1
9PIpYL8Y/7T362+cx37xj/17Xu3to+wXIyNgSn9H/v8sE2Otee2NHRnsF8Ny
W/idwjT2B0MxpPzY6U3sD8bUBnfdxHXsD4bD21Mvx69ifzAishP2lC5hfzAS
fasvj+b7SRkM/fh09YXh7A9GUpv2mUwR+4Mh9BHon/Rmfwj8blcrla7sD4Fz
mPuhuBnsD8HNkreLLcD+ECQ4mjo9sWB/CIboWCZIeD9QhiCl+p1jkyH7Q5A/
Pa3IRZ/9IbDR7Prk4ED2h8LvclVBfR/2h0LyKCtFqwv7Q6GzSc9x/Ffan0Sh
OHb52X27dt7fQvGgJNF3ehOxMhRmg6wyJql4vwuFXG4bOPwesSoUa3pYbO50
g/e/MGReO6Z+5zKxMAxv8C1t7wXeD8MQssWnzvcM+8Ow4T/5jf2PsT8MupfG
GP2Zyf4wxFXLPCPT2R8GD8u/vfpsYn8Y3j6f/OpoAvvDoaH+JA3L2B+Oui9X
22uk7A/HSnG/fHEY+8MRX9ge2erP/nB4ZC/NXObB/nDM0Qw5rzaL/eG4Gxs/
M8mW/eFYM3/Ym76W7I9Aitna4WnG7I/AwO3d3XVGsD8C55+c6Zqpy/4IjHQq
3TqiP/sjoNYUGp3bg/0RuHxIslzyLz/vIpBXZxS3roVYFYGMojLFofv8/ItE
6vYTKysriIWRmHLA68qbM/w8jUR++yBtoZJYFIm0WLNF3pv4+RqJhtNv1uxe
RqyMhNLM7mx9GPsjoba76xkLT/ZHonz9zAXpU9kfBfMhqeoCE/ZHoevXK1ik
x/4oXNybiw+92B+FrIySEwmfeD6IgouzlZZ+I7EyCoHq3/ZW8HxQFoXwFzrx
y8uJVVGwvzve1yaP54dorBKNuNJvH7EwGmvfndd7u5EY0ThzI8KhIY5YFI3L
TbJhz0PZH42O70YmHzzYHw3tCX+d/NWO/dFAZEThTFP2R2P5hbyolCHsj0Fg
XIOHSp39MehievKX6R08D8Wg2Hn2yYvNxKIYNGVaSh0eECtiEFD57mz9FWLl
j9z51qJt53jeioF1RdQc92xiVQz6xSZ0G5nG85cE1h3Lc9UTiIUSmB5Jr+0u
Z78EhRseSgcGsl+C9k+Jst9d2S9BgMumt5E27JfAp2WMZ74x+yUY+af5dw19
9kuwWb/3K4U6+2NhsM2rues3mheFsYjcWa6b+YrnyVjkWM9KcqojFsXC9YjS
tO81ni9jccpVOKrhArEyFrrd2h7dOE5cFov1rhKPGxnEqliUfH0f+CyZWCCF
3Htct97xxJrSH/tJ3JQZ0bweKXKMx9ju8SM2kcLF5sF7wWxenxTipGE58dbE
rlKoOT/YoG7M65WiwtLLMF+fWCpFa9DMCzEavH4pvuyx97QWEKdKYWvwQD60
jeZrpRT2+2+uH/SM+JQUg2NWrx1Vw/O4FPV5k5SzLhNXS/Gx9l5oQgGxSgq3
cX6m1YeJW3/0f8l/bLqL53cZYhsd248kEWvKsEW2yN5sObFQBpGv12+3oolN
ZLiy555x4nxiyDC3/Pir2a7ErjLcV9xsGzOVWCTDiHEjtww2J5bKYFUwM8DA
kN8vZMhbV2k6WZs4VYbXlW7LI3vx9cuQM7x0Q24HvZ+cksFIt3tYlzfEZTIk
uRwdGvuUuFqGjPu/tryuIVbJkGulsU1RSdwqQ0mvwlEjz/P7jxzd3G9fenqc
WFMO29f3nuftJxbKMXpc/+1btxKbyNE8zWvQ+rX8viTHlvIFxVuWELvKIUip
u348klj0oz9v9LpH/sRSOdYUnfPVn0OskGOi3u3OC+2JU+VQ14+yq7MgVspx
bUyprddvfP1ylLf1Hv1cn69fjtNnR2Ql9v9i81/ugJnL
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxV13lUzfkfx/FrySRpIhKiYhATlbQYS6+0S/u+37q35bbde6NlSHNTlik1
UVPIkhASUmnwk26TiJ8S2Uq4SkRKWbNM8+t35vP+nfPrH+fRu1dP33vO1zm0
goUuISM5HI7OCA7nv3/+89Vvyvn/L/T712qXv9Rn35fHns/H8ucus2JWRvjG
c2oDBW7MkxC6VbvU1IbLrAbfg7Xc/fvCmNVR1/Wn0c9GImZNcHddahsvjGOe
Bc+V418F5Wxg/gHlRz9XavNSmOfCat4b66u/b2bWxu24zSdEcenMC8Dt3Dzl
pWI2sw6qDgcEtNrnMC9CjNHbQadx+cx6iJmY3/jCrYBZH+0mcX86qBcyL0Z8
r+Tdsc4iZgPIWj/4JY4tZl6CbYvHvTbMO85siJhtfS2bck4yG8HuglHKZLkz
zMbQuamn1ZhSwWwC6wQDv3KLKualGNsgaJrncp75JygFGq5PPXWReRniuRre
TxZJmZfjWb5MdE3/T+YVyHLU8TwTdJl5JUpbFT731VxhNgX3zqrWbPtrzMDb
kiNj4sfd+McSILW9/eng5yZ2N0NSVVDgXsVb7G6GjQ0/GoRU3mb3VUiSdqkN
rL3D7qtQNFn/ze+r77G7OWarzImIM37A7ua4coufkry0jd0t8OrUIdcox3Z2
t8DgQev7ZQmP2d0S5Wv7H9t7ydjdEqMlEdN/THrK7laYq69XH1Tcwe5WWL3+
06LWu53sbo2z107ERY7tYndrpNdNaewwfc7uNuAdtTg+KvEFu9ug5uwcm5yy
bna3xSiNqa723S/Z3Rbde8akD8zoYffVUP8k9bB1es3uqzH3d7WVGsm97G6H
DAH3ukdxH7vb4bqWuWXr1Tfsvgbl/kbiZhF77yRrsPaLzq/Bn+k9tIea6Pwk
440D7G4P/w+vvvR+ZeY4oC0zTU8v7i27O+DqslOy893MHEf4P9s/x83jHbs7
wr0n7cOtamaOEz5+aMlX0Xj/j+EEowmfA+TWM0ucID9x94qDTczS4Z+Xt9vX
o/6B7Z0R5+W44z2fGc6oMpDW3y1mljjj1Ayr2jMdzFJnNH/5drlc7SPbuyDL
6kylki0zXND+tvLb0FpmiQscyj751uxmlrpAd9uT+9kXaO+Kqq4Tihfv0d4V
BVuCNLL6aO8K+0dHufYjP7G9K0q8FJ6ZT2TmuEHhfLRWzUxmDHtZ8kxFbWaJ
G6oeF3WJFtHeDfy0BY4Gi2nvji+3vVfsNqC9O9ZeEyh30V3iDtfW6mgPPdoP
2zDiq7YO7T0wWSj8NW8u7T2Qed9e1KRBew9kz66+/G0K7T3Q8Mw2y+l72nti
U9oF83452nviqbDh8dBXen5PCOv+wN4B+vw88bOK/MHnz+nz88Ixuay5Xx7S
5+cFjsXQ/ZfNtPdCUVn7tiv1tPfCTNuW0wf/9/l7I7tuvmnGadp7I3Ha5kNa
h2nvjUV5xQ7Fu2jvjUvjbudbZNLeB1xuUdi0TbT3wcSW8WlGCbT3QXdGmG5h
FO194LZoXb9vMO19IXokrIv0or0vclr9fm1yoL0vmlbduZ1qSXtfGDpqYfty
2vsha7RxpsyA9n7gVMrkJD/S3g8m2i8Ohc+mvR/k+k237J5Oe3/sCnaUKU6i
vT8arF58vKRIe3/4nw03OCVHe38YNRsfaxui9ycALqrXbTBI708AzDdo1D0a
oPcnAGMyb5ie6aH3JwArzTW+O99F+0DotY8Z++4J7QPxYF2EWkAb7QNx0iux
evAO7QPB183Sr71Jey70klconL3OrMnFQ9UJsuZ6+n1cJGt48ybXMnO5UP1N
U2/TRfr9XCy5MKJC5RxzIRevxXfnXK+gHheJy2zKik8zy7hQLFAJOHKC+kEY
mWHGu3KU+kHYmTxTV/4w9Yd91IgnKKR+EG5EJaJ7L/WDcDHvYX3qbuoHobio
9uSKPOoHoX7ocqdKDvWDEMLrTBydTf1g7NjZ+mZ8JvWDYWPtHKafTv1gjLAc
eB+5lfrBWMeLOlKdRv1gqO1VcZi/ifrBsDN59LDkF+oH49jAm3izjdQPRtuT
B50966nPQ3KCmn1JIvV5OD97e+2GeOrzECXfUBe4jvo8DMmadnvGUp8HZfWZ
LYEi6vPgq9Btvj6G+jzk2nefOxJFfR7OiBoqHkdQn4+MJxLJXAH1+Zg+9fCX
jWHU5yPBsaawM4T6fCxR9fb1pH/vJXyI+1ZEtwVTn49l6t6GgiDq8/FN/bvS
UVzq8zFG0frpsQDqh0Btx2Cttz/1Q1C5YKWVqh/1QyB2OWnyyIf6Ibh3aIF3
mTf1Q4DXlwazvKgfgiChc1WCJ/WHf1/ckmqBB/VDMPpB+HGeO/VDYTvC7VS4
G/VDodQhPB3vSv1QdGu9/227C/VDkXnkRUypM/VDIZ1p8qbFifqh0G8q3jWC
LA1Fn934s4aO1A/FkvtmFmIH6ofhjqHfH+X21A+D1sS3Vp/XUD8MdVs7Z9mQ
uWHY03DUt8CO+mEY0gnd+nY19cMgnOy9wJksDYPUzNb8D1vqh0G3yVg8i8wJ
h2ZRxq6dNtQPR+2q78PlyQjHLt0l8anW1A9H3vHfOkaSJeHo66vrSLOifjjW
uJboKpCl4chunLko15L64Vg3I9dtFpkjwPxit30VFtQXoFlj+982ZAjAD4x4
IDOnvgAJNy1zN5AlAlQ9+TJGnVwoQM77gz/UrKK+AM9Vp4fyyTIB3s0wuKdI
5kTg+t+5r8+aUT8CSl85zlwyIiAynWqpROZGwHn1Xz41oH4Edv7LxySWXBgB
dfcbxvPI0giUKd/cJjOlfgTSbsqf3kPmRCIzsXSGJ1kzcvj/UxeuqJARiXVa
P52/tZL6kTgU+VG8gyyJRNPGpUrO5MJITHv7wWcyWRqJreNzvz5YQf1I/JRy
b/k+MicKmbdypwSTNaMgCHz37wVkROG7Kwo175ZTPwrxCyu+VZMlUbDbnDK4
jVwYhdY74yJdydIoBCoLStTJsihIlfaXPF9G/Wj0tgszKsia0Rj/1yjNFDKi
YdX78L4jmRsNHf69hZpkSTTaFcsC+n+ifjRKPXdMriZLo1GYcm5jOlkWjWnW
I955kjkxmOj3rm4eWTMGrxrWyg0upX4M0kN1fr5K5g7//LZn0/LIkhjAsycp
hFwYg9yujEnGZGkM0pKKNo4ly2IgV997vs2E+kJkJCQvP0HWFML6SfO99WQI
8SWrx8CWzBWiY7dNnipZIkRa1Q2HLmPqC3FaJ6SukiwV4txCH5tUskyIzBmF
9U5kjgi6qQpTZ5CVRdg5amXSSyP6+4igsf2C6lmyngirWmz2p5AhQuIEfp4j
2UmEqZ+e/zWdzBXhXr6NZ7chs0iErLt3myvJEhEu1XS4J5OzRSid0rrQhlwo
wiTB/AcTyGUiXH24Jbd9CT2fCF1J+XFHyM0idPtN+xBDlong21A+34TcL0KS
hrtwyICeX4yRX0v31JKVxVBK2/JLGllTjEM92l6ryXpiNIUutFImQ4wanxtX
WhbT84tx+cCpiHwyV4x0ccFob7JIjE0f/earkSViXHdWsnqgT88vRuPsrjEF
5EIxSnq9E33IZWJ8M019PoUsFSNksYfuXT16fjEW1j7esIMsE6PTWnbGntwv
hvzaTVkKZE4sGqMLPOp16flj0ZGW1ptM1ozFhY6Kk0vJerFotQi2HVhEzx8L
lX3pF4+RnWJhkpB4IIjMjUVU2eJGNbIoFrP2TvVsXEjPH4v9ByQvksnZsXiW
4xGnSy6MRcCNjnSZDj1/LCZ+3xSbTZbGQs30gMxs2P8BFkLeGg==
      "]]}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[1, 120], 0.008333333333333333]], Thickness[Large], 
     LineBox[CompressedData["
1:eJxdWHd8jOkWHnWVRVhtFz+jLlaJ3uUhStREpEiTyUx6Jpni6m1yrd6iX9Yy
V++ib6IN1yLXsliuuozVSwirrl32ez/P+cP1j9+Z873v6c953tQy24ITChsM
hsaFDAb1/8d/BX7LVtbJ+XPKGT/+gOk1LU8iux2kXALnDNcLl5x+6NBH2QcF
k/JCDq/fRbkiVts7l7q4yk25KlZ0anx+6d1ZlKsjbekIzUQe7zPi9e24f/+v
1XHKtTFlXfh/Wxzdzu/r4njuD7OKF6ylvj4Cgv6sOvTiPOob4KcJAYfG1VhP
uRHqLv6QNf7dRsqNEfvZ6S8HXplBuSl8931drvTuY7zPF3NuP695znaRcnNc
7jxq8PrWZym3QNi4rXvMEzZQbomaL6zaT+JPK3geL9cizKXcmvb2UW4Dv/Co
7Ycen6bcFg/2bityb+YPlNvh5uiKW3vd3Ei5PZplrCq0v5iZcgec3vjzhbDH
hyh3RGR8xxuBs8TfTujd9EOtv16todwZS/Ytyio3Wux1Yf4lHj+5j/kAHtRv
XmJz9dyPsguo1uzXusUzF/L7rhhWeGmJastZf1dXON+W00I4SX03mO6cqX31
7Tnqu6HIyNJ1G4y/RL0/hnuXlV9z4DL1/li043PH5hk3qO+OHK26lQOuUd8d
xStU9Dt2jd8bekATdn87lve5eiCuRahvow1Xqe+Jaz2VRS/1PWHs+szyU4zo
e2H1jYNll7W8Qn0vvE/QO476AKwbdbxhh3n0xxUAn8Htd50YzvsMvTE3f6xf
6yF3qe+NLSnXHdNn36e+D/vvNvV9cLtijbw7fqLvi+qPfmvzlecR9X1Rumc9
LaXPqO+HJY2qLjxfsoD6fsgs+uOc5iNE3x+buqgGekF9f9S2jhy9pjFlwwC8
ahA958jLx9QPgJ6uM/eoD0SyfuAJ9YHQyzNT7g/C0IsVnnf9+fePMoIw1RKj
pfQ5vw/CHTWeT/m9JwhP8/7TbUsKvzcMxKOhuyu9O8nvMRC1sp3Jc/Pl/ECU
1AGE9j0DcWXzH9HpP9JfQzDeadL7HYwfwcyvxBuMS5lDey549ZLng6G8z0kT
/wchJPhr97RsOT8IDfPLHPRdIucHodLMPg+LtnrF84NQXgcU+mcIwYnPOn8X
uoL3IQS716qGkPMhuFdj3f2ApnI+BO/9/8h/5JH8hyL8cTMNUSR/obi4SgGg
xB+KC/dSv3m1WPIXigcBamDpryEMjmplvE2yeD/CkLnQf4b1HmVXGPFU8heG
VuXbdDoQTNkQDiUtqiX5D0fTLPeb5ndpzxUOo4LvLnI+HHr7lRD7gxF6eP1q
rYt4fjDGad2e2/s1zw9Gv7WltCO83zMYHe2np567LucjkNQ9xVYwSfIXgfq3
Jy4/tfEpz0fApcajHfvfE4GpkyJ/2X9L6h+J6/OnaL9QRiRye39e+JspMg+R
0OFuMfWeSPbrQ56PYr9I/aNw4JYaQDkfhdfFY//Vr5LEHwVrybfupJ2Sv2ji
v5yPhp6OLzg/rmjEqPYcI/ajobZPhecSfwz95X2IQeH9xTQEk3mMQZXLp18P
uvWA52OIB5QNQ1BEHxA5PwQqW0ndBS+GoLTekLTnGYIvi4aVbbJD+jcWNn0B
Mx+IRaI+wOJ/LBR6D2mYz/OxmHbuurf0fJlfE9S2O9WR9xlNONy+Tp8xE2kf
JhTXG5L1NJk+7V+XCWUDty1ImEq924SVPfb8/td5yZcJersuYn94Tdin1nll
qX8c8ZX+G+PQYkSTWjVfSD/EMb88b4pD/UHFVs3rIP0Vh6zm6gDz547Dw4Vq
wUi+4nBfjd+vjNcbB7WNl3eS+pmRWf/I5HXhPG80o+FJHw0hZJ7N6KUvNObH
ZP6//jSjztW341P3Ew/cZig0fJJH2WP+tH+8Zu5Tid+CnWodXuV9Rgvxm/WC
BdO6qg1L2WTBik1bLsUOl/m2QG2rgyvor9uCQv2/LRO4Texb8GHHmOfZQcRP
r4V4LPgZjyb+qiOl/vHYa56gUSCeRzwuFbzoEzGZ/pnisXJX2zdH4mWfxKPK
3rMaI+T97niobrDEiP146Ou4r9Q/nvtb7CdAebsgQeJPwPG+bbWQJf8J2KNl
Y2eE9F8CVHdYwyT+BOz4/um6Y33pvzuB8yT2E1BOHyDqvQnkX9L/ibh2US0Y
ysZE4oP0XyJmD1MIzXk1JZIfiP1ExOoNI/EnMn7By0RMSN3/j/lVGZ83Edpw
Neu3VuJPQsitNd8dNfK8MYnzKHiahF0RL3OuTJf+S0Kaauf5sp+SoNO/YfTX
nQSz7iDnyZOE9j16aZSN+fMmofXTdtovYj8ZX2homniBemMy8hWdXSr7JBkD
zs6Nfu9Pe6Zk8n/Zb8kYrejTSfanOxna8tUYjeBtMlx78c/fjkv/J6NAq1bb
aYJ/KVDb9UMtysYU4rXYTyH/YX1MKdDpj7/MXwr0chyk7E7B3HKj22zqwng8
KchopTwQ+ymcH/prSMUv/VXGpP9ToQ2L9kQRPE2FV9HHleRzplSoaU02SPyp
+MoTpVFOmb9Uzp/s+1So10C1sdL/qVBsrUE0/TOksZ6S/zTU0wFX6p+Glvo/
qX8a+0v2SxoqKbq5WvA3jf7SH08aNLCqfPm01D+N8ZKvGqzQ27EU4zNaodOn
RpJ/K942v7u13m3BXyv051uO5N+K6bPVApX8W6EVRwMUwX8ren/v0hD2Du1b
sVmlP1D4cTpG6Q8Qmf90aMXXGJvsw3RojxPtycN9ZErnfEv+06HTjzz6506H
3h7Vac+TDvWaqlCR+9CbDo18aASB9xkyiJ9iPwPtdEIj8WcQnyT+DDxR6yqX
/erKwLKjRo3xSv4zOC/CVzOgqh/XQvAng/tA+IcN15INtsyivN9o43tG8M8G
nX4VFvy1QSOH7zY8Y3+6bHw/SPw2qGpNXC77z0Y8Yb69NuID3zMGO/c9/fex
Q7FR9xvmx2hnfZk/Xzt0uMrmfbBz3mkvyM73D+Mz2aG3V0/q7Xbo6QiV/rHj
aDfF4BhPlh2zGqgOFDyxf/reybbzfSv4aie/4X1n7KiurveVebMTb1iPAjtG
6n/gEP7kgE7P1rCePg7oz9XDgkeOT/mirwMK/WpapD4OVNUJCe8LcmDY/Koa
Q5N5dUCne1GMz+7A9psPNIYi/MwBrXjaE43zkuXAZPXnlNUyTw44FP23sz7Z
DgTrAyXz5cC8aPUiYb7OOD7FB68DTx55tAozngIH3xPCP5zcP5R9nDh4uIoW
Ef0zOjFJrd+XtO/rJD8WfuKEyv5JH8pBTmxT7XdK5sUJvRyNmC+7EyqbD4cK
v3VCpwcnaC/Lyfe08DknwnTAppztJP8TPuuE/pzNyff7GwOU6uI=
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 300}, {-0.5, 3}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.8110933358094482`*^9, 3.811093378164249*^9},
 CellLabel->
  "Out[1211]=",ExpressionUUID->"1be2c323-be26-4a7e-b241-572567a2f4c2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tempB3", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"dataB3Nor2", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "300"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Gray", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}], ",", "Red", ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
       RowBox[{"{", 
        RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Blue", ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.81031014172921*^9, 3.8103101419833145`*^9}, {
  3.81031023690829*^9, 3.8103102414594765`*^9}, {3.8103105178964844`*^9, 
  3.8103105285958414`*^9}, {3.8103108741266794`*^9, 3.810310884507886*^9}, {
  3.8103111902618685`*^9, 3.810311200236533*^9}, {3.8103118007845945`*^9, 
  3.8103118465507145`*^9}, {3.810364574280525*^9, 3.8103646322686667`*^9}, {
  3.81036897523521*^9, 3.810368975636088*^9}, {3.810371182849411*^9, 
  3.8103711831452227`*^9}},
 CellLabel->
  "In[939]:=",ExpressionUUID->"2bb431b3-d47e-4a78-84e6-1e1bfcc3e128"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {GrayLevel[0.5], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxV1ntUzGv7x/EhCtWWQjklSaVISGzEp1CRqHTWYZpppnNzICVPTG2lHCq0
KZGQU9g5ROEpk7YzpVC2QlEOKRWhLfT4Lfc1a/3mn9ara13zXn27565xPJGL
oC+Hw5nUh8P5v6+/Xh3zOf//BZ5UtGNH8lD2/QGoy9v28tgqc2YNRO20mDhS
Ys08FIGJjuLR95Yx6yC9Nr60YoMn82iID+55PsaCx6wH15kj5jXfCmHWx9yu
w84fD0qYDVCaaJSvEhvNbIg+wpRx4l3rmY0ha9Mrv5/xB7MJziifuVh1Ppl5
Enat+ao6/l4qsxne7XwxNenHDmZziJWrVbNn7GaeCvVhQx/E6u1lngaHwfHG
R1pymacjYmXTsZ4ZecwWQOL0xV0/jjLPwHtryRu1FSeZLWFS2bNHP/c080x8
7P5TtCP0HPMsGGy/3WuXfoH5d1gNyueU61xing2bd9LijaqlzHOgU7K1uWdm
GfNc1GSrTMk7Us5shVsGzvVT3a4zz8Ootvjtdba3mOcj0vSUetb6u8xAXlLr
i369lb8sA7wuLbo2tbmKza3x1K2flX3nAza3Rtp7r6YYgxo2t8Fk25D5Vhse
s7kNdo49l1nZp47NF0B6967upJNP2XwB4mqt+ivPb2DzhXAx5WVHXW5k84UY
WOUzQsnhJZsvgvtum1NmbU1svgjn0LTc78ArNreFqeHJB3XCN2xui7jL2woe
z21hczvs6whIkeq3srkdNO8d9Ds7/D2b22O9pcFTOzV27mX2cFCxU12n1cnm
i1GksXNwgN4HNl+MtanBVoHTPrL5EtjYLHjyzr6LzZegvnNJlQ//E5s7oI5/
WGVU/Gc2d8DRCY7vUg58YfOlyLCMfKT+dzebL0WyyfBg9Tf/srkj2ivtJ35Q
62FzR+QuGf3BeNo3Nl+GoSOsXcZ7fGfzZbhZ7zXRY90PNl+Otp7k8cjpZfPl
eLU1Tem0Pwe/5k6wXLM1eWw7M5yw9EzCbMu4Pr8sc0LAdYHllYF9f1nuBCX/
Uq2UDGaOMyrU/8kWjlFi+85QakrfaJbHLHPGuz714y4b92P7zlD1islqyWfm
uMD3WcGc/Sb92b4LRhk/7C49yixzQZRqVeZ0fWW274Jun6L0lixmzgr0u+hY
9/A3Fba/AsKvg66+kjHLVmDP3XYlnQ5m+Qq4pyZG8H0GsH1X8L5v3nL9GjNc
wR2jXWY9aSDbd4Xf4Q9Xa9OY5a4Y8KKyaFsHM8cNPrJH/cOWDWL7bvCMvbo5
5jizzA12C0OMy/qosn03rGq6OdTZg5njjt6CI9Uz8pnhDtvIgu9xX5ll7oh6
7GD4u70a23fHkk01KdE7mTkeiO35Ure4nhkeqHZ0ji3TV2f7HsjoO6C6Xcgs
90Bh59zVr44xczyhxZvNKXrDDE98anyltsrwN7bviZrUcpVJPGa5J9J6da0+
ZjNzvLDbJvXoPw+Y4YV1OVuK2wcOZvteaLOyyJ89j1nuhWLNETfuipk53jhx
0D6m6AAzvFF/xGieahXte6Ms0qul9gfte2OB22qzXcM02P5KvBu2WKRqyoyV
eBb7JrZ6PrNsJXYLbcs7VzDLV0LHf3+0KIj2ffDQTRLhHEv7PkhDjvW+rbTv
A78xT9w8c2jfB9YPuTc3FdC+L5rSpBJzOe37YvDBThWP+7Tvi9O6Nzt7n9O+
L5w2CtZMaad9PyhFOBe+/U77fnhS0Dd7mtoQtu8HJ751vfpIZrkfbJcHa28w
Yub4I6S+ojbFghn+aN/ov3qqNe37w+1J28C1jrTvj9ChWy7yvWifi6Qu29Cu
QGY9Lng51Z8ni+n9uLjj/spQax0zlwuP2LDNRxLp/bnIFgvzW9KYc7kwsXT4
3JhFPS4O/PtNnnqIuYEL/RgNx48nqR+Am7r8O0MuUD8AecNMHVtLqR+AGa8t
GjfeoH4ADhTGyZ5WUj8ALp6DON211A/AhfKti2qeUz8AOo+cdWNfUz8AK/9c
ZNj8nvo81CaZjRjxmfo8pDdfSNb+Tn0ezF7d+dKopMn6PAxf4/9k7SBmGQ8h
t72LGjSYc3k/7y/XVm1tZjkP9iYWT/XGMDfw4NbVWP9Nn5nDR8Zeg5GnjJn1
+Hi0ofT+NDNm8PHjcbFh2nTq86Hf27iifBb1+Rhn3Bl134r6fFyd9PRkkQ31
+Vi7quPbWjvq82GYtSpQZyn1A1ETHfNypxP1A2FfMjCyzZX6gej+XbmPoRf1
A3E13XXdPF/qB+KQzduCmQHUD4RXQ90qTQH1A9Gsue94ZTD1AyHll2mLw6kv
QPdFYUyXiPoCTLAbdsx3FfUFcK8ucTi5hvoCHAt9ZNS4lvoC2CVVNHz7D/UF
UJtnZ8SRUV+Az3njc94lUF+AlNdR9VcSqS/E/Pap8XHJ1BdCS+WB6YQt1BfC
OXlVeNE26gtxTVWzxSKd+kIst/Qdn7OD+kKUf/pU8DGD+kJ8Pr6+n+Vu6gvx
Si02WZBF/SAcETZWJGRTPwg9UecCUvdRPwj/hD85mryf+kHom+AyVHqA+kGY
UuE6wOEQ9YPgUJjVrXWY+kFIUq7wuXeE+kEYd6FjU/Qx6gfjtlleq2Y+9YN/
/kM4umn/CeoHI89lV6XuKeoH47yGQDX9L+oHo+VgRuvHAuoHIyrywd0lZ6gf
jL2773/OOEv9YNjou8irz1E/BHWLVkb1O0/9EEyq8vM1uUD9EIzt0HuxsIj6
IehwtJjiWkz9EMw6bp7meZH6ITDtncVzuUT9EPw1/uVD68vUD8G0vLMTjP5L
/VBcu77tVN8S6odia2t05kMyQtGSVzlyXyn1Q/E1ynq1zxXqh+J5+OZWTTn1
Q3ElO/mQnCwPRUVX6hNBGfVDceKCXUXfq9QPw6QxAZd2k/XC0NV4/rxBOfXD
YKBs1iefzA3Du54594z+pn4YDn50N88h54bhQuwVnvo16och5fid7VHkhjAU
W6e+rSFzwjFcJzl/6nXqh2OYutHTRDLC0TgnvvQBmRuOmV8HB4+6Qf1wzOgu
7PIh54ZDMP1EeiZZHo4mn+vCCnJDOG6F1u/5QeZE4NnCmnkTb1I/Aoutpq5f
RkYEVHYYSCLJ3Aj0y+RapZBlEdCSJ33LIedGwOfa/ooCsjwCh96MvXeZ3BAB
owN12uVkTiQcl0sqryn6kWjWOtyhmCMSJZOHZJYo+pEobH7cflbRj4TaQm/d
PEU/EtWm32ZuV/Qj8als8MJYRT8SblYSF39FX4SxRa8ToOiLcP9lQssYRV+E
fTt+K/xCz4srglP2ydp7iucvwnDvoMhcxfMXQSD1zhQpnr8IsfFn3econr8I
HkMCy5QUz1+MNv2e1pv0+9UQw/tpUvNmxXkQ48/iNPlisrkYc4cvTuivOB9i
xBRb2ZXSeXISY5iX3sTVZK4YVbhuYkQWi3GzfINzreL8iqG816ZqIzldjMTD
6vunKM6zGP1MhYW1dP5Pi1E9eeCEOLJcjEUJdSP1yPfFWLD+7y1y+jw1iHH5
jzN/+JE7xBjOPz/iK30eORK0DJm7dCdZQ4I4Tz1zE7KeBKnFvfdK6fNs/tN6
D+BMhgSb1Cw2NNJ94CSBx4+2gyIyV4Jn0aLTPXR/iCVoUB94PpEsk6D7HP+0
OjldAonhl+M76f7JlaDq9sZT2uTTEuTlmZZk0f0ll0DbK7R1BPm+BBZJtXMy
FfedBMGWHSVDyR0SlL8tik2j+5EjhW3+hKgBZA0ppvguP7aB7lM9KaaF/Wv+
ie5bcylG3chUDSFDijbVv+bX0f3sJEVM1LomB8V9LcVa4ej3l+g+F/98/7hd
gcZkmRQVSro+GXT/p0sR7Vt/60ch/fxS5GiZFQaRT0vxm7FAr5L+fsiliK9Z
ojrjp/8HVs5CGg==
      "]]}, 
    {GrayLevel[0.5], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjHkfxicqh+w6dJCSLTlUooNDSLojkXTOdNTMNDXTuZmxkRw2LbE2
lVBoU+RKDlFSsUmjfVGsJKGDU202sjHKaSt6vZff13W9zz9zfea+7ufzu59n
/hmDoBiPkCEcDsdUicP53+fXS2HL+f8Lu0sF/rl11uz74ZBr9ExcnOPFeAw6
XyZt5foHM9bArlOCDr0mCWNt/CZe3Xdt6QbGE1FY92qU6p9bGetjZ/O/sSUq
OxlPxjqhYlnW2lTGUxC6IW9k+qR9jKeh7WNP437Hg4yNIBpvVZu0OoexCf62
H+oiNM9jbAqj2/nyumXHGc+Cap3Wx5yBU4zNMao/2+luSRFjC3Tc4M9KvVXC
2BLg1pddXl3OeDZ2ul/Mn+RdwXgOlm1IUf71YRXjuRg1pHjdzrhqxvPwaUh7
62+uVxlboUWcYJcXV8N4PhRZP06O/HiT8QLo7FtZM//ubcYLYfFwywBftYGx
NfyT01O+82pkvAhnEzJDL9y9z9gG07YrQvSTmhkvRkqSXllYxEPGtnhms8hu
2c9PGAO8/TXOAaK2r5wAqBoc/2uG4V8st8OR8d33ND50sNwO4z14ug1P/2b5
Eux8v2Xy88fPWb4EmZ/eJOa87mL5Uliufa2jPrab5UtxujjS08TuNcvtUWV8
KrzpMvvdJdiDt1bQb9z+huXLYB6ZPt17RC/Ll0HD0zdt1uy3LHeAyUz17XGB
71jugO8rc2s4u96zfDnuGL9Syz3/geXLUf+wOX/Oo48sX4Gu+AyTgiF9LF+B
NLn2gX8N+1nuCP8pXAczDLDcEa2Cuiki7ieWr4TRrE7r+pDPLF+JVfU2vuei
BlnuhNwFV16dm8fB19wJXaXdI2ecY8xZhd83zYxSMlZi+Src9Yt3UspizHFG
84GTisFhQ1juDKMJ96NbYxhzXDDm/TrHTQ2Uu+D3Xh/FHbOhLHfF+1IV3NvB
OMEVFgNi7Gih3A3LF64XK6Yrf2W4IXZhVqy+hHGCGyKedsydWcJY7oYm/SvW
Fm8Yc9xRc8Rb2dVEhfXd0S60HnYmkHGCOzLGaHrGpTCWu2OlLCyx9SJjjgeS
74zFyDbqe8DUrvDofGVV1veATfPUHdmGjOUeeNEUvE1qy5jjicO+WeavvBnD
Ex4/fbJxjqK+Jxa4La+p/Yn6nsg32up4OJX6Xjj6aGjW0Gzqe6HNbrOjZQH1
vfDCdoETv5j6Xuj9J7ai+gL1V8O8Li1492Xqr4aiN2/+62rqr8bt/dr1Wteo
vxo7Wwa0zWqoz8XHyNRAfi31uYiMj9auJ07goqnyqfoRYjkXB25l3Oz51veG
3ynjxW3Xqe8N13zdYTvIl+CNyPmKvX3/ob43FEG1Ja5/UN8HPyRIWjKvUN8H
OTzDle1V1PdBua32e2vaJ/dB18w+h6JL1PdFfN+LuBUV1PfFFp7ex5G/U98X
9zLmW3x7XnJfHC5YKkgpp74fzjqdmL69jPp+wIfmcedLqe+HjWZ9jwyJ5X6o
2m01r+k89f1hrpvZ1EAMf6yf8kJL/VvfH6XqVmqZ3/r+MCtfKAkgHycAdQOm
hTw6DwLA3TJhUzadNyEAvQb388fRHnkA1rnrZFbQXs4amB9di32V1F+DXbV2
5Qe/Pb81kOq8vHednq98DZZsV8rSpffBCYSzmYUgnd4XApFce2C98bf3H4h4
7aVxj25SPxAeJ7gLT9dRnwe14nrRvjvU52EiN6p1byP1eZBfyNp7/AH1eWi6
EbeuroX6fPi9LbNUfcxYn4/FuZeindvofnzEVQZa53Uw5vOxLaIiSOU53Z+P
HQ885bKXjHP5CPFsmdH1inx8iKv63MN7GD/l42QvZ1HPO/ILkGrWN3nrv+QX
wHjF8Wuan8gvQHvpiCtnOcOYX4BVV/gbXJQZJwgg5V7YoxjGOFeAzkVvVmao
MZYLMBHegbajGT8V4KNjtVrXOMacIDgpLX+SocVYPwhc1bsD9jqMEYQS//6s
Xj3yB+Gt1sn+IwbkD0L3kcibblPJH4SLr+/ZDRqRPwiuK07EFZqSPwj2t3bM
9TcnvxAvBnRNh80hvxDF5WZuxVbkF0LS7zHK15r8QrS3VagNLia/EC6W6qPz
lpBfiDjZJO4yB/IL0bc5YuEzR/IL0Xp2hGuiM/mDkRh6L2+iO/mDwX+uN/q8
F/mDET3bU9fRh/zBMOgXzW31J38wOreOLwnjkf/L/eLGRb8NIn8wCuy7dDaJ
yB+MZEmIFyec/CHgZPRvS4gifwi6Um+//CQhfwiMMg391/9I/hDobi/Z1L2e
/CEYczWokLeR/CHI8+w0qdtC/hAIu4b8MT+R/CHQSXyklLOd/CJMjuFpKv1C
fhFEfo1evGTyi/BuTeUvF1PJL4JG996zY/aSX4QfmuMHhBnkF0F28uGY8wfJ
/yX/abQmJ5v8Igg3dQ465JJfDJUT75R35ZFfjOFOPfW1+eQXoy9xQZrKSfKL
0doT6WhTSH4xjk2oFEqKyC9G140zvJwS8othsOj+4xtl5Bdjpij91ZuL5A9F
3/FbqzQryR+KmzYj982Rkz8Ux24+een6B/lDcaH2mK/4GvlDYfw88Ex8LflD
Ufc4S33Xn+QPxSKDdP39t8kfiqMqc8b/1kD+MFhuNGk6fI/8YSjU1bPMbiJ/
GBStfrsOtJI/DAEcr5DUx+QPg2rRwIjENvKHoWXT+tPSDvKHocBvl96aTvKH
QbPohIt9F/nDoVWmLjLqJn84wh+IJMMV5A/HwfsGhh095A/Hg83jGyrekT8c
NhbpU9M+kj8czWbvP/P6yR+O+NtuHNPP5A9HQXHf1rdf/kd99UegLKfgz4tD
GetHoPsh52C8KmNEoJZ34KrVCMb8CMy7scj7jRrjhC/5o4cO+d8zzo2A+ZNf
V3iPZSyPwIM6343KGoyfRqD+qOf7Qi3yR6J0rFOp1wTyR0I0asnUD7rkj8S4
5g7/jEnkj4S91a1SCwPyR6LgB++GGkPyR+JNeu+sgGnkj0S7q8a0f4zIH4lD
VSkVcTPIH4UdKXrWSrPIH4Vt5V7WSebkj4Joz3LxsNnkj0JNr7XO9rnkj0LI
d5b6g1bkj8KLoJjc2IXk/9I3+TH++SLyR6FaGv+Xty35o3GpQUXzP3bkj0Zy
0bCqGfbkj0Zd2OylqQ7kj4bN8+ptr1eQPxqydRnfOzuRPxqf81pSjzuTPxoi
obLDZ1fyRyP00Foldw/yx+B6ZbVbrhf5Y3DJKtDyHy75Y/C62iFzri/5Y+Ai
Pa290Z/8MTjc1TC2cg35Y9A+VF9ngEf+GER9+NXfKoj8MRhclW4eE0x+Cabv
mXs5T8R4jAQ+fpY3GkPpPBJsnBG6b0gEY3MJNOZUZ5hG0fkkcKm0jPOMYewm
wajb3Oz1UjqvBFeKgvkH1jKWSNAobhCWxtL5JahLcwqsX884TYKAkqQPnRto
jwRa+5QF/RsZF0nwdP5ZPbUttE+CVx2PftZOYFwvwWPz2NDJibRXgtS2N61G
2xgrJPCS6olNk2i/FKc3p4Sb7qT9Ujy6tDDYeBftl0LRt9fSMJn2SzF+yZ0k
nRTaL4XRUrHg+zTaL8XD+KKtg3tovxRLHl/e172X9kuR/d3pqqb9tF+K/kb9
FHkm7Zfi0NWDg8cO0n4p9JWq7ZOyaL8UOxffmRicTfulmGIZq2mbQ/ulmHZT
uV7rCO2Xom/Oz7Uvj9J+KZ5p6vRUHqP9MjTMsBu5O5/2y/DukG2qTwHtl+HM
E0WywUnaL0PBrAZZ5ynaL0NbTaPzyULaL0Ng4/XG8LO0XwYTG662UTHtl2HT
hLU27edovwxL2j88O3ie9n/xdV5d7FJG+2UwGBAHD5bTfhn+Rk1Q4UXaL4O1
VP+5d8Vw/BdJECT7
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVl3lUjesex7coUbciOpmSZkMpoujgKxmiNM/Tbjfv2ru9QxI6iWsqDYdK
ijLUkVOolJBzEiEqDaKDFAoppCSJXHd5fnetu/9pffZ3f9/P81ut533edwYv
1NZPgsPhzBnB4fz3789PzzLO/3/w0iI9uqJSjn0vDUmZWzbbL+swVsDLW8ll
BeaLGU/AKZGV0VWz1YyVEdGofWdjnC3jqajXOvhg4zE3xqpY55o1Qy/Nh7Ea
AubPnbjgHz5jDYwT2klIdogZa6HQTq5s2GkzYx3YXNfNPNe1nfEsrNUJ9znZ
EcN4DvyLr3bOO7iHsR6eSwuKupUPMNbHpSKtxy+rkhgbIEL9vUl9UjLjeQhO
uHt0WX8a4/lYt8Fx6+9SmYwNEZ65blNuyAnGCyAxqiN1yrVsxgux3a5CyjM2
l7ERGiziJJIf5DM2hqzL6+0TnAoYL8IRFQPLO3IXGC/GhF7ZWB3li4xNMDG5
b21zxGXGv2J4Tc4R64V/MV6CX58pFL6ZdY3xUkzfE66hLrzOeBlm1aJM/lUl
YyAoPFImJ/X2T44GsmbbKBzecZfly2Ef2P19ZU4ty5dDJ29apOvIepaboj82
w+x2fQPLTaF18uiCpL/us3wF/LWCJc5UPWD5CoiybxQ29jaz3AzvXxjVZy56
zHIzNF+fphh6tIXlK2EWn//4klwby1fihef2827uz1i+Crvzg2bJXnzO8lV4
ONrxkLZKO8tXY39qb9WXxA6Wr8aevmM5FXKvWL4GPWoRgrMpr1m+Bjbz59a+
0H7DcnPk8Dpfb7vWxXJzzHz43fEA7y3L1+LA+33H1Me+Z/laHFL9c0a2G+2j
dZC3HHq2y/ADy9dhabzEJUP5XpZb4PK+VdeMuxhHWyB/QW+c0u0+llsiIUQ9
wyH7I8stkV/3teC3mH6Wr8eqHTdbZ3h9Yvl62L5+ZVK9eIDlVrBtX81RnPiZ
5VZYrIKq+LeMOdb4V/PT1ifXB38yrLHz5L7MzNQv7PfWyDoQszcqcOgnl1sj
R/foIq2FX1nfBrqvLsaZc76xvg26izoWHb/JONoGJ3aU8Lv2DrO+DWYs3jS+
e9V31rdFQ8Tkawt/NH/2bWHu0lmf6co42hZ5Gnp6GYWMy23xz3GD/EnSI34y
xw5btHw/Srsxhh24Bgn2Hn8yjrZDuopGj+wg43I7vN39NUzBTIL17dGtt7+F
F8cY9lif1HR0RAPjaHu0DybpdU8Yyfr24PSFG2k4MOY4YP2LKyH5vzOGA04P
G/fH1TCOdsDX/NetVZKjWN8BrfcepYeYMOY4YkHw3f4oIWM4Ynau/QeZTMbR
jtCNHHV2eg31HeGtIK936zP1neCxLWqmgpok6ztho93WRWPMGUc7YaBy0PGa
gHG5E5LbD3euTmTMcUZzv15R3nnqO8M6Qffy91rqOyPukf8smy7qO+NTU5lz
gaQU67ugtiYtWV+FMVxQl9c58NSQcbQLZheUdVSYMy53gdmuVqd37tR3xc64
qmthQuq74t3GsxLeUdR3RZCifVJVHPVd8TXqhnFZGvXdkLIjhLcmm/puKJaf
27ntHPXdMNpJTj+wlPpuKC8sMVIup747uh2nhx65SX13dBj0dg3dpb47EoQq
PPM66rsj5UiiQkIj9T1wOnxraXMT9T0w/rBJq8FD6nvAqNJZnE1c7gGDyR7T
lxJzPLG2eOkaqQfU98Rticiu0fep74nXBX77Leqp7wnpFV+2tNRQ3wu6bYat
16uo7wXTb6lC6Urqe0FHVOFZ9Df1vfCF9+FZ9SXqc2EqU3DGvYixKhfJJR/N
+Hl0PS4mtr+W/naKMZeLqGph3ZSjdH0uNt8f51xziHEWFyV7Dk1S/t//i4uN
v3mslNjJuI2LoT0fHiVtIb83XMwn5VSHkt8bn2/MUyv1I783jk14UOziRn5v
jC0WxJZYk98bZ6fmbGhcSX5vaMTNsC1eTH5vpEh6V3Hnkt8bHwsNpR6pk5+H
vWMvBGoqk5+HOPkvb1bJkp+HY+2VLqYc8vMQ0q1pP+Uj7Q8eFBV2H2x6xTiL
h3plc8HGx7RfeHjir2k0RPupjQfZOQIlQQXtPx8ciF78sLqYsaoPLNSf2E/L
pf3og1XWf+h7ZzDm/vh9WYlWegL5fZCYev98TQz5fTDq+vIVQ5vI74OS/HJZ
rSDy+6A/TknT2p38vqjQ4x3bakV+X+Rb3Qo4Y0p+X0xW+xb5dAH5fdGRmbZ3
0kzy+wIq7SoeU8nvi7HHq2+fkSe/Lwb11LVHjSS/L+S19VL5n+j+5Yem59/t
WjsZq/rhzbKiFp8Wuh/6YQm/xnCwjjHXDxI97w5n3aD7ox86LygOu5YyzvJD
4uHjgpl5dL/0wwWLdzWyWYzb/HDmnPCl5CHy+yN/IDJ24l7y+2PM9ez4X7eR
3x8Xi6+mbxWR3x/hxs8PNPqS3x+j1lx8YeZCfn945Y22rrMkvz8ij8ssCDcl
vz9+b4m5v9CI/AHIijSvHT+H/AHwPZWSN3YG+QMwrBaaq6JE/gDkSmX8YiVD
/gBsdPBUzeCQPwD7G9uVpD7ReRWAopkDdge6GLcFoP24YovBMzq/AiFU5H/r
e8BYNRAqLhtuNlbTeRaImS+aXesrGHMDUd5YWt9dSudbIPKWOhtonWOcFYhn
fbL7t2eTPxDpnvp3etPJHwjHg88//5vOS04Qwue5jzbaR/4gnBqZ8kQymvxB
8N0dnN8bTv4gLD3Zo/ZNQP4gXJxlNEfTj/xBKJnV2sl3J38Q+ixbpGvtyB8E
S7lez/XryM/HuujY4S5T8vOx5W5acs5i8vNhsHlrx/Z55OcjJHzCHfEs8vMx
pPpoXowa+fko8uWUnJ1Mfj6kUyIWDownPx+THTTi3WTIH4z2+2opj0eSPxjx
y3Sawr9KMH8wjJ3C5un2M+YGQ6kxQTz8lnF0MHZfNJ365iXjrGCc37N2bE8r
4/JgRKx3+ir/D+O2YJytbSgwp+cbTgjGCQSTj95lrBqC+PaeP8ZUkj8Ei/7+
dWXCX+QPwbYhqXjdUvKH4PTBJLX2AvKHIPKxUXXhn+QPgfY7Wbu0bPKH4Hym
nDg1k/wCvN42VJqXRn4BasYJBpsPkl8Ae867B1PiyS9A+nqB0qa95BcgMtvA
pz2G/ALE5t6LCNpOfgE6rpyQHBVBfgFiXK1uF4WRX4hdelo7IwTkF2LyodWn
bQLJL0Thy8q+pT7kF0L3YYopPMkvRGyGabCDC/mFcP8XpkXZk1+IrOqzXZes
yC/ElnGHo6TXkT8UXq6Kp4JWkT8UKs9OK7YsJ38o4g5zS3lLyB+Kuk18mS/G
5A9FspFTwwlD8oci1uNqu7s++UMxz92qSXsO+UMRWD47ZKQO+UVYkhsa/F6d
sYIIDzMid3ZNp/WIsKm2bevAFMb6Ili7m3war0zrE6HhnnHNkgmMrUX4u6Lz
wWYFWq8ITRdvlpTLMhaJkGlg+IvyGFq/CHNH3JKLkmScKEJVkIlW7wiaR4Ti
qXs/bBhmz+/nRdD8cmX5yCF6nhchVd9uatYA4zoRbi55OG7tR8ZtInTJa77k
fGDc88O/TSHixlt6fxDjrO6p0ENvGCuIofLQK1f0irGqGJqLnF85tzPWF2Oa
3mcly2f0viHGoxET71s8ZWwtRm9vj4zzY8ZcMV79krhN2MxYJIaOk2gwoYne
T8RoaNIwLmtgnChGgq/miL57jLPEyLjZo21YQ/OL4Z62Mvi3OzS/GBYDJYX3
b9H8YuSPGVM2v5LmF+OMSr8wo4LmF+Nb1ckMuXKaPwz2HvUy+6/S/GHYNWlB
mNwVmj8M3l5BjemlNH8Yyo9dfmNQQvOHodRy34G6Ipo/DCbydiWbC2j+MKga
ZChon6P5w6D0USr8aR7NH4aFY1Rbjp6h+cPwblL1J9/TNP+P60c0pc/Pofl/
rGfHqZNjTtH8YeDrKzW+PD4C/wHuLCtT
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVlnlYjWkfx4+yJFtGiCEtmEYNbVIYfdsXob20OZ32ztI5xxIhx15ZWiwV
NZ3MiLKl0qKMM7aIyvDKFtUYlCytlpi83mvuX9f1nn+6Pn2f7/U593nu+/c8
2rwY9zAlDodjMIjD+d/ffz8dlpz//2Dtcff0TMe57P8qsH1zCVfzlzFWg59V
mfII3xWM1bH9qahiJyeasQaGfghqzNi1kvEUHCmea1CRvp6xFuTHVbpaj21h
rAPD6a+tL69JYDwdI6cV6wb5JDOeifg3TS59ZfsY68GgeuZFndUZjGehVmu9
7ou+bMYGUJroHAejI4xno9SlvbPi2VHGhnh7Se9Jsm4BYyM43og12cU5w9gY
afXPI93sihib4Mr+pCbHqHOMTeGbmrozp6ec8Vyon60Z1v6uirEZftMStJ44
q2A8D5oXJLOi9S8zNocqr2v+i9arjC2g36tRG/LmOuP5WKrutap8wS3GC5BQ
Wq8yt6Ge8UJ4Ox/Pt2j6k/HP+HG7xzBF313Gi3D6rTDo/M8NjC1xeqg4++Gx
B4yBBsHizY7mj/9lGSBqmLP1/psnLLeCaC/HfFVIM8utYN8S8PZccwvLreG0
qSIiXviM5daYXGR6XKDynOU2ELzr+eHLmRcst4GN3pcrMl4ry23xyTa13Vzz
Fctt0bfTsm1xSzvL7dCQaffkTv4bltvBr3bHxLbV71hujwXO9f63c9m+ldmj
eOqUCwkJnSx3wCrtm6kmoi6WO6BfWO3S7tbNckd4Wu3Vvmvcw3JHCDQWVWqq
9bLcCXf98tKHtTGWOWHFib0bH1S9Z7kzNv2UF/g66QPLnRE947vdJ90/snwx
+oJl49PGfWL5YvidSSzVrWXMcYHYMrDuQ3wfy13gyd3fek7vM8uXILutpl29
hrFsCb7yPms+5H1h+VIkuVUVNXQxli3Flesywet1/7B8GXRGHI8d9pGxbBnc
/dsStYX9LHeFi8io3vIhY7jCOjn4knThV3a9K7piUzz/c5CxwhU7yuxH7mhl
zHHDIv7+9480OPi374Yp2atUl1gwlrkh8sbQ5FIvxgo3uGisvjdPxJjjjrRZ
fTG9W6jvjtQ73vzx+6n/jR3VIxW51HfHtOFVDVonqe+Bor97xbxi6ntgWPyF
5LNl1PcAp232ooUV1PdAdb31UcNy6ntixM43NlUl1PfEUavhyqPOUN8TbeJe
7rJj1PfEx8ashjPZ1PeCWabHer806nuhpblpytrt1PfCyfzuZ0ax1PdC6rlP
B09HUN8buXqJ4eN8qO+NT7yUiq121PfGmG49G20T6nvD6bBH+Agt6vtg283C
r0Ejqe+Dkq7tC8UddP98MDlr+fQV1XT/fGBuuca3PJvuny/eve6tPbqSMXzh
G5D6fokT9X1xRS1XeFeT+r5IevXFxLuH9s9ytJwZtbbrBu2f5dDJ0XC9mMNY
thzcx2a2EasZK5bjk4PN4Z8WU98P266/d7fRpr4fosz3mN78QPvVD4nz9H2b
6hgr/BD/fnRMSh7tb39sGiu1b49nDH88vWh7+YMP9f3RWBAwqNKI+v7oUbVo
NB9J/QC83NY2WfqSnR8EwPTFiR0Rl+k8BWDmqSjpJDljRQDUhx59uWMjnb9A
fGoqiDvlT/1A3NX1DN49n/qBOFB75fW0ydQPROQkjenhfXS+gxDYfm1p4GPG
CMLoXGMj5Qt03oNgcDHyokcOY0UQ6houf3bZQv0V8JUGzn0bRv0VKKlyum/q
TP0VODvWymTKHOqvQM96rv6v6tTn4uB8i7arfWz+aHGBjqvOW1oYgwsf2fHb
DdcZc7lI68uedbGQ5hUXNTP9lSwyGcu5UDOU1lptYazg4lG1U3wDn3HzN59c
kdPjxZgTjNk7TfszQf5g8F4Nc7qsT/5gXPvO5pFoIvmDcVArOemQMvmD8eqp
V5x1B5un8mAMnVSnGf6EsSIYiZO7/lC+ybg5GL6NbWsnVND85UEj8Z3eL8cY
a/EgPhR7Ov0gY/Dwg3rv16/bGXN5eDBi3fj/rKZ5zoN93dUP48LJz0OcVoys
ypv8PPx6O4p/y4H8PEyuXlNpZUH+ECQvGzxJQ5/8IVB7ZvB4yVTyh0Bn9Er9
5jHkD8GD6b5v65TIHwLRk4kjNN6z5408BI86nmw638ZY8Y0Fn92KnzBuDoFK
9cdBnDv0fAqFVUqGbs41xlqh4Gnq1+2tZIxQDMlecKKukDE3FIGXbDr88xjL
QiEoX5NtkkX+UDz9bsYDjzTyh8JsQ0ZRVQL5Q/F2/NM/+ZvIH4ag+2UxQWvI
HwZervGzA0Lyh8H++zFTR4eRPwzlSnlzqgPIHwal/CLH3z3JHwaTnGupXS7k
D8PgkeGLeHbkD0NX8s+dqovIH46Rq+UX2s3IH44xDg+/H2xI/nBcvzXD2f1H
8odjrERqfV+H/OHo9zJWTplC/nAMUt95ecME8n/rl2yIPqRG/nB4TWsUPFcl
fwS0Pgv8VgwhfwTWnZ6drcIhfwQcpD9YPO1j7xfcCCg9jZrR1EvvGxHI+nq/
Q6WTsTwCVekjz/q/ZqyIQPr8nNv3XzJujkBD6gGduGeMOZHQ7h/hb9PEWCsS
3eElmUaPGSMSM7PN7Gzvkz8SxVYL18fdJX8kpIH5z+/Ukz8Spyy1+11ukT8S
lt5zul5cJ38kHqYUrpdfJX8UChQacWsvkT8K6+525gkvkj8KctNpgi1V5I9C
1lKN9KIK8kfBIq1Jqb+U/FHYrrqxNLyE/FGQFkgXtJ0lfxSMggpKtp0hfzQu
nBGOX3CK/NF4+4fjhuEnyB+NSXvN9rw9Tv5odLVNCnqVR/5obL1mXv/Pb+SP
RrzkY96MX8kfDf6b2EpeLvm/XW9gbHkuh/x8fAyotJv6C/n5GJw/0TY9i/x8
rEnoLJh+mPx8ON88+fFKJvn5uKWcu2h1Bvn5aLU7tc8snfx87JKYVqocJD8f
15NPR7XvJ78As8amCJr3kV8Ah0i/I8/SyC+A686gCR9SyS9AobLuAw1imQAp
xetTHVLIL8AtM7PurcnkF+D8sIW8ur3kF+Dy4T82ziTmCPHaztQiaQ/5hdDp
7knq201+IbKGmzqtIeYKsXad+ot/dpFfiIx5zokpxHIhdo2qMJxNrBDCfO32
uQ30ft4sxBudzecTiDkihCpdemdHrCVCmZuBWJUYIvS5/1jdkEh+EVJGPS8+
SSwTIS3OfPYeYrkIX74UGMYSK0S4MnToiUjiZhGUOmtauMScGAgv8O4PsFYM
vLtUrAeuRwwefh42dt2APwbv1n35PXnAHwOPR1saB76PPAYlztVJfw74YzCt
51TG5wF/DLZ9r3pIf2D9YrwQm+YHE6uJUVNTqZw98HuIsSW3e/BTYkMxVovO
LdCl3xdiNJnu7hUSu4qROqOr7Xdirhhxd3VD1en+icXgle3wEhLLxLgePGZ3
LXGKGOWDN5Ub0X6Qi2Fdk38tnbhQjIIX2SUc2j8KMZYbF62MIb4txpeqCdot
A/tNDIegWaVetB87xJBds3GoI+ZIUM6vnedE+1dNgkZNpW3VxFoSCEbcLHWk
/W4ogXHdOMc6YkjQMF1P4UXnxVWCQesCy5qJuRKsdSt2EtH5EkvQsjypoJ9Y
JsGNW93HUug8pnzru/dOmX6A1i8B9m72rSAulKC+E0eW0XlWSHDY5m/dVuLb
EuTfSv1rM53/ZglO/x30bCrNhw4JpizZ97ySmCMFB0Ms/GmeqEkRa3A4uY9Y
S4q/hkgWZh2i9UuRF1NzbxHNI0jBi2oO+ovYVYq+k79EJtD84kpRJrf/9kSj
9Usxt8Sff49YJoVsTSYnnuZfihQuGdX8mTQf5VKcm/jhXh1xoRSl0qvWsXJa
vxTmRzmNmt/m638BzzH8pg==
      "]]}, 
    {RGBColor[0, 1, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVl3dQVOcaxlcQVBCFFUtUFMEAoiJihSA+oKCCIl3pyy5lFxbYXcCCoCux
FyBwAYNyJVZEooixBCxLMSZYYokEMSo2ohSjXlCRoPfe8X3vzN1/dn7znGd+
8575zne+M06c6BOlJRAIJvURCP77//n3aq7g/3/4eCf9W8Wfhhc/Y3+ctzQO
6XAcT9cZIv/4hAXLrdyIjXHo2NYTc4SBxCOwc1Z45eXMaOLRWO0978j4D0pi
U3x/UDbYIyeV2AzT7lvYVJRkEI+H/M5xRcXcrcQWSOxr4LViTzaxFSwz5jz/
EJFHbA2dbzTh8fq7iSdhvFCv/ct7xcQ2SFq0On979QFiW8w8fRi57keIp0J7
wQC7lK3HiO1g5z59xpRFFcTTYG7h9YPk/Cni6bg0cPC2TWU/Es/AU8erHvZm
F4hnwql7i2ZoXjXxLMSXTAwVSuuIZ8N32GC3p1mXie0hFdeZmAqvEDug44+J
a4Wd14m/wtrb79x9im4SO2L6de1pw7puE8/Bw4/m7o5fNxA7YW5W6sa5i+4S
z4WhnTBv9sI/iIGgYdXKSvXDz6wG8q9FOietfkS5M1ziWgdNXvqEcmc07Qh2
HuL8jHIX9JFH90v0/JNyFwxZ2x7qtuIF5fPgUKhnIT7TRvk8lPkesvIwfEn5
fBjofqN7dC6tO/V8PEL+Ve/1ryl3xVOrv7uHXH1DuSsUlTbd98Z0Uu6Givjv
lmes6qLcDQ83P2m+/ftbyhfAIrnAZddX7ylfAKvAttzsfd2UL8QCH6+yNfo9
lC9EeUzlQpOUvylfhNRLfxjYP+ilfBHGVxps3e36iXJ3jM42uWLgL8Dn3B1t
m06tWaLT5zMLPPCx78jgvieJ1R7o91N+XnmoFuWL8fbLq7Ma+2pTvhjV55d5
65UQC5bg5Uuv1w/c+lK+BO/vTm1920ws8ETZ5XTt3hQdyj0hGiPeeEBHl/Kl
GHXlxv7SLGL1UnT21ps2DOlHuRdmjPmX8N03xPCCrb+4vWVAf7reC8FaRs82
ryHWeMF4bJJbXQuxwBsNM7L6ZHsMoL43Cq/lLPrzCLHaG0eC7tte66NHfW+8
e/O0xcOXWOCDKkdvWco/ieEDnWC9LRFPiNU+qMkIDbAx06e+D271nk/6FEQs
8EX5U4OE3p3E8MXmdImWfxWx2hcTWpJ2zHrCfV80L9U+f1dnIPX9kCU/fEZl
Tgw/rItPS3J0JFb7YUrbpJkqL2KNH8LsI628Rdz3h4/K8uFwOff98eLRbmHf
ZO77Y8Jg71K/Vdz3R/muE1ULVnM/AHolB8+NXMn9ACS6FY7TU3E/AGY+Xrbe
sdwPQN6DtNAJ//Mvg+jyDy2/+HJ/GaIkqitSV+4vQ+GNv/XtZ3B/GWa9rJob
x/MKlsNQtyhnsiH3l2PnDvNzR3v4/i1H552yXwe18P1bjkh7u4L0X/n+B8Ko
T8L40Wf5/gfC+K+Fi/WLuR+I5VVDBszfzP1AnFXlXeqI534Q5qelBkz0434Q
EvtsmjrKgftB+G3c+ozGsdwPQpheW0qqDveDcc4k4MzQNl4/wWhbX/ax6gav
n2C4OCjK0k7z+guGgY2Bb9QeXn8hMJt303J9BvdDcEBVb9Qk5X4IokoXHFy1
lPshyOz51CmZyf1QHD+WlPWdCfdDURF5b89MHe6H4vZdh3SLDnoeNKFYvMTC
N/kOsSAMCVHCCrML/PyEIaCfhXLaYX5+wtCwvRqHs7kfhmtGRj1rU7kfjrFb
/DKrIrkfjvdmoz6GLOV+OApOtjqJHbgfjgNv/zX6ypfcF2GU6NWifCNiUxE+
6ey4XNNLzzdEWNlhf2RpK7FIhOPFln85/M77gwiFWY0GX9cRF4tQdXL9UosK
3i9EePDb/h/NiombRfAPdJevyOT9IwL5p1yyx6YTm0ag7HHBk1Fy9kcgSOW8
XxbM/gi81K16quvB/gg0+MSav3ZgfwTaZXWtFhPZHwHje5tXHRrF/gicTfPp
kg9kvxiHrVcaru6l/c9UjOSdvZk/v+T9UIxXXRXTA5uJRWLEiXQvWt0iVovx
qUj1dkYdcbEYJSWrjq89TawRY29MZUifI8TNYrQOCZt3bjfvvxIsxp4HZZns
l+DosM70m+vZL0GxzHy4VQr7JXhv/jzruJT9EmTUFThHh7BfAtXKoDZ3L/ZL
8OTC8BPB89kvgd/1QY35s9kfiZwVjdo9k9gfiRaYVG0ax/5IFAzaM8x+GPsj
IZv4ncJQn/2RMDZb2U9fwP5IaDs6JVt20ftGEwn3uxO0olqJmyMBLHStecjv
pyjoCA4fnnOH2DQK9bHr3zfUEyMKWgOuBezQEIuiMPygiV3oaX6fRUEyfPfQ
hWXExVE4WC+dsngf+6OwN9wlRrqL/VG4+FWqancm+6ORHS9Z93QD+6Mx+rR1
h8sa9kfD1fPGhVNK9kej/4xvWx2l7I+GQ7K95e9h7I9G44fO6Rv82R8NlftP
tS6L2R+Nd4YJLkbz2B8D6/f7rv1lz/4YdLkHuD+wZX8M9jxavfGeJftjUJBU
/KhlDPtjcL0pasGnoeyPwbqY4UnjDdgfg/1nXvkF9GV/DF6vmX4it4fOCwIp
Fuos2/HHG2JTKTSp6jG2rcSQQsuovl/mI2KRFOp+axu6Gvm8IUVt78030TeI
i6Ww8VbpPbpMrJGiI8grVHKRuFkKoc2gso7T7Jch1nl7yrpj7JdBIzWdMOIQ
+2X49fiF9WeL2C9DX62ZwvA89svwd+PFUv2d7JfhwzK/lxc2sF+G3aZ5p1am
sV8G798S9sxIZn8sKnVC0B3H/ljMua1/rFrC/liUB4UHZwazPxYNpoEO4b7s
j4XVKLvc6R7sj4Wxq9MSg3nsj0Wx04miFw7sj8W0lPSCX+zYHwcTvXue31uz
Pw4jPQtzc83YH4cel9zbaSPZH4eSI/dfSIXsj8Muv4abAXrsj8Orgu4GNy32
x+GGYdGz2R/ovNgch0iPDS8mveHzoxyzS5f8w7yV2FSOcfvf5Yx6TAw5ivfp
5g9tIhbJkZNXpG10i8+jcgx3HCE2qCculsN6nN1zvRpijRxds4zrBlSyX45Z
Gu/nAyrYH4/w7luleqXsj8cHfXHEwH3sj8fAla/LBxWyPx6jDZ/9bJTD/nj0
n/q9fOg29sejZETkoS8y2B+PfTvMFo1JZX88ctrN481V7E+ArevTmRNi2Z+A
rxLXqm3E7E+Ap2NJzLQg9ifAsT1gx2wf9iegXTM02smd/QlIsumpnu/C/gRM
bG/vcXdgfwIktZ03vOzYn4hBpd8WBVizPxE7q9OWh5ixPxGFck29eCT7E1Eq
3Pa7VMj+RNjoTj+RoMf+RIzPmHQ9WYv9iZgUMjU99QN9TzQnwum+umvdG/6+
UMBadslzYyuxoQJD2gb5bntMbKrAiYcKm6wmYlsFYs3yZLm3iKGA/t5udUE9
sZcC85esu7m7hlikwND8l/f2VhIrFJg5d6fr/gr+3lGg/EpX6uFS4mwFhJMb
Vx/dR1yswMPAd+pjhcTlCpxe/bipPIdYo0COrODAyW3ENxSIPGf7/lQGz6tA
5skDDWdSiV8pYLXJ5viPKp5fidwpyk+VsTz/f3is04RzYp5fCb8Llcbng3h+
JUZI74Vf8OH5lXgycbvzRXeeXwntiVf9NS48vxKp7QPF1Q48vxLSq2e31Njx
/EpMM/CT1lrz/ErIi3I7a814fiW6Y6Z61o3k+ZVoqVk3u07I8ytReEBhUafH
8yth0uR7rVaL51eiSpy2q/aDFs2vxOIvBFtq3xALVEhME8bXthIbquBRkHyz
5jGxqQoqg+KcmiZiWxWOTMmaX3OLGCqkmFm8rq4n9lJhVv/JTjU1xCIVRJbC
xJpKYoUKYWVDCmsqiNUqpN/JXlJbSpytwuiOzQ9q9xEXq7DJyyqwrpC4XAVB
7RxNXQ6xRoWmTQ9q67Zp4d+caPK9
      "]]}, 
    {RGBColor[0, 1, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjHkbxwftssRalIoYh5IVlQ5Sqa8kHdiOKqWammk618xYWXatFOXQ
klU5hSnWm3IqOR+aTRJ2S0oUkhDJoSinwuu93Pcf7/wz1+f6znc+z/08v+c0
JjTeM6y3QCAw7CUQ/O/766fdTvD/HwyoGTTddLNWyVfsh5fXTwZMjzCi3w2G
+cPCB5FiN+Jh0M0wzNl+UUSsBUGwSna6IoZ4JA4tH2L6nz4JxEJIchLDWkNW
EI+Frqfo+Ba/1cTj8U4pSD8+LI1YH/tKuvtkqf1JbACDe6c6Gg9lEf+IwyLD
Sh1hNrEhPmw0OB1imUM8BTGXDhZdv7uX2BjWXV45pwftJzaBTVHvpA0NB4mn
4pes2//8kldIbIrf7evf6/1dTGyGJcPFb7fanSQ2R1r0se22hmeJLeARF77t
jzkq4mnY1dAZ0n2ilNgSbl6m69SjLxJPR+m+NItOcQWxFea6bv116V9Xia0x
7PNl/fsmVcQ2sO1nUhu4upp4Bu5IUm+mbq0htkWBZWjj0us3iO1QOilb79HU
W8SAdHfN3DcnG75yIrDn0JtVK8V3KZ8JVaxze4JWE+UzMWa70nXbxvuU22OI
jbb3e40HlNujusM21Sr/IeWzoL3Xy/6uSwvls2D01/HlVm8eU+6Amcr4rsz8
VsodkHa6v/NIaRvls/GndkV9m/5zymdDOPqikV7bC8odkbBFkhfvR+s20RFp
oQVuI6w7KJ8DA2nrgYMjX1E+B+OudFvP6iEWOMGqOG5gr/rXlDuhKWdc5sii
TsqdYfL365vXUrood4bWbIMfonzeUO4C15p1GxyEbyl3wX6t5IdXHhALXNF5
3XPeEuU7yl1xtKRvdvX895TPhW7vE7byPh8on4sy4eC6T3nEgnl4LuoRTXXs
pnwe+qecsq1uIBb8hLiluv8ekfZQ/hO+3WXz8UgrscANw2+cm6kSf6TcDQZB
Rw7V1xIL3CFJ93zUZ8anrwx3eOo2dbhnEye6w7niZsydV8Qqd9Q9Pr/5Mj5T
3wOVwh/mO6UQwwMu8g/X0y8QJ3pA78DWwnvviFUeeH5C65b1UAG+9j3xXe8Z
Izz1ieEJnX451+rNiRM9EXhH+0LPTGKVJ95c2JLe4sJ9L+iV+4wuc+e+F4LD
P70o9eK+F/ZtbJs6xJv7Xli3+IXxfQ/ue2MoOhVB87jvDV3lb80nHbnvjfKS
gY90bbnvDfcIv6unTbk/H9IVF2RnJ3B/Pr7NNLaZq8P9+dgkam7aPID786Ef
3DZs8Vvefz7IeOYZfPUG7z8fnC/wPyUv4v3ng10mws0Ff/D+80HAy0+KE+Hc
90WWc25qJR8P+EJfz8HcQJv7vqg72T6oq52Pny82dJXEhFQQC/ywrI/ahczd
fPz9kCp3qTqewMffD7IkTcdH87jvB9tBbTp2etxfgFq1fPvGHlpPWIC6nMeR
N3l9JS5AvsrvUdUBYtUCBK6y1O6/mtefP549+TnqWCD3/eE5pXv1Kwvu+2PN
7uPa9YO5/4XHBE9Y0sbrOwAtRVbH6sqJEYBFo6Ze6cnl8yEA5ze4KttWEKsC
cH++0GpvIPcXYqLQPnW8DfcXwkpDujFqBPcXYppG9ttF3XS+qRbihdrzSTPu
8PkXiJMDM8z+PkeMQDSP7rnTs5vP10DsW6nUfJrE/UA4qp8tWCXlfhBwq0hV
4cL9IIxXK1MvMuJ+EESH21OtNLgfBN+Ccv+gbr4+BEPdeKfmiGZiBGOKrDEh
5jJfT4Jh5Ks5eW4hsSoYt//KUZ7Yxn0RXDIs1+9PIhaKcKp5yZJRMfx/Ikyp
fZw31IdYJMK6vqLsZPD/i2AuCXsYNYlYKcIB3bUdFzXZJ0LCjEml6b2Jm0Q4
dsmhV8ULvv6FwKuf6cGI28TCEJzSLSyOqyBGCPJ7VpffPEYsCsFM50jdnD3E
iSFoNhruWL6JWBmC3X4BVo6JxKoQ3JlYVj0qnrgpBA8PNhx1CWJ/KNa0Wi+6
PI/9oZA4y7K3zGB/KJIXX2wunMz+ULx5ot5XYxT7QzE7Q/ZcNYj9oVC9FbsW
fabrvSoUGq/rLj1uJ24KxZOd1r7BzcQCMbzjC7OG1RILxVhnWd38TTkxxECk
QbzxSWKRGLdax0/PyOf7iRh5u3xnGu0kVopRfLQhT5DOfjHSlb5bv0lmvxj9
mlRnrBPYL0GPvtntnEj2S2DR2DjbIpD9EgyavqXlnTv7JajclGT82IH9EmTa
toR9smS/BD8c/vmNzWT2S1DxvdJpzxj2S5D9qsPNSJP9YQh6eCersT/7w6Cx
+UZd0We6fyIMVffPuOd1EovC8CJXfVlJK99vw7D/de+GrkZiZRiupWh/cqkl
VoXh8ArnX89dJm4KQ8qFMfNdS/j+LMWrytK+ncXEQikMmm8nnMhnvxTFmmPn
ZCjZL4XO8uMt67PYL8WRYR3FO9LYL4XSeUpAWRL7pUhxKR/TZyn7pVC5F9/1
jmd/OLyeRew4E8b+cJz16JpuuZD94Xh0I3VUhSf7w7HAcfHBKGf2h2Of09gG
XbA/HO5PI6Y0W7A/HI+vOq47OZn94Sh9WaS7azz7IxD9T/fQjBHsj4DkY1f7
1iHsj4DN+2FrDnzH/gg49rkuqhSwPwJLO/ev+/iWnoeUETD81+np9JfEqggc
qO8zMKmFuCkC3eMttOru8vNTJNQDVv1kfoNYGAm3baFXdv1DjEj4GykWa5QR
iyLxbLRUlHmGODESC+3UK0cdZX8kguzu2RXnsz8SeUUNyZ657I+E8RM9nffb
2B8Fn8zG2PxN7I+CrGlFs3gt+6OwPPlb2fiV7I+CyFu84dkv7I/Ci8/3Us7J
2B8F7YJ3CzIi2B8FA+8HDgoR+6NQM0Djlq8f+6NxrcU8abY7+6ORUryvZZoT
+6PR//bvTcZgfzSEKctsjS3ZHw2n0sn2psbsj4Z/yLEwawP2R+NecexZJyH7
o1G8JtMpQIv9MYgaVIjFg9kfA805hlv/7Mf+GGx8MqD8mID9MXDc6Nf/7jt+
Hv6SnzKb07eDWBmDa1WFSeatxKoYrKtpk0XcJ26KQVrsx1e764kFschYXj22
oZpYGIsqxbS5WleIEQvT5saEBaXEolhY1JUE7zrN/li8y18U2lLE/lgM2X79
nEkB+2PhOGjH5xV72B+Ltu8a1lfvYH8cFo7cUKOfwf64L89fJbLf0tgfhyrJ
NPOaVeyPw9qbvtaTl7M/DvnpuuXrF7M/DufURnY+j2V/HDKWGZR5SNkfhwST
4XuOB7E/HrlNP97V9WV/PE5vV/NNdWN/PLrXlvp3zWF/PJxu7XOVgP3xyK+b
+K7Wkv3xUNSPu+Jkwv54pDQmp5+byP542F+u1TEby34ZDAZuPHpAh3iwDHMe
jynWH8rbI4NUMvFA7gBiYxnC7LeYjVbj7ZPhds3TBzt76H3JXYaxE84VjO4i
FsngqTngZu5zYpkMJsK3YfotxIkyjHm7Iv9QI3H6l/6ruImWN4mVMmzu9Vyl
qiI+IsPxsZUHnSuIVTJ8FOe616mIr8nQsb7/bvEp4iYZgjZUFHcUErfLoHb5
4sOV+fx+J8e4Iao1Q/YQD5YjNCvg1t4dxEI5PrV8kFtmEBvLoTNLR6MqjRhy
2Gj3jJOu5vnlmHrx+6TPy3l+OXwi5W7bE3h+ORKeTm+2iOf5v/jOS3rXhvP8
csy42pIrF/H8ciwxs542eAHPL4fev9Hqhz14fjkqFzmtdXPh+eW4hcOH2u15
fjmColtPbbbm+eV4MS9vmaUZz6+A0zarWY2GPL8C2r3si5P1eH4FJudXrJw0
iudXYNLwwZNqNXl+BSo8my8v/57nV+BSQda0H/vx/Ao41FS+rxPw/Aqg7FrE
qvf8vq2A6eScCWaviNMVWFU7TO3hU2KlAnm/JiPjAfERBaQCh06HO8QqBc6X
jbDrqn1t91+ref7I
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVkns41Hkbh0cHSilUyqHSviWpdNCibHxCRXKWQ8QwY4ZhxsysjkqzLbW1
SufQYbWkEyqSUkpOCR1VogNKmFIptS0pr/fq+/zxzj+u2+d3zz3Pdf0mhER5
hPbjcDjTVDic//398emw4fz/B+W3fd/zRtuw/w+C0euS6u4tnow1MX93pqbS
KoTxSGi+vpj/fqiY8RjELVxZfHTuSsYG0Kltuu/nsoGxIZLKr+ltWfs745+Q
7Hf7paHJVsYTIdmKy6p1iYyNkDXPJ/ZYzR7GxnBMOpm1LjCJsQmGHxRJSo4e
ZjwN7qfOCRT1RxmbwqL2zIXTvscYz0SV0sIWficZz4Les7sKq9dZjGfjlUrO
0Jjt5xibYeiQijc7N5xnPAfn3K+/zbmVz/hnnNE29++3+TJjc5QUp//VkX2N
sQXOFr9JjDAuZmyJobvuXKy7VMp4Llbmq5w5nXiD8Ty8WjVWcSCrkrEVwq6K
F73Vuc34F+jmH26MbL3LeD4ODQvb2fbmPmNrKDNMF3/VfcjYBo6TH0cuktcy
Bna+23527ue6H6wAVs4QiJr+fsr2BYirOOLbsK6B7QvQkrk/ZYF1E9ttsWPR
+Ervmhdst4X/lEUvO2Ka2W6Hxvh7KqMsWthuh5jn508f6d/GdnvUFBs1zmlU
st0eHh9Mk9yr3rB9IaIXP//iUfKW7QuxyyLmu6D8PdsXwczX75Wrkr23ikXY
ofSu79f5ge2L0SLLeGrX+5Hti9Hw7Wv/gRqf2O6ASlvXm9b6n9nugOzq9IQX
xv+w3RHt8Tnv2ud8YbsjbM5FZ4Ra/8v2JYgZZ/450L6L7Uvg710a3bWwm+1O
CHhspsaz/cp2J1xqfjXuiWUP25fi3MF1Iy4Yf2P7UuQW5Gb6a31nuzPO1fqG
L/zIWOGM7IRBF/pV9bLdBU3x+pOSnTn4sbug/P3lFrtzjDmuGHbAtoqvqcJ2
V3SPk19oFTHmuGG65irL60WM4Ybd6bf83mr1Y8+74VmrNVcSyLjIDR/kf3e7
ZjDmuMNums3SdCVjuGOYZ8Tm34z7M9+97wUbUNePx7jIHWufaXU4JjPmeGBl
oZVTTBVjeMBdsz3hWhf5HtC/NVZoO3EA8z1QndpRO8uJMccTDvoffimUMIYn
qtSH7tJJZKzwxHkHQaA0k3xPfOx+l9tTTr4X8pY38t89J98L6u3Zl1d9It8L
xUl8gxtqA5nvhdc7v8Vr6jLmLIN1os8QhTFjLIPJgj8n2pkzVixDwY5cQZwt
+cuQlimQRTqT740mnfAzE3zI94bjmIioiiDyvXEw+vGMTULyvTFH/z5PLCHf
B1u28mTHo8n3wc3GvHbHdeT7IP36KPXIjeT7YIXzh5qf4sj3RcGNRMff/iDf
F469wZZJCeT7on/xkM5VO8n3xfpos0yTveT7YdpzZWXhAfL9oHbgoag3hXw/
OHvm5msdId8PvkfsXTSOkr8c8w/EL+mfTv5yzLgWO51znPzl+Ndr9dohp8hf
jgljjNNMssj3R/0ls0TuWfL9YT1wcX52Lvn+MGw16h2VT74/WtwcyvcVkB+A
hK4Xm6dfJT8AOkPjDj69Tn4Avn8b/+BoGfkBGLlnMjfmJvkrMG3dYl7YLfJX
IKeg+bjgHvkrcP60eWf0Q/JXQMW31mF3HfmBOL986+bCZ+QHosI1tOBTE/mB
aGufpWnRQn4gmlOdZHGvyQ9CrlV1+5N35AfByKwmyaqT/CA8jf0zIO0L+UGY
uWdvnVYP+VzUXdHdu5mj+oMNucjakyJWGcgYXPDXV3cqBjPmcqE9b0zOgGGM
FVzcb3CamKDNOJWLMpeTO3RGMy7q25PWxqfpM27kwvKQbslsQ8acYPQ4bIgt
mUj9YHxPybi6bAr1g9H2z2AP5XTqB+NUQZPFhtnUD8amVntVbQvqByOhc2Pl
cSvqB8NJPV1jPqgfjE/C4Yfv21M/BCmuZU+EjtQPweSLsy16nKkfgj2DDQwS
PagfgkF1CcIJPtQPwXrt0zE5/tTvY2F6si2X+iFQ/7Il8x6f+iHwUVGNCwyn
Pg+OC7xMlGLq8/reL/2xMjn1+7i9zODLKurz8JW/s3ddDPV5UH+8Ve/bRurz
YDDse+36OOrzkOIy+lHXH9Tngdf92DR6O/X5mJqdef3NLurzYTh86qTg/dTn
I/bah9s1KdTn44R0jY7dX9TnQzqj9EF2GvX5aHX2Lxl9gvp9z6+BYkMm9fkw
awv4teEs9UMxJsnjhXUe9UPRsXv0kZRL1A/FS/lYj85C6vc9Lzrq61BM/VBI
v2S9TS6nfihCOnWftlZSPxSNNt9OzLpD/T52vbp+dQ31BZjv+TzzUi31BeAk
cHu/PKG+AB80KqPNGqkvAP9pDSKaqS/A8REDVVPbqC9Ac3Zqy9126gtwZUhX
RU8H9QX4+v7a04mfqS+Ej2XMfccu6guxPd/nnugb9YWQNIjrt6iosb4QjZJU
x9SBjBVCBF7pTj4/mHGqEDl6GyVlGoyLhGgRraq6p8W4UQiVjmxx/SjGnDCM
P6H3+rkuY8Mw1G8K5jeMZYwwFC/Rev5kAvXD8HaG408PJlE/DGsfZ3hXTKF+
GKIVTYMvTqd+GNpN3q1Jm0X9MLx+MTt228/UD0eAwrIxci71w7FNd+/QpfOp
H45DadnrjRZQPxwvSnRlPfbUD8dJ95uT7jhQPxytGfq8w0upH47igBPaQjfq
h+Nij3bwdC/qizDxYLXnex/qi6CMrNyf6U99ERrXxawNDaK+CCZDjx7X41Ff
hP03Hv5TKaC+CBH1HmqrRdQXIXvpSLPxEuqL8Pue0vISGfUjYDAwQ8xbSf0I
VL7KUe1dQ/0IHNL7uG//eupHwCV5tuoUBfUjUL3FZXD+79SPwJqNJVewhfoR
eG1RYV6+jfoR4ISvjnXYQf1IWOjN/FS2i/qR+BZ0IcdmH/Ujsel4iWZeEvUj
UTrKJ33SIepHYpzGGeWuv6gfidSoW/O7/6Z+JJKutB0LzKB+JGyN9EKvnqS+
GKZpPiP0sqgvxthJk31kZ6kvRld8V0JpLvXF4LUbxI7Ip74Ymaan3AMLqC+G
6rGs5vRC6ouR+k5b3FpEfTFs93lPNiqlvgQuB2flBt2gvgSBLb9E7q2kvgQX
3JVWZbeoL8G6qdfzP96lvgRRu9V2GzygvgTb7ig4trXUl4ArqK8Kqae+BBOi
HOI2PqN+FFrVDI2TGqkfhUdv3POyXlI/Cr796y5dbaF+FOaoihOrlNSPgvn2
0zUP2qkfBXl88Im699SPglebUlj/kfpRKPqPh2XtZ+pLoWchf3rnX8aaUry7
eXpf6Vf6PVLo5LQ9Ov+d8Uwp+knynI6qDGK/T4pzvG3cbQMYu0lRIcyKiFJj
zJVib0zAIDd1xlIpYod3cEw1GCukiLuW/1lNk/FOKfKqlg1+ps04VQqv4ouX
s0YxPitFxnK1X2PGMC6SouPnwh57fcZ3pWjXuCdQH8e4UQr3jftsqg0Zd0ix
TXikaet/GHNkMNU6cNvOiLGmDCaysuYuY8aGMnzKy2/InMp4pgxNNjX5/qZ0
vwxj4t3N1GbR/TKoz5v7PduM7pdhTdJ5G09zul+GBPmnDZ2WdL8MOUK1vEQr
ur/v+87sHmVsTffLoKmULb8Cul+Gq6IDOs52dL8Mbt+PtdUtpPtl0F5z0JPn
QPfLELfZbYlyCd0vw8gFNX9GONP9cpxKM9mudKX75QgoiuHzPeh+OU5rrYx9
4kX3y5EgVra6+ND9chyJsAi55kf3y3F/dc4/UwPofjl2/9pcsTeQ7pdjzKm8
Td1cul8O/uS1jgE8ul+OR4oAi4JQul+O+rpC75FhdL8cr5K3uYpEdH/f8/JG
jcLIQfgvQ4M3Sg==
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxV13k4lGsfB/BRHYU6SZ32NG2OOipUdCp8VbbIFrIbxthnzEyJ1ndy0qZE
olJpKlLahEiiqSOkXZRKnSnSwim0HG28vde5f3Ndr39cHz/f+brH89zPPeOC
ol0FvTgcjoEah/O/7/9+tVtw/v8LY9ZPrR8ot2Q/74esvKhlpW3uzNqY5e8Y
e8c5mHkIcvo9wfnBYubhQPuREGffWObRMD14pjKhv4yZi5uPVy28aJbAPB62
HtV6Bl6JzBPh732v3zakMOvhSEpItVlUGrM+rngPqm9dmME8BYrMnW5i5UFm
A+jtnqhb/dsR5mloS4+Tez4/ymyIG0tCbVaMP8FsBM+YPbUFX84wG0NRUW++
tSyfeQZ2p57t7Hh4jnkmzPvxHWf5lDDPgnbL14P5dmXMJlAWxvUe8EDBbArX
rtZjq23/ZJ4NjZU3smZ8v8r8O05eMvqg/7maeQ6OFeTq/oIbzHPxyhYx5vW3
medBK0+r9fmTu8xmqBdduNX95R6zOcZ351p2zL/PbIFSeVHDvKIGZqB6WcYz
Q/fH/1oGaDnW650d+5TNLRFeE+22e6uSzS0xwGeTXdDI52w+H+ZqS84nljex
+XwIrueMm7XiBZsvQN7VM1kWeMnmC6D/MLUzcNRrNl+Ixnjvv0apt7L5QqTa
VY271N3G5lbIdE9oiu/9js2tcI7vOttkC12n1liz/IlZwa4ONreGtauoeMqR
Tja3QcallL3xBe/Z3Ab+V2ru7q/4wOa2eOt1WBRc/5HNbVGoG/OmrPkTm9tB
OdW4Y1/HP2xuB4+kyMLuL11svgixaVNbO3s+s/ki9B7VfT+t5wub26PuQ8WF
wZ+/srk9ROrLY0+2fmNzB6zgm/Qpvv+dzR1QFv592cGSbjZfDPus8TXNqT1s
vhhpfom3k4w5+HfuiLF2McZx6cwyR5yxONuy7SPNneAY6KN5zkmNzZ3wviS4
4lkWM8cZlaEzZg74yAxnlO5S1/kdvdjvOyPO85CTcCOzwhlnfnYoLa1i5rhA
3WXDnnl9erO8Czwbozu05jHLXBBXaFC+KJpZ4YLGD0WZ3ExmjismCAbnF1dT
3hWnDY31zd9R3hW9vOu1Xwzqw/KuCB9suvUvQ2bOEhwYePlKoAMzluBCwBXJ
4WBm2RLMMFuwsWEl5Zegp6pSY842yrsh+VTrge/7KO+GSxKblqXHKe+GWwt7
VqwtpLwbGpfutz1cRnl3BISnlX+soLw7eMauuTk1lHeHd/PbLc23KO+O804v
j96/S3kPTJtXWZd9j/Ie2OyptSu2jvIesH6fuEhEVnjA61qcxnH6fc5SCCwy
GqxqKb8USxde3ep/h/JL4fkqVKyp6l+KvxXH0vyvU94TeysVzcJqynvCVM3i
s+1VyntiQ9v69u7LlPcEd0D/3P3llPfCBc1r6gallPeCjonWg2XFlPfCB6sX
6vsKKO+FeEedrItnKO+Nmw2epW9OUN4b34/Zdhkdo7w3av3W+u/Norw3dtcb
/TnpEOV9kHyQb/bwAOV9kF12e2VhBuV9UFnfcbx4N+V9MAuOwme7KO8L3+1V
xw13Ut4XNYummmftoLwvvq8PjJ+znfK+2FH1zKBjK+X9MHZqy5iqzZT3A8ex
9lzJRsr74fSm8PiqDZT3w7Eamd+7eMr7Y9vdBV3T11PeH8X9Ro/a9B/K+2P0
+uzH79dS3h+mSb9OWrGG8gHYtt+tuf9qygcgMqG47Rxd77IAdBpr/SaJo3wA
NBcZDjaLpTwPwR0Dx45YwczlQffkxuk/xdDr8bB5o19mzzJmHg+LxbPb+pJl
PKzauSphjJRZzkN/xfB0Cwn18TDwWU22UMys5GFm/nNBTjT1B2KTUa/2VhH1
B+KZ1j6HuWQE4opFiEWakPoDcUGnPbMrivoDMWLo6l9CyPJADKuNPv4kkvoD
MXrHoWw/svKHc9s7WyKoPwiPV3jXxZG5QdAIs9mvQ0YQpnGuZRaEU38QclzK
6nzJsiAcbfVbN4AsD4LdmNonV8OoPwhBk8tuJ5CVQbg1YPFbezKHj9sRQ+cP
J3P50P9QZPgmlPr5GF00NOUKmcfHGP+oXw+RZXwIk43sNpLlfAiubTeTkBV8
fOQsSwwkK/m4WV5ru5TMCUbWhGJrVzI3GP2zHuotUfUHI9VryzwvVX8wdDdJ
yviq/mB4G8+Mlar6gxFTlWii+nsUwdBbbrAuU9UfjEdXBOkXVP0ClB/NaX2s
6heg6vJnHTV6PyDA9gmu1VPIPMGP/XGIpSdZJoDnyzklW8hyAYbYqL0uV73/
AvRPT5zzj+r9FwCxJvXG9P/ihGD69pmDpGRuCO7/9OlgIRkhmJ9hvO+r6v8f
gj8+ivpa0/UhC8Gdm8NTd5HlIWjvu85IdX0pQrDQP3Lv76rrLwSt+5MnJpM5
oSjhntzxhswNxYx/etXa0PWMUMTdCmnKIfNCAdO6bg26H2Sh2DnF7YSILA9F
RL3tnvtkRSj4gvG7QfeTMhTWwpC4U2ROGGZZxRSOpvuRG4Y/ErwiksgIwzat
huRedP/ywrC5J0cZR5aFoT1JsLqDLA9D7cNR9ZGq+z8Mq6yGGbwiK8MwpTPV
PoT2C044WruMXr8gc8OxL3NjZhjtLwjH5gWFGW2q/SccEycvGS9dTv3hOLF3
U9oXsjwcckf/dRto/1KEY8+49RcH0v6mDEd+hY78AJkTgSZ4fDGg/ZAbgZeS
b/wyMiLwlmNp7ET7Jy8CXUPmcZvIsgh4uw26Hkv7rTwC3woOvxiwivoj0JwT
dCObrIzAHZ9eNRa0X3Mi0W+Vvf0jMjcSjq/1HVT7OyKh+W1k5WDa/3mRiO/p
lpwlyyLRMn/ICOd11B8JjYCee+/Iikg4lM/OT6bniTISomE362fIqD8KkdqT
XR+QuVHQ/fxb6BrV8ygKQ6+LrcfT84oXhVrDceJqsiwK0nHjRNF/UH8UHqUV
HRqmet5FYeEMvZ8uk5VRyCw9fS4igfqFEEsW+/5Cz0uuEG80j21WkCGEhVbw
gahN1C9Ehm6nywh63sqE+Lb65+uVZLkQcq/DD5ZvoX4hBiXFnJpAz2ulEHF+
IzbfUz2/ReD/+WtNfCL1iyB+0NFoROdDiPBUu7XyGZknQuehA3qpdB6QiTDz
hDjVKon6Rcg69WFkF1khQu3bspW5dJ5QijClYraLXzL1R0OrJDddO4X6o2E8
vIZ/lYxoTF9TqraKzie8aNiYJNZNS6X+aLQ3Pt3STJZHI+S5xfAMOt8oouFR
4t7klEb90Yh0dhuonk79YmiatS2+SNYWI68lu0lK5yWuGHdMGvQm72E2FGOk
8csHf5EhhnE/tfDde5mdxVhTUajlROcvnhifVmvYqNP5WixG4bVPEy6RZWL8
/cGnO3Y/c7IYg6sq6qbTeU4uRustj7kvyXli5Ot5VB3MpPWJUfB4nabnQeY7
YuxcW66tLaf1igHJ+dhqcrsYuvdWxclU50cJhrmIj8w+TOuXoKkt6Vo7mSvB
aKfAC8eP0PolmBLfOjeIzqOQYO7kb1NHZdP6JTjfUqhXR+ZJcLpug8P2o7R+
CTxN9vW3zqH1S/Aoc1BANzlZAlOtzNgiOv/KJfAtt1QT0eeRPAl0bKzkk3Jp
/RKsz4ltbCTfkeDppzTrXXSeVkrQ29yy0v4krf/H358ySaP3KVq/FCkvHkaU
kLWleFVsry8+TeuXYqhX3yQ9Oq8bSrHr67HsRjKk2J9y1To1j9YvRaEw3d7u
LK3/x+s9dXzUTRZLwa/vyivMp/VL8c1n6/Vw+nyQLIXhlC9WuvR5Sy5FQ9IG
/VpynhR5WtqaCedo/VK8Wd76ybSoD/4LeoktJg==
      "]]}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], Thickness[Large], 
     LineBox[CompressedData["
1:eJxVWHd8jOkWHlGjBlm9DKu3JEREzRMiDem9ziSZZJLMZMpicZWxVrm7rrK4
OqN3suq12lgbUS4bvcestTqbkEVY3O/9vnPu72f+8XtyvvOe9/Tn1S7DFKVz
UalUPaqoVOJf5Vfm98zjUOcGdYr86A9o0yRv1Ks5644psBZ6x3p229LYQdgN
ri1XpXU9ayPsjjVXvf/0HV5M+s3Q/2qR0dt2jXAreI7cWDuw4xXCaizt1mzR
ZdcSwu2h3/Pkq31fbKPzOmBSyZ7Evw6eIdwJvwzdkVtqYdwF/5jmIZ24n/S7
4eTtfd9OLDlLuAcy3BL67z21n77vhTMxxzevDyskuSfEad/NYfte6Jv2U0hd
F9bvjbJNJ0f0++dpwn1QLCF/zT7C3kgeOuTRje1bCfel+PD5PhjwZah0xcuE
++Htz1lbNTFXCfsi6j9tpj+NZPv9sffU2KOrW3D8BuDbeuG7FuochAfC3sLj
TocaHL9BmHv/ZduLJo7vYMjhusnnD0HmlBuDxydcJ+yHMydEAO8QBkR2o0ff
VrANWKSblZl6u5Tk/ri5/V2KsYjOs/nj/NZfr8Q9u0TyodhT17L9+1t0vm0o
Ru/74v3ZF49JPgyhcoKekHwYblVOzjs8+inJA7Ciz9q9/d6WkTwAPdu1rTDE
sXw4TI2mOc6seUny4chKvR1YdRxhVSCqxdXvuXsl6wdibvToDos/vSJ5EFo4
ktX+5RUkD8KBC6pSF9e/SB6Ma6Jcg96RPBjLvl6x9suDb0gegnEC/k3n2UKw
pEBciM5ThWL49bKK0ET63hYKKfklAdffk3wEfM4NDLsw/2+Sj8D8BhN8tg2p
JPlIbC2/OCrD7S3JRyKk16d2H16z/ij8e7cIMGHbKNxIHxvepkkVKPIwGB++
31IepVKwLQzukvWyCtYPR8D3BukLth+Ojct/URda6XtVhJKPChcFIwI1zzeP
vNmyKp0XQf59UvQdERiROMP3ahFhVSRaSF9P/I3ug0h0PetW/JNvNdKPxL6N
44u7DiC5IxJhoiG96XxVFOTjjIQRhQXNpIzuoO9tUUr/96f7OaKwPHb1th0J
rB9N9cn2o9GgjmQxiL63RePjsHfPn4K+d0RDTBt9e9aPwbTIkJW2jex/DMQ0
uP+S9WPQRRxYyfZj4N3QZ9CRKPJPFYtlS6Vfc9aPhTI/+f6x6P1gZ8f7VSne
jlj4l2f+N3UExy8Okfmi4kiOOCUezzmfcZ+f54jDIKmaUiZz/uJRac/Z8+QV
+x+v+LeW7x+PVX9KA+wA249HxL8WSxXM9ZMAY9yknfszWD8BD/zW3z1an+5n
S0CQtbLB4//rJ0AeJ104fokQ0l1V2f9EzA59Us274UfST8T5WRdLnXVYPxEl
0vTwGMj2k+BRsK7K4ersfxIG1762znyE/U+CVh6oHP8kzJ/8foA5jLAqGdVF
Qgbz/ZPRXB4IH8h+MkR7XDzH9pMxZ4ylZT0N66fgZWGElAG2n4INYWisPcH2
UyCXpzfbT8E2Mf48yD9VKjp0mTz7YD7FC6lYOHN60qXDrJ8K9UVTes3zNF8c
qeg5rNXTez6EVWlKPA6xfhpMZdNPxxzn+KUhXF7ArJ+Gxi/9f82+Qv2sSsd7
qfo/7ub7p0MeVzM5f+lw3xn02wR39j8dmS+SpI1F8VFpYDuAb+4FkVytofnE
99Gg0ksUMH2v0eBreUBzfDWQx/Uk0rdrELjwdY30JXQ/hwb1xfqaRfPIqYFZ
LgieT1qIaF/qTv6ptYiuvu6HAVXofGhx9HjTTtFcHxqtkj/Wt2kpPoTtWpqn
PK+06CcvAIqnU0vzmP3PoPxS/agzsGW9KAD2P4PmBelrMrBJjLNGnN8MxIh1
M4/Os2fATyYg7H8G3ol115i+d2ZQv3D9ZCr92Y/mvzoTcjtOIYxM3HXWWbDl
G/JPk4k3Y5wrGm5g/zPRR/7RefZMqg/2PxNrcgShYv8zaV5y/LMgkRfpD4TV
WZhTo6xJcAT7n4XOP8/YFH+GsCYLkvc/nJ3C9rOI71H+7Fm0bygejiyMFenq
SdiZBZVparWiueSfSqfM1/FsXycVY/GSQ024nnVYPajH5WUPuP50SjwXcH/o
8GSRWJCcfx3uJTSVVjzHX4c68gIi7NSh1UQxUXh/Z+Nw9Ubufidfk/1s+OYE
5JrK6Htkf94/mmzI63kM91c28VHC9uzP97EjG93lAqJ978zGCUH/orj/c7C5
ryhI0lfnYPdKURDsfw7xM85/DrxqbW+VlMX7PAcy/Q1k+zn4UYyzFRQfRw7x
LbLnzKH+4/rT43m9o55LuxFW6/Hx8rjHnbzovtAr86GY7evxXVsxQTj+egy8
Gy5tFI6/HpsFXfYn7NDjD0FP0zn/erjKB3D/5RL/4/7PRa3BYsNz/eXiqhiP
nbn/clFb394wbgLztVziS1z/uco+78T+5xIfY/u5mCAKmOOryoOortabOP55
aLThiDRx6P7Io/3H/ufBFnxsUmtf9j8P46Vo1drO9vOwq+P9aavOsf95xKfZ
fh7e3NdKLcP289FADgDHPx/ycyuaMPKV94cr118+EuSC4f7LR/eZTW6cf0P5
sucjQKI7jv5sPx/yOHjI8zef+pX5h4H4LftvQFOZIHP8Ddj0KFiKMNs3QHp8
TF00jP03oK6LuAHn34DCqg9nd2H+4jDQPKfznAbis1z/RiTKBik+aiOayw3M
9o2Q083zTmOk+cj7x4jlUvYeBfP+McLZc579rRfbN9I+YvtGiNeqWzH7X0Dz
jvdfAdUn3Q8F1N/E7zUFtL85/gWQr9eD7RfgobhOL7ZfAJnuneL5U6D0cwXn
3/Q5H1ObIIeL+QpM5A/PXxN0coDYfxNeTPSTnqzc/ybyl+2bUGWU9IL04P1j
Uvi6lu2bES4WcDTZdzOjkyjfrXwfM817sudpxgyJ3fzuzvVpxlf6+c8n+tH3
EWYlXuWENWakygSc7mc2U75cFLnNDMEupq0iPM9M9cj71Ay/+OQfjz0j/UIz
BssNy3zeDOHeLnfCJWaFj3wg+06zwu/e0PllZsyquHVt6ivmrxbahyR3s8Dg
KjHqPiRXW5T92Zf4vqdFqb9P/F6xQBsT1dnuSjjCovA95qcaC80/0jdbIC3z
yJDW/D6y0Hxg/y04/YdEwIdwPVnwu48gMIQLLfS+5fxaUC69zmbwe6vEAnkc
XKL7OC2Qn89FhMssENnqW8rvFyskshef7EVyNytKF0gENprkaquyvx6x/1b6
/wzCsOJCe7FhapD/Vtqv1cl/K+WH/ZfOe734zoKa7L+V+ofsz7Ni9i29RBEI
260Q1x/uQ98XWhW+tpfzb6V97IL/AS3ImHI=
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 300}, {-0.5, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8103102426703644`*^9, 3.8103105294222593`*^9, 3.8103108851372623`*^9, 
   3.8103112008453465`*^9, 3.8103118472121916`*^9, 3.810312241675522*^9, {
   3.810364621753601*^9, 3.810364632866311*^9}, 3.81036858691613*^9, 
   3.810368850898137*^9, 3.810368976353161*^9, 3.810371183580714*^9, 
   3.8109597774172316`*^9},
 CellLabel->
  "Out[939]=",ExpressionUUID->"df545464-8b9b-453b-9083-ac3e8c642046"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tempB3t", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "10"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "13"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "300"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "5"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Gray", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}], ",", "Red", ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
       RowBox[{"{", 
        RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Blue", ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.8109598117237406`*^9, 3.810959826288721*^9}},
 CellLabel->
  "In[941]:=",ExpressionUUID->"b7f98ef1-1648-446a-a608-533e5be2ca31"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxV1ntUzGv7x/EhCtWWQjklSaVISGzEp1CRqHTWYZpppnNzICVPTG2lHCq0
KZGQU9g5ROEpk7YzpVC2QlEOKRWhLfT4Lfc1a/3mn9ara13zXn27565xPJGL
oC+Hw5nUh8P5v6+/Xh3zOf//BZ5UtGNH8lD2/QGoy9v28tgqc2YNRO20mDhS
Ys08FIGJjuLR95Yx6yC9Nr60YoMn82iID+55PsaCx6wH15kj5jXfCmHWx9yu
w84fD0qYDVCaaJSvEhvNbIg+wpRx4l3rmY0ha9Mrv5/xB7MJziifuVh1Ppl5
Enat+ao6/l4qsxne7XwxNenHDmZziJWrVbNn7GaeCvVhQx/E6u1lngaHwfHG
R1pymacjYmXTsZ4ZecwWQOL0xV0/jjLPwHtryRu1FSeZLWFS2bNHP/c080x8
7P5TtCP0HPMsGGy/3WuXfoH5d1gNyueU61xing2bd9LijaqlzHOgU7K1uWdm
GfNc1GSrTMk7Us5shVsGzvVT3a4zz8Ootvjtdba3mOcj0vSUetb6u8xAXlLr
i369lb8sA7wuLbo2tbmKza3x1K2flX3nAza3Rtp7r6YYgxo2t8Fk25D5Vhse
s7kNdo49l1nZp47NF0B6967upJNP2XwB4mqt+ivPb2DzhXAx5WVHXW5k84UY
WOUzQsnhJZsvgvtum1NmbU1svgjn0LTc78ArNreFqeHJB3XCN2xui7jL2woe
z21hczvs6whIkeq3srkdNO8d9Ds7/D2b22O9pcFTOzV27mX2cFCxU12n1cnm
i1GksXNwgN4HNl+MtanBVoHTPrL5EtjYLHjyzr6LzZegvnNJlQ//E5s7oI5/
WGVU/Gc2d8DRCY7vUg58YfOlyLCMfKT+dzebL0WyyfBg9Tf/srkj2ivtJ35Q
62FzR+QuGf3BeNo3Nl+GoSOsXcZ7fGfzZbhZ7zXRY90PNl+Otp7k8cjpZfPl
eLU1Tem0Pwe/5k6wXLM1eWw7M5yw9EzCbMu4Pr8sc0LAdYHllYF9f1nuBCX/
Uq2UDGaOMyrU/8kWjlFi+85QakrfaJbHLHPGuz714y4b92P7zlD1islqyWfm
uMD3WcGc/Sb92b4LRhk/7C49yixzQZRqVeZ0fWW274Jun6L0lixmzgr0u+hY
9/A3Fba/AsKvg66+kjHLVmDP3XYlnQ5m+Qq4pyZG8H0GsH1X8L5v3nL9GjNc
wR2jXWY9aSDbd4Xf4Q9Xa9OY5a4Y8KKyaFsHM8cNPrJH/cOWDWL7bvCMvbo5
5jizzA12C0OMy/qosn03rGq6OdTZg5njjt6CI9Uz8pnhDtvIgu9xX5ll7oh6
7GD4u70a23fHkk01KdE7mTkeiO35Ure4nhkeqHZ0ji3TV2f7HsjoO6C6Xcgs
90Bh59zVr44xczyhxZvNKXrDDE98anyltsrwN7bviZrUcpVJPGa5J9J6da0+
ZjNzvLDbJvXoPw+Y4YV1OVuK2wcOZvteaLOyyJ89j1nuhWLNETfuipk53jhx
0D6m6AAzvFF/xGieahXte6Ms0qul9gfte2OB22qzXcM02P5KvBu2WKRqyoyV
eBb7JrZ6PrNsJXYLbcs7VzDLV0LHf3+0KIj2ffDQTRLhHEv7PkhDjvW+rbTv
A78xT9w8c2jfB9YPuTc3FdC+L5rSpBJzOe37YvDBThWP+7Tvi9O6Nzt7n9O+
L5w2CtZMaad9PyhFOBe+/U77fnhS0Dd7mtoQtu8HJ751vfpIZrkfbJcHa28w
Yub4I6S+ojbFghn+aN/ov3qqNe37w+1J28C1jrTvj9ChWy7yvWifi6Qu29Cu
QGY9Lng51Z8ni+n9uLjj/spQax0zlwuP2LDNRxLp/bnIFgvzW9KYc7kwsXT4
3JhFPS4O/PtNnnqIuYEL/RgNx48nqR+Am7r8O0MuUD8AecNMHVtLqR+AGa8t
GjfeoH4ADhTGyZ5WUj8ALp6DON211A/AhfKti2qeUz8AOo+cdWNfUz8AK/9c
ZNj8nvo81CaZjRjxmfo8pDdfSNb+Tn0ezF7d+dKopMn6PAxf4/9k7SBmGQ8h
t72LGjSYc3k/7y/XVm1tZjkP9iYWT/XGMDfw4NbVWP9Nn5nDR8Zeg5GnjJn1
+Hi0ofT+NDNm8PHjcbFh2nTq86Hf27iifBb1+Rhn3Bl134r6fFyd9PRkkQ31
+Vi7quPbWjvq82GYtSpQZyn1A1ETHfNypxP1A2FfMjCyzZX6gej+XbmPoRf1
A3E13XXdPF/qB+KQzduCmQHUD4RXQ90qTQH1A9Gsue94ZTD1AyHll2mLw6kv
QPdFYUyXiPoCTLAbdsx3FfUFcK8ucTi5hvoCHAt9ZNS4lvoC2CVVNHz7D/UF
UJtnZ8SRUV+Az3njc94lUF+AlNdR9VcSqS/E/Pap8XHJ1BdCS+WB6YQt1BfC
OXlVeNE26gtxTVWzxSKd+kIst/Qdn7OD+kKUf/pU8DGD+kJ8Pr6+n+Vu6gvx
Si02WZBF/SAcETZWJGRTPwg9UecCUvdRPwj/hD85mryf+kHom+AyVHqA+kGY
UuE6wOEQ9YPgUJjVrXWY+kFIUq7wuXeE+kEYd6FjU/Qx6gfjtlleq2Y+9YN/
/kM4umn/CeoHI89lV6XuKeoH47yGQDX9L+oHo+VgRuvHAuoHIyrywd0lZ6gf
jL2773/OOEv9YNjou8irz1E/BHWLVkb1O0/9EEyq8vM1uUD9EIzt0HuxsIj6
IehwtJjiWkz9EMw6bp7meZH6ITDtncVzuUT9EPw1/uVD68vUD8G0vLMTjP5L
/VBcu77tVN8S6odia2t05kMyQtGSVzlyXyn1Q/E1ynq1zxXqh+J5+OZWTTn1
Q3ElO/mQnCwPRUVX6hNBGfVDceKCXUXfq9QPw6QxAZd2k/XC0NV4/rxBOfXD
YKBs1iefzA3Du54594z+pn4YDn50N88h54bhQuwVnvo16och5fid7VHkhjAU
W6e+rSFzwjFcJzl/6nXqh2OYutHTRDLC0TgnvvQBmRuOmV8HB4+6Qf1wzOgu
7PIh54ZDMP1EeiZZHo4mn+vCCnJDOG6F1u/5QeZE4NnCmnkTb1I/Aoutpq5f
RkYEVHYYSCLJ3Aj0y+RapZBlEdCSJ33LIedGwOfa/ooCsjwCh96MvXeZ3BAB
owN12uVkTiQcl0sqryn6kWjWOtyhmCMSJZOHZJYo+pEobH7cflbRj4TaQm/d
PEU/EtWm32ZuV/Qj8als8MJYRT8SblYSF39FX4SxRa8ToOiLcP9lQssYRV+E
fTt+K/xCz4srglP2ydp7iucvwnDvoMhcxfMXQSD1zhQpnr8IsfFn3econr8I
HkMCy5QUz1+MNv2e1pv0+9UQw/tpUvNmxXkQ48/iNPlisrkYc4cvTuivOB9i
xBRb2ZXSeXISY5iX3sTVZK4YVbhuYkQWi3GzfINzreL8iqG816ZqIzldjMTD
6vunKM6zGP1MhYW1dP5Pi1E9eeCEOLJcjEUJdSP1yPfFWLD+7y1y+jw1iHH5
jzN/+JE7xBjOPz/iK30eORK0DJm7dCdZQ4I4Tz1zE7KeBKnFvfdK6fNs/tN6
D+BMhgSb1Cw2NNJ94CSBx4+2gyIyV4Jn0aLTPXR/iCVoUB94PpEsk6D7HP+0
OjldAonhl+M76f7JlaDq9sZT2uTTEuTlmZZk0f0ll0DbK7R1BPm+BBZJtXMy
FfedBMGWHSVDyR0SlL8tik2j+5EjhW3+hKgBZA0ppvguP7aB7lM9KaaF/Wv+
ie5bcylG3chUDSFDijbVv+bX0f3sJEVM1LomB8V9LcVa4ej3l+g+F/98/7hd
gcZkmRQVSro+GXT/p0sR7Vt/60ch/fxS5GiZFQaRT0vxm7FAr5L+fsiliK9Z
ojrjp/8HVs5CGg==
      "]]}, 
    {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjHkfxicqh+w6dJCSLTlUooNDSLojkXTOdNTMNDXTuZmxkRw2LbE2
lVBoU+RKDlFSsUmjfVGsJKGDU202sjHKaSt6vZff13W9zz9zfea+7ufzu59n
/hmDoBiPkCEcDsdUicP53+fXS2HL+f8Lu0sF/rl11uz74ZBr9ExcnOPFeAw6
XyZt5foHM9bArlOCDr0mCWNt/CZe3Xdt6QbGE1FY92qU6p9bGetjZ/O/sSUq
OxlPxjqhYlnW2lTGUxC6IW9k+qR9jKeh7WNP437Hg4yNIBpvVZu0OoexCf62
H+oiNM9jbAqj2/nyumXHGc+Cap3Wx5yBU4zNMao/2+luSRFjC3Tc4M9KvVXC
2BLg1pddXl3OeDZ2ul/Mn+RdwXgOlm1IUf71YRXjuRg1pHjdzrhqxvPwaUh7
62+uVxlboUWcYJcXV8N4PhRZP06O/HiT8QLo7FtZM//ubcYLYfFwywBftYGx
NfyT01O+82pkvAhnEzJDL9y9z9gG07YrQvSTmhkvRkqSXllYxEPGtnhms8hu
2c9PGAO8/TXOAaK2r5wAqBoc/2uG4V8st8OR8d33ND50sNwO4z14ug1P/2b5
Eux8v2Xy88fPWb4EmZ/eJOa87mL5Uliufa2jPrab5UtxujjS08TuNcvtUWV8
KrzpMvvdJdiDt1bQb9z+huXLYB6ZPt17RC/Ll0HD0zdt1uy3LHeAyUz17XGB
71jugO8rc2s4u96zfDnuGL9Syz3/geXLUf+wOX/Oo48sX4Gu+AyTgiF9LF+B
NLn2gX8N+1nuCP8pXAczDLDcEa2Cuiki7ieWr4TRrE7r+pDPLF+JVfU2vuei
BlnuhNwFV16dm8fB19wJXaXdI2ecY8xZhd83zYxSMlZi+Src9Yt3UspizHFG
84GTisFhQ1juDKMJ96NbYxhzXDDm/TrHTQ2Uu+D3Xh/FHbOhLHfF+1IV3NvB
OMEVFgNi7Gih3A3LF64XK6Yrf2W4IXZhVqy+hHGCGyKedsydWcJY7oYm/SvW
Fm8Yc9xRc8Rb2dVEhfXd0S60HnYmkHGCOzLGaHrGpTCWu2OlLCyx9SJjjgeS
74zFyDbqe8DUrvDofGVV1veATfPUHdmGjOUeeNEUvE1qy5jjicO+WeavvBnD
Ex4/fbJxjqK+Jxa4La+p/Yn6nsg32up4OJX6Xjj6aGjW0Gzqe6HNbrOjZQH1
vfDCdoETv5j6Xuj9J7ai+gL1V8O8Li1492Xqr4aiN2/+62rqr8bt/dr1Wteo
vxo7Wwa0zWqoz8XHyNRAfi31uYiMj9auJ07goqnyqfoRYjkXB25l3Oz51veG
3ynjxW3Xqe8N13zdYTvIl+CNyPmKvX3/ob43FEG1Ja5/UN8HPyRIWjKvUN8H
OTzDle1V1PdBua32e2vaJ/dB18w+h6JL1PdFfN+LuBUV1PfFFp7ex5G/U98X
9zLmW3x7XnJfHC5YKkgpp74fzjqdmL69jPp+wIfmcedLqe+HjWZ9jwyJ5X6o
2m01r+k89f1hrpvZ1EAMf6yf8kJL/VvfH6XqVmqZ3/r+MCtfKAkgHycAdQOm
hTw6DwLA3TJhUzadNyEAvQb388fRHnkA1rnrZFbQXs4amB9di32V1F+DXbV2
5Qe/Pb81kOq8vHednq98DZZsV8rSpffBCYSzmYUgnd4XApFce2C98bf3H4h4
7aVxj25SPxAeJ7gLT9dRnwe14nrRvjvU52EiN6p1byP1eZBfyNp7/AH1eWi6
EbeuroX6fPi9LbNUfcxYn4/FuZeindvofnzEVQZa53Uw5vOxLaIiSOU53Z+P
HQ885bKXjHP5CPFsmdH1inx8iKv63MN7GD/l42QvZ1HPO/ILkGrWN3nrv+QX
wHjF8Wuan8gvQHvpiCtnOcOYX4BVV/gbXJQZJwgg5V7YoxjGOFeAzkVvVmao
MZYLMBHegbajGT8V4KNjtVrXOMacIDgpLX+SocVYPwhc1bsD9jqMEYQS//6s
Xj3yB+Gt1sn+IwbkD0L3kcibblPJH4SLr+/ZDRqRPwiuK07EFZqSPwj2t3bM
9TcnvxAvBnRNh80hvxDF5WZuxVbkF0LS7zHK15r8QrS3VagNLia/EC6W6qPz
lpBfiDjZJO4yB/IL0bc5YuEzR/IL0Xp2hGuiM/mDkRh6L2+iO/mDwX+uN/q8
F/mDET3bU9fRh/zBMOgXzW31J38wOreOLwnjkf/L/eLGRb8NIn8wCuy7dDaJ
yB+MZEmIFyec/CHgZPRvS4gifwi6Um+//CQhfwiMMg391/9I/hDobi/Z1L2e
/CEYczWokLeR/CHI8+w0qdtC/hAIu4b8MT+R/CHQSXyklLOd/CJMjuFpKv1C
fhFEfo1evGTyi/BuTeUvF1PJL4JG996zY/aSX4QfmuMHhBnkF0F28uGY8wfJ
/yX/abQmJ5v8Igg3dQ465JJfDJUT75R35ZFfjOFOPfW1+eQXoy9xQZrKSfKL
0doT6WhTSH4xjk2oFEqKyC9G140zvJwS8othsOj+4xtl5Bdjpij91ZuL5A9F
3/FbqzQryR+KmzYj982Rkz8Ux24+een6B/lDcaH2mK/4GvlDYfw88Ex8LflD
Ufc4S33Xn+QPxSKDdP39t8kfiqMqc8b/1kD+MFhuNGk6fI/8YSjU1bPMbiJ/
GBStfrsOtJI/DAEcr5DUx+QPg2rRwIjENvKHoWXT+tPSDvKHocBvl96aTvKH
QbPohIt9F/nDoVWmLjLqJn84wh+IJMMV5A/HwfsGhh095A/Hg83jGyrekT8c
NhbpU9M+kj8czWbvP/P6yR+O+NtuHNPP5A9HQXHf1rdf/kd99UegLKfgz4tD
GetHoPsh52C8KmNEoJZ34KrVCMb8CMy7scj7jRrjhC/5o4cO+d8zzo2A+ZNf
V3iPZSyPwIM6343KGoyfRqD+qOf7Qi3yR6J0rFOp1wTyR0I0asnUD7rkj8S4
5g7/jEnkj4S91a1SCwPyR6LgB++GGkPyR+JNeu+sgGnkj0S7q8a0f4zIH4lD
VSkVcTPIH4UdKXrWSrPIH4Vt5V7WSebkj4Joz3LxsNnkj0JNr7XO9rnkj0LI
d5b6g1bkj8KLoJjc2IXk/9I3+TH++SLyR6FaGv+Xty35o3GpQUXzP3bkj0Zy
0bCqGfbkj0Zd2OylqQ7kj4bN8+ptr1eQPxqydRnfOzuRPxqf81pSjzuTPxoi
obLDZ1fyRyP00Foldw/yx+B6ZbVbrhf5Y3DJKtDyHy75Y/C62iFzri/5Y+Ai
Pa290Z/8MTjc1TC2cg35Y9A+VF9ngEf+GER9+NXfKoj8MRhclW4eE0x+Cabv
mXs5T8R4jAQ+fpY3GkPpPBJsnBG6b0gEY3MJNOZUZ5hG0fkkcKm0jPOMYewm
wajb3Oz1UjqvBFeKgvkH1jKWSNAobhCWxtL5JahLcwqsX884TYKAkqQPnRto
jwRa+5QF/RsZF0nwdP5ZPbUttE+CVx2PftZOYFwvwWPz2NDJibRXgtS2N61G
2xgrJPCS6olNk2i/FKc3p4Sb7qT9Ujy6tDDYeBftl0LRt9fSMJn2SzF+yZ0k
nRTaL4XRUrHg+zTaL8XD+KKtg3tovxRLHl/e172X9kuR/d3pqqb9tF+K/kb9
FHkm7Zfi0NWDg8cO0n4p9JWq7ZOyaL8UOxffmRicTfulmGIZq2mbQ/ulmHZT
uV7rCO2Xom/Oz7Uvj9J+KZ5p6vRUHqP9MjTMsBu5O5/2y/DukG2qTwHtl+HM
E0WywUnaL0PBrAZZ5ynaL0NbTaPzyULaL0Ng4/XG8LO0XwYTG662UTHtl2HT
hLU27edovwxL2j88O3ie9n/xdV5d7FJG+2UwGBAHD5bTfhn+Rk1Q4UXaL4O1
VP+5d8Vw/BdJECT7
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJxVl3lUjesex7coUbciOpmSZkMpoujgKxmiNM/Tbjfv2ru9QxI6iWsqDYdK
ijLUkVOolJBzEiEqDaKDFAoppCSJXHd5fnetu/9pffZ3f9/P81ut533edwYv
1NZPgsPhzBnB4fz3789PzzLO/3/w0iI9uqJSjn0vDUmZWzbbL+swVsDLW8ll
BeaLGU/AKZGV0VWz1YyVEdGofWdjnC3jqajXOvhg4zE3xqpY55o1Qy/Nh7Ea
AubPnbjgHz5jDYwT2klIdogZa6HQTq5s2GkzYx3YXNfNPNe1nfEsrNUJ9znZ
EcN4DvyLr3bOO7iHsR6eSwuKupUPMNbHpSKtxy+rkhgbIEL9vUl9UjLjeQhO
uHt0WX8a4/lYt8Fx6+9SmYwNEZ65blNuyAnGCyAxqiN1yrVsxgux3a5CyjM2
l7ERGiziJJIf5DM2hqzL6+0TnAoYL8IRFQPLO3IXGC/GhF7ZWB3li4xNMDG5
b21zxGXGv2J4Tc4R64V/MV6CX58pFL6ZdY3xUkzfE66hLrzOeBlm1aJM/lUl
YyAoPFImJ/X2T44GsmbbKBzecZfly2Ef2P19ZU4ty5dDJ29apOvIepaboj82
w+x2fQPLTaF18uiCpL/us3wF/LWCJc5UPWD5CoiybxQ29jaz3AzvXxjVZy56
zHIzNF+fphh6tIXlK2EWn//4klwby1fihef2827uz1i+Crvzg2bJXnzO8lV4
ONrxkLZKO8tXY39qb9WXxA6Wr8aevmM5FXKvWL4GPWoRgrMpr1m+Bjbz59a+
0H7DcnPk8Dpfb7vWxXJzzHz43fEA7y3L1+LA+33H1Me+Z/laHFL9c0a2G+2j
dZC3HHq2y/ADy9dhabzEJUP5XpZb4PK+VdeMuxhHWyB/QW+c0u0+llsiIUQ9
wyH7I8stkV/3teC3mH6Wr8eqHTdbZ3h9Yvl62L5+ZVK9eIDlVrBtX81RnPiZ
5VZYrIKq+LeMOdb4V/PT1ifXB38yrLHz5L7MzNQv7PfWyDoQszcqcOgnl1sj
R/foIq2FX1nfBrqvLsaZc76xvg26izoWHb/JONoGJ3aU8Lv2DrO+DWYs3jS+
e9V31rdFQ8Tkawt/NH/2bWHu0lmf6co42hZ5Gnp6GYWMy23xz3GD/EnSI34y
xw5btHw/Srsxhh24Bgn2Hn8yjrZDuopGj+wg43I7vN39NUzBTIL17dGtt7+F
F8cY9lif1HR0RAPjaHu0DybpdU8Yyfr24PSFG2k4MOY4YP2LKyH5vzOGA04P
G/fH1TCOdsDX/NetVZKjWN8BrfcepYeYMOY4YkHw3f4oIWM4Ynau/QeZTMbR
jtCNHHV2eg31HeGtIK936zP1neCxLWqmgpok6ztho93WRWPMGUc7YaBy0PGa
gHG5E5LbD3euTmTMcUZzv15R3nnqO8M6Qffy91rqOyPukf8smy7qO+NTU5lz
gaQU67ugtiYtWV+FMVxQl9c58NSQcbQLZheUdVSYMy53gdmuVqd37tR3xc64
qmthQuq74t3GsxLeUdR3RZCifVJVHPVd8TXqhnFZGvXdkLIjhLcmm/puKJaf
27ntHPXdMNpJTj+wlPpuKC8sMVIup747uh2nhx65SX13dBj0dg3dpb47EoQq
PPM66rsj5UiiQkIj9T1wOnxraXMT9T0w/rBJq8FD6nvAqNJZnE1c7gGDyR7T
lxJzPLG2eOkaqQfU98Rticiu0fep74nXBX77Leqp7wnpFV+2tNRQ3wu6bYat
16uo7wXTb6lC6Urqe0FHVOFZ9Df1vfCF9+FZ9SXqc2EqU3DGvYixKhfJJR/N
+Hl0PS4mtr+W/naKMZeLqGph3ZSjdH0uNt8f51xziHEWFyV7Dk1S/t//i4uN
v3mslNjJuI2LoT0fHiVtIb83XMwn5VSHkt8bn2/MUyv1I783jk14UOziRn5v
jC0WxJZYk98bZ6fmbGhcSX5vaMTNsC1eTH5vpEh6V3Hnkt8bHwsNpR6pk5+H
vWMvBGoqk5+HOPkvb1bJkp+HY+2VLqYc8vMQ0q1pP+Uj7Q8eFBV2H2x6xTiL
h3plc8HGx7RfeHjir2k0RPupjQfZOQIlQQXtPx8ciF78sLqYsaoPLNSf2E/L
pf3og1XWf+h7ZzDm/vh9WYlWegL5fZCYev98TQz5fTDq+vIVQ5vI74OS/HJZ
rSDy+6A/TknT2p38vqjQ4x3bakV+X+Rb3Qo4Y0p+X0xW+xb5dAH5fdGRmbZ3
0kzy+wIq7SoeU8nvi7HHq2+fkSe/Lwb11LVHjSS/L+S19VL5n+j+5Yem59/t
WjsZq/rhzbKiFp8Wuh/6YQm/xnCwjjHXDxI97w5n3aD7ox86LygOu5YyzvJD
4uHjgpl5dL/0wwWLdzWyWYzb/HDmnPCl5CHy+yN/IDJ24l7y+2PM9ez4X7eR
3x8Xi6+mbxWR3x/hxs8PNPqS3x+j1lx8YeZCfn945Y22rrMkvz8ij8ssCDcl
vz9+b4m5v9CI/AHIijSvHT+H/AHwPZWSN3YG+QMwrBaaq6JE/gDkSmX8YiVD
/gBsdPBUzeCQPwD7G9uVpD7ReRWAopkDdge6GLcFoP24YovBMzq/AiFU5H/r
e8BYNRAqLhtuNlbTeRaImS+aXesrGHMDUd5YWt9dSudbIPKWOhtonWOcFYhn
fbL7t2eTPxDpnvp3etPJHwjHg88//5vOS04Qwue5jzbaR/4gnBqZ8kQymvxB
8N0dnN8bTv4gLD3Zo/ZNQP4gXJxlNEfTj/xBKJnV2sl3J38Q+ixbpGvtyB8E
S7lez/XryM/HuujY4S5T8vOx5W5acs5i8vNhsHlrx/Z55OcjJHzCHfEs8vMx
pPpoXowa+fko8uWUnJ1Mfj6kUyIWDownPx+THTTi3WTIH4z2+2opj0eSPxjx
y3Sawr9KMH8wjJ3C5un2M+YGQ6kxQTz8lnF0MHZfNJ365iXjrGCc37N2bE8r
4/JgRKx3+ir/D+O2YJytbSgwp+cbTgjGCQSTj95lrBqC+PaeP8ZUkj8Ei/7+
dWXCX+QPwbYhqXjdUvKH4PTBJLX2AvKHIPKxUXXhn+QPgfY7Wbu0bPKH4Hym
nDg1k/wCvN42VJqXRn4BasYJBpsPkl8Ae867B1PiyS9A+nqB0qa95BcgMtvA
pz2G/ALE5t6LCNpOfgE6rpyQHBVBfgFiXK1uF4WRX4hdelo7IwTkF2LyodWn
bQLJL0Thy8q+pT7kF0L3YYopPMkvRGyGabCDC/mFcP8XpkXZk1+IrOqzXZes
yC/ElnGHo6TXkT8UXq6Kp4JWkT8UKs9OK7YsJ38o4g5zS3lLyB+Kuk18mS/G
5A9FspFTwwlD8oci1uNqu7s++UMxz92qSXsO+UMRWD47ZKQO+UVYkhsa/F6d
sYIIDzMid3ZNp/WIsKm2bevAFMb6Ili7m3war0zrE6HhnnHNkgmMrUX4u6Lz
wWYFWq8ITRdvlpTLMhaJkGlg+IvyGFq/CHNH3JKLkmScKEJVkIlW7wiaR4Ti
qXs/bBhmz+/nRdD8cmX5yCF6nhchVd9uatYA4zoRbi55OG7tR8ZtInTJa77k
fGDc88O/TSHixlt6fxDjrO6p0ENvGCuIofLQK1f0irGqGJqLnF85tzPWF2Oa
3mcly2f0viHGoxET71s8ZWwtRm9vj4zzY8ZcMV79krhN2MxYJIaOk2gwoYne
T8RoaNIwLmtgnChGgq/miL57jLPEyLjZo21YQ/OL4Z62Mvi3OzS/GBYDJYX3
b9H8YuSPGVM2v5LmF+OMSr8wo4LmF+Nb1ckMuXKaPwz2HvUy+6/S/GHYNWlB
mNwVmj8M3l5BjemlNH8Yyo9dfmNQQvOHodRy34G6Ipo/DCbydiWbC2j+MKga
ZChon6P5w6D0USr8aR7NH4aFY1Rbjp6h+cPwblL1J9/TNP+P60c0pc/Pofl/
rGfHqZNjTtH8YeDrKzW+PD4C/wHuLCtT
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVlnlYjWkfx4+yJFtGiCEtmEYNbVIYfdsXob20OZ32ztI5xxIhx15ZWiwV
NZ3MiLKl0qKMM7aIyvDKFtUYlCytlpi83mvuX9f1nn+6Pn2f7/U593nu+/c8
2rwY9zAlDodjMIjD+d/ffz8dlpz//2Dtcff0TMe57P8qsH1zCVfzlzFWg59V
mfII3xWM1bH9qahiJyeasQaGfghqzNi1kvEUHCmea1CRvp6xFuTHVbpaj21h
rAPD6a+tL69JYDwdI6cV6wb5JDOeifg3TS59ZfsY68GgeuZFndUZjGehVmu9
7ou+bMYGUJroHAejI4xno9SlvbPi2VHGhnh7Se9Jsm4BYyM43og12cU5w9gY
afXPI93sihib4Mr+pCbHqHOMTeGbmrozp6ec8Vyon60Z1v6uirEZftMStJ44
q2A8D5oXJLOi9S8zNocqr2v+i9arjC2g36tRG/LmOuP5WKrutap8wS3GC5BQ
Wq8yt6Ge8UJ4Ox/Pt2j6k/HP+HG7xzBF313Gi3D6rTDo/M8NjC1xeqg4++Gx
B4yBBsHizY7mj/9lGSBqmLP1/psnLLeCaC/HfFVIM8utYN8S8PZccwvLreG0
qSIiXviM5daYXGR6XKDynOU2ELzr+eHLmRcst4GN3pcrMl4ry23xyTa13Vzz
Fctt0bfTsm1xSzvL7dCQaffkTv4bltvBr3bHxLbV71hujwXO9f63c9m+ldmj
eOqUCwkJnSx3wCrtm6kmoi6WO6BfWO3S7tbNckd4Wu3Vvmvcw3JHCDQWVWqq
9bLcCXf98tKHtTGWOWHFib0bH1S9Z7kzNv2UF/g66QPLnRE947vdJ90/snwx
+oJl49PGfWL5YvidSSzVrWXMcYHYMrDuQ3wfy13gyd3fek7vM8uXILutpl29
hrFsCb7yPms+5H1h+VIkuVUVNXQxli3Flesywet1/7B8GXRGHI8d9pGxbBnc
/dsStYX9LHeFi8io3vIhY7jCOjn4knThV3a9K7piUzz/c5CxwhU7yuxH7mhl
zHHDIv7+9480OPi374Yp2atUl1gwlrkh8sbQ5FIvxgo3uGisvjdPxJjjjrRZ
fTG9W6jvjtQ73vzx+6n/jR3VIxW51HfHtOFVDVonqe+Bor97xbxi6ntgWPyF
5LNl1PcAp232ooUV1PdAdb31UcNy6ntixM43NlUl1PfEUavhyqPOUN8TbeJe
7rJj1PfEx8ashjPZ1PeCWabHer806nuhpblpytrt1PfCyfzuZ0ax1PdC6rlP
B09HUN8buXqJ4eN8qO+NT7yUiq121PfGmG49G20T6nvD6bBH+Agt6vtg283C
r0Ejqe+Dkq7tC8UddP98MDlr+fQV1XT/fGBuuca3PJvuny/eve6tPbqSMXzh
G5D6fokT9X1xRS1XeFeT+r5IevXFxLuH9s9ytJwZtbbrBu2f5dDJ0XC9mMNY
thzcx2a2EasZK5bjk4PN4Z8WU98P266/d7fRpr4fosz3mN78QPvVD4nz9H2b
6hgr/BD/fnRMSh7tb39sGiu1b49nDH88vWh7+YMP9f3RWBAwqNKI+v7oUbVo
NB9J/QC83NY2WfqSnR8EwPTFiR0Rl+k8BWDmqSjpJDljRQDUhx59uWMjnb9A
fGoqiDvlT/1A3NX1DN49n/qBOFB75fW0ydQPROQkjenhfXS+gxDYfm1p4GPG
CMLoXGMj5Qt03oNgcDHyokcOY0UQ6houf3bZQv0V8JUGzn0bRv0VKKlyum/q
TP0VODvWymTKHOqvQM96rv6v6tTn4uB8i7arfWz+aHGBjqvOW1oYgwsf2fHb
DdcZc7lI68uedbGQ5hUXNTP9lSwyGcu5UDOU1lptYazg4lG1U3wDn3HzN59c
kdPjxZgTjNk7TfszQf5g8F4Nc7qsT/5gXPvO5pFoIvmDcVArOemQMvmD8eqp
V5x1B5un8mAMnVSnGf6EsSIYiZO7/lC+ybg5GL6NbWsnVND85UEj8Z3eL8cY
a/EgPhR7Ov0gY/Dwg3rv16/bGXN5eDBi3fj/rKZ5zoN93dUP48LJz0OcVoys
ypv8PPx6O4p/y4H8PEyuXlNpZUH+ECQvGzxJQ5/8IVB7ZvB4yVTyh0Bn9Er9
5jHkD8GD6b5v65TIHwLRk4kjNN6z5408BI86nmw638ZY8Y0Fn92KnzBuDoFK
9cdBnDv0fAqFVUqGbs41xlqh4Gnq1+2tZIxQDMlecKKukDE3FIGXbDr88xjL
QiEoX5NtkkX+UDz9bsYDjzTyh8JsQ0ZRVQL5Q/F2/NM/+ZvIH4ag+2UxQWvI
HwZervGzA0Lyh8H++zFTR4eRPwzlSnlzqgPIHwal/CLH3z3JHwaTnGupXS7k
D8PgkeGLeHbkD0NX8s+dqovIH46Rq+UX2s3IH44xDg+/H2xI/nBcvzXD2f1H
8odjrERqfV+H/OHo9zJWTplC/nAMUt95ecME8n/rl2yIPqRG/nB4TWsUPFcl
fwS0Pgv8VgwhfwTWnZ6drcIhfwQcpD9YPO1j7xfcCCg9jZrR1EvvGxHI+nq/
Q6WTsTwCVekjz/q/ZqyIQPr8nNv3XzJujkBD6gGduGeMOZHQ7h/hb9PEWCsS
3eElmUaPGSMSM7PN7Gzvkz8SxVYL18fdJX8kpIH5z+/Ukz8Spyy1+11ukT8S
lt5zul5cJ38kHqYUrpdfJX8UChQacWsvkT8K6+525gkvkj8KctNpgi1V5I9C
1lKN9KIK8kfBIq1Jqb+U/FHYrrqxNLyE/FGQFkgXtJ0lfxSMggpKtp0hfzQu
nBGOX3CK/NF4+4fjhuEnyB+NSXvN9rw9Tv5odLVNCnqVR/5obL1mXv/Pb+SP
RrzkY96MX8kfDf6b2EpeLvm/XW9gbHkuh/x8fAyotJv6C/n5GJw/0TY9i/x8
rEnoLJh+mPx8ON88+fFKJvn5uKWcu2h1Bvn5aLU7tc8snfx87JKYVqocJD8f
15NPR7XvJ78As8amCJr3kV8Ah0i/I8/SyC+A686gCR9SyS9AobLuAw1imQAp
xetTHVLIL8AtM7PurcnkF+D8sIW8ur3kF+Dy4T82ziTmCPHaztQiaQ/5hdDp
7knq201+IbKGmzqtIeYKsXad+ot/dpFfiIx5zokpxHIhdo2qMJxNrBDCfO32
uQ30ft4sxBudzecTiDkihCpdemdHrCVCmZuBWJUYIvS5/1jdkEh+EVJGPS8+
SSwTIS3OfPYeYrkIX74UGMYSK0S4MnToiUjiZhGUOmtauMScGAgv8O4PsFYM
vLtUrAeuRwwefh42dt2APwbv1n35PXnAHwOPR1saB76PPAYlztVJfw74YzCt
51TG5wF/DLZ9r3pIf2D9YrwQm+YHE6uJUVNTqZw98HuIsSW3e/BTYkMxVovO
LdCl3xdiNJnu7hUSu4qROqOr7Xdirhhxd3VD1en+icXgle3wEhLLxLgePGZ3
LXGKGOWDN5Ub0X6Qi2Fdk38tnbhQjIIX2SUc2j8KMZYbF62MIb4txpeqCdot
A/tNDIegWaVetB87xJBds3GoI+ZIUM6vnedE+1dNgkZNpW3VxFoSCEbcLHWk
/W4ogXHdOMc6YkjQMF1P4UXnxVWCQesCy5qJuRKsdSt2EtH5EkvQsjypoJ9Y
JsGNW93HUug8pnzru/dOmX6A1i8B9m72rSAulKC+E0eW0XlWSHDY5m/dVuLb
EuTfSv1rM53/ZglO/x30bCrNhw4JpizZ97ySmCMFB0Ms/GmeqEkRa3A4uY9Y
S4q/hkgWZh2i9UuRF1NzbxHNI0jBi2oO+ovYVYq+k79EJtD84kpRJrf/9kSj
9Usxt8Sff49YJoVsTSYnnuZfihQuGdX8mTQf5VKcm/jhXh1xoRSl0qvWsXJa
vxTmRzmNmt/m638BzzH8pg==
      "]]}, 
    {RGBColor[0, 1, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJxVl3dQVOcaxlcQVBCFFUtUFMEAoiJihSA+oKCCIl3pyy5lFxbYXcCCoCux
FyBwAYNyJVZEooixBCxLMSZYYokEMSo2ohSjXlCRoPfe8X3vzN1/dn7znGd+
8575zne+M06c6BOlJRAIJvURCP77//n3aq7g/3/4eCf9W8Wfhhc/Y3+ctzQO
6XAcT9cZIv/4hAXLrdyIjXHo2NYTc4SBxCOwc1Z45eXMaOLRWO0978j4D0pi
U3x/UDbYIyeV2AzT7lvYVJRkEI+H/M5xRcXcrcQWSOxr4LViTzaxFSwz5jz/
EJFHbA2dbzTh8fq7iSdhvFCv/ct7xcQ2SFq0On979QFiW8w8fRi57keIp0J7
wQC7lK3HiO1g5z59xpRFFcTTYG7h9YPk/Cni6bg0cPC2TWU/Es/AU8erHvZm
F4hnwql7i2ZoXjXxLMSXTAwVSuuIZ8N32GC3p1mXie0hFdeZmAqvEDug44+J
a4Wd14m/wtrb79x9im4SO2L6de1pw7puE8/Bw4/m7o5fNxA7YW5W6sa5i+4S
z4WhnTBv9sI/iIGgYdXKSvXDz6wG8q9FOietfkS5M1ziWgdNXvqEcmc07Qh2
HuL8jHIX9JFH90v0/JNyFwxZ2x7qtuIF5fPgUKhnIT7TRvk8lPkesvIwfEn5
fBjofqN7dC6tO/V8PEL+Ve/1ryl3xVOrv7uHXH1DuSsUlTbd98Z0Uu6Givjv
lmes6qLcDQ83P2m+/ftbyhfAIrnAZddX7ylfAKvAttzsfd2UL8QCH6+yNfo9
lC9EeUzlQpOUvylfhNRLfxjYP+ilfBHGVxps3e36iXJ3jM42uWLgL8Dn3B1t
m06tWaLT5zMLPPCx78jgvieJ1R7o91N+XnmoFuWL8fbLq7Ma+2pTvhjV55d5
65UQC5bg5Uuv1w/c+lK+BO/vTm1920ws8ETZ5XTt3hQdyj0hGiPeeEBHl/Kl
GHXlxv7SLGL1UnT21ps2DOlHuRdmjPmX8N03xPCCrb+4vWVAf7reC8FaRs82
ryHWeMF4bJJbXQuxwBsNM7L6ZHsMoL43Cq/lLPrzCLHaG0eC7tte66NHfW+8
e/O0xcOXWOCDKkdvWco/ieEDnWC9LRFPiNU+qMkIDbAx06e+D271nk/6FEQs
8EX5U4OE3p3E8MXmdImWfxWx2hcTWpJ2zHrCfV80L9U+f1dnIPX9kCU/fEZl
Tgw/rItPS3J0JFb7YUrbpJkqL2KNH8LsI628Rdz3h4/K8uFwOff98eLRbmHf
ZO77Y8Jg71K/Vdz3R/muE1ULVnM/AHolB8+NXMn9ACS6FY7TU3E/AGY+Xrbe
sdwPQN6DtNAJ//Mvg+jyDy2/+HJ/GaIkqitSV+4vQ+GNv/XtZ3B/GWa9rJob
x/MKlsNQtyhnsiH3l2PnDvNzR3v4/i1H552yXwe18P1bjkh7u4L0X/n+B8Ko
T8L40Wf5/gfC+K+Fi/WLuR+I5VVDBszfzP1AnFXlXeqI534Q5qelBkz0434Q
EvtsmjrKgftB+G3c+ozGsdwPQpheW0qqDveDcc4k4MzQNl4/wWhbX/ax6gav
n2C4OCjK0k7z+guGgY2Bb9QeXn8hMJt303J9BvdDcEBVb9Qk5X4IokoXHFy1
lPshyOz51CmZyf1QHD+WlPWdCfdDURF5b89MHe6H4vZdh3SLDnoeNKFYvMTC
N/kOsSAMCVHCCrML/PyEIaCfhXLaYX5+wtCwvRqHs7kfhmtGRj1rU7kfjrFb
/DKrIrkfjvdmoz6GLOV+OApOtjqJHbgfjgNv/zX6ypfcF2GU6NWifCNiUxE+
6ey4XNNLzzdEWNlhf2RpK7FIhOPFln85/M77gwiFWY0GX9cRF4tQdXL9UosK
3i9EePDb/h/NiombRfAPdJevyOT9IwL5p1yyx6YTm0ag7HHBk1Fy9kcgSOW8
XxbM/gi81K16quvB/gg0+MSav3ZgfwTaZXWtFhPZHwHje5tXHRrF/gicTfPp
kg9kvxiHrVcaru6l/c9UjOSdvZk/v+T9UIxXXRXTA5uJRWLEiXQvWt0iVovx
qUj1dkYdcbEYJSWrjq89TawRY29MZUifI8TNYrQOCZt3bjfvvxIsxp4HZZns
l+DosM70m+vZL0GxzHy4VQr7JXhv/jzruJT9EmTUFThHh7BfAtXKoDZ3L/ZL
8OTC8BPB89kvgd/1QY35s9kfiZwVjdo9k9gfiRaYVG0ax/5IFAzaM8x+GPsj
IZv4ncJQn/2RMDZb2U9fwP5IaDs6JVt20ftGEwn3uxO0olqJmyMBLHStecjv
pyjoCA4fnnOH2DQK9bHr3zfUEyMKWgOuBezQEIuiMPygiV3oaX6fRUEyfPfQ
hWXExVE4WC+dsngf+6OwN9wlRrqL/VG4+FWqancm+6ORHS9Z93QD+6Mx+rR1
h8sa9kfD1fPGhVNK9kej/4xvWx2l7I+GQ7K95e9h7I9G44fO6Rv82R8NlftP
tS6L2R+Nd4YJLkbz2B8D6/f7rv1lz/4YdLkHuD+wZX8M9jxavfGeJftjUJBU
/KhlDPtjcL0pasGnoeyPwbqY4UnjDdgfg/1nXvkF9GV/DF6vmX4it4fOCwIp
Fuos2/HHG2JTKTSp6jG2rcSQQsuovl/mI2KRFOp+axu6Gvm8IUVt78030TeI
i6Ww8VbpPbpMrJGiI8grVHKRuFkKoc2gso7T7Jch1nl7yrpj7JdBIzWdMOIQ
+2X49fiF9WeL2C9DX62ZwvA89svwd+PFUv2d7JfhwzK/lxc2sF+G3aZ5p1am
sV8G798S9sxIZn8sKnVC0B3H/ljMua1/rFrC/liUB4UHZwazPxYNpoEO4b7s
j4XVKLvc6R7sj4Wxq9MSg3nsj0Wx04miFw7sj8W0lPSCX+zYHwcTvXue31uz
Pw4jPQtzc83YH4cel9zbaSPZH4eSI/dfSIXsj8Muv4abAXrsj8Orgu4GNy32
x+GGYdGz2R/ovNgch0iPDS8mveHzoxyzS5f8w7yV2FSOcfvf5Yx6TAw5ivfp
5g9tIhbJkZNXpG10i8+jcgx3HCE2qCculsN6nN1zvRpijRxds4zrBlSyX45Z
Gu/nAyrYH4/w7luleqXsj8cHfXHEwH3sj8fAla/LBxWyPx6jDZ/9bJTD/nj0
n/q9fOg29sejZETkoS8y2B+PfTvMFo1JZX88ctrN481V7E+ArevTmRNi2Z+A
rxLXqm3E7E+Ap2NJzLQg9ifAsT1gx2wf9iegXTM02smd/QlIsumpnu/C/gRM
bG/vcXdgfwIktZ03vOzYn4hBpd8WBVizPxE7q9OWh5ixPxGFck29eCT7E1Eq
3Pa7VMj+RNjoTj+RoMf+RIzPmHQ9WYv9iZgUMjU99QN9TzQnwum+umvdG/6+
UMBadslzYyuxoQJD2gb5bntMbKrAiYcKm6wmYlsFYs3yZLm3iKGA/t5udUE9
sZcC85esu7m7hlikwND8l/f2VhIrFJg5d6fr/gr+3lGg/EpX6uFS4mwFhJMb
Vx/dR1yswMPAd+pjhcTlCpxe/bipPIdYo0COrODAyW3ENxSIPGf7/lQGz6tA
5skDDWdSiV8pYLXJ5viPKp5fidwpyk+VsTz/f3is04RzYp5fCb8Llcbng3h+
JUZI74Vf8OH5lXgycbvzRXeeXwntiVf9NS48vxKp7QPF1Q48vxLSq2e31Njx
/EpMM/CT1lrz/ErIi3I7a814fiW6Y6Z61o3k+ZVoqVk3u07I8ytReEBhUafH
8yth0uR7rVaL51eiSpy2q/aDFs2vxOIvBFtq3xALVEhME8bXthIbquBRkHyz
5jGxqQoqg+KcmiZiWxWOTMmaX3OLGCqkmFm8rq4n9lJhVv/JTjU1xCIVRJbC
xJpKYoUKYWVDCmsqiNUqpN/JXlJbSpytwuiOzQ9q9xEXq7DJyyqwrpC4XAVB
7RxNXQ6xRoWmTQ9q67Zp4d+caPK9
      "]]}, 
    {RGBColor[0, 1, 0], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjHkbxwftssRalIoYh5IVlQ5Sqa8kHdiOKqWammk618xYWXatFOXQ
klU5hSnWm3IqOR+aTRJ2S0oUkhDJoSinwuu93Pcf7/wz1+f6znc+z/08v+c0
JjTeM6y3QCAw7CUQ/O/766fdTvD/HwyoGTTddLNWyVfsh5fXTwZMjzCi3w2G
+cPCB5FiN+Jh0M0wzNl+UUSsBUGwSna6IoZ4JA4tH2L6nz4JxEJIchLDWkNW
EI+Frqfo+Ba/1cTj8U4pSD8+LI1YH/tKuvtkqf1JbACDe6c6Gg9lEf+IwyLD
Sh1hNrEhPmw0OB1imUM8BTGXDhZdv7uX2BjWXV45pwftJzaBTVHvpA0NB4mn
4pes2//8kldIbIrf7evf6/1dTGyGJcPFb7fanSQ2R1r0se22hmeJLeARF77t
jzkq4mnY1dAZ0n2ilNgSbl6m69SjLxJPR+m+NItOcQWxFea6bv116V9Xia0x
7PNl/fsmVcQ2sO1nUhu4upp4Bu5IUm+mbq0htkWBZWjj0us3iO1QOilb79HU
W8SAdHfN3DcnG75yIrDn0JtVK8V3KZ8JVaxze4JWE+UzMWa70nXbxvuU22OI
jbb3e40HlNujusM21Sr/IeWzoL3Xy/6uSwvls2D01/HlVm8eU+6Amcr4rsz8
VsodkHa6v/NIaRvls/GndkV9m/5zymdDOPqikV7bC8odkbBFkhfvR+s20RFp
oQVuI6w7KJ8DA2nrgYMjX1E+B+OudFvP6iEWOMGqOG5gr/rXlDuhKWdc5sii
TsqdYfL365vXUrood4bWbIMfonzeUO4C15p1GxyEbyl3wX6t5IdXHhALXNF5
3XPeEuU7yl1xtKRvdvX895TPhW7vE7byPh8on4sy4eC6T3nEgnl4LuoRTXXs
pnwe+qecsq1uIBb8hLiluv8ekfZQ/hO+3WXz8UgrscANw2+cm6kSf6TcDQZB
Rw7V1xIL3CFJ93zUZ8anrwx3eOo2dbhnEye6w7niZsydV8Qqd9Q9Pr/5Mj5T
3wOVwh/mO6UQwwMu8g/X0y8QJ3pA78DWwnvviFUeeH5C65b1UAG+9j3xXe8Z
Izz1ieEJnX451+rNiRM9EXhH+0LPTGKVJ95c2JLe4sJ9L+iV+4wuc+e+F4LD
P70o9eK+F/ZtbJs6xJv7Xli3+IXxfQ/ue2MoOhVB87jvDV3lb80nHbnvjfKS
gY90bbnvDfcIv6unTbk/H9IVF2RnJ3B/Pr7NNLaZq8P9+dgkam7aPID786Ef
3DZs8Vvefz7IeOYZfPUG7z8fnC/wPyUv4v3ng10mws0Ff/D+80HAy0+KE+Hc
90WWc25qJR8P+EJfz8HcQJv7vqg72T6oq52Pny82dJXEhFQQC/ywrI/ahczd
fPz9kCp3qTqewMffD7IkTcdH87jvB9tBbTp2etxfgFq1fPvGHlpPWIC6nMeR
N3l9JS5AvsrvUdUBYtUCBK6y1O6/mtefP549+TnqWCD3/eE5pXv1Kwvu+2PN
7uPa9YO5/4XHBE9Y0sbrOwAtRVbH6sqJEYBFo6Ze6cnl8yEA5ze4KttWEKsC
cH++0GpvIPcXYqLQPnW8DfcXwkpDujFqBPcXYppG9ttF3XS+qRbihdrzSTPu
8PkXiJMDM8z+PkeMQDSP7rnTs5vP10DsW6nUfJrE/UA4qp8tWCXlfhBwq0hV
4cL9IIxXK1MvMuJ+EESH21OtNLgfBN+Ccv+gbr4+BEPdeKfmiGZiBGOKrDEh
5jJfT4Jh5Ks5eW4hsSoYt//KUZ7Yxn0RXDIs1+9PIhaKcKp5yZJRMfx/Ikyp
fZw31IdYJMK6vqLsZPD/i2AuCXsYNYlYKcIB3bUdFzXZJ0LCjEml6b2Jm0Q4
dsmhV8ULvv6FwKuf6cGI28TCEJzSLSyOqyBGCPJ7VpffPEYsCsFM50jdnD3E
iSFoNhruWL6JWBmC3X4BVo6JxKoQ3JlYVj0qnrgpBA8PNhx1CWJ/KNa0Wi+6
PI/9oZA4y7K3zGB/KJIXX2wunMz+ULx5ot5XYxT7QzE7Q/ZcNYj9oVC9FbsW
fabrvSoUGq/rLj1uJ24KxZOd1r7BzcQCMbzjC7OG1RILxVhnWd38TTkxxECk
QbzxSWKRGLdax0/PyOf7iRh5u3xnGu0kVopRfLQhT5DOfjHSlb5bv0lmvxj9
mlRnrBPYL0GPvtntnEj2S2DR2DjbIpD9EgyavqXlnTv7JajclGT82IH9EmTa
toR9smS/BD8c/vmNzWT2S1DxvdJpzxj2S5D9qsPNSJP9YQh6eCersT/7w6Cx
+UZd0We6fyIMVffPuOd1EovC8CJXfVlJK99vw7D/de+GrkZiZRiupWh/cqkl
VoXh8ArnX89dJm4KQ8qFMfNdS/j+LMWrytK+ncXEQikMmm8nnMhnvxTFmmPn
ZCjZL4XO8uMt67PYL8WRYR3FO9LYL4XSeUpAWRL7pUhxKR/TZyn7pVC5F9/1
jmd/OLyeRew4E8b+cJz16JpuuZD94Xh0I3VUhSf7w7HAcfHBKGf2h2Of09gG
XbA/HO5PI6Y0W7A/HI+vOq47OZn94Sh9WaS7azz7IxD9T/fQjBHsj4DkY1f7
1iHsj4DN+2FrDnzH/gg49rkuqhSwPwJLO/ev+/iWnoeUETD81+np9JfEqggc
qO8zMKmFuCkC3eMttOru8vNTJNQDVv1kfoNYGAm3baFXdv1DjEj4GykWa5QR
iyLxbLRUlHmGODESC+3UK0cdZX8kguzu2RXnsz8SeUUNyZ657I+E8RM9nffb
2B8Fn8zG2PxN7I+CrGlFs3gt+6OwPPlb2fiV7I+CyFu84dkv7I/Ci8/3Us7J
2B8F7YJ3CzIi2B8FA+8HDgoR+6NQM0Djlq8f+6NxrcU8abY7+6ORUryvZZoT
+6PR//bvTcZgfzSEKctsjS3ZHw2n0sn2psbsj4Z/yLEwawP2R+NecexZJyH7
o1G8JtMpQIv9MYgaVIjFg9kfA805hlv/7Mf+GGx8MqD8mID9MXDc6Nf/7jt+
Hv6SnzKb07eDWBmDa1WFSeatxKoYrKtpk0XcJ26KQVrsx1e764kFschYXj22
oZpYGIsqxbS5WleIEQvT5saEBaXEolhY1JUE7zrN/li8y18U2lLE/lgM2X79
nEkB+2PhOGjH5xV72B+Ltu8a1lfvYH8cFo7cUKOfwf64L89fJbLf0tgfhyrJ
NPOaVeyPw9qbvtaTl7M/DvnpuuXrF7M/DufURnY+j2V/HDKWGZR5SNkfhwST
4XuOB7E/HrlNP97V9WV/PE5vV/NNdWN/PLrXlvp3zWF/PJxu7XOVgP3xyK+b
+K7Wkv3xUNSPu+Jkwv54pDQmp5+byP542F+u1TEby34ZDAZuPHpAh3iwDHMe
jynWH8rbI4NUMvFA7gBiYxnC7LeYjVbj7ZPhds3TBzt76H3JXYaxE84VjO4i
FsngqTngZu5zYpkMJsK3YfotxIkyjHm7Iv9QI3H6l/6ruImWN4mVMmzu9Vyl
qiI+IsPxsZUHnSuIVTJ8FOe616mIr8nQsb7/bvEp4iYZgjZUFHcUErfLoHb5
4sOV+fx+J8e4Iao1Q/YQD5YjNCvg1t4dxEI5PrV8kFtmEBvLoTNLR6MqjRhy
2Gj3jJOu5vnlmHrx+6TPy3l+OXwi5W7bE3h+ORKeTm+2iOf5v/jOS3rXhvP8
csy42pIrF/H8ciwxs542eAHPL4fev9Hqhz14fjkqFzmtdXPh+eW4hcOH2u15
fjmColtPbbbm+eV4MS9vmaUZz6+A0zarWY2GPL8C2r3si5P1eH4FJudXrJw0
iudXYNLwwZNqNXl+BSo8my8v/57nV+BSQda0H/vx/Ao41FS+rxPw/Aqg7FrE
qvf8vq2A6eScCWaviNMVWFU7TO3hU2KlAnm/JiPjAfERBaQCh06HO8QqBc6X
jbDrqn1t91+ref7I
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], LineBox[CompressedData["
1:eJxVkns41Hkbh0cHSilUyqHSviWpdNCibHxCRXKWQ8QwY4ZhxsysjkqzLbW1
SufQYbWkEyqSUkpOCR1VogNKmFIptS0pr/fq+/zxzj+u2+d3zz3Pdf0mhER5
hPbjcDjTVDic//398emw4fz/B+W3fd/zRtuw/w+C0euS6u4tnow1MX93pqbS
KoTxSGi+vpj/fqiY8RjELVxZfHTuSsYG0Kltuu/nsoGxIZLKr+ltWfs745+Q
7Hf7paHJVsYTIdmKy6p1iYyNkDXPJ/ZYzR7GxnBMOpm1LjCJsQmGHxRJSo4e
ZjwN7qfOCRT1RxmbwqL2zIXTvscYz0SV0sIWficZz4Les7sKq9dZjGfjlUrO
0Jjt5xibYeiQijc7N5xnPAfn3K+/zbmVz/hnnNE29++3+TJjc5QUp//VkX2N
sQXOFr9JjDAuZmyJobvuXKy7VMp4Llbmq5w5nXiD8Ty8WjVWcSCrkrEVwq6K
F73Vuc34F+jmH26MbL3LeD4ODQvb2fbmPmNrKDNMF3/VfcjYBo6TH0cuktcy
Bna+23527ue6H6wAVs4QiJr+fsr2BYirOOLbsK6B7QvQkrk/ZYF1E9ttsWPR
+Ervmhdst4X/lEUvO2Ka2W6Hxvh7KqMsWthuh5jn508f6d/GdnvUFBs1zmlU
st0eHh9Mk9yr3rB9IaIXP//iUfKW7QuxyyLmu6D8PdsXwczX75Wrkr23ikXY
ofSu79f5ge2L0SLLeGrX+5Hti9Hw7Wv/gRqf2O6ASlvXm9b6n9nugOzq9IQX
xv+w3RHt8Tnv2ud8YbsjbM5FZ4Ra/8v2JYgZZ/450L6L7Uvg710a3bWwm+1O
CHhspsaz/cp2J1xqfjXuiWUP25fi3MF1Iy4Yf2P7UuQW5Gb6a31nuzPO1fqG
L/zIWOGM7IRBF/pV9bLdBU3x+pOSnTn4sbug/P3lFrtzjDmuGHbAtoqvqcJ2
V3SPk19oFTHmuGG65irL60WM4Ybd6bf83mr1Y8+74VmrNVcSyLjIDR/kf3e7
ZjDmuMNums3SdCVjuGOYZ8Tm34z7M9+97wUbUNePx7jIHWufaXU4JjPmeGBl
oZVTTBVjeMBdsz3hWhf5HtC/NVZoO3EA8z1QndpRO8uJMccTDvoffimUMIYn
qtSH7tJJZKzwxHkHQaA0k3xPfOx+l9tTTr4X8pY38t89J98L6u3Zl1d9It8L
xUl8gxtqA5nvhdc7v8Vr6jLmLIN1os8QhTFjLIPJgj8n2pkzVixDwY5cQZwt
+cuQlimQRTqT740mnfAzE3zI94bjmIioiiDyvXEw+vGMTULyvTFH/z5PLCHf
B1u28mTHo8n3wc3GvHbHdeT7IP36KPXIjeT7YIXzh5qf4sj3RcGNRMff/iDf
F469wZZJCeT7on/xkM5VO8n3xfpos0yTveT7YdpzZWXhAfL9oHbgoag3hXw/
OHvm5msdId8PvkfsXTSOkr8c8w/EL+mfTv5yzLgWO51znPzl+Ndr9dohp8hf
jgljjNNMssj3R/0ls0TuWfL9YT1wcX52Lvn+MGw16h2VT74/WtwcyvcVkB+A
hK4Xm6dfJT8AOkPjDj69Tn4Avn8b/+BoGfkBGLlnMjfmJvkrMG3dYl7YLfJX
IKeg+bjgHvkrcP60eWf0Q/JXQMW31mF3HfmBOL986+bCZ+QHosI1tOBTE/mB
aGufpWnRQn4gmlOdZHGvyQ9CrlV1+5N35AfByKwmyaqT/CA8jf0zIO0L+UGY
uWdvnVYP+VzUXdHdu5mj+oMNucjakyJWGcgYXPDXV3cqBjPmcqE9b0zOgGGM
FVzcb3CamKDNOJWLMpeTO3RGMy7q25PWxqfpM27kwvKQbslsQ8acYPQ4bIgt
mUj9YHxPybi6bAr1g9H2z2AP5XTqB+NUQZPFhtnUD8amVntVbQvqByOhc2Pl
cSvqB8NJPV1jPqgfjE/C4Yfv21M/BCmuZU+EjtQPweSLsy16nKkfgj2DDQwS
PagfgkF1CcIJPtQPwXrt0zE5/tTvY2F6si2X+iFQ/7Il8x6f+iHwUVGNCwyn
Pg+OC7xMlGLq8/reL/2xMjn1+7i9zODLKurz8JW/s3ddDPV5UH+8Ve/bRurz
YDDse+36OOrzkOIy+lHXH9Tngdf92DR6O/X5mJqdef3NLurzYTh86qTg/dTn
I/bah9s1KdTn44R0jY7dX9TnQzqj9EF2GvX5aHX2Lxl9gvp9z6+BYkMm9fkw
awv4teEs9UMxJsnjhXUe9UPRsXv0kZRL1A/FS/lYj85C6vc9Lzrq61BM/VBI
v2S9TS6nfihCOnWftlZSPxSNNt9OzLpD/T52vbp+dQ31BZjv+TzzUi31BeAk
cHu/PKG+AB80KqPNGqkvAP9pDSKaqS/A8REDVVPbqC9Ac3Zqy9126gtwZUhX
RU8H9QX4+v7a04mfqS+Ej2XMfccu6guxPd/nnugb9YWQNIjrt6iosb4QjZJU
x9SBjBVCBF7pTj4/mHGqEDl6GyVlGoyLhGgRraq6p8W4UQiVjmxx/SjGnDCM
P6H3+rkuY8Mw1G8K5jeMZYwwFC/Rev5kAvXD8HaG408PJlE/DGsfZ3hXTKF+
GKIVTYMvTqd+GNpN3q1Jm0X9MLx+MTt228/UD0eAwrIxci71w7FNd+/QpfOp
H45DadnrjRZQPxwvSnRlPfbUD8dJ95uT7jhQPxytGfq8w0upH47igBPaQjfq
h+Nij3bwdC/qizDxYLXnex/qi6CMrNyf6U99ERrXxawNDaK+CCZDjx7X41Ff
hP03Hv5TKaC+CBH1HmqrRdQXIXvpSLPxEuqL8Pue0vISGfUjYDAwQ8xbSf0I
VL7KUe1dQ/0IHNL7uG//eupHwCV5tuoUBfUjUL3FZXD+79SPwJqNJVewhfoR
eG1RYV6+jfoR4ISvjnXYQf1IWOjN/FS2i/qR+BZ0IcdmH/Ujsel4iWZeEvUj
UTrKJ33SIepHYpzGGeWuv6gfidSoW/O7/6Z+JJKutB0LzKB+JGyN9EKvnqS+
GKZpPiP0sqgvxthJk31kZ6kvRld8V0JpLvXF4LUbxI7Ip74Ymaan3AMLqC+G
6rGs5vRC6ouR+k5b3FpEfTFs93lPNiqlvgQuB2flBt2gvgSBLb9E7q2kvgQX
3JVWZbeoL8G6qdfzP96lvgRRu9V2GzygvgTb7ig4trXUl4ArqK8Kqae+BBOi
HOI2PqN+FFrVDI2TGqkfhUdv3POyXlI/Cr796y5dbaF+FOaoihOrlNSPgvn2
0zUP2qkfBXl88Im699SPglebUlj/kfpRKPqPh2XtZ+pLoWchf3rnX8aaUry7
eXpf6Vf6PVLo5LQ9Ov+d8Uwp+knynI6qDGK/T4pzvG3cbQMYu0lRIcyKiFJj
zJVib0zAIDd1xlIpYod3cEw1GCukiLuW/1lNk/FOKfKqlg1+ps04VQqv4ouX
s0YxPitFxnK1X2PGMC6SouPnwh57fcZ3pWjXuCdQH8e4UQr3jftsqg0Zd0ix
TXikaet/GHNkMNU6cNvOiLGmDCaysuYuY8aGMnzKy2/InMp4pgxNNjX5/qZ0
vwxj4t3N1GbR/TKoz5v7PduM7pdhTdJ5G09zul+GBPmnDZ2WdL8MOUK1vEQr
ur/v+87sHmVsTffLoKmULb8Cul+Gq6IDOs52dL8Mbt+PtdUtpPtl0F5z0JPn
QPfLELfZbYlyCd0vw8gFNX9GONP9cpxKM9mudKX75QgoiuHzPeh+OU5rrYx9
4kX3y5EgVra6+ND9chyJsAi55kf3y3F/dc4/UwPofjl2/9pcsTeQ7pdjzKm8
Td1cul8O/uS1jgE8ul+OR4oAi4JQul+O+rpC75FhdL8cr5K3uYpEdH/f8/JG
jcLIQfgvQ4M3Sg==
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[0.006944444444444445], AbsoluteThickness[
     1.6], Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxV13k4lGsfB/BRHYU6SZ32NG2OOipUdCp8VbbIFrIbxthnzEyJ1ndy0qZE
olJpKlLahEiiqSOkXZRKnSnSwim0HG28vde5f3Ndr39cHz/f+brH89zPPeOC
ol0FvTgcjoEah/O/7/9+tVtw/v8LY9ZPrR8ot2Q/74esvKhlpW3uzNqY5e8Y
e8c5mHkIcvo9wfnBYubhQPuREGffWObRMD14pjKhv4yZi5uPVy28aJbAPB62
HtV6Bl6JzBPh732v3zakMOvhSEpItVlUGrM+rngPqm9dmME8BYrMnW5i5UFm
A+jtnqhb/dsR5mloS4+Tez4/ymyIG0tCbVaMP8FsBM+YPbUFX84wG0NRUW++
tSyfeQZ2p57t7Hh4jnkmzPvxHWf5lDDPgnbL14P5dmXMJlAWxvUe8EDBbArX
rtZjq23/ZJ4NjZU3smZ8v8r8O05eMvqg/7maeQ6OFeTq/oIbzHPxyhYx5vW3
medBK0+r9fmTu8xmqBdduNX95R6zOcZ351p2zL/PbIFSeVHDvKIGZqB6WcYz
Q/fH/1oGaDnW650d+5TNLRFeE+22e6uSzS0xwGeTXdDI52w+H+ZqS84nljex
+XwIrueMm7XiBZsvQN7VM1kWeMnmC6D/MLUzcNRrNl+Ixnjvv0apt7L5QqTa
VY271N3G5lbIdE9oiu/9js2tcI7vOttkC12n1liz/IlZwa4ONreGtauoeMqR
Tja3QcallL3xBe/Z3Ab+V2ru7q/4wOa2eOt1WBRc/5HNbVGoG/OmrPkTm9tB
OdW4Y1/HP2xuB4+kyMLuL11svgixaVNbO3s+s/ki9B7VfT+t5wub26PuQ8WF
wZ+/srk9ROrLY0+2fmNzB6zgm/Qpvv+dzR1QFv592cGSbjZfDPus8TXNqT1s
vhhpfom3k4w5+HfuiLF2McZx6cwyR5yxONuy7SPNneAY6KN5zkmNzZ3wviS4
4lkWM8cZlaEzZg74yAxnlO5S1/kdvdjvOyPO85CTcCOzwhlnfnYoLa1i5rhA
3WXDnnl9erO8Czwbozu05jHLXBBXaFC+KJpZ4YLGD0WZ3ExmjismCAbnF1dT
3hWnDY31zd9R3hW9vOu1Xwzqw/KuCB9suvUvQ2bOEhwYePlKoAMzluBCwBXJ
4WBm2RLMMFuwsWEl5Zegp6pSY842yrsh+VTrge/7KO+GSxKblqXHKe+GWwt7
VqwtpLwbGpfutz1cRnl3BISnlX+soLw7eMauuTk1lHeHd/PbLc23KO+O804v
j96/S3kPTJtXWZd9j/Ie2OyptSu2jvIesH6fuEhEVnjA61qcxnH6fc5SCCwy
GqxqKb8USxde3ep/h/JL4fkqVKyp6l+KvxXH0vyvU94TeysVzcJqynvCVM3i
s+1VyntiQ9v69u7LlPcEd0D/3P3llPfCBc1r6gallPeCjonWg2XFlPfCB6sX
6vsKKO+FeEedrItnKO+Nmw2epW9OUN4b34/Zdhkdo7w3av3W+u/Norw3dtcb
/TnpEOV9kHyQb/bwAOV9kF12e2VhBuV9UFnfcbx4N+V9MAuOwme7KO8L3+1V
xw13Ut4XNYummmftoLwvvq8PjJ+znfK+2FH1zKBjK+X9MHZqy5iqzZT3A8ex
9lzJRsr74fSm8PiqDZT3w7Eamd+7eMr7Y9vdBV3T11PeH8X9Ro/a9B/K+2P0
+uzH79dS3h+mSb9OWrGG8gHYtt+tuf9qygcgMqG47Rxd77IAdBpr/SaJo3wA
NBcZDjaLpTwPwR0Dx45YwczlQffkxuk/xdDr8bB5o19mzzJmHg+LxbPb+pJl
PKzauSphjJRZzkN/xfB0Cwn18TDwWU22UMys5GFm/nNBTjT1B2KTUa/2VhH1
B+KZ1j6HuWQE4opFiEWakPoDcUGnPbMrivoDMWLo6l9CyPJADKuNPv4kkvoD
MXrHoWw/svKHc9s7WyKoPwiPV3jXxZG5QdAIs9mvQ0YQpnGuZRaEU38QclzK
6nzJsiAcbfVbN4AsD4LdmNonV8OoPwhBk8tuJ5CVQbg1YPFbezKHj9sRQ+cP
J3P50P9QZPgmlPr5GF00NOUKmcfHGP+oXw+RZXwIk43sNpLlfAiubTeTkBV8
fOQsSwwkK/m4WV5ru5TMCUbWhGJrVzI3GP2zHuotUfUHI9VryzwvVX8wdDdJ
yviq/mB4G8+Mlar6gxFTlWii+nsUwdBbbrAuU9UfjEdXBOkXVP0ClB/NaX2s
6heg6vJnHTV6PyDA9gmu1VPIPMGP/XGIpSdZJoDnyzklW8hyAYbYqL0uV73/
AvRPT5zzj+r9FwCxJvXG9P/ihGD69pmDpGRuCO7/9OlgIRkhmJ9hvO+r6v8f
gj8+ivpa0/UhC8Gdm8NTd5HlIWjvu85IdX0pQrDQP3Lv76rrLwSt+5MnJpM5
oSjhntzxhswNxYx/etXa0PWMUMTdCmnKIfNCAdO6bg26H2Sh2DnF7YSILA9F
RL3tnvtkRSj4gvG7QfeTMhTWwpC4U2ROGGZZxRSOpvuRG4Y/ErwiksgIwzat
huRedP/ywrC5J0cZR5aFoT1JsLqDLA9D7cNR9ZGq+z8Mq6yGGbwiK8MwpTPV
PoT2C044WruMXr8gc8OxL3NjZhjtLwjH5gWFGW2q/SccEycvGS9dTv3hOLF3
U9oXsjwcckf/dRto/1KEY8+49RcH0v6mDEd+hY78AJkTgSZ4fDGg/ZAbgZeS
b/wyMiLwlmNp7ET7Jy8CXUPmcZvIsgh4uw26Hkv7rTwC3woOvxiwivoj0JwT
dCObrIzAHZ9eNRa0X3Mi0W+Vvf0jMjcSjq/1HVT7OyKh+W1k5WDa/3mRiO/p
lpwlyyLRMn/ICOd11B8JjYCee+/Iikg4lM/OT6bniTISomE362fIqD8KkdqT
XR+QuVHQ/fxb6BrV8ygKQ6+LrcfT84oXhVrDceJqsiwK0nHjRNF/UH8UHqUV
HRqmet5FYeEMvZ8uk5VRyCw9fS4igfqFEEsW+/5Cz0uuEG80j21WkCGEhVbw
gahN1C9Ehm6nywh63sqE+Lb65+uVZLkQcq/DD5ZvoX4hBiXFnJpAz2ulEHF+
IzbfUz2/ReD/+WtNfCL1iyB+0NFoROdDiPBUu7XyGZknQuehA3qpdB6QiTDz
hDjVKon6Rcg69WFkF1khQu3bspW5dJ5QijClYraLXzL1R0OrJDddO4X6o2E8
vIZ/lYxoTF9TqraKzie8aNiYJNZNS6X+aLQ3Pt3STJZHI+S5xfAMOt8oouFR
4t7klEb90Yh0dhuonk79YmiatS2+SNYWI68lu0lK5yWuGHdMGvQm72E2FGOk
8csHf5EhhnE/tfDde5mdxVhTUajlROcvnhifVmvYqNP5WixG4bVPEy6RZWL8
/cGnO3Y/c7IYg6sq6qbTeU4uRustj7kvyXli5Ot5VB3MpPWJUfB4nabnQeY7
YuxcW66tLaf1igHJ+dhqcrsYuvdWxclU50cJhrmIj8w+TOuXoKkt6Vo7mSvB
aKfAC8eP0PolmBLfOjeIzqOQYO7kb1NHZdP6JTjfUqhXR+ZJcLpug8P2o7R+
CTxN9vW3zqH1S/Aoc1BANzlZAlOtzNgiOv/KJfAtt1QT0eeRPAl0bKzkk3Jp
/RKsz4ltbCTfkeDppzTrXXSeVkrQ29yy0v4krf/H358ySaP3KVq/FCkvHkaU
kLWleFVsry8+TeuXYqhX3yQ9Oq8bSrHr67HsRjKk2J9y1To1j9YvRaEw3d7u
LK3/x+s9dXzUTRZLwa/vyivMp/VL8c1n6/Vw+nyQLIXhlC9WuvR5Sy5FQ9IG
/VpynhR5WtqaCedo/VK8Wd76ybSoD/4LeoktJg==
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 300}, {-0.5, 5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.8109598230988736`*^9, 3.8109598268216543`*^9}},
 CellLabel->
  "Out[941]=",ExpressionUUID->"a839f395-655f-46e2-b22f-33b2d93fee5f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tempB4", "=", 
  RowBox[{"ListLinePlot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC161summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC131summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "11"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "11"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"CC071summary", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "11"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"FairOutput", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", 
         RowBox[{"{", 
          RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
      RowBox[{"dataB4Nor2", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{"2", ";;"}], ",", "3"}], "]"}], "]"}]}], "}"}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "300"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", "4"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"PlotStyle", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"Gray", ",", 
       RowBox[{"{", 
        RowBox[{"Gray", ",", "Dashed"}], "}"}], ",", "Red", ",", 
       RowBox[{"{", 
        RowBox[{"Red", ",", "Dashed"}], "}"}], ",", "Green", ",", 
       RowBox[{"{", 
        RowBox[{"Green", ",", "Dashed"}], "}"}], ",", "Blue", ",", 
       RowBox[{"{", 
        RowBox[{"Blue", ",", "Dashed"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"Black", ",", "Thick"}], "}"}]}], "}"}]}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.810310256617603*^9, 3.8103102605572424`*^9}, {
  3.810310536139144*^9, 3.810310570019891*^9}, {3.8103109022909107`*^9, 
  3.810310909128163*^9}, {3.8103112176217833`*^9, 3.81031122591492*^9}, {
  3.810311876847144*^9, 3.8103118955011053`*^9}, {3.810312243867898*^9, 
  3.8103122441810904`*^9}, {3.8103646455538673`*^9, 3.810364645970773*^9}, {
  3.8103646788428764`*^9, 3.810364723709984*^9}, {3.8103689915980325`*^9, 
  3.810368991999647*^9}, {3.8103711876099906`*^9, 3.8103711879523315`*^9}},
 CellLabel->
  "In[942]:=",ExpressionUUID->"b4145f43-7a88-42c9-ae1d-38a5639f5971"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, {}, 
    {GrayLevel[0.5], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVlXk01WsbhreQUqGI6qsMFU6IIkqDO/OUDNs8z2zT3ruik2hHSYNoUEoh
ndKAaJZT7QbnUIvTQB2NKkPhdEQiGr71rd7HWt/+x7rc7nXtx+99n596SIJr
+CgOh6MrweH87+fPT48Z5/8/uFilIGUskGO/H4Pn0V8lMvdrM1ZAt2THnsfa
poyV8E3ZxbFE3YbxFOiu/iZ7KdKV8XTMMfnxJM7Hl7EaUtfnKxkGhzLWQHNp
a/rNdB7j2eiWsDMNLBEw1sS5vQZ1FqOSGGuDg5tvE5NSGM+F8rKecbl5aYx1
sbVvOHWH/lbG83BsReQZ6fydjA2Q3TvU2J+8m/F85K11mXdvQS7jBVi+sKvd
Ov0gY0O4ZX3SmCQqYGwEkcz7wfUzixkvxGBpX3tq5HHGxriwel6bqeYpxibo
EUnlmUeUMV6E9Y8SymumVjJejPHXJFu1688zNoWKQ8fKDY8uMV6Cczb+MUML
rjJeiiPLFKNvfbzGeBkS1xg0tcveZLwcO9d9tQhzvc3YDM+sVP6VeljDGOgv
/DfRbGftTxYB1e4qi+3T77F8BQKyRhlOqmpg+QrsqtdqzVV5wHJzPJU780tk
30OWm8P2jO4+Xk8jyy0wMeto5t9yT1huAZHJG8fzTs0st4T7rfiSu2efsdwS
z7mhF6rmv2S5FbQTz7v2Rbew3Ap+bROv3Lz7muXWmDnta3Cd6VuWW+P7eO22
1VWtLLcBb9TfPsrW7Sy3Qa3SC9W+Vx0st0VDv/Q604z3LLfFyY8OuhMWdbHc
DttlCwJEn7pZbodTmvWyh69+YLk9BpR+96iwZPdGZA9PTNJr1f/Icgfk9Ng4
hs3sZbkDqm9opZ+W72O5Iw7W91XoS35iuSNOZx64FTfImLMSR20jBl596Gf5
SnAsb7+RbP/MciecXsIP83kxwHIn1Kcbd0Q2DrJ8Ff7KkJe/ePcLy1fhyoaa
lL9uDLHcGa+kbHPtzw//ZDjDkDel9fpvX9nfO+PO74Ma9/Z++8liZ+h4221U
En1nfResOV8cZhP9g/VdsG6K6/IdWhz87Lugu7676kgeY7ELTm5bs79aRuIn
c1xRG+iTW7uGMVxxaa5f35lXjEWuKMhwj3e2HcX6rjinMfnVsXLGHDd4329a
f2CSJOu7wXO/xEnVNYxFbmhqLK4zfMRY7Ibj6i4t9fpSrM9F77Pegs5tjMHF
1VtFCdteMxZxoX6lrO2MsTTrc1Gs0ZTqvo0xxx0FG+9+3tHMGO4YXeVV5qE1
mvXdsfysZOh1IWOxO2yVnaPqqxlzPJA+aqVL9igZ1vfA3PcBexRsGIs8MHPd
rMSAbYzFHqjffqA9o44xxxM9DgNJeTJjWN8TE7OTW49aMBZ5wlO1jHsuhbHY
E5s1uPObLzLmeEEwsPbknG7qe0HJ4JFKidpY1vdC9GdhWawbY7EXXm7uCtyy
mTHHG/uye9/8OM8Y3lB5aVLc+Zr63pg8fclbOzlZ1vfGuTKJYr3FjDk+CHcc
VDgewhg+uPSiv+z6dsYiH+RN13TIrKS+D7Lz69rknlDfFzq7X38NGKa+LwRO
gc6bZ45jfV9ovqjS2A7GYl/UamYpJQcz5vhBy+qQf/AmxvBDs9/wdesi6vvB
wa8z0+g69f0QzNMsNHxGfX/wqpUsHQeo749XjzOvZkwaz/r+sDnVVtKpy1js
j9z+ct+N1ow5ARiWMR9wCGSMANjPcPD2TKJ+AD54yNeV7KJ+ABzcRhdZHKd+
IGJO8ToMqqkfiGcpbvZr71M/EOm8dq5yG/UDMWiRaDT1C/WD0Ppb/fe08RN+
sloQHjYrHfZSZYwg6NlVHCiYzzgoCA2eVzO9LRiLgjDt4oVnWVzGRUH4eHNp
uVk4Y3EQvtxLkV29lnFLEFIHi2p0tjDmBGNLb8a+uH3kD0a/aJve0mPkD8Yu
O6mWQ5XkD8aDpU3yWTfIH4zthxyGJteTPxiflj06u+gp+YOxEnfdBtvJH4xo
99l/evaRPwS/33F96f2D/CGYXDykLzFOjvlD0Dl/KNRZmXFQCIzuFcraqzMW
heCEETezR4dxUQgUv+d7WxszFoegZorV9ZVg3BIC/a3T/xljz5gTioAJqbrr
3RirhULLvy7xmB/5QzHv6PqGjHDyh8J0ykOuZjz5QzHcPaE5PZH8oegPFCke
TSV/KBqNLnVtzCB/KO6VlElr7CJ/GDR+FD7LzCV/GOYkzDa+dJj8Yai8fOLD
mWPkD0NI0WqvmNPkD0Nozpbm/gryh6G4Mb7X8TL5w6DfKDdDeI38YZB7r7Ux
4jb5w/HnY/1DOnXkD0fNSe71Ww3kD4d8Vf5X3Ubyh6OyZkl2TDP5wyGQcijf
+JL84RjrbZnCe0v+cLwreS6j94784VAaHoqu7SZ/BCqH7p1c9pH8ETCTN/8z
q5/8EdBV6Oqq+kL+CKw9Xdl86xv5I5Cya37RKQl55o/ApDn+0xKkGYsjwO01
+Y/SWMYtEVCdxk8+OJ4xJxJOyQqqHAXGapFwHyw9ZqvIGJH4xTu9c7Uy46BI
ZNmGv02bylgUCbPd2xYmTid/JNovJcU5qZI/EjP/2eMyXoP8kUgv3JBZMZv8
UbDnmpQv0SJ/FJ6syjhY/gv5o3DYS3B7rC75o5Bpbnxx5TzyR8HcWlcz2YD8
Uag401m/ZwH5o6C+xUAt14j8UUgSFiSlGZM/Gkdbs7N9F5E/GiaLN99XMyV/
NCxTyvMfLiF/NDy6Zp0SLCN/NA4p57h8X07+aFQnGSn8CvJHYzhg0543K8gf
jU19RZJLLMjPw4yarHNpluTnIdNnBfeqFfl5aElWtn5jTX4e7m74WDRkQ34e
/r7o/VrSjvw8pHFPpX4nFvOgWDmmtdOe/Dy4pZgvq3MgfwwUzk/oPuhI/hg0
vF4a57+S/DEI+23qd0Un8sfgxgrVN9eIRTFYXngizHcV+WOw93JIXzexOAae
/tkVQmfyx6BUIeDfbmJOLFQlZgz4upA/FjHfVk0UEyMWUzQTYqe6kj8WyhlR
plHEolhEq29tKCUuioXKG53EDmJxLNbJzbWZ4kb+WFyTLSwyI+bE4cY7/zx/
YrU4yJSLg4XEiMPsis+hqcRBcZgg+S1/E7EoDpsTZew2EBfFoWv4Rn48sTgO
l5u6v3mN+OPgMO2dcMmIPx6TavRUlEf88Ti0eqz6e/r+iEe8j8zzCyPzx+N2
pInbryPzx2OX84l845H54/Gf+0+7u+n/J45HgffVtMPELfG4s/91uBUxJwHx
epOfdtDzUEvAUQkr6c3ESMDUnXqq04iDEvDPmLHyp+n5ihLQnfGy33Dk+SfA
qLFuzBU6H+IE+BWZbDImbknAfWnVVWfpfHH4OP3X7gMaxAp8jLmkuy5n5Dzy
UXtMXecLnVcDPl6MS3viRww+9J8o/1pN59uZD0n+EbXJxEF8FPN5kjy6D3w+
djU7zbpqS9+fD9mwWTukiXP46K00S3Kk+1XEx61Z70dl0/2r4CNkgKNdT/dT
zEd318WO0cT3+ZgWfIG3lO5zCx/XUsUP4ui+9/DxWCBjlG9O8wvwdaFl6R3a
DwoCGGgkW3TS/lAToOfjpm/jiA0EWNHxfeFcM5pfgPQveRWWtH+cBdj48IfQ
l/ZTkADPZy8qjV9K8wsgtKgVpdI+Ewmw1njg5XbadzkCtP3R9GbvYppfgCb7
nAMHaT9WCHCt2m/mYROaXwAZFb9t+bRP7wvAuZ376sBCml+AdbFPNHbT/u0R
wDMtI3arIc0vRENt24P1tK8VhJAo9guPmU/zC6E9/ZWUN+13AyEcKzqqLPRp
fiGaKpSP69D7wFmI49n7WhX0aH4hEpVXpPfp0PxCHKz848ijuTS/EHEqitaV
9L7JEUK5sCZhpzbNL4TQxeJdGL2fKoSYlHfjrakmzS+EYqncGrk58vgv8j4O
XA==
      "]]}, 
    {GrayLevel[0.5], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVlXk4lHsfxgelnIM2pHgdKYqSFnWocJcl5GDsWWcwmGGYmTZLalS2Tiql
RUqcSoj21WlBp10LLQdtlhZKUlEdUm/vdX7fruudf1wf99zP57l/z3MxJjTO
Q6DI4XAmKXA4//v576fLhvP/H2hdLnnUvtOc/X4wGh2b70z825XxUEha6oZ7
rA9mrAHV2JpDNlwhY2201Hb/ptcvY6yLg8VX7t2/kMhYHy2HP15crb6KsQHi
f7HK0SlKZzwOu+KuHB1uv56xEXo/ZKmdGbSZ8QRItJIrxm/dxtgE13U+JlQ+
28l4EvZ21Lw8nVbIeDKGdWl8+KK5j/EUbAx5crZ6cgnjqZgVGlZt3FTOeBqu
zhLpRe06wng6HhzvVVEsPs7YHMpNfZaJ2qcZz8BEqePAbZ/+ZDwTT25Z7zAc
X8n4V3Dbr53YuqmasQUeCx0L5sy7xNgS1wpTKj9YXmU8C2vn2pdbJ99gPBvK
I90r7IbcZjwHIafXW9ol1DK2wmZv84LEnLuMrTFFpud2s+E+YxtYL5GoCpzq
GQPdDcKVyq2N/7Ic2FOq2KBS9Jjlc/Fo0RXNcscmls+FYIHZgyO1zSyfh25H
cfAwcSvL52FhT8eB/FHPWW6L7k1fH/bcf8FyWxRebo5YU9DGcjukLlo7I2/Z
K5bb4arBh4SYhR0st4fBf47rD7HrZLk9+uQnXleNpvfUAR58V7MWzXcsd0C0
iVUqb/h7ls/HxesuZRZDPrB8PuzkiYYxP3ez3BGysiudHOUeljvii9Lh/oFf
GXOcYFZQpLDj/UeWf+f2axYtLZ9Y7oxk2396tG59Zrkz9AueN8mP/cPyBVhS
PHRswqZeli9A3T6nqmhRH8td8GSCaVrdrC8sd4HfGfN3s5X6Wf4bDg087Tj/
ImP5b3DYk1G9L/Ery11hW7/XQ8f4G8td4bV7R1LSLcYcNygfsTrkNYODf3M3
ZH8sM61ZwZjjjkz1TJeii4zhjp+eLDd8paTAvu+ODItjOftsGFe6Y59ZelnH
UsYcLnRFhuWNJYzBxal3D99l1VOfi7PjF5QZKymyPheLpG/L7xsz5nigQ3Zx
7FkXxvDA6cPm/J9iGMs9EFW74EhXOvU9cFJN3LG7gPqe0InfbLbgJPU9YcrZ
89DoGvU98dLBvCCygfqeiDRc04CX1PdClntj9fP31PdCxrqkAWu/UN8LLsUq
CiEDlFjfCwnFJrLNPzHmeGNg9LfJPkMYwxuqzqdn3x3OWO4NnZq3wdM1qe+N
xBzTmfla1PdBsK+ToeVI6vtA61PeICNiuQ9Mt7apraHvV/ogT1NfHEfX4/hi
eK9whaIG9X3RIchf5/nD74uTRhXLlg2lvi8+HHpkmqJOfT9IT0YVrFSlvh+U
YttVU2if3A841meWPZj6fjDIvH/hjDL1FyK88NxhxYHUX4hN2mnpMiXqL8QR
DUWrBgXqLwTX4WWJJ4f6/t//PxwY1fOVzt8fAzvzTa730/n7o7fS9EAjPY9K
f6yd7t1uTMwJwB9KEXln+qgfgPP6FY0ZxPIA5ESv0N1KXBmA6xNTUp8QcwJx
c4wxL4Suh0DobHh0SvOHPxAvAwyXfSWuDMS4DLNlWt+oH4TCL1u9F9IeBCHW
V6B7ifbKgzCvbbe9D51HZRAid53KVqHz4gTjlFvb+Ud0ngjGrRbP2zfpvOXB
8EzvGdNAz6MyGLyEkaH99Lw4Ifjcrllv8eP9C8FEXe6kzGHUD8FsUXNDxwjq
hyBevWIb/8f7x0OQUyXnhTZjfR7uJv31MF6HrscD13CnirYeYx4PZufdXlXr
0/V5eByQWxc/lnEBDy3erbYWRuTjQep+0J9jzLiJh5R4ecftieTnY3n2MKWi
yeTnQ1EcJF81lfx8lCaGHgozJz8fsa851k6/kp+PZz3ZhdNmkZ+PUNGTfj0r
8vMhMHqcpQ7y83HJ9XYWx5b8oWjerZPbbU/+UKS7aa1pdyR/KLxmVk1/uoD8
oRAPvpt435X8oRis2FZ2g0v+UEwIGmNS7UX+UDx9UuN22pf8oegd6VZT7k/+
MJQnz1LbE0T+MPhxm/W28cgfBp/O1MuZYeQPQ+ToQTeTIsgfhmm6qwJihOQP
g+s/13b5x5A/DA0Pp8+aH0f+MBzao5c2VUb+cIzIseRrLyF/OErnujV8WUb+
cHTYjfZqSiR/OLy4lxyrkskfjiY7H7PdcvKHw0zztTBxNfnDYa6q5uOZRv5w
nNi7pWRCJvkFSFxjsaHvd/ILEMY1HlaznvwCiALDRuRmk1+A3piLN0NzyC/A
3hUqWcbbyC+A7fIWxze55P+eJ3oWle8kvwAZJQdaRLvJHwGNe1mN4/4gfwSm
xXtueLiX/BEI/Lu1fcN+8kcgd0DtPpSSPwIHu99md5aRPwK9J45xcw+RPwLv
Hzhvw1HyR+Dqn8ZRz46TPxJHG7KNUk+RPxJ+uV4XxlSQPxL1Vs87K86SPxIH
3JIPcy+QPxItG3m+z6vIHwmZJO/N4r/IHwklfrSawhXyR2LnlM7czGvkj4Jl
+R9B6jXkj4JL9/j0jbfIH4U2D7tRQ2rJH4X2U2F/Zd4lfxRK+cWBCg/IH4X6
13U7ltaTPwqDDC4dbWsk//frObhu93lMfiGO3lxUUPWU/EK0mL/TN24hvxCe
N2xS1z0jvxAvkuvt37wgvxClbpz1zu3kF0I9IWvt3tfkF0LDuX/FlzfkF8Jp
hvsR9y7yiyAZ2ruv4D35Rag92zazs5v8IqQ07+NYfiK/CM2tZd4r/yG/COLy
30dX95FfhGy3B28UvpJfBLeBKho2nAHML4IoPy0+XpExJxrfHjgnHRzAWD8a
/m/TBrQoM0Y05iYvSxiuwpgXjfdVOzfb/MxYHo05z+ElVGNcEA19OWfVxiGM
K6Nxx2OD0fFh5I/G16MNefdGkD8Gu7Itut5pkj8GXYUT7FW1yR+Dj8ZDJo0d
Tf4YtFteFs/UJX8MPrV65jvokT8GIS3DR3rpkz8Gk5dnfw4yIH8MTh2PNROM
I78YnOv1r6KMyC/GhwjdGcIJ5BcjrWTtzEgT8ovxKmBULn8S+cUI3OR71W8y
+cVwOjj9lssU8ovhq/am03oa+b/379X2m5qTPxbj+iz3j5pJ/lhEzDa0VrQg
fyxmbFVJarMkfyxEou2bb8wmfywamxZPPGBF/lgoTVI7l25D/lgEbUyp5s8l
fyzWhXVmWNiSPw55Y/9zW9We/HHo5XdmPnEgfxxajpSMPOhI/jgU7tAYnuhM
/jjs3KRcPM+F/HFId2wSD3Ylfxz8Bhp13XAjfxzeq3weuo5Lfgn0dQx1nTwZ
D5Ugf1KVkZI33Y8EPmMfPK3wYTxFgqJuO6HEj+5PgsMH938y8GfsLsElne6I
ugC6XwmsT54VrAxiLJGgwjhIYBxC9y/B1gVlk+/wGG/83g+03L84lPZIMMO1
/KZWOOPDEsQsze06IaB9EqxZU3WcG8n4jgQmSlvKX0XRXgkW19capIgYd0nQ
ejJ8tGYM7ZfC6MqxQ0Vi2i9FsNacvBlxtF+KX3R/WV8lof1SzJylPtFFRvul
OH3nS9LdRbRfinl3Vot9l9B+KfY2ierql9J+KUzOPRzhF0/7pfga1x18L4H2
S1FqXazumkT7pbh6/bj6peW0X4qOE9uvWa6g/VJs7xk2t2wl7ZeCF+JppZtC
+6Uo+LQ8MXMV7ZeisHDM/O7VtF+GK127rwem0n4ZFPNbNS+m0X4Zltq46hpl
0H4Z4m/8+S01k/bLoFan7de6lvbLvv/9OrjOeh3tl0Frf0nqtizaL8P56ubN
netpvwwp1WPO2W6k/TKszkwL35pN+2UwifV2eL6J9svg82bLjqk5tF8GXunY
nKQtA/BfLB8QLg==
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVl3tYjHkfxscpuSwiFuuUWnIqRUW7qrsDUiSdz02Hqaap5lBLm0NDW2gt
JdQ6rLq8TkVbKNmkJGkpRYoVNTnkVFqUsYh338v3+8c7/8z1mXvu5/N8r7l+
v/k9U4OlLqL+AoFgTj+B4H/vX15/Wwn+/4WHj/ompTRo0OeaqNbaodRYq0us
ha5nDsdfFM8nHg2Ti32j9/9oTTwO+fLIKeWtjsQTccLCapB5hRuxDm56Ts7K
j/Mn1kXcozrTdMNQ4m9xVGTokvoskng6lhh5P7TeISeegdZNJq4WSauJZ6FB
v6LZSr6OeA6E04bc1SjfSGyIBQExXjOfJRMboQFpOQ51qcTGkNxz9LlinUY8
D2G/Luyzzcggno8Yp4jeH8SZxCZY5FC9YHfjPmJTnDT7cPmJLJvYDE5D1msd
cjlEvACljQWOqswjxAthcPxibu2yXGJz2NSbqv+U5xN/B/XtAlHutkLi7xHl
uMbi/bdniBfBTXzt4kaNs8QWCHEfbl1v+gexJRZVD5hrcraM2Ao2xsYjAq9U
EAPLROa7tVWVX1gJHPnupWGw/mXKrVFywayx9LcrlFsj02tw6PKlVym3wYEC
A2P11DrKbVBo6VGXN7aBclv0HFROaTl7g3Jb2N22aEqSN1JuB2Gs3f14uybK
7fC7X61lqNFtyhfj9zHJvdUmf1G+GJe3HU38x7mF8iUoiy39de5P9ylfAvsx
0/Ti69ooX4qUGz8Nah/TTvlSPBiQvKHb6QHl9jC+MMzEJv0h5fbYeePqWf17
jyhfhps9VW6PDTsoX4a6qoS+oi1PKHeA+5s25fWnTyl3gE+Wb3CA03PKHVEV
8t4mveQF5Y7YtvddS9r0LsqXw39m8rDkzJeUL0fPtNMSx0G8DlfAIU0WEl9O
rFwBA8e3FqofX1HuBK3+5iMnmrym3Al9AZpRV7qIBSvxYF9pi/LIG8pXIi3u
eNJz/x7KnTHIRXomV7v3C8MZ6w3SkyRXiJXOWLF1wo6W+LdfuMIZ2l1jLfL1
1dRfhXXfB/ntbyTGKrzTmxodsu4d9VeherupZfXUf6i/CsNnmk755RKxwAV/
hc9MSA56T30XoHCfzqYPxEoXjMo/EeSb/oH6LvD6qyThpe5H6rtCkVWsObmA
GK6Yk5Jy68bCPuq74trQ2WlvzxNXuGLzJrnz+kWfqO8G9fjD53zPEsMNn0ti
x2wz+Ex9N2z6XLTxq4PEFW7oKD3n2D1IgC99d+wY3PJxwHfEcEecpqi4RkKs
dEf38A8LbfcRV7jj+uYRdQk13PfAnmuOQ+LfcN8Dx9pP/2Q3sR/1PfAhaWP9
cxviCg9ofa23dHU4scATzztDp7zZSgxPhNgN7o3O5b4nVqqbB/fUcN8T34t2
aWc85r4Xnq480+El6E99L9zfH13iOp5Y6YUlto+a0o2IK7ygnl+fOXUJscAb
WXq33Ub6cN8bJWITb2kU972x/Xj/ldbrue+NliXRozK3cd8HZuFDNZR7ue+D
T67qSUOPct8H7eKv2pec4r4Pggf2WVif574vxFFVNwZf5r4vHtXePXa0lvu+
aLu0Is6gkfu+kFzcF3r4Dvf9UBef4zXhPvf9oF2dW7dXxX0/yBNN2w0fct8P
MeFlqx484r4/nm5qcCh/zH1/FOrOUtczK/3xSSuyaxJzhT8+DDSTnuLrCQJQ
YJuxbU879wMwv3jXiMZW7gdg/OA/Z8lauB+AG8XDx66+zf1ALNJPLe68yf1A
uB29k9xSx/1A5C/42LyshvuBsJDnZFhWcl+IqpZAZUUpsY4QDqG++s1n+HpC
dIYOyE0+SSwUIjgrZVrTYb7+v/n07A1XDxBnC3EqodBCspt9QjxunFdznn9v
lRDzHdutqpLYH4S9do17UhLYH4SEZ30FmnL2B2HnCu0+p3D2B6H8idlLf3/2
B0EjT6/S3JX9QZjifimhw579QVg0asLkCEv2B0FzaUJQ5Xz2ByPi06K2dzPY
H4xIS8Xj4ZPZH4yUBfLLg7XZH4zqD4l5HYPZH4wWdWBq/kdaT9nBGGW1Thj8
itdbMIydIx4M7CBWBeNR9crfs+7y+guByvNwpE49sU4IPLWHBP52iddzCJ50
Dbs1uoRYGILRSwOmp5zg9R2Ci5axbj3Z7A+B3Y7r3wXtZn8ISu7cvXed9wdV
CGZ/sum23MD+ULzVmvL6lIL9odiedvPkHN5fEIphpQ09J33ZH4q/5Xc1Fjqz
PxRhMa2GtXbsD8WBtsm1EnP2h8JvAYzGGbI/FJVlUqebuuwXwc1iQuy+sewX
offnvMK4r9gvQtLypKaAfuwXYZZJSL3PW95fRTg/sGGL+AVxtghRL542/Kzi
/VYEg6sTvSubiFUiZEni24Zd4/03DBfch2pIK4h1wmAhPBTRUcT7cRjUWbgc
l0csDMNLV8fob3LYH4bVrxo/397D/jBsFkvbT25jfxjefPaQ7N/E/jDYTh77
/lA8+8MxYku/nqoY9ofDqtde8TmU/eH40ai60dWX/eFocU5IrlzF/nDsbj13
2NGe/eF4GaQ06bZkfzjWKO9FnzRlfziMU99FpsxhfwSc/vPTwgQ99kfArNd4
6tZv2B8BD8XAoadHsj8Cp6cu7VRrsj8CDl7fdHoK2B+BxW5PQo508/9lBE6Y
fF7Y2EqsikBqauF90+vEAjHCiqYfvV5GrCPG1d1J5gdOEkOMNcU1M3IOEAvF
2Ko7qOruL/z//O/3e/K3L9tAnC3Gg9sNHl0x7P83P93uWR3IfjF0gncVNzqz
PxI3PKWPRtuwPxJX1400Sp3P/khEv5tiOH8a+yOh+vZn1fCx7P831zumM2kI
+yNhnmVe7v+BzhMVkdBNn/dDQxexKhJ7Dcrj4lR8/pBgQ02taFkjsY4EM3ST
DFZW83lEgueLc2clnyMWSmCfZn3t+QlipQR/zIhNS8wmzpbArtPZ3nYX+yUw
CszTMd3Cfgm+bph02m0d+6PwtFe6KUfG/iicqn01boKI/VH4vXzanxXe7I+C
4aeQ7nQn9kfBwrdn3nZb9kfha+cTxkUL2R8FQeCw0RqG7I/CznVlh5R67I9G
xIGvR3w7nv3R8FtaXN09nP3RuDP0Qv7DgeyPxm6f+ppP7/l8F43e/4w8hlfE
2dEQ+sReOvaEz3vRSFzfp7WglVgVjbXqTSee3yIWxCB2XdDzymvEOjE4GF/o
XV5JjBi4KPqVtp0jFsZAnLpmiV4h+2Nw12Lu8q3H2B+D0a+rxSOz2R+DU8LK
ZaWZ7I+BZ1bOrJQd7Jfi4IOqOvlm9kvh8TTg7PpE9kuh9rbZfXwN+6VoW75T
3CNlvxSqyweL/CPYL8X9Ox4zHwvZL8UdZdjGVG/2S6HZZtq63IX9MhTc82+a
7UisJUPRePvu6XZ8PzJ0j/HotbAgNpLhQlFVqsyM70+GcfrH1WVziZ1lGH/q
wOlpM/l+ZaiPXbzlqC6xTAbl8T03bSby/cvwp6vtIPUY4jQZPoteCKpG8Dwy
TMgrDTo+hLhAhs4rz9YfGcDzyWCSLS77o4/O/w0y7DQYr3qsJlbJ0HUlO1P/
NfHfMhiXbUtK7OTnBzlqdPet6Oog1pLj+4SMtbJ2Yh05rIeMS9W8R2wkh4f7
ruKiZn7ekGOz9Yx3q28QO8thLrjb5FhLLJSjYVfKPJMrxDI5/lEa359bSayU
o1WQZ2xZRpwmx9bUzL8DSoiz5Zh03a8k/TRxgRyjOqy8m/OJK+RouoXkObk8
vxx6+/zuZBzm+eWoOzT08dAcnl+OVbPPKHbt5/kVSAv8aG2QxfMrYCKJGtGc
wfMrENtQpL99B8+vwFcZzWbuP/P8CuQ5dEycvZnnV+BBxrviEUk8vwI59Yl/
9E/k+RVoOmA1aOBanl+Bg62XA7XX8PwK/IMCF6NYnl+BuT80j/aR8vwKnM/w
OZ8m4fkViOpMGnsr/KPVfwEZEKMx
      "]]}, 
    {RGBColor[1, 0, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjGkfx0eShErRCR3xYpXWIUn46ujQic7nmaamqekwM85rMLLrEGXI
lnVoW8kWG+X47haNtlhKhZwqibctpZIkqrVe77X3r+t655+5PvOd7/N5rnt+
9/1cYxaRuCZKhcPhzBrG4fzv/Z9X91LO/7+gfy4yyvjAbPa5Op4E1AtO5rsy
1oaTnehkxC5/xuPR3dBSdDSZz9gASVMOXxXx4hlPQnJdsNOe4nWMTbEyRrZD
OVrG2BxPCo8IOFFJjKcAz3Z67EjbzXga4irWq2XmpzCejmnKmpIB4SHGM+Gi
16M++1A641kY2auiek5wjLEVZr48bK27LYuxNepSD+RdvJTN+Guc/NeRU6P5
PzOeg4bykwO66WcZz0UE/haetixgPA9Lvh1tqNV0gfF82Kg2vzVsu8zYBrLq
8IEiz18ZL8BL8cFpWUbXGNvC2FoFurlKxguxPOR7W/PBUsZ2iFzInzB7bznj
RXjUe1Pxk88fjO1x/ruxu8LCKxgvxn4/j5/vnalivATHo4N4DRPvMV4K+8Lf
NCcPf8AY8Ao3cO/SePgPywHvyWeOXJvzmOXLILxpPPHk5qcsX4aCjUUCz8Z6
ljsgtShTxyy8keUOSO7Pm62/tYnljrD3NpMdf/SC5Y44HZL9osHuPyx3gkyy
IGhbbjPLneB3t2qklnELy53RPwEq6kdbWe4M5apqj3tGbSx3QZ+ZWubdzHaW
u2D5QytFwJQOlrtiT2lJ4IO8Tpa7orGg0CrX8g3LlwMW/543xZ/NvXw54trm
nDGc8JblK9AtLbLh1DCWr8Aepcat6bt7WL4Sau9+b+lZ+I7lKzEIceGdVsac
VbjC2dszXdHL8lX4U7Wn/fCc9yx3Q+Wo4euyqhjL3fDa1XlRJ7+P5e4Ina5V
MaOHsdwdUS0TRTqbP7DcA8Hj3UslHxnLPbAqIFhsLP7Ick/UjcycPPicsdwT
Fz43fupz7We5Fwzqyl00cxnDCyPunNJ35gyw73shNHnDjDNejJVeODtumYbf
D4w5q2HnWFIYV8cYq/Hp5d3V+uMHWX81uqwua+12YaxcjUXO52/3Shhz1sB9
l2/eiXTGWIPdr3vEZZeovwbCwPpVhZXUX4NL9acnnmukvjeMrhbajnpNfW8c
WjzYp9tDfW8sq/5znlkv9b1R7J5RmfSW+j5Q40zZtq+d+j6Ydbjk+YHn1PdB
u+UhnZc11PdBsoOW3r3r1PeF+tOIJfl51PdF5Df9kt8PUt8XZVNio0I2Ut8X
m/sTu0uCqO8H9dB457n21PdDi191Qd9E6vuh837HK5cBWn8/zNpuGRvymNbf
H0Y5VxbHX6T190fx56gZean0+/lDnO3CWRJDfX/UD6Sd8XOkfgBaP9bv1p9M
/QDw0q93ZPexeZAHYPuScR+MahgrA9DeuNDxSB7NTyBUtE6tmLeT5icQVuEG
T1VDqR+ITT1Bl67bUD8Q3J+cLU9oUz8IbQdlqyra2XwiCEUxxjJhOc1rEIKt
9mfsy2KsDILQyN3aUUbzHYz3G9VOHw2gfjDyQtqtj8ynfjDGbX/Agy71g/Go
pL3h8FvaPyEIyx0cllHDGCG49unv+a4FtJ9CoPpmwaQcBWNlCLSL2y6fl1A/
FJFbRHP43tQPxaJM9dqS+dQPRThvqqzUgPqhsM3IMxH+Rfs7DOYTw2efb2KM
MHho9Tmkl9N+D4PBu16pwVnGyjDUFap0zDtI/XBcydJ72LaR+uFYzFn5eG44
9cNRW9XXre1K/XDs5jRGbJ1NfS5MFIo3GwwYm3IRZPlBNjiMrsdFk1Zsv1oH
O5+4XKy+ft/wyCM6r7h45ZoYmH+DcRYXXR9aYx3zGSu5ENmeGxfwA+MmLnJe
JfNffUfnHw+5SUeVb6WMTXnYM0NtylouY/Bwf0uvvdCD/DxY/VaUUG1Pfh4m
/3nwh9NfkZ+Hjx4xLe1G5OdB/HZM3jEN8vOg2tBlfmWAncecCFTVvl9p+5qx
aQSmBzyUGjcw/vK0X+F8Tzv6LmNuBAZKVcXaJXSeR6BFzb9Kv5BxVgQCOv0U
smzGygj89a7q86J0xk0RcK22G+Wzl/x8WBmbTCuTkZ+PXR8duvaIyc/H4Rz5
hqxI8vOx0CPmvUYg+fnwWbvNvtyd/HxkehVOrnQgPx9r04J2m9iSn480t99y
ii3JH4lvTrTk/mhB/kjsPH4r9LYh+SORY5wVsEib/JFYYej7V7ca+SPR2bb1
Vusn9rzLikRdiralyXvGykhMKk45kd7BuCkSofm1qiub6fkYhYj6bal2DYxN
o/B9prl6dC1jRGGeubyiopIxNwrVdWs1hOX0vI3CutzjMxddJ38UjsrdXjhe
JX8Ubnpr2sgLyP8l36gte5NHfgGcF1jbK7LJL0DR1sY1vBPkF0A+8VAGP4P8
AnCam+emHSS/AK/Dm6u695FfgJi/Cw98s4v8AqzQvVlitYP8ArhfvMEdIyN/
NCyG5TjqbiR/NPb80qYDKfmjoV5jGZsWT/5ouMscNmnGkD8aXpb9T85Fkj8a
Es+XuyVc8kcjUc2n3S+E/NH4u7PiWWgA+YXQldwd+50P+YVYr5oxv8qL/ELc
qKwJtHEnvxBJG2/2F60gvxAZAcf0uS7kF0JPQ3OnhSP5hXh07cW14SC/EBKp
ouiTPfljMPCgNVfXjvwxeL5sS5DjAvLHYOVjz9rkeeSPwbmlnB87viZ/DOos
/ZcIZpM/Bqmnhsd9mEX+GGg+vO92cib5Y3D8bOymiOnkj8UIvnSxzTTyx8Jl
qrmO2RTyx8Ih/9ZeM3Pyx+LJ/CXhc03JHwune3a9/sbkj8WYj+MNFZPIHwsM
63pWb0T+WKwLWh1ia0h+ERzOTH2Zo09+Edw447un6pFfhGrvyitXxpNfhGAL
D1N/XfKLUDDyxytqOuQX4c7cLUU3tckvgtPrtMzDWuQX4VA557JYk/xxKHSz
KwwaS/44VNW8la4ZQ/44aOYWnvAbTf44pK2q8BRokD8OCTInUdIo8sfh9rR2
37Pq5I+DRbJuWeNI8sdBY4E/35iYE4/9GX1jhGrkj4deyaatRSPIH4/JN3hd
RsTceMwddtBwpyr546FYv/5I73Dyx+NRv9Q6kVgZD+imRLxXIX88pppluH9L
zEmAyebMDiNi0wR81Zz+y6/DyJ+AQ5N4z3nE3ASszW/cMY5YnoDbrU07bnHI
n4Arwgd53xIrE9Bs+ubWCuKmBITlW+pMIOYkwjj2UnfrZ/Z/wjQRZsfea5cS
IxHXNiwcfYqYm4gnvVqpycTyRPgVPyhbT5yViIFc0xIBsTIRXk0128OImxLR
5TkiOIiYI8a5M1WlQ6wthnb94wvhQ/cjRt0+3rZYYmsxIm1HOW0Zuj8x+Ik9
4xXEXmLYvFoqzR26XzEEnaaF5cRiMWYGeYpahu5fDB3N5IFRtB4KMT7e+dl6
ztB6iqGXVtscRlwghlPO0+jUofUVw+thxc0S4hoxLl0tNekdWm8xyq3NOr+i
36tbDMWH7YbRxBwJ+r5uKMkh1pag1uqRaSuxqQQWFytEM2k+rCV4O8nXZC0x
JOiRCP4oJvaSwCE72mAkzR9Xgle1DkpvYrEEy/eO2p9NLJeg6VpEytD8KiRQ
05AlutJ8Z0mQIklpO0ZcIEGQxcTKHmKlBJesTFTcaH/USJCUvvrDaeImCZYq
Hg+q0P7qlsDmQl42l5gjhahsgpWSWFuKrvHP8sxof5pKUaaxJT+J2FoKt3vX
hf8hhhSnRz7Tcab97iVFinzellxirhQXDvYFjqXzQSxFyYNWj3XE8i/Xu+zn
+4xYIYXiojvHlc6XLClSf5qZcI64QIqVZYIFenQeKaVoWnb5121f+L/fs9ox

      "]]}, 
    {RGBColor[0, 1, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxV13k41Qn7x/GTkiaKUaL0DGmlM8ZWieKj7JE1+3oc23Fwzsn0S8iZSNvU
UBoasj01aZvRopqKzER7pjxlkJ6kUT81MzQKaXv6Xd3377qe84/rdd3nPu/r
63uW73eGKNU3VkUgEAhHCQT/9/fjo99e8N8PuKqPD/xdzfDCR47D8DGtgtw9
Q/UfrYUNycEhpRusaG8yWq+sHX21ypOsh9Kg3JuTZ4STp2Pz8olPct0TyIaY
kFMysTJNQTbC3vUVzYXx68iz0KQ77kXctA3kOah0V137dMJm8jx0G5s9zzD/
hmwCFb+iJXdbd5GFKDR5nLyorZhsCtV0/We6p8rIZjDdZpHT3lRFNkdAnc4u
jXPfky2wzGNy4U73w2RLKPzCimqW1ZCt8PsjacsGuxPkBVhvNtrqfytPkRfi
S4P5b8RrzpIXQV/raNr2pnqyNVSDRNKMGz+TF6P+uWTZ+KxGsg26VtiZq6Vf
JttC3/mTzNbGa+QlGFf1/kyWuJm8FFctTYuaP79NtsPTm+YuFQH/IttDqCJO
7Tt6lwyc0rp8dZ9V20crAe2s+aEezzpo7gCzluo1mi33ae6AI4UThX5pXTRf
hunfTnwn1O2m+TJ8GiE+Ofb2I5ovx53fF7/Treyh+XKY3u2Mjs57QnNHdFWL
Rk5m99LcEdYbRdantj2juRNsBGtdOqv/pLkTFqx/lf3l3T6aO2P2hHCPNrXn
NHdG0ujld5tN/qa5Czaoj48u9R2guQt+CYwuX7T+Bc1dUXze9nr+kZc0d0WA
XZP77s5BmruhS/a60WrCMM3d4PbpbpuIpa9o7g61v1u/UZOO0NwdhQO3VU2L
X9N8Bd4GV974reENzVegudd4z5SetzT3wPhFMSFjx7ynuQfOO2h2JkwU4OPc
Ew9Ozz8cVERWeuKnfber10wfRfOVmHopyy11L1m5Ei4lx98PTlWhuRf2wzzn
WgFZ6YWNzXa2P44ZTXNvfPLI9vvVCjK8EfYgrPnPDrLSGy+bLpi8WTrmoxu8
MSmhXLGxhCzwwc7hswvTB8jwwcVux7s3nVRp/4Or1Ky+2klu8MERPeey4nay
wBc2LTFKA/2xtO+Ls3JR2dxAstIXVe4F969sJzf4Qnswu8XgAlngB42cipiV
z3jfDy8cvD7L0FajfT/89PRU1i0rcoMf2kfdqcvwJQv8UTzq0ayjSWT4Q31L
yrRiJe/7o7rOM11ewPv+yH5g35dSxvurMPdSzudXDvD+Kiw5YmpUe5T3V+HZ
J1VByTW8vwpfN/Rem8cWBOB/aud9ZsDPRwBulRwpy+PXUwYgd1ZvTGE57wcg
b+npBxm7eT8QJyRljqlbeD8Q7Te1JpVl8H4gqnINfBZKeT8QPa+E88WhvB+E
Duu+Ym833g/C1AM2ajMX8n4QHLOF7gIj3g/CrrOH6sdP4P1gbKjfGiIa4v9/
MPS8DJtnPeTzF4yG7EFvj2t8/oLxw6hH914f5/MXAuHqA86+Jbwfgi29tu2S
HN4PwTtVUXV4Eu+H4HLI2yX2frwfCpthzVczbHk/FA4qGkE6M3k/FPc04t/P
Uef9UBQ56AWLBvj9Fwat7ICM2/fICIOZIG5cViO/f8Oga/DEX3qU379h+PpJ
Zt7+b3k/HPM7/B4Jlbwfjs6E5M/VJLwfjjVpf4Ut8uf9cNjUvDh9wY73I3A3
f3R8lTHvR8D+q/7ZDyfzfgT82zQ0MwW8HwEd43/op/3Bn79IhMmX77vaxp+/
SGQG5y/MbCIrIzG3zlG57Th/fiOxb9g0fLCc96Pwfs7rx+e2kw2j8A/9gqn3
Mvj1ouAgTDfwlZCjPsyrxQ8Ngvn1o+BVFm+83JVcEQXZ5E26ZxdxLwqTfZTj
cuaSu6Lg+fbLiaW63I+G0MwEo8dxPxo7jRwXnB7m76NoiPOOJtX2kqOiMW7A
2vTN/38/RePny4WVW26QK6JRm6F3OLSe3BCNwFf5T2Q15K5oOO8X+F2u4u8/
ETLUfzAM3002FMFKtu/lF5u5L8KMkM+N7DK4L0JRVdzLjSncFyEvuCJJVcR9
EaQWPrbnVnFfhKrze9btd+O+CP5puxW/LOV+DERnKka0LLgfgx9XFYz5Zg73
Y3C26dpLG33uxyAjRTk0SYv7MZgiKzLWU+V+DOSCvlKnERXqx+D4w4LEkj5y
Vwwe5bW26PaQBWIMbbl+9kwH2VAMXZ2Zm7JukSGGUb+JVtwlcpQYN+5Y2MrO
k5ViTPPsyf7uOLlCjD2t6m8fVXNfjMuj/B6vKOe+GDdPVbrd2s39WPx6svuJ
7Gvux8J4z7FOYQ73YxFoFChTWcf9WKQd9L/RL+N+LJJNgm2H4rkfi6Xvp9yb
HMn9WDi5lhS4BnA/Fl6zQ08UeHI/DuZ6I6F9jtyPw0DHyqaoJdyPQ/RA44Me
S+7HYfHI9mlZ87kfB5foeJ85M7kfhy33Lcu7pnE/Ds4ePxgd1uZ+HNRCdi3Y
OJ778Ui9U5SdosL9eBg7Ly6LHaHfc8SjdURVIfmbHBUP3Z8XCrOe8u99POTm
0x+UdpMr4jHY8tDrSge5IR5/fdoe8r6F3PWh13pB4nCdrx8SYL/Tqm37RbJh
AlLLzTR6znE/Ac8v/avP6ST3E5A8NL/lxyPcT8C26uH7Rvu5n4DEqUL3cr4e
aUjArmVvbWZ9y/0EXLC9vqlmB/cT8YVXcYPjJu4nYv4bTf2ubO4nYrho65Wv
1nI/Ef5vduWYyLmfiKjuYEV7IvcT8XeuQcIOEfcT8XyTub57KPcTYX1MU0/d
n/sSBPZ1HrjlwX0JjG6YdZY4cV+C11kublI77ktgEZcrxyLuSxDaY7BPz4z7
EvR1TPns5TzuSzASLPvz7gzuS3DeddvUs9O4n4Sv5p04VDmJ+0kw0hTN3q7B
/STo/TXubYYq95NwLrH7dvI7vh5Mwvdf/JQmGiJXJKHR3HlVSD+5IQmZhqvL
/HvJXUnQsN4q9unm60sp9h5dv8P7HtlQitT0Szq+d8iQ4mh/dt6qm+QoKfZp
HNgacon7UihqbRKjL3Bfim/1jH0kZ7gvxc4ne3PSjnFfinn31+1SHuJ+MrJ3
q9/e/k/uJ8NIam1QWsr9ZAw2+bsf2c39ZOim57nU7eB+MhqEPY6/buJ+MoIj
LS27ldxPRu/VqaOH0rmfDF/bMR0aq7mfgsqr9yNnSrmfgo7VtWdsYrmfgtl/
TE/wi+B+CrwzRS3SQO6nwGyvS1GeN/dTcOeA46sKN+6nwOTiNc/zy7ifAs/l
z8a22XI/FT6WpQdfWHE/FR0O5hbaptxPxZ//nNxvNpf7qVhTXnHTy5D7qQg9
pXUjZSr3UyFX0XTboc39VJxw3Xr8B3Xup2L2rX8Lfx3DfRn8mlprH7ym+w8t
GVaMr18/4y+yoQyfWlrUi7vIZh+eXzflysEWMmRYO1ZD1tdI9pYhLqI/csFp
cpQMP2vqFGYeJMtkOL6gxLyxhO93ZHi3ruii+g5yvgyL4yL3+ivJFTJcnLOh
rUxBrpGhMftcfK+Y3CBDW93WIstA8i0Zlp2cNW+9G7lLBp36sK1Xbcn9MiTG
mLbqmJIFcgi/G+sSY8jHL8fL316kH9Pm45fDZZ5d73u+PzOTw9Mk0Mpn6B0d
vxwDLpI1Vb1kbzmm1L4OGLhHjpLjyOzhN47NZJkcHvJRhsUNZOWHnmZd7rPj
5Hw5LDakVdvvJ1fIsfDVfklhEblGjlni62ufbiE3yPFlraLPIZN8S44Rw8zN
36WQu+QwPTTzt4Eocr8cg1cSvVf6kQUK7NpiaH/IiaylgO+D/BY1a7KhAtqP
c8NiTchmCoxR7e/8ZTofvwILdW4az9Dk41fgjwn5g8pRfPwKbN4uXNo9QPe7
MgUWKMaWOT0mKxX47ptkr8Nt5HwF+tvb5drXyRUK7J/k3LG2jlyjwKG1Bxd0
/UhuUEAtorPdteqt/X8AfccpMA==
      "]]}, 
    {RGBColor[0, 1, 0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3k4lHsfxock7b2HFlpsnZSQE5Ukc5OiMJZsg5jBWAczUzppcRTRIkd7
UplKWqikzqlOqglRqbRKi5qKVNYWkTe873v1+/7x+sf1uW63z9zXPM9vntEP
ifcUqXI4HBMVDud/v3/+tHM5//+Dt3vlFjN4Rld/ogY48W7bf1y+d+Unj8Bb
3mb58c1c1tOCuMH16dGjXozH4O+O+eLisaGMx2HrN8dl2YI4xnro4d55tsV4
OWMDbBqpduitPInxRBhP1VldGJTKeBLsF63r+srfxHgyLCuM7TNOZzE2Rkbk
7n0WN3YwNsEqe/VJGzZlMzaDQcKNF/sG5zI2h9ztdHNN0SHGv2FM3TvJB498
xtMxQX9P+YWEE4wt0JvhU5k05TRjS7yY1M/abG4x4xl4ubXD8rn1X4xnIjJW
t233jguMZ2H1kOMWze4ljK1w5iDvw6A5Csaz0XaBW/Y1tZSxNfrrP0+q0bjO
eA72cm4PH3SzkrENxMErp0dW3mI8F/5L/5Xt2f8uY1us0hQdu3rtHmMuNLK8
KgYcfMAYsGgc+H2e/NFPTgYyJzcMeXOlhuV2WKEnaOr+dy3L7eCoWj1zvs9z
lttj9CjfBr3bdSy3hyTvvuSxqZLl82A3uF+J99rXLJ+H7Xt01nu8esNyByxb
fqtVtqCe5Q5ILa1Nc/mrgeXz4VL1vjPAuJHl83Fls8aHoXnvWb4AqdabL97U
+8jyBTDWOS5vO9DEckdkVvT5N4xrYbkjakUT0rSzW1nuhD+rdGs4A9l1n+yE
fT2/bRpRRvfBQqz73rJl4MpPLF8IrQztrbamn1m+CHENoicjXjBOXoQajVm6
reu/sNwZvJCEUnfjryx3xjmTfuuv3WDMcUHUpUvHHwo6WO4CE4O8hcafGXNc
Md843TNh9TeWu2Kca65E1seYw4PGANcLLSs7Wc7DMO1aq6utjDluMD1p+UuV
fxfL3WD14EWfylXGHHdo1KbUCMd+/8lwx87E7V7t8YyT3aHcUfnucgljhTvs
i8a/rVfpZn0P7DEdb7yZyxgeCE3Sffw8gXGyB6b166826AhjhQdw0u6w+x3q
e0LSIPzY2kp9T0QtyTo7ZdC/Wd8Tzqlmzs66jBWeqMwbcyTXjDFnMVpFX6b9
bsUYi+GS8Jj361zqL8bSW+Z1vTbUXwxJo3GmL/09xwuNrw++TZlGfS/YtZYY
PDOgvheGDvjn/clfqO8FsVF+olsfvX5vyIJNvEd8oNfvDQPlQHfbe7TfG7Pc
NasM/qL93nhvVKirvof6Pji1YcJN00Tq+6DLNUfrmR/1fTCoY9Rqx1nU98G6
/R59J7Wo74u1oxd32X+i988Xv3I6p8+4Q++fL3j1y4POHKP3zxeTuWeHv05h
zPHD3fnRwxqDqO+Hv43Uf9TPpr4fXjbHaHVpUd8P87ZNbZ7dTtcPH7PyNR4p
qhiDD07wDb78KF1vfDwRWFVuSGGs4ANOstBzwdT3x6TYU3tcbKjvj6z09odx
2tT3h/aTBQXTOtn1rPCH0HmXdc5jur4D8HtBWuA/5xgjADyH7qKsHXQ/BIBf
+HiGXgL1A2DUMLY3wof6gThx+fXHcCvqB+JwmepnnbHUD0Qudzt/bS+73xSB
eHZF8+muN3T/LYGdvqbQu5IxliCP+1j3UiHdr0ugbtH+oXQb9ZeAlyFSRCRS
PwjRJVfn5guoHwQb/o3Zq5yoH4RXCd9GKs2pH4SZo7/GPdCmfjA8e+438fpR
PxgFG22uu7fQeRKMQP32Q4+eMFYEw1Z9xprHpXS+CCAszm10O8VYTwCHrEmF
2MsYAqQg5/ihNMYCAW4a5cmXLqX/L0D5gXSjM3R+yQV4U9E3ypdHPgH+RIw4
xIaxUoC7X2avrzYmvxAFLsnaOdrkF6KwsSmzTIP8QgzLV1Nz6GLnpUCIVPtp
Qp33dJ4KsV8zf5RDLWO5EMvPdTZepvNVIcS4hycfpV1krBQi+IBTdc4JOn9D
UOJQkNGdw1gvBBN7FhrmbmGMEDi1qb9M/4P8IdhRNrKhWEr+EMx0r+OPDyN/
CJaXjd5W4UP+EJTH6lcVLCR/CHY9Kmm9ZUP+UFjVi5IMzckfCg9lhHaxIflD
UVsxo3HZaPKH4vbymjniweQPxSC7V6o7+9jnjTwU5vEq05q/MFaEQqPs4gvp
e8bKUBxtloUa1tHnUxhqxy7X77nPWC8MmTXPDDiVjBGGdU9UuWYljAVhWJO4
aWjKGcbJYbjg2OvyI5/8YXhT7nExex/5w5Byx3hYwDbyh2FR8fGVNhvIL0L9
Sr213CTyi5DoYccNXUZ+EYyu8Pl50eQXgTfA0E9VSH4RHrzr+b7al/wi9N4u
dtbkkV+Ekp22BWUO5Bdhgqb4xpY55A9HUc6yNMl08odDeD9oQswU8ofjbt32
20l65A9HiatsyLHR5A+HXqdjU+Mw8odjhIptk406+cNhLhxTfKSHPR8ow5Gq
ITmo30HPDxG4t7e1paiZsV4EPvvb7nKvZ4wIZB0THVCh5wtBBI62C3OvP6Tn
jQiUqEk3761iLI/A4agjZ9aUMVZEIMO1pS7+EvkjUPkwc5HkLPkjwf8+vXdN
AfkjYdX2SC/nMPkj0T1haf/rOeSPxIhtBind28kfiRR1+35zM8gfCYG/8uKW
VPJHwuTUyoSPq8kfifGmATL3BPJHoevT40WlseSPwoPzCbq24eSPwqPVJnal
QeSPQrLukKMevuSPwokkU52PbuSPQunKkhObncgfhZcj/N9Z2ZE/Cu0Rs3e2
zCZ/NAIN61yPTSd/NG7v6t8tnkr+aCQeLpFZTyR/NILXmh8YMp780fApS5/b
MJL80UCzeeL1YeSPRsKfmUUnB5A/Gn6G481yOOSPgeoo76zM7+z5Ui8GeaW6
Zzd+ZowY9Fhwezc1MRbEQDC4PHtrPT2PxmD8mrWL99cxlsegN/B46ekaxooY
eN1v/6OimrEyBi12XVPe3GDMEWPH+eazqqXkF4MzcTR38iXyi3HlfZrc4xz5
xRhwaqhp0knyi2FZPeyX0/nkF0PNW/17fS75xXh3Zsjf47PJL8aWea8XBmwj
fyyaxH6FOZvJH4tbRSvuv0wlfywuVFs7GyWRPxZJXrvqpL+TPxZKu6KQqxLy
x+JtMP/h8GjyxyKRVz0oPJT8sag+V2J+NZD8cfj0rCpMx4f8cXA4cd51hRv5
4yDbfS3lmRP545Cn2KLFtSd/HKTRVkOPzCF/HJYZFi0bOoP8cXAxO+aVaEb+
OHANIz6/MyJ/PPJEOd2++uSPR8fUNbitQ/54FO8w2eqgRf54vCo/s+nyUPLH
I+Z+1vpZA8gfjzD9pXfOcsgfDwfHibkW3ez7jDIeia+/zjv3hb7fSGBjp7Zk
ZgvjERLkf3Ea/M87xnoSWB4ZooSSsbkE55P26FY9ZQwJksu/PfF5yNhdgreW
/MNvbzMWSCDMvae5tIKxRILo2Ycr+yno+5YE77dpmuy8yDhLAuP0N35TzjKW
SzA5LRuKQsZFEvh77zHzy2eskKDNX9W6PZfxPQkGnh5+fmM27ZXA6+UCx1+3
M26XQPbcvq00g/ZLYbjjRGNIGu2XQrX8x0q1ZNovhX7PRmV+Iu2Xom93vApv
Ke2XYgFfPLZDTPulyFKL/5wTTvul+CpPWeEgoP1S1J6NyWvj034pSmf1xucs
pv3/9V37cNLJlfZL0dF6YWLnAtovhee4kdVHQfulGDL42wl/a9ovxf4EHePh
lrRfCmuPvNxyU9ovxZb0itJVRrRfBi+LO82W+rRfhtzzqnbtOrRfhoD2y5ML
tGi/DGluOs2iYbRfBuHAnA59Ddovg16mjo1ShfbLYD/niopdZxvbL8O9r02D
Kj8yTpbhFs/2uOdLxlky7My3e6C8z1gug+cDFcRcZ1wkA++Hz9POC4wVMjzt
+piRXtjG/Q8wj/l4
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     LineBox[CompressedData["
1:eJxVl3lUzH0bh6eEypaQqBR6E7JrkaWPaBfVlLRPTU17zUyWUIwW6SkiiTyW
tCB6yJKSbUryZF9CIkslWxslLej1Ht/7j3f+6Vzd5/pdv885ndOZ8T7hDn6y
HA5HT4bD+d/PP582E87/f5DY6DVKGmfIfi+P0wfUT6/castYCZGO/5xz3erG
eCT61wcsy6/3Y6yKddpuD3Lawxmr465ZmuW3wWsZa2EGP7oz3Daa8QQkr6xQ
/tESw1gbj7Ryjht3JjDWQf+vwVJx1XbGuvjPhCeiam4q4ymoqex1uWKZzlgP
mcmPxtbU7Gc8Hbt//eraPzST8Uxk3quqeDE8m/Es/HDwCdgac5TxbNSerbfm
hpxgPAfXHPoFKb84xXgucriLzXKbzzDWx9qkD+8Ur5xnbIC/Td7nTaorYmyI
hnNjvTbyLzE2woGSIx5Ci2uM5+G1zd49E2+VMjbG+MleEmXdcsbzYT9TJdlC
WsF4AYpW35i9ak8l44WwlET3+OTdYbwIRSVOMxb+us/YBPlNckb5tx4yBp5V
S+2qix7/YQmw20F2a13FE3ZfDP6E/e6F35+x+2IYSDM7v1jVsLspTDXVj/+8
/JLdTVEV2q76asVrdl+CM3fud2Vx3rL7EnRMl9v91L+O3ZciTb1y3OGX9ey+
FJFqckafPd6xuxmSbL+PjfvUyO5mWDpqo2TMlg/sbo7h3U2Fxlqf2N0cqXt2
DhJUfGZ3C+wqUclUFDezuwU26awfEj++ld0t8c9uC2laIPu7l1hCQSlPJc/0
C7tbYe30m1E6al/Z3Qry9ev8F3xlzLHG3NKEjVo329ndGpNmNo5Ryuhgdxuc
XTjfyNH/G7vb4PZFF5+FszrZfRkulK2P0OtkLFkG48Mh61IKv7O7LcoWmQ5q
COtid1uMOKahc3F8N7svh3HxxAP5dxlLlkO/3rYvWNzD7itQpFf8rnBYL7uv
gMax/q2uuYw5dtjZINU3nPPjD8MOBbUlzgYXGUvsEKavmOxg+PMPS+2glNNx
J/0fxhx7NLaVpqqo/2K+PVpOqOz+EsNYYo+CKHl3bh1jqT3Uyj+dDzPuY74D
Li9eY7k5iTEc8HL4YpPKJ4wlDhhj0THx1mAO/vgO4HVaJe6dypjDRVvb1Yy1
FozBxbWo5JRUHmMJFyl2dT4q68jnoi/gQte0JPIdwZt98NiAg+Q74ppVUuid
fPId4SN8vSmvhHxHTH8RMaiygnwnyN/O03d8SL4T6q4Y7hPVkO8Endh3jhZ1
5DvBpiy4vfsD+SuxSkGZc7KF/JVIHbXx1fp28lfC/EN7YOx38lfisFrv4Poe
8p1Rf23ihoKf5DvjY6/GMlmODPOdsW/xmohmGcZSZxhe5ajG9mPMWYXHzWV1
j+UYYxV4C80ntPQnfxVKL91f8GoA+auQI2vWfGog+S7YDFFKoDz5LpimqFb1
mljiguEndkXMUiDfBa2zU2+vJua4QubfDxkXieGK7Ix31xUVyXdF+vNpu8OI
pa6oEFUf+UjMcUNZtdmt6EHku0GSsURHbzD5bohMrvHoIJa6YfSSBu2nQ8h3
x7cezycPhpLvjqz20Tvqh5Hvjh6+n+mQ4eS7ozLjU7yNMvkeqF0zZcWhEeR7
4JFgcl2/UeR7YOyevtMbVMj3gKjXQkVWlXxPCO9EZmWMId8Tq849UzVRI98T
43SbYr+qk+8JY0Hh6nPjyPeC4O4lqUSLfC/0NMTIuE4g3wsJY0+3LdQm3wth
C0w09XTI5yFE3chYW5exFg8D5FyatafQ83gwPZvLm67HmMdDrbVNNqbT83lI
KCp67jqTcSYP9+w1SqJmU4+HCwry2blzGb/hgXe3Su2JAfW9IW2UxgyaR31v
2Nzo2GIxn/reCN1WODlxIfW9MW+ggsUDE+p7w9rCxFLdlPre0OEbFocupb43
VOUuK5WbU98bajff62haUd8H51ukndE21PfBgn9LUt/YUt8HM1w7vpnbUd8H
S7fH7SxwoL4Plt13+6DhRH0fPOE9CN/hTH0fiK+/+iDjSn0fqB2zfhnpTn0+
EqsN3b56Up8Pg6c/5oR5U58P7ZaZ5s186vORdnLMxTAB9flQ8V1V8CWA+nxU
TeDXrg2mPh/2Nr+Sf4ZSnw/93qOJcULq+0I4Y+rnwRHU98Ux5SN6+9ZQ3xfJ
11rztSOp7wtXP7/HZzZQ3xeqN5J+mURT3xf56p8T72+mvi8MK64O9oqhvi+6
shyLW+Oo74dF1oYpWxKo74fSpDLnEX9R3w+TxgkW5SZT3w/d9qkJhinU98OF
S181bu2ivh8qyj+kuqdR3w9Z2R5jWtOp74e4YWejt2RQXwCzey/PjjhAfQFi
pC05Rw9RX4CctNomoyPUF2CnfZ/z7WzqC1AeN3qtx1HqC5DmHdvQcpz6Aqz/
u3Xf5pPUF6BO80TzsFPU94fq9R35hwqo748hMS3b9c5R3x+axdWpJYXU94dk
Wdl3i2Lq+6Oq1z/3cQn1/XFL9+0MzyvU94f1vOLA99eo748D0WLF8DLqB+B9
ZKtVZzn1A3C8dNuQqJvUD4DR1iVtfZXUD0Dr9Rs3Y+5QPwB3U63s+9+nfgBW
R7ge3/qQ+gH4dOnKwf5V1A9AVz/5XbFPqR+IC8/mSfuqqR+IuLOPo9a/oH4g
Dowat+JrLfUDkflkqVXgG+oH4p5dbMqrOuoHYmpEwxruO+oHwvQZT7XiPfUD
MSXl41v9T9QPQrRDW3lOE/WDoP8z1U65lfpB6Cloz4v6Qv0gTFr3taihnfpB
kHrNVLfppH4QOnJHjS3oon4Q5A6f2KTcS/0gWDWeyBX/pH4wejYMjnnYR/1g
XPvRLJguK8v6wTjnUPtrmxxjXjDi46csfjuAsSQYkXu3/zBUYJwZjEZRo2by
IMbSYJwR2si+GsL4TTAsOItOTlNizAnBNPW9hhuVGWuFIKa7Y1LFSOqH4ER5
o8HQ0dQPgWJRVS93DPVDYBg/9dFeNeqH4MbMrtJqDeqHgPv90PXRWtQPAd97
Ryt3AvVDoekub7ldm/qhMHjoJH9Dh/qhsNRQKunWpX4otjTf+3fqVOqHorGg
ychtGvVDsfMWX5A4g/qhqHuoolg4i/qhGLHxcGntHOqHgas243U/A+qH4YXW
Bh1dI+qHYU5OR7GVMfXDEPXt0ZSABdQPQ59GSHfsIuqHYad+YO5BUD8Mw+pn
B543pX4YLnueGlq5lPrhyLv7KuGFOfXD4Zk8Z16TJfXD4XRUcX+3NfXDka3w
9HE/W+qHQ6EnYcugFdQPh9/b/HnD7akfjpse3tdHcKkfjo4zA4NGOFFfiKxb
102UnBkrCeH/tKdP0YXeR4jm5WX3+7kxnimEyibxg253ej8hrm4c+aTJk7Gd
EMPGtaXX8uh9hdh+7EzkbR/GQiF+tvcZXfCl9xfi2z2/u4cEjHcKEfVu39z4
ANojxKlLZ08GBDEuEMLlgqTSMoT2CSEcn62rE8b4gRBKJoajZIS0V4j2+Jdp
z0WM24S//9+HlJ+OoP0iWBpfcIxdQ/tFaLvk08RdR/tFeH8z2n7ietovQuG2
8/zWDbRfhJF2N/oXR9F+0e/vq4mjN22i/SIoaiwaZCqh/b+f9/xnj2wM7Rdh
Rk2NWWks7RehcVr546h42i9Cvb3iaIME2i/CwIh7w5u30X4RjAYf33rkL9ov
gty5+ZO5ybRfBA/5398HdtB+ETyNZ405nUL7xTCOSM9y2UX7xUiPjynl7Kb9
Yizf92N3ThrtFyO0LOmSWTrtF8O55sHxhr20X4xMTZslWzJovxgV+z/Wq/1N
+8Xw5b5IPX+A9ouxMdw51/oQ7Rfj6HzTwpeHab8Y7fb/GRpyhPaLITP7TWNX
Fu0XIyL8fGZsjiz+C3aJLh8=
      "]]}, 
    {RGBColor[0, 0, 1], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
     Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjGkfxyfKsTcbStnYnJLEFptDS31VUltpSuc0pplqZqqZZoZCNg0t
HYjkEOs0IqUNKVpnI9Y6JofahEwH5NSGFHJ49732/s11vfNP16fvfJ/P/Kbn
vu+nEYIE/+geHA7HVo/D+d/Pf1/tzpz/f6HsyN1Uq2JH9vs+mLQvSTI7l8v4
G3zyddiWXcxjPBh1xu32XdPFjM2QuymnQ2+zgrEFtphMCBRaLWFsCesHmTVp
71IZj4SL3ISXtPEXxqOhlSU6nH2XydgK9nsDg5OG5TC2hlvvjklLzm9kbIMM
wYSkgvd5jG2hOqDxfVKzg/FEcCbG/J03ZQ9jO+RsetK+T7KPsT0SuYvyPg8o
YjwJVbcMr9U7lDCejI+/t746vbCU8Q94uMD1/HOzcsYO4F7Knu1kXMF4Chof
/LXLT3iC8VTIep1/ct3kDONpmJrWabgzT8N4OiYNC73YVV/J2BHaPncHGIf8
wfhHyByd3hQaX2Y8A3ettRme/a4xngmezHnUF9cqxk7olZN52FlbzdgZcQPj
l2ZrbjMG+hwevMP3wt1/WQX4294PLW6tZfks7Fo/7I9ou3ssn4WO97OMP227
z3IXOEc2pB4Y3cByF4gqez7aI9Ky3BXxx8NyR19vZLkrtM8beV+cmlnuhgr9
xBjrcy0sd8OQos6tC72esHw2+t7WzM1qesry2Tg6vnft55XPWO6OYhNXpdP4
Fyx3R3s/yeOSey9ZPgdnzbW2O9a2sXwO3O63nbEaQfe5B/5MOnA15RNjlQeG
ejfIE/96zXJPiI29+tscecNyT5hfGHGiMuMty3/COaezfFlEB8t/wprkhCnR
E9+x3AvbhtQ9evmRscoLTau0hfMqO1nujW2dDq4f07pY7g279a87fJ3fs9wH
ZQfyB9W8ZazyQeLio/UWez6wfC70E0cKr7p/ZPlcXOjyytjQwpjjCwPD1pnT
krtZ7osZ83lb83p/YjkXLZ2HnDatZQwuQrK2G43q+5m9n4uYgEs9PVIYa7gQ
jDm/1+wZY44fGiQpmWXeX1jfDznTd11zLmKs8gPfdO+azm7GGj8cv9J2apDH
V9b3R7Fs66iHaxnDH+ru2k71VcYqf6zYNdCy7p/k374/9OrNl9ubM+bMw4pV
lx9kTWSMedg3bcSRQbMYq+bBsC7t3Ecu9edB/Ko6I4FH/QDMHJremi+hfgBK
PPVfXVBSPwA+cY/ivy6lfgByZdtnpqVSPxCqpYZnktOoH4gp3dtDjFZTPxAv
wie9jU6nfiDufGe+vZCYE4Rt5yw4nfR+BMHI5a1CsYr6QTiUlrh0Kl1fE4Q4
xxaLKBX1g2HRssxjQAr1gxH3yaDOlz6vKhhGeoufOSZSPxidzwoXNcqpH4K8
SwqTgHjqh0DaltWsFlE/BHdn/fn+joD6IfiDW1LRFUH9UOxX1n9rEkr9UNyS
77bpnEf9ULgvnD7u3Fzqh2Jy3xuVGZ7UDwPHmLtf6Eb9MBRaxdaHOVM/DM6f
332/yJH6Ycg/M6S83IH64bjZa8OSofbUD0ePlv0vimypHw6uzcrPEdbUD0fw
jQG100ZTfz5GRwUETrOk/nw0tXbahVtQfz7K30Xoqc2oPx+X/3r6qKcJ9SPw
6EHLkdXG1I/Ag6kdUisj6kcgpbDGs7Ef9SOQWy9ZX9Gb+jzM2bfuTIE+9XkI
MzzoWaJHfR7ex5dv2vSZrQcND3tnSdK/dNH6WYCE57cubnxD62cBErtex857
RetnASpDZ292bKX+AoQd3ODn0Ux9PgZG2T1d1sDYko+j8o65t+/R9fhIdip9
6VXDmM/HpnFjH7ZW0/X5GJ6eNLzwOmM1Hxt9PPVWXyYfH/0CGvr/cpGxlo8i
4YTRag35IzFxjpvZ/dPkj8TMLour9ifIH4n99hFh+46RPxK8qoNzJpWRPxI7
mu9MqT9E/khkzJgcvPM38kciLM80IrmI/JGQugXclheQX4Ckbd7+y/PJL0Be
ZfPn/N3kF8CaKzrRsIP8Ahxv6LS2+5X8Atw41iTdmkd+AZqV/W1MN5NfgGmL
q08V5ZJfgIFBDu5+OeQXwrMmI+s/68gvxIrz1b0eriG/ELcdDhSczyS/EBe3
GAefSCe/EJt9jYwrV5FfiJmOQREP08gvRI+j1ll9V5JfiO6OlD9dVeSPQgtv
5oZ1y8kfhYqA+bavfiZ/FJLG+pWFLyN/FCwufz1at5T8UVjTI/1r1BLyR8El
z9BbbzH5o+D+IcujOJH8//jKH+8TLCJ/NCKfaufYLCR/NJRtez2/KMgfDWuZ
k8EjOfmjUZvuZXAjgfzR6LRP1LssI380psgeP6mSkj8aW3tJzZriyR+NrDEj
++kRc2LQ8dI3a3wc+WNgarxypzCW/DHQjxrbViAhfwy27Oe6dYjJH4NxHNNV
PsTqGDgddj9dKiJ/DKqWlV8YRqyNQZhbSsjmGPKLcDDpmXowsaUIg0/ZztgZ
TX4R4l9X8OyJ+SKkjR9kdTOK/CIIfp6st4hYLQInoM/MEcQaEc6tNeXXCskv
grS/y7FcYo4Yi82T34UQW4pRrJ+VbEUMMXjl3dyPAvKLMXyQUVAtsUqME6df
Dz9NrBYjycAh9QCxRozgoPSy7cRaMVr3ttzbTMyRwAUXLLcQW0owXdDz1a/E
kKDzuvvxQp1fgl2HK9xO6vwS2DhU1d7W+SUY3DRB2KHzS7DcbcKiobr5Jcj0
P1nmqps/FhcKH6xfpJs/Fh1fbz39TTd/LDZZ3ZM8JubHoi382vhRuu8/FmZf
ynNidN9/LFynF5iX6r7/WPCd89o/EWtj0WQQ3+hDf09OHHg1Ob0LiC3j8LK3
zSkO3Q+Igyrs+jg+MT8OtgkmDheIVXG4lOFTNJ7uL3UcBmcv7d6iu//iMPSj
ts2A7k9tHLamq1YtIebEo8Woz5s2Yst4nP7NW09M9zvicXdIvmGz7v6PR1WJ
tSiS1ocqHjvzeTebidXxiJJmfxDRetLEIyBtsWk7sTYetUvxdalu/UlRpykr
M6D1ainFun7pnZuJIcWMtNLgsbS++VL8MHbolZPEKiliPhd5cGk/UEtxPSS0
6TmxRoqVxzdmptP+of2Ha0YFjqH9hSODzV3Zp4vEljIMd7hpL1aSX4bq8NJG
Q9qf+DJ84PUaUEaskiH3u2U1IbSfqWUIClnl04P2O40Mv+7s2l2i2/9kuHRn
T25oEvkTUHnuYXsf2i8tE6A8WJJ9ihgJOHFTdEdK+ys/AUF2ojGWuv03ActX
VTbdIVYn4E6gRUBWMvkTYF33YSto/9YmoFfisfldxBw5mp/maQ7Rfv+NHMWv
tkeLU+jzyFGVcjlzNJ0PdnK8F6//tpEYcox8Enx4ZypjrhzVfgVPw+l84cvh
qRF5D13BWC6Hvv5blzpilRwmu759n0fnU44cUv2QgFA6v9RynDUSZA79hXGp
HD+evLW3nlgjB8c022A7nX/VcqzzKuDOX03zyrHscPOK4XRetstRecDseiMx
R4HaM8PjCjJofgVWfvg+S0znraUCL5wP2H2fRfMrcP/eLGEHMRRok/d78jud
11wFcg/Xn1pG/8/wFag+cvI+sml+BfrcuDrGgM57lQI/PxDJrxDnKOD1fEly
9nqaX4Hv3lrDn54XShXgePpUDNlA8yswcrfM5SFxtQJlKV4T8nXPGwoc7X49
UbSR5ldg70+2O2w30fxKzHLx3vCG+Bsldi02j6yg5xdLJVLNLYKXbKH5lRj5
d0vLdHregRJVVke+dhNzlSiZujni7FaaX4niVNdTK7bR/EpYPW03c9c9Pykx
0bBU23c7za/E5YDMhivEaiUarE3NM+n5q1SJg7P763vspPmVKJuzTd5711fn
/wL/P9jm
      "]]}, 
    {GrayLevel[0], PointSize[
      NCache[
       Rational[1, 180], 0.005555555555555556]], Thickness[Large], 
     LineBox[CompressedData["
1:eJxVWHd8jWcUvkbVKqlqjVKXGjFae9M8ISEImTJk3eRmrzuUouhVrdiNqprl
2rFjjxq39ihSexTXripib/q9X57zB//4nZz3nPc9z3nO+G7tBEtwUnGDwdCk
mMGg/i/6V+hVcDLsv6a/b/TiH5Bf4uZ4zzt7KJfG4Y59/poUvZeyBzrP7Dtn
2Yo8ypUx0nVwru+GXTuK5Ko4WSa1TuagpZRrIG9vr7ZjvPN53oiXh+4e2NVF
/Nehv2mU6+KL2rUeZYZto1wf97TTK9KOUPbE3r/X/zC04Dj9N8KaL7PnF9t6
knITHO+d4BHRfh3Pf4nCxeoBqyk3Q5ev/jm7/MVunm+Og6F/5C3ok0+5Bcx3
+2lHpvN8S1QrGVbhizUTKLfCx+N7/luy1STKrSnPpdwGo80xf3crIfi0xdGn
IVcXzpT3tEPdqW9zh7/cQrk9Utf+23/9x8t4fwc0cI7Jv3xrPeWO2KBFuzZS
8OqEM4WPekaO2k+5M7zvm/+M6VVA+SvEZO15s+bbeZS9sL7ts52JSwV/YO6p
Vvfa+e4rkh3Ayw7WI6OPnaLem/heot4bocHqRReo74Lc5t9oKXJT3wXNGi35
qMDnGvVd0d3+vOKtjeep7wotmcNWbjhHvQ9yPjl75GmI+PfBql+SNMhuUO8L
jyFtln0Vfod6X4x7nfT0Wnwh9d1Qr9SIKV3H3ae+G6xx7x+pFiT67jil6Nzg
AfXdcWNlvWsjZ/O8wQ86vYaJvR/jeUR9D+L/kPoe+FPRdYXY90TNdik+aRbx
3xMND3ns27LpMfW9EB61esd/s19Q3wslyoytZb77lHp/vFHhzH1OvT9WvIjW
MvaM+t7k2xPqe2P677/mVhwi9n3gF/iqav/TL6nvg946AenPEACFxrlP6c8R
gMZVp5wok/qK+kD4vLhz29X+TZGMQBiPWTQE5Xwg9ma1cmwE/bkCYR878dqD
Wq9pH4Rc57PmN1ZSRhBWKXgP078jCNvnVG96YYEBRfZBaLBz1OLwg29pHwyN
zI83nxP7YGTdfLnk/jGedwRjqhZtm2X05wrG6EfnT4/oL/GFoLXG3u524osQ
VFq47Y8q9RmPIwQdfj70nd8O4uMKQeMnUy9MzhF8Q5GtwvueeoRCsaViObEP
xescdSHPu0JxJaLKxr8MvM/QF93qDSg+ozTjQV/EvOmqISr57Et/zJerLxaV
VRaCXxg0skwoVSj4h0F1i0HlBL8wPPGM/mnnY3l/GHT4Wgh+4ViyoA8+iud5
hLO/Cd/CobKx9KjgFw5//QESf0RRfuqSX4hAYsdLAROmCp8iUE4PkP5cEehy
NPnkzXThXyRa7l6tdVyxj8TEUoWf+AXK/ZF8v8QfiVH9jm+9Wlnqqx82rVID
Ruz74cjSo9oEEr73w/nnw9O3fi33iyz5j0KOgmM340EU8u2pk+4MFfyjiBfr
0RWFOL1AWa+GaCSr8jvF9yCa9Sn8j4bPuEyNkZL/aOjt/UOp7xjyn/EhBvN8
Nzx8fULuj0GFANXR6N8Vw/jFPpb1KO+Pxegf1QHpN7FopieMsisWW86N1Tqg
2Mdh/uebX+U8EvziMC27kjaCqXfE4c7sTk1OzJD743By0K36zUvTn8GE5SvO
xA0M4HmjCWHa9D0TJ3iYMDdFDSSeN5k4P8S/CWo7+GA7ZacJnhXLrV80mO9x
mfDe/J87FOtN2W2CQq9NJ8qGeFycnKNFTNkYD70cr9Af4tHjN0f9naP4HlM8
6134EY9fnpSKm+ZPvTMe0/xVA5R8x7N/kT/ueHQxXS+oc174m4C7Q71ax27h
vDAmQBt+F93l2N+RwPqmP1MC8hTdVkt+RJb7E1BNbxByfwKGKfc9qHcnoK5K
13mJ38z5S39GM5J0B3K/GYOGLGzStQbPm8zQx+9lvt9hhr+2TZmu095pxtV9
07QJIfeb0bXG7Sttqgv+ZhTtdzIfE9G57On51s68z5iIhqpcPYXPiajspTYA
iT8RD7xVA6C9IxGRo9qd2pPFenImct5K/hOxUtHrM4k/kf1B6jcJj1U778b8
GJOgj6PPhX9JWHr/mLbBSf6ToDXHup7Dpb6SuP/wvc4kaMvP/vclHlcSen47
sqn/IsruJPZb6T/J7AeCfzLWlrctHyf8QDL09WAl69OUjCu3pqwpbxP8kxE4
YapWcXyPM/nd+eRKhr7+rBL8kznfpX5TWK/C/5R38UYK9zneZ0phf5D+lML9
UvKfQrylX6RAsaOgDv25U2CwjCi55ye5PxWew8dvzijD9xpTkX7Rpk14ykjF
QjVedgn+qaxv4X/qu/lwpqK/ar9e0q9T8by52rgk/6m4q9LbU+ovDV76giT3
p0Gn+23BPw2zY1WCOI9MadB2+f0Dt8t8ScPIINUhJP9pKPBRjJB5lwa9nYi9
Ow36OvWb3J+O5tMbaR2YemM6+p+upFFc5mk6tOItX7yx4J+OFG36NX7CeBzp
2K19jVy0Sfzp5K/En87+SHt3OtR0za4k+0MG+cf5b8zAiRk3ai7+R+7PgEXR
Yy7PmzLYn2U+ZxTta324LzkzoNg/sy/3A5fmr7HqKPTnzmB/kv0jE+1UOzdJ
/JnQ179qsg9lYqlJbfx8nymT+aK9IxNva79+MsDN9zkzoS2bQ+NbSPyZ2Fml
fsh78+X+TOyoMKvlvHVS/1nQlg9tgyc+xiwc17rv5CWyD2bxe4z2piziJfMn
C4Mj8lof7sj6cWZB/9rbL/nPIn8l/1m4Vrnmgetecn82NiZ8d7bzYLk/m/Ui
+GfDrNQRfI8pG4rt4zdL/WWjkb5gCv+yoZfDeNnXsqGR7d7ivRJ/Nqq7ooze
9yX/Fn6fCv4WBOsDT+K3YIwaR5Mlfgv0daWV5N/C72fqnRZgwaXtFWZJ/Ba0
91VfYHyv24JNn/14O2iT8N+Kh7VUxvkeDyu/Z2hvtLK/k0/NrFDdtGw3wccK
9XXTqQntA63s71KvVujj7jTPW60oP3nJ90E9pH6t0Ibrp7NjKedaodDOa017
pxU6/X0p51vhd3lI5ZXdZb5ZEaDSe5xygdhLvVmhf95H077QCr2cc4T/Np6n
7GFDLz1gyYcNs+apBYv8b2bjvJZ93cZ5Qz4Favb6giP1akPGjG80F5StNu6D
kj8b9HbZmva5NuZD+okNerubw3jybey/Ml9s6Kd9PY19TX8FNmjKfQ07CN9t
+Fr/gYH3F9rg8NsxrGY76g124kfZw46ooh9EGL8dbfQffIhvMztcKt0n2P9h
R8ivtScOkHkYaEewTjCpFzs6Fuv9wwcBxMtqh/45Nky+b+xoNW+dtlFSzrW/
+z3htENtyzUPkL/5dgx0z/pw4Tbhtx3x+g8Sr7z+B0gtFPQ=
      "]]}}, {{}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImageSize->400,
  Method->{
   "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        Identity[
         Part[#, 1]], 
        Identity[
         Part[#, 2]]}& )}},
  PlotRange->{{0, 300}, {-0.5, 4}},
  PlotRangeClipping->True,
  PlotRangePadding->{{0, 0}, {0, 0}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.8103105716226826`*^9, 3.8103109095554285`*^9, 3.810311226412069*^9, {
   3.8103118839144363`*^9, 3.81031189620007*^9}, 3.810312244556265*^9, {
   3.810364715376888*^9, 3.8103647241207805`*^9}, 3.8103685889205956`*^9, 
   3.8103688553384647`*^9, 3.8103689927687387`*^9, 3.8103711888579874`*^9, 
   3.810959852680395*^9},
 CellLabel->
  "Out[942]=",ExpressionUUID->"a72fa9d1-e500-4dc6-8cbe-ff9fa54a62c3"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Fig1summary", "=", 
  RowBox[{"Framed", "[", 
   RowBox[{"Grid", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{",", 
        RowBox[{"Text", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<atmos carbon (Gt C)\>\"", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
           RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", "Bold"}],
           "]"}], "]"}], ",", 
        RowBox[{"Text", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<delta temp (\[Degree]C)\>\"", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
           RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", "Bold"}],
           "]"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Text", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<B1\>\"", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
           RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", "Bold"}],
           "]"}], "]"}], ",", "atmosB1", ",", "tempB1"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Text", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<B3\>\"", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
           RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", "Bold"}],
           "]"}], "]"}], ",", "atmosB3", ",", "tempB3"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Text", "[", 
         RowBox[{"Style", "[", 
          RowBox[{"\"\<B4\>\"", ",", 
           RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
           RowBox[{"FontSize", "\[Rule]", "18"}], ",", "Black", ",", "Bold"}],
           "]"}], "]"}], ",", "atmosB4", ",", "tempB4"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{",", "Ltemp", ","}], "}"}]}], "}"}], "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.810311990491923*^9, 3.810311990971009*^9}, {
  3.8103120491592455`*^9, 3.8103121714088087`*^9}, {3.8103122018800774`*^9, 
  3.8103122551034107`*^9}, {3.8103123379629755`*^9, 3.8103123847078485`*^9}, {
  3.8103127235388193`*^9, 3.810312746444813*^9}, {3.810364805097685*^9, 
  3.8103648372977915`*^9}},
 CellLabel->
  "In[943]:=",ExpressionUUID->"a45f9500-870b-4a89-ae30-3a7ab95b2bbf"],

Cell[BoxData[
 FrameBox[
  TagBox[GridBox[{
     {"", 
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"atmos carbon (Gt C)\"\>",
          StripOnInput->False,
          LineColor->GrayLevel[0],
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          GraphicsColor->GrayLevel[0],
          FontFamily->"Helvetica",
          FontSize->18,
          FontWeight->Bold,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "fc294495-c43d-4175-b85c-7f238f571edc"],
       Text[
        Style[
        "atmos carbon (Gt C)", FontFamily -> "Helvetica", FontSize -> 18, 
         GrayLevel[0], Bold]]], 
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"delta temp (\[Degree]C)\"\>",
          StripOnInput->False,
          LineColor->GrayLevel[0],
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          GraphicsColor->GrayLevel[0],
          FontFamily->"Helvetica",
          FontSize->18,
          FontWeight->Bold,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "8ac788b4-5958-45cd-a62e-91e90ec2c983"],
       Text[
        Style[
        "delta temp (\[Degree]C)", FontFamily -> "Helvetica", FontSize -> 18, 
         GrayLevel[0], Bold]]]},
     {
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"B1\"\>",
          StripOnInput->False,
          LineColor->GrayLevel[0],
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          GraphicsColor->GrayLevel[0],
          FontFamily->"Helvetica",
          FontSize->18,
          FontWeight->Bold,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "35d20b92-974e-4e6d-b7b2-4529a36388d5"],
       Text[
        Style["B1", FontFamily -> "Helvetica", FontSize -> 18, 
         GrayLevel[0], Bold]]], 
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
          1.6], LineBox[CompressedData["
1:eJw913k81Psex/E5iLRJRRKltDhI9haqty277EtiZmxjGGNmLDlaCCWFaFIh
RVqkVFqkdEt70SptKpRzTqXFUlIq7rn3/j7XPx4vX2/P3/fxGB5mWkisZ7gM
i8XS/43F+s/n/310L/nvJ04amC/AxHli+HYu9XBAutOtPJR6LDiRTeuGR1BP
gO4hOYfXkdRqUDu+bo+FgFoDV6rW+euIqLXgoNFu1BhPPR1R9mzp/GTqGThQ
0bI9L5V6Fox+9in9zKTWgUCpIaQkj1oX5k+u5RUVUeujpikpe+YBagNMaNxl
KjxJbYjEEzejKy9TG+Gxk56yejO1MVK6lrp1vqE2wfA5Z7LYg9SmGDB88O3y
xHSmzfClurrDzZTaHKkHW6d4eFPPg3He+vUKSdTzcZ/d9fe5PdQLkPtp4s4z
jdQLoaWYHGLxk9oCATbdDZlGGUxbQsofzHkSTb0IooOygaGHqRdDXPa1gt1N
vQSV05/N6Vm4nmlA4FhYa7aZ6dR/+pRqtvMrOreCpo6e77xFG5hzKwwk508a
2s00yxplufdU8+QzmXNrPGhKaL4XxzTLBitzCjfn/k3nNuiu/aotDd7InNsi
QX7fm53PmU61heHE1rGuQVnMuR0eB8hkW3UwnWqHN++M4xRjNjHnS2El/S7V
H2A6dSnq7PtOj9u0mTm3h9tPJ+hpZDPn9pD7JrPn+TGmWQ7QXWibvMo2hzl3
wBKzjoTQZ0yzHNFV98GiKyaXOXdEWtbcAf5vW5hzJ5Q822KvI2U61QkNG65b
2ijnMefOaI31fBLtx3SqM7jXcvbfKKZzF6wqb28a3krnLnh+5/SsTs185twV
2zytRpkGMp3qikPpt+5XFdC5G0aq6bno3KFzN4i+m3Ul/raVOV+GLxOjStOM
mU5dhibhDENzDp27QzvpvShlE9NwR87IwrH+1fT97tiY86defTPT9e7oXRZg
c/kL7T2woX+Jj0BZyuw9sDYlY9YjXaZTPWD/4NDKiVZM13vAv2DLX57eTLM8
MSJCr7YyjPaeaGTPKHeV0N4Tub7SdaFraO8JRx+W7oQNtPfCY3bnxZxs2nvB
OO6E2bB82nuh0svf5aiU9l6YUauedngb7b3BX/REew41vJFh1JIUtpX23uiu
6s5es4X23rAZeVa4czPtffApMnzZC3oe+OC9V+J40Tra+6CVaygfv4r2Pghb
lO6skEB7X9zYPv+lrZD2viisv3bSgUd7X+Qp7L86hUN7Xxg33jF45k97Pxgk
JPC3etDeD//KXf3Q04n2flDvHbd+lg3t/SCv8NlAzZL2/ghu7lcxMaO9P6py
gu+kGtD+n/66ZfDXbNr745jBZLmj02gfgHHXN5/fMZn2ARB8ybl+QYX2AdjX
Y74+Ron2AShol4auUqT9cjS523W9lqX9ciy3X1lfNkivv+UoLPVrP/ydXn/L
8aDaUHfg/6+/QLyukmRkddPrNxBskznNPh9oHwh/z742/7e0D8S8JBXN/D9p
vwJv6/hjBttpvwLJWoOc/Je0X4GnB43s3FtovwIBaawi8ye0D8KrJl6VDf1+
IAi+l3vOxzygfRByuxLfn7xL+yCsPldTonqb9sHYK6Oxe/st2gfDvK8wTP8G
7YNxt+B61LOrtA+GfsfoqOLLtGfDzdq3X1RPezYyOxaO8r9AezZcNxmluJ+n
PRud5UY3/c/RnoMDbxfZxtYyrcXB1b2vq/Nr6OdxsKVmGOtfp5jmcPCqoOdM
3wn6+Ry4mAqtFtLfi1IOvmS+MVt/jDwOTL1nH2+pYrqdg0fl5TMtj5DPhWf7
Hfm9leRzkfFjbMfYQ+Rz0dD6XHbDQfK5SHPU+Mw6QD4XljH3xKn7yOdCyVnz
qVw5+Vwotif8yC8jn4sj1zobp5eSH4Ii2wsFNbvJD8G8jHpD1xLyQ5DbljSm
s5j8EOxS78/MLCI/BMd2N3XrFJIfgsnJvEtNO8gPgXRhcc2q7eSHwPDDG5nZ
BeSHoqm0/OpDKfmhULtXV52+lfxQ9Ne+cjDLJz8UFs95H99uIT8U3UVK1mW5
5IfibIZrnV8O+aHYGnRiaFw2+aE4HB8Qeo/+3rPCcJPb+nFjFvlhaDsStdZu
I/lhsHI11hmWSX4YpkquNF1dT34YVAcfqm3IID8Mlj3c2c7p5Idh9w1j09Fp
5IdhWbuMyf1U8sOR1iv7YmsK+eH46KNU57eW/HCYJ397q7mG/HBU9tme6lhF
fjhmZMwxrUomPxybR9SVrvyD/HCc5M2osUoiPxyfim2ujFxJfgQaHS7ub04g
PwKrFeye7I0nPwJLdq94HBtHfgRCRls5WErIj8DelODqUWLyIxC2oMzzeSz5
EahRLsmsEJIfgZE3eBGJMeTzoJ7osnipgHwe7DTazk6IJp+HWi25iNd88nmY
l28kdzqSfB7WWGzzSueRz8NjL4Mu9wjyech2elytHU4+D+MTZX70h5IfCSdx
pV1DCPmRmNbwx89dXPIjof/tkZ+Y/l/gRGIomT9uKZv8SExStA5QDyY/EkUV
/LgPK8iPhNHh+/yLgeRHIiOief+25eTzsepIZg8/gHw+zrT84i72J5+PZl2l
3Al+5PNxg81RfOdDPh+bLyZYXvAmnw+2nKPCTi/y+ZC3fNkp9CSfjygt/wA7
D/KjMM1vYI2mO/lRWCC9tabXjfwoND7iy990JT8KdbXrnpa6kB+Fc2NWD/3h
TH4U7k0t7vFwIj8KLtXcw7qO5EdhzIEWLQUH8qNRKt3+rG0p+dGILGo/es6O
/GhcWrJHWWpLfjTEIz5dFdiQHw2e959ie2vyoyH8qnd7qhX50QiYpCo7tIT8
aIQPdEx6uph8AVzOVuw+sYh8AZ5eCTTJsSRfgE+OBlcEFuQLENYwkO+wkHwB
mkT4OnMB+QJ4bA4eIzuffAG6yoqyWs3JF8By08MrtWbkx8DbtnhFgSn5MdDq
9lubYEJ+DLKydC540f+vnBgoOvQqmhiRH4PkuUcqxxuSH4OZ3vEbeg3Ij4Hm
mx0pt+eQH4NvcxNwWJ98IdjBXhuz9MgXwotXHR+tS74Q16da3XX+nXwhpsi0
ntfVIV+IU3KymYqzyRcib+BNVudM8oWYH2rsfXcG+UKUPTvoX61Nfixuq5ur
bp1OfiyUbd86xE0jPxZjbkbO89YiPxba15K2m04lPxbdvR+mq0whPxbc61D8
rkF+LForlOVfTiY/Fi9eyttcVCdfBJFfi1/ZJKbHitAvfKqfrkbPI4JV+bQz
EROZNhRhb0V2oqMqPZ8IbPW4hwYqTLuL4GxQeF9lAj2vCKzSBcnfxzEtEiFd
QaLdpkzPL8Ku2bcyro1lOk+Ev3l6fx1UovuI4CLda5c7hunjIsiqymTHj6b7
iVBr/kIlaBTT90X43OLiaj2S7ivC3JKpLbojmO4WoW3mx+fjFOn+YhiJ93D6
Fej+Yjwo6H3ZIk/3FyOof6Di0jC6vxh9ZlW7quTo/mI0qPia75Cl+4tRbD2s
do0M3V+MCYu/JPHo/ZhIjEIbpYNuLLq/GKMu/dVmOsS8f8sTY1vtxZ1TB5ku
FWOnQeT10b+YPi6GWlXDwJcfTNeLEbhj0PjlANP3xRj4Pe/Jje9Mt4sREf36
WvU3prvFmDnNU6+kn94/SjBwa7nJpq9Mj5Vg7nn2lPg+prUkeP3eXJb9hWlD
CfYppUS7fmYaEmwZOLLfvJdpdwnCh2bGafcwzZHg9Nv3muO7mRZJoFNRLBz6
RO9XJfh1NHxR50e6vwT7BwKGHn6g+0sg0Eh7d/E93V+Cm10nLI520v0lyC05
8KboXT7+DSlOj8Q=
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw1l3lcjGsfxkeFsku21GlOyZK9SCW5SFKOtmnfzEzrTE2zJI5yklOWCGUp
FLJUEsqSSGkkQnklJDmOoojwVkiL5T3v+96//pnPd35dz/e+PvPMfT/zq1Dq
EqTC4XCm9+Nw/vv6/7/2Rf974f8J9gaSpsuvpwqI1ZHOm3MwJ4B4BAyfbX2l
FUysBX7U21F9ocTj0BSisSUonFgH76N2ikJlxFzoTXvVOimKWB85KouGXIom
noj81PjdphuJJ+HjK+XI2q3EU/DknPqzvBRiIxy4Mv7ju3Ti6XBoOORQnkM8
EwWXC0YFFBLPRvBiP6naTeI5OLiuOu9NHbExHnckbVrQRmwC2/BlzTYq8Yzn
4nZXT4azDvE8xCsLLhw0JzZFhYXDcZk38XyYWVZ819xAbAbt7R6G1TnE5oh7
vqT97SNiC3DDXu3NG5DAeAFsq2+V8xYSW8LR3Fj/l3XEC5H5rbHbupjYCoU+
bl09nE2MF2Fi6J3DgSuJgSUFb39kHmEcB8wcNaWv6ivNF6NgXq5Dq9tmNl+M
mweeW/VcYcxZAusQ89RWgy1svgSLt/6yIW0PY441BAPbO2vUt7K5NW6c7zzg
Fs+YsxQr7b8kPFVJZPOlcNnxs6TfFsYcG4z/LFX1GL6NzW2w1FxzljCdMWcZ
FiRcfH7EaDubL8OUxF9vhZUw5tii/Lmq+RSnJDa3RaVWQ+X0Fsac5VBb4r6z
PHoHmy9HyPwjfcYjdrK5HXSarQffPcE4zg75w890ls/fxeb2WF9tpSa8zTjO
HlYNG472GCWz+QocOXCg5i8p47gVuBU8aEnSeZr/hokucsn5Tpr/Bo3Q0ydV
Zqew+UrciJrnYCVmHLcSwzgW+pOO0twBDt6VPQmPaO6AeVeNm6ao7WZzR3gt
/vTtyyzGcY4411My46EHzZ2QdH+eQV4MYzhhDad7TlQ6/b8T/C5FdM8qYqx0
QvDyR64t/6K8M+IFBluPv6S8M7TPD4n6s5Pyzsh4H/Dk8A/KO+NEvb72hIF7
WN4FPvt5ur8MYQwX9J089q5hKOM4F7w4vHFtLM2VLqgbe8rZVJ3yPNwcoPPc
tB/lecirLqq9+pX8PGw1fW/JeU9+HvjV1o4z/6b1u6J4rKNlLPWBK66W562Z
Wkp5V7xyHRQReIryrqhbLTnvkUp5N7Q6p7YZb6S8Gzy5GZGGYZR3w75MJcfT
lfJuWFq++WeHJeXdMY9XvWWMIeXdYTpg7tq3QyjvDhV/bWnsZ/b5Kt2RpWpT
//EZff4eMIoaZeB7gzE8kBsqDHt8iu4HD2xYN1dXspvyHqjI7G40iaa8Jybb
7ku1EFLeEz8Om2gl21PeE3fWvXg/z4TyniiunttuokN5L8RsTtPa15/yXqha
v13J/zfdz14I8y++21zPWOmFD/Kjg3rL6f73hll4i/DwGcbwRig32b12P+W9
kTuRF5uUQHlvTPTTeVopo7wPsj/tGh/vR3kfiK505V61p7wPPls0poSbUd4H
qwVrrfdNorwvjnYMG2w6mvK+UNFrn7NYjfK+uNmcGfn7G/b9VvpimcGnmGWV
9P33Q5iml2VbDmP4QbVJYwwvkfYDP3zT5T6ICaO8H84KFduCHCjvDytOh9pI
Y8r749a0YVYRYyjvj7EuDe2xfWz/Ufpj3sjOpQubaH9ahQ1j7b6cqGSMVZDm
h4sLztJ+tQpZzc9P+aVSfhXSeP7tObGU50PF09JoWwhjLh8Lcty7vzvR9fio
+Wa5vM+CMZ8PXpHelERDuj4fNnb6a47RfpnJR+Q97xCLb2w/VfKR8HjhWI9W
xo18ZMQqw3oeMeYIcMHP2HZEOWOuABwPg6xj+YwhwCDpxeG5hxjzBUh1ctzC
TaL9WgDtO8r1ajGMMwWwf+exkycmvwBC9UrfUd7kF2BnP++6+fbkF+J+2sYd
pRbkF8LS4/OsY9PIL4TTh4nZ73TIL4RVhY4ycRj5hYgUDJ2ZwCG/EPHdTqpN
nex8UQoxXGNwz3Y6bxqFSDeYnJRYT+dPACSJ4ml1VYy5AagqNF8XWcYYAXgd
V17se4ExPwCrvsz9mZxD51kAzo9xfjEqg3FmAJLjzU/XJZM/ABdKnqu0bCJ/
AI5Oq+1vGkP+QIwL2G6ilJE/8J/51vwdweQPhM6y6OmHfMkfiKaESUPfuJA/
EDaWDZoSO/IHwqCyx8QY5A/Eap502+T55A8E98nHFN5M8geBe1sUft6Q/EE4
l3Sy2VaX/EHY+0fVpxGjyR+E5Po1HI2h5A/CqMcH+s3vT/4gaI0av2Lvd3b+
K4MwyEpljm4X48Yg3D++YcaDj/R8EIxD+m5Np98w5gZDt2/M5JJGxgiGfvx6
jY6njPnB2Duxs2LFQ3reCMb+tjb/R9WMM4OhbmamiL1F/mB41oqK7JTkD4ZR
r0+QeTH5Q3D8kJOp40XyhyDjwd3s+LPkD8HlgP3v606SPwQrrrXl846TPwQ1
5eWFrw+RPwROZe+dUveTPwQFA1dIJHvIH4LCdNdfA3eSPxSbl1WdUiSSPxR6
0420DyWQPxSaqwxmtGwgfyjEt40LbGPIH4rVXF2X8jXkD8Ul7tAuJwX5Q9Fq
n/qzW0L+UKh/ccspEZFfhH0duztSg8gvwh7RUdkmAflF2N3bvzjJj/wi3G05
KcnyIr8I90amVT50I78I6l7aqnou5BehqmfwhbUO5BfB77t06kt78otxLPL0
AqEt+cVoTc5XfrAmvxh3s5Tbt4P8YvSF/jiNheQXozzy3tMBFuQXo21T/+QG
U/KL0f1js1uZCfnFSKlac7p4NvnDcGuyp0PpDPKHodeDE1VLz7MIwyezg6fa
J5M/DFN/umjoGZI/DM6u8h2++uQPQ+sEn+XH9MgfBuX4j3NVdMkfhvVrVxsK
tckfDsNjH67XjCV/OI7s3qW2YjT5wxEwoXh1gyb5w2HlkhIoGUH+cOy1r+cO
G0b+cKgunXLi8mDyh8N3aoeKWIP84eie8yhbfyD5JYhcmbbprRr5JUg5mHBN
qUJ+CXJkqr8d4pBfAmsfZVnCD/o9IEEFb59i7TfGmRJk3B3eG9HLWClBdLNV
XWA340YJKt2jB4d30e+HCGTfzOpd95kxNwIml52zUzsZIwLNu2rWF7Uz5kdA
lTMi5a+P5I/AnU0HTdU/kD8CMZdbu6zayB8B/oyvdze+JX8E2hx/X3PnDfml
GHx/TIXma/JLcaR32ydhM/mluBidLbr8kvxSXNv/MlCzifxSHP32zETxgvxS
rIuO1/j7OfmlEF/XsnP8i/xSFGiZ6ZU3kF+GP3INdpg/ZTxChuLrIxcVPqH1
yKD+Pa3PrI7xbBlu7THKLXtE6/uH95p+cnzI2EmGBSPyq948oPXKMH5xx5w/
ahjLZDiTmJyufZ/WL8MN05ig0nuMk2W4MvOlim819ZHh6+aFNgOqGBfIsDJg
WseFO9RPBvcc/yzRbcY1MrjFVRrqVFJfGXz421PrbzJul+HsHt2ZaRXUX46O
nnNtzjeovxzFzvyUoeXUX46uYWVna5XUX45IvX5fTpRRfzl6xswSRF2j/nLk
eUbylpRSfzmCuizdxpVQfzm4YptrbcXUX46FPJ+TZVeovxyqtXWvD1+m/nJI
WmaFbCmi/nLUl+TZBV6i/nI0JN93timk/nJMKBLZzLhI/eUorZI1jL5A/f+5
Xmmtu+p56q/ApXtc9a4C6q9AxYXxwc351F+B9B1esXVnqb8CPaOneT84Q/0V
GB3B33/jNPVX4H5L6u5redRfAUmMTZPyFPVXQCAt0rqWS/0VyEiLLb1ykvor
cPvVtnMXc6i/AqvGCe0Ls6m/Aju3iAeWZFF/BUKaX1YpT2zDfwBc7pgp
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw9l3k81fkax4+lpBLtN0mWVkJoGdo+2TKW7OuxHMexb+echlJqtBBSllBa
aZTSclUqmRRlSmLCaEpdOSVbjWytmLru636f8Y/X2+N93r/HcX6LOj/KMUCa
w+EskeJw/vf9/19965TcjUqqubvAfoBpurNDfL2Jx+HDhnuNkb7ESqjILBt8
5kc8DX1yHhPKBMT/gnN51aI5wcQqyHwhv3BGOLEavLclPHkgJNZA3fgdVRYx
xPMwOX+S/tU44gV4XDdl9oo9xIvQVfazxkAqsRZsJznvUjhEvAQ+om7/slPE
uugMc25fVEy8FNY6R+al3SHWx/1tdkY6DcQGaKgbm7S0ndgQ1fM79rcMEy/D
krX/Sds+fTfj5ZjVs+e5lQHxChjtrpp10JF4JTpzcrsPxhD/gGOftPKyTxAb
ofT86e62GmJjWIhOXv11mHgVUqIELt76exivhq5Vm4J0OPEaxG02KJacJ16L
1i0qm7T7idfBqXWSn+zqBMbAUdd7yompjOOBhzt6lzx6TfP1yK29PqlpbSKb
r4eCSuW7/DzGHBPo1Ow8pjJuL5ubQEXzfrZmNGOOKbrGWXrFd9LcFA9vXPtp
wCeJzc0Q8OS7us4LxvFmGFF1HW7iJrO5Ofx55iViCeN4cyTe6E9NC05hcwuc
3pc0cnaQcbwFWtTM5FR27mPzDWi6bfLERimVzTeg46KGdXYeY44lXsVMcVmv
v5/NLdExo7HkeCVjzo84E9unP2R/gM1/RKTnh9U5LxlzrDDn5t3mspA0NrdC
yNN5mjf7GXOskdp4ofwv43Q2t0bkvsKku1sZc2yQv1IrdEIpzW3wLcvl6fYB
mtuiLvjfPi8XZ7C5LWKEf3zr82bM2YgrQwO1uw/QfCOaY5ZODv6V5nawnKg0
L+ENze1QdfHytyr5TDa3h4nZX9bTtRnDHj2Zr1cJLRnH26PQp171qR/jCnvc
GHZydd1MvgPkD8cJvyWR7wAvQVRAdw75DnDRkXm4PJ98BzRrZpyUO0u+I/gy
kzX2niffEefk54i7iOMd4d9R7+xxjnxHmL871SVXQL4TAp3cOxYdI98JU3s+
qHzJIN8JO5UTw4oTyHeCYGj28W3/HL8zVn7Sd8gIIt8Z2237DLRcyXfG/l02
pbGm5Dtjp8Uzm0I98l1gahHk+kqZfBdcauU/chlDvgtm6Gu3aveyv3+FCz4O
LxMkP6P3xxVbVn2/l1bJGK7Ia2xT9Sui98sVC+actlI8SL4rJAbX2y9vI98N
47edzwwWkO+GI4vOZcOWfDdsFa9PsVpBvhuk/m6wyZ5Lvju0g20+68mT7447
IW9OLhyk/0d3eNamq8e1MK5wxyS9wELDavr/9MDYExnpblcZwwOBVYnXe06Q
74EPHZ+iTFLI90DnleEqnRjyPfHMIWHKBT75nsidNRB2y458Tzw2nqbgvIZ8
T0yqrL4Srk0+Fy+MHdtklMnnQvvKxPfT5cnn4s+g96eM6PNYwUWm8e2pug30
+fRC7FzHL3JXGMMLy2+n6BYdpM+zF2rqhlaoxpDvhaGH9xs9Pcj3xkLdghDv
NeR7I3ZJ/OzJGuR7o92hP0ssR743vvDq38X30PnDB98E+T2rmhjDB96R569k
/krnGx+szFqhl/gL4wofREdsaFBMJd8XE/rSLmpFk++Lo0/4h+p9yPdFf2/Y
5O+W5PviRseHl8WG5PNw+Y+JSRJVxmo8SJcqOe8dT683ylNWdR77xM6HPB72
pdrNWNRG50seapTv7NWsZ5zHQ7RlmPmucsYVPCx+ZeBodZ6xhAdDW15cXC6d
X/1GX089Sy6JsZofdD5POzwQwxh+eN6oPm1FIPX9EC5RnPHYhfp+yDJQ0Lxp
Tn0/qJfXfhxYTn0/XItfYL9rAfX9MOZt8zruTOrzsWTZ0z1bx1GfD4uenu8t
X9n1AXx8PvmhPuUdYx4frr99G9nUQtcTPmzXjd984jHjPD5C/QWZk+8yruBD
InY2vVnCWMJHi2yiy5FCuv74Y7O24u7LRxir+aNrzY5yzgHq+2Pt0cWHd++k
vj+kTBSijaKp74+xx4qxIIT6/rg65uWxVd7U98fdZa57Ehyo74/+5uPhw+bU
FyA6o103y5j6Akg/M3Xw1KO+AKU7Oa0286gvgGbyzCzBLOqP+uraGb9Mor4A
n8z4ixVkqS+A+6GXjzO/suuxRACPop6AVb10fQ5A7amGMJl2xmoB+EHjPxN7
nzNGAHIfDx0frmfMC4DhObW2eQ8YxwfAUWJlKC5nnBeAO9K3jFuuMq4IwJrK
E0X8IuoHIOHZCFc6n/qB6Cj50fbmIeoHonn83NKDB6gfCInky9fdCdQPhGLr
qospcdQPRPj+DYbFm6gfiE6Lz7FdodQPRMzfyTmGfOoHwlv3D+VsD+oHocDb
ZqaiA/WDMFd9M/eIJfWDcMFKP3olqB+EyQvz+f0rqR+EB05iw2t61A9CdsqL
rOSF1B/1Bx1/i51L/SC0Hw/S2DGT+sHQnXFjRZoi9YPxc8wTwWU56gfDsHDk
esd3dn/FC0alXb/Jki90vxWMlInS0vF9jPOCEW2+WuNlF+OKYJw50+9k84qx
JBiyDTXT65rp/i0EtS+SL3EbGauFQPfa4MePNYwRgvnbtjzIu0f9EPzZpCbj
cov6IeCOLNKaeY36ISgo+PnG+4vUD0GZyc3o2jPUD0F10qzhkpPUD0Vveib3
wmHqh8LqeX7h2Qzqh+KJy63B4hTqh0JgsjG5Zjf1QxFqreHQG0f9UPTIvOGo
xFB/9PfDBt2co6gfirOcDQon/rl/DYOJEkf+rR/1w1B+bWKFKZf6YbCz/vYu
35n6Ych9dbJlwkbqh+H09k934jdQPwzT/m5p/ArqhyGlIMcs2Zj6Yfj+JEB+
+jLqh8Ni8QupCzrUD0dMXbuD9ULqh0OKZ3RhRI364Vg5/8qeS8rUD4dZxh33
sGnUD8f4dX9b6k2ifji8HIWZn+WoH462grLqKinqR+DxwDf5E8Ps/l4tArIG
STkJHxkjAoVuinuFvYx5EcgYzMsSdNPzQAQSdtkZ8dsY50VgydsiLf8WxhUR
MF96UMHvKWNJBEYm3lOMaqDni0jMS1pzbtcj6kdi/djCkV9+o34kYr57pFff
oX4kdjXMPtx3k/qRONeps1e1hPqRKJCcl3G7RP1IzNrkonr0LPVH+dHiy22n
qB8FQevQKZ3j1I+CnNYhhx2HqB+FMgVj46YM6kchyXBziW4q9aPwU1DHwrRE
6kehMGTHy+F46kfhzTMHm8ht1I+CzhuPktfR1BeifO2jpV5CxkpCpJ9x3f08
lI5HCC4/f69fAOOlQsis01r+ly8dnxA1qWKbnZ6M7YV4cba9TtWFjleIqFf1
1WV2jIVCiDuVH/la0fELUbegad0Ec8bpQtzuNC26uo72EeLp7M7BYGPGxUJM
9Qh/q7Gc9hNCM+HW6g49xvVCeJRyywq1aF8h+FIFx36az7hPCPvf72qYq9H+
Igx99+FOnU37i/Beu1LlzXTaXwQ9vVNjKpRofxFsB5f9XjSB9hdBrkFzc/ZY
2l+E5OOZoh1StL8Is0wK3MUj7PlWKMKWut7kgM/0vCuCerObHneAcboIGaLn
i3x6GOeNvr5cQmB4F+NiEY50KCuI2hhXjLL+mM/bXjKuH319/+7+tGbGEhFk
c1tLzzQx7hOhzjXkWNVjev4WY0xLdF93DWMlMfpfFRko3GesJsZh4cMdKyoZ
LxVjwvzYN6G3GGOUddbI5t5gbC9G/J/Vlo1XGPPEeN26xXr6JdpfjNqLv59w
OUf7i+EZmSrJKaD9xSgyk+1rPkn7iyGj3as7/yjtL8b4rV2qsTm0vxiuP3QX
1GUk4b+IIZp1
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJxFl3k0lfsax7dZIiSNilAyNOomDXyRBiXbPLPNw2bbe1MnaZBCiTKdNBAn
R3QqpW6nUWjUUY5EkxIJdUmSShm696zze87d/1gfz/68n/dZa693vb/p/lEO
QZIcDsdIgsP56+/fn15zA5XBoM7wBLB/oEJW8vaPCGJ5PDP17k0XEKvgWVqa
+xUh8ThkbzjtpBxNPBHrRrpy6zYQa4B7pMtQJpZYC32Jn63LtxBr47C4cUR5
B7EuVPVipk1OIp6JKV1uKh/2Es+CttfcLyWZxAb4qcf1YfhhYiM41ngetS8k
ngO35FaThNPE86BqOnFY7zLxfBgNdRW53SFegGzxZv6aRmJjaAi83Wd1EC9E
7L7T0yd8I/4XfG/OHbAbs5PxIqhXuG3un0Fsgv7Uvu9LQLwYKUPRX128iU2h
EL46LGor8RLIFVjrXSggXoo6Ta9P3LvEy7BszO4YwUfi5fBYoffnIs1djM3g
VpY/cIdLbA5BjKfhsiRiQFLLrPhiBeN4QOFYz3SrYZpbwO+nyXr9ZolsboGK
Hmmt6l2MOZYIN+nIul5Lc0sYlCoo3dZIYnMrfN35yfaugHG8FZwybF+X3KL5
CnAdLo6xmpbM5ivwYg//kGscY441IrvvPDnTRHNrNEqL38ib72bzlXBXGOni
FDGOXwnRpO5/WyrtYfNV8E55lMz/iXH8KowZl5gxqo3mq1G9y9DopF0Km69G
auT9kZfXGHPW4HDJt+jJBnvZfA3uHVqzqeUAY44NInW6ueckU9ncBv1PvxtJ
RTLmrEXKBs/RAY00Xwv1jxcu2CxNY/N1SG7lyVocZRy/DveK1tS/Hqa5LVQc
fm++6b6PzW2RaZjvnFzGmLMeJxb/ovhQej+br8cn7WlFEY6MOXawfN2dq5NH
czvIhjW43WilORfRz8xSflZJ/5vBhVKP4tSi2YzjufjF4sFO5dWMK7mI0z9S
+9iXMcceap2aHjIbyLfHBdklH0uSybdHvMOIXEMO+fa4XLuyNLeIfAd0akTH
6ZaR74B7OWovEq+Q7wA7ybSWpiryHeA41fXX1XfJd0TFh3fCz3+Q74gttmZx
Cg/Id0TKUoUZ+cSVjrCazZ/7/D75TogSvrzY9o/vhPPlEtKv6PrxTqhZ+238
m5vkO8F9QCpArYJ8Z0RXaOanXSbfGaquKqGR58l3Rpq5yff7p8h3RtIEhTE3
/9nfBUrXRqmGHiXfBRY9qe23DpDvggFVnbvv9pHvAkPN/1R/SCLfFdfGy9a9
3Ea+KxR67nlUbCTfFaIHjp1HBeS7YvNkuebkYPLd8MdQ9IxdPuS7YWGDbne6
C/lu6HnbVn9uPfluuFRWOKtvJfnuUO8+1u5oTr47LtlHP9ExId8dmjxhk9Vc
8t1RnLax96Qe+R44dLG+wE2LfA/kVvXWLZ9EvgeKq57aOo8l3wM5+uNi8kaT
74mO1QtvqcmQ74kXtR3bQobp9+6J0x78uMFexpWe+KhmK9Hxhn7/Xnh/VS5N
6RljeEEYqJYX/4B8L1gU67Sa3iDfC9yC2JYlF8n3RmLLb/niU+R7o4fjIn79
C/ne+NaSfy4th3xvJGi4SG9KI98H/RXKX7N2ku+De7mbkztiyfeB6syUoggh
+T74Fvf4tW4I+b54pDtRpOhDvi80+pfO1HUm3xd2jg1NYevI94WxgUi7yYp8
HvJs9c1iljLW4kFm69X6ucZ0PR581I/dmWDImMeDa43vRH0duj4PEhqFpu5T
GBfw8ODg2eGzatTjISup0cNYkXELD8k5Nv9/XnH8wE2efyZrmD3PtPzgl2xU
vuELY/jhfI61/8YPjHl+OL6rQT/rLT0P/XB12cf6+62MC/zQ57T2q0ET40o/
aE/lShQ2MG7xA1+1ItW4lp6f/uCb2lu/uEt9f8wbEA4UVlHfH8tFcp3brlLf
H92ZX6qjL1DfH7PNjyzbe4b6/iiyHC9/7gT1/VHspVveU0h9f6zatt3H/Cj1
A8DZcUq/+CD1A/D7yffXtbOoH4Amrem/nUujfgD03ph1eu6mfgBGG3o0qeyk
fgA6LfM7m7dSPwD633dPv76J+gGI8coKPB5N/UDsWMDZXSigfiD275f514Uw
6gdCrJNQ3RBI/UBculbIleFRPxBf5r9stPGkfiASVgauynGhfiBuPN18ss+e
+oFY1BY1w8OW+kHYMU2QW7+a+kGYbK301H0F9YOwsxSzus2pH4Tr53KyM5ZS
PwjxPfMUV5hQPwgTSlUecoypH4Tax+YB1XOoH4Ti8lqHgwbUD8YGB27c1pnU
D4bt7zKLwrWpH4yy+tx7vtOoH4yYxIPTQyZTPxieEY4WMeOpH4xjVx6+TR5L
/WCcT1M2OT6G+sFwiFqZ8lCB+iFIOyPbKilH/RCsNxKuXSpF/RCsLCuYk/SD
vQ/wQtA3LSCmbpDeF0KQWOKcMX2AcUEIqkq2TUjsZ1wZgla1BUafehm3hMBv
lzg98D29X4TixxHTOc3vGGuFIrYxZ51/B2OE4tUdS62e19QPxf7kkdfbX1E/
FBOnao4d94L6oXjSp3v/7FPqh8JOR/eEWyP1Q1FiYvletp76Yahwbj5xuZb6
Ybg9f4X0xhrqh0Fid2TbwmrqhyF4iY3O4C3qh6Fk2YhzXRX1w2CrID2q6Dr1
w7BYOdtx21XqhyFp6vktvEvUD8ezR/6ZFheoH46Mhb2T9M9RPxzzPxqEaJyh
fjhyxYeN1U9RPxweL0VuKieoH47PwilPVY9TPxwj5tYbNQupH47JSe/f6hdQ
n4+a8LZZy/Ooz4cgZ/tTu8PU58POvSI/LIf6fBx/1Za3J5v6fAR8DlU/kUF9
PgrqOhKe76M+H3rKHvZSqdTno3lv6ETjPdSPgOXJnI7gJOpHYIXYfnvJTupH
IN8rerA9nvoRkHkb6WSwjfoRSKgePCiKo34Ewt/a6l7eRP0IPPwztlJiI/Uj
sDBH9qxDNPUj0enKkSoVUj8SptxNB+QF1I+Ea3ZUZCif+pF4VKo88iCU+pGo
ebn464Jg6v/v+0M3lmcEUD8SmXluG4Z41I9EUnncsTAf6gvww2KrRKsn9QW4
JLXosas79QXQGZDMqnWhvgCu/ZefrXKivgAy7Yke1fbUF+CbXdcQ1476AjRe
UxY9X0d9Acqbx9b42VA/Cg8WLz7dvYr6UXCWP5gea039KChd1HguZ0X9KCT0
9kgeAvWjUDPc7mhsRv0olIrnjvxJ54vKKJiVprvyTakfBc/MO2flTagvRJX4
fUPxQsYqQsw5euXEugV0P0JMcJgi2zeX8TwhFPsH7hydTfcnRMls5WtcQ8Zc
IQaXj28fnkX3K8SsR21GZTMZC4VwHHfgSYgu3b8QNlETgidqM04XYvzVVJ1H
mrSPEO37YxL2T2V8Vgj/9jILhym0nxB3PW8rqkxiXCdEbnTIxsfjaV8hXA3V
Y/PGMe4V4tKMWnPfsbS/CJmVe/q1VGh/EZpmPLbqUqL9RdgRL51TNZr2FyFO
QTs1exTtL8JPgow3/nK0vwifkn7eYypD+4vg31KVqShF+4vwZJAf8YpD+4vQ
t+SbfPkIOx+miyB1/8yXY0OMC0SQN1GaseU747MiVDZs13AfYFwpwpDmgbRl
XxjXidCWbcPR6mfcIkJxoH2zXB/jXhH++KEY0P+BzqdivCp1+NL0nrGKGO9m
n5e+28VYS4xNTZZ7rrxjPE+Mw6brW3/tZAwxfHes+ZzTzpgrxo/r75Qy2xjz
xLjpabkvqZWxUAye+hZB7Cs6D4uh+qO+lP+S9hejoN6iKqCJ9hdjX15/n98z
2l8MteykQe8ntL8YKk8OeP91vv4vK5GTwg==
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJw9l3k81Pkfx4dUqq2mg6VLFCUdSrqQF5rkqtzGkTFuZsbM2GqlNl1oRayU
SK5CSo5s2g6pEFJsYjtUVLTVbzeq1YH8+j328/7NP/N4zvv7/D6/78djHt+Z
r6YwzMFfkcPhzFfgcP73/u+rx3Qet9//ZchusA9wdYRizZCIWBlnIx16EyXE
XCgYrfe4KCWeDItxj/njw4nVkHTGLK95M/E0fArTMRkeQTwTcxbvFV7ZTqyF
IK3V87m7iGejw/OD75RoYh2c7+3f+jaOeC5+Heg6cOoX4nkYFp5REJpGPB/Y
tvm2Qy7xQrzJLWvfU0Ssj2fFHNN5vxEvhlHO+wqPWuIl+Nyjd8CuldgA+uUH
Hy3oJl4KXwud0BmfiQ3xT7ZCNH/cHsbLoOES8pqjQ7wc4pS/R9qAeAVOmA/E
hHoRr0TkNtnB/TuIVyHsBk+7LYvYCDv+eMnbdpPYGHtmn7qb3UtsgrZ9Yw22
aOxlvBpqc89nT7YnNoVFQmhGWjQx4PXCo1i3inEUULs/7v6tQZqbYfT7M52H
TfexuRmO5g5si93HmGOO3x8Fe2Q10dwcg5f+Nm6cHs3mFjigNaH/YxjjKAuo
Dh7UH1lL8zU4ucpseotGDJuvwZQJt0TTdzDm8HBJKWJl8WOa86A0eqUbzyyW
zddCed/d5B35jKPWYn+ISFeRu5/NLdG/XPn3sG2MoywxhScc59RN83VI+3wi
0tjxZzZfB9WdNX2/VjHmWOHxkXnTViyMY3MrcKpqB8zSGXOsYVowqOw88gCb
W+NonOHJ5zLGHBtk3Xo0asdDmtvAVyvR5Sji2dwW4RmGNZW5jKNsUcM3ytk/
LIHN7eC0J9kq3ptxlB0+ZcxKFFXQfD1a6jdzb40+yObrYRh+Zu0PfMacDYhN
Vjq9OJfmG6Crur+06SXNNyJlh5FH6qTEfxkbsX7Gy9NZ+oyjNqL5weE4jg3j
qo0Q3E40uChkzLHHs+8eL7y/lXx7eC81igz6mXx7VNWnXd+RRr49otqSbRcW
kO+A5HSVV+nnyHeAR5fApPMy+Q7oqrdJUq8m3wGTXr01DKwn3xHJBX357xvJ
d8R4Ls/25R3yHfF03v0SfhP5juDnHq+S0ZzjBLNnsZWu//edcIqnPWERnT/K
CcsdSu6PryHfCXx5UM6UKvKdIY61MpZeJN8ZQ46aLnrl5Duj6UO9cUAR+c7I
799xfnke+S7wvx5rfOE4+S6oPsu/2HOYfBf0D2ls6U0g3wXqBzrjWqLJd8X1
WI2ujJ/Id8WkMvEIzy3ku2L1I+9wNQn5rnC5OuroE3/y3bD3Lc/nghf5bnho
3D+Q40y+GwYjxk/KtSPfDYvV6j9W8cjn476xZZ7CavL52OBq+3eJIfl8VCjX
fi1ZQD4fR1oDCj9rk++OnmXtwpgZ5Lvj8z8KQ3bfk++O3w7VWllyyXeHe5NV
jmwU+R7o+c75QIMi+R5Y9bxTPf0Tfd89YNPyVaHvDeMqD5iPcXQveErff0+E
PFuUndrCGJ6Qb1/s23qTfE9sv1K7gX+ZfE8MjdV+q11KvhfW2f5kMS+PfC/M
NozPC0wn3wtrTxuFdyaS7wWby1Ot0qPJ34SAyqfFMdvJ34RF13afOC0nfxO6
16pNUAomfxOepNjtPuhNvjeKs6Jn27iQ742Xx77WLbcj3xvGqUfMHdeQ741b
F59NTTciXwAd8zPJYwwYzxSgY0mLVeY8Op8Ao/tVZwm0GAsEGPe0Y6LNFDq/
ALwrl3Y7T2ScJcCykQJeLN2PqgSYXRFr2a3IuEMAU+XpKwX9dP/yQVzdzgtD
7xnP9IHec/dlV//DGD7Qeer3MKOLscAHMX+Z6B19QvdDH4T+5Pii9A/GWT64
OfbN0bfNjKt8MGvalkLLBsYdPuD2PS2+cIP6Qiw6nuNofoX6QmgfbvB+c576
Qqw3sB9TUEJ9IXQmqI7fWUh9IQYFKYoRJ6gvRFnorOO7j1NfCPel2T/mpFJf
iBCLN4ltv1DfF5zidk2teOr74oVZYM2uGOr7ony/SKlvF/V9UfHqdtue7dT3
Ra7fq9TpW6nvi6bYvJJmGfV9Eb9yg26KiPq+ONK3+LEwkPp+OBdxt4AnpL4f
BDmt8028qO8Hkybrq+Zu1PdDF7dIwnekvh8S5+aZ7ltPfT/M5P6jfsGK+n5w
rOsZ/WUN9f1QHqy2ZB2o74+Ppfmb842o749frnceVllOfX9cPJb6LGEJ9f0R
K+gWTF1IfX+4OWd/Ktelvj9W7OG9cdOmvj/SWyQXR2pS3x8NsZy+ymnUD4CB
hmpknBr1A1BhKj/sPZn6ARh2yDDZmEv9AOiGDt+k9x31A1BmtKlXQ5n6AfhS
WT1xqhL1A/A8N+f5TA71A7DzifJVgwH6/Q9Etr3ncdtPjGcGIuncq0OiD4wR
iKAooXJmD2NBIALtj7c1/4f+LwRC/XHizlGvGGcFonZ23SGnLsZVgVC5mLuw
sJNxRyCs7FaOHfaE+kHYbmut6feQ+kHQyFcobWqjfhDGSMr+Mm+hfhBWGe6a
cLmJ+kHQdstLX95I/SAUVocVX6qjfhA0u606rWuoH4T2+b+FdVyjfjASsvXF
2yqpHwxv8UmFGZeoH4yhGcrc6grqByM9SztCVk79YLTe+7NxQSn1gxH68WzC
qyLqB2OtVuvTU4XUD0bmvXjl8Hzqh6BSXD7R6AT1Q2D5+UbcqGzqh0BY83P1
8wzqh2CE3QbJjTTqh2B0ZqbvySPUD0F5reB0/CHqh+BQZNnI3UnUD4FXT5tO
eAL1Q/HlQeNYcRz1QxGpsJcfEEv9UNxf9vFCwD7qh2K3ha2leDf1Q2FTMYUX
vpP6344f/NEwbjv1Q1GkYyNPi6B+KArfROaVbKG+CBsbMx41hFNfhIFlk1rf
SakvwoQ9S7NUJdQX4R4KLMxCqS/6dv/waJAEUV8ExUcxScf8qS+CQ2NT4C0h
9UXQy3mZpCigvhhaxvlqa7yoL0ZS79nf97pTX4yOg9Z1Da7UFyMvebVM1Zn6
YiinvIvwcaC+GE4fX94+uYH6YuQYNk77aEt9MfQmp3lYW1NfAuPIhfX5ltSX
4FavYbYSj/oSfO1P8vIxp74EBivaT1SZUl8CgbHnnDkm1P92fNfb2pRV1Jfg
xp81C4evoL4EQasLf5QbUj8M7bl71z9fQv0wdNrfmeOiT/0wTMk0DGlYQP1v
xzctSjTTo34YXqec7rw2l/phGHgtiVmjQ/0wjFPtf1Azi/phMBSe0LfSpL4U
DkbKrndmMOZK4a+804A/ja5HivajCakv1BnrS/Hwh7SArd/T9UmhnmcSOF6F
8UYpdGvrUnMm0vVKcTXhXq8Rl7FUCqXhn0ruj6Xrl6LbvdolbAzjRCnqWpev
4o6ifaT4abzoWtkIxiVSfOmILvJQov2k+Dqz6OSQAuNmKfR1VdadGWLPWx1S
KKtzovmDjHukKE+2TlDop+czGTJLtVNOfWLMlSHyTo6lex/jmTLcruEpff+B
sb4McztNvZp7GUOGtdWZGvveMt4og4pR/GrzvxgLZNDjvLrZ/5qxVIZRpvn6
v/5Jz4MyeDg1iSK6GSfKUOZ8YpD3gnHWt7nuncbhzxiXyPD5hxnb6p8yrvrW
X6BSmvyYcbMM185lvPN6RPvLsCrm3en5D2h/GeRvoML5g/aXo0vSnXznHu0v
h892l8ysu7S/HIsU1i+KbKb95Sjo4KXa3qH95XgQcqZFp5H2l8O76MwM5Qba
X45jDvFtz2/S/nL0j5zIqayh/eXYNVEr88gN2l8OTVmPztZrtL8cY/d/bfe8
SvvL4ZwzNxxXaH85Ys3HhC+4dAD/BcfelAw=
           "]]}, 
         {GrayLevel[0], PointSize[0.006944444444444445], Thickness[Large], 
          LineBox[CompressedData["
1:eJw9l3s8VAkfxoctl4qVKKUtIVJSUqILT7mFXMZl3JkZjHEbMxOVdBmSSyFF
G6FIV/lIG6WLomKprJLaarvYsl2tZd8kSt723fN7/ePz9ZzHd57zmTNzzix+
nEe4PIvFMpZjsf75/e9Pn3W19rn5N8+kgPkD+JpxYQcvEyshcKzpnSVXidUQ
3taiM1hPrIHR5YdXJ1wj1sIVs8cV+teJp0PuaJl92f9ZB/vlO76mtxHr4mNy
d4nNXWJ9uJS3NhV0EhtgjILjIc5vxHMwIs5VC/+deC6GJj/IHnxHbIzXi8fX
XBogNsH6hoSmLPntDC9E+9Oq/QYTiU2h4OJcOcGQeBFmflwtF2BBbIa+U9Iy
qSPxYuyLCFa9FEq8BLEt1mZKScTmmFPny96+n3gpThy9oHntLLEFfNY3dh3o
ILaE0G9w99hh4mWwSvQ9UTsjleHl2CW/RdfNnXgFctUvnTufQrwSydycGda1
xFaYvMhH4X4fsTUWxLRxgo13MAw0Ka7/sj+aYRnwfPRn5Uk/Ub4KHkbrF+d8
pXwV1k61KD3qnsbkq6FyaqPeukqGZashOrn98gyVdCa3wcZS18T4aIZlNnhr
fFbJrp1yW+zU+eW68pIMJrdFrijVrqmYYZYdyoN25M9UzGRyO8w03SSatYFh
lj2ejuMtmdxDuT3qDiQ0D/J3MrkDukw+JxzvZFjmgNia6W9mOexi8jWorzjr
31XHsGwNcuRtGycYZTG5IwQNfk4/ljAsc8RlOCaPnZTN5E74415oQFo6wzIn
fHnhsc98kHJnrLvQ6K4YlsPkztipmO9ieZdh1lpEeibs7rHYzeRr0efpLSwt
ZJjlgnvDAfJ9Hyh3QVWK1ht/w1wmd0VoT+p+rhvDMlfUVYsuf5ZQ7oY/VIta
svZS7oaxXYc8ZtdS7g7etLTdGXcZhjserPzpQkUPHe8Oycpxv75k7fmXG9xR
s5ez2WYSwyw2GtYv5B/SZRhsfLft09CCBQzL2MhZmWRyz4L6bMQbPtz21Ir6
HljjaiDat5r6HlB3Kc3Y4UB9D5Qvzyh560x9DyTuq3UxpZzlieBUo5uzranv
CYsrH293LKW+JwKUpO4p5tT3xIDzjYDXxtT3gqSKl5amQ30v/PJyYcGoJvW9
0CmUmtqrUN8L8R2fm6fQ+WB5Y9uTrUNHeun8eeO+nooo+hmdP2+8muVpNaad
4QZv7Hp2UnbpCp1/DtQXC9QHzlCfg5gN39+pP059DnDUKb9+P/U5UEu8df/7
VOr7QKi/Wu9hAvV90B7j88ZGSH0fLO8W1K3ypb4PNt/78CjZnvq+WOO2x+aG
OfV9kfBT56arJtT3RfGxdlWLWdT3xU2tmYK4idT3w46/RlT85anvh6UnhZUj
b+j96of788Kn8m8y3OCHXS+8H5w7Qe9vf+jLipp2ZTMMf9TK23DOb6W+P3oN
QzcXCKjvj7v7lLy2OVI/AOO6BP0v5lM/APOmzB19PIX6AYh+5B9yZIS53hoC
sNityij3LV1/gYhcV/xb6iOGEYiDKkMRaQ10vQbiglXl0qhT1A/EB05QelQJ
9YPwcdz43vTd1A/CpOJhSDdRPwjHa77+yBJSPwhthvPSTnlQPxitb2T6PdbU
D4azT3X2JxPqB0PzdkFK7Q/UD8aheN3GThXqh+DDchfBChb1Q5Ab9fCvzL/o
8ygEKlr6W/x/Z7ghBIYN1V+GHtPnExffne99ZdTJsA4XS3ifW7WuMwwuvBJ2
x5hUM8zl4sCqzVyHI/T/uThfM019QyHDpVy4s5pa9qaRjwuHasnI8kSGu7h4
XTW7e7uY/DywbjnldQjIz0PhpJpWXiD5eVB3W2+mxyY/D7V5jWypA/l58OpW
k6wzJz8Pg3mmVmvnkJ+HckUrhXn65OehdZWy2Z/TyM9HwZDq1hfjyc/HTKea
7v5R5vMefBirT+oUDzHM5eOw/azWyh76PuAjpTVb9/1Lhkv5GNUV3j5C3MBH
5S0juTPPGO7io22d7ZVbbfT9Egr280XHnZsY1glFUuaZtVevkD8U3W5e5sY1
5A8FN7CiY3IV+UPRYrRsr3MF+UMxMLC5TVpO/lA85U0qtCwjfyhO/z3mmmsR
+cPgkqm/qTCH/GHwv5gSa5tJ/jDYtAvuv04hfxjUzVfUeySSPwzlY0Z2zFhH
/jAcmzD9ToeE/GF4WK+ZmRlB/jB8eqMyODGY/OFYttFgsaMX+cORzX05vMGV
/OFwOps4XWEN+cO/fcI/HmVZkT8ceXvOVhtakj8c/1zefubkD8exEN1nF03J
H47S5vqh7DnkF8Dxw6Kd4bPJL8B/dFbaqRJDAGSEtZyZTn4BvF8eLbqhSX4B
+k4Wf8zXJr8AH3I84/W1yC9AY5WBm586+QV4OtChkaxM/gjU5BsblimQPwIK
Q49aEuTIHwFeRWFt/iBzf8KNwJTt6ZEhA3S/EoG3l5tN2O8ZLo1A/tUkB5UX
DDdEgFt4/t2ypwx3ReDYwbFll5/T/Y8QasrPP2sT6wgx82F/iM5jhiHEyU9X
9eY+IL8QizhFoz73yS/EoT/vave2k1+INRbzN7KbyC/E1NOJ3hFXyC+En6/Y
uusi+SMR1Xz4bcxZ8kdC6Yd4ZcVK8kdia9aFaOUT5I/EcKh/UfNh8kfiJme/
Z0ox+SPx8XvdqdIi8kcioPTprKZC8kfC1FCYZ5NL/ihMrVKVWWSRPwo9U6+Z
3sokfxSSyjkFV5LJHwVvrxGn10nkj8L6lXcTeFvIH4XCsn5bNeKGKMjmFJiO
TSR/FA4EZiUPJJA/GgLzFn09Cfmj8e1uwbs8jvzRCNSdUtwYSf5ohIS89yiP
IH80Vj004mRzyR8Nmz29rzVCyB+NIa1KC28++aOR9cn19nAA+WOwI/+Q12c2
+WNQkGPZ/tCF/DHgtrzjuLmSPwZKp4Me9xHLYmC62XZtphP5Y6A9bFjna0f+
GPR8PaP2wwryx2Aa+7H2FxPyx2K0hl2iSqwTi/5OPZXe+eSPhXur5Zn0eeSP
xfw5E27WzCF/LJwcLAvaKC+N/d/9AF+f/LHo1JBzjdMifyxk/ROmbdIkvwi3
uVlrNCaSXwSzk2UqDWrkF2Hyznjr4yrkF6HZ8t0bi3HkF8Hm1sVtlSzyixBz
+32GzVfmeaNBBA/HEpmBHPlFsD+oH2RGx7PiYOsxfnbeIHO8ThzYWvmRNR8Z
RhxMLHvzc/7DMDcOhxfUj1x4T88zcTBXKFFb1s1waRx4zRqV/W/JH4f0nZKv
x4i74mBVO/xu7nN6PhJDOyPcTPERw2pifHs8KjP/lV6PGFHTNNq232V4oRiD
d6w4fa30+sQIe1fVk0LsLsa7PrXmdmKuGH+c27J703WGxWJw+u1f7Wmi1y/G
bMWeKGkjw7lieNwfwx6soT1izFXOrMk+x3C1GAcNzJ49uEj7xFDXNi4+Usfw
HTHuXQvXPEfHd4mxza3SM5y4Twz9Sx2LOuh4lgTuzZ8WJp2m/RL8msGd/uQo
7ZfAJXJkvtxx2i+BX8X4jYUnab8EkZZ3bP4kdpcgdk+N9gj1uRLMkHti/Iz6
YgnOOdqFxpbQfgkMhyZe5RfSfgm2sjyK6opovwQ+eccrDUppvwRLVAcuVRfQ
fgkq4zeUZOfRfgk0AitPNObSfgn27p2Rxsmh/RIcGzg/hruL9ksx5W8lkX42
7Zei+4nBk3kZtF+K0orV35nuoP1SvLIz6PLJpP1SJJVqai1Kpv1SxLlcnL+H
mCtF1YHXGV/Sab8UJ7K2HepPpf1S/JxyrXTtZtovxW83WkdyJLRfCuHcG3qS
ONovRXMT+0KmiPZ/6z8wSw39xv8FdjGMQw==
           "]]}}, {{}, {}}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 500.},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 300}, {500, 1400}},
       PlotRangeClipping->True,
       PlotRangePadding->{{0, 0}, {0, 0}},
       Ticks->{Automatic, Automatic}], 
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVlXtYzGkbx6ckvEiL0mKJJbE5VTqrr3Ol0nF0QDPVdJ6aGYdsWxpSlKIi
JdRsOba0taFQGSWRkCinKKcUokhZitd7ee6u651/5vr0ne/16Z55nvs3ySvU
UaDI4XB0FDic/73/eHVYcP7/hTeGle6H3w1gfx+MYzvTN2Uv1mSsirGYrcTl
z2U8GmamJXPm3zNnrIHoHX/dFadbMh6PbrU3NVeWOzLWxGWj0Qp1nW6MJ+Na
eLzjRTmf8RS8SEsbb3rIj7EWfB/+1vCgNoSxNg6PT/r1RMlaxjOwnWsfM/T1
RsY6UDFwq0sfFcV4Fp7WrEC7TjTjOWj5Y5JbhmQb47l4Xru8oU6UwFgX02wm
5gonJjPWw5nP6n9O+GMPY30YZgligtzSGc9D3EKr9N4rBxgboPBYfsHVNzLG
hvDfvVH5yvUcxkawVC1+Nkz1KGNjZG4/brSjJJexCa47ZKV5NOYxNsWa7PLS
VSUFjM2gXGjcJLI9xXg+HjTOeP5tahFjc/T0hZ+Mtz7H2AJb78bO9LpQyhgY
czvC3PaS/AdLgdqS5g1K9eUsX4CEqZUuSaMqWb4AVx9rvQjfXMXyhVCfea5r
hGY1yxcifFdEh3tHDcsX4VZ+seUvH26yfBGKmorrfffcYvliWGtkOV+zvM3y
xRgc6embq17P8iXQvW8/oaqvgeVLcDersb607x7Ll+Li1Q3qA9UfsnwpKlXu
LWlb8ojlyzDhpL7T7oQmli/D1EVX5sR0NbPcEvt7+yzGznzKcksUeM/fLAx9
xnIrvFQMWH/33HOWW2GQ1j/TDqm0sNwaXkn6T9QCX7LcGio5t9z9alpZvhzH
Gp2qr+m/YvlyvBgg81mb/ZrlNpCuuGgdP7qd5TbQsr71yiT+Lctt4bstLMlV
gd1LqS3c2mVfEsrontrhppVxhWNEJ8vt8Mpl38FFJu9ZvgLK88Ke9fYwlq7A
0a0u4omnP7DcHr+YteasEHf9YNhDZqQ200DnI/u8PTxQ4yx9wVhuD/P23Xub
D3SzvgMWDA5KUnHsYX0H5GUmr6tS+sT6DthU+GzgjVOM5Q7I0Es8+Yr/L+s7
QrvgfdjroZ9Z3xFGhUdvHPqHsdQR01RKojpcvrC+I1J4nutPfmTMccKsa31D
5Mm9rO+Emhi9wJEz+ljfCUc62k33lDGWO0G/ZkKd0YqvrO+M02eDbD89ZAxn
WHKL4m76fGN9Z+RvqI+40MZY7oyt7377KpjHwY++CwqPe2p/XcsYLnhZtH3H
yXzGUhdcqiioCn/NWO6Cuq8Xi4VTFFifi4iUjvm7PBiDi55OVbQlMZZyMfW+
b3vMJcZyLsRWwxRF3dRfiU8Ow6cXaimy/kqcGuQ40cOFsXQl+q7zmtduYSxf
CcWRhXuG5DHmuCJvj1669j3qu6LVxEzwiDOA9V1Rm1n9SU+bsdwVYj2BlpEd
Y44beN3NFR8ljOGGpv0+Wzbupb4bqtaX61QUU98N1htKjz69T313tN9/bvHs
X+q7o3Xb9LpaDSXWd4cex9n9jAFjuTuMI0fpZTox5njA5uic5SmhjL+fVr5N
77gD8dT3gNs+z5RLh6jvgdqwxOWjy6i/CmvftefsbqD+KgQJd4ywfkv9VfD0
PqtiMXAg66+CrcaF87+PY8xZjdYvcT2cuYyxGtKrSr0PljCWroa3f+T14e7U
X43pDzYvzxJSfw1erL1okCql/hp4TDl4rSuF+msQ5WirX3GI+muQFrXYY+AZ
6nsi41VAz4XL1PeEa+S3mJ4G6nti3PmfvfNbqO+JE+eOnH37kfo8RA8RRZ9R
Uv7Bmjzcdru8ZegoxuAh+VG3cacmYx4P4eI666BZjKU8bG03mBFpyljGQ4e+
+fvplozlPNT3jHiwzplxMw9GRhtH83mMOXwYfdjG6wwiPx8L7Ldma4eRn48E
k97tQ7aQn4+rvJG5exPIz8fFmpDwur3k5+OGfgP/goz8fOTMlbd45pKfj9wM
rsWZQvJ7IVjtQNylEvJ7YU7tnbqESvJ7YYRWzuKfbpDfCx1tvxc6NZDfC9eq
F6lyH5PfC+/3PFo/toX8Xmh13xKZ3U5+L0w/2d74rov83hie1q2r1Et+bzh/
8NJ+ojiI+b2Rmpy/bPsQxjxv7GwLVvsygrHUG2axLjqm6oxl3pA5JVdbjWcs
98Z0DceN2pMZN3tDISI05t40xhwf3GidPshjJmNNH+StXupcoEt+HxgrTDvf
aEh+H6j3bnV/bEZ+HzgbLlldtID8PjjXYKUQsJT8PlC6rj2ty5r8Plgcl/HA
bQX5BVA7PEp1vxP5BVC+MKW+eCX5BZiacnnKKQ/yC3A9+fOjRE/yC5DIrRy2
zJv8Arg7/7a72Zf8AlTyzed7BJJfgG+DPOqLhOT3RcDAWSN7ROT3haDTq/vn
deT3RQrXWmdSGPl9cUmawx8eTn5f+E/uDWuKIL8vYtY3KqZHkd8Xtk+w13AL
+b/395s3lm0lvx/M9YviZ20jvx/cSx9qb4sjvx/c/qO24OoO8n/PbXWzPyaS
3w+dzwL+HJZEfj+Ui+vKVFLI74fFdpvkvbvJ7wflSbnGd1PJ74+KsKDEzDTy
+6NpZaSJ0z7y+8P0y+ZrHzPI748xowKKYg+Q3x+DPif7KWeS3x88YaPO+izy
+2MGd3zEbRn5/eGaJb83KZv8AYjVfXaEl0P+ANQ2epolHSJ/APbN4g4vOEz+
ALyTFnhWHCF/AD5WVadWHSV/AG6V/IqyY+QPQPqO7oSjx8kfAEWDYVeic8kf
iHrlcK7TX+QPxFJp8Gr1E+QPRHWOcPZ1Yl4gzprFWWw8Sf5AxM6T3BuTR/5A
rKtYO/sEsTwQHJXI5Hl/kz8QDueKQ04Rc4Jw5SGnQTuf/EE4kXRk4m5iBCGh
e7D/B2JeEJ4K7D5bFZA/CMGJTuPSiGXfc5nw+QNieRAWVAY9VfuH/EEo3TTu
8zJiTjB+Uk8TiYk1g6EY1RCWQoxgzGss3/QXMS8YnKzSLSXE0mDc07hzqZJY
FoxZ5bHBVcTyYDQelO262O8PRp9Gy7JT/X4hovVWN2b1+4Ww7emSbe33C5Hq
kJ/t1e8X4kWsYJRJv1+Imb3G04b2+4XYIUlvq++fX4iKJT+ZZxA3C+HQeira
lZgTAl6sxx1VYs0QuArCIyv6v/8QxG2ct13U//2HYNMn0bcxxNIQtHYofD1L
v6csBCf2jC/hEstDMKFxd9hbOg/NITArC7bYTMwJxY0IrREjiDVDYR6mOzCd
zhdCsVBVwWA8MS8UJo/LCvbTeZSGgsNPTe4/r7JQJKb/rp5I51keikH1Y7jf
6Lw3h8Lb5lc7Yf/5F6FiWKHqXbofqiKUfjPJMyPWFGGkX9mKTLpPc0To8LHs
+0L3DSIMKJz7yoXYXoR4g0emJ+h+8kToyQy/+5Xur0gETX5Piy2xVITzhne2
7KP7niSCp2V67BPaBzIRZmSozdMizhchtO1thh/tD7kILRrFTw//ybhWhFWp
4W+b+/fN9/9vnGG3BnGHCDYaTV9taT9xxNhsmPoyivaXqhhNa5r+zjtI84vB
WXpl5wPad3PE0HIvuDWAGGIkrSvznrGf5hdjVcbUaXb9+1KMwUr69qG0T0Vi
1CiZVSWm0/xidJ58G3ec9m+SGKaTxjSW76X5xai2cXt/n/Z1vhhv2iaHv91D
84thdyg7jkNc+/3zpxMtVfv3vRizHtqf/oWeBx1ijN3s9Uo7meaX4HJIyQBd
en6oSpAbe6DJaBfNL8HzdyXJ83fS/BKUR3+2BT1/IMGqqOF3kUDzS6A4v4tv
0f+8kmBXg/bPZvE0vwR9qcMbDOj5JpVgZc3N+NnbaX4Jajqfz9ai56FM8n2f
W78cG0vzSzDjBbd+eAzNLwGXO7vta/Qg/BfCdEiy
           "]]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVk3s41PkexycdYmyhaNNFV+1WinRDTt4sErmTS2iMMS6DuXRdhdllU6Js
KN0kLZUKpXRZabaSbiKUVEolUZIkKsnpPH0/53nO/DPPa97ev9f3PfM1kS92
C1bicDgGgzic/75/f3VacP7/hYUarjMTB6azz1Xh46K5/aXImrEmbN+6WI52
82CsDb+RZsoHW3iMR0G+MPbemtAwxmMxcWlNtkublPEETHo/SjTaeB3jSTCc
qTtreVEc4ynIS8hquGqbwHgq1r8xP50Xu5nxz1gqa7NN3LON8XR0b33tdcI/
jbEBDHQTJ4rkOxnPgkrCgZ/S7fYyNkLm9BOdpi+yGc/Gy/KYe57D/mJsjImb
N3Fj8g8xngPvdIF1TvlRxnORcvGyl9f8IsbzoJzqqjP83knG8zG+aJdq3rXT
jBdArSqzMVj7HGMT2HZaz8i9WMrYFIskrT6+oQrGZog9mmZ8KO8S44WYzvfN
9RtXztgcqc5F46/drmD8bzzcPmfX49IbjBdhloG4xritkrEF8hb1LeXnVzMG
Fkz49RRHXvOd5YC9U1KlZHUdyy0xKlKe4pp0j+WWqLCq6e6/cJ/lVgi41HN9
pcZDllthxOmE+4ExjSz/BYMOVXM1Bjex/BdEiXZceeD+lOXWiIqdNb2v8BnL
rSEO/HTGbGQzy20gCFiQhT9esNwGHxsNOnP6Wlhui/O6cwtfrW1luS3WGFVn
b/rYxvLF2Bgwbeer9a9ZvhiZ1w73xXDesNwOhcO3mBcmdLDcDp+DzA/8Opj+
D5YgeaqO5OUlxvIlGOix3Pgy7h3L7eH8RXbyumkXy+3RMH711ba3jDkOMLFO
bD964D3LHdCje4q70amb5UuxLqPxce8HxvKlmOtRFL115weWO2Ir57hqm3EP
yx3htjKCX1zBmOOEUWf33zvk2ctyJ7hvULJKfsSY44x7Bfefm/p9ZLkzksIu
/JhZx5jjAsecIOVdNp++M1zQsrasYmEhY7kLNp9LHEjS+vydFS4IGF5asS+C
MccVPv8yrEpXMIYr/Db0f949tI/1XWH4xXHlc3fGCleUWriUHU5jzHHDHN2c
jBmVjOGG3LRF6iWcL6zvhrSSnn/SZzFWuEFWtChJx4sxxx13akU5m6MZwx2i
ZsvTi3dR3x0f9TaJjhRT3x1XR+H8oBvU98C8wnyf3EfU90Dhw+K8V6+p74G3
RpMTpn6kvgcizwwuzRvUz/qesO7nrDqjyhieaM0s/e3gUMZyT5SoJySe0GSs
8IRiIOPPKcOpvwzcPa9UFxJjGWS97n8YaVF/GQoO5KXN16D+MvQcrUyK/oH6
Xkia6Ns9XY36Xmg/MW96lDL1veBRGy8V0nkVXuislQmN+2m/Nx6Nz3DooH3w
Rr78Un1xN+33Bn/z3mXpnbTfG5ZWGs5Z7dT3gaNnw7CmVur7wCVJXUf4gvo+
CE8X5D56Sn0ftF1OSV/1mPq+0Et9Ncn5IfV9UfbH14L4+9T3xalJ88LG3aO+
L1rGZitPrKP+cjQv2LkxtYb6y7Fhyr4I0R3qL0fe81ybgmrqL0fVD36NnsQc
P7TXO5SsIIYf+PbGBZeI5X5wMfaqj6bnKfywpmWdVTz5OP5oXXdd9X4t9f3h
HantIr1LfX+UqU3vsqunvj/451QLfRuoH4CmtvonB/+3PwC/N+w5rUffjzwA
/o6TL1Q0UT8Ase/C7fc8p/4K2L7p+JjRQv0V0Pzzhe2pNuqvgFv4sfT39Hsp
VsDDMmq2K/2eHB5G3+1wufGe8QQedKcJLy7vpefxcLnk4rZBfYx5PKzYH2v9
91d6Pg8L3iWcTFRi9yubh6a34tlBKnTfeJhTp2LuyGXcxIMkWs3Udhjd30AY
esQk2NP9nxAIM1uLBp+RdJ8DUfx78D7ZaMa8QGh+0g9P06P7HYjzZWfTz08i
fyAEreE6L6eSPxAGtTFGo2eQPxDH5tsYuRmSn4+GRMt1KXPIz0fpmoCKGwvI
z8e/za0Gq5uTn4+bDp+eOID8fAyUrRCnWJOfj7M3vEfX2JGfj4ozU2+OdCQ/
Hyufmnb4upI/CNyMJzn7PMkfBF/TRIMnPuQPwqV0u269APJ/4yf5//jxyR8E
94Co6l1C8gfhbv/xzNpw8gchPuS5Ql1M/iCo5q7cbrmS/AJ0bzgila0lvwCe
N6+m7F9PfgGqMtbeuR5HfgFmxk1d0hlPfgEMYxaOHbGJ/AKYNNpsm5NMfgEW
vHbpd0olvwDlubuTg9PJH4zYuGPH12SSPxhvD951id9L/mCoykcUbMkmfzAi
Rmipb/uL/ME4urVVbdth8gfjFxOtkC3HyB8MJ92AxfFF5A+G6egh89acIr8Q
FtbelkFnyS9E5u9bZziWkl+I9kS/TcYK8gsx5crd3OFXyC8ENo0PeVtBfiHk
xRv0K26SX4hhEXaPMqvIL0TYEe9WQS35Q7Bb0g6DevKH4OTuuPtvHpA/BIvG
asw78pj8Iah53a4e+Iz8IahtapQNbyF/CG53Xza60Eb+b89T2WUieEP+EOxd
ybs+5B35Q7HbccncvG7yh0L96+ONFh/JH4pCe5Gsro/8oXAv3FMpGCB/KB7U
Wat3Kn1l/lDU5Ic/WKXCWBGKnJBXT9+rMW4KRfORO/5RQxlzwpCaFcpt1mQ8
IQxvL+ubeWgzRhhQfKHq4o+MeWHILJifrT+GsTwM6UUpuhv1yB+Gjlhx1vOJ
5A8Dv1S5a6E++cNQY7atbOvP5A9HWblnx6MZ5A/HlZasnVMMyR+Om0t17YXG
5A/H0oiY1oPzyB+Oa941Vo0m5A9HufiZQMuc/OF4ncI9Bgvyh+PrqsFdEVbk
FwGGljvSbMgvgvEzvVun7cgvgu/4Ayo1DuQXYcNck6ltTuQXQS0mNKfPlfwi
rB4epqnqSX4R9nqNcR3uTX4RtKfscxi5nPwReDXnrZpOAPkjcPiBTsawQPJH
oD3Me6eygPwReGA0zadXSP4I+AeonmsOI38EOkqCfCojyB+Bq8VcqyIx+SOw
1qi1I1lG/khMbNjwTrCa/JE43v5Fy2wd+SMRXBVzlrue/JH4WaDtWB9D/kh0
+GdYZ8vJH4m7cw86COLJHwnuaP6FCRvJHwnt+IEH9zeRPwquNbXzk7eQPwoq
L6rPmG8lfxR0djT1tKaSPwpX5FeVUtPIH4X68x0PZu8gfxS+JGWVV2WSPwrR
O9ZwRHvIHwX9yi3JSlnkF+NGOa8pPZv8YnQYf/CYdJD8YtS8uHYtP5f8YtjZ
HeqbeZj8YlSeGKd/LJ/8YtRNG6r/03Hyi7HoXPburELyizH54jgrrZPkl+Cv
6AJu3CnGmhII48c+ellC55GgJ1/31NJzjI0kOPs5qPvY33Q+CQw6mzncMsYu
3/5eP8pLoKDzSnBZtO3wuUuMJRIonH+brF5O55fAYsKQXu8KxqkSYP7ps9nX
aY8Ec6s8eptvMi6SwOxJtZ/+bdonQSe3qItfzbj6W/9Xw7V7amivBF07TRqr
6xh3SvCM/yVaqZ72SzF7gp35rAbaL8Wx45qd7g9pvxRcb41bqxtpvxSm991l
O57Qfil4xW8UxU9pvxR1DY2Km89pvxRRJV3Sphe0X4oxGiVTOl/Sfin0nFfF
fG6j/VIsydM2Umqn/VJofXhzWLWD9kuRMKvRXq2T9kshG3FXTbmL9ksRzlf4
97+n/VLs/br90LsPtF8K86Ercp710n4ZhMVmndWfaL8Mt8WGq8730X4ZzBvH
PtzfT/u/cXKASvwA7ZchjrtqH2/QANv/rf9FqdNsMGOeDCre251GKDOWyHCx
5pbTSxXGchlMuhIMSlQZp8qwRn9MZhyXcbYM6aHzfrT5gXGRDMZ/Xng9ZBhj
hQy3SkZWXtUYsPgP5BQW7Q==
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVl3s41Pkex52yKVut7jdb6iStkEIl5I1CbomE3MZgZjCYmVbotlql6IYu
S8K4dWElXdhu1tH15DgoVGo3FUK7ilVZbTp7nv18zvOc+Wee1/P2ntfv4/f8
vt/vb7Ywyi1kmIqKit7fVFT++/3X542lyv9/0DioXziu7eOKv3Ak8MhgR2r0
VPo7DYSeXy2ea6RLPBFd1yfFVzkvJZ4K3ar1L71zrIk1EesY3bOt2pFYC22G
U2M3VbgTz0HtmQe1/iN8iOfihkbziY+qQuJ5mJxY+MF2p5h4Pgy7ErQXzo8k
1kWmtuZszbEbifWg9LnX1X4nhtgA4ysanzcFbCM2xOZ1Xkl5AzuIF+Hhsjzj
pLpdxIvRMmtSzT7bZGIj9O39x0RP+UFiY3iOrxlWci6N2AQjPfp70jSPEi+B
JMU3ZcuwY8RLsaXon9qfZNnEyxBhcUF84nIusSladlXnpB4oIF6OMcEbzphf
OUlshrOm8bpX7YqJzZEnPtX+d7NSYguUOG3sNft3GfEKiLprTjiZXiC2hENe
7q6xz8uJAZM5cUWZNZf+4njAwHJJx+OBq5Rb4be8oEHjJVWUW0H1WHCuw8Rq
yq1xuXdVS+GUG5RbwyB7u+rnVrcot0HaHUWBauodym2QE7Ov5LlaDeUrkd1y
W3qpsJbylchan6duaFJP+Sqs95hhc7GogfJVeDEy7O0Uo/uU2+IzO6cJHbWN
lNtCoy3z2r7NzZTb4acNBiv8lj2k3A7qY4zcD4xoodwefr1nbpm3PabcHj9X
912MrP+J8tVosyjunHz3KeWrkfo4f5l6ZyvlDtDvWuGf+eYZ5Q4wijVXaA09
p9wRn2ns7u7/oo1yR5xLNk2Ua7dT7gSz+Vl7X1l0UO6EshOlaeVeLyl3RlKJ
9Nm86E7KnaFs2GObmtZFuQsexo7e7XS2m3IXyNpij5XVvqJ8DbS0jxbM7P6F
8jV4Mf190zvVHspd8UPpPXnel6//YrhiaNSzz+9Mo3Ug3hUXhTMzpucTV7ki
9/DN2N26vdRfiys/qM9uKCXGWjQu/mhTubiP+muxK+hG07TzxFVr8a5i5rzz
hr9R3w3y/dtf+hUTww3fn3t1q29OP/Xd4BcruuzyHXGVGy7cenXPbeRb6rtj
5Z61iW3RxHBH2eQxI3qeEse7Q938lpq/7Tvqu+PYZWPpvNPEKuvwfUqKtsXI
99RfB4ftQcbHg4jj18E486ix1RXiqnW4vtkzSu+LAep74MSE3e6BAcTwwBbD
xSEdxcTxHnB6+LziRj9xlQfa9LPq1Zb/Tv310O4MX3NtCzHWY45r34f+S8Tx
61G0V7r3x37iqvWIf7pn3EK9Qep7QqcuOstTQAxPbL6XfN85lTjeEw1qzw11
fiSu8kSHMLP79y7ue6G8fE//k3EfqO+FQVxrebmEON4Lf3iFX1rkTVzlBYcJ
5ZUNscQq3vDcUxzx9Aj3vZG/5ZOn4iz3vXF3cITVoTvc90bwxh5135+5vwGv
D8ift/dyfwMSVprHrR7+B/U3oCclyTR7PHHVBoxMcTw5OItYxQfHFdbnvl5A
DB8kj/g1a7YJ931Q/+BjwyQL7vsgvSjDPMSG+74YmyUW/92e+77QiDzkKHTk
vi8an7a+N3Lmvi9emprePM2s4gfdCVa5jU7c94PmGne7Gw7c98NriVJ1jx33
/TBunE2jwf/8/pioL5Lc5uuDP45E75UHLOW+P771OCVRNeS+P5rfNJld1+F+
APomZApPzeR+AISLPBp+nMj9AExafGjuJHXuB+CCzcKE80P8/xdgq51NVmEf
sZYAlWO35bxt5/shwAEn/TklD4kFAnTs3P6o6S7fXwFGW9mPirtKrBTArOaF
QU4J328BtlUYP3XNJm4VIL3OPPnoAfYH4rz+paKY7ewPxM1UwxcfItgfiO83
/LpO14/9gTi+83TzKCf2B+Ku9c0XyuXsD0T0JPn1t/PZH4hbgb5Pxk5hfyCe
pIW96FVlvxCV/s6rCvroedASYm7cDJMFrfw8CXHwYMDwfbXEAiFG13vb1lzm
50uICbuvnPv1JLFSCJFB6dKBw/y8CXEzI7m8ZwdxqxAfUvsNmyL5+QtC7cQc
cakP+4PwtWjh9B327A/CoYWnLjubsD8IPq+vHp86h/1B+EyyRr99LPuDYHa3
YmL5B14vgjD757S4A53ErUGQu2R8Jm/i9ScYA/MVrQHVxFrBmJp5JNevlNej
YLjG7KiWHicWBMM/Ya3bwSRen4JRiKSw25uIlcHwO51vMSWY/cE421diFr+W
/cGw+f7fmqqW7A/B4/FpggI99ofAI8SzRDid/SFYZfPtFoxkfwiGymYMt3zH
62sILka/qgloI1aGYPTFFcML7vF6GwI7pWr+6H8Qt4ag1uiXjGOlvH6LsH28
xymXbGItEWpy9Wbq7uf1XITCNPPv9LcSC0Q4q5NT6h3OfhHGG+8LLt3AfhHq
nN5PWOjAfhFGZX415ZEp+0WY9rWkp+Qr9ouhDNyqf2Ya+8VIMqpVaxnFfjH2
xsw/v2iQ9h+BGP9c4999sZv3JzGuf9u/UfSYWCnG2W1qEpt/8X4lxsiDn8TO
14hbxXCsVCndeYZYRYIUW0zuyiHWkiD7w9Pizam8H0qw2FF+2DSB/RJc3bT8
X9rR7JcgvX21kaWY/ZI/z3s7YnZ5s1+C1Bn79g84sl+C0tEGu9NXsD8Ux2cV
Lg1ZxP5Q6MwJ9fCfy/5QtPpvvJ8whf2hsHQ4bN+kzv5QDNu+a6fbEO3nylCE
DERd+NDL+30orAsqrerbiVtDseqRekPdI97/w3D6j7jlg7XEWmEYXjPsgUs1
McIw1KHmU1tOLAjDnLaL16KLiePDUGm+4KSdkv1h6Jhy44j1EfaHoadq2zJR
MvvD8NXQx8Rz37A/HILIgIp50ewPR/YYHK4OY384pB/PyHcJ2B+OtmaN4VHr
2R8Omci1d7sT+8ORr1128II1+8Nx1DVzhoYp+8MR5y5LSFnIfikSa1VjTeax
X4rZX3yROKTJfikWlXpUvJrAfin2v3pr9Ic6+6WwVz1WsnAY+6VAUE/Brt/p
/FUlha/0dezHN8StUtxOEKYd7eTzWwQ6t/pWuLYSa0Xgp0Pv7y54yOe5CDy6
v3quTj2xIAJb90pF1nf4fBeBuXtOmG2rIlZGQC84Zaj5B/b/2Q9WveJSxv4I
bDJxiWk7zf5IWPUUlH2Xx/5IfKo87SbJZH8k2lysr3ocZn8kbqUVeATsZ38k
lEtnntqZyP5IfLk4Y/PNb9gfiZZIi7zZceyPxKys9PR0BfujsG2gvOwrKfuj
YF3dkNQYwv4o6Nm7FKcHsD8KgnqtY9He7I+Ctml8T5g7+6OQf9r9UKwz+6PQ
Za83K9uO/VGo83UZbLFivwxN0Y0VBubEGjI0ry3qSl/C1yND6Kwoj2mLiA1l
cC+tji9dwNcnw6WkDAefecSuMnwniI3VnM3XK8MFx1zXvhnEsj99b00Ln0zm
65fhp2fXdR6PI06R4Z24WuPX0TyPDJfrDMPG83n/rAwKh4v3HYbzfDJotaxc
cHSI3g/qZQiT3K/87XfiVhluHmtIDnpL/ObP3xP66LS/IVaRY7ek5VnML8Qa
cgQqP66e0UmsJYeFrk5g3QtiQznGjDngdfgpMeSoSzPJDn1M7CrH1x4aB10e
EAvk6AtJM7C5TyyTo1iyscu2jt9v5LiWu93Lu4Y4RQ6RZmD+5tvESjlU341p
LrpOfFYOK70vezp/5PchOSI/17hqfJXnlyNu0ymTAz/w/HLEJmZ86r/A88vR
8T58QFLG8yugfJ0yvLuE51fAaHpzUkwRz6+A2phIwbiTPL8CcU1qORX5PL8C
goB9W0KVPL8C79bpjdfJ4vkVOP/EUvomg+dX4Pmj8t4bR3l+Bbo/1ZgXHOL5
FXiv6/p2fwrPr4BewoMp3+7n+RUYl59+Mj6Z51dgpUfiiqTd/Zb/AVBIAGk=

           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVlnlYzGsfxifC4aRSZMmbopOolFJk69aGLC0yhdJMNU3TOjNxOISkVNJ6
KslWjq2NKELSSFREJSccSpZja1Ep5IjXe53n23W980/XZ+7r/n2ep2f5jZZn
sJNgEIfD0ZfjcP73999PpwXn/z8oOKh0KCxPm33/E7xD1kxTc7dgrAz7Cc1u
qsvsGY/G3P7wEuHYtYzH4aLDwheKp7wYT8TBfbpNQ2/4M9ZEgGkb3+CWlPFk
6ModWP3H8c2MtRGVvS1rQ+oOxjowyunYx3m2i7EuVhybP3JdbjTj6Xjb8TPX
ZlE8Y31Y3O60fLs+mfEMZLmX8NQmpTE2gm5d6/2hkgzGM/GLsnG8yOcIY2Pc
TumaPyX6KGMTnPFqqDguO854FtxiFRbX+WQzNoWq2ZtBvhH5jM0wV/ft+Jej
zjKejaTKiV2Ck4WM5yDLPufRsagLjM3x0FiRv7v4EuO54ObszN08r5TxPPyz
w2r2zVgZ4/noaJgw+djJcsYLoDhTRe5edwXjhYjdqx0TGlTJ2ALh+c9vrFO/
xRj4bBihVdhX8y+HAdP90y8UytexfBEiiy6N/ftYPcsX4brR6r6nbg0st4Tl
8k0Kd/T+ZLklbAtFjmnKD1huhbyIlsqnwx+x3Aof93MLVNUes9waBXtXiv1M
mlhujf3O2Xjv8ZTlNlA3a55SUtPCchsUiIpnPel4xnJbBNye+lJ/zAuW28Lh
8oakgIUvWb4YZVN0JrmK/mb5YpQ7jxiWl/KK5UuQ61I4TLvsNcuX4NvjDM/w
129YvhSnHD+mpSq8Y/lSrC/OSTQ2aGW5HUp+3ZQ1f0kby+1Q77M8M9utneXL
8Gl6LT9U1MHyZdgmbvp0L/A9y5cjxVbgHTiLnbuw5egeE/nmXR6dwxV4/mpn
r7JmF8tXwHBcmFN6HGPOSminLP5i3Uv5SlQptb5+we1muT3eLy9VdTzHOMwe
0XO4O0KGfWC5A0pcS4rmchnDAfuuW0oyDzMOc0BtX+T+ky2MZQ44OsFgkPvE
HtZ3RKzJfps/HRnDEfGlV1ca7GQc5og7XZpvo3MYyxyxPfqqhspd6juB13nC
43Mr9Z2w6eWRISHyvazvhIbbodpXxjKWOSGtuv03JR3GnFUoeqlllmfIGKtw
9VX0ocZZ1F8F0ZF7po2m1F+Fe3XG2h3G1HeG3ZkLdV761HfG6aARj7dPpr4z
ai5vObl7DPWdcSIbD0uHUH818mos9/l8oPGvRtmJkw/Km2n+q3FOde4/o6po
/qsx91TxoqQzNH8uhp+Jb9qSSn0uUrjy64dtoT4X4umXc4Xu1Oci12FrdrUF
9V3QOLvusJsW9V1QWO4kWjqI+i5Y+Cfn2vnntH4u+JieFFpRTuvvikCNxPS0
o7T+rkiLzv5uF07r7wpukMbWPj71XRFiKu9avIj6a9C9nh+1X4v6a6B247NF
oRz116D1QK15xTO2/2RrYDV8G7f/Gu3Ptfi6r9Ev/ChjrAVvZfXzoF20X9fi
S4PBrgZv6q9F5qXT00psqb8OZjvyB8+YRv11OBValTNTgfrrwBWNKap6z86H
bB1i0q+E9jbQ+XHDsfn8A5cvMoYbFNWUbUcfpvPkhrGGC94MiqC+Gyq2ibIi
/ajvjgdZPRoHHanvjhau4nhLc+q7w/p4avAGLeq7I/3KCJ+ZI6i/HtsKVf03
f2DnHeuRkXa9zKaJ7oP10OPcjNpXyVi2HoJ74hD/c3Q/eKAk76552SHqeyD/
na1FYgz1PWDAPx/1ZCP1PaD8z4JHWZ7U5yFqsNH5JnvGmjzwPq1QiVtAz+Mh
MVRNOU+PMY8HQ5OTb8wn0PN58K7OGm86nHEmDypTnB1Nutj9JuPB/NCenpo6
xi08KPvG7jY7S/cfH6cctqYKkxlr8rGhz7jHfQNj8FGjYVIz2oUxj4/NRmox
UXMZh/Gh+DrhY4EG40w+8hYVc+IGk5+P+V0evepv2f3bwse578Vc11rGHE90
1ouuzb/AWNMTo8qGSCoOMYYnrO/HVHZEMuZ54tLRS6+Lgug+94TOG+PI0a6M
Mz1RNNm+TcmSscwTBrbLsg/rk98T98K3TikdS34v6EvnTRUOJr8X1L7mXs14
z94f8ELTg7Ylzk8Y87zA5Y1sSaxmHOYFzlDFCIdixple6Kgwq4w9zljmBdt+
6U6rFMYtXuheVP8qZBe9n7wxruyl95gQxpremD55a9dUL/J7Q6syYHjuKvJ7
Q2mO7ZYMa/J7435I+dIeU/J7w+j4vvKLU8nvjfBJqwQt48nvjbrxerYiBfIL
oFXVP8bhO3t/agrwbujthJRuxhAgPj9phOkrxjwBLDe2fTP4i963ApjXp+eH
3WWcKUBj+8nU6dcZywSY8/KXEboXGbcI0K+2Ysav+Yw5PlhxLsZs1B/k98GV
mmG1X9PJ74MHCYXLZiWQ3wcRQQ2biiLJ74NkXT3+jlDy+yBusKAvIYT8PvDJ
zPjtuR/5fRAuiGrb6El+IX4x/fWo3VryC3FC2tbk5kR+ISLq+5Vy7MgvxJJn
pwzMrMgvxGcLYU3fPPILMaJf72P3LPILYVFhZaYzg/xCzI7UzkueSn5fbH+8
JN5Ei/y+qKuOOThMnfy+GKfi0a44hvy+0Hml82KxEvl9USpXMr5gOPl9IThR
csRKnvy+GJsVHzvoO/u91OKL+LgDRh199PtJhPTW1Cb5XsaaImjH9StYdzKG
CCd+rhfntTLmiZCo2psw9zXjMBHkd8ya0/GccaYIl8MUrG83M5aJcEGYP7nm
L/KLsNPGVPt9I/n9YFPNm2HaQH4/HDzWw99fS34/2Ebe7lSvIb8fDvvMrC2r
Ir8f1hZ9Kd11g/x+yL3wvN27nPx+qPqabeNVRn4/ZFVduLbzCvn9cXPSE9PL
l8jvD5s9ucsVi8nvj7yHGipbisjvD5Ur7XHfzpLfH9mq2/sOnCG/P44dKC9c
mU9+f9gZDJLTyCW/P2Ye+lLLySZ/APY1vkj6fIL8AdDdc75A/jj5A2B4fdHQ
6X+QPwDvBco+nlnkD8DdMt+vp4+QPwCevTyp4mHyB2DN5DKT7QfJH4C6kcsz
vmaQPxBf8pNW7N1P/kA0z1OXGqWTPxDhzYGWf6eRPxDdXc0quankD8R0pWEu
4SnkD4TzT8K/hL+TPxC+Bf25q5PJH4g7FqX/OCaRPwiWR3I2rkskfxCkrq9S
NiaQPwjqM5YpHYonfxDari2Mro0jfxCMi1ySFIgzg9ARG8Ln7iV/EL7VX9E5
E0v+IJQfVtkympgTjMmecffC95A/GDvMP0d8iSF/MKysmtu3EPOCsVxooz+Y
OCwY7tIEl9+jyR8MnU58nEEsC4ZoT0TP/SjyB8NwR7wonJgjxhaLphYzYmUx
6vriH3btpvGIkaFfOfI8sZEYZ+SqurcTQ4zdVa0TnYgdxEhPCbE3JOaJkXjD
JmYUsfgHpw7u+RJJ4xejSjCjoJU4UYwJY8URzcSZYsTJ6oMeEheIsUc+KmKA
ZWK8u6V5poW4ToyPi+1V24hbxJiZLN30jbhTjA9TRXZqNB6OBArGNiMHxqss
Qc34FROXDMxfgl13r1YJBuYvQc9IW4e4gflLwH1kpHd5YP4S3OuYMunNwPwl
aHuePFqd/r9iCcaZbBfaE4dJUDQlQTeCOFGCmwn6xVeJMyVY8z2lWY7Ws0CC
E43RHOuB9ZXgVtq1p7uJ6yTInndu9R3iFgmq/8P/OIb2S6cEDnKY6EnMkaKp
Kr/7HLGyFLfikjnyA/tRit6W82FcYiMpNg+5YnCaGFI4jjo5XJ72s4MUVdui
c92IeT+eX2mec5lYLMW00lO94+h8hEkxvD2tcSNx4o9+rt6uOuJMKYrPCj/p
0fkqkOJayJu8PcQyKZzdNr59+4P/Cy8//wE=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVl3lQU+caxoOIG1bxCmqLCyBKpeoFAbciPsgqtOyySIQEkhC2kISCIlyI
aAUU1FaqUJVGFCuKXFFbsbQaqVUqLogbVNEoQnEFl+KGenvH970zN/9kfvPM
c37zzjnnO99nGZMSJO0nEAimGggE//1//+uZL/j/H74zHnhettrm2HschKJg
iXf/j22JTbDM94TMbYcxsSnuTHmW93jIDLrOGGR7TNl1fbYP8VjEl36hNneN
ILZA5ET1PwfvlxBbofCA3OXMSwWxNaa+0Zyybk8jngzRfeM9sh//RfwxLjqF
JBVuXElsiz9/jMiWOxUQT4Xg3KzrqTfXE0+HakjfgdrWjcR2aHxVIvs8sYTY
HsotVjOdj2wjnoHM8uY1iQ+2EzvgdnnXyIPKCmJHKJqaD5qkVxI7oVn/KEE+
uJp4Jta0HzebtbWGeBZM/Dz6pecfIp4N67xE+5ymw8RzcKhs9uyVmXXEc5Gb
7ZKTu+EY8aeomuW8ysa4ntgZXnZWw2sKThDPw+cfCt7c8TxF7IKW9s2Z+R6n
iefDL37elTd5Z4mBLf5ZBuPym96zBkBGv3kdKc2Uu8LleF7i5cxLlLtiv/QT
E9uqK5QvwED7KO9zglbKF6DK4mJxVMY1yt3QN+zuYQuzG5S7YWJto++qeD3l
7tBscOlsa7lFuTtW57kKToe1U+6BFuHz274ddyj3wFbzL+d6ajop98SXg37/
NNumi3JPlDcdMNzcepdyL3ibXr4/9pv7lHvBYp5XS374Q8q9sUkx/JarVTfl
3ljuU/4ucBm/BwuRXz3CxlD8mPKFaFjeeUno84RyH8y8Obkvz+Ep5T6oP/D4
5/3mzyj3xXjTpaeN+v1FuS/cszoWHO0gFnyGPwpfjBt9spfyzzBs3Q+/Lip/
TvnneGT9ZH1jxgvKP0dy7k5c8n1JuR+6lxqXXh39inI/vNlbUebdRizwB8Tn
nfdseU25P4rbBN8UBfVRHoDsM4N+22Dw5j0jAJFTit1Eu4k1AThVWbjiR8+3
71kXAPcTp6qE14kFgThxpEc9Jf4d9QOx9uGnUoOHxJpAJI6x73/fQYD3/UDc
9TevaE4iFgQhbvZtkfN2YgRhwtrvtjhcINYEIaJoXEFDH/eDINXarh1ubUD9
YAyr2J1n6UWMYNSn+QeNlRFrgnFumNlryxXEumCcHeb0clEJ90NgWNLec2Mv
90OwKqSlqLOO+yGYHjI8v6SB+3/nP/xw1qKZ+4uQMzq0sKqF+4sQPNXyw4Tr
3F+E0TtO9+a1cX8Rjvx+ptaRc0EopBLX5WX/64dCbZ404SlfXxOKcxPrzaIa
uR+Ktu49OYPruR+GoetWb5lwmPth8Fb4WTXs4X4Y/vzWYcyUbdwPQ3mI8ynZ
Ou6Ho2FJqNHObO6H48Kf35r3U3A/HLJ9fi/KhNwPh1vPgNxNPtyPwI5pzUGG
s7kfgbEyefhbvj+aCGz8zsQxdwT3I+C/7YR27xu+/4shmRo9qvgu3//FaO6a
Whh0me//Yphatk59peP7vxgDnE4kbqnifiS2fvXRHfcS7kfC1qgq1HAV9yMx
PjMn41YK9yNx+qrRna5I7gsx6P76QCtv7gtxPqtVtdGR+0JYvrwWvsCS+0Lc
WJrz0GEY95fgH5dPTWzt5ed/CVbUKSLbLvDzvwSfdGH7sn3EuiX4bU/lH9UF
xIIozOlLvrJSxv0oVBlsyn3hxv0ojCuynT7MivtR8PxLM/c3AfejMbDhSfo4
Pb2PiIbXQcdeMx2xJhqdbkOP7tPy+xuNByt+9Wtfwe+vCPvrMncciiW2EKHr
6i6jCfy+Q4RPF26+OH4KsUgEg4uD7Q8M5euLkJKbprvSQ+uFVgRv41XC/MvE
OhGGTCtac+InYr0IvoMy5AVaYoEY+8yqlzevJrYQw/BSquW2ZF6PxEgfcPJ2
RwixSIxth9Z6VTrz+iTGwP4Zxe3W7BfDNdg3+qsP2C/Gsq9T6vf30nqnF+Pb
OA8zFz2vfzFIve6odTpNbBEDrznV5zceIkYMMg3ql4V+RyyKwdGWrMyMNcSa
GDRduWP9Ko1YG4OCyD/Sr4qJdTGIVHSZfeDH/hjEKYpMSuayPxbpK5K90mzY
Hwtxea+o3JT9sZAsEawf24/9sbgosVl4q5vX81hkxC4Y3d1GrI2FcZnbpAVn
iHWxcPHWerT+RKyPxS/jWp7UVBILJDgZ/jC4oYTYQoL8mvlPP8onhgSv1zfL
dy8lFkkw6vklO0Uc+yUYERCRkxDGfgmyRIelW73YL4HxuKhUwWz2S6B529pR
/DH7pbBxNSgO+5D9Ugw9uE/sNYT9UmR5TroV85q+ZyIpzv6y1GT3A/7eSTFR
U1Y46gaxVopsx3M3qs4T66S4N6Z3cvxxYr0Usy/01C08yN9HGdxtlds+qyC2
kCG4LTZYvZkYMhTldbfUFrBfhrHRWavHZ7FfhnT7o1k7FOyXYejdNds9xOyX
oWXtAgvDEPbLcG++5ZBrnuyPg+GR5b1n5rA/DrWSCzOvTmV/HFqetSS9mMD+
OExTH1luP5L9cQj88GdtzgD2x2FV7f0Dt17S/kAXh/G/9Z4Nf0isj4Ov/lLe
HT3vH+QIdp8/YeUlYgs5bCfNuOHQQAw5mu6UF/bWEYvk+LXxter0v4k1clhb
Tyuq3kGslaPlQY/b9s3sl0Pp4e5Wvpb9ctQcvXe8Jof98XDrTDY5n8r+eNgJ
P5j+Mo798YicnzvFTsj+eOS4PjmsDmB/PFYdDSrWubM/HrbfH3v+0Rz2x8Oq
2WCkZhr74xGxaf30bkv2J6DilUmafBT7E7BSt27yvSHsT8Dtl69Nv3hH+y9R
ApzktVYDn/F+LAEd/Y2flHcRaxNgXZ22wbONWJeA7+f93v74ArE+AUEFQb0V
J4kFibgdeqBRVEdskYjzlW+uWe0nRiIcOuIb7u1kfyKEMUsaakvZn4iRVWu6
CtexPxGtuwo7pSvZn4g0Nzsnz2XsT8SLs7N6bJPZnwTrxq0K0xj2J2FkZKO6
Xxj7kzA86XFNry/7k2AoLXDvBvuTILvXXvDAif1JCJ4/eMwjW/YnIWXCyEFP
J7A/CdFd2XtfmbI/GTvPll4wGsL+ZETHifeYvaP9L5Ih98qynPKMWJSMn8Y/
kOAusSYZ3ze1Hom8QaxNxmu/J5bLLxLrkuE4au2y0gZifTKenpRW1P3C+2sF
5hj94K0/QGyhgNu6If8etJv9Cpx49Um3wzb2K+DSaO8h/pr9CtzqrV6xIY/9
CqQZeifWZ7FfgZ1bJz16rmK/Auan9qjt4tifAv35kksJQvanYNRQP+vvA9mf
grqftJM6PNmfgquPlq20dmZ/CnzLip2l9uxPgU3VgM27J7M/BWts0+SPzNn/
9/VyU884jWC/ErlG/UuzBxCbKFFWmF7W8JrOIxZKJM9VZpk+JrZT4tXeh8fE
ncRQovSiNqbmGnGAEj5vt900vEAsUsL/YPiOMD7fKJVIdxmQuK+OzztKuNlW
CI1qiDcocfx6fPWSXcRaJXzXpxrVbiHer8RAQ80M06+IdUqce+zQL3U1cZMS
amF9R3MmsV4JUXTQNCcVcY8Suhjz1FIZsUCF0piNk99GEpuoEFXdeTMmkOdX
YebwhEG/e/L8KggD/rlnhjPPr8LQjX/kldnz/CrcfFznaGzD86vg0+dnuHws
z69C6G6N7u4Inl+F07OyDRYP5PlVcP9SsutMH50PtSoMOJf7dMET4v0qFDZV
HjvyJ7FOhcARRv+ybyNuUmFFX9rHe5uJ9SrUHG9ZPLmBuEeFyrDIsh2/8PlT
jfCAjNyJB4lN1LjXJPhq525iCzXSyq7Z2pQR26kxom/aj1UbiaGG3aN9rTMK
iAPU8PH/xLwum1ikxtLKq+s9vyBWqlHUkbnlYjyfh/++ftq9deJo4g1qJBRO
f9MdwvOrsWlD9LUcH55fjcISodU/wPOrceRnf4NdTn/N/w+ou83h
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxV13tYzPkeB/DJRtbmaDe3QtoirC4IFbbeEtJNN9NNmZpmmu4zU6xcql1q
3UtCWjGbS7k8uthNKozr6aSTsm4bMQm1SSUcjkpnz7Ofz3meM//M83o+8573
7/t7ftevw+K9JYMEAoG5lkDw3++/Pt0Ogv//IL7qG78TBjMv/cWhCNAU+Glj
BlkPqdlaH/adPGv/l0di3pRs4bVqe/qfsVg3esDd+Z43eTxchlhPEFaJyMYY
yD52+PuXkWQTTGrU0b6boSRPQltCTWvm0iSyGTKvR2/MVqWSp0L36NFDwd5p
5G8gOp96ZPGtbWRzzKrc3JeXk0m2xMNL3u2zXbLJMxCWMrOrbnsOeSZqTZfX
nIrLI89C9vbdbaXf/0y2hsVSrYSJZ46SZ+PKd3uNkpYUkudg59HQbHff0+S5
EDdtHKSRF5NtYGU0Y7ZdXynZFr3JzbO1Gn4l2+GK7LhU6205eR5aWnun7Iis
Is/H7TC7yzcN1eQF2DXofmK1xRXytzDc8SHbPP4a2R4vwtNUhpobZAeMNZA0
Lfz+H2TA0PD1ycfetX85FXhk5/Gg3vcWzRfCxr4u2npRA80X4qvlDVaOb27T
3BHfjb479OL5OzR3hLdzX1HW3ns0X4RH7pM10rQHNF+E+rSBnMIfG2nuhImb
u3uycx/R3AmFsoriBVWPab4Y+bKAEd+u1tB8MToy7ZPSdzfTfAnEFk0+9SVP
ab4EVZZzrjXdaaH5UnQOm5sX/+9nNF8K3egnoiVGL2juDNWXB+5/7dhKc2e0
6amWV4vbaL4MIa1pQt0f/qD5MqgaH/39xk/tNHeBUtpw53HRS5q7YI2eYIrH
hQ6au0K4OMBh3NVXNHdFda24JULdSXM3SOcED5b80kVzN7SMUQw3X87noTv0
V15Hw0VyqjsSJl7NfTT1Nc09cGh+RI3+TnKqB76/+sPqxS95vhz1B6Xeyxf1
0Hw55ky9YWq4lyzwRKP7Yav9GjI8UXNi9bvLk9/Q7z0xLULH+HA4We0J6YQd
vt/mkQVeqGm/NFB6iwwvdE69+9yoj/NeGD/q19PHTd5S3gvCLFfbNYvIAm8o
x3youxhChjfe2oaeOp9ITvVG77Luovw0znujsGWG97ndnPdBjyQkzvYA532Q
YyF7HX2Q8z5Qvln179yfOO8D7eptOsP2c94X4+vCagd2cd4Xpyf2GFzfxHlf
7Bi+QZS/mvO+mLY2cvjDcM6v+PMEmtld4sX5Fbi4btGGyAWcXwEzx19WLZzM
+T/tduHdGl3OC7Hfp0To1MP7TwiHTeE3m+/x/hNiwGNVYUoF738hAs2v/c31
f/vfD12TfpMrUzjvB7XSYN+EUM77Qb8r8r3ckfN+wPtvdXaZct4fsx6XI1ub
8/7IGB3QrXrOx4s/dj85pltzg6z2R3XyqF6TQj5+ApCeJL5wcSsfPwFYMrx7
x5lozgegw1i154w75wOgMDuW3WnF+UBk3bFszvyK84HwCY00KXrHx3Mg5hU/
He//O1kdiCcuc/dkX+DjOwifpElZUflkBOFQbmdW04+cD8IXmwZ93hnL+SAU
Jt3FQV/Or8Tcsq0NbfM5vxLyBcHt/zTl/EocODhijIsu51finsmKY4Hv+PwM
hq9TRHr/YzKC0bmxp9L8H3y+BmNnwIJtLWfJ6mAsmdRQanSY8yE4t32M3aNt
nA9BqfrWx9HfcT4Efbni2zfFnA/B1pvbbd57cn4V3n5dUbHXnvOrcNHT4+QR
c86vwpl5fUOMxnF+FdoXzjmiNYzzIrhU7LLZ10PXH2MRfvA4bvKqgQwRNrwf
WvaphCwS4dIk18+qs/h6JULM+6nlTolklQi71474OVpIVovQdzhBYWdH1oiQ
Udy57/R4siAU7g5vCyoF3B8Kb52u4+LndH1EKNYY/dR7qIYsCkWnulUiKyan
hiIz1tqgYh9ZFYrVtckpGRvJ6lBYWqYnt4WTNaEwrEi2vuTG198wrJVktA2f
QzYOwy6Dbw7cmsD9YYj5YJX8mQ73h+FYx2dZ+d18PQ/Db7EWa082klVh6P/N
K3XCdbI6DJnjSy3fFJE1YQg+Oq53yk9kgRhddaLac+lkYzG2Peu6q1KSIcZ1
4dVjT0LIIjGqh67PULhyvxibZSaNQlvuF6PdeLDflsncL8aDFWk2OvrcL4b9
DVftegH3h8PM5WDKw066XxmHo392nO43TWSE4xeM3V95kywKR3DhXv8dFeTU
cBgdKavNPUFWhWNX+pcXWnPI6nCEjH1rELOFrAnHtvqg9WZr+f4ogax626iR
Mu6XwMSsaOYcf+6XoKT1l9ItztwvwcaP8twv7LhfgqoNi69cmsb9EnSGJtsc
MeR+CdbpoLH0C+6X4GNK+aqOPrpfC6Q4tNR1p1sn2ViKdYKo8vtPyJDC3L3h
8tYGskiKvIaqoaKrfL+Xwixi9sLgX8kqKdLjHP/YUEBWS7FvVG9t5QGyRorc
6lF7DXZwfwTKph2y3p/M/RGILRu3YaaC+yOwK6ht9Qsx90dg0vDq6xVC7o9A
z8s3yQXLuD8Cjk/iHU8t4P4IlPqmuN+04v4/+174rNAx5X4ZqkeK9YNGc78M
L4cUPbz+OffLENB0P9i5n553RDL43/9ie3M3OVWGg17vtmQ8I6tkqF/k1Orx
gKyW4fFgL2/jWrJGBlnoyXOD1fz8FImEgdMd/WfJxpF4arW7Y0ghGZHIas/u
/fog90cipufsGLdM7o/EmZ/7c9I2c38kWvbc/Xh7LfdHotlsYLhVLPdHwuFB
ZV5OKPdHwUO+wvBLIfdHYWqRanC2C/dHofGC9SgTB+6PgtO7Kw0Xrbk/Ckb/
ehAXOZX7o5C8of+HiRO4Pwpm8z/GNn/J/VGYVRNSUTqE+6NRZ9iesrOXni+N
o9Gvn/kyoZuMaDTN2BwU9pwsisaHcwNegY38PBoNWW140spbZFU0koSnkyXX
yOpoGFYe9tp4nqyJhmpn/vvcM2RBDDY1FPqrj3B/DMrnfnJ4lcP9MUhMsDWY
sov7Y1DzWV1TxCbuj8GH/slTStZyfwzsvOTdWnHcH4Mz/a1/+Im5PwapD2dU
lPhzfyxO+k9P/cqD+2Nx/8Le3zcu4v5YJMx0suy25f5YSH2LpkdZcn8stILe
53WYcn8sBLbvkhMNuD8W804PftX7N+6PRceVzJKt2twfh2q35rLxH+l53zgO
yYExr8q7yIjDoGcWFkHPyaI4ZPpeWaL1kJwah/L11SNO1ZNVcbiTaWcSdIOs
jsOwa2LdkVVkTRyuNXdt+62E3y/iMfboq2n7Crg/HjYNK9NW5nF/PI4Xxc4y
28P98Vgvcd7cs4X741H/1P/25WTuj4eJ3h69nETuj0dVwCBhYhT3x+O8OqjG
R8T9cqTWBZrPFZL15LD3Cpk+zo23Rw69ObZ3tR3JM+R4+iq+4rUNb58cHwsy
bj6zIHvKse5m5OdPTHl75Zjlt8nvoQFZLkdZx2LrRyN4++XwFVp1NQ8mZ8rR
7f6rZWsvvY+p5Pj0WhP/+jW5WA5l5ZnnA61ktRyDsquvjXxMrpdj0gY33el3
yBo5TII+f7Wkhtwth42X0zOpmixQoM3p8vL0MrKeAnuHjjl19DTZWIFPK+wq
b+STZyjwxOiEfU8OGQo4J3ekmGSQPRWY3XB8gk8aWaRA3YiX0VvWk+UKvDCc
VnBRwe+bChSHZ/W8jSBnKpD3Pt96ZgivX4FOZGxZ48vrV+Bp0vbKChdevwKL
60pvD4DXr8D8gr/3O9vw+hWo6btyO9uC169Auaat5Zkpr1+J4w1pGfMMef1K
uCbWGu3W4/UrYb35nlb7EF6/EmunbwxY1k/vz1Di9xcBpQVvyJ5KaEv9Jwxr
J4uUME3XT0nQkOVK6G8pTHx8j5yqxNStHfOX/ZOcqUT+oKP6Z6+SVUq0nLDw
nFhBLlZi2ImUssxislqJkc/KJdoFLxz+A/4ACeY=
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVlXk4lHsfxkdSKidR0fLWQVIpKSWdcrhTSSnr0FgbM2bsY2acFm3mIMtJ
RxRaRRulPWlDWkTatAhR1vbipCiUXu91ft+u651/5vrMPffzee7nmQddQaiT
qA+Hw5mixOH87/3f1z+WnP9/IX60s8BmpzH7XBVp5yNjv9ydz3gIhDP17L0i
nBgPg6zMQMk02IvxCMStOzBeslLE+D/QCT7T9vfuEMY68Eg9Ym+ZFcZYD7uS
/r7qxQ9nrI+orsaEOjUFYwMYjoyySeqKYjwRk//RixudEMfYEDHPkyqqK7cw
noLLO/rsPtaVxHgqFF49QX4RKYynYaiSafSHuJ2Mp6Om2iizRD+dsQm2cZ5t
STidyXgGuiuOHI09epDxTFw8eOd8gko2Y1Msu+XyoeF2DuNZuCvhH1JXPsXY
DAndByUXvM8wno3Vwb/uSPuey/g3ZKf0D+/TfJ7xHLS9X398gdZlxnPR/Ud5
f7cdhYzNkew6PZVjdpXx79APzJ7JW3adsQVmlfAv79lazNgSHZYHWj8plTIG
+t6Yq+W6v+xfVgC1Qm6Blfwuy+fh+CvR9x+zy1k+DxbWVTpHyx+w3AqzDOs0
KiIesdwKv1/XM+lYWMHy+dBITz/noFfJ8vlQv7HuSsfQapYvgNjxlFvpyBqW
L0DxowdJfJNnLF8Ik0ZvazPPOpYvRJ9285p7ZfUst4ba4n6Rji0NLLfGW7lu
6j7tJpYvwvgfPTOzFjazfBEmi3QE1qtfsNwGs597DOLmvGS5DUbPTFQ5XP+K
5YuhI5xjoqr1huWLsTTp/XabJW9ZvgQWycOjzNe/Y/kSDN42L+Di0fcst4Wa
cl73kccfWG4Lk356Bd+/trB8Kd7mnZa7DWLPnWIpxv9x+6o0lZ7DZXigaRbL
G/OR5cswrSV90sl9jDl2EAzIWDt6TBvL7cA/oXbRJYUxxx62K1Ws9VQ/sdwe
Yc2JHPuVjDkO6Lo53CmvljEccFVwXNfC4jP7vgO266+fX72TcZED4g6NKYpu
ZcxxRN0tjwYby3bWd0SK7QuRWTxjhSNaQnwfB95lXOSI00Wpq1TUOljfCb6q
TVdnLmQMJxjebLM0DGescELXuKeeo7IZFzlhQ4Nlk8VD6jvjx8YMTvUX6jvD
JLV799SRX1jfGZoHTBYqZjEucoZzwHBrTQfGHC4ydDdxp4gZg4svM/qYaIVT
n4szTxofacRTn4uE2/LJPqnUd8GQxkA360zqu8D3wfcEzlHqu+CG5sB9d05R
3wUmroLXTeeo74q2SN7IjRep74rrGZF7bl2mviuMHncXfMynvitevTw6Ub+A
+svRd7N5cwzlWI4JO+XZ5j/7y9Hyyt5URMcvWo5HL5vSxp6nPg93vx6sis6l
Pg+D0+4V55ymPg+ZqaWvDp6gPg8lfsvVInOo74auso9rnLOp7wZ/ha5x8UHq
u+F6m5nBELo+RW6Izt4X77GX+u44N6v/yus7qe+O97oHOlzp+ircEewww2vs
Nuq7wyHllO2vW6nvAVX75heeW6jvgeL8i06Vf1HfA76JRzQS46jvgc+Rtr6b
YqjvifKHGutzo6nvCcs/Hg7+TxT1PXHofu6eS39S3xNCmz/TEhXU90I/N5vh
qRHU98KVeSG1ZRup74Xa7XPjpxAXeYHH+3365Q3U94Z7v1XcMGJ4I7tmSZkz
scIbNkqPv7oTF3ljIvebT+zP/gpskC+ZU/mzvwKF2bbrF//0r8AI1w3NtT/9
K3B2YdnbRDpfDh8jnvJW8mmPDh+XJFoxtrQXfEj8jpx0jGTM5yOiJHm//Of1
4eOi+7hFOXT9MviIPlh6v3sT+fhQNFgvFcUyrudjde4V92a6HxwflJR0GIXT
/dLxAefzyTC9BPL7wHqsUZ86ur98H5x7WsA7nkh+H2z5TWdXQhL5fRDhvtNp
48/fiw9SjJuLFSnk90FBCNcuOY38AiiU7Q6cpt+fTi9rnyuu201+ATQLc2eN
Sie/AAbV41R8MsgvwNrz+Zfy9pNfAIfOy43ah8gvQNag+JtRWeQXINpIg9d5
hPxC9Dmsfm3NMfILMWyBvbnSSfILEdexWZBMzyNf2Ht/7FYY0fOqEOKdVabV
/TzyC7FxrV1O+M/nXYimgHPpk+nvQ70QsR+GazcWkt8Xah46M9Kvkt8Xq/gm
hfwb5PfFUVnj6okl5PfFle26ru23yO+LW+/cIkvvkN8X95v0G9Pvk98X388r
ha55SH5fbDj2yZ1bQX4RDMofh8+oIr8IvL52D4fXkF+E4kFjhV3PyC/CKA/e
lcZ68ovgeP+88F4T+UVQdhk2Of8l+UXYzdsgzHlDfhFy1tVV73pPfjHe2/fj
b2klvxivuZtm/NlGfjH6vy0UrmwnvxjVpcmPgr6SX4wG7pcoQTf5xagv72fM
6yG/GLgtGLZM6Svzi9Ek1h5l1Zcxxw/dhpqtpv0Z6/gh39z89YSBjOGH1MWv
Kkb9wpjvh/roWR6DhjBW+CFAvWZEpybjDD+Ue8cYvBrOuMgP5qYqeytGkN8P
FatC1l0bTX5/HG7pOXF8LPn9MWPiuqo0XfL7Y/6AftkKffL7I0qUIfCbQH5/
ZAeuWLvEkPz+CI/J3GJoRH5/xFmp1qhOI78/CpMndDabkD8AwdoavxSakj8A
Z0vnt2+fTf4A7O4ysvOfS/4ADLafEz7bgvwBqHDK6uo/j/wB2KzeYvF4PvkD
wDVY/nCPNfkD4PbUJ1OwmPyBSBW6rh+3lPyB0G5X/1hnR/5AjNAQ9ux0JH8g
1LJaXR255A9Egdyzqu9y8gfidUjbk1w38gfiycAli4Se5A9EzwFH419WkD8I
+cYXH571IX8Qjt7lB7v4kj8II+w/vmwTkz8Ikz7syUsIIH8QPr9U+V03mPxB
uNAz6XSuhPxB4O38a52VjPxBODd62oXbYeQPRk3Ja1+HVeQPRn+9d4JHa8gf
jCzVK5mO68gfjKg2M7U7G8gfDGNDY2MrBfmDYe0rbj0TSf5g8Aam5o7ZRP5g
dEqGmUTHkj8EA+POOr6OJ38IuGJXK5sE8oegLTE0+ODf5A8Bz65g4fet5A/B
3LWXlzluI38IbjpXp+xNIX8IxG3c3Bdp5A+B8l9HDCbtIr8EJjMF3wL2kF+C
a+339xxOJ78E4rwzHc8yyC9BjOxz3yEHyC/Bog4VQ4tD5JdgcOzzSwFZ5JfA
StNuW9IR8ktQu1Kl+2wO+UOhuVvL6cFx8odi6iM36ZuT5A/FlYZhat9Okz8U
h/u+WzEgl/yhmLjj2pqheeQPhWvD7caRF8gfCquJUpPRl8jfe7zDMU7a+eSX
wsH43fjBhYyHSKF1svgqp4jOR4q7qkHylquMp0kxVV6bX3Wdzk+KHQaX9IuK
GTtIcSK1TGt/CZ2vFLkprg0RtxhLpVD1kuS63abz7+2fq26ccpfxVil6Pj2e
9+0e7ZHCuvNNSEk541NSIDc9LvEh7ZMiNH6ButNjxuVS5C+ZO0njCe2Vov5w
rdadSsb/SHFH132zopr2y5C9LpY7tYb2yxARdu1FZS3tl+FCcque4jntl+FR
5t4s/XraL0PVvVHW1xtovwxjLZ+YejfRfhnijrWmfWqm/TLUVpkNiHpJ+2Ww
6LcmVv017Zdh327Bvl1vaL8MTja7pv/6jvb3nk9YlkP6e9ovw947or0jW2i/
DPEpBuKtrbS/9/vdGuHKH2m/rPf/U2NMWBvtl8M5ZJrZ80+0X472t2tsF7TT
fjmmDz1QmdVB++VIzlA3UPlK++VYK6ks9e6k/XJwTzZNz+ui/XIobPqeUf1G
++Vw36sU5vKd9ssxO0JZd08P7ZejY5VE8vwH7ZejQsWxcIxSJ9vfe/zfbPfz
+jAu6j2e9qoNScqdlv8FDFAIzw==
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxV13lUzfkfx/FrySRpIhKiYhATlbQYS6+0S/u+37q35bbde6NlSHNTlik1
UVPIkhASUmnwk26TiJ8S2Uq4SkRKWbNM8+t35vP+nfPrH+fRu1dP33vO1zm0
goUuISM5HI7OCA7nv3/+89Vvyvn/L/T712qXv9Rn35fHns/H8ucus2JWRvjG
c2oDBW7MkxC6VbvU1IbLrAbfg7Xc/fvCmNVR1/Wn0c9GImZNcHddahsvjGOe
Bc+V418F5Wxg/gHlRz9XavNSmOfCat4b66u/b2bWxu24zSdEcenMC8Dt3Dzl
pWI2sw6qDgcEtNrnMC9CjNHbQadx+cx6iJmY3/jCrYBZH+0mcX86qBcyL0Z8
r+Tdsc4iZgPIWj/4JY4tZl6CbYvHvTbMO85siJhtfS2bck4yG8HuglHKZLkz
zMbQuamn1ZhSwWwC6wQDv3KLKualGNsgaJrncp75JygFGq5PPXWReRniuRre
TxZJmZfjWb5MdE3/T+YVyHLU8TwTdJl5JUpbFT731VxhNgX3zqrWbPtrzMDb
kiNj4sfd+McSILW9/eng5yZ2N0NSVVDgXsVb7G6GjQ0/GoRU3mb3VUiSdqkN
rL3D7qtQNFn/ze+r77G7OWarzImIM37A7ua4coufkry0jd0t8OrUIdcox3Z2
t8DgQev7ZQmP2d0S5Wv7H9t7ydjdEqMlEdN/THrK7laYq69XH1Tcwe5WWL3+
06LWu53sbo2z107ERY7tYndrpNdNaewwfc7uNuAdtTg+KvEFu9ug5uwcm5yy
bna3xSiNqa723S/Z3Rbde8akD8zoYffVUP8k9bB1es3uqzH3d7WVGsm97G6H
DAH3ukdxH7vb4bqWuWXr1Tfsvgbl/kbiZhF77yRrsPaLzq/Bn+k9tIea6Pwk
440D7G4P/w+vvvR+ZeY4oC0zTU8v7i27O+DqslOy893MHEf4P9s/x83jHbs7
wr0n7cOtamaOEz5+aMlX0Xj/j+EEowmfA+TWM0ucID9x94qDTczS4Z+Xt9vX
o/6B7Z0R5+W44z2fGc6oMpDW3y1mljjj1Ayr2jMdzFJnNH/5drlc7SPbuyDL
6kylki0zXND+tvLb0FpmiQscyj751uxmlrpAd9uT+9kXaO+Kqq4Tihfv0d4V
BVuCNLL6aO8K+0dHufYjP7G9K0q8FJ6ZT2TmuEHhfLRWzUxmDHtZ8kxFbWaJ
G6oeF3WJFtHeDfy0BY4Gi2nvji+3vVfsNqC9O9ZeEyh30V3iDtfW6mgPPdoP
2zDiq7YO7T0wWSj8NW8u7T2Qed9e1KRBew9kz66+/G0K7T3Q8Mw2y+l72nti
U9oF83452nviqbDh8dBXen5PCOv+wN4B+vw88bOK/MHnz+nz88Ixuay5Xx7S
5+cFjsXQ/ZfNtPdCUVn7tiv1tPfCTNuW0wf/9/l7I7tuvmnGadp7I3Ha5kNa
h2nvjUV5xQ7Fu2jvjUvjbudbZNLeB1xuUdi0TbT3wcSW8WlGCbT3QXdGmG5h
FO194LZoXb9vMO19IXokrIv0or0vclr9fm1yoL0vmlbduZ1qSXtfGDpqYfty
2vsha7RxpsyA9n7gVMrkJD/S3g8m2i8Ohc+mvR/k+k237J5Oe3/sCnaUKU6i
vT8arF58vKRIe3/4nw03OCVHe38YNRsfaxui9ycALqrXbTBI708AzDdo1D0a
oPcnAGMyb5ie6aH3JwArzTW+O99F+0DotY8Z++4J7QPxYF2EWkAb7QNx0iux
evAO7QPB183Sr71Jey70klconL3OrMnFQ9UJsuZ6+n1cJGt48ybXMnO5UP1N
U2/TRfr9XCy5MKJC5RxzIRevxXfnXK+gHheJy2zKik8zy7hQLFAJOHKC+kEY
mWHGu3KU+kHYmTxTV/4w9Yd91IgnKKR+EG5EJaJ7L/WDcDHvYX3qbuoHobio
9uSKPOoHoX7ocqdKDvWDEMLrTBydTf1g7NjZ+mZ8JvWDYWPtHKafTv1gjLAc
eB+5lfrBWMeLOlKdRv1gqO1VcZi/ifrBsDN59LDkF+oH49jAm3izjdQPRtuT
B50966nPQ3KCmn1JIvV5OD97e+2GeOrzECXfUBe4jvo8DMmadnvGUp8HZfWZ
LYEi6vPgq9Btvj6G+jzk2nefOxJFfR7OiBoqHkdQn4+MJxLJXAH1+Zg+9fCX
jWHU5yPBsaawM4T6fCxR9fb1pH/vJXyI+1ZEtwVTn49l6t6GgiDq8/FN/bvS
UVzq8zFG0frpsQDqh0Btx2Cttz/1Q1C5YKWVqh/1QyB2OWnyyIf6Ibh3aIF3
mTf1Q4DXlwazvKgfgiChc1WCJ/WHf1/ckmqBB/VDMPpB+HGeO/VDYTvC7VS4
G/VDodQhPB3vSv1QdGu9/227C/VDkXnkRUypM/VDIZ1p8qbFifqh0G8q3jWC
LA1Fn934s4aO1A/FkvtmFmIH6ofhjqHfH+X21A+D1sS3Vp/XUD8MdVs7Z9mQ
uWHY03DUt8CO+mEY0gnd+nY19cMgnOy9wJksDYPUzNb8D1vqh0G3yVg8i8wJ
h2ZRxq6dNtQPR+2q78PlyQjHLt0l8anW1A9H3vHfOkaSJeHo66vrSLOifjjW
uJboKpCl4chunLko15L64Vg3I9dtFpkjwPxit30VFtQXoFlj+982ZAjAD4x4
IDOnvgAJNy1zN5AlAlQ9+TJGnVwoQM77gz/UrKK+AM9Vp4fyyTIB3s0wuKdI
5kTg+t+5r8+aUT8CSl85zlwyIiAynWqpROZGwHn1Xz41oH4Edv7LxySWXBgB
dfcbxvPI0giUKd/cJjOlfgTSbsqf3kPmRCIzsXSGJ1kzcvj/UxeuqJARiXVa
P52/tZL6kTgU+VG8gyyJRNPGpUrO5MJITHv7wWcyWRqJreNzvz5YQf1I/JRy
b/k+MicKmbdypwSTNaMgCHz37wVkROG7Kwo175ZTPwrxCyu+VZMlUbDbnDK4
jVwYhdY74yJdydIoBCoLStTJsihIlfaXPF9G/Wj0tgszKsia0Rj/1yjNFDKi
YdX78L4jmRsNHf69hZpkSTTaFcsC+n+ifjRKPXdMriZLo1GYcm5jOlkWjWnW
I955kjkxmOj3rm4eWTMGrxrWyg0upX4M0kN1fr5K5g7//LZn0/LIkhjAsycp
hFwYg9yujEnGZGkM0pKKNo4ly2IgV997vs2E+kJkJCQvP0HWFML6SfO99WQI
8SWrx8CWzBWiY7dNnipZIkRa1Q2HLmPqC3FaJ6SukiwV4txCH5tUskyIzBmF
9U5kjgi6qQpTZ5CVRdg5amXSSyP6+4igsf2C6lmyngirWmz2p5AhQuIEfp4j
2UmEqZ+e/zWdzBXhXr6NZ7chs0iErLt3myvJEhEu1XS4J5OzRSid0rrQhlwo
wiTB/AcTyGUiXH24Jbd9CT2fCF1J+XFHyM0idPtN+xBDlong21A+34TcL0KS
hrtwyICeX4yRX0v31JKVxVBK2/JLGllTjEM92l6ryXpiNIUutFImQ4wanxtX
WhbT84tx+cCpiHwyV4x0ccFob7JIjE0f/earkSViXHdWsnqgT88vRuPsrjEF
5EIxSnq9E33IZWJ8M019PoUsFSNksYfuXT16fjEW1j7esIMsE6PTWnbGntwv
hvzaTVkKZE4sGqMLPOp16flj0ZGW1ptM1ozFhY6Kk0vJerFotQi2HVhEzx8L
lX3pF4+RnWJhkpB4IIjMjUVU2eJGNbIoFrP2TvVsXEjPH4v9ByQvksnZsXiW
4xGnSy6MRcCNjnSZDj1/LCZ+3xSbTZbGQs30gMxs2P8BFkLeGg==
           "]]}, 
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], Thickness[Large], 
          LineBox[CompressedData["
1:eJxdWHd8jOkWHnWVRVhtFz+jLlaJ3uUhStREpEiTyUx6Jpni6m1yrd6iX9Yy
V++ib6IN1yLXsliuuozVSwirrl32ez/P+cP1j9+Z873v6c953tQy24ITChsM
hsaFDAb1/8d/BX7LVtbJ+XPKGT/+gOk1LU8iux2kXALnDNcLl5x+6NBH2QcF
k/JCDq/fRbkiVts7l7q4yk25KlZ0anx+6d1ZlKsjbekIzUQe7zPi9e24f/+v
1XHKtTFlXfh/Wxzdzu/r4njuD7OKF6ylvj4Cgv6sOvTiPOob4KcJAYfG1VhP
uRHqLv6QNf7dRsqNEfvZ6S8HXplBuSl8931drvTuY7zPF3NuP695znaRcnNc
7jxq8PrWZym3QNi4rXvMEzZQbomaL6zaT+JPK3geL9cizKXcmvb2UW4Dv/Co
7Ycen6bcFg/2bityb+YPlNvh5uiKW3vd3Ei5PZplrCq0v5iZcgec3vjzhbDH
hyh3RGR8xxuBs8TfTujd9EOtv16todwZS/Ytyio3Wux1Yf4lHj+5j/kAHtRv
XmJz9dyPsguo1uzXusUzF/L7rhhWeGmJastZf1dXON+W00I4SX03mO6cqX31
7Tnqu6HIyNJ1G4y/RL0/hnuXlV9z4DL1/li043PH5hk3qO+OHK26lQOuUd8d
xStU9Dt2jd8bekATdn87lve5eiCuRahvow1Xqe+Jaz2VRS/1PWHs+szyU4zo
e2H1jYNll7W8Qn0vvE/QO476AKwbdbxhh3n0xxUAn8Htd50YzvsMvTE3f6xf
6yF3qe+NLSnXHdNn36e+D/vvNvV9cLtijbw7fqLvi+qPfmvzlecR9X1Rumc9
LaXPqO+HJY2qLjxfsoD6fsgs+uOc5iNE3x+buqgGekF9f9S2jhy9pjFlwwC8
ahA958jLx9QPgJ6uM/eoD0SyfuAJ9YHQyzNT7g/C0IsVnnf9+fePMoIw1RKj
pfQ5vw/CHTWeT/m9JwhP8/7TbUsKvzcMxKOhuyu9O8nvMRC1sp3Jc/Pl/ECU
1AGE9j0DcWXzH9HpP9JfQzDeadL7HYwfwcyvxBuMS5lDey549ZLng6G8z0kT
/wchJPhr97RsOT8IDfPLHPRdIucHodLMPg+LtnrF84NQXgcU+mcIwYnPOn8X
uoL3IQS716qGkPMhuFdj3f2ApnI+BO/9/8h/5JH8hyL8cTMNUSR/obi4SgGg
xB+KC/dSv3m1WPIXigcBamDpryEMjmplvE2yeD/CkLnQf4b1HmVXGPFU8heG
VuXbdDoQTNkQDiUtqiX5D0fTLPeb5ndpzxUOo4LvLnI+HHr7lRD7gxF6eP1q
rYt4fjDGad2e2/s1zw9Gv7WltCO83zMYHe2np567LucjkNQ9xVYwSfIXgfq3
Jy4/tfEpz0fApcajHfvfE4GpkyJ/2X9L6h+J6/OnaL9QRiRye39e+JspMg+R
0OFuMfWeSPbrQ56PYr9I/aNw4JYaQDkfhdfFY//Vr5LEHwVrybfupJ2Sv2ji
v5yPhp6OLzg/rmjEqPYcI/ajobZPhecSfwz95X2IQeH9xTQEk3mMQZXLp18P
uvWA52OIB5QNQ1BEHxA5PwQqW0ndBS+GoLTekLTnGYIvi4aVbbJD+jcWNn0B
Mx+IRaI+wOJ/LBR6D2mYz/OxmHbuurf0fJlfE9S2O9WR9xlNONy+Tp8xE2kf
JhTXG5L1NJk+7V+XCWUDty1ImEq924SVPfb8/td5yZcJersuYn94Tdin1nll
qX8c8ZX+G+PQYkSTWjVfSD/EMb88b4pD/UHFVs3rIP0Vh6zm6gDz547Dw4Vq
wUi+4nBfjd+vjNcbB7WNl3eS+pmRWf/I5HXhPG80o+FJHw0hZJ7N6KUvNObH
ZP6//jSjztW341P3Ew/cZig0fJJH2WP+tH+8Zu5Tid+CnWodXuV9Rgvxm/WC
BdO6qg1L2WTBik1bLsUOl/m2QG2rgyvor9uCQv2/LRO4Texb8GHHmOfZQcRP
r4V4LPgZjyb+qiOl/vHYa56gUSCeRzwuFbzoEzGZ/pnisXJX2zdH4mWfxKPK
3rMaI+T97niobrDEiP146Ou4r9Q/nvtb7CdAebsgQeJPwPG+bbWQJf8J2KNl
Y2eE9F8CVHdYwyT+BOz4/um6Y33pvzuB8yT2E1BOHyDqvQnkX9L/ibh2US0Y
ysZE4oP0XyJmD1MIzXk1JZIfiP1ExOoNI/EnMn7By0RMSN3/j/lVGZ83Edpw
Neu3VuJPQsitNd8dNfK8MYnzKHiahF0RL3OuTJf+S0Kaauf5sp+SoNO/YfTX
nQSz7iDnyZOE9j16aZSN+fMmofXTdtovYj8ZX2homniBemMy8hWdXSr7JBkD
zs6Nfu9Pe6Zk8n/Zb8kYrejTSfanOxna8tUYjeBtMlx78c/fjkv/J6NAq1bb
aYJ/KVDb9UMtysYU4rXYTyH/YX1MKdDpj7/MXwr0chyk7E7B3HKj22zqwng8
KchopTwQ+ymcH/prSMUv/VXGpP9ToQ2L9kQRPE2FV9HHleRzplSoaU02SPyp
+MoTpVFOmb9Uzp/s+1So10C1sdL/qVBsrUE0/TOksZ6S/zTU0wFX6p+Glvo/
qX8a+0v2SxoqKbq5WvA3jf7SH08aNLCqfPm01D+N8ZKvGqzQ27EU4zNaodOn
RpJ/K942v7u13m3BXyv051uO5N+K6bPVApX8W6EVRwMUwX8ren/v0hD2Du1b
sVmlP1D4cTpG6Q8Qmf90aMXXGJvsw3RojxPtycN9ZErnfEv+06HTjzz6506H
3h7Vac+TDvWaqlCR+9CbDo18aASB9xkyiJ9iPwPtdEIj8WcQnyT+DDxR6yqX
/erKwLKjRo3xSv4zOC/CVzOgqh/XQvAng/tA+IcN15INtsyivN9o43tG8M8G
nX4VFvy1QSOH7zY8Y3+6bHw/SPw2qGpNXC77z0Y8Yb69NuID3zMGO/c9/fex
Q7FR9xvmx2hnfZk/Xzt0uMrmfbBz3mkvyM73D+Mz2aG3V0/q7Xbo6QiV/rHj
aDfF4BhPlh2zGqgOFDyxf/reybbzfSv4aie/4X1n7KiurveVebMTb1iPAjtG
6n/gEP7kgE7P1rCePg7oz9XDgkeOT/mirwMK/WpapD4OVNUJCe8LcmDY/Koa
Q5N5dUCne1GMz+7A9psPNIYi/MwBrXjaE43zkuXAZPXnlNUyTw44FP23sz7Z
DgTrAyXz5cC8aPUiYb7OOD7FB68DTx55tAozngIH3xPCP5zcP5R9nDh4uIoW
Ef0zOjFJrd+XtO/rJD8WfuKEyv5JH8pBTmxT7XdK5sUJvRyNmC+7EyqbD4cK
v3VCpwcnaC/Lyfe08DknwnTAppztJP8TPuuE/pzNyff7GwOU6uI=
           "]]}}, {{}, {}}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 300}, {-0.5, 3}},
       PlotRangeClipping->True,
       PlotRangePadding->{{0, 0}, {0, 0}},
       Ticks->{Automatic, Automatic}]},
     {
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"B3\"\>",
          StripOnInput->False,
          LineColor->GrayLevel[0],
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          GraphicsColor->GrayLevel[0],
          FontFamily->"Helvetica",
          FontSize->18,
          FontWeight->Bold,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "6924a84d-28c5-4a2c-a7ce-4ae6c5caf552"],
       Text[
        Style["B3", FontFamily -> "Helvetica", FontSize -> 18, 
         GrayLevel[0], Bold]]], 
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
          1.6], LineBox[CompressedData["
1:eJw1l3lUzHsfx8eSrhIhZA8h+xWFCm+lDVFNNdqnaZlmaprFjcJlinKJq41S
0lxZuoXsLYokWtzIHspNpXsLCSWJPJ7n+X76Z86rT695nfc5vzOnmSSQOvr3
5XA4s/twOP99/f9P+/L/vfAjwX6BBxa2qy19iX+CqikzxU5IrI2BeutbBwYT
62C9a2e/k3JiXXS2FBisDSMeh/CeoE+TlcR6MP/342DebuLJ0D7RnTgrkVgf
1bJLm++riKdh3fBM09QcYgPYa/eXVBUTz0RqRo9JyUPi2Xgitmm685p4LvK2
bnTjDdjB+GdIHG463tQnno+6xDDv/dbEhviQHpCiLyVegD13JRXqh4kXwszx
Jq7cITaCU2fymir1nYyNMe+xyZFia+JFkMTV5E3dT7wYnr+Zjop5QbwEkppI
11DjKMYmGJkkipckEZui90JZyOc+0YzNUDiFM3b3RuKl0P7gczqtk3gZYrQ+
68Rs38V4OfJ6xgw4o/MbY+DP4vhxRpcYK4Fzpe0nXX12s/sKFKrFaM4fvYfd
V+DmitsB52oZc8zx+7RU7bLsGHY3h7LPwiGLoveyuwXmjc9wvBC0j90tsGlw
tvCq++/svhJJ2489r3bez+4rkfFm8bXU2bHsbomuT7v48ecZKy1xR/14nsAs
jt2toC7SGRxVwVhphVvRpxZKXOPZ3RqPDoW6xL5mrLSGpWPSo1XbE9jdBt8S
14zuHJ7I7jbov07E/ZDJmGOLb02bgqKWHmB3W/RLzmxWv8eYswo8kdvy+4KD
7L4KTsOja0w+MOasRtpJ7kDVtiR2X42NPV++8tWT2X0NZIFbr7fGMFauQVj3
RPcrmofY3Q7VD7pM3aIZK+2gOTAtnddD97Xg3BjRz0Ocwu5rsXrqZ4H2A8ac
deDPqD5lYpTK7utwgjt/1ZlYxhx7qKl68+1eMYY93C+3e2gtOMz+3h5vpl+c
9zaccbE9RpfrXvqUz5jjgAmdrdecPjKGAxQdt/IWTktjvgMc9miElDoyLnZA
wb9H/lwRzpjjCHGbfWXvIcZwxGBHXqjlJfId8ZOJwizkNvmOGGtQcvxBLflc
hDrtKrnXQj4XI60ygm98IJ+LY8p+eVqfyeei2ePUEK0v5Dshcu/1mlHd5Dth
S2V63p5O8p2Qcv3osovvyHdCs+7nuJZ/yHdGpn76oS0vyHeGLXeHc8YD8p2h
fU06/nQZ+c5wCy8aU11AvgvKG84GW5wm3wV1qfs9F6eT74IxfTRNamPJd8HH
LdnHuZHk83DklvJw4QbyeXg7Sf7c1J98HvZ1vi1vcCGfh8qjFmtv2pC/HsOq
Ind3mJC/HgbKP7K2zSF/PWReRgcleuSvR67Pwf5/DSffFWrLhgQcUSffFQ+O
xLe+7KHnxxXT735Xmr2j58cVoYYlKpdGen7c8OvXqwun1NDz44atDY1HEqrI
d8OU4ZVV6TfId8O78KXPjAvId4d5QZHA8Rz57jj+3t60OZN8d+SX5sS1qMh3
x0KTe+dcDpHvgeUxZZWT4sn3wBT9leetYsj3gJWTCMU7yfeAh+3uhuht5Hsi
rM+Nnrgw8j3hND4z+qWCfE+M1LoQI5KQ7wk1jRzOzEDyvcDPMx6l50u+FzK2
1S2x9iLfC1yV7ruDruR7Yf6A45+1ncn3RkbwhMTL9uR7o0M3pUW5hnxvnDXK
DRTakO+NZm6uULaSfD5sMrX6JYCxHh9lMTr698zo/fg4sSiCM2sJYz7/x/Pk
dirJiN6fjzGiOw9HGzJW8XHFc9uenLnU40MietLlPItxPR+i0nMjtAyo74Ow
t98DH+pT3webKl9+ODmJ+j5o7w5X7ZlAfR90HC5K3zyW+j64OrVsl0KX+j7g
JbzcGT6C+j44lCN7sXcY9X2QsNFFlTGE+gK43VtjWT6I+gI0nd+n/DiQ+gKI
I7oD9NWpLwD3feor1/7UF0A9b79Wah/qC+DF3Rlc38s+T4sFWJtj+nzOV8b1
AmzYnJsQ0U2fv74Yvatk6KNPjPV8Mdjj45Y5HfR57IunR+Yc3/WeMd8X+kHj
/mppo89zX4zZVHV63RvGKl9oPc3PvdJCfV/0ta4bP+Mf6vsi4pW2fnIT9f2Q
+L7+lUYD9f0Q+zh/pvJv6vthzGNeTk8t9f0QcD6wftMz6vsh8ukB7scn1PeD
w89h7dJH1PdD8lB/5w/3qe+Hgi/7rUKrqe8P3VUDhnZVUd8foyz6LY64TX1/
JIQ/LlevoL4/qgdslSbcov6Pv0/nFY8vpb4/Kos7C7OuU98fIx4kL//xHwXr
+0M6OSWitJD6ARjyWs3fsYD6AeiwrBjemEv9AHw949W84RL1A1BpN26N5gXq
B+C9WfZp1VnqB6Cs6OEzkzPUD4BN/Rvx/WzqB2DGzJwevz+pL0SUSO34txPU
F8Jh6bIFqceoL0RXW+8U46PUF2JactaA++nUFyL73V3XoDTqC5F7M0Sknkp9
IZKGIftkMvWFCD51Y+LKg9QPxAnvt/VNCdQPRF3a4OSdcdQPROT0xhtT91M/
EG6rimrK9lI/EI0DXp8T7aF+IH6pf/Jp0G/UD8Srd04nz0RRPxBPfH9vdNhB
fRGS7xc1dSipL4KZT9TQpG3UF+FhcbPmiq3UF2FvW9vZpnDqizBlrjJ79ybq
ixAuun/AKJT6Irjp3y6vVVD/x/vpJ93bIaO+GK6mPe7zQ6gvxtYID7vnQdQX
I3S5XesOEfXFME+PXzRXSH0xtGanRNf6UV+M2ORZj6IE1BdjikWOtSGf+mJI
y27PfulJ/SBEp13KinenfhD2OYqFy1ypH4TBLfrb21yoHwTvSct+SXeifhAM
b2mGrHakfhDmZ+6K/bKO+kEYVVqgyrKjfhA+xn5JcV9N/WBcGZScMsyW+sFo
tRDeLLGifjDqX5enhK2kfjB8WiOGzTanfjBO6MRl1S2nfjBeOolPxC2lfjCC
ktO6rE2pH4zyud9Nvy+mvgSNZ8wVF4ypL0Hg7KKr4oXUl8BbpXiuZ0h9CSql
3LFP51FfgnuihobYOdSXYNPmqFrbWdSXQOPvpWf6zqC+BNW64zlF06gfgpNN
qgXh+tQPwTnjRq15k6kfgg4Nd7XmidQPQV8DTugf46kfgrp8zUL+WOqH4Aov
9MXE0dQPQW1ZbMvzkdQPQQzOtxzUob4U36LMLzgNo74Uek9tOoZpU1+K1xpF
rx5rUV+KiJ2bWxM1qS/FklqXbKeB1JfibOnFT6PUqS+Fg+GY4if9qS/FX6KL
nof6Ul+G5KMGBh4cxtoyLBx0zHxCL/v+oCdDRaH3p5c9jH+WwTB/MC+jmzFk
ELSkjAnsYmwvw5IZBSXzOhnzZVjbVTyx8wNjmQwNVmEVee30fUUGnrN+VlQb
41gZ/p7k5mP3hrFKhmuleq+1WxmflWGDg6Xr438YF8swc/GBj0dfMa6WIatq
cZ24kXG9DG8CTk9b8JJxuwwaxu3hvS/o+5EcL77XmpXVMtaWQ+Or3bH4Z7Rf
Dtuakk+eNbRfjgp7cdScx7RfDsN9Pv276fuWvRzvtjfEld+j/XLweiy9ku7S
fjkaf5VvF1bRfjnU+LZ1Rrdpvxw7HAZa9a+g/XJo21aXPLhF++VI/JxocLSU
9stRZnRbuaGE9suhqbMz2qKY9suRJuR7j7xK+3/08lPyW67QfgXOrhgSWphP
+xVYLBhVsjeX9itgF/2rr+AS7VdgwvNKDeMLtF+BO73WyzXO0X4FzDS/5TSc
of0KrB+72zv3FO1X4FGk88O9WbRfgbafOlr8M2m/AsGy6QmmJ2i/AsIq4eWh
x2i/AlzJ9Qn//kH7Ffh8Wfd5YXoK/gOpPbvA
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw1l3k8lGsfxlWnEpUO5WhRdKSUQulYWlySjn2JsS9jG4xhZrQopzRH2igi
S6ISWsiapVI0yNHeOW3SplQ6ipKSQvX2vu/98898vn5z+d7XM/f9PEPdX7g6
aLiMjIz2MBmZ/77+/6fH5H8v3FiwX0B7Vt5x8wBiWRx5r/yCE0w8AZc3HuPP
FBBPxO4RX/j3xcQqGB3iffPIBuJpmOOgOC5PQqwG379MK8fHE8/E0WPqo2an
EWugMrfCa0YusSaU9i0psygnnoPttscCuhqI50L2QltWUAuxNg6ZXbor/454
AZbWK4aay21lrIvEMRmFMVrEeuhfpPdN15Z4IfoOL4+/sY54Ea56fNN7nEes
D+/x3JT2FuLF4D1c5ShSjGP8G4qaG5LGOhMb4HzjPnXrg8SGCEqsu1D7ltgI
AQZ+U7ostjE2Ru+UN1/8ioiXYOQ7V79jk7czXopxDRruC5KJl0Hn+quZG5V2
MF4Oz6TKJY9yiE0wsOXG4wqjnYyBye0ZxvOfMJYAewX2j2ISd7G5KRKMCvRq
rOLZ3BT+7UVvbyomsPkKdGjPdD3awViyAtJcfv2npt1sbga/5U4ZYWV72NwM
01zs5aKPJrL5SuxL0zTanZ/E5iuR55hqI3TZy+bm6NEvS7v0hLHEHJMnBas/
4Sez+SqcPuuipDrAWLIKg3/tmtidkMLmv6PML3Z59Yx9bP47Dt5On9dcyVjG
AusLfy4PtUplcwskqd2+9L6NsYwlVDpv1aesTWNzSxTML5FJH53O5la498q4
xmw/Y4kV6h9ojW6flcHm1tDuWSh/oZSxxBrvp1eMmrt4P5vbQOG01Z+SKsYS
G0Rnf0rT081kc1vU1/fnVeczltjibnj/lRTFA2xuh49jTmz238hYYodAt/zB
xvs0t0cLP7t2jW4Wm9vj0a/bly+TMJZxwOHxdflDzYzhgIrF3ENHRmez9zsg
M/PifC0TxlIHFO4WpGRFMJZxRMV7ZzmNdMZwxNQog1W9VZR3RFhf7STDG5R3
hGLhl7uGbZRfjeyoXDm7TsqvRoC8xy9Xuii/GlMXH8tTeE351WgoWXso7hnl
neAxybQ0+TblnSCcOtr+sJTyTnALOjxBvYDyTjinUHcqdg/lnWE8YVT8XOoD
Z5iPP5e5zZryzpC976T3YRblnXF77SHv1q90/TjY5Fsuf+A2XT8O/FRiV2w5
TtebgwURxcodGxlLOSjObbdQtqa8CwY95mm5TqW8C557WzR1vqbP0wX7D5gX
ydUwlrognfthcfdO+nxdcfmNQ0StK2O44l5YgrBYk/KuyHaQ+DzsY/tH6oqI
xIJfgptof7lhdNyId4I0xnDDkEPInpE82m9uEMx9tG+lAeXd0HSt9MyyMZR3
x8Nvr6q/PmT7F+6YpJFuv6uU9rM77JM0V+yJZSx1x6rVmh8rXWj/e8DWtf3r
l3mU98DlnppUp+GU94CZs2JxXSs7P1IPbLPsrF5wis6XJ86P7OjJSWAMT2iZ
tZiM5dF580Ren8Seb0p5TxT+dIt/WpXyXvDP+3l15wA7v/CCVvfCz0P36Tx7
4fS44oHu04ylXtDzOWRYlUHn3xvCy976Vhso740dJ5vOFrlT3hsvdSaK/l5C
eW+UfqjNqZxOeR/EdtcWcIZT3gf6M1b2F3fQ/cYHUTZLOyquMpb6wDei6Elw
OWMZX5yrv1F+OYMxfPFC1Cv7TwzlfdFQ2le2hkd5X3wXbjKqtqM8F+dOug3t
MWCsxkXISL/vA2r097gwVXiRPCjHmMvFon1KD+P66H7JRZCWgSTjKeMcLrJK
YhN1rjGWcsEZdNe0OMP4KRf+l5bqtOXT/dUPmim1qr3JjNX8MEs66Xn0Fsbw
g2yNMyc6nDHXD+qtoeldnuT3g9WGVN0rdP/O8YO2+LWxijH5/dAh/e37P1rk
94OJftGursnk98ea8SXmIjny+6PO9eJnp0H2fIA/XEOU61K7GHP90XK1JlHn
CT1P/DFSkLpH62/GOf64sWPrmo0NjKX+SJuqZKRexfipP6ZcHWOleoKePwHQ
KzF3DcpirBaAWNOpVUOJ5A9A6pnj0U9iyR8Ak4n58xSiyB+Al5857TvDyB+A
as1Ing2X/AHIDP3D2YlD/gAkOStwsq3IHwjVHove2SB/IHSK5UQfFpM/EHyf
k2OHaZM/EAVGR5stZ5I/EJsTZzVeUSF/IIbZFm2IUyB/IIpchmtGjyJ/ILbW
9Jge/UrP5yDsjZ/z1/A+xmpBOLHxRMeBLsYIgk9dtoT7gjE3CEMeRZ89HjGW
BOGOYebZ2DuMc4LQpyCf8uAaY2kQcr52Gvs2MX4ahKg7mdfH1ZGfh/rmCQr/
VpOfhy7/LVPelpKfh+aSuhXTCsjPw0C23PuoXPLzMD755sH+LPLzUD0nTuVI
Gvl5+Di0TkGQRH4eKs8I53J2kT8YV/gtu3lbyR+M7gNC3UObyR+MZc816z9E
kT8Y4e+734ZGkj8Yjm5PgocE5A+GsMItvzSY/MGQthm5x/mTPxixNi3Xxd7k
D4GJRYnTFjfyh6Bq0fSXx5zIHwI5zRMWr+3IH4JFX4XmFlbkD8Ho5cKxF8zJ
H/Lj8zHLtjclfwgCP/o6f1pK/hC0fLcprzIkfyh49646J+iTPxQLNnHHrdcl
fyhO2+9/tVmb/KFQbS4zS51D/lCYz/TVkWqQPxT5D25dGKVO/lA8muvW6qlK
/lCIrk2MbpxMfj7CXtXcMFMmPx8xHx873FIkPx971wc0iBTI/2OeYVeqPpb8
fEx7N36wQ5b8fEwVhSw7PZL8fDzvlFM/MJz8fFy/+DQl8Tt9fw3D0ZQtrqlD
jNXCUPBHVlXuF8YIQ0emiVvjJ8bcMFxfsjS89wN93w2Dot0CqdZ7xjlhmFtU
P078lrE0DPdzFlxtesP4aRiCPPtzZneSX4CHMfvdsjrIL8CX/rl3lF6QXwDn
o5P0Dj4j/4/3t3Fn67SRX4DF6uvbLz8ivwA7nq12FT8gvwBafq2LZ90nvwDG
MYsePr9L/nD0P7QeUXCb/OEIK7y+I/of8ofDQn5vp9NN8odj2MVeQ8Pr5A+H
Yd3AEY2r5A+HoImbPOUy+cORaWm1TqWZ/OHgLPp8bkYT+SOg8fFUim4j+SNg
Uu22e0U9+SNgZpf4wOsC+SMwWN56IraW/BF43dOnU3GO/BFQ3Flj/fos+SMw
WV72vsYZ8kfgxGbTwsBq8gvRm68VXFxJfiH4cQ8yhk6RXwiLO1rWruXkF4Lz
1bq5vJT8QsxI/22TUgn5hTCY92xiTBH5hZBsWsZ7XUh+IVyr1DO8C8gvQn7p
k7Z7xxlPEKEyWX+F8zFajwih2xa2t+Qz1hXh2xmVKu88Wp8Iz9wTLN8cYewg
gnOXwxhJDq1XhAk3hSeVDzMWiRCTrZJbepDWL4Jx06wqTjbjvSLwZ/y6eeAA
9RFBRef8lUOZjMtEWPlq4y6L/dTvx3qLk98MpTP+WwS3e0byZWnUVwRbraW3
eKmMe0T4Sd731q/7qL8Y8xKWc58lU38xutU6k/P3Un8xsrsUD/KTqL8Y0a2b
zhkkUn8x5r+7nzpiD/UXw+andM17CdT/B8scTyuMp/5iPGsQP43dRf3FKFW1
fOy5k/qL8fPnOlODHdRfjDejWkcob6f+Yqhd2P5vXxz1FyN2q/2LB1upvxhW
g8+PS2OpvxhfrD+bnfyT+osRn3Lea7+E+kdi95HpDdu3UP9IXNlpnbI2hvpH
Yl0jNzp0M/WPhNf471o+m6h/JJRfPlfi/EH9I3/8f9Pc6hhN/SMh6JCNttlI
/SMxyfODv+UG6h+JhI74QOso6v9jPZxh4dbrqX8k3iQ12diuo/6RmKrf3Oiw
lvpHwtMx/a7TmmT8B2oIryU=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw113s01Pkfx/GRiC6bln7dS1pJUpJalLwi18j9fhszLjOuM1OtUJpcIkWU
dGHbQbW22q0kpVxGFySKRbr8atnUhkKr+/W3v7Ofd/90Ht7nfZ7fDzPf+c5c
Xqxr6CgOh7NIgcP5/////hs2V/M2KW/0Swb7AcrnOzp9E0RWQUffbNkMPlkN
1pOKO3rCyRpQ/umHE1nR5Kn4orY73nYjeSZ2qLuqrthC1sTjIFudjDSyFmzv
TzSU5pC/Q8Ywd5Pzj+T5EOrG1dqeIi9A619Gk89Wkxdi/YUd6o/byIvgMC9+
s1EfeTGqkl6cUh2dwmyAuKMTHzZrkZfCtq1F5bUV2RAbBn8//TKavAzr1rbd
sSogG8EusP3Nhlvk5VC6ssNlrEoq8wrMreIF7LIlf4/L41zGp+eQjfH06/o3
md1kE0iNG8XTTdKYTbFaddSVqsPklWib7mHySmkH8ypsPvN13NJEshmaqrry
X3wgr0ZpZqNvQlo6szlO9r06tnhGBjOgvX2owbCKWQpM/Sb3x4uCnWy+Bl4f
Ar9t0cxk8zVwjmmS+fcycyxgamNaYXtuF5tbYN662Svts3azuSUmW/5YpiTJ
YnNLONVpfBjkZrP5WuypX7U3xmcPm6/F3C7eaK5+Dptb4d2X88cUypilVhi3
L656gWkum1ujXpFvaXmdWWqNJItfV1xy3cvmNgh4/S7tbQ+z1Aa1+uIpDpJ9
bG6LMyef545WzGNzW3xtsrTYvI+ZYweRYaLpI639bG6H59mndVLPMHPssW2K
43DFynw2t0d+e0xd3VVmzjps2PHQ4J3NATZfB5mgBqcbmDkOsLo4M8Xe4iCb
O6Dk7FE38wvMHEfkKdpsnDD/EJs7wsuvbMvqbGbOeoTd3Bi8aYjm62FvbNnp
aXeYzZ2wZGZ92bECZqkTuozjTix7SnNnZG+X/vHngoJ/DWe8PzDnQimfWeqM
xe1x+en5zHJnrPjD7OruOmaOC8r1Dec866V9FxRd/bK9hVPI9l1w2K40XDKZ
We6ChDpH/qx5zBxXGF55/tvChcxwRXJifdcgWeoKmz+NDW5p074rRt7euLlk
Bu27oaDg4ast42jfDepvc+1nv6Xrd4NaSZRa+iO6fjfINPhmWlfo+t2Rder9
iHsxXb87xnB0j2duo313VK58WqbpS/vuUHD17EswpH0P9BxtOPFOhfY98EYw
Tr/nIf2+PTDQr5yRfZZZ7oGNdanWVqn0+/eEeV4o186TGZ5oPqYTdVeH9j2R
W1Acofee/X3lnvjceVxD0kR/fy/kvuC1dhQwwwveNdPUk6Pp9eCF9slzfPLM
ad8L037e8kTnW9r3hsMVV6nHE/Z6gzeyLoR6GVbS69EbS0ZnHL2VxSz3hsf8
/94y5dPr0wc3R/J8pCa074NWxb5+mRrt+2Dxx2R767/Y613ug69TG7+fXkuv
f19sHly+Wv0gM3wxtjO2XFtC7xdfjD7n/midI+374qgwvfgHXdr3w4vcVb0y
Zdr3g5vaaOfaXno/+qG056L0Br0f5X5ISklpryyh96c/AqX6pqmpzPCHy+fe
T/PCaN8fzbpTF+6zpX1/XPuUp39Dj/YDsKnIaVnVRNoPgHZAbkvEK7pfBIBr
ZJjUcI9ZHoCya+vSW2vp/hGIT023XbYfZ0YgdIcUhO1ZtB8I48KWgKpNtB+I
/Br545WBtB8EFaO52i42tB+E3p01S0cMaD8IzzNVXabMoP0g1A29LKpTon0u
To4x0fhrmN3vNLn4+XiCV/p/mcFF5yf9GFkjM5eL9uM6Zjrn6X7JRZom32Rm
MbOMC2WHGuvEPcxyLp798iHMfCtzNxcjzwajwyLp/hoM24y4ay98qB+MJ+aq
3rdtqR+MrIW5SuONqR+MklUd73/Sof4/+5872lKmUD8Y9tIpV6rGUD8Y6Vtb
Dazfsft9dzBUnrqtn9xH938efOyGKwzvM2vy8LpUxX//TWbwUHhPtMe0mpnL
g9O05LQ5p5mlPDQW3ZLZFTHLeNA7cOfO6X3Mch4SLh8Kc99BfR7euskUjOKp
z8esvLpi6yjq83EsQTi8J4j6fNw2mesyzo36fHA3NBRWW1Ofj71xD82KTKnP
R6Rms8uFxdTn4xqX0/Rei/p8JC/L+iV8CvVD8HdfZafCeOqHQLZ01/PrHOqH
oLLFM6PiNfv85IbA+cZjhZZ++jwNgfJm8/vK3cyyEJiJ3QdCOpnlIcj4oaGt
v4m5OwROW62C9srp8zkUq7+YvvCuYNYMhRMa1WxOMSMU8+fv/epUTP1QRLf5
bk88SP1QlKW0+V3Jpn4oEu1G1eikUT8U/Kdzq0sTqR+KXe6erRYS6ochZL/r
jHcC6odB5WWtxo0g6ofh83+shGWe1A/DRt2ih5WO1A/Do3A78ztrqR8Gs/L6
ygmrqB+G2wu3Onsvo34Y9Du1lc8tpH44uKpzfRdoUT8cB5WWHKiYRv1w6J3e
e8ljEvXDMSks9KaKKvXDoV1V2HSTQ/1wJHfsTCt5x56H5OF4eX0mJ3eYuTsc
/ve23Nr1jJ6fBDAfPWd/QTezpgDe3f0HL91lhgA/+5YN9rcycwW4O2Fnqd4N
et4SINa+bk1iHbNMgF/fmCg+qKS+AL+kjc2zKaO+AB8PDVVePUF9Ia439Po5
llBfiKxS7ezHBdQXYs1mz+LsPOoLUZD52QhZ1Bfi8lBjwdc06gvxUfGM3u9J
1BciP6Bu1Kk46gtx7Is/L1dE/QgEakw+nyGkfgSiAnxOpvOoHwHhdiXrHD/q
RyC175bDMXfqR0A6RvlBoyP1I7Bp2Zrql9bUj8A520n3dUD9CIzyaXCJMKF+
JDrqJ82sNKR+JNLvnjw7bhH1I9GiMfNNpDb1/5krxlvdmU39SLxa3Vewdir1
I+HN6+yvmUT9SASLmtstxlE/Ev07byxqHU39KOzVujcQ+YU9X2tGoVfBeLrq
O2ZE4c/qWWPKXzJzo/Ddudk5IQP0PB4FhxlHxs94wiyLgvTi3MIHj5jlUdhq
4KVx/C5zdxTWGCW+3fw7Pd9HY4O6go5zM/WjEX3kztGl9dSPRlf2afVpcupH
Q2XgYanqJepH48OJXWc55dSPRjFvSfXXX6kfjcHCEF+lUupH4/zfvlPVi6kf
g4rBCZa6hdSPwcpC1V3m+dSPwbksM+uAHOrHIOFMT1VaJvVjMKJ5FRdTqR+D
Gx/v1g8nUT8Gw+7zbBbFUz8GWx9MPB+1gfqxUE663Xo+mvqxGKroNFUSUD8W
Hg33pnN51I/F4IuLTZf8qR+LWuXXXTO9qB+LzBWxihku1I9FStqT5a/XUT8W
AuX600Jr6osw8DS9uhfMaiKYNOtuCllJ1yPCYYXZagPLmQ1EMNYS5W80oOsT
wSg055SyHrOzCKXfhzXLtOl6RSg7qVdtpsksEuEeL17p0XS6fhH4Nhukuycz
54iw5e3l26ZqdB4ROFcr7vWNZT4jwvRS9SM/KdH5RNjWuzggmMPcKkLB1pqN
1m/Y98luEQ52tId2DDAPiyC9/qxF3MPMEeOsrShavYtZTYyI7qm5V5uZNcVI
1i26tOUKs4EYmSVam20uMkMMochAT/03ZmcxlmfPGBoqYeaK8ZvRzdkdh5hF
YszqXNR6dQ993xXD6OueaxfTmHPEKL5WIq1IZJaJUeT9RqlWzHxGjIKJES9b
wpnlYrwQeFgMBDC3ipGUkyz4xp3OL0Zk/OBhc3s6vxjWTUlLEkDnl2DfNteu
yyvo/BLUb4zr4ejT+SW4mRJV7T2Pzi/BkXMmbeXT6PwS/DHy9+TpanR+CeJ9
JQ/3KNP5JXil26On/Jl93xdJIMgxGUkbYZZKcOzVxG6NfuYcCRZq3+882s0s
k8AsoS3DrIv5jARDLampj1qY5RKsP1r+IOVaNv4Hzv2d9w==
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw9lnk8FHgfxyebEJXt1KZ15IiEUsjj+MiRs2iQ3McY91x02mo6iKmU5EiK
okOpCBvpkJ62skSlNnRnK3mUimo7ePZ57e/7+Mfr7evtPZ/Xa8yMVoRwaZQc
h8MxGsHh/O/7P1/9doaqX6Nexm0C+wEe3RfrKAiJFeGkcURrhoRYFc4/2VdE
riSeCLWOkUoqKcRqCJonNzpTSqyOKO2TE1+nEWti8/GcXSGZxNq4+CR+LCeP
WAfZzzt2qB4k1gPPt976bDnxTIyKzMwzP0dsCOPN4nOXbxAb4cskr96iLmJj
KGb160/uJzbF55MhY1YpbGY8B+/cay8oahPPxfozJ7mGIDZDT4eteG4E8TwU
pqaapacTz8c+9zGSzVXE5uh9xJ2y+zmxBQwFU4PUp25hbAn9hY11aT7EC9Dt
9mQAucRWyC93Mah7RPwv2JtcsOUapzK2RkpZ0rSMVGIb/D7Crv5kN7Et1Dpd
40080hjbYeOwzz7v88SA7HVa0Mr5W/9hKaBl0dXz6Cxjjj12Ss8eOe+Qzu72
qHydNtKxgzFnIdZK/UdkrM5g94WobLppka8lY3cHeFX8Mtq3nbHUAT2DFtMO
7drG7o7QUdzgYOG3nd0dUWWZUFKjs4PdnZCgWzu/9itjqRO+jq+Uy+/MZHdn
HOKZC0sbdrK7M9zWjZ27x28Xuy+Ch3Ehd28rY+kiPNvV2f3ULYvdXeBrdX/J
wDXGUhc8tPZZZuq8m91dETDhhYbSVcZSV/gpfF/32iGb3d3gV6TcaNnIWOqG
1Ni/QgPt9rC7OwZk+4/UnGMsdUfqxHX+1WY57O4BrxSz1LYyxlIPhA7XKqSr
57K7J/6M+nFD8DbGUk/I5q3xfjVI98V480m+63xgHrsvRvf+8D8zzjPmLIGn
qpuiklo+uy9B/ZTu5xwBY44XdE9aJ7pcZAwvmHolj7usuJf9vhc+8lq1fD0Z
N3gh3OOKsep2xhxv6Mo053GuMoY3pg5a6M37TL43wv0r5Jt1C5jvDc28wZzv
now5S9HEO6P3ScQYS/HDcevqT5mMpUvxgavz3v4Y+UvxsN54jPoF8rmoWMwZ
0dJCPheq7jZqxzrJ52LlF9nAX8/J52KPtvJC5dfk+yC8NfqDUR/5Pjgnkl0t
IZb6YNXhyS/P95Lvg1rje+8aX5Lvi8KmToPXT8n3RVnD29Mp/+/7wuyNx7ny
W+T7Ynsm70TVNfL9MK25e3rjefL9YNimVziqknw/9I6qbj9aSr4fQj6bSn/L
I38ZrpxsLZfJyF+G59Fl6UrryF+G6lftBoFC8pcheZWCXk44+f7gnZ0d1MQl
3x8TcjXSlJzJ94f74AWXCEvy/dE91DX6kSH5y3E278679dPJXw6rPre7b8eS
vxxPt1w59ZBD/nK0cue9svtAz58ArHM34qm8oOdPAHJc2zfaddDzJwBBf8hX
NDfT8y8AIVW2FyobyA/E/GbZlhfV5AcioahZmV9GfiDSUtqcjQ+QH4jw5h0P
zLPJD0Jd36SX69PJD0JhVTB35Hryg2Dsvy+5MYn8IOReFvKqYskPxqypZ0s7
QskPxumZi/bP8iM/GHq1pcknPMgPRsuClTH+DuSHoN7rcZOJFfkhmFtz+U/D
OeSH4D9XoOY5k/wQuL3Yr7VXg/xQGJ2qzFKaQn4oVnc4a+aNJT8U2c4Sd9dR
5Ifi3u0BZ7Uh+v8PQyPn6OCoj4w1wxAW3Jc8+Q29HoSho3XbKdsXjMPCoF/Z
OHrzI3o9CcOmSBOXZ/cYF4dhtw7XOKCVcUMYLBW0FvZeY/wkDLwHz7bmNFA/
HKtdG5J866gfjvm20/2Mz1A/HIdnN9T9fIL64Zg4pLRVq5T64RjjMjjLdj/1
w/EkZbyZJJf64VhcWvCkeif1w9G88Fy7agb1I2DU4Ne/fhP1I9AzQZ8/lEL9
CCR7plllrqB+BComZ+2cL6R+BJK2Dyr1xVA/AtutV8lqI6gfgeFkK9/cIOpH
IL9M7/UGP+pHQiHtFX+tF/UjkaHYXrDJjfqROF6SV3fAkfqRiOcprGuypX4k
PHgrnBUXUD8SDW137bhm1I/Ex7cxe0/Mpn4ktgwZB0yYSX0eUkQ+Fhna1OdB
V6h+X3U69XnQrp62t3QK9XkYdrEbXDie+jxkD9j+2qdCfR7GjueHlilQn4ek
7vSDIjnq8zDE8S23/07vT1E47eLyTPczY80oWPaq2v/4gTGisPZGxmKVN4zD
ojC9b2KGag+930XB5vqHVq1uxsVRCPmh/pnNY8YNUfCz6+2K6GT8JAoHauNT
su9Sn48h+Rs329qoz0e+XNxEtWbq8/HTg6hC4TXq8+G+88P5m43U5+PQ97na
1hepz8eCQ42eFXXU56O1pKF2Zg31+dDowtKKCupH48y4T+1O5dSPRmIXjj89
Sv1oZG64YLO1hPrRmLbC+P3cIupHoya5pb+ngPrRMOi0zT+ZS/1oJMWq3V2x
m/rRqDy3ttAtk/oxOBX+bIuejPoxsNK/8kY5jfoxmNSiYP5lI/VjEP3tmHr/
OurH4NvbLOO3a6gfA32+hs/ACurH4LD6rzvlJNSPgZe340g1AfVjsTEwfsgs
jvqxGHHbWT6UT/1Y3Jh3440sgvqxmPieb3sphPqxcB0pXDOCPv8Ux6Lsy41+
p2XUj8XjHfvGZnGpHwuZy4/RPUuoH4er8rV/OHpQPw57zq9JPexC/TgUqRcE
jnWifhwmdR7Yu9Ge+nHgan82/WhD/ThcXhuik2xF/Tg0Fk6s+WJO/TgUHzT9
kmFG/XhkoF821ZT68dBVexBWZUT9eFy/MW6Qa0D9eJiHvQsa1KV+PKaIDhcW
aVM/HsO3LAVeGtSPR/9m4QUFderHY3SLaU6TGvUTMKPhwJTtk6ifgIN/GBT7
j6d+AmxUBrRnjqN+As6u6pL/qkz9BJyxnrHyriL1E7DUVhBwVp76CQi9HudU
JEf9BNza+pN+xjB9fk3EUR0T5ZRvjDUTcVCdXyL6izESIXFZZpL4kXFYIgJG
6ioJPtDn4URcCZjalNzPuDgRx4wvKUv7GDckQi/Jk5/1mvGTRFQLhkzKXlJf
gDtXT8y41E19Ae5nzMjvfEp9ATqK0x4OPaK+AA6aCt6zHlBfgMh6/vvADuoL
oO73/NKOe9QXIN9g0enGO9QX4MiC01uG2qgvhGi64JXtTeoL4WASoJDxO/WF
mH3b0fnWdeoLUbrDwFTjN+oLMV1vxbbkK9QX4ubh9S5NDdQXIrDm8RHdi9QX
Yp/C0KfUeuqLoM596dtTy1hVhCr/8q/ev9LjEWFNrGiwvoqxqQhGCddeGFXS
4xOhwDdkSekpxl4inGyt+6peTo9XhO8yiPPKGItEENTry34+So9fhNI75QMl
pYx3ieCup7F75iHaI8KkWbnBZ4oYV4hQbjilwHk/7RNhwGJnckcB4zYRVJyf
dwvzaa8ID161b1PJZdwvQskPh1rKsmm/GCqLgls8smi/GP52hq3vM2m/GH01
d6YWb6f9Ynz5d0akh4z2i+FaGF09vJX2i5ET1Gpbk0r7xbB5tVxFuJn2ixF5
+uOQwUbaL8aFZrl7L9fT/r//3vKNWWW/0H4xvD6v4iSupf1ixDzW1jRfTfvF
qLcUnOCspP1iJM8eV9+WRPvFSB9z51uJmPaL0aQ5ynWNkPZLMMLe6eriRNov
QW/hCR2jeNovgduwSHN0LO2XwEXbYk4vn/b/zUkxw7d5tF+C2ps9WXURtF+C
2R1zAkvCaL8E3aOt5mSH0H4J5MuLlTYF0X4JfpvjWJsUQPsluM+fLBfjT/sl
WDLO522QH+2XYFH36B3+Prn4LzMKlAw=
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJw1l3k81Pkfx0e6V5u2C6l1dviVpKRIXqFx5sqVc4zBmBnmaJWKmgiV2NoY
lQ7KbmolhEhK0n1KStshXdSmJfXTpX79Hvt5+8fj2Xuej+f39XgMI32+1Dty
AIfDma7G4fz/+79f3bYmmp8jO0TJYP+AR61yoyFS4qGo+hBkbKgg1oTZEd3j
ESuIx6DdZNJEjTXEWtArLTXNUhLrYrBOSMCrNGI9eLumcMKyiA1wvfCPM5xc
YiOce5a6b1QB8WS41kW3VBcTT0Wf08WX804QmyA05bDGuUvE06GR/FFVeJ/Y
FJkfDhbqdhObQSL73LtuSArjWRC/KL49xoDYHIcdHbdbgXg2zhmkjnfiE8/B
6QHalwo3ElvAReHVXnSMeC6CXXvLGp4SW8JpucXHQO0NjOch61v0qTs+xPMx
ubYl+g8VsRVUrvsuz2sjtkbXb+o5b01TGS9Abt+ste5pxDaQDX4ny39OvBCj
oku2+S9JY2yLk+c6navriIGPxUtXGVum/8tKwKlahfYaxpxFOKEzqnIidyO7
L8K4Y7NbRj5gzLHDEcWnYVfXbGJ3O2R1jNAIM97M7vZ4OvbuxOJWxkp7pDYZ
hebkZLC7Ax7N125rCtrC7g4IC3uTrfafTHZfjC+ruV/rBmSx+2JUlT6Shz5h
zOFCe+wwb7NLv7I7F0fzXs9eGLSV3R2RXZlUfPA2Y6UjHlwxbFjquY3dnVB5
fPK1C9cYK50Qc/BZNt/tN3Z3xiN3J67qCmOlM4Lqte5dc9nO7i7wX9Z/R3KJ
sdIF6qr6b/e42ezuiqKsugEJDYyVrni7pWHMMescdncDJ2/aVfVyxko3fAvY
m99hpGL3JfDrudz+eDtj5RKcCJ9ck/aV7u5YoysLihXksrs7FHWCRPtzjDke
+FSZX96gt4PdPWCkt7u0bAVjjic85zhu7TjPGJ4YXZnXu3jUTvZ6T+RO6084
7su43hNNNskcp2zGHC9EliS/HnSNMbxg0FRRwOHsYr4XbPp9dgXMYFzvhRqv
QRMcfBlzvPF1bO6nnpWM4Y27tu9PF+SQ7w373KOHVSXke8Nx6wfF+LPkLwVn
iWKPuJn8paiNLP/4oo38pZjKdS6600n+UtgMC72W8oZ8H+jat1+x7SHfBzZa
Ry54ECt9kF0QskTtH/J90DnGymXfK/J9UZk9xTX0Gfm+8A7mlaU/IN8X6suH
dnrS89V/f33on0ndF8n3Q/G3OzN31JHvhzK1eQdWlJHvB6cTqh3lheT74ZCu
3m1JLvn+cG3tjLm2iXx/VHs+T3u5hnx/SPufLrgXS74/5lYkaZeHkR8A8wBu
d5oX+QEIvjslNsqe/AAkVawy5lmQH4CmwLK4pCnkL4OeiTK4Xpv8ZTCpda9q
Hk7+MuwxdKoTfKH3zzK8X8YpFr2h908gRu/+feH9x/T+CcRJi92V5c30/guE
8+HNkc/Okx+IF4ONh8WdID8I1p0hIscS8oPA956eLN5PfhAS252tWlXkB8H8
kO+s1Azyg1Hbm5coV5IfjEk35w7Kiyc/GC1ejRP6ReQHw6bc+942Hvkh8DeT
nAnyIz8ELYtvLPByIz8EmY1hK36xIz8Ejk7mRxvnkR+K6KwfbGxnkh+KRmvX
uIfG5IfCqPxy0X5d8kOxQni7dNto8sPwMHOwzu/DyQ9DeFBrQYsa+WHIuyy+
bvKR/XzXhyHAV7N1dzf9/PPQf7uryLSTsR4PJ4wHCtrb6PcBD9bpD/uK7zLm
8dAwP+J29g36fcLDipLmutwLjPN52H41fP2x09TjIWO5weHO44wf85Cd0rDI
spT64Ri2yPdMXhH1w1GRN3+ddgH1w2GVvGD40Z3UD4dD/3AP/9+oH46Y/RVn
tDOoHw5L6Yh/elOoH44DhcsnPUykfjjsUuv+2xZPfT5q+T8Fvo+jPh+2Q1et
0xVSn4+2QeukPuHU5+PXhFjPwkDq86FnI7ow0If6fFy4+rl61RLq83FC77pI
zZH6fBw53RmaA+pHYPyzluNWVtSPQJn2Ze6b2dSPwJ28bXZVM6gfAZ+uc4Ks
KdSPQIZRouYqfepH4PNBjkw+gfoR0N7yc9XKsdSPQKR119+ZI6kvwN+RgRfK
h1FfgHtnH3e/VKe+AF2Wdo0zvrLPE54AByYGn0r8QJ83Avzzt92frW8Z5wvA
fb1sJLeLcb0A5j0au053MH4sgIfcJ9H+CX0+ReJA+F6d+w8Y60Xi+U6JdPVd
xoiEcdFZdZNb1I+EhrOvz9Or1I+EYcU4u8MXqB8Jrt2XjMQG6kdi6vV+t4A6
6kdiz14HLqqpH4Ubph0bLI5RPwqqnJlcixLqR8FYa8Nfiw9RPwr3rz7NDi2k
fhRCUjmGafuoH4Wbn6YOrNxF/SjIahyOdeZQPwqmS+cYTN9G/WiMqNQfunYL
9aOhr7p45U469aPxPpj/1/wU6kfDIElHdWAt9aNxtDt+mvZq6kfDL5jbkxdP
/e+v/zH3rqGc+tGoDclsrpZQX4g3C18k+AqpL0Ro+sqpXyKoL8Ty8GE2xWHU
FyL61NmVgiDqC2HQxxNM9qe+ELp+Gq/eeFNfCGVLyQ9n3KkvhH9t86tdLtSP
gaCvsXkNl/oxMG/KWiKxo34MbHaMnRa6kPox0A4y6wqwon4MJiecn8ifS/0Y
tPBmDIkzp34M7Eu+jF1vSv0YvE1//rDAhPoi/OQ+et75ydQXQb7N0rXbgPoi
3A24OsDwZ+qLEPNr2W7eBOqL8MxUOCR/PPVFuLDFxOnlaOqLsLuraI+1JvVF
iO9+p5urQX0xNjU4B/UOpb4YSz1m+QYOor4YNdorlBfVqC8G58wvPZb0959S
jL7xDSWlnxjni7HOukZq1se4Xoy4GS8nHe9l/FiMDM6I887d9PejBImzR6fc
f81YT4JB12dXJrxkDAk0J8rctF8w5klQtr/gaN0T6kvAHbpNQ9RGfQk2lVc6
TnpAfQky51b3tLZSX4JPEzZ8zGmhfix+OTlZEnSL+rHYXHTtg9EN6sei+LJt
2/sr1I/FbGHZyisXqR8Lo5gZQQfPUT8W4ntd+hsbqB+LwK9VEdLT1I+Fnq5D
fMhJ6schP61hpEsN9ePgyovPXFBF/TjEGn9dMO8Y9eMwfM+IhAWl1I/D0NPr
rRcfoX4cXA76p3ocpn4cdIra3EIOUj8OwhlcP0Uh9aUwGbHGcUsB9aXwqEh1
K91LfSlmzp12/lYe9aXYYdZi93kH9aW4D+f0/6ioL0VylMH6YPr/Qr0UgTW3
5Nu3Ul8Kda3hh25kUl8G9Ul7bUdmMNaU4Z3aHpnPRnoeGYadKuLmpTI2k2GK
TXDUy2R6Phn4niVuC5WMPWXY/WPH2ewkel4ZNJ1U3l2rGctkaEzZ3uydQM8v
w/EjtW+q4hlvleFyb+ZGneW0R4brkvC9KTLGpTLUW0bK+2JpnwyXXOKmicSM
b8rwbObMM4+FtFeGvvSq1pAoxt0ytH572HQ/gvbLsXbC8KawcNovR+06C62O
UNovx+8Vj7rig2m/HFn6eoMGBtJ+OVYPVQp3+tN+OdAe6DjLl/bLsd5885/X
vGm/HCOG3IkXe9J+OcLq1kRpuNN+OfR/0Eoqc6X9cjQO3p0e4Ez75dDZsDdl
kCPtl+PF25ppFQ60//t9oMV2oR3tl+PArcNiPdB+Odx1Wjb/ZUP7Fci0SRiX
Y037FTgqeNfgP5/2K3Duxz2LJ1jSfgW0aqdrPZlD+xW4fID/5Kg57VfgYeP4
okQz2q9ARc+4R26mtF8B84zUZYbTab8CXVcDRnycRvsVuDkn9UbTFNr/vc/1
Exwxpv0KnGxOb95kSPsVeGv9yiRWX4X/AYT2ma4=
           "]]}, 
         {GrayLevel[0], PointSize[0.006944444444444445], Thickness[Large], 
          LineBox[CompressedData["
1:eJw1l3k8lGsfxsfRQj45KR1tslSUlCVOaHFFkWQPQ2Fm7MYwMzippKG0L5IW
a06KNtWJNimTQp2IFiVORU5FOVGhUL1v73vu3/wzn+/85prvXM/nee7nfnQE
0e7BP3E4HEMFDud/7/++uq0D1g7G3C9OBvsA2iMLa5yuESthzorKFQPXiUeh
qXpE4kQ5sTr2Jyn6llYSj8M+i5lH9OqIJyFez8zB8AmxNvY23brzrY1YF38d
G7llWjfxVIRsXG76sZ9YD4FPa3RmDNvIeDocayeHpYwmNkCX5blJvxsSGyKh
tDTQxJZ4NhLKUlV/5hIbozzhvMAihtgE/V82dc5PJzaFvWK8ytRi4jk4WabZ
WvKE2AzDymrO3R+6ibE5ptrVzYq1JP4VO3at0fwgJp4L+YK6wxeLiS3w/YP/
BdNBYkuoXzC7VGGfwtgKUb96CXIziefBLF9rZGEP8Xz4bhLMbPfazHgBJvmP
2ptZRbwQyZPSjR8u2sLYGieqHOcqVxIDrlVfjAedtv7LMsDHaLP0SBtjziI4
p8RPfZ64jc0XgR+jmquss53NbWAZeGiM2QPGMht8bw4uf797B5vbYkKFyd1c
751sbotanRMpadN2sfliqGQpzF6quJvNF6NbNFCs1cqYswTupT1GDnf2sPkS
XLbWGJkRkMrmdjhg/eIXw6eMZXYwMTgxJtVzL5vbo/CBi8W8J4xl9gi7N5A+
xSeNzZeivapn06smxrKlSNR1STvD38fmDqg6Wn7QppWxzAEw9y91CEpn82U4
oFz+yOU1Y9kyfPZT+xodtp/NHfFwYOVP4reMZY6oHXLzil3wATZfjuojHZ1T
mxjLlmNXolm26fKDbO6EB7rN/YlXGcuc8FUy+GqM3iE2d4ajTqrjqt2MZc4Y
XhI7NKuT5i7Y9XPxwVl2GWzugt+FATDKYMxxhdbORn28YQxXuBTj6k3jTPZ9
VzQ0aO4oimIsd8V65M05kc+Y44atfX8kazUwhhs6Imb2aQzNYnk3VI3jVpsY
MJa74anBjZfG9ow57vieyy0cEcQY7kict01pQzzl3ZH8VmvxxxTKu2NU/XrL
mN2U98Dx6IyHwfsp74EIR82/44hlHliwfsj3c+mU90DflCVBjWmUX4E9QttK
ix2UXwGHQS3ePxsovwLORiYHwqMpvwLr0+ZF6goo74nq5Iq85a6U94Tn59uv
DSwp74mXi3uEM6dQ3hP3Juqn9CtT3gsaYauXmryn4+eFhEaVoacf0fH3wtRZ
+y9NuUrH3wtuExs65Ll0/L0hUB+ypyuZ8t7Ymn8q9nMY5b1xWPGu2nlnynuj
KS56ia4R5bmIUzCac1qN8lyEDKZeWtVL5wsXtm/Mf9vWyFjORV92z/UP1+n8
8UFqs9HhzuN0/vjAyYX78sYeyvtAuz6j5EQs5X2wtM21XMWX8r445tSwQLqI
8r5oWGdQeE2f8r4YrB/aK/qZ8r4oOCz+7V0fnd8rsfoz59nBl4yxEuLA4ime
d+l6WAnbeYU+vBLG8pUIuF/0JDaX8qvg8OX5i5YtlF+Fo7EdAWkSyq9CqfzV
H68DKL8K0gLlZhdnyvth2Iz4EZZWlPdD+/Ob04bPoLwf4m0njLXQoLwfFBzP
CEx+orw/xnoZHD/eza5v+KPm8YBu6wu63v2RLT5b01zLWO6PA52NSouv0PoQ
AIF7QkLyScoHQJTem6WcQ/kAbHn+svXaDsoH4L1+YAJ3HeV50K/OeZAUzlib
B/eHswt8/Oj3eJhUF4oFrox5PNwsV5rwaRH9Pg/S4y9SRKaM83j4sfpNm6dH
Ph7yKtSOjlZn3MJDbtLeg73DyM9HRL6V5tZBtv5p83Gy1P5XjXeMwcfR9qQ9
N1oY8/hoemPy55xHtF7yoXpDMv5zJeM8Puz37TDpvsxYzsebwRMf0s4wbuGj
TSHY4/0RWn8F2PPKr1eWQX4B+IVc89up5BdgeUXK/OQk8gvA0dZf3hhDfgFK
pEbGpyLIL/h3veWRXwBLWeILa2/yC5DsfTfnqTP5A2FsqlBut5j8gVggvOR3
3Jz8gVhjHVX+1YD8gchctTPJXIf8gTh9bnxLxTjyByL2ste6Q2rkD4Te2Xsm
vBHkD8Re1Z/5XznkD/r/eoI+dn/SDoLigVWVgveMEYSnF6cXJ7Uz5gWhtuP8
oUMv6X4WBLgoDnNoZJwXhM5KV+eSu4zlQTAXhByurmbcEoRvExySxXK6Pwaj
7i/bikuXyB+M1bN39rwsJn8whhkNjHAvIn8w8jTFfiaF5A/GxS/qnPwc8gfD
09Hqz0Xp5A+G0bOpwxbtJn8wnIyzheM2kz8EvMmmrxQTyB+C1qu1E/VjyB+C
mcZBce9E5A9BQZmXzeoI8ofgonpq338CyR8Cq+F1mwoCyB8CyavOnL1c8odg
Uq7/DEdn8oci+/ixK/uXkj8U24d41EbakT8Ul2T1ay1syB8KnpJlV7kV+UNR
nmwWqGZK/lBIfFJqZbPIH4p/1CI2q08nfygUH3wfztUmfxicM7KiF2uSPwxi
fbXWw+PIHwZdi9ltIaPJH4axCs5duqrkD8O1H9thbRXyh+HHbnl64lDyh+GB
m2rIGA75w9AxymL09EHaP4Wj3mDOsd5PjLXDoXS3sX5XJ2OE435a9cPzbxnz
wnEikuvh00b7rXCYNT5ak/6McV440t4VpHs3M5aHo4vj4hv/kHFLOKLUfYTt
98gfgW7xPDNDYu0InLqY1dJ8h/wRMLLYWB4gJ38E+gcrI7eVkT8C3m/GpX67
TP4I3E5A3qdi8kcgISimYf5Z8kfg6QGF0BlF5BfCoU/J/OYp8guhfOvdQEo+
+YUwC2s/nJdHfiGcDSYIrbPIL4TKIXnRYBr5hejZuf6O3R7yC9GaOW9Aazv5
hVj5Md43cQv5I+FdoxRdl0L+SPgHizzKksgfCfcx6xcu20D+SPR+ueZUvpb8
kejfXBE6M4b8kVjWNTFgMJr8kXB8zX3eEEX+SPBvLVRQjyC/CPvVNGRVweQX
Ya5ZcGEA7a8hwsmk1zFneOQXQbQ7Jqvbj/wiPD4buzDBh/wiCEce69P1Ir8I
rdPXxN1zJ78I4bqR8QMu5I9C5FpX1xHLyR+FcfHvF2Tbkj8KCRdVVfvmkz8K
wukXNO5bkj8Ke25s9yiyIH8UFIQNZxyI5VGw0RtvedeE/FHIm5h5fp8h+aPh
sbbgIHcG+aNRq73wXJse+aPh3rjkvqI++aMRn8HP79QhfzS0nHqDrmuSPxr1
jpVVCRPIHw23Hnm19ljyRyNtSWa8/Sjyi8HrSIh/rMx4lBjze54VnR5O/0eM
Lk1zvcVDGRuLcTA2fWMGh/6fGCUlHjGW39nzkasYnyaHZhp/Y8wTo8z3fc2Q
L4zFYqy7UWhp2UfPU2L8/XtX1Kt+xqliaMjsOkbT9/PEGPMwhbvgI+NzYhhF
1nr5v2csFyPu7Z+hVzoZ14vx+YD0OreDcYsYtmu07GP+ZtwtRqJUXXt7Gz3f
SfDtlxzDOHq+GyWBwb4JTXjGWFuCx1YSy8nNjI0lyHXIOnm1iTEkuCE+w7d7
Qv1/zO18DboaqL8E8Tkj+0MfUX8JjI7NHj+c5jIJlGL1RAYPqL8E68ZXSu/W
UX8JZNnG/JIa6i/BUc9ZHe23qb8EI37ZMse6mvpLcDPoJE/9FvWXYH7lyUWH
Kqi/BJx9Kwq4xBwp4nS8Nmy6Tv2l8EhIsLl4hfpLYXJwhWhuKfWXYpnA4crg
BeovxfE3z7ijLlJ/KWz/M0RDSMyTYo3NWes7xdRfiqL8k8q6JdRfirL906wc
/6D+Ujimqrnyz1B/KdzcemfmnKL+UuxVudfSVUj9pcj2jvNSKdiH/wLOjJTY

           "]]}}, {{}, {}}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 500.},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 300}, {500, 2000}},
       PlotRangeClipping->True,
       PlotRangePadding->{{0, 0}, {0, 0}},
       Ticks->{Automatic, Automatic}], 
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxV1ntUzGv7x/EhCtWWQjklSaVISGzEp1CRqHTWYZpppnNzICVPTG2lHCq0
KZGQU9g5ROEpk7YzpVC2QlEOKRWhLfT4Lfc1a/3mn9ara13zXn27565xPJGL
oC+Hw5nUh8P5v6+/Xh3zOf//BZ5UtGNH8lD2/QGoy9v28tgqc2YNRO20mDhS
Ys08FIGJjuLR95Yx6yC9Nr60YoMn82iID+55PsaCx6wH15kj5jXfCmHWx9yu
w84fD0qYDVCaaJSvEhvNbIg+wpRx4l3rmY0ha9Mrv5/xB7MJziifuVh1Ppl5
Enat+ao6/l4qsxne7XwxNenHDmZziJWrVbNn7GaeCvVhQx/E6u1lngaHwfHG
R1pymacjYmXTsZ4ZecwWQOL0xV0/jjLPwHtryRu1FSeZLWFS2bNHP/c080x8
7P5TtCP0HPMsGGy/3WuXfoH5d1gNyueU61xing2bd9LijaqlzHOgU7K1uWdm
GfNc1GSrTMk7Us5shVsGzvVT3a4zz8Ootvjtdba3mOcj0vSUetb6u8xAXlLr
i369lb8sA7wuLbo2tbmKza3x1K2flX3nAza3Rtp7r6YYgxo2t8Fk25D5Vhse
s7kNdo49l1nZp47NF0B6967upJNP2XwB4mqt+ivPb2DzhXAx5WVHXW5k84UY
WOUzQsnhJZsvgvtum1NmbU1svgjn0LTc78ArNreFqeHJB3XCN2xui7jL2woe
z21hczvs6whIkeq3srkdNO8d9Ds7/D2b22O9pcFTOzV27mX2cFCxU12n1cnm
i1GksXNwgN4HNl+MtanBVoHTPrL5EtjYLHjyzr6LzZegvnNJlQ//E5s7oI5/
WGVU/Gc2d8DRCY7vUg58YfOlyLCMfKT+dzebL0WyyfBg9Tf/srkj2ivtJ35Q
62FzR+QuGf3BeNo3Nl+GoSOsXcZ7fGfzZbhZ7zXRY90PNl+Otp7k8cjpZfPl
eLU1Tem0Pwe/5k6wXLM1eWw7M5yw9EzCbMu4Pr8sc0LAdYHllYF9f1nuBCX/
Uq2UDGaOMyrU/8kWjlFi+85QakrfaJbHLHPGuz714y4b92P7zlD1islqyWfm
uMD3WcGc/Sb92b4LRhk/7C49yixzQZRqVeZ0fWW274Jun6L0lixmzgr0u+hY
9/A3Fba/AsKvg66+kjHLVmDP3XYlnQ5m+Qq4pyZG8H0GsH1X8L5v3nL9GjNc
wR2jXWY9aSDbd4Xf4Q9Xa9OY5a4Y8KKyaFsHM8cNPrJH/cOWDWL7bvCMvbo5
5jizzA12C0OMy/qosn03rGq6OdTZg5njjt6CI9Uz8pnhDtvIgu9xX5ll7oh6
7GD4u70a23fHkk01KdE7mTkeiO35Ure4nhkeqHZ0ji3TV2f7HsjoO6C6Xcgs
90Bh59zVr44xczyhxZvNKXrDDE98anyltsrwN7bviZrUcpVJPGa5J9J6da0+
ZjNzvLDbJvXoPw+Y4YV1OVuK2wcOZvteaLOyyJ89j1nuhWLNETfuipk53jhx
0D6m6AAzvFF/xGieahXte6Ms0qul9gfte2OB22qzXcM02P5KvBu2WKRqyoyV
eBb7JrZ6PrNsJXYLbcs7VzDLV0LHf3+0KIj2ffDQTRLhHEv7PkhDjvW+rbTv
A78xT9w8c2jfB9YPuTc3FdC+L5rSpBJzOe37YvDBThWP+7Tvi9O6Nzt7n9O+
L5w2CtZMaad9PyhFOBe+/U77fnhS0Dd7mtoQtu8HJ751vfpIZrkfbJcHa28w
Yub4I6S+ojbFghn+aN/ov3qqNe37w+1J28C1jrTvj9ChWy7yvWifi6Qu29Cu
QGY9Lng51Z8ni+n9uLjj/spQax0zlwuP2LDNRxLp/bnIFgvzW9KYc7kwsXT4
3JhFPS4O/PtNnnqIuYEL/RgNx48nqR+Am7r8O0MuUD8AecNMHVtLqR+AGa8t
GjfeoH4ADhTGyZ5WUj8ALp6DON211A/AhfKti2qeUz8AOo+cdWNfUz8AK/9c
ZNj8nvo81CaZjRjxmfo8pDdfSNb+Tn0ezF7d+dKopMn6PAxf4/9k7SBmGQ8h
t72LGjSYc3k/7y/XVm1tZjkP9iYWT/XGMDfw4NbVWP9Nn5nDR8Zeg5GnjJn1
+Hi0ofT+NDNm8PHjcbFh2nTq86Hf27iifBb1+Rhn3Bl134r6fFyd9PRkkQ31
+Vi7quPbWjvq82GYtSpQZyn1A1ETHfNypxP1A2FfMjCyzZX6gej+XbmPoRf1
A3E13XXdPF/qB+KQzduCmQHUD4RXQ90qTQH1A9Gsue94ZTD1AyHll2mLw6kv
QPdFYUyXiPoCTLAbdsx3FfUFcK8ucTi5hvoCHAt9ZNS4lvoC2CVVNHz7D/UF
UJtnZ8SRUV+Az3njc94lUF+AlNdR9VcSqS/E/Pap8XHJ1BdCS+WB6YQt1BfC
OXlVeNE26gtxTVWzxSKd+kIst/Qdn7OD+kKUf/pU8DGD+kJ8Pr6+n+Vu6gvx
Si02WZBF/SAcETZWJGRTPwg9UecCUvdRPwj/hD85mryf+kHom+AyVHqA+kGY
UuE6wOEQ9YPgUJjVrXWY+kFIUq7wuXeE+kEYd6FjU/Qx6gfjtlleq2Y+9YN/
/kM4umn/CeoHI89lV6XuKeoH47yGQDX9L+oHo+VgRuvHAuoHIyrywd0lZ6gf
jL2773/OOEv9YNjou8irz1E/BHWLVkb1O0/9EEyq8vM1uUD9EIzt0HuxsIj6
IehwtJjiWkz9EMw6bp7meZH6ITDtncVzuUT9EPw1/uVD68vUD8G0vLMTjP5L
/VBcu77tVN8S6odia2t05kMyQtGSVzlyXyn1Q/E1ynq1zxXqh+J5+OZWTTn1
Q3ElO/mQnCwPRUVX6hNBGfVDceKCXUXfq9QPw6QxAZd2k/XC0NV4/rxBOfXD
YKBs1iefzA3Du54594z+pn4YDn50N88h54bhQuwVnvo16och5fid7VHkhjAU
W6e+rSFzwjFcJzl/6nXqh2OYutHTRDLC0TgnvvQBmRuOmV8HB4+6Qf1wzOgu
7PIh54ZDMP1EeiZZHo4mn+vCCnJDOG6F1u/5QeZE4NnCmnkTb1I/Aoutpq5f
RkYEVHYYSCLJ3Aj0y+RapZBlEdCSJ33LIedGwOfa/ooCsjwCh96MvXeZ3BAB
owN12uVkTiQcl0sqryn6kWjWOtyhmCMSJZOHZJYo+pEobH7cflbRj4TaQm/d
PEU/EtWm32ZuV/Qj8als8MJYRT8SblYSF39FX4SxRa8ToOiLcP9lQssYRV+E
fTt+K/xCz4srglP2ydp7iucvwnDvoMhcxfMXQSD1zhQpnr8IsfFn3econr8I
HkMCy5QUz1+MNv2e1pv0+9UQw/tpUvNmxXkQ48/iNPlisrkYc4cvTuivOB9i
xBRb2ZXSeXISY5iX3sTVZK4YVbhuYkQWi3GzfINzreL8iqG816ZqIzldjMTD
6vunKM6zGP1MhYW1dP5Pi1E9eeCEOLJcjEUJdSP1yPfFWLD+7y1y+jw1iHH5
jzN/+JE7xBjOPz/iK30eORK0DJm7dCdZQ4I4Tz1zE7KeBKnFvfdK6fNs/tN6
D+BMhgSb1Cw2NNJ94CSBx4+2gyIyV4Jn0aLTPXR/iCVoUB94PpEsk6D7HP+0
OjldAonhl+M76f7JlaDq9sZT2uTTEuTlmZZk0f0ll0DbK7R1BPm+BBZJtXMy
FfedBMGWHSVDyR0SlL8tik2j+5EjhW3+hKgBZA0ppvguP7aB7lM9KaaF/Wv+
ie5bcylG3chUDSFDijbVv+bX0f3sJEVM1LomB8V9LcVa4ej3l+g+F/98/7hd
gcZkmRQVSro+GXT/p0sR7Vt/60ch/fxS5GiZFQaRT0vxm7FAr5L+fsiliK9Z
ojrjp/8HVs5CGg==
           "]]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjHkfxicqh+w6dJCSLTlUooNDSLojkXTOdNTMNDXTuZmxkRw2LbE2
lVBoU+RKDlFSsUmjfVGsJKGDU202sjHKaSt6vZff13W9zz9zfea+7ufzu59n
/hmDoBiPkCEcDsdUicP53+fXS2HL+f8Lu0sF/rl11uz74ZBr9ExcnOPFeAw6
XyZt5foHM9bArlOCDr0mCWNt/CZe3Xdt6QbGE1FY92qU6p9bGetjZ/O/sSUq
OxlPxjqhYlnW2lTGUxC6IW9k+qR9jKeh7WNP437Hg4yNIBpvVZu0OoexCf62
H+oiNM9jbAqj2/nyumXHGc+Cap3Wx5yBU4zNMao/2+luSRFjC3Tc4M9KvVXC
2BLg1pddXl3OeDZ2ul/Mn+RdwXgOlm1IUf71YRXjuRg1pHjdzrhqxvPwaUh7
62+uVxlboUWcYJcXV8N4PhRZP06O/HiT8QLo7FtZM//ubcYLYfFwywBftYGx
NfyT01O+82pkvAhnEzJDL9y9z9gG07YrQvSTmhkvRkqSXllYxEPGtnhms8hu
2c9PGAO8/TXOAaK2r5wAqBoc/2uG4V8st8OR8d33ND50sNwO4z14ug1P/2b5
Eux8v2Xy88fPWb4EmZ/eJOa87mL5Uliufa2jPrab5UtxujjS08TuNcvtUWV8
KrzpMvvdJdiDt1bQb9z+huXLYB6ZPt17RC/Ll0HD0zdt1uy3LHeAyUz17XGB
71jugO8rc2s4u96zfDnuGL9Syz3/geXLUf+wOX/Oo48sX4Gu+AyTgiF9LF+B
NLn2gX8N+1nuCP8pXAczDLDcEa2Cuiki7ieWr4TRrE7r+pDPLF+JVfU2vuei
BlnuhNwFV16dm8fB19wJXaXdI2ecY8xZhd83zYxSMlZi+Src9Yt3UspizHFG
84GTisFhQ1juDKMJ96NbYxhzXDDm/TrHTQ2Uu+D3Xh/FHbOhLHfF+1IV3NvB
OMEVFgNi7Gih3A3LF64XK6Yrf2W4IXZhVqy+hHGCGyKedsydWcJY7oYm/SvW
Fm8Yc9xRc8Rb2dVEhfXd0S60HnYmkHGCOzLGaHrGpTCWu2OlLCyx9SJjjgeS
74zFyDbqe8DUrvDofGVV1veATfPUHdmGjOUeeNEUvE1qy5jjicO+WeavvBnD
Ex4/fbJxjqK+Jxa4La+p/Yn6nsg32up4OJX6Xjj6aGjW0Gzqe6HNbrOjZQH1
vfDCdoETv5j6Xuj9J7ai+gL1V8O8Li1492Xqr4aiN2/+62rqr8bt/dr1Wteo
vxo7Wwa0zWqoz8XHyNRAfi31uYiMj9auJ07goqnyqfoRYjkXB25l3Oz51veG
3ynjxW3Xqe8N13zdYTvIl+CNyPmKvX3/ob43FEG1Ja5/UN8HPyRIWjKvUN8H
OTzDle1V1PdBua32e2vaJ/dB18w+h6JL1PdFfN+LuBUV1PfFFp7ex5G/U98X
9zLmW3x7XnJfHC5YKkgpp74fzjqdmL69jPp+wIfmcedLqe+HjWZ9jwyJ5X6o
2m01r+k89f1hrpvZ1EAMf6yf8kJL/VvfH6XqVmqZ3/r+MCtfKAkgHycAdQOm
hTw6DwLA3TJhUzadNyEAvQb388fRHnkA1rnrZFbQXs4amB9di32V1F+DXbV2
5Qe/Pb81kOq8vHednq98DZZsV8rSpffBCYSzmYUgnd4XApFce2C98bf3H4h4
7aVxj25SPxAeJ7gLT9dRnwe14nrRvjvU52EiN6p1byP1eZBfyNp7/AH1eWi6
EbeuroX6fPi9LbNUfcxYn4/FuZeindvofnzEVQZa53Uw5vOxLaIiSOU53Z+P
HQ885bKXjHP5CPFsmdH1inx8iKv63MN7GD/l42QvZ1HPO/ILkGrWN3nrv+QX
wHjF8Wuan8gvQHvpiCtnOcOYX4BVV/gbXJQZJwgg5V7YoxjGOFeAzkVvVmao
MZYLMBHegbajGT8V4KNjtVrXOMacIDgpLX+SocVYPwhc1bsD9jqMEYQS//6s
Xj3yB+Gt1sn+IwbkD0L3kcibblPJH4SLr+/ZDRqRPwiuK07EFZqSPwj2t3bM
9TcnvxAvBnRNh80hvxDF5WZuxVbkF0LS7zHK15r8QrS3VagNLia/EC6W6qPz
lpBfiDjZJO4yB/IL0bc5YuEzR/IL0Xp2hGuiM/mDkRh6L2+iO/mDwX+uN/q8
F/mDET3bU9fRh/zBMOgXzW31J38wOreOLwnjkf/L/eLGRb8NIn8wCuy7dDaJ
yB+MZEmIFyec/CHgZPRvS4gifwi6Um+//CQhfwiMMg391/9I/hDobi/Z1L2e
/CEYczWokLeR/CHI8+w0qdtC/hAIu4b8MT+R/CHQSXyklLOd/CJMjuFpKv1C
fhFEfo1evGTyi/BuTeUvF1PJL4JG996zY/aSX4QfmuMHhBnkF0F28uGY8wfJ
/yX/abQmJ5v8Igg3dQ465JJfDJUT75R35ZFfjOFOPfW1+eQXoy9xQZrKSfKL
0doT6WhTSH4xjk2oFEqKyC9G140zvJwS8othsOj+4xtl5Bdjpij91ZuL5A9F
3/FbqzQryR+KmzYj982Rkz8Ux24+een6B/lDcaH2mK/4GvlDYfw88Ex8LflD
Ufc4S33Xn+QPxSKDdP39t8kfiqMqc8b/1kD+MFhuNGk6fI/8YSjU1bPMbiJ/
GBStfrsOtJI/DAEcr5DUx+QPg2rRwIjENvKHoWXT+tPSDvKHocBvl96aTvKH
QbPohIt9F/nDoVWmLjLqJn84wh+IJMMV5A/HwfsGhh095A/Hg83jGyrekT8c
NhbpU9M+kj8czWbvP/P6yR+O+NtuHNPP5A9HQXHf1rdf/kd99UegLKfgz4tD
GetHoPsh52C8KmNEoJZ34KrVCMb8CMy7scj7jRrjhC/5o4cO+d8zzo2A+ZNf
V3iPZSyPwIM6343KGoyfRqD+qOf7Qi3yR6J0rFOp1wTyR0I0asnUD7rkj8S4
5g7/jEnkj4S91a1SCwPyR6LgB++GGkPyR+JNeu+sgGnkj0S7q8a0f4zIH4lD
VSkVcTPIH4UdKXrWSrPIH4Vt5V7WSebkj4Joz3LxsNnkj0JNr7XO9rnkj0LI
d5b6g1bkj8KLoJjc2IXk/9I3+TH++SLyR6FaGv+Xty35o3GpQUXzP3bkj0Zy
0bCqGfbkj0Zd2OylqQ7kj4bN8+ptr1eQPxqydRnfOzuRPxqf81pSjzuTPxoi
obLDZ1fyRyP00Foldw/yx+B6ZbVbrhf5Y3DJKtDyHy75Y/C62iFzri/5Y+Ai
Pa290Z/8MTjc1TC2cg35Y9A+VF9ngEf+GER9+NXfKoj8MRhclW4eE0x+Cabv
mXs5T8R4jAQ+fpY3GkPpPBJsnBG6b0gEY3MJNOZUZ5hG0fkkcKm0jPOMYewm
wajb3Oz1UjqvBFeKgvkH1jKWSNAobhCWxtL5JahLcwqsX884TYKAkqQPnRto
jwRa+5QF/RsZF0nwdP5ZPbUttE+CVx2PftZOYFwvwWPz2NDJibRXgtS2N61G
2xgrJPCS6olNk2i/FKc3p4Sb7qT9Ujy6tDDYeBftl0LRt9fSMJn2SzF+yZ0k
nRTaL4XRUrHg+zTaL8XD+KKtg3tovxRLHl/e172X9kuR/d3pqqb9tF+K/kb9
FHkm7Zfi0NWDg8cO0n4p9JWq7ZOyaL8UOxffmRicTfulmGIZq2mbQ/ulmHZT
uV7rCO2Xom/Oz7Uvj9J+KZ5p6vRUHqP9MjTMsBu5O5/2y/DukG2qTwHtl+HM
E0WywUnaL0PBrAZZ5ynaL0NbTaPzyULaL0Ng4/XG8LO0XwYTG662UTHtl2HT
hLU27edovwxL2j88O3ie9n/xdV5d7FJG+2UwGBAHD5bTfhn+Rk1Q4UXaL4O1
VP+5d8Vw/BdJECT7
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVl3lUjesex7coUbciOpmSZkMpoujgKxmiNM/Tbjfv2ru9QxI6iWsqDYdK
ijLUkVOolJBzEiEqDaKDFAoppCSJXHd5fnetu/9pffZ3f9/P81ut533edwYv
1NZPgsPhzBnB4fz3789PzzLO/3/w0iI9uqJSjn0vDUmZWzbbL+swVsDLW8ll
BeaLGU/AKZGV0VWz1YyVEdGofWdjnC3jqajXOvhg4zE3xqpY55o1Qy/Nh7Ea
AubPnbjgHz5jDYwT2klIdogZa6HQTq5s2GkzYx3YXNfNPNe1nfEsrNUJ9znZ
EcN4DvyLr3bOO7iHsR6eSwuKupUPMNbHpSKtxy+rkhgbIEL9vUl9UjLjeQhO
uHt0WX8a4/lYt8Fx6+9SmYwNEZ65blNuyAnGCyAxqiN1yrVsxgux3a5CyjM2
l7ERGiziJJIf5DM2hqzL6+0TnAoYL8IRFQPLO3IXGC/GhF7ZWB3li4xNMDG5
b21zxGXGv2J4Tc4R64V/MV6CX58pFL6ZdY3xUkzfE66hLrzOeBlm1aJM/lUl
YyAoPFImJ/X2T44GsmbbKBzecZfly2Ef2P19ZU4ty5dDJ29apOvIepaboj82
w+x2fQPLTaF18uiCpL/us3wF/LWCJc5UPWD5CoiybxQ29jaz3AzvXxjVZy56
zHIzNF+fphh6tIXlK2EWn//4klwby1fihef2827uz1i+Crvzg2bJXnzO8lV4
ONrxkLZKO8tXY39qb9WXxA6Wr8aevmM5FXKvWL4GPWoRgrMpr1m+Bjbz59a+
0H7DcnPk8Dpfb7vWxXJzzHz43fEA7y3L1+LA+33H1Me+Z/laHFL9c0a2G+2j
dZC3HHq2y/ADy9dhabzEJUP5XpZb4PK+VdeMuxhHWyB/QW+c0u0+llsiIUQ9
wyH7I8stkV/3teC3mH6Wr8eqHTdbZ3h9Yvl62L5+ZVK9eIDlVrBtX81RnPiZ
5VZYrIKq+LeMOdb4V/PT1ifXB38yrLHz5L7MzNQv7PfWyDoQszcqcOgnl1sj
R/foIq2FX1nfBrqvLsaZc76xvg26izoWHb/JONoGJ3aU8Lv2DrO+DWYs3jS+
e9V31rdFQ8Tkawt/NH/2bWHu0lmf6co42hZ5Gnp6GYWMy23xz3GD/EnSI34y
xw5btHw/Srsxhh24Bgn2Hn8yjrZDuopGj+wg43I7vN39NUzBTIL17dGtt7+F
F8cY9lif1HR0RAPjaHu0DybpdU8Yyfr24PSFG2k4MOY4YP2LKyH5vzOGA04P
G/fH1TCOdsDX/NetVZKjWN8BrfcepYeYMOY4YkHw3f4oIWM4Ynau/QeZTMbR
jtCNHHV2eg31HeGtIK936zP1neCxLWqmgpok6ztho93WRWPMGUc7YaBy0PGa
gHG5E5LbD3euTmTMcUZzv15R3nnqO8M6Qffy91rqOyPukf8smy7qO+NTU5lz
gaQU67ugtiYtWV+FMVxQl9c58NSQcbQLZheUdVSYMy53gdmuVqd37tR3xc64
qmthQuq74t3GsxLeUdR3RZCifVJVHPVd8TXqhnFZGvXdkLIjhLcmm/puKJaf
27ntHPXdMNpJTj+wlPpuKC8sMVIup747uh2nhx65SX13dBj0dg3dpb47EoQq
PPM66rsj5UiiQkIj9T1wOnxraXMT9T0w/rBJq8FD6nvAqNJZnE1c7gGDyR7T
lxJzPLG2eOkaqQfU98Rticiu0fep74nXBX77Leqp7wnpFV+2tNRQ3wu6bYat
16uo7wXTb6lC6Urqe0FHVOFZ9Df1vfCF9+FZ9SXqc2EqU3DGvYixKhfJJR/N
+Hl0PS4mtr+W/naKMZeLqGph3ZSjdH0uNt8f51xziHEWFyV7Dk1S/t//i4uN
v3mslNjJuI2LoT0fHiVtIb83XMwn5VSHkt8bn2/MUyv1I783jk14UOziRn5v
jC0WxJZYk98bZ6fmbGhcSX5vaMTNsC1eTH5vpEh6V3Hnkt8bHwsNpR6pk5+H
vWMvBGoqk5+HOPkvb1bJkp+HY+2VLqYc8vMQ0q1pP+Uj7Q8eFBV2H2x6xTiL
h3plc8HGx7RfeHjir2k0RPupjQfZOQIlQQXtPx8ciF78sLqYsaoPLNSf2E/L
pf3og1XWf+h7ZzDm/vh9WYlWegL5fZCYev98TQz5fTDq+vIVQ5vI74OS/HJZ
rSDy+6A/TknT2p38vqjQ4x3bakV+X+Rb3Qo4Y0p+X0xW+xb5dAH5fdGRmbZ3
0kzy+wIq7SoeU8nvi7HHq2+fkSe/Lwb11LVHjSS/L+S19VL5n+j+5Yem59/t
WjsZq/rhzbKiFp8Wuh/6YQm/xnCwjjHXDxI97w5n3aD7ox86LygOu5YyzvJD
4uHjgpl5dL/0wwWLdzWyWYzb/HDmnPCl5CHy+yN/IDJ24l7y+2PM9ez4X7eR
3x8Xi6+mbxWR3x/hxs8PNPqS3x+j1lx8YeZCfn945Y22rrMkvz8ij8ssCDcl
vz9+b4m5v9CI/AHIijSvHT+H/AHwPZWSN3YG+QMwrBaaq6JE/gDkSmX8YiVD
/gBsdPBUzeCQPwD7G9uVpD7ReRWAopkDdge6GLcFoP24YovBMzq/AiFU5H/r
e8BYNRAqLhtuNlbTeRaImS+aXesrGHMDUd5YWt9dSudbIPKWOhtonWOcFYhn
fbL7t2eTPxDpnvp3etPJHwjHg88//5vOS04Qwue5jzbaR/4gnBqZ8kQymvxB
8N0dnN8bTv4gLD3Zo/ZNQP4gXJxlNEfTj/xBKJnV2sl3J38Q+ixbpGvtyB8E
S7lez/XryM/HuujY4S5T8vOx5W5acs5i8vNhsHlrx/Z55OcjJHzCHfEs8vMx
pPpoXowa+fko8uWUnJ1Mfj6kUyIWDownPx+THTTi3WTIH4z2+2opj0eSPxjx
y3Sawr9KMH8wjJ3C5un2M+YGQ6kxQTz8lnF0MHZfNJ365iXjrGCc37N2bE8r
4/JgRKx3+ir/D+O2YJytbSgwp+cbTgjGCQSTj95lrBqC+PaeP8ZUkj8Ei/7+
dWXCX+QPwbYhqXjdUvKH4PTBJLX2AvKHIPKxUXXhn+QPgfY7Wbu0bPKH4Hym
nDg1k/wCvN42VJqXRn4BasYJBpsPkl8Ae867B1PiyS9A+nqB0qa95BcgMtvA
pz2G/ALE5t6LCNpOfgE6rpyQHBVBfgFiXK1uF4WRX4hdelo7IwTkF2LyodWn
bQLJL0Thy8q+pT7kF0L3YYopPMkvRGyGabCDC/mFcP8XpkXZk1+IrOqzXZes
yC/ElnGHo6TXkT8UXq6Kp4JWkT8UKs9OK7YsJ38o4g5zS3lLyB+Kuk18mS/G
5A9FspFTwwlD8oci1uNqu7s++UMxz92qSXsO+UMRWD47ZKQO+UVYkhsa/F6d
sYIIDzMid3ZNp/WIsKm2bevAFMb6Ili7m3war0zrE6HhnnHNkgmMrUX4u6Lz
wWYFWq8ITRdvlpTLMhaJkGlg+IvyGFq/CHNH3JKLkmScKEJVkIlW7wiaR4Ti
qXs/bBhmz+/nRdD8cmX5yCF6nhchVd9uatYA4zoRbi55OG7tR8ZtInTJa77k
fGDc88O/TSHixlt6fxDjrO6p0ENvGCuIofLQK1f0irGqGJqLnF85tzPWF2Oa
3mcly2f0viHGoxET71s8ZWwtRm9vj4zzY8ZcMV79krhN2MxYJIaOk2gwoYne
T8RoaNIwLmtgnChGgq/miL57jLPEyLjZo21YQ/OL4Z62Mvi3OzS/GBYDJYX3
b9H8YuSPGVM2v5LmF+OMSr8wo4LmF+Nb1ckMuXKaPwz2HvUy+6/S/GHYNWlB
mNwVmj8M3l5BjemlNH8Yyo9dfmNQQvOHodRy34G6Ipo/DCbydiWbC2j+MKga
ZChon6P5w6D0USr8aR7NH4aFY1Rbjp6h+cPwblL1J9/TNP+P60c0pc/Pofl/
rGfHqZNjTtH8YeDrKzW+PD4C/wHuLCtT
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVlnlYjWkfx4+yJFtGiCEtmEYNbVIYfdsXob20OZ32ztI5xxIhx15ZWiwV
NZ3MiLKl0qKMM7aIyvDKFtUYlCytlpi83mvuX9f1nn+6Pn2f7/U593nu+/c8
2rwY9zAlDodjMIjD+d/ffz8dlpz//2Dtcff0TMe57P8qsH1zCVfzlzFWg59V
mfII3xWM1bH9qahiJyeasQaGfghqzNi1kvEUHCmea1CRvp6xFuTHVbpaj21h
rAPD6a+tL69JYDwdI6cV6wb5JDOeifg3TS59ZfsY68GgeuZFndUZjGehVmu9
7ou+bMYGUJroHAejI4xno9SlvbPi2VHGhnh7Se9Jsm4BYyM43og12cU5w9gY
afXPI93sihib4Mr+pCbHqHOMTeGbmrozp6ec8Vyon60Z1v6uirEZftMStJ44
q2A8D5oXJLOi9S8zNocqr2v+i9arjC2g36tRG/LmOuP5WKrutap8wS3GC5BQ
Wq8yt6Ge8UJ4Ox/Pt2j6k/HP+HG7xzBF313Gi3D6rTDo/M8NjC1xeqg4++Gx
B4yBBsHizY7mj/9lGSBqmLP1/psnLLeCaC/HfFVIM8utYN8S8PZccwvLreG0
qSIiXviM5daYXGR6XKDynOU2ELzr+eHLmRcst4GN3pcrMl4ry23xyTa13Vzz
Fctt0bfTsm1xSzvL7dCQaffkTv4bltvBr3bHxLbV71hujwXO9f63c9m+ldmj
eOqUCwkJnSx3wCrtm6kmoi6WO6BfWO3S7tbNckd4Wu3Vvmvcw3JHCDQWVWqq
9bLcCXf98tKHtTGWOWHFib0bH1S9Z7kzNv2UF/g66QPLnRE947vdJ90/snwx
+oJl49PGfWL5YvidSSzVrWXMcYHYMrDuQ3wfy13gyd3fek7vM8uXILutpl29
hrFsCb7yPms+5H1h+VIkuVUVNXQxli3Flesywet1/7B8GXRGHI8d9pGxbBnc
/dsStYX9LHeFi8io3vIhY7jCOjn4knThV3a9K7piUzz/c5CxwhU7yuxH7mhl
zHHDIv7+9480OPi374Yp2atUl1gwlrkh8sbQ5FIvxgo3uGisvjdPxJjjjrRZ
fTG9W6jvjtQ73vzx+6n/jR3VIxW51HfHtOFVDVonqe+Bor97xbxi6ntgWPyF
5LNl1PcAp232ooUV1PdAdb31UcNy6ntixM43NlUl1PfEUavhyqPOUN8TbeJe
7rJj1PfEx8ashjPZ1PeCWabHer806nuhpblpytrt1PfCyfzuZ0ax1PdC6rlP
B09HUN8buXqJ4eN8qO+NT7yUiq121PfGmG49G20T6nvD6bBH+Agt6vtg283C
r0Ejqe+Dkq7tC8UddP98MDlr+fQV1XT/fGBuuca3PJvuny/eve6tPbqSMXzh
G5D6fokT9X1xRS1XeFeT+r5IevXFxLuH9s9ytJwZtbbrBu2f5dDJ0XC9mMNY
thzcx2a2EasZK5bjk4PN4Z8WU98P266/d7fRpr4fosz3mN78QPvVD4nz9H2b
6hgr/BD/fnRMSh7tb39sGiu1b49nDH88vWh7+YMP9f3RWBAwqNKI+v7oUbVo
NB9J/QC83NY2WfqSnR8EwPTFiR0Rl+k8BWDmqSjpJDljRQDUhx59uWMjnb9A
fGoqiDvlT/1A3NX1DN49n/qBOFB75fW0ydQPROQkjenhfXS+gxDYfm1p4GPG
CMLoXGMj5Qt03oNgcDHyokcOY0UQ6houf3bZQv0V8JUGzn0bRv0VKKlyum/q
TP0VODvWymTKHOqvQM96rv6v6tTn4uB8i7arfWz+aHGBjqvOW1oYgwsf2fHb
DdcZc7lI68uedbGQ5hUXNTP9lSwyGcu5UDOU1lptYazg4lG1U3wDn3HzN59c
kdPjxZgTjNk7TfszQf5g8F4Nc7qsT/5gXPvO5pFoIvmDcVArOemQMvmD8eqp
V5x1B5un8mAMnVSnGf6EsSIYiZO7/lC+ybg5GL6NbWsnVND85UEj8Z3eL8cY
a/EgPhR7Ov0gY/Dwg3rv16/bGXN5eDBi3fj/rKZ5zoN93dUP48LJz0OcVoys
ypv8PPx6O4p/y4H8PEyuXlNpZUH+ECQvGzxJQ5/8IVB7ZvB4yVTyh0Bn9Er9
5jHkD8GD6b5v65TIHwLRk4kjNN6z5408BI86nmw638ZY8Y0Fn92KnzBuDoFK
9cdBnDv0fAqFVUqGbs41xlqh4Gnq1+2tZIxQDMlecKKukDE3FIGXbDr88xjL
QiEoX5NtkkX+UDz9bsYDjzTyh8JsQ0ZRVQL5Q/F2/NM/+ZvIH4ag+2UxQWvI
HwZervGzA0Lyh8H++zFTR4eRPwzlSnlzqgPIHwal/CLH3z3JHwaTnGupXS7k
D8PgkeGLeHbkD0NX8s+dqovIH46Rq+UX2s3IH44xDg+/H2xI/nBcvzXD2f1H
8odjrERqfV+H/OHo9zJWTplC/nAMUt95ecME8n/rl2yIPqRG/nB4TWsUPFcl
fwS0Pgv8VgwhfwTWnZ6drcIhfwQcpD9YPO1j7xfcCCg9jZrR1EvvGxHI+nq/
Q6WTsTwCVekjz/q/ZqyIQPr8nNv3XzJujkBD6gGduGeMOZHQ7h/hb9PEWCsS
3eElmUaPGSMSM7PN7Gzvkz8SxVYL18fdJX8kpIH5z+/Ukz8Spyy1+11ukT8S
lt5zul5cJ38kHqYUrpdfJX8UChQacWsvkT8K6+525gkvkj8KctNpgi1V5I9C
1lKN9KIK8kfBIq1Jqb+U/FHYrrqxNLyE/FGQFkgXtJ0lfxSMggpKtp0hfzQu
nBGOX3CK/NF4+4fjhuEnyB+NSXvN9rw9Tv5odLVNCnqVR/5obL1mXv/Pb+SP
RrzkY96MX8kfDf6b2EpeLvm/XW9gbHkuh/x8fAyotJv6C/n5GJw/0TY9i/x8
rEnoLJh+mPx8ON88+fFKJvn5uKWcu2h1Bvn5aLU7tc8snfx87JKYVqocJD8f
15NPR7XvJ78As8amCJr3kV8Ah0i/I8/SyC+A686gCR9SyS9AobLuAw1imQAp
xetTHVLIL8AtM7PurcnkF+D8sIW8ur3kF+Dy4T82ziTmCPHaztQiaQ/5hdDp
7knq201+IbKGmzqtIeYKsXad+ot/dpFfiIx5zokpxHIhdo2qMJxNrBDCfO32
uQ30ft4sxBudzecTiDkihCpdemdHrCVCmZuBWJUYIvS5/1jdkEh+EVJGPS8+
SSwTIS3OfPYeYrkIX74UGMYSK0S4MnToiUjiZhGUOmtauMScGAgv8O4PsFYM
vLtUrAeuRwwefh42dt2APwbv1n35PXnAHwOPR1saB76PPAYlztVJfw74YzCt
51TG5wF/DLZ9r3pIf2D9YrwQm+YHE6uJUVNTqZw98HuIsSW3e/BTYkMxVovO
LdCl3xdiNJnu7hUSu4qROqOr7Xdirhhxd3VD1en+icXgle3wEhLLxLgePGZ3
LXGKGOWDN5Ub0X6Qi2Fdk38tnbhQjIIX2SUc2j8KMZYbF62MIb4txpeqCdot
A/tNDIegWaVetB87xJBds3GoI+ZIUM6vnedE+1dNgkZNpW3VxFoSCEbcLHWk
/W4ogXHdOMc6YkjQMF1P4UXnxVWCQesCy5qJuRKsdSt2EtH5EkvQsjypoJ9Y
JsGNW93HUug8pnzru/dOmX6A1i8B9m72rSAulKC+E0eW0XlWSHDY5m/dVuLb
EuTfSv1rM53/ZglO/x30bCrNhw4JpizZ97ySmCMFB0Ms/GmeqEkRa3A4uY9Y
S4q/hkgWZh2i9UuRF1NzbxHNI0jBi2oO+ovYVYq+k79EJtD84kpRJrf/9kSj
9Usxt8Sff49YJoVsTSYnnuZfihQuGdX8mTQf5VKcm/jhXh1xoRSl0qvWsXJa
vxTmRzmNmt/m638BzzH8pg==
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVl3dQVOcaxlcQVBCFFUtUFMEAoiJihSA+oKCCIl3pyy5lFxbYXcCCoCux
FyBwAYNyJVZEooixBCxLMSZYYokEMSo2ohSjXlCRoPfe8X3vzN1/dn7znGd+
8575zne+M06c6BOlJRAIJvURCP77//n3aq7g/3/4eCf9W8Wfhhc/Y3+ctzQO
6XAcT9cZIv/4hAXLrdyIjXHo2NYTc4SBxCOwc1Z45eXMaOLRWO0978j4D0pi
U3x/UDbYIyeV2AzT7lvYVJRkEI+H/M5xRcXcrcQWSOxr4LViTzaxFSwz5jz/
EJFHbA2dbzTh8fq7iSdhvFCv/ct7xcQ2SFq0On979QFiW8w8fRi57keIp0J7
wQC7lK3HiO1g5z59xpRFFcTTYG7h9YPk/Cni6bg0cPC2TWU/Es/AU8erHvZm
F4hnwql7i2ZoXjXxLMSXTAwVSuuIZ8N32GC3p1mXie0hFdeZmAqvEDug44+J
a4Wd14m/wtrb79x9im4SO2L6de1pw7puE8/Bw4/m7o5fNxA7YW5W6sa5i+4S
z4WhnTBv9sI/iIGgYdXKSvXDz6wG8q9FOietfkS5M1ziWgdNXvqEcmc07Qh2
HuL8jHIX9JFH90v0/JNyFwxZ2x7qtuIF5fPgUKhnIT7TRvk8lPkesvIwfEn5
fBjofqN7dC6tO/V8PEL+Ve/1ryl3xVOrv7uHXH1DuSsUlTbd98Z0Uu6Givjv
lmes6qLcDQ83P2m+/ftbyhfAIrnAZddX7ylfAKvAttzsfd2UL8QCH6+yNfo9
lC9EeUzlQpOUvylfhNRLfxjYP+ilfBHGVxps3e36iXJ3jM42uWLgL8Dn3B1t
m06tWaLT5zMLPPCx78jgvieJ1R7o91N+XnmoFuWL8fbLq7Ma+2pTvhjV55d5
65UQC5bg5Uuv1w/c+lK+BO/vTm1920ws8ETZ5XTt3hQdyj0hGiPeeEBHl/Kl
GHXlxv7SLGL1UnT21ps2DOlHuRdmjPmX8N03xPCCrb+4vWVAf7reC8FaRs82
ryHWeMF4bJJbXQuxwBsNM7L6ZHsMoL43Cq/lLPrzCLHaG0eC7tte66NHfW+8
e/O0xcOXWOCDKkdvWco/ieEDnWC9LRFPiNU+qMkIDbAx06e+D271nk/6FEQs
8EX5U4OE3p3E8MXmdImWfxWx2hcTWpJ2zHrCfV80L9U+f1dnIPX9kCU/fEZl
Tgw/rItPS3J0JFb7YUrbpJkqL2KNH8LsI628Rdz3h4/K8uFwOff98eLRbmHf
ZO77Y8Jg71K/Vdz3R/muE1ULVnM/AHolB8+NXMn9ACS6FY7TU3E/AGY+Xrbe
sdwPQN6DtNAJ//Mvg+jyDy2/+HJ/GaIkqitSV+4vQ+GNv/XtZ3B/GWa9rJob
x/MKlsNQtyhnsiH3l2PnDvNzR3v4/i1H552yXwe18P1bjkh7u4L0X/n+B8Ko
T8L40Wf5/gfC+K+Fi/WLuR+I5VVDBszfzP1AnFXlXeqI534Q5qelBkz0434Q
EvtsmjrKgftB+G3c+ozGsdwPQpheW0qqDveDcc4k4MzQNl4/wWhbX/ax6gav
n2C4OCjK0k7z+guGgY2Bb9QeXn8hMJt303J9BvdDcEBVb9Qk5X4IokoXHFy1
lPshyOz51CmZyf1QHD+WlPWdCfdDURF5b89MHe6H4vZdh3SLDnoeNKFYvMTC
N/kOsSAMCVHCCrML/PyEIaCfhXLaYX5+wtCwvRqHs7kfhmtGRj1rU7kfjrFb
/DKrIrkfjvdmoz6GLOV+OApOtjqJHbgfjgNv/zX6ypfcF2GU6NWifCNiUxE+
6ey4XNNLzzdEWNlhf2RpK7FIhOPFln85/M77gwiFWY0GX9cRF4tQdXL9UosK
3i9EePDb/h/NiombRfAPdJevyOT9IwL5p1yyx6YTm0ag7HHBk1Fy9kcgSOW8
XxbM/gi81K16quvB/gg0+MSav3ZgfwTaZXWtFhPZHwHje5tXHRrF/gicTfPp
kg9kvxiHrVcaru6l/c9UjOSdvZk/v+T9UIxXXRXTA5uJRWLEiXQvWt0iVovx
qUj1dkYdcbEYJSWrjq89TawRY29MZUifI8TNYrQOCZt3bjfvvxIsxp4HZZns
l+DosM70m+vZL0GxzHy4VQr7JXhv/jzruJT9EmTUFThHh7BfAtXKoDZ3L/ZL
8OTC8BPB89kvgd/1QY35s9kfiZwVjdo9k9gfiRaYVG0ax/5IFAzaM8x+GPsj
IZv4ncJQn/2RMDZb2U9fwP5IaDs6JVt20ftGEwn3uxO0olqJmyMBLHStecjv
pyjoCA4fnnOH2DQK9bHr3zfUEyMKWgOuBezQEIuiMPygiV3oaX6fRUEyfPfQ
hWXExVE4WC+dsngf+6OwN9wlRrqL/VG4+FWqancm+6ORHS9Z93QD+6Mx+rR1
h8sa9kfD1fPGhVNK9kej/4xvWx2l7I+GQ7K95e9h7I9G44fO6Rv82R8NlftP
tS6L2R+Nd4YJLkbz2B8D6/f7rv1lz/4YdLkHuD+wZX8M9jxavfGeJftjUJBU
/KhlDPtjcL0pasGnoeyPwbqY4UnjDdgfg/1nXvkF9GV/DF6vmX4it4fOCwIp
Fuos2/HHG2JTKTSp6jG2rcSQQsuovl/mI2KRFOp+axu6Gvm8IUVt78030TeI
i6Ww8VbpPbpMrJGiI8grVHKRuFkKoc2gso7T7Jch1nl7yrpj7JdBIzWdMOIQ
+2X49fiF9WeL2C9DX62ZwvA89svwd+PFUv2d7JfhwzK/lxc2sF+G3aZ5p1am
sV8G798S9sxIZn8sKnVC0B3H/ljMua1/rFrC/liUB4UHZwazPxYNpoEO4b7s
j4XVKLvc6R7sj4Wxq9MSg3nsj0Wx04miFw7sj8W0lPSCX+zYHwcTvXue31uz
Pw4jPQtzc83YH4cel9zbaSPZH4eSI/dfSIXsj8Muv4abAXrsj8Orgu4GNy32
x+GGYdGz2R/ovNgch0iPDS8mveHzoxyzS5f8w7yV2FSOcfvf5Yx6TAw5ivfp
5g9tIhbJkZNXpG10i8+jcgx3HCE2qCculsN6nN1zvRpijRxds4zrBlSyX45Z
Gu/nAyrYH4/w7luleqXsj8cHfXHEwH3sj8fAla/LBxWyPx6jDZ/9bJTD/nj0
n/q9fOg29sejZETkoS8y2B+PfTvMFo1JZX88ctrN481V7E+ArevTmRNi2Z+A
rxLXqm3E7E+Ap2NJzLQg9ifAsT1gx2wf9iegXTM02smd/QlIsumpnu/C/gRM
bG/vcXdgfwIktZ03vOzYn4hBpd8WBVizPxE7q9OWh5ixPxGFck29eCT7E1Eq
3Pa7VMj+RNjoTj+RoMf+RIzPmHQ9WYv9iZgUMjU99QN9TzQnwum+umvdG/6+
UMBadslzYyuxoQJD2gb5bntMbKrAiYcKm6wmYlsFYs3yZLm3iKGA/t5udUE9
sZcC85esu7m7hlikwND8l/f2VhIrFJg5d6fr/gr+3lGg/EpX6uFS4mwFhJMb
Vx/dR1yswMPAd+pjhcTlCpxe/bipPIdYo0COrODAyW3ENxSIPGf7/lQGz6tA
5skDDWdSiV8pYLXJ5viPKp5fidwpyk+VsTz/f3is04RzYp5fCb8Llcbng3h+
JUZI74Vf8OH5lXgycbvzRXeeXwntiVf9NS48vxKp7QPF1Q48vxLSq2e31Njx
/EpMM/CT1lrz/ErIi3I7a814fiW6Y6Z61o3k+ZVoqVk3u07I8ytReEBhUafH
8yth0uR7rVaL51eiSpy2q/aDFs2vxOIvBFtq3xALVEhME8bXthIbquBRkHyz
5jGxqQoqg+KcmiZiWxWOTMmaX3OLGCqkmFm8rq4n9lJhVv/JTjU1xCIVRJbC
xJpKYoUKYWVDCmsqiNUqpN/JXlJbSpytwuiOzQ9q9xEXq7DJyyqwrpC4XAVB
7RxNXQ6xRoWmTQ9q67Zp4d+caPK9
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjHkbxwftssRalIoYh5IVlQ5Sqa8kHdiOKqWammk618xYWXatFOXQ
klU5hSnWm3IqOR+aTRJ2S0oUkhDJoSinwuu93Pcf7/wz1+f6znc+z/08v+c0
JjTeM6y3QCAw7CUQ/O/766fdTvD/HwyoGTTddLNWyVfsh5fXTwZMjzCi3w2G
+cPCB5FiN+Jh0M0wzNl+UUSsBUGwSna6IoZ4JA4tH2L6nz4JxEJIchLDWkNW
EI+Frqfo+Ba/1cTj8U4pSD8+LI1YH/tKuvtkqf1JbACDe6c6Gg9lEf+IwyLD
Sh1hNrEhPmw0OB1imUM8BTGXDhZdv7uX2BjWXV45pwftJzaBTVHvpA0NB4mn
4pes2//8kldIbIrf7evf6/1dTGyGJcPFb7fanSQ2R1r0se22hmeJLeARF77t
jzkq4mnY1dAZ0n2ilNgSbl6m69SjLxJPR+m+NItOcQWxFea6bv116V9Xia0x
7PNl/fsmVcQ2sO1nUhu4upp4Bu5IUm+mbq0htkWBZWjj0us3iO1QOilb79HU
W8SAdHfN3DcnG75yIrDn0JtVK8V3KZ8JVaxze4JWE+UzMWa70nXbxvuU22OI
jbb3e40HlNujusM21Sr/IeWzoL3Xy/6uSwvls2D01/HlVm8eU+6Amcr4rsz8
VsodkHa6v/NIaRvls/GndkV9m/5zymdDOPqikV7bC8odkbBFkhfvR+s20RFp
oQVuI6w7KJ8DA2nrgYMjX1E+B+OudFvP6iEWOMGqOG5gr/rXlDuhKWdc5sii
TsqdYfL365vXUrood4bWbIMfonzeUO4C15p1GxyEbyl3wX6t5IdXHhALXNF5
3XPeEuU7yl1xtKRvdvX895TPhW7vE7byPh8on4sy4eC6T3nEgnl4LuoRTXXs
pnwe+qecsq1uIBb8hLiluv8ekfZQ/hO+3WXz8UgrscANw2+cm6kSf6TcDQZB
Rw7V1xIL3CFJ93zUZ8anrwx3eOo2dbhnEye6w7niZsydV8Qqd9Q9Pr/5Mj5T
3wOVwh/mO6UQwwMu8g/X0y8QJ3pA78DWwnvviFUeeH5C65b1UAG+9j3xXe8Z
Izz1ieEJnX451+rNiRM9EXhH+0LPTGKVJ95c2JLe4sJ9L+iV+4wuc+e+F4LD
P70o9eK+F/ZtbJs6xJv7Xli3+IXxfQ/ue2MoOhVB87jvDV3lb80nHbnvjfKS
gY90bbnvDfcIv6unTbk/H9IVF2RnJ3B/Pr7NNLaZq8P9+dgkam7aPID786Ef
3DZs8Vvefz7IeOYZfPUG7z8fnC/wPyUv4v3ng10mws0Ff/D+80HAy0+KE+Hc
90WWc25qJR8P+EJfz8HcQJv7vqg72T6oq52Pny82dJXEhFQQC/ywrI/ahczd
fPz9kCp3qTqewMffD7IkTcdH87jvB9tBbTp2etxfgFq1fPvGHlpPWIC6nMeR
N3l9JS5AvsrvUdUBYtUCBK6y1O6/mtefP549+TnqWCD3/eE5pXv1Kwvu+2PN
7uPa9YO5/4XHBE9Y0sbrOwAtRVbH6sqJEYBFo6Ze6cnl8yEA5ze4KttWEKsC
cH++0GpvIPcXYqLQPnW8DfcXwkpDujFqBPcXYppG9ttF3XS+qRbihdrzSTPu
8PkXiJMDM8z+PkeMQDSP7rnTs5vP10DsW6nUfJrE/UA4qp8tWCXlfhBwq0hV
4cL9IIxXK1MvMuJ+EESH21OtNLgfBN+Ccv+gbr4+BEPdeKfmiGZiBGOKrDEh
5jJfT4Jh5Ks5eW4hsSoYt//KUZ7Yxn0RXDIs1+9PIhaKcKp5yZJRMfx/Ikyp
fZw31IdYJMK6vqLsZPD/i2AuCXsYNYlYKcIB3bUdFzXZJ0LCjEml6b2Jm0Q4
dsmhV8ULvv6FwKuf6cGI28TCEJzSLSyOqyBGCPJ7VpffPEYsCsFM50jdnD3E
iSFoNhruWL6JWBmC3X4BVo6JxKoQ3JlYVj0qnrgpBA8PNhx1CWJ/KNa0Wi+6
PI/9oZA4y7K3zGB/KJIXX2wunMz+ULx5ot5XYxT7QzE7Q/ZcNYj9oVC9FbsW
fabrvSoUGq/rLj1uJ24KxZOd1r7BzcQCMbzjC7OG1RILxVhnWd38TTkxxECk
QbzxSWKRGLdax0/PyOf7iRh5u3xnGu0kVopRfLQhT5DOfjHSlb5bv0lmvxj9
mlRnrBPYL0GPvtntnEj2S2DR2DjbIpD9EgyavqXlnTv7JajclGT82IH9EmTa
toR9smS/BD8c/vmNzWT2S1DxvdJpzxj2S5D9qsPNSJP9YQh6eCersT/7w6Cx
+UZd0We6fyIMVffPuOd1EovC8CJXfVlJK99vw7D/de+GrkZiZRiupWh/cqkl
VoXh8ArnX89dJm4KQ8qFMfNdS/j+LMWrytK+ncXEQikMmm8nnMhnvxTFmmPn
ZCjZL4XO8uMt67PYL8WRYR3FO9LYL4XSeUpAWRL7pUhxKR/TZyn7pVC5F9/1
jmd/OLyeRew4E8b+cJz16JpuuZD94Xh0I3VUhSf7w7HAcfHBKGf2h2Of09gG
XbA/HO5PI6Y0W7A/HI+vOq47OZn94Sh9WaS7azz7IxD9T/fQjBHsj4DkY1f7
1iHsj4DN+2FrDnzH/gg49rkuqhSwPwJLO/ev+/iWnoeUETD81+np9JfEqggc
qO8zMKmFuCkC3eMttOru8vNTJNQDVv1kfoNYGAm3baFXdv1DjEj4GykWa5QR
iyLxbLRUlHmGODESC+3UK0cdZX8kguzu2RXnsz8SeUUNyZ657I+E8RM9nffb
2B8Fn8zG2PxN7I+CrGlFs3gt+6OwPPlb2fiV7I+CyFu84dkv7I/Ci8/3Us7J
2B8F7YJ3CzIi2B8FA+8HDgoR+6NQM0Djlq8f+6NxrcU8abY7+6ORUryvZZoT
+6PR//bvTcZgfzSEKctsjS3ZHw2n0sn2psbsj4Z/yLEwawP2R+NecexZJyH7
o1G8JtMpQIv9MYgaVIjFg9kfA805hlv/7Mf+GGx8MqD8mID9MXDc6Nf/7jt+
Hv6SnzKb07eDWBmDa1WFSeatxKoYrKtpk0XcJ26KQVrsx1e764kFschYXj22
oZpYGIsqxbS5WleIEQvT5saEBaXEolhY1JUE7zrN/li8y18U2lLE/lgM2X79
nEkB+2PhOGjH5xV72B+Ltu8a1lfvYH8cFo7cUKOfwf64L89fJbLf0tgfhyrJ
NPOaVeyPw9qbvtaTl7M/DvnpuuXrF7M/DufURnY+j2V/HDKWGZR5SNkfhwST
4XuOB7E/HrlNP97V9WV/PE5vV/NNdWN/PLrXlvp3zWF/PJxu7XOVgP3xyK+b
+K7Wkv3xUNSPu+Jkwv54pDQmp5+byP542F+u1TEby34ZDAZuPHpAh3iwDHMe
jynWH8rbI4NUMvFA7gBiYxnC7LeYjVbj7ZPhds3TBzt76H3JXYaxE84VjO4i
FsngqTngZu5zYpkMJsK3YfotxIkyjHm7Iv9QI3H6l/6ruImWN4mVMmzu9Vyl
qiI+IsPxsZUHnSuIVTJ8FOe616mIr8nQsb7/bvEp4iYZgjZUFHcUErfLoHb5
4sOV+fx+J8e4Iao1Q/YQD5YjNCvg1t4dxEI5PrV8kFtmEBvLoTNLR6MqjRhy
2Gj3jJOu5vnlmHrx+6TPy3l+OXwi5W7bE3h+ORKeTm+2iOf5v/jOS3rXhvP8
csy42pIrF/H8ciwxs542eAHPL4fev9Hqhz14fjkqFzmtdXPh+eW4hcOH2u15
fjmColtPbbbm+eV4MS9vmaUZz6+A0zarWY2GPL8C2r3si5P1eH4FJudXrJw0
iudXYNLwwZNqNXl+BSo8my8v/57nV+BSQda0H/vx/Ao41FS+rxPw/Aqg7FrE
qvf8vq2A6eScCWaviNMVWFU7TO3hU2KlAnm/JiPjAfERBaQCh06HO8QqBc6X
jbDrqn1t91+ref7I
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVkns41Hkbh0cHSilUyqHSviWpdNCibHxCRXKWQ8QwY4ZhxsysjkqzLbW1
SufQYbWkEyqSUkpOCR1VogNKmFIptS0pr/fq+/zxzj+u2+d3zz3Pdf0mhER5
hPbjcDjTVDic//398emw4fz/B+W3fd/zRtuw/w+C0euS6u4tnow1MX93pqbS
KoTxSGi+vpj/fqiY8RjELVxZfHTuSsYG0Kltuu/nsoGxIZLKr+ltWfs745+Q
7Hf7paHJVsYTIdmKy6p1iYyNkDXPJ/ZYzR7GxnBMOpm1LjCJsQmGHxRJSo4e
ZjwN7qfOCRT1RxmbwqL2zIXTvscYz0SV0sIWficZz4Les7sKq9dZjGfjlUrO
0Jjt5xibYeiQijc7N5xnPAfn3K+/zbmVz/hnnNE29++3+TJjc5QUp//VkX2N
sQXOFr9JjDAuZmyJobvuXKy7VMp4Llbmq5w5nXiD8Ty8WjVWcSCrkrEVwq6K
F73Vuc34F+jmH26MbL3LeD4ODQvb2fbmPmNrKDNMF3/VfcjYBo6TH0cuktcy
Bna+23527ue6H6wAVs4QiJr+fsr2BYirOOLbsK6B7QvQkrk/ZYF1E9ttsWPR
+Ervmhdst4X/lEUvO2Ka2W6Hxvh7KqMsWthuh5jn508f6d/GdnvUFBs1zmlU
st0eHh9Mk9yr3rB9IaIXP//iUfKW7QuxyyLmu6D8PdsXwczX75Wrkr23ikXY
ofSu79f5ge2L0SLLeGrX+5Hti9Hw7Wv/gRqf2O6ASlvXm9b6n9nugOzq9IQX
xv+w3RHt8Tnv2ud8YbsjbM5FZ4Ra/8v2JYgZZ/450L6L7Uvg710a3bWwm+1O
CHhspsaz/cp2J1xqfjXuiWUP25fi3MF1Iy4Yf2P7UuQW5Gb6a31nuzPO1fqG
L/zIWOGM7IRBF/pV9bLdBU3x+pOSnTn4sbug/P3lFrtzjDmuGHbAtoqvqcJ2
V3SPk19oFTHmuGG65irL60WM4Ybd6bf83mr1Y8+74VmrNVcSyLjIDR/kf3e7
ZjDmuMNums3SdCVjuGOYZ8Tm34z7M9+97wUbUNePx7jIHWufaXU4JjPmeGBl
oZVTTBVjeMBdsz3hWhf5HtC/NVZoO3EA8z1QndpRO8uJMccTDvoffimUMIYn
qtSH7tJJZKzwxHkHQaA0k3xPfOx+l9tTTr4X8pY38t89J98L6u3Zl1d9It8L
xUl8gxtqA5nvhdc7v8Vr6jLmLIN1os8QhTFjLIPJgj8n2pkzVixDwY5cQZwt
+cuQlimQRTqT740mnfAzE3zI94bjmIioiiDyvXEw+vGMTULyvTFH/z5PLCHf
B1u28mTHo8n3wc3GvHbHdeT7IP36KPXIjeT7YIXzh5qf4sj3RcGNRMff/iDf
F469wZZJCeT7on/xkM5VO8n3xfpos0yTveT7YdpzZWXhAfL9oHbgoag3hXw/
OHvm5msdId8PvkfsXTSOkr8c8w/EL+mfTv5yzLgWO51znPzl+Ndr9dohp8hf
jgljjNNMssj3R/0ls0TuWfL9YT1wcX52Lvn+MGw16h2VT74/WtwcyvcVkB+A
hK4Xm6dfJT8AOkPjDj69Tn4Avn8b/+BoGfkBGLlnMjfmJvkrMG3dYl7YLfJX
IKeg+bjgHvkrcP60eWf0Q/JXQMW31mF3HfmBOL986+bCZ+QHosI1tOBTE/mB
aGufpWnRQn4gmlOdZHGvyQ9CrlV1+5N35AfByKwmyaqT/CA8jf0zIO0L+UGY
uWdvnVYP+VzUXdHdu5mj+oMNucjakyJWGcgYXPDXV3cqBjPmcqE9b0zOgGGM
FVzcb3CamKDNOJWLMpeTO3RGMy7q25PWxqfpM27kwvKQbslsQ8acYPQ4bIgt
mUj9YHxPybi6bAr1g9H2z2AP5XTqB+NUQZPFhtnUD8amVntVbQvqByOhc2Pl
cSvqB8NJPV1jPqgfjE/C4Yfv21M/BCmuZU+EjtQPweSLsy16nKkfgj2DDQwS
PagfgkF1CcIJPtQPwXrt0zE5/tTvY2F6si2X+iFQ/7Il8x6f+iHwUVGNCwyn
Pg+OC7xMlGLq8/reL/2xMjn1+7i9zODLKurz8JW/s3ddDPV5UH+8Ve/bRurz
YDDse+36OOrzkOIy+lHXH9Tngdf92DR6O/X5mJqdef3NLurzYTh86qTg/dTn
I/bah9s1KdTn44R0jY7dX9TnQzqj9EF2GvX5aHX2Lxl9gvp9z6+BYkMm9fkw
awv4teEs9UMxJsnjhXUe9UPRsXv0kZRL1A/FS/lYj85C6vc9Lzrq61BM/VBI
v2S9TS6nfihCOnWftlZSPxSNNt9OzLpD/T52vbp+dQ31BZjv+TzzUi31BeAk
cHu/PKG+AB80KqPNGqkvAP9pDSKaqS/A8REDVVPbqC9Ac3Zqy9126gtwZUhX
RU8H9QX4+v7a04mfqS+Ej2XMfccu6guxPd/nnugb9YWQNIjrt6iosb4QjZJU
x9SBjBVCBF7pTj4/mHGqEDl6GyVlGoyLhGgRraq6p8W4UQiVjmxx/SjGnDCM
P6H3+rkuY8Mw1G8K5jeMZYwwFC/Rev5kAvXD8HaG408PJlE/DGsfZ3hXTKF+
GKIVTYMvTqd+GNpN3q1Jm0X9MLx+MTt228/UD0eAwrIxci71w7FNd+/QpfOp
H45DadnrjRZQPxwvSnRlPfbUD8dJ95uT7jhQPxytGfq8w0upH47igBPaQjfq
h+Nij3bwdC/qizDxYLXnex/qi6CMrNyf6U99ERrXxawNDaK+CCZDjx7X41Ff
hP03Hv5TKaC+CBH1HmqrRdQXIXvpSLPxEuqL8Pue0vISGfUjYDAwQ8xbSf0I
VL7KUe1dQ/0IHNL7uG//eupHwCV5tuoUBfUjUL3FZXD+79SPwJqNJVewhfoR
eG1RYV6+jfoR4ISvjnXYQf1IWOjN/FS2i/qR+BZ0IcdmH/Ujsel4iWZeEvUj
UTrKJ33SIepHYpzGGeWuv6gfidSoW/O7/6Z+JJKutB0LzKB+JGyN9EKvnqS+
GKZpPiP0sqgvxthJk31kZ6kvRld8V0JpLvXF4LUbxI7Ip74Ymaan3AMLqC+G
6rGs5vRC6ouR+k5b3FpEfTFs93lPNiqlvgQuB2flBt2gvgSBLb9E7q2kvgQX
3JVWZbeoL8G6qdfzP96lvgRRu9V2GzygvgTb7ig4trXUl4ArqK8Kqae+BBOi
HOI2PqN+FFrVDI2TGqkfhUdv3POyXlI/Cr796y5dbaF+FOaoihOrlNSPgvn2
0zUP2qkfBXl88Im699SPglebUlj/kfpRKPqPh2XtZ+pLoWchf3rnX8aaUry7
eXpf6Vf6PVLo5LQ9Ov+d8Uwp+knynI6qDGK/T4pzvG3cbQMYu0lRIcyKiFJj
zJVib0zAIDd1xlIpYod3cEw1GCukiLuW/1lNk/FOKfKqlg1+ps04VQqv4ouX
s0YxPitFxnK1X2PGMC6SouPnwh57fcZ3pWjXuCdQH8e4UQr3jftsqg0Zd0ix
TXikaet/GHNkMNU6cNvOiLGmDCaysuYuY8aGMnzKy2/InMp4pgxNNjX5/qZ0
vwxj4t3N1GbR/TKoz5v7PduM7pdhTdJ5G09zul+GBPmnDZ2WdL8MOUK1vEQr
ur/v+87sHmVsTffLoKmULb8Cul+Gq6IDOs52dL8Mbt+PtdUtpPtl0F5z0JPn
QPfLELfZbYlyCd0vw8gFNX9GONP9cpxKM9mudKX75QgoiuHzPeh+OU5rrYx9
4kX3y5EgVra6+ND9chyJsAi55kf3y3F/dc4/UwPofjl2/9pcsTeQ7pdjzKm8
Td1cul8O/uS1jgE8ul+OR4oAi4JQul+O+rpC75FhdL8cr5K3uYpEdH/f8/JG
jcLIQfgvQ4M3Sg==
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxV13k4lGsfB/BRHYU6SZ32NG2OOipUdCp8VbbIFrIbxthnzEyJ1ndy0qZE
olJpKlLahEiiqSOkXZRKnSnSwim0HG28vde5f3Ndr39cHz/f+brH89zPPeOC
ol0FvTgcjoEah/O/7/9+tVtw/v8LY9ZPrR8ot2Q/74esvKhlpW3uzNqY5e8Y
e8c5mHkIcvo9wfnBYubhQPuREGffWObRMD14pjKhv4yZi5uPVy28aJbAPB62
HtV6Bl6JzBPh732v3zakMOvhSEpItVlUGrM+rngPqm9dmME8BYrMnW5i5UFm
A+jtnqhb/dsR5mloS4+Tez4/ymyIG0tCbVaMP8FsBM+YPbUFX84wG0NRUW++
tSyfeQZ2p57t7Hh4jnkmzPvxHWf5lDDPgnbL14P5dmXMJlAWxvUe8EDBbArX
rtZjq23/ZJ4NjZU3smZ8v8r8O05eMvqg/7maeQ6OFeTq/oIbzHPxyhYx5vW3
medBK0+r9fmTu8xmqBdduNX95R6zOcZ351p2zL/PbIFSeVHDvKIGZqB6WcYz
Q/fH/1oGaDnW650d+5TNLRFeE+22e6uSzS0xwGeTXdDI52w+H+ZqS84nljex
+XwIrueMm7XiBZsvQN7VM1kWeMnmC6D/MLUzcNRrNl+Ixnjvv0apt7L5QqTa
VY271N3G5lbIdE9oiu/9js2tcI7vOttkC12n1liz/IlZwa4ONreGtauoeMqR
Tja3QcallL3xBe/Z3Ab+V2ru7q/4wOa2eOt1WBRc/5HNbVGoG/OmrPkTm9tB
OdW4Y1/HP2xuB4+kyMLuL11svgixaVNbO3s+s/ki9B7VfT+t5wub26PuQ8WF
wZ+/srk9ROrLY0+2fmNzB6zgm/Qpvv+dzR1QFv592cGSbjZfDPus8TXNqT1s
vhhpfom3k4w5+HfuiLF2McZx6cwyR5yxONuy7SPNneAY6KN5zkmNzZ3wviS4
4lkWM8cZlaEzZg74yAxnlO5S1/kdvdjvOyPO85CTcCOzwhlnfnYoLa1i5rhA
3WXDnnl9erO8Czwbozu05jHLXBBXaFC+KJpZ4YLGD0WZ3ExmjismCAbnF1dT
3hWnDY31zd9R3hW9vOu1Xwzqw/KuCB9suvUvQ2bOEhwYePlKoAMzluBCwBXJ
4WBm2RLMMFuwsWEl5Zegp6pSY842yrsh+VTrge/7KO+GSxKblqXHKe+GWwt7
VqwtpLwbGpfutz1cRnl3BISnlX+soLw7eMauuTk1lHeHd/PbLc23KO+O804v
j96/S3kPTJtXWZd9j/Ie2OyptSu2jvIesH6fuEhEVnjA61qcxnH6fc5SCCwy
GqxqKb8USxde3ep/h/JL4fkqVKyp6l+KvxXH0vyvU94TeysVzcJqynvCVM3i
s+1VyntiQ9v69u7LlPcEd0D/3P3llPfCBc1r6gallPeCjonWg2XFlPfCB6sX
6vsKKO+FeEedrItnKO+Nmw2epW9OUN4b34/Zdhkdo7w3av3W+u/Norw3dtcb
/TnpEOV9kHyQb/bwAOV9kF12e2VhBuV9UFnfcbx4N+V9MAuOwme7KO8L3+1V
xw13Ut4XNYummmftoLwvvq8PjJ+znfK+2FH1zKBjK+X9MHZqy5iqzZT3A8ex
9lzJRsr74fSm8PiqDZT3w7Eamd+7eMr7Y9vdBV3T11PeH8X9Ro/a9B/K+2P0
+uzH79dS3h+mSb9OWrGG8gHYtt+tuf9qygcgMqG47Rxd77IAdBpr/SaJo3wA
NBcZDjaLpTwPwR0Dx45YwczlQffkxuk/xdDr8bB5o19mzzJmHg+LxbPb+pJl
PKzauSphjJRZzkN/xfB0Cwn18TDwWU22UMys5GFm/nNBTjT1B2KTUa/2VhH1
B+KZ1j6HuWQE4opFiEWakPoDcUGnPbMrivoDMWLo6l9CyPJADKuNPv4kkvoD
MXrHoWw/svKHc9s7WyKoPwiPV3jXxZG5QdAIs9mvQ0YQpnGuZRaEU38QclzK
6nzJsiAcbfVbN4AsD4LdmNonV8OoPwhBk8tuJ5CVQbg1YPFbezKHj9sRQ+cP
J3P50P9QZPgmlPr5GF00NOUKmcfHGP+oXw+RZXwIk43sNpLlfAiubTeTkBV8
fOQsSwwkK/m4WV5ru5TMCUbWhGJrVzI3GP2zHuotUfUHI9VryzwvVX8wdDdJ
yviq/mB4G8+Mlar6gxFTlWii+nsUwdBbbrAuU9UfjEdXBOkXVP0ClB/NaX2s
6heg6vJnHTV6PyDA9gmu1VPIPMGP/XGIpSdZJoDnyzklW8hyAYbYqL0uV73/
AvRPT5zzj+r9FwCxJvXG9P/ihGD69pmDpGRuCO7/9OlgIRkhmJ9hvO+r6v8f
gj8+ivpa0/UhC8Gdm8NTd5HlIWjvu85IdX0pQrDQP3Lv76rrLwSt+5MnJpM5
oSjhntzxhswNxYx/etXa0PWMUMTdCmnKIfNCAdO6bg26H2Sh2DnF7YSILA9F
RL3tnvtkRSj4gvG7QfeTMhTWwpC4U2ROGGZZxRSOpvuRG4Y/ErwiksgIwzat
huRedP/ywrC5J0cZR5aFoT1JsLqDLA9D7cNR9ZGq+z8Mq6yGGbwiK8MwpTPV
PoT2C044WruMXr8gc8OxL3NjZhjtLwjH5gWFGW2q/SccEycvGS9dTv3hOLF3
U9oXsjwcckf/dRto/1KEY8+49RcH0v6mDEd+hY78AJkTgSZ4fDGg/ZAbgZeS
b/wyMiLwlmNp7ET7Jy8CXUPmcZvIsgh4uw26Hkv7rTwC3woOvxiwivoj0JwT
dCObrIzAHZ9eNRa0X3Mi0W+Vvf0jMjcSjq/1HVT7OyKh+W1k5WDa/3mRiO/p
lpwlyyLRMn/ICOd11B8JjYCee+/Iikg4lM/OT6bniTISomE362fIqD8KkdqT
XR+QuVHQ/fxb6BrV8ygKQ6+LrcfT84oXhVrDceJqsiwK0nHjRNF/UH8UHqUV
HRqmet5FYeEMvZ8uk5VRyCw9fS4igfqFEEsW+/5Cz0uuEG80j21WkCGEhVbw
gahN1C9Ehm6nywh63sqE+Lb65+uVZLkQcq/DD5ZvoX4hBiXFnJpAz2ulEHF+
IzbfUz2/ReD/+WtNfCL1iyB+0NFoROdDiPBUu7XyGZknQuehA3qpdB6QiTDz
hDjVKon6Rcg69WFkF1khQu3bspW5dJ5QijClYraLXzL1R0OrJDddO4X6o2E8
vIZ/lYxoTF9TqraKzie8aNiYJNZNS6X+aLQ3Pt3STJZHI+S5xfAMOt8oouFR
4t7klEb90Yh0dhuonk79YmiatS2+SNYWI68lu0lK5yWuGHdMGvQm72E2FGOk
8csHf5EhhnE/tfDde5mdxVhTUajlROcvnhifVmvYqNP5WixG4bVPEy6RZWL8
/cGnO3Y/c7IYg6sq6qbTeU4uRustj7kvyXli5Ot5VB3MpPWJUfB4nabnQeY7
YuxcW66tLaf1igHJ+dhqcrsYuvdWxclU50cJhrmIj8w+TOuXoKkt6Vo7mSvB
aKfAC8eP0PolmBLfOjeIzqOQYO7kb1NHZdP6JTjfUqhXR+ZJcLpug8P2o7R+
CTxN9vW3zqH1S/Aoc1BANzlZAlOtzNgiOv/KJfAtt1QT0eeRPAl0bKzkk3Jp
/RKsz4ltbCTfkeDppzTrXXSeVkrQ29yy0v4krf/H358ySaP3KVq/FCkvHkaU
kLWleFVsry8+TeuXYqhX3yQ9Oq8bSrHr67HsRjKk2J9y1To1j9YvRaEw3d7u
LK3/x+s9dXzUTRZLwa/vyivMp/VL8c1n6/Vw+nyQLIXhlC9WuvR5Sy5FQ9IG
/VpynhR5WtqaCedo/VK8Wd76ybSoD/4LeoktJg==
           "]]}, 
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], Thickness[Large], 
          LineBox[CompressedData["
1:eJxVWHd8jOkWHlGjBlm9DKu3JEREzRMiDem9ziSZZJLMZMpicZWxVrm7rrK4
OqN3suq12lgbUS4bvcestTqbkEVY3O/9vnPu72f+8XtyvvOe9/Tn1S7DFKVz
UalUPaqoVOJf5Vfm98zjUOcGdYr86A9o0yRv1Ks5644psBZ6x3p229LYQdgN
ri1XpXU9ayPsjjVXvf/0HV5M+s3Q/2qR0dt2jXAreI7cWDuw4xXCaizt1mzR
ZdcSwu2h3/Pkq31fbKPzOmBSyZ7Evw6eIdwJvwzdkVtqYdwF/5jmIZ24n/S7
4eTtfd9OLDlLuAcy3BL67z21n77vhTMxxzevDyskuSfEad/NYfte6Jv2U0hd
F9bvjbJNJ0f0++dpwn1QLCF/zT7C3kgeOuTRje1bCfel+PD5PhjwZah0xcuE
++Htz1lbNTFXCfsi6j9tpj+NZPv9sffU2KOrW3D8BuDbeuG7FuochAfC3sLj
TocaHL9BmHv/ZduLJo7vYMjhusnnD0HmlBuDxydcJ+yHMydEAO8QBkR2o0ff
VrANWKSblZl6u5Tk/ri5/V2KsYjOs/nj/NZfr8Q9u0TyodhT17L9+1t0vm0o
Ru/74v3ZF49JPgyhcoKekHwYblVOzjs8+inJA7Ciz9q9/d6WkTwAPdu1rTDE
sXw4TI2mOc6seUny4chKvR1YdRxhVSCqxdXvuXsl6wdibvToDos/vSJ5EFo4
ktX+5RUkD8KBC6pSF9e/SB6Ma6Jcg96RPBjLvl6x9suDb0gegnEC/k3n2UKw
pEBciM5ThWL49bKK0ET63hYKKfklAdffk3wEfM4NDLsw/2+Sj8D8BhN8tg2p
JPlIbC2/OCrD7S3JRyKk16d2H16z/ij8e7cIMGHbKNxIHxvepkkVKPIwGB++
31IepVKwLQzukvWyCtYPR8D3BukLth+Ojct/URda6XtVhJKPChcFIwI1zzeP
vNmyKp0XQf59UvQdERiROMP3ahFhVSRaSF9P/I3ug0h0PetW/JNvNdKPxL6N
44u7DiC5IxJhoiG96XxVFOTjjIQRhQXNpIzuoO9tUUr/96f7OaKwPHb1th0J
rB9N9cn2o9GgjmQxiL63RePjsHfPn4K+d0RDTBt9e9aPwbTIkJW2jex/DMQ0
uP+S9WPQRRxYyfZj4N3QZ9CRKPJPFYtlS6Vfc9aPhTI/+f6x6P1gZ8f7VSne
jlj4l2f+N3UExy8Okfmi4kiOOCUezzmfcZ+f54jDIKmaUiZz/uJRac/Z8+QV
+x+v+LeW7x+PVX9KA+wA249HxL8WSxXM9ZMAY9yknfszWD8BD/zW3z1an+5n
S0CQtbLB4//rJ0AeJ104fokQ0l1V2f9EzA59Us274UfST8T5WRdLnXVYPxEl
0vTwGMj2k+BRsK7K4ersfxIG1762znyE/U+CVh6oHP8kzJ/8foA5jLAqGdVF
Qgbz/ZPRXB4IH8h+MkR7XDzH9pMxZ4ylZT0N66fgZWGElAG2n4INYWisPcH2
UyCXpzfbT8E2Mf48yD9VKjp0mTz7YD7FC6lYOHN60qXDrJ8K9UVTes3zNF8c
qeg5rNXTez6EVWlKPA6xfhpMZdNPxxzn+KUhXF7ArJ+Gxi/9f82+Qv2sSsd7
qfo/7ub7p0MeVzM5f+lw3xn02wR39j8dmS+SpI1F8VFpYDuAb+4FkVytofnE
99Gg0ksUMH2v0eBreUBzfDWQx/Uk0rdrELjwdY30JXQ/hwb1xfqaRfPIqYFZ
LgieT1qIaF/qTv6ptYiuvu6HAVXofGhx9HjTTtFcHxqtkj/Wt2kpPoTtWpqn
PK+06CcvAIqnU0vzmP3PoPxS/agzsGW9KAD2P4PmBelrMrBJjLNGnN8MxIh1
M4/Os2fATyYg7H8G3ol115i+d2ZQv3D9ZCr92Y/mvzoTcjtOIYxM3HXWWbDl
G/JPk4k3Y5wrGm5g/zPRR/7RefZMqg/2PxNrcgShYv8zaV5y/LMgkRfpD4TV
WZhTo6xJcAT7n4XOP8/YFH+GsCYLkvc/nJ3C9rOI71H+7Fm0bygejiyMFenq
SdiZBZVparWiueSfSqfM1/FsXycVY/GSQ024nnVYPajH5WUPuP50SjwXcH/o
8GSRWJCcfx3uJTSVVjzHX4c68gIi7NSh1UQxUXh/Z+Nw9Ubufidfk/1s+OYE
5JrK6Htkf94/mmzI63kM91c28VHC9uzP97EjG93lAqJ978zGCUH/orj/c7C5
ryhI0lfnYPdKURDsfw7xM85/DrxqbW+VlMX7PAcy/Q1k+zn4UYyzFRQfRw7x
LbLnzKH+4/rT43m9o55LuxFW6/Hx8rjHnbzovtAr86GY7evxXVsxQTj+egy8
Gy5tFI6/HpsFXfYn7NDjD0FP0zn/erjKB3D/5RL/4/7PRa3BYsNz/eXiqhiP
nbn/clFb394wbgLztVziS1z/uco+78T+5xIfY/u5mCAKmOOryoOortabOP55
aLThiDRx6P7Io/3H/ufBFnxsUmtf9j8P46Vo1drO9vOwq+P9aavOsf95xKfZ
fh7e3NdKLcP289FADgDHPx/ycyuaMPKV94cr118+EuSC4f7LR/eZTW6cf0P5
sucjQKI7jv5sPx/yOHjI8zef+pX5h4H4LftvQFOZIHP8Ddj0KFiKMNs3QHp8
TF00jP03oK6LuAHn34DCqg9nd2H+4jDQPKfznAbis1z/RiTKBik+aiOayw3M
9o2Q083zTmOk+cj7x4jlUvYeBfP+McLZc579rRfbN9I+YvtGiNeqWzH7X0Dz
jvdfAdUn3Q8F1N/E7zUFtL85/gWQr9eD7RfgobhOL7ZfAJnuneL5U6D0cwXn
3/Q5H1ObIIeL+QpM5A/PXxN0coDYfxNeTPSTnqzc/ybyl+2bUGWU9IL04P1j
Uvi6lu2bES4WcDTZdzOjkyjfrXwfM817sudpxgyJ3fzuzvVpxlf6+c8n+tH3
EWYlXuWENWakygSc7mc2U75cFLnNDMEupq0iPM9M9cj71Ay/+OQfjz0j/UIz
BssNy3zeDOHeLnfCJWaFj3wg+06zwu/e0PllZsyquHVt6ivmrxbahyR3s8Dg
KjHqPiRXW5T92Zf4vqdFqb9P/F6xQBsT1dnuSjjCovA95qcaC80/0jdbIC3z
yJDW/D6y0Hxg/y04/YdEwIdwPVnwu48gMIQLLfS+5fxaUC69zmbwe6vEAnkc
XKL7OC2Qn89FhMssENnqW8rvFyskshef7EVyNytKF0gENprkaquyvx6x/1b6
/wzCsOJCe7FhapD/Vtqv1cl/K+WH/ZfOe734zoKa7L+V+ofsz7Ni9i29RBEI
260Q1x/uQ98XWhW+tpfzb6V97IL/AS3ImHI=
           "]]}}, {{}, {}}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 300}, {-0.5, 5}},
       PlotRangeClipping->True,
       PlotRangePadding->{{0, 0}, {0, 0}},
       Ticks->{Automatic, Automatic}]},
     {
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"B4\"\>",
          StripOnInput->False,
          LineColor->GrayLevel[0],
          FrontFaceColor->GrayLevel[0],
          BackFaceColor->GrayLevel[0],
          GraphicsColor->GrayLevel[0],
          FontFamily->"Helvetica",
          FontSize->18,
          FontWeight->Bold,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "412ecf83-26d9-4c85-a4bd-731248077d30"],
       Text[
        Style["B4", FontFamily -> "Helvetica", FontSize -> 18, 
         GrayLevel[0], Bold]]], 
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0.5], PointSize[0.006944444444444445], AbsoluteThickness[
          1.6], LineBox[CompressedData["
1:eJw9lnlYzIseh0d0kBxKm3JJhWgXbaRPRdr3RftUMzVT0zQzSCiFFolORGix
nLoUqUSWDhlKFFG2SNJ1ZTmWE1lK6Lr3/L63f3revr3zzud5fk/NzMgEb64M
i8XSH8Vi/ff731/9Nv/7xt4E5gdIKSspEUQSj4NJ0Psza7nEk/GHzxj3iXxi
JfQqVus5xBOrYXH+jCFbCfE0OErrmzWTiDVRfq/OUD6VWAsdMopS4yxiHbw0
Wd5Yl0c8GwEaJxw7ioh1oTN1zpe6cuJ5CBtzprb8DLE+2kYedA9cIzbEeDmX
5N5uYmPYd3qL6weITXAw6bp1+8TNDM+HasT8g+l6xKaose27ZO5GvACtdW1u
S1cSL8Sgwnklhf3EZnjzVW+K/E1ic0zoyppVODqdYQvsadzloGNDbInH0wxG
T9lIbIULPRkeN1qIFyHv1+/6Z6dmMLwY7onfzAzExNZw90003NROvASOhzjr
v5hnMmyDSo1MjRtHiIEL2XtFpppZf3MasOPr6QrPQwyzbPEppabYXG8Lc7dF
7T7DJU8uMMyyg7K3xgajwGzmbgeDmufzxn1nmGWP8xL3XK2KrczdHs9dQjja
oTnMfSmejnq2oEJtG3Nfioa27VcXPGKYtQxGxTumGJRtZ+7L8GCmeWSvJJe5
O6CDxb+4y+E35u6ACkf1NxaT8pj7cqh1Wb65mcxw2nLoDlZ/3vua7o4YtX4s
Wy14B3N3xNmVzn/daGWY5QS9qW3bF1vtZO5OkF16ittVzjDLGSqrK3/XU8ln
7s4IbZadcHIjwywX7D1uHvn5T7q7YJXYb0261y7m7oqVD1WKX55iOM0Vt06w
zC4r7WbubtgaVbv5pIjhNDfcbbnNj7tGd3dIdx9vPaxRwNzdkf/gjM7cWIZZ
HvAuDKq/fJLuHmhdvbzZe5Dunmj4cJJ/zXzP3wxPbL1ubKwoYTjNE2Le6Knz
jzAs9US+T7vZwk6GWV7omFvFt5LZy/he+MtCoSNIl+E0L9heqdstdWJY6oWu
L6GJB6IZZnnDsdqjZ24q+d44/tT6bHE++d54VrEWi8rI98ZId7KS/QnyfeCm
7Rn2vZ78n3z+g9zJS+T7gKPxctmxK+T7oNauiDf7Kvm+SC5W7OQ3k+8Lw6xz
6g2N5PuiK6v0VdhF8n0RtjtJcfM58v1Q6tH1IK6WfD+kB7SXuhwl3w/vDj5v
cj9Evh+m961OPLKHfH/ISOfUp20n3x82L3adG95Evj8yy3y+WySR7w+PFp3D
PvHkB0Cl7IQNL5L8ADyZ4XcsI4D8AHwzaYu57Ep+ANxy3tgb25G/Ai+veiy8
a07+CkQ0yc1uMCB/Ba7vr5D/qE3+CigYyT1fp05+IHLDVD38FcgPhMUSzpzs
ceQHImThE8GkEXp+AnFKOsTR+UzPTxBWqP97dsNbev6CEMrrWne3j56/IEwr
KyoL7yE/CIV1spY+/3/+gvF60g+LY+3kB6NszVBZSCv5wejv39kU2UR+MB5v
Hb55qoH8EETcCBB6nCM/BG1tvxYbnCI/BH0DxYXO1eSHwN6p7u6ho+SHwiir
cNTcw+SHQnhMcaTvEPmhUOapp90sIT8UCRtUZz7ZR34Y9KwsfdQKyA9DY8Q9
t6Sd5Idhx+OGVR9zyQ/Dt0XWSvk55IfjqV1SkucW8sPBMnd3nZNBfjh+aaqO
VdtEfji2KzqrTk8ln42KbXUFlskMa7Ix6+qRbv5aej02ameGfShPZJjNhu9k
DQyvpNdnQ81btiZczPBBNrTsTcI7hNRjo/LSFmsvAcO9bHxcJ3ulm0/9CCwZ
ns9dGUP9CNTqPnmqyqV+BBS0mgWXI6kfgZInG4Rr2NSPgIW+GndhGPUjsE/p
xa9fg6kfgYdDF9JaAqkfgfiSf1kcCKB+JJRUqobX+1E/EjNmjM8O9qF+JLYf
OiKx9aJ+JIq5AWYGHtSPRIDuA9NpbtSPhM+pL9mKLtSPxKs7PzonOFE/EjVf
Ta+PW079KKSo/SNdfhn1o+Ci/ubDZHvqR2GCXKObmi31o6DTVq06x4b6UfDb
WLbNzJr6UdCqYZUtW0T9KPQKYn2DLKkfhXGliXMS6O89i4PSozoKGxdSn4Pc
NW+/7TWlPgeqL850nTOhPgflIW3rOo2oz4FFrLjyowH1Obgh66+irE99Dm7a
DKtZzqM+BzbTUl0CdanPherv4dWps6nPxf3c38LLdajPReisP963aVGfi3Qd
tsMnTepzMcF1cNSMGdTnImhTwlunf1Cfi052pmSVBvW5KHr0y+uDU6kfjWly
M++3qVI/GtfKC2uGlakfDb07Xy8YKlE/Gn3Go++GKlI/GmbTl87aMZn60dA6
lDev6VfqR8OuZP6Jz/LUj8brmzu6506gfgyytLW44eOpH4PBsOjevLHUj0GV
Ezf5iiz1Y3A/QOQ4Mpr6MdjfbV1pLkP9GKjLvJAIWNSPgXuI3OXSH8z/+94Y
9Ke4DnZ9o///PKgbv12rMMywJg8pf7bmuA0xDB4+ZNwSZH5hmM2Dk+OdiQ2f
6PMEDwnPdKOGBhg+yEORt6Df4gPDUh5GZhWsSuynPg9KI1ul1e+oz0dC+EjV
uzfU5yPY8F663mvq87GiZnM79xX1+ZgyKWzV4RfU58Pjx9nVz/qoz8f7RdJU
7WfU56NMS7+X95T6fDzYFqBV3kv9WDTzTd8/66F+LExn5pXMfUz9WLztvzEQ
/4j6sdg3qC049pD6sajNVPr0upP6sdBOTgk3uk/9WHRsYF1ddZf6sfhl3Vmj
07epHwfxNYH8UDv145AzcvHnh0Dqx2GJA+d7Rhv147AgW/Cs9Tr14zDdWP/z
pFbqx6GjNbhlxTXqx+G0bPuC/c3Uj8O7G046fU3UF+DDFZTqN1JfgG7lWVNX
X6K+ACF+u+XPX6S+AF+VhgdGNVBfACuTiVbO56kvgLB4/MZd9dQX4LafYfqj
s9QXIHOkasvsM9SPh26jZI+wjvrx6Pm4+fBp+ryKeCy9WN0/upb68VDLyHBy
raF+POoFvcYFVdSPh8XC85G9ldSPx0y2apHxMerHo3bb18kpFdQXYr/ud+tr
R6gvxECi5gWlw9QXosGy6iqnjPpCHH+jvLj2d+oL8c5zzLQfB6kvRKa31n2X
A9QX4m2V/beiEuoLUZnjX/2qiPoJUBWcumhVSP0E5Gvej9+2l/oJODfZOK+3
gPoJuDrFLtZoN/UToCCq2rkhn/oJaLgXqty+g/oJuJBXmaaTR/0EJPR2XF+V
S30RnPOHNJq3MTxZhBbf2JuqOfR+RCiXXysVZDNsLIJQ8YRlYxa9PxHydx2d
qprJsKcID0sDebHp9H5FGNNz7JJ0E8MiEZL2sOyUN9L7F6H1D4PrvFSG837+
vmqEmTSF9vx8vQX5YrVkhmtEmJ7r4yZcR/tEyOh4ue5yEsPtItgeib6ttob2
ivDpRXm5aDXD/SK0a6dpt6yk/WLY5l6q0JLQfjG+upnmrxfRfjGCZAaj7ghp
vxhrGvQOz4+n/WKMM+lt3xpH+8UQSXJmPeXTfjEqq/yOLubRfjGkVv5J+6Jp
vxgadWOiBji0X4wXBaNuuUfRfjEsVMLmHY2g/WJkpq/cP5ZN+8WQq29r4YbR
fjHq9smUNYbQfjHml+lXawbTfjH4r8ULUgNpvwTx4Z+6ewJov+Sn/1Bo40/7
Jfinz9inRb60XwKVQku/QW/aL4FdTb1cgBftl+D4Y+nDMx60X4LLTU++qLnT
fgkeVztoJ7vSfgnSmrU5vc60X4L1Qz867ZxovwQ92fOuHFhO+yVofnnrE8uB
9kvQGNhvGbW0AP8BIk2Wjg==
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw1l3k81PkfxycdaMvRImkVEZKEQsnxkighypkj4z7GMDO7UlklkXTIkdBW
jlQWqRVafiqlLNHtqKiU0NYWEh1q99fvt5/3/DOP57zm9X1+3zOf7+c7o+of
tSFIjMPh6EzgcP73/O9jyOL/T9wEsBfQkfThU4Q/sQQuNu79Z0cQsQzm30m8
PDeMWA7W9faOPD6xImxVMlrjRcQ/YOYtgyfxW4hV0Byj15a1g3getpoUqr5J
JlbHbfnpc86mE2vgbmL5lxnHiLUwU+qfKvsSYm1s7rqbW1hDrIOs2dbnuC3E
uljw5dKTu0+J9VBx2VVi1QdifTzbnHVTfMYuxgbw7Hk4J0GPeAkeSzfuk3cm
XgrtYmeLuduIDSFWNZoocYrYCI+953RbdhIb457VjlIDqUTGy2AzUOlmY0e8
HMtUlM4MpBKbIOG54tntD4lX4O0VLZXohUmMTdGo2DFNLYnYDEe1dqv29BOb
w9f6qOYbp92MLSBl+bl2TwMx4Oudo9hnnvwvxwMTfJIEag2MOZZQMr+T7+K0
h+WWaB/iHub1M+asxMSKmLG1SSksX4kO/RMfW3T2stwKudulpfK7Gcdbwejl
4C/+h/axfBUk1aTXnXbez/JV4G2zKHk+6wDLrTHfpL2f38843hqNvc6T9vye
ynIbtPktMAs+eJDlNpjrxReXNkxj+WqsVLSd8uwE4/jVWPYmx6n0+3SWr8Fe
ZynXF7sYx6+BdbhCNOc95bZQvmNwb2tABsttERG+58iFu4w5a/Ew0f93A/NM
lq+F74ejVX7FjDl2kLl2f/El6UMst8O7dt9JLT8y5tijZSB3SLyNcnucnfJ5
gaReFssd4OOk5x+czDjeAVcfTSu89pDyddgXf/pap8Zhlq/D0A9Xjb0iGXMc
cUR1WFfxHOWOyC44PzjwmnIncBtTH1SqZv/LcMKxKUHjYesZxzvhfXe+rHgs
43onCOyFxjnHGXPWwzZOoti0jvrroS9cayHdRv31CJVcNNOsn/rrsdmxWvXv
d9TfgLrWUaO9n6m/ARaWRtfUv1J/AziOwzmK49TfgFVv9/WVvqe+M/Is45br
v6K+MxIuyNWMd1HfGam5Ptt8blDfGSsiV7kUVlHfBd0rotNn0zxwgZQEb8Kc
ROq7YC7XfHg4hPou8Bko6X1kS31XzPtV6Z6GNvVdkTXa3y8nSX1XvJ5SIfuk
n33e9a6YVH7/TX0Dff5uuCu2rPh9HmO4obmw2eZULH1fbqgd12iY4E59NyQm
zrBcZEB9dwz3pd53nE59d9RkGkYkvKT14g4d+TUT+xoY17tDb+dzv4w8Wj8e
2P2b5VB2LGN44Guubth0D+p7YJPmRjmOIfU9sKfxeVnsDOpvxFgbOHuH2PrF
RvzoLJa15Dat5404VmGzf+sZxvXf8jPP/XP30/r3RJPkU93UCOp7IjZpopyL
A/U9kfaT6ZwBXep7IvGzspq5LPW9MOxW0OX+nl1v8IL3p6OHFz6g69ELYipW
MdV1jOu9YKf1wnC4gK5PbwhChPkPk6nvDetn2/bxIqnvDYOI2JuFrtT3hpdm
oHqsGfV90GRe5PtqPvV98Cppr/6YFPV9MFW/c+qhj2y/qPdBe4+nZP1z2j82
IWzns09bbzLGJiTdV3K7/DvtN5tQrld4OrGI+pugY1mofzuN+r7Qj603PBJH
fV8ktZ4weRpOfV+Y8S26j3lQ3xfawa4Kt22oz4XVhVc3RYaMVbgwy52XuVud
jsdFWVG52EQ5xlwuquL7Jr2eSMfnouHytGmmtF/mc9ETuvvC4AvG9Vyojjfw
Jncw7uGi+0LGrK1/0P7qh3y9jII1NYxV/HAv/cHy6FLG8INSrfy+0WOMuX7I
Odca1ppG+7Uf9PnDN8Zo/873Q4ym2wtBDPn9kPLzE5jxyO+Hi36Rva6+5PfH
Iq2R6bXO5PdHnMq0yYFryO8PkYzZI1cz8vvj6lzrIwcMyO+PDT/LLxPXIr8/
3pSrBF1XJr8/KtrPBlyl+02PP5bdvL/9qyT5A3BxhmbcFg75A2Cod0VM5wO7
XyEAA6dzhhTfMuYGYHj5gp0r++h+FgAv1Uk1+d2M8wOwcNpkB/02xvXf3p84
bexjC+OeADy9tVl+uIHuj4E44OgRJV/HWCUQkyrlL/MryR8I/rucZ+Nl5A/E
tbzevIqT5A+E9cUbxZnHyR+IVQdnpxdkkz8QJbJ3qrvSyB8ICdnayuV7yR+E
Vw1Hdl3bRf4gZKm9dYmJI38QppQW3baLIX8QSq7/9dhaSP4glD2NQxCP/EF4
OlWn93QQ+YOQcirD5Tsu+YMgvrxWLt2T/MGY2WjcZuRK/mCs71678osj+YOx
yFin68Va8gejdvGSun5r8gfDsV3CQdKS/MGQHXRzXW1K/mA0ix7+mWdM/mAo
yv2x9fsl5A+BkVqXzAld8ofgioJx/mpt8ofgz7EnJ8U1yB+C13Jt2S9UyR+C
ed4C+05l8odgRF59qHsW+UMgk2AsOS5P/hC4WVaG684gfyi4YX/9GS1F/lBM
k1Cx6JxK/lA0HnJebCtO/lDkffWec3Mi+UNxXO/qzyEc8odi/6Oa83qf2e+x
+lDov7YQrxhh3BOKOv6DXIc3jDlhOCceNk9hgLFKGI5mcgLHexgjDB4f7DLG
HzHmhmHY+8MBzXb6vReGddGWZyNuM87/1i+qFtxtJn8Ydq27WOJ7jfxhKGho
uvX1EvnD8Vv3JueKGvKHI8HkqHx6JfnD0d9hoppylvzhKKnRq9hfQv5wPB/U
6Cw/Sf5wyHz89MvbfPKHY0+54ITtUfKH40Gp0Pd8Nvl5ME1+PNkok/w8BDcp
D3Skkp+H7V6/HU/ZS34eFC+fnOu4m/w86CvYXdVKID8Pr/qKdJS3k5+HhNED
ucrbyM/DnJ3d9ks2kz8CZdFzB7xE5I9AoqD6UnYk+SPwvNWO/yyc/BEonyUd
sDyE/BH45YblPycDyB8B6URDdQ0u+b8dv7Snr9yb/BHw4tx0WbeR/HzoTszU
G3MlPx+P62a/K91Afj6aWqvLtzqSn4/qqF+b1tqTn4+YtLzmhbbk52O4mPtg
lg35+SirnjVTxYr8fEhUxPxHG+SPBHdgsZO5GfkjIeZ+5LyvCfkjsWxMQybT
mPyRGBIP729ZSv5IdL1b2POdAfkjMagwkrJxMfkjITcy5UaVDvkjUXrEoVhB
m/xR6Mls+ClZk/xRaJfu2S42n/xR+FhVsHTfPPJHoSXO+6WsCvmjYGu5IrJA
mfxREJv/vshsNvmj4JLsEDugSP4oDLSKKtMUyC/AloZ2Bys5xjICjPSK3/sq
S+cjQNOp5Obr0oz1BEhZMjM/ezqdnwCnFl94Gf4dYycBlDKUfrKSpPMVQE74
eLWWOGOBABFp4XHSk+n8BciSNin4LMY4TYByKyfDEQ7NI8CtUZO/3/3N/u+d
E2CHSWP0yBfG9QIY/93TNPqZ8R0BJGfbb5nwiXGPAOKR/TPkPzAeEuCd7uB1
3VH6/yjEWFyTqeMIYxkhchK8xH8cZqwiRFJt75TcQcZ6Qlx536F57w1jCNGl
/Npzwl+MnYTY1V3VbfCKMVeIe9dfHo58yVggxGm9kjMV/YzjhVDTd698/4Jx
mhBX4/esNutlnC8EvyxFN+UZzS+Ef3pRXvdTml+I8pFLjUuf0PxCfD9ev+1g
N80vxMZ4nROvH9H8QhSO8iodHtL8InDUFgxWdtL8IkzWtmlV6aD5RRi+ZaSZ
3Ebzi+BgvlV26B7NL0JAQedn37s0vwim7q57Om7T/CKoL5RRcrpF84ugVKmr
eKeV5hdh1s6yZJcWml8EK7XJmZ3NNL8Ih9TPF69vovlFSP7BYnFHI80vQr17
Xcum66n4L0LLla8=
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw9l3s8lGkfxoeSU5uUFSJqQwciJIpcoSg55nycA2PGcWbSYavdUEolpHR8
20jat1jREqvTdNBSWCUdrGpQSanULh20b+++n71/7/wzn+9cc32+83vmuZ/n
fqbyUwPilDkcjoUSh/O/939egy7jQx2rGyMywT5A9Lbi4nnRxGq4v/PV+qU8
4vEw7cva2B1LrIN3T8bHm4qJ9XDbueyVVQqxIc6lqjpOTSM2wdAc0ZhvNhBP
w9kLMQb8zcTTobgxS2nMLmIzzDSMGLvkAPEMuJy/aB1QSjwL7hsKjsiqiS1w
9amt1tsG4jkor+59q9tJbA3bEMut1m+J56LvcEdRjuZmxjaIPH/EOXcmsS1O
OZVcKvQitoONme8ff0mJ5yHAuPaw5RFiezieXPt9QQvxfEyZZ6Kze9QWxg64
86D05G4XYkcYLbrROpJBvAAlbnrGdjeJF2JgZ+iDoslZjJ0wfe054b5VxM4I
2d5/VdROvAgaEydxghZuZewCuxZHtX1lxEDwuYa14dO3/cPpgMWniqFLpYw5
i3Gwo/mvdqtsli/GY16pz9YrjDmu+NNXv+xs1HaWu0Kv+9PFhUo7WO6GObVO
N66VM053g8dI7bcvY3ay3B2SytylrgY5LHdH16s+NeffGXOWoIbr22N3bBfL
l+Di9UKhOCWX5UsRUFqvp+2Sx/KleDC7v65YPZ/lHrjLD+zRWM043QOSo9NG
PLop98ThgF9ybnnvZrknJpe6rZ5Sz5izDCd2b64sMy1g+TKUOk492JvHmLMc
sQP+Ja4fKF+OTje3WW7Re1juBQdr927+ZcbpXpivPebDjKl7Wb4C+3bqVOh/
xzh9Bay6mvpb7lDujbPtiWY95oUs98abfaHLOGsYc3xQslNLq/si5T7w2jV8
3l15H8t9UXnX3PujC+N0X3B1zSu61lLuB9t+//MPTzKGH4Rbvm192UHf98PJ
uaVlGp8Zy/0QqOdsv9xwP+v740/NLJMWe8bwh1PhZF6VF+N0f0zcfu2+WQRj
uT/O8SSK+DjqByDmVX5ARQL1A/BdbYWLSyL1AzDMsT8rjKd+ANYFm8sTY6i/
EuKFQwnFK6m/Eg5ZWe/D3am/ErEV5k4v5lJ/JRbt0Vh/6P+/PxBNhnUG50dT
PxA1zj3yYy9o/kB8NVLvWthK8wfi4esT0o5KOn5BaFJdLji9m45fEBo/PzPl
SqkfhMlGeXFT/KgfhM023eFmc6gfjKUb3CvKNakfjIuF0sbfn9P/GYycIosP
XQ2M5cGwVB5f1n6M/v8QrHhu5PhkE2OE4FKS7Z3pUdQPwcKdWy6cWUD9EDyc
cFn9hB71Q/FmMDVN/T073xCKFu8Y43cddD6GQu1W9NWEGsbyv3muVtHGQjo/
w2Drd3Sy1Rrqh8HFtyohO4T6YejR8ZRtc6B+GJpXtEtEBtQPh4FRo+30v9j6
QDge5Lyrq1bQegnHut60MToNjOXhGHYdrTn/FK2vCHzaOVhvkE/9CDQEGNZX
r6F+BC5XvT/KofUoj0Bm6c9VQ0uoH4n123+Iy59D/UhsEgh9bk6ifiTe1M6b
VKxE/UjcXrpINHaA1n8UTgV3aynfY4wozA7l3d96ha4HUcgedAjMq2Asj4J2
/pVO3cPUj0bbdZ3NhtnUj4ZB31OjI6upH417GrqHcgTUj0b9ioKaN/7Uj0Fz
X6zNZVA/Bhd3PTP9ZEX9GGhnKpoOGlM/Bq9/eSM/oEV9LkZuJ5YOf2HXOxMu
THSTrlUOMgYXM5+9Tr/UzZjLRa521z7TdrpectHSlOWruMa4iIt3Idkz+88y
lnMxenbNKpeTjBVcZPieHvf4MF1fedB1mdXekEt+HjjVoqE/M8jPA/+BobFg
Nfl5sNe4PXeimPw8OMqNrJWjyM+DQugosPAnPw/q63JS9y4hPw/5UWVSuwXk
56NPqb9Z04r8fHhov+zXmU5+Pj6pGqkE6JOfj2OG54IujyM/H5t2hX2OHk1+
PhZPethl+YndX+R8hJ/IS5gxyFjBx/VbheY+z+j+I8Cqg48mFHcxNhGg9XWz
qkE7YwgwLKo2rW9izBVgunPjky1yup8JwPE4tEVWy7hIAI+OkM/pFeQX4JW+
2rKaUvILEGNUrql+hPyxiO79xXvdXvLHAnLHiZo55I+F16E5669uJn8sZsy8
uGPvBvLHor3Jf1H6KvLH4ojVQ+n2RPLHQrOY23haQP5YqB3Onfoygvxx8Gyq
ueweSP446DlcN6xbQf443LL92dhlCfnjoNYZ+uWhM/njEPki9spee/LHIVPt
9kGeFfnjUDd5brjrDPLH4WnV9hsOU8kvxOGgnseuBuQXIm3N3VzuRPIL0Zip
dqBwLPmFsOe+Dr2vQn4hlO6NV+b9h+0/ioTQid1vZfOWsVwIuy85L6Y9YawQ
4qrth3129xhz4rFJU9oqvsHYJB4lswcGqy8wRjx+Om+V+U0VY248vFcn9tUd
p/1OPMK3Fi6OP0D+eCj0g0Uzc8gfD7v3lv0a6eSPR5SP/yOVNPKLEL7mglhP
RH4RGuqqZD6R5BehV2z6qtCP/CI4HR/Se+dOfhFClw0tS3Ikvwj8nrGqKnPI
L8Ko3ZoBp6eRXwSbZF8IJ5FfDEsdn09OY8kvhru5WfE3SuQXo8F3VLveMNvv
ccVYk/D2geVLxulilKi8jvNTMC4SY5T1SMi2DsZyMTwP73jWdYOxQoyolml3
58tp/5iAXKGTytEaxiYJ2K5qV2lWxhgJ+Hr2C8uLReRPgOuEURND95E/AV+5
nGlTzSF/AnB2/+XmDPInIIO34O7xteRPQMz6ja2bk8mfiOPzBfPTBORPxATj
t+UbwsifiIKDx7RyfcmfCHPR46LyJeRPhDDSa/SDheRPxOcLI+YGNuRPhG/U
uG28GeRPhFOncVXdFPInIdNFJ9voa/Inwato9PF8TfInoW3d4kdjlcmfhOG4
yv6CD7QfT0LF46G4mW8YFyX9vd/wSvntKWN5EkwufO27vouxIglK99eEObQz
5iTj/k2bTSNNjE2S4Sm9tKZJzhjJWLfAMae8ljE3GR0THH3yK8ifjO/NhjZn
lJI/GWo6xVu++xf5kzFwT/V43h7yJ+OA9dxFx3eQPwUTwx7oyDPIn4KczB3z
n68jfwo6a3U+m0jIn4Le61vVo+PJn4IrqfYLiqPJn4K18TM83waRPwXDLc9c
fL3JnwL+nkveVe7kT8W4gv5X05zIn4qXq47m/2BL/lSU2txpNJ9N/lS84fyk
fnoa+VPxIUM/yMWA/KngZAeWd2mTPxWrg+cYZquTPxVjb87bYqtEfgl+UJqg
0f+BPW+Nl+BbL+fgHwcZm0jgXZmhlfacsbUET7J0670UjCHBes7HUWb3GftJ
wHHc+HhMG2OuBGmmS1OHfmUskaD/y5Gevkv0vCfBlefKTx7XMs6X4Oyzr7T7
TjMu+ts/kIX3PzKulEA3K3OURhFjuQQ7ShaXmBxg3CZBY3NdvWs+Y4UE2n8I
XqZkMx6UwL6rc3VJOj1fSnEur1O/ex3NL4WFBX/9dCnNL4WWm2Vukpjml0L/
oTDkBo/ml6LtTG2zSTjNL0W2SuLyjQE0vxQj4rKWJ8tpfikGTkRvDXWj+aWY
q/VRp2UhzS/F+Gsjs73saH4pco5OLPrNguaXAsUra6NNaX4p7jkZnBwyovml
yHs3EFagS/NLscgzSG6rRfNL8WaKGfeRKs0vQ+2kni27OTS/DPWtu86s+Mie
z01keBvY9pvKO8bWMlxrf6rU8IIxZNBo9riW28vYT4Y2Z/er/C7GXBkGfgwT
OncwlshgYaZiMq2VcboMuvqzPo/7lXG+DPu9Ki3/c4lxkQyGlv7Wz+sYV8oQ
/FPvd4oqxnIZMr//93nFqZ34L2cqfe4=
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], LineBox[CompressedData["
1:eJw9l3k41Iseh4cSJ21EJS3qzKnI0UIS4WOX7LvJPmMdw8yoUGHKUogsoVOy
lHRREmnTglOHSkraKZ1OnaKOrc1Ny+0+9/e9/vG8vs/r/X3wDBYERjkHSbNY
LE0pFuu/7//3NmSsMW0s6FX4DjAfwKNVvX0ykcRyaJQom/sKiadhY13IzT3R
xEqI7PZfLh9DPAvv2u7Ka24lnoPitSPJ7xOJ1eC4yU83K4V4IeykjOZP2k3M
huwoUvflES9Cl902Z8ci4iV4a1nGCakg1kDGH6uMJ9cRa+KS1o5fRZeJtXDG
1r7lSgfxctzX6Z5u8Ix4BX5pNxqY/Z54JSBwm1k2MYlhbWisVG+SYxPr4Pej
I5X7QbwKF4aj3x3yJ9ZFYaxCDS+ZeDUSjQf1NY8R62HT4vHvzR8SrwH/2ZWX
n+WSGdaHnoJfVokRsQG+LUx32BRHvBb5Ep5Z2zliQ1gcaD5/+zuxERQKOgw6
16cwbIyY/Mq144uJgW5VLrvoI8MSILHKpv6KWypzN0Gr5oOvexsZlpiA8zu3
UG3JTuZuimq3l6wtBxiWmEL1tK5qrvIu5m6GUaMHcY4FDEvMkPXpSkbR3DTm
bo6WxLZGk2qGJebYfnHTzY9G6czdAn4jfxr4PGRYYoGpOXGjU2MymLslKmJ3
q6TN3s3cLXEq8XgpWhhmWWFRDFe1SJDJ3K3QPpCm/VI1i7lbY5a9zbBPO8MS
a0in3ym0S9jD3NdhY2KRXvCsbOa+DoNq0UppIoZZNhjLtcn5+TrdbWB25+mD
tgU5zH09+Ca7DRRiGZash+WlTZsz2+lui7VNk7x65+Uyd1u0hVbFHY1kmGWH
wX+WS2c30t0OzcueytnL5DF3ezS3LHDdv55hiT2Gbinp6mXR3QFbKsvefmqn
uwOGOJKGM7J7mbsjAsZrpboYMQxHlOvlzjgvZFjiiMjqv/CimOEmR8xv26DY
00a+E251KpsdGSDfCdFDSz67TstnfCf8Ef98/kQthpucwLeqO/TcimGWM7I8
j7XK+jIMZ7DL3/VVCsl3xtJI/qH3ieQ7Y3SCnqfabvJdsEdWTzc4n3wXaOZw
2r8dIN8FVTbzZ88tJd8FDsWWez+Xke+K6+t4sveI4YpvK3wTn5aQ74rVwyXR
FkXku6Lh8P0Z5oXku6E2QFA6IYd8N4yV/el0Ko18N/z8LjV063by3fBvDYcT
SbHkuyN9YeGrN5Hku8Oi6eukLh757phZVBrkwiHfHY0WKTZpDuR7QKpn16sk
c/I98GhKaAVnDfkeUNdILVT7/9ffA2fHrbTuWUi+JzpPW5wsmUm+JxS9gr+J
J5HviWdGF8p9pMj3hExXcX/QR/r+e2F3RWx8zhv6/ntB4cYh9PbSz48XFjvM
Tsm5Sz8/XjAeF5heco18Dr68+Hpb+jL5HKg/OXu64RT5HHjZqv1aU0U+B0+m
Z9zqLyV/A1q2dYJbSP4GRJz1TVLOIn8D2F9rt40lk78BQ2nBO5S2ke+NPyRJ
qr7R5Htjcc3W7/fCyfdGm/7mkbhA8r0Rs4v92oRDvg98A/uGVjmT74OEuHPH
7GzI90Fn/rWSnabk+8DR66TU3/rk+wKv3h8O1SbfF/M6E3gTNMn3xXLFGLlW
Nvm+0NSvnvWvueT7oSHtZNiRGeT7IcIje6RpKvl+cDtqMfxBjnw/hG8LPGAp
Tb4/hNbxDXVjzOuDmj8Scu+NX/WBYfijaTiw8s4Aw/7+mDJOTS3jNb2e+ENp
puFEznOGS/0hJbv6EXoYbvLH1fN10Yb3GX7mj/bqmuMOt+n1KQCTd9Uf2nKd
+gFgl5W3nL5C/QA0vUy4KneZ+gFQH7HhRJ2jfgCat3bxX9dTPwBv3b+sjq2h
fgCUkOA0u5L6P/jCjMJbh6kfiCPtQw/ziqkfiOnHxBfDf6N+IMyj9l912Uv9
H8zJc7TdQ/1A2ChvTfBMp34gznJHeqNTqB+IadcHVUsk1A/EZjcLyydbqc+F
5tdFq5fEUJ+Ld76DKjvE1Oeiw+yr96CA+lx4umjNDgujPhf3sx/pDvCoz8XR
E7EFyf7U52Jv/uLiRd7U5+LVkzkanR7U56F0GIqZLtTnobdSXtXHgfo89HVr
v9Ch3y/+PGw0ldeYaUV9HgzDXDbLmlGfh7Kq19ITjKnPQ+fVLmN5A+rzcMrw
8cwFq6kfhDfsD5vNtKkfhMEo246IZdQPQlSe4cuypdQPgsfdWv2/FlM/CPNY
E0XL2NQPgvZoWUeyGvWD0N46N/PlHOoHocHEdIKjCvWD0XR4Qv4VZeoHw8dW
jWOlSP1gzNDZyLo1hfrBiN2eepgrT/1gVA965rHkqB+Mu+23E46Mp34w5L+y
+C5S1A+G2tvyQflv9Ps9BJ7xxxPaPjOsFoJsHe6y7E8MIwQ3dMve8N4z7B+C
LXcz3xkP098DIVjWf2l03gDDpSGwY2dMlHvDcFMIKvQWBI2+YvhZCBbJ6DsO
vqB+KCLNQz6M/En9UNRaJgk+P6V+KKoEdXtle6gfihMrVC3nP6J+KDjuJ/8y
uU/9UHz4WCMf1kX9UEQrmGzJvU39UJie0RhtvUn9MMg/ljkqdYP6YaiMfs4y
bqN+GAxWNnbtukr9MBRNfyF1v4X6YThQYcbWaKJ+GPq7mqPSL1I/DNaT/B36
z1M/DB/Zi7h2Z6kfjtbXBn0XG6gfjge+Thna9dQPx2Zd05qjtdQPx849jbrs
GuqH46FIrvtf1dQPh+vMTwd1KqkfDveV7oLmCuqH40DPWI1rOfX5qHtQtXa4
jPp8JF3u+SmnhPp8dG3ccFPnIPX5KB+pCn+yn/p8ZF+2Dc7aR30+eowgQQH1
+RhTjts3mkd9PuRWTj7akEP9CKifkpaO3UP9CIxO9p1nmEn9CCC9iCeTQf0I
BNkUL7+7i/oRuN/rqFCZSv0IjPRMq01Ipn4E/pEusPLeQf0INAe6t+tLqC+A
af4n9bkJ1BegWT12t9w26gvwxUNYNxJHfQFmNLQqPY+hvgCvszz97m2ivgDF
flq4E019AQ54PX7UIaK+ADentBTfjKJ+JFy6L8zrFFA/ErVKtcndfOpHwjL1
SPHfYdSPRJH866B3IdSPRLfKgJFMMPUj8X6J4fE5POpHwn5w++86gdSPhOR8
3zoXf+pHwab1kWiTL/WjEO9cNeGgN/Wj8Ebuk1ELh/pRiFNxPt7vSf0oLPDx
dJ7lQf0opDxec2K9G/WjcKFEsybehfpRmLzdI6reifpCdDZfMn/rwPA0IVSt
E6WW2tPzCBG5z/KZwJbh5UIk9XJP19rQ8wmRWNeX8sGaYUchwgosnhtb0fMK
8c/Dju50C4aFQtwb67B7YEbPL0RmfMVPGqYMZwtxceT2UCJoz4/nsTG6cc+I
4VohvP6uN9c0pH1CnDtToLXTgOHbQkTk2XW9XEN7hfDbK3Cw0mN4SIhrU89J
HdOl/SJY59WvUVxF+0WwKB/cGKdN+0WQ+W66un8F7RchPuBtn9ty2i/CdruD
HS1atF8Evv31Fzq/0n4R9BuDDaqX0n4RTp10OqimQft/fD4Vd/5vS2i/COL6
LfJKi2m/COo7G0pzf6H9Iiz9ENs8nU37Rdjs2ulbsJD2i6BnavJBZQHtFyHF
sbytdD7t/+Env9qiQf9vssTov5N14/Qc2i/Gmtk2x6BK+8XoZmeuaVeh/WIs
3h5zYsMs2i9Gh23Kk4EZtF+ML+N0R5KUab8YP2X7VcxRov1i8M6Ujp1RpP1i
KB5nTXRRoP1irOyLV+qfSvvFuDhx4YvUKbRfDO3vslg0mfaLIefZLndNPhf/
AebwiP4=
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[0.006944444444444445], 
          AbsoluteThickness[1.6], Dashing[{Small, Small}], 
          LineBox[CompressedData["
1:eJw1l3k01Hsfx0dSKaLFTUWpdHMtWSJK6k2WXGQZuzCDGTszo9UNk5QK2UIr
WnSjFNqpS5tKpdTNdZUkhOpWt5RUHk/Peb4f/zgvn/Py+r3PODPHrKBYN8EI
DoejK8Ph/O/7/7/eL9NW/iboiUgG+wH+Nmnvk4shHgPhV2PbABGxMgT7XZoy
44gnQ/Nyg/m4dcSqsO7J1ND9jVgNAULz4/1JxBooK6lZs3ML8WxU+xemKKQT
a4Kbaj5rTy7xz9jQXbbIdT+xFmQd88vCjhJrY0v1mZlKVcS6iL/X2xRXSzwf
atHfo281EhtA60unOp4TG+Jllkz9rH5iI0wRajiVjd3MeAHmXqkaraJJbIzP
O6o6y0BsAsNAD9MLPOKF8NU7w5WmEJui6KFXh/MJYjMECYyzJS3Ei/DwxING
Y/kUxovhX780pXcpsTk4M/alP9hAvATaDXsSFlUTW+Bq8caFqzhbGC/FZ7nQ
6785Ei/DaEUTk0eFxIBMWLs0b4CxFNg1amv/W8+t7G4JRb7CLwOXGEst4TKv
Wf3qL6nsboWMxJsVQQcYS61wyrFcvmHKNnZfjrbFN++172YsXY77A1990jS2
s7s1EvxyOwtOMpZaY5qOZU2N1Q52t4G8jG5lwVPGUht4qHY+uvFbGrvbglc1
Ra92Zjq726KnbXv815uMOXYY2h7w+klcBrvb4XpAWOXx2TvZfQV2trXZlD1i
LF2Bg7f1VqlvzWR3e3x8eft5hloWu9uj5T/Hm/5Zw5jzKzSaToy+2kj3X5GR
kKd04OdsdneAYEJ55U8JjKUOUPuibFjbRHdH/Ouw5bOpZg67OyJ3k57drNWM
OU64Lk5TnHuF7k4oUjVa8GVsLruvRHZdVgjXlbF0JeYblPQN5tLdGTsd3sld
ekh3Z9Sf1VdYr7iL3V3QsOSiylhrxnBBq5WOPH8tY6kLhNt1vq05wrjOBRu3
77bgNpLvCsm+483fP5LvCo/vuZbbVPKY7wpey9K6yQsY17liyeYLhXWOjDlu
WNdVuulsEGO4IcF+s6bmGvLdEDHhfJJZCvluuBTd7aWTRT4XRbEDhgv3kM9F
przwY3YR+VzojWx/LT5MPhd21sWtSiXku+OtR//90iPkuyP0deskySHy3VHw
xJhbUEi+OxJKCt9xqcfxQIiJmt2fOeR7wNI5tWZZGvke0DL6dOR6MvkeMFfW
frFjA/me+P6kyqoylnxPjNyXeNdTQL4nfEx77+T5ku8Jh8qZB3Y4k+8Ft/7U
SGtr8r2g0vW+qNWMfC+0vv1ky9Mj3wsJGqt7n8wi3xv7emM3BP5EvjeKzQtn
fhxLvjfie0Y6FA7T6++Nj+c2WYT20+vvAwG/tpjbR6+/D9L2fXEPaqO/Hx+8
8kwcetxEvg/KTe6eLqkn3xensrY8a6gh3xeB42wbllWS74u5kwf8vx4l3xe3
XWYYDu4n3w/9G5S7F+SS7wfjQd2kY9vJ90Ntq3Kfi5R8PzgZjUjSXUf+KnxY
ur3RLIb8VbijbpAfJyB/FUoDdhxsXUX+Kjxp7n0tcCffH80tfZnqjuT7Y+jU
faPB5eT7QzvShj9gTr4/euTv+U4zJj8AX9RLPvN1yQ9AufLpKTc0yQ/A/ILi
NAd18gPQt2nXsw8q5Aci4YZ637nx5AeC15r6+57R5AfieY2qXz6H/EAIujyX
nhqk9wceXKaVqHZ9YKzBg4lNYqX+G8bgQbBZW6+gmzGPh5tGlvLT2un9hIf1
jnE9p1sYF/NQ8OCkuZDeb+p4ePwu8Z/5dxk//8ENEQ8V66nPR07DwKhRddTn
wzzvj0GlaurzMfXcJoHBGerzoTSw8YvgJPX5GH7+84GTx6jPR4J+R/b4w9Tn
I3XxS+GmA9TnQyNZ/tvo3dQPwrX8TPXCHOoHIffT3LV2GdQPwuwmgxTZbdQP
wr2RASX3k6kfBNnmU4OnEqgfhFpuxfji9dQPwsyT49KK46gfhBU34jadiaF+
MCrUbtU/Dqd+MOLax6SOElA/GK/mWOk78KgfjOHON3/u96N+MLQzTvt/9aR+
MJySs8rD3agfjJY7l+Z2O1E/GNcmRh4Kt6d+CK7IqA4NW1M/BM/CTT+Vgfoh
eLBovGbAEuqHwFUcs0LNjPohkB/x7HXvAuqH4FL3fJvr+tQPwXo3xytHdagf
AoVJc5z2zqO+AGsaDe7vnUN9AR5prDt3aCb1BdA5+vXOuenUF2BlkUX6X1Oo
L4C6+ot82cnUFyDaNcVgkTL1BbjiqJUTr0B9AdI1lSbVj6G+EDe2diioyVFf
iPyJuwulMtQXgrvSLubVEPv85QnhXfLXHv5X+jwWQmr+ParjM+NiITqNVfLD
PzKuE4Knenjqt3eMnwuRVHQro+ANfb6H4klXAd+sj7FGKNbO2Hiyq5sxQuHy
NMa38AX1Q6HZnlsc0E79UHybpbJgzlPqhwL+unM+tFA/FMPeZaW3HlM/FFmH
LRWPPqR+GCYZda7Nuk/9MKzMax5MvEv9MLzX11odd5v6YXim87hOUk/9MJx5
us8i4Rr1w9CjvT8lvY76YSi+bc8tvEz9MMjY9a++VE39cOy84iPXfp764ZCd
kJckd5b64bgjc6jKrIr64SjbJYyPPUX9cJj+HiEuP0H9cKjca2wYKKV+OM6+
LX1t+Tv1w/G++v36zCPUj8DCXdWVrw5SPwL+dz+bOhRRPwLRNemisv3Uj0Do
LQ+biXupH4HmqcVhyQXUj8C5vq6/B3dRPwJW6bUpkhzqR+BmXH/Tv5nUj8SK
bYp74jOoHwmPWpXbo9KoH/nj/eDd1IJt1I9EziuLWN2t1I/EdItjjg2bqR8J
q73uMeGbqB+Ji5K2c+OTqB+JsAg7tYsbqR+FA5Y7PobFUz8KAhvniunrqR+F
tpG9NU1rqB+FhX0Bkp1x1I/CBa1Lga5i6v/4fb/O1lGJpX4UAvj3JnREUT8K
Zo2fZE9GUD8act3Z7xLDqB+N4oXdw95C6kfDJHPlW8MQ6kfDvF/WTDmI+tFY
YXV564dA6kejoL469Zk/9aPh/uG+V4Mf9aORZ8+JvuBD/Rhwh156Hfeifgxm
LCm3LPGgfgzUk9r7i7jUj8HCb3Oj97tSPwYdEweUCp2pH4Oe8uyAEifqx+C8
s2Z4uQP1Y/BdODRYY0/9WFTlKi9rtKN+LKy19GVf2lA/Fo3djfHfllM/FteE
yRaTragfC67SGAcjUD8WM5a/neW5lPqxuKxQUrp+CfVjYbt50aiixdQXYZ+G
zbZbZoyVRcjaYTziy0J6HhGUxyQc1zFhbCDC7ERT78AF9HwiONhNV8wzZOwi
QntOj/8DfXpeEYLKurwU5jMWifDiyC8t9rr0/CKMfHO5IkObcZYI3jeMav/U
oj0iaJu/aZg+j3GFCKeTJyUHz6V9IlQsDTx/ag7jBz/23K6rGp5Fe0VI6XbI
dNNg/F6E2qrFx4/NoP1i2FoZe3DUab8Yrs1p43ym034xDtnP5NZMpf1iHNyo
uVNVlfaLMU7zD7l1P9F+MVRCmy62Tqb9YtxR/ues1STaL8YDw46rpRNovxhb
5yRaT1am/WKsbjArko6n/WKoBWt8fq9A+8XIX1HZFjyO9ovxd0W2bYs87Rfj
Ie9pudMY2i9GoLKvd/0o2i9Gl0beS0s52i8B38FgSp0s7ZfA/oTjE/MRtF+C
1L5c7kUO7Zdg1527NYuH2f+vkOBRn0xH7RBjFwnm3br6zvY7Y54E/+l8Xdz0
lbFIgmar9f0Bg/T/sASlmf/KvBlgnCXBiJVF49d8Zlwswdp1n3plPzGukMC9
0Zeb95FxnQR/tIr0tD9k478UOJ4c
           "]]}, 
         {GrayLevel[0], PointSize[0.006944444444444445], Thickness[Large], 
          LineBox[CompressedData["
1:eJw1lnk81Pkfx4loUxJdUhKtpKIcbeV6hdxy5b5m3MYYM1PYShJhK0qkYyur
W+VolZBkHKXSIR1baWU72GQlOlZKv93fft7zzzye83q85vl9zfH9fmeHxLmH
j5KSklogLSX17/N/j36LiMW/DlWVp4K9gBfu+ReqaojH4I2p7khcHbESZC6k
TdzQSDwJszK85kZeJZ6GJzPdxyk1E8/ARYOiJUtbiDXQ8LTvlfl9Yk1YlI6f
/OIZ8RwMOX2849FNrA3eluQTHe+IdWA97FP/9jOxLpJlR/oHpdMYL8C9Ez3q
vsrEejApaoofN594ETrD1KrSLIkXw+6Fa52CL7EBBpc/zxm/ltgQ5fqPfzy7
l9gIKgc/Q3yB2BjrE8OKLzwhXoL+DCNdodwWxj/g75hym1oD4qUwTQ841R1B
vAxFWZt+ERUQL0f6iv02eb8Rm2CswSjdGWrpjE2RU9vxVRRJbAblRsVQ9zpi
c+woMzt3bFoGYwuk2Lxuq0sgBnTeVavw2xmnAD5aNW0GdpksX4GG4dMBOnWM
U1Zg+vYT51SW/8RySwzMk7p6roZxiiXuPLVq+GS/leVWSBuaH6b3kHGKFXxm
v5r7IGoby60x/bjjt1y57Sy3xrGXD5bJlTGWWgnXM39OcPbNYvlKPC5PCpRT
yGa5DSxfK8zurmecYoMOP+1GUeIOltti0ZfOpB69nSy3RW1p8Fm1XsZSdghR
2V+d4pHDcjvEZKx2SypnLGWPhOaQA/cn7mK5PczeHVzI4TOWcsCpz/m35a9S
7oDmR9/p12vkstwRb8QOyFrHOMURHjK3ugPuUO6E3iVFXx/OymO5EyzzmnIN
BIylnCGYOaP3VjXlzrg4ccpkkfRulq9C9I7iL+V2jFNWQeBhqqe7jXIXrDr4
9K3rFcpdcMEp48XQV8pdEZBv/XGFYf5/DFdk5BltGsdlnOIKo/s6cx5nMpa4
onbU3byBM4yl3KBnqj/Zv4X6brj4Xt/+1Svqu2FfQ1rE1GHqu+F5sGz2Y8U9
rO+OcuXB4jlqjOGOkJ8OXi7QZpzijvenb/OkFzKWuEOrUbfjmh71PTC0uKv0
1Xzqe6B+ZpFH0Dzqe6DmXEL7aC3qe4DrM5Lkr0r91QhdOf7E4XHUX40tD3wa
/EZRfzU8n1ZdSRqk41+NbX4/+89+Rvs9YSAr1Rx0h/Z74m7X0srvLtN+Twyc
/yJ5cIL6nrhyI+qlYQ71veAx5qVy5ibqe+EZ71BVQAz1vTC895jBytXU94L1
jpLIa+bU98bd8r5ZjrrU98YW50O26crU98a59Znth4fZ9y3xxtYf33zx76Lv
3wdrKyYPt9xmDB/82K8i31pJvxcftCrt8E04Sn0fyDk7Ft/Mor4v1MWGT6US
qe8LHWvJ7N1c6vuiMrSntNeZ+r54epi7mLeM+n6YsfGmvKwW9f1QZxfVskyJ
+n4o2rXnxoER9vuX+MEFKlyZPvp/+KOlVlLc+owx/JH5zLmy9zb9X/zRpc2L
FtRT3x9+tp4qsmepH4DQtmeO3ALqB+C48wOzgZ3UD8DC82t+Hp1G/QB4Nia7
FK+hfiB+HqNWUBBK/UBwfKPdHXyoHwiXvkSdsQ7UD4TZgLyMyzLqB6EzMmBp
6wLqB2H0dH6PqSb1g2B7Y4r9sDL1gxBq+8J1kxz1g/G36lRF2a/sfIJgHJ+m
cbfpHZ1vgjF2OEH5bjdjSTCq7kp1WLbT+YeDthu1Ej6djzQ4sOz/+6Oggd6P
g64xqtfWVDDmcBCmpVQWc5renwPx1xrzwULGhRzsc1tQeX4f+TjQuSR7MjmH
cScHJy2Gdx3JID8XHBnNJs+N5OfiqFmQnXwi+bkQthnpTI8hPxfNvMFvp0PI
z0WF2yHFMF/yc1Hzm/3Gx87k50LQlPe7kx35uehNW6AQYU3+EJif3znZ1Iz8
Idhw1Gvf5UXkD0HfX3teQof8Ibi2nvdhshb5Q7AgYkul7XTyhyCja3m2kQr5
Q1B7+pyfhgL5Q6B70uz7blnyhyKBp/fDo2/s+qERir7e+ROUPzJGKC5pHzO2
eceYEwq5fy+AvXS9CUW2jXnZ0i7GhaE4lKLdcPUpY0ko7n1ZXOLczrgzFGP1
60/tvEfXrzAIN6Q2fWwmfxhKrQs/N9eTPww9lsUjYyTkD8NRH0F0RQ35w3BC
N1Z06yz5w7ChwCJ2Ugn5w7B53EwTnSLyh+FOQcv9Y4XkD0fD45Lw8gLyh2NI
suNbwz7yhyN1xu5FHjnkD8fZ00HJc7eSPxxlA7INtzPJH45p3XGWf6SSPxzX
5dquaK8nfzhW1eyLWB9P/gi85kbFlwvJHwHDpQ5BM2PIHwFJd+bEUTzyRyBb
/8mL9HDyR2Bm95I/1EPJH4EDCYtvGQWTPwLyXMGnAX/yR+CqW/XWJ57kj0RJ
HEd81JX8kYiVSSxUdCB/JMxvXd/utJL8kdhw5E3DBOKUyP9/PvdA/kjkBt3v
8zYhfyTmHDjTtc6Y/JEw5g5f99EnfxSeyJRIXOeTPwqTdh/JN5lH/ijcFsqY
12mRPwod5VZfrNTJH4WU1O2TK6aTPwp7pSPnqaqRPwppXpxrvKnkj8LDrm+e
tkrkj4baI916TUXyR+Nm/y+CTgXyR4N70sd4jDz5o9HhW/OX5WjyR0Na2Pt4
UJr80Vhhv3m0cITdv0mikbr21+hX3xh3/sMvD1nt/0z3dzwkX7+aFvuesQYP
Y4cKIwc/MAYPO35VCbIcZMzhoetmQvpIL90v8qCndmhQpYtxIQ/3J/Roju4m
Pw/pSa3nVF+Sn4e0euPE97+TPwYrNicOnHpC/hg02vjWqbaTPwbV2XL9Dx+T
Pwbzxqg/K3hI/hh49OSKxt0nfwys3RW+z2sjfwx86+OsnFrJH4N8va+OyjfJ
z4cn/+abay3k5yNBdeSeczP5+VA/dvLa4Sby8+FmeGzbkQby8xGjqHRzYj35
+Vh9pqx07CXy8/HZzmH9oyry82G/YF7irGryx6KwiO/jUUH+WJR8MZimRfff
iEV1c1um4Cz5Y/H63YYD5mXkj8Uli44zD0+RPxauS2sqnE6SPxZHNVfNVaW8
MxY6yVnVb46TX4CMWQddAg+TX4Dokqg1Mw6SX4C8Er2TW4g5Apy3cBW07ye/
AEfmmXzl5JNfgErt3/dcyyG/AKuqvLtid5JfgApXg2XxWeSPQ+We68Kk7eSP
w7qWBzvHbyN/HH5r3Lv1yFbyxyEgVybhQzr542Bs65Wsmkr+OPTGGk5+TiyJ
g37W+yNLNpM/Dl9UO4rrN5BfiDt1gR/PJDJWEsL7jv3b9jV0PEIE63BMpsUz
XiSE1KxLCaeIIcSF9O7jmiLGrkLY9pjl5/HpeIVw5puXOhMLhbApty3aH0XH
L0TYa6upk8IZ5wixbk5QwW0O7RHiitke8/MhjM8KMf70+FVNQbRPCKMI5Q+p
foxbhZg+nJvd7EV7hehWV778yZ1xvxCc23zvIjfaL0Jx/HOxKbGSCLsUJ3CT
XGi/CDmGzo9GHGm/CB+mTHi7zon2i7D2jbFZlAPtF6HfWLb5uDXtF+GK9Pth
c0vaL8KB0rkXSy1ovwj7J3aobzGl/SLo5SYcdTGh/SLIfD96iuQH2i9CieFl
fYER7RfhjL/Z3Fpj2i9CYOO47JOGtF+EhX0WBoGLab8IZ2W6s3T0ab8Yoy7q
R37Uo/1i1P45324NsYYYDR1NOU91ab8Y6ckngj7Nof1itLvLr9uoSfvFOOAd
76Uwm/aLsfzOo718YqEYlRcPKrdq0H4xLEZt+nuIOEeMzbPP+G+cQfvF2Cm6
csVtKu0XI6OsLP71JNovxvNXrwPu/sP/A3g5mcs=
           "]]}}, {{}, {}}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 500.},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 300}, {500, 1700}},
       PlotRangeClipping->True,
       PlotRangePadding->{{0, 0}, {0, 0}},
       Ticks->{Automatic, Automatic}], 
      GraphicsBox[{{}, {{}, {}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVlXk01WsbhreQUqGI6qsMFU6IIkqDO/OUDNs8z2zT3ruik2hHSYNoUEoh
ndKAaJZT7QbnUIvTQB2NKkPhdEQiGr71rd7HWt/+x7rc7nXtx+99n596SIJr
+CgOh6MrweH87+fPT48Z5/8/uFilIGUskGO/H4Pn0V8lMvdrM1ZAt2THnsfa
poyV8E3ZxbFE3YbxFOiu/iZ7KdKV8XTMMfnxJM7Hl7EaUtfnKxkGhzLWQHNp
a/rNdB7j2eiWsDMNLBEw1sS5vQZ1FqOSGGuDg5tvE5NSGM+F8rKecbl5aYx1
sbVvOHWH/lbG83BsReQZ6fydjA2Q3TvU2J+8m/F85K11mXdvQS7jBVi+sKvd
Ov0gY0O4ZX3SmCQqYGwEkcz7wfUzixkvxGBpX3tq5HHGxriwel6bqeYpxibo
EUnlmUeUMV6E9Y8SymumVjJejPHXJFu1688zNoWKQ8fKDY8uMV6Cczb+MUML
rjJeiiPLFKNvfbzGeBkS1xg0tcveZLwcO9d9tQhzvc3YDM+sVP6VeljDGOgv
/DfRbGftTxYB1e4qi+3T77F8BQKyRhlOqmpg+QrsqtdqzVV5wHJzPJU780tk
30OWm8P2jO4+Xk8jyy0wMeto5t9yT1huAZHJG8fzTs0st4T7rfiSu2efsdwS
z7mhF6rmv2S5FbQTz7v2Rbew3Ap+bROv3Lz7muXWmDnta3Cd6VuWW+P7eO22
1VWtLLcBb9TfPsrW7Sy3Qa3SC9W+Vx0st0VDv/Q604z3LLfFyY8OuhMWdbHc
DttlCwJEn7pZbodTmvWyh69+YLk9BpR+96iwZPdGZA9PTNJr1f/Icgfk9Ng4
hs3sZbkDqm9opZ+W72O5Iw7W91XoS35iuSNOZx64FTfImLMSR20jBl596Gf5
SnAsb7+RbP/MciecXsIP83kxwHIn1Kcbd0Q2DrJ8Ff7KkJe/ePcLy1fhyoaa
lL9uDLHcGa+kbHPtzw//ZDjDkDel9fpvX9nfO+PO74Ma9/Z++8liZ+h4221U
En1nfResOV8cZhP9g/VdsG6K6/IdWhz87Lugu7676kgeY7ELTm5bs79aRuIn
c1xRG+iTW7uGMVxxaa5f35lXjEWuKMhwj3e2HcX6rjinMfnVsXLGHDd4329a
f2CSJOu7wXO/xEnVNYxFbmhqLK4zfMRY7Ibj6i4t9fpSrM9F77Pegs5tjMHF
1VtFCdteMxZxoX6lrO2MsTTrc1Gs0ZTqvo0xxx0FG+9+3tHMGO4YXeVV5qE1
mvXdsfysZOh1IWOxO2yVnaPqqxlzPJA+aqVL9igZ1vfA3PcBexRsGIs8MHPd
rMSAbYzFHqjffqA9o44xxxM9DgNJeTJjWN8TE7OTW49aMBZ5wlO1jHsuhbHY
E5s1uPObLzLmeEEwsPbknG7qe0HJ4JFKidpY1vdC9GdhWawbY7EXXm7uCtyy
mTHHG/uye9/8OM8Y3lB5aVLc+Zr63pg8fclbOzlZ1vfGuTKJYr3FjDk+CHcc
VDgewhg+uPSiv+z6dsYiH+RN13TIrKS+D7Lz69rknlDfFzq7X38NGKa+LwRO
gc6bZ45jfV9ovqjS2A7GYl/UamYpJQcz5vhBy+qQf/AmxvBDs9/wdesi6vvB
wa8z0+g69f0QzNMsNHxGfX/wqpUsHQeo749XjzOvZkwaz/r+sDnVVtKpy1js
j9z+ct+N1ow5ARiWMR9wCGSMANjPcPD2TKJ+AD54yNeV7KJ+ABzcRhdZHKd+
IGJO8ToMqqkfiGcpbvZr71M/EOm8dq5yG/UDMWiRaDT1C/WD0Ppb/fe08RN+
sloQHjYrHfZSZYwg6NlVHCiYzzgoCA2eVzO9LRiLgjDt4oVnWVzGRUH4eHNp
uVk4Y3EQvtxLkV29lnFLEFIHi2p0tjDmBGNLb8a+uH3kD0a/aJve0mPkD8Yu
O6mWQ5XkD8aDpU3yWTfIH4zthxyGJteTPxiflj06u+gp+YOxEnfdBtvJH4xo
99l/evaRPwS/33F96f2D/CGYXDykLzFOjvlD0Dl/KNRZmXFQCIzuFcraqzMW
heCEETezR4dxUQgUv+d7WxszFoegZorV9ZVg3BIC/a3T/xljz5gTioAJqbrr
3RirhULLvy7xmB/5QzHv6PqGjHDyh8J0ykOuZjz5QzHcPaE5PZH8oegPFCke
TSV/KBqNLnVtzCB/KO6VlElr7CJ/GDR+FD7LzCV/GOYkzDa+dJj8Yai8fOLD
mWPkD0NI0WqvmNPkD0Nozpbm/gryh6G4Mb7X8TL5w6DfKDdDeI38YZB7r7Ux
4jb5w/HnY/1DOnXkD0fNSe71Ww3kD4d8Vf5X3Ubyh6OyZkl2TDP5wyGQcijf
+JL84RjrbZnCe0v+cLwreS6j94784VAaHoqu7SZ/BCqH7p1c9pH8ETCTN/8z
q5/8EdBV6Oqq+kL+CKw9Xdl86xv5I5Cya37RKQl55o/ApDn+0xKkGYsjwO01
+Y/SWMYtEVCdxk8+OJ4xJxJOyQqqHAXGapFwHyw9ZqvIGJH4xTu9c7Uy46BI
ZNmGv02bylgUCbPd2xYmTid/JNovJcU5qZI/EjP/2eMyXoP8kUgv3JBZMZv8
UbDnmpQv0SJ/FJ6syjhY/gv5o3DYS3B7rC75o5Bpbnxx5TzyR8HcWlcz2YD8
Uag401m/ZwH5o6C+xUAt14j8UUgSFiSlGZM/Gkdbs7N9F5E/GiaLN99XMyV/
NCxTyvMfLiF/NDy6Zp0SLCN/NA4p57h8X07+aFQnGSn8CvJHYzhg0543K8gf
jU19RZJLLMjPw4yarHNpluTnIdNnBfeqFfl5aElWtn5jTX4e7m74WDRkQ34e
/r7o/VrSjvw8pHFPpX4nFvOgWDmmtdOe/Dy4pZgvq3MgfwwUzk/oPuhI/hg0
vF4a57+S/DEI+23qd0Un8sfgxgrVN9eIRTFYXngizHcV+WOw93JIXzexOAae
/tkVQmfyx6BUIeDfbmJOLFQlZgz4upA/FjHfVk0UEyMWUzQTYqe6kj8WyhlR
plHEolhEq29tKCUuioXKG53EDmJxLNbJzbWZ4kb+WFyTLSwyI+bE4cY7/zx/
YrU4yJSLg4XEiMPsis+hqcRBcZgg+S1/E7EoDpsTZew2EBfFoWv4Rn48sTgO
l5u6v3mN+OPgMO2dcMmIPx6TavRUlEf88Ti0eqz6e/r+iEe8j8zzCyPzx+N2
pInbryPzx2OX84l845H54/Gf+0+7u+n/J45HgffVtMPELfG4s/91uBUxJwHx
epOfdtDzUEvAUQkr6c3ESMDUnXqq04iDEvDPmLHyp+n5ihLQnfGy33Dk+SfA
qLFuzBU6H+IE+BWZbDImbknAfWnVVWfpfHH4OP3X7gMaxAp8jLmkuy5n5Dzy
UXtMXecLnVcDPl6MS3viRww+9J8o/1pN59uZD0n+EbXJxEF8FPN5kjy6D3w+
djU7zbpqS9+fD9mwWTukiXP46K00S3Kk+1XEx61Z70dl0/2r4CNkgKNdT/dT
zEd318WO0cT3+ZgWfIG3lO5zCx/XUsUP4ui+9/DxWCBjlG9O8wvwdaFl6R3a
DwoCGGgkW3TS/lAToOfjpm/jiA0EWNHxfeFcM5pfgPQveRWWtH+cBdj48IfQ
l/ZTkADPZy8qjV9K8wsgtKgVpdI+Ewmw1njg5XbadzkCtP3R9GbvYppfgCb7
nAMHaT9WCHCt2m/mYROaXwAZFb9t+bRP7wvAuZ376sBCml+AdbFPNHbT/u0R
wDMtI3arIc0vRENt24P1tK8VhJAo9guPmU/zC6E9/ZWUN+13AyEcKzqqLPRp
fiGaKpSP69D7wFmI49n7WhX0aH4hEpVXpPfp0PxCHKz848ijuTS/EHEqitaV
9L7JEUK5sCZhpzbNL4TQxeJdGL2fKoSYlHfjrakmzS+EYqncGrk58vgv8j4O
XA==
           "]]}, 
         {GrayLevel[0.5], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVlXk4lHsfxgelnIM2pHgdKYqSFnWocJcl5GDsWWcwmGGYmTZLalS2Tiql
RUqcSoj21WlBp10LLQdtlhZKUlEdUm/vdX7fruudf1wf99zP57l/z3MxJjTO
Q6DI4XAmKXA4//v576fLhvP/H2hdLnnUvtOc/X4wGh2b70z825XxUEha6oZ7
rA9mrAHV2JpDNlwhY2201Hb/ptcvY6yLg8VX7t2/kMhYHy2HP15crb6KsQHi
f7HK0SlKZzwOu+KuHB1uv56xEXo/ZKmdGbSZ8QRItJIrxm/dxtgE13U+JlQ+
28l4EvZ21Lw8nVbIeDKGdWl8+KK5j/EUbAx5crZ6cgnjqZgVGlZt3FTOeBqu
zhLpRe06wng6HhzvVVEsPs7YHMpNfZaJ2qcZz8BEqePAbZ/+ZDwTT25Z7zAc
X8n4V3Dbr53YuqmasQUeCx0L5sy7xNgS1wpTKj9YXmU8C2vn2pdbJ99gPBvK
I90r7IbcZjwHIafXW9ol1DK2wmZv84LEnLuMrTFFpud2s+E+YxtYL5GoCpzq
GQPdDcKVyq2N/7Ic2FOq2KBS9Jjlc/Fo0RXNcscmls+FYIHZgyO1zSyfh25H
cfAwcSvL52FhT8eB/FHPWW6L7k1fH/bcf8FyWxRebo5YU9DGcjukLlo7I2/Z
K5bb4arBh4SYhR0st4fBf47rD7HrZLk9+uQnXleNpvfUAR58V7MWzXcsd0C0
iVUqb/h7ls/HxesuZRZDPrB8PuzkiYYxP3ez3BGysiudHOUeljvii9Lh/oFf
GXOcYFZQpLDj/UeWf+f2axYtLZ9Y7oxk2396tG59Zrkz9AueN8mP/cPyBVhS
PHRswqZeli9A3T6nqmhRH8td8GSCaVrdrC8sd4HfGfN3s5X6Wf4bDg087Tj/
ImP5b3DYk1G9L/Ery11hW7/XQ8f4G8td4bV7R1LSLcYcNygfsTrkNYODf3M3
ZH8sM61ZwZjjjkz1TJeii4zhjp+eLDd8paTAvu+ODItjOftsGFe6Y59ZelnH
UsYcLnRFhuWNJYzBxal3D99l1VOfi7PjF5QZKymyPheLpG/L7xsz5nigQ3Zx
7FkXxvDA6cPm/J9iGMs9EFW74EhXOvU9cFJN3LG7gPqe0InfbLbgJPU9YcrZ
89DoGvU98dLBvCCygfqeiDRc04CX1PdClntj9fP31PdCxrqkAWu/UN8LLsUq
CiEDlFjfCwnFJrLNPzHmeGNg9LfJPkMYwxuqzqdn3x3OWO4NnZq3wdM1qe+N
xBzTmfla1PdBsK+ToeVI6vtA61PeICNiuQ9Mt7apraHvV/ogT1NfHEfX4/hi
eK9whaIG9X3RIchf5/nD74uTRhXLlg2lvi8+HHpkmqJOfT9IT0YVrFSlvh+U
YttVU2if3A841meWPZj6fjDIvH/hjDL1FyK88NxhxYHUX4hN2mnpMiXqL8QR
DUWrBgXqLwTX4WWJJ4f6/t//PxwY1fOVzt8fAzvzTa730/n7o7fS9EAjPY9K
f6yd7t1uTMwJwB9KEXln+qgfgPP6FY0ZxPIA5ESv0N1KXBmA6xNTUp8QcwJx
c4wxL4Suh0DobHh0SvOHPxAvAwyXfSWuDMS4DLNlWt+oH4TCL1u9F9IeBCHW
V6B7ifbKgzCvbbe9D51HZRAid53KVqHz4gTjlFvb+Ud0ngjGrRbP2zfpvOXB
8EzvGdNAz6MyGLyEkaH99Lw4Ifjcrllv8eP9C8FEXe6kzGHUD8FsUXNDxwjq
hyBevWIb/8f7x0OQUyXnhTZjfR7uJv31MF6HrscD13CnirYeYx4PZufdXlXr
0/V5eByQWxc/lnEBDy3erbYWRuTjQep+0J9jzLiJh5R4ecftieTnY3n2MKWi
yeTnQ1EcJF81lfx8lCaGHgozJz8fsa851k6/kp+PZz3ZhdNmkZ+PUNGTfj0r
8vMhMHqcpQ7y83HJ9XYWx5b8oWjerZPbbU/+UKS7aa1pdyR/KLxmVk1/uoD8
oRAPvpt435X8oRis2FZ2g0v+UEwIGmNS7UX+UDx9UuN22pf8oegd6VZT7k/+
MJQnz1LbE0T+MPhxm/W28cgfBp/O1MuZYeQPQ+ToQTeTIsgfhmm6qwJihOQP
g+s/13b5x5A/DA0Pp8+aH0f+MBzao5c2VUb+cIzIseRrLyF/OErnujV8WUb+
cHTYjfZqSiR/OLy4lxyrkskfjiY7H7PdcvKHw0zztTBxNfnDYa6q5uOZRv5w
nNi7pWRCJvkFSFxjsaHvd/ILEMY1HlaznvwCiALDRuRmk1+A3piLN0NzyC/A
3hUqWcbbyC+A7fIWxze55P+eJ3oWle8kvwAZJQdaRLvJHwGNe1mN4/4gfwSm
xXtueLiX/BEI/Lu1fcN+8kcgd0DtPpSSPwIHu99md5aRPwK9J45xcw+RPwLv
Hzhvw1HyR+Dqn8ZRz46TPxJHG7KNUk+RPxJ+uV4XxlSQPxL1Vs87K86SPxIH
3JIPcy+QPxItG3m+z6vIHwmZJO/N4r/IHwklfrSawhXyR2LnlM7czGvkj4Jl
+R9B6jXkj4JL9/j0jbfIH4U2D7tRQ2rJH4X2U2F/Zd4lfxRK+cWBCg/IH4X6
13U7ltaTPwqDDC4dbWsk//frObhu93lMfiGO3lxUUPWU/EK0mL/TN24hvxCe
N2xS1z0jvxAvkuvt37wgvxClbpz1zu3kF0I9IWvt3tfkF0LDuX/FlzfkF8Jp
hvsR9y7yiyAZ2ruv4D35Rag92zazs5v8IqQ07+NYfiK/CM2tZd4r/yG/COLy
30dX95FfhGy3B28UvpJfBLeBKho2nAHML4IoPy0+XpExJxrfHjgnHRzAWD8a
/m/TBrQoM0Y05iYvSxiuwpgXjfdVOzfb/MxYHo05z+ElVGNcEA19OWfVxiGM
K6Nxx2OD0fFh5I/G16MNefdGkD8Gu7Itut5pkj8GXYUT7FW1yR+Dj8ZDJo0d
Tf4YtFteFs/UJX8MPrV65jvokT8GIS3DR3rpkz8Gk5dnfw4yIH8MTh2PNROM
I78YnOv1r6KMyC/GhwjdGcIJ5BcjrWTtzEgT8ovxKmBULn8S+cUI3OR71W8y
+cVwOjj9lssU8ovhq/am03oa+b/379X2m5qTPxbj+iz3j5pJ/lhEzDa0VrQg
fyxmbFVJarMkfyxEou2bb8wmfywamxZPPGBF/lgoTVI7l25D/lgEbUyp5s8l
fyzWhXVmWNiSPw55Y/9zW9We/HHo5XdmPnEgfxxajpSMPOhI/jgU7tAYnuhM
/jjs3KRcPM+F/HFId2wSD3Ylfxz8Bhp13XAjfxzeq3weuo5Lfgn0dQx1nTwZ
D5Ugf1KVkZI33Y8EPmMfPK3wYTxFgqJuO6HEj+5PgsMH938y8GfsLsElne6I
ugC6XwmsT54VrAxiLJGgwjhIYBxC9y/B1gVlk+/wGG/83g+03L84lPZIMMO1
/KZWOOPDEsQsze06IaB9EqxZU3WcG8n4jgQmSlvKX0XRXgkW19capIgYd0nQ
ejJ8tGYM7ZfC6MqxQ0Vi2i9FsNacvBlxtF+KX3R/WV8lof1SzJylPtFFRvul
OH3nS9LdRbRfinl3Vot9l9B+KfY2ierql9J+KUzOPRzhF0/7pfga1x18L4H2
S1FqXazumkT7pbh6/bj6peW0X4qOE9uvWa6g/VJs7xk2t2wl7ZeCF+JppZtC
+6Uo+LQ8MXMV7ZeisHDM/O7VtF+GK127rwem0n4ZFPNbNS+m0X4Zltq46hpl
0H4Z4m/8+S01k/bLoFan7de6lvbLvv/9OrjOeh3tl0Frf0nqtizaL8P56ubN
netpvwwp1WPO2W6k/TKszkwL35pN+2UwifV2eL6J9svg82bLjqk5tF8GXunY
nKQtA/BfLB8QLg==
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVl3tYjHkfxscpuSwiFuuUWnIqRUW7qrsDUiSdz02Hqaap5lBLm0NDW2gt
JdQ6rLq8TkVbKNmkJGkpRYoVNTnkVFqUsYh338v3+8c7/8z1mXvu5/N8r7l+
v/k9U4OlLqL+AoFgTj+B4H/vX15/Wwn+/4WHj/ompTRo0OeaqNbaodRYq0us
ha5nDsdfFM8nHg2Ti32j9/9oTTwO+fLIKeWtjsQTccLCapB5hRuxDm56Ts7K
j/Mn1kXcozrTdMNQ4m9xVGTokvoskng6lhh5P7TeISeegdZNJq4WSauJZ6FB
v6LZSr6OeA6E04bc1SjfSGyIBQExXjOfJRMboQFpOQ51qcTGkNxz9LlinUY8
D2G/Luyzzcggno8Yp4jeH8SZxCZY5FC9YHfjPmJTnDT7cPmJLJvYDE5D1msd
cjlEvACljQWOqswjxAthcPxibu2yXGJz2NSbqv+U5xN/B/XtAlHutkLi7xHl
uMbi/bdniBfBTXzt4kaNs8QWCHEfbl1v+gexJRZVD5hrcraM2Ao2xsYjAq9U
EAPLROa7tVWVX1gJHPnupWGw/mXKrVFywayx9LcrlFsj02tw6PKlVym3wYEC
A2P11DrKbVBo6VGXN7aBclv0HFROaTl7g3Jb2N22aEqSN1JuB2Gs3f14uybK
7fC7X61lqNFtyhfj9zHJvdUmf1G+GJe3HU38x7mF8iUoiy39de5P9ylfAvsx
0/Ti69ooX4qUGz8Nah/TTvlSPBiQvKHb6QHl9jC+MMzEJv0h5fbYeePqWf17
jyhfhps9VW6PDTsoX4a6qoS+oi1PKHeA+5s25fWnTyl3gE+Wb3CA03PKHVEV
8t4mveQF5Y7YtvddS9r0LsqXw39m8rDkzJeUL0fPtNMSx0G8DlfAIU0WEl9O
rFwBA8e3FqofX1HuBK3+5iMnmrym3Al9AZpRV7qIBSvxYF9pi/LIG8pXIi3u
eNJz/x7KnTHIRXomV7v3C8MZ6w3SkyRXiJXOWLF1wo6W+LdfuMIZ2l1jLfL1
1dRfhXXfB/ntbyTGKrzTmxodsu4d9VeherupZfXUf6i/CsNnmk755RKxwAV/
hc9MSA56T30XoHCfzqYPxEoXjMo/EeSb/oH6LvD6qyThpe5H6rtCkVWsObmA
GK6Yk5Jy68bCPuq74trQ2WlvzxNXuGLzJrnz+kWfqO8G9fjD53zPEsMNn0ti
x2wz+Ex9N2z6XLTxq4PEFW7oKD3n2D1IgC99d+wY3PJxwHfEcEecpqi4RkKs
dEf38A8LbfcRV7jj+uYRdQk13PfAnmuOQ+LfcN8Dx9pP/2Q3sR/1PfAhaWP9
cxviCg9ofa23dHU4scATzztDp7zZSgxPhNgN7o3O5b4nVqqbB/fUcN8T34t2
aWc85r4Xnq480+El6E99L9zfH13iOp5Y6YUlto+a0o2IK7ygnl+fOXUJscAb
WXq33Ub6cN8bJWITb2kU972x/Xj/ldbrue+NliXRozK3cd8HZuFDNZR7ue+D
T67qSUOPct8H7eKv2pec4r4Pggf2WVif574vxFFVNwZf5r4vHtXePXa0lvu+
aLu0Is6gkfu+kFzcF3r4Dvf9UBef4zXhPvf9oF2dW7dXxX0/yBNN2w0fct8P
MeFlqx484r4/nm5qcCh/zH1/FOrOUtczK/3xSSuyaxJzhT8+DDSTnuLrCQJQ
YJuxbU879wMwv3jXiMZW7gdg/OA/Z8lauB+AG8XDx66+zf1ALNJPLe68yf1A
uB29k9xSx/1A5C/42LyshvuBsJDnZFhWcl+IqpZAZUUpsY4QDqG++s1n+HpC
dIYOyE0+SSwUIjgrZVrTYb7+v/n07A1XDxBnC3EqodBCspt9QjxunFdznn9v
lRDzHdutqpLYH4S9do17UhLYH4SEZ30FmnL2B2HnCu0+p3D2B6H8idlLf3/2
B0EjT6/S3JX9QZjifimhw579QVg0asLkCEv2B0FzaUJQ5Xz2ByPi06K2dzPY
H4xIS8Xj4ZPZH4yUBfLLg7XZH4zqD4l5HYPZH4wWdWBq/kdaT9nBGGW1Thj8
itdbMIydIx4M7CBWBeNR9crfs+7y+guByvNwpE49sU4IPLWHBP52iddzCJ50
Dbs1uoRYGILRSwOmp5zg9R2Ci5axbj3Z7A+B3Y7r3wXtZn8ISu7cvXed9wdV
CGZ/sum23MD+ULzVmvL6lIL9odiedvPkHN5fEIphpQ09J33ZH4q/5Xc1Fjqz
PxRhMa2GtXbsD8WBtsm1EnP2h8JvAYzGGbI/FJVlUqebuuwXwc1iQuy+sewX
offnvMK4r9gvQtLypKaAfuwXYZZJSL3PW95fRTg/sGGL+AVxtghRL542/Kzi
/VYEg6sTvSubiFUiZEni24Zd4/03DBfch2pIK4h1wmAhPBTRUcT7cRjUWbgc
l0csDMNLV8fob3LYH4bVrxo/397D/jBsFkvbT25jfxjefPaQ7N/E/jDYTh77
/lA8+8MxYku/nqoY9ofDqtde8TmU/eH40ai60dWX/eFocU5IrlzF/nDsbj13
2NGe/eF4GaQ06bZkfzjWKO9FnzRlfziMU99FpsxhfwSc/vPTwgQ99kfArNd4
6tZv2B8BD8XAoadHsj8Cp6cu7VRrsj8CDl7fdHoK2B+BxW5PQo508/9lBE6Y
fF7Y2EqsikBqauF90+vEAjHCiqYfvV5GrCPG1d1J5gdOEkOMNcU1M3IOEAvF
2Ko7qOruL/z//O/3e/K3L9tAnC3Gg9sNHl0x7P83P93uWR3IfjF0gncVNzqz
PxI3PKWPRtuwPxJX1400Sp3P/khEv5tiOH8a+yOh+vZn1fCx7P831zumM2kI
+yNhnmVe7v+BzhMVkdBNn/dDQxexKhJ7Dcrj4lR8/pBgQ02taFkjsY4EM3ST
DFZW83lEgueLc2clnyMWSmCfZn3t+QlipQR/zIhNS8wmzpbArtPZ3nYX+yUw
CszTMd3Cfgm+bph02m0d+6PwtFe6KUfG/iicqn01boKI/VH4vXzanxXe7I+C
4aeQ7nQn9kfBwrdn3nZb9kfha+cTxkUL2R8FQeCw0RqG7I/CznVlh5R67I9G
xIGvR3w7nv3R8FtaXN09nP3RuDP0Qv7DgeyPxm6f+ppP7/l8F43e/4w8hlfE
2dEQ+sReOvaEz3vRSFzfp7WglVgVjbXqTSee3yIWxCB2XdDzymvEOjE4GF/o
XV5JjBi4KPqVtp0jFsZAnLpmiV4h+2Nw12Lu8q3H2B+D0a+rxSOz2R+DU8LK
ZaWZ7I+BZ1bOrJQd7Jfi4IOqOvlm9kvh8TTg7PpE9kuh9rbZfXwN+6VoW75T
3CNlvxSqyweL/CPYL8X9Ox4zHwvZL8UdZdjGVG/2S6HZZtq63IX9MhTc82+a
7UisJUPRePvu6XZ8PzJ0j/HotbAgNpLhQlFVqsyM70+GcfrH1WVziZ1lGH/q
wOlpM/l+ZaiPXbzlqC6xTAbl8T03bSby/cvwp6vtIPUY4jQZPoteCKpG8Dwy
TMgrDTo+hLhAhs4rz9YfGcDzyWCSLS77o4/O/w0y7DQYr3qsJlbJ0HUlO1P/
NfHfMhiXbUtK7OTnBzlqdPet6Oog1pLj+4SMtbJ2Yh05rIeMS9W8R2wkh4f7
ruKiZn7ekGOz9Yx3q28QO8thLrjb5FhLLJSjYVfKPJMrxDI5/lEa359bSayU
o1WQZ2xZRpwmx9bUzL8DSoiz5Zh03a8k/TRxgRyjOqy8m/OJK+RouoXkObk8
vxx6+/zuZBzm+eWoOzT08dAcnl+OVbPPKHbt5/kVSAv8aG2QxfMrYCKJGtGc
wfMrENtQpL99B8+vwFcZzWbuP/P8CuQ5dEycvZnnV+BBxrviEUk8vwI59Yl/
9E/k+RVoOmA1aOBanl+Bg62XA7XX8PwK/IMCF6NYnl+BuT80j/aR8vwKnM/w
OZ8m4fkViOpMGnsr/KPVfwEZEKMx
           "]]}, 
         {RGBColor[1, 0, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjGkfx0eShErRCR3xYpXWIUn46ujQic7nmaamqekwM85rMLLrEGXI
lnVoW8kWG+X47haNtlhKhZwqibctpZIkqrVe77X3r+t655+5PvOd7/N5rnt+
9/1cYxaRuCZKhcPhzBrG4fzv/Z9X91LO/7+gfy4yyvjAbPa5Op4E1AtO5rsy
1oaTnehkxC5/xuPR3dBSdDSZz9gASVMOXxXx4hlPQnJdsNOe4nWMTbEyRrZD
OVrG2BxPCo8IOFFJjKcAz3Z67EjbzXga4irWq2XmpzCejmnKmpIB4SHGM+Gi
16M++1A641kY2auiek5wjLEVZr48bK27LYuxNepSD+RdvJTN+Guc/NeRU6P5
PzOeg4bykwO66WcZz0UE/haetixgPA9Lvh1tqNV0gfF82Kg2vzVsu8zYBrLq
8IEiz18ZL8BL8cFpWUbXGNvC2FoFurlKxguxPOR7W/PBUsZ2iFzInzB7bznj
RXjUe1Pxk88fjO1x/ruxu8LCKxgvxn4/j5/vnalivATHo4N4DRPvMV4K+8Lf
NCcPf8AY8Ao3cO/SePgPywHvyWeOXJvzmOXLILxpPPHk5qcsX4aCjUUCz8Z6
ljsgtShTxyy8keUOSO7Pm62/tYnljrD3NpMdf/SC5Y44HZL9osHuPyx3gkyy
IGhbbjPLneB3t2qklnELy53RPwEq6kdbWe4M5apqj3tGbSx3QZ+ZWubdzHaW
u2D5QytFwJQOlrtiT2lJ4IO8Tpa7orGg0CrX8g3LlwMW/543xZ/NvXw54trm
nDGc8JblK9AtLbLh1DCWr8Aepcat6bt7WL4Sau9+b+lZ+I7lKzEIceGdVsac
VbjC2dszXdHL8lX4U7Wn/fCc9yx3Q+Wo4euyqhjL3fDa1XlRJ7+P5e4Ina5V
MaOHsdwdUS0TRTqbP7DcA8Hj3UslHxnLPbAqIFhsLP7Ick/UjcycPPicsdwT
Fz43fupz7We5Fwzqyl00cxnDCyPunNJ35gyw73shNHnDjDNejJVeODtumYbf
D4w5q2HnWFIYV8cYq/Hp5d3V+uMHWX81uqwua+12YaxcjUXO52/3Shhz1sB9
l2/eiXTGWIPdr3vEZZeovwbCwPpVhZXUX4NL9acnnmukvjeMrhbajnpNfW8c
WjzYp9tDfW8sq/5znlkv9b1R7J5RmfSW+j5Q40zZtq+d+j6Ydbjk+YHn1PdB
u+UhnZc11PdBsoOW3r3r1PeF+tOIJfl51PdF5Df9kt8PUt8XZVNio0I2Ut8X
m/sTu0uCqO8H9dB457n21PdDi191Qd9E6vuh837HK5cBWn8/zNpuGRvymNbf
H0Y5VxbHX6T190fx56gZean0+/lDnO3CWRJDfX/UD6Sd8XOkfgBaP9bv1p9M
/QDw0q93ZPexeZAHYPuScR+MahgrA9DeuNDxSB7NTyBUtE6tmLeT5icQVuEG
T1VDqR+ITT1Bl67bUD8Q3J+cLU9oUz8IbQdlqyra2XwiCEUxxjJhOc1rEIKt
9mfsy2KsDILQyN3aUUbzHYz3G9VOHw2gfjDyQtqtj8ynfjDGbX/Agy71g/Go
pL3h8FvaPyEIyx0cllHDGCG49unv+a4FtJ9CoPpmwaQcBWNlCLSL2y6fl1A/
FJFbRHP43tQPxaJM9dqS+dQPRThvqqzUgPqhsM3IMxH+Rfs7DOYTw2efb2KM
MHho9Tmkl9N+D4PBu16pwVnGyjDUFap0zDtI/XBcydJ72LaR+uFYzFn5eG44
9cNRW9XXre1K/XDs5jRGbJ1NfS5MFIo3GwwYm3IRZPlBNjiMrsdFk1Zsv1oH
O5+4XKy+ft/wyCM6r7h45ZoYmH+DcRYXXR9aYx3zGSu5ENmeGxfwA+MmLnJe
JfNffUfnHw+5SUeVb6WMTXnYM0NtylouY/Bwf0uvvdCD/DxY/VaUUG1Pfh4m
/3nwh9NfkZ+Hjx4xLe1G5OdB/HZM3jEN8vOg2tBlfmWAncecCFTVvl9p+5qx
aQSmBzyUGjcw/vK0X+F8Tzv6LmNuBAZKVcXaJXSeR6BFzb9Kv5BxVgQCOv0U
smzGygj89a7q86J0xk0RcK22G+Wzl/x8WBmbTCuTkZ+PXR8duvaIyc/H4Rz5
hqxI8vOx0CPmvUYg+fnwWbvNvtyd/HxkehVOrnQgPx9r04J2m9iSn480t99y
ii3JH4lvTrTk/mhB/kjsPH4r9LYh+SORY5wVsEib/JFYYej7V7ca+SPR2bb1
Vusn9rzLikRdiralyXvGykhMKk45kd7BuCkSofm1qiub6fkYhYj6bal2DYxN
o/B9prl6dC1jRGGeubyiopIxNwrVdWs1hOX0vI3CutzjMxddJ38UjsrdXjhe
JX8Ubnpr2sgLyP8l36gte5NHfgGcF1jbK7LJL0DR1sY1vBPkF0A+8VAGP4P8
AnCam+emHSS/AK/Dm6u695FfgJi/Cw98s4v8AqzQvVlitYP8ArhfvMEdIyN/
NCyG5TjqbiR/NPb80qYDKfmjoV5jGZsWT/5ouMscNmnGkD8aXpb9T85Fkj8a
Es+XuyVc8kcjUc2n3S+E/NH4u7PiWWgA+YXQldwd+50P+YVYr5oxv8qL/ELc
qKwJtHEnvxBJG2/2F60gvxAZAcf0uS7kF0JPQ3OnhSP5hXh07cW14SC/EBKp
ouiTPfljMPCgNVfXjvwxeL5sS5DjAvLHYOVjz9rkeeSPwbmlnB87viZ/DOos
/ZcIZpM/Bqmnhsd9mEX+GGg+vO92cib5Y3D8bOymiOnkj8UIvnSxzTTyx8Jl
qrmO2RTyx8Ih/9ZeM3Pyx+LJ/CXhc03JHwune3a9/sbkj8WYj+MNFZPIHwsM
63pWb0T+WKwLWh1ia0h+ERzOTH2Zo09+Edw447un6pFfhGrvyitXxpNfhGAL
D1N/XfKLUDDyxytqOuQX4c7cLUU3tckvgtPrtMzDWuQX4VA557JYk/xxKHSz
KwwaS/44VNW8la4ZQ/44aOYWnvAbTf44pK2q8BRokD8OCTInUdIo8sfh9rR2
37Pq5I+DRbJuWeNI8sdBY4E/35iYE4/9GX1jhGrkj4deyaatRSPIH4/JN3hd
RsTceMwddtBwpyr546FYv/5I73Dyx+NRv9Q6kVgZD+imRLxXIX88pppluH9L
zEmAyebMDiNi0wR81Zz+y6/DyJ+AQ5N4z3nE3ASszW/cMY5YnoDbrU07bnHI
n4Arwgd53xIrE9Bs+ubWCuKmBITlW+pMIOYkwjj2UnfrZ/Z/wjQRZsfea5cS
IxHXNiwcfYqYm4gnvVqpycTyRPgVPyhbT5yViIFc0xIBsTIRXk0128OImxLR
5TkiOIiYI8a5M1WlQ6wthnb94wvhQ/cjRt0+3rZYYmsxIm1HOW0Zuj8x+Ik9
4xXEXmLYvFoqzR26XzEEnaaF5cRiMWYGeYpahu5fDB3N5IFRtB4KMT7e+dl6
ztB6iqGXVtscRlwghlPO0+jUofUVw+thxc0S4hoxLl0tNekdWm8xyq3NOr+i
36tbDMWH7YbRxBwJ+r5uKMkh1pag1uqRaSuxqQQWFytEM2k+rCV4O8nXZC0x
JOiRCP4oJvaSwCE72mAkzR9Xgle1DkpvYrEEy/eO2p9NLJeg6VpEytD8KiRQ
05AlutJ8Z0mQIklpO0ZcIEGQxcTKHmKlBJesTFTcaH/USJCUvvrDaeImCZYq
Hg+q0P7qlsDmQl42l5gjhahsgpWSWFuKrvHP8sxof5pKUaaxJT+J2FoKt3vX
hf8hhhSnRz7Tcab97iVFinzellxirhQXDvYFjqXzQSxFyYNWj3XE8i/Xu+zn
+4xYIYXiojvHlc6XLClSf5qZcI64QIqVZYIFenQeKaVoWnb5121f+L/fs9ox

           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxV13k41Qn7x/GTkiaKUaL0DGmlM8ZWieKj7JE1+3oc23Fwzsn0S8iZSNvU
UBoasj01aZvRopqKzER7pjxlkJ6kUT81MzQKaXv6Xd3377qe84/rdd3nPu/r
63uW73eGKNU3VkUgEAhHCQT/9/fjo99e8N8PuKqPD/xdzfDCR47D8DGtgtw9
Q/UfrYUNycEhpRusaG8yWq+sHX21ypOsh9Kg3JuTZ4STp2Pz8olPct0TyIaY
kFMysTJNQTbC3vUVzYXx68iz0KQ77kXctA3kOah0V137dMJm8jx0G5s9zzD/
hmwCFb+iJXdbd5GFKDR5nLyorZhsCtV0/We6p8rIZjDdZpHT3lRFNkdAnc4u
jXPfky2wzGNy4U73w2RLKPzCimqW1ZCt8PsjacsGuxPkBVhvNtrqfytPkRfi
S4P5b8RrzpIXQV/raNr2pnqyNVSDRNKMGz+TF6P+uWTZ+KxGsg26VtiZq6Vf
JttC3/mTzNbGa+QlGFf1/kyWuJm8FFctTYuaP79NtsPTm+YuFQH/IttDqCJO
7Tt6lwyc0rp8dZ9V20crAe2s+aEezzpo7gCzluo1mi33ae6AI4UThX5pXTRf
hunfTnwn1O2m+TJ8GiE+Ofb2I5ovx53fF7/Treyh+XKY3u2Mjs57QnNHdFWL
Rk5m99LcEdYbRdantj2juRNsBGtdOqv/pLkTFqx/lf3l3T6aO2P2hHCPNrXn
NHdG0ujld5tN/qa5Czaoj48u9R2guQt+CYwuX7T+Bc1dUXze9nr+kZc0d0WA
XZP77s5BmruhS/a60WrCMM3d4PbpbpuIpa9o7g61v1u/UZOO0NwdhQO3VU2L
X9N8Bd4GV974reENzVegudd4z5SetzT3wPhFMSFjx7ynuQfOO2h2JkwU4OPc
Ew9Ozz8cVERWeuKnfber10wfRfOVmHopyy11L1m5Ei4lx98PTlWhuRf2wzzn
WgFZ6YWNzXa2P44ZTXNvfPLI9vvVCjK8EfYgrPnPDrLSGy+bLpi8WTrmoxu8
MSmhXLGxhCzwwc7hswvTB8jwwcVux7s3nVRp/4Or1Ky+2klu8MERPeey4nay
wBc2LTFKA/2xtO+Ls3JR2dxAstIXVe4F969sJzf4Qnswu8XgAlngB42cipiV
z3jfDy8cvD7L0FajfT/89PRU1i0rcoMf2kfdqcvwJQv8UTzq0ayjSWT4Q31L
yrRiJe/7o7rOM11ewPv+yH5g35dSxvurMPdSzudXDvD+Kiw5YmpUe5T3V+HZ
J1VByTW8vwpfN/Rem8cWBOB/aud9ZsDPRwBulRwpy+PXUwYgd1ZvTGE57wcg
b+npBxm7eT8QJyRljqlbeD8Q7Te1JpVl8H4gqnINfBZKeT8QPa+E88WhvB+E
Duu+Ym833g/C1AM2ajMX8n4QHLOF7gIj3g/CrrOH6sdP4P1gbKjfGiIa4v9/
MPS8DJtnPeTzF4yG7EFvj2t8/oLxw6hH914f5/MXAuHqA86+Jbwfgi29tu2S
HN4PwTtVUXV4Eu+H4HLI2yX2frwfCpthzVczbHk/FA4qGkE6M3k/FPc04t/P
Uef9UBQ56AWLBvj9Fwat7ICM2/fICIOZIG5cViO/f8Oga/DEX3qU379h+PpJ
Zt7+b3k/HPM7/B4Jlbwfjs6E5M/VJLwfjjVpf4Ut8uf9cNjUvDh9wY73I3A3
f3R8lTHvR8D+q/7ZDyfzfgT82zQ0MwW8HwEd43/op/3Bn79IhMmX77vaxp+/
SGQG5y/MbCIrIzG3zlG57Th/fiOxb9g0fLCc96Pwfs7rx+e2kw2j8A/9gqn3
Mvj1ouAgTDfwlZCjPsyrxQ8Ngvn1o+BVFm+83JVcEQXZ5E26ZxdxLwqTfZTj
cuaSu6Lg+fbLiaW63I+G0MwEo8dxPxo7jRwXnB7m76NoiPOOJtX2kqOiMW7A
2vTN/38/RePny4WVW26QK6JRm6F3OLSe3BCNwFf5T2Q15K5oOO8X+F2u4u8/
ETLUfzAM3002FMFKtu/lF5u5L8KMkM+N7DK4L0JRVdzLjSncFyEvuCJJVcR9
EaQWPrbnVnFfhKrze9btd+O+CP5puxW/LOV+DERnKka0LLgfgx9XFYz5Zg73
Y3C26dpLG33uxyAjRTk0SYv7MZgiKzLWU+V+DOSCvlKnERXqx+D4w4LEkj5y
Vwwe5bW26PaQBWIMbbl+9kwH2VAMXZ2Zm7JukSGGUb+JVtwlcpQYN+5Y2MrO
k5ViTPPsyf7uOLlCjD2t6m8fVXNfjMuj/B6vKOe+GDdPVbrd2s39WPx6svuJ
7Gvux8J4z7FOYQ73YxFoFChTWcf9WKQd9L/RL+N+LJJNgm2H4rkfi6Xvp9yb
HMn9WDi5lhS4BnA/Fl6zQ08UeHI/DuZ6I6F9jtyPw0DHyqaoJdyPQ/RA44Me
S+7HYfHI9mlZ87kfB5foeJ85M7kfhy33Lcu7pnE/Ds4ePxgd1uZ+HNRCdi3Y
OJ778Ui9U5SdosL9eBg7Ly6LHaHfc8SjdURVIfmbHBUP3Z8XCrOe8u99POTm
0x+UdpMr4jHY8tDrSge5IR5/fdoe8r6F3PWh13pB4nCdrx8SYL/Tqm37RbJh
AlLLzTR6znE/Ac8v/avP6ST3E5A8NL/lxyPcT8C26uH7Rvu5n4DEqUL3cr4e
aUjArmVvbWZ9y/0EXLC9vqlmB/cT8YVXcYPjJu4nYv4bTf2ubO4nYrho65Wv
1nI/Ef5vduWYyLmfiKjuYEV7IvcT8XeuQcIOEfcT8XyTub57KPcTYX1MU0/d
n/sSBPZ1HrjlwX0JjG6YdZY4cV+C11kublI77ktgEZcrxyLuSxDaY7BPz4z7
EvR1TPns5TzuSzASLPvz7gzuS3DeddvUs9O4n4Sv5p04VDmJ+0kw0hTN3q7B
/STo/TXubYYq95NwLrH7dvI7vh5Mwvdf/JQmGiJXJKHR3HlVSD+5IQmZhqvL
/HvJXUnQsN4q9unm60sp9h5dv8P7HtlQitT0Szq+d8iQ4mh/dt6qm+QoKfZp
HNgacon7UihqbRKjL3Bfim/1jH0kZ7gvxc4ne3PSjnFfinn31+1SHuJ+MrJ3
q9/e/k/uJ8NIam1QWsr9ZAw2+bsf2c39ZOim57nU7eB+MhqEPY6/buJ+MoIj
LS27ldxPRu/VqaOH0rmfDF/bMR0aq7mfgsqr9yNnSrmfgo7VtWdsYrmfgtl/
TE/wi+B+CrwzRS3SQO6nwGyvS1GeN/dTcOeA46sKN+6nwOTiNc/zy7ifAs/l
z8a22XI/FT6WpQdfWHE/FR0O5hbaptxPxZ//nNxvNpf7qVhTXnHTy5D7qQg9
pXUjZSr3UyFX0XTboc39VJxw3Xr8B3Xup2L2rX8Lfx3DfRn8mlprH7ym+w8t
GVaMr18/4y+yoQyfWlrUi7vIZh+eXzflysEWMmRYO1ZD1tdI9pYhLqI/csFp
cpQMP2vqFGYeJMtkOL6gxLyxhO93ZHi3ruii+g5yvgyL4yL3+ivJFTJcnLOh
rUxBrpGhMftcfK+Y3CBDW93WIstA8i0Zlp2cNW+9G7lLBp36sK1Xbcn9MiTG
mLbqmJIFcgi/G+sSY8jHL8fL316kH9Pm45fDZZ5d73u+PzOTw9Mk0Mpn6B0d
vxwDLpI1Vb1kbzmm1L4OGLhHjpLjyOzhN47NZJkcHvJRhsUNZOWHnmZd7rPj
5Hw5LDakVdvvJ1fIsfDVfklhEblGjlni62ufbiE3yPFlraLPIZN8S44Rw8zN
36WQu+QwPTTzt4Eocr8cg1cSvVf6kQUK7NpiaH/IiaylgO+D/BY1a7KhAtqP
c8NiTchmCoxR7e/8ZTofvwILdW4az9Dk41fgjwn5g8pRfPwKbN4uXNo9QPe7
MgUWKMaWOT0mKxX47ptkr8Nt5HwF+tvb5drXyRUK7J/k3LG2jlyjwKG1Bxd0
/UhuUEAtorPdteqt/X8AfccpMA==
           "]]}, 
         {RGBColor[0, 1, 0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3k4lHsfxock7b2HFlpsnZSQE5Ukc5OiMJZsg5jBWAczUzppcRTRIkd7
UplKWqikzqlOqglRqbRKi5qKVNYWkTe873v1+/7x+sf1uW63z9zXPM9vntEP
ifcUqXI4HBMVDud/v3/+tHM5//+Dt3vlFjN4Rld/ogY48W7bf1y+d+Unj8Bb
3mb58c1c1tOCuMH16dGjXozH4O+O+eLisaGMx2HrN8dl2YI4xnro4d55tsV4
OWMDbBqpduitPInxRBhP1VldGJTKeBLsF63r+srfxHgyLCuM7TNOZzE2Rkbk
7n0WN3YwNsEqe/VJGzZlMzaDQcKNF/sG5zI2h9ztdHNN0SHGv2FM3TvJB498
xtMxQX9P+YWEE4wt0JvhU5k05TRjS7yY1M/abG4x4xl4ubXD8rn1X4xnIjJW
t233jguMZ2H1kOMWze4ljK1w5iDvw6A5Csaz0XaBW/Y1tZSxNfrrP0+q0bjO
eA72cm4PH3SzkrENxMErp0dW3mI8F/5L/5Xt2f8uY1us0hQdu3rtHmMuNLK8
KgYcfMAYsGgc+H2e/NFPTgYyJzcMeXOlhuV2WKEnaOr+dy3L7eCoWj1zvs9z
lttj9CjfBr3bdSy3hyTvvuSxqZLl82A3uF+J99rXLJ+H7Xt01nu8esNyByxb
fqtVtqCe5Q5ILa1Nc/mrgeXz4VL1vjPAuJHl83Fls8aHoXnvWb4AqdabL97U
+8jyBTDWOS5vO9DEckdkVvT5N4xrYbkjakUT0rSzW1nuhD+rdGs4A9l1n+yE
fT2/bRpRRvfBQqz73rJl4MpPLF8IrQztrbamn1m+CHENoicjXjBOXoQajVm6
reu/sNwZvJCEUnfjryx3xjmTfuuv3WDMcUHUpUvHHwo6WO4CE4O8hcafGXNc
Md843TNh9TeWu2Kca65E1seYw4PGANcLLSs7Wc7DMO1aq6utjDluMD1p+UuV
fxfL3WD14EWfylXGHHdo1KbUCMd+/8lwx87E7V7t8YyT3aHcUfnucgljhTvs
i8a/rVfpZn0P7DEdb7yZyxgeCE3Sffw8gXGyB6b166826AhjhQdw0u6w+x3q
e0LSIPzY2kp9T0QtyTo7ZdC/Wd8Tzqlmzs66jBWeqMwbcyTXjDFnMVpFX6b9
bsUYi+GS8Jj361zqL8bSW+Z1vTbUXwxJo3GmL/09xwuNrw++TZlGfS/YtZYY
PDOgvheGDvjn/clfqO8FsVF+olsfvX5vyIJNvEd8oNfvDQPlQHfbe7TfG7Pc
NasM/qL93nhvVKirvof6Pji1YcJN00Tq+6DLNUfrmR/1fTCoY9Rqx1nU98G6
/R59J7Wo74u1oxd32X+i988Xv3I6p8+4Q++fL3j1y4POHKP3zxeTuWeHv05h
zPHD3fnRwxqDqO+Hv43Uf9TPpr4fXjbHaHVpUd8P87ZNbZ7dTtcPH7PyNR4p
qhiDD07wDb78KF1vfDwRWFVuSGGs4ANOstBzwdT3x6TYU3tcbKjvj6z09odx
2tT3h/aTBQXTOtn1rPCH0HmXdc5jur4D8HtBWuA/5xgjADyH7qKsHXQ/BIBf
+HiGXgL1A2DUMLY3wof6gThx+fXHcCvqB+JwmepnnbHUD0Qudzt/bS+73xSB
eHZF8+muN3T/LYGdvqbQu5IxliCP+1j3UiHdr0ugbtH+oXQb9ZeAlyFSRCRS
PwjRJVfn5guoHwQb/o3Zq5yoH4RXCd9GKs2pH4SZo7/GPdCmfjA8e+438fpR
PxgFG22uu7fQeRKMQP32Q4+eMFYEw1Z9xprHpXS+CCAszm10O8VYTwCHrEmF
2MsYAqQg5/ihNMYCAW4a5cmXLqX/L0D5gXSjM3R+yQV4U9E3ypdHPgH+RIw4
xIaxUoC7X2avrzYmvxAFLsnaOdrkF6KwsSmzTIP8QgzLV1Nz6GLnpUCIVPtp
Qp33dJ4KsV8zf5RDLWO5EMvPdTZepvNVIcS4hycfpV1krBQi+IBTdc4JOn9D
UOJQkNGdw1gvBBN7FhrmbmGMEDi1qb9M/4P8IdhRNrKhWEr+EMx0r+OPDyN/
CJaXjd5W4UP+EJTH6lcVLCR/CHY9Kmm9ZUP+UFjVi5IMzckfCg9lhHaxIflD
UVsxo3HZaPKH4vbymjniweQPxSC7V6o7+9jnjTwU5vEq05q/MFaEQqPs4gvp
e8bKUBxtloUa1tHnUxhqxy7X77nPWC8MmTXPDDiVjBGGdU9UuWYljAVhWJO4
aWjKGcbJYbjg2OvyI5/8YXhT7nExex/5w5Byx3hYwDbyh2FR8fGVNhvIL0L9
Sr213CTyi5DoYccNXUZ+EYyu8Pl50eQXgTfA0E9VSH4RHrzr+b7al/wi9N4u
dtbkkV+Ekp22BWUO5Bdhgqb4xpY55A9HUc6yNMl08odDeD9oQswU8ofjbt32
20l65A9HiatsyLHR5A+HXqdjU+Mw8odjhIptk406+cNhLhxTfKSHPR8ow5Gq
ITmo30HPDxG4t7e1paiZsV4EPvvb7nKvZ4wIZB0THVCh5wtBBI62C3OvP6Tn
jQiUqEk3761iLI/A4agjZ9aUMVZEIMO1pS7+EvkjUPkwc5HkLPkjwf8+vXdN
AfkjYdX2SC/nMPkj0T1haf/rOeSPxIhtBind28kfiRR1+35zM8gfCYG/8uKW
VPJHwuTUyoSPq8kfifGmATL3BPJHoevT40WlseSPwoPzCbq24eSPwqPVJnal
QeSPQrLukKMevuSPwokkU52PbuSPQunKkhObncgfhZcj/N9Z2ZE/Cu0Rs3e2
zCZ/NAIN61yPTSd/NG7v6t8tnkr+aCQeLpFZTyR/NILXmh8YMp780fApS5/b
MJL80UCzeeL1YeSPRsKfmUUnB5A/Gn6G481yOOSPgeoo76zM7+z5Ui8GeaW6
Zzd+ZowY9Fhwezc1MRbEQDC4PHtrPT2PxmD8mrWL99cxlsegN/B46ekaxooY
eN1v/6OimrEyBi12XVPe3GDMEWPH+eazqqXkF4MzcTR38iXyi3HlfZrc4xz5
xRhwaqhp0knyi2FZPeyX0/nkF0PNW/17fS75xXh3Zsjf47PJL8aWea8XBmwj
fyyaxH6FOZvJH4tbRSvuv0wlfywuVFs7GyWRPxZJXrvqpL+TPxZKu6KQqxLy
x+JtMP/h8GjyxyKRVz0oPJT8sag+V2J+NZD8cfj0rCpMx4f8cXA4cd51hRv5
4yDbfS3lmRP545Cn2KLFtSd/HKTRVkOPzCF/HJYZFi0bOoP8cXAxO+aVaEb+
OHANIz6/MyJ/PPJEOd2++uSPR8fUNbitQ/54FO8w2eqgRf54vCo/s+nyUPLH
I+Z+1vpZA8gfjzD9pXfOcsgfDwfHibkW3ez7jDIeia+/zjv3hb7fSGBjp7Zk
ZgvjERLkf3Ea/M87xnoSWB4ZooSSsbkE55P26FY9ZQwJksu/PfF5yNhdgreW
/MNvbzMWSCDMvae5tIKxRILo2Ycr+yno+5YE77dpmuy8yDhLAuP0N35TzjKW
SzA5LRuKQsZFEvh77zHzy2eskKDNX9W6PZfxPQkGnh5+fmM27ZXA6+UCx1+3
M26XQPbcvq00g/ZLYbjjRGNIGu2XQrX8x0q1ZNovhX7PRmV+Iu2Xom93vApv
Ke2XYgFfPLZDTPulyFKL/5wTTvul+CpPWeEgoP1S1J6NyWvj034pSmf1xucs
pv3/9V37cNLJlfZL0dF6YWLnAtovhee4kdVHQfulGDL42wl/a9ovxf4EHePh
lrRfCmuPvNxyU9ovxZb0itJVRrRfBi+LO82W+rRfhtzzqnbtOrRfhoD2y5ML
tGi/DGluOs2iYbRfBuHAnA59Ddovg16mjo1ShfbLYD/niopdZxvbL8O9r02D
Kj8yTpbhFs/2uOdLxlky7My3e6C8z1gug+cDFcRcZ1wkA++Hz9POC4wVMjzt
+piRXtjG/Q8wj/l4
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          LineBox[CompressedData["
1:eJxVl3lUzH0bh6eEypaQqBR6E7JrkaWPaBfVlLRPTU17zUyWUIwW6SkiiTyW
tCB6yJKSbUryZF9CIkslWxslLej1Ht/7j3f+6Vzd5/pdv885ndOZ8T7hDn6y
HA5HT4bD+d/PP582E87/f5DY6DVKGmfIfi+P0wfUT6/castYCZGO/5xz3erG
eCT61wcsy6/3Y6yKddpuD3Lawxmr465ZmuW3wWsZa2EGP7oz3Daa8QQkr6xQ
/tESw1gbj7Ryjht3JjDWQf+vwVJx1XbGuvjPhCeiam4q4ymoqex1uWKZzlgP
mcmPxtbU7Gc8Hbt//eraPzST8Uxk3quqeDE8m/Es/HDwCdgac5TxbNSerbfm
hpxgPAfXHPoFKb84xXgucriLzXKbzzDWx9qkD+8Ur5xnbIC/Td7nTaorYmyI
hnNjvTbyLzE2woGSIx5Ci2uM5+G1zd49E2+VMjbG+MleEmXdcsbzYT9TJdlC
WsF4AYpW35i9ak8l44WwlET3+OTdYbwIRSVOMxb+us/YBPlNckb5tx4yBp5V
S+2qix7/YQmw20F2a13FE3ZfDP6E/e6F35+x+2IYSDM7v1jVsLspTDXVj/+8
/JLdTVEV2q76asVrdl+CM3fud2Vx3rL7EnRMl9v91L+O3ZciTb1y3OGX9ey+
FJFqckafPd6xuxmSbL+PjfvUyO5mWDpqo2TMlg/sbo7h3U2Fxlqf2N0cqXt2
DhJUfGZ3C+wqUclUFDezuwU26awfEj++ld0t8c9uC2laIPu7l1hCQSlPJc/0
C7tbYe30m1E6al/Z3Qry9ev8F3xlzLHG3NKEjVo329ndGpNmNo5Ryuhgdxuc
XTjfyNH/G7vb4PZFF5+FszrZfRkulK2P0OtkLFkG48Mh61IKv7O7LcoWmQ5q
COtid1uMOKahc3F8N7svh3HxxAP5dxlLlkO/3rYvWNzD7itQpFf8rnBYL7uv
gMax/q2uuYw5dtjZINU3nPPjD8MOBbUlzgYXGUvsEKavmOxg+PMPS+2glNNx
J/0fxhx7NLaVpqqo/2K+PVpOqOz+EsNYYo+CKHl3bh1jqT3Uyj+dDzPuY74D
Li9eY7k5iTEc8HL4YpPKJ4wlDhhj0THx1mAO/vgO4HVaJe6dypjDRVvb1Yy1
FozBxbWo5JRUHmMJFyl2dT4q68jnoi/gQte0JPIdwZt98NiAg+Q74ppVUuid
fPId4SN8vSmvhHxHTH8RMaiygnwnyN/O03d8SL4T6q4Y7hPVkO8Endh3jhZ1
5DvBpiy4vfsD+SuxSkGZc7KF/JVIHbXx1fp28lfC/EN7YOx38lfisFrv4Poe
8p1Rf23ihoKf5DvjY6/GMlmODPOdsW/xmohmGcZSZxhe5ajG9mPMWYXHzWV1
j+UYYxV4C80ntPQnfxVKL91f8GoA+auQI2vWfGog+S7YDFFKoDz5LpimqFb1
mljiguEndkXMUiDfBa2zU2+vJua4QubfDxkXieGK7Ix31xUVyXdF+vNpu8OI
pa6oEFUf+UjMcUNZtdmt6EHku0GSsURHbzD5bohMrvHoIJa6YfSSBu2nQ8h3
x7cezycPhpLvjqz20Tvqh5Hvjh6+n+mQ4eS7ozLjU7yNMvkeqF0zZcWhEeR7
4JFgcl2/UeR7YOyevtMbVMj3gKjXQkVWlXxPCO9EZmWMId8Tq849UzVRI98T
43SbYr+qk+8JY0Hh6nPjyPeC4O4lqUSLfC/0NMTIuE4g3wsJY0+3LdQm3wth
C0w09XTI5yFE3chYW5exFg8D5FyatafQ83gwPZvLm67HmMdDrbVNNqbT83lI
KCp67jqTcSYP9+w1SqJmU4+HCwry2blzGb/hgXe3Su2JAfW9IW2UxgyaR31v
2Nzo2GIxn/reCN1WODlxIfW9MW+ggsUDE+p7w9rCxFLdlPre0OEbFocupb43
VOUuK5WbU98bajff62haUd8H51ukndE21PfBgn9LUt/YUt8HM1w7vpnbUd8H
S7fH7SxwoL4Plt13+6DhRH0fPOE9CN/hTH0fiK+/+iDjSn0fqB2zfhnpTn0+
EqsN3b56Up8Pg6c/5oR5U58P7ZaZ5s186vORdnLMxTAB9flQ8V1V8CWA+nxU
TeDXrg2mPh/2Nr+Sf4ZSnw/93qOJcULq+0I4Y+rnwRHU98Ux5SN6+9ZQ3xfJ
11rztSOp7wtXP7/HZzZQ3xeqN5J+mURT3xf56p8T72+mvi8MK64O9oqhvi+6
shyLW+Oo74dF1oYpWxKo74fSpDLnEX9R3w+TxgkW5SZT3w/d9qkJhinU98OF
S181bu2ivh8qyj+kuqdR3w9Z2R5jWtOp74e4YWejt2RQXwCzey/PjjhAfQFi
pC05Rw9RX4CctNomoyPUF2CnfZ/z7WzqC1AeN3qtx1HqC5DmHdvQcpz6Aqz/
u3Xf5pPUF6BO80TzsFPU94fq9R35hwqo748hMS3b9c5R3x+axdWpJYXU94dk
Wdl3i2Lq+6Oq1z/3cQn1/XFL9+0MzyvU94f1vOLA99eo748D0WLF8DLqB+B9
ZKtVZzn1A3C8dNuQqJvUD4DR1iVtfZXUD0Dr9Rs3Y+5QPwB3U63s+9+nfgBW
R7ge3/qQ+gH4dOnKwf5V1A9AVz/5XbFPqR+IC8/mSfuqqR+IuLOPo9a/oH4g
Dowat+JrLfUDkflkqVXgG+oH4p5dbMqrOuoHYmpEwxruO+oHwvQZT7XiPfUD
MSXl41v9T9QPQrRDW3lOE/WDoP8z1U65lfpB6Cloz4v6Qv0gTFr3taihnfpB
kHrNVLfppH4QOnJHjS3oon4Q5A6f2KTcS/0gWDWeyBX/pH4wejYMjnnYR/1g
XPvRLJguK8v6wTjnUPtrmxxjXjDi46csfjuAsSQYkXu3/zBUYJwZjEZRo2by
IMbSYJwR2si+GsL4TTAsOItOTlNizAnBNPW9hhuVGWuFIKa7Y1LFSOqH4ER5
o8HQ0dQPgWJRVS93DPVDYBg/9dFeNeqH4MbMrtJqDeqHgPv90PXRWtQPAd97
Ryt3AvVDoekub7ldm/qhMHjoJH9Dh/qhsNRQKunWpX4otjTf+3fqVOqHorGg
ychtGvVDsfMWX5A4g/qhqHuoolg4i/qhGLHxcGntHOqHgas243U/A+qH4YXW
Bh1dI+qHYU5OR7GVMfXDEPXt0ZSABdQPQ59GSHfsIuqHYad+YO5BUD8Mw+pn
B543pX4YLnueGlq5lPrhyLv7KuGFOfXD4Zk8Z16TJfXD4XRUcX+3NfXDka3w
9HE/W+qHQ6EnYcugFdQPh9/b/HnD7akfjpse3tdHcKkfjo4zA4NGOFFfiKxb
102UnBkrCeH/tKdP0YXeR4jm5WX3+7kxnimEyibxg253ej8hrm4c+aTJk7Gd
EMPGtaXX8uh9hdh+7EzkbR/GQiF+tvcZXfCl9xfi2z2/u4cEjHcKEfVu39z4
ANojxKlLZ08GBDEuEMLlgqTSMoT2CSEcn62rE8b4gRBKJoajZIS0V4j2+Jdp
z0WM24S//9+HlJ+OoP0iWBpfcIxdQ/tFaLvk08RdR/tFeH8z2n7ietovQuG2
8/zWDbRfhJF2N/oXR9F+0e/vq4mjN22i/SIoaiwaZCqh/b+f9/xnj2wM7Rdh
Rk2NWWks7RehcVr546h42i9Cvb3iaIME2i/CwIh7w5u30X4RjAYf33rkL9ov
gty5+ZO5ybRfBA/5398HdtB+ETyNZ405nUL7xTCOSM9y2UX7xUiPjynl7Kb9
Yizf92N3ThrtFyO0LOmSWTrtF8O55sHxhr20X4xMTZslWzJovxgV+z/Wq/1N
+8Xw5b5IPX+A9ouxMdw51/oQ7Rfj6HzTwpeHab8Y7fb/GRpyhPaLITP7TWNX
Fu0XIyL8fGZsjiz+C3aJLh8=
           "]]}, 
         {RGBColor[0, 0, 1], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], AbsoluteThickness[1.6], 
          Dashing[{Small, Small}], LineBox[CompressedData["
1:eJxVl3tYjGkfxyfKsTcbStnYnJLEFptDS31VUltpSuc0pplqZqqZZoZCNg0t
HYjkEOs0IqUNKVpnI9Y6JofahEwH5NSGFHJ49732/s11vfNP16fvfJ/P/Kbn
vu+nEYIE/+geHA7HVo/D+d/Pf1/tzpz/f6HsyN1Uq2JH9vs+mLQvSTI7l8v4
G3zyddiWXcxjPBh1xu32XdPFjM2QuymnQ2+zgrEFtphMCBRaLWFsCesHmTVp
71IZj4SL3ISXtPEXxqOhlSU6nH2XydgK9nsDg5OG5TC2hlvvjklLzm9kbIMM
wYSkgvd5jG2hOqDxfVKzg/FEcCbG/J03ZQ9jO+RsetK+T7KPsT0SuYvyPg8o
YjwJVbcMr9U7lDCejI+/t746vbCU8Q94uMD1/HOzcsYO4F7Knu1kXMF4Chof
/LXLT3iC8VTIep1/ct3kDONpmJrWabgzT8N4OiYNC73YVV/J2BHaPncHGIf8
wfhHyByd3hQaX2Y8A3ettRme/a4xngmezHnUF9cqxk7olZN52FlbzdgZcQPj
l2ZrbjMG+hwevMP3wt1/WQX4294PLW6tZfks7Fo/7I9ou3ssn4WO97OMP227
z3IXOEc2pB4Y3cByF4gqez7aI9Ky3BXxx8NyR19vZLkrtM8beV+cmlnuhgr9
xBjrcy0sd8OQos6tC72esHw2+t7WzM1qesry2Tg6vnft55XPWO6OYhNXpdP4
Fyx3R3s/yeOSey9ZPgdnzbW2O9a2sXwO3O63nbEaQfe5B/5MOnA15RNjlQeG
ejfIE/96zXJPiI29+tscecNyT5hfGHGiMuMty3/COaezfFlEB8t/wprkhCnR
E9+x3AvbhtQ9evmRscoLTau0hfMqO1nujW2dDq4f07pY7g279a87fJ3fs9wH
ZQfyB9W8ZazyQeLio/UWez6wfC70E0cKr7p/ZPlcXOjyytjQwpjjCwPD1pnT
krtZ7osZ83lb83p/YjkXLZ2HnDatZQwuQrK2G43q+5m9n4uYgEs9PVIYa7gQ
jDm/1+wZY44fGiQpmWXeX1jfDznTd11zLmKs8gPfdO+azm7GGj8cv9J2apDH
V9b3R7Fs66iHaxnDH+ru2k71VcYqf6zYNdCy7p/k374/9OrNl9ubM+bMw4pV
lx9kTWSMedg3bcSRQbMYq+bBsC7t3Ecu9edB/Ko6I4FH/QDMHJremi+hfgBK
PPVfXVBSPwA+cY/ivy6lfgByZdtnpqVSPxCqpYZnktOoH4gp3dtDjFZTPxAv
wie9jU6nfiDufGe+vZCYE4Rt5yw4nfR+BMHI5a1CsYr6QTiUlrh0Kl1fE4Q4
xxaLKBX1g2HRssxjQAr1gxH3yaDOlz6vKhhGeoufOSZSPxidzwoXNcqpH4K8
SwqTgHjqh0DaltWsFlE/BHdn/fn+joD6IfiDW1LRFUH9UOxX1n9rEkr9UNyS
77bpnEf9ULgvnD7u3Fzqh2Jy3xuVGZ7UDwPHmLtf6Eb9MBRaxdaHOVM/DM6f
332/yJH6Ycg/M6S83IH64bjZa8OSofbUD0ePlv0vimypHw6uzcrPEdbUD0fw
jQG100ZTfz5GRwUETrOk/nw0tXbahVtQfz7K30Xoqc2oPx+X/3r6qKcJ9SPw
6EHLkdXG1I/Ag6kdUisj6kcgpbDGs7Ef9SOQWy9ZX9Gb+jzM2bfuTIE+9XkI
MzzoWaJHfR7ex5dv2vSZrQcND3tnSdK/dNH6WYCE57cubnxD62cBErtex857
RetnASpDZ292bKX+AoQd3ODn0Ux9PgZG2T1d1sDYko+j8o65t+/R9fhIdip9
6VXDmM/HpnFjH7ZW0/X5GJ6eNLzwOmM1Hxt9PPVWXyYfH/0CGvr/cpGxlo8i
4YTRag35IzFxjpvZ/dPkj8TMLour9ifIH4n99hFh+46RPxK8qoNzJpWRPxI7
mu9MqT9E/khkzJgcvPM38kciLM80IrmI/JGQugXclheQX4Ckbd7+y/PJL0Be
ZfPn/N3kF8CaKzrRsIP8Ahxv6LS2+5X8Atw41iTdmkd+AZqV/W1MN5NfgGmL
q08V5ZJfgIFBDu5+OeQXwrMmI+s/68gvxIrz1b0eriG/ELcdDhSczyS/EBe3
GAefSCe/EJt9jYwrV5FfiJmOQREP08gvRI+j1ll9V5JfiO6OlD9dVeSPQgtv
5oZ1y8kfhYqA+bavfiZ/FJLG+pWFLyN/FCwufz1at5T8UVjTI/1r1BLyR8El
z9BbbzH5o+D+IcujOJH8//jKH+8TLCJ/NCKfaufYLCR/NJRtez2/KMgfDWuZ
k8EjOfmjUZvuZXAjgfzR6LRP1LssI380psgeP6mSkj8aW3tJzZriyR+NrDEj
++kRc2LQ8dI3a3wc+WNgarxypzCW/DHQjxrbViAhfwy27Oe6dYjJH4NxHNNV
PsTqGDgddj9dKiJ/DKqWlV8YRqyNQZhbSsjmGPKLcDDpmXowsaUIg0/ZztgZ
TX4R4l9X8OyJ+SKkjR9kdTOK/CIIfp6st4hYLQInoM/MEcQaEc6tNeXXCskv
grS/y7FcYo4Yi82T34UQW4pRrJ+VbEUMMXjl3dyPAvKLMXyQUVAtsUqME6df
Dz9NrBYjycAh9QCxRozgoPSy7cRaMVr3ttzbTMyRwAUXLLcQW0owXdDz1a/E
kKDzuvvxQp1fgl2HK9xO6vwS2DhU1d7W+SUY3DRB2KHzS7DcbcKiobr5Jcj0
P1nmqps/FhcKH6xfpJs/Fh1fbz39TTd/LDZZ3ZM8JubHoi382vhRuu8/FmZf
ynNidN9/LFynF5iX6r7/WPCd89o/EWtj0WQQ3+hDf09OHHg1Ob0LiC3j8LK3
zSkO3Q+Igyrs+jg+MT8OtgkmDheIVXG4lOFTNJ7uL3UcBmcv7d6iu//iMPSj
ts2A7k9tHLamq1YtIebEo8Woz5s2Yst4nP7NW09M9zvicXdIvmGz7v6PR1WJ
tSiS1ocqHjvzeTebidXxiJJmfxDRetLEIyBtsWk7sTYetUvxdalu/UlRpykr
M6D1ainFun7pnZuJIcWMtNLgsbS++VL8MHbolZPEKiliPhd5cGk/UEtxPSS0
6TmxRoqVxzdmptP+of2Ha0YFjqH9hSODzV3Zp4vEljIMd7hpL1aSX4bq8NJG
Q9qf+DJ84PUaUEaskiH3u2U1IbSfqWUIClnl04P2O40Mv+7s2l2i2/9kuHRn
T25oEvkTUHnuYXsf2i8tE6A8WJJ9ihgJOHFTdEdK+ys/AUF2ojGWuv03ActX
VTbdIVYn4E6gRUBWMvkTYF33YSto/9YmoFfisfldxBw5mp/maQ7Rfv+NHMWv
tkeLU+jzyFGVcjlzNJ0PdnK8F6//tpEYcox8Enx4ZypjrhzVfgVPw+l84cvh
qRF5D13BWC6Hvv5blzpilRwmu759n0fnU44cUv2QgFA6v9RynDUSZA79hXGp
HD+evLW3nlgjB8c022A7nX/VcqzzKuDOX03zyrHscPOK4XRetstRecDseiMx
R4HaM8PjCjJofgVWfvg+S0znraUCL5wP2H2fRfMrcP/eLGEHMRRok/d78jud
11wFcg/Xn1pG/8/wFag+cvI+sml+BfrcuDrGgM57lQI/PxDJrxDnKOD1fEly
9nqaX4Hv3lrDn54XShXgePpUDNlA8yswcrfM5SFxtQJlKV4T8nXPGwoc7X49
UbSR5ldg70+2O2w30fxKzHLx3vCG+Bsldi02j6yg5xdLJVLNLYKXbKH5lRj5
d0vLdHregRJVVke+dhNzlSiZujni7FaaX4niVNdTK7bR/EpYPW03c9c9Pykx
0bBU23c7za/E5YDMhivEaiUarE3NM+n5q1SJg7P763vspPmVKJuzTd5711fn
/wL/P9jm
           "]]}, 
         {GrayLevel[0], PointSize[
           NCache[
            Rational[1, 180], 0.005555555555555556]], Thickness[Large], 
          LineBox[CompressedData["
1:eJxVWHd8jWcUvkbVKqlqjVKXGjFae9M8ISEImTJk3eRmrzuUouhVrdiNqprl
2rFjjxq39ihSexTXripib/q9X57zB//4nZz3nPc9z3nO+G7tBEtwUnGDwdCk
mMGg/i/6V+hVcDLsv6a/b/TiH5Bf4uZ4zzt7KJfG4Y59/poUvZeyBzrP7Dtn
2Yo8ypUx0nVwru+GXTuK5Ko4WSa1TuagpZRrIG9vr7ZjvPN53oiXh+4e2NVF
/Nehv2mU6+KL2rUeZYZto1wf97TTK9KOUPbE3r/X/zC04Dj9N8KaL7PnF9t6
knITHO+d4BHRfh3Pf4nCxeoBqyk3Q5ev/jm7/MVunm+Og6F/5C3ok0+5Bcx3
+2lHpvN8S1QrGVbhizUTKLfCx+N7/luy1STKrSnPpdwGo80xf3crIfi0xdGn
IVcXzpT3tEPdqW9zh7/cQrk9Utf+23/9x8t4fwc0cI7Jv3xrPeWO2KBFuzZS
8OqEM4WPekaO2k+5M7zvm/+M6VVA+SvEZO15s+bbeZS9sL7ts52JSwV/YO6p
Vvfa+e4rkh3Ayw7WI6OPnaLem/heot4bocHqRReo74Lc5t9oKXJT3wXNGi35
qMDnGvVd0d3+vOKtjeep7wotmcNWbjhHvQ9yPjl75GmI+PfBql+SNMhuUO8L
jyFtln0Vfod6X4x7nfT0Wnwh9d1Qr9SIKV3H3ae+G6xx7x+pFiT67jil6Nzg
AfXdcWNlvWsjZ/O8wQ86vYaJvR/jeUR9D+L/kPoe+FPRdYXY90TNdik+aRbx
3xMND3ns27LpMfW9EB61esd/s19Q3wslyoytZb77lHp/vFHhzH1OvT9WvIjW
MvaM+t7k2xPqe2P677/mVhwi9n3gF/iqav/TL6nvg946AenPEACFxrlP6c8R
gMZVp5wok/qK+kD4vLhz29X+TZGMQBiPWTQE5Xwg9ma1cmwE/bkCYR878dqD
Wq9pH4Rc57PmN1ZSRhBWKXgP078jCNvnVG96YYEBRfZBaLBz1OLwg29pHwyN
zI83nxP7YGTdfLnk/jGedwRjqhZtm2X05wrG6EfnT4/oL/GFoLXG3u524osQ
VFq47Y8q9RmPIwQdfj70nd8O4uMKQeMnUy9MzhF8Q5GtwvueeoRCsaViObEP
xescdSHPu0JxJaLKxr8MvM/QF93qDSg+ozTjQV/EvOmqISr57Et/zJerLxaV
VRaCXxg0skwoVSj4h0F1i0HlBL8wPPGM/mnnY3l/GHT4Wgh+4ViyoA8+iud5
hLO/Cd/CobKx9KjgFw5//QESf0RRfuqSX4hAYsdLAROmCp8iUE4PkP5cEehy
NPnkzXThXyRa7l6tdVyxj8TEUoWf+AXK/ZF8v8QfiVH9jm+9Wlnqqx82rVID
Ruz74cjSo9oEEr73w/nnw9O3fi33iyz5j0KOgmM340EU8u2pk+4MFfyjiBfr
0RWFOL1AWa+GaCSr8jvF9yCa9Sn8j4bPuEyNkZL/aOjt/UOp7xjyn/EhBvN8
Nzx8fULuj0GFANXR6N8Vw/jFPpb1KO+Pxegf1QHpN7FopieMsisWW86N1Tqg
2Mdh/uebX+U8EvziMC27kjaCqXfE4c7sTk1OzJD743By0K36zUvTn8GE5SvO
xA0M4HmjCWHa9D0TJ3iYMDdFDSSeN5k4P8S/CWo7+GA7ZacJnhXLrV80mO9x
mfDe/J87FOtN2W2CQq9NJ8qGeFycnKNFTNkYD70cr9Af4tHjN0f9naP4HlM8
6134EY9fnpSKm+ZPvTMe0/xVA5R8x7N/kT/ueHQxXS+oc174m4C7Q71ax27h
vDAmQBt+F93l2N+RwPqmP1MC8hTdVkt+RJb7E1BNbxByfwKGKfc9qHcnoK5K
13mJ38z5S39GM5J0B3K/GYOGLGzStQbPm8zQx+9lvt9hhr+2TZmu095pxtV9
07QJIfeb0bXG7Sttqgv+ZhTtdzIfE9G57On51s68z5iIhqpcPYXPiajspTYA
iT8RD7xVA6C9IxGRo9qd2pPFenImct5K/hOxUtHrM4k/kf1B6jcJj1U778b8
GJOgj6PPhX9JWHr/mLbBSf6ToDXHup7Dpb6SuP/wvc4kaMvP/vclHlcSen47
sqn/IsruJPZb6T/J7AeCfzLWlrctHyf8QDL09WAl69OUjCu3pqwpbxP8kxE4
YapWcXyPM/nd+eRKhr7+rBL8kznfpX5TWK/C/5R38UYK9zneZ0phf5D+lML9
UvKfQrylX6RAsaOgDv25U2CwjCi55ye5PxWew8dvzijD9xpTkX7Rpk14ykjF
QjVedgn+qaxv4X/qu/lwpqK/ar9e0q9T8by52rgk/6m4q9LbU+ovDV76giT3
p0Gn+23BPw2zY1WCOI9MadB2+f0Dt8t8ScPIINUhJP9pKPBRjJB5lwa9nYi9
Ow36OvWb3J+O5tMbaR2YemM6+p+upFFc5mk6tOItX7yx4J+OFG36NX7CeBzp
2K19jVy0Sfzp5K/En87+SHt3OtR0za4k+0MG+cf5b8zAiRk3ai7+R+7PgEXR
Yy7PmzLYn2U+ZxTta324LzkzoNg/sy/3A5fmr7HqKPTnzmB/kv0jE+1UOzdJ
/JnQ179qsg9lYqlJbfx8nymT+aK9IxNva79+MsDN9zkzoS2bQ+NbSPyZ2Fml
fsh78+X+TOyoMKvlvHVS/1nQlg9tgyc+xiwc17rv5CWyD2bxe4z2piziJfMn
C4Mj8lof7sj6cWZB/9rbL/nPIn8l/1m4Vrnmgetecn82NiZ8d7bzYLk/m/Ui
+GfDrNQRfI8pG4rt4zdL/WWjkb5gCv+yoZfDeNnXsqGR7d7ivRJ/Nqq7ooze
9yX/Fn6fCv4WBOsDT+K3YIwaR5Mlfgv0daWV5N/C72fqnRZgwaXtFWZJ/Ba0
91VfYHyv24JNn/14O2iT8N+Kh7VUxvkeDyu/Z2hvtLK/k0/NrFDdtGw3wccK
9XXTqQntA63s71KvVujj7jTPW60oP3nJ90E9pH6t0Ibrp7NjKedaodDOa017
pxU6/X0p51vhd3lI5ZXdZb5ZEaDSe5xygdhLvVmhf95H077QCr2cc4T/Np6n
7GFDLz1gyYcNs+apBYv8b2bjvJZ93cZ5Qz4Favb6giP1akPGjG80F5StNu6D
kj8b9HbZmva5NuZD+okNerubw3jybey/Ml9s6Kd9PY19TX8FNmjKfQ07CN9t
+Fr/gYH3F9rg8NsxrGY76g124kfZw46ooh9EGL8dbfQffIhvMztcKt0n2P9h
R8ivtScOkHkYaEewTjCpFzs6Fuv9wwcBxMtqh/45Nky+b+xoNW+dtlFSzrW/
+z3htENtyzUPkL/5dgx0z/pw4Tbhtx3x+g8Sr7z+B0gtFPQ=
           "]]}}, {{}, {}}},
       AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
       Axes->{True, True},
       AxesLabel->{None, None},
       AxesOrigin->{0, 0},
       DisplayFunction->Identity,
       Frame->{{False, False}, {False, False}},
       FrameLabel->{{None, None}, {None, None}},
       FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
       GridLines->{None, None},
       GridLinesStyle->Directive[
         GrayLevel[0.5, 0.4]],
       ImageSize->400,
       Method->{
        "OptimizePlotMarkers" -> True, "OptimizePlotMarkers" -> True, 
         "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& ), "CopiedValueFunction" -> ({
             Identity[
              Part[#, 1]], 
             Identity[
              Part[#, 2]]}& )}},
       PlotRange->{{0, 300}, {-0.5, 4}},
       PlotRangeClipping->True,
       PlotRangePadding->{{0, 0}, {0, 0}},
       Ticks->{Automatic, Automatic}]},
     {"", 
      TemplateBox[{
       StyleBox["\"DICE2016\"", FontFamily -> "Helvetica", FontSize -> 16, 
         GrayLevel[0], StripOnInput -> False],StyleBox[
        "\"DICE16+Geoffrey\"", FontFamily -> "Helvetica", FontSize -> 16, 
         GrayLevel[0], StripOnInput -> False],StyleBox[
        "\"DICE2013\"", FontFamily -> "Helvetica", FontSize -> 16, 
         GrayLevel[0], StripOnInput -> False],StyleBox[
        "\"DICE2013+Geoffrey\"", FontFamily -> "Helvetica", FontSize -> 16, 
         GrayLevel[0], StripOnInput -> False],StyleBox[
        "\"DICE2007\"", FontFamily -> "Helvetica", FontSize -> 16, 
         GrayLevel[0], StripOnInput -> False],StyleBox[
        "\"DICE2007+Geoffrey\"", FontFamily -> "Helvetica", FontSize -> 16, 
         GrayLevel[0], StripOnInput -> False],StyleBox[
        "\"FAIR          \"", FontFamily -> "Helvetica", FontSize -> 16, 
         GrayLevel[0], StripOnInput -> False],StyleBox[
        "\"FAIR+Geoffrey\"", FontFamily -> "Helvetica", FontSize -> 16, 
         GrayLevel[0], StripOnInput -> False],StyleBox[
        "\"NorESM2\"", FontFamily -> "Helvetica", FontSize -> 16, 
         GrayLevel[0], StripOnInput -> False]},
       "LineLegend",
       DisplayFunction->(StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    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.8, 0.5}}}], "Grid"]}, {
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 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.8, 0.5}}}], "Grid"]}, {
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Thickness[Large]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontFamily -> "Arial"}, Background -> Automatic, StripOnInput -> 
         False]& ),
       Editable->True,
       InterpretationFunction:>(RowBox[{"LineLegend", "[", 
          RowBox[{
            RowBox[{"{", 
              RowBox[{
                InterpretationBox[
                 ButtonBox[
                  TooltipBox[
                   GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                   StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                  Automatic, Method -> "Preemptive"], 
                 GrayLevel[0], Editable -> False, Selectable -> False], ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                ",", 
                InterpretationBox[
                 ButtonBox[
                  TooltipBox[
                   GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                   StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> False], 
                ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                ",", 
                InterpretationBox[
                 ButtonBox[
                  TooltipBox[
                   GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                   StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> False], 
                ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                ",", 
                InterpretationBox[
                 ButtonBox[
                  TooltipBox[
                   GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                   StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                  BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                  ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                  Automatic, Method -> "Preemptive"], 
                 RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
                ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                    False]], Appearance -> None, BaseStyle -> {}, 
                    BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                    ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0, 0, 1], Editable -> False, Selectable -> 
                    False], ",", 
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
                ",", 
                RowBox[{"Directive", "[", 
                  RowBox[{
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                    "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                    FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                    StyleBox[
                    RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                    ",", 
                    RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], 
              "}"}], ",", 
            RowBox[{"{", 
              
              RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7,
                 ",", #8, ",", #9}], "}"}], ",", 
            RowBox[{"LegendLayout", "\[Rule]", 
              RowBox[{"{", 
                RowBox[{"\"Row\"", ",", "5"}], "}"}]}]}], "]"}]& )], ""}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"],
  StripOnInput->False]], "Output",
 CellChangeTimes->{
  3.8103121761112113`*^9, {3.810312206155428*^9, 3.810312255420847*^9}, {
   3.8103123445932617`*^9, 3.8103123853917255`*^9}, {3.810312731045575*^9, 
   3.810312747462304*^9}, {3.8103647868822412`*^9, 3.8103648378985643`*^9}, 
   3.8103688594282694`*^9, 3.8103690000734105`*^9, 3.810371219423885*^9, 
   3.8109598690798445`*^9},
 CellLabel->
  "Out[943]=",ExpressionUUID->"5c022b62-39b2-45b3-b50b-cd213fae9be8"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ltemp", "=", 
  RowBox[{"LineLegend", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"Black", ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Dashed"}], "]"}], ",", "Red", ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Red", ",", "Dashed"}], "]"}], ",", "Green", ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Green", ",", "Dashed"}], "]"}], ",", "Blue", ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Blue", ",", "Dashed"}], "]"}], ",", 
      RowBox[{"Directive", "[", 
       RowBox[{"Black", ",", "Thick"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"Style", "[", 
       RowBox[{"\"\<DICE2016\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<DICE16+Geoffrey\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<DICE2013\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<DICE2013+Geoffrey\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<DICE2007\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<DICE2007+Geoffrey\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<FAIR          \>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<FAIR+Geoffrey\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], ",", 
      RowBox[{"Style", "[", 
       RowBox[{"\"\<NorESM2\>\"", ",", 
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}]}], "}"}],
     ",", 
    RowBox[{"LegendLayout", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"\"\<Row\>\"", ",", "5"}], "}"}]}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.810312445280466*^9, 3.8103127146990924`*^9}, {
  3.8103647458999*^9, 3.8103647798526506`*^9}},
 CellLabel->
  "In[363]:=",ExpressionUUID->"bd1ab19b-75a1-4af3-bf57-5acfdf351d98"],

Cell[BoxData[
 TemplateBox[{
  StyleBox["\"DICE2016\"", FontFamily -> "Helvetica", FontSize -> 16, 
    GrayLevel[0], StripOnInput -> False],StyleBox[
   "\"DICE16+Geoffrey\"", FontFamily -> "Helvetica", FontSize -> 16, 
    GrayLevel[0], StripOnInput -> False],StyleBox[
   "\"DICE2013\"", FontFamily -> "Helvetica", FontSize -> 16, 
    GrayLevel[0], StripOnInput -> False],StyleBox[
   "\"DICE2013+Geoffrey\"", FontFamily -> "Helvetica", FontSize -> 16, 
    GrayLevel[0], StripOnInput -> False],StyleBox[
   "\"DICE2007\"", FontFamily -> "Helvetica", FontSize -> 16, 
    GrayLevel[0], StripOnInput -> False],StyleBox[
   "\"DICE2007+Geoffrey\"", FontFamily -> "Helvetica", FontSize -> 16, 
    GrayLevel[0], StripOnInput -> False],StyleBox[
   "\"FAIR          \"", FontFamily -> "Helvetica", FontSize -> 16, 
    GrayLevel[0], StripOnInput -> False],StyleBox[
   "\"FAIR+Geoffrey\"", FontFamily -> "Helvetica", FontSize -> 16, 
    GrayLevel[0], StripOnInput -> False],StyleBox[
   "\"NorESM2\"", FontFamily -> "Helvetica", FontSize -> 16, 
    GrayLevel[0], StripOnInput -> False]},
  "LineLegend",
  DisplayFunction->(StyleBox[
    StyleBox[
     PaneBox[
      TagBox[
       GridBox[{{
          TagBox[
           GridBox[{{
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0]], {
                  LineBox[{{0, 10}, {40, 10}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[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], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0], 
                  Dashing[{Small, Small}]], {
                  LineBox[{{0, 10}, {40, 10}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0], 
                  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.8, 0.5}}}], "Grid"]}, {
          TagBox[
           GridBox[{{
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]], {
                  LineBox[{{0, 10}, {40, 10}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> 
               Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0], 
                  Dashing[{Small, Small}]], {
                  LineBox[{{0, 10}, {40, 10}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[1, 0, 0], 
                  Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 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.8, 0.5}}}], "Grid"]}, {
          TagBox[
           GridBox[{{
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 1, 0]], {
                  LineBox[{{0, 10}, {40, 10}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> 
               Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #5, 
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 1, 0], 
                  Dashing[{Small, Small}]], {
                  LineBox[{{0, 10}, {40, 10}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 1, 0], 
                  Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> 
               Automatic, 
               BaselinePosition -> (Scaled[0.1] -> Baseline)], #6}}, 
            GridBoxAlignment -> {
             "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> 
            False, GridBoxDividers -> {
             "Columns" -> {{False}}, "Rows" -> {{False}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
          TagBox[
           GridBox[{{
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]], {
                  LineBox[{{0, 10}, {40, 10}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> 
               Automatic, BaselinePosition -> (Scaled[0.1] -> Baseline)], #7, 
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1], 
                  Dashing[{Small, Small}]], {
                  LineBox[{{0, 10}, {40, 10}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  RGBColor[0, 0, 1], 
                  Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> 
               Automatic, 
               BaselinePosition -> (Scaled[0.1] -> Baseline)], #8}}, 
            GridBoxAlignment -> {
             "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> 
            False, GridBoxDividers -> {
             "Columns" -> {{False}}, "Rows" -> {{False}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}, {
          TagBox[
           GridBox[{{
              GraphicsBox[{{
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0], 
                  Thickness[Large]], {
                  LineBox[{{0, 10}, {40, 10}}]}}, {
                 Directive[
                  EdgeForm[
                   Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                  PointSize[0.5], 
                  AbsoluteThickness[1.6], 
                  GrayLevel[0], 
                  Thickness[Large]], {}}}, AspectRatio -> Full, 
               ImageSize -> {40, 10}, PlotRangePadding -> None, ImagePadding -> 
               Automatic, 
               BaselinePosition -> (Scaled[0.1] -> Baseline)], #9}}, 
            GridBoxAlignment -> {
             "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, AutoDelete -> 
            False, GridBoxDividers -> {
             "Columns" -> {{False}}, "Rows" -> {{False}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
        GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
        AutoDelete -> False, 
        GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
        GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
        GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], "Grid"], 
      Alignment -> Left, AppearanceElements -> None, 
      ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> "ResizeToFit"], 
     LineIndent -> 0, StripOnInput -> False], {FontFamily -> "Arial"}, 
    Background -> Automatic, StripOnInput -> False]& ),
  Editable->True,
  InterpretationFunction:>(RowBox[{"LineLegend", "[", 
     RowBox[{
       RowBox[{"{", 
         RowBox[{
           InterpretationBox[
            ButtonBox[
             TooltipBox[
              GraphicsBox[{{
                 GrayLevel[0], 
                 RectangleBox[{0, 0}]}, {
                 GrayLevel[0], 
                 RectangleBox[{1, -1}]}, {
                 GrayLevel[0], 
                 RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
               "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
               FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
               PlotRangePadding -> None, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              StyleBox[
               RowBox[{"GrayLevel", "[", "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 = GrayLevel[0]; 
                FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                MathLink`CallFrontEnd[
                  FrontEnd`AttachCell[Typeset`box$, 
                   FrontEndResource["GrayLevelColorValueSelector"], {
                   0, {Left, Bottom}}, {Left, Top}, 
                   "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
             Automatic, Method -> "Preemptive"], 
            GrayLevel[0], Editable -> False, Selectable -> False], ",", 
           RowBox[{"Directive", "[", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               RowBox[{"Dashing", "[", 
                 RowBox[{"{", 
                   RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
           ",", 
           InterpretationBox[
            ButtonBox[
             TooltipBox[
              GraphicsBox[{{
                 GrayLevel[0], 
                 RectangleBox[{0, 0}]}, {
                 GrayLevel[0], 
                 RectangleBox[{1, -1}]}, {
                 RGBColor[1, 0, 0], 
                 RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
               "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
               FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], FrameTicks -> 
               None, PlotRangePadding -> None, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              StyleBox[
               RowBox[{"RGBColor", "[", 
                 RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> False], ",", 
           RowBox[{"Directive", "[", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"1", ",", "0", ",", "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, 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, 0], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Dashing", "[", 
                 RowBox[{"{", 
                   RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
           ",", 
           InterpretationBox[
            ButtonBox[
             TooltipBox[
              GraphicsBox[{{
                 GrayLevel[0], 
                 RectangleBox[{0, 0}]}, {
                 GrayLevel[0], 
                 RectangleBox[{1, -1}]}, {
                 RGBColor[0, 1, 0], 
                 RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
               "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
               FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], FrameTicks -> 
               None, PlotRangePadding -> None, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              StyleBox[
               RowBox[{"RGBColor", "[", 
                 RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> False], ",", 
           RowBox[{"Directive", "[", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "1", ",", "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[0, 1, 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[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Dashing", "[", 
                 RowBox[{"{", 
                   RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
           ",", 
           InterpretationBox[
            ButtonBox[
             TooltipBox[
              GraphicsBox[{{
                 GrayLevel[0], 
                 RectangleBox[{0, 0}]}, {
                 GrayLevel[0], 
                 RectangleBox[{1, -1}]}, {
                 RGBColor[0, 0, 1], 
                 RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
               "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
               FrameStyle -> RGBColor[0., 0., 0.6666666666666666], FrameTicks -> 
               None, PlotRangePadding -> None, ImageSize -> 
               Dynamic[{
                 Automatic, 
                  1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                   Magnification])}]], 
              StyleBox[
               RowBox[{"RGBColor", "[", 
                 RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
               False]], Appearance -> None, BaseStyle -> {}, BaselinePosition -> 
             Baseline, DefaultBaseStyle -> {}, ButtonFunction :> 
             With[{Typeset`box$ = EvaluationBox[]}, 
               If[
                Not[
                 AbsoluteCurrentValue["Deployed"]], 
                SelectionMove[Typeset`box$, All, Expression]; 
                FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                FrontEnd`Private`$ColorSelectorInitialColor = 
                 RGBColor[0, 0, 1]; 
                FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                MathLink`CallFrontEnd[
                  FrontEnd`AttachCell[Typeset`box$, 
                   FrontEndResource["RGBColorValueSelector"], {
                   0, {Left, Bottom}}, {Left, Top}, 
                   "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
             Automatic, Method -> "Preemptive"], 
            RGBColor[0, 0, 1], Editable -> False, Selectable -> False], ",", 
           RowBox[{"Directive", "[", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"RGBColor", "[", 
                    RowBox[{"0", ",", "0", ",", "1"}], "]"}], NumberMarks -> 
                   False]], Appearance -> None, BaseStyle -> {}, 
                 BaselinePosition -> Baseline, DefaultBaseStyle -> {}, 
                 ButtonFunction :> With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"Dashing", "[", 
                 RowBox[{"{", 
                   RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "]"}], 
           ",", 
           RowBox[{"Directive", "[", 
             RowBox[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, DefaultBaseStyle -> 
                   "ColorSwatchGraphics", AspectRatio -> 1, Frame -> True, 
                   FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], 
                  StyleBox[
                   RowBox[{"GrayLevel", "[", "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 = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               RowBox[{"Thickness", "[", "Large", "]"}]}], "]"}]}], "}"}], 
       ",", 
       RowBox[{"{", 
         RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5, ",", #6, ",", #7, 
           ",", #8, ",", #9}], "}"}], ",", 
       RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
           RowBox[{"\"Row\"", ",", "5"}], "}"}]}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.8103126399997697`*^9, 3.8103126773276043`*^9}, 
   3.810312715329438*^9, {3.8103647743467984`*^9, 3.81036478019047*^9}},
 CellLabel->
  "Out[363]=",ExpressionUUID->"25609c14-db86-4e35-94f7-1f1672cc8825"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Fig1_NorESM2_v2.tiff\>\"", ",", "Fig1summary"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.8103127514721193`*^9, 3.810312789855453*^9}, {
  3.810364844109435*^9, 3.810364846831313*^9}, {3.8103688692195845`*^9, 
  3.8103688695044966`*^9}, {3.8103712241209764`*^9, 3.81037122476792*^9}},
 CellLabel->
  "In[613]:=",ExpressionUUID->"b12512fe-f9ea-455b-8322-195577722e79"],

Cell[BoxData["\<\"Fig1_NorESM2_v2.tiff\"\>"], "Output",
 CellChangeTimes->{3.810312791895325*^9, 3.8103648486005125`*^9, 
  3.8103688716100917`*^9, 3.810369033361808*^9, 3.810371226011794*^9},
 CellLabel->
  "Out[613]=",ExpressionUUID->"7b427148-a82b-4327-a770-7117488eb775"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.810230616714386*^9, 
  3.810230617203516*^9}},ExpressionUUID->"a5fed737-406b-4bba-a1eb-\
3b718e8814f3"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Summary", "=", 
  RowBox[{"Legended", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ListLinePlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"atmosnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "\"\<Atmosphere dGtC\>\""}]}], 
           "]"}], ",", 
          RowBox[{"ListLinePlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"uppernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"uppernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"uppernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "\"\<Upper dGtC\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ListLinePlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"lowernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"lowernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"lowernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "\"\<Lower dGtC\>\""}]}], "]"}], 
          ",", 
          RowBox[{"ListLinePlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"tempnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
            RowBox[{
            "PlotLabel", "\[Rule]", "\"\<Temperature d\[Degree]C\>\""}]}], 
           "]"}]}], "}"}]}], "}"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<DICE2016\>\"", ",", "\"\<DICE2013\>\"", ",", "\"\<BEAM\>\""}], 
         "}"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", "Below"}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7662917529851055`*^9, 3.7662920357765555`*^9}, {
  3.7662921490660553`*^9, 3.766292236021556*^9}, {3.7662922718430557`*^9, 
  3.7662923339830556`*^9}, {3.7662925059960556`*^9, 
  3.7662925478720555`*^9}},ExpressionUUID->"d59ebeae-9f97-4c24-94bd-\
84edf3007adc"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxN03tQVFUcB/CNFtgMCWgSkBUXZQglBIMaJmfgJ5KrIEgoLwPcCBgCCl0E
EXksT8kdYFmBEJQ99156TC4IG+wQSBG4aU42gIrYNPIQhEFBBkkIkbr1O390
Zu7c+dx7Hr/zvfc4xKaGxBsJBIKP+evf+38tWwOC/zeVBiQefOM88XmjBmTd
tiO+Zf7oDg04rxof2PxyGPpXDbgbLMR28qPoUQ1MrP+ALfg+Dr2ogcTpk+uK
hEloIYHS4YiquR9T0eYEnDPtQ3O0crQNgdsfLQZXtqajtxAQdHVtCl3IRL/F
9w9cHqnfm41+l4DIdcanieShgUDQxOPdfup8tD+BkiTX2erUQvRhAhJdW095
QDE6hgBcF5+Olp5BJxJwzzRkqCI/R8sJbPSQmm/LU6KzCXgTB13J5TJ0CQGn
fqfAhOUKtIrAi/0nvJ+5VKLrCAw9sX18KU5N8yRQZZxdo28+h24m8Nsj2VDZ
ShXNl0DY5MTdLdE16F4CJm3Hzi8MfEHzJiCbEz2fCj2PHiLgu3VpNnKyjuZP
QKcZkhYN1aJn+PdR1kPv36LzLRLodfSvvrGtGr1GQL1SE7vaResRMVC4pLRO
z6f1WjFwVFywy5BA9yNmwMa6e3lfggrtxMD82M0HlqPlaHcGFHfaXeO203ze
Y8DqdXW+Ip3m58dA88nxndfu0XyDGCgPE17VBZeiIxho/OFp6sqdEnQsA4Pf
DnswqfR7pTCQkity1IqK0BkMZL7S4qlvKkArGFBHG68VhtPvf5YB4d4OqwUT
BbqKgY5zRsEHi3PQDQxExTR6JM9nob9hoOWlzpXuZPq/6Ri4cqqv03KN/o9X
GGjrezWnJisN/TOfR1Z7/KT7cXQ/P3//tFst+RT9OwPD7YK3x9Z9gp5gwOyN
NqUynp6POQZGRabPUsJl6GW+nhCftqs+1EYsaMcTZDohtRkLJGLwYEw6PW8b
WJCEN4sPMTFoCQs2Z10qhbpo9HYWMoMGJXcVUWhPFrwyPPxcVR+ivVnoSewe
j7Q8gt7Hz2e7ZqZ9GIEOYUG1fvRUxWg4OoqF2nvV+ndC6flP4Mc3DNo9cQtF
H2Nh+Hnv5t1j1FkslAr1990DaP8iFmQuIxXaIupyfj+DM8r9F6lr+fUqL882
aKhZFkSmb9qPqKm1LLQsVTjPnabW8/t9kTtmH0Pdw4KF956073ZR32BBcCSv
03MD9W2+3nrXL5vmaH33+f6ah8pbBupp3m7aiw4XqBdYUBjUBY+OU6/y692c
Mk6SUptwQAJUrX1iagsOEjvkX1stHEZv5ADm7eoTr1E7ctD/IKx44AL1Dn58
8o6sUDm1FwfTkojpv6TUvhzYTEnlvZuoD/Djo/X5rU8PocM4EC2OX7r+C7WM
A4sy/Z8iQp3E15NjaZSWQX2Cg+DMPTtNA6lzOVCEfKY3bKUu5UBVZ/5V80oI
Ws2B12t//P3TQAj8A7mv8Hw=
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            LineBox[CompressedData["
1:eJxN0gtMU1cYB/BO2VYTEGx4jTmHnTDLNkB88HL4IUgQBLryKBAgHchDQFoe
gmEqRVABMyhQnQqj594iIfIYwhCYRREEGUMkyNQwwzAbQchEhg1jONnu/M6S
neTm5nfPyfed8z93c6xcEr+Gx+PFcc+/79fjmAZ4/x8qDci8q1tcBxzxe60G
FsoFIYdkPuhODdR7h2YJbknQwxrYOlRSNTsfiZ7SgLovPNbw+8/Reg2I29c5
OwYnoA0IuDzp3DfokoJeT0CxM73ux2k52pKAOCIoWpeZgRYSCK9P6ugQHkF/
TKClpm9U/zAHvYtA/aaVDR6FuWggINsSUefhdxztR2DOd33m7XeV6BACt5cu
2zcW56NjCFSf+mV6u3EBOonAgvDqsFZbiM4gwM/J+HbV6zT6GAF1f5vF0Zkz
6NMEkp19JqOritEqAtkFgjzDmLPoSwROPp+6dsvuS5ongdr5GU++oAzdTODZ
uPPOr3JVNF8Cn14JlqpOlKN7Cby6aCSZUFXQvAmc32c/HdFciX5AYEJYlSu6
r6b5E7AyyHcQhdL1c9z5xprSp/JoPz2BqdptFrz5EvQqgVRp698Xf6Ln4zNg
rUjzmPOneQgYCCuJ18AHNL+NDBQOxgts22netgyYMCUx7pfp/TgywA/tfnEj
LB3txoDY7Hzg9bZktDcDFx53xDY0xKEDufXNZqKxCfr/hDPQs9xpFBAXhI5l
QJmYtcemyxmdygBkBxcknxL1vHY2A7JxqeeLOz5oJbdetXYybkWCLmFAcS7k
aNcbkWg1A6N3uqUv7WToGgZ+s1Dv6vOPQ9czEO5i01XolIBuZaBoW6OI/yAJ
rWNA3+o1dLwyBT3AwKMCwVnzscPoUQYkn/gZ2b2jQE8wYKp60lrtmI7+lcvX
fVKtDMhAzzPgZjtSZrEpE73MAHHd62P/O12/hoWlYqP+4X5az5CFxu+Svrbc
I0ebs6DOTzRysqb9rVkwLe2+5yGi+7NjwTvCXdiddQi9g4Wttqf+2DCQiPZg
Ias8asSvkJ7XlwVrs/yZQYhHS1jY0f9sbZnxQXQU1+/mjXtuXjSvBBaK9teG
VCfEohUs8EyHDXx1NN9cFjqPqJ13V8agC1l4at5rb2YchS5lQSmXFN38OQJ9
gQVx1fDz9BUpmmWhXnmJ3xsahm5koSUteixnNgR9jQWXlLbOhOZgdA8LlncX
z/nX0PsfYmHKdfztb9o+Q49z+2vKLf5hVoyeZMFxyPZR9m7qp9x+rJbSNoqD
0IssyMrr5EOSQPRf3HzHh5GHvwhAv6WF0atJ7zn0H0CbaEEmbX7z4UfUVty8
SaCuvcEfvUULPeucxio9qe21QBrlJ9k5P7SLFha6dAfTaqn3cvUqdKP3U6kP
aKFlZfN1vSd1GFfviuaxg5BapgVFnm7Z0pA6matvrn8/Y3U/OksLPPvtd22W
qU9oYSpmpNfzPxdpQfmyunTxFXUF17/pT00e36/nHzItBno=
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxN1HtQVFUYAPAVSREcRwncTaJRJKZkZRgGUazgs3B6yLi5gQ9cwHhFQIKw
kbALIi+FZRfYBZQFds+9V42aHSYeLlSYmLIRmVgsDjDILI/ikWAhNVpA3Trf
H52ZO3d+95w55/u+c87dFpMqjbcTCASx/PPv+7+mNILg/63CCCf8zcvekUH0
+yUj3F1blGTbIqXuMILDH2vSV+sjqW8bYU+4OvSqazy1zQg9icZxv6Fk6kUj
TD+J2BVcdorankC9SiF7Rvkh9QYC4nSJ8KvMLGoRgdtmj+NZ13KoPQgYWp88
8vQ+Sy0mUHpyl2+apoA6gMCf3/fKLIJiaiDw3P7Zyg3a89RvEViqjXWMfFNF
HUZAu2Og0eqkoY4icHWseGpWUUGdSODjXwyTzqu11OkE/BpzHQP0Omolgbzu
y089/0o1dTHff7g52W+hhrqCgLXGM2Sq4yK1noCDm1uFT7ke60lgcu+CEXLq
qZsIxBjZTrPcgPUl8EKfZ6A+hFB/TaCwxMz8dpzBehOw1B1NgDMs9T0CmeNn
godNHNafwJBwa2WJC3qWgCllJs1DguMXCUxxp/tW1DjfCoEIzURwfh+u58BA
VV/GpmgR2pmBW+11QuF3GN+zDCykFje3pTVQezHwIHW9V7sQ8/Fl4EdFxZX5
fsx3LwOTPvYFjzS11CEMzM5b/3YNx/ocZCBpMCriuucF6qP8+Pjwz28sYX1j
GMjd3yrR2aqoUxjQryu0N1hwPzL5eC+sxCrbcL/yGAh4eG9g5EoldSkDX5ie
zvu9Afe3igF5yNqc4cByagMDpUybaFWAmrqRgfqGotdvvoznpYUBnwF3ec+h
EupOBg6G3Rjsjj5HbWEgU6bJv64qor7LgMtZp2xhM57PYQYSwNCZO4Hnd5Lv
H7H673PNo55noFBQHLptREn9mM9H1544d05BbcdCaGaGqDs2m3o9C9Zb3uGf
JeN92czCpcsBZvuy09RbWdjorRvuuvkR9Q4Wuu7s/rncDu3PQsjOnbm172ZS
B7GQmLPbad6E9/ENFlJ0FlWTC1rKgn1IXfIPajm1jI+nL809bj6DOoGFim+K
fj2WhE5jwdQbf1ISic7m45OOL1dL0IX8+gvRiqF9aA0LD2I+iHDzR19kQf6i
TSXzQrN8vqr28QYR2sRCfYGbyOaINrPwWPTJne3L6dRdvGuk1e8/RPeyEBc4
NtM8hrayIDji+dJyP3qUBVHL4OwBC3qar9/E2xJDB3qBhUanqbbFT9FLLAz+
FBQtaUCv4SDMNaq0qRy9kQORnCQ756O3cKD8ssxPIUd7cmBtUa+bSUD7cCDW
6jbLjqH3cNChJgrrAfSrHLSJXzsiDUKHctDpuKp7wBd9mIPBjtb7UdvRJzjw
HR1qn3NFJ/HxfXv/vXwHtJyDnk3vCNz/wv9xLj9fllh7bQ59ngNb06w4zobW
cjB9qHt0Y/8p+AfjN/y5
             "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, AxesOrigin -> {2007.3437500000002`, 0}, 
         PlotRange -> {{2015., 2505.}, {-305.8807523777683, 
          2518.426265713114}}, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2007.3437500000002`, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, Method -> {}, PlotLabel -> 
         FormBox["\"Atmosphere dGtC\"", TraditionalForm], 
         PlotRange -> {{2015., 2505.}, {-305.8807523777683, 
          2518.426265713114}}, PlotRangeClipping -> True, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxN03tQVFUYAPCVCBkilngNognIswBFIsYhk48gQoYWZqNdQERYHhKvXWRF
3i3B4kJUDDBCCuw59yLDFOgOOMUUTgQVj0zRyBgMdQSBaTDIDEFQu3W+Pzoz
d+787nfueXznO84KpTTNSCQSpQjPv+//WqkeRP9v9XoYtAhQOja5s+8depjY
fsOkZziAuV8Po/PS5yMXgpkvCb4oX/7O7yDzbT2Ex9EpNR/N/EAP+7zUMmPx
u8zGBPoXpup9puOYLQho6p65rDU/wmxPwP9Ru48yVMG8i0D99lHfHp80Zm8C
rfOb5xvfymAOEMZzDe6/X5fFDATIR9usD6/mMkcQkFxvpm+G5DHHELArLU5J
cc5nTiQgjfZvvGh5nDmDwG3Znp4i2xPMxwgUemRXUN8i5lIC0X0x69GKEuZq
AqqDmTF1XWXM9QRe76+u0BppmE8TUG6BMwn7KzCfBEyNHU82V3zAfI6Amb7I
zHKyEvNL4JzZTK52r5Z5iECMQT3i11aN+SbQcrfQ9pS9jvk6gSRdef6ujhrM
P4HsQ2PD0qAPmX8nsGJ1qbXbtA7Pg4BNmL1Jgw/6CYE148q5lTnsb0phVJ55
Wv4O2ooC5/1jwVxjLfMOCvNHfvat/RLnc6egeiFvm2oc1+NLQfbp2Izq2knm
QAo7cxo8ZVO4/lAKA28rLM7+hvuTUAgNyDl+4U4VcyyFlasRyWlLmA8FBZG2
rqnvEeYrW4jnTac7idEFFPzU4hPxnphfDQWrYrnzVBjmv5ZC5MN891cmy5mb
KISXJFztdMHzaqfQ671j1qsMz7NLiId3XHttBs+7l0L501PN+aGFzAMUPku3
nnW6UMD8A4WYqJzn7nlg/UxQ6DT63m3lLNbXNIXVLpdm2UvHmOeE/yNEgXyf
ivkPCvXSzz0eV2G9rlEgssQlhwGsZyMOukxWl/dWvMdszgEsfBK2u+8osx0H
a/kyqWdgOrMTB2q3Xw0mW/C+vMxBquRBqM96CrM/B4XjV+SdNugDHDQp7DSu
0QrmcA40Tvbv61uTmaUc6NJtCw0bScwJwnrOd381lIVO52Bq66LjyBDeXxUH
LQdSo1yGE5mLOTCkBQeNmaOrhLh5eneY7jDzxxxYpk4e7XZDtwj7ebKxx306
gZnjYNFi4y95O7qbA1V8DQTnoL8Q+pcFT5eEoAeF8V78RtK/Ez3OAbF241If
H2KeFOKyZ88ob6JvciByl1Q4foteFPajfGiz2oG+L8STIzRtNehNYb7g9dQb
uWgTHjwrJWJdDNqSB9GrniW6QLQDD7ENpSHjTmhXHqaW9t+CrejdPAxmjQzO
3otn3seD4U60uGcS/QYPK3f/HG35Gh3JQ3j1hFcHh5YJ4/3dFvVTDTqJh0W3
pVtWeehMHkYLflnKj0WreSC9V8aXg9Dlgh0vb2o90DoeMhzS3ALE6AYenBoN
m09X4+Afx0Dl9g==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            LineBox[CompressedData["
1:eJxN1HtMU1cYAPDCiIENDKIyWUhkSGABhQYq25DAx0MCBhCBISwtKI8NCLiK
BQuD2nWIpQMEBHkI9tzTRVsl8loQoYICPkYgEodQHBCzICEEcGFmMkW3u53v
j93k5uZ3z+N+5zvfuR+nfhObYS4QCNL4+9/nf1exFgT/v6q1oPx0z+B4lyd7
/6MW7jzKN0RVBDL38v2rZGG774czj2nBKa907nTyEeZn/Pjx58RuPoH5pRaE
GoeN8UUxswWBZ4FHJaqB48xbCcDhsDOlX2Qw7yLQa98u+1KYxezMu1dv0RmX
y7yXQGLOanDSb1JmXwJK29CrV+AUMxAQfv6rVc5QPvMhAplNEreiTDlzPIGV
V+1/joq+ZU4m0BHpsRrqomDOJFC3sK9mokXJnEeApM33/OWnYi4mIPWamp1f
+Z65jIDobb3DRudZ5moCswNnf17TnGNuJrA03CoDeTnmk8Antk+iXxf+wHyD
n39Ocr21phLzS6D6QJV+6fZ55iECXfnJ/kRQg/kmsFmo1bd41jJPEZjSKuQZ
WRcw/wSOrQ90O3TWMS/z/U0N1hHd9bgfBPxVVjsGpReZ3xFotqvsFPyBtuRg
KfKyYUdwA7MdB+7xNuGPM9COHJSKDH+XpaNdOcgpW9v5IgQt5MC8aKbD3RLt
x8Fk+esDDT04fygHfpYrQQtH0NEcyGO3BajmML5EDrLdxlOixOhUDorcBgoM
E7ieHA6exuXHv/FHF/Df1785paC4fiUHFf2X7t0zR2s4iA5+YFpIxnzVcSDM
EldO3MR8XubXt31NfmUrWs+BXUGH4WJaNXMXB+BvQTtO4H4YORjxMYiyd1Yx
3+fA4pJp+0RfBfMEB46iG+q+47i/TzkQq1+4iq00zAscSJdnIoa71MxrfD4X
q6yJBOtlgwOjd2plgE0ZszkF4e7ILabpUmZrCkoztWuQEevPnkJOe2C09y0V
sxOFsd81XtfGvmN2p2Ay3g2ffYn1LKIQnyvqLPRCB1Boy5teCXqF9R9OYfJW
42p2WwlzLAXptnnf+JJiZjE/3rin3yYTz89XfHxmKQ4OXxcxSym4XA2TJBUV
MhdRiInzTrO8huevlILI+uhy+fpp5ioKe6NOuN+MQTdSkDUrnj+6W8BMKaTP
nEzJDUG3UdhU970t+AXPdw+FEQvnpF1S9B0KSx3dtb0fokcpNN7uHlp/KGOe
pCDPfSg5r0LPU+j1+eCkIgS9RMHRtbPp8fvodQo/vcsjxmn8v2zy8XQv6M4Z
0Ft0oDfVDNafQdvqoM35PSdJEvojHYzFPcnP8EW76EB4eKz/oD3ak2/fl3CQ
buQxf6aD0PQIa485dLAOwpsm9zcPoyP59kMtD7quoxN0MNm6WBZYjz6mgxjz
ks1tSnQ2H59zU6NZDlrGu2J0fTkRrdDByFKYc3sYWq2DzRiNh89+dK0OSFSt
MsUlD/4BFnn4YQ==
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxN039Q02UYAPCvZkDe9AgFRWAMJBIiYAxxA5N3MJETE25hskE4+VWzJTSN
siY3L/EHIswQrsNbfL+D6+jy2AlRHHA0kVNCUGtCoynuunUClsbSYEjWA+/z
R9+73e5zz/O8z/O+7/cbUlAqL17OMEwh/Bb/lx5dE2H+/xjAhoEXM57NJi+5
BbznWN7e2pU0rwtcpfmE715LPdxE9F7GQ05bILUD4h1ZJkdhKPXjJkLmGaNR
GU69giX6FnP7I2Uk9WqWWLKC+vZviqZezxIi8JSfm42lDoV4yUOd8k4cdRRL
HL8HT/C+iadOYAkT2lkd+VECNYH8Rsk+nUhMvZMl7NP6DwofSKizoX9fQY3V
kESdD/XjJfUu0WvU70D+YPn9pJ+2UWtZEhsTsnvNZkKtY4n3dLvTYwF9AuYR
BCT/a5FSG1hSVjqV7Hs8hbqRJYaVmdZKWSp1C0tuFTfOtDwvo25jyZ8xiiuR
/eguiL9h/FJ6bDt1P8wj2yoPSEnD84a4pJLf+9wO6jGID2wk7gG0A/qlHhEL
c9HTME/IGeFpC9Y/hnz99qSajehnLFHp6+y8SuznxRHV+NHanZM4jw9HHI5P
iw9loAM5UrY6teJdM+4nnCMGdtfoaW90LEcE1iG/uHLcfyLkB4wpRDY8Hxms
L4m5a0lE74b1fZ7EG414njkciR0UXZQy6AKOkBy38Ogg3ocGfHAhu7kK76sc
+jUQbWTGVmo9RyzX1deCPPF+qzjCpPdYPfvw/s9DvT/vw3ktvh9fQP0PL11Q
BG6hboV5xG9Jkr7fTN0OfvWvtVH5+L71glvrRr97gO/jVeg3ET7i0gmpb4ET
R3hF7hjqX8DpCbmj96OonWB3v8+BjgjqhzDPuRvS7PP4fcyBl6mnLs2FUS83
Eaa0LUILd7xkngniRnFOdyi1n4noBbUXvh4KoRaYiEW8X3jYJaCOhPods6u8
wtDx4MSzM1d+41NvA2usNn9NEHU6rOf/c/0LfPye5RCf7ulMc2+gzoN4vMce
Z5s/dQn4SL/K9+x66jKwWRY4nIn+eLHfr+o0gj4OLsq/ukaEroH8tqLsvpfR
ny/ud4vkSRDaBM6rYLW+6IuQ/1V38vwq9LfgyWG/HE+0BfLvdin2LUMPQVyl
rph6uo76NnjOph79Gz0BjjB0ebjQk1BfsCK4+A+0C7ypd8I+iV6AfObU6won
2qOZ6HNPam7cQ3uD79iqo+3oDWAiZUrH0GHNhLEn3D7xIzoafPNR/cFhtBjy
38vkC66hUyA+Yy5quIzeBb5Ut3ekB/0mWFPdfbkTrQJXNXi9b0YfgPXm31aO
t6IPg18JznJz6ArIV97752Yj+hRY7m3Pq0N/Bvlx1zuazqwj/wFeeMuW
             "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.05]}}, AxesOrigin -> {2007.3437500000002`, 0}, 
         PlotRange -> {{2015., 2505.}, {0, 1497.4553529818172`}}, 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2007.3437500000002`, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, Method -> {}, PlotLabel -> 
         FormBox["\"Upper dGtC\"", TraditionalForm], 
         PlotRange -> {{2015., 2505.}, {0, 1497.4553529818172`}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}]}, {
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxN03lQVHUcAPAVGCKPWCGIQW4WREYRA4TU4BtILeIYLGcoCsttXCqzpBKB
OrowSMshEoe9YykKBgk8sNmUmCSyRglPBDciVKqJw0lmC9J+8f3+0W/mzZvP
fI/3fd83z1mZp0gzkkgkKez67754ij4Gyf+PhjlAZkhQPQxatJZZLcsxuTCH
7mHWfrS+8+8lWPcDs6p2YlTxInqM+VKBvEcnRf/JfD2uJzzYCm3CgeRoi/Wv
W23RLzGXKSusbziibZiPu+lfmXNBuzA3xH3qqnBHr+WgpLR5f6rEE72RxQdn
y71MvdDAAYiKXkffDehtLH9Oax10ygcdzVxsOV/psRG9m4PeulCXgpkAdCZz
ZJHJd1Ob0ftZv7iZbXq3IHQRc7ihT7r9DfRxlr/0UOASWQhaw7yl6fTIqlB0
AwdO97XPh3zfQmtZ/dDZ3NX5YegONr9pa43FjXB0Dwdjb/ZfNIrage7jQPP4
bGl1cQTtm4OZi6MZpY8j0Xc4iIjrvr06LYr2z0Hn0HRXmiEa/RvLf2RwsBRi
6XtwwE1rD2TExqOfsX08iLBYszwBbcZD/mBumN9XO9EWPDgV7uwvTEtE2/Hg
XffyUaXRHrQ7Dzbtu7rXhSWhvVl9v+npzUuT0Zt4kL5dkWP+DXkrDz21+h+b
VEr0Dh7e+6zEfsQ5BR3Pg9zVsXn4KlnJA+dZbX5emYrO5iHigxN+VQayioex
lPSKphNp6BIekvwHVyyYp6PLedCcm356t4pcy0OJ0PwgekUG+sxif59TR8it
rN+wWeqVWXIXD2qZzPOPhEy0jodJyZOsTZfJ/ez9jZ+1frsqCz3I5i83vtVy
gHyfh847X7bOXyVP8JD5/u9leou96Cke6tfe3JKVQDaweR3sbTqayEYC5K+s
ahwdJi8XwDsxxvapxbtoawF6uidBJyc7CewPaGv8/jDZUwCz2/Ydde1kXwEG
X3MTVCPkQAEkCruiNrNstFwAj2XJr+f5khUCBFwu/XlsN3mXAHCmwc9FTU5n
8xQ+kik6yfkCyNd5Lzt8l3xIgCSrAZ/Of8jHBFB78Vof1xx0JatfPyF/VU6u
Z/2NprqvZZMFATRXui6trCK3s304+1danSdfYPOf/GXip3vkXgEMTX3JhQvk
a2w/Nftqxxxz0bcEqI/8XHAIIetZfeYanU86eVIAm/l9Wc5l5CcCRPjHfD3Z
Rl5g+wyJOll+nWwqgkdKtPKFWbJUhHtRqi/2WOahbUWAssKbNX5kmQgB4wel
2jiylwhjenmL5iA5QIQB+XT/O43kYBGkE+4tz3Xk7SKo4yXZR/TkWBG4GOPQ
8efkJBYP+KvtQ2k+ei97nkfrQztncgGL2yaO128gF4ugG6g+ZxxMVotgZjiW
m6ggV4vQrgt0+USZD/8C+C7cJQ==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            LineBox[CompressedData["
1:eJxN0X1M1HUcB/ALDSwNL3WChIJ2IAgqiTCGAj/Q4HiQ5PlQ5OBAnoZhjIgn
iYABPoAoboEbD3eQaYMgccicxQWGFU+XmRmZ3hhjBxhSooAc1Rs/nz/6bb99
99r7+3nY77dZkRZ81EAkEsXhXTpfPnn1guj/TyVcIK8OCHvo8dJNsPpraUTF
E3LnUm6/dWfdHLkfrvR0jVn/CvXRwg3HSnz2GZJn4LZKE5l2JXl5A07/A4Je
TDaG70sXi/zXkU3htpM9y0ZNyFvggzGJ1n1vke3hvaELsmWWZGd4tGg0JXAL
WYArJ637fpCQ/WB9pN4/ays5FI63XquJ2kaOhkP1IYqc7eQkeNhjZizZgZwO
j5xQv+68i5wHu7wzaPP2bnIJLHmcemeXM7kS/mbDRHmCC/kinPFkcarLldwE
31RKqwQ38pdL+70RtmHCg9wJK4d3WMg9yd1L+3r8HvzIi9wPX24ZPJe5n3wP
Dlhwv2flzd8fPunnJJnyIU/AXr0WhRpf/h+w3/eLR277k/+Ba8bPOw8cIK9Q
CqIPg8SBf7xHXqMUCsS/dH43f5BsDjeEB+0xDCZbw6vqPjqzJoTsAK/Na8na
GEp2Rb8HiUPjVmHk/bB5+7ciu3ByIKxT6OftIsiypftFgpONjKyAvSsu7bSI
JKeif8eevnzxIXImbH7jV80CuwD3Vwxd1GoPk08hnwwyyu6KIl+AC1PNjn96
hFwHFx1r+CwpmnwZ9dMDd5c7yslX4Ws6bc5z9k1479Dm/MgYcq9SENqe9npd
Y2uQ/xnkU7YyljysFNSPjH4OlrNHkc/OnG5qZU/BbmM+hXr2HPZJ71g9/a6C
bKAS1BfuR704zV6lEgQbkzNjg+z1KkFk9u+z58ZxZEt4/sqllAD2NtS3txbm
lrJ3o96xezBazXaHTT1G9s2ypbj/wGcowj6eHAxrOpu75OwolVBQ/JpV/Tl2
Arzui3iTbvZxzK8yKPf6i52DPNa22tXiKLkY89SZr0oC2BXIU8RXN2Wxq1E/
1pzm3chWYf6h7WXtA+xmOP2EQ+4suwP12b89brVMIKtRfydMF+vL/hHz0rw9
6z9g30XuO+2fUcN+CPep+yfVbB36G1nYrdax/0Z9xu3aMeNEsh4OLQ7KdmIb
NgqC9MWpgcNscaNQsNH2lu4Tthl8xb536HO2pFEQfXW9q2SAvQN5VLvszads
F+SOMT3ppklkL7jLt6/FjR0AXw8ZuaVgh8N5m+xvlLJjsI9urvRsMzsF/csr
arx/Ymcg/zhXo33Gzoerxt+XmyWTy9AvJfxsjzv7PPLaWlvjuGThP6XT0DI=

             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxN1H9M1HUYB/AbnkRUjBCw8cPuRCzhJFYXHsWPL3gEXsABEh6CxI+QxigZ
ElYiO0iRMWPQ0BCQTjiUPxDnZXFc0IjoLChjwBphIBJLpg2yQkB+2Pvr8/zR
s3322WufH8+z57N95JmHErJtJBJJFoY4P4rizwTJ/6NatOFIc/Ht0Ec2iv4p
K6dviWyG9cMxlw0b6NyPsNAYf7jlCfIUPLXleFCAE/lfcX1s4vF1V7LUIEhk
Dr5pOzzIDnD106bQGzLyM7A+6PofQ17krbD/Y4fbFraTFXDc+MWFKB9yAOyo
6HX5YSdZgPMDH4RZ/MkauMK6KaH1RXIiXLfHoGxVktPEfNLwuK4A8tuwMG84
dktFLhDrvTT3ruer5GJYclZhzgsml8PP315bvB5KroaHnC1r8jByPVzrn96X
HU42ivWG9naZdpM7YJ3p8qBdBNkMF2aaZnJeI/fBxulZ2VAk91vc3zXycdge
8i9w0OYy324N9x9WDnjcVUWT78Cp5owTHTH8HvAp49hDdy15XezvuYWLQhzZ
7rwgUUU9GzTPdoLVyXb9Z+PJHnDlUk+4kEDeDrft3nh1mu0Pjza4eJTuJb8C
Nzpoy9wTyWq4fzXwxhV2LHzG2+qrfoOsg/P7dO8NszNh1wa37tQkch789QXj
2jS7CLbR1u/M3kfWw1eDI9W/sytha6T3Swd05Fo4xGKZH2Y3wTOdp3PUyeQ2
WG/7T/EVtgmuLV+Uue0nd8NLf9W9XMK2wkUDsYYJ9hC8ej86UZVCHoen20u9
qtgz4nnB584kew7e2vXgjE8qeQmW5tZoC9g2zYJEMeZ/s5P9JOw6/kXdCtsV
dp66/3nwAbIMLugM3FfC9oH36/KaethKeFIraV1hh8DlnY56VRo5Cm58v8ev
kJ0g3hexaayDnQr3Ov6mn2UfhEPeekcuf5OcD9sr7GXJ7A9hp/Tn1qvZx+HR
8ynffs+uEh3RoJKkk+vg9sBSqQe7GTbFzX63i90O36wSju1lfwl7fjXjc4jd
C3fHef5cyR6A7z3llXuBPQoHKOSr37AnYWvMrhMT7Fm4f8fRjcvsv8X8D5eL
nTPIq/Cnv3bdfYFt24L/osUS/zrbEb7nvthxkO0Gb2nL3lDG3gZ/ZLsce47t
B6/8aagxs1WwXbVmcIQdDls331qZY0fD89JYL/tMchI8cvKDMG92Oqwc1CQJ
7Fx4WNmWkcIuhCsaj2QVsUtg89GmlBp2BXzNxUbTzv4EvlR/0u9apvAfJDm1
LA==
             "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.05]}}, AxesOrigin -> {2007.3437500000002`, 0}, 
         PlotRange -> {{2015., 2505.}, {0, 262.1655600023903}}, 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2007.3437500000002`, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, Method -> {}, PlotLabel -> 
         FormBox["\"Lower dGtC\"", TraditionalForm], 
         PlotRange -> {{2015., 2505.}, {0, 262.1655600023903}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxN1Hswl1kYB3AhuXQRu1Z0wezWrrGtabDVpL5jSxtWpLBqNtvFLJpckkwr
04itkVyyUwi/c86b9lcoqcmtbGqZreyym2q7yUq08aOkn2us7Tx/7Jl5553P
P+c953m+z2u7JWLddl0dHZ2tE89/73crXgWd/68MFZqCzRufPa9c8c4nVbiY
+tPlfXU3pStUGL55Z11qebN0gwpzSzo7Xu15JN2qwr1tmJHs3Sbdr4L5w4ys
kfQOaX0GJdft/K5JXdLTGWpb7jj4Z/ZKWzKUxrUnWdn2SdtN+JJx22hKv7QD
g4/PTOcI3QFpFwZd58TV1YlD0mA4OxK8Oc5kVNqD4cypfYYe+WPS6xniD6b5
FuboyHt/wxD47eFtOZ2TpL9jeBtTs2DNYj3p6In9XjcbLTqsLx3PsCnS1vqz
J5Olf2DIXG7W4eE0RTqD4a9FD3IDUwylcxlOO+ZmN7UaSZ9k+PlZ/dq1i02k
zzLkz9Gu9UyfKl3BMC96LNSoc5r0NYaD9vVvNCtmSDcwLHEKStN4mUrfZRg1
vbvcdpjcyiCSXzU57p4p/WJivysB7YXXyf0T5xm40jOnlzzGYNAzHlMyRjbk
uHPC6pDfINmMo+5F7Ey3VvJsDr0Tv+t2VpLnc2ir46OdDpIdOexGj+u5eJKX
clzfPlCdY0BeyWF1cXeWporO683hfNykfUMoOZAjsnvW0mIz8haOxljzHX0R
dP8dHE8/b1TtLpsuHcvx/uBKx3EN1Ws/h9HDvJIWO3IKx+OQnfrhvlTfHzmS
79e55O+l+hdwFPZ8tWd7vrG0msPX9qOg1VXUrzKOypr+c9Z/Uj8vc2x+6l5q
8pT6Xc/xhxYz5rw0kG7iuPWLadz8AcrHAw7jrIxVrwYpP+0cQ8bO3a79lK8e
jqi8gEyVRld6kGODedPs0SlkXQH33mWuv7lSPqcKaINf1gylUH4tBBy2tn9S
cndc5ttGoKrg3O1b5ZR3e4H9+vUOVWVvpZ0E9i7TLwuop/lYLuDPLNU+L0ak
vxToD7FPiJpHXidgWuQeXrttWHqTwLWd7uYrL9C8hQjkzgrwDZlGjhQI8mj5
+tfEQem9AuqQ7AVrppGTBI6WJDiGq2l+0wSm1lqcuudDzhYos9F7z0ifLASs
2itiTa9qpYsFwvoMv9hxgHxJwK17a1GXF/mqwBmtoVeuNfmmwKP1c0+e73kj
3SywvujjY2l15BYB47ziytMq8nOBuCdd6sx4cp/Asfzr5R0byaMT3/e/URLg
SjZQUHyYLVPZkE0VlA5d0EmcTLZS0JBk8U9DF/2/PlTQsjBU43ebvFCB2Qfq
8ZfV5MUKYlapHQ4Ukt0UtBUc+FuTTvZScNRS8bb8nuyvIPXNvbbuEHKwgqYj
Sx4E+pHDFNRowx57ghyjwC0q72z5p+QEBRa7bNvSrcmHFGypvs9uGJGPKrhW
MRy9cfD1in8Bb34HtA==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            LineBox[CompressedData["
1:eJxN1H801lccB/DHk0llSr88o7UyOUW1Ujl+JO9DWEiPViynI7OTtkYTHb+n
OpXkmKGOYtlzv/drZfkRkoOsZWoKq4hZCE2E9etItJSzZ33uH7vn3PM9r3PP
/dx7P5/P+S4M+nrzTqVCofhcO//7vh3xGij+P9I0SDtRe/jwxkqnt87VoHMR
VkR33yBXaJB987rp9Lt3yI0a+I/n6LbO7CD3aHC27CPng173ySMaPM004a6r
+si6DI55OaHpToNkQ4atelnpvTsek1UMmRH+pZENz8hmDFXvnzI6/XyYvJTh
dVxNQbH5C7INw26PK0fHt42Rod2vUxy+9vg/ZA8G7peqjm8aJ29hMLPObxyc
PkEOYIhvP5Dsv1hBefiCYcv+V5qRDTrkcK2j/RZFhSjJ8Qy2JXu+6kidRE5k
OLnSxzOwRJecxvDZz4pqg5Z3yNkMOW48ZP+oHjmXAfqmi3Pe0ycXMXxXsra/
w2EKuYIhy0qd0Bowlfwrww67buc1h6aRGxnO3nY5YfCTAfkPBodzNaH3br1L
7mEwHovcFLTfkDzEYLXbJrG8WniEwdXFepphtvAEwzdGmzpqLIT1JTitc88Y
2CvizZQQc6WPnTwqzpsnoSGs/9hAuLiPhQTPS68+8XQQ910hoTKiVqf/b/E+
ewnH+xv025Imk9dr4+W6J91RiXx4SzBYWbDMXhL5+1SCd1Vi0UYLkd8gCeeD
C5fVFYh6hEjYnLzLNmWNqFekBPu4M6k+iW+ongckdJlFRaoKX5GTJbx8NMdu
rEf0xwkJSsOLUTGLRP/8oI1XFvxtSqTorzwJG+aHz31z7im5VEKo3fIPCo8N
kasldCyNsY+OFf38mwTH2LKFf6X3kG9L8K0tK/oyoY3cLiE35nv/WJNG8gMJ
FTmqlM4npeQnEor120b72ot/eeuXElJcLsfduHyNrORYHeGm7F1yi2zAkRKR
stPrx2byXI6AosLyR0Et5AUc1nax84yNWsmWHHMXbtcffi7WV3Psyapqr7ES
XqeN7zl6ZMWEiPcxh1nplOu+MU3kzRzP9KZsvRQkzt/OsWC9cRQ/30AO5lD0
Wl5zb64jh3GwsKENd1fVkmM5wibn1zXZVpMPcwwcsTAsSywhp3IErrKafzUz
m3yK48C+TaVu+WmUH84x4/SNl5OiC8kF2v2Og2rzRxXkcg6ViUPIA58a8hWO
2R6qXXWD18j1HOaZD/OW2tWTWzhCTDdefOp4k9zFkbHEZ/v98dvkAY7SORUh
nReaycMcFl0HHUbcW8ivOWZeTQ9Mq2wl68mwVyrj/KaKes+Q4a2+8KFq7Z9k
ExnNebNel6vvks1ljAY+61jg0U5eLiP1BdSwFP9PWxm8bnbti2FhZxnlnY9r
jc50kr1kJBvb6Pi43iP7ysj43f7UtmbhQBnKWbPCK727yLtlBAdU7e27JLxP
RrbXNBc7025yggy9h1nyWKhwkoz6QzP0PC8KZ2itfh7pNtzt9C+uFv9e
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxN03tQlUUYBvDDRTxxkQPiBSoEhAOSChh4LX2EIARxDAQsQQ+iBowoGKaD
CAqWjIIgo4KGnG/3wzBEmMHkeixDJSUUTUMGS4igvIDOGJApQSf3/aOd2dn5
zbyzs7vvs47rt4ZuNFQoFLH6+d/6aqRpofj/yNfianFYq3Vi45JXLtUiaixm
enJ3q3CdFo8GGoZ0de3CrVpUWsTvDKjqEu7W4tuI+rhhuVd4UIvzJ61fGjY+
FDaWkKE1/3ml3VPhCRLcykOO7o18JjxVQppmXHz6oiFhJwlN/l4pbvOfC8+U
kPDCped04EvhuXpvP/tT9MejwpCgK07kdtcU4l5BEsqOvq+bvsFQeJUEx4em
NV6GxsJrJSzQ5g6EyeOE4/T7da06+ihgvPA2CUO6QLNZ/UrhNAnhPjkdnYdN
hT+XcEuRuF6eZy6cLyH3zzU7HH6xED4hIWbq9VnVey2FSyWobNOjbxaohCsl
BEd2PrwVayVcJ6HQS5Xp520t3CThdEuPQaDxROFW/XkqdpW03ya3S1gZ7JHX
yG2EuyWgfMHjnOBJwo8k+F5vcLJsIw9KuGcTXvrAa7LwqAQTRdpsxU6ykuFu
hFWl2ymyNUNR8PbMbTryGwz+BUERZy6S1Qx+sePVzefIngxR0tSqXUXkhfr6
CNZukER+jyGm/KrHhHfIKxjefnCl22yUzreaYcqwi82MWvJ6BqPAvhllceTN
DBZNL9YpJ5I/ZSj3VWZMqaX772Eo/eOz3JBw8gGG/OoT7pOe0HsdYaj+a0qS
cSa5hKHvQ8ttwyryaYYae/u9C7+g969mSFW8mbfQkaxjiAj2f7qZU7+aGb6p
N577+zTyTYaAenvtaBH1t5Mh79Ta8SMW5F6G/QdVyzpHJgg/YShbUTin4y7l
5TmDhw/zG2qmPBlyJGcldvx4zUzYnCPj0gVPo27K32SO42rXyTOUZAeOjUqr
Qaulrwm7czhs+MTldjbl15vjfr7Dd55dlO/FHKrK3XkWS8mBHEfajDYmVZoI
h3KU9fzq3awmR3EMZ+Xvdyqj/7KJ49zrOQFjHuQkjv7jHxyb9z39r1SOucm3
LXoTyPs4jC6UtW2yJR/iyNd4DkXeMhIu4uDDqzLSD5M5h2LRyfktq8kVel/J
jl2hJtdwLGjcbffu34bCFznMHF2CfrtJbuG48ZVqzqkK8h19fbL6o5cHyfc5
QnWFA1u3kB9w3NE4bykOIz/j8GPqr10XkUc4NG2xXpedySYyFmv6E2eryCoZ
53t31r71j4GwnQxL98qR7MdkZxklpYdu2N4jz5aRs8M+q/YH8nwZqjN9KbhA
9pVRXZ2zprCKvFzGTIeQBs7JETJ6y6Njlh8ja2R0Xe0a23OAnCBjSb3rZY8M
coqMZc0ZyqAUcrqMaSbNppfiydkyAn1Sz+atIxfIsClQLP0y3AD/AoaDxg0=

             "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, AxesOrigin -> {2007.3437500000002`, 0}, 
         PlotRange -> {{2015., 2505.}, {-0.32916810780524763`, 
          5.688153599072909}}, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2007.3437500000002`, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, Method -> {}, PlotLabel -> 
         FormBox["\"Temperature d\[Degree]C\"", TraditionalForm], 
         PlotRange -> {{2015., 2505.}, {-0.32916810780524763`, 
          5.688153599072909}}, PlotRangeClipping -> True, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}]}}, AutoDelete -> 
     False, GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],FormBox[
    TemplateBox[{"\"DICE2016\"", "\"DICE2013\"", "\"BEAM\""}, "LineLegend", 
     DisplayFunction -> (FormBox[
       StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
           "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[{
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                  True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                  FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 0, 1]"], Appearance -> 
                None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                DefaultBaseStyle -> {}, ButtonFunction :> 
                With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                Automatic, Method -> "Preemptive"], 
               RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
              ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                  True, FrameStyle -> 
                  RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                  FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[1, 0.5, 0]"], 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], 
              ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                  True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                  PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                BaseStyle -> {}, BaselinePosition -> Baseline, 
                DefaultBaseStyle -> {}, ButtonFunction :> 
                With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                Automatic, Method -> "Preemptive"], 
               GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}],
           ",", 
          RowBox[{"{", 
            RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
          RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
     True], 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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{{3.7662917644721456`*^9, 3.7662918300270243`*^9}, {
   3.7662918684489875`*^9, 3.7662918774711266`*^9}, 3.7662919158765554`*^9, {
   3.7662919665590553`*^9, 3.7662920389415555`*^9}, 3.7662921513510556`*^9, {
   3.766292191289056*^9, 3.7662922285515556`*^9}, {3.766292318183056*^9, 
   3.7662923347915554`*^9}, 3.7662925504445553`*^9, 3.7667480303782787`*^9, 
   3.766748278603099*^9},ExpressionUUID->"e4d136c6-93de-40fb-be09-\
fc369d31bda0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<summary.pdf\>\"", ",", "Summary"}], "]"}]], "Input",
 CellChangeTimes->{{3.7662925598170557`*^9, 
  3.7662925702920556`*^9}},ExpressionUUID->"d05d3b59-d253-40c8-aa46-\
d0408e9b4b42"],

Cell[BoxData["\<\"summary.pdf\"\>"], "Output",
 CellChangeTimes->{
  3.7662925715445557`*^9},ExpressionUUID->"5b5d5f40-6ee4-4da6-b2f4-\
78fe990d7466"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Summary", "=", 
  RowBox[{"Legended", "[", 
   RowBox[{
    RowBox[{"Grid", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ListLinePlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"atmosnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "\"\<Atmosphere dGtC\>\""}]}], 
           "]"}], ",", 
          RowBox[{"ListLinePlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"uppernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"uppernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"uppernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "\"\<Upper dGtC\>\""}]}], "]"}]}],
          "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ListLinePlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"lowernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"lowernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"lowernorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "\"\<Lower dGtC\>\""}]}], "]"}], 
          ",", 
          RowBox[{"ListLinePlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"tempnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "2"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempnorm", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "100"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "4"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", "Full"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", "400"}], ",", 
            RowBox[{
            "PlotLabel", "\[Rule]", "\"\<Temperature d\[Degree]C\>\""}]}], 
           "]"}]}], "}"}]}], "}"}], ",", 
      RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
    RowBox[{"Placed", "[", 
     RowBox[{
      RowBox[{"LineLegend", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"Blue", ",", "Orange", ",", "Black"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "\"\<DICE2016\>\"", ",", "\"\<DICE2013\>\"", ",", "\"\<BEAM\>\""}], 
         "}"}], ",", 
        RowBox[{"LegendLayout", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", "Below"}],
      "]"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7662923456915555`*^9, 3.7662923478165555`*^9}, 
   3.7667312692284317`*^9},ExpressionUUID->"6eea0a5b-33e3-448f-ae70-\
a71f38323946"],

Cell[BoxData[
 TemplateBox[{TagBox[
    GridBox[{{
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxN03tQVFUcB/CNFtgMCWgSkBUXZQglBIMaJmfgJ5KrIEgoLwPcCBgCCl0E
EXksT8kdYFmBEJQ99156TC4IG+wQSBG4aU42gIrYNPIQhEFBBkkIkbr1O390
Zu7c+dx7Hr/zvfc4xKaGxBsJBIKP+evf+38tWwOC/zeVBiQefOM88XmjBmTd
tiO+Zf7oDg04rxof2PxyGPpXDbgbLMR28qPoUQ1MrP+ALfg+Dr2ogcTpk+uK
hEloIYHS4YiquR9T0eYEnDPtQ3O0crQNgdsfLQZXtqajtxAQdHVtCl3IRL/F
9w9cHqnfm41+l4DIdcanieShgUDQxOPdfup8tD+BkiTX2erUQvRhAhJdW095
QDE6hgBcF5+Olp5BJxJwzzRkqCI/R8sJbPSQmm/LU6KzCXgTB13J5TJ0CQGn
fqfAhOUKtIrAi/0nvJ+5VKLrCAw9sX18KU5N8yRQZZxdo28+h24m8Nsj2VDZ
ShXNl0DY5MTdLdE16F4CJm3Hzi8MfEHzJiCbEz2fCj2PHiLgu3VpNnKyjuZP
QKcZkhYN1aJn+PdR1kPv36LzLRLodfSvvrGtGr1GQL1SE7vaResRMVC4pLRO
z6f1WjFwVFywy5BA9yNmwMa6e3lfggrtxMD82M0HlqPlaHcGFHfaXeO203ze
Y8DqdXW+Ip3m58dA88nxndfu0XyDGCgPE17VBZeiIxho/OFp6sqdEnQsA4Pf
DnswqfR7pTCQkity1IqK0BkMZL7S4qlvKkArGFBHG68VhtPvf5YB4d4OqwUT
BbqKgY5zRsEHi3PQDQxExTR6JM9nob9hoOWlzpXuZPq/6Ri4cqqv03KN/o9X
GGjrezWnJisN/TOfR1Z7/KT7cXQ/P3//tFst+RT9OwPD7YK3x9Z9gp5gwOyN
NqUynp6POQZGRabPUsJl6GW+nhCftqs+1EYsaMcTZDohtRkLJGLwYEw6PW8b
WJCEN4sPMTFoCQs2Z10qhbpo9HYWMoMGJXcVUWhPFrwyPPxcVR+ivVnoSewe
j7Q8gt7Hz2e7ZqZ9GIEOYUG1fvRUxWg4OoqF2nvV+ndC6flP4Mc3DNo9cQtF
H2Nh+Hnv5t1j1FkslAr1990DaP8iFmQuIxXaIupyfj+DM8r9F6lr+fUqL882
aKhZFkSmb9qPqKm1LLQsVTjPnabW8/t9kTtmH0Pdw4KF956073ZR32BBcCSv
03MD9W2+3nrXL5vmaH33+f6ah8pbBupp3m7aiw4XqBdYUBjUBY+OU6/y692c
Mk6SUptwQAJUrX1iagsOEjvkX1stHEZv5ADm7eoTr1E7ctD/IKx44AL1Dn58
8o6sUDm1FwfTkojpv6TUvhzYTEnlvZuoD/Djo/X5rU8PocM4EC2OX7r+C7WM
A4sy/Z8iQp3E15NjaZSWQX2Cg+DMPTtNA6lzOVCEfKY3bKUu5UBVZ/5V80oI
Ws2B12t//P3TQAj8A7mv8Hw=
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            LineBox[CompressedData["
1:eJxN0gtMU1cYB/BO2VYTEGx4jTmHnTDLNkB88HL4IUgQBLryKBAgHchDQFoe
gmEqRVABMyhQnQqj594iIfIYwhCYRREEGUMkyNQwwzAbQchEhg1jONnu/M6S
neTm5nfPyfed8z93c6xcEr+Gx+PFcc+/79fjmAZ4/x8qDci8q1tcBxzxe60G
FsoFIYdkPuhODdR7h2YJbknQwxrYOlRSNTsfiZ7SgLovPNbw+8/Reg2I29c5
OwYnoA0IuDzp3DfokoJeT0CxM73ux2k52pKAOCIoWpeZgRYSCK9P6ugQHkF/
TKClpm9U/zAHvYtA/aaVDR6FuWggINsSUefhdxztR2DOd33m7XeV6BACt5cu
2zcW56NjCFSf+mV6u3EBOonAgvDqsFZbiM4gwM/J+HbV6zT6GAF1f5vF0Zkz
6NMEkp19JqOritEqAtkFgjzDmLPoSwROPp+6dsvuS5ongdr5GU++oAzdTODZ
uPPOr3JVNF8Cn14JlqpOlKN7Cby6aCSZUFXQvAmc32c/HdFciX5AYEJYlSu6
r6b5E7AyyHcQhdL1c9z5xprSp/JoPz2BqdptFrz5EvQqgVRp698Xf6Ln4zNg
rUjzmPOneQgYCCuJ18AHNL+NDBQOxgts22netgyYMCUx7pfp/TgywA/tfnEj
LB3txoDY7Hzg9bZktDcDFx53xDY0xKEDufXNZqKxCfr/hDPQs9xpFBAXhI5l
QJmYtcemyxmdygBkBxcknxL1vHY2A7JxqeeLOz5oJbdetXYybkWCLmFAcS7k
aNcbkWg1A6N3uqUv7WToGgZ+s1Dv6vOPQ9czEO5i01XolIBuZaBoW6OI/yAJ
rWNA3+o1dLwyBT3AwKMCwVnzscPoUQYkn/gZ2b2jQE8wYKp60lrtmI7+lcvX
fVKtDMhAzzPgZjtSZrEpE73MAHHd62P/O12/hoWlYqP+4X5az5CFxu+Svrbc
I0ebs6DOTzRysqb9rVkwLe2+5yGi+7NjwTvCXdiddQi9g4Wttqf+2DCQiPZg
Ias8asSvkJ7XlwVrs/yZQYhHS1jY0f9sbZnxQXQU1+/mjXtuXjSvBBaK9teG
VCfEohUs8EyHDXx1NN9cFjqPqJ13V8agC1l4at5rb2YchS5lQSmXFN38OQJ9
gQVx1fDz9BUpmmWhXnmJ3xsahm5koSUteixnNgR9jQWXlLbOhOZgdA8LlncX
z/nX0PsfYmHKdfztb9o+Q49z+2vKLf5hVoyeZMFxyPZR9m7qp9x+rJbSNoqD
0IssyMrr5EOSQPRf3HzHh5GHvwhAv6WF0atJ7zn0H0CbaEEmbX7z4UfUVty8
SaCuvcEfvUULPeucxio9qe21QBrlJ9k5P7SLFha6dAfTaqn3cvUqdKP3U6kP
aKFlZfN1vSd1GFfviuaxg5BapgVFnm7Z0pA6matvrn8/Y3U/OksLPPvtd22W
qU9oYSpmpNfzPxdpQfmyunTxFXUF17/pT00e36/nHzItBno=
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxN1HtQVFUYAPAVSREcRwncTaJRJKZkZRgGUazgs3B6yLi5gQ9cwHhFQIKw
kbALIi+FZRfYBZQFds+9V42aHSYeLlSYmLIRmVgsDjDILI/ikWAhNVpA3Trf
H52ZO3d+95w55/u+c87dFpMqjbcTCASx/PPv+7+mNILg/63CCCf8zcvekUH0
+yUj3F1blGTbIqXuMILDH2vSV+sjqW8bYU+4OvSqazy1zQg9icZxv6Fk6kUj
TD+J2BVcdorankC9SiF7Rvkh9QYC4nSJ8KvMLGoRgdtmj+NZ13KoPQgYWp88
8vQ+Sy0mUHpyl2+apoA6gMCf3/fKLIJiaiDw3P7Zyg3a89RvEViqjXWMfFNF
HUZAu2Og0eqkoY4icHWseGpWUUGdSODjXwyTzqu11OkE/BpzHQP0Omolgbzu
y089/0o1dTHff7g52W+hhrqCgLXGM2Sq4yK1noCDm1uFT7ke60lgcu+CEXLq
qZsIxBjZTrPcgPUl8EKfZ6A+hFB/TaCwxMz8dpzBehOw1B1NgDMs9T0CmeNn
godNHNafwJBwa2WJC3qWgCllJs1DguMXCUxxp/tW1DjfCoEIzURwfh+u58BA
VV/GpmgR2pmBW+11QuF3GN+zDCykFje3pTVQezHwIHW9V7sQ8/Fl4EdFxZX5
fsx3LwOTPvYFjzS11CEMzM5b/3YNx/ocZCBpMCriuucF6qP8+Pjwz28sYX1j
GMjd3yrR2aqoUxjQryu0N1hwPzL5eC+sxCrbcL/yGAh4eG9g5EoldSkDX5ie
zvu9Afe3igF5yNqc4cByagMDpUybaFWAmrqRgfqGotdvvoznpYUBnwF3ec+h
EupOBg6G3Rjsjj5HbWEgU6bJv64qor7LgMtZp2xhM57PYQYSwNCZO4Hnd5Lv
H7H673PNo55noFBQHLptREn9mM9H1544d05BbcdCaGaGqDs2m3o9C9Zb3uGf
JeN92czCpcsBZvuy09RbWdjorRvuuvkR9Q4Wuu7s/rncDu3PQsjOnbm172ZS
B7GQmLPbad6E9/ENFlJ0FlWTC1rKgn1IXfIPajm1jI+nL809bj6DOoGFim+K
fj2WhE5jwdQbf1ISic7m45OOL1dL0IX8+gvRiqF9aA0LD2I+iHDzR19kQf6i
TSXzQrN8vqr28QYR2sRCfYGbyOaINrPwWPTJne3L6dRdvGuk1e8/RPeyEBc4
NtM8hrayIDji+dJyP3qUBVHL4OwBC3qar9/E2xJDB3qBhUanqbbFT9FLLAz+
FBQtaUCv4SDMNaq0qRy9kQORnCQ756O3cKD8ssxPIUd7cmBtUa+bSUD7cCDW
6jbLjqH3cNChJgrrAfSrHLSJXzsiDUKHctDpuKp7wBd9mIPBjtb7UdvRJzjw
HR1qn3NFJ/HxfXv/vXwHtJyDnk3vCNz/wv9xLj9fllh7bQ59ngNb06w4zobW
cjB9qHt0Y/8p+AfjN/y5
             "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, AxesOrigin -> {2007.3437500000002`, 0}, 
         PlotRange -> {{2015., 2505.}, {-305.8807523777683, 
          2518.426265713114}}, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2007.3437500000002`, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, Method -> {}, PlotLabel -> 
         FormBox["\"Atmosphere dGtC\"", TraditionalForm], 
         PlotRange -> {{2015., 2505.}, {-305.8807523777683, 
          2518.426265713114}}, PlotRangeClipping -> True, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxN03tQVFUYAPCVCBkilngNognIswBFIsYhk48gQoYWZqNdQERYHhKvXWRF
3i3B4kJUDDBCCuw59yLDFOgOOMUUTgQVj0zRyBgMdQSBaTDIDEFQu3W+Pzoz
d+787nfueXznO84KpTTNSCQSpQjPv+//WqkeRP9v9XoYtAhQOja5s+8depjY
fsOkZziAuV8Po/PS5yMXgpkvCb4oX/7O7yDzbT2Ex9EpNR/N/EAP+7zUMmPx
u8zGBPoXpup9puOYLQho6p65rDU/wmxPwP9Ru48yVMG8i0D99lHfHp80Zm8C
rfOb5xvfymAOEMZzDe6/X5fFDATIR9usD6/mMkcQkFxvpm+G5DHHELArLU5J
cc5nTiQgjfZvvGh5nDmDwG3Znp4i2xPMxwgUemRXUN8i5lIC0X0x69GKEuZq
AqqDmTF1XWXM9QRe76+u0BppmE8TUG6BMwn7KzCfBEyNHU82V3zAfI6Amb7I
zHKyEvNL4JzZTK52r5Z5iECMQT3i11aN+SbQcrfQ9pS9jvk6gSRdef6ujhrM
P4HsQ2PD0qAPmX8nsGJ1qbXbtA7Pg4BNmL1Jgw/6CYE148q5lTnsb0phVJ55
Wv4O2ooC5/1jwVxjLfMOCvNHfvat/RLnc6egeiFvm2oc1+NLQfbp2Izq2knm
QAo7cxo8ZVO4/lAKA28rLM7+hvuTUAgNyDl+4U4VcyyFlasRyWlLmA8FBZG2
rqnvEeYrW4jnTac7idEFFPzU4hPxnphfDQWrYrnzVBjmv5ZC5MN891cmy5mb
KISXJFztdMHzaqfQ671j1qsMz7NLiId3XHttBs+7l0L501PN+aGFzAMUPku3
nnW6UMD8A4WYqJzn7nlg/UxQ6DT63m3lLNbXNIXVLpdm2UvHmOeE/yNEgXyf
ivkPCvXSzz0eV2G9rlEgssQlhwGsZyMOukxWl/dWvMdszgEsfBK2u+8osx0H
a/kyqWdgOrMTB2q3Xw0mW/C+vMxBquRBqM96CrM/B4XjV+SdNugDHDQp7DSu
0QrmcA40Tvbv61uTmaUc6NJtCw0bScwJwnrOd381lIVO52Bq66LjyBDeXxUH
LQdSo1yGE5mLOTCkBQeNmaOrhLh5eneY7jDzxxxYpk4e7XZDtwj7ebKxx306
gZnjYNFi4y95O7qbA1V8DQTnoL8Q+pcFT5eEoAeF8V78RtK/Ez3OAbF241If
H2KeFOKyZ88ob6JvciByl1Q4foteFPajfGiz2oG+L8STIzRtNehNYb7g9dQb
uWgTHjwrJWJdDNqSB9GrniW6QLQDD7ENpSHjTmhXHqaW9t+CrejdPAxmjQzO
3otn3seD4U60uGcS/QYPK3f/HG35Gh3JQ3j1hFcHh5YJ4/3dFvVTDTqJh0W3
pVtWeehMHkYLflnKj0WreSC9V8aXg9Dlgh0vb2o90DoeMhzS3ALE6AYenBoN
m09X4+Afx0Dl9g==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            LineBox[CompressedData["
1:eJxN1HtMU1cYAPDCiIENDKIyWUhkSGABhQYq25DAx0MCBhCBISwtKI8NCLiK
BQuD2nWIpQMEBHkI9tzTRVsl8loQoYICPkYgEodQHBCzICEEcGFmMkW3u53v
j93k5uZ3z+N+5zvfuR+nfhObYS4QCNL4+9/nf1exFgT/v6q1oPx0z+B4lyd7
/6MW7jzKN0RVBDL38v2rZGG774czj2nBKa907nTyEeZn/Pjx58RuPoH5pRaE
GoeN8UUxswWBZ4FHJaqB48xbCcDhsDOlX2Qw7yLQa98u+1KYxezMu1dv0RmX
y7yXQGLOanDSb1JmXwJK29CrV+AUMxAQfv6rVc5QPvMhAplNEreiTDlzPIGV
V+1/joq+ZU4m0BHpsRrqomDOJFC3sK9mokXJnEeApM33/OWnYi4mIPWamp1f
+Z65jIDobb3DRudZ5moCswNnf17TnGNuJrA03CoDeTnmk8Antk+iXxf+wHyD
n39Ocr21phLzS6D6QJV+6fZ55iECXfnJ/kRQg/kmsFmo1bd41jJPEZjSKuQZ
WRcw/wSOrQ90O3TWMS/z/U0N1hHd9bgfBPxVVjsGpReZ3xFotqvsFPyBtuRg
KfKyYUdwA7MdB+7xNuGPM9COHJSKDH+XpaNdOcgpW9v5IgQt5MC8aKbD3RLt
x8Fk+esDDT04fygHfpYrQQtH0NEcyGO3BajmML5EDrLdxlOixOhUDorcBgoM
E7ieHA6exuXHv/FHF/Df1785paC4fiUHFf2X7t0zR2s4iA5+YFpIxnzVcSDM
EldO3MR8XubXt31NfmUrWs+BXUGH4WJaNXMXB+BvQTtO4H4YORjxMYiyd1Yx
3+fA4pJp+0RfBfMEB46iG+q+47i/TzkQq1+4iq00zAscSJdnIoa71MxrfD4X
q6yJBOtlgwOjd2plgE0ZszkF4e7ILabpUmZrCkoztWuQEevPnkJOe2C09y0V
sxOFsd81XtfGvmN2p2Ay3g2ffYn1LKIQnyvqLPRCB1Boy5teCXqF9R9OYfJW
42p2WwlzLAXptnnf+JJiZjE/3rin3yYTz89XfHxmKQ4OXxcxSym4XA2TJBUV
MhdRiInzTrO8huevlILI+uhy+fpp5ioKe6NOuN+MQTdSkDUrnj+6W8BMKaTP
nEzJDUG3UdhU970t+AXPdw+FEQvnpF1S9B0KSx3dtb0fokcpNN7uHlp/KGOe
pCDPfSg5r0LPU+j1+eCkIgS9RMHRtbPp8fvodQo/vcsjxmn8v2zy8XQv6M4Z
0Ft0oDfVDNafQdvqoM35PSdJEvojHYzFPcnP8EW76EB4eKz/oD3ak2/fl3CQ
buQxf6aD0PQIa485dLAOwpsm9zcPoyP59kMtD7quoxN0MNm6WBZYjz6mgxjz
ks1tSnQ2H59zU6NZDlrGu2J0fTkRrdDByFKYc3sYWq2DzRiNh89+dK0OSFSt
MsUlD/4BFnn4YQ==
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxN039Q02UYAPCvZkDe9AgFRWAMJBIiYAxxA5N3MJETE25hskE4+VWzJTSN
siY3L/EHIswQrsNbfL+D6+jy2AlRHHA0kVNCUGtCoynuunUClsbSYEjWA+/z
R9+73e5zz/O8z/O+7/cbUlAqL17OMEwh/Bb/lx5dE2H+/xjAhoEXM57NJi+5
BbznWN7e2pU0rwtcpfmE715LPdxE9F7GQ05bILUD4h1ZJkdhKPXjJkLmGaNR
GU69giX6FnP7I2Uk9WqWWLKC+vZviqZezxIi8JSfm42lDoV4yUOd8k4cdRRL
HL8HT/C+iadOYAkT2lkd+VECNYH8Rsk+nUhMvZMl7NP6DwofSKizoX9fQY3V
kESdD/XjJfUu0WvU70D+YPn9pJ+2UWtZEhsTsnvNZkKtY4n3dLvTYwF9AuYR
BCT/a5FSG1hSVjqV7Hs8hbqRJYaVmdZKWSp1C0tuFTfOtDwvo25jyZ8xiiuR
/eguiL9h/FJ6bDt1P8wj2yoPSEnD84a4pJLf+9wO6jGID2wk7gG0A/qlHhEL
c9HTME/IGeFpC9Y/hnz99qSajehnLFHp6+y8SuznxRHV+NHanZM4jw9HHI5P
iw9loAM5UrY6teJdM+4nnCMGdtfoaW90LEcE1iG/uHLcfyLkB4wpRDY8Hxms
L4m5a0lE74b1fZ7EG414njkciR0UXZQy6AKOkBy38Ogg3ocGfHAhu7kK76sc
+jUQbWTGVmo9RyzX1deCPPF+qzjCpPdYPfvw/s9DvT/vw3ktvh9fQP0PL11Q
BG6hboV5xG9Jkr7fTN0OfvWvtVH5+L71glvrRr97gO/jVeg3ET7i0gmpb4ET
R3hF7hjqX8DpCbmj96OonWB3v8+BjgjqhzDPuRvS7PP4fcyBl6mnLs2FUS83
Eaa0LUILd7xkngniRnFOdyi1n4noBbUXvh4KoRaYiEW8X3jYJaCOhPods6u8
wtDx4MSzM1d+41NvA2usNn9NEHU6rOf/c/0LfPye5RCf7ulMc2+gzoN4vMce
Z5s/dQn4SL/K9+x66jKwWRY4nIn+eLHfr+o0gj4OLsq/ukaEroH8tqLsvpfR
ny/ud4vkSRDaBM6rYLW+6IuQ/1V38vwq9LfgyWG/HE+0BfLvdin2LUMPQVyl
rph6uo76NnjOph79Gz0BjjB0ebjQk1BfsCK4+A+0C7ypd8I+iV6AfObU6won
2qOZ6HNPam7cQ3uD79iqo+3oDWAiZUrH0GHNhLEn3D7xIzoafPNR/cFhtBjy
38vkC66hUyA+Yy5quIzeBb5Ut3ekB/0mWFPdfbkTrQJXNXi9b0YfgPXm31aO
t6IPg18JznJz6ArIV97752Yj+hRY7m3Pq0N/Bvlx1zuazqwj/wFeeMuW
             "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.05]}}, AxesOrigin -> {2007.3437500000002`, 0}, 
         PlotRange -> {{2015., 2505.}, {0, 1497.4553529818172`}}, 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2007.3437500000002`, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, Method -> {}, PlotLabel -> 
         FormBox["\"Upper dGtC\"", TraditionalForm], 
         PlotRange -> {{2015., 2505.}, {0, 1497.4553529818172`}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}]}, {
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxN03lQVHUcAPAVGCKPWCGIQW4WREYRA4TU4BtILeIYLGcoCsttXCqzpBKB
OrowSMshEoe9YykKBgk8sNmUmCSyRglPBDciVKqJw0lmC9J+8f3+0W/mzZvP
fI/3fd83z1mZp0gzkkgkKez67754ij4Gyf+PhjlAZkhQPQxatJZZLcsxuTCH
7mHWfrS+8+8lWPcDs6p2YlTxInqM+VKBvEcnRf/JfD2uJzzYCm3CgeRoi/Wv
W23RLzGXKSusbziibZiPu+lfmXNBuzA3xH3qqnBHr+WgpLR5f6rEE72RxQdn
y71MvdDAAYiKXkffDehtLH9Oax10ygcdzVxsOV/psRG9m4PeulCXgpkAdCZz
ZJHJd1Ob0ftZv7iZbXq3IHQRc7ihT7r9DfRxlr/0UOASWQhaw7yl6fTIqlB0
AwdO97XPh3zfQmtZ/dDZ3NX5YegONr9pa43FjXB0Dwdjb/ZfNIrage7jQPP4
bGl1cQTtm4OZi6MZpY8j0Xc4iIjrvr06LYr2z0Hn0HRXmiEa/RvLf2RwsBRi
6XtwwE1rD2TExqOfsX08iLBYszwBbcZD/mBumN9XO9EWPDgV7uwvTEtE2/Hg
XffyUaXRHrQ7Dzbtu7rXhSWhvVl9v+npzUuT0Zt4kL5dkWP+DXkrDz21+h+b
VEr0Dh7e+6zEfsQ5BR3Pg9zVsXn4KlnJA+dZbX5emYrO5iHigxN+VQayioex
lPSKphNp6BIekvwHVyyYp6PLedCcm356t4pcy0OJ0PwgekUG+sxif59TR8it
rN+wWeqVWXIXD2qZzPOPhEy0jodJyZOsTZfJ/ez9jZ+1frsqCz3I5i83vtVy
gHyfh847X7bOXyVP8JD5/u9leou96Cke6tfe3JKVQDaweR3sbTqayEYC5K+s
ahwdJi8XwDsxxvapxbtoawF6uidBJyc7CewPaGv8/jDZUwCz2/Ydde1kXwEG
X3MTVCPkQAEkCruiNrNstFwAj2XJr+f5khUCBFwu/XlsN3mXAHCmwc9FTU5n
8xQ+kik6yfkCyNd5Lzt8l3xIgCSrAZ/Of8jHBFB78Vof1xx0JatfPyF/VU6u
Z/2NprqvZZMFATRXui6trCK3s304+1danSdfYPOf/GXip3vkXgEMTX3JhQvk
a2w/Nftqxxxz0bcEqI/8XHAIIetZfeYanU86eVIAm/l9Wc5l5CcCRPjHfD3Z
Rl5g+wyJOll+nWwqgkdKtPKFWbJUhHtRqi/2WOahbUWAssKbNX5kmQgB4wel
2jiylwhjenmL5iA5QIQB+XT/O43kYBGkE+4tz3Xk7SKo4yXZR/TkWBG4GOPQ
8efkJBYP+KvtQ2k+ei97nkfrQztncgGL2yaO128gF4ugG6g+ZxxMVotgZjiW
m6ggV4vQrgt0+USZD/8C+C7cJQ==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            LineBox[CompressedData["
1:eJxN0X1M1HUcB/ALDSwNL3WChIJ2IAgqiTCGAj/Q4HiQ5PlQ5OBAnoZhjIgn
iYABPoAoboEbD3eQaYMgccicxQWGFU+XmRmZ3hhjBxhSooAc1Rs/nz/6bb99
99r7+3nY77dZkRZ81EAkEsXhXTpfPnn1guj/TyVcIK8OCHvo8dJNsPpraUTF
E3LnUm6/dWfdHLkfrvR0jVn/CvXRwg3HSnz2GZJn4LZKE5l2JXl5A07/A4Je
TDaG70sXi/zXkU3htpM9y0ZNyFvggzGJ1n1vke3hvaELsmWWZGd4tGg0JXAL
WYArJ637fpCQ/WB9pN4/ays5FI63XquJ2kaOhkP1IYqc7eQkeNhjZizZgZwO
j5xQv+68i5wHu7wzaPP2bnIJLHmcemeXM7kS/mbDRHmCC/kinPFkcarLldwE
31RKqwQ38pdL+70RtmHCg9wJK4d3WMg9yd1L+3r8HvzIi9wPX24ZPJe5n3wP
Dlhwv2flzd8fPunnJJnyIU/AXr0WhRpf/h+w3/eLR277k/+Ba8bPOw8cIK9Q
CqIPg8SBf7xHXqMUCsS/dH43f5BsDjeEB+0xDCZbw6vqPjqzJoTsAK/Na8na
GEp2Rb8HiUPjVmHk/bB5+7ciu3ByIKxT6OftIsiypftFgpONjKyAvSsu7bSI
JKeif8eevnzxIXImbH7jV80CuwD3Vwxd1GoPk08hnwwyyu6KIl+AC1PNjn96
hFwHFx1r+CwpmnwZ9dMDd5c7yslX4Ws6bc5z9k1479Dm/MgYcq9SENqe9npd
Y2uQ/xnkU7YyljysFNSPjH4OlrNHkc/OnG5qZU/BbmM+hXr2HPZJ71g9/a6C
bKAS1BfuR704zV6lEgQbkzNjg+z1KkFk9u+z58ZxZEt4/sqllAD2NtS3txbm
lrJ3o96xezBazXaHTT1G9s2ypbj/wGcowj6eHAxrOpu75OwolVBQ/JpV/Tl2
Arzui3iTbvZxzK8yKPf6i52DPNa22tXiKLkY89SZr0oC2BXIU8RXN2Wxq1E/
1pzm3chWYf6h7WXtA+xmOP2EQ+4suwP12b89brVMIKtRfydMF+vL/hHz0rw9
6z9g30XuO+2fUcN+CPep+yfVbB36G1nYrdax/0Z9xu3aMeNEsh4OLQ7KdmIb
NgqC9MWpgcNscaNQsNH2lu4Tthl8xb536HO2pFEQfXW9q2SAvQN5VLvszads
F+SOMT3ppklkL7jLt6/FjR0AXw8ZuaVgh8N5m+xvlLJjsI9urvRsMzsF/csr
arx/Ymcg/zhXo33Gzoerxt+XmyWTy9AvJfxsjzv7PPLaWlvjuGThP6XT0DI=

             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxN1H9M1HUYB/AbnkRUjBCw8cPuRCzhJFYXHsWPL3gEXsABEh6CxI+QxigZ
ElYiO0iRMWPQ0BCQTjiUPxDnZXFc0IjoLChjwBphIBJLpg2yQkB+2Pvr8/zR
s3322WufH8+z57N95JmHErJtJBJJFoY4P4rizwTJ/6NatOFIc/Ht0Ec2iv4p
K6dviWyG9cMxlw0b6NyPsNAYf7jlCfIUPLXleFCAE/lfcX1s4vF1V7LUIEhk
Dr5pOzzIDnD106bQGzLyM7A+6PofQ17krbD/Y4fbFraTFXDc+MWFKB9yAOyo
6HX5YSdZgPMDH4RZ/MkauMK6KaH1RXIiXLfHoGxVktPEfNLwuK4A8tuwMG84
dktFLhDrvTT3ruer5GJYclZhzgsml8PP315bvB5KroaHnC1r8jByPVzrn96X
HU42ivWG9naZdpM7YJ3p8qBdBNkMF2aaZnJeI/fBxulZ2VAk91vc3zXycdge
8i9w0OYy324N9x9WDnjcVUWT78Cp5owTHTH8HvAp49hDdy15XezvuYWLQhzZ
7rwgUUU9GzTPdoLVyXb9Z+PJHnDlUk+4kEDeDrft3nh1mu0Pjza4eJTuJb8C
Nzpoy9wTyWq4fzXwxhV2LHzG2+qrfoOsg/P7dO8NszNh1wa37tQkch789QXj
2jS7CLbR1u/M3kfWw1eDI9W/sytha6T3Swd05Fo4xGKZH2Y3wTOdp3PUyeQ2
WG/7T/EVtgmuLV+Uue0nd8NLf9W9XMK2wkUDsYYJ9hC8ej86UZVCHoen20u9
qtgz4nnB584kew7e2vXgjE8qeQmW5tZoC9g2zYJEMeZ/s5P9JOw6/kXdCtsV
dp66/3nwAbIMLugM3FfC9oH36/KaethKeFIraV1hh8DlnY56VRo5Cm58v8ev
kJ0g3hexaayDnQr3Ov6mn2UfhEPeekcuf5OcD9sr7GXJ7A9hp/Tn1qvZx+HR
8ynffs+uEh3RoJKkk+vg9sBSqQe7GTbFzX63i90O36wSju1lfwl7fjXjc4jd
C3fHef5cyR6A7z3llXuBPQoHKOSr37AnYWvMrhMT7Fm4f8fRjcvsv8X8D5eL
nTPIq/Cnv3bdfYFt24L/osUS/zrbEb7nvthxkO0Gb2nL3lDG3gZ/ZLsce47t
B6/8aagxs1WwXbVmcIQdDls331qZY0fD89JYL/tMchI8cvKDMG92Oqwc1CQJ
7Fx4WNmWkcIuhCsaj2QVsUtg89GmlBp2BXzNxUbTzv4EvlR/0u9apvAfJDm1
LA==
             "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.05]}}, AxesOrigin -> {2007.3437500000002`, 0}, 
         PlotRange -> {{2015., 2505.}, {0, 262.1655600023903}}, 
         DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2007.3437500000002`, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, Method -> {}, PlotLabel -> 
         FormBox["\"Lower dGtC\"", TraditionalForm], 
         PlotRange -> {{2015., 2505.}, {0, 262.1655600023903}}, 
         PlotRangeClipping -> True, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.02], 
            Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}], 
       GraphicsBox[{{}, {{{}, {}, {
            Hue[0.67, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[0, 0, 1]], 
            LineBox[CompressedData["
1:eJxN1Hswl1kYB3AhuXQRu1Z0wezWrrGtabDVpL5jSxtWpLBqNtvFLJpckkwr
04itkVyyUwi/c86b9lcoqcmtbGqZreyym2q7yUq08aOkn2us7Tx/7Jl5553P
P+c953m+z2u7JWLddl0dHZ2tE89/73crXgWd/68MFZqCzRufPa9c8c4nVbiY
+tPlfXU3pStUGL55Z11qebN0gwpzSzo7Xu15JN2qwr1tmJHs3Sbdr4L5w4ys
kfQOaX0GJdft/K5JXdLTGWpb7jj4Z/ZKWzKUxrUnWdn2SdtN+JJx22hKv7QD
g4/PTOcI3QFpFwZd58TV1YlD0mA4OxK8Oc5kVNqD4cypfYYe+WPS6xniD6b5
FuboyHt/wxD47eFtOZ2TpL9jeBtTs2DNYj3p6In9XjcbLTqsLx3PsCnS1vqz
J5Olf2DIXG7W4eE0RTqD4a9FD3IDUwylcxlOO+ZmN7UaSZ9k+PlZ/dq1i02k
zzLkz9Gu9UyfKl3BMC96LNSoc5r0NYaD9vVvNCtmSDcwLHEKStN4mUrfZRg1
vbvcdpjcyiCSXzU57p4p/WJivysB7YXXyf0T5xm40jOnlzzGYNAzHlMyRjbk
uHPC6pDfINmMo+5F7Ey3VvJsDr0Tv+t2VpLnc2ir46OdDpIdOexGj+u5eJKX
clzfPlCdY0BeyWF1cXeWporO683hfNykfUMoOZAjsnvW0mIz8haOxljzHX0R
dP8dHE8/b1TtLpsuHcvx/uBKx3EN1Ws/h9HDvJIWO3IKx+OQnfrhvlTfHzmS
79e55O+l+hdwFPZ8tWd7vrG0msPX9qOg1VXUrzKOypr+c9Z/Uj8vc2x+6l5q
8pT6Xc/xhxYz5rw0kG7iuPWLadz8AcrHAw7jrIxVrwYpP+0cQ8bO3a79lK8e
jqi8gEyVRld6kGODedPs0SlkXQH33mWuv7lSPqcKaINf1gylUH4tBBy2tn9S
cndc5ttGoKrg3O1b5ZR3e4H9+vUOVWVvpZ0E9i7TLwuop/lYLuDPLNU+L0ak
vxToD7FPiJpHXidgWuQeXrttWHqTwLWd7uYrL9C8hQjkzgrwDZlGjhQI8mj5
+tfEQem9AuqQ7AVrppGTBI6WJDiGq2l+0wSm1lqcuudDzhYos9F7z0ifLASs
2itiTa9qpYsFwvoMv9hxgHxJwK17a1GXF/mqwBmtoVeuNfmmwKP1c0+e73kj
3SywvujjY2l15BYB47ziytMq8nOBuCdd6sx4cp/Asfzr5R0byaMT3/e/URLg
SjZQUHyYLVPZkE0VlA5d0EmcTLZS0JBk8U9DF/2/PlTQsjBU43ebvFCB2Qfq
8ZfV5MUKYlapHQ4Ukt0UtBUc+FuTTvZScNRS8bb8nuyvIPXNvbbuEHKwgqYj
Sx4E+pHDFNRowx57ghyjwC0q72z5p+QEBRa7bNvSrcmHFGypvs9uGJGPKrhW
MRy9cfD1in8Bb34HtA==
             "]]}, {
            Hue[0.9060679774997897, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             RGBColor[1, 0.5, 0]], 
            LineBox[CompressedData["
1:eJxN1H801lccB/DHk0llSr88o7UyOUW1Ujl+JO9DWEiPViynI7OTtkYTHb+n
OpXkmKGOYtlzv/drZfkRkoOsZWoKq4hZCE2E9etItJSzZ33uH7vn3PM9r3PP
/dx7P5/P+S4M+nrzTqVCofhcO//7vh3xGij+P9I0SDtRe/jwxkqnt87VoHMR
VkR33yBXaJB987rp9Lt3yI0a+I/n6LbO7CD3aHC27CPng173ySMaPM004a6r
+si6DI55OaHpToNkQ4atelnpvTsek1UMmRH+pZENz8hmDFXvnzI6/XyYvJTh
dVxNQbH5C7INw26PK0fHt42Rod2vUxy+9vg/ZA8G7peqjm8aJ29hMLPObxyc
PkEOYIhvP5Dsv1hBefiCYcv+V5qRDTrkcK2j/RZFhSjJ8Qy2JXu+6kidRE5k
OLnSxzOwRJecxvDZz4pqg5Z3yNkMOW48ZP+oHjmXAfqmi3Pe0ycXMXxXsra/
w2EKuYIhy0qd0Bowlfwrww67buc1h6aRGxnO3nY5YfCTAfkPBodzNaH3br1L
7mEwHovcFLTfkDzEYLXbJrG8WniEwdXFepphtvAEwzdGmzpqLIT1JTitc88Y
2CvizZQQc6WPnTwqzpsnoSGs/9hAuLiPhQTPS68+8XQQ910hoTKiVqf/b/E+
ewnH+xv025Imk9dr4+W6J91RiXx4SzBYWbDMXhL5+1SCd1Vi0UYLkd8gCeeD
C5fVFYh6hEjYnLzLNmWNqFekBPu4M6k+iW+ongckdJlFRaoKX5GTJbx8NMdu
rEf0xwkJSsOLUTGLRP/8oI1XFvxtSqTorzwJG+aHz31z7im5VEKo3fIPCo8N
kasldCyNsY+OFf38mwTH2LKFf6X3kG9L8K0tK/oyoY3cLiE35nv/WJNG8gMJ
FTmqlM4npeQnEor120b72ot/eeuXElJcLsfduHyNrORYHeGm7F1yi2zAkRKR
stPrx2byXI6AosLyR0Et5AUc1nax84yNWsmWHHMXbtcffi7WV3Psyapqr7ES
XqeN7zl6ZMWEiPcxh1nplOu+MU3kzRzP9KZsvRQkzt/OsWC9cRQ/30AO5lD0
Wl5zb64jh3GwsKENd1fVkmM5wibn1zXZVpMPcwwcsTAsSywhp3IErrKafzUz
m3yK48C+TaVu+WmUH84x4/SNl5OiC8kF2v2Og2rzRxXkcg6ViUPIA58a8hWO
2R6qXXWD18j1HOaZD/OW2tWTWzhCTDdefOp4k9zFkbHEZ/v98dvkAY7SORUh
nReaycMcFl0HHUbcW8ivOWZeTQ9Mq2wl68mwVyrj/KaKes+Q4a2+8KFq7Z9k
ExnNebNel6vvks1ljAY+61jg0U5eLiP1BdSwFP9PWxm8bnbti2FhZxnlnY9r
jc50kr1kJBvb6Pi43iP7ysj43f7UtmbhQBnKWbPCK727yLtlBAdU7e27JLxP
RrbXNBc7025yggy9h1nyWKhwkoz6QzP0PC8KZ2itfh7pNtzt9C+uFv9e
             "]]}, {
            Hue[0.1421359549995791, 0.6, 0.6], 
            Directive[
             PointSize[0.011111111111111112`], 
             AbsoluteThickness[1.6], 
             GrayLevel[0]], 
            LineBox[CompressedData["
1:eJxN03tQlUUYBvDDRTxxkQPiBSoEhAOSChh4LX2EIARxDAQsQQ+iBowoGKaD
CAqWjIIgo4KGnG/3wzBEmMHkeixDJSUUTUMGS4igvIDOGJApQSf3/aOd2dn5
zbyzs7vvs47rt4ZuNFQoFLH6+d/6aqRpofj/yNfianFYq3Vi45JXLtUiaixm
enJ3q3CdFo8GGoZ0de3CrVpUWsTvDKjqEu7W4tuI+rhhuVd4UIvzJ61fGjY+
FDaWkKE1/3ml3VPhCRLcykOO7o18JjxVQppmXHz6oiFhJwlN/l4pbvOfC8+U
kPDCped04EvhuXpvP/tT9MejwpCgK07kdtcU4l5BEsqOvq+bvsFQeJUEx4em
NV6GxsJrJSzQ5g6EyeOE4/T7da06+ihgvPA2CUO6QLNZ/UrhNAnhPjkdnYdN
hT+XcEuRuF6eZy6cLyH3zzU7HH6xED4hIWbq9VnVey2FSyWobNOjbxaohCsl
BEd2PrwVayVcJ6HQS5Xp520t3CThdEuPQaDxROFW/XkqdpW03ya3S1gZ7JHX
yG2EuyWgfMHjnOBJwo8k+F5vcLJsIw9KuGcTXvrAa7LwqAQTRdpsxU6ykuFu
hFWl2ymyNUNR8PbMbTryGwz+BUERZy6S1Qx+sePVzefIngxR0tSqXUXkhfr6
CNZukER+jyGm/KrHhHfIKxjefnCl22yUzreaYcqwi82MWvJ6BqPAvhllceTN
DBZNL9YpJ5I/ZSj3VWZMqaX772Eo/eOz3JBw8gGG/OoT7pOe0HsdYaj+a0qS
cSa5hKHvQ8ttwyryaYYae/u9C7+g969mSFW8mbfQkaxjiAj2f7qZU7+aGb6p
N577+zTyTYaAenvtaBH1t5Mh79Ta8SMW5F6G/QdVyzpHJgg/YShbUTin4y7l
5TmDhw/zG2qmPBlyJGcldvx4zUzYnCPj0gVPo27K32SO42rXyTOUZAeOjUqr
Qaulrwm7czhs+MTldjbl15vjfr7Dd55dlO/FHKrK3XkWS8mBHEfajDYmVZoI
h3KU9fzq3awmR3EMZ+Xvdyqj/7KJ49zrOQFjHuQkjv7jHxyb9z39r1SOucm3
LXoTyPs4jC6UtW2yJR/iyNd4DkXeMhIu4uDDqzLSD5M5h2LRyfktq8kVel/J
jl2hJtdwLGjcbffu34bCFznMHF2CfrtJbuG48ZVqzqkK8h19fbL6o5cHyfc5
QnWFA1u3kB9w3NE4bykOIz/j8GPqr10XkUc4NG2xXpedySYyFmv6E2eryCoZ
53t31r71j4GwnQxL98qR7MdkZxklpYdu2N4jz5aRs8M+q/YH8nwZqjN9KbhA
9pVRXZ2zprCKvFzGTIeQBs7JETJ6y6Njlh8ja2R0Xe0a23OAnCBjSb3rZY8M
coqMZc0ZyqAUcrqMaSbNppfiydkyAn1Sz+atIxfIsClQLP0y3AD/AoaDxg0=

             "]]}}}, {}}, {DisplayFunction -> Identity, PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, AxesOrigin -> {2007.3437500000002`, 0}, 
         PlotRange -> {{2015., 2505.}, {-0.32916810780524763`, 
          5.688153599072909}}, DisplayFunction -> Identity, AspectRatio -> 
         NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
         AxesLabel -> {None, None}, AxesOrigin -> {2007.3437500000002`, 0}, 
         DisplayFunction :> Identity, 
         Frame -> {{False, False}, {False, False}}, 
         FrameLabel -> {{None, None}, {None, None}}, 
         FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
         GridLines -> {None, None}, GridLinesStyle -> Directive[
           GrayLevel[0.5, 0.4]], ImageSize -> 400, Method -> {}, PlotLabel -> 
         FormBox["\"Temperature d\[Degree]C\"", TraditionalForm], 
         PlotRange -> {{2015., 2505.}, {-0.32916810780524763`, 
          5.688153599072909}}, PlotRangeClipping -> True, 
         PlotRangePadding -> {{
            Scaled[0.02], 
            Scaled[0.02]}, {
            Scaled[0.05], 
            Scaled[0.05]}}, Ticks -> {Automatic, Automatic}}]}}, AutoDelete -> 
     False, GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
     GridBoxItemSize -> {
      "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],FormBox[
    TemplateBox[{"\"DICE2016\"", "\"DICE2013\"", "\"BEAM\""}, "LineLegend", 
     DisplayFunction -> (FormBox[
       StyleBox[
        StyleBox[
         PaneBox[
          TagBox[
           GridBox[{{
              TagBox[
               GridBox[{{
                  GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {}}}, 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], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                   ImageSize -> {20, 10}, PlotRangePadding -> None, 
                   ImagePadding -> Automatic, 
                   BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                GridBoxAlignment -> {
                 "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                AutoDelete -> False, 
                GridBoxDividers -> {
                 "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
                GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
            GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
            AutoDelete -> False, 
            GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
            GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
            GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
           "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[{
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                  True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                  FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 0, 1]"], Appearance -> 
                None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                DefaultBaseStyle -> {}, ButtonFunction :> 
                With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                Automatic, Method -> "Preemptive"], 
               RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
              ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                  True, FrameStyle -> 
                  RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                  FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[1, 0.5, 0]"], 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], 
              ",", 
              InterpretationBox[
               ButtonBox[
                TooltipBox[
                 GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                  True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                  PlotRangePadding -> None, ImageSize -> 
                  Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                BaseStyle -> {}, BaselinePosition -> Baseline, 
                DefaultBaseStyle -> {}, ButtonFunction :> 
                With[{Typeset`box$ = EvaluationBox[]}, 
                  If[
                   Not[
                    AbsoluteCurrentValue["Deployed"]], 
                   SelectionMove[Typeset`box$, All, Expression]; 
                   FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                   FrontEnd`Private`$ColorSelectorInitialColor = GrayLevel[0]; 
                   FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                   MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                Automatic, Method -> "Preemptive"], 
               GrayLevel[0], Editable -> False, Selectable -> False]}], "}"}],
           ",", 
          RowBox[{"{", 
            RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
          RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
              RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), Editable -> 
     True], 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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.766731273028432*^9, 
  3.7667482859538336`*^9},ExpressionUUID->"f487dcf6-6832-4563-99a2-\
a772f1979fb7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"x", "=", "2"}], ";", 
  RowBox[{"T1", "=", "\"\<Atmos_BAU\>\""}], ";", 
  RowBox[{"T2", "=", "\"\<Temperature_BAU\>\""}], ";", 
  RowBox[{"comBAU", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"GraphicsGrid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ListLogLinearPlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"atmosCC16CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosCC13CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosCCGLCC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosBEAM", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Orange"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "T1"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<year\>\"", ",", "\"\<GtC\>\""}], "}"}]}]}], "]"}], 
          ",", 
          RowBox[{"ListLogLinearPlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"tempCC16CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempCC13CC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempCCGLCC16", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempBEAM", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Orange"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "T2"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<year\>\"", ",", "\"\<dC\>\""}], "}"}]}]}], "]"}]}],
          "}"}], "}"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Black", ",", "Blue", ",", "Green", ",", "Red", ",", 
           RowBox[{"{", 
            RowBox[{"Dashed", ",", "Orange"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<DICE2016\>\"", ",", "\"\<DICE2013\>\"", ",", 
           "\"\<Gerlagh&Liski\>\"", ",", "\"\<BEAM\>\"", ",", 
           "\"\<UVic\>\""}], "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7133679541452847`*^9, 3.713367966071967*^9}, {
  3.713368036857016*^9, 3.713368167469486*^9}, {3.7133681993913126`*^9, 
  3.7133682720984707`*^9}, {3.71336847173989*^9, 3.7133685069429035`*^9}, {
  3.713369568133192*^9, 
  3.713369600814061*^9}},ExpressionUUID->"d486f69e-4a4e-4f87-b39b-\
0f414b06bc30"],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{}, {{
       InsetBox[
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwVlnc8lt0fx/WUSCQroq7rMhqUllBJPkqpyF6tR4gUJaSSjEjTDslK7j3c
pJSSJE1PRSR6eBKlQUZKGuh3fvc/9+v9Otc55zs/36PtHeTk+5eUlFTSOCmp
///rVLVd/7mPgtT/f1ln8FPUtDMumMKsfOoS79+zYD9mHZx8gMLSxBOPpq5M
xCLY9acepJAa5i1QLEnCc++W+mnhFJoclE2va6XgxA3LmdkRFPw2LSvU+JSC
83InXmpFUTir2L/gU1UqxnzyxnJiKGTtd068djENYr2j5zXjKGz36kvrO3kO
ZdIqrPPxFDT1bUO6D6Vjq669rsopCk7my+u/78uA7ERNzcQzZP/r6RmbAzOh
Jdp8WjqRwu03x6e7BZ2HKHEg5GgyhZlnL+ssOpQFneLKli+pFGSbYsctiLuA
hxdzb/mmU6gRvFPJTsvG3JO+TEsmBcN+z4Yadg72ze+V3nCBwvnN909L3cjF
ubEJQeU5FFTES16JnuXhxIyI7bPzKSRPNpOe25UPw+2ajWkFFL7bXDF4/fsi
trkLn48WEvt84w3p0wVg7e7fsotDYfyIUWO7yiVMuyvcX8ej8JS5rTCQdwkD
vtmqJkIKT7RltivPKYTe8vD1OWIKdu4FxfLFhXgt/Ufhj4SC/4VaN74xC2/i
3vh5XabA9bj1/fJNFl561rncvULhhcbbAz/N2UhYfeSV9jUKBib33zpWsaHS
kvA9upzC8stf96au4uDZy+KitpsUvN+ZWaZWcBA48bTUskoKSToqoYYmXNSt
qxhIraIQdPXzRysJF62Z76O7q8l+3Q2WN3R5WKrFL7a8R+HGoGfJvkweuvSy
j51/QMHjm0y/zUQ+fpq6DPc8opDOJKutCOVjTClA2eIfCupZ3yP1/uNjf8n+
FylPSXzo9is/1ggw0/3bqo46CqeVXlhzeQLsyYx1XtRA4aRB3w1KVogUR45K
1Avif8Ihd1dfIarvvY2pfUlh4fpWHYsqIVaevZur9opC14emsgY1Edw4Nf6e
rRR+N+7Vk90tgl+U33vefxSupnV3tpSLIByco97fTkHm8TDLQloMTdfYkaWd
FNoUva2W2YmhF9Z7Pvwdia/buoyqc2L4sF9333pPofGXrU1jkxjGtx59H/tI
IcLBTSVUtQgeujMqLXoo8P1mn8mzL4Jn4zqL6F4KW82p9c4nizD/76tRlf0U
Pi4+8zS9ogibvj49+usLBfnSGVk+n4vg5Ptrhck30m+/7wRUT5dgysL8m/u/
UxA9Pby3ZI0E9Ye1RgU/KPwdqqRktEeC0zMbxnf+orCqMGbQJlGCrmK6XmOU
QuSf4+PGxBK4RHv62P2h4H5q86jNYwkm5XXfjh1H41StQtCyTgm636i/KxtP
4/K6vpqHwxIE9Zm9+CBNY88Jb9WRScU4uFyQoiFLI1h5gf8rjWJMnVyiuV6O
xv6xDXN36BXD6ER+6EF5GoKmP4bp84sRKL6Ty5pCgx4ILju0uBjR3jvO102l
caXCsE3eqBi/D9zf+UuZRq3GJAdXsn4n13iinhqNDv9xl5zI/si4b0dt1Wk4
ygcMS5PztR6tqQ2dTmP+3K6eIHL/3PE+/Re0aLA6Ba0pxD69f5J7b8+kMfdE
WqY/sf9VufSDTprGHxNt8+8dEqQFjIVL69A4ub1x1oUnJB6Jl+Xm6NFIZ/sP
vCon8Wh2CbeeTeNxhE/Icq4EeaozHvrNpZFSNHWFV7oEqvrLh44bEP8bwmKn
xZHzlNsmFM6n8eiHn+viEAk8+pYMVy6gIbv07fFMLwkqR3Y/bVlEY+zmlTQj
RwlUOKJTg0toFBp9+fAbEpwNZwwmG9PIb60beL9IgvFm/aU6pjQ0YpIa+xgJ
2tpW6i1fTqPq35YURSUJSk/Nj7Yzo2FoUBOwbpwE0wvb73mbk/jqJcSmfinC
htqw72EWNObM3HGqv6MI99/Kq52ypJEpKs3wbCjCF7Vq7QtraCQduCfTcbcI
4nrxTMFaGiuH+HtCrxShru7jpHJrGnHVq/ZMYxfhGpXw4f4GGlZXpz56nF6E
Yi3x9QYbGr7VPi6J8UXYF7Et4vUmGsyruE87DhZhr22x0Sd7GotGOL5Wu4pg
++tqx6AjDQul5aWmHkXQcTx64rczjcX98uUrNhShNkZZd7wbjYsai703rSiC
PhNXPsmDRr/EMi9oXhF2LGqxVtxC401lr9ulGUWYzGg2qGwj+YxmR3YqkH56
Zu+h/jcNP3q7lNEfMdyTolqn76ARenD/s7QBMR7rC7dpedNQl49uHtcpxpF3
L9q0dtLYscNzckyjGPOi/2zT8qOxr11pi8J9MXJW6L+e7k9ju6j8iuCaGCf+
tfdS30PD5q80WVe+GOn8oA8qgTS27fm2XjFbDLtDccGK+2hsVrb1bTkrxh/2
cSm5/TSUJky3K4kUI5MKyBgfQmN1V+/XzCAxjnobLh4JpRE0Pcg6wUsMv7g7
L76G0Tg/y2l5irMY9DyNY92HaJRi+83CtWJsyptt+iacBv+vXRU1psTem23D
LyJoSM91M/yqL4bFOIN7jyJp1Phoj1s8Qwz59JHcimgaJSvq5kROEeP6Msu4
omM0vLrC0pqlxCja9vZQfhypPxOzJfgqgrn604ikeBp9x11+XOsSwXD+h+TI
k6R+Mye+NGsRwWbK9LKA0zQmJHBuPasVYahj/WePszTsG9PzgipFyI3earI2
kfS/kvUeqkQEq4NL0xcl01irukq1tZB8r3BtolYqjdxquUROhghLN1YnTThH
Q1lm04PIUyL4fzY27E2noVd75bJPhAirDw52vsgk+WwZgfs+Eaj5L0oqsmh0
Nn/z9fASYbv69fOXsmkcNz2kvMtFhHLZg1kncmkU0/uWxVmLkJrdfWVPPo1m
74bH4hUirDDq7d5UQGP5PlH5W0MRLGRcVy0qpFGwQnF4jrYIBVo/JEpsGjDX
ORSuKoL8epH5IIfY66E+r0VGhGnLV/c859E49nShtNVvIXxDkstLBDSmzq8Y
vtUnRLvDTm6SiEajlfrQ6k4hauVTywKKaPROL+lvahJisOLde+tiGnb1f16F
PSbzydnQTPcyjdGCJK5OpRBuItMro6UkfrWD1m0lQmRG1tk3X6UxeKy+pJAt
hFlAlVLJNRqaXa8aw7KEaB2p/3mynIZDzzOWa4IQPewnsp43SX7dI1VWxwhR
WR1uYXyLhq7gjprZASGiLubny90meqgYmwd/IeYckZrTXkUjxqM8z2mbECHR
Pq9Kq2mceL9rUrCDEPfrz1yLr6FRnV/YmGMlhFb8sir3+8S/tpP9DcuEeC80
/Db3IemvnVYO0wyFGNpg4PbzEY3DzsqffLWF2ODb2/WolsawyvKiajUhekeW
ss8/oeFtp5CiLydEveLtVN9nNB62DhzPGxPgTJ5V8ZJ6Es9yp+iZXwVYxI8b
HXtOk/eCJETwQQANE+PI2kbSf4IkJ8s2Ac47Ky/MaCJ6/emkcle9AI9VG1U8
m2l4XjXnpt8XwPr8gvlzXxG9+OA5zuGmAO3jWw8P/Ev0xEikrl4swLqUxF/X
20i9yH9q+8QS4EnMr8tRr4m+5fVbPcoSQNqg6aLVG3L+zUtrShMFCB6suzep
k4bWy74nvFgBZrnkaj97S/R+oOEF/5AAO193X0vtotGd6GZfFijAWtOAeJcP
NOZxkxY99RJg/cwnidM+0cjIzg0ccBOg17+ivrmbzMc5kmHKlqxPeW+X9ZlG
rMfofQ9LAZKpH7IefTTGH6n/J89EAOHj3D/TBoh+TTky2jtPgOueUUZNX2j8
uu1hv0FbgBSndZy0r0TPnZrLiqcJ4GCa52o/ROzLC5ylLS/A84cGaycPk3ly
OCctb5wAuu8yDjz4QWNAMvhFb5hP9OL4u5hfNDb9lF92/TMf4bK5GStG/l9f
KZtdOvn4nBtz6usojfefFtmMNPPxvaWpUvSH5JsSjSt+ysc/y+icy1IMivY8
Dg6s4cNt1oKfCeMYGG/zSll6g4/5K/1/7vqLAYtxcZIp5mNxwczc1eMZuIQn
id+x+XiikN8xYwIDr2LZ9CfZfGS0Lqv9Tjjn5IPR2yl8SP1e6VYvzSDbpPl1
xQk+pvz8ES+YyOCFi+v8mqN8fB27uTlWhsGdBr/WFyF8VDXUP98iy0C2d2XH
gD8fsi0n+5ZMYvCIUTVS9+QjYaphiZwcg+f00gfWrnz8O0NBvZPwhPv9ybE2
fAyuPKB7YzKDq7Kc+IeWfHx0kDQlyzNQHLqVO20ZH/GvJi7wU2CQmy2qDVrA
x4cfj+avnMLg1oSBCY16fMwItWhQUmSwZoGqJbT4uCu5Sn0grPBdfOC6Eh+X
ykKUb01lIFHZkrFMlg9r45qiFCUGevIPsmrGeMiL7h/YqUz8nc094DHEQ+xZ
tC1TYbDE6yY13MOD19BYkLwqg3bfpwkXO3l48CdE3E54Q/TVq46veBg89y61
VI1BRaJ9gkI9D4Grc5j4aQx0Rk5NanzAQ9aa1x7u6gymlLnqFFbygMPfVuhr
MHioXvbkyFUe5u3Re/iLcGBvydg2EQ9c26uj/0xnMP3v7ZL1hTyojH56navJ
QPN9y3PzCzwcGD85YK8Wg/k2tp4rU3j4mbat0HwGg8ep3bZWJ3k4cUY3XmEm
g4jBgRTXKB7Mw9gq/xE2q+Nq7w/jQfqsrp2YYtDJ3z50LpAH1cvvlkbQxH/V
4L+qfXjYd2Teow0MA5/L6yyGt/Cwf66ZrIY2g4KZdoUmTjw4ityGugiLP0vp
RG/goaDwTvIVHQbRuZ1X68HDs+0VzTG6DDzOxjjOW0b8aTv1dJMeg8O9wX1J
C3l4XrcnWHMWg7d33WN/z+bB5UJhzXvC85+2jQ+meFDYFHyvdDYDu/iy3f1q
JD6X1Q9EzWGQqlQgPKjAQ+mqlw0b5jIINttZOVGah37t3jeq+gzyfBuzLo5w
MbgiN7+d8MCxR0aW37iYROnKCw0YnJCZG9/Tw4WJarX+gXkMnnxsj8t/ywVX
q2zYfD4D9ukPs7e0cqH/0fygjCGDtDILX6qRi8K3Fzj1hD9nDBr31HIRtUDm
xIUFDBi+Ssqdu1wYFNSoey9k8ONK1Z78m2T9ofxWg0UMBqtnVB4vJff10A6D
hHOVtkSFCrnYJrdi+MZiBqOKJZw9hVzcbjvvcGwJAxm7HQZ7srlwawzbtt6I
gfKhsvEhaVxUaUzVUlzKwNt6vH7sGS5yUgsTmghfj+WmZsdyIf2f/+UcYwYf
uycYVxzh4pdL/mkvEwbxJoly70K4uDclSm2OKYM4meuT1AK48Gld7fqZ8LeO
vwzsfLgYtp6z4fIyUo86v7yTtxJ/8n2/hC1nkP59gbjFmYv0d6Z2K1aQ+nRY
Oapvy4Vue7PnGOGbb+5virPiIlYxevZdMwZz5A9nvFvJRUyZX2H8SgYJnTJP
NhlzsbfuYeN6cwbdakafbhtycUqz9ebkVQyCvlS9M53NhYfKK/dnhI85RF4r
p7hQ//5TmGLBoDFjtZulOhcKVWFXnUDyV9hf8VyRi68Gxw+oWjJweBrYvluW
C9fr23qaCEteCcsnjeOit9Bk+vnVDKj+QovLPzmQ7Vs/5r6G1HOKW+COQQ7+
21KbrWHFoCGtzkS9h4P+vV/6Wgjz1JjzTW852LXv26+stQz8wr3jc9o4CPGb
VOWxjoGl+42f/k0c5Oj6mWlYMzhz2P6z+TMOZptifzNhg2furpoPOdj9/cn2
zPUM9P0VDMeqOJgTYTnBdQPR571XAj6Vc9DFavBR2cjAVDljUttlDjaolh19
TvhLqvSfJiHZbzzTPtmG6LfeDqtmFgdzTSxabW2JvgzLNLTncnBysr223CZy
/yz/gv4MDqSCY7QfEp5Q9JU3MZmDlx8ntsXZMTi7e1aH3ikOAm+pOcKeQaVc
jNXGYxxkjbTHjBC2k0+qPXiEg6FjWQHlDgx6ijoChKEcmPYGKx1wJPrYo6rd
FcjBUV5+yEInBttCH3fO9uMgt9MhuZtw7SW+IMiTg6gLN3dxnBkcDPPZV+XB
gVeKwoinC4ONp0v1pzlxYOQaYavpykBX3u1FqA0HbRbGm18QHihX29VixUFC
SKBOkhvJx7M7/65ZxYHcv458a3cGmyYtmHvNlIO/FkzrkfIgepZltn7hYg4c
v3zqvkHYdnqdUbEBBw4ho7yQzQweJDa9NdbjQPefGJ15W8i8c13jWDOTg7EO
1pa3hOlZqmHu6hyE7850yNnKwFfKZv3gVA7q35yc4LyN6OGiwZpzchwsTecd
lNvOYJWFVofZBA6m5unxqgkf7Xmd1T3KhmunYebhvxlEzdr+7uIwG7c0Btcs
9CT9Jl15a+sXNqbVXCzpIlx5b74W1cPG2SW+bTk7GLws6/jx/h0bH07sf+jo
RfTWXMP+2ms22iT9wTLepN/+UVFPaGHD2n9q2y3CNxqojf4NbByB1MQQHwYz
7p7p2PiEjYj0z/2zdzIQjha/NHrAxqbUv7JbCX962auje4eNhUuDJqT4MrgX
L6zSuMlG50bPhVZ+DDZrO3NVr7LRF/pH8wfhl1lb66dJ2Ginjj4U7WLgKl5l
SvPZOJ0wztjTn+zvinxhWMiGbV2Fj/Ju8n3qpUurc9lw+uel833CP8qXZW3P
ZKPOJEr68B6SD41Xl6NS2LDK/u+wQQCDUk36I+cMG5UOjKSNcMPzoqWNx9mY
eiqYkxRI9L5/QerEaDa0LEf+xl4GKyqdhi3C2Zjo0PPvF8JnNep3RIcS/7ft
ns7ax6DPf+fDe3tJ/DoKNF2CSH9kN+pN9WejYuGt1xP2k/mg/jHEy5uNgt1d
vmWEY++EiMq3kfWT60p8gxnsfb/xkZo7G2/dJt1WC2Fwe41dzWFHEp/D7sn3
CQuHdmR22LAh3LlFLyyU3B+218xhHRuZfmaRegcYWKTtFN8DGxcLdLMbCSft
Nn+7yoyNbLmVEbFhDC56Db26bczGvpAiZvFBBrt0Us5YLWLD4WjBmXbC+snq
/XUGbPwsNL+ReIjB96qccV6z2OgwLRKbHWaw8veSW8M0Gwd91H0/EXYu/qmR
rsmG8yx2Z2Y4A9VAZWUTNTYOu0TMsjrCILyNc+k/RTaiL94z/ELY4k5n9Rk5
NpoTeL/zIhhkdI0GmkuzMXTEJnnjUQb/6CzJG/rDQmJB88fvhOUd7the+cXC
I/lQWVYkQ/LQH3ZwiIUDPKs+uyjy/qiarGIxwILl4tDsX4RdY/0phR4W+tbM
UuBGM9CY/3famy4WYpyOrXOMIfoNm9033rBwSFC0boSwH5Oed76VhT/76hV4
xxiYjGfpR7xkYTZLMdcxltTrwAeZnc9ZkGNSv/wm3FfRssTpCQtTs49M4caR
efJ7gL32IQtqBV8G7Y8zeD++1GPVXRYu5mhd/En4y9vC9SsrWZB/PlOFFc/g
3FaHIItyFmo9Z9rbnmDAb7Z9aH2FhejVFs5DhMsCFtm4SlhYbc+n808ymPQk
a2iXgIV7ppFX150i7ztr/epoNgvxpzuV+gmfqjnDz73IgpRkxPT8aQb5pQHc
29ksvO7un21xhsFS5ZiyrgwWGO83r98T1vQ5Vq+UyoKT8qBn0lkSP/aCwdUJ
LJS/XC80TiD5sbVVCz/JQsQu2dtthOetZS+9GstCy2aXnLhEBju7pG2+RbJg
yzisNkhiUNy91nl5OAv35egr9YSDD6xaH3eA5Gvdu96DyQzUx57pNQSxwGm/
OzgjhejR5ra3swJIfG7/V32XsJ/AISbKj4XpIvet/qkk3lu1hlq9WKje6Fyl
kEb6V2+x+artLNzW/tpbSvj1j7POHA8WXqVt/uB+jrzfJ84zUnJhgdfOF40Q
dr6i3HzMnvgzd7zZpXTy/jlnu2J4IwuVe89krM0g89z3g3vwOhZKE3dUfCJ8
Y8qwwYAlC1OseeLETDI/zqVLQs1Z+B/NXTVj
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1]], 
              LineBox[CompressedData["
1:eJwVl3c8Vf8fxzUI0SAhdc8psiIlpUFeqaTszKQ0kJZkFJmRVWRkdPe59xpF
SZuWhspXikppEGmoJFFZid/nd/+5j+fjnnvP+/N6v1+v97kzt+1b7ztaSkrq
+Cgpqf+/z6psujoQwILU/18nj2Kg5IVP/H4Wzn2We1F5/Rjy/5McGB/Cwqsw
k1a74VTMg31X5gEW3jxSPbfK6TiebntVPzWchdIIo1EGF9ORWLFiBieChSc1
A4VGmRnIk098qRHNQsLpGyeO22dieDt/mBvLwq5XoaE1k7JwRisyb1o8CyEx
m4wHXmbhsrSyJC+BhStlLqcXMCewUdNBUzmZBdP4+j3s3dmQlZk2Le0oC56N
6pnOi3OgUbIhRTqNBWbY9EyudC5K0n4GRaaz8POvuV7+s1zMOnfzVXcmub7v
ouIjQR4eCnk3fLNZ0BYOOvrvPAndJF/6VS4LZdzeps/z2Qgw6JRey2bhaW2c
XWUfGyeGx+4r57LwLar08MFrHCROj9ikLWDB1ma7ojicC8NN055nMSy0Se/N
aTbhwcu9+Ok/MQta3dJ0QwcPkp1dnjsKWPC1urJ5qYCPqXeLA+uKiB6Nowaf
2Ajw05czZVExCzKNu5s2/BZAa0m4NfcMC8udO+JL8oR4Jz2iOFLKAi70Gj6Z
xqA1vtVv63kWRi+3mSCzg8FL7zqXuxdZMGex2IFlDFItD72eeYWFv3UDKmP7
GCi/Su2NKWdhf3Ilu2KpCE9enjvbdI2FkoeLq1MjRNgjkyK1+CbRJ6z3RESF
CHVW139mVrKgfo+RSfwtwtvczzHf7rAw7BQ8odRADBONU+dWVLEguBm6sm+r
GJ+0OIfzHrDgcWT9Xb9sMQZMXfo6qlkYOTW6b3SVGMOTdytZPGJB81zm/uc/
xQgsC2zIeMzCslexj1qnSTDD/ffy93Wkv6NOB5tYSrArN8553jMWHo2afuKV
nwQZTgXK0Q0szC8UtzcmS3Cn6kNszUsWPo22KjY/JYHZsbs8ldcsKK6dEaRy
XwK3gnv+3m/JPKT7qO9ukcAv2u9zUTMLX4/2Fq7rk6C4R0e1q4X0w956/m2F
fExzjRsyaWNh0aHWukYqH1qhnXnhH1kQvj+xhz8vH9vz33278ZmFE5srKqZb
5GPhjere4S9kPuv2OmyzyYeH5vSbFh0suNV5XAlzzYf3cyuLmE7Sn49G/rs3
5cNg86Xom10sxLXva1y1PR92vx5HDnaz8GdVTeLEHflY7zu4dNFvFjLGSba9
8M/HBCPBtcBeFibKLvsoJFwfpvHvdD8LUUyhfJhfPlJmPBvTNsjCraydFn7b
8vHpHFWv9o8FOXlBapBXPlxivLfbj7Dg7JowO98lH3L8b7fiRlGYG9LsP4rU
+61V9ePlMRR0d3tLZ5Hz7PuxrKFdmoLh9S3Nnsb5OLDkdIaaLIVeft6SbZr5
mDS+bJq1PAWl2otexUr5WJAoCD6gQEGY/jdssVQ+9py5zZNMoBBP33098bsE
Mdu25NVNomBn+Nh1wUsJ/obc9xlUIr+v5SpXcEuC27yFMloqFDaN9T7nVyBB
VPzvSFtVChevtW0LPyqBRvXKmmB1Cld930Q175VAd8z2LrYGhUa5ul9ZDhJo
PUrvvDWDwr5dT+TYRhK8Lpd+0EZROPnEc+kPRQmydg+HS8+i0BG1hO7uFMMl
7by8jhaFZbvjzVc/FUOu0SV8jTaFsFMRsjFXxeBPmf7QT5dCqR0ZbkaMKXpL
/hzRp7BH9Yr64mNiZCk1jRUbUCgb1PoyI0wMjx/GfTfnUrgXw+Ff9BPj5tDO
x6/mUeiclFJx100M5YKS5B5jCmZViac0rMU4Fk7rj19Izmf/sy17qRhjlnVd
mGVKodhonq78XDGamsy0liyhMMFv/PONs8S4kGwQY7+MgsKXiysDVMVQF7dU
bTOnkOg25KWnKMbamtDeUAsKl15OVQobI8b9DwoqySsoGOT8HG09KEK3yp2Z
7JUUEtRmzE7pFuFM/ZkZp1dTqLbpPGj4lfi77otc+RoKLrOV7uq+F+EKK7X9
/loKn/qq3QNfi3BO48zVZzYU0i7ZfRl8KkJAhFfEOzsKBUduO92uEWGv7bkF
Xx0olM+6drDingi2g5fe9zhRkD+rMqf1hgiznCIT/zpTWPQnbrTRFRFqYpU0
x7gR/d0zV4nOiaBHx5fLeVCIcHN9anxahC3zXq2Z6EnB69inCa1iEcbT054p
e1FID1z/qoAngvcTBw/VzRQubK4OOJwrgvvx6LfqWygkW+XsCcwQ4T+9Yi+N
bRS6zzZUBB4V4dDHhiYNHwrWq1LjYo+IMCdmxEvDj4LsQvm5gmgRuEv13qn7
Uxh29nKvDhMh8Y3DVtVdFFoCbzz4FyRC9ql97cp7KBw8/Wy3+V4R7A/G758Y
QOFs0gWPxB0ijOQfkZIPJPUaRtxs3CpCLmt3zpggUl9Dwsd5XiJEbjOcPxRM
4WfaJKNMNxH84m83/AqlQAe6KvU7ikDNUTv87SAFxRApFV8bEez42qat4RTc
uvtqG1eTeq819TVEUGg329vsABEsRulXVUdR+GZu8KeW5LdC9hDvegyFmP6Z
j+0XinB18Yr4s4cpjFJS1nlhJMJZrw8HBfEUGhZG1nrri2Cu+jjieALxu2xe
2g8tEQwN2tOjkig4j4rBYUoEmwnql3enUDikGXRbdZoIf95bf/c4RuqR0u88
P0UEXszGRavTiL59a4sdJoqw6oBJ9rx0Cs3/Wt79lCPXK16R0cikwDr6JyRn
rAgm6+4cH3uC+LFo7gbzEQb+3xcadmZTeOgSeujLAAPLAz1tDbkUagvO/Zf7
mwHLoKHs+kkKH9bGLLHuYrBJ9WqeiEPhgaXcraGvDMplD5xM5FHYcK/K9tJH
Bpmcbxd3CSi8s3VsCmhhsHRB5zc7hkK0ha2PwRsGFuNcl88Tk/oMljZ/b2DA
aPSXTs4n+eG0BWV1DBSsS8x7Cig4lZUlHahhMHWJZcfTIqKP88WzFvcZ+Aal
l5edprDcNfjs+NsMWhx9Co+XUHjmFBD35hqDGoXMy7vPEj90Jeieucyg5/rH
z2vOkTyy/MWNJfv3jrPhMs3zFL48WPbavYSBW4npxX8XyO/f12meX8ggN6rO
ofESqb+jIn+CiCG5VDm57AqF7CEdwx9cBm+H6geSyik4+jUE1+cy6MivlfW+
RsGyzPrA5UwGN++EWyy8QWEyZ54xP5VBtFAgkL9F8umNa0FSEgOdQ1I6LZUU
cnbyHofEMQiK2f76wh0KN8hG9olicL/+6JWEexQ0ktMWuocx0EhYXOl+n8KM
Gf77bYMZfC42/K37kPhzV6XnqgAGf9bquw1UU5if+LRr+U4Ga307P1XXED+k
fplr5sOgc8gkP6+WQsD8DVPNvBnUT7yV6fuEglX04fzlngyO8ledM64n83T9
YeNKVwbzTsX/G35KIesQu9TGkYHaooVRNc/Jvri7S8fNhkGes5JRzgsKb9df
xnYrBv9Nea7s3Uj0H9PfH7SCwZq8uQa6ryn8XnjFPsGM9GfM27CfbyiouB8E
x5SBVUba4NUmCndCH9SeN2ZQGzt4Pvod0aNtfs8jQwbS+i+Eq1opsJvXnfui
y2B/T12VXBvJW/uC0bJaDGa78GY++UDBPr7xmx7FwOfdtyuZnyjU/Av3syfP
X6tNdye4tFN4vFwnJFSFgfWM2rSpXykECyKUhJOIHv7X6xu/UXivrYJH48nn
Ez7bn/xO9A058XdAhkE6q1/W4weFX3l5K+eMZlD8H29k6k/Sn9HJhrcGhbjq
Hb3gRTfJhydh7frdQmSstyrI+kWh1d/mAq9dCEdTvqvDHwojPTbHlN8J8fSh
/urxfRTUyqv3pTcIofkxJ+RBP9lvU5U2TXokJHlx5GPsIIUm/0OOuXeECJfl
5SwdoiD9y3XNzHIhvvNik3/9oyCpH1x+vlSI3lcvbpaMUPD8fNvEqkCIR4sp
7nkpGuyGUdqtXCHcZs8dSB1FY6BDbVJMlhAGZv4DO0bTmKC5/eesFCHmMzN4
lmNobFe0qHoUI0StouD99LE0jjxXSAk/IETO28U1vYR758w1M9grhNRfM7d6
aRqDLjJvP2wXYsJAf8JpGRrSEwe3MZ5C/Bq+tiFuHI1XefuebnUSovJZ/VNP
WRpqhU80da2FkH2V9MNYjtzPN9b913IhUicZlsnL06gP6tp5b6EQb6YrqrYR
rnqd5HHSQIgesxDNivE01CdfpYM0hfjiWPoiXYFGan9HpeM0IRJey8z1U6Th
/zJ3gclkIdr7qw3MJtDY6qoXPl1WiOnBFs8mT6SRHzf1uNyIAHdLL7HaCcvX
Ptv3948AostBSjcm0Qgefq7R812ANQvvnc2YTMNsVWZ65wcB+DFdP32UaDRo
xld3vhEg7hiaFivT8InWrOp5KsDWP8P7FKbQSD/eGTNULcCDkaAzLYRXtm8a
kL8tQM+Jj5kXVGjwg3oMWVcF2GPJpROm0ngRqK+xqFSAkyvfebir0lh6MPHW
+gIBEPZ7qZ4aDdN9ySohPAHm7NJ6OEjYJ+fiDM4JAQptL/17pE5DGJbaUHVU
AOV/X9/xptHQGThp+vuwACFjxu/eq0Hj7potq3TDBRjI8hKbT6fx9eOu/i2B
AiQe1UxQnEHmQWjpJNghgHlovnIzYZ/cINvWzQJIH9O0P8Oi8cU4qV3bTYAp
5z+aRFA06gwm0EF2AgQcmlO9lqbJ/7DcX3dWCRCou0xWbSaN8Rll3lPNBHAq
cfvziXBTS+fWfQsE5BHtdvrFWTQyPN731eoL8GTT9cZYTRq/tSjKaBY5T1Py
YzstwlfNXuSoC/C0btf+abNpdDyqVx01WQAXtvjeZ8LftgZ/DJQVQNFuf9UF
bTJvd24u/jTCx5zzqiHROjQKQtcpbe7j48Lyl8/W6tJ46Xg54O0PPrpmdrZO
0aORvYNrs+kzHz1LeYIWwpQSt/BDMx9yLE2FYn0ajh3OUQEv+Fg05Y5eyBwa
H+r8Hv+r5aNQ43KfuQHpf3NodmYVH3pfzA+MM6RRGqxVr3eDD/EHdkE94XdG
qtEPLvIRPXdcInsuDYWfv7g7SvjQZ+6pbjOiEVi/VUdRQj5/qLBRfx7p1xw5
1lUOuV8H5dhD+GjeiSjfLD685Jf2Vcynkfy1ZKXaUT5uNeU5Hjam0T9veG/d
YT7cnod6WS+g0VduOng0nI9KtUkaE01oYNy4z+v288HNFKe+IBzzVsNo4k4+
pJv9z3MX0jg/V+d54xY+8a0gZesiGlHGb+vyPfiomhCtomNK/OTYMeuAIx/b
31q6fif8QU+hxsaaj741OmvPLybznPvr7myQ8wh8u0OX0IiWeIwfu5iP7I+m
9kuXEr9n/2I+G/Gh2dLoPUzYuy3q8GMdPuImxmjfXUbDZvGF4nKKj9jLfuIE
MxobDthOO6XKx966h8+tzYke5+SecCfykTzt7bXxy2nk6py6d2IcHx7Kr92f
ENZ0a+9PH+FBtXegOMOChlVb0u6MPh4UK0MvrQfxk8RGPaeLh1/6R0KmrKCx
WfxnhN/Og+tVr44XhJOnrJtR0sJDp3iRep4ljSDvCftuNPIg+8N62H0ljalT
5X49reOh2bOGo7aK5EX/qKKOhzx07e3+8Ypw+687yXK3edgR8Hvw5GoahbRy
7pxyHoL85Co9rGiMune71qmMB66m3zK1NWT+1ubpR57iQdsUgY2Etex9zhYz
POzsrd2Ua01jT1bv+uaTPOhErBjrupbGpNEs9SmZPHySPNuuvI7G9bKSf/Yp
PKydcjnyKeH7r/cPpx0m3184wyHdhuRNy0r1p+E86C6yeGtrS6NrXa+NWhAP
SeMdZsrb0ciq2Zy9fRcPUvtjZz4kvMnY5eeFbTy8/CLTFG9P6jtUuklmIw97
bqg4wYFGym2rN5uceTg51BI7RHjPyr7tFTY8/Dl8cne5Iw1LP26/2ioeTDv3
Tw5xoiFbOjE30oyHyCJBkNF6Gm535i/9aMIDr80x/Rvhmh2tbQ6GPESzr+0o
cKaxK+VvWuVsHrZmKA55u5D9M9dnyQIWDwtcI2ynuZLrI4faiqfy0GSxcEMD
YefrRcnaE3lIDdoz67gbyXe7dbqF43iQf+N0ao07yctL/1XqSfEweu7UDikP
Gq/TFOzO93Ph1P31WwVhdvbgY7NuLhyD/hUFbaARIYhE7VcuNB/FzprjSYPL
ixR7t3Ex/F7i+YHwSc6n7t43XITvzHXkbqQxfFNikPWci/rWpLHOXsQ/q/Md
59dyYZJddEB+Ew3PlBcbG6q4mMTXKrpDuL5f2zbiJheubYa5YZtpJGmkUNpX
uLih1rPSyJv4N73zeUMpF1PvCcs+EZ40fs2OpCIujhn7NnG3kP3gntJoznDR
nhj40GkrjQrX07P6T3LRVNq1f9w2GosHeVZXMrlY4z+p6QZhNfuNK8KOcnEI
UjJB22l839s0aXk8FxHZ37u0fYjfUtQvjovkwi5zNOctYbQpaL8I4cLIZN/Y
DF8aV2rP7yjcy0XbOm+jVX4k78+OPRDhx8WP4JFp/YQb/o52cPHmooUV+bBk
B8lXs5Kf8zy4SEkdtdDbn/hV5p/HZCcubOuub1faSfbVv/6EP2u5WP/opfN9
wsYvmNBmSy7qFkVLh+2i4evQN/u/ZVys4jSH6e+mEbdUKqfchIubjnRpE+FJ
QbdvlxgSPZP3FxzfQ/rZbF4k1uZCY8XQZuylsW1/jBWf4kLGseNNN2HPOWk8
rho5v9dOdUkAyVuVwCL+ZKLfe2aayz6SByuMfSXyXFw3uvFubCCNnCfvnp8Z
wwWz85PvZcKa7w93VwxxcD3Jqsx3P43KIt0bNX84+OAmd0sliOShx/v5LT84
aAtzT79PeGjedce+dg6KfTy1QoNp2IU+mKr8noNcv2VRWiGkv/umxBm/4UDI
aHKeE9bdfzXD9TkHHHmziLhQGvOf3EVkLQcBQWfp+QfI/nq/LqPwPgeOkczR
FsLF43yjGm5xMCA2r0g7SPaLREdGppyD96ZnzywLoyFRL9Zddp6DA9tVfb8S
zqof+yG4mAPn2fltueE0QuY7LSiTcBDmEjF71SEaRYWnVX/yOIgRVhl2E97J
1Tu+IJeDxtSiv/wIsu8iOrMPpXPw55BN+rpIGrfOK+nfT+YgjWn80kt4y+mr
NspxHFQrBMtKokgePvrb5xPBQUjRqh/20TSMYkcMroVwsGJ+MGeQ8CaDj1+U
Ajj4sXK2YmEMjcvGtXr7dnAQu/6wlVMsDb+eN51PtnDI//SzVkOEqx6YLDD2
5GAkoF6x6DCNazIjfSedOdCWTOQ5xdGwH7tl6Rg7DuTpzO6/hNUUYvoDrTiY
xDk0oTCe1OtzZF6bBQcqTHePwxEaAfbsVrclRH+uhnCA8ObRX2TqjDlQeDpD
WZJA9sUFrmidAQc13jMcbBNpvE1qLf1vNtHH0sL5D2G7/A8GthQHlg6nKEES
jYfUc/VnahxUmUZdskom/pB9F7xRiYOElLbJXYQtfUyWfBnPgVTpkGleCtl/
c8b5h0lz8O5bl7bFURoC++Th8SNs0Nta330m3Hvu26C4n431Sj3ex4/RMNTZ
ttG8h43yl9bFC1NJ3kRrst52sBGxQ/ZWE+HxoT4rIj+x8WqDCzc+jTyfVWy8
R7ewYUs7WuofpyH1A+LqV2zcl6cu1hNeWWjbFPyMjWqrj50H0mmE+5Xvm1XL
RkHL3Z7pGcQvklueDffZEN5qvnOX8LE7HG5KJRvqJe4b/TNpaKikzLOsYOPO
OudKxSwacu8fqA5fYOPWzF+dFwhXuWU53DzDxuusDe3uJ2icydF/GVPIRlHL
qZIhwtnFdadXM+Q8umOWibJprEm/Wz2Bw8bNvUdzVufQGKe/ev7bE2xcSNty
/SthZTvO++I0NiasKTqTlktD74r0q6gkNv4HzsQwrQ==
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 1, 0]], 
              LineBox[CompressedData["
1:eJwV1nk8FV0YB3AVJUuJoqKZsSRZWpStkieVpex7JWuklCI7IbJkV6G5uFeW
FEJaiOglRVpopYiiKLKkDVneZ/66n+/nzNwz85zfc85IOp0wc5nLxcWVOIeL
i/mVut9ZMeFBwJszJfq6l2JhoujNoQhPAq7Eh3Q7aMRB3uNcX35vAl7ePPBb
YzIONoDRSIovAcF11S0zT+LhhVN7q2gAAZlZ0U/3FSdA1N0dq1hBBJwUMDqu
SCdCOl/UW/EQAm6UzvhHJifBjHPWTEYYAetsnO0N9ZKhWCY4fWUEAZWC3mE9
T5LhNo9IbnokAdHlk/HbzVLggLSxtEgMAeevLewrfp8CvPNXrkyIJUDer/hX
1KHzIF607xxPAgGHxGfNN42ch6KEUa/gJAI6vcwWrA68AFKlNe0/Ugi4XLm3
4j33RWjkZN5zuUiAlT7774fEiyAX7UK1pxFQk730Yr1YKngoDvHo0wRMNfZ/
Wc1JhQsz3CcqMwgQDjffVCKTBlESQQdl2QSMi4is5LuaBkoHV746n03AvZdl
80bl0sHWuvDFdA4BAiJZeasK0iH3yMj+w/kESBiNRVhLXQLR+sKTLQUELDu+
N9GNdQlGXVhLVQsJGLhWeF1yMQ0yGgF6GcUERPE8PrIvjIYunlnB2RICNAyM
kgeHaPgY8dHV8QYBzpXeHyutWfDWvsWi/iYBCtZXqq/UsCBeO/Cd5B0C6u6a
v2OTGSDSHv8ntJKAZ4uiZxNPZ8Dzt6XXO6sIOKvrWOfWlgHH5p/jUq/B/3fq
V5VUyoQWnerRlPsEpM8bu18WkgkdaX2hA3UE8DeIPxV+mgmbxa+W7mggoESW
P2X3siz4IsM6k/6IAD9lmV79/VkwoWbxd7CJAGrhpWGpjCyYWeIurPWEgIrA
+Vxv27LgZNnJ18nPCBhOvuJ6VIgNq6x/bf/UQoDWlpA133ax4WhauPmGl5i3
lrb3tj5sSDbNFwl5TYCk9WqfF5fZUNfQG9b8lgD3R0rSFs1s2BZXn7nsHQGh
mrdX/Rxmg1X+Azf7DgJKPd6E1izmgGuIa1/BBwIWd2dJP1DkQOHYGrGRbgKK
zb29lupwYKVl+NTmHgKKjtYa1h/ggIzPUHrAZ/R3j/sfjnPAOa9r4F4f5k08
ctAvmAMq95r+zHwlgEt5/2huNAdspCVqtAYJ+LZzqMEziQP2r3S0QocI2MF+
GPnzAgcU7W6F1IwQ0B6gMaKRygHDn8+CJ38QoLS6Sd8Kx81cJreo/sJ+kHPY
ti+RA4vWs6tO/sH5ttnwmUdxoNVffPraOAFGDV/CzYM4cG7Vy3k9kwRYemg/
P4LP96WUbF0+TcCirmeP8mw5YBFq72w0S4Ds9rrVwvocWJg1UBs+h4TuO2fi
a5U5MPBR7PPteSQIF9RL3V3BgRPDW1/385BgyF/rKjDDBl+Na8nLeUnQD16Q
9LCbDUL8ZSv1+HA8Wll8sJYNm6LYp3wFSHA5WjMTk8GGY8X/ZeYuIuGFzcEf
BbheoU4O6S1CJOzo3yViYsiGf94PD00Kk1AoY+wRI8WG/zJV5sssI+HB9p4E
699ZcDriV7CBGAkKwu58Dx5mgXjTzuZTK0hI89AxbbmQBXLznEdocRIUww0g
zD4LZJ4kDdWuImHte8HcdrkseFfJ86iHJOF4qwzP+5FMOO8+E8AjRcLcT5rJ
qlWZYJFwg2+NDAnJTSUVRrGZsLDNIkBXloSo7w3Xx+0yIWupRKOrHAnlCvG7
LdUyYelajd9n5Umo2Ogack8Y/0+4kztHkQQ+f2350tEMsBlW/luzDv8vz8z6
aWsG1Ewdeda+gYQPrephj8ux3/KLYsaUSfgaQjUdS8uAuABKnl+FBJ+Fm+7G
BGXAvK0j5VJqJExZT5ATjhnQ2blNRkODhLyqb5XZ+hlQHqMYarSVBOWhTv/D
yhmwIqe7wUmTBPuySV0NiQzQb/b546NFAt3XJsSzIAMe9gosi9mB6xP4T/De
GAt+LKuTpHeSUC1A7TbtZkFxa/Gqa7tJSPyeKHP3KQtaWr4urNQl4Vucuca3
KhbcIeL7H+qT8HaEHG+7xoJS8eKKl3tJiPlQcSGYZoFHkG1QlyEJs4nRH56f
Y8Fxg9JN34xJCBR4ItcYyAKDyVufxkxJuD9qp2d3jAVSpsFR/8xJ2CDD9kiw
Y0FzmLD0PCsSzj//JWdkyoK1VETlQhsSLB5MWLF2scBhQ7vu4v0k8L8A6WPq
LOCnVr4UsSWhK8N/ukaRBfbPjW3E7EiIJiNSYyVZYJ0Y0rHCgYT0nwZtT0VZ
8Hhtoa24Ewl3v6n2hwqwIPDz607xQyTMEfhBcOayQCF01lbclYQTniV8shM0
ZGxZ27XCDetNc1yFRmmIem/sKHaUBPOMfIn9/TRcvHqiX+QYCe1tm7Rnu2gw
8ovwXOxBwtWjNqJTb2mYzTvLxXeSBA+3L7MGLTSkEe6p87wwj8534oYbaQh2
Uto4dQrXq3SR+4f/aHCN+O/1Tx/M0zVBL9EqGkiF5WcG/EiQfK6alnaTBsMs
WbWPASTkdPEP7b9Og0JV59/XQSTMK6wodCigQWuOfEPTaRKsoInKv0yDwMWp
zOpQEuLP/723OpOGCvUdEdfPkLCFPYf3YxoN1217/dgRJDxxis57kUKDptiz
oMRIEgbHpg3H42lQUuxPOh2N+Zl/rc00hoa9i1bcdj9HwsfQbIXOCBp+f9L7
bhNHwoD9R/3UUBoyQw+o7k4gYftNJ92gIBp2+W6+uCEJ88m90zDeD68XvDNf
PAX3g28D6Y9O0bB5T10i9wUSJvfq+sqdpMHtu4rS0EUS6ufP1y87RoO271jP
6zQStp3tOGN7hAZC8XVZ9SUSsnlacxRcaTgoVpF+mUWC5o6LmhLONFTy+l6K
yiRBmu/DmKIDDSmsgZtH2SQE33noaXuQhi2bhgYMs0nYM63ud20/1muB5fYN
OViPBQ7PhG1oyBYfL1mSR8JuT7G96ZZYP70izbF8ErzmHn2lYk6DqIb24IsC
rFe7kOWQCQ0uXkmVZdew31+PP75nREO3yaEriUUkfJn/TDXXgIZmgZTb7tdJ
WDMZWcjZQ8NY9ec+3VISuJOmNW/o0VBnrrRV+gYJIibRIm06NFgVqd2cLifB
YW6CldBuzMvpFuO2WyTw7lm/1XYnDVvd7y8pu0NCuNrA9N0dNHRMtU5EV5KQ
eVGzVw5oGMx7ymtfRcLjxzZqV7fTUFMXoKVyj4SFqs2Gapo0hHDYbL5arNeb
jWfebKVhTSDXmu77JKwX/qscvoUGr1Dnd+V1JCzOnfNkmwYND1tj70Q+IMHf
xKeCW50G8Uj1+9YPSdgXc/LYO1Ua+gqVfsk1khDKeeZcpYLrqy9vNdFEwtn8
PomCzTTouwx9aWomQa3sgARnEw1DU5vz0p/ifnG2Y/CyMg2ti2tTXJ6ToHV2
eEXpRhpis3aVKrdi/zc90Hi0gYYNVyOmZ15g3sy4evvW07BcVeV08ysSLmkm
3xBCp5sLr099g/3THrB75zoaHi99JWLfhvnLKNcOUaJBN32dotw7ElgffpvU
KeL6zOvwH32P/bg9S1wArZOcMFnRScLvokBTOwUanoZN3gjpwv1t4mZehTwN
PPJvOLs+kuD2m9MshvYca2lY2EPC4a95QSFraVhtkSn5vJcEmaDlpwblaDjU
NXAn5QsJJf3UCTv0bjX3SIt+rPfJ9A1ta2jQW/U0QfQbngf83wMt0UNu1a1t
A1iPLXxL38ni+KI+o0vf8X0ntzc4opOIcV6bYRLgCWk1spqGwseZs6KjWO/b
Xmln0BX2IZve/CBhv4WYxXJ0splO/vmfJOxqHrW/KUODiVqWpfFvEnw5rfFm
6BeN8rv5/5LQdNqp9Lc0DdKfU70fjZOgVLecnSnN7BdnP4dNkiD/esVGXXQA
b2bqlik8n4zXaf+WouF7ZljMz2kSnreVFl9B/2l/U1M0i/m85m94AP1Ency4
wUVB8ttXc0XQVqvXTcTPoeCKvEfxM0kaFLe5TRyeS8GfK7oKceiN2asytedR
0J6Z77gX/VSQ/UmCG++35tm0CJ3aod78B33cbPHZVxQNXP+2WbXyUCD7O3ZL
BnrRxHjktfkU9Laaabqgf85U7QtfQEGljb73RvT9l60v9vNSECBk1DRL0sDb
Hj2svJCC5UqbpFvR8UJKZXx8OP/lmydy0O8lBMV60P2pR2hf9Ng2b+m7/BQQ
2x/GG6C/mpS8SRKgoEqUW00GHflu/jpXQQoUA+Sipgka+sebFLctogBif7i1
oyVOab1cspiCz8Gvnt9C15fcIvrRyrKjBefRl297Cd8TosC8e/EXT7SuyoPr
yUtwvnKWnxk6K3Rk9JAwBQbPUkw3o8PjoFNdhIJDmudcxNCOv2dOCCylIKb/
8pV/q2h4NOtV3I0+9iCC9xN67MLnlPJlFHw1tQltRB/TzqAiRSlgGz6cLUFf
2tllYy1GgcOF/pB0NPj/2rJ2OQXTWkZjYWiFozKNk2jbOX+M3dFXDG5NP1lB
wdVLuxKt0CLT37oyV1JQHsedp432nsfvflycgsB5jjHr0RPnbXM0JShY8vaT
8ip0VKx0pOAqCkSrDmfwozV98kQ+oLlz5KomJbDf4qSNigkKmjSLowfQS298
3hxEUjCe3TT1Hu0RqNCkT1GwWYAj/BR9Um4r73JJCvTaL9XXoE2LrH5/QdNn
Ds0vQ2fn/Jd0Uwrf9+VYWw76+cHqtjBpCoQVvTemoa90xjwzlKGg5JulYCz6
RctRz5WrKdDq0XINQVvQOQ/60N/nCKudQgsaejaUy1JwZ/pToBta4YaYd8ga
CgTICUU7dPn2ty/15SgIl32pZ4EekRz6uHQtBf/tEmvegx7bksnuRpfJZRfv
QC8kpAUK5bEeUie/q6NVl9at9Vag4J71rcgNzPOJ3/6rqUiBk1C9txx67VdN
3wVK+LyCy+5Q6JxeOr8VbTtuqLMCHbJuQRS9DuvVuUFKGC2f/UDMaT0FsZW5
OvzMeKPAAfkNFNgtvV7Gzcw3SJqMoc+WeR2cEafBlm/L37sbKVDdpr5nHF3b
mW5yRpmCWnE77zG01SsfW71NOL7V4d139P3lQuKLN1OQOfTatx+dkZIT/wb9
uM19Tw+a54PbjQwVCm73fTf9gJ60YJ9zVKWg1EQtrh3dsChk2Ro1Cv5lw69X
aOcObcvv6MBnInEt6L+6a/RvqFMwaNlq+AQtz3b54aOB+T92bUsj+uJnNaMt
WyjIlf1i/AAt3d1mP4N+XtERdx8dvjhUtn4r5rv8z/dqdNht15zIbRR0mpZ5
VqKPtzS+0tOkYPTJ+eW30TErO6r4t+N+cFXt4w20jcg76+foKCndxhK02J+J
wmQtCvxi/Z4WoQXv+9wyA5zvdvzwVfRP+bPeS3dgP56wVryCtqywHXyD9hy9
dTYXPZSjuiJdm4I628Q/2WjeYb0Z650UcOm2h7HRH/Y3s5bvwnyqn5fKRI8c
/zHcjlbe9ug9jT7s8Wvy0m4KLnnHXE1He7kuvG+jg/13/U9sKlN/adety3Ux
HxNqZy6gZdXgZBtaxjg4NgV95M/Tg2l6FLQoTOUnodcE7eC21Mf8bh1/mYD+
kvvSWWQP9iPXXaF4tP7S28Ev0IciEu1imftVVhkn7aXgKHdrdQxaTlWrw8CA
AvXrHWui0dH8xpJ8hpiPPaI5kWguzzDJRnQw9+Das+i3X+d3RhhRwEs+qQ1H
H7u3zBSMMe93lBzOoC9NdYdNocfPJgmGoX+fueReaYJ5yfN6FIJWG/Jc4m1K
wdQ+u9jT6OACttd6MwqGO7psgtGZPSZJA+hsKnJjEDqErjqcb06BW1GfSCDa
MVlwyt6CgqUHs2b90ZssgwxWWlKwUkf3lx+6U0tl32v01cCoH77oeK9jUolW
FMR95frrg+Z7b3pV1xr7eZ0DN+O560QHuWzwvPE1XeGNNv3xbeAuWtk4UuUU
2sRrusBrHwUXY0ptvJh8PgmTUthPQb1wdLgneuZT7v5e9L7Oh+Un0QFH0kwy
DlD4/Sz37QS69WM0t7kt1k/2xGrGmy8W+PIdpODgkQOHPdBCWTIFdegStfKS
40zeepTS/O0oUKre8u8Y+t7ysZ3r7SlY6FVrwFj0AafsC/qk6MJcd3Scsktn
hgMFEtFfp4+i+6NONpo6UvC6TPEg486SEc8FThR88i/47wha102o8x7a9qqi
HONA4Jrv5UyBdXvKBTd00MXvI7KHKOiyK5nL2DBlLqsDfWfbAZ/D6PWbT3An
u+A4/6lBV3TPHvv1u1wpaB5+cYjx8KnZlePovWGWn1zQ3URwY9FhCuQaOh0Y
n4ufo2LvRoHucr3eQ2iDlmpn4SPYb7IBbozNnrw1f4gm2sxGndEtqiE8/kfx
e2Ln3UDGu1gf/OXd8fuhMGUB4xoTqqQTPe5Yn+bE1DPGMz/xGNa3RVmOsfiO
KTs4jvu/zZNqR/R8k8H3P9AfbX1MGQfaHlmR64HfM7Li3xyY+n3KXmlxgoLi
voJwxtXr73Vxn8T78xcQjLOPfHG5jZaANdX2zHi0TpmLJwVh+37tY9xrtbB2
mRf2h/XBSTumPv7WSQ/RTlammYwLD+2X8TmFeZb9T4txmuvW0zLeuD5arM8H
0ZxsadYrdGxtayxjFt+2oHAfvH+/pTJjD6/r1EZfrJ/jyg5bJp/B2bHd6NYy
4UjGEzmadxP8KHAv27iB8Se168Vb/fG82uveeQDt6yzm8g098/3mOcbmq/N6
0gIo2OnPpc7Y3yJo9a5A3D90dPr3o0M5DUo/0KlEUDrjtviCf1lB+L4qqXqM
fwfuTdoTTIHU6rjJfeiE7Lavf9B+A+bXGTcJnOLNPU3Bok99Doy9C3YNG4Xg
9fe3LmO8Y+Mp1iR6OGVPsw2Tn52rBa+EUiBUxR/GOMzsjI5pGK73Vz9Vxn7X
rutMoSNXxAxZo2c9WgULzuB+m6qSz1g2d3GmaTgF2l8DDjLmo1J+/EMrfjYS
ZSzEClx0JQLrxSppsUIvy/4xZnyWgsO2F84x5mSIcybQr2/93clY4MUqkdxI
3B+PvJ2xRDfbrzI2iML9wEe+inGotpb5b3Qs34gPY23jqyQ7Gq+PI5UZN6id
vqUTg/t3XMWwBTryXM+SEbTW0/IixlwlU2rp5yiYqyl4hHHXwIisViwFF/7U
yzKmnD529cUy+3vrZ3OmP4TH7BPj8Lw6tTGXceVbvUKVeDwP1/c6Mg46zFvb
ibaV6qEYt++zyIhIwPpIKnw0Y/qNMtGWT6RgQqqaw/ghH3mzFf11e5I94yad
z0O+Sfh8hXkk4/zu+jGJZAqKKsa7TZn61H6oq0ePvonJZryiyPqAWwoFDYlm
jozr9pjfFzyP51mkuRTjWsmfQ+VoAb9zvSbod+f39VtfwO9z1bE8xgXdV4um
0DJlca6MK+Xmbb18kYKQXnM5xjXHY1N3p1KQ06c3YIwuT3Co/oa26XUrZrxI
t6A4IQ3nEy33YPw/mgS/+A==
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0]], 
              LineBox[CompressedData["
1:eJwVl3k8VV8bxZVIhgZjkXuOSNGgQRTKoomKlESjjClSJJkyRpKSEjKUDCnD
PedOKFKiSb8iKYoolBKJUpHq3a9/7uf7Odu5+1lr7efZV8P54Ga3sWJiYmfG
iIn9/3PG7dbSYW8OxP7/lxqH4cIXrlE+HOwwX3J2hlQ8ch/l+Mv4caDcu/CY
3vXTWADr/kR/Dmqu11d6HkjAM+fmeuVADvbYzXb8cf0sYm6YqacFc3Dq0PKk
puJEpEjHvFQL5WDc50x7UdU5/HXJ/JsezkG06w32add5FGmFpKhGcaCa72i3
XvkCRBIKOSnRHHx8VvYIdsnYoblRUyGWg9jJBmNLs1IgJamqejqOgwJb/eCi
n6lQK9x2UuI0B+mVG2qmbUtD4emvviEJHNQXO8d8r07HDOZW80AiBxauiyYu
MszEg8sZFW5JHLQbK3o+4l3C7BNudHMyB2Fznidvn5YF77l9EpYXOViffXNf
UGsWzv8dd7AsnQO5wuAf969cQcz04F3alzjgtkUcv++RjXm7VJ+fy+LAdtuI
gfjCHOy0L3j2J5uDwCaJ1TIjOcjZ1799bx4HTO8sU5/qXCjfLThUl8/Bm3HT
l/4Xn4evbmmKBgVET9S1l9pdhdayQIv0Ig42nk9NalTPR5vEP7l/XA4u+ad6
PejKx9uot+5OPA5kSmMNjAqu4aVj3Za7Ag42rdfzazlwHfHmQa80Sji4+VJk
vVuvAArN8T/CyjioLq+OCfpSgKcvmeLWmxy8WznRubegEF6SJ8WW3uJg58fR
BD/XItStKf+aeJuDW/ykSc2qxWhJ/hDWU8WBDY4qvn1SDH21a4xZDQd3Ina3
bTvGxXuttIiU+xzsD5+XpazDYNhwy8/PD4m/Zy1tP9cz+DvFU970MQdNM8dY
OBixOMQeajz7hIPu/RbLNOJYqNt/X/GujgP65dpFd5pY7E+OtF3QwIFXsucx
bU0ezm7KUwht5OD32KjONV48VNV0hte+5ODwmMkXlQQ8mJy6m6H0igOV2K7Z
sT952JpX7eHYwkFw3KfdF5bx4R7q/iH/DQe69HL9JYF8FAzOUulv5+CY07HS
PSV8qNpFjup3EP/XufyeMsCH1pG+lMAuDnqXLhxaqSOAS25bT8UHDv7Gt3kO
7hZgScXDH38/cnDNMCZQ9ZwADprTb5l+5uCDxg/FG3cFcHy+xjSsj4Mki/fe
/30VYO5uYeitfpI3mdMjm6cLYfXtScjIAAfWSmPfr18txGa3ESOD7xw8zzSv
KPEUYqLepZuHfpC8DTkePp8gRH2A2p/rvzgQF3to28EKcVK9QbxjhPghfqUr
p06I9wxVP/UP8b+pebj5sxBbwhxdrP+RvMgPHYyUEGFCZk9l5BgK+W+jqCvT
Reh5q9IlEqdwUWeg3WChCAe/GDd2S1DwsLsbu2qlCP7Lrp+dKkUhqudj5+PN
IkyWYVUtpCm4ZVtJP3EUYXHMpcP+shQ+9Mtfs9wvglfRnYyciRTmnk4WmfuK
EOa8J6VuMoWZdiMqN46K8NvvnuuIPIV1Y5QDioNEuJOxRFJLicKkdQI3OliE
Y1HfQzaokPXWJxbLB4qg9nBl7eFpFDYuiW2P9BNhtrhL/0U1CpOjXA19D4ig
9Tihr1KdwtaRVLbdRYRXZRL3OygKB4t8bWvtRTjn+TdQYgYFncsPw96sE2HL
aZ70LC0KJpW/S+RWED2atgSu1aaQUfE5dTupP1Nx+gP32RRWBBjVVmuJoKiz
bOi4LoUH/P6vFlPJ++Rbx2XPpfB3KET4SUYEhy+Lft6aT2Hs6du38v4JcWt0
35PmBRSCp4wpDfkmhEJeYezgIgorr/9Y790txKlAWldmCQXutNs6QS1CiBv3
82cYkv2VtP+9TPxrbTXRWraMwv1e8+D2aiH4sXPDrI0pVJTr2SwtE2JadnuN
83IKRubrFhQUCWFZe+THEVMKyYdP1ulfEeJep6xSrBmF37pLO5suCDGgVKVx
cSWFJNFHjfNxQhTVF6lfX038jTqy0j1MiLq6jxPK1hK9vL6LbfITooQT333P
koL54lJF231CMGpFpQ3ryfqx5kZeu4XwDt4Z3GZF4Znx6vkZtkIc2MAs/rSR
whUnreIOCyE2jAjfDW4i/ksGHDVdIcSMTSExv21JvYnWVvzFQtSGy2uKb6Xw
YvBxv5GOEDp0VNkEBwoLijQ1XnGE2LOgee2k7cSP0XO58YpCyNCqDQo7KZzU
2LHCTloIx6cbHVR2ExaWCxaJCWF/JrRl2h4K3TP6arV+CPBIp2CnmjOFEjO1
9XN6BQjqamxVc6XwRGzP6OoOAeaE/dup5k7B16Ay369ZgHQjnbZpHkTP09NV
Sp8KEPN6o5PKfgpsPJTk7gmQdO1gt4IXhZbKRwf8ywWwPhrlM8mbQsH3uX2D
PAH+5R4Xkz5EQT2P2RN5TYBkjucFcV+Sr/0uyVqXBQhxnrdw9DCp96LGrlcX
BHCPutP47QiF8b9ijmfFC0DNmRrRc5RCf0x/a2CUAFaZ2oZvAylUH/I1dAsi
+73Z+rMxmEK6VJubs48ApmN0ax4eo3D4o8DIx0MA2aTRjPIwCqHaM08mOgpQ
utQsqjiCgviViTOrtwpQvLPz6KUoCkGuQx0S1gIsV3kSfCaawjFt8dRtqwWY
N7c74dgJks/msaqVJgKsnzhN5HmSwh3rXaaL9QUYemfR63CKwvp/Su1lcwTI
CNthsPo00bPhQb21pgCr/PWTFiQQnpDd+12VrJcrkVRLpFC41E2mUF4A/XVV
Z8adp8DbtEfSR1oAj94l8/qSKHy7f6B0zVgBzP0HOxqTKYTd/PprzggfnLmN
bHkqBTuzhjx6kI9dKqUpV9IoJJSGXtTq4aNMyj81JoPCXu1OxrCDj8S0HsH+
SxQWle6/t+01H0aL+3qsskh/WjZaEtfAh+l4uxULskk+S3461dbykaX2izsl
l0Klkn7u1Go+ZC0Klw/mUTjxeHTHkXI+lJeZf36WT6E1bZLHWwEfbr4JZex1
CiLntPxtRXy027hePVNIQern0pG3uXzUyiaKPIspZEl/M/XP5GOwvOvDWoaC
0wyjbdOS+aiynWesySN+XujWrj3Dx9ZCQ8EfPulnGUZxsSf4SD5Wt7FJSPRx
e+m6JZwPY8/bU9gSCsMmd1LnkfnUMlo/fKKM6Fu6S0rRl4/Puf9JOd6kUPbV
N3m8Jx+3qgJNl1RQ+PWI1pZy5SP08qVL0pUUGk0605R28TErSGxW+20KgWxC
s95WPnzDXF7xq8j53WVbvXUjH/fq40qiqylwbvBM4yz4UIteetv+HoXSj5GL
as34+FAw7/vsBxSMTQfDlY35GLLU3Tr8kOTnXsjkg/p8WLr1vX9YS/rd/f77
z+fx0Teqn5vyH4VlHnvjVs3io35SZaLbUwpnLa3Mqmg+4jJXMYvqKZzRtW+w
VOVjwbWoP3+fUfC+GK3VpsDHVIMlx2qfk/NSMIMKleMjxVZe78ILCq6iO9d1
xvPxSPG5gmMTRXKxrOitGB9rU+bPnf2KQuyYwok5Izy0i7cEfH1N+s+6oBuH
vvOw5uzpkdJWCs6rrS9YfuHhv/ARXmgbhS85k0/N+8iDhO6Ly6veUujc1hs1
vYMHn8G6mgkdZD8nN+xTbuVh5pYMjaedJD9+LVpqL3lwbespSXxPQe9IRJZu
PQ+rDT2jt3RTWDXscn9VLQ8W6v+dVv5E4b/orvB9NTz0eZTXN/VQCLh9+WZq
JXk+8YN1ai8FsaNeuxvKeEjg/JJy+ELOc8V2e2Vyfyl4lPFP+SuF6B/8s67F
PJQ6hi5+MUDB7M/3oYp8cv/ZvCbv3DeyfkWTL5XNg41hpt3GIVLvu9XfTmXw
8OyB7mqZnxQy+51cxqbwoNl1we/+L9LfYsOZyEQe6RfHu8JHKFhO1K2Rjech
UCrjgtEo6T8u085kxfDQmxEe++0P4RnGI8sjePjR/OJW4T8KuW1FQ13BPDxe
SqXzxGgccKs4cMGf3K9mzh+OH0OjZkL3xo0+PMw18RjeO5bGud7mk/LkfrYw
Sz3DXJxG2XqvCe3uRH+5S++mj6PBb7xWIXTi4ULL0tofhK+M3E08v5MHsd8m
W+slaLyxVjsabM/DxOFf0dclaQS0Ld/htZmHb39vboscT6My8d1cdysebjfU
P9suReP3me7XHhY8SDWf+LJoAo33Wdu3+K3kIX7yPFZamoZ8lnds7AoeXk+X
U+kgPLEtzD1vGQ+DJn6aN2RonEqWb6vV5+GjDfdFgiypb3dD2y89HqJfSc53
l6OxMj3RQW8OD92/Hs41mUhDetjC2Fubh+mHTRumTKLxrFP5qEiDh7tcIaeb
cIik6eg4dR6uiHzlKyaT9z3QKd85lYe1S6qLz06hcfGxS26FAg+ZYf1fXeVp
zA7MvKY1iYfIU2hdqkD0Cy8oS5LmwWno70FZRRpxzhH3ZCV5uP/Pt6idsNVv
ozvxY8j+z3cl8pVo6E2RT1P8w8LLPJ2OVqYx3OG8KvcXi9SVbQ72KjRKygpY
4+8sEPDdSGcqjcyAE/Wv+1nM2a/1YITwoFHphYjPLK5uEP55PI3G1Q6VQb1u
Fgp/PrVlqNL4JLra9L6DhZ+4jOcBNRoJw2FLc9pYDJ/bmb18Oo35Z9okPV6z
iInTjJZTpzEnQW2J/ksWy4/kKrwhzB8sFo1vYCFxStO6iEOjba5ucMcTFoq8
Lv1gisa7BrOAmkcsvIPmPLSkadw2q75cfI/8PphtLDVVgwa78mJXZhWLTYVb
h94TFiuvXXbhFous7DsJghk0dqwPOnf+Bounu8qbwjWJnxIf3qWKSD2tsU+s
tGgYKu1Vy+OxeFa330d1Jo2TB30WlRWz2HIxu/oDYbOo86oN11nIWfnU8LVp
aPcceTCYR/ThqfiFzqKxdXrLXNVsFvwVLxssZ9Po0ry8wuISi36NvreKOsQv
29KvIWks0THjUjvh2N8LDcuSWUzgaMoW6NJYo2kgOXKOhYFilY7fHBpCM/HN
5glkf2qin8vn0oj49XVi4ikWOh+X+4+fR2PkiffCDydYZHdezKsnrNMrzjU7
ziJ0/viYi/NpxLRaB+aEs9DNqlZx1qNRu1YiVuYYef5AdofuAvI+0bengYHk
+z5TNoOEx1v/Mf9yhMVOaaOfNxbSmJau9srDl0Vla4pNxCIaLut3x3zyZrH1
+ZGdFotp/PrRY3rIk8XtqZPVJumTPHeOjozuZZGemB3/gvC6x11FCa7Ezzce
vPQlNH5ekVo/24nFyJZLJ50MaETv7qy9v4tFzcRQpVmGNPbfHTfDczsLlxZz
u17CsppT1ijZs/i5dpYlbymNHP2qufdsST2X3AaOLKPh+eLd4yAbFkldhtZG
RqR/NNtOM7Biodne5Pj3//xcRuanJYvISWHad41JHnunpNxawyJc5J4dbUKj
NC9CcHIliwN1D55bLCfMnNy6AyxiVVtuyqygsafU03/RchYOCq/snxJeahAy
YRL5ParyY7jgrCkN/1UzJAcMSB5uHxFuBo0H+5qcmxez+KZ73E/RjIb3oVnK
9xawsCvd+fkF4dylrHLpPBZ92QbTUsxpSJ7S2MHVZSH1xeKv/UoaSf0mrwtm
sXizvTZt6ioanLAXcUVaJD8HBr40E35WUeci0GCx1/v7SOpqUv8+jZ23OSx8
3SfcdlhDI3nHs/31akR/TXfjqWtpjLH/GfNhKgttQxxqIjy9qzx/jDKLfT/+
25VsQaN7tkONhgKLWcFm4+wsabytUmpcM5nF+5wGF4V1NBrSrZ8ekmNhqSgK
eUb4+hOvgsvS5P+XqG9MWE/D3bfH8fl4FrMNTFs2bCB5jNn0QUaCxQmZjRrS
VmQ/VcZLLMeyEPMJ13hAOLIzN1b5H4OXHyVbo6zJeRFlKOcOM/CqUNqEjTQu
a/SLG39nkDraHj5K+BB3HVq+MBiKSPUss6Ex9k9w+fFPDAz7fKb4bSLfF3HA
zbCLQUj+JV+9zTQ8LGfN/9bGIKPDJqGHcG/xU4myVwxCL97cm2dLo1n9amt0
IwOns3KjjltI/2iWzdlZx2CxXfAGVTtyHthQS5NaBq2mS7Y1El7/+PwdrXsM
4n29ZpzZSuOxm9iw0h0G0q83XVtrT/xITuqcVM5g7Hzlz2IONIzlTXzkSxhs
GvjUc4NwQP+fc+o8Bja+f/J9t5H+5jW6bGERA83H4TPmbCfvL/Gzt8pn8Pdd
zvZOwhrcylafbAaB+5Jt0neQecnbUH4pk0H92xPjbHeS/uZU2PU8lYF+Ur6/
9C4awd4R66YkMZicqZVfRXhkR0Lb1gQGdh3zkgN20xDZMOdy4xhUTB1cqedI
4/6bRoeRaAbK1ZfZ94RDamU1HSIYnFrk1pq+h4bBu5DOWyEMumMOPdjkRPy5
6RI/J4Dowe33Ge9Mw/TU1MlXDjNY6zG5tYJw7oC0E+cggyCISfq60LCtueuT
s59BcFJvv7YrmS9t7foL3BlYJY5NayE8YWhaZo0TAz39g+POupF5swuZe3Yx
6FjnqLfKnfjdvWz2uG0Mvhz+p/qL8Le8cQuZLQzaOSEPCvfSOHFfVOBkw+Bk
/Jgljh40Rh0DY9U2MNhQV+4iv4+G5qpzt1rXMtj8+KXtPcJWTduW561kUGcQ
KhGwn0Zni+lvP1MGq9LeBOh60nhoVduz3pjBLRua20q4deGFfzqGRM9Yn7wz
XsSfA5vnTVrMQM1sdDcOkHykPNr7ez4DSZvPrwcItz5vyv6iS+rfuW9ajjfJ
Z+7Bho/aRL93WapbDtKQqErt+TSDQbleRdu4QzT2fT3YPsBhkLXvvZuIcHKL
dp6YGnl+Yg3r5kNj4SfxBcoqDDq3TqhU8qWxQN7Zb5EC0SfAPuEe4bBK1t1u
EoMC1+1aRw7T+Jd6+HeoDINkd+NjWn40VLzMZzHjGVzO0kx7Trhl5GHbe3EG
adImwZFHyH5e31fWFGPg7VtML/SnkWY5qcZ9lAubkKy4dsImCidb2F9cDGcv
v3H6KHm+Z/7mMUNcvDMsLjIOIPProqy6wwAX/i4qbp8I/8aqhaI+Lmxn5nYk
B9LIeyx1fGoPFwFbgmeuCqKhfjxLOvIDF2GXa+YNEJbb43pzoIOLpvj835nB
NJlbt2P3tnMxFLQ+YV0ImXfDCzw7W7g4ndX08Qfh9sa19m7NXDyUPSyVc4z4
9+SqeV8jF375q75Yh9JQWz5WM/gZF2YLD6eNEJ63h/4y8SkXX1bOlLsaRt63
+NXFa7VchG+OWLMpnMYrW+XpFg+4OHq9eM0o4U2tDfv7qrn4510vlx9B6rNU
C0m9w4V2zqSMTZHk/rhFbo3lLS6k6cSB34Q/NTdV/rvBxeS0oIlXo2gcZW62
lpdwoZQ1MLjxOI26JMnkYwIuLqerXR4mHCGp/m4Vy4XsM3WFnGgyP7UPCacU
c1HrqL5xQww5b+mRkl3XiT7mprZDhEP9up+UX+XCfOM16tIJks8J5mMu5nBR
Y3hMuCaWRvrb1SnBWVxEn+yY0k/4YHxJjEsmF2LcUcOUk2T9ub33bdK4aOvp
1zaNo2FvbWK1MoUL2vlt2wfCJg2z5I2TuNgsP+h45hSZx0/myi5N5KLspUXB
knhSv8+uRUZnuAjeK1XZSvi6TUuw2SkumrdtSY86TQOWTe1WsVxsoG3Mdc+Q
/uOaaOcYzcU9aUpQTzjqtkPjkUji15quPv8EMh+9T9kmhnGR1353cPpZGlJO
ybW8EKJP5Zuqu4Sd1w0taArkYlqh/Q6PRBqbjy8KHXOUi6p1trflztFo+vHh
+gI/Lio1vvXxCTN/bhS6+nDx6ty2bvvzJB/WTsGZ3lzkt18rHCU8/l3W5BZP
Us9sceMrSeS+1rDORX0fF7cOxF1YfYFGtbWpp6s7F/zTe8o/Ed4V4EWzLlxM
XJtfdDqZxlerp0FiTlz8D3kRSic=
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               Dashing[{Small, Small}], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJwtWHk8Vd8X1UASKkNE3r1Fk2gklcpKGpSiKCqlhDRH8c2sRCOiopCkpCjv
3KdBKc3x861I8xcpGpVEg0j8zrvH+8dnu9M+e6+19jqnv/vG+Z6dFRQUYjop
KMj/Drhecal5gwQnqwrU+yXuQXP2U48IHwn6E1/vuOy9OPm/E/49tkgwSvls
v8WV+zASc+vj/CUYLP+HVgweub8o7RMgwankOzxxjkXU5SkGSUESWFbZRye6
7EeiStQz/VAJBiptOzRVMw5tK4+2JYdL8C3z3uxLL+Jw1ig4US9CgkojpW3a
WfG4oKh5IjGSXbfYewBLDO0NNXdJIH/dBr+DUFbS04veI4H18nelA9Ydgn72
ot2K0RKYyo7WZ65PQHb0N9/gWAk2e8fVBQcmYoD02ouGOAksdk9Z7hl/GIXH
Uq56HpTgfJF/wbHzRzBkpyf/IqHj+uskbDCpU7Q9IsGPv0+2rtZKwYG2rhvz
kiUoaXKsGehwFFH9gpYOSpWgsWyOe6/4VJgu1XscnyZB25Otnwa9PAZX56xH
f9MlKDimN6IyPg0nVtcvXpXBrp+yPI4+t7I2lWRKYFjeHLrm/XF880zSGpsl
wVP6eEN8OozGB8xMPivB8xObJhXjBF4ptqu150jgVJOR3PXbCbyOeO21QpDA
Zfz5oovHTuKZW4nTrVwJXj5scjxhn4F91oEv+1+UYJIKfUN7BjRf7PsVlifB
7Z9DXGNzTuHhM+m5iisSnKbl3e2aiXVKuxXGXWPrceh+GiXT87/FXZfAZu+6
D/nnT6M84X1Y7U2Gh3nLzsBM/7R0yh0JIm4UH1dUysI7o6Rtifck+PDnTEN8
dhaaLZyaPhdJsLPPy4f/zM1GW++1Glb/dtT3azY2kU1P9j+QgHbHynzvWRg4
/5j8poThZ5PROaxJ2O44skyCue69XAIun8P+eRmaoU8k8Dug23XhrBzcvFMT
XvyM4eXpsxxM3HsrRfsl63frMikWZtz2ditn779QLYVXqNf7zEoJCulyO40i
yGocrFNfJQFF4951Gwj0FmxvNatm7084Q2DkV5cY8Jbl71xNsPLkq9qr79n9
Z3UFmF8t+tX2UYLfjrQhdgJcDPtds/rM8u0bKsDt8XSrsDoJdGhDNM8JMFl2
PvRavQSusbd+7nopYM73B8EtDRLoj6g0iuoiw3zPlgljf0iQM+NNoNYwGdRH
pF7Z9IvVu7eDDKVb9f+e+c36u9JXht0GZV2qWySgX7+DeBneSblS3b/sfaek
MjiFua2c287ujyiWofvR2oLtnTjI6fygWoba1zpvL3Th8GgABeBvGTZ+tXzy
QZGDHC5He+TCf/yZ/brKHCi7ysf3y0WvHkRvpgoHB0q/+ca5GBOVutlflRPx
WWuei3Vnb6ScUOcgp1v75FyEuS9PLOnFru+Zlos/W+56tGhwkNM1yDYXN1LM
lYy0ORGP9bNyERLxI9hOh32/kl7XL5pavLkvh3+PT7voOD0XQ7qsrD+iz6H1
TEPZHOTC6N/YugID9r3rFrl4mad4r5rj8IvC+5ZJLuLXtgUoDmDf+8Pnwila
UBlsxPKZpZ2L7s+dAmYM4uBBBepB91wc1epX6DWEE/EZ2SaD1tDxP3cYc0ig
8Fj1XYZ4jYqu6Sac2A+fjzK4fB3ddG04hzVXtxw4XCnDtdbVD16M5EQ+15bJ
oJmRvatxNCfqhWeRDHsDeOMe5pyon3oFMnSxrJcNsOBE/PzJlaGiYqLR+PEc
Ln7/+0Q3SwbZLpOwuZYcw2eaDH3Tq+64T2L9aE6QwbbY75efFbs/L1qGuzWq
2rumcJDL36kdMjRo3+x/ZCqHyM/z8gqCZDhbetbgzDQOYTRhzc0ylJR87J43
g8NQWq5Da2S4KNn34a4tB6ruHkvcZZDqn71UNruj3otl2BDkGvRqDifql9d8
GdbbScd8sueY3s6Swa7l/JvGeRyGUcKoT5VhwLzgqD+OHHzkAmQpQ3G4hmGX
hRyCtHJmrDCTYSgfkdfdhcOD+/fv25nKsHzkixk9F3P4H5XjxYNk6MHrlWm6
ckg6Qn+cDG4P7V10lnHivGnVlcE5JrS873K2vlANGf43NMtV3531f4CqDIFv
n1Toe3Cwow19rSjDsLB2V30vtr78dgHJE4a+6uvNifpxoVlA1H/2K3TWsP4V
fxdw8PTGD5rrOHF+NdUJmPtPhE/PDRwovZSmfBTQfnKHgsomjs2PagEJkrWH
uvh29LdSQLC76ajWzSyf9OcCvCJuPPnux0E+Pm3KBHDDdLfV/sOhJXTN1R/3
qR4cHWTxOoBj87BQwLArFU1PgjrweEuAVSfjO0UhHKzMl11ZfU2A6sHWlPww
DrNUOw9blSfg0rgpEee2caDqkbMzV8A515p/UiM4UDkafz5HwCSdB0ExkRzy
JJGfG84IMDX5EBuyk9VzYoaA2ep9L6zd3fG9NAE/38z84rKXA6W7Rk2ygJSw
JWOnRbP7XRMF2PibHRwZy/hTF0/vV7uopB/HYaNGxI09MQLMZt2M6XqAA233
mwl7BHh/MTetO8j62xIpwNq/sfpJAgcv+ru3TYDE5AnJP8zyzwwRsFTnUuLx
JA6L6QdiAwTkKfsfjkrhmJ75CYhLqs1dk8r4H+YjYMKYuto5aSyf6PW0Xt0W
TB6ZzonzK3m1gDT93zm9T3Ki/p72pPWbmT2pMYNDZwrYyysE9Blv/flRJsNr
zVIBnr6xeeQMB44CTHexgCoHj1Mx2ax/HgsFFKvGXVh7jvHt3nwBjflv38+Q
MnxZ2gu46WhqaSiw9V6ZLWBhtkXuXxmHwxs0IjCT4iWkxP75eQ5dF6qbltkI
sFx7vTe5yNa/aoqA8tbS5p15HPrSG9QmC/h88r6y2xUOY+gvd4KAazcDrMyv
MjyusBAQeiw1VaWAA32dzMBMwOBAhcFV1znmP0YK8A1b+VJ2k+E7y1TA3dI9
FyNvc+J89DMWoB857rrzXaY3doMFvM8y/TGkkOn9aCPaX1vjhc1FjE98fwG2
nnXvioo79EQioK7V7GTifQ7LrtiqdtYXUNqzIM7zISf6mUc6AvYctZGOLmX9
PqUlYOTpiL9tjzjQ9vzZ3VuA7ljzkOLHnDift6kLSHTUGHHoKcf8SQ8B/9N6
rOn2vENvlQXMSBxuMuQlB2pdFW4o0v50Kd/67T+Gv9rOAqbvj265VMHwwSkI
uB/eIoS+Ynqx7C+BovHTYzavmf4mtxD4NJbc6V7N1v+liWCgU0r/hzUcDGg7
rX4SeLyqvRj3rkOPGgmmWayNdPrAgcJpSGs9wUyD+9F9PrHri+oI6rzzS5/X
Mvzk1dLr6u/nHv7C+G72kSBW8lvZ5Surr+wd9SP/S2nv843N5zk1BJfcQsc8
beAgp+/H1wT750/PiP/O9CHxFYGDxdEF9j8ZP+wrCB4VGk/r0cT40eU/AsO3
h7bc+834evU5oXqx4214C8N7wFOCAOWUQxNaO9b3mOBLSviu738Z/ro9Ivj1
4um17HZO9HNlDwn+HcclCwq86DfS7hMsHDi8eV8nXvR/nsUEJhO9m1d15kHb
o2tURDAqzSDFugsvzo+6uwT31VLf9OvKM77cJjhUPq74F43l/T1zk0Dhz8SF
pYq8uP7o6wTqzb8jzyjxzO9cI/jedmXR9m7s/Tb5BNfLSh8tVubZ/uAygfKL
nV9Hd+dFvI26RLCvlylRUeGZv7xA8F8/NZ1qGqdROtjkEjRO3GJ4uQd73lkg
+OiQ8zRWlRf10UdKEPlSabiXGi/2J/4cwYffRSYT1XnRD17KJui32aqsd09e
1Pdq6hdv5ZyXfKCx3C90O01w/IKvxtVevLjfMTxFMMP89rn9vXnRDzqeJDga
Vv/NQ4PlsyOdYPteVIzTZM8XphGs+Nm2UVWLZ/MuleBeu+/ZKhrL8Wp5lOZ/
4G2cTJuHfPsQnEywzjqZj+zTUd8jBIenvnJx1uFFP9zvMAG2/pgwVJcX/a1/
AsGwNUaFLTSW4/3+QYJTduf//tuXF/3NqAMEmn8/vUrR40X/dSCOYEuXHmvX
6/Og42bnr1iC5njX9En9eFFflsYQRO0xjFQzYP1+sI9gkt9JzUoay/XAei/l
217DuWclPB7T7VLebgIt4a1ZEMfqMWYXwYbAYUW2PC/qoSyKYNMQS2Xd/ryo
L2MiCeZlL/z5jsY3i2lCEQRp6TdicwfwbL5sJ3i4NP95uCGPLGpXboXT9VTs
ejDHiOXvGEb5UbLGR28gz+ZZCIHTkfTb72ksnw9BwQRqc3zuyAaxfDSDaH0E
nS2hg3nRz+QEEMgmPyuzHcKL83HaVoL6/nWvtYbyzF/4035MSEmtorF8/gf6
EXSXGKpmGfOinzXYQjBW6+bQLcN4cV4X+tL89C80TTJh9V/nQzD04yT/bqbs
eb1NBOk1RzJKaXyXJ75FdH8SOrxb1JHhrP9B6wmM027ruI9g+By9jl4vVF1i
PJIX9fPNGvq9z5xDI41DqGFIWk3gqjKh6fIoxjdbb4KCikSHbaNZfzqvonx+
7Oc6cwzj9w1Pyi/dXvo9zdjzgR4EyXHp+56asf6PXUn7WektJJvzkD/+eQVB
i1Pq7hVjeXG+pS0nuKMeqj3YgtV3iRvdP5VbL/hCY7n+aS0jaJox2FYYx/j6
yJWuJ9WzwW88w0/0EoKDby3mTpjAi/NvzmKqZ1XP3dpoLJ8fSosoX3qGDbpl
yfh125kg/IJXeuRE1v/tCwnWlxQ+njmJZ35/AcEuvfIrPSaz7/V2InDRfOn8
cDLLr3w+gc6v5qz9Vrx4npA+j+Lhut/5+eBB1UR5nQPVH+MdW7Sm8KJ+jrcn
WHDJ9fNTGsvlV20u1fv0sX0TrRkfKu2oHn2d2eY8lRf332Q2QeXi4iRdm478
ZlH8rG/4+oLGcrvibEuwasOPlsPTWL+HzCTw9ep+3WU6j69Uvtqm0/obelnq
zmD4fDyNYJAFNj2ncSqle7YNwepf95cmzORFP75zKsHgoCldF9iy93lbE7w7
UbZScxbTwwVTCGy1LgQ/orHc70wFfd7cwD52NsPPFCuCIWOtyu3sWP8nTCbY
2cO+v8qcDj2dRPXaJ7x/IY3l/t1kIsGzj0oVEXOZfptaUj26qj0P9ry4Hx00
gepRa1V4qz3jCz+e4Oe2w2vzHHik3OGJxjgCizqf3lvmMX1tGksQnJnqO2I+
4/93c4KUaofYWhrT8V78xozi/ciVVRmOvLifeDOG6uV+tVY3J7aemtEEYxYE
2ektYPX/Rvf7FVbmi54sYPVuGknng++6ATELWT8601jlv3mnZzjz4nlKnxEE
nYf3+azgwvg/fDjVn4ZPtZdd2PscTOn89f2b6buI6ZWvCcXnv+EDhi3mxf3Y
4WEEbW9OLK6hsdwv3jGm83Z1gkPyEh7r5QN1KEHp651dHV079IHGZgcz/VWW
8uJ5k+0Qgl5HjTJvLmX93jyY4q3aNGHrMpZ/4iCCq7qNU0e4Mb0WBhL0uX2M
vKOx/Pyk1Ihg72jPiuTlvOiXfhvS+RW1qXDeio55QOOKnHqfbu4M79YD6Hzy
7lVx1Z3hZ1V/gkAoKPmuZM8f5gmCDn6pH+TB5tFVjmBOXOekco+O+ksIRpht
7Lrfs6OfNK6e5TbCxovpm4kBwdfN7Xq/vRgeZ/YjqJIEF2avYnwJ0SfYva+T
uZs3w3uBHoFdSf5KjdUd/exLMP/fZ453VzP8adO4ZGyo4tY1jM/zdAlskiq3
Gq/l2XmRDsE1Bz6ngsby87KTfWg9d/lkxKzr0CttAv0prcuwnvmXgTRWcvj8
X8P6jvy06PpdV/c9sYFH+rSL30M0af3epOk5bWR6UqxBkD/i6quum3h2vtCb
zqPV7zwvbOrgB43zd04nnj6svtt7EdQs7F6g7cv6fa0nrc9W59i7NJbvP3+q
U//nsdjIb3NHP2ic4GUZYrSF6VuEGsGxNMOkx1tYvndVCZJUJgZt9+vAK403
+J7jR/mz5917UHwGp+2porH8uCxHhc7r9EmXo//pyLc7wRuLc2ctt3bMMxr7
r9Tx/LSV4T1GmcBx4MnqhACG37fdCLY6BQ20CWT5mtM47Ngd04ZApo/7lAie
78v8czSIF88H3itSfgfOjp0VzPAykcbRac8//gpm/iOhK0GR6mblEyHMD/zu
Qv1Fps3XuaHs+3NpPGXU5qSWUOaHMjtT/EwdqHYqjGf+lMbh87dNnxfO8LGy
E8E/Z85Nbw1n68tXIGjfUKqWuY35swE0HnSiZ8q87TzM5QOvXQoVPq7hD43p
8t+V/pWiV1Kg+qkIXtw/HW2VQjutodF+By+ej/j9keJYsv6xZhoH0AXPbJFC
9ZGB5olIXtxvqDRLUexmYG8X1eEHmqQIs7Zy/BnF5nnSLyms7U9zqTt5cf/p
/VOKOxYh56fv4sX9udkPKSJ3V/eu38X48qVRCoWcVovE3R3zpEGKV7X1g6z2
MPxmf5OCd3/96v0epo8H6qWYr9HoFrOX+UmPr1LkPZuZZb6PF88LbOukCFql
XFCxj/nFiV+keLHIKTkimvVT+7MUdryDtXEMy+fHJynuqnC5pTEMPw8/SlE0
/W2dfyzzD7s/SJFRdaux336enYe8p/UpqLx5az/jW9d3UvTNdl7iHcfyeVsj
xc1ZjtfV4pk/uFEtRUH/73WyeIbfi2+keBm/6IPzAZ6dp7yWIrPqdHbrAfb9
mCq6niFdLI8fZH4v8JUU19bvOTTtEPv+tkopZNHL8z8dYvwKqZBCfUbm2egE
xke/cin+DzkMMI8=
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, AxesOrigin -> {7.58315269907919, 0}, 
          PlotRange -> {{7.594089575094925, 8.294049640102028}, {
            0, 5499.12655182417}}, DisplayFunction -> Identity, AspectRatio -> 
          NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
          AxesLabel -> {
            FormBox["\"year\"", TraditionalForm], 
            FormBox["\"GtC\"", TraditionalForm]}, 
          AxesOrigin -> {7.58315269907919, 0}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, 
          Frame -> {{False, False}, {False, False}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {
             Charting`ScaledTicks[{Log, Exp}], 
             Charting`ScaledFrameTicks[{Log, Exp}]}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
          FormBox["\"Atmos_BAU\"", TraditionalForm], 
          PlotRange -> {{7.594089575094925, 8.294049640102028}, {
            0, 5499.12655182417}}, PlotRangeClipping -> True, 
          PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
        192., -116.80842387373012`}, 
        ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], 
       InsetBox[
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwdl3lcTd0XxqMBFZpocs/Z55ZKKHOl6SneBkIaqYhSSqaSaNCoCU3eiEpS
EsmQhCgJiWhSIaVISCRFVFK//f76p8/3nnv2XXvttZ71bM5ll5XbeAEBgfhx
AgL//eeXtd4c2slg4f//vhgOXWzaEuHNQJX3em+v8XfDs0+y/cR8Gby15Bri
xX4YzsPq3iQ/Blf2dVZ39A4Y1ru8qpvuz0Aj8HtTyddBw6hiI15qIAODgd5k
mbE/himiUS8UgxmclDp5vVtpzHDU9dRoWiiDsIVRPDJnHPKVg1IUIhjY+G1M
OfJsPIqEpbNTIhkcPHBw5X1vITgqrVGSjmFgahLIs1YQwUQRBYW4QwyCsmOE
3j6cAMWL62OF4yir35jE2z0JF+O++wQlMLi5ysmuUUEM/Culr/qSGHh+EVjR
9UAclafTS9ySGfgL9V+w2TYFatFu5NVxBhOXdB9MEZHAzjk9wuYnabz2CWYN
TRL4d1Ro1600Br2rKu4HnJZE1IzADSoZDPbey5t1xlUKczcoNBzNZKASmDlm
z5eGk31e/d8sBvu2KYxdaZFGtmevw9Ycmi+lwvvFCTKYfj9vd20ugyrVMO0o
g2n47pYqsySPvr8r+qtK1zQo6/ibpeUzmDaBW3T5yHS0CY9NHrvMYJ3SWmPN
ObJ4G/HWfXMBg+6UUfW7j2TxwrnW5n4hg23uf5t3OcnhiHFAM3eDgXnTmXEO
PXKQfnXkV8gtBs8CWgX/9ZdHzYsrl1pvM/i53PDV/HEK2C4SK6BdymCD47jv
qw4qoNbkzvekMgb706rlx8YrouX4x5DucgaX3ji4bzigiEWK568YPWTgcX3V
5LAfivignBqW8oiBi9slm3C3GRjSsvn95TGDzqO6/v4NMzAq6SVl+JTmt+jq
iWB9HnZf3d2YWM2gUEvh9IVsHnj2Pw3e1TJw77+xSEqE7uN4uPW85wxy+oIu
125hkLg2Rzq4kcHXjKGxQRpX+cP3oVUvGPR12l45K8tC7/D99GnNDExyqqu6
vFjY5TzwcG5hcEgxuv11CQv3YPePuW8YfGv6NmgqTJDXryrb286gZpO6brw6
gYJt+MiiDprv3dIqK1YTKO/tSfHvZLCxzsYxcjeB69m27pKPDGrnG8wxTyJY
XPL412gXA++MlqyMq4Sey4xSwy8MjkWr74yvIXBuMDEM6WGwzPHcN/KFYM7G
68GlvQxehidobBThsOpHddBwH13/gOrHVYSDldvw0iU/GRh9PuT/W5vDFM2M
27t/MbBMTRrcbMmhbr/i3wuDtB4byplkdw6xvOeCHcMMtnYdtUoO5PDhClsn
95dBy+sv5zwSONiEOLuuHmMQ4ObyanoWh0mnuu+Gj2PRcnXeyrOFHLrfynYW
CbLYs9V/xvSHHHZ90238JMziNxzEvRs4+OlcSJSbyELlQldi8TsOEmJXFcxE
WUhMV7nx4xuHhVEZe/zEWaxa7gmlPxy2599Lz57CotOay1gpwkeIy6aUWgkW
fbNKu3ZJ8PHHt2LLsBSLo9uqOo7K83EvfbGI8jQWjqs0hm5wfByI+BlkQc/x
qECBUZsaH4qPl1XtkWfRHLVyv6gmH2qCrr0nFVmoRSSP6S3iQ/lpQs9dHouJ
1vw2P20+mm8JP+pgWYyxL27f0uXjqNeovzCfxam2uU3EgA+buAJRVWUWWQ4D
Gi8N+Zj00sbfVIVys4vtMPg4JTOj0l2NhX5X8tAZIz5kZukMHFRn0a2f9eAt
5aNSrUJZc1j8CRU4VUF53bcFv0s1WATz5dOdKJeOeFa/mseCv7350hW6nnTO
xZj+BSzmHJaRrKS/d9ifqIstZqHrubXgAo1HULf3Gl+LxU/baV4b9PlobdVT
1tFhkVKx0+ATjf9azJyQ1bo0nm6bfSuX8iGf1f7QRZ/FoNXUZ3F0v+ZVe3/t
NWSRJ120t2AJHxXvxafFGLHot6lYVkzz0zetnDu5jMWyVpn83AV85Nfl8y78
w2LjnE8vg+fxUVvbNemWKV2/tOYyNPi4wRz5VGHOQvTBk/Zvs/m4oph/8/lK
FvEO/V2HZvGxM9ApsG0VC4dQYWa6Kh87LK4s/LyGxXBx86UkZT4shq+/619L
v6/pljtKz5O/NijqjzWLhpErfzewfFSFSikJ2rGYf2Xj4asz+JhFIm5NWseC
21w+7Teth03zXplOdWAhHOG/ZoEsH2JE4bm0E4sBl4rXLjJ8ONesWSe7kUUN
E7wyVpIP+/jgFvlNNJ/Fz9XOTeHjyaw8J0UXForeT74Vi/ER0NnYqriFhaZq
wtSKiXzMDhlzUnRnMSE87WelMB9pS2e1yXuwqE+8MnZ/PB9Rr9dslt3Gorqj
8PCNMQ7J53d9kt7OQtspoCdrhMPqfRHeU3eyOHJgq2/MEIexswcFRHfT+rAS
8dr6i8NxxuuYoA8L0hgrix8cglzmzh/Zw8KTNSiR+s7BPeJe44+9LPblfklp
/8qBnS0X1r2PxQMVjY/nPlM9OKWi9dafhVDPvXaPjxxm32793RjI4szH8tsz
33MwHKf+8PEB+jzxa96bdg7iySPpd0JYlLRVv0ts5XBT2yjiUhiLwgn98YbN
HC45vd+XEcEi84v4289NHPRlqwPjI1lcfMUbl/icw9w5nxIORLOI0EmYsaCW
w8op8kVesSxsb1g51j3lMPDO7Ou6wyzeLR3u3PaYQ3qI45J/4mj+TGrax1Vw
WO63KHleAgvx1+92Hyun3598Q0Qxica7Xrlk5l0Oi1aUxwv9y+Lpv96d125z
8Pi6eG5PMgt77Uwx/ZscjP36OxqPs/j1Md7qIdUjZk7j1TsnWJQJzWs2u8ph
g+zNlDOptN+Dk+9W5XO4NdHvRFQ63c/xAbLiAoek1O7CbRl0vx2lvMocDksX
9nSvyqT1H5lUb0T1znCCrcG8LBYnq2zX3c7gkKk4eFnyLK0PFe3qeWk0f2YX
9ftzWDjdub4iJ4XDdB3jL/W59Pc807tlkzm4+STcunqBxTVvhUcxiRzaLbec
i7/IwvhR8cDvIxyqxJOKvC7RehHYluQWy6H/TudH0yu0fmUOXq2P5FBuPVdX
qYCFdXGNp144B7uLWoV/r7GwyA5vyAmm9XKgds3L61T/AlYLTqH6retVJnn1
Bu3n8w5T9u7j0DJSNxR9i8XNIYtJLXs4fDn7bKLzbRb+khYTsZtDabm/4WI6
12LujmfPbucQfDojQ/QuC1P17E0TPDmoBgiotpexuPv5c7unGwefENfma+Us
YvvIlaebOVTUHboR+YDq9U7+2zkbOShGapfZV7CojHY8GOfA4WPe3J9qlfQ8
BWvze+zo+Zqr2w09ZmHQJrttlTUHc7eeD4+r6Hx45PUsfw2HnpFFZ1OesciI
PvVezILOq6l3k9xqWGxyY8u2mXE4dGr5lQV1LMZtEt75ZDmHeecj/o7Ws2jd
PmFM1YiD3JLFB6oaWNicigiN0ueQYi2leayJnpdWqMAHHQ5PZBqknV+ymHX3
0pFlSziYpmjMUWtmMfLdY0HWAno+gi37v79mcflmyaiAJgeTxLjhm60sNohs
GXWezeFZ6HBBcBsL18Kn+mWqHITVm04vf0v3ayTzhFHm4N1f+3BSB/UNmdL5
wXQez7RJ52resyh+Y9ffNoPDlrbuG0kfWPTUK+UaynP4R8sr0uYTix2lAU2Z
0ziY8Z7FTf/MwrlNNma8FM2Hx526l90sxEZ8n2yZQp9P+bj6xFcWvV1V2ZWi
HBKYwYnrvrHI/SPFzZ7AIe9J+tj077R+gyeuTBCk/ewcvLCpj85befXZP8cI
Eq1Mco7+oPWofqdq/QiBpdYp2zUDLO7MrFhwb5CgvlL9H7HfdP61yG1XHSBQ
6jzm+2iQ6vujNSEJfYTqxcHO0GEWYcuqfQd7CPwnph9bOsJCub7MxqWb4Gt6
aMyPv3T+6vJVqz8S/HrVVHpxjM6DxyU/tN8TPNVm0woECMLsVe7ntBPYzdQY
OjKOoCG84qR0K/U3eh5DW8cTeF6tDwt/RTA/k5duLEgQqWQT1t9I8GxyxrsZ
QgQrhWeddq0nONaiXfWL8v2tAh1N1QQCf/Ts6qgvazV2tjSvIpgyNBh5QYSg
2Cvze+kjgh+jt9eHTyAwihp4vPABQdnzunqHiQTafVvb88oIJr6K/rZgEsGX
/GYdpRKCIxJzr4qKEmToibSl3yJ4PWOybAflZ+ER9bJFBP16vkrFYgTbT9yX
Ty4g6LK83JQgTmB8WqJE8jKNu1lEw30yfZ6QUpqYR/Bp8PEcvSkE+gLOSpK5
BDP2GD6XnEpw8KtF/9Fsuo/L15lPlJ19VDSnZxKcKfKRKpEguBCf2JaaTmC6
+MGlREmCuY0SwtxJglMhvd+3SBHkMFNyzx8jCD+MVm1pgstG9Y/nHyXYPDC6
S1yGoLQwcmdJPMGjMZ/8dsoLFy9NNztM4/+3M+naNPr+nne2L6JpnMZpJHI6
gfcFq9NuBwlOLGtbZy9LcElnRdCvUALs/7l0lhytI7Nt32MOEMzeplw5TNnD
UndsRgDBOYvrf5/KE6gUzsm/5kcg/fdzW7oC/dzs2LD5HgJfQTGvHYoENz8X
9nTsIhg66pSlP4Ng7PeVmAPbCaIOKUVO5hE86ThZI+9J87T3rPQbynXnve7f
dCMQPqy0Op8h1OdP2mrvQiBT0LkokKXvHzQqG9xIsDNg9mNzQqBbXV2d5kiw
W013ohxHELDc+hjWEay9aDfwgbJYj4vcJxuCzKx7CYV8AhG1gPUJawlqNtx5
GapE8EZJ0FGH+vdzrTHVq5QJ9pjZsh9W0P6o3eatMJPgbmbR+aOmBDYnsx58
pDzB2H7IaDnB5FXeD6+pEDRddZT+AZqfAlnfYFWar2UNgzn6BNcMXjw3VyPo
CS+96LCUoJfreSszi2BWzCQNSS16HkvTM9opq60/HvZkIcEkRkk8j94rDhgv
PB8xj2CJTPks39l0n5qZ2YZzaXyKRb/15xD8GYvb+/e/dbr0/SbQz3+2ZrCl
NI6s9ydz6ijPPuSeHUz3FawxIeqkBt3HjW3jjWme1DMfyLpoEvxdqWQwgeY5
uFLcUZ3+jm/xsH0NPcclX1jLfso3sXptCq0LJ9Glv4vn07oy2DnbhdbZ3dYU
y7AFBO3eGZ80aJ3aNex1MqNxxy2bHv2X9kGZnITi1EUEBpPGidXQvkpLyjrS
RBnmwb6ZtC+F33gUpC0maPlz5qEv7fNhm4zYzUsIHJ/6jqygOvFwSvA0VZoX
y5wuHROqO64txrZfKQ9dV1k9THXst6mqeYE2gZ+6r9a1HhbqGW59e3Von147
8nsH1dXkTq3VS2meu4pkE+e+Y6HU/tJ59D+uOD++j+p8+NQQlfu6tH7E71ne
amQRWuSeFalHMO1WVWAEnTs7aisbzOi5OTorRVrRuRWj0HJbzIAgcLvUzpn3
WayTbravoRwVXKM1coeF7K+hvERDgtynQe9fFLGYXLb3uhWtg9zQ+T5FdK7/
UD/oK2NE12O+d6ZQX2B70+lLE+XBxot6wdl0LmQtkU8xpvl9YxrgcYreS76Z
jdovIwitS8mwS2HxxqEqVY7W2YUR5zwz6pN6d/R9e0WZX2ybYUB91tadP4dP
/EPw+CYbqE19mo/7pLJ1JgR9NnZGS6jPS1Ny15WjdRv+IaJPi/pEFS3sfknZ
WnDmEf3/fOavZxuOm9HzfHle0nQHC9VAIyFbc0Lvld7hNltZfMh+7ipN+2C0
uqHNbTMLc5mioHrKWqlyqoGO9P3FvDUJK6n+jAQ6JttSH7TEsMXCgsBsmkZQ
AfX50WJrONFVBCELrGOf03uCgHcoV0nZVlIo4je9Z7zoEmmNoH33TnG1JzFg
sb1k2lqsoXV5bqHeKm0WJ0baQ0con52d/+cAvRcNhJ3wumVJ+zPqbO41eq/S
6vGW9KV9PDh7zPALvZcF5Wb4aFoRLHJNfqjKsUjvsEzopvw5cMFiD3oPDD55
e2uONY1fKCMpn94jNydOHnG2+U+3kpp/TmWx0DbQQsGW4Pjke+JG9N7aarh4
fSPlhUV16klC1Mf7bOfH29F+D3Jd+GGUgejrtedN7Wkfq0xV0R9iMF5j+hcB
qjvxbZvHn/zBYG3f5+5iysvd3lUO0nu9pc/fXJ/1ND8Q83PqYqD0NJQ/24Fg
f6eN+MMOBqPvsh3eUw54N/uQ5hsG/p7HLf/Tta9iv75lvGRQ9zZayNqJ6vM5
yaVSzxksSs71E91A1zvctC32GQOJU8q55ZRD1iaFClUysO2Ye3w/1cm/e+MC
IsoZlMj1L9N0JtALFVsnUsJg+oPTVz9QTlY1kYu7weDwArfWtE0Esfu8b8sW
MPgUtbty7Waqoz9u65+7yKD1cq/3BKrDKbfMz2ifY2DqIdFaQvnQGYPOmkwG
ARAQ8XGlc939urBnGoPA5K+9KltoPZaUCU04zmBV0vjUFsoFAbvenk9koLlo
l1Ai1fmegmcpqw8z6FjhrLncncCr/vWswUgG3/aMKQxSnnc/5VhOKIN2Jqjy
4lba70IjzXaBDGKPjFvs7EGwoWZ4QMyPgUXtHVcpOkdmKYd3PdzNwOrpC+sK
yrd+B1wN82JQuyRYeP82qldGTyyM3RksT32zX92Lzl1FixKRzQxKLcnlVsom
LW/+1jjSfMZ458T/N6fUbSTS7BgoGo1sxA6CARLav20tAxHLL6/7KIs4aWQb
WND9O3nKZ+8keDtdlZtuSvP3LlPBhs69m0YaXn1GDO5olrQJ7ab6cEIwtE6P
QabnB7ciyuS2y8ZCLfo82uSqmzfBCz1B4dQFDN7bTbo7zYfgn4oTPgfn0vzs
t0+ooPxAoSHHR41B3hYH5b10zqrpbTy1RYnBcXfdA8q+dD75dtg7MAxOZyql
NlCO3i7UaC3PIFVULzB8L517xm4Sa2UY7PS5RObTuS2RmiVmNZXWZ1DmoXbK
2pftHtqJMhjK0i+O20f7xV1Ox1mYwTutS/m6+2m9uwV6eAkw8HOVdftM+QUr
sTbwDw/WM892HPcnkP/o2hf/i4f9NoEzl1OfcOqPgNm5Ph5CTj+c20c5/OxO
6/KvPLw8kvvnVCCB25L5Um8/8TAQsDJhRRDBarWq8PHveYjLfNn1i7Il/1a2
WhsPj8X3TMymPuSV+L49Vs08+OYu/7Y6mKCIDf0e0siD0fw9qcOUG7+byxfU
8vBt2czJ50JovYWbff1QxUOoVZjJWuproq16tjKPeNh34ZLJSOh/+8s95FDO
w9jOusm5YVQv1r+3Si3hQSV7avracAKfHWJlb27yIEqS+v5Q9k2KrlYu5NG8
BUw5F0HnnW9p0K7LPEzL7OtfQ32UT7zE09ILPJxOUzw9RHmHZseNqTk8iNfz
pLMjqd+KTTJwy+Shypm3xiKKILU0cNPdNJofY0PrAconPv1RUEzhwXjNeTaD
+jTNWV7bA4/y8FDrwHWTGOofi4h1exwPkbEdkr2UtVq9q01ieRC4PKKVEkv9
qMy15oKDPLR196oYHqJ6IbLQj4TyQFzetn2kPOXk8jNHA3mwkup3jqe+8Pnv
Resn7uPh1guzvMVHCFwzLdPDfHgI3DrxbitlGa8Oj9EdPLxab5MWEUfQmbyw
NNiTBwtiaaxOfab8k8Mp4914qBBlC+son1Of/yt2Ez0vk84evwS6/w0eL2Wc
eMhpv98/I5FgXYKvTrY9zc/dN+X3KS8PS1FYbM2D/EV7R48kOs8SJP2rVvNQ
vsK6bDL1tU13OGvXFTzc5X70XKOsWSicO/YPD81H13+y/5eg5NWQz2kjHnLb
z18coVxsoVNkrE/3oyaoeyaZ4N7Pv16ftXko3XHo2D/UNxdEhB77dxEP1+I2
3flM2T9sUNNoHg9TTHPz444TFFql6/TP5uF/hxBoyA==
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 0, 1]], 
              LineBox[CompressedData["
1:eJwdl3lcTd/3xqNBpaTpnjt1z6EkqRCJBj1lSDTSxCeSlBJRKpojFJpFUdKA
aKAIUcmUyFBShAYlIiqloqS++/e7/9zX+7XPXWfvtdZ+nnVnbN29zm2ykJBQ
3CQhof/7nlnZfGvEW4CF///5bjSS37gt0keAxgDGe8/Sn0bnn+YETPUTwFlr
KGZO/4DRfFj2JQYIYNLN7bC9O2T0amtTHStQgNkS7eLzMv4YHbltrHQmWIB9
JzWibsf+NUqRPPKGFyaAjo3Wf6+PjhuNu54dT4sQYPPWJWKXqoVQoBKSwo0U
oCPquugRi8m4ISqfk3JYgJdTZD6MNwjjP2UrZfloASJK52/LchKFuBiXG3tM
gFevj81W/CQGXv6Go6KxAjTpb7mhtF0c+bE/fUPiBVh/3vNCepcEZl6taOpP
FEAh2tQryXUqqs+ll7slC6AXE20geC8FtSg3pumUAMmGsctC10yDt0aPqNlp
AeLDgjQkSmRwYlxkd2maAH2xnj4K0dNxhB+8STVDAEPRmJWp82ShuYn7OilT
gLy5yy+X1snCySHv1b9sAbLT3qw76yWHHM++jdsvCMCa5h+xS0gerAd5e2pz
ST7LtyyxjpfHT7czCovzBHA6Ze21k60AlaWBq9MKBLhjunPStzQFtIpOSE9c
EeCq2p6mHxxFfIz86O5SLMDlS7duZSQp4o1zre2D6wL87O4xnCXGQoxJ0LsZ
NwWQ2sB9dtGPBfmmmOHwUgGu31XzNGtl4eWbq4XNdwjnJJZoL6ewU+yo0JIK
ATZW7ayKyqFQu6rsZ2KlABfDjbm7Jih8OPUlvPs+qXfSrMNiDmws4l26avxI
AA3J35x9eWx8VjlzIOWxAFvWsJn2ETZGdG1/f38iQFSioaj7Sg7GZb3kjJ4J
8KTJYJ1qLAd7ivY0JLwQIKXAJsf4FQdKDoPL2msF4HhZZL6R5WLHqYPr59cL
YPfJ4fdkKy4SbC7IhzUI4BIW5fgpmov7jz5F1LwRwHG39d4TlVwYHH+QrvhO
gJneXYOav7iwv/DQw/mDANEaYVHPlXlwD3P/ktsiQNX0kPooGx7yBmZTfW3k
fPNzg/aF8MC1Ozi2qEOA1B/JytfO86Di35MS2ClAVlKyt0UND67nW7vLvwjQ
7qjyd1MPDzrlT4bHvwpgYxkb9VuaD0dlfoXRdwH+SIZVamjw4fx6lVF4jwAj
/AZXmdV8aGwuCavoI/vtq1ta5MKHxa8XIaP9AgSqGfPoQD7WuY3qLR4UwHzZ
lsEdcXxMm5dxZ8+wAPcOvXqclcVH3X7ev8t/BHjI8i2ou8bHUaV64Y5RAQLm
3X8r/ICPz1fpOvY/AbxuJZ1ZVcuHbbizq+WEALlPu51z3vMhcbb77sFJNI4t
X5Kr3MlH90eq84YwjZWTNPXqvvOxu1e/oUuUxr//tHqK+vkIWHo5gS1O44DK
7HfPh/iYPrWIu1qSRoLewOicP3wsPJKxN0CKRk1NdNoLwjsL7qXnTKOxLsFj
dvlvPsK3bkmpnU4jrq97wcggH3/9qraNytEojJPbE/WTj3vpOmIqijT8334s
9+jmIzRyMMScopHTHaaY0cEH78nymr0cGvzJOomz3/GhJuzad5pHQ/26vKvI
Sz5UnsX33FWiMf+gWr32fT7elYo+7qBpKJZ3ahaR/CR5jQeKzqRxRV7Z8X02
yUdsseRsFRrtUwazFiaRfLy1DTRVpTFdMFda+QAfZxX41e5qNA4t2D7xZzcf
CnOWDh1SpzFa3m3wazOJJ9cskq1Bo3X/9RWwJPXu1f5doUXjnpWGyuRlfFSM
eb5omk/j0Zqpb6y1+JC/kB89oE3j9kkvQwOaj+OBjPpUHRpjHsPPXkznQ1i/
79pMXRoc5Z9tEsJ8NDcbqCxdSuOttOHnn0M8XIvWCLfUp1F6t8Mk4hsPnOy2
R1sNadT+Xah0vYUHsxr/YX8jGtwPmb8O1vNQ9UlKMdqYhqeLMvO1mod+xfsz
Ti+nUa5nb/i+goeCugKlyytpKDsc3mddwkNt7VeJUlMa5icdnhvn83BTENNV
ZUbjsamqwYVsHq7yCm7VryX1Ck7u8znDg3ewU3CrBQ1L+8T155J42GV+deE3
KxrTNulrzjrOg/loSfuADY38vMJLfyN5mGkTcuTvehprnYJdeKE81ETIKQvb
0xh8VrI9NICHOUxkqYQjjTJevTFvDw9b5jeZymykEd6u+6PXk4epDLde3onG
ty/f3gy48uD80sqR2kxj0e7O9hmbeXCIC/vA2UJDJjTUcZ8jD0/n5DnxttJg
/Pk/etfxENTZ0MzbRuNg+pErhyx4mBs+4cRzp6HU0D9VZzUPaXpzWjkeNDBT
pGrMhIcj761cqB3kPBUtX5sMeUi+tLtLfifpL4kVtY+X8GC5L9JHxpvGK/64
3KOFPEycPyQkuYfGQLJ3zEstHk4JvE4K+9KYcsfXvHMODyFbNReM7SX92HU8
RXgW0Z/Iew2//GkE3bdrV2d4oOeyD3TvoyE6YPbEkceDxVlV3Y+BNOKz6mRj
WGS/d5p/NwTTMOhKu/hQlgejSeqPnoTS0I1ZGz8uxYNU8lh6WTip94hdv744
D7eWGEcWHqAh+UhbKliYh0KnT/syIkm/yD9cXDbOhSH1IjjuMA21SYPNf0e4
0NToig+NonFCJCXUYIiLtdM4N7yO0tiUvvNSyE8uhtpX/3A8TuPk9k1jZd+5
SA//b/HKWBoz2a2zRr9wsSJgUfL8eBo3qoNaFneQ56VvivESaRR5Hvni08LF
ojX340RO0Ji68rt0fhMXHj90NHuSaXic4MzpeM2FScBAR8MpGpXJsopULRcC
jYaislQaZ1KP3DCr4WITdSsl6wyNL4XswcAqLkrFA1KPpNO41pRdmXuPi8Qz
3dd3ZNBY9S5t6usyLvQW9nRbZNJ4fTuq9u9NLoym2C2bn01jdvh+sZnXuMjk
/bkie57G1dD0KysLuZBanW84cIGG9nDTE/dLXLCWmnx/lUtjX8Vux8M5XLj5
xpcWXSb5qL2yNSuDizbrbRfj8mn8eHKp985pLmqkEm94FZL7smlIpD6Zi4Gy
zi+mV2lMHtx/9Us88af1mvrKxTR2XNQe+XOM+FG+7vV/12i0Tcj0ih/h4lRo
rdXbEhrSDVVnWAe40PeqlC26SWPh5UKpmSFcfBirG4kqJf2kk2szdx8X388/
F3e+QyMl+N8+bV8uKu4HGumU06hQt4rT3cVF2LmMDMm7pF/eBuboeXAxO0ho
dlsluQ81UY/1XbnwDXd9d+0+jUjFTDH9zVxU1R27efghjXNX//gu2cAF7/CS
Socq0s8bariLbLn4kqc5qFZNnmdWSWsR/x0yU7cfeULjk0nMBtU1XJi59Xx+
UkMjdtP5aUoruegZW3Q+5TmN+isB+nLgok7mbqLbSxre9o97RfW5OHZ2xVXt
OhrJvhq6f3S4mH8p8t/4KxrbhRSUv83ngr1YJ7TmNY1qj5v3muZykbJebt7J
RhofzrMF1apcPFV4Le/8lvjBV3GzkhlcmKZoaai9o3Ghkm+VySf1Ef6w/+d7
Ei/1quFxiotVCbGjt5rJ/s+1z/CX4+J5xGhxWCsNn/5T4puluRBVbzy34iPx
O+l94yvFufAZqH0k0UH8JfqHjKYwF7Ns02e8/ETq0a1iJj/OwbbW7puJn2kU
P55+888fDlbqeh227SL6/9N1a8svDlYrPY9lfaPxoPHkhvu9HPR4lNW97abR
+6v94vlvZH3aF8vUHzQiPFfbRXVyEC/4I+7YS/wiNW63ZxsHeU/TJ1g/aVS1
GAmtfc/BLeewhY39RP/XXZHVaOQgYd2qC0m/aKRm/iqUquPAWvesndUQjWfv
+lt/1HDwqlp95dTfNJ442V55XsWBcudJv8d/iN5VJMwquMchenGoM2KUxpri
LovjZRwEiqef1BujsUDEff6Omxz8SI+I/vWPxvfoz42rizkYbmqsyJ8g+jp9
munsAg6eLaHTioUYJG2yjxHN5cB+ltZIzCQGgQLRK5+yONAw8BjZPpnB/ZYF
JffTOViQqZRuIsyg53fVxXMpHDyXzmjnizCojgmNDU3i4OSHJTXDhD97f939
H5kHhf4a2NeJMjg33ctuaTQH00b+HL4sxmCBt9FKKpKDX+N3NhycQuIP+q8a
CuWgsr7u1UZxBrPch51f7+dAvCmqV1uCgcbtiNTivRzETNcskpRksHm4cDje
m4P3fGmqg/AU2f4Ib08OBgz8lG9PZRBZnmJosY2Dr9ZXGuOlGJQaPtPWcObg
8DsxLXdpBjeXJLpP3chB158nGgbTGOwNet7abcsBf69RvawMg0t3DbNqrDh4
cKVE0EX4ic+h63lrOMi64StXPp2B4m6ad5zMv6Y6DwsTZBm03dnV4gUOzob3
/dwmx+DHkqsT5vocHDyO5iXyDFjOolFaizlwGRrfLaXAQKtz7/7pCzh4POFb
0EZ4hld708Bcsv8TnYnXFBlEqLMLG1U52GmSxhxmMXBLeDxSOoOD1OWtjg4U
g7qO8IfpfA6wf1BvDpuct7l82gGKg7k7VKpHCfusam5zk+PgonnJv2ccBi9j
lfXXSnMg/+9bazqXwXP7SpUF4hz4CU/12sVjwJF6lEkJczCS5JRtyGeg7qV1
ffwfG0eOKR+WVmLgId3p/OUPG4b+5+VbCJv1Xs97+YsN0ePKlgUCst5rn3Kr
lw2F4s5FwTSDgvV75mR9Y8M7aO4TM4bB8VVx2453srFHTV+cPYNBkLm6eUAb
Gzb59kOfCZ+uvPzJ5T0bmdn34q/PZFC4fLOWZSMbLzeVvY1QZuC95Mg8/To2
LjZHv7BQYWAyx6Jb7Rkbr2p3+HBnkXW95y7UYzZsT2c//EK45oTkabH7bEhb
+Dy6pspA6um/pOEyNuYWU35hsxlcMTq2rusmG9eWvak3U2MQlRT5vqmYjb4Z
PR8V5jBQ+lWg+ayAjQG99Iw2wnejb1vezWVDQqAsladO8vvCHNey2ViscH+O
31wGVV9HRXLPkv3xbvw21GAQJ252Lj2VjTlfDQOmaDLIuFUoe+IEG9mfTl+o
Ixyunbj5WBwbYVpTjpzWYoA7FtEHj7KhnvmQ2jqPwabP8xKDD5H1aqn/1OeT
evcGBPuHk/d9p60HCJsL25ntCWLDSVLv9+0FDCpi+sa8/Nm425xifUCbgXiI
c6rHHjbsX/s7rV5IzpNYrOTuxUYlezpPZhED16wvcdvc2UhLzI5pJBzd/KvH
1YXUs8WjOE2HxJN5aLDNiY1R24yjLotJfbu0Q93I/8NH08IUZ+sysJ9HFW9f
x4brBxO7H4T9ZJe+32HBxm/T2WbFSxjw1juMeq8m58lw6/dfyqAvQVXebzkb
yZ26lnp6DLYH2qgGLWNDue2t8zjh36KBOgeWsnFQJlz1gT6Dn9cWmRxdxEbE
DffswwYMFG7KWSbNY2NXbfXr1YYk3sLUjenqbERzP9yZuozBwF5jz9xZbDjK
v3N4SXib/MHg6wwb1PBIXoIRA1q3Kukej/RDpX/JOjCYX76r6CWLjV/qh/wU
jBls3P6msUWWDbtbTt8bCYfJrxPplWKjJ3sxJ8WEwUjrXMOJKWyI964ed1hO
9ueQe0BWmI2WjTVn2CsY5OQKvVYZp9C3q7+3ifCt8p3aS0cobPceHE1dySDR
j5NlOUjB112i0nEV0aOHmoxbH4U0ZXd9tikDq5anRSHdFFR1sect4Ysbptie
/EzBc/j5plOrGXT9NyJ59SOF2cHGInZmDL7eLHjz9AOFzzn1rvJrGKjKqpV+
fkPBTOFGyCvCPVN2Fk2uJ7/XUbKKX0vuk83ee8wLCmqLjT6YmzOIb9P+ZvSE
QtRUqxmSFgz0x0/P3fKQgpBPxIxqwp/9k6IP3KXw5qtYc6Qlg7OXhSadv01h
Z7miDawYdN54eLK6hELqWFvEGOHEuBumP65SGDqQ6lVqTfSYn0/J5VPQ7fGR
9bMh98fBT2zpRQohuRm+89YxUPZoVnDJopDeYR3fTbi57PLyY+kUwk7f2X5h
PYOtKhknSlIouCRIjznbkng/A0Q/JlFYaBdszrVj4CLcc1oqjkKzkc6GBsLM
QImN3lEKMb47Z8bZM7CmwjU9D1GQfG9zydSBgVzhb83T4RQma7G+CzkyePTp
8fqaIAo2/d+6bxO+9Cfh3Jg/BWvff7m+GxhMMh+Wne9DQflZxMy5G4leBJzI
37aTwnh7zsZPhNc6T9p1ZjuFQM9T1mn/MWiwbLR/tZVC3ccokfVODF6IZHlK
bKawKDk3QHIT6e+agQsmGyhMP6uSe59wXLSdVKgtBbsOzVP7N5P72Wh9ttSK
Qjl7YPk8ZwbvJD03DK2hwHp4rugz4XRH2njhKgrHtd2a07Yw2P2639bXmELX
kT3VNi4MiqL+O3nNgOTjSp/PlK0MXh1tmDyoS8HUY3pzOeEysfqzixdSCIKQ
mK8rg6frH7sHaVEITv7Rp7qNwc5xZnPlHAoWiZPPfCDs88HykOgsCvMW7RZJ
cCN+pnjnnTlDoWON87wV7sRPDGs2n+RR6N07wf1DWNm+U76NRaFNEFKdv52B
0KcdI3PkKByNmaTj7MFA8LtCJkCagnltmaucJ3neWN/hoTiFdc/erK8inMle
VicrQqF2cZjo/h2kPsfoYJcJFlacadmv7kXmA/fFjtdGWaiwZq40E+42e7td
ZJiF6dE+F+J2En/Jt81z6GeBZzy2GbsYhHwdpwt+sCBm/f19P2FvS5Wnk76y
EOTkycnxJvVQlb3o+ImFrvZMru1uBlseyNwqamWhbF55q8ge4s8HPcYk3rOQ
6fnZ7QZh308uAdsayXrUqiI3HwYt0Zh1r46FT/YSdxV9GZxaYSqh9JyFjv0O
8VWE38y4NTO4moW8bRtV/PcyWO9d6/P+AQun3PVDVfwY7Hj4YljvLgvnMpXP
vCbMluktTr/NwhlJg+CD/gwepO/ImShhwdu3kFkQQPKhFPLMtYgF65DMY22E
XxVvUH+az8JItuHt2H1E3/qW3JuXy0K7bmGB/n4Sv9siNiWbhQBXyu0b4XvL
niUKZbCwftb5jlOBZL5S7Hix4zQL+22DZ60IIn6h8cD4TTIL4eceafYTjmk9
3WOSwMLbmNy/Z4MZXJ576lXRcRaGgtbGrwlhMLOio4eOYiE28+3XYcLrei+b
JBxk4YnUXvGcUAa19Qp1k8JY8Mtd0WsZRvrHYO0pv0AWjBfsPTNKWPbR3pNf
/VjoXT5L+mI4g96a6y827WEhYt2BVTYRDI4dnmfU4MXCvsuFq8YIa09IdK/d
zsKEd5107gHil4zby0dbWVDNkUm3OUjyc93lx7LNLEgyif1/CU/dRa+4s4H0
x5mgaRcjGYj1lDcutmNBMbN/wOoQg4Rqh6wSa5L/NN65EcKno6VyF5qzIPVK
ST7nMKn/7eEv101ZqHFWsjI/wsCzc76LznKSHxOj9UOEDdMbFEuXsWBidYnO
iCJ+EjYqYqDHwiPd0JJV0cQfdO9o3ddh4fDRDtk+wvXH1U+YLmBB6MqYbspR
BkvtXLRrNVho7e5TNTpG+ilmr5SjGgvM1o+tXwiPm/vP6FBmYZ3cgHPccTIv
NAb67KJZKH2zOk8nhuhz/ImxES4LwdvF7zYTXiHf8CCKxULTBtu0yFgGMmrm
j1hyLJgz1ibqcURPnk2dlCvNQpUkfb2O8OiimYFLJEi9VnX2BMST+/jmrMYz
ERYutD0Y4CcQPXaJ4TkLkfzcbbn/gPD3F6MrB/8qgpPv8J9HIpnv7Ifyj/1W
xP016yulkxjYHoyymPlLEXdn/Oq5RlhJpVy9rFcR75I2dDmcIPOD89nldt2K
yG27lD9GuCpvUerPz4ooVRPWz0omflV/TC22XREVu46dXHmS9Nu/3EH1FkVc
i91S9o1wYcGJsadNiphmmlsQe4qB0z1b7GhQxP8AbudmCA==
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0, 1, 0]], 
              LineBox[CompressedData["
1:eJwd1nk8VF8bAHClJLK7MxO591ijUiqiVJ4kIVlCiFJkKSWkIkJkSfaE7Gkj
UipSkqiQfmVJKEoLkiUlLWR5n3nnn/l8P3fu3Pts5xxZx0PbnGfy8PDEzuDh
4X7LVXbeHfOgYeX/PwM6YwWv94Z60SA9lpk8IPpd59Kzi0cFfWjY1Nuk1xE0
oqMGJsMJR2nIkop8JTAwqtPk2N7I8qPhQpyCxUmrPzrh9zbIpPnT4PdbTYuv
akwnRSC8VTqQhvav91wOLJ3QmXLKnEoPpkHdSe1UQ+aUTqFCQIpUKA2FITrv
HSN4oGS2xMWUMBrG0+HzxkczwE7eVF4ikobUv7I2/GMzgZ9PSiomiobugwp7
pZfPAukC29OzY2gok29y6XKdDQUx370D4mhY99BdoySDD+RuVLT/SKBhcen4
wRkNc6A2O+OBcxINE5NHQW2KH5QjnEl7Mg2ur5yn76oIgMeSodmG52n4XtZQ
LmUuCGenZh0qS6dhpjiz783BeRC+wH+nUhYNfKunTLYHC4HqTqlXiTk0dG54
XdEbKQz21teaJnMx/v6iOa0RInBx3/AO18s0fOrR67+9XhRY1dc8G67SsMw3
e2zwjih8d06TXHWNhqrY8A+3lMRAYbWfQXohDebLmrJIkhi8nz0tNF1EQ4dp
/jfTSTH4EPrBZU8xDayQ6LO2juLQ6tBgWX2bBtvytiSrx+IQrXv8jWwpDY/l
t7jZEQmQaI/+HVRGw71SDdEQPwl42Xrjeud9Gn63Wal9eCkBB/hO82hV0NB4
YkAqmkhCg37594RKGiZ9Q9rTPSShI7k3qL+Khme7Zy5RvCcJ6tJ5NzY8oWHU
7lziOh4KehTSTqbUYHwBDbrjGykY07T8M1BHQ8YNURXPUxRMibmL6zynoaGh
5dPtKgo8b3q2xL+gYTiEt/zNPwpkrEfXf2ygoTmu8eKvFSzYnxxiodZMw5R+
/HJpVxbEm1+WCGyhQceuL2lnKguqnnwOrm/F9xWtO9dQw4K1Z6ozqDc0iG10
jQ0dYcH2y4/dHDpoiBE54HJGmg0ugS69V9/RwKsfE/t3AxuujSxkD3fRMN1w
+1+HMxukrEIm1D9hP5itk9ePYIPCkaEUv24aRHyMR/WvsMHp0vv+B700cO52
NA9Vs0HjQd3vqT4alhqWlBi+Y4ON/IIKnQEazBIUv7r9YoPDK32doCEaXBTn
adoKcmDJrjuBFcM0WDiJvFzIcGDrzxcB4z9oOPouzuSjGge2OY+vWTWK8QQU
VicAB4SXZd33/I3xGp7M0DPhQKOv9GT+XxrshF3uzNrBgdMyzbyfxmkQfH5P
r9OJAz03mEbOJA3LZw4NtrhzwDLIwclkmgZrB6srf7w4MDez/2HIDAZcCvaW
Gx/lQP8HdncJLwPxwlXTHb4cOPRNu+XLbAZsJc+GFvpx4Ojq/HgOPwPZEpua
n+B1UcGbUgYCDDTsuRqyCO9fGZ51+Og8BoxyzQo/4f8fKHyUcVGYAb1YvTs/
8PlBjrtTGkQZcFQJMrHby4F/Pk/3joszcMFg+IicHQceZWjwKVAMTFXGHDI0
48CJ0NEAYzYD5ycVnzRt5IB03cb6w/MZWBv2Q+OBBgeUeZ2Gz0szkLYuu4pf
iQMKz+OGHsow8FwzL6lUkgNvymbXfGIY2LeWj+fJDA4kuk/5zZZj4Jfl85dp
Q2ywjCkWWKjAQNyBJL6adjbMbbP026zEQH1Pedi1x2zIlFxQ66LMQEDYaE98
ERskVVb/OrWIAaFATmfheTYkinfOyl3CwHIPkRK5MKz3txV/KpYyMFqttU/Q
iw0VE/tetKsx4JA8M/fYTjZIXC6IHFnBwJbJqN9eRmw440cWCWow4DHYkcij
xQZe7eFbcpoMZBzT9VRSYkNn51qF1asZ+Fvhrd0tyYZbkUuCTLQZ6KZeTmrN
YsP83K4njuvQ5Xnn5UZZYFh/5PcRHQbYj0wUs7pZ8PTzPCpyAwNh+qGqea9Z
8IOqkj2/kYHFKv09a2tZUNhYKJO/CfOvo2Rsc4+Fc9g3t2wzxr9q2YbfBSwo
paO/PDVk4OnbE+ni2Sy4IV14t3kL5nP5n5X5iSzw8Lf3f7+VgcTnM4ZLwllw
0PjGyq+mDMgL7q9W92eB8fidjyPmDNR4nL8v68kCOfOA8H8WDPD9fDrh68yC
+mBxed7tDDhP3KxbZccCFRJaNtcG31/jop+1OQt2q7VvFtnBwMHUd+Ftm1kg
SKSaJewZSD2TF3p7PQscXprasHcx0HSBZvo0WGAdG9gxfzcDKgfr5L1VWfBM
5Zq9tCMD5vc4x0wUWXC8u6VTei8+f0kL57gMCxYHTdtLuzAgxTkgN0KxIH2N
yvv5bgwcm7mt5rYwC8Lfmu5h72fA7sZm0wdzWJCUd+iLxAH8/c4iZu4MFpgc
C/US8cB4/7beTBmnYPrSKR4BT6y/n2Wi8ygFybT7OV5vBmy0zPd5fqMgwFF1
+cRhBuZkfxku6aPAJfRRy88jDMikBY6u/EwBs5hzsv8Yvt9rFdu+dxRszVTS
/OCH+X4rJNHUTsHi+51/Wvyxf8XrVAZfUaAzY9GTuhMMdKa8LdVsoGBe0kRG
eRDWs066p7iegrtaG0Kvn2TAJEHlu00NBdftPx/LCmVgxdYP8ourKVjHfuEf
G8aA9YrXHUoPKVBd8iXuRAQDsStaQozuU7BFeH6J+2kG3unsSUwqpeDXR4NB
mzMMLPu8NpH3NgUZQXarNsUwwKEG2ck3KNA7qp6kFsfAScONNUaF+HuhUj7p
BKxP9qgxyadA3agqdtZZ7C8VWTfqCgVugxqqQ0kMfNQe6lK+SIHu0ZFPLckM
KN9nR9rmUEAvablZnsqAqlWSzpVMCnay76ZcSMN6XlP+LpROQRn/0dTwDAYW
as+LjUulICGt//b+LAYOLzvDXpRMwZqVQ/1bcxgwfF2Q1HkW8zXHar1aLgPF
za2sKwkU5Ej/LRK7xIDixMmysDjMn0HBupHLDIxXv8s4HkMBa7XuQNNVBv5b
GjYceoYCZ++4spv5DNy2VOvOOU1Bl9neK7EFDAjq7CttjKCgfl5Cift1BrZr
bcwXD6dgpLy7d/MNXI/cJee44H5XZaGqLV/MQN+L5bL1IRRsL9C8PXkL51/n
uun6k9gvJxpM2+4wIPKO+lEVRIG2e6XYzVIG5nus2W8ZSEHHRONYRBkDnt1D
ir8CKBi49B+/w32M/8OLpIv+FFRU+eloPMB+UhFUdThOQWB2VpbAQwaImPr+
hX4ULDzOs7CrkgGJYp4X/45R4B3k9OZWFQNdP0lHx1EKnjZGlYY9ZmBgzzym
9ggF0mFaldZPcb3IebWwwoeC3muqo8q1DHw49zOy4jDW13DR9rE6BvYsWfS2
1psCQ+ehnrp6Bk5kGN/t8KJgaEL9Usp/eP865tFfTwoaRR4mOL9kILp2aSqN
jsrUu7GiEfeDWQW9xocoUMsLnZxqYiCoTXd7qAcFnFUaJ+pfMfA4c8a5qoMU
pFiILzv3moG8ZlXLOehnkq8kHNoYCB5RNrA8QMHmlKVLlN8w0BprppznjvXh
7fD9/paB/KgPRTPR+vEx43c7GXD3aU112k/Bf8HjxYHvGZg5+vpy/T4KZi96
na33gQH9jcKpmmivkYYncz8xcP0qUb/mRoGiZYbsy8/Y/91zNsih977vL03o
YSAzjScy25WCTZruYZZfGOg5690iizaQ+S+G9RXr+eXtzzwXzIdbeWNbPwND
v0tL1NEGwr0mqYMM3FvvOfDEmYI4+i+/zTcGlHoN3GzR155lTLO+M5BEGc4Y
2Yvz7BC48vUPBpx4VWNi0fHb9C8n/mTg9G2L7qVoM81MK9NfWE/Hog/NThQ0
1S7aJPiHgTspN3ceR8t3n/Op+ctAZBNoKTpx14tT3cHjuL805Zu8cqTAjz/j
3JoJBoT9ooNPoQczgiN/TmK/LWsu0kL/bn9dUTCN8bzJLh/eQ8FzLSa9mIeA
3BbDqHz0dsWlY9EzCPjApmln9JK1bmOuMwko1cryKKKX58hk6PISMJf3O9y7
G/MvlPVxwSwCY7Jf4Br6XIdW/W+0QPuUmSea59/a7Y2zCag+gxgttPDY37B8
PgK+3mIfZqJ/Tt23DZlDgKVxU73BgYLK5samHfwEVDKXHstE87dHfFsxl8CO
GW5JB9HRoqo3BQQIpBwb89NBv10gxP6Eviu9hiWBHlnrI39PkMCjSytt+nZR
0GdW9DpuHoEXm9KXVaLD3vAtdREiENNWH52C/vK3bslaYQJRm+/v9kIvOKzT
LCZCwNtoLMMYXV10h/6CfmKSv1IFfaHEW/yBKAGr68fYc9CbNR5fjxcjoEWl
avfupCAzaPj7XnECJWqVZ2vQIWegU0uCAN9JGck89J5fU4fmSRIo89hRHIWu
mfYu7ELHRsft9kCPnO1OuEURGBTQY1ugD+imkzAWgfe2bs+10Kkb39tYswm0
/DE/zKDBd3SNCofATve7s+egF+9XqB1Hc1wK/YbtKbhifGfy+XwCRiJZNe1o
icmv7zOkCBzyMe2uRvvwCroflCZgSbfWX0ePJdrnrltAYPWzZO/z6PAo+TAh
GQKp63VbwtDrjlySeIdea9rc542efUbepJDGfAyG5+9GSxZ3q/szBLbt+ixi
ivY4vrjOkBAwTS2g1qM9lbX5ObIEhq98vKOKNi/Y/qsHfXr14y8y6JzcR3G3
5Qhk6dXmCaNf7ixvC5bHej1IH5m2w3g6I19sVSBwzlX+0Q90U8N+LylF7K+a
w/O60Zbncx/3ohtFXzW3ooW2ej25pURgt1GpcD16cTHbJ3Ahvp9LZXkF+tb6
1mZDZQLPT5a/LkYPyw59kFQh8GvpBZsr6JE1GVld6KamWEhHz6Xl511bRKBe
6NnpePQqySoVn8UEnDbeUwvnvp90yZ91S7BfZQaXB6BV+tYdnaNKIHuJaJQ3
Ovfz+cuN6NDEUY196MClc8LPL8V+LotYsRu9KOcx23EZgVyqNcCae712nt0i
NQJq0/ziptznDTBmI+gVEc7D+mh7gTV/7i3HejlvEddBP+xMMTu5gsB//St9
NdHbXx2xN1hJ4PDMYloNXckRlRZRJ/BP6wCvCjo9ITf6Nfpco6KCHHr2O7fi
dA3M17vbgdLoccus03tWERBynyFGoZ8IB1ILNQksLBB6I4x26tC1GkQ/XjzQ
wo/+s3mhYbEWAWVW5UxebjxZzj+OrCaw5Mij3ZM7KEjq1jRZs4bAzxDNoT9o
+a42hyl05WTAlRF0iEiQUrU25iN0LGoIHVzikhu2loDLqML5PvTBhtpXBusI
7H8b1vAZHSnVcV9wPYEL7TeXdKFtJN5Yv0RP0AY33qLZv8euxesQWNA9btWK
Fqo8cmcbYHzdp5hm9M9Fp3wkNxAQ7r0u8BJtddd+4DXaWdeQVY8eyl01P0WX
gP1hjQ01aP5vBlPWGwkMXLaLqka/21GfxtEjkGd24/tD9PDBH9/a0Wdeqh4u
R7t6jI6nbiJQPPlOtAzt7TK30kafwOjHhro76HR5F23OZgLqWxakFaOVNMGz
DS0X1B1ahN73+7+dyQYEjvWahxWgF/pvmGVlSMC14lxmHrrnYrOThBGBlbV9
zy+jDSVLAprQ1bPOiFzk3q8hYxq3hYCkx2PXHLTyKp0OY2MCAUVdrzLREYKm
sgJbCZz6vNIiHc3jFSxbi7bdJdWTim7t4+sMNSFww/VnZDL6wAPKHExxvZ+t
uD4JnTrRFTyB7n0qNSsR/etkqnuZGQH+sE1v49CaQ15iPuYE4tdLP4pBB1zN
8l62jcCct6ySM+iMT2Zx/eg//+6WnUYHnr/vetkC690eUh+B3hMvNOFgSWD+
HJ7+MPRKK39jKSsCkbYPWKfQnToati1on1sGZiHoaO8DcrHbCYh1rU4ORgu8
Nc/bbE2g0Eu5LxA9cylrgMeGQG3mzU0n0OY/vvbfQ5+lvIv80Wbek1e9bQnU
9YnIHef25/NgucU7CNzbq5bji576eHHHZ3TRrwDlY2i/fclm6XY4/3Nz7x9B
N36ImGVhT+DmiMl2H7R60tWjAjsJbHyp8c8bLZqpcLUKvd9NMN+L22+fVJN9
dxF4Ix/h4Il+wBnZuMyBwMGPjvQhNOtx9s0e9Nu+HT0H0WdWOHem7yag3ax6
5wD6S7hnrfkeAoGeGVHu3HwUDXvNcSRw5cE+t/3ozW6inQ/QLVU7tu5DHwce
Pm8nzE/UqtVuaP+kwWGlvQTaBGsWu6K3JsxM60AbcloUXNDL1A/NincmIG2k
quCM/mTksEzPBefpV7bKXvS3w9NSf9GOrAl1J3QXHVBb4EpAdJOEviP6dPQM
DQc3AvkXy+z3oI0byp3E9xE8rzzy3Y3e9rzV4inar2tGmgO6YVXgbN/9+Pz1
Fo92ofXS3vkucieQWBozsBNdYUaKOtGHdpyR5lo00uty7AECescXmtmjpTdM
7IKD2M/n15+2Q/OZDbz9ge51KqrZwY3fft/8ix4EJnOt+Ln+8jFHyvIQgVXq
kia26PJlD97P8iSwfLo+xQads6/HuQTtN2jXY829HqF/09mLQFJn/iquP2+f
+5DyJrA3O/XMdm5+fK3jnqLfDczrtkJf27tD4chhnAebQR2uk120Tyj4EDAz
l8m2RGfnyKe9QnOoiBlcpwms9Q85gutfvpirBdrD+zpZfhTno/VywzZufwbk
RHWhbxFVba7HctfdizmG+0FlQr45+qPm9UJtXwKXzz+U4vqoE9v5K1oMsmPN
0BaKlz4l+xFI62Fmc+1r6a+od5zATDvVQFN0UPYT1R9o67klYybotuir/zL9
CbQOXjrG9a/jW+KMAnD+4wb+bEXH5LT1/Ubf5fM9znXdvMP8F0/g+eXr6mlj
tM9VvW8mgehtsuFcb1h+OG0cDW20CNffNioKXQnCeT4ln7aFu95vO6lvHoz7
YydZyPWx/Ov6E+i1TfylRuhpj0ahqydxfap6oc+10kWRDPMQPL/5OL4x5M47
SfjxDy3FuX+Qa9G048JXQvE8oV3HyzWV82PE9BSe514Epxtw858unT2G1p7f
rs71vCYZiYthOO9V1Q2b0fUOMqbG4dj/VRoHuA7S1bH4hc7ZqyTAta5pHpMV
gfuvUVS+PvqJ5ok7+pF4fthpbcR12OlPYsPo0LbQwU3c9bVoQjPlNIEaTb54
rt/3DyvpRGG/6r9W55o4fnjfi14o2vdWjzsf4iMOsWfwfPhZI4TrslaDaxrR
BMZNSxdx7e/K/7ATzSu/p2Ujut3WMj00BuffZWkQ18bETHdRLIE9DqzFXD8V
YG43ondHibXrcuul3z10NA7Po+mccK4vd1WPLIgnUBqgoMF19sN3VdVoTaOl
PRvQ8wus7dwSCIhbLEvmusrIolIoEc9nLFkDrh/K/hy6hf6oOzkO6DeJtl+s
z+L56nZFEddXu/IKJtDKXvZOXJcp82pfSCKQcf0Vh+uKg1HnNp0joP9UpkEH
fStmd/lXdPBajXCuhTdfLYxJxvgeSq7n+n/VyipK
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0, 0]], 
              LineBox[CompressedData["
1:eJwdl3k8F9/DxZUlEbJEyGfGzIhEtFEkp1JRQiEtpIhIG6FUlhKpyJIoeyRF
CqmULaX4SpGsJYQ2JVGIxO8+j3+83q+Z+dx7zz3nzB1lh4ObnCbz8fFdmMTH
93//mdLWByMHeFj4/3/fDEeyGnYHuvOgHRrQ0mDx0/Daf2neop48jBTK+m7S
/WWoDbO+SG8exG10DyqtGzJ87dBcK+vDw9Y1GywvBI0YBj9coRR3nAe3/apO
pz6OGcaKBDcq+vHwLOnY9icL+DDumDgeH8BDNFve7cM3Gbe4E7EKgTzcU1f1
iGzhxz1B6bTYIB6c77xlCwsFsZ01Z6VDeNjMFA4WXZsCYSEFhbBzPPhtSvHy
iZoKxaytZwXDeBiLDZkydEoUWWE/PU6E8yCn0cNv7ykG5k5xc38kDyaLDwmK
OEmgIjmhyCmaByZXYUfhzelQO+NEN8fwUHP/0HrVZEkc0OgVNLlCrq/+r3x+
lBQujgscLIjn4XGth56FvzSCZx23m53Ew92IiBOezjLQtFN4E5XCw+0dN22i
186ArU3m63+pPFjmW3y8ycgizbVv2550Hvi9Qq/eHZaF7JPMQzUZPEz688My
/7kcfjrFyehk8qBmea0lL3wmuKU+xvG3eLgWNfL24SZ5tAlOiE3c5sHmtZdn
k4QCOgI7nHfl8nBOyKNlVoUCGu1rrJ7c5eHkyK3fiUcVEbryWIvyfR7MrcRE
3LlZkG4OHfIv4CF36OP221Wz8KrxTnbrIzL/ubsaDropYZ/QWb4lxTz0+F16
VCtEdFhT+DOylOx/i5Z9bwIP72I++feU8SA7eaKrU5PCIsUbd1aUEz2KA0Zf
PaTwkYs7Gfuchyz5l017aBojulbD3yp5kInpSjy5i8a4pJuU4Qseis76fF+V
QuNQzqH6iJeETfRriltpKNn8Xv6hhviD/7D2uKwy9sacstSu46G81emFtLky
IjamS/vV8zD8IpAWC1JGWXlXQFUjDz+sg93+FChj2fknCTNaePD+ohDf1aOM
zelPXezf8fD2eK9JqwIDZz/nTxnveTiv9regz5hB5oCqXF878adlRZW6FwMF
61Njizp52DItZ+JKMgPOqzfWp5uM92W9h0klA8drbT1Fn3iIdXtcb9THYHFR
5dD4F6Kn/HvvWBkWW9hZxYbfeNguQS0xXcLC/s0aQ/9e4odzfBH7t7HQ2JHv
V9zHw2WnzhDB4yw2/Hp5YrSf/H73gqdKcSw2OY3q6fzmQb7M27P0AQtxraRH
h4Z4kLqbu+fXGxa1RxX/3fzDg0Jp77+yHyzOKtXxd47ysCfAdN5CYQ4f71C1
M//xoDGRfcaM5mDlb+9oNsHDrL27tRR1OUxN7Ck5NYlC1py5HcmmHHo65Lrv
8VNQqusf6tzJ4eAP/frPghS2tjzc3XOYg/fSmxEzhSkw238XFgZxmC6ao2As
QuGAQr6CbQyHhcFJh72nUdDTGl1Rm85h363HCWniFJ64KobNyufg77AztmY6
uS4YOWBUxuGv57Pdo1IUqiIaJm94yeFxwmIhbgYFpyKTr7rNHHwDf58wlaPw
b3yFm3AnB8XKVVWH5Smcuiz46XEPBzV+x74rihRkJl6YOQ5w4F6E95YoUVjX
GKvd/4dDS4Hg806KQu4ZiZtu4xyi3MZ9BBkKCQX2H79MVoFVWK6IKkdBf2rV
/hAhFUxtsvJZO5uCsU5YodNUFSTKzKpwVqNwhlN4fFlUBTJzlg6eVqfwPe3U
Nh0xFURJtQqkalDY9zax2EJcBVt+LBgunkeen99ROUy4eMz1ZbM2hblLUq2X
SqhAOj0rZGABBX6NLceUCZ/3odVFF1PYEDn12SNyP79+Xx6jS6EgUeOAOOHW
1mXc0qVEP7Ou0xwZLy9Ew99Mn8KmIO8ZAtNUIJ/aXu5gQCEusWbdXREVmFR5
DXkZUvjQEXNel8z/Wde0GSErKDy9HnLx0hQV9M8oU76yisKLPL+zrwVVcKv2
ltLN1RQidyZI9fGroKbmy9SCtRRKXMYc+iep4D4v9PMzEwpNkotM301wuKN4
60HdegoDfr9M7vzjcOC47fG2DRQOqU0OO/iXw37TOwu/mlMwSnskwBvhYDqa
/2FgI/HTipA9RUMcmI0ngv9aUji6QVTP9DeHqgApln8zhQgz54ZX/Rzm0IEF
U7dQmKz7aN/qPg47tZvXSmyjUFH8XTL3OwdRWqFO2pbC8+Dah1Jk/+1fmW+R
20FBM/epodtnDjYX/N7J76TgmNfoUtjN4b85mbaKDhSiJc5/4if+OdZd36q4
m0JHgO7W1e0c5vpP2Co6Ez1XK20KaOUQrzenTd6FwvVPS6zvtXAIfmu+S24v
hbfWTW+7GzlE3zj4WXofhQf0sIVEPQezI4HuEgfI+H4nZi1+zWHi2mk+kUPE
n+LL4za/4hDDc7vE70FB0rWP8nzB4YSD5vyxwxQMPveOhVVycA58XP/Li8LO
kF/Hrj3jQM2debLnCAXZdXfbHjzhsCFxtm6HD4WNHbtcKkvJfB+1DtcfpzDf
RtOqsYiD4ST18kpfCvvr099+eMhhWvRYQqE/hQW75ed/u8/hwZIVgdknKezw
7T47cJdDtm3XkaRAst+5BTJ/cjgYyL08fiGIwvvqt+N/szloanwO9z1DYdRv
6+HxTA7rxeXvuZ2lQAcaxE9kcBj8YPx9y3kKzYr5iRPXOCT4b9dZHUbBPWFR
yvhVDkbei6K1wyn4Xr36fCyJ3C92X0gxkoJckPPC0XgOi9aVXRC4SGEiJHLK
8GUOLt8Xa/ZGE/8rf3P4dYnDSu+BzvoYCvOKRHb3RXHgadTnFF6m4GLjqvYt
nIOd3IPYq3EU3s3xqP4UyqFA2PtycAIFw6RIt86zHCLjeu7uTaKgUr+Sbgvm
oLewt2dDCoWWBkWBt4FErynWy7VTye9lNWs1BnBIUfxzW/IahekHnArrfIl+
xlkGA+kUbhz7XFxzjIPs0pXfXmdQ6Hz/bMPLIxycPMILcm5SyJbMDXjhyaHd
Yvf1C1kU+qhMtyp34udpkffcsimELZvKVh3gMFDY/WntHQqinwIfVblxKLPU
1GdzKdjGLVhd7cJhc5bu3X95FArnxjS8ciJ+8a0xb8oneStN8K1z4KDvViqZ
c5+C2anrZk32HN6N1Y6cKaBwROrc1ve2HL5dqxa2f0T29+7l291bORSX+Rgu
LqLwe1WqXe9mDn7JSUkiJWT9AiNew5YcVI/xqbaXUrDW9hLi38jBw9+xJa+M
QrnLUaXpZhye1Z67H/SUQjdffyVvPenboCWlNs9IHyvbyWoZc/iUqflbrYLo
/eql1IrVZH9N1DePVFK4/+prldVKDiZOvR8rq8h4Pj/X7TXk0Du26FpsNYWH
rkVJJ5dxqJUoiXR6Rfwm+/x13FIO5xKN7iyopZBvN7vvng4H7RuB/8ZfU9Dq
uzzpzUIOM3UW+1a9oTCS7Sc9oM0h1lJK61ID8f9I+zzpeSTfMm+k7ZsoVH88
YKczl8Pa2Hkaai3Ej3vO3tiuRvaH/93Rn28p5LjqyweqcFgTETb6oJX001sU
3GI4VAeM5vq1kT5On3KhmeIgqN6QbNRBYWlqbqqQEgf3gZryqZ0Uuo7Ijuso
cFCxSlB+1UXB6sCzDFc5Drvbeu5HfiR9tGRKRpIMh9W6bkFWnymsyWuf3CjJ
wVipOkz2K9E7XOKJhATRw6WwtqmH9LmA7Lf108h18U9ml79T+Om44PS5qRzC
eX+Et/wg88l2uvhCiEPmfwkTsj9JHuQ8eRICJM/2fgsb+inYh39St57EIWLT
mvSoX8QvmtNKEsdZWOgmWpsPUkhO/dv65S+L1xXqq0WHKSy5Eh2qM8KC7b7k
+fwPhX7pk6+Dh1jSF6e7A0aJfiU6OS2/WPgIJ1zSG6MQovdHQ6ufxfeEgJBf
/yik2jeuP0POF0PNDcVZE8QfPrnTO7+xeLGEis/lo+FwQs/f8CuLzSrzRkIn
0bCc9zsu+RM53yxzGdkzmUadxaI9k7tZzE9RSljJT6OomPu85wOLarGkD7ME
aDT4lyvVtrG49G5J1RBh9+4vYvqtLPj+LttcK0jjWvDyRzdayPln5E/QTSEa
FlbrVOSbWPwaf7T11BQaUmF7N4bWsyitq329TZjGqsImTK5jIdx85seCqTS0
MtIHj9WwCJ2umSMiQiPLqNx9qJrF21licp2E5eP5HnhWsRhY5sk+FKWhfkOw
YrCCxReL2w3h02hoGtil+TxjEdQiNM9ZjMbhpkMb+J6y+PynUmOZOI2ww+ee
n33MYtZhwzpJCTLf7Q0SsiUsntzO530mPK9/h3p6IYur9zykiqbTeOkuJ6f7
kMXaxU+zIyRpPHpQ1/jiPotE/76fu6VoZA4a73XMZ3HqPFqXSNMIOCBX9y+X
xa7B8YPTZGjEqZWJx99h8XzC41Y74fGEO7R+Npn/xe7IvBk0wh0WCrdlsti3
Mp4OkqWxouH0s8AbLC6vattiI0dj78PyLRrXWeDob705M2nsfDdW1pTGYu5e
rmKU8MYselLwVRbXTfP/vZCnEd0gJqubzEL639e2BAUaB5pC+b4lsPDkF3Xb
r0jDMWLj46vkvDoSZZtqMIvGwtq/Vtsvswg+xwaJKZHnP8iVyMWwMPC6Jv2e
cKYk9bfxIgvB86zZLR6N/YuOil6JZCGT273oOEVjWOXoD7twFgeOza00Id8N
XcYOaSphLDln6AvPVCb6TnKd8/McS+a5efAjYRWt2/7FISxSUh+H32VoRKWs
Sg8LZvHKrrApgCXrC5l7Zedpsp7WkJcbOBqF37ds0zlF8lGz111BhYb1jJzP
4gEsrK6kPv1EOGtICD2+LMQ2uJfnzaZRG6fiUEnO53Nz5Tz9VGm8PvPc9KYP
i7zljXUmajRy2Njx0CMs+pR7O2TmEP/ILvE+7EX2Qy8hqZ3w9BsGebaHWUzl
sdMy1WlcpLVzjd1Z6MiUzfGcS/xMh7rrHiTzU7w3bKBBw2r0Sb/afhZzvhh4
T9Gk8UtEX1vJjUVq15X0WsKV0yzmyriy8Js3JfjKPPJ7bpYfxPawUE95Kueg
RcPoUqiFiBO5XjFtu7o2DQWTpUemOpLxvlEWA4QnfwyzFN3FwlZEb/jhfBrT
cu91SdizKGmNtTi5gIb2nDcqcnYkz2+8bI0Xknyv5pupvJ3ka+Z0RYlFNH6U
mhVobmURH5ka2kDYeFulgIEN2c/3Lrnxi0me6IN/zaxZjFolnd2lQ6P3hkGc
oyWLcnG/Gaq6NJZtUW0/tpGF47uV1t8J/4mfWRltzmJ4rapJ7hIad+cMb8rd
QNaT5NTvtZTsj16qb+16FtHdumZ6ejScywdWD5iQPmtvsh8n/Ce/8KasMcmL
hP/sJ/o0bFWrrhusYRFwzzk1aBmNLfEf9fYYsdhfU/HG2ICGiXqt48WVLEIU
3j0SXU6j59Ea6gnI95p0i80rwt8XTnL7tZyF3NBIZoQhDafsPCNVA+KHUq/8
TaAhcnVqpp0+6R/1054yK0he5HMuxyxlYf3A9lsD4RPt68XrdFn0purIx66k
4X3DT3i6DumjH8bjNqto1ODTaYtFLN5vq4qbaUT67sGskxcXEP/s7//RTPjy
mYLRZm0Wew78Hr28mvi5zLSP1mLh4Ty1dMsaGjcXuNq6aRL9WWf9mWtJ/4XG
GRbMZTFbF4eaCP8I2RszRZ2F61C1XYwxDRfpnTu2qrFQPb5CwNqExk+Xiejs
2Sw+ptU5Sq+jkWBQpSugwsJE5t6J14Qz2wyN7Fjy/GIl8/D1NOZYvX9QoMxC
TcfwnakpDb5TShGyNIszoubKIhtofFjrU+XNI33tHqBcQbgoZc/ullksGr8I
tQaaEb3L7LYvVyR9VDRjI8xpdC+uuZUuT/porD1gjPDNCc3NEjNZDJ687FZg
Qfye02N1XJaFbq+7pOdG0m8hnte/ku/pExlJHlqbaCiGLzXeJs0iodMivIfw
71vXdV9KEr9febQn3ZKGa6Wqx8rppC8jxMbsrWhkt6oOPhRnsdD6uKmCNY1q
KcmShWIsWg0Xb60nHNNiWnVHlLwfPPYxFzYTP42tkpsnwkLk7cYba23Ieop2
pN4WZjF5nuw3vi00HnYKuM6fQvqn/2vPQ8KnmxNd7guS96/HvwyPraSviyKS
DASIP18EMHO30TjmbSRcMZnF+Ie0bV2EH7+g0jZNIu9b1xiL+O00cj3O7uuY
YFDbcUbA0pbGU5Uvuw6NM1gUneEtYkdD735qwOR/DKYnchllhOfw6OcxfxlY
d2rGHN1BY3FUhZbmKIOimQOrtOxpPIniK3z2h4Hs0+Scj4SLxxY47RxmcH6B
U2v8Thoj8hVz/w0y+Bx8qGLjLhozclWmJfxm0Hq7z32KAw3xGQX8Br8YrHWZ
3lpE2GzRF4mOfgbHwCfk4UjDK4OeF/STwfHo732zd9NILK3ertHHkO/YyXHv
CLtEb4lp6GWgteigQIQT0Udy/ruA7ww619lrGTnTGOQvV533jcGPwxMKfwj3
zA7wef+VQTvvREXWHpJ37YaXF74wOBs6abG9C42Z7xcyKz8zMK0pdJRypdE6
JuY5/JHBpheNls8IF/k2Pr7dzaBGx0/w6F4aNkcmCbl0MTCKe39U3Y1Gx2KB
FWwng2IL+nYr4dtG1gc7OoieIe7pF/aR+R/ddyG5nYHiirEd2E9DaPRJ/M42
BkIW3972E441exPNvifrt3WVTztAo8RB/siXd0S/DykKVgdJnqKkcOctg0Kt
ojaBQ6SP8w16j7QwSHH96HSP8G2e4omVzeT6mTU5Tu7kfZmn0SPexKBr89SS
GR5E/67BRe8biD5HbcKfEd5f8ndrdj2DzN3bOK/DJG+/yzf7v2EQ46zvy3nS
eNPaomZZxyA5hY17Q/jqqfKXaq8ZxIksO37Ki+Tx+vRVfLUMDnhk0/O9yXng
v/XBLa8YWJxIOddOuE1L8FL+SwYjqQYPw47QON/zcl9kNYMPutm39I/SkG1d
InroBQNvRzmnr4TrS97ut6hiYKlyrTPGh/SF+rqoBf8xOGp1XMXoGI1zcZS3
bCUD/+RyzX7C5h6DsmPPGTSFZvxNPE7jAr+LR9czBoPH1oevO0GjKWpGcHU5
g7CUpi9DhONsk8wfPGXIe+2wcJoveV9cuVad9oSBZ4bRDzM/GhOnq0cjyxis
mH84bpRwql1R08nHxD+rVMSu+5N+3T9r1+FSBgGbTq7ZGECDf1pstHMJgyM3
s9eMEc5IbT64vZjBxIFasYyTNDxywn9uLGIwO00iYeMpGnkv98msK2QgQkf2
/yV89g7TsuoR8UfcMfHrgTSWznVeZviQwYyU/gHz0zQOLv2hv6yA6B+vmDxC
eNPI4Qa9BwymvVaSTgsi/X83T0j/PoMqeyVz02By3mvd83LZPaLPSkPLQcJa
8paqyGew0vwGlXSG9NlyHanVdxmU6/rmrwmhMdu64fz6PAZBZzsl+whbJg1F
WuYy4Ls9pht7lowX5cDY5TBo6+mbbXiO6NHdpedyhwHt0NH2iXBc0NoWz9sk
H1ID9hfOk/uv2f49lc2goNE4c3EojSM5v5OibpH87hEuaSX8b3tXWVoWg+at
VvGBYTT+SxjfdT+T5I22WKl+gQZzm+dbdZPBMxHqbi3heVI8yY4bZL/WdPd6
h5PzxsUWxeEMBuntTwZmRdCgV2vHSxBOLnlf9oSwbDB/2JzrDOSzbLa7RJLz
CJ9un1E6g7J1lqViUSRPN3NKd11jUKL8qzePsELFljH/NAYtUVs/21wk+eyR
T0tOZZDRfiNrjHDFYEfu46tkPWr8+lejaTTKJ87uSiH53n/u0upLNLY2G04I
Ec4L21n4lfBd/uKlGskMxNdm3AqLIXkoFanflMTgfxjVf8k=
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               Dashing[{Small, Small}], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJwtmHlcTV8XxkOl0jwPOmffc0KlCE0qeoTKkEqpEBERGVOJUpEmaTIUTRKh
IkRElAgZK0OGUklEJGUsDe/u5/2rz7d97z37rPU8a629BZ4b53sNFRISih8i
JDT4lyurv9y9gcFCw4wMSelvlt35z1eGb2agMnatgdT0Lsvj944FjPBjkKM3
feTn5h+WBpjXkRRAPx9pWnu7/ZdljefLauVtDEy/50+GQbdl5JVpmqlBDHxP
+p3rr/prmSIRWasRwiDEVXhg8b1+y/4VGf1pYQxGmRsP7dwuhNNawSnq4Qym
FkgpvesdgiIRhWMpEQw0t84e/jl0GBbz9rxCNAODb/VBxS3CEBNVV4/bw+Ca
e8VWTxdRaOQvjBGJY5Bq1WoUcG848uO++QYnMJC0+M2MmywO7uz1l51JDJyS
BfH+5yVw90j6Na8DDA7aZqc46klCO8qLvExmgOONpdLpUtig1y4y6zCDTB2/
pStUZLC/X3hjcRqDT51Baf1zZRE5MmjJ6EwG727uTNQTkoP+EvWn+7IYTE5p
zis8Kwd317yavmwGB+yu3Cxxl8exNR2LVucwqA+rkuGFFaB8M29T1UkGR85V
DLt/QgHfvFIVjfMYFPub2PvbKkJr8jbbtNMMynZomq5uUUSDyIDUQAED/qh+
6/xgJTSFN61afp6BemRCtI6cMmo9qpxvXmBw6+lYL7VsZey12v5KcIlB7LrW
v7kTVKDwcu+v0GKaL8fwNaqlKnhce/ZM/VUG3snCp3JnqmKdaIyQ6XUGoiXL
67IfqqLKuuRbUhmD9xcsZL7OU0Nd8ofQtnIGZmfPz3GuUoOhxqmz0yoYTDtS
uf/4HHW810rdmXKHQfmZkm15t9TRbeL8+3Mlg7FGQVlKphrol/ORt3zA4FvE
PefyUxrYdG7Ts8RHDPTFHZweKI+EpuuPqW+raL7vvbc8HjoSa5N3ORk8YWBX
V1b4pGUkEh1zFEKeMZg3GM4ZmiiveBd2v5YBFaOxepYmLGJvpiu9ovrae8VH
vFsTLjm3vD3qqJ4efG/6OpfBqpBVH06+YeCnlTKQSPOW1zVGpaORgaXr4vNl
X2gcF+zqNWxmcKU36kedCQst//aUbS30fZlJDmqhLFYcb2i79oFBXcW9Punb
LIyuVf7q/8jgjZbozoPDCNz4kdctPzM4rhZ74gJP4PHU2jK0nUGTfmLWn2kE
eksvhlzvYJBwV9L5jgeB3fdHwT2dDArlol/8DCKY79VjZvyDwff3Ii9tUgik
x2de3fSLwZ23D89+OEdQHajRl/uHwddFVlM/3iOI0XwyrLmHQcUBKuC3BO/P
stWqfTTedrOnXf5N4BzqsWLeAIPFT6+9U5QSQDyjrXTXEBYmt6T+9BIB2ppU
WoqGsZjoq/zr4iQBNn41f9YqwmL8jalm/jMFCJicm6gqxuLHLbG3NS4CyI44
p24rwWKV4gP9M6sEmBSZuSVAksWcR4y3SIAA607fSD8mzeJGoKhUX7gAoZ7L
UqpkWZxSbd1olSTAX7/bK3vkWWz941NonSHAjXQjUS0lFtaHpSbeOyXAjvAf
wXNVWByPlswPvCCARuX0+1vUWCySignSuy6A9rAVHYc1WHh/PNLkeVsArQcJ
7aWaLPY9CLUteyTAq2KRO80sC4Xl1AHPBdjn079NhGOx/aa8jHadAM5x5yXG
aLFwelDbw72l8XjhvM1mNAu5IVEOOR8EyFAceXeVNs27NlXQZwEUdSb/3K3L
Qkjzw4MR3+jvydcLZ+ux+NM4O2DdDwHcvk78fX0cC10zuoM/AlzvXfPopQEL
kf8CIIBCTn5010Qab3v/ykdCHGK3Ed0RRiwMVvrntwpzGGbeUchRnaUl+Ey/
Lcahvt5Ca/JkFlMt98oyUhwKo/VC55mzeJeTVkFkOahlN1Z4Tvl/vhQ4zLrv
/8vfksWLuaWvPihzuP1OUil6GotD42kG1Tl0KpULDk+n+7mdMGGrJofT1ac1
c2ey2LS1dkMJ4VBV9VG82IaFcsN7rpTncInZ23p7Fov/yvcYDmc1Tl9+MofF
jguP4j7pcNgQ5B7UYMfiER9q8E2Pw/q5Zyd9smehucBO1n88h7k9F992ObL4
6+qSemAiB84xOPKvE4vfbj3VIkYc7ofJ88NcWDwXUAWactAh4cXibnS/KsvY
DDMOywxe2sgsYnH2s8qXyCkcRhD1JwruLOL3ubaqgoPHY3s3laUsbmUG/PGx
4uAaH1KntozFhMO6qgdncLink+eu4cnCa9OBa2Y2HLa3PKvXWMki9by3mfks
DmNDB9w1VrFY0j+9p30OhzQznQY1bxY0G8d/23GIfG2/XGUtizv1RbuDHTgc
OLWxVWEdi8a+zqVF8znM2xq+WWYDi6OzqeAXcBg4vltIYhMLmfRJ2RddOSQz
PgeH+bI4/DLYXWMRh2BP/Qm9W1i0BT6ElzuHVeE3nn33Z+EXNGvFxaUc2LGq
O9u2shj4YrOnchkHu4zRJk3bWOSE/wyVXkH3e7X+97MgFnObat9YeHGwHKJb
UbmD/VcfVnOQPNCbXkLr0swSCR3LNRwum04LP7OTxbTLKYbWPhzOuL/bmhnO
QmDx2tRzPYcpKo+C4iNYmMHAJmEjB3291oQdUSyaZPOefdnMYY60WpFPDIuo
SWWpw/w4/Hxr+8UtlsUrq8Rw+QAO6aGLjWfGsZAe3MBWDjMCDA8YJFB9JLeW
v9lGPy91SVQjiQV+bf99N4iD4ezyeOH9LIaN3vR5QwgH7y9G+u0HqJ7VDH/Y
h3GwCuhqfpbMosJjv1HbTg6M3rNzJYdYdP9WU5HezWGJyuWUo6n0+edpgYzg
UCwWcCgynYXNhyRL1WgOSaltF9ZmstAudnMMj+FgNqm9zS6LhRgpitkfS+M1
fMFUg2wW58gjN8M4DlkafwrkjrP/+nMCjZ9t/pSuHBbNvOdsrSQOypOtPtec
ZBFDyw+/n4OXb0LxuVwWdrul7M8e4NDosPJEfD6thxP3vE9OpnqWTCryOUP9
v1dfePIhDl0lLR9sztJ4uGvo3jnModxJ35w/z2LpuGbzCWkcXPJNLvQVshDV
fde4Op3qZUeV/YuLtH5ZqgZ+zeBg7lMmd+4SiyGDDzzCoa63ujuqmOqjannp
tSwOn48/FPO4yqJ3I52YsjlcL99maXTt//k6ziHkSGamRCnV59HQXbE5HMZs
FxrTWEb1UslKWpzk4Bu64lVhOYvOOX3Xck/RelG951LELRbTb5uGKuRx0Igw
LXOlfW1w+935HD7k6f/Qvkv1E3CietsZmt9Zui7dlSwSrzf0dRbQ+uPV/r7y
Pou4lA3y4ec4tPcaHk95yOL2h3evHc5zqJYpTfJ6zGL+rIyw0YUc9mTMODux
msW6wO05ehc4GJwK7+uvYfFG0qTpO2VVY6Md95/S+h2Se8SkiEOKk/z4g89Z
zBoscJeovxWfKni8oPk31Q+suczBJmWcnvYrFqFR2ThSTPMzrC7w22sWNR+l
PVdf5WCdGNdzuZ6F1fQBYZUSDg/Des6HNLB4bGxyYsw1DiK6z4/MaGLBbU7I
kbnOYXNXVYV4Mwu32xqHbUo5jHJOFzx+x+LeUCpgyisb2i4lvf9/P7jBYaaJ
T4RzK9VzXmHHHsq2mg/jlD+x2Fu6y3BFOY2Hd0n1izYWqgefiXvfpOvSH+Yd
+sIiWu7msbhbHBKYP2JuX2l9HGK7vrmCQ9699AHlbyz0B8frO9TPHiGTnney
CLOlE2Alh8T51jn7vrN4ItQwVPw+BweTjAX2P1mM2vfRS/EBh5q7ujNH/GZh
6Tdtx4OHHPiWg353/rBYqHK5RujxYL3Y3RLWw6Ila/fhS1UctomlHzTrZbF5
GO041Ry+pIdFf+9jobblhXxXDYdfL59fzx9g0ROy9prfUw4PTNm080IEdd30
H8+onkeN6947hPzT23MOehbe3auHEsiKZgbJvOAwIUsz3YrORaEKEnKbXtL4
S2W+HSlMoN2l9Sn1FYeDdab3f1FOif0z7+FrDkJ/LVyqRQiGB4eoCuo5SHf/
icgVJRBZcyf7E+Xv/VcX7hpOkBTy12xTA4eyJ9U1i8QItngntQc3chB7GfV1
ojiBqVKuwaUmDntl9c9JSBAYTXu2Q6iZw+uRUirNlKOtt8qav6N+tfDjr4wg
iPTNXhLRwuGjQ8HzBEmCrHX3lWhLRMQr0XGrpAgy2xLT3n7g0PqnUs9CmiC9
TDxC7COHkVssn8jJEOi0S5UafOJws+Ai00r50Jv9URFtHI4W+cpfkyX//PSZ
6tXo1plEOfL/eZNDRmjHt5XyBAuPMdk17Rx2xaLeVIHgjKGOyJuvHJb/7N8o
qUjgW7EoWOIbhzsDvqcbKf833lLu2t+SVKhEsOHYkGsiXRzWWaWRCGWC8g0v
L2l/53BoeoObqwrBDYFz7ivKCPxhpqNKkF2jWfH4B+0va7Xu9lDOmti/485P
DifmXux7oEbwwvG5sONvDgp9nxrS1QlqJ4uuPEvZb9gIn/UaBJKsnBPXzaF7
n3v2lJEEO7YN+VVDOXIPHyGlSf757S/tN/7HFd5QHv7UIHhGL/VbLD/vNEOw
/4635oI+DornWwyDWIKClXetST+dL7aPrZxFCOj0sGvDAIdN2uZiqgLyr18I
8XDMd/n5nrJJvFus/RAeWdk3Ei5wBKri6yenDOXxeEnJizA6d0fPiTfPGcbj
RH30Izst+r7p3q4CER41VWs3q48ikFNz6bQW5eF8OPvWB8q2eyrP7RnOQ8pu
c0XhaKrXV1O2uYnxGHtexS9kDMHyeKbssjiPwqm1T2ZpE7RnWug9k+DRIWhv
UtQhEFu0U5A/gkeXWXpmo87/9SrJQ5zhJfN0CQaPH6eleBgrluv4jSU4farc
UFKG7k+j6PcUPQJN30n1YZR1Pk4JGK5P4MTFLLWW45H97nBONeX/js+UQ8YN
jzw8jmDiAgPdXAUeulm3VDzHE0w4311srEjX70ou1jUgiAiuvrBQiT7vM+vQ
RXl11yNjE2Ue7hJmv69MoP5c4tA4UYVHaX2Kw86J5N88psrD5am/u+0k8m+e
pVymKqshY0jQsWCsQogaj7Sk7L3PKX+d4u5bT1nkjff5NCOCi6wOd0udR49z
ZsxyY4IvPSIlyzV4VEiHKI0xIWibKpRrN5LHijqrBV8o/zc/Uv5tM2bWeVOC
gL5db85p0vfJ9Or0n0xwv0l7mz/D40CLyTwzs//Hi+XBN77w6Kdc2bG+5wLl
XTKho2+aE4wcdfbxBMIjrGhVdoQFQe6vT4EPKa+vuvvUdgqBes+YYjcBj2j1
uqsjptJ6cCjyLc/xcFN45fqYsqGcscV1yiq/uvMSLQnWDTZEnuqhzP/ifBAM
2ktei8d33d1+ivQcFzml/dsLygsuu39+Tvm66v2YgFE82rON1VKsCMbdXuDV
SFnsq22/63SCwfEsdzSPN4vup6rOIPCK2x5tPYbqZ33n15eUZWoHJj+kvHrD
j55DMwnCUhddqqXsu0q8zM2aYMWgILVp/PlV5qo2BJ5/og/J6/AYbYJNLyhf
0r+/LpHyml8PlyTbEoywHuU/VJfHmKBpwgtmUb1eGvHIn/L7Y09WKMymeh1s
aGN5zFIsCq6hbJk0ZtYLPfp9I037hDkEj+8WHfWkrG1sWTd3LtXz4AWQPo+o
EfYCCTuCoZ1XQ8rH8RDaHCa4S9k8L5W0Ua79KFofPo+eg1tVE69TXndNyRH2
NF9PosadGs/jUG9jWC/luBqzvFQDHj93HvIpdiCgbvmykrJJ+2Y5P0eC+CGv
Pr+hnw8+mek7fj71g+VG3fkTeKQ3OyS0Ud4T39LFTqR6P3x1dY4T+Tc/0vXl
iVK9Hs4EvbmdT+zo+qQFQXPVFxA05LuM7qVcb2m08Bnl6KsyWDuJx17fdVy8
C4HP5SXeBZQlXjuesnElqM8oqhtnyGPoOOXPQm6032U/FD1M2bHzU9sVyqXl
KqOdjHg4+Pad9F1IQNWhaGlM9fkgjBu7iOClzcmCYMr9b48tekfZq1GpfIDy
tjXJDmmLCbqWFk18a8KjuilK2MmdgHan+WmmPAwPnAyQWELzWxt7NJ2ybIbW
yXLK2mm+EVsnU7016ycHLiWYMXihQ/maatf08R4EQT7L8oXNeSjfOnLuPeVp
/x14eMRO9KpPW0aAv0ncRAserZGb7jouJ//udyjXF3RsHu5JIFh4Q3jDFB42
3rL11ygXPLWd857ydgiJ+q6gfjSpqz80lUfQgS8do1cSvC92MnOz5GGXNDS1
jrLZpx3vfCiPN9wonOhFIORauIJGA82zPcbPWEXrdd+rBMVpPL5uGVD/Q3lP
/v3SsVY8Gpngu/mrCQbtv56ux+wdYuThTf7dp0znMbeqZIX8GgLFApu322fw
mP+g1uk25fKRU0I20vUq4xCRwLU0P8pexpV0fUbqm0BdHwL5rBPJZ2byuO5A
CuopH6017DClLBu9OSd+HYGCDI0oZY1pvUuxnuDq6z19XjY8RB0+v+4c5KxS
r3mUt7uvUTu2gdZPvdTH86xp/N5mqTtvJJDafDq2zpZHyfhrDcKbaH6eT9VM
mEX70Zr3XkWUdQp0/xYMrkdZn/PaTBBc3FLsNJvHOxfxUiVf8u98MofGJ9A1
4Tbl/86LdD1v5SIt/y0EhdZTZhyj68mrzHdo+RGcM03vfj6Xx5EsPvUp5cCZ
38oOUk6VsAja5U9woNyxq43yBt8zZEIAnSc2rDHSmkf1GZy1p5HyYLuOodyd
PeVK3Faaz5gApfmU35qcOW0eSOC6rLLNxZ5HwAoVr0+U/zsfUXYadbw5eRvB
gl9L5HopBzoHjZqxndZXg0uyLQ48Qo9U6HdSbn549oOQI48Xe0/+zQii/Upk
fI/EfOrv7XMSZgcT/OUGLyx5xGW9+PiL8nqXHQWXKFdKbhE7toP604J2ICce
fidnfJ0XQuutKB0YnHlMm7AltYfy2qiy0T6Uv04fJXUilOrBkp7QKYfN32nt
GEbzPYFOwAt4bM09Y91LOavJc6aUC4+BDdVSJ3cSzBkMIF0ffUwm3XEXwa7W
hlujXKnfSVLnX8qZkvH7XCnLpm6XPhFOcKXxqHY1ZaWszi773XT+cfkyvoTy
kTSNI92UQzY+PdLnxkOyRlPhWASdfx6kj4tdyOO+h6b93EiCVDGNzKWUQ60s
nX5S1tbrDCukbGV/is2MIpCIEDPdvYj2R5MdF62jCbYPXqgv5hER0yzXEf1/
/1IWKug1SYkhqH5ON0C5oa1jtOUemv/BL7jzIJ5NDR8oizjSE8QS6g/5Lo/4
WIJFP6+83kO5uNY2z2gv7a/2jPJaykGrxUrrKQ9eB+gv5fFyoXNaeBzNv7hy
1CQP6jfiYKUbTzB4HRJH+bYEe6Gasqbp6hlrKFdat7QHJJB/9/mUcxpvdo1M
JBi0g/cyGp/SN+U3Kffb0glrOQ+1fNfF3kkEsTGP7hZRLp/tVCa1j8D4vUSH
L+VSwff2Qsrrb/cXBnnyeLVvYavrfqoXy6juLsonG0/l91I+brzZt4xWlGLt
YeZHD9D5x3T20gzK19fvOTjzIK3f0rIPaygXxi0r+UTZ7uh39ZKVPKRtTp6O
S6b+p3ZO8eLxP7zxSfo=
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, AxesOrigin -> {7.58315269907919, 0}, 
          PlotRange -> {{7.594089575094925, 8.294049640102028}, {
            0, 10.529734302570509`}}, DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {
            FormBox["\"year\"", TraditionalForm], 
            FormBox["\"dC\"", TraditionalForm]}, 
          AxesOrigin -> {7.58315269907919, 0}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, 
          Frame -> {{False, False}, {False, False}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {
             Charting`ScaledTicks[{Log, Exp}], 
             Charting`ScaledFrameTicks[{Log, Exp}]}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
          FormBox["\"Temperature_BAU\"", TraditionalForm], 
          PlotRange -> {{7.594089575094925, 8.294049640102028}, {
            0, 10.529734302570509`}}, PlotRangeClipping -> True, 
          PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
        576., -116.80842387373012`}, 
        ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}}, {}}, 
    ImageSize -> 1000, PlotRangePadding -> {6, 5}, ContentSelectable -> True, 
    ImageSize -> 1000],FormBox[
    FormBox[
     TemplateBox[{
      "\"DICE2016\"", "\"DICE2013\"", "\"Gerlagh&Liski\"", "\"BEAM\"", 
       "\"UVic\""}, "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 0, 1]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0, 1, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #4, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    RGBColor[1, 0.5, 0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    RGBColor[1, 0.5, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #5}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "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[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 0, 1], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> RGBColor[0., 0., 0.6666666666666666], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 0, 1]"], Appearance -> 
                 None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0, 0, 1]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0, 0, 1], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0, 1, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> RGBColor[0., 0.6666666666666666, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0, 1, 0]"], 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, 1, 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[0, 1, 0], Editable -> False, Selectable -> False], 
               ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> RGBColor[0.6666666666666666, 0., 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[1, 0, 0]"], 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, 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, 0], Editable -> False, Selectable -> False], 
               ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[1, 0.5, 0]"], 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[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.7133673752858567`*^9, 3.713367438261119*^9, 3.7133678070585785`*^9, 
   3.7133679345441637`*^9, 3.7133680312766967`*^9, 3.7133682729785213`*^9, {
   3.713368480473389*^9, 3.7133685079739623`*^9}, 3.7133690355912857`*^9, 
   3.7133696029801855`*^9, 3.7149863307882376`*^9, 3.71518569889167*^9, 
   3.7151864815235186`*^9, 3.7151870552081876`*^9, 3.7271480001565046`*^9, 
   3.7275094286997185`*^9},ExpressionUUID->"4e013972-eeb1-4d60-8595-\
9e06c679dfc9"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7151886852867155`*^9, 3.715188754383624*^9}, {
   3.715188801338693*^9, 3.715188825229082*^9}, {3.715188989196477*^9, 
   3.7151891067460065`*^9}, {3.7151892229646273`*^9, 
   3.7151892981063175`*^9}, {3.715189383080814*^9, 3.7151893977062764`*^9}, {
   3.7151894395524607`*^9, 3.7151894655130367`*^9}, {3.715189811161246*^9, 
   3.715189854890246*^9}, {3.7151899567830367`*^9, 3.715190153866037*^9}, {
   3.715190558124707*^9, 3.715190703130703*^9}, {3.7151908197395267`*^9, 
   3.7151909596625175`*^9}, {3.7151913621387615`*^9, 
   3.7151913919577427`*^9}, {3.715191600757621*^9, 3.7151916501675615`*^9}, {
   3.715191720223566*^9, 3.7151917300175457`*^9}, {3.7151918169382367`*^9, 
   3.715191817541297*^9}, {3.7151943225571413`*^9, 3.7151943234307413`*^9}, {
   3.7271496711778417`*^9, 3.7271496716770425`*^9}, {3.7271497188671255`*^9, 
   3.7271497192883263`*^9}, 
   3.7275142888765755`*^9},ExpressionUUID->"90608f5f-a16f-48f5-a030-\
446ade9f38d4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "2"}], ";", 
  RowBox[{"lcsize", "=", "16"}], ";", 
  RowBox[{"ComBAUAtmos", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"atmosCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"588", ",", "6000"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", "\"\<Gt C\>\"", ",", "None", ",", "None"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"851", ",", "1500", ",", "2500", ",", "3500", ",", "5000"}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<a) BAU\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.1", ",", "0.89"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ComBAUTemp", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"tempCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "11"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "None", ",", "\"\<d\[Degree]C (relative to preindustrial)\>\"", ",", 
        "None", ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "0.85", ",", "2", ",", "3.5", ",", "5", ",", "7.5", ",", "9", ",", 
          "10.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<d) BAU\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.08", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], ";", 
  RowBox[{"x", "=", "3"}], ";", 
  RowBox[{"ComCBAAbateAtmos", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"atmosCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"588", ",", "1600"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", "\"\<Gt C\>\"", ",", "None", ",", "None"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"851", ",", "1000", ",", "1250", ",", "1500"}], "}"}]}], 
       "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<b) CBA\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.2", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ComCBAAbateTemp", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"tempCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.5", ",", "5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "None", ",", "\"\<d\[Degree]C (relative to preindustrial)\>\"", ",", 
        "None", ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "0.85", ",", "2", ",", "3.5", ",", "5", ",", "7.5", ",", "9", ",", 
          "10.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<e) CBA\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.08", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"x", "=", "4"}], ";", 
  RowBox[{"Com2CAbateAtmos", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"atmosCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"588", ",", "860"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", "\"\<Gt C\>\"", ",", "None", ",", "None"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "600", ",", "650", ",", "700", ",", "750", ",", "800", ",", "851"}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<c) zero C emissions\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.27", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Com2CAbateTemp", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"tempCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.8", ",", "2.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "None", ",", "\"\<d\[Degree]C (relative to preindustrial)\>\"", ",", 
        "None", ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.85", ",", "1", ",", "1.5", ",", "2"}], "}"}]}], "}"}]}], 
     ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<f) zero C emissions\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.2", ",", "0.92"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lgsize", "=", "16"}], ";", 
   RowBox[{"FigureCom1", "=", 
    RowBox[{"Framed", "[", 
     RowBox[{
      RowBox[{"Legended", "[", 
       RowBox[{
        RowBox[{"Grid", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Text", "[", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<Atmospheric Carbon\>\"", ",", " ", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
                 "Bold"}], "]"}], "]"}], ",", 
              RowBox[{"Text", "[", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<Global Mean Temperature\>\"", ",", " ", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
                 "Bold"}], "]"}], "]"}]}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"ComBAUAtmos", ",", "ComBAUTemp"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"ComCBAAbateAtmos", ",", "ComCBAAbateTemp"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Com2CAbateAtmos", ",", "Com2CAbateTemp"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Text", "[", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<Year (log scale)\>\"", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}],
                "]"}], ",", 
              RowBox[{"Text", "[", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<Year (log scale)\>\"", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}],
                "]"}]}], "}"}]}], "}"}], ",", 
          RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
        RowBox[{"Placed", "[", 
         RowBox[{
          RowBox[{"LineLegend", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"Black", ",", 
              RowBox[{"{", 
               RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"Black", ",", " ", "DotDashed"}], "}"}], ",", "Purple",
               ",", "Orange"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"Text", "[", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<CC16\>\"", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
              ",", 
              RowBox[{"Text", "[", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<CC13\>\"", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
              ",", 
              RowBox[{"Text", "[", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<CCGL\>\"", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
              ",", 
              RowBox[{"Text", "[", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<BEAM\>\"", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
              ",", 
              RowBox[{"Text", "[", 
               RowBox[{"Style", "[", 
                RowBox[{"\"\<UVic ESCM\>\"", ",", 
                 RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                 RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}]}], 
             "}"}], ",", 
            RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}], ",", 
            RowBox[{"LegendMarkerSize", "\[Rule]", "55"}]}], "]"}], ",", 
          "Below"}], "]"}]}], "]"}], ",", 
      RowBox[{"FrameMargins", "\[Rule]", "None"}]}], "]"}]}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.715191482082754*^9, 3.7151915740119467`*^9}, {
  3.7151916618827324`*^9, 3.7151917098065243`*^9}, {3.715191753816925*^9, 
  3.7151917548460283`*^9}, {3.715191813861929*^9, 3.7151919641809597`*^9}, {
  3.7151922591594543`*^9, 3.715192292441782*^9}, {3.715194278985341*^9, 
  3.715194279780941*^9}, {3.715194325957941*^9, 3.715194327564741*^9}, {
  3.7271497371815577`*^9, 3.7271497474619756`*^9}, {3.7275142765863733`*^9, 
  3.7275143006192474`*^9}, {3.727514340730541*^9, 3.7275143578655214`*^9}, {
  3.7275143897258434`*^9, 
  3.727514743034549*^9}},ExpressionUUID->"9b7975ac-c132-481b-8a37-\
916f833f5e79"],

Cell[BoxData[
 FrameBox[
  TemplateBox[{TagBox[
     GridBox[{{
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Atmospheric Carbon\"", FontFamily -> "Helvetica", FontSize -> 
             16, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style[
          "Atmospheric Carbon", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0], Bold]]], 
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Global Mean Temperature\"", FontFamily -> "Helvetica", 
             FontSize -> 16, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style[
          "Global Mean Temperature", FontFamily -> "Helvetica", FontSize -> 
           16, 
           GrayLevel[0], Bold]]]}, {
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwVlnc8lt0fx/WUSCQroq7rMhqUllBJPkqpyF6tR4gUJaSSjEjTDslK7j3c
pJSSJE1PRSR6eBKlQUZKGuh3fvc/9+v9Otc55zs/36PtHeTk+5eUlFTSOCmp
///rVLVd/7mPgtT/f1ln8FPUtDMumMKsfOoS79+zYD9mHZx8gMLSxBOPpq5M
xCLY9acepJAa5i1QLEnCc++W+mnhFJoclE2va6XgxA3LmdkRFPw2LSvU+JSC
83InXmpFUTir2L/gU1UqxnzyxnJiKGTtd068djENYr2j5zXjKGz36kvrO3kO
ZdIqrPPxFDT1bUO6D6Vjq669rsopCk7my+u/78uA7ERNzcQzZP/r6RmbAzOh
Jdp8WjqRwu03x6e7BZ2HKHEg5GgyhZlnL+ssOpQFneLKli+pFGSbYsctiLuA
hxdzb/mmU6gRvFPJTsvG3JO+TEsmBcN+z4Yadg72ze+V3nCBwvnN909L3cjF
ubEJQeU5FFTES16JnuXhxIyI7bPzKSRPNpOe25UPw+2ajWkFFL7bXDF4/fsi
trkLn48WEvt84w3p0wVg7e7fsotDYfyIUWO7yiVMuyvcX8ej8JS5rTCQdwkD
vtmqJkIKT7RltivPKYTe8vD1OWIKdu4FxfLFhXgt/Ufhj4SC/4VaN74xC2/i
3vh5XabA9bj1/fJNFl561rncvULhhcbbAz/N2UhYfeSV9jUKBib33zpWsaHS
kvA9upzC8stf96au4uDZy+KitpsUvN+ZWaZWcBA48bTUskoKSToqoYYmXNSt
qxhIraIQdPXzRysJF62Z76O7q8l+3Q2WN3R5WKrFL7a8R+HGoGfJvkweuvSy
j51/QMHjm0y/zUQ+fpq6DPc8opDOJKutCOVjTClA2eIfCupZ3yP1/uNjf8n+
FylPSXzo9is/1ggw0/3bqo46CqeVXlhzeQLsyYx1XtRA4aRB3w1KVogUR45K
1Avif8Ihd1dfIarvvY2pfUlh4fpWHYsqIVaevZur9opC14emsgY1Edw4Nf6e
rRR+N+7Vk90tgl+U33vefxSupnV3tpSLIByco97fTkHm8TDLQloMTdfYkaWd
FNoUva2W2YmhF9Z7Pvwdia/buoyqc2L4sF9333pPofGXrU1jkxjGtx59H/tI
IcLBTSVUtQgeujMqLXoo8P1mn8mzL4Jn4zqL6F4KW82p9c4nizD/76tRlf0U
Pi4+8zS9ogibvj49+usLBfnSGVk+n4vg5Ptrhck30m+/7wRUT5dgysL8m/u/
UxA9Pby3ZI0E9Ye1RgU/KPwdqqRktEeC0zMbxnf+orCqMGbQJlGCrmK6XmOU
QuSf4+PGxBK4RHv62P2h4H5q86jNYwkm5XXfjh1H41StQtCyTgm636i/KxtP
4/K6vpqHwxIE9Zm9+CBNY88Jb9WRScU4uFyQoiFLI1h5gf8rjWJMnVyiuV6O
xv6xDXN36BXD6ER+6EF5GoKmP4bp84sRKL6Ty5pCgx4ILju0uBjR3jvO102l
caXCsE3eqBi/D9zf+UuZRq3GJAdXsn4n13iinhqNDv9xl5zI/si4b0dt1Wk4
ygcMS5PztR6tqQ2dTmP+3K6eIHL/3PE+/Re0aLA6Ba0pxD69f5J7b8+kMfdE
WqY/sf9VufSDTprGHxNt8+8dEqQFjIVL69A4ub1x1oUnJB6Jl+Xm6NFIZ/sP
vCon8Wh2CbeeTeNxhE/Icq4EeaozHvrNpZFSNHWFV7oEqvrLh44bEP8bwmKn
xZHzlNsmFM6n8eiHn+viEAk8+pYMVy6gIbv07fFMLwkqR3Y/bVlEY+zmlTQj
RwlUOKJTg0toFBp9+fAbEpwNZwwmG9PIb60beL9IgvFm/aU6pjQ0YpIa+xgJ
2tpW6i1fTqPq35YURSUJSk/Nj7Yzo2FoUBOwbpwE0wvb73mbk/jqJcSmfinC
htqw72EWNObM3HGqv6MI99/Kq52ypJEpKs3wbCjCF7Vq7QtraCQduCfTcbcI
4nrxTMFaGiuH+HtCrxShru7jpHJrGnHVq/ZMYxfhGpXw4f4GGlZXpz56nF6E
Yi3x9QYbGr7VPi6J8UXYF7Et4vUmGsyruE87DhZhr22x0Sd7GotGOL5Wu4pg
++tqx6AjDQul5aWmHkXQcTx64rczjcX98uUrNhShNkZZd7wbjYsai703rSiC
PhNXPsmDRr/EMi9oXhF2LGqxVtxC401lr9ulGUWYzGg2qGwj+YxmR3YqkH56
Zu+h/jcNP3q7lNEfMdyTolqn76ARenD/s7QBMR7rC7dpedNQl49uHtcpxpF3
L9q0dtLYscNzckyjGPOi/2zT8qOxr11pi8J9MXJW6L+e7k9ju6j8iuCaGCf+
tfdS30PD5q80WVe+GOn8oA8qgTS27fm2XjFbDLtDccGK+2hsVrb1bTkrxh/2
cSm5/TSUJky3K4kUI5MKyBgfQmN1V+/XzCAxjnobLh4JpRE0Pcg6wUsMv7g7
L76G0Tg/y2l5irMY9DyNY92HaJRi+83CtWJsyptt+iacBv+vXRU1psTem23D
LyJoSM91M/yqL4bFOIN7jyJp1Phoj1s8Qwz59JHcimgaJSvq5kROEeP6Msu4
omM0vLrC0pqlxCja9vZQfhypPxOzJfgqgrn604ikeBp9x11+XOsSwXD+h+TI
k6R+Mye+NGsRwWbK9LKA0zQmJHBuPasVYahj/WePszTsG9PzgipFyI3earI2
kfS/kvUeqkQEq4NL0xcl01irukq1tZB8r3BtolYqjdxquUROhghLN1YnTThH
Q1lm04PIUyL4fzY27E2noVd75bJPhAirDw52vsgk+WwZgfs+Eaj5L0oqsmh0
Nn/z9fASYbv69fOXsmkcNz2kvMtFhHLZg1kncmkU0/uWxVmLkJrdfWVPPo1m
74bH4hUirDDq7d5UQGP5PlH5W0MRLGRcVy0qpFGwQnF4jrYIBVo/JEpsGjDX
ORSuKoL8epH5IIfY66E+r0VGhGnLV/c859E49nShtNVvIXxDkstLBDSmzq8Y
vtUnRLvDTm6SiEajlfrQ6k4hauVTywKKaPROL+lvahJisOLde+tiGnb1f16F
PSbzydnQTPcyjdGCJK5OpRBuItMro6UkfrWD1m0lQmRG1tk3X6UxeKy+pJAt
hFlAlVLJNRqaXa8aw7KEaB2p/3mynIZDzzOWa4IQPewnsp43SX7dI1VWxwhR
WR1uYXyLhq7gjprZASGiLubny90meqgYmwd/IeYckZrTXkUjxqM8z2mbECHR
Pq9Kq2mceL9rUrCDEPfrz1yLr6FRnV/YmGMlhFb8sir3+8S/tpP9DcuEeC80
/Db3IemvnVYO0wyFGNpg4PbzEY3DzsqffLWF2ODb2/WolsawyvKiajUhekeW
ss8/oeFtp5CiLydEveLtVN9nNB62DhzPGxPgTJ5V8ZJ6Es9yp+iZXwVYxI8b
HXtOk/eCJETwQQANE+PI2kbSf4IkJ8s2Ac47Ky/MaCJ6/emkcle9AI9VG1U8
m2l4XjXnpt8XwPr8gvlzXxG9+OA5zuGmAO3jWw8P/Ev0xEikrl4swLqUxF/X
20i9yH9q+8QS4EnMr8tRr4m+5fVbPcoSQNqg6aLVG3L+zUtrShMFCB6suzep
k4bWy74nvFgBZrnkaj97S/R+oOEF/5AAO193X0vtotGd6GZfFijAWtOAeJcP
NOZxkxY99RJg/cwnidM+0cjIzg0ccBOg17+ivrmbzMc5kmHKlqxPeW+X9ZlG
rMfofQ9LAZKpH7IefTTGH6n/J89EAOHj3D/TBoh+TTky2jtPgOueUUZNX2j8
uu1hv0FbgBSndZy0r0TPnZrLiqcJ4GCa52o/ROzLC5ylLS/A84cGaycPk3ly
OCctb5wAuu8yDjz4QWNAMvhFb5hP9OL4u5hfNDb9lF92/TMf4bK5GStG/l9f
KZtdOvn4nBtz6usojfefFtmMNPPxvaWpUvSH5JsSjSt+ysc/y+icy1IMivY8
Dg6s4cNt1oKfCeMYGG/zSll6g4/5K/1/7vqLAYtxcZIp5mNxwczc1eMZuIQn
id+x+XiikN8xYwIDr2LZ9CfZfGS0Lqv9Tjjn5IPR2yl8SP1e6VYvzSDbpPl1
xQk+pvz8ES+YyOCFi+v8mqN8fB27uTlWhsGdBr/WFyF8VDXUP98iy0C2d2XH
gD8fsi0n+5ZMYvCIUTVS9+QjYaphiZwcg+f00gfWrnz8O0NBvZPwhPv9ybE2
fAyuPKB7YzKDq7Kc+IeWfHx0kDQlyzNQHLqVO20ZH/GvJi7wU2CQmy2qDVrA
x4cfj+avnMLg1oSBCY16fMwItWhQUmSwZoGqJbT4uCu5Sn0grPBdfOC6Eh+X
ykKUb01lIFHZkrFMlg9r45qiFCUGevIPsmrGeMiL7h/YqUz8nc094DHEQ+xZ
tC1TYbDE6yY13MOD19BYkLwqg3bfpwkXO3l48CdE3E54Q/TVq46veBg89y61
VI1BRaJ9gkI9D4Grc5j4aQx0Rk5NanzAQ9aa1x7u6gymlLnqFFbygMPfVuhr
MHioXvbkyFUe5u3Re/iLcGBvydg2EQ9c26uj/0xnMP3v7ZL1hTyojH56navJ
QPN9y3PzCzwcGD85YK8Wg/k2tp4rU3j4mbat0HwGg8ep3bZWJ3k4cUY3XmEm
g4jBgRTXKB7Mw9gq/xE2q+Nq7w/jQfqsrp2YYtDJ3z50LpAH1cvvlkbQxH/V
4L+qfXjYd2Teow0MA5/L6yyGt/Cwf66ZrIY2g4KZdoUmTjw4ityGugiLP0vp
RG/goaDwTvIVHQbRuZ1X68HDs+0VzTG6DDzOxjjOW0b8aTv1dJMeg8O9wX1J
C3l4XrcnWHMWg7d33WN/z+bB5UJhzXvC85+2jQ+meFDYFHyvdDYDu/iy3f1q
JD6X1Q9EzWGQqlQgPKjAQ+mqlw0b5jIINttZOVGah37t3jeq+gzyfBuzLo5w
MbgiN7+d8MCxR0aW37iYROnKCw0YnJCZG9/Tw4WJarX+gXkMnnxsj8t/ywVX
q2zYfD4D9ukPs7e0cqH/0fygjCGDtDILX6qRi8K3Fzj1hD9nDBr31HIRtUDm
xIUFDBi+Ssqdu1wYFNSoey9k8ONK1Z78m2T9ofxWg0UMBqtnVB4vJff10A6D
hHOVtkSFCrnYJrdi+MZiBqOKJZw9hVzcbjvvcGwJAxm7HQZ7srlwawzbtt6I
gfKhsvEhaVxUaUzVUlzKwNt6vH7sGS5yUgsTmghfj+WmZsdyIf2f/+UcYwYf
uycYVxzh4pdL/mkvEwbxJoly70K4uDclSm2OKYM4meuT1AK48Gld7fqZ8LeO
vwzsfLgYtp6z4fIyUo86v7yTtxJ/8n2/hC1nkP59gbjFmYv0d6Z2K1aQ+nRY
Oapvy4Vue7PnGOGbb+5virPiIlYxevZdMwZz5A9nvFvJRUyZX2H8SgYJnTJP
NhlzsbfuYeN6cwbdakafbhtycUqz9ebkVQyCvlS9M53NhYfKK/dnhI85RF4r
p7hQ//5TmGLBoDFjtZulOhcKVWFXnUDyV9hf8VyRi68Gxw+oWjJweBrYvluW
C9fr23qaCEteCcsnjeOit9Bk+vnVDKj+QovLPzmQ7Vs/5r6G1HOKW+COQQ7+
21KbrWHFoCGtzkS9h4P+vV/6Wgjz1JjzTW852LXv26+stQz8wr3jc9o4CPGb
VOWxjoGl+42f/k0c5Oj6mWlYMzhz2P6z+TMOZptifzNhg2furpoPOdj9/cn2
zPUM9P0VDMeqOJgTYTnBdQPR571XAj6Vc9DFavBR2cjAVDljUttlDjaolh19
TvhLqvSfJiHZbzzTPtmG6LfeDqtmFgdzTSxabW2JvgzLNLTncnBysr223CZy
/yz/gv4MDqSCY7QfEp5Q9JU3MZmDlx8ntsXZMTi7e1aH3ikOAm+pOcKeQaVc
jNXGYxxkjbTHjBC2k0+qPXiEg6FjWQHlDgx6ijoChKEcmPYGKx1wJPrYo6rd
FcjBUV5+yEInBttCH3fO9uMgt9MhuZtw7SW+IMiTg6gLN3dxnBkcDPPZV+XB
gVeKwoinC4ONp0v1pzlxYOQaYavpykBX3u1FqA0HbRbGm18QHihX29VixUFC
SKBOkhvJx7M7/65ZxYHcv458a3cGmyYtmHvNlIO/FkzrkfIgepZltn7hYg4c
v3zqvkHYdnqdUbEBBw4ho7yQzQweJDa9NdbjQPefGJ15W8i8c13jWDOTg7EO
1pa3hOlZqmHu6hyE7850yNnKwFfKZv3gVA7q35yc4LyN6OGiwZpzchwsTecd
lNvOYJWFVofZBA6m5unxqgkf7Xmd1T3KhmunYebhvxlEzdr+7uIwG7c0Btcs
9CT9Jl15a+sXNqbVXCzpIlx5b74W1cPG2SW+bTk7GLws6/jx/h0bH07sf+jo
RfTWXMP+2ms22iT9wTLepN/+UVFPaGHD2n9q2y3CNxqojf4NbByB1MQQHwYz
7p7p2PiEjYj0z/2zdzIQjha/NHrAxqbUv7JbCX962auje4eNhUuDJqT4MrgX
L6zSuMlG50bPhVZ+DDZrO3NVr7LRF/pH8wfhl1lb66dJ2Ginjj4U7WLgKl5l
SvPZOJ0wztjTn+zvinxhWMiGbV2Fj/Ju8n3qpUurc9lw+uel833CP8qXZW3P
ZKPOJEr68B6SD41Xl6NS2LDK/u+wQQCDUk36I+cMG5UOjKSNcMPzoqWNx9mY
eiqYkxRI9L5/QerEaDa0LEf+xl4GKyqdhi3C2Zjo0PPvF8JnNep3RIcS/7ft
ns7ax6DPf+fDe3tJ/DoKNF2CSH9kN+pN9WejYuGt1xP2k/mg/jHEy5uNgt1d
vmWEY++EiMq3kfWT60p8gxnsfb/xkZo7G2/dJt1WC2Fwe41dzWFHEp/D7sn3
CQuHdmR22LAh3LlFLyyU3B+218xhHRuZfmaRegcYWKTtFN8DGxcLdLMbCSft
Nn+7yoyNbLmVEbFhDC56Db26bczGvpAiZvFBBrt0Us5YLWLD4WjBmXbC+snq
/XUGbPwsNL+ReIjB96qccV6z2OgwLRKbHWaw8veSW8M0Gwd91H0/EXYu/qmR
rsmG8yx2Z2Y4A9VAZWUTNTYOu0TMsjrCILyNc+k/RTaiL94z/ELY4k5n9Rk5
NpoTeL/zIhhkdI0GmkuzMXTEJnnjUQb/6CzJG/rDQmJB88fvhOUd7the+cXC
I/lQWVYkQ/LQH3ZwiIUDPKs+uyjy/qiarGIxwILl4tDsX4RdY/0phR4W+tbM
UuBGM9CY/3famy4WYpyOrXOMIfoNm9033rBwSFC0boSwH5Oed76VhT/76hV4
xxiYjGfpR7xkYTZLMdcxltTrwAeZnc9ZkGNSv/wm3FfRssTpCQtTs49M4caR
efJ7gL32IQtqBV8G7Y8zeD++1GPVXRYu5mhd/En4y9vC9SsrWZB/PlOFFc/g
3FaHIItyFmo9Z9rbnmDAb7Z9aH2FhejVFs5DhMsCFtm4SlhYbc+n808ymPQk
a2iXgIV7ppFX150i7ztr/epoNgvxpzuV+gmfqjnDz73IgpRkxPT8aQb5pQHc
29ksvO7un21xhsFS5ZiyrgwWGO83r98T1vQ5Vq+UyoKT8qBn0lkSP/aCwdUJ
LJS/XC80TiD5sbVVCz/JQsQu2dtthOetZS+9GstCy2aXnLhEBju7pG2+RbJg
yzisNkhiUNy91nl5OAv35egr9YSDD6xaH3eA5Gvdu96DyQzUx57pNQSxwGm/
OzgjhejR5ra3swJIfG7/V32XsJ/AISbKj4XpIvet/qkk3lu1hlq9WKje6Fyl
kEb6V2+x+artLNzW/tpbSvj1j7POHA8WXqVt/uB+jrzfJ84zUnJhgdfOF40Q
dr6i3HzMnvgzd7zZpXTy/jlnu2J4IwuVe89krM0g89z3g3vwOhZKE3dUfCJ8
Y8qwwYAlC1OseeLETDI/zqVLQs1Z+B/NXTVj
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwVl3c8Vf8fxzUI0SAhdc8psiIlpUFeqaTszKQ0kJZkFJmRVWRkdPe59xpF
SZuWhspXikppEGmoJFFZid/nd/+5j+fjnnvP+/N6v1+v97kzt+1b7ztaSkrq
+Cgpqf+/z6psujoQwILU/18nj2Kg5IVP/H4Wzn2We1F5/Rjy/5McGB/Cwqsw
k1a74VTMg31X5gEW3jxSPbfK6TiebntVPzWchdIIo1EGF9ORWLFiBieChSc1
A4VGmRnIk098qRHNQsLpGyeO22dieDt/mBvLwq5XoaE1k7JwRisyb1o8CyEx
m4wHXmbhsrSyJC+BhStlLqcXMCewUdNBUzmZBdP4+j3s3dmQlZk2Le0oC56N
6pnOi3OgUbIhRTqNBWbY9EyudC5K0n4GRaaz8POvuV7+s1zMOnfzVXcmub7v
ouIjQR4eCnk3fLNZ0BYOOvrvPAndJF/6VS4LZdzeps/z2Qgw6JRey2bhaW2c
XWUfGyeGx+4r57LwLar08MFrHCROj9ikLWDB1ma7ojicC8NN055nMSy0Se/N
aTbhwcu9+Ok/MQta3dJ0QwcPkp1dnjsKWPC1urJ5qYCPqXeLA+uKiB6Nowaf
2Ajw05czZVExCzKNu5s2/BZAa0m4NfcMC8udO+JL8oR4Jz2iOFLKAi70Gj6Z
xqA1vtVv63kWRi+3mSCzg8FL7zqXuxdZMGex2IFlDFItD72eeYWFv3UDKmP7
GCi/Su2NKWdhf3Ilu2KpCE9enjvbdI2FkoeLq1MjRNgjkyK1+CbRJ6z3RESF
CHVW139mVrKgfo+RSfwtwtvczzHf7rAw7BQ8odRADBONU+dWVLEguBm6sm+r
GJ+0OIfzHrDgcWT9Xb9sMQZMXfo6qlkYOTW6b3SVGMOTdytZPGJB81zm/uc/
xQgsC2zIeMzCslexj1qnSTDD/ffy93Wkv6NOB5tYSrArN8553jMWHo2afuKV
nwQZTgXK0Q0szC8UtzcmS3Cn6kNszUsWPo22KjY/JYHZsbs8ldcsKK6dEaRy
XwK3gnv+3m/JPKT7qO9ukcAv2u9zUTMLX4/2Fq7rk6C4R0e1q4X0w956/m2F
fExzjRsyaWNh0aHWukYqH1qhnXnhH1kQvj+xhz8vH9vz33278ZmFE5srKqZb
5GPhjere4S9kPuv2OmyzyYeH5vSbFh0suNV5XAlzzYf3cyuLmE7Sn49G/rs3
5cNg86Xom10sxLXva1y1PR92vx5HDnaz8GdVTeLEHflY7zu4dNFvFjLGSba9
8M/HBCPBtcBeFibKLvsoJFwfpvHvdD8LUUyhfJhfPlJmPBvTNsjCraydFn7b
8vHpHFWv9o8FOXlBapBXPlxivLfbj7Dg7JowO98lH3L8b7fiRlGYG9LsP4rU
+61V9ePlMRR0d3tLZ5Hz7PuxrKFdmoLh9S3Nnsb5OLDkdIaaLIVeft6SbZr5
mDS+bJq1PAWl2otexUr5WJAoCD6gQEGY/jdssVQ+9py5zZNMoBBP33098bsE
Mdu25NVNomBn+Nh1wUsJ/obc9xlUIr+v5SpXcEuC27yFMloqFDaN9T7nVyBB
VPzvSFtVChevtW0LPyqBRvXKmmB1Cld930Q175VAd8z2LrYGhUa5ul9ZDhJo
PUrvvDWDwr5dT+TYRhK8Lpd+0EZROPnEc+kPRQmydg+HS8+i0BG1hO7uFMMl
7by8jhaFZbvjzVc/FUOu0SV8jTaFsFMRsjFXxeBPmf7QT5dCqR0ZbkaMKXpL
/hzRp7BH9Yr64mNiZCk1jRUbUCgb1PoyI0wMjx/GfTfnUrgXw+Ff9BPj5tDO
x6/mUeiclFJx100M5YKS5B5jCmZViac0rMU4Fk7rj19Izmf/sy17qRhjlnVd
mGVKodhonq78XDGamsy0liyhMMFv/PONs8S4kGwQY7+MgsKXiysDVMVQF7dU
bTOnkOg25KWnKMbamtDeUAsKl15OVQobI8b9DwoqySsoGOT8HG09KEK3yp2Z
7JUUEtRmzE7pFuFM/ZkZp1dTqLbpPGj4lfi77otc+RoKLrOV7uq+F+EKK7X9
/loKn/qq3QNfi3BO48zVZzYU0i7ZfRl8KkJAhFfEOzsKBUduO92uEWGv7bkF
Xx0olM+6drDingi2g5fe9zhRkD+rMqf1hgiznCIT/zpTWPQnbrTRFRFqYpU0
x7gR/d0zV4nOiaBHx5fLeVCIcHN9anxahC3zXq2Z6EnB69inCa1iEcbT054p
e1FID1z/qoAngvcTBw/VzRQubK4OOJwrgvvx6LfqWygkW+XsCcwQ4T+9Yi+N
bRS6zzZUBB4V4dDHhiYNHwrWq1LjYo+IMCdmxEvDj4LsQvm5gmgRuEv13qn7
Uxh29nKvDhMh8Y3DVtVdFFoCbzz4FyRC9ql97cp7KBw8/Wy3+V4R7A/G758Y
QOFs0gWPxB0ijOQfkZIPJPUaRtxs3CpCLmt3zpggUl9Dwsd5XiJEbjOcPxRM
4WfaJKNMNxH84m83/AqlQAe6KvU7ikDNUTv87SAFxRApFV8bEez42qat4RTc
uvtqG1eTeq819TVEUGg329vsABEsRulXVUdR+GZu8KeW5LdC9hDvegyFmP6Z
j+0XinB18Yr4s4cpjFJS1nlhJMJZrw8HBfEUGhZG1nrri2Cu+jjieALxu2xe
2g8tEQwN2tOjkig4j4rBYUoEmwnql3enUDikGXRbdZoIf95bf/c4RuqR0u88
P0UEXszGRavTiL59a4sdJoqw6oBJ9rx0Cs3/Wt79lCPXK16R0cikwDr6JyRn
rAgm6+4cH3uC+LFo7gbzEQb+3xcadmZTeOgSeujLAAPLAz1tDbkUagvO/Zf7
mwHLoKHs+kkKH9bGLLHuYrBJ9WqeiEPhgaXcraGvDMplD5xM5FHYcK/K9tJH
Bpmcbxd3CSi8s3VsCmhhsHRB5zc7hkK0ha2PwRsGFuNcl88Tk/oMljZ/b2DA
aPSXTs4n+eG0BWV1DBSsS8x7Cig4lZUlHahhMHWJZcfTIqKP88WzFvcZ+Aal
l5edprDcNfjs+NsMWhx9Co+XUHjmFBD35hqDGoXMy7vPEj90Jeieucyg5/rH
z2vOkTyy/MWNJfv3jrPhMs3zFL48WPbavYSBW4npxX8XyO/f12meX8ggN6rO
ofESqb+jIn+CiCG5VDm57AqF7CEdwx9cBm+H6geSyik4+jUE1+cy6MivlfW+
RsGyzPrA5UwGN++EWyy8QWEyZ54xP5VBtFAgkL9F8umNa0FSEgOdQ1I6LZUU
cnbyHofEMQiK2f76wh0KN8hG9olicL/+6JWEexQ0ktMWuocx0EhYXOl+n8KM
Gf77bYMZfC42/K37kPhzV6XnqgAGf9bquw1UU5if+LRr+U4Ga307P1XXED+k
fplr5sOgc8gkP6+WQsD8DVPNvBnUT7yV6fuEglX04fzlngyO8ledM64n83T9
YeNKVwbzTsX/G35KIesQu9TGkYHaooVRNc/Jvri7S8fNhkGes5JRzgsKb9df
xnYrBv9Nea7s3Uj0H9PfH7SCwZq8uQa6ryn8XnjFPsGM9GfM27CfbyiouB8E
x5SBVUba4NUmCndCH9SeN2ZQGzt4Pvod0aNtfs8jQwbS+i+Eq1opsJvXnfui
y2B/T12VXBvJW/uC0bJaDGa78GY++UDBPr7xmx7FwOfdtyuZnyjU/Av3syfP
X6tNdye4tFN4vFwnJFSFgfWM2rSpXykECyKUhJOIHv7X6xu/UXivrYJH48nn
Ez7bn/xO9A058XdAhkE6q1/W4weFX3l5K+eMZlD8H29k6k/Sn9HJhrcGhbjq
Hb3gRTfJhydh7frdQmSstyrI+kWh1d/mAq9dCEdTvqvDHwojPTbHlN8J8fSh
/urxfRTUyqv3pTcIofkxJ+RBP9lvU5U2TXokJHlx5GPsIIUm/0OOuXeECJfl
5SwdoiD9y3XNzHIhvvNik3/9oyCpH1x+vlSI3lcvbpaMUPD8fNvEqkCIR4sp
7nkpGuyGUdqtXCHcZs8dSB1FY6BDbVJMlhAGZv4DO0bTmKC5/eesFCHmMzN4
lmNobFe0qHoUI0StouD99LE0jjxXSAk/IETO28U1vYR758w1M9grhNRfM7d6
aRqDLjJvP2wXYsJAf8JpGRrSEwe3MZ5C/Bq+tiFuHI1XefuebnUSovJZ/VNP
WRpqhU80da2FkH2V9MNYjtzPN9b913IhUicZlsnL06gP6tp5b6EQb6YrqrYR
rnqd5HHSQIgesxDNivE01CdfpYM0hfjiWPoiXYFGan9HpeM0IRJey8z1U6Th
/zJ3gclkIdr7qw3MJtDY6qoXPl1WiOnBFs8mT6SRHzf1uNyIAHdLL7HaCcvX
Ptv3948AostBSjcm0Qgefq7R812ANQvvnc2YTMNsVWZ65wcB+DFdP32UaDRo
xld3vhEg7hiaFivT8InWrOp5KsDWP8P7FKbQSD/eGTNULcCDkaAzLYRXtm8a
kL8tQM+Jj5kXVGjwg3oMWVcF2GPJpROm0ngRqK+xqFSAkyvfebir0lh6MPHW
+gIBEPZ7qZ4aDdN9ySohPAHm7NJ6OEjYJ+fiDM4JAQptL/17pE5DGJbaUHVU
AOV/X9/xptHQGThp+vuwACFjxu/eq0Hj7potq3TDBRjI8hKbT6fx9eOu/i2B
AiQe1UxQnEHmQWjpJNghgHlovnIzYZ/cINvWzQJIH9O0P8Oi8cU4qV3bTYAp
5z+aRFA06gwm0EF2AgQcmlO9lqbJ/7DcX3dWCRCou0xWbSaN8Rll3lPNBHAq
cfvziXBTS+fWfQsE5BHtdvrFWTQyPN731eoL8GTT9cZYTRq/tSjKaBY5T1Py
YzstwlfNXuSoC/C0btf+abNpdDyqVx01WQAXtvjeZ8LftgZ/DJQVQNFuf9UF
bTJvd24u/jTCx5zzqiHROjQKQtcpbe7j48Lyl8/W6tJ46Xg54O0PPrpmdrZO
0aORvYNrs+kzHz1LeYIWwpQSt/BDMx9yLE2FYn0ajh3OUQEv+Fg05Y5eyBwa
H+r8Hv+r5aNQ43KfuQHpf3NodmYVH3pfzA+MM6RRGqxVr3eDD/EHdkE94XdG
qtEPLvIRPXdcInsuDYWfv7g7SvjQZ+6pbjOiEVi/VUdRQj5/qLBRfx7p1xw5
1lUOuV8H5dhD+GjeiSjfLD685Jf2Vcynkfy1ZKXaUT5uNeU5Hjam0T9veG/d
YT7cnod6WS+g0VduOng0nI9KtUkaE01oYNy4z+v288HNFKe+IBzzVsNo4k4+
pJv9z3MX0jg/V+d54xY+8a0gZesiGlHGb+vyPfiomhCtomNK/OTYMeuAIx/b
31q6fif8QU+hxsaaj741OmvPLybznPvr7myQ8wh8u0OX0IiWeIwfu5iP7I+m
9kuXEr9n/2I+G/Gh2dLoPUzYuy3q8GMdPuImxmjfXUbDZvGF4nKKj9jLfuIE
MxobDthOO6XKx966h8+tzYke5+SecCfykTzt7bXxy2nk6py6d2IcHx7Kr92f
ENZ0a+9PH+FBtXegOMOChlVb0u6MPh4UK0MvrQfxk8RGPaeLh1/6R0KmrKCx
WfxnhN/Og+tVr44XhJOnrJtR0sJDp3iRep4ljSDvCftuNPIg+8N62H0ljalT
5X49reOh2bOGo7aK5EX/qKKOhzx07e3+8Ypw+687yXK3edgR8Hvw5GoahbRy
7pxyHoL85Co9rGiMune71qmMB66m3zK1NWT+1ubpR57iQdsUgY2Etex9zhYz
POzsrd2Ua01jT1bv+uaTPOhErBjrupbGpNEs9SmZPHySPNuuvI7G9bKSf/Yp
PKydcjnyKeH7r/cPpx0m3184wyHdhuRNy0r1p+E86C6yeGtrS6NrXa+NWhAP
SeMdZsrb0ciq2Zy9fRcPUvtjZz4kvMnY5eeFbTy8/CLTFG9P6jtUuklmIw97
bqg4wYFGym2rN5uceTg51BI7RHjPyr7tFTY8/Dl8cne5Iw1LP26/2ioeTDv3
Tw5xoiFbOjE30oyHyCJBkNF6Gm535i/9aMIDr80x/Rvhmh2tbQ6GPESzr+0o
cKaxK+VvWuVsHrZmKA55u5D9M9dnyQIWDwtcI2ynuZLrI4faiqfy0GSxcEMD
YefrRcnaE3lIDdoz67gbyXe7dbqF43iQf+N0ao07yctL/1XqSfEweu7UDikP
Gq/TFOzO93Ph1P31WwVhdvbgY7NuLhyD/hUFbaARIYhE7VcuNB/FzprjSYPL
ixR7t3Ex/F7i+YHwSc6n7t43XITvzHXkbqQxfFNikPWci/rWpLHOXsQ/q/Md
59dyYZJddEB+Ew3PlBcbG6q4mMTXKrpDuL5f2zbiJheubYa5YZtpJGmkUNpX
uLih1rPSyJv4N73zeUMpF1PvCcs+EZ40fs2OpCIujhn7NnG3kP3gntJoznDR
nhj40GkrjQrX07P6T3LRVNq1f9w2GosHeVZXMrlY4z+p6QZhNfuNK8KOcnEI
UjJB22l839s0aXk8FxHZ37u0fYjfUtQvjovkwi5zNOctYbQpaL8I4cLIZN/Y
DF8aV2rP7yjcy0XbOm+jVX4k78+OPRDhx8WP4JFp/YQb/o52cPHmooUV+bBk
B8lXs5Kf8zy4SEkdtdDbn/hV5p/HZCcubOuub1faSfbVv/6EP2u5WP/opfN9
wsYvmNBmSy7qFkVLh+2i4evQN/u/ZVys4jSH6e+mEbdUKqfchIubjnRpE+FJ
QbdvlxgSPZP3FxzfQ/rZbF4k1uZCY8XQZuylsW1/jBWf4kLGseNNN2HPOWk8
rho5v9dOdUkAyVuVwCL+ZKLfe2aayz6SByuMfSXyXFw3uvFubCCNnCfvnp8Z
wwWz85PvZcKa7w93VwxxcD3Jqsx3P43KIt0bNX84+OAmd0sliOShx/v5LT84
aAtzT79PeGjedce+dg6KfTy1QoNp2IU+mKr8noNcv2VRWiGkv/umxBm/4UDI
aHKeE9bdfzXD9TkHHHmziLhQGvOf3EVkLQcBQWfp+QfI/nq/LqPwPgeOkczR
FsLF43yjGm5xMCA2r0g7SPaLREdGppyD96ZnzywLoyFRL9Zddp6DA9tVfb8S
zqof+yG4mAPn2fltueE0QuY7LSiTcBDmEjF71SEaRYWnVX/yOIgRVhl2E97J
1Tu+IJeDxtSiv/wIsu8iOrMPpXPw55BN+rpIGrfOK+nfT+YgjWn80kt4y+mr
NspxHFQrBMtKokgePvrb5xPBQUjRqh/20TSMYkcMroVwsGJ+MGeQ8CaDj1+U
Ajj4sXK2YmEMjcvGtXr7dnAQu/6wlVMsDb+eN51PtnDI//SzVkOEqx6YLDD2
5GAkoF6x6DCNazIjfSedOdCWTOQ5xdGwH7tl6Rg7DuTpzO6/hNUUYvoDrTiY
xDk0oTCe1OtzZF6bBQcqTHePwxEaAfbsVrclRH+uhnCA8ObRX2TqjDlQeDpD
WZJA9sUFrmidAQc13jMcbBNpvE1qLf1vNtHH0sL5D2G7/A8GthQHlg6nKEES
jYfUc/VnahxUmUZdskom/pB9F7xRiYOElLbJXYQtfUyWfBnPgVTpkGleCtl/
c8b5h0lz8O5bl7bFURoC++Th8SNs0Nta330m3Hvu26C4n431Sj3ex4/RMNTZ
ttG8h43yl9bFC1NJ3kRrst52sBGxQ/ZWE+HxoT4rIj+x8WqDCzc+jTyfVWy8
R7ewYUs7WuofpyH1A+LqV2zcl6cu1hNeWWjbFPyMjWqrj50H0mmE+5Xvm1XL
RkHL3Z7pGcQvklueDffZEN5qvnOX8LE7HG5KJRvqJe4b/TNpaKikzLOsYOPO
OudKxSwacu8fqA5fYOPWzF+dFwhXuWU53DzDxuusDe3uJ2icydF/GVPIRlHL
qZIhwtnFdadXM+Q8umOWibJprEm/Wz2Bw8bNvUdzVufQGKe/ev7bE2xcSNty
/SthZTvO++I0NiasKTqTlktD74r0q6gkNv4HzsQwrQ==
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwV1nk8FV0YB3AVJUuJoqKZsSRZWpStkieVpex7JWuklCI7IbJkV6G5uFeW
FEJaiOglRVpopYiiKLKkDVneZ/66n+/nzNwz85zfc85IOp0wc5nLxcWVOIeL
i/mVut9ZMeFBwJszJfq6l2JhoujNoQhPAq7Eh3Q7aMRB3uNcX35vAl7ePPBb
YzIONoDRSIovAcF11S0zT+LhhVN7q2gAAZlZ0U/3FSdA1N0dq1hBBJwUMDqu
SCdCOl/UW/EQAm6UzvhHJifBjHPWTEYYAetsnO0N9ZKhWCY4fWUEAZWC3mE9
T5LhNo9IbnokAdHlk/HbzVLggLSxtEgMAeevLewrfp8CvPNXrkyIJUDer/hX
1KHzIF607xxPAgGHxGfNN42ch6KEUa/gJAI6vcwWrA68AFKlNe0/Ugi4XLm3
4j33RWjkZN5zuUiAlT7774fEiyAX7UK1pxFQk730Yr1YKngoDvHo0wRMNfZ/
Wc1JhQsz3CcqMwgQDjffVCKTBlESQQdl2QSMi4is5LuaBkoHV746n03AvZdl
80bl0sHWuvDFdA4BAiJZeasK0iH3yMj+w/kESBiNRVhLXQLR+sKTLQUELDu+
N9GNdQlGXVhLVQsJGLhWeF1yMQ0yGgF6GcUERPE8PrIvjIYunlnB2RICNAyM
kgeHaPgY8dHV8QYBzpXeHyutWfDWvsWi/iYBCtZXqq/UsCBeO/Cd5B0C6u6a
v2OTGSDSHv8ntJKAZ4uiZxNPZ8Dzt6XXO6sIOKvrWOfWlgHH5p/jUq/B/3fq
V5VUyoQWnerRlPsEpM8bu18WkgkdaX2hA3UE8DeIPxV+mgmbxa+W7mggoESW
P2X3siz4IsM6k/6IAD9lmV79/VkwoWbxd7CJAGrhpWGpjCyYWeIurPWEgIrA
+Vxv27LgZNnJ18nPCBhOvuJ6VIgNq6x/bf/UQoDWlpA133ax4WhauPmGl5i3
lrb3tj5sSDbNFwl5TYCk9WqfF5fZUNfQG9b8lgD3R0rSFs1s2BZXn7nsHQGh
mrdX/Rxmg1X+Azf7DgJKPd6E1izmgGuIa1/BBwIWd2dJP1DkQOHYGrGRbgKK
zb29lupwYKVl+NTmHgKKjtYa1h/ggIzPUHrAZ/R3j/sfjnPAOa9r4F4f5k08
ctAvmAMq95r+zHwlgEt5/2huNAdspCVqtAYJ+LZzqMEziQP2r3S0QocI2MF+
GPnzAgcU7W6F1IwQ0B6gMaKRygHDn8+CJ38QoLS6Sd8Kx81cJreo/sJ+kHPY
ti+RA4vWs6tO/sH5ttnwmUdxoNVffPraOAFGDV/CzYM4cG7Vy3k9kwRYemg/
P4LP96WUbF0+TcCirmeP8mw5YBFq72w0S4Ds9rrVwvocWJg1UBs+h4TuO2fi
a5U5MPBR7PPteSQIF9RL3V3BgRPDW1/385BgyF/rKjDDBl+Na8nLeUnQD16Q
9LCbDUL8ZSv1+HA8Wll8sJYNm6LYp3wFSHA5WjMTk8GGY8X/ZeYuIuGFzcEf
BbheoU4O6S1CJOzo3yViYsiGf94PD00Kk1AoY+wRI8WG/zJV5sssI+HB9p4E
699ZcDriV7CBGAkKwu58Dx5mgXjTzuZTK0hI89AxbbmQBXLznEdocRIUww0g
zD4LZJ4kDdWuImHte8HcdrkseFfJ86iHJOF4qwzP+5FMOO8+E8AjRcLcT5rJ
qlWZYJFwg2+NDAnJTSUVRrGZsLDNIkBXloSo7w3Xx+0yIWupRKOrHAnlCvG7
LdUyYelajd9n5Umo2Ogack8Y/0+4kztHkQQ+f2350tEMsBlW/luzDv8vz8z6
aWsG1Ewdeda+gYQPrephj8ux3/KLYsaUSfgaQjUdS8uAuABKnl+FBJ+Fm+7G
BGXAvK0j5VJqJExZT5ATjhnQ2blNRkODhLyqb5XZ+hlQHqMYarSVBOWhTv/D
yhmwIqe7wUmTBPuySV0NiQzQb/b546NFAt3XJsSzIAMe9gosi9mB6xP4T/De
GAt+LKuTpHeSUC1A7TbtZkFxa/Gqa7tJSPyeKHP3KQtaWr4urNQl4Vucuca3
KhbcIeL7H+qT8HaEHG+7xoJS8eKKl3tJiPlQcSGYZoFHkG1QlyEJs4nRH56f
Y8Fxg9JN34xJCBR4ItcYyAKDyVufxkxJuD9qp2d3jAVSpsFR/8xJ2CDD9kiw
Y0FzmLD0PCsSzj//JWdkyoK1VETlQhsSLB5MWLF2scBhQ7vu4v0k8L8A6WPq
LOCnVr4UsSWhK8N/ukaRBfbPjW3E7EiIJiNSYyVZYJ0Y0rHCgYT0nwZtT0VZ
8Hhtoa24Ewl3v6n2hwqwIPDz607xQyTMEfhBcOayQCF01lbclYQTniV8shM0
ZGxZ27XCDetNc1yFRmmIem/sKHaUBPOMfIn9/TRcvHqiX+QYCe1tm7Rnu2gw
8ovwXOxBwtWjNqJTb2mYzTvLxXeSBA+3L7MGLTSkEe6p87wwj8534oYbaQh2
Uto4dQrXq3SR+4f/aHCN+O/1Tx/M0zVBL9EqGkiF5WcG/EiQfK6alnaTBsMs
WbWPASTkdPEP7b9Og0JV59/XQSTMK6wodCigQWuOfEPTaRKsoInKv0yDwMWp
zOpQEuLP/723OpOGCvUdEdfPkLCFPYf3YxoN1217/dgRJDxxis57kUKDptiz
oMRIEgbHpg3H42lQUuxPOh2N+Zl/rc00hoa9i1bcdj9HwsfQbIXOCBp+f9L7
bhNHwoD9R/3UUBoyQw+o7k4gYftNJ92gIBp2+W6+uCEJ88m90zDeD68XvDNf
PAX3g28D6Y9O0bB5T10i9wUSJvfq+sqdpMHtu4rS0EUS6ufP1y87RoO271jP
6zQStp3tOGN7hAZC8XVZ9SUSsnlacxRcaTgoVpF+mUWC5o6LmhLONFTy+l6K
yiRBmu/DmKIDDSmsgZtH2SQE33noaXuQhi2bhgYMs0nYM63ud20/1muB5fYN
OViPBQ7PhG1oyBYfL1mSR8JuT7G96ZZYP70izbF8ErzmHn2lYk6DqIb24IsC
rFe7kOWQCQ0uXkmVZdew31+PP75nREO3yaEriUUkfJn/TDXXgIZmgZTb7tdJ
WDMZWcjZQ8NY9ec+3VISuJOmNW/o0VBnrrRV+gYJIibRIm06NFgVqd2cLifB
YW6CldBuzMvpFuO2WyTw7lm/1XYnDVvd7y8pu0NCuNrA9N0dNHRMtU5EV5KQ
eVGzVw5oGMx7ymtfRcLjxzZqV7fTUFMXoKVyj4SFqs2Gapo0hHDYbL5arNeb
jWfebKVhTSDXmu77JKwX/qscvoUGr1Dnd+V1JCzOnfNkmwYND1tj70Q+IMHf
xKeCW50G8Uj1+9YPSdgXc/LYO1Ua+gqVfsk1khDKeeZcpYLrqy9vNdFEwtn8
PomCzTTouwx9aWomQa3sgARnEw1DU5vz0p/ifnG2Y/CyMg2ti2tTXJ6ToHV2
eEXpRhpis3aVKrdi/zc90Hi0gYYNVyOmZ15g3sy4evvW07BcVeV08ysSLmkm
3xBCp5sLr099g/3THrB75zoaHi99JWLfhvnLKNcOUaJBN32dotw7ElgffpvU
KeL6zOvwH32P/bg9S1wArZOcMFnRScLvokBTOwUanoZN3gjpwv1t4mZehTwN
PPJvOLs+kuD2m9MshvYca2lY2EPC4a95QSFraVhtkSn5vJcEmaDlpwblaDjU
NXAn5QsJJf3UCTv0bjX3SIt+rPfJ9A1ta2jQW/U0QfQbngf83wMt0UNu1a1t
A1iPLXxL38ni+KI+o0vf8X0ntzc4opOIcV6bYRLgCWk1spqGwseZs6KjWO/b
Xmln0BX2IZve/CBhv4WYxXJ0splO/vmfJOxqHrW/KUODiVqWpfFvEnw5rfFm
6BeN8rv5/5LQdNqp9Lc0DdKfU70fjZOgVLecnSnN7BdnP4dNkiD/esVGXXQA
b2bqlik8n4zXaf+WouF7ZljMz2kSnreVFl9B/2l/U1M0i/m85m94AP1Ency4
wUVB8ttXc0XQVqvXTcTPoeCKvEfxM0kaFLe5TRyeS8GfK7oKceiN2asytedR
0J6Z77gX/VSQ/UmCG++35tm0CJ3aod78B33cbPHZVxQNXP+2WbXyUCD7O3ZL
BnrRxHjktfkU9Laaabqgf85U7QtfQEGljb73RvT9l60v9vNSECBk1DRL0sDb
Hj2svJCC5UqbpFvR8UJKZXx8OP/lmydy0O8lBMV60P2pR2hf9Ng2b+m7/BQQ
2x/GG6C/mpS8SRKgoEqUW00GHflu/jpXQQoUA+Sipgka+sebFLctogBif7i1
oyVOab1cspiCz8Gvnt9C15fcIvrRyrKjBefRl297Cd8TosC8e/EXT7SuyoPr
yUtwvnKWnxk6K3Rk9JAwBQbPUkw3o8PjoFNdhIJDmudcxNCOv2dOCCylIKb/
8pV/q2h4NOtV3I0+9iCC9xN67MLnlPJlFHw1tQltRB/TzqAiRSlgGz6cLUFf
2tllYy1GgcOF/pB0NPj/2rJ2OQXTWkZjYWiFozKNk2jbOX+M3dFXDG5NP1lB
wdVLuxKt0CLT37oyV1JQHsedp432nsfvflycgsB5jjHr0RPnbXM0JShY8vaT
8ip0VKx0pOAqCkSrDmfwozV98kQ+oLlz5KomJbDf4qSNigkKmjSLowfQS298
3hxEUjCe3TT1Hu0RqNCkT1GwWYAj/BR9Um4r73JJCvTaL9XXoE2LrH5/QdNn
Ds0vQ2fn/Jd0Uwrf9+VYWw76+cHqtjBpCoQVvTemoa90xjwzlKGg5JulYCz6
RctRz5WrKdDq0XINQVvQOQ/60N/nCKudQgsaejaUy1JwZ/pToBta4YaYd8ga
CgTICUU7dPn2ty/15SgIl32pZ4EekRz6uHQtBf/tEmvegx7bksnuRpfJZRfv
QC8kpAUK5bEeUie/q6NVl9at9Vag4J71rcgNzPOJ3/6rqUiBk1C9txx67VdN
3wVK+LyCy+5Q6JxeOr8VbTtuqLMCHbJuQRS9DuvVuUFKGC2f/UDMaT0FsZW5
OvzMeKPAAfkNFNgtvV7Gzcw3SJqMoc+WeR2cEafBlm/L37sbKVDdpr5nHF3b
mW5yRpmCWnE77zG01SsfW71NOL7V4d139P3lQuKLN1OQOfTatx+dkZIT/wb9
uM19Tw+a54PbjQwVCm73fTf9gJ60YJ9zVKWg1EQtrh3dsChk2Ro1Cv5lw69X
aOcObcvv6MBnInEt6L+6a/RvqFMwaNlq+AQtz3b54aOB+T92bUsj+uJnNaMt
WyjIlf1i/AAt3d1mP4N+XtERdx8dvjhUtn4r5rv8z/dqdNht15zIbRR0mpZ5
VqKPtzS+0tOkYPTJ+eW30TErO6r4t+N+cFXt4w20jcg76+foKCndxhK02J+J
wmQtCvxi/Z4WoQXv+9wyA5zvdvzwVfRP+bPeS3dgP56wVryCtqywHXyD9hy9
dTYXPZSjuiJdm4I628Q/2WjeYb0Z650UcOm2h7HRH/Y3s5bvwnyqn5fKRI8c
/zHcjlbe9ug9jT7s8Wvy0m4KLnnHXE1He7kuvG+jg/13/U9sKlN/adety3Ux
HxNqZy6gZdXgZBtaxjg4NgV95M/Tg2l6FLQoTOUnodcE7eC21Mf8bh1/mYD+
kvvSWWQP9iPXXaF4tP7S28Ev0IciEu1imftVVhkn7aXgKHdrdQxaTlWrw8CA
AvXrHWui0dH8xpJ8hpiPPaI5kWguzzDJRnQw9+Das+i3X+d3RhhRwEs+qQ1H
H7u3zBSMMe93lBzOoC9NdYdNocfPJgmGoX+fueReaYJ5yfN6FIJWG/Jc4m1K
wdQ+u9jT6OACttd6MwqGO7psgtGZPSZJA+hsKnJjEDqErjqcb06BW1GfSCDa
MVlwyt6CgqUHs2b90ZssgwxWWlKwUkf3lx+6U0tl32v01cCoH77oeK9jUolW
FMR95frrg+Z7b3pV1xr7eZ0DN+O560QHuWzwvPE1XeGNNv3xbeAuWtk4UuUU
2sRrusBrHwUXY0ptvJh8PgmTUthPQb1wdLgneuZT7v5e9L7Oh+Un0QFH0kwy
DlD4/Sz37QS69WM0t7kt1k/2xGrGmy8W+PIdpODgkQOHPdBCWTIFdegStfKS
40zeepTS/O0oUKre8u8Y+t7ysZ3r7SlY6FVrwFj0AafsC/qk6MJcd3Scsktn
hgMFEtFfp4+i+6NONpo6UvC6TPEg486SEc8FThR88i/47wha102o8x7a9qqi
HONA4Jrv5UyBdXvKBTd00MXvI7KHKOiyK5nL2DBlLqsDfWfbAZ/D6PWbT3An
u+A4/6lBV3TPHvv1u1wpaB5+cYjx8KnZlePovWGWn1zQ3URwY9FhCuQaOh0Y
n4ufo2LvRoHucr3eQ2iDlmpn4SPYb7IBbozNnrw1f4gm2sxGndEtqiE8/kfx
e2Ln3UDGu1gf/OXd8fuhMGUB4xoTqqQTPe5Yn+bE1DPGMz/xGNa3RVmOsfiO
KTs4jvu/zZNqR/R8k8H3P9AfbX1MGQfaHlmR64HfM7Li3xyY+n3KXmlxgoLi
voJwxtXr73Vxn8T78xcQjLOPfHG5jZaANdX2zHi0TpmLJwVh+37tY9xrtbB2
mRf2h/XBSTumPv7WSQ/RTlammYwLD+2X8TmFeZb9T4txmuvW0zLeuD5arM8H
0ZxsadYrdGxtayxjFt+2oHAfvH+/pTJjD6/r1EZfrJ/jyg5bJp/B2bHd6NYy
4UjGEzmadxP8KHAv27iB8Se168Vb/fG82uveeQDt6yzm8g098/3mOcbmq/N6
0gIo2OnPpc7Y3yJo9a5A3D90dPr3o0M5DUo/0KlEUDrjtviCf1lB+L4qqXqM
fwfuTdoTTIHU6rjJfeiE7Lavf9B+A+bXGTcJnOLNPU3Bok99Doy9C3YNG4Xg
9fe3LmO8Y+Mp1iR6OGVPsw2Tn52rBa+EUiBUxR/GOMzsjI5pGK73Vz9Vxn7X
rutMoSNXxAxZo2c9WgULzuB+m6qSz1g2d3GmaTgF2l8DDjLmo1J+/EMrfjYS
ZSzEClx0JQLrxSppsUIvy/4xZnyWgsO2F84x5mSIcybQr2/93clY4MUqkdxI
3B+PvJ2xRDfbrzI2iML9wEe+inGotpb5b3Qs34gPY23jqyQ7Gq+PI5UZN6id
vqUTg/t3XMWwBTryXM+SEbTW0/IixlwlU2rp5yiYqyl4hHHXwIisViwFF/7U
yzKmnD529cUy+3vrZ3OmP4TH7BPj8Lw6tTGXceVbvUKVeDwP1/c6Mg46zFvb
ibaV6qEYt++zyIhIwPpIKnw0Y/qNMtGWT6RgQqqaw/ghH3mzFf11e5I94yad
z0O+Sfh8hXkk4/zu+jGJZAqKKsa7TZn61H6oq0ePvonJZryiyPqAWwoFDYlm
jozr9pjfFzyP51mkuRTjWsmfQ+VoAb9zvSbod+f39VtfwO9z1bE8xgXdV4um
0DJlca6MK+Xmbb18kYKQXnM5xjXHY1N3p1KQ06c3YIwuT3Co/oa26XUrZrxI
t6A4IQ3nEy33YPw/mgS/+A==
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwVl3k8VV8bxZVIhgZjkXuOSNGgQRTKoomKlESjjClSJJkyRpKSEjKUDCnD
PedOKFKiSb8iKYoolBKJUpHq3a9/7uf7Odu5+1lr7efZV8P54Ga3sWJiYmfG
iIn9/3PG7dbSYW8OxP7/lxqH4cIXrlE+HOwwX3J2hlQ8ch/l+Mv4caDcu/CY
3vXTWADr/kR/Dmqu11d6HkjAM+fmeuVADvbYzXb8cf0sYm6YqacFc3Dq0PKk
puJEpEjHvFQL5WDc50x7UdU5/HXJ/JsezkG06w32add5FGmFpKhGcaCa72i3
XvkCRBIKOSnRHHx8VvYIdsnYoblRUyGWg9jJBmNLs1IgJamqejqOgwJb/eCi
n6lQK9x2UuI0B+mVG2qmbUtD4emvviEJHNQXO8d8r07HDOZW80AiBxauiyYu
MszEg8sZFW5JHLQbK3o+4l3C7BNudHMyB2Fznidvn5YF77l9EpYXOViffXNf
UGsWzv8dd7AsnQO5wuAf969cQcz04F3alzjgtkUcv++RjXm7VJ+fy+LAdtuI
gfjCHOy0L3j2J5uDwCaJ1TIjOcjZ1799bx4HTO8sU5/qXCjfLThUl8/Bm3HT
l/4Xn4evbmmKBgVET9S1l9pdhdayQIv0Ig42nk9NalTPR5vEP7l/XA4u+ad6
PejKx9uot+5OPA5kSmMNjAqu4aVj3Za7Ag42rdfzazlwHfHmQa80Sji4+VJk
vVuvAArN8T/CyjioLq+OCfpSgKcvmeLWmxy8WznRubegEF6SJ8WW3uJg58fR
BD/XItStKf+aeJuDW/ykSc2qxWhJ/hDWU8WBDY4qvn1SDH21a4xZDQd3Ina3
bTvGxXuttIiU+xzsD5+XpazDYNhwy8/PD4m/Zy1tP9cz+DvFU970MQdNM8dY
OBixOMQeajz7hIPu/RbLNOJYqNt/X/GujgP65dpFd5pY7E+OtF3QwIFXsucx
bU0ezm7KUwht5OD32KjONV48VNV0hte+5ODwmMkXlQQ8mJy6m6H0igOV2K7Z
sT952JpX7eHYwkFw3KfdF5bx4R7q/iH/DQe69HL9JYF8FAzOUulv5+CY07HS
PSV8qNpFjup3EP/XufyeMsCH1pG+lMAuDnqXLhxaqSOAS25bT8UHDv7Gt3kO
7hZgScXDH38/cnDNMCZQ9ZwADprTb5l+5uCDxg/FG3cFcHy+xjSsj4Mki/fe
/30VYO5uYeitfpI3mdMjm6cLYfXtScjIAAfWSmPfr18txGa3ESOD7xw8zzSv
KPEUYqLepZuHfpC8DTkePp8gRH2A2p/rvzgQF3to28EKcVK9QbxjhPghfqUr
p06I9wxVP/UP8b+pebj5sxBbwhxdrP+RvMgPHYyUEGFCZk9l5BgK+W+jqCvT
Reh5q9IlEqdwUWeg3WChCAe/GDd2S1DwsLsbu2qlCP7Lrp+dKkUhqudj5+PN
IkyWYVUtpCm4ZVtJP3EUYXHMpcP+shQ+9Mtfs9wvglfRnYyciRTmnk4WmfuK
EOa8J6VuMoWZdiMqN46K8NvvnuuIPIV1Y5QDioNEuJOxRFJLicKkdQI3OliE
Y1HfQzaokPXWJxbLB4qg9nBl7eFpFDYuiW2P9BNhtrhL/0U1CpOjXA19D4ig
9Tihr1KdwtaRVLbdRYRXZRL3OygKB4t8bWvtRTjn+TdQYgYFncsPw96sE2HL
aZ70LC0KJpW/S+RWED2atgSu1aaQUfE5dTupP1Nx+gP32RRWBBjVVmuJoKiz
bOi4LoUH/P6vFlPJ++Rbx2XPpfB3KET4SUYEhy+Lft6aT2Hs6du38v4JcWt0
35PmBRSCp4wpDfkmhEJeYezgIgorr/9Y790txKlAWldmCQXutNs6QS1CiBv3
82cYkv2VtP+9TPxrbTXRWraMwv1e8+D2aiH4sXPDrI0pVJTr2SwtE2JadnuN
83IKRubrFhQUCWFZe+THEVMKyYdP1ulfEeJep6xSrBmF37pLO5suCDGgVKVx
cSWFJNFHjfNxQhTVF6lfX038jTqy0j1MiLq6jxPK1hK9vL6LbfITooQT333P
koL54lJF231CMGpFpQ3ryfqx5kZeu4XwDt4Z3GZF4Znx6vkZtkIc2MAs/rSR
whUnreIOCyE2jAjfDW4i/ksGHDVdIcSMTSExv21JvYnWVvzFQtSGy2uKb6Xw
YvBxv5GOEDp0VNkEBwoLijQ1XnGE2LOgee2k7cSP0XO58YpCyNCqDQo7KZzU
2LHCTloIx6cbHVR2ExaWCxaJCWF/JrRl2h4K3TP6arV+CPBIp2CnmjOFEjO1
9XN6BQjqamxVc6XwRGzP6OoOAeaE/dup5k7B16Ay369ZgHQjnbZpHkTP09NV
Sp8KEPN6o5PKfgpsPJTk7gmQdO1gt4IXhZbKRwf8ywWwPhrlM8mbQsH3uX2D
PAH+5R4Xkz5EQT2P2RN5TYBkjucFcV+Sr/0uyVqXBQhxnrdw9DCp96LGrlcX
BHCPutP47QiF8b9ijmfFC0DNmRrRc5RCf0x/a2CUAFaZ2oZvAylUH/I1dAsi
+73Z+rMxmEK6VJubs48ApmN0ax4eo3D4o8DIx0MA2aTRjPIwCqHaM08mOgpQ
utQsqjiCgviViTOrtwpQvLPz6KUoCkGuQx0S1gIsV3kSfCaawjFt8dRtqwWY
N7c74dgJks/msaqVJgKsnzhN5HmSwh3rXaaL9QUYemfR63CKwvp/Su1lcwTI
CNthsPo00bPhQb21pgCr/PWTFiQQnpDd+12VrJcrkVRLpFC41E2mUF4A/XVV
Z8adp8DbtEfSR1oAj94l8/qSKHy7f6B0zVgBzP0HOxqTKYTd/PprzggfnLmN
bHkqBTuzhjx6kI9dKqUpV9IoJJSGXtTq4aNMyj81JoPCXu1OxrCDj8S0HsH+
SxQWle6/t+01H0aL+3qsskh/WjZaEtfAh+l4uxULskk+S3461dbykaX2izsl
l0Klkn7u1Go+ZC0Klw/mUTjxeHTHkXI+lJeZf36WT6E1bZLHWwEfbr4JZex1
CiLntPxtRXy027hePVNIQern0pG3uXzUyiaKPIspZEl/M/XP5GOwvOvDWoaC
0wyjbdOS+aiynWesySN+XujWrj3Dx9ZCQ8EfPulnGUZxsSf4SD5Wt7FJSPRx
e+m6JZwPY8/bU9gSCsMmd1LnkfnUMlo/fKKM6Fu6S0rRl4/Puf9JOd6kUPbV
N3m8Jx+3qgJNl1RQ+PWI1pZy5SP08qVL0pUUGk0605R28TErSGxW+20KgWxC
s95WPnzDXF7xq8j53WVbvXUjH/fq40qiqylwbvBM4yz4UIteetv+HoXSj5GL
as34+FAw7/vsBxSMTQfDlY35GLLU3Tr8kOTnXsjkg/p8WLr1vX9YS/rd/f77
z+fx0Teqn5vyH4VlHnvjVs3io35SZaLbUwpnLa3Mqmg+4jJXMYvqKZzRtW+w
VOVjwbWoP3+fUfC+GK3VpsDHVIMlx2qfk/NSMIMKleMjxVZe78ILCq6iO9d1
xvPxSPG5gmMTRXKxrOitGB9rU+bPnf2KQuyYwok5Izy0i7cEfH1N+s+6oBuH
vvOw5uzpkdJWCs6rrS9YfuHhv/ARXmgbhS85k0/N+8iDhO6Ly6veUujc1hs1
vYMHn8G6mgkdZD8nN+xTbuVh5pYMjaedJD9+LVpqL3lwbespSXxPQe9IRJZu
PQ+rDT2jt3RTWDXscn9VLQ8W6v+dVv5E4b/orvB9NTz0eZTXN/VQCLh9+WZq
JXk+8YN1ai8FsaNeuxvKeEjg/JJy+ELOc8V2e2Vyfyl4lPFP+SuF6B/8s67F
PJQ6hi5+MUDB7M/3oYp8cv/ZvCbv3DeyfkWTL5XNg41hpt3GIVLvu9XfTmXw
8OyB7mqZnxQy+51cxqbwoNl1we/+L9LfYsOZyEQe6RfHu8JHKFhO1K2Rjech
UCrjgtEo6T8u085kxfDQmxEe++0P4RnGI8sjePjR/OJW4T8KuW1FQ13BPDxe
SqXzxGgccKs4cMGf3K9mzh+OH0OjZkL3xo0+PMw18RjeO5bGud7mk/LkfrYw
Sz3DXJxG2XqvCe3uRH+5S++mj6PBb7xWIXTi4ULL0tofhK+M3E08v5MHsd8m
W+slaLyxVjsabM/DxOFf0dclaQS0Ld/htZmHb39vboscT6My8d1cdysebjfU
P9suReP3me7XHhY8SDWf+LJoAo33Wdu3+K3kIX7yPFZamoZ8lnds7AoeXk+X
U+kgPLEtzD1vGQ+DJn6aN2RonEqWb6vV5+GjDfdFgiypb3dD2y89HqJfSc53
l6OxMj3RQW8OD92/Hs41mUhDetjC2Fubh+mHTRumTKLxrFP5qEiDh7tcIaeb
cIik6eg4dR6uiHzlKyaT9z3QKd85lYe1S6qLz06hcfGxS26FAg+ZYf1fXeVp
zA7MvKY1iYfIU2hdqkD0Cy8oS5LmwWno70FZRRpxzhH3ZCV5uP/Pt6idsNVv
ozvxY8j+z3cl8pVo6E2RT1P8w8LLPJ2OVqYx3OG8KvcXi9SVbQ72KjRKygpY
4+8sEPDdSGcqjcyAE/Wv+1nM2a/1YITwoFHphYjPLK5uEP55PI3G1Q6VQb1u
Fgp/PrVlqNL4JLra9L6DhZ+4jOcBNRoJw2FLc9pYDJ/bmb18Oo35Z9okPV6z
iInTjJZTpzEnQW2J/ksWy4/kKrwhzB8sFo1vYCFxStO6iEOjba5ucMcTFoq8
Lv1gisa7BrOAmkcsvIPmPLSkadw2q75cfI/8PphtLDVVgwa78mJXZhWLTYVb
h94TFiuvXXbhFous7DsJghk0dqwPOnf+Bounu8qbwjWJnxIf3qWKSD2tsU+s
tGgYKu1Vy+OxeFa330d1Jo2TB30WlRWz2HIxu/oDYbOo86oN11nIWfnU8LVp
aPcceTCYR/ThqfiFzqKxdXrLXNVsFvwVLxssZ9Po0ry8wuISi36NvreKOsQv
29KvIWks0THjUjvh2N8LDcuSWUzgaMoW6NJYo2kgOXKOhYFilY7fHBpCM/HN
5glkf2qin8vn0oj49XVi4ikWOh+X+4+fR2PkiffCDydYZHdezKsnrNMrzjU7
ziJ0/viYi/NpxLRaB+aEs9DNqlZx1qNRu1YiVuYYef5AdofuAvI+0bengYHk
+z5TNoOEx1v/Mf9yhMVOaaOfNxbSmJau9srDl0Vla4pNxCIaLut3x3zyZrH1
+ZGdFotp/PrRY3rIk8XtqZPVJumTPHeOjozuZZGemB3/gvC6x11FCa7Ezzce
vPQlNH5ekVo/24nFyJZLJ50MaETv7qy9v4tFzcRQpVmGNPbfHTfDczsLlxZz
u17CsppT1ijZs/i5dpYlbymNHP2qufdsST2X3AaOLKPh+eLd4yAbFkldhtZG
RqR/NNtOM7Biodne5Pj3//xcRuanJYvISWHad41JHnunpNxawyJc5J4dbUKj
NC9CcHIliwN1D55bLCfMnNy6AyxiVVtuyqygsafU03/RchYOCq/snxJeahAy
YRL5ParyY7jgrCkN/1UzJAcMSB5uHxFuBo0H+5qcmxez+KZ73E/RjIb3oVnK
9xawsCvd+fkF4dylrHLpPBZ92QbTUsxpSJ7S2MHVZSH1xeKv/UoaSf0mrwtm
sXizvTZt6ioanLAXcUVaJD8HBr40E35WUeci0GCx1/v7SOpqUv8+jZ23OSx8
3SfcdlhDI3nHs/31akR/TXfjqWtpjLH/GfNhKgttQxxqIjy9qzx/jDKLfT/+
25VsQaN7tkONhgKLWcFm4+wsabytUmpcM5nF+5wGF4V1NBrSrZ8ekmNhqSgK
eUb4+hOvgsvS5P+XqG9MWE/D3bfH8fl4FrMNTFs2bCB5jNn0QUaCxQmZjRrS
VmQ/VcZLLMeyEPMJ13hAOLIzN1b5H4OXHyVbo6zJeRFlKOcOM/CqUNqEjTQu
a/SLG39nkDraHj5K+BB3HVq+MBiKSPUss6Ex9k9w+fFPDAz7fKb4bSLfF3HA
zbCLQUj+JV+9zTQ8LGfN/9bGIKPDJqGHcG/xU4myVwxCL97cm2dLo1n9amt0
IwOns3KjjltI/2iWzdlZx2CxXfAGVTtyHthQS5NaBq2mS7Y1El7/+PwdrXsM
4n29ZpzZSuOxm9iw0h0G0q83XVtrT/xITuqcVM5g7Hzlz2IONIzlTXzkSxhs
GvjUc4NwQP+fc+o8Bja+f/J9t5H+5jW6bGERA83H4TPmbCfvL/Gzt8pn8Pdd
zvZOwhrcylafbAaB+5Jt0neQecnbUH4pk0H92xPjbHeS/uZU2PU8lYF+Ur6/
9C4awd4R66YkMZicqZVfRXhkR0Lb1gQGdh3zkgN20xDZMOdy4xhUTB1cqedI
4/6bRoeRaAbK1ZfZ94RDamU1HSIYnFrk1pq+h4bBu5DOWyEMumMOPdjkRPy5
6RI/J4Dowe33Ge9Mw/TU1MlXDjNY6zG5tYJw7oC0E+cggyCISfq60LCtueuT
s59BcFJvv7YrmS9t7foL3BlYJY5NayE8YWhaZo0TAz39g+POupF5swuZe3Yx
6FjnqLfKnfjdvWz2uG0Mvhz+p/qL8Le8cQuZLQzaOSEPCvfSOHFfVOBkw+Bk
/Jgljh40Rh0DY9U2MNhQV+4iv4+G5qpzt1rXMtj8+KXtPcJWTduW561kUGcQ
KhGwn0Zni+lvP1MGq9LeBOh60nhoVduz3pjBLRua20q4deGFfzqGRM9Yn7wz
XsSfA5vnTVrMQM1sdDcOkHykPNr7ez4DSZvPrwcItz5vyv6iS+rfuW9ajjfJ
Z+7Bho/aRL93WapbDtKQqErt+TSDQbleRdu4QzT2fT3YPsBhkLXvvZuIcHKL
dp6YGnl+Yg3r5kNj4SfxBcoqDDq3TqhU8qWxQN7Zb5EC0SfAPuEe4bBK1t1u
EoMC1+1aRw7T+Jd6+HeoDINkd+NjWn40VLzMZzHjGVzO0kx7Trhl5GHbe3EG
adImwZFHyH5e31fWFGPg7VtML/SnkWY5qcZ9lAubkKy4dsImCidb2F9cDGcv
v3H6KHm+Z/7mMUNcvDMsLjIOIPProqy6wwAX/i4qbp8I/8aqhaI+Lmxn5nYk
B9LIeyx1fGoPFwFbgmeuCqKhfjxLOvIDF2GXa+YNEJbb43pzoIOLpvj835nB
NJlbt2P3tnMxFLQ+YV0ImXfDCzw7W7g4ndX08Qfh9sa19m7NXDyUPSyVc4z4
9+SqeV8jF375q75Yh9JQWz5WM/gZF2YLD6eNEJ63h/4y8SkXX1bOlLsaRt63
+NXFa7VchG+OWLMpnMYrW+XpFg+4OHq9eM0o4U2tDfv7qrn4510vlx9B6rNU
C0m9w4V2zqSMTZHk/rhFbo3lLS6k6cSB34Q/NTdV/rvBxeS0oIlXo2gcZW62
lpdwoZQ1MLjxOI26JMnkYwIuLqerXR4mHCGp/m4Vy4XsM3WFnGgyP7UPCacU
c1HrqL5xQww5b+mRkl3XiT7mprZDhEP9up+UX+XCfOM16tIJks8J5mMu5nBR
Y3hMuCaWRvrb1SnBWVxEn+yY0k/4YHxJjEsmF2LcUcOUk2T9ub33bdK4aOvp
1zaNo2FvbWK1MoUL2vlt2wfCJg2z5I2TuNgsP+h45hSZx0/myi5N5KLspUXB
knhSv8+uRUZnuAjeK1XZSvi6TUuw2SkumrdtSY86TQOWTe1WsVxsoG3Mdc+Q
/uOaaOcYzcU9aUpQTzjqtkPjkUji15quPv8EMh+9T9kmhnGR1353cPpZGlJO
ybW8EKJP5Zuqu4Sd1w0taArkYlqh/Q6PRBqbjy8KHXOUi6p1trflztFo+vHh
+gI/Lio1vvXxCTN/bhS6+nDx6ty2bvvzJB/WTsGZ3lzkt18rHCU8/l3W5BZP
Us9sceMrSeS+1rDORX0fF7cOxF1YfYFGtbWpp6s7F/zTe8o/Ed4V4EWzLlxM
XJtfdDqZxlerp0FiTlz8D3kRSic=
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJwtWHk8Vd8X1UASKkNE3r1Fk2gklcpKGpSiKCqlhDRH8c2sRCOiopCkpCjv
3KdBKc3x861I8xcpGpVEg0j8zrvH+8dnu9M+e6+19jqnv/vG+Z6dFRQUYjop
KMj/Drhecal5gwQnqwrU+yXuQXP2U48IHwn6E1/vuOy9OPm/E/49tkgwSvls
v8WV+zASc+vj/CUYLP+HVgweub8o7RMgwankOzxxjkXU5SkGSUESWFbZRye6
7EeiStQz/VAJBiptOzRVMw5tK4+2JYdL8C3z3uxLL+Jw1ig4US9CgkojpW3a
WfG4oKh5IjGSXbfYewBLDO0NNXdJIH/dBr+DUFbS04veI4H18nelA9Ydgn72
ot2K0RKYyo7WZ65PQHb0N9/gWAk2e8fVBQcmYoD02ouGOAksdk9Z7hl/GIXH
Uq56HpTgfJF/wbHzRzBkpyf/IqHj+uskbDCpU7Q9IsGPv0+2rtZKwYG2rhvz
kiUoaXKsGehwFFH9gpYOSpWgsWyOe6/4VJgu1XscnyZB25Otnwa9PAZX56xH
f9MlKDimN6IyPg0nVtcvXpXBrp+yPI4+t7I2lWRKYFjeHLrm/XF880zSGpsl
wVP6eEN8OozGB8xMPivB8xObJhXjBF4ptqu150jgVJOR3PXbCbyOeO21QpDA
Zfz5oovHTuKZW4nTrVwJXj5scjxhn4F91oEv+1+UYJIKfUN7BjRf7PsVlifB
7Z9DXGNzTuHhM+m5iisSnKbl3e2aiXVKuxXGXWPrceh+GiXT87/FXZfAZu+6
D/nnT6M84X1Y7U2Gh3nLzsBM/7R0yh0JIm4UH1dUysI7o6Rtifck+PDnTEN8
dhaaLZyaPhdJsLPPy4f/zM1GW++1Glb/dtT3azY2kU1P9j+QgHbHynzvWRg4
/5j8poThZ5PROaxJ2O44skyCue69XAIun8P+eRmaoU8k8Dug23XhrBzcvFMT
XvyM4eXpsxxM3HsrRfsl63frMikWZtz2ditn779QLYVXqNf7zEoJCulyO40i
yGocrFNfJQFF4951Gwj0FmxvNatm7084Q2DkV5cY8Jbl71xNsPLkq9qr79n9
Z3UFmF8t+tX2UYLfjrQhdgJcDPtds/rM8u0bKsDt8XSrsDoJdGhDNM8JMFl2
PvRavQSusbd+7nopYM73B8EtDRLoj6g0iuoiw3zPlgljf0iQM+NNoNYwGdRH
pF7Z9IvVu7eDDKVb9f+e+c36u9JXht0GZV2qWySgX7+DeBneSblS3b/sfaek
MjiFua2c287ujyiWofvR2oLtnTjI6fygWoba1zpvL3Th8GgABeBvGTZ+tXzy
QZGDHC5He+TCf/yZ/brKHCi7ysf3y0WvHkRvpgoHB0q/+ca5GBOVutlflRPx
WWuei3Vnb6ScUOcgp1v75FyEuS9PLOnFru+Zlos/W+56tGhwkNM1yDYXN1LM
lYy0ORGP9bNyERLxI9hOh32/kl7XL5pavLkvh3+PT7voOD0XQ7qsrD+iz6H1
TEPZHOTC6N/YugID9r3rFrl4mad4r5rj8IvC+5ZJLuLXtgUoDmDf+8Pnwila
UBlsxPKZpZ2L7s+dAmYM4uBBBepB91wc1epX6DWEE/EZ2SaD1tDxP3cYc0ig
8Fj1XYZ4jYqu6Sac2A+fjzK4fB3ddG04hzVXtxw4XCnDtdbVD16M5EQ+15bJ
oJmRvatxNCfqhWeRDHsDeOMe5pyon3oFMnSxrJcNsOBE/PzJlaGiYqLR+PEc
Ln7/+0Q3SwbZLpOwuZYcw2eaDH3Tq+64T2L9aE6QwbbY75efFbs/L1qGuzWq
2rumcJDL36kdMjRo3+x/ZCqHyM/z8gqCZDhbetbgzDQOYTRhzc0ylJR87J43
g8NQWq5Da2S4KNn34a4tB6ruHkvcZZDqn71UNruj3otl2BDkGvRqDifql9d8
GdbbScd8sueY3s6Swa7l/JvGeRyGUcKoT5VhwLzgqD+OHHzkAmQpQ3G4hmGX
hRyCtHJmrDCTYSgfkdfdhcOD+/fv25nKsHzkixk9F3P4H5XjxYNk6MHrlWm6
ckg6Qn+cDG4P7V10lnHivGnVlcE5JrS873K2vlANGf43NMtV3531f4CqDIFv
n1Toe3Cwow19rSjDsLB2V30vtr78dgHJE4a+6uvNifpxoVlA1H/2K3TWsP4V
fxdw8PTGD5rrOHF+NdUJmPtPhE/PDRwovZSmfBTQfnKHgsomjs2PagEJkrWH
uvh29LdSQLC76ajWzSyf9OcCvCJuPPnux0E+Pm3KBHDDdLfV/sOhJXTN1R/3
qR4cHWTxOoBj87BQwLArFU1PgjrweEuAVSfjO0UhHKzMl11ZfU2A6sHWlPww
DrNUOw9blSfg0rgpEee2caDqkbMzV8A515p/UiM4UDkafz5HwCSdB0ExkRzy
JJGfG84IMDX5EBuyk9VzYoaA2ep9L6zd3fG9NAE/38z84rKXA6W7Rk2ygJSw
JWOnRbP7XRMF2PibHRwZy/hTF0/vV7uopB/HYaNGxI09MQLMZt2M6XqAA233
mwl7BHh/MTetO8j62xIpwNq/sfpJAgcv+ru3TYDE5AnJP8zyzwwRsFTnUuLx
JA6L6QdiAwTkKfsfjkrhmJ75CYhLqs1dk8r4H+YjYMKYuto5aSyf6PW0Xt0W
TB6ZzonzK3m1gDT93zm9T3Ki/p72pPWbmT2pMYNDZwrYyysE9Blv/flRJsNr
zVIBnr6xeeQMB44CTHexgCoHj1Mx2ax/HgsFFKvGXVh7jvHt3nwBjflv38+Q
MnxZ2gu46WhqaSiw9V6ZLWBhtkXuXxmHwxs0IjCT4iWkxP75eQ5dF6qbltkI
sFx7vTe5yNa/aoqA8tbS5p15HPrSG9QmC/h88r6y2xUOY+gvd4KAazcDrMyv
MjyusBAQeiw1VaWAA32dzMBMwOBAhcFV1znmP0YK8A1b+VJ2k+E7y1TA3dI9
FyNvc+J89DMWoB857rrzXaY3doMFvM8y/TGkkOn9aCPaX1vjhc1FjE98fwG2
nnXvioo79EQioK7V7GTifQ7LrtiqdtYXUNqzIM7zISf6mUc6AvYctZGOLmX9
PqUlYOTpiL9tjzjQ9vzZ3VuA7ljzkOLHnDift6kLSHTUGHHoKcf8SQ8B/9N6
rOn2vENvlQXMSBxuMuQlB2pdFW4o0v50Kd/67T+Gv9rOAqbvj265VMHwwSkI
uB/eIoS+Ynqx7C+BovHTYzavmf4mtxD4NJbc6V7N1v+liWCgU0r/hzUcDGg7
rX4SeLyqvRj3rkOPGgmmWayNdPrAgcJpSGs9wUyD+9F9PrHri+oI6rzzS5/X
Mvzk1dLr6u/nHv7C+G72kSBW8lvZ5Surr+wd9SP/S2nv843N5zk1BJfcQsc8
beAgp+/H1wT750/PiP/O9CHxFYGDxdEF9j8ZP+wrCB4VGk/r0cT40eU/AsO3
h7bc+834evU5oXqx4214C8N7wFOCAOWUQxNaO9b3mOBLSviu738Z/ro9Ivj1
4um17HZO9HNlDwn+HcclCwq86DfS7hMsHDi8eV8nXvR/nsUEJhO9m1d15kHb
o2tURDAqzSDFugsvzo+6uwT31VLf9OvKM77cJjhUPq74F43l/T1zk0Dhz8SF
pYq8uP7o6wTqzb8jzyjxzO9cI/jedmXR9m7s/Tb5BNfLSh8tVubZ/uAygfKL
nV9Hd+dFvI26RLCvlylRUeGZv7xA8F8/NZ1qGqdROtjkEjRO3GJ4uQd73lkg
+OiQ8zRWlRf10UdKEPlSabiXGi/2J/4cwYffRSYT1XnRD17KJui32aqsd09e
1Pdq6hdv5ZyXfKCx3C90O01w/IKvxtVevLjfMTxFMMP89rn9vXnRDzqeJDga
Vv/NQ4PlsyOdYPteVIzTZM8XphGs+Nm2UVWLZ/MuleBeu+/ZKhrL8Wp5lOZ/
4G2cTJuHfPsQnEywzjqZj+zTUd8jBIenvnJx1uFFP9zvMAG2/pgwVJcX/a1/
AsGwNUaFLTSW4/3+QYJTduf//tuXF/3NqAMEmn8/vUrR40X/dSCOYEuXHmvX
6/Og42bnr1iC5njX9En9eFFflsYQRO0xjFQzYP1+sI9gkt9JzUoay/XAei/l
217DuWclPB7T7VLebgIt4a1ZEMfqMWYXwYbAYUW2PC/qoSyKYNMQS2Xd/ryo
L2MiCeZlL/z5jsY3i2lCEQRp6TdicwfwbL5sJ3i4NP95uCGPLGpXboXT9VTs
ejDHiOXvGEb5UbLGR28gz+ZZCIHTkfTb72ksnw9BwQRqc3zuyAaxfDSDaH0E
nS2hg3nRz+QEEMgmPyuzHcKL83HaVoL6/nWvtYbyzF/4035MSEmtorF8/gf6
EXSXGKpmGfOinzXYQjBW6+bQLcN4cV4X+tL89C80TTJh9V/nQzD04yT/bqbs
eb1NBOk1RzJKaXyXJ75FdH8SOrxb1JHhrP9B6wmM027ruI9g+By9jl4vVF1i
PJIX9fPNGvq9z5xDI41DqGFIWk3gqjKh6fIoxjdbb4KCikSHbaNZfzqvonx+
7Oc6cwzj9w1Pyi/dXvo9zdjzgR4EyXHp+56asf6PXUn7WektJJvzkD/+eQVB
i1Pq7hVjeXG+pS0nuKMeqj3YgtV3iRvdP5VbL/hCY7n+aS0jaJox2FYYx/j6
yJWuJ9WzwW88w0/0EoKDby3mTpjAi/NvzmKqZ1XP3dpoLJ8fSosoX3qGDbpl
yfh125kg/IJXeuRE1v/tCwnWlxQ+njmJZ35/AcEuvfIrPSaz7/V2InDRfOn8
cDLLr3w+gc6v5qz9Vrx4npA+j+Lhut/5+eBB1UR5nQPVH+MdW7Sm8KJ+jrcn
WHDJ9fNTGsvlV20u1fv0sX0TrRkfKu2oHn2d2eY8lRf332Q2QeXi4iRdm478
ZlH8rG/4+oLGcrvibEuwasOPlsPTWL+HzCTw9ep+3WU6j69Uvtqm0/obelnq
zmD4fDyNYJAFNj2ncSqle7YNwepf95cmzORFP75zKsHgoCldF9iy93lbE7w7
UbZScxbTwwVTCGy1LgQ/orHc70wFfd7cwD52NsPPFCuCIWOtyu3sWP8nTCbY
2cO+v8qcDj2dRPXaJ7x/IY3l/t1kIsGzj0oVEXOZfptaUj26qj0P9ry4Hx00
gepRa1V4qz3jCz+e4Oe2w2vzHHik3OGJxjgCizqf3lvmMX1tGksQnJnqO2I+
4/93c4KUaofYWhrT8V78xozi/ciVVRmOvLifeDOG6uV+tVY3J7aemtEEYxYE
2ektYPX/Rvf7FVbmi54sYPVuGknng++6ATELWT8601jlv3mnZzjz4nlKnxEE
nYf3+azgwvg/fDjVn4ZPtZdd2PscTOn89f2b6buI6ZWvCcXnv+EDhi3mxf3Y
4WEEbW9OLK6hsdwv3jGm83Z1gkPyEh7r5QN1KEHp651dHV079IHGZgcz/VWW
8uJ5k+0Qgl5HjTJvLmX93jyY4q3aNGHrMpZ/4iCCq7qNU0e4Mb0WBhL0uX2M
vKOx/Pyk1Ihg72jPiuTlvOiXfhvS+RW1qXDeio55QOOKnHqfbu4M79YD6Hzy
7lVx1Z3hZ1V/gkAoKPmuZM8f5gmCDn6pH+TB5tFVjmBOXOekco+O+ksIRpht
7Lrfs6OfNK6e5TbCxovpm4kBwdfN7Xq/vRgeZ/YjqJIEF2avYnwJ0SfYva+T
uZs3w3uBHoFdSf5KjdUd/exLMP/fZ453VzP8adO4ZGyo4tY1jM/zdAlskiq3
Gq/l2XmRDsE1Bz6ngsby87KTfWg9d/lkxKzr0CttAv0prcuwnvmXgTRWcvj8
X8P6jvy06PpdV/c9sYFH+rSL30M0af3epOk5bWR6UqxBkD/i6quum3h2vtCb
zqPV7zwvbOrgB43zd04nnj6svtt7EdQs7F6g7cv6fa0nrc9W59i7NJbvP3+q
U//nsdjIb3NHP2ic4GUZYrSF6VuEGsGxNMOkx1tYvndVCZJUJgZt9+vAK403
+J7jR/mz5917UHwGp+2porH8uCxHhc7r9EmXo//pyLc7wRuLc2ctt3bMMxr7
r9Tx/LSV4T1GmcBx4MnqhACG37fdCLY6BQ20CWT5mtM47Ngd04ZApo/7lAie
78v8czSIF88H3itSfgfOjp0VzPAykcbRac8//gpm/iOhK0GR6mblEyHMD/zu
Qv1Fps3XuaHs+3NpPGXU5qSWUOaHMjtT/EwdqHYqjGf+lMbh87dNnxfO8LGy
E8E/Z85Nbw1n68tXIGjfUKqWuY35swE0HnSiZ8q87TzM5QOvXQoVPq7hD43p
8t+V/pWiV1Kg+qkIXtw/HW2VQjutodF+By+ej/j9keJYsv6xZhoH0AXPbJFC
9ZGB5olIXtxvqDRLUexmYG8X1eEHmqQIs7Zy/BnF5nnSLyms7U9zqTt5cf/p
/VOKOxYh56fv4sX9udkPKSJ3V/eu38X48qVRCoWcVovE3R3zpEGKV7X1g6z2
MPxmf5OCd3/96v0epo8H6qWYr9HoFrOX+UmPr1LkPZuZZb6PF88LbOukCFql
XFCxj/nFiV+keLHIKTkimvVT+7MUdryDtXEMy+fHJynuqnC5pTEMPw8/SlE0
/W2dfyzzD7s/SJFRdaux336enYe8p/UpqLx5az/jW9d3UvTNdl7iHcfyeVsj
xc1ZjtfV4pk/uFEtRUH/73WyeIbfi2+keBm/6IPzAZ6dp7yWIrPqdHbrAfb9
mCq6niFdLI8fZH4v8JUU19bvOTTtEPv+tkopZNHL8z8dYvwKqZBCfUbm2egE
xke/cin+DzkMMI8=
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 615.06}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {588, 6000}}, {{7.608374474380783, 
             8.294049640102028}, {588, 6000}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 615.06}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"a) BAU\"", {FontFamily -> "Helvetica", FontSize -> 16}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.1, 0.89}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox["\"Gt C\"", TraditionalForm], None}, {None, None}}, 
          FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{851, 
               FormBox["851", TraditionalForm]}, {1500, 
               FormBox["1500", TraditionalForm]}, {2500, 
               FormBox["2500", TraditionalForm]}, {3500, 
               FormBox["3500", TraditionalForm]}, {5000, 
               FormBox["5000", TraditionalForm]}}, {{851, 
               FormBox["851", TraditionalForm]}, {1500, 
               FormBox["1500", TraditionalForm]}, {2500, 
               FormBox["2500", TraditionalForm]}, {3500, 
               FormBox["3500", TraditionalForm]}, {5000, 
               FormBox["5000", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {588, 6000}}, {{7.608374474380783, 
             8.294049640102028}, {588, 6000}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], 
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwdl3lcTd0XxqMBFZpocs/Z55ZKKHOl6SneBkIaqYhSSqaSaNCoCU3eiEpS
EsmQhCgJiWhSIaVISCRFVFK//f76p8/3nnv2XXvttZ71bM5ll5XbeAEBgfhx
AgL//eeXtd4c2slg4f//vhgOXWzaEuHNQJX3em+v8XfDs0+y/cR8Gby15Bri
xX4YzsPq3iQ/Blf2dVZ39A4Y1ru8qpvuz0Aj8HtTyddBw6hiI15qIAODgd5k
mbE/himiUS8UgxmclDp5vVtpzHDU9dRoWiiDsIVRPDJnHPKVg1IUIhjY+G1M
OfJsPIqEpbNTIhkcPHBw5X1vITgqrVGSjmFgahLIs1YQwUQRBYW4QwyCsmOE
3j6cAMWL62OF4yir35jE2z0JF+O++wQlMLi5ysmuUUEM/Culr/qSGHh+EVjR
9UAclafTS9ySGfgL9V+w2TYFatFu5NVxBhOXdB9MEZHAzjk9wuYnabz2CWYN
TRL4d1Ro1600Br2rKu4HnJZE1IzADSoZDPbey5t1xlUKczcoNBzNZKASmDlm
z5eGk31e/d8sBvu2KYxdaZFGtmevw9Ycmi+lwvvFCTKYfj9vd20ugyrVMO0o
g2n47pYqsySPvr8r+qtK1zQo6/ibpeUzmDaBW3T5yHS0CY9NHrvMYJ3SWmPN
ObJ4G/HWfXMBg+6UUfW7j2TxwrnW5n4hg23uf5t3OcnhiHFAM3eDgXnTmXEO
PXKQfnXkV8gtBs8CWgX/9ZdHzYsrl1pvM/i53PDV/HEK2C4SK6BdymCD47jv
qw4qoNbkzvekMgb706rlx8YrouX4x5DucgaX3ji4bzigiEWK568YPWTgcX3V
5LAfivignBqW8oiBi9slm3C3GRjSsvn95TGDzqO6/v4NMzAq6SVl+JTmt+jq
iWB9HnZf3d2YWM2gUEvh9IVsHnj2Pw3e1TJw77+xSEqE7uN4uPW85wxy+oIu
125hkLg2Rzq4kcHXjKGxQRpX+cP3oVUvGPR12l45K8tC7/D99GnNDExyqqu6
vFjY5TzwcG5hcEgxuv11CQv3YPePuW8YfGv6NmgqTJDXryrb286gZpO6brw6
gYJt+MiiDprv3dIqK1YTKO/tSfHvZLCxzsYxcjeB69m27pKPDGrnG8wxTyJY
XPL412gXA++MlqyMq4Sey4xSwy8MjkWr74yvIXBuMDEM6WGwzPHcN/KFYM7G
68GlvQxehidobBThsOpHddBwH13/gOrHVYSDldvw0iU/GRh9PuT/W5vDFM2M
27t/MbBMTRrcbMmhbr/i3wuDtB4byplkdw6xvOeCHcMMtnYdtUoO5PDhClsn
95dBy+sv5zwSONiEOLuuHmMQ4ObyanoWh0mnuu+Gj2PRcnXeyrOFHLrfynYW
CbLYs9V/xvSHHHZ90238JMziNxzEvRs4+OlcSJSbyELlQldi8TsOEmJXFcxE
WUhMV7nx4xuHhVEZe/zEWaxa7gmlPxy2599Lz57CotOay1gpwkeIy6aUWgkW
fbNKu3ZJ8PHHt2LLsBSLo9uqOo7K83EvfbGI8jQWjqs0hm5wfByI+BlkQc/x
qECBUZsaH4qPl1XtkWfRHLVyv6gmH2qCrr0nFVmoRSSP6S3iQ/lpQs9dHouJ
1vw2P20+mm8JP+pgWYyxL27f0uXjqNeovzCfxam2uU3EgA+buAJRVWUWWQ4D
Gi8N+Zj00sbfVIVys4vtMPg4JTOj0l2NhX5X8tAZIz5kZukMHFRn0a2f9eAt
5aNSrUJZc1j8CRU4VUF53bcFv0s1WATz5dOdKJeOeFa/mseCv7350hW6nnTO
xZj+BSzmHJaRrKS/d9ifqIstZqHrubXgAo1HULf3Gl+LxU/baV4b9PlobdVT
1tFhkVKx0+ATjf9azJyQ1bo0nm6bfSuX8iGf1f7QRZ/FoNXUZ3F0v+ZVe3/t
NWSRJ120t2AJHxXvxafFGLHot6lYVkzz0zetnDu5jMWyVpn83AV85Nfl8y78
w2LjnE8vg+fxUVvbNemWKV2/tOYyNPi4wRz5VGHOQvTBk/Zvs/m4oph/8/lK
FvEO/V2HZvGxM9ApsG0VC4dQYWa6Kh87LK4s/LyGxXBx86UkZT4shq+/619L
v6/pljtKz5O/NijqjzWLhpErfzewfFSFSikJ2rGYf2Xj4asz+JhFIm5NWseC
21w+7Teth03zXplOdWAhHOG/ZoEsH2JE4bm0E4sBl4rXLjJ8ONesWSe7kUUN
E7wyVpIP+/jgFvlNNJ/Fz9XOTeHjyaw8J0UXForeT74Vi/ER0NnYqriFhaZq
wtSKiXzMDhlzUnRnMSE87WelMB9pS2e1yXuwqE+8MnZ/PB9Rr9dslt3Gorqj
8PCNMQ7J53d9kt7OQtspoCdrhMPqfRHeU3eyOHJgq2/MEIexswcFRHfT+rAS
8dr6i8NxxuuYoA8L0hgrix8cglzmzh/Zw8KTNSiR+s7BPeJe44+9LPblfklp
/8qBnS0X1r2PxQMVjY/nPlM9OKWi9dafhVDPvXaPjxxm32793RjI4szH8tsz
33MwHKf+8PEB+jzxa96bdg7iySPpd0JYlLRVv0ts5XBT2yjiUhiLwgn98YbN
HC45vd+XEcEi84v4289NHPRlqwPjI1lcfMUbl/icw9w5nxIORLOI0EmYsaCW
w8op8kVesSxsb1g51j3lMPDO7Ou6wyzeLR3u3PaYQ3qI45J/4mj+TGrax1Vw
WO63KHleAgvx1+92Hyun3598Q0Qxica7Xrlk5l0Oi1aUxwv9y+Lpv96d125z
8Pi6eG5PMgt77Uwx/ZscjP36OxqPs/j1Md7qIdUjZk7j1TsnWJQJzWs2u8ph
g+zNlDOptN+Dk+9W5XO4NdHvRFQ63c/xAbLiAoek1O7CbRl0vx2lvMocDksX
9nSvyqT1H5lUb0T1znCCrcG8LBYnq2zX3c7gkKk4eFnyLK0PFe3qeWk0f2YX
9ftzWDjdub4iJ4XDdB3jL/W59Pc807tlkzm4+STcunqBxTVvhUcxiRzaLbec
i7/IwvhR8cDvIxyqxJOKvC7RehHYluQWy6H/TudH0yu0fmUOXq2P5FBuPVdX
qYCFdXGNp144B7uLWoV/r7GwyA5vyAmm9XKgds3L61T/AlYLTqH6retVJnn1
Bu3n8w5T9u7j0DJSNxR9i8XNIYtJLXs4fDn7bKLzbRb+khYTsZtDabm/4WI6
12LujmfPbucQfDojQ/QuC1P17E0TPDmoBgiotpexuPv5c7unGwefENfma+Us
YvvIlaebOVTUHboR+YDq9U7+2zkbOShGapfZV7CojHY8GOfA4WPe3J9qlfQ8
BWvze+zo+Zqr2w09ZmHQJrttlTUHc7eeD4+r6Hx45PUsfw2HnpFFZ1OesciI
PvVezILOq6l3k9xqWGxyY8u2mXE4dGr5lQV1LMZtEt75ZDmHeecj/o7Ws2jd
PmFM1YiD3JLFB6oaWNicigiN0ueQYi2leayJnpdWqMAHHQ5PZBqknV+ymHX3
0pFlSziYpmjMUWtmMfLdY0HWAno+gi37v79mcflmyaiAJgeTxLjhm60sNohs
GXWezeFZ6HBBcBsL18Kn+mWqHITVm04vf0v3ayTzhFHm4N1f+3BSB/UNmdL5
wXQez7RJ52resyh+Y9ffNoPDlrbuG0kfWPTUK+UaynP4R8sr0uYTix2lAU2Z
0ziY8Z7FTf/MwrlNNma8FM2Hx526l90sxEZ8n2yZQp9P+bj6xFcWvV1V2ZWi
HBKYwYnrvrHI/SPFzZ7AIe9J+tj077R+gyeuTBCk/ewcvLCpj85befXZP8cI
Eq1Mco7+oPWofqdq/QiBpdYp2zUDLO7MrFhwb5CgvlL9H7HfdP61yG1XHSBQ
6jzm+2iQ6vujNSEJfYTqxcHO0GEWYcuqfQd7CPwnph9bOsJCub7MxqWb4Gt6
aMyPv3T+6vJVqz8S/HrVVHpxjM6DxyU/tN8TPNVm0woECMLsVe7ntBPYzdQY
OjKOoCG84qR0K/U3eh5DW8cTeF6tDwt/RTA/k5duLEgQqWQT1t9I8GxyxrsZ
QgQrhWeddq0nONaiXfWL8v2tAh1N1QQCf/Ts6qgvazV2tjSvIpgyNBh5QYSg
2Cvze+kjgh+jt9eHTyAwihp4vPABQdnzunqHiQTafVvb88oIJr6K/rZgEsGX
/GYdpRKCIxJzr4qKEmToibSl3yJ4PWOybAflZ+ER9bJFBP16vkrFYgTbT9yX
Ty4g6LK83JQgTmB8WqJE8jKNu1lEw30yfZ6QUpqYR/Bp8PEcvSkE+gLOSpK5
BDP2GD6XnEpw8KtF/9Fsuo/L15lPlJ19VDSnZxKcKfKRKpEguBCf2JaaTmC6
+MGlREmCuY0SwtxJglMhvd+3SBHkMFNyzx8jCD+MVm1pgstG9Y/nHyXYPDC6
S1yGoLQwcmdJPMGjMZ/8dsoLFy9NNztM4/+3M+naNPr+nne2L6JpnMZpJHI6
gfcFq9NuBwlOLGtbZy9LcElnRdCvUALs/7l0lhytI7Nt32MOEMzeplw5TNnD
UndsRgDBOYvrf5/KE6gUzsm/5kcg/fdzW7oC/dzs2LD5HgJfQTGvHYoENz8X
9nTsIhg66pSlP4Ng7PeVmAPbCaIOKUVO5hE86ThZI+9J87T3rPQbynXnve7f
dCMQPqy0Op8h1OdP2mrvQiBT0LkokKXvHzQqG9xIsDNg9mNzQqBbXV2d5kiw
W013ohxHELDc+hjWEay9aDfwgbJYj4vcJxuCzKx7CYV8AhG1gPUJawlqNtx5
GapE8EZJ0FGH+vdzrTHVq5QJ9pjZsh9W0P6o3eatMJPgbmbR+aOmBDYnsx58
pDzB2H7IaDnB5FXeD6+pEDRddZT+AZqfAlnfYFWar2UNgzn6BNcMXjw3VyPo
CS+96LCUoJfreSszi2BWzCQNSS16HkvTM9opq60/HvZkIcEkRkk8j94rDhgv
PB8xj2CJTPks39l0n5qZ2YZzaXyKRb/15xD8GYvb+/e/dbr0/SbQz3+2ZrCl
NI6s9ydz6ijPPuSeHUz3FawxIeqkBt3HjW3jjWme1DMfyLpoEvxdqWQwgeY5
uFLcUZ3+jm/xsH0NPcclX1jLfso3sXptCq0LJ9Glv4vn07oy2DnbhdbZ3dYU
y7AFBO3eGZ80aJ3aNex1MqNxxy2bHv2X9kGZnITi1EUEBpPGidXQvkpLyjrS
RBnmwb6ZtC+F33gUpC0maPlz5qEv7fNhm4zYzUsIHJ/6jqygOvFwSvA0VZoX
y5wuHROqO64txrZfKQ9dV1k9THXst6mqeYE2gZ+6r9a1HhbqGW59e3Von147
8nsH1dXkTq3VS2meu4pkE+e+Y6HU/tJ59D+uOD++j+p8+NQQlfu6tH7E71ne
amQRWuSeFalHMO1WVWAEnTs7aisbzOi5OTorRVrRuRWj0HJbzIAgcLvUzpn3
WayTbravoRwVXKM1coeF7K+hvERDgtynQe9fFLGYXLb3uhWtg9zQ+T5FdK7/
UD/oK2NE12O+d6ZQX2B70+lLE+XBxot6wdl0LmQtkU8xpvl9YxrgcYreS76Z
jdovIwitS8mwS2HxxqEqVY7W2YUR5zwz6pN6d/R9e0WZX2ybYUB91tadP4dP
/EPw+CYbqE19mo/7pLJ1JgR9NnZGS6jPS1Ny15WjdRv+IaJPi/pEFS3sfknZ
WnDmEf3/fOavZxuOm9HzfHle0nQHC9VAIyFbc0Lvld7hNltZfMh+7ipN+2C0
uqHNbTMLc5mioHrKWqlyqoGO9P3FvDUJK6n+jAQ6JttSH7TEsMXCgsBsmkZQ
AfX50WJrONFVBCELrGOf03uCgHcoV0nZVlIo4je9Z7zoEmmNoH33TnG1JzFg
sb1k2lqsoXV5bqHeKm0WJ0baQ0con52d/+cAvRcNhJ3wumVJ+zPqbO41eq/S
6vGW9KV9PDh7zPALvZcF5Wb4aFoRLHJNfqjKsUjvsEzopvw5cMFiD3oPDD55
e2uONY1fKCMpn94jNydOHnG2+U+3kpp/TmWx0DbQQsGW4Pjke+JG9N7aarh4
fSPlhUV16klC1Mf7bOfH29F+D3Jd+GGUgejrtedN7Wkfq0xV0R9iMF5j+hcB
qjvxbZvHn/zBYG3f5+5iysvd3lUO0nu9pc/fXJ/1ND8Q83PqYqD0NJQ/24Fg
f6eN+MMOBqPvsh3eUw54N/uQ5hsG/p7HLf/Tta9iv75lvGRQ9zZayNqJ6vM5
yaVSzxksSs71E91A1zvctC32GQOJU8q55ZRD1iaFClUysO2Ye3w/1cm/e+MC
IsoZlMj1L9N0JtALFVsnUsJg+oPTVz9QTlY1kYu7weDwArfWtE0Esfu8b8sW
MPgUtbty7Waqoz9u65+7yKD1cq/3BKrDKbfMz2ifY2DqIdFaQvnQGYPOmkwG
ARAQ8XGlc939urBnGoPA5K+9KltoPZaUCU04zmBV0vjUFsoFAbvenk9koLlo
l1Ai1fmegmcpqw8z6FjhrLncncCr/vWswUgG3/aMKQxSnnc/5VhOKIN2Jqjy
4lba70IjzXaBDGKPjFvs7EGwoWZ4QMyPgUXtHVcpOkdmKYd3PdzNwOrpC+sK
yrd+B1wN82JQuyRYeP82qldGTyyM3RksT32zX92Lzl1FixKRzQxKLcnlVsom
LW/+1jjSfMZ458T/N6fUbSTS7BgoGo1sxA6CARLav20tAxHLL6/7KIs4aWQb
WND9O3nKZ+8keDtdlZtuSvP3LlPBhs69m0YaXn1GDO5olrQJ7ab6cEIwtE6P
QabnB7ciyuS2y8ZCLfo82uSqmzfBCz1B4dQFDN7bTbo7zYfgn4oTPgfn0vzs
t0+ooPxAoSHHR41B3hYH5b10zqrpbTy1RYnBcXfdA8q+dD75dtg7MAxOZyql
NlCO3i7UaC3PIFVULzB8L517xm4Sa2UY7PS5RObTuS2RmiVmNZXWZ1DmoXbK
2pftHtqJMhjK0i+O20f7xV1Ox1mYwTutS/m6+2m9uwV6eAkw8HOVdftM+QUr
sTbwDw/WM892HPcnkP/o2hf/i4f9NoEzl1OfcOqPgNm5Ph5CTj+c20c5/OxO
6/KvPLw8kvvnVCCB25L5Um8/8TAQsDJhRRDBarWq8PHveYjLfNn1i7Il/1a2
WhsPj8X3TMymPuSV+L49Vs08+OYu/7Y6mKCIDf0e0siD0fw9qcOUG7+byxfU
8vBt2czJ50JovYWbff1QxUOoVZjJWuproq16tjKPeNh34ZLJSOh/+8s95FDO
w9jOusm5YVQv1r+3Si3hQSV7avracAKfHWJlb27yIEqS+v5Q9k2KrlYu5NG8
BUw5F0HnnW9p0K7LPEzL7OtfQ32UT7zE09ILPJxOUzw9RHmHZseNqTk8iNfz
pLMjqd+KTTJwy+Shypm3xiKKILU0cNPdNJofY0PrAconPv1RUEzhwXjNeTaD
+jTNWV7bA4/y8FDrwHWTGOofi4h1exwPkbEdkr2UtVq9q01ieRC4PKKVEkv9
qMy15oKDPLR196oYHqJ6IbLQj4TyQFzetn2kPOXk8jNHA3mwkup3jqe+8Pnv
Resn7uPh1guzvMVHCFwzLdPDfHgI3DrxbitlGa8Oj9EdPLxab5MWEUfQmbyw
NNiTBwtiaaxOfab8k8Mp4914qBBlC+son1Of/yt2Ez0vk84evwS6/w0eL2Wc
eMhpv98/I5FgXYKvTrY9zc/dN+X3KS8PS1FYbM2D/EV7R48kOs8SJP2rVvNQ
vsK6bDL1tU13OGvXFTzc5X70XKOsWSicO/YPD81H13+y/5eg5NWQz2kjHnLb
z18coVxsoVNkrE/3oyaoeyaZ4N7Pv16ftXko3XHo2D/UNxdEhB77dxEP1+I2
3flM2T9sUNNoHg9TTHPz444TFFql6/TP5uF/hxBoyA==
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwdl3lcTd/3xqNBpaTpnjt1z6EkqRCJBj1lSDTSxCeSlBJRKpojFJpFUdKA
aKAIUcmUyFBShAYlIiqloqS++/e7/9zX+7XPXWfvtdZ+nnVnbN29zm2ykJBQ
3CQhof/7nlnZfGvEW4CF///5bjSS37gt0keAxgDGe8/Sn0bnn+YETPUTwFlr
KGZO/4DRfFj2JQYIYNLN7bC9O2T0amtTHStQgNkS7eLzMv4YHbltrHQmWIB9
JzWibsf+NUqRPPKGFyaAjo3Wf6+PjhuNu54dT4sQYPPWJWKXqoVQoBKSwo0U
oCPquugRi8m4ISqfk3JYgJdTZD6MNwjjP2UrZfloASJK52/LchKFuBiXG3tM
gFevj81W/CQGXv6Go6KxAjTpb7mhtF0c+bE/fUPiBVh/3vNCepcEZl6taOpP
FEAh2tQryXUqqs+ll7slC6AXE20geC8FtSg3pumUAMmGsctC10yDt0aPqNlp
AeLDgjQkSmRwYlxkd2maAH2xnj4K0dNxhB+8STVDAEPRmJWp82ShuYn7OilT
gLy5yy+X1snCySHv1b9sAbLT3qw76yWHHM++jdsvCMCa5h+xS0gerAd5e2pz
ST7LtyyxjpfHT7czCovzBHA6Ze21k60AlaWBq9MKBLhjunPStzQFtIpOSE9c
EeCq2p6mHxxFfIz86O5SLMDlS7duZSQp4o1zre2D6wL87O4xnCXGQoxJ0LsZ
NwWQ2sB9dtGPBfmmmOHwUgGu31XzNGtl4eWbq4XNdwjnJJZoL6ewU+yo0JIK
ATZW7ayKyqFQu6rsZ2KlABfDjbm7Jih8OPUlvPs+qXfSrMNiDmws4l26avxI
AA3J35x9eWx8VjlzIOWxAFvWsJn2ETZGdG1/f38iQFSioaj7Sg7GZb3kjJ4J
8KTJYJ1qLAd7ivY0JLwQIKXAJsf4FQdKDoPL2msF4HhZZL6R5WLHqYPr59cL
YPfJ4fdkKy4SbC7IhzUI4BIW5fgpmov7jz5F1LwRwHG39d4TlVwYHH+QrvhO
gJneXYOav7iwv/DQw/mDANEaYVHPlXlwD3P/ktsiQNX0kPooGx7yBmZTfW3k
fPNzg/aF8MC1Ozi2qEOA1B/JytfO86Di35MS2ClAVlKyt0UND67nW7vLvwjQ
7qjyd1MPDzrlT4bHvwpgYxkb9VuaD0dlfoXRdwH+SIZVamjw4fx6lVF4jwAj
/AZXmdV8aGwuCavoI/vtq1ta5MKHxa8XIaP9AgSqGfPoQD7WuY3qLR4UwHzZ
lsEdcXxMm5dxZ8+wAPcOvXqclcVH3X7ev8t/BHjI8i2ou8bHUaV64Y5RAQLm
3X8r/ICPz1fpOvY/AbxuJZ1ZVcuHbbizq+WEALlPu51z3vMhcbb77sFJNI4t
X5Kr3MlH90eq84YwjZWTNPXqvvOxu1e/oUuUxr//tHqK+vkIWHo5gS1O44DK
7HfPh/iYPrWIu1qSRoLewOicP3wsPJKxN0CKRk1NdNoLwjsL7qXnTKOxLsFj
dvlvPsK3bkmpnU4jrq97wcggH3/9qraNytEojJPbE/WTj3vpOmIqijT8334s
9+jmIzRyMMScopHTHaaY0cEH78nymr0cGvzJOomz3/GhJuzad5pHQ/26vKvI
Sz5UnsX33FWiMf+gWr32fT7elYo+7qBpKJZ3ahaR/CR5jQeKzqRxRV7Z8X02
yUdsseRsFRrtUwazFiaRfLy1DTRVpTFdMFda+QAfZxX41e5qNA4t2D7xZzcf
CnOWDh1SpzFa3m3wazOJJ9cskq1Bo3X/9RWwJPXu1f5doUXjnpWGyuRlfFSM
eb5omk/j0Zqpb6y1+JC/kB89oE3j9kkvQwOaj+OBjPpUHRpjHsPPXkznQ1i/
79pMXRoc5Z9tEsJ8NDcbqCxdSuOttOHnn0M8XIvWCLfUp1F6t8Mk4hsPnOy2
R1sNadT+Xah0vYUHsxr/YX8jGtwPmb8O1vNQ9UlKMdqYhqeLMvO1mod+xfsz
Ti+nUa5nb/i+goeCugKlyytpKDsc3mddwkNt7VeJUlMa5icdnhvn83BTENNV
ZUbjsamqwYVsHq7yCm7VryX1Ck7u8znDg3ewU3CrBQ1L+8T155J42GV+deE3
KxrTNulrzjrOg/loSfuADY38vMJLfyN5mGkTcuTvehprnYJdeKE81ETIKQvb
0xh8VrI9NICHOUxkqYQjjTJevTFvDw9b5jeZymykEd6u+6PXk4epDLde3onG
ty/f3gy48uD80sqR2kxj0e7O9hmbeXCIC/vA2UJDJjTUcZ8jD0/n5DnxttJg
/Pk/etfxENTZ0MzbRuNg+pErhyx4mBs+4cRzp6HU0D9VZzUPaXpzWjkeNDBT
pGrMhIcj761cqB3kPBUtX5sMeUi+tLtLfifpL4kVtY+X8GC5L9JHxpvGK/64
3KOFPEycPyQkuYfGQLJ3zEstHk4JvE4K+9KYcsfXvHMODyFbNReM7SX92HU8
RXgW0Z/Iew2//GkE3bdrV2d4oOeyD3TvoyE6YPbEkceDxVlV3Y+BNOKz6mRj
WGS/d5p/NwTTMOhKu/hQlgejSeqPnoTS0I1ZGz8uxYNU8lh6WTip94hdv744
D7eWGEcWHqAh+UhbKliYh0KnT/syIkm/yD9cXDbOhSH1IjjuMA21SYPNf0e4
0NToig+NonFCJCXUYIiLtdM4N7yO0tiUvvNSyE8uhtpX/3A8TuPk9k1jZd+5
SA//b/HKWBoz2a2zRr9wsSJgUfL8eBo3qoNaFneQ56VvivESaRR5Hvni08LF
ojX340RO0Ji68rt0fhMXHj90NHuSaXic4MzpeM2FScBAR8MpGpXJsopULRcC
jYaislQaZ1KP3DCr4WITdSsl6wyNL4XswcAqLkrFA1KPpNO41pRdmXuPi8Qz
3dd3ZNBY9S5t6usyLvQW9nRbZNJ4fTuq9u9NLoym2C2bn01jdvh+sZnXuMjk
/bkie57G1dD0KysLuZBanW84cIGG9nDTE/dLXLCWmnx/lUtjX8Vux8M5XLj5
xpcWXSb5qL2yNSuDizbrbRfj8mn8eHKp985pLmqkEm94FZL7smlIpD6Zi4Gy
zi+mV2lMHtx/9Us88af1mvrKxTR2XNQe+XOM+FG+7vV/12i0Tcj0ih/h4lRo
rdXbEhrSDVVnWAe40PeqlC26SWPh5UKpmSFcfBirG4kqJf2kk2szdx8X388/
F3e+QyMl+N8+bV8uKu4HGumU06hQt4rT3cVF2LmMDMm7pF/eBuboeXAxO0ho
dlsluQ81UY/1XbnwDXd9d+0+jUjFTDH9zVxU1R27efghjXNX//gu2cAF7/CS
Socq0s8bariLbLn4kqc5qFZNnmdWSWsR/x0yU7cfeULjk0nMBtU1XJi59Xx+
UkMjdtP5aUoruegZW3Q+5TmN+isB+nLgok7mbqLbSxre9o97RfW5OHZ2xVXt
OhrJvhq6f3S4mH8p8t/4KxrbhRSUv83ngr1YJ7TmNY1qj5v3muZykbJebt7J
RhofzrMF1apcPFV4Le/8lvjBV3GzkhlcmKZoaai9o3Ghkm+VySf1Ef6w/+d7
Ei/1quFxiotVCbGjt5rJ/s+1z/CX4+J5xGhxWCsNn/5T4puluRBVbzy34iPx
O+l94yvFufAZqH0k0UH8JfqHjKYwF7Ns02e8/ETq0a1iJj/OwbbW7puJn2kU
P55+888fDlbqeh227SL6/9N1a8svDlYrPY9lfaPxoPHkhvu9HPR4lNW97abR
+6v94vlvZH3aF8vUHzQiPFfbRXVyEC/4I+7YS/wiNW63ZxsHeU/TJ1g/aVS1
GAmtfc/BLeewhY39RP/XXZHVaOQgYd2qC0m/aKRm/iqUquPAWvesndUQjWfv
+lt/1HDwqlp95dTfNJ442V55XsWBcudJv8d/iN5VJMwquMchenGoM2KUxpri
LovjZRwEiqef1BujsUDEff6Omxz8SI+I/vWPxvfoz42rizkYbmqsyJ8g+jp9
munsAg6eLaHTioUYJG2yjxHN5cB+ltZIzCQGgQLRK5+yONAw8BjZPpnB/ZYF
JffTOViQqZRuIsyg53fVxXMpHDyXzmjnizCojgmNDU3i4OSHJTXDhD97f939
H5kHhf4a2NeJMjg33ctuaTQH00b+HL4sxmCBt9FKKpKDX+N3NhycQuIP+q8a
CuWgsr7u1UZxBrPch51f7+dAvCmqV1uCgcbtiNTivRzETNcskpRksHm4cDje
m4P3fGmqg/AU2f4Ib08OBgz8lG9PZRBZnmJosY2Dr9ZXGuOlGJQaPtPWcObg
8DsxLXdpBjeXJLpP3chB158nGgbTGOwNet7abcsBf69RvawMg0t3DbNqrDh4
cKVE0EX4ic+h63lrOMi64StXPp2B4m6ad5zMv6Y6DwsTZBm03dnV4gUOzob3
/dwmx+DHkqsT5vocHDyO5iXyDFjOolFaizlwGRrfLaXAQKtz7/7pCzh4POFb
0EZ4hld708Bcsv8TnYnXFBlEqLMLG1U52GmSxhxmMXBLeDxSOoOD1OWtjg4U
g7qO8IfpfA6wf1BvDpuct7l82gGKg7k7VKpHCfusam5zk+PgonnJv2ccBi9j
lfXXSnMg/+9bazqXwXP7SpUF4hz4CU/12sVjwJF6lEkJczCS5JRtyGeg7qV1
ffwfG0eOKR+WVmLgId3p/OUPG4b+5+VbCJv1Xs97+YsN0ePKlgUCst5rn3Kr
lw2F4s5FwTSDgvV75mR9Y8M7aO4TM4bB8VVx2453srFHTV+cPYNBkLm6eUAb
Gzb59kOfCZ+uvPzJ5T0bmdn34q/PZFC4fLOWZSMbLzeVvY1QZuC95Mg8/To2
LjZHv7BQYWAyx6Jb7Rkbr2p3+HBnkXW95y7UYzZsT2c//EK45oTkabH7bEhb
+Dy6pspA6um/pOEyNuYWU35hsxlcMTq2rusmG9eWvak3U2MQlRT5vqmYjb4Z
PR8V5jBQ+lWg+ayAjQG99Iw2wnejb1vezWVDQqAsladO8vvCHNey2ViscH+O
31wGVV9HRXLPkv3xbvw21GAQJ252Lj2VjTlfDQOmaDLIuFUoe+IEG9mfTl+o
Ixyunbj5WBwbYVpTjpzWYoA7FtEHj7KhnvmQ2jqPwabP8xKDD5H1aqn/1OeT
evcGBPuHk/d9p60HCJsL25ntCWLDSVLv9+0FDCpi+sa8/Nm425xifUCbgXiI
c6rHHjbsX/s7rV5IzpNYrOTuxUYlezpPZhED16wvcdvc2UhLzI5pJBzd/KvH
1YXUs8WjOE2HxJN5aLDNiY1R24yjLotJfbu0Q93I/8NH08IUZ+sysJ9HFW9f
x4brBxO7H4T9ZJe+32HBxm/T2WbFSxjw1juMeq8m58lw6/dfyqAvQVXebzkb
yZ26lnp6DLYH2qgGLWNDue2t8zjh36KBOgeWsnFQJlz1gT6Dn9cWmRxdxEbE
DffswwYMFG7KWSbNY2NXbfXr1YYk3sLUjenqbERzP9yZuozBwF5jz9xZbDjK
v3N4SXib/MHg6wwb1PBIXoIRA1q3Kukej/RDpX/JOjCYX76r6CWLjV/qh/wU
jBls3P6msUWWDbtbTt8bCYfJrxPplWKjJ3sxJ8WEwUjrXMOJKWyI964ed1hO
9ueQe0BWmI2WjTVn2CsY5OQKvVYZp9C3q7+3ifCt8p3aS0cobPceHE1dySDR
j5NlOUjB112i0nEV0aOHmoxbH4U0ZXd9tikDq5anRSHdFFR1sect4Ysbptie
/EzBc/j5plOrGXT9NyJ59SOF2cHGInZmDL7eLHjz9AOFzzn1rvJrGKjKqpV+
fkPBTOFGyCvCPVN2Fk2uJ7/XUbKKX0vuk83ee8wLCmqLjT6YmzOIb9P+ZvSE
QtRUqxmSFgz0x0/P3fKQgpBPxIxqwp/9k6IP3KXw5qtYc6Qlg7OXhSadv01h
Z7miDawYdN54eLK6hELqWFvEGOHEuBumP65SGDqQ6lVqTfSYn0/J5VPQ7fGR
9bMh98fBT2zpRQohuRm+89YxUPZoVnDJopDeYR3fTbi57PLyY+kUwk7f2X5h
PYOtKhknSlIouCRIjznbkng/A0Q/JlFYaBdszrVj4CLcc1oqjkKzkc6GBsLM
QImN3lEKMb47Z8bZM7CmwjU9D1GQfG9zydSBgVzhb83T4RQma7G+CzkyePTp
8fqaIAo2/d+6bxO+9Cfh3Jg/BWvff7m+GxhMMh+Wne9DQflZxMy5G4leBJzI
37aTwnh7zsZPhNc6T9p1ZjuFQM9T1mn/MWiwbLR/tZVC3ccokfVODF6IZHlK
bKawKDk3QHIT6e+agQsmGyhMP6uSe59wXLSdVKgtBbsOzVP7N5P72Wh9ttSK
Qjl7YPk8ZwbvJD03DK2hwHp4rugz4XRH2njhKgrHtd2a07Yw2P2639bXmELX
kT3VNi4MiqL+O3nNgOTjSp/PlK0MXh1tmDyoS8HUY3pzOeEysfqzixdSCIKQ
mK8rg6frH7sHaVEITv7Rp7qNwc5xZnPlHAoWiZPPfCDs88HykOgsCvMW7RZJ
cCN+pnjnnTlDoWON87wV7sRPDGs2n+RR6N07wf1DWNm+U76NRaFNEFKdv52B
0KcdI3PkKByNmaTj7MFA8LtCJkCagnltmaucJ3neWN/hoTiFdc/erK8inMle
VicrQqF2cZjo/h2kPsfoYJcJFlacadmv7kXmA/fFjtdGWaiwZq40E+42e7td
ZJiF6dE+F+J2En/Jt81z6GeBZzy2GbsYhHwdpwt+sCBm/f19P2FvS5Wnk76y
EOTkycnxJvVQlb3o+ImFrvZMru1uBlseyNwqamWhbF55q8ge4s8HPcYk3rOQ
6fnZ7QZh308uAdsayXrUqiI3HwYt0Zh1r46FT/YSdxV9GZxaYSqh9JyFjv0O
8VWE38y4NTO4moW8bRtV/PcyWO9d6/P+AQun3PVDVfwY7Hj4YljvLgvnMpXP
vCbMluktTr/NwhlJg+CD/gwepO/ImShhwdu3kFkQQPKhFPLMtYgF65DMY22E
XxVvUH+az8JItuHt2H1E3/qW3JuXy0K7bmGB/n4Sv9siNiWbhQBXyu0b4XvL
niUKZbCwftb5jlOBZL5S7Hix4zQL+22DZ60IIn6h8cD4TTIL4eceafYTjmk9
3WOSwMLbmNy/Z4MZXJ576lXRcRaGgtbGrwlhMLOio4eOYiE28+3XYcLrei+b
JBxk4YnUXvGcUAa19Qp1k8JY8Mtd0WsZRvrHYO0pv0AWjBfsPTNKWPbR3pNf
/VjoXT5L+mI4g96a6y827WEhYt2BVTYRDI4dnmfU4MXCvsuFq8YIa09IdK/d
zsKEd5107gHil4zby0dbWVDNkUm3OUjyc93lx7LNLEgyif1/CU/dRa+4s4H0
x5mgaRcjGYj1lDcutmNBMbN/wOoQg4Rqh6wSa5L/NN65EcKno6VyF5qzIPVK
ST7nMKn/7eEv101ZqHFWsjI/wsCzc76LznKSHxOj9UOEDdMbFEuXsWBidYnO
iCJ+EjYqYqDHwiPd0JJV0cQfdO9o3ddh4fDRDtk+wvXH1U+YLmBB6MqYbspR
BkvtXLRrNVho7e5TNTpG+ilmr5SjGgvM1o+tXwiPm/vP6FBmYZ3cgHPccTIv
NAb67KJZKH2zOk8nhuhz/ImxES4LwdvF7zYTXiHf8CCKxULTBtu0yFgGMmrm
j1hyLJgz1ibqcURPnk2dlCvNQpUkfb2O8OiimYFLJEi9VnX2BMST+/jmrMYz
ERYutD0Y4CcQPXaJ4TkLkfzcbbn/gPD3F6MrB/8qgpPv8J9HIpnv7Ifyj/1W
xP016yulkxjYHoyymPlLEXdn/Oq5RlhJpVy9rFcR75I2dDmcIPOD89nldt2K
yG27lD9GuCpvUerPz4ooVRPWz0omflV/TC22XREVu46dXHmS9Nu/3EH1FkVc
i91S9o1wYcGJsadNiphmmlsQe4qB0z1b7GhQxP8AbudmCA==
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd1nk8VF8bAHClJLK7MxO591ijUiqiVJ4kIVlCiFJkKSWkIkJkSfaE7Gkj
UipSkqiQfmVJKEoLkiUlLWR5n3nnn/l8P3fu3Pts5xxZx0PbnGfy8PDEzuDh
4X7LVXbeHfOgYeX/PwM6YwWv94Z60SA9lpk8IPpd59Kzi0cFfWjY1Nuk1xE0
oqMGJsMJR2nIkop8JTAwqtPk2N7I8qPhQpyCxUmrPzrh9zbIpPnT4PdbTYuv
akwnRSC8VTqQhvav91wOLJ3QmXLKnEoPpkHdSe1UQ+aUTqFCQIpUKA2FITrv
HSN4oGS2xMWUMBrG0+HzxkczwE7eVF4ikobUv7I2/GMzgZ9PSiomiobugwp7
pZfPAukC29OzY2gok29y6XKdDQUx370D4mhY99BdoySDD+RuVLT/SKBhcen4
wRkNc6A2O+OBcxINE5NHQW2KH5QjnEl7Mg2ur5yn76oIgMeSodmG52n4XtZQ
LmUuCGenZh0qS6dhpjiz783BeRC+wH+nUhYNfKunTLYHC4HqTqlXiTk0dG54
XdEbKQz21teaJnMx/v6iOa0RInBx3/AO18s0fOrR67+9XhRY1dc8G67SsMw3
e2zwjih8d06TXHWNhqrY8A+3lMRAYbWfQXohDebLmrJIkhi8nz0tNF1EQ4dp
/jfTSTH4EPrBZU8xDayQ6LO2juLQ6tBgWX2bBtvytiSrx+IQrXv8jWwpDY/l
t7jZEQmQaI/+HVRGw71SDdEQPwl42Xrjeud9Gn63Wal9eCkBB/hO82hV0NB4
YkAqmkhCg37594RKGiZ9Q9rTPSShI7k3qL+Khme7Zy5RvCcJ6tJ5NzY8oWHU
7lziOh4KehTSTqbUYHwBDbrjGykY07T8M1BHQ8YNURXPUxRMibmL6zynoaGh
5dPtKgo8b3q2xL+gYTiEt/zNPwpkrEfXf2ygoTmu8eKvFSzYnxxiodZMw5R+
/HJpVxbEm1+WCGyhQceuL2lnKguqnnwOrm/F9xWtO9dQw4K1Z6ozqDc0iG10
jQ0dYcH2y4/dHDpoiBE54HJGmg0ugS69V9/RwKsfE/t3AxuujSxkD3fRMN1w
+1+HMxukrEIm1D9hP5itk9ePYIPCkaEUv24aRHyMR/WvsMHp0vv+B700cO52
NA9Vs0HjQd3vqT4alhqWlBi+Y4ON/IIKnQEazBIUv7r9YoPDK32doCEaXBTn
adoKcmDJrjuBFcM0WDiJvFzIcGDrzxcB4z9oOPouzuSjGge2OY+vWTWK8QQU
VicAB4SXZd33/I3xGp7M0DPhQKOv9GT+XxrshF3uzNrBgdMyzbyfxmkQfH5P
r9OJAz03mEbOJA3LZw4NtrhzwDLIwclkmgZrB6srf7w4MDez/2HIDAZcCvaW
Gx/lQP8HdncJLwPxwlXTHb4cOPRNu+XLbAZsJc+GFvpx4Ojq/HgOPwPZEpua
n+B1UcGbUgYCDDTsuRqyCO9fGZ51+Og8BoxyzQo/4f8fKHyUcVGYAb1YvTs/
8PlBjrtTGkQZcFQJMrHby4F/Pk/3joszcMFg+IicHQceZWjwKVAMTFXGHDI0
48CJ0NEAYzYD5ycVnzRt5IB03cb6w/MZWBv2Q+OBBgeUeZ2Gz0szkLYuu4pf
iQMKz+OGHsow8FwzL6lUkgNvymbXfGIY2LeWj+fJDA4kuk/5zZZj4Jfl85dp
Q2ywjCkWWKjAQNyBJL6adjbMbbP026zEQH1Pedi1x2zIlFxQ66LMQEDYaE98
ERskVVb/OrWIAaFATmfheTYkinfOyl3CwHIPkRK5MKz3txV/KpYyMFqttU/Q
iw0VE/tetKsx4JA8M/fYTjZIXC6IHFnBwJbJqN9eRmw440cWCWow4DHYkcij
xQZe7eFbcpoMZBzT9VRSYkNn51qF1asZ+Fvhrd0tyYZbkUuCTLQZ6KZeTmrN
YsP83K4njuvQ5Xnn5UZZYFh/5PcRHQbYj0wUs7pZ8PTzPCpyAwNh+qGqea9Z
8IOqkj2/kYHFKv09a2tZUNhYKJO/CfOvo2Rsc4+Fc9g3t2wzxr9q2YbfBSwo
paO/PDVk4OnbE+ni2Sy4IV14t3kL5nP5n5X5iSzw8Lf3f7+VgcTnM4ZLwllw
0PjGyq+mDMgL7q9W92eB8fidjyPmDNR4nL8v68kCOfOA8H8WDPD9fDrh68yC
+mBxed7tDDhP3KxbZccCFRJaNtcG31/jop+1OQt2q7VvFtnBwMHUd+Ftm1kg
SKSaJewZSD2TF3p7PQscXprasHcx0HSBZvo0WGAdG9gxfzcDKgfr5L1VWfBM
5Zq9tCMD5vc4x0wUWXC8u6VTei8+f0kL57gMCxYHTdtLuzAgxTkgN0KxIH2N
yvv5bgwcm7mt5rYwC8Lfmu5h72fA7sZm0wdzWJCUd+iLxAH8/c4iZu4MFpgc
C/US8cB4/7beTBmnYPrSKR4BT6y/n2Wi8ygFybT7OV5vBmy0zPd5fqMgwFF1
+cRhBuZkfxku6aPAJfRRy88jDMikBY6u/EwBs5hzsv8Yvt9rFdu+dxRszVTS
/OCH+X4rJNHUTsHi+51/Wvyxf8XrVAZfUaAzY9GTuhMMdKa8LdVsoGBe0kRG
eRDWs066p7iegrtaG0Kvn2TAJEHlu00NBdftPx/LCmVgxdYP8ourKVjHfuEf
G8aA9YrXHUoPKVBd8iXuRAQDsStaQozuU7BFeH6J+2kG3unsSUwqpeDXR4NB
mzMMLPu8NpH3NgUZQXarNsUwwKEG2ck3KNA7qp6kFsfAScONNUaF+HuhUj7p
BKxP9qgxyadA3agqdtZZ7C8VWTfqCgVugxqqQ0kMfNQe6lK+SIHu0ZFPLckM
KN9nR9rmUEAvablZnsqAqlWSzpVMCnay76ZcSMN6XlP+LpROQRn/0dTwDAYW
as+LjUulICGt//b+LAYOLzvDXpRMwZqVQ/1bcxgwfF2Q1HkW8zXHar1aLgPF
za2sKwkU5Ej/LRK7xIDixMmysDjMn0HBupHLDIxXv8s4HkMBa7XuQNNVBv5b
GjYceoYCZ++4spv5DNy2VOvOOU1Bl9neK7EFDAjq7CttjKCgfl5Cift1BrZr
bcwXD6dgpLy7d/MNXI/cJee44H5XZaGqLV/MQN+L5bL1IRRsL9C8PXkL51/n
uun6k9gvJxpM2+4wIPKO+lEVRIG2e6XYzVIG5nus2W8ZSEHHRONYRBkDnt1D
ir8CKBi49B+/w32M/8OLpIv+FFRU+eloPMB+UhFUdThOQWB2VpbAQwaImPr+
hX4ULDzOs7CrkgGJYp4X/45R4B3k9OZWFQNdP0lHx1EKnjZGlYY9ZmBgzzym
9ggF0mFaldZPcb3IebWwwoeC3muqo8q1DHw49zOy4jDW13DR9rE6BvYsWfS2
1psCQ+ehnrp6Bk5kGN/t8KJgaEL9Usp/eP865tFfTwoaRR4mOL9kILp2aSqN
jsrUu7GiEfeDWQW9xocoUMsLnZxqYiCoTXd7qAcFnFUaJ+pfMfA4c8a5qoMU
pFiILzv3moG8ZlXLOehnkq8kHNoYCB5RNrA8QMHmlKVLlN8w0BprppznjvXh
7fD9/paB/KgPRTPR+vEx43c7GXD3aU112k/Bf8HjxYHvGZg5+vpy/T4KZi96
na33gQH9jcKpmmivkYYncz8xcP0qUb/mRoGiZYbsy8/Y/91zNsih977vL03o
YSAzjScy25WCTZruYZZfGOg5690iizaQ+S+G9RXr+eXtzzwXzIdbeWNbPwND
v0tL1NEGwr0mqYMM3FvvOfDEmYI4+i+/zTcGlHoN3GzR155lTLO+M5BEGc4Y
2Yvz7BC48vUPBpx4VWNi0fHb9C8n/mTg9G2L7qVoM81MK9NfWE/Hog/NThQ0
1S7aJPiHgTspN3ceR8t3n/Op+ctAZBNoKTpx14tT3cHjuL805Zu8cqTAjz/j
3JoJBoT9ooNPoQczgiN/TmK/LWsu0kL/bn9dUTCN8bzJLh/eQ8FzLSa9mIeA
3BbDqHz0dsWlY9EzCPjApmln9JK1bmOuMwko1cryKKKX58hk6PISMJf3O9y7
G/MvlPVxwSwCY7Jf4Br6XIdW/W+0QPuUmSea59/a7Y2zCag+gxgttPDY37B8
PgK+3mIfZqJ/Tt23DZlDgKVxU73BgYLK5samHfwEVDKXHstE87dHfFsxl8CO
GW5JB9HRoqo3BQQIpBwb89NBv10gxP6Eviu9hiWBHlnrI39PkMCjSytt+nZR
0GdW9DpuHoEXm9KXVaLD3vAtdREiENNWH52C/vK3bslaYQJRm+/v9kIvOKzT
LCZCwNtoLMMYXV10h/6CfmKSv1IFfaHEW/yBKAGr68fYc9CbNR5fjxcjoEWl
avfupCAzaPj7XnECJWqVZ2vQIWegU0uCAN9JGck89J5fU4fmSRIo89hRHIWu
mfYu7ELHRsft9kCPnO1OuEURGBTQY1ugD+imkzAWgfe2bs+10Kkb39tYswm0
/DE/zKDBd3SNCofATve7s+egF+9XqB1Hc1wK/YbtKbhifGfy+XwCRiJZNe1o
icmv7zOkCBzyMe2uRvvwCroflCZgSbfWX0ePJdrnrltAYPWzZO/z6PAo+TAh
GQKp63VbwtDrjlySeIdea9rc542efUbepJDGfAyG5+9GSxZ3q/szBLbt+ixi
ivY4vrjOkBAwTS2g1qM9lbX5ObIEhq98vKOKNi/Y/qsHfXr14y8y6JzcR3G3
5Qhk6dXmCaNf7ixvC5bHej1IH5m2w3g6I19sVSBwzlX+0Q90U8N+LylF7K+a
w/O60Zbncx/3ohtFXzW3ooW2ej25pURgt1GpcD16cTHbJ3Ahvp9LZXkF+tb6
1mZDZQLPT5a/LkYPyw59kFQh8GvpBZsr6JE1GVld6KamWEhHz6Xl511bRKBe
6NnpePQqySoVn8UEnDbeUwvnvp90yZ91S7BfZQaXB6BV+tYdnaNKIHuJaJQ3
Ovfz+cuN6NDEUY196MClc8LPL8V+LotYsRu9KOcx23EZgVyqNcCae712nt0i
NQJq0/ziptznDTBmI+gVEc7D+mh7gTV/7i3HejlvEddBP+xMMTu5gsB//St9
NdHbXx2xN1hJ4PDMYloNXckRlRZRJ/BP6wCvCjo9ITf6Nfpco6KCHHr2O7fi
dA3M17vbgdLoccus03tWERBynyFGoZ8IB1ILNQksLBB6I4x26tC1GkQ/XjzQ
wo/+s3mhYbEWAWVW5UxebjxZzj+OrCaw5Mij3ZM7KEjq1jRZs4bAzxDNoT9o
+a42hyl05WTAlRF0iEiQUrU25iN0LGoIHVzikhu2loDLqML5PvTBhtpXBusI
7H8b1vAZHSnVcV9wPYEL7TeXdKFtJN5Yv0RP0AY33qLZv8euxesQWNA9btWK
Fqo8cmcbYHzdp5hm9M9Fp3wkNxAQ7r0u8BJtddd+4DXaWdeQVY8eyl01P0WX
gP1hjQ01aP5vBlPWGwkMXLaLqka/21GfxtEjkGd24/tD9PDBH9/a0Wdeqh4u
R7t6jI6nbiJQPPlOtAzt7TK30kafwOjHhro76HR5F23OZgLqWxakFaOVNMGz
DS0X1B1ahN73+7+dyQYEjvWahxWgF/pvmGVlSMC14lxmHrrnYrOThBGBlbV9
zy+jDSVLAprQ1bPOiFzk3q8hYxq3hYCkx2PXHLTyKp0OY2MCAUVdrzLREYKm
sgJbCZz6vNIiHc3jFSxbi7bdJdWTim7t4+sMNSFww/VnZDL6wAPKHExxvZ+t
uD4JnTrRFTyB7n0qNSsR/etkqnuZGQH+sE1v49CaQ15iPuYE4tdLP4pBB1zN
8l62jcCct6ySM+iMT2Zx/eg//+6WnUYHnr/vetkC690eUh+B3hMvNOFgSWD+
HJ7+MPRKK39jKSsCkbYPWKfQnToati1on1sGZiHoaO8DcrHbCYh1rU4ORgu8
Nc/bbE2g0Eu5LxA9cylrgMeGQG3mzU0n0OY/vvbfQ5+lvIv80Wbek1e9bQnU
9YnIHef25/NgucU7CNzbq5bji576eHHHZ3TRrwDlY2i/fclm6XY4/3Nz7x9B
N36ImGVhT+DmiMl2H7R60tWjAjsJbHyp8c8bLZqpcLUKvd9NMN+L22+fVJN9
dxF4Ix/h4Il+wBnZuMyBwMGPjvQhNOtx9s0e9Nu+HT0H0WdWOHem7yag3ax6
5wD6S7hnrfkeAoGeGVHu3HwUDXvNcSRw5cE+t/3ozW6inQ/QLVU7tu5DHwce
Pm8nzE/UqtVuaP+kwWGlvQTaBGsWu6K3JsxM60AbcloUXNDL1A/NincmIG2k
quCM/mTksEzPBefpV7bKXvS3w9NSf9GOrAl1J3QXHVBb4EpAdJOEviP6dPQM
DQc3AvkXy+z3oI0byp3E9xE8rzzy3Y3e9rzV4inar2tGmgO6YVXgbN/9+Pz1
Fo92ofXS3vkucieQWBozsBNdYUaKOtGHdpyR5lo00uty7AECescXmtmjpTdM
7IKD2M/n15+2Q/OZDbz9ge51KqrZwY3fft/8ix4EJnOt+Ln+8jFHyvIQgVXq
kia26PJlD97P8iSwfLo+xQads6/HuQTtN2jXY829HqF/09mLQFJn/iquP2+f
+5DyJrA3O/XMdm5+fK3jnqLfDczrtkJf27tD4chhnAebQR2uk120Tyj4EDAz
l8m2RGfnyKe9QnOoiBlcpwms9Q85gutfvpirBdrD+zpZfhTno/VywzZufwbk
RHWhbxFVba7HctfdizmG+0FlQr45+qPm9UJtXwKXzz+U4vqoE9v5K1oMsmPN
0BaKlz4l+xFI62Fmc+1r6a+od5zATDvVQFN0UPYT1R9o67klYybotuir/zL9
CbQOXjrG9a/jW+KMAnD+4wb+bEXH5LT1/Ubf5fM9znXdvMP8F0/g+eXr6mlj
tM9VvW8mgehtsuFcb1h+OG0cDW20CNffNioKXQnCeT4ln7aFu95vO6lvHoz7
YydZyPWx/Ov6E+i1TfylRuhpj0ahqydxfap6oc+10kWRDPMQPL/5OL4x5M47
SfjxDy3FuX+Qa9G048JXQvE8oV3HyzWV82PE9BSe514Epxtw858unT2G1p7f
rs71vCYZiYthOO9V1Q2b0fUOMqbG4dj/VRoHuA7S1bH4hc7ZqyTAta5pHpMV
gfuvUVS+PvqJ5ok7+pF4fthpbcR12OlPYsPo0LbQwU3c9bVoQjPlNIEaTb54
rt/3DyvpRGG/6r9W55o4fnjfi14o2vdWjzsf4iMOsWfwfPhZI4TrslaDaxrR
BMZNSxdx7e/K/7ATzSu/p2Ujut3WMj00BuffZWkQ18bETHdRLIE9DqzFXD8V
YG43ondHibXrcuul3z10NA7Po+mccK4vd1WPLIgnUBqgoMF19sN3VdVoTaOl
PRvQ8wus7dwSCIhbLEvmusrIolIoEc9nLFkDrh/K/hy6hf6oOzkO6DeJtl+s
z+L56nZFEddXu/IKJtDKXvZOXJcp82pfSCKQcf0Vh+uKg1HnNp0joP9UpkEH
fStmd/lXdPBajXCuhTdfLYxJxvgeSq7n+n/VyipK
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwdl3k8F9/DxZUlEbJEyGfGzIhEtFEkp1JRQiEtpIhIG6FUlhKpyJIoeyRF
CqmULaX4SpGsJYQ2JVGIxO8+j3+83q+Z+dx7zz3nzB1lh4ObnCbz8fFdmMTH
93//mdLWByMHeFj4/3/fDEeyGnYHuvOgHRrQ0mDx0/Daf2neop48jBTK+m7S
/WWoDbO+SG8exG10DyqtGzJ87dBcK+vDw9Y1GywvBI0YBj9coRR3nAe3/apO
pz6OGcaKBDcq+vHwLOnY9icL+DDumDgeH8BDNFve7cM3Gbe4E7EKgTzcU1f1
iGzhxz1B6bTYIB6c77xlCwsFsZ01Z6VDeNjMFA4WXZsCYSEFhbBzPPhtSvHy
iZoKxaytZwXDeBiLDZkydEoUWWE/PU6E8yCn0cNv7ykG5k5xc38kDyaLDwmK
OEmgIjmhyCmaByZXYUfhzelQO+NEN8fwUHP/0HrVZEkc0OgVNLlCrq/+r3x+
lBQujgscLIjn4XGth56FvzSCZx23m53Ew92IiBOezjLQtFN4E5XCw+0dN22i
186ArU3m63+pPFjmW3y8ycgizbVv2550Hvi9Qq/eHZaF7JPMQzUZPEz688My
/7kcfjrFyehk8qBmea0lL3wmuKU+xvG3eLgWNfL24SZ5tAlOiE3c5sHmtZdn
k4QCOgI7nHfl8nBOyKNlVoUCGu1rrJ7c5eHkyK3fiUcVEbryWIvyfR7MrcRE
3LlZkG4OHfIv4CF36OP221Wz8KrxTnbrIzL/ubsaDropYZ/QWb4lxTz0+F16
VCtEdFhT+DOylOx/i5Z9bwIP72I++feU8SA7eaKrU5PCIsUbd1aUEz2KA0Zf
PaTwkYs7Gfuchyz5l017aBojulbD3yp5kInpSjy5i8a4pJuU4Qseis76fF+V
QuNQzqH6iJeETfRriltpKNn8Xv6hhviD/7D2uKwy9sacstSu46G81emFtLky
IjamS/vV8zD8IpAWC1JGWXlXQFUjDz+sg93+FChj2fknCTNaePD+ohDf1aOM
zelPXezf8fD2eK9JqwIDZz/nTxnveTiv9regz5hB5oCqXF878adlRZW6FwMF
61Njizp52DItZ+JKMgPOqzfWp5uM92W9h0klA8drbT1Fn3iIdXtcb9THYHFR
5dD4F6Kn/HvvWBkWW9hZxYbfeNguQS0xXcLC/s0aQ/9e4odzfBH7t7HQ2JHv
V9zHw2WnzhDB4yw2/Hp5YrSf/H73gqdKcSw2OY3q6fzmQb7M27P0AQtxraRH
h4Z4kLqbu+fXGxa1RxX/3fzDg0Jp77+yHyzOKtXxd47ysCfAdN5CYQ4f71C1
M//xoDGRfcaM5mDlb+9oNsHDrL27tRR1OUxN7Ck5NYlC1py5HcmmHHo65Lrv
8VNQqusf6tzJ4eAP/frPghS2tjzc3XOYg/fSmxEzhSkw238XFgZxmC6ao2As
QuGAQr6CbQyHhcFJh72nUdDTGl1Rm85h363HCWniFJ64KobNyufg77AztmY6
uS4YOWBUxuGv57Pdo1IUqiIaJm94yeFxwmIhbgYFpyKTr7rNHHwDf58wlaPw
b3yFm3AnB8XKVVWH5Smcuiz46XEPBzV+x74rihRkJl6YOQ5w4F6E95YoUVjX
GKvd/4dDS4Hg806KQu4ZiZtu4xyi3MZ9BBkKCQX2H79MVoFVWK6IKkdBf2rV
/hAhFUxtsvJZO5uCsU5YodNUFSTKzKpwVqNwhlN4fFlUBTJzlg6eVqfwPe3U
Nh0xFURJtQqkalDY9zax2EJcBVt+LBgunkeen99ROUy4eMz1ZbM2hblLUq2X
SqhAOj0rZGABBX6NLceUCZ/3odVFF1PYEDn12SNyP79+Xx6jS6EgUeOAOOHW
1mXc0qVEP7Ou0xwZLy9Ew99Mn8KmIO8ZAtNUIJ/aXu5gQCEusWbdXREVmFR5
DXkZUvjQEXNel8z/Wde0GSErKDy9HnLx0hQV9M8oU76yisKLPL+zrwVVcKv2
ltLN1RQidyZI9fGroKbmy9SCtRRKXMYc+iep4D4v9PMzEwpNkotM301wuKN4
60HdegoDfr9M7vzjcOC47fG2DRQOqU0OO/iXw37TOwu/mlMwSnskwBvhYDqa
/2FgI/HTipA9RUMcmI0ngv9aUji6QVTP9DeHqgApln8zhQgz54ZX/Rzm0IEF
U7dQmKz7aN/qPg47tZvXSmyjUFH8XTL3OwdRWqFO2pbC8+Dah1Jk/+1fmW+R
20FBM/epodtnDjYX/N7J76TgmNfoUtjN4b85mbaKDhSiJc5/4if+OdZd36q4
m0JHgO7W1e0c5vpP2Co6Ez1XK20KaOUQrzenTd6FwvVPS6zvtXAIfmu+S24v
hbfWTW+7GzlE3zj4WXofhQf0sIVEPQezI4HuEgfI+H4nZi1+zWHi2mk+kUPE
n+LL4za/4hDDc7vE70FB0rWP8nzB4YSD5vyxwxQMPveOhVVycA58XP/Li8LO
kF/Hrj3jQM2debLnCAXZdXfbHjzhsCFxtm6HD4WNHbtcKkvJfB+1DtcfpzDf
RtOqsYiD4ST18kpfCvvr099+eMhhWvRYQqE/hQW75ed/u8/hwZIVgdknKezw
7T47cJdDtm3XkaRAst+5BTJ/cjgYyL08fiGIwvvqt+N/szloanwO9z1DYdRv
6+HxTA7rxeXvuZ2lQAcaxE9kcBj8YPx9y3kKzYr5iRPXOCT4b9dZHUbBPWFR
yvhVDkbei6K1wyn4Xr36fCyJ3C92X0gxkoJckPPC0XgOi9aVXRC4SGEiJHLK
8GUOLt8Xa/ZGE/8rf3P4dYnDSu+BzvoYCvOKRHb3RXHgadTnFF6m4GLjqvYt
nIOd3IPYq3EU3s3xqP4UyqFA2PtycAIFw6RIt86zHCLjeu7uTaKgUr+Sbgvm
oLewt2dDCoWWBkWBt4FErynWy7VTye9lNWs1BnBIUfxzW/IahekHnArrfIl+
xlkGA+kUbhz7XFxzjIPs0pXfXmdQ6Hz/bMPLIxycPMILcm5SyJbMDXjhyaHd
Yvf1C1kU+qhMtyp34udpkffcsimELZvKVh3gMFDY/WntHQqinwIfVblxKLPU
1GdzKdjGLVhd7cJhc5bu3X95FArnxjS8ciJ+8a0xb8oneStN8K1z4KDvViqZ
c5+C2anrZk32HN6N1Y6cKaBwROrc1ve2HL5dqxa2f0T29+7l291bORSX+Rgu
LqLwe1WqXe9mDn7JSUkiJWT9AiNew5YcVI/xqbaXUrDW9hLi38jBw9+xJa+M
QrnLUaXpZhye1Z67H/SUQjdffyVvPenboCWlNs9IHyvbyWoZc/iUqflbrYLo
/eql1IrVZH9N1DePVFK4/+prldVKDiZOvR8rq8h4Pj/X7TXk0Du26FpsNYWH
rkVJJ5dxqJUoiXR6Rfwm+/x13FIO5xKN7iyopZBvN7vvng4H7RuB/8ZfU9Dq
uzzpzUIOM3UW+1a9oTCS7Sc9oM0h1lJK61ID8f9I+zzpeSTfMm+k7ZsoVH88
YKczl8Pa2Hkaai3Ej3vO3tiuRvaH/93Rn28p5LjqyweqcFgTETb6oJX001sU
3GI4VAeM5vq1kT5On3KhmeIgqN6QbNRBYWlqbqqQEgf3gZryqZ0Uuo7Ijuso
cFCxSlB+1UXB6sCzDFc5Drvbeu5HfiR9tGRKRpIMh9W6bkFWnymsyWuf3CjJ
wVipOkz2K9E7XOKJhATRw6WwtqmH9LmA7Lf108h18U9ml79T+Om44PS5qRzC
eX+Et/wg88l2uvhCiEPmfwkTsj9JHuQ8eRICJM/2fgsb+inYh39St57EIWLT
mvSoX8QvmtNKEsdZWOgmWpsPUkhO/dv65S+L1xXqq0WHKSy5Eh2qM8KC7b7k
+fwPhX7pk6+Dh1jSF6e7A0aJfiU6OS2/WPgIJ1zSG6MQovdHQ6ufxfeEgJBf
/yik2jeuP0POF0PNDcVZE8QfPrnTO7+xeLGEis/lo+FwQs/f8CuLzSrzRkIn
0bCc9zsu+RM53yxzGdkzmUadxaI9k7tZzE9RSljJT6OomPu85wOLarGkD7ME
aDT4lyvVtrG49G5J1RBh9+4vYvqtLPj+LttcK0jjWvDyRzdayPln5E/QTSEa
FlbrVOSbWPwaf7T11BQaUmF7N4bWsyitq329TZjGqsImTK5jIdx85seCqTS0
MtIHj9WwCJ2umSMiQiPLqNx9qJrF21licp2E5eP5HnhWsRhY5sk+FKWhfkOw
YrCCxReL2w3h02hoGtil+TxjEdQiNM9ZjMbhpkMb+J6y+PynUmOZOI2ww+ee
n33MYtZhwzpJCTLf7Q0SsiUsntzO530mPK9/h3p6IYur9zykiqbTeOkuJ6f7
kMXaxU+zIyRpPHpQ1/jiPotE/76fu6VoZA4a73XMZ3HqPFqXSNMIOCBX9y+X
xa7B8YPTZGjEqZWJx99h8XzC41Y74fGEO7R+Npn/xe7IvBk0wh0WCrdlsti3
Mp4OkqWxouH0s8AbLC6vattiI0dj78PyLRrXWeDob705M2nsfDdW1pTGYu5e
rmKU8MYselLwVRbXTfP/vZCnEd0gJqubzEL639e2BAUaB5pC+b4lsPDkF3Xb
r0jDMWLj46vkvDoSZZtqMIvGwtq/Vtsvswg+xwaJKZHnP8iVyMWwMPC6Jv2e
cKYk9bfxIgvB86zZLR6N/YuOil6JZCGT273oOEVjWOXoD7twFgeOza00Id8N
XcYOaSphLDln6AvPVCb6TnKd8/McS+a5efAjYRWt2/7FISxSUh+H32VoRKWs
Sg8LZvHKrrApgCXrC5l7Zedpsp7WkJcbOBqF37ds0zlF8lGz111BhYb1jJzP
4gEsrK6kPv1EOGtICD2+LMQ2uJfnzaZRG6fiUEnO53Nz5Tz9VGm8PvPc9KYP
i7zljXUmajRy2Njx0CMs+pR7O2TmEP/ILvE+7EX2Qy8hqZ3w9BsGebaHWUzl
sdMy1WlcpLVzjd1Z6MiUzfGcS/xMh7rrHiTzU7w3bKBBw2r0Sb/afhZzvhh4
T9Gk8UtEX1vJjUVq15X0WsKV0yzmyriy8Js3JfjKPPJ7bpYfxPawUE95Kueg
RcPoUqiFiBO5XjFtu7o2DQWTpUemOpLxvlEWA4QnfwyzFN3FwlZEb/jhfBrT
cu91SdizKGmNtTi5gIb2nDcqcnYkz2+8bI0Xknyv5pupvJ3ka+Z0RYlFNH6U
mhVobmURH5ka2kDYeFulgIEN2c/3Lrnxi0me6IN/zaxZjFolnd2lQ6P3hkGc
oyWLcnG/Gaq6NJZtUW0/tpGF47uV1t8J/4mfWRltzmJ4rapJ7hIad+cMb8rd
QNaT5NTvtZTsj16qb+16FtHdumZ6ejScywdWD5iQPmtvsh8n/Ce/8KasMcmL
hP/sJ/o0bFWrrhusYRFwzzk1aBmNLfEf9fYYsdhfU/HG2ICGiXqt48WVLEIU
3j0SXU6j59Ea6gnI95p0i80rwt8XTnL7tZyF3NBIZoQhDafsPCNVA+KHUq/8
TaAhcnVqpp0+6R/1054yK0he5HMuxyxlYf3A9lsD4RPt68XrdFn0purIx66k
4X3DT3i6DumjH8bjNqto1ODTaYtFLN5vq4qbaUT67sGskxcXEP/s7//RTPjy
mYLRZm0Wew78Hr28mvi5zLSP1mLh4Ty1dMsaGjcXuNq6aRL9WWf9mWtJ/4XG
GRbMZTFbF4eaCP8I2RszRZ2F61C1XYwxDRfpnTu2qrFQPb5CwNqExk+Xiejs
2Sw+ptU5Sq+jkWBQpSugwsJE5t6J14Qz2wyN7Fjy/GIl8/D1NOZYvX9QoMxC
TcfwnakpDb5TShGyNIszoubKIhtofFjrU+XNI33tHqBcQbgoZc/ullksGr8I
tQaaEb3L7LYvVyR9VDRjI8xpdC+uuZUuT/porD1gjPDNCc3NEjNZDJ687FZg
Qfye02N1XJaFbq+7pOdG0m8hnte/ku/pExlJHlqbaCiGLzXeJs0iodMivIfw
71vXdV9KEr9febQn3ZKGa6Wqx8rppC8jxMbsrWhkt6oOPhRnsdD6uKmCNY1q
KcmShWIsWg0Xb60nHNNiWnVHlLwfPPYxFzYTP42tkpsnwkLk7cYba23Ieop2
pN4WZjF5nuw3vi00HnYKuM6fQvqn/2vPQ8KnmxNd7guS96/HvwyPraSviyKS
DASIP18EMHO30TjmbSRcMZnF+Ie0bV2EH7+g0jZNIu9b1xiL+O00cj3O7uuY
YFDbcUbA0pbGU5Uvuw6NM1gUneEtYkdD735qwOR/DKYnchllhOfw6OcxfxlY
d2rGHN1BY3FUhZbmKIOimQOrtOxpPIniK3z2h4Hs0+Scj4SLxxY47RxmcH6B
U2v8Thoj8hVz/w0y+Bx8qGLjLhozclWmJfxm0Hq7z32KAw3xGQX8Br8YrHWZ
3lpE2GzRF4mOfgbHwCfk4UjDK4OeF/STwfHo732zd9NILK3ertHHkO/YyXHv
CLtEb4lp6GWgteigQIQT0Udy/ruA7ww619lrGTnTGOQvV533jcGPwxMKfwj3
zA7wef+VQTvvREXWHpJ37YaXF74wOBs6abG9C42Z7xcyKz8zMK0pdJRypdE6
JuY5/JHBpheNls8IF/k2Pr7dzaBGx0/w6F4aNkcmCbl0MTCKe39U3Y1Gx2KB
FWwng2IL+nYr4dtG1gc7OoieIe7pF/aR+R/ddyG5nYHiirEd2E9DaPRJ/M42
BkIW3972E441exPNvifrt3WVTztAo8RB/siXd0S/DykKVgdJnqKkcOctg0Kt
ojaBQ6SP8w16j7QwSHH96HSP8G2e4omVzeT6mTU5Tu7kfZmn0SPexKBr89SS
GR5E/67BRe8biD5HbcKfEd5f8ndrdj2DzN3bOK/DJG+/yzf7v2EQ46zvy3nS
eNPaomZZxyA5hY17Q/jqqfKXaq8ZxIksO37Ki+Tx+vRVfLUMDnhk0/O9yXng
v/XBLa8YWJxIOddOuE1L8FL+SwYjqQYPw47QON/zcl9kNYMPutm39I/SkG1d
InroBQNvRzmnr4TrS97ut6hiYKlyrTPGh/SF+rqoBf8xOGp1XMXoGI1zcZS3
bCUD/+RyzX7C5h6DsmPPGTSFZvxNPE7jAr+LR9czBoPH1oevO0GjKWpGcHU5
g7CUpi9DhONsk8wfPGXIe+2wcJoveV9cuVad9oSBZ4bRDzM/GhOnq0cjyxis
mH84bpRwql1R08nHxD+rVMSu+5N+3T9r1+FSBgGbTq7ZGECDf1pstHMJgyM3
s9eMEc5IbT64vZjBxIFasYyTNDxywn9uLGIwO00iYeMpGnkv98msK2QgQkf2
/yV89g7TsuoR8UfcMfHrgTSWznVeZviQwYyU/gHz0zQOLv2hv6yA6B+vmDxC
eNPI4Qa9BwymvVaSTgsi/X83T0j/PoMqeyVz02By3mvd83LZPaLPSkPLQcJa
8paqyGew0vwGlXSG9NlyHanVdxmU6/rmrwmhMdu64fz6PAZBZzsl+whbJg1F
WuYy4Ls9pht7lowX5cDY5TBo6+mbbXiO6NHdpedyhwHt0NH2iXBc0NoWz9sk
H1ID9hfOk/uv2f49lc2goNE4c3EojSM5v5OibpH87hEuaSX8b3tXWVoWg+at
VvGBYTT+SxjfdT+T5I22WKl+gQZzm+dbdZPBMxHqbi3heVI8yY4bZL/WdPd6
h5PzxsUWxeEMBuntTwZmRdCgV2vHSxBOLnlf9oSwbDB/2JzrDOSzbLa7RJLz
CJ9un1E6g7J1lqViUSRPN3NKd11jUKL8qzePsELFljH/NAYtUVs/21wk+eyR
T0tOZZDRfiNrjHDFYEfu46tkPWr8+lejaTTKJ87uSiH53n/u0upLNLY2G04I
Ec4L21n4lfBd/uKlGskMxNdm3AqLIXkoFanflMTgfxjVf8k=
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJwtmHlcTV8XxkOl0jwPOmffc0KlCE0qeoTKkEqpEBERGVOJUpEmaTIUTRKh
IkRElAgZK0OGUklEJGUsDe/u5/2rz7d97z37rPU8a629BZ4b53sNFRISih8i
JDT4lyurv9y9gcFCw4wMSelvlt35z1eGb2agMnatgdT0Lsvj944FjPBjkKM3
feTn5h+WBpjXkRRAPx9pWnu7/ZdljefLauVtDEy/50+GQbdl5JVpmqlBDHxP
+p3rr/prmSIRWasRwiDEVXhg8b1+y/4VGf1pYQxGmRsP7dwuhNNawSnq4Qym
FkgpvesdgiIRhWMpEQw0t84e/jl0GBbz9rxCNAODb/VBxS3CEBNVV4/bw+Ca
e8VWTxdRaOQvjBGJY5Bq1WoUcG848uO++QYnMJC0+M2MmywO7uz1l51JDJyS
BfH+5yVw90j6Na8DDA7aZqc46klCO8qLvExmgOONpdLpUtig1y4y6zCDTB2/
pStUZLC/X3hjcRqDT51Baf1zZRE5MmjJ6EwG727uTNQTkoP+EvWn+7IYTE5p
zis8Kwd317yavmwGB+yu3Cxxl8exNR2LVucwqA+rkuGFFaB8M29T1UkGR85V
DLt/QgHfvFIVjfMYFPub2PvbKkJr8jbbtNMMynZomq5uUUSDyIDUQAED/qh+
6/xgJTSFN61afp6BemRCtI6cMmo9qpxvXmBw6+lYL7VsZey12v5KcIlB7LrW
v7kTVKDwcu+v0GKaL8fwNaqlKnhce/ZM/VUG3snCp3JnqmKdaIyQ6XUGoiXL
67IfqqLKuuRbUhmD9xcsZL7OU0Nd8ofQtnIGZmfPz3GuUoOhxqmz0yoYTDtS
uf/4HHW810rdmXKHQfmZkm15t9TRbeL8+3Mlg7FGQVlKphrol/ORt3zA4FvE
PefyUxrYdG7Ts8RHDPTFHZweKI+EpuuPqW+raL7vvbc8HjoSa5N3ORk8YWBX
V1b4pGUkEh1zFEKeMZg3GM4ZmiiveBd2v5YBFaOxepYmLGJvpiu9ovrae8VH
vFsTLjm3vD3qqJ4efG/6OpfBqpBVH06+YeCnlTKQSPOW1zVGpaORgaXr4vNl
X2gcF+zqNWxmcKU36kedCQst//aUbS30fZlJDmqhLFYcb2i79oFBXcW9Punb
LIyuVf7q/8jgjZbozoPDCNz4kdctPzM4rhZ74gJP4PHU2jK0nUGTfmLWn2kE
eksvhlzvYJBwV9L5jgeB3fdHwT2dDArlol/8DCKY79VjZvyDwff3Ii9tUgik
x2de3fSLwZ23D89+OEdQHajRl/uHwddFVlM/3iOI0XwyrLmHQcUBKuC3BO/P
stWqfTTedrOnXf5N4BzqsWLeAIPFT6+9U5QSQDyjrXTXEBYmt6T+9BIB2ppU
WoqGsZjoq/zr4iQBNn41f9YqwmL8jalm/jMFCJicm6gqxuLHLbG3NS4CyI44
p24rwWKV4gP9M6sEmBSZuSVAksWcR4y3SIAA607fSD8mzeJGoKhUX7gAoZ7L
UqpkWZxSbd1olSTAX7/bK3vkWWz941NonSHAjXQjUS0lFtaHpSbeOyXAjvAf
wXNVWByPlswPvCCARuX0+1vUWCySignSuy6A9rAVHYc1WHh/PNLkeVsArQcJ
7aWaLPY9CLUteyTAq2KRO80sC4Xl1AHPBdjn079NhGOx/aa8jHadAM5x5yXG
aLFwelDbw72l8XjhvM1mNAu5IVEOOR8EyFAceXeVNs27NlXQZwEUdSb/3K3L
Qkjzw4MR3+jvydcLZ+ux+NM4O2DdDwHcvk78fX0cC10zuoM/AlzvXfPopQEL
kf8CIIBCTn5010Qab3v/ykdCHGK3Ed0RRiwMVvrntwpzGGbeUchRnaUl+Ey/
Lcahvt5Ca/JkFlMt98oyUhwKo/VC55mzeJeTVkFkOahlN1Z4Tvl/vhQ4zLrv
/8vfksWLuaWvPihzuP1OUil6GotD42kG1Tl0KpULDk+n+7mdMGGrJofT1ac1
c2ey2LS1dkMJ4VBV9VG82IaFcsN7rpTncInZ23p7Fov/yvcYDmc1Tl9+MofF
jguP4j7pcNgQ5B7UYMfiER9q8E2Pw/q5Zyd9smehucBO1n88h7k9F992ObL4
6+qSemAiB84xOPKvE4vfbj3VIkYc7ofJ88NcWDwXUAWactAh4cXibnS/KsvY
DDMOywxe2sgsYnH2s8qXyCkcRhD1JwruLOL3ubaqgoPHY3s3laUsbmUG/PGx
4uAaH1KntozFhMO6qgdncLink+eu4cnCa9OBa2Y2HLa3PKvXWMki9by3mfks
DmNDB9w1VrFY0j+9p30OhzQznQY1bxY0G8d/23GIfG2/XGUtizv1RbuDHTgc
OLWxVWEdi8a+zqVF8znM2xq+WWYDi6OzqeAXcBg4vltIYhMLmfRJ2RddOSQz
PgeH+bI4/DLYXWMRh2BP/Qm9W1i0BT6ElzuHVeE3nn33Z+EXNGvFxaUc2LGq
O9u2shj4YrOnchkHu4zRJk3bWOSE/wyVXkH3e7X+97MgFnObat9YeHGwHKJb
UbmD/VcfVnOQPNCbXkLr0swSCR3LNRwum04LP7OTxbTLKYbWPhzOuL/bmhnO
QmDx2tRzPYcpKo+C4iNYmMHAJmEjB3291oQdUSyaZPOefdnMYY60WpFPDIuo
SWWpw/w4/Hxr+8UtlsUrq8Rw+QAO6aGLjWfGsZAe3MBWDjMCDA8YJFB9JLeW
v9lGPy91SVQjiQV+bf99N4iD4ezyeOH9LIaN3vR5QwgH7y9G+u0HqJ7VDH/Y
h3GwCuhqfpbMosJjv1HbTg6M3rNzJYdYdP9WU5HezWGJyuWUo6n0+edpgYzg
UCwWcCgynYXNhyRL1WgOSaltF9ZmstAudnMMj+FgNqm9zS6LhRgpitkfS+M1
fMFUg2wW58gjN8M4DlkafwrkjrP/+nMCjZ9t/pSuHBbNvOdsrSQOypOtPtec
ZBFDyw+/n4OXb0LxuVwWdrul7M8e4NDosPJEfD6thxP3vE9OpnqWTCryOUP9
v1dfePIhDl0lLR9sztJ4uGvo3jnModxJ35w/z2LpuGbzCWkcXPJNLvQVshDV
fde4Op3qZUeV/YuLtH5ZqgZ+zeBg7lMmd+4SiyGDDzzCoa63ujuqmOqjannp
tSwOn48/FPO4yqJ3I52YsjlcL99maXTt//k6ziHkSGamRCnV59HQXbE5HMZs
FxrTWEb1UslKWpzk4Bu64lVhOYvOOX3Xck/RelG951LELRbTb5uGKuRx0Igw
LXOlfW1w+935HD7k6f/Qvkv1E3CietsZmt9Zui7dlSwSrzf0dRbQ+uPV/r7y
Pou4lA3y4ec4tPcaHk95yOL2h3evHc5zqJYpTfJ6zGL+rIyw0YUc9mTMODux
msW6wO05ehc4GJwK7+uvYfFG0qTpO2VVY6Md95/S+h2Se8SkiEOKk/z4g89Z
zBoscJeovxWfKni8oPk31Q+suczBJmWcnvYrFqFR2ThSTPMzrC7w22sWNR+l
PVdf5WCdGNdzuZ6F1fQBYZUSDg/Des6HNLB4bGxyYsw1DiK6z4/MaGLBbU7I
kbnOYXNXVYV4Mwu32xqHbUo5jHJOFzx+x+LeUCpgyisb2i4lvf9/P7jBYaaJ
T4RzK9VzXmHHHsq2mg/jlD+x2Fu6y3BFOY2Hd0n1izYWqgefiXvfpOvSH+Yd
+sIiWu7msbhbHBKYP2JuX2l9HGK7vrmCQ9699AHlbyz0B8frO9TPHiGTnney
CLOlE2Alh8T51jn7vrN4ItQwVPw+BweTjAX2P1mM2vfRS/EBh5q7ujNH/GZh
6Tdtx4OHHPiWg353/rBYqHK5RujxYL3Y3RLWw6Ila/fhS1UctomlHzTrZbF5
GO041Ry+pIdFf+9jobblhXxXDYdfL59fzx9g0ROy9prfUw4PTNm080IEdd30
H8+onkeN6947hPzT23MOehbe3auHEsiKZgbJvOAwIUsz3YrORaEKEnKbXtL4
S2W+HSlMoN2l9Sn1FYeDdab3f1FOif0z7+FrDkJ/LVyqRQiGB4eoCuo5SHf/
icgVJRBZcyf7E+Xv/VcX7hpOkBTy12xTA4eyJ9U1i8QItngntQc3chB7GfV1
ojiBqVKuwaUmDntl9c9JSBAYTXu2Q6iZw+uRUirNlKOtt8qav6N+tfDjr4wg
iPTNXhLRwuGjQ8HzBEmCrHX3lWhLRMQr0XGrpAgy2xLT3n7g0PqnUs9CmiC9
TDxC7COHkVssn8jJEOi0S5UafOJws+Ai00r50Jv9URFtHI4W+cpfkyX//PSZ
6tXo1plEOfL/eZNDRmjHt5XyBAuPMdk17Rx2xaLeVIHgjKGOyJuvHJb/7N8o
qUjgW7EoWOIbhzsDvqcbKf833lLu2t+SVKhEsOHYkGsiXRzWWaWRCGWC8g0v
L2l/53BoeoObqwrBDYFz7ivKCPxhpqNKkF2jWfH4B+0va7Xu9lDOmti/485P
DifmXux7oEbwwvG5sONvDgp9nxrS1QlqJ4uuPEvZb9gIn/UaBJKsnBPXzaF7
n3v2lJEEO7YN+VVDOXIPHyGlSf757S/tN/7HFd5QHv7UIHhGL/VbLD/vNEOw
/4635oI+DornWwyDWIKClXetST+dL7aPrZxFCOj0sGvDAIdN2uZiqgLyr18I
8XDMd/n5nrJJvFus/RAeWdk3Ei5wBKri6yenDOXxeEnJizA6d0fPiTfPGcbj
RH30Izst+r7p3q4CER41VWs3q48ikFNz6bQW5eF8OPvWB8q2eyrP7RnOQ8pu
c0XhaKrXV1O2uYnxGHtexS9kDMHyeKbssjiPwqm1T2ZpE7RnWug9k+DRIWhv
UtQhEFu0U5A/gkeXWXpmo87/9SrJQ5zhJfN0CQaPH6eleBgrluv4jSU4farc
UFKG7k+j6PcUPQJN30n1YZR1Pk4JGK5P4MTFLLWW45H97nBONeX/js+UQ8YN
jzw8jmDiAgPdXAUeulm3VDzHE0w4311srEjX70ou1jUgiAiuvrBQiT7vM+vQ
RXl11yNjE2Ue7hJmv69MoP5c4tA4UYVHaX2Kw86J5N88psrD5am/u+0k8m+e
pVymKqshY0jQsWCsQogaj7Sk7L3PKX+d4u5bT1nkjff5NCOCi6wOd0udR49z
ZsxyY4IvPSIlyzV4VEiHKI0xIWibKpRrN5LHijqrBV8o/zc/Uv5tM2bWeVOC
gL5db85p0vfJ9Or0n0xwv0l7mz/D40CLyTwzs//Hi+XBN77w6Kdc2bG+5wLl
XTKho2+aE4wcdfbxBMIjrGhVdoQFQe6vT4EPKa+vuvvUdgqBes+YYjcBj2j1
uqsjptJ6cCjyLc/xcFN45fqYsqGcscV1yiq/uvMSLQnWDTZEnuqhzP/ifBAM
2ktei8d33d1+ivQcFzml/dsLygsuu39+Tvm66v2YgFE82rON1VKsCMbdXuDV
SFnsq22/63SCwfEsdzSPN4vup6rOIPCK2x5tPYbqZ33n15eUZWoHJj+kvHrD
j55DMwnCUhddqqXsu0q8zM2aYMWgILVp/PlV5qo2BJ5/og/J6/AYbYJNLyhf
0r+/LpHyml8PlyTbEoywHuU/VJfHmKBpwgtmUb1eGvHIn/L7Y09WKMymeh1s
aGN5zFIsCq6hbJk0ZtYLPfp9I037hDkEj+8WHfWkrG1sWTd3LtXz4AWQPo+o
EfYCCTuCoZ1XQ8rH8RDaHCa4S9k8L5W0Ua79KFofPo+eg1tVE69TXndNyRH2
NF9PosadGs/jUG9jWC/luBqzvFQDHj93HvIpdiCgbvmykrJJ+2Y5P0eC+CGv
Pr+hnw8+mek7fj71g+VG3fkTeKQ3OyS0Ud4T39LFTqR6P3x1dY4T+Tc/0vXl
iVK9Hs4EvbmdT+zo+qQFQXPVFxA05LuM7qVcb2m08Bnl6KsyWDuJx17fdVy8
C4HP5SXeBZQlXjuesnElqM8oqhtnyGPoOOXPQm6032U/FD1M2bHzU9sVyqXl
KqOdjHg4+Pad9F1IQNWhaGlM9fkgjBu7iOClzcmCYMr9b48tekfZq1GpfIDy
tjXJDmmLCbqWFk18a8KjuilK2MmdgHan+WmmPAwPnAyQWELzWxt7NJ2ybIbW
yXLK2mm+EVsnU7016ycHLiWYMXihQ/maatf08R4EQT7L8oXNeSjfOnLuPeVp
/x14eMRO9KpPW0aAv0ncRAserZGb7jouJ//udyjXF3RsHu5JIFh4Q3jDFB42
3rL11ygXPLWd857ydgiJ+q6gfjSpqz80lUfQgS8do1cSvC92MnOz5GGXNDS1
jrLZpx3vfCiPN9wonOhFIORauIJGA82zPcbPWEXrdd+rBMVpPL5uGVD/Q3lP
/v3SsVY8Gpngu/mrCQbtv56ux+wdYuThTf7dp0znMbeqZIX8GgLFApu322fw
mP+g1uk25fKRU0I20vUq4xCRwLU0P8pexpV0fUbqm0BdHwL5rBPJZ2byuO5A
CuopH6017DClLBu9OSd+HYGCDI0oZY1pvUuxnuDq6z19XjY8RB0+v+4c5KxS
r3mUt7uvUTu2gdZPvdTH86xp/N5mqTtvJJDafDq2zpZHyfhrDcKbaH6eT9VM
mEX70Zr3XkWUdQp0/xYMrkdZn/PaTBBc3FLsNJvHOxfxUiVf8u98MofGJ9A1
4Tbl/86LdD1v5SIt/y0EhdZTZhyj68mrzHdo+RGcM03vfj6Xx5EsPvUp5cCZ
38oOUk6VsAja5U9woNyxq43yBt8zZEIAnSc2rDHSmkf1GZy1p5HyYLuOodyd
PeVK3Faaz5gApfmU35qcOW0eSOC6rLLNxZ5HwAoVr0+U/zsfUXYadbw5eRvB
gl9L5HopBzoHjZqxndZXg0uyLQ48Qo9U6HdSbn549oOQI48Xe0/+zQii/Upk
fI/EfOrv7XMSZgcT/OUGLyx5xGW9+PiL8nqXHQWXKFdKbhE7toP604J2ICce
fidnfJ0XQuutKB0YnHlMm7AltYfy2qiy0T6Uv04fJXUilOrBkp7QKYfN32nt
GEbzPYFOwAt4bM09Y91LOavJc6aUC4+BDdVSJ3cSzBkMIF0ffUwm3XEXwa7W
hlujXKnfSVLnX8qZkvH7XCnLpm6XPhFOcKXxqHY1ZaWszi773XT+cfkyvoTy
kTSNI92UQzY+PdLnxkOyRlPhWASdfx6kj4tdyOO+h6b93EiCVDGNzKWUQ60s
nX5S1tbrDCukbGV/is2MIpCIEDPdvYj2R5MdF62jCbYPXqgv5hER0yzXEf1/
/1IWKug1SYkhqH5ON0C5oa1jtOUemv/BL7jzIJ5NDR8oizjSE8QS6g/5Lo/4
WIJFP6+83kO5uNY2z2gv7a/2jPJaykGrxUrrKQ9eB+gv5fFyoXNaeBzNv7hy
1CQP6jfiYKUbTzB4HRJH+bYEe6Gasqbp6hlrKFdat7QHJJB/9/mUcxpvdo1M
JBi0g/cyGp/SN+U3Kffb0glrOQ+1fNfF3kkEsTGP7hZRLp/tVCa1j8D4vUSH
L+VSwff2Qsrrb/cXBnnyeLVvYavrfqoXy6juLsonG0/l91I+brzZt4xWlGLt
YeZHD9D5x3T20gzK19fvOTjzIK3f0rIPaygXxi0r+UTZ7uh39ZKVPKRtTp6O
S6b+p3ZO8eLxP7zxSfo=
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 0}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0, 11}}, {{7.608374474380783, 8.294049640102028}, {
             0, 11}}], DisplayFunction -> Identity, AspectRatio -> 
          NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
          AxesLabel -> {None, None}, AxesOrigin -> {7.611802850209389, 0}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"d) BAU\"", {FontFamily -> "Helvetica", FontSize -> 16}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.08, 0.9}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox[
             "\"d\[Degree]C (relative to preindustrial)\"", TraditionalForm], 
             None}, {None, None}}, FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{0.85, 
               FormBox["0.85`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}, {5, 
               FormBox["5", TraditionalForm]}, {7.5, 
               FormBox["7.5`", TraditionalForm]}, {9, 
               FormBox["9", TraditionalForm]}, {10.5, 
               FormBox["10.5`", TraditionalForm]}}, {{0.85, 
               FormBox["0.85`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}, {5, 
               FormBox["5", TraditionalForm]}, {7.5, 
               FormBox["7.5`", TraditionalForm]}, {9, 
               FormBox["9", TraditionalForm]}, {10.5, 
               FormBox["10.5`", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0, 11}}, {{7.608374474380783, 8.294049640102028}, {
             0, 11}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}]}, {
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwVl3lcTG8bxqNFWmhTKs05JcmWrYVIV2gjilJJRKuUNokUIZWlmTlnZpS0
SIsoW4QQ/ZJEllJKlEqWKKRQSsv7vPPPfL6fe845z3Pd13WfZ7Q9g9f7jBUT
E+ONERP7/7dOafOtgSAOxP7/OXUcAwX13rGhHNicepXklXsCOU+yI2TDOfDO
/3rk0O1EzMPabjaCg7Vj6x/X1HHx0rOxRjWS1AeNvHx6eYi/baF1OoqDWFW+
y9bxDJJl4hs0D3BQuubDTbEUBiNe6SOpBzk456caHqvH4qJudLJGLAc6vlb5
lldZ3JBUzk6O40BRvfJlqqEAm6baT1U+yoGJ38TsxkIBpKU0NLjHOQhQvJjl
qCeEZsHGY5JcDjq+RSnvZIQo4P4Mi+ZzoJ2repD5IYTOlXuNPSwHZt62uYvM
Rag8k1biI+Lgy3TP6T0HRdBP8KEbkzjY13ldwuWaCEGzv0vapnBQ4Kqqq1Er
gnBEIrg4lQOny9Vrh1tEiJ8StVkvg4MFbVMya1+LMGezRp0gkwPPTOPl0XdF
cHfJfzmcxcF4i+uOKukiZPt3u/nlcpAxbs1ng3gRVB/kh1TncVDu+GiOV7gI
P31Oqxjnc3BT7pjbBF8RdBdH2qRe5CAoaQul4iZCi+So/OhlDqIvdPOu24vQ
Ftvmu62Qg3hFr2f+ViI0eFQ7PbjOQYj3BO0WMxESl+97o32TA2FCXPgrIxGU
GxP7YorJ+ufZauoaiPCi4cql5jsc3Lqod6pQT4RAqWNii+5x0LnAd8sOSoRq
q7s/2VIOrrv4/7SYLEJT0ueYzjIOmi0ku+YqimCoef6KxUMObuQXFhrIiPBJ
9/Sh5Ecc+Cz5m2AqLsKAiVN/12MO/OIm/3EYEmJEMUDJ/CkHVlMU3EL+CBFy
NeQV85wDmdbGC8mkP1ouv5e9r+ZA1NO66FGHEDuSDjvOq+VgWrxZ2r82IZh1
ucoHXnGwUSNNaPJWiLKHHw5WNXBQXOk+GFknxNITD9ImveHg18ysew+eCeGc
W77do4kD8dCL9YqPhPA94Ps57x3R/3eohV+pEPm909W6WzlwOXRHvLxYCI0N
h4cM2zm4V2+mPe2aELq7vydHfuQguDb4DLdACK+cls6Sz8SPVmWxQzlCGJU8
7hv5woHll9l1oRlCuE6dcs+8i4OYO33s92QhPOqszGO+c8CxTywPZoWYvaXo
wL1uDgKpfTv+Hhdiza/n0YM9HDR0BR5NOCLEep9BU+PfHBQZLeVoHRBiwtyM
OyF9pP9b+2fd3iNEzV7N4Qt/OTDf2Hd1U6gQx7RqxdsHOXjz/WuBRIAQn65Q
NZOHOahc9k2jyFsIpxgPr7WjxI/nmX/+W4QYn955//AYCt2re1fpuQrR2ab2
8YY4BYX9ZZJf1wkR/GPJqw5JCuMNHPSvrRYiYvEFZrI0Bfs/aZcPWQqhIHtV
w0aGws9Nm0Uu5kIsjM/YFSFHIeCWVP3CxUIEXvwvLXsChb9yDQGqC4WI8dya
XK1AIczntePobCH+hVd4DypROGr6LeEHyet/aUZSupMoCH7UjP1IC7E/9ne0
nRqFpk06pa0aJM+PV1TtUqcgfXzbrfcqQuiLe3WnaFK4HvP309cJpD9P+d/v
a1HYqWxm+VdaiDfFko/aKQqn6sKr5cSFEASMRErqUHBxfX1g+rAATtxCmem6
FCbQ7BqbfgHGv3aKtNaj8Op2hVFwjwDpKlMqffUpGPxg56d1CaAyY/GfIzMp
ZM2csKT6kwACpWaJrNkULtTZ20m3CeD6Y0H/PQMKRRcCPKzfCnBvyP954zwK
n+P3BCW+EkA5t+Bo7wJSP5+46/ULAU5E0jNljSg8DKzarv9EAPEl3dd0TCjc
XLrRJqZcgObmpbqLF1NoNw+Wa74nwLWjs2PWLqHQZux8ZVmxAOpZrQ89zShs
qQuflXdNANuq3X27zYlexzdHTbokQMUHuUlHLSis29CRcixPgJ5JZdopKyhs
/bbxsHiWABdrLmpdsKTQqPFgXmyaANXVX8YXW1O4fetMlnSyADc5iR0VthTm
K4Q3ClkBrmhevFW7mkLv7ddvdBMFCIpyj2pZQ8HD5OSDu/EC7LS7svCrPYVz
998LXA4JYDdY9L53HYVpY3XkBqIE0FkXHf/PkcIqe5FuZoQAVQeVpoo7U5gn
f7/OLlSAGXRs8XhXCs+bJJRGAwTYOq/ReqIbhe152xtv+gogS2vUKrtT2Kjt
RIdvE8Djhb2r2hYKC0KjPxi7C+DCO9CkvpVCs9lTzVFnAZ7MyHfX9CT7v29f
/mydAPs+vmrW9KbgxBq+OmMnwKyYUXdNXwpur4pt9loLkGo6o0V9OwW74Fma
zssFiH9rv01tB7l/W4flYjMBROeDO5QDKZTJOpVrLxJg7Z7Y0IlBFFaUtnAn
LhRgNOeImEwI8Xv+yJmxBgIkcQJOiodR8Ls8//egvgDRnnPmD+2i4Oo+dOTv
VAF8Y/979Ws3hfM5X+3+cQSgZk0+1LmH+C/5uJW4hgBr0vVM2iIpjFsaEagw
iaz3TnP/qygKUkG2t3UUBDAfM/Ph4/0UTKvOTTeVFUBONJR2N4aCUarxNWcp
AW4tsoi9dIjC6NNzjnvHCHDJ/cOejFgKnc35UmeGWJipPY/ixVHQe/uvoqqf
xZzZHfz9CRS4jq6J/3pZrJ6gfiPgGAXjDUec5v9g8ee9zTfXExQyt9qqB35l
kRazydiSS8HcN6K+4COLlRGGonl8CqtLW2N/tpLfy9+U0mQpVE73oEybWBiu
KuNJCIk/iuuyjjaw2P7NaM53EQW5du3xzS9ZLI/obX+VRPLls3CN4XMWnNmv
rt49RWHQod+ffcxis9qt5LOnKQz1b3P7Vc6iWDriVHwaBc/uQHW3Uhbs6c7r
OzIomIxTy6q4w8J04ffONZkUvC29u41usjAft2HZvCwKy9o2D+UXssjU/HtZ
MYeC1mKlh7qXWMjZFJj15pLnNYgsss+zUF28vOtlHgWlbSPBejksfML4xVcv
kPmUErjq8hkWrQ7e53gFFOA69plpKosqOfZGwCWiV1xH99MkFr13P362vkLm
j7Jt4TYBizLHOUumFlJwHnKVHeKycC4wuT58jczPRWsHTh9jkbS/2v51EQWL
+94Ry+JYLAkoVbx6k4LDnnf7Px9k0TRUM5BQTEEXIzLCaBZdOc+kPe5QONum
qL5yL4t7ZZHmRiUkL+O2Zw/sYnHgTEaGzH0Kd1duyL0ezGL6PrHpraUUdkgu
1AgLYBEW4/XmWhmFB1yPYUM/FhU1x2/GlVM48tts1ZAnC824RaUuFRTeaRkP
VW5h8Tl/zm/9Sgr+N4smnHIj/bWd6TzwmMIig1n7A51Z2Pp8//S4ikL99Ykr
LNez+D5kmJP8jIL73HebdNayqJl4n/V5QeGYmXK5+CoWx9NXXllQQ6FupnH4
V0sW887HDo+8pMD78WJHnQWLycZG+6vqiD/0ArLKzFgkOyrNPVlP4dHEdNWi
xSyeqNQpe7wmfo3/9yDfiIV1ssFs/TcU7gxpZ+fOJ/0Rb9r78y3J356r13Lm
sLBiuIO3milcObb6e94MFs8ODhYeaKHwzT5t7ZVpLCRn1p9Z2UZBLMCh9o42
i9De6ofj24m+/9TDq7RYTHNK037xgUJ++pW5LeosvFs6b7KfKIR4PRPrm8TC
0iQgzqmDwpSXcz8oKrGw0XrGVf1KQb4xvXb+BKLH9rs1rzspLK5tqdogQ+oT
Pq899Y1Cyv7Syv1SLPicv9KuPyic7FeouDCWRf6TtFHVnxQiis/ffzPC4JbH
gYX1PRRaeVuvyv9jwKy3yhX8omCbqppk2c/AwSR9g/0fCodXXwo49IvBy8qZ
lrL9ZB44y84p62Yw9ePJ8Ed/KYTe1GyQ+MaQeXHk48FBsp685552XxhESqed
NB2ioH5GpTr5I4NvaQeP/hqmcG/1F9WONgZ9jfX3CkYpnOCuNDZ9x+DpIiq1
UIyG9a4ZM9g3DJynGQwkjqFxxyi1q6ueweyl2wf8xtJwWZgVuaqWwfxMrbTl
4jR+dK2qvviCwTP5jPdTJGh4DOV+UXrK4GTToqo+wg4aj8uiKxmI/VvqXCNJ
4+vEKufOcgYTBv7GXZCikXTrcfam/xj8Grmz8fA4Gs/6P+bUlDAora156SZN
4+X9Fc62txlINyb8WDCexokR+aKKGwwSFeZclZGhse58yB3LawzeTpFXayf8
4Hyaz5PLDHqXhk+9LUsj68OjQocCBl8cLtfz5WjcnKuf2pTHIO6NlIGvPI3z
64e1duQw6Pj7ePbSCTR+DsUbD2UymLLLvFZxIo3/Ksa/Z9MZPLhcxOkg3Kv3
Qn3WaQZnb4QplSjQGBNJv6tMYmBtVH6JUaTx74fD9O1CBukx3T+9lWjEC67/
lmUYHD6B5kXKNN6YZ1pcT2Sw7c9IsJwKjUdnw2S2HGPwaDTsYivhijnHV8vF
k/ULP7LXJtEYpFaNuX+YQeDyVDpOlYb9HnX9XTEMTq1ocXVRoxHX41kyK5oB
9v42nTGZ1MedvNOxl8GsHbqVg4SDv2hTebsZnLMrGn6qTp6/J+azfxgD5eGv
LWkahK2ny88LZhAuLhuwU5PGkqQk/kAAgwGBe5bZFBpRNmt3PNrOIP741Dh5
LRp9HbUpST4MzHbnKL8jTGdc1NjhyUDyxNS1Fzk07s3z+woPBiqFHw2jKBra
I+xYTXcGQftmPbalaQQNlHr+dWUQor9EerI2jXfnEqTebGCwrsD5zyfCkpNj
O0vWM8jM+o9/XYfGzC/2sjn2DF5svvv64FQa3EV8H54d2U/z0edrdGmUXfz0
J8qW5KN6R6jGNBoSfv+KA60YOKVklX8mnC4RXbB1BQP5NaEPr+nRMD2tWuUC
ok+hWviB6TScru5XXG/G4NqyhlpbfRop5n4H7E0ZdGt/b1OZQfx+KVHewYT0
wzQto5VwV2X+XUdDBuM5U+XyZ9JYWH4ozm0+A2OVshnhs2iMM6r38zYg69O8
0W82m8Y1xUCP0FkMZnwxixg3h0boeQX/Q/oM8WVKbg3h3jPMIdE0BgcMxsWn
GNBo6S3JzddhMDOzXM1zLo0t3/xryylSr5TbNHMejQLdYIm2KeR5XZRDL+HU
/XmLRtUZuMuY9t+eT8OY6gnQVmNwvznZ4dAC4ofwOalWKiTPdbvdbRbSmDLd
ojxIkeRrsoLmREMar7VU3qdMYJDKZiXWE/bYw/ZUypJ+vttemGpE1pOQ1/NX
msGgU8axbcbET/XWLbOlGDyccGDSdBMaNSp+RV7iDLyalm/4RlhObzgkXYxB
v/V028JFNHx0ZHSK/vExM8OnZ/diGppSgzoL+/gQfTRZa2pKo0j4rOXWTz6m
tr72GCEsn3PcfnkXH4cnxug9WEL0tlwRXPuJj4M3fLPiltKIuSW7aHsbHzur
K+tszGgMeIxmizfxcVSj6Y7sMrK/J+aXcur5cFV+4/KC8LtTv9esruFDrW8g
nzGnIXVi9cH+Kj7kS3cXrQep79i77EIFn/yvPBKuYkHjrdyNw1v/42PDLfeu
esJuNhbWWnf5+J5lrJ68nOjT4xnfeoMP6R82Iy4raGyo9THNu8rHO7eq05NX
0mjKTd0cXsBH986eH42ETyq4d1qd48Mv6PfgKUsa4qkSTZyzfIT5ji91taLh
VfB3xlAqH6lTfZdMtqbBxJx92ZLEh54JQl4T7tELevaI5cO/79nmJBsaftF1
KkWJfEyPspDYYEtjFW2Xey6Bj0/ZtV7Kq2hsDXPdm3GYD1uVG9EvCX8+ceBo
6n5yvZGWPX81jVOLV9Wk7+VD39i8yc6ORvkfu1W5u/hIkLXXlllDY1O7Vk9h
EB9ioQe1KwmrlW8sLffno+GLVHPsWjKv+7OuvPXmI7Bk0jrYk/m2+2xJnwcf
p4ZaDw4RfvVg7Hu1TXz8OXQqoNiBRnt3pNoyZz5Mvocqhq8j85ktdfNfx0d0
XkbY3PU09pSwuSl2fKS1O/A7CZsOX+99Yc3HgZQ7frmONJ47dS8dv4KPbYz8
kIcTjcr5SjE2y/hYuCHKTmMDjV87fl5PXMxHs7nRxleECxZ7NdQb8pEYFqjD
c6YBQ9v3U+fxIfN23XlrFxrbbOKrI2bxMdZAtUvMlQb/hnjaCz0+1vV87bxN
mB131WKWDh8OYcN5YRuJ/goxdxO1iD+fHtSZ5UYj+pO/xK/JfIy8z3b7QPj5
qyC1LSp8RPonOaRuotHgzXY/n8hHTVuChKM7jQi7twnLZfkwFOVFyGymoRjk
0nRXig+FdN28MsKzajU/LR5L/NY+J2nvFhoKWeaZJcM8lEzuXTHXg8xfnbZx
Kwd4UC0/c/UTYavLlFrNbx5OLPBpTt1K/F447cnWnzx0xIdUrttG8p/FUe/r
4qH5cnfoOE8a6qNLxjIdPFhvV2guIexmVRRj8IGHfRCTCvOisb33QeLLFh6i
RN+69byJv8PP60a+5WENO/Z0E+E3BvnLpzXwMNcwWILxIe/nEKX2+pc8tK/y
mLvSl1wfMm/k+HMefuwa1fhLeNjSVbDyCQ+tnOjKAj8aHz63p4yt4OFY4hgj
j+1k/tMGChX/8WBXfddLyZ9GmyDt54kSHtY/bXCsIOxz8aSxSzEP1cYHJPfu
IHrkxL3TK+Jh5el3e2cGkPuFv2sbvMLDPQf6cjPhxkalpXUFPCgcDc3lBZLz
yIrMzit5PGhaDG3BThrmrRJfmGwepBy63vYQnnLk4dyIM2T/7v7q2UE09G75
3fNIJfq9z9RwCqYRnh2VuCaZh7tzS1okQmiUThKcMhfykOn/yecG4WN7LN4Z
8Uk9weqqTygN5ypd53knePjgPP7+pDCyn6ymEYMEos9eF34F4Q26MnXzY3nI
93bT3b2L5O+f64tFMTwk+S7ZrxtOI8Ft97cVUTycyZx6uo6wzS+FGY57eDgt
szTq8G4y33+9j/HdxUNQ2CV6fgQNfbHsb/uDeXCIzjzeSvjDXOWAlAAeBrLM
bnP30PAc19dX7MfDe5NLF5fspWEbrpzY7MVDhJeaz1fCBY9N9CS28uA4Lac9
KZL4+ebCsrnuPOx1ipq2ch+NsaubXT1ceYg583BOD2G7TpmvAiceXifm/UuP
ItevSt9Z5cDDn32r+auiaSwK2d0uuYYHbubrL32Enc5HrrC05eGx3C7p7P00
FsSJEo9a8hCet/LH2gM0/N8U3a624MFi/q7Tg4QPXX/+SGMZ8c+KafLnYkj+
NjZc8Tfl4eD6Q1brDpL308qqkBJjHvZcuGQ1RHij1gVJ5YU8jAbVyOcdIufB
GxE7ds7lQS97Ytq6w+S8JLkk9eksHmRotucf4T79saI5+sQfp/dNOBdL5qVz
s4NQl4dJmT299kdIvlvePR+iif6pmmcGCNfoU+N2aPEg91JLOTuOxr78kr9v
1Xmo8tCyt4sn58PPDRn2qkSf5eaOfwjv9Bf8qVTiYbn9eSojgYZhmdrAiok8
PDTZX2R1lORpvzC3XJaHuGPtit2Eb+ob91tJ8yB2ecgk+RiNREvDzucSPLR0
duuZH6dx2vbRPtcxPNCebS2fCX9M0c/9PMzFeqVeD94JGmfjU332DnJR3GCT
b5RIQ9faq1i+n4soP+n7zYSr/1SmnPvFReNGp9RYLjlPJU6SWvGTCzvaYflM
Hg2dltSB9m9cVMhQ12sIRyZfDon/ysVjq4/fI/ikf8a5fnM+c5Hb+qB3CkPj
77imt6/buThz/13ZA8JXda88imvlQr3AZdN2luQv4Mh0k2YuylY5lsoLSP5i
yga6Grm4r/3r+zXC+Q9qFufUc/FGsLHDRUhDdR390aOWi7zW8wVDhPNHtf9w
qsl+9MWXnBURPZ1X+79/ysW9ncdPWp6kweFOMst7zMU17ta7Xwm7JwwHhlRw
McE67yI3iUZtTeyfpQ+4+B/a2h9h
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwVl3lcTV8XxiMlDUiRSuecBlHK9CtlSI9QokkzIjSaokFKNEjpnHNvE4pm
kpBI5iYiSoZCKUqRIVJSGSqpd7/3n/v5fs7d++z1rGetta/q1t22HqNFRERi
R4mI/P9b7U7zzQEfCiL//5zgMJBX7x7pS+HFuzvVIdE8zjzKDpQKoDAlS9NE
cr8Ac2HVnRBIYULnfYmNe4R4vrWxdkowhTyVx1arPWMRfXuZSkoIhc66hn1+
znFIlox+pRxK4b2kbly+ajyG3dKHU8MpPLrkw95LiMdFjQPJSpEUDK27De8M
xuO6mFx2chQFr/nfD/avT8AGdWt1uRgKY27PGa4vSICEuJKSkKOw0ylYvWEw
Acp561gxIYXkL3I3jhskIk/4w+9AHIUU+ZxJlR6JULtc2tiTQKHkavG1pYcT
UZmZVuJxjHDzl7jvCYmYecSDaUyi4PlIV+6zMBE+Ol1i5icpyFaI6dvuS8TR
4TG7b6VS6OuY2B1imYjoaSEbNTMoBJbZat+fkAjdjUovE7MobE3k2tJLE+Di
dOH5v9MULvREpZZtT0D2tu71XjkU+vVqZg2qJmDKvQt7anIpfJBLKpRsi8cP
jxT5BRcoWCuXbnt5Ph4aC4NXpV6k0Lq+dO+GoHi0iI3IjFyioHpKf+Mji3i8
i3znueUKhb+iYnKumvF45Vpjf+8qhemBPuGBY+IhMNn/WvUGhRM7dYeHnsRB
rlHwO+wWhXufA7f9SI7Ds1eX85uLKOjmJsd89Y7DTnFWxLCUgunGuUc1jeNQ
Y1r8I+EOheZNLjrDinFoSvoc1lFOwW/Baqvm/ljoKZ+7vKyCwvo+u5PGTbH4
pJESkfyQ5HuC+OCNu7EYMLD/862KvO+AcmrruVgMy+6YZPyYQsKsBkW3o7HY
U7CnLv4phYdD637+CouFitPPpe9ryH43s7UdfWKxPemQ3dwXJN6GRqnVm2IR
vzZHLrSOQre7oXamdSzKKz6EV7+i4HygZY+WSSyW8PfSJr+mcPPIBKd7+rFw
zLnv7dpE4W2Wne4q7Vh4hnp+zn1LYXcEFZFOx+JC7wyF7lYKdiG6x85NjoWS
w6EhvTYKv6JUPtlKx0Jjb1dy8EcKPwUylTGisXA709JR8pmC5Udv8YV/hdAv
qfo9/IWC9oPZJ+37hHBWn1Zq/I3C/c4V6559E8L1palxWBcFx8yEypSPQuhs
uhZa2k2ht7781eW3Qlj2PT0w2EPhxovykjENQth6DC5a8JPCQQv56oRaIcbP
ySja85vCMaw0takWojZI+d/5fgrSK17bLKoQglV5Ido2SGEeNB6uLhPi02W6
duo/Cvm9/IyDt4SwD3N1sxoh9VVUGf20UIhx6R1lh0bRUDYp8TfMF6LjncLH
66I0auIzO4tyhdj9fXFduxgNVZNpNranhQhceD5+qgSNshvz1w6lCTFRqkBp
lSSNdItTnTeShfgvOsM/UJrGkg9ZruGJQuy8eDctezwNh8jHtJNQiLCtm5Nr
JtKYtkqibmGMEH8DHrgPTqKxuWO91YxIIe6m6YtrTKbh2R8cTYUKcTDy5wEL
BRoPUuSPU8FCKFctr/ZXpGEkcemyZoAQM0Xduk8q04DeqOkLdguh8Tiuq0yF
RlN1/TqL7UK8viX2sI2mofPI6KG3hxCJO4aDxdRo3EvR6uM2Ez2EVyRnaNBw
S1sTVLiB6NFgH2ymSWNW1dLBFkch0uWnVXrOpDFq5deZE22FkNda+OuwNo1r
7+XKVlqS/SY1jzmtQ6NCT/dA2CqS7+/z/5TOprH+4wLd0uVClA5te9o4l8R3
re7U8FIh5HLyYnrn05hoHlKwfJEQfDCjLaVPY0VGkZ5AXwjRxd2FagY0eqyy
xjfOFaK5eYnGwoU0trXNU5uhI0RhjE6Y1WJyfq+/jsEzhFA83Vqx1YhGQfG1
5GdqQphX7/2915gGnTTyXJMS4sEH6ckxy2jMzV75O0JRiJ7J5aonl5P1UVV/
WuWFuFh7UeX8Shr9k6SfYqIQNTVfxt0yo/Fi+N+eM1JC3KAE7Q/MSX53dXyS
HCvEZeWLN1+soTH+SaJRwGghfEJcQlosaYh8D7n67p8Auywu//fVmsZ2L1kr
qwEBLAavve9dSyPtYd7hsp8CqK09EP3XjsaXjkLreT8EqA6fpC7qSGNNu8u5
s98E0GIib41zplHcdjSGahdg89xGswnrafivbu040SaAFKP0Qs6FhlaHdfXk
FgFcn1k7K2yi0cb7qB1/LYBTbGiT4mbi56c63VPqBXikdcFFeSuNne8bdFJr
Bdj/sa5Z2Z3Ge1GZRtUnAswKG3FR9qThsvly14VKAVIXabUoetPQXNm6fcF9
AaLfWG9R2E5jtH+vRUWZAMfO7W6X20nD1mtXgn2RAFb7In0n+NCIDv+n335d
gJEzh0Uk99Bg3vsbHrgiQBK147ioH40xA3eT5PIFOLBVd96QP42/mT+s8s8J
4Bl5t65vL41flzRdzc8IQM+aGtGxj0bn2LQH7ZkCWKZrGrwLJu8jUzEmlZy3
qPlPXQiNerlDsbOSBTAepV1RdZDkf/hmV22iANLHhtKKw2jo/biaFhQrwE3D
ZZH5ESR+uT8n1TgB8l0+7MuIpHF+ifTHZ1ECGCk8DYmNolF1Pzr4YIQAujrt
cQePkHqLHLVu9kEB1oxXvL6DpVE3qBLxPkiAX+9XdTrzNL5HR/5IChAgLWzD
gpVCGhrFLTlWewRYEah3bG4cjaTqd5kSO8nvZW6IKyeQehA3flvhJYDe6vLY
MUdpNO4odIl0E8C7U1+36xiNY8v+TFvhKoBJYG9bXRKNQ3efTBu7QQBKp66g
+ARZX/Vz/RNHATYq3Ew+lUJjf/p/r47aCnBLIvBEdBqp78vWwo1WAiSkdFzd
nkFjjodsmNZqARb919VhmUUjp8/kwp+VRK+xDkvnnqYRp1cgU7VMgCzl/kuy
Z2ioRWueSzEi+q3KM+rNobEhPyBo90IBpiw0+fY8l8aqku0HTfUF8PCLu1Vw
nsbhv6+v0/MEaLVxPxubR4N/dYz5q0P8LJ1wfUc+jchqn5LGmQL0Fn/8bHaZ
xkynJTG3NAQot9NdrH6FRmrPi0MpjACOeQZX/xWSeuuXyAudRvxysMa64RqN
4LzrI+5TBVi8445swQ0aUvSVMEt5AZqGageO3KIxzrBOy3CiAN/OPJFwLSL6
Z/cPaUgLUFoebKxfQsOgpv+PnIQAoZkZGZJlNAbbLyuKjRFgxn6RGa13aGx6
PrC5f4SHX5jb68JyGnvUrz7p+svjQS13I+o+jSLN2xs+/eGhHGV4x+kBef/z
r9KtfTw+X9D9ObOSRu499dY33Tx+mWs7DlTRKF9u+rzxGw9zj65PVdU0FpnM
a2ts59E1pHcm+QmNi9YPJjZ94FE7oSzB4xnpB5kfNrS28uDSV1yeX0ujXczn
3qcmHnPPRf4bfk7D7pfp8u8NPKYu0D9Y/ZL0x9C1b/tf8ki2mzTneD2NE5a+
cWK1PB7Jv5RzbSB+y+Oc5Z/wMEuerTPzNeln+w8ZTK/i0SraFPTjDQ0Zw6Wz
DCt4mMYLB2820/j2J3u+5V0eT8IHr4S20LjqlWLhXsJDTLs+c8U7Gu8eSwQd
vMXDt7emYlwb8c/Iq6snrvGYbp+m+uwDDaeAruHrBTzcWzpuJHwi82auvnP9
RR4rDXZE2beT/vE8uez3OR6rVJ4Ip3ylcT1qZK5SDtHDu7i2oYMGJed0yfgU
eT7+s9WJThLPc1bfK51HHNUv4fydRuzFyAfxJ3lceJQ2MuUHjQVq8zaWHOdx
0zX0v/oe4qflYX+/JvCItzXNSewj86lwQ6ZiLA8bg3QH61+kH2dfM1vD8Xhe
qb1S6g+Ns01BfaHkvq7+8XjAw34aWwqTT107xJN+cfhj+CCN2eNHre0M5REs
kXZ80RCNlZ45IpohPDrTwmP6/pH8lu+9vGUfj9+N9aV5IzQsb7q5ZPrzeGxI
p14RYfBi5xbx1t08HKfPHhCMYqCWvOUis5OHzhLvAa/RDC4EO1m6e/OYl6WS
ZiLKgP684Mt5d6K/TMb7aWMYzF/yM6RnM4/jTYbVvwkv2XZ47OKNPET+LnGs
FWPwp72ZjV7HY/xAf9R5cQaz7vaNqnPg0TdctO7QWAZbo+/4qNvyuPOi9vl6
CQbpGwxqAqx4SDQe+T5/HAPxLlu1qtU8BBN1CyQlGZz1l/RSMePxZpqMQhth
xWuOaQHLefQuCVC/LcXAZHhu+VNjHl9sLtXHSTMYpXu0buYSHlGvxWd7yjDo
yNlXH2XIo72/SmfJeHI+59f3PurxmOZv/EJ2All/92rqynk87l26RrUTLmod
7XpOl8ep636TSiYyaFhxX0pGm/hV/35+vCwDR/HeLH9NHulh3T/cJzH4dl+g
0qzGg6So2VCOwVBOQrgpzWPLr+Hd0vIMHDaOVBUq83g44nexlXCbWv0vZio5
/9GPCYWTGXjenCSeIM9jp0kqEzWFwTy3W/2jZXmcWN7i7KTA4O2vh08CZXgg
6OcirakkvofGEZ3jeMzarlE5SPh7gcZkd3EeZy2u/XusyMBNKejI29E85P59
bUlTYmDeuaTBeYRDgKjUjl3KDHYkBYq++kv+Hya6nDaaxhA/aUk59HOI5tSj
ZFQYWD5z7qr/ycFo7xm5t4QTX0med+7hIMarW12kGPB5K4zednGQv/JRL4Qm
+ztKn3fr4OCzf1aVOcNgqrv3t2+fOeyZuVhiqioDw8+uooEfOKzNc/z1ifBJ
38HuUe84ZJ2+G3dVjQH5C1cQ18zh2cbihnB1ku+Yhcvp1xzONsc8tdQg/nnW
nVtQz+F5zXZfpekMFOJ3vl3+goP9ydP3PxO+1nO7rfEZBxlL34pCTQbrTrTd
2P2Yw6wrCgGhMxho5fU4S1RxKFz66oX5TAZPXvRWnq7g0K3a9U5ei+y/sHe0
cTmH3kVpGa2EddkhibelHMZR6tIXtBn4fqdeHyjisEC+XCtgFoNxk738qJvk
fMrX/xjpMFik9eFl+VUOWl+MAsfqMviv4dSQZwGH0x9O5tQSrlld+E0mn0Po
7LHRJ2czsJijkXXjPAftrPsKW+cwkLo8VnHLWfK8UnqD9lzy3H+Xg0w2ed83
2qaXcEe2p31xJgcXyUV/bs9joNQ+ZvKONA5lzck2EfMZaG5ZnzTtJAfHl3td
Vv1H4rkW3FBznMOdqROVJ+gxaBzZ23A4kUNqwmlBPeGZ77ceXxxH8vnW+0qq
PgMNP/uJP3kOg/YZ7JYFDDLMXc0uxXCoGB86eYYBgx/7TyzcHsXBrcnEoZPw
reOTP884xOGP2QzzK4YM0nI617SHkngyPHr2LiT+nK+3/VwIh2MfDawWLWLw
zEgUO4I4qLc2uA4T1jbzfTJnL4dDE8I07y1mYGSWNP63L4fw656no5Yw+HKF
Eyvz4bCrpvLlKiPit71eBUd2cIhRaiqSWsrg3uDK8XbeHJzlXjs9I6yhAYrx
4KDwe+BCvDGD0VZ7Wr9vIX64s/eaLYg+Vj02dzZx6NM+HCC/jEGSf4tvwgYO
DjddvtUTXhttt8zDmUPX6QWKySYMZCt3li1y4CDxfdWw03IGEt2mX2RtObxd
X50ydQWD03NGSjusiH929XxvJLxq/tWlD9Zw8PL5OXhiJYNpUyO2nVrFwc9z
3B1nUwYlwUeMwlYS/dU9F081YyDm9en2JhMOmgbY00D4mWfRW2NjDtt+P9mY
tIrBpUDNc2pLOMwIWTbGwZxBqeTqqWMXcviU/cJNbjUDOxlT3S59Duby1w88
J1zdsvhz3XyyXl/FOm4Ng2UOliZlczjMXGDcZGHBYGNJGs7rcDgiZa0qaUni
qbd4d1yLg4hvuGol4UX14cxhTQ6vvog3R1oxZL66iASoc9hZMnktrIneeaJh
HgyHE0Ot4UOEx+qnpjqrcPgVcWLHLRsG+lKrHCyVOBh0+coGrCXz5fycvOUK
HA7kZvjNsWUwPLIvbbE8h7Q2m7gOwnp7zGbqyxK/nyzyyrFjIF1bYTl3PIct
8TJDrvYMRrwUpHWlOPznEGKh5EDqt89z6ywJDs3G+uvqCMtmNlnPEuMg8Nup
FutI+qdUxkud0Rwk36w9Z+bEoNK8oXPOCIvRs6d8E3FmcPhtQYreEIu1PV87
bhP2KLZvXjTAwsbvX67fOtIPzbsKTH6zUH8crjZrPfHHphwFiz4Ww++z138g
fN7k3ASnHyyCtyXZpG5g0JmvesKti0XtuyNj7FwY9FUZFfh2sNA7lhsouZGB
u46WU0Q7i4npGrnlhG++myhI/MjCoU03KWgT0WOjmlXOexYlU3uXz3FlcJHn
0263sJhyP7PgE2H7u/sDa5pY8PM9mlM3Mwgop5o+N7Joj95TuXYLA4P7Zx+N
1LNovtTtO3Yrmb/eJsuUXrIw857YXELYpVx12YJaFvshIu7nxsDHcm+V3VMW
Icc6uzXdGTKXd73yq2ZhmTA6pYnwVspo+9FKFnP0do+J92Dw7rB85PUKFm2r
Xees8CT9dosm87qcxXf/EaV+wr72ORguY9FKHajM82Lwb2fFB40SFqxglL6r
N7kfTL8pYXmbhUVNsdukbWSeul25FHiDhe3jV3YPCC8Iaa87dZVFzYJQsaDt
DMZox+5/VsBiRcrbIO0dxJ8pbzKG8lmU2jCXmgn7bR69TCeP6BnjmxO7k0HM
wcWbN55jobxsaBN2MfB2Kfkbl8NC3Obbmx7CdS+KJ1WcJvG7bFPM9mEwwPie
Gcgk+r3PUrLfTfzXI1cwN51F8ZySljF7GDQ7NettS2GRte2Tx3XCUi9Hz89O
Js+PmBZ4+JJ8rr57tuUYiw+O48om+zFoGm+VqJxI9AlyintAOOzNp751cSwu
uK/X2OtP6q+2vPqkgEWS5+KDGgEMykKmTWliWWRmqae8JCz2fG69yhEWKZJL
Qg7tJfrrLBq79TALH798Zl4g6c+2AXm5EcSfB7K4VsKBPsrl30NZDJw2ui3c
x0B08k4zgwMs3hvkX1wcxKAd2UYRwSwC3RQ8vhJ2sx8+/SSQhd30M21JwcRf
U4sDFQNYBNmHTF+xn8zLUoVbXr4swjIrdHsI/3xt63nTh0WDIPdvegiZX9vz
wiV2svi1f03c6gPEj883i2/YxkKY1fDlN2GqsfD3JU8WVdL+EtkHSTz5723G
uLMIyF3x3SqUwe8PuvIbtrBYNs8/ZZCwWmCj8dVNxD/Lp8ucDWNQUa72UtqF
RbhthOnacFI/rNVTr3Us9p3PNx0i7PE7XbfCkcWIT61MbgSDpUft+lTtWWhm
T0hbe4job1OoErGWhSST0POXcFrkv7z3VsQfKfvHn41kkP8hKH25BYvJWT29
1ocZ1Au8e86aE/1TlTMHCGN4Yq6UGQvp5ypy2VGkfyvdLPVdwaLaVcXaIprB
Ss0svdfLiD4mxna/CNtXy0qZGLMwsT5HZxxhMEPWFheXsKgwOHjNNIbBU6/c
lwqLWESxbbLdhCPSnSsOG7AQuTRkkMyS+v1wUbZPj0VLR7emMccg5cm3oq3z
WTBb37V8JhxkufHOyzmkPib1usbyDLqKzSlTXRa3Xq26oC9gIFIz8Oq2Nqlf
L4myZsL5GTe+zJ7JonGdfWqkkPTr7Ee2OdNJvTE2JtqxDDbdPCCvos7igSR9
tZawg5ySbhJD8mX6sSswjoHX2s7UiRSLnNZ7vdPiGazfsXSzQJnoU/a2/B7h
G0UbgscpslDMc9rgnUDuf/1xn49MYVG+2u6OTCKpB6MZuWPlWZSp9nUVEq4W
8SmKkWXxOnFdu9NRBq6KV2ipCSxyW8/lDRGOKDF6FStN4pkpuvjUMTKvQ7e8
lZMk9b2LO77yOLn/22zXSxnLolC4ufgrYf/DZ9+oirEYb5Z7UZhE7gtV7jUX
RrP4H6yBCBw=
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd1nk8Fl8XAHAlQighomYmWxtabJXKaSEkS9ZKKVtKRYrIWkrmsfuJrMmS
LCmiZCsiUiGJikjRbi2KxHvu+9fz+X7uMzN3zjn3nFli67LbYSYXF1f4DC4u
8ivzoPPe+AkKXp3L19txhQPjua/sA09SUPGYv81HMAQynqR7zDlNgXMOVdsf
FgKrwXAwyoOCebzmBgGSofDC9nXzAi/0ooqVwjdCIej+lsUJ3hQMmyvnNK4L
gziBoDZpPwrMVDtW6teFwZRd8lRiAAVZHVLqJsbhkCfnEycVSMFY4JDSWHM4
FPOIpsddpCB2vWZesE4E7JM1khUNpiC8amVbZH4E8PFKSYVxKPB8e+KHI3ck
SOfuYXnCKJAT6DaOV4iE3LAhN58ICk4FpEoNa0WCzK2K18NRFKwfkRiKM4yE
uqtJ5Q4xFNwy1NnfaBIJyy45MK9jKbha+370q24knFDs59GLp+B6tlqdmUok
/Dc1y6UkkYL26caSkHmRELTIe79CCgVCkVV2qg8jQGm/1MvoVArWhLXaqWyL
AGvLnBf/0igw5I2Q3Pc0HNKPDO49nEmB49PywmincFhQnePalEVBfWJVUKV4
OAw5JIip51CgP1uSZ0FTGMit99JNzKNAUNnpZUNUGHTxTAtN51PQNGNsU92+
MHgf+N7xUAEFN/dWd/uuDIM2myaz6jsUtB4d/Fs7HQqhW8++WXIXr9f4s7aq
PRREX4eO+ZdQsPufJ1VfGAqNbbdudpZSoOIfwW0dGQrHeFmudRUUzOwt1l7k
GgpNOmVDUQ8okFHuSK40CYWO2E/+36oocHl1fx+/WiioSt+4taWGAi5v/WVN
C0OhTy7hXNxjfJ6lau/36RAY1zD7/b0e68XqpuXWzyEwJeI8X+spxnNBs09p
Uwi43nZtjXxOwQ//Lk24HwKLLX9t7mmiYOnecO/q9BA4GnvedHULBZN9Zi5r
I0Ig0iRT1K+VgtIBN9FA7xCoqvkY0NBGwcOtNQ03nEJgY0h1kvgbCtRZH/F4
ixCwyHzkZNOB73PVcK++dgg4+jl+ynpHgXaocsUd1RDIGVkqMdhNQYutHNdz
uRCQMj8/qfqBgvRTUc7h4iEg594f59VLQcGpibIh3hCwy+j6Vv6JggMd30X7
/3BArbx+bOoLBRpnvw75fOeAleyiCq3v+Pz2dJmELg7YvNTR8u+nIE+t59Hm
Fg4oHijyqxikYPnMfFWHxxzY9fO5z8QwBVYl58X5yjiw22Fig/ovCv6MLN0m
c5sDwqtSSl3HKBBLXPoyP5MDzZ7S/7L/UAATt+ZlJ3KAXdzC/WGCgheGz7wE
oznQd4tulvyH61Ify1uDOWDmb2NnOE2B4uljd//5c4A/+Vvl+Rk0VO5+dSLw
DAe+vZfoLeamwfJNsKStCwdcBjRbP/PQkExLCcce5oDH+uxIST4ajHeyzdIH
OTBvzm0pXQEaZmZc4xmy4oBKUMopD0EaLoQf85i7mwPH8h4mpQvTIMBfInRm
Jwf8bQ/GNc2jocbvVpusNgf+nq61n5hPw9+WC3/na3HgYZIar5w4DYe2LavZ
sp4DvoG/fAwkaBB7MffyTRUOSNdvazi1kIa13/gHTJU5sIzbbjBemga3CPrI
2uUckHsa0V+5mIbZXf73deQ48KaE5/EHmoaDV71ywmkORDtPefHI4Pvd8KX4
pDEeYQUCS+VwnVESLliA8Wg389qhQEMg38lLl+ZzIFlsUZ3jMhrcixPzWGEO
iC1fP3phBQ2u62LuFAvg/eZ3zkpTxP2N8fXxz8Z8D6z9XaFMg0FFXuIFbg5U
TB55/no1DQnTZ7fJcXFANDM3eGQtDakds/Z8nmQhxItZMUeNBtkTj52ejbPA
rTlYKKNBg1F8oHDLGAudnRvl1q+nQSYp/9fYTxYKgxX9DTVpKOJrf7l+mIWF
ad01tptoeJ8p5xY/wIJeg/uYuxYNNgt70sR+sFD7UVA8eAsN2RoSOjlfWRgW
r1oSvw3X11nq7vnMQl5z3uJsbRqEhh+mMX0sNDV94S/ZQYPDi4x90x9YuEuF
fq7Vo2Fl4pXgX+9ZuCWdd69lJw0BWffNprtYOOFt7d21i4ZlvT3i9DsWjhvc
UvlqRMOZtF59kw4WDCaKekZMaLgikhcQ+4YFGROfoL+mNJwNjvvW385CQ8B8
WW4LGlQV6mst2lhYzgSW8FvRcN72gFVzKwsHV7/eMXcvDbNq2of2vGRhDiPV
ImpNA4hc7Bt5wYJNo5GVxAEayg1EYxKaWbAM9+tYeBDjuU32kHETC0+W51hL
22J8gn7cE21k4Wxva6e0PQ2lAV/5e5+xsNJ/2lrakYbGl5zGh09ZSNywvGuh
E/6/euh8dgMLQW+NDkkcpWFTXHZ28hMWYm64fBY9hs/TOd2QVM+C4ZnAk3NP
0BD8iNfteh0L0xkXuARcaeA6376m9DELsZTzZW43jN/br1fba1nwsVVaM3mK
huuTSRZTNSw4Bj5s/elOg9QW319KaHql5LlvZ2hoS5FY5PiIhV3JChrvvWh4
tbTp1PVq3G9p5+9Wb9yffVHmQBULWjNW1NT74v7dD9hsRgvGTCaV+dOQ0Vlr
cvkhC/fWbQm8eY4G+h2z5ucDFm5afzyTEkjDMeuqIkv0Jonn3uEXcf/Kv2Kr
K1lQUvwc4XuJBqeHPTEq6J3CC4udWTy/c11P5FSwMNqj+8MqhIZnnfKfFNBJ
/vvUtcNoEJeYW3WjnIXtHqoxqyNosLdJe7wKPSp0l1c6igaN3KyHZWUsqOpX
hc/6Dz1IexugnX6oKfXH0GDeoFTTU8rCVo+RD62xmF+FaWdvNKXYervsCvaX
R/e2L0Tvl7gXdy0B45thLVN2n4USPo8rQUk0SJo/fHsQHZXw7c7RFBoGply0
BdAbVPq/7Uql4cOWa5r3SjBes803r06jIaiJuXIYnSr9J18kg4bC0i0a0mhB
3dxNI5k0NHk8H3txj4UF67d+f5FFg6D/r+IQtINbRMntbBryUrTMddHdxvbX
w3NpqH957u5sdINgVLHzTaznxw3lT+6yMFLW+2nHLRqOP9tjEI6uMlXSlC2g
odozSt8cbZGrcedfIZ7v7O/JFDrWt8movQivFxtQ+lbMgqbzA5Hbd2mINKQ/
3kN3TDaPXyrB/rdt8vol9PeMZ3w2pdiPpAbs9qArqry01Mpp6OEAjxLa72pK
ikAlDT8iJM/MRC89y7W0+wH233PO198UseDmb/emsIqGt5yxgEJ0bTPn7sVH
NEx6qI+GoqUvrntgWUvDgdc2I07oTzlKv5bV0TDX39JJBz2qt8JivB7rRyt3
hzxaz6G/r76BBm6ekHM86P5J1Yy4Z7iuWD378x0WmudWRjk0Yv+SL3j2BM1J
3n5rbTMN1hY7Ht1Er74R+G/qBdbD5n9d0WhJdTXfhpc03H3dKOqFjjOdv+ry
K8z3OnWLg+gnYi9FbdppsNunkKiL3hGnrLjsDQ2v1/G+XoPu5u7wHHqL8f2X
O3MRWicybOJeJw3aPlYis9HPAiYK/LpoONJSODFSyALPildXt7/H/r+2prgb
fXKkqYb/Aw3T73+uf46WN0ta0vgR+7kVt38Z2r7r292oPhruxAn45qC1NZwv
mn2mwSXmtGICWnfxs7AFX7G/tv29yEH3O5U1t3+jYWhN1nlvsi78yfDKDxq6
cx5LH0dHUH/4rAZooE4O6dugc54kTS8YwnzMmOLfjb5n46fyahjrwYHfVBsd
uVsnM/on5p89yqxHG2skmxuN0rD0XtExJfSLuhXac37ToCdftFYGLdt7+fTj
PzQsSHM+LlFI+sWF3oAJGmIt5ksKob34ki5vmKRB+ZqIMjf6R1JA8M9/NFTx
cueOF7Aw9vpVRe40DYfX53OG0E/X0YkFXAy8Vpn95DPaQl55PHQGAyVOirbd
aMWNTuOHZzLQP8thdzt6TeripK3cDGhup2Ob0M+EUnoWzWLAvn1geT36cse6
hjG05L4QgSo019+NFs08DPzralQtRQuP/7mYzcvAap+izDvon1Ole87PZiBq
wmLvTfSDluYXe/kYMLowaJSF5nt9aWAtPwMCh1sDr6FD5yndFhBgYO6HMz8T
0W8XCUl8QEvNOJwUix7ZeFr2/hx0oK5PFPqLcf6rCEEGLjzriAxFX3zDq+wo
xEBe7+/2S+jPf+oVNwozUO7LMQpELzql1SIyl4F23rhRP3R1fhH1GT1Rp1Z/
Fn2t2G1++TwG1Gf/V+uB3qH26GakCAOf1Ae+u6GT/QeH7Ocz4KkYv94FfT4E
OteJMhBg8zvPGX1odMpFUIyB9NW+253Qj6fd8rrRiutuTdmT/f/XG1UojvlI
XPL2EPrY1kTm4gIGUpzPvDqAvrKty8pSggEVHtvBfWjw/LVhuSQDX31TFfag
Vx6Vq5tAP5g/7WWBvm5Q9O/pQgbMUyy+mKJF/33tSpJiIFgs1NUEfZp7jvNx
aQZ8uCNFjNDj0dZpmxYx0LnwQIMBOogje1FoMQPzCifj9dGb3DNE36H1bH38
ddE8IbKGeRTGO+q3lw5arKBX1ZtmwFc4Ong7+sTZlfV6DOavwDNnK9p1mSaf
5BIGdH+/7wK0Sa7FaB+6MY9PXgudmvYw4o4MA8r/qflsQjfuL2sPkGXAUbj4
oyZ5n87g57vkGHjc2rF3A/pF09GTUvJYb2k8PevQZvFpjz6hR/pj3DXQQrtO
1hQqMCCcOSKhTuJTIHHabykDF/vC6lTRhZvbWvSWMdBa0RGogh5c0v9ebDkD
QQMWBmtJPjYkpXSjXfP9mTVofkpWMGcF1vvJjulVaHWxquWnVzKwtuDXV2Wy
P+ni35sUGRgr2dulhF7+ZZPHbCW8n9u1TkV02sf4zGb0X7VDvSvRfsqzg+KV
GVBKVB9dgV6R+kjCdhUDS3ZVCxP71QnuW7Gage3dN1YvJ8/7ThuPoA9nRO9d
hrYW2PD7/hoGXC6tDF2KruyMMz63loGEPplaBXKeX7pb66owYHl0JQ/xA8l5
0nNVGYj5MbFTHp0YlRb6Cn12l368HMnnO6eCRDUGWKtXP2TRE2Yp7CF1PL8Z
e3WIa4T9xJdqYH17JmbKoO06tpr/QL/P2SdA/HvHUr2CdQzYhhw6vYS8T4rD
sPt6BqIfu39k0DG9GoYbNjAQv8vOkli2u91mCn1s8+8mmpyXuf4K1ZqYv2dc
u4gDih3TLm5kYLmSSSOFPt5U91J3EwMyfmWmxMFSHaVzNjPQWyz2bjHaSvSN
ZSN6YbjKUWKJsfGcSC0GIk4OTSwi9fDAvWg3MOBxVD6C+OeKC6fFtuD5EMlX
IDa/Z/39FbrM53CVNLo/TX1h3FaM15rVNsR8A7pTltsYkBX7Mi2Ffre3IUFy
OwPJe1zTiQePDw+8RludzdUjPnzi18QVbQZC5XxHFqLdHPkfWOng+V/VkEyc
KOuoKbmDgZmRnjuJFTTAtR1tu9PlryT6yNiz/bG6GK/jsTeJl3pvmWWux0DH
v7ZDxH3pLXai+gwc/yUlSawnVuzzAl29elezBLlebbFRxE4GZrnu4RAvU9fq
MDBg4M82RR3iS3OMlgjsYmCXwB1uYq6TAUvq0Bt7O6oXoNu+8HYGGmL95l8O
JD5WLm4CRnj/8SZt4iuT3QGT6Jnc3vzEo+euOJcYYz/Nu9QojtboPyly2oQB
Xs/PMcQ+WSluq3YzIOIXak2c9ME44hv655Ej8sR+8aWHM00ZyHY7OShG+mWk
0KSNGcbT/EopsYq5t4GUOZ5Xo5Yg4k4ttT2taBNpMTPiULdjMuEWDFh/3i1D
LPDW5MYOSwYmzS4Mi6JnKi/4zmWF88MtpYrYZPjrt/vo5qK4aGJjt39Zbnuw
Xn872hPLPg2QWbmXgRunuTWIp3rS935En6i2FyD2OhJrnLiPgfCm813z0c3v
L80ytWbAotv8DrFqTJaHwH4G9IPagonnJctlVaEfX/93gNj8g1Ks5wGcN8dr
1IjLJUe2rbLB+jKWEyJe8Ojq7T4012yJPhF0yFqHzsSDDCSFxVYQfw5yrTM5
xIAZlRxL3Jk/eHK2LcZ3tbwr8Q6neZ3l6PZTy/WJzwIXr5sdAwdaMuSIvWN+
DCrYM9BwJHp6HnpX1MyEDrRPSP9b4lWqLrMiHbCf3S+4S/xB32bVdkecT9ff
RhMPnJqW+oMeW23vQtxN+dTlHsbzZatvQMyGzlCzccL+68IuJzZoKrObf4QB
48LFs4l3P20zrUXz5XP3zUU3qfvxeB5lIItv3SPi7QnvPFc4M1AXcu8acYUx
k9+JvifjH0A8L/hkZvgxBqTfhNgQS2+ZPADHsf+9ebuZmNf4+9th9H/HjlDE
Z62PLEw/wcD3MdUpYRK/nlQpMxcGev5s6CIuW1XeNcsV1wW9KolTj/Q5FKOv
f/qR8v/1Szq3HU7ivDKJ8Sf+aMFfKe7GwJY1xw8Sf/C0jKhFz/Fz30KcY79X
zv0UxlMnV4Y41lHTV+40A4Y3BWcRX02VTXiJbvgS1yeEThDY6H3eHefDlp11
xCfcbjJrPBj4ISqfTWzsk8rpRn9pkA0hHk/bdD/sDANPPmofJ+7RuJmn6cmA
znfWiNjDTsLhK9rQd2ANsal8xodYLwactruJEXuaectvP8vAonHR34Jo/6s1
SsPoA4da3hC3h2b9TfbG+jPOKycePbszQt8Hv98yUq8Sh6W2fxlDD+nmnyeu
FzzFl+6L/VC11YH4dNb2AUM/nBdOInrEW9acSphAqwzZKxIPbJMXuu6P87jn
+VzigN3ndEwCGKjct/PnHPSZ7Js6k2j7S51txNMnmoWyzuH5vxxQSqyQPjfJ
5DzOn4fqKcQCTNTwX7Sf/tQ54nkJZ4WvB+J88WlzIBZPHR4xusBAV1alHvHV
ROmr42gN+btKxIIvFoumX2Tgrmm5CHGDzWIjgyDcb3zzqACJz1Yt01H0q0Mj
b4i3Gt2gUy6h6SWVxDUavkU6wQxs2GmdRnyR/SAyiE49lB5EzJU/qRHHYv/t
Gz1K3PVtUEGLg/3ioKkRMWP7vusT+v7+MhXi3fNHbMJD8P4uSpLEJW26OWqh
OO8Usyf5yfk9zFfZiXZfpdxD/HqPWWJgGANbF5TXEhswxltXhGP+LuzOIa4V
oO80ozXo4XDiep3efo8I/H6LjjtFnNldPbIoEucPR9uK+Grlu6pqtNz9iY3E
C3Mt9zlFMVDccncJcZW+6QOhaAbOh3vxElcu+dlfiB66vvU7H/pN9J7Plv/h
ft6INBNndd/InUR79H0qIi5Zxq15LYaBZeFV8cQVxzmXtS/j98iVa37EhWEH
y76i/zwNsiMW3pGVFxaL35cjrrrE/wNhwwvI
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwVl3lcDd8bxyNRKdIiSTOT+hZJRKQFn2wVSZQKEdGiiBYpraQFNTP3disq
lZKoSNmypoRkaUW0kaxJRLTJ7/zuP/f1fp0zc57zeZ7Pc86ou+xZ5zpSTEyM
HSEm9v//qaXN1/q9KYj9/3f8KPrzn++I9KHw9s7EYKfnx3D6UXbAWH8KO6ZI
XG7XisdsWHcLAigkK1v8dYplUevSWDMxiIJLa+BH898coq+bqaUEU7CMetrt
d5VHsnT0C9UwCpPbdY5N8BdgePvJ4dQIChoeoS6P9YUo0AxJnhxJoXxd1t71
XUJckVDITo6iMPag3a+1pxOwSWONhkIshYMfHlU72okgOXry5PijFEYPddv/
GxBBNX/DEYl4CpRigVZrYiLy47/7hnAUZkiZ3UucmoSphbcbfwgoxEXvOdyQ
noSHGWm3XEUUOh77h26UTMa0GFemMYnC5yofqSGnZHjrdklYnqBQLEiZm5OS
jIThUXtKUinoGjZzm0qTET0leLNWOoXQuSMPmD5KxszNk+uFmWRcxCmFX02G
k0Ne7d8sCvEtRmpTTiQje2f3RvccCpUHvtaOCUnGxPK8vdW5FFqWlj9Y6pyM
764pivPzKOTPs/CvW5IMTaMgi9QCCiOv2b6+opWMVol/sv8uUFjkVcx2Syfj
TeQbt21FRK/RmlUR3Ul44VxtV36Jwu6CWj/PhiTELTnwSv0qhXEh3jPOX0+C
QmPc7/ASCjrx09dZZiTh2YvC8803KBQNiuQXRyVh1+gjYgtuU/BXznRnvZJQ
veLmd0EpBSf1sqmG65LQlPQh/EsZhUdNrj8WGCXBQPVsoVkFhVWyZdsSmCS8
10w5mPyAQlbwmI/LJZPQb2j3p7OSgiBkZsua74kYnuAlv/gxBYXbc+MuNiZi
78W9DfxTClNV5Ga4lyVCzeHXorfVJL8HFrX75iXCM+mQ7ew6Ci9CxJ/VJSSC
X5ujENbw//15ikWHJqKs4l1E1QsKm0RjIo+5J8L0WHma0isK79ojHNvXJsI+
556HcxPJ74KvoUdME+EW5vYht4VCb86/znDtROT1aCt3t1FYaUYdr5BPxOT1
h4YM2kk+ipfusx8WQXNfV3JQB4UJe+r8Db6IsP1065dbHyhwPy1iNr8QYd6t
yt/Dnyh01bSl1ZSL4Kgx5fbiTgrSpxXOxBWK4Fy/YnF4F9HTX03Ep4mgu+Vy
2O1uCvq3Nm1oOiLC6p9PQwZ+UFC5VvDZa78I61wHjOf/Ivkuvm1s5irCuFnp
N/b+prBkgfWyjbYi1ASq/j3XR8G5yVPsqpkIR9TqxNsHKJS+SPeynS3C+0K6
ZtJfCs/9qSh9WgS7cOft1v8ozNXttF4zTgSpk1/uHBpBw5/98TT/bwK+vFHu
uCJOQ0F9qvSKrgTs+WbS8FGCRmxv1Di1lgQEGJ3jJ0nSUB+w/jzraQLkxl6c
bCFNQ8r4fX7o7QTMjU73C5ChgXPfPSUuJGBXwd207HE0TLS2LnqQnoBwl63J
1XI0xvl5m5VyCRj0v79jQJ5Gd+9pYXdEAu6mzRutqUTjwI5mW3vfBIRG/gqx
UqYhLjTN69meANXKpVV+KjTcDxvdubc+AdPEt3efUKWh/Y2/WWmeAM3HXNcd
NRr35ZfXihkn4FWJxIN2msYu6ri+l24ChF7DQRJTaQylSMiPoRNgF18kra1J
4+Fnk/z6CQmQemkXZK5F41qdolHNqAScVJzy0G0aDdXS+IHBP0IoTjfqPaxD
Y634XX37TiGE8s2jsnRpPOp5qdHaKoTjtzl/buvRWPRSRiWhTojbQzufNs6m
0TD7uJP/AyEUcvJje+bQuO533vTgDSGOBTE6Y+fRkLPylb5+QQhxk+7iqYY0
5oj/UVHNFqK52VTTyIjGm5bZ5WeShSiO1Q23NqExvbrXaVOcECpZbRUuC0n+
egdXLDgohGXVvt/7FtMolWprMw0Q4v47GaVYMxoV/OyjHl5C/FAqUz+xlMbK
+rT8G1tJf60pUDu3nEbEJOPzc+yFqK7+JFViTuNO1Lyh6lVCXKXiPt63JPEG
u48VmglRqFpwrW4Vjdr+YIdAQyG8g52CW1fTiG6c6X9ophC7rQrnfl5D3jdm
4ecLGkJYDVx+27OWRuoZiRd/VYSYujYketCWxu8602JvOSGqIuQ1xO1pcGfk
+8TGCDGdiSyRcqRRmNencfmvAFtnN5qP30hDbeLxyzG/BBjLTK5TcKLxxbBS
J7hTAOdnaxyVt9A41X9Yim0XwIENa1LZSuNYyvvnpa8EeDQ9z0nVhYanl4Ky
XK0ABzoamlV30LjxGPZhlQLMCP/npOpGI9kok5K+K0Cq8fRWFQ8aRfs2/S2+
JkD06zXblD1JfX0/ejCwUADR2T0fFXbRSNeeaboxVwDr/ZE+470J21F3HTIE
+Hf6sJj0XhqfJ8hl7U0WIInyShT3paFlfDDwNCdAiMtM/SE/ou+bK009MQK4
Rd5t+LmPxl7/QtdNEQLQMyYd/LKf6PtOs7glUIDVJ7UM3wTRyJQM3hLkQ+K9
0fynIZhGv8JtKT1PARaP0KmoDKVRNiPRbtBFABnRUNrNcBptasvfvtkkwLUF
ZpHnD9Lw0MuwbbUT4LzTu/3pkTSuKv6z+blagIXKT4PZKBr7xZdG0OYCzNT9
yIXG0MitrTjiAgFWjVO54nWExrvVtsq3jATofWvx1fEYjaWZMxpmzBUgLXzT
/OXxNK486dlVpCvAsgAD0WyO+MGmkLPSIvNlr45WFdDY/aG8c4gWwGBlGTsq
gcZFqw79chUBPL7Om9klorFphYpimoIASwJ62huSiN8yLy4/KisApdtw8eZx
Mn+1aXDcGAE2K19LPpVC1rtxzDNrhAAlkgHHo9NouE4+U/V4kIcg5cslz3Qa
RxsrbCV/8zCe2/VldSaNnbrWpQ7feSwes37R7Cwa5ZeqH17/wiNTte/ChNM0
vBf1T9N7z0PGIn9hTw6Ny3HJGZfbeEw0WtJZm0tjtQ332eo1D1dfruTiOZJf
pvH+7wYebTY7zrD5pF+c2v+rqJpHlYzgitd5GuEZIfPDqnj03Oz4YF5Iw23P
wOpN93mU2c400SiiUWk0atjiLg/7fMNLf4uJ/3eflTa/ySMptHrNy8s06i2/
LlhP7kcmXqUTLl4l9R/80NqviEfTUE1/TAmNnw9phVMFPDpPP5F0vkFjx/OK
1a25PG6XBS2ed4v4S2zXQ51sHmEZ6enSd0h/XV5gGZ3OQ/uAmHZbKQ1p84H0
7yd4+IZvf1VcRmOD1WnhzkQe92uOXo26R/pN6LPv33keqlELSh3u05CQ3hMd
HcfjQ97MX9Me0ji0d6W6TiyPXksd+/5KGg4t3VxTJA9L1673lVU0bJKunEoJ
59E1ZHA6+QmN7F1XtNyDedSMvyNwfUbj8LpH3djP4+jJZYVzakh/74t5pu3H
Y/bZyL/DtTSs9pglqu7hMWn+vNCqelK/vwcnTvEi90Vb+VmJz0m/K9qrPd2d
xyPFegXnlzQaT0imLtnOwzxZT3faK9LPN75a4eFM8iPeFPj9NY0q6yyxlE08
VvDxA9eayfnGPUp/6cDjScRAUVgr6c+9jn2MHQ8JnecZy97Q0Ns42LHPhodP
T3WFVDuNhYX9pi+sePxnl6b+7B0NI6sFr8wseexo/XJV8J5GiIlBQslyHssN
vaLsPtIwPCy23HgJDwu1J/ETP9PIyln66MEioofHzZqXX0h8gwaDm03I+LgP
1se/kvUWp1z9Z8iDo/okHb/RuKR0/2W+AY+8R2n/Jn6n0XWaN3HR53HNOWzu
8x80Juo7l07V48GvW5Ej/EnjTIOyWZcODxvDk+vX9JJ86mlmlGnzqH2os3zs
HxojdL1LMjR5aHQk+j/oo2HWuHlXjDqpd9HhjogBGqzuy5RAikeQZFqi8RCN
3mFDTT9VHl/TImJ//iV++7D+c8AkHr8bn9/O/0djmWnI40glHo8X0KlFYgwi
x3kWnJAn9fyfXn/cCAaxxjbeJeN56Jp69LuPZLA3qPpnmwwP/Uy1tCXiDBYF
/ablpIn+sulvp4xikDAeLyzG8EhsWlD1m/C/TYKBI6N4iA2a2tdIMHgttcCn
fgSPcf19UedGM/g2unbhymEOP4dvbDg0hkFbdmDt3z4OpXU1tRslGVw+s9Wj
7CcHycaYb3OkSDwrVzwTfeMQJzfzorQ0g/syudX7P3N4PUVWuZ2wkdNtI88O
Dj2m/hrXxzKYdib0tVcbh082F55zMgxGaidEhLzmEPVqtJ6bLAP9XqfB1Occ
PvZV6pqOY+At3jm5qobDFL/FdRPGk/kWg4Wjn3Aov3CZ+ki4qOX3sbUPOZy6
4it/S47BnVndEXnlHMzn3TvPT2CQsSp124Q7HE6Gd3/fIc/gtsH6EdHXORw6
huYFCgwstJQNJK9w2NY7vEdGkegpF/Qs+SKHB/98C9oIj5hwIceggMSf0CEo
VmIw2HGQa83lsGtJKhM1kYHeAXuXxGwOx5e2OjooM3CMU+91zOCAwF/G0ycx
WLfMk56eymGGp+bDAcKnO1Zcl0jmcMbq8t/HKgxexGxM/SbkoPD3c2vaZAYd
LXXp71gO/uJjvXarMqgadD3ZcZRDv9Apa+EUBp/m2fj8iCbfe0c1omTVGCiP
WdcrFclh4b7TCi2EJ/04P0ovnIPEMQ3rAorBgX1awZuDOSgWdRgE0wwyJw0Z
HN/PwfvAjEpLhsFy385xrX4c9k4zkZykzqBBZ8YHvb0c1ubb974n7KHqefzo
Lg6ZWXe5S1MZWIY/Ff/hweHZ5psvIzQY7JHpHu3iSvbTHPt0tSapL8OmiJZt
HGqrPX0m/0f0dh2/dvsWDnYnsu59IOz5X6DDz40cZFf7VBRrMQhL3eMf70D0
KVL2D9Mm8dy4Gatvx6F40Ys6y2kMNDLj9rXZcOhW73qjOJ3EPzJ4SvJqkg/j
tPQ2wjqp0c6OKzlIURoyeToMAg8pqmuYc5ivWDbdfwaDvIqupX+WkvhUr/xZ
qMtgff3C/AZwmP5pYcCYmQzq/vDGNxdyyHp3IqeGcOzo+ud5xhzC9MZEn9Bj
4Fe/elu2IQedzHvKLrMYdFbnlp02IOMPZTbpzGbgW9redEGfrNdJ2/QQ3qK/
MbFMj4OTtPGf6/oM6p3K65tncLjTnGxzcA6DlgKtULHpHOzr9zlZzCV68J/2
62oRf02SUx1vwOCD+p28rRocUgVZcc8J9/ZeHEpjSD5bPIpS55H3vZuy/q0a
hwG79CPb5jMYXXYhdaYqh4pxYUrahgxm2W4vOTiJw/amJeu/Eu4Wi05oUeLw
x1zbsmgBg9raQiUzBbKfdNcf+4wYGE97oF0gx0HUYWhtbMwAjf3F1DgOGm0v
nYcJf2q5n3l8LPHL+HCtchMGjM+31ypSHCKuuGVFmTK41xm+Kms0h93VD+st
FjKIL3/arD+KQ+zkphtjF5F4on2CKkdwcFR45fCM8P7XljJu/1go/+7P4xcz
OBwWFCH9l4Vs6b7L68DgwVa3sisDLH7qHPZXNGMgOFVyw72PxfprTp3PCQec
2uDI/GbRlTVfJXkJyZeqX3TbTxaS3yyGHZYy+M/cWz/nB4uWjVUpk5Yx2Pmm
Z7lPN4vu3T++NRKe6/Dh4tIuFu7evwaOL2eQ3evpPKWTha+bVKnjChKvWNui
wU8sUjXcTCaZk35U32T65gMLLUPsfUnYyGCe+eMOFjt/P9mcZEGe39a36lY7
C+1gs1HrLRnUOHsZXXrD4n123XaFlQzUpsoMF7aysFS8ElJL2OUZF1vcTJ6f
p7aGW8XgQvfbhzdes5g2f3GTlRWDUbUa+ZWNLGLGrlGXXk04J1+9+QULMZ8I
9YeEZd+Jq/Y2sHjxaXRzpDVDvuO+RCvUs9h1S2kt1pB+b2+z3rCWxfGhtogh
whNtHQO2VrPoPXjcq8SGwZoO+9fsUxaGXT4T/NcyuI5an/LHLEJy031nrWNg
WBkyc/ARi7R2G+4L4XWOi4YXVLIIO3HDPceWQfX56c+DH7DYxssOOduR/d+P
yL5XwWLu+mCryesZ9Otd2ih3j0Xz4nkbGgjPSdj8dVsZizjfXVNZewZDfRYr
S0pZSL9ee9bcgcF2E083hTssRupN7BRzZHA2+O0cv1ss1v74/OU64X3H+k+9
vMHCxvdvru8GBuG22mdwnYXG44ipMzYy+GsvNefCNRbDb7M3viOcoeS+gLnK
Imhnkk3qJqJf+uyCpMssat7EjLJ1Iu9vCY2YcImFgSg3QHoz8bMBe5YvYiF3
UjO3jPASiUplxYuk3tpnJgVuYeAuUVKWeoHFrUk9S2c5MyhslUvRPs9i4r2M
i+8Je+Tnia7lszg2x7U5dSuDGX6HclblsfgYvffh2m1E/7vX7747S/S40O0z
xoX0I+mk1+G5LMw95JpvEY7xiPhIn2FxAGKjfbczaPw5qvneaRbBoq/dWjsY
+ATVFXhls1gtGJnSRJj/eN1aOYvFLIM9o3hXcn79PH/1QSaL9pXOs5a5kX6f
X/4qKIPFN79/k/sIPxnSPT87nUUbFfIw351Bit0Src40FkfiRsxz9iDnp16g
8blUFlbVN7fL7yTnz7XtbZ4pLNY9fmF7n3DzhuvSs0+wqJ4fJhHoyWDY1aq4
L5nFspSWQB0vBlPTxz2pSGJx24a50Ex4/vvx1qJEomesTw67i4FKc6ieu4iF
qtnQFuwm8ezP3r4wgcVom87XPwgnZn56N1FI9u+0UyXb+/9+qM35yRP93mZO
tttD/DNHLLOeY3Fz1q3WUXsZHNKZ/egqyyJz53vXK4RlKeNJJ+PJeMyKi64+
DMaemnA4Oo7FO3upO0q+JJ9K98X9jhF9Ah24+4S3+ISyLkdZ5O3YqLnPj0Hy
11DV9UdYJLmZhGr6k3pI0chaGcsiI1MjpZ7we533KktjWKRImwYf2kfmH1l3
YFE0C2/f84x+AOmPGYo3TaNIfYZkHm0j7Diyq37hYRb9WQuvx+8n8Qqv3DKL
ZPHW8HyBSSA5P0237rY4xCJgu7LrZ8JSt363rD3Iwva/0+1JQeS+Z5wyeksE
i0C74P+WHWBwbkpk265wlnz3VMz8QZgRiG0LC2PxMi538GQwqfeowEhhKPH3
gVXcyhByXs10X3wuhEV85stPvwkXPdsSXx7MolLGTzI7lIFqzBi31gMs/HOX
fbMOYyDRT5UPBbEw0/dLGSCsJReYokb429L/ZM+EEz3KBz4ikEXEuoMr1kYw
kL+Xne22n8X+c+dXDBG23Xj4ARvA4p93jWzuQeL3keWW1/eRfpk9Pm3tIQan
rJK0PvgTvzOCH4OEXZOs7ZUIy6UcGHcmksHdG6vqVvixUMr80bPmMKnnvhGi
A75E/1TVjH7C7hl9oos+LGRq1RSyoxg8f/7o2ae9LKqc1dZYRTPo2z3VRINw
+JLFtr2EZTPK6p33sFiy5iydHkP8UhMoTPdmUWEYenlFLLmf7Jrh07abRdSR
9gndhJ+deLZzKmGxC0OGyUfI87I7A9x3sWj90q21+Cjpb6/lBRe8WDAub1o/
EM6d1Xvpjyfxh3yPM3uMwa/ZK18tIVzywiJvXhyDMRVOg9xO4l93yTvNhG/a
xCq2ebBo3GCXGhnPoFW0gJ5N2IqxWaLDMjgT/Vkp0p3FfWn6Ug3h9AGtny/d
SL5WdHQFcAxupcUV6RHOaSvvmcKT++fZ+6tiXIk+d1rKyglvq4q79XYHC5V8
h00eAgapzfnDCwmXrbQtlRWS+0HloEzadhZ31H92FRPev2VH+6ALi1fCDR8d
Ehh4yTcHbSac23Y2f4hwW7f7s7vbyH6miZucEjG4tE616T/Ct3cfTVyeSPrR
E+XUuK0siuO33vxMWPZTnFSvM4tx5rkF8UkMxlMl6s6E/wdMjyOo
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJxFWHlYTd/3zlCShIomnb1TyJBMCfFpCWWuSEJEKiVDkqRSkYx1zrlFUalE
okLmkMiYDCUhisgcSRlL8lv3nv17vvef+7zP2meftdd617vWPkbuq2Z6tlVS
UuLbKCnJ/3tdrjrXtJKDg9UFGj0TdkBT9iOPyNUcOL3OSLqesxMO3j4Q2CmA
A7UnB/zGJkXDYJhRLwvk4GOfIao5W2LggXtFaY/1HGwft+ht6SoetpwfZ5gY
wsHD6e5dXeYLkKC25bFBGAfy7WgfEVqX7GtNiuDAuLIpbFmqCDkmoQn6kRzg
6lGntWVwRlnrQEIUB2PxhV+3yWC+sb2x1jYONlhbLBzdJANVFX39mB0clPya
9TpjcSwYZM/drhzDwbL8gLg9hbGQHfPVP1TgYIp62wEddOKg1/FLFQ0yDp6b
qGzsvigObqUm53vu4mDj7vE7PyfGgelWT1oRz8Hhm1MtO96Mg5UD65Qn7+VA
uPrDtKo6DuJa26/KS+LgdFFgQeq7ONjSM2RBnxQObPC4vSriwGyB/sPYNA40
I68UG52OA9c5WQ/+pkv+XtgRBwd86uctzeBA+5jdq2aPOOhxNcuvJJMDo1x/
7242cfDVM1F7RBYH8eN3Ll9qFAcmo9ZPSsrhYMDWHk/vt42DF8r/Ov87xoGB
OZ7gXSy8jHzptfgEB6vkLyyOhcduJU5XT3Fw7Yepa5cTsRBtE/zU6CwHzWEY
kT2xoFUR/TM8jwNZXai1xcZYuP/4+NGqCxyMwgP95xsLy1W2K428xEEeF/XJ
0TkWSmwvfpVd5sAhJmFlrE0sVMa/C68t5ACteSnmsTDc4PDxcdel8+43jIW3
JokbE25ysMYb36AeC02WTr8+FXEgd7dNiwxau/lqWt/h4MJkTMhnGfjl+pWL
9zjAbBf9rJKB4Zzv/70qYee/L4Nl8ZtmDS7jYJ6HVbX9FRmIjhlaYeUczECC
nD8pg8LrryOKHzN+ZchgzM6ryd2fciAP17o9MnDOuObtVsniGy0DrzCvd5nP
Ofhp6irYRMggq7GvTn01y2+ADPRnb2oZXsPBDZrr/8FHBiZr6xLWv+Hg5L76
TFs3GSw5+KI2/x0HlnKCO8nAIr/oZ+sH6TzZU2TgYtzzkvUnDlxxw8MgA7eH
ttbhdYy/I2QwcOHpsEv17DxmMpj+7V5ocwMHSIdgbRMZzPRsHj3iOwdyukw2
kIGGecoFv5+snjRlUBpk8PfIbw5yes7zuKgmg+2GZe1qmjnQMEMP28rg7XFS
qvuXgzjd9s78HxGcwt2WzPgnnc/1uwgd99UWbGpDQJ6uiXUi1L7UeXOmHYE9
KzUj4Z0Iq75Ylb9XJgq+zagWIXDUEVFXlSjyt7FChK6dcvUnqRFJDx6IMGxL
yppAdaLIx6g7IizPuZJ8QINI9XFdhHD3RQklXYnE90si/Am44dGsSaAvykXy
ORGuJFuomHQninh6nhBhQ+T30Gk6BNbKD5AtgkHR+OI1etLzwRkimLZbUr/X
gMBvLPck1AuTO0JdgSGB5Os0t3GvCE/zlG/WEALf/5YH+ewSIda3db1yLyLF
i8d4xJxQ62tCJP3ajvF44rTerg9R8JnbLMI+7Z63vEyl/Q3CRdDuN+rH5v4E
QtCBxcG4n2ZV+/SBBFLqM2/eWSuCy5ehvy4NIlK9rBbhUovPvYrBRNKPFSJo
ZWRvaxxKYMX7P0cavEXYuZ7272RBFPm97SFCO6v6k70sCdzGcCUuEqGqaozJ
qFEEVssJ4yrCyW0Dw2dYEdi5HDdwEUEvvfq6+1gCvVU27r7mJMLk4rU/11oT
mCl3wEGEG6/Vu28bR6R6ny5CQ/dCo73jCciPqzYF9bU0x/DIRALhcoG0FaGk
5EPHPDsJa40X4SwX/f7GZLaftQjHDXLOlU0lsK4gVf/4GBFWhriGvJjO8jNK
hBXTjg/7aE8gTR8ZMkKEac2nXzU6EpCX/+WhIvRyDN3yZxaR+GguQnGEpnE7
ZwJ67Z01zAaK0I9G5nV0kfLnbyrCosEVdl3mEVCRC3JvETpR/TItVwKNZdPd
xV4iuN23d9FZSAC9121PRJjDh1XqLSKK+pb1FOF2vyxXA3cC6K75cz0Rgt+U
Vxl4MH71EGFA+D9XAy+i6C/DtUVIGt3vhZ43UehfQTcRtjyzX6yzjMVXQ4Rd
h1e911pOIHEv/tRFmLEucnWXlQSwOtU3qYnw7+BmJTU/Ak/v/5q1RFWEeM53
dzt/ItWjigih7mZDWtYQqd8g9oq8Uv5tLYHW8qCPh5RFIAN0N9auI3Bn/8Sz
a9qLMH1fH8uX6wncmooet0N/L1T9Kg8hMAEJENJWBOs2/a8XbWB8VxJBfVdL
8sVwAukTz377+1eAcyPHRR7dSKR++EeAo66v16VEsnj+FmCszr0QPoqAl/z3
XQCzge+FDVslvm7/KsBUDb0zvttZfuoE+PFq0meXnay+PwqQHD5/xMQYph9v
BZgQOHzXYIFI+v8K13c+q2Igk+LT9oUAw6cU8u3jGH+fCuD92cKsbheBtnKB
eSSATWBjTXk842eZANzA8tyLe5je3BNggc65hP2JRKGffrcFyFMN3LMlmdXH
DQFkibWnlqUQ+ILtbGGhAKOH1dVOT5Pq9VW+ANYdZv83OJ0o5gHd8wKkGfw+
1u0gq/czAqhPyh7bmEFAnq7MXAF6jLL59CBTytfuHAE8/YW83CME5PSqOyxA
tYPHIT6b8fWgAMXqsjO+R4min1xNFaDx4pt3dseZHiQLUDjLzMr4BDvPHgGc
sy1P/T0p6dPHOAHiN5TYPzlNpPlHFMDK93K33LMEpskJGyNAZUtp09Y8Iun/
NgE+Hbyr6naBwDD5L0qAS4XrrS3yCTzohRtsEiAsNSVFrYCALdKhPEyAvsFK
fasvE2k+CxbAP3zJ05OFbP06AW6U7jgbdY3xI0AAg6iRl+fcIPAZwxPlJ8C7
LLPvprcIVNvjALAc8zu5v3NTEYF+8gbnI8Bkz7q3RcUsv14C1LUMP5hwl0jz
jrsApV0KZJ73CTwKQg8WCbBj34TjQ0tZf1ggwODDkX9bHxD4mokEnCeA7giL
DcUPCeA0VdnkjPPiLE3z3Y+INO/MFuC29kMttydEMR+8dxTALmHQQNOnRJq/
ZmB+2lUGfX3G+DdNAFsxpvlc1f/rnwB3I5pPhL1g+bYVQLn/o9QJL1l8xguw
urHkescaxp9xAvR2Sja6/5qAkvxnLYDHi9qzsreSvllbCTDR0jfK6b1Uz31G
CTDJ8G5Mj4+MjyMxHt4XS5/USnpz2gLtGu9m7PlMYL38hcMEELjfqi5fCMjb
Q9lgAbJuJ//r8ZXp2SCsZ7ewYY8aiGI+ChwggDjTNiP2GwF5eoP6CeBguW+2
/Q+pX9/vK8CDW/0ndvrF7L0FMH6zO+DmbwI4XRyz64V837X5TUQzq2cjAdar
Ju8e3ULAUD6QcAJ8To7Y9u0ve95AgJ8Vjy5l/2Px1RPgzkiSdEKJQlYDCrIO
8rn3oKboNlTRz3tqCzBwjHfT0rZU0R+ndhNgSJphsk07Ks17XTD+nVNe9WxP
JX6rC7C7cmTxT8QKfnQUQOnPGOdSZSr1pw4CaDT9jjqiQqEFwzNdRYBvrRfm
bupAwUpOyHYCXC4rfTBPlYK8fPKVBFCt2PplaEcq6f8/HqK7muWqqVFJP1p5
eNazs06NGnv+Dw+NYwKMz3ei0vmbePjgcOyRoE6l/PzmIeqpyiCvzlTSi588
vP9dNHCMBgW5PJ78zkPPNdZl3bpQqX808nD12GnufRe2/1ce9p/x18zvShX6
/ecLD3YW146K3ahUH3U87Auv/+qhSSX9/MzDpp1QNVKLSvpYy8PiH62r1LWp
xLePPNz8559TjVjBzw/of9wb2cnuVKqXdzwst0miUT0oHES6P3nDw57xL1zm
6FDFfKH/lgcI+j66ny6V6h/tA5aZ3GpGrODPKx4OTTv9944elerjJQ9afz++
SNanUn9BHNCuk+8KAyr1h2oemmJd08f2pCBP/7zneN/bYRzV2ZBK83ElD2PX
HtR6jlgxL1TxoLzTeEYOx/xFu/aJN8NDCJXuI894WBk8oGgypZLeIPYztVLV
NaJSfTzlwTHb+cdbxIr7xRMe0tKvCKd6sfw94uH+gotPIoxZfBEfqtp2b7oJ
lfhezsODkmWr9Xszf8t4cNqbfu1db5a/Bzx0nr76+sk+jK+IB5zQCQjrS6V+
WcLDyf8el002pVJ/uMdDvVHdS+1+FOTlXYS4cXRySnU/ls+7PHTkjNWz+rN8
FvMwQruwX8AAqpi3r9xG/wzO/Bo7kEr6gbjfh7GBHczYeW/xkP56b0apGfP/
Jg9hgzps2TuI+Ye4f9o1HXdzqrhvmN5A+y31+f0Hs/hdw/d9Ig6NiBX6fJUH
V7XRv84PYfWK9oKqBIeNQ9n5CnlwfrjWddIwKunnFR4u63Y16DKcSv3gMg9J
svToR4jl90uhAPP53PtEkgWV9OUSD81OKdsXj2D5yOfhukZY976WVJpn0L6k
0mb2Z0vGH7T/sus7+cRI9v6LeJ4Uz4a1o9jziHe9sZwxejSV5j3ExtVP3FoR
K/TwPNZLl/A+V60YvxFHnPFKjxpDpfkE8YqSWw8njaWgIx/Q8njYpl95odN/
jM/neHDRejrnPmKF/qNd52dTlmhNFfNmV8SdL689PROo1H/P8vCt/+YA7XHs
PPj87HOunx4hls/H5ojr0kfoJdhQmCQPyBkeVL9Map0znuX/NA/P5xUn6k6g
ivvpL7TXr2j4UjHhf/alK78375nI9O8UD/5eHS+72FKpXyJOMvay0rVj9YK4
jyX4PUGs6C8nePD5eXdB/CSquK9rIu4bMq797MmM74jfHihbojWFSv3zOA+T
tc+EPkB8KAkHGsQ+Fob2wlQq3UdzeTAdYV05bRqV5kO0b+1kb6Q2nUr3r2M8
KK2OMLqFWD6/fkP8+INKVeQMFk9cvzy/uyPYU2leQ/ueluqIFnvmD+IfG/f4
5jlQqb/gesu61d0CHJn+oD00M8XffCbrJ0d5SK5xEGpnsvgjDtt7YWnGLAry
7TxyUC/Fzi1uTsz/bB6GzQ6Zpj+bSv0fcZW1xdzy2ex9iKP9l/final0X8ri
Qe2Z42G7OUyvELcd1OOTkguV5jdc79jwsfa8C9N/tDv4/830n8vefwT5eSei
14B5FOTbVyJufXVg3ut5jL+4fr1PvEPSfMZPtJe+3Np+litV3E+tEA/flRmo
toBK8xvirvtMMgsXsP0OI99qzOKDFlIoxMfPIs7XbRxv7sbqAdf3uJaa+9aN
5QvtO4d6ViUtYnqRif1ri98tx8VMHxFXHatf3cGdSvMNrrfz7lqV787Og/Zg
UFLxX0Kl+RZxyK7P9X08WLxw/XRZ28RKD6Y3aDcfvqq96EkV9z0NxDVT3Mwn
eDF+I/6y5p/+b8SK+eIQD9Vc6K3spVS6b2bwsD26jYWbN5Xma1w/reTiEk0f
pleIZ955POuGD+unuL5kRJhy0DL2PO43IfF5UH9f9jziSw70WJUv6+e4vuu2
1Rn8cnYexAbjWhbCCla/uF7F4dOzBsSK+/pBPL+rj96BlVT6XoPr379K03da
xeYVxBfN81+096PS/QLXp/m89Tzjx+oT8cWttrmeq6l0H8D1r507FnT3Z+9D
e03QHOGGP/PvAA9ZHvNM1q5h/Ed7vJfVBpMAKt0/0J6aZpz4MIDNQ4gT1caE
bFpLpftEOvZP/6N0SCDTY8QOoWk7qgOZfuzHfp0+9nzMuv/ZX1kezbEKotK8
ivbAJTqeHxET+cCTxsOs3gdr4tezeQrtQU4hvScEs/zh8+Gp180agtk8gvYn
0Zl/9oUwPUf7j+CpwpRQdl70NybtyYefoSweaC9SX6N6YAOV5n/EAZkTvswI
oyAPdwzicUPWJDYjVty/cf8v43t3PhTO9BVxxMyNto4RTN9x/bojR21bIlj8
0f5vZWnnzI3MfzxPnwNdkh03sXrG9WpU1vBnE4s/4q6JwRqHIlm94vPd0xoa
7TczvUScmmSQ2rSZ1Sdi9QeGWgeiWP9FXOxmaD9tC1V8L7yJONzGetaPLcw/
xDb2h0nKVtbPEV+33HDadhurT3x/1PaabvXbWP0gVjrWYpmwnUr3M1z/ora+
j/UONq+gnbq/fPFuB+tXGN+Zmo1u/E4qfY9Be97jSVkW0Wy+QByyVLWgKprp
G+KKuU5JkTFsnsf9p1EHm/484zfiG2rkVCnP9Bdxke2bukCBxQ/jmVF9tbGn
yPQYcWrB88KriBXfHxDrZc+Z7y2jiu8jr1N5KJwy63LnWBYPtBcYfas7Gcv6
PeKnsXPfz4lj/RxxZvXh7JY41g8R55m2s9q/i/UTxJdW7Ng9cTeVvm8iPhmz
6OLH3Wx+wvdp2GXmxMSz/ob2/wO9rB23
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 593.06}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {588, 1600}}, {{7.608374474380783, 
             8.294049640102028}, {588, 1600}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 593.06}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"b) CBA\"", {FontFamily -> "Helvetica", FontSize -> 16}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.2, 0.9}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox["\"Gt C\"", TraditionalForm], None}, {None, None}}, 
          FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{851, 
               FormBox["851", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1250, 
               FormBox["1250", TraditionalForm]}, {1500, 
               FormBox["1500", TraditionalForm]}}, {{851, 
               FormBox["851", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1250, 
               FormBox["1250", TraditionalForm]}, {1500, 
               FormBox["1500", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {588, 1600}}, {{7.608374474380783, 
             8.294049640102028}, {588, 1600}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], 
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwdlnk4Vt/Xxkn0zM+RJOQ5RxQJiaRIbipTMkRoVKZQEcU3EUppIg0imUpJ
qKRRMqRISdFAkVCGQohGkn77fc8/5/pc+wx73Wvda21l94AVXuPExMSOiouJ
/d99WlnznWF/EfT+/+o1Gc6r94wOFIG6HPn9sO5XkwtPzodwd4igHG7pX90w
ZKID24HjISI4ZejMvR39w+SF+9u6yaEihPX+Dtk777dJzF1TpTNhIrRUJjZq
fBkxSeLENChGiDDFNLc1+NxfkzGPtLGUKBGuz/I+ETVTDJdVw5MUokUY5rA2
XooQxy1JmfNJ+0U4E7rOOOD5OKxRsVOROShC+aCKuYzceLCkFBTiDouQHvDk
z1tnSSjmrTokGSfCS9mAbEGsFPLivgaFx4vgP9FnlH9rAqbll7wdPC7CnDyp
owvrWKjKSC32ShDh6rIjrznNbKgf8GLeJoqwzPVp8WADB/6afZJWyWS/0bG6
AWVcnBwbH1CYIsKYeU7etzgeYqaGrZuRLkKb6+r0ElM+tNYpvDpxVoTZ5+WT
2hv5WOuS++JvpgjzMvY57F4lwHnfgdWbskTIPNbPnV8pwOQHudtqs0U48sIo
PpcR4qvXmUnzckXYNxTzNsNfCNUFoZYpl0UYsjlpZFMgRIvkP/6/qyJ49sxz
2N4jRFt0m/fGAhHs37DOlPMpNLjVOj24IcKVZ55TX0+jEGu2q1H5tgg9Muuv
9M2lIPM29mdkoQj73bp2hCyh8Lwh/0pzkQjt3s/NHzlQ2CJ1SGx+iQjGXv75
auso1Jrf+3q8TARffqltkzeFd4ldkT3lIshb6hdMCqAwV/FSvmkF0a9goEoy
hEKn6pk9SY9EeMftk2sIozBs4PSr97EI0csSCy5FURiT3jzR5KkIYg5if1P2
Udh2bdvrY89E0L6o4Fl9gIKSy/dFH2pFaOg7/8H6MAW/xL2OOi9FmBYos2tO
LIVjDlkyEa9FeN+wPTM+jkJ5RXtUdYMIT09an95xlMLCIw9SZRtF+FAhfqWP
sHPWQx+3dyKsbn8WIxVPwTvCuyv7Pcknlev6hKznDqnJDbSK0FpZPNGEsMLK
vaNzP4oQ6GccG0C+rxrclxTaIcLFm5XZG8n/PS609BR3iRC+pD5I8QgF/eLH
P8c+i1B9bbZp5iEKripTS0x6ReDkXagYIfG4vTI3iewj9WtdojwzhoLm+psR
JQMihFoUis8h8S//9ix8ZFCELG2dTNm9FFZ4jRjO+07qL6DoY2MkBcHs9KJt
P0VwUXtoH7WbQt1Oxb85v0VoamibwyX6HlJ6KfFxRIQS8Vex4TuJ/vl03ZS/
Ivhouc5pCKbgFOnmYfuP+LdGvEx+OwV2Wk/pXnEafofU8iy3Uehpk+u4JUFj
QE7O3HMrhYB+o9efJGlsqk8u2+pHIWRBzrEpLBqtS7o0vDdRoLjXFCw5NNqO
U3ttPSnoxaRvD+HR0LrHyVHbSOrn8v3U8wIaVV1m24ZI/US6b0iqpWgEH/yS
mL+awp8dlZ4jE2mMc/pX4+ZC4X6qvpSqLI0r+37clHCisDv6e7iNHI2J7Q6d
KfYUFB8vrt4uT+N15vdu9eUU1CU8BpIVafCSly7NsyL5eRrfV6pEo0RhQaCK
OYXGQslHH2kaTaFz246bUTixeSxUchqNDdMb/v5cRPSIK+CoqdIYVcua7WhE
9HjjFGoxg8YHJq/+ogGFtElTq7zVaRyL+GM9pEdh0swFP/Zp0Ij21+jS1yHf
m9g8PlOTxquwW8OBmiTf/bq/SrRplL9ye31RnULJqO+ztzo0Bm9El79WJX7L
yjs4pEvDKWQ1e5ShcCSU0eDq02gIWzg4VYmChNHA9WkGNHZJNt0zkKfQ3LxQ
dcECGjWT/XNsZClcP6gZaWtEI9D8y6810hTkM1sr3I1pLDqo0e5F/G5VHfwz
2ITEO4mV5cemUNnOkz1oSvT6eiLYT5LCoGy5cvJiGi8itI94iVO4XHdZKWcp
jW+6kfqFI0LU1n5mF1rQ0LtVm586JMRtUeynSisa4vJ1PTtJf8lXvHzn5TIa
vzValy3/KIR/2NqwluU0BEl5CxWahNhqk6/XbUdDiPHdrS+EsBm5+WHIgUb3
D/7V9CdCTHMIj/njSOOHT3+Hc7kQ1VETVSScacxd4d7OuivETCa6kO1KI19a
Y/TmNSE26Ly1EK6m4XtyVeSaS0JwGYWXMmtpTEFC0WiGEG7P7Vzl1tOoGDUc
Pp0khMvRiHfyG2icXX1sn068EE9m5q5VdKeB2vrzD2OE2NXxulnRk8aqLx6p
KyKEmBX5b62iNw2F76UF74OFSDGc2SLvQ+NoyaXpXluFiGmy2yjnR/J7Umd+
t6cQCZcCPslsIfEcLFfzWyuE7X/RgUJ/GpYnZs/57CjEvwv7xDjbaKy98jDe
Y5kQiaLNpySCaKxYYLG72UyIcHetOaPbadRlC3QdDYXwjr7/+lswjfY0ic6q
OULQs6bs6fmPRtTpq08NZwqxPG2GQVsojXMqULhM5sGsouZfr8No/M1Plpg6
RQgTcY2Kx7tpfKac7x4WCsFLGE29F0nDPvfF5t9SQtyZbxp9ZQ8Nt5W61l5j
AlxZ2/5fejQNW/GAvS9+CGAs9yzs6H4amrIupsZ9AmhpforffYBGQWLy9Usd
AiwTyN/afIhGjnyN2KRmAX58sPzieoT4OyxwZeQrAVIj18xbGkfDa7NYY0+1
AEtC5iboxNPweNx93fkBeZ5/W0rxOA3rmnT2w7sCzLUuPzr+JI3nVNI4nQIB
fL7oa/Ul0OjwdX6QdkkAs5Chj68TiT+Sg7bwzgog0nx97d5pGjebT6uEJwmw
Tu5O0rkzNAxdTrL7jgpQyAo5HZNK47arrYlbjADHz/Tc8Eun0bP3fcfL3QIY
6vX1LD9Lw/t5lLxlsAAmE1Yu0skk9ReQ86d0iwBnFX9flb5AIyVj7JKBpwA8
yzzjoSwasmbui66vIfN4gVnvi2waRcE/3mg7CuAVFF94LYdGkoTS8SvWArTa
e148mkcj9tb+fdpmAlTzjt/afIWGzgn1moIFAgzd6+iyyKeh+892j8EcAcod
tYxUCmh8qk4sLlMXwDnP4Mbf6zSuKf08Zc0IkLi71u7NTeJPxzLVt3ICGG0u
k752m8bG+xcifYQCvButGz5QSKNlVXHxHykBei/UsNyKSP+yjx48PsZHSXmo
iX4x8dOJD7qzfvIRkZGezimlkaGrdaqqjw+1XWJqrWU0kh9raW7q5CMo0qPx
ejmNG9doLuc9H5V1h2/vf0j6o8mdJdde86G4f36ZSyXJT6tK76oaPrpytb6r
VxF9GRlqQgUfP6w0nIcf05iff6Pizj0+rLz6Oh9X0+hdVCi/5QYffaNzLyTV
0Mj2WE2r5vFRJyw97vWchpLrus7WTD4Opy3J162jYXeLCss4w4fOpei/Yy9o
fJd3HHA/wceUefq7q1/RcH6QYK9xmI8kx4mzT9XT4Es3Xf6xh48nk17JuL0h
9c8qla4M5cMiSVtTvZHMq8IdsacD+WiVeLfzaxMNmaRnM7f58mF+LG7kTjPp
V/X6P5dt5KMmaqQgooXGtLSiv7NW8SGpUZ+xpI3kw4prQznwEThUW8H+SONu
bNiX35Z8THdKVX7eTvx9RLKnE3x4tvTcPt5Jg9u3zO7NfD6WGmze7/SJxoOW
lBnPdPiwVKqJm9xN4wBnILRKnejhc6/uTQ+NHdF9Kx4xZF3QZXv6C42TFweK
nkzhI170m+XaT/zx9V/RC4qP3Cep/yZ/paFd3bymhcXHHbcIvfpBGrnmI1kD
YnwcW2GedeIbma/N0eckh3mwN0hbafeDhvHE9c7MIA8vqjSWcn8RfUTqNSbd
PKh0nNrx6DeNWTHGHM8PPNIv9nVEjdCQzr4jF9fIQygr9ZThKPHf4oA/RS94
+JIadfDbXxoH//691/eEh59v60vy/pH6f17mNv0BD0/n0ykFYgwqgl5/2VjE
g/N07eFYcQZ+zxnf89d50FzoM7xpHINz1vZN3bk8zDmrlGomweDPzIal+ud5
qOGnf5g6nkFcff+1/Sk8nHo3v/onYfdp55h3J3kQ+7PQuU6SQVJ8WbJ+LA+C
4d/7c6QYmOzuZk7t4+HbWNGqvRMYLFgbWzQczkPZy7oXq1kMNN50+HkE88B6
e6Bfl83g7vd/+i+38hBLaV3jcMjzesW0uTcPTVP5ch8Jf0mrnlW2noehhTtU
7nLJ/t7lrzN24eGz/dX6eB4DmwWVhffteNjfKKXtzWewPmcBrCx5+PT7seZC
AQOriom/GsDD1O0mL6WFDCRKtdp8F/Dw4OpN0SfC0q4YE9fl4dytoInFFIPS
Z42OGRo8WOg/vHJMmsG/Io92UxUe0iIHvnpOZMCMTcvvVuRh7xE0z5dhYJ8w
/27iJB42/hgL4E1isCgwU8KKz8Ojf0GXWwk/d1h4TEyK7P9kx/Hrsgyow/c3
lIxxscUshdk/mcGJ549DIn9xcXpxi6uLHAPV4eevzL9ygZ3fDWdOYaDzRCtU
ppuLWX6qVSOEb2Uo+3R+4OKizc2/T+UZ8A2enCtu4kLmb3dLqgKDg84z1JJf
cbFDgrt5qyKD0T2i4V01XAyfWJtpPJWBR1bYFPdKLmIOq+znK5H8FX/Zb1vK
hXHwBZn3hJf/J2WGO1xIHlGxvSxi4NK4eLnBNS4mFXTMDaMZrHgjdUkvhwv/
XbMeWzEMHg+cXqGfycU2dSPWFGUGH+/PWr4whQuHPOcfnYRLzzQmWSZwcTbz
fvyNaQxCBBd1V8dx8XzdvTdRKgy+hUYoBcaQeJoPPluuyiD1mKFrXCQXL2r9
AhWmMxhsS/14dSeXzJ3Mh12EZ7g4FtcHcsFfHlhxfQaDuuJfHeKbiT4Fcjsi
1Bjc0KfW6nlycX1Rw0srdQaVd4XKfuu4GFDua5s0k0FQrLPeRWcuhgxT01sJ
zy3QPfHJjgu2SIWXq8Egdl3bQm0rLuZNKp+5YxaDQJ/DurvMyP4Ub/0y1mSw
8I510FMjLmZ+Ng6ZoMVg+iWNP8r6XGS2J2fVEV6zS6VmtzYXEdoTYpK1GTy9
IepoUeNC4+xDOffZDNL2/TRdqkzWq3hrNHQY7FQP6bimQP7XS9sPEU5eurpa
eRIXazmGv+7OIfpaOQwl8bkobU6y36NL6qvyz2qZCVw4vwpea6nHIOzhl3EJ
YlyUTaEUhXMZqE/L/Sw/wkHK8czYesJiXZc5Wd84kHzvU5Ciz6AlbuMm/T4O
RpzSD22cx6DTQ/1vdRcHFYIIWTUDBh9qVlZ7tXHg8c5s5RfCrad0n0k2cfDL
Qs2qYD4DNkYl8l5xoJHuNRi8gEGDdeeWlc84SOgwsDU0JP0iXFZKsooDldY3
bmOENWfmPrt7n4O9wsgZD4wY3P/vdvn2Ig6ibnln7l9I+sHFxW26NznYWlv1
ytKYwaZlDmq/rnBwUOFdEXcRg3Wn6xPuZ3PgKtPo8pywQVLJjPhzHMj9HM49
ZsLA1bevyT2FA35Z8M0VYDAQjXyjUxx809i3Y5IpA73eQ+fk4zlYeWdtbz1h
6y0J+aMHOejLnCefZMagt37am469HLD6LcdcFpN6nf1V9mU4B+9XV5+ZsoTB
nq/5vhUhHAxsHex/S/i3rqDu3jYONvl/Hzm9lMH17nzzQj8OgrzZZa7mDHKk
9Z7e9ST6q3gbTbFg8KBde8399RzMMMC2N4TnSs79/tSVA9+fNesSLRm8v11z
snkFB2phpuNXWhH9JHYbDNlw0Hn+pYeMNQPLvgfNPAsOrCbdCn9B+EDy5D2a
puR9fSW7+GUMosN7lB2MOFCfZ/LOxob4PzqveJc+Bwe4dsqc5USfReW2ObM5
EAuMUq4inD3haH3zTA4aPks1R9syuKoZYCurysGWYlkH2JF6kCm5vULEwenR
1qhRwk3uT7mnpnDwY8/pzYX2DAxVuq2bJ3Jg0BcovcOB9NNPGwLV+RyEZ6cH
zV7B4GvvzvDQCRykfrSP7yE8ZdF231pxDiKSizZlORI/NMbpa4yysfEYf9TN
iehXM67l0E829FaG2SisJPo4szb0f2Wj2UR/1WvCqhNeFLr0shEbtGXaUWcG
RW1HOis72eA0OVyycCH7DfJsn9/Gxjjtyb1irgx6hvfmX2tiw2Gwu+cuYfcw
noVWPRv2QX+zg1YxSPg4LftqLRsqT6OmzVrNQGtqZ83cajbGPpxf3U5445yA
W2UVbIT6JtqnrGHg7960zq6Mjbq2A+Md1zKIh/HD9rtszE3IDuGsI36vyvsY
fpMNKk01u5xwUrDBXYV8NlZ+1ErcuZ7402tgcUkOG8VThhbPdmMQ4NkW6XmB
jckPM651EjbnyPpRGWwc0fVqTtlA+mHtqX/3k9n4FLOtymEj8ct0X+OQBKLH
1YHACe7Ef4dOMjrxbFj4UM3FhKOS5S72H2JjF8SkgjzI+1o/qwv2sRGW8GVg
hieD8z7asaGRbCw/Pu7MO8IaT0u6lu5iY/bcgPHHvBj0W519MzmYjY/WbrOX
eDOY6Va35ksAG/3b/yn8JhyjZLHtkR8braLwqrxNpJ7MRqWzvNg4FCuu7+ZD
/GrRZXxwAxs2tfc8JvoycNsx8jVgDRsrnjY4VhJuHNBUX+vMRu28CMmdfgwk
67a12TiwseTM+50amxmMaBRONrNho8SeudpMOGfG9yojC6LnwcCso1sY/MeS
HVxgxoai6eh6bGUQsYQTv9CYDSn73qZBwuGxD9IXzyfxr/WVP+9P9G2ZpWSn
R/T7cFbBKYDBuxN6E9y02bg3u7hl/DYGD/0erdo+k42zvp1etwivTKuTjlUl
6wfMr3kFMrDoNNbModlod2aXygYx6IsbzqpWIPrsdImvJDwuqj/sqywbuZ6r
VYO3M5hlOyFPQZqNRG+j3ao7GMwz1dax4rGRcVblzCvClOdyVvgENs5wFobt
DWYQGW+rc2McG/5BV5g5IQxOBitm9f9lwT787OFWwi2X0zy0h1kYzjS+G/cf
A697pT5B31n4YHDlstFO0g+VfQqKBlgI8ZDz6iac5RFtOKGXBcfpFz4mhjLg
Th4Rc+1iYadT2PQluxjYdd4Sv/KBhciMCq1BwsNnzy6Qes/Cm9jsP2lhJP9L
LmR5vGXhx65l8dbhpJ+PyzOrfMVC3Nk3n38StlqWwZ9Vy8Jj3nbW+d0Maho2
S5yqZmFH9pJ+2wgyr67+YSQesWA6Z/uZEcLz9A09gstZ6F88nX8xkvQ3bZmq
3mIWolbsMXeIIvP5SZCVdyEL/+VcMR8l/Cpr6aeOGyz886/jZ+8h9fl+Z9qm
fBZmnBemOuwl84w74tOfywKHOT74h7Cp0x3z0IssUGd2CS5Gk/PK1gw9ViYL
smcHh+z2MbiZeU4zJY2FjBTFjGHCoa1XtHWTWeC9UJI5v5+B/M2b854lsFDt
pmRnE8Ng6bps0y3HiD5mJo4/CAdX/2cjjGXBzO4SnX6AnH8uTHG6fYCFCoPd
N80PMpB13L1yYzQL+w99lB4gHDX+zHIqkgWxq6MGSYcY8K57LHi4i4WWnoEZ
JocZ3JlRJ7srhAXGva2li/CD8Q2tc4NYWDFxyO3oEXKeerol4dtWFgobLHP1
Y8l5912szm1fFsI2sUqbCddHzi4I92Lh7SqnlOg4ks8+WxmLjSzYMPZmGkcZ
FNt0OcquY6GSQ9+oI5xRMhjwyZXky7yjLySewf41/p4lTixktT4YmnqMwTOz
1dpJ9kSf0vflDwi7nrpZvcOGBfk8lzU+xxkoRO6e52zJQrm1Yxn/BKlPw9v+
RktYKFX+1ned8GzZjdtUwULjiVWfXE4yOLR9z3zphSxkt17KGyWcWK9YIT6f
xKMuYXQugZzvm/Spn3oslGw9fGrpKQZlSxvk+2ezcD1uw71uwuViki3ds1gQ
WGRfjksk5z3m6apuNRb+B+u2UF8=
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwdlnc8Vu//x7nPPYxERmScc0SDlIZNvMhoiESoj1KKNKhkJLJDQ4iSEQoR
bRWFdpIGlSYhqWQkFJH4Xr/f/c/9eD6uc51zXa/36/26LlWPHSs9OUJCQkeE
hYT+73/q7aayYV8aC/7/12U2XPJ6U/QuGqrXTx0fnvnTLP9xXqC4Pw3roz2n
wiv6zebCrjc5kAbz2kfK3P632QuPd/WTg2nMu9xne+/TkFnsDXOVjBAar0+q
zJHbOWKWJhb7RimMRv7fikl/BkfNxjaeHMuMoLF8Z+qNfr9xs3PqoWmK0TSu
vJidp/9TCNd4Mnlp+2kkly0x+qbCwX9q9moy8TQebSlbUgEKInxFxYSDNFpv
a0j0OnOhVLL6AC+BRs2R0uqadTyUJPz0C02kcVF7UXiGMx9TL1a960um0V+g
4nTXRIBHOVmVnqk0XpjqKuRJimBmnCf77jiN8gENFD8Tga9WD29JOo0mB/1Y
BIgiZYy7ozyTBjUjRefmmChilUPWTs+moT1w/sGcLWKYvVbx1dFcGjEm/tvD
S8Xg5lL84t9pGr6DpWX4JIa8Lb1rNhfQyPBY92HhHzFMvle8s66QRmPcxUHb
f2L46Zkhq1dMI0tQEeP3SwzqhsGLM8/RuN66xESIzG/mjUuMX6Dxd2Hc6MWH
YmiNbvXacJnGevuQqRX5YnjjXud0r5TG1tnnrv0IF8Nhi73vVa/TWFU0/3Gl
qxhk3h0eDC+nEW7I3bxsrhiev7l4vukmDdteOcdIgRi28w8IGVTR0Elf1i3V
Ioo664qfybdpHCj9tiWyTBSNx7+Gd96lYd+2+bxesih0lIoumj+gcdvX50PQ
dlF8Uc+ITKum8TQ7utV/iSiG9Z2GumpozJm6WGXZTFGMTdombfaEhtOsYgNR
UVHsvLSzIekZDeOYHNcrXSJQcfll+qmOxu/g5w9RL4Ktx6Mc576k0Z5sIF90
XQRJDgUyYQ000v2/DL3JFsHdB58jat/QyJzXfLw8XgQmh+5lyb2nsctyR52u
vwicC+57uzfSMDPOlNPbIAKvMK+vhR+JP2ta5ubai6C4f4Z8bwuN4tb2Z2vM
RKC4KmpUp434U2v1D9u5IlAP6EkLbqfhdk1x4bqpItiY39xZ+ZXGwZD6ZUFy
ItCtrBkc66BRq7XoVqSoCFzVlKvMuoifhSU2e48J4P7K2iy8h8ZAz0lX+V8C
aK27GlbVS+OO7MSekE4Blg88Cx3po/F16uPqmE8CrPQcMdL7RUM+7s4T1fcC
TNTOvrlzkPhbKFrZ8oUA9XuU/p39Q8NP20Wk+bEAB1ReUm0jNE5MMRtvuyfA
l4tMvcI/GovsT0bZVArgFO6+0W6chpzVRDnh6wKInuy8FSXMwH68Q4N/SYDO
Vvn2axSDydvuyNoVC7Djh3HDNx6Dc6c0huvzBQg0PJukIMJgUtfwzbgcAaTE
LykuFmPQGqXauy1DgAWx2bsDJzBYkW7yLOiYANvP3cnKm8igQK1L9UySAOEe
69PqpBgsG/9j3n9IgL/+DzeNSJP5WmvGXOIEuJOly1eXY1AWN3LiVZQA+6J/
hdrKMwj4b+3NDWECKNUsqt09hcGwJt97PFiAmdTG3nQlBvsm5/09GyCA+pPE
nlsqDMJVexXddwnwvpxX3cYwKKyyuKTsI8DRbWPBvKkMbG49+tzqTfRIuCw2
Q53BrZXWcsWbiB5vnYJtpjM4aB/xJnC9ACdllR95zWSQEyT11cpNAFkNw98x
mmQ9Tfc1J7uS90k3cU9rMdi/dePFr44CuP6YP1Q1h4y/bc++bi9A1eiWZ+/m
MrhBj2D/MgFkCkri++czaM8cGnSwEeBQMKsprsvg8XJRQ+VFAlDGvVem6jMQ
N7mU8tlUgKYmE3VDQwbb+iILCo0EuBKvFW5nzGCOhbqKt54AU063PPBYyOD1
1Ygy9fkCLKkNGAwwY7CyYZbpx9kCPPw8QS7enIGj9dj+ZA0B+uTuqqYvYhC5
o9XHfJoA5+rPqZy1YvBsed3HblaAuroO0XIbBt1jc6pTlAW4Th/+9nAJg6EP
+YyeggAXlc6VvVzGoOSQRvcrGQF8Q9xCmpcz+CDWaOwjKYCP7cUF3+0ZfB6o
fissLoDtyNVP/Q4MYlOynybzBZjqEBr715FB4vJ4DRWOALUR0mqUM1m/5LPx
vH98aLDR5aKuDNJjEjymD/Oxfu47G8k1DFYFhHnl/+JDnFV8KePGIP9liSr9
kw/35/au8usY/PtgXpLSxYfLkbDGKesZiLX+p8T7xsdjjWI3JQ/C894d9Gvj
Y297Q5PSJgZtZXNlmj7yMSt83E3Ji9T/o8tz8/d8ZBppNE/xZhDimP4mr4GP
2A/2G+S3MrDeEGbNqecjtWjHN5ntDL5svmaw9gkfdkHRuyR9yf4tRx9dreZj
PD9GSGwng/EVEpKi9/g4Tm87RvmRepQdmbmmio9Qj9nzRnczcP9GaReV8+EV
fadhIICBdPcdk4FSPphZCpGdQcQv/i3bjC/ysfzkdP3WYAapHrpvIorJem82
DTWEMCi+bHvsfgEfZsKaD2r2EX+kud2jTvExIXU0qyKcvP/aokDzLD7KDMyj
z0cy8DCPfhyaxsd5t89B2dEMfgqMG64d5WOh/LOQI/sZ1GlPv9CdwMdsrW+J
++IYfCw64at6gI9lE6dc23aAgeT8fVpOMXz8/rS42/UQg9p2x7GYcD6ywv/T
s0pgEK87b6R0Lx+WgTqpcxNJP/5XpfspgDwvcZ2vlMxgh7RO9YRdfOgsvXuE
m0L0KNl0R287H97durN7UhkEbbhi4L6ZD4vA/raG4wwMu2QXxXrwQWs1XKo4
wYA2nTJQspaPtfJlaacyGGiEt/1X78pHuUjgidgsot+UWUkDjnwkZ3SWbs1m
cKHf6rScPR9GC3o6l+cyOHCHyddbSvQSrDKde5oBfFDobMVHrtKfC5PyGVxP
fVoZAKLf4pKF/QUMcifG/U4x5mOyoUXXi0IGvvtfbrisx4enX2L5pbMMGiaX
Tno+j4+WFZvOHClhkPW3TrZTi4/aCcnXtp1ncFknYC9vJh/9Fe1fbS4ySDE+
5sCq8XHXcbax2mUGmVdri4xoPpxL9Ev/XWFQqbrmiNMU4pd9dfZvrzIIS10g
5SvLh/G225MuXWegs+6XcZwkH42j9cNx5SSfqjroXDE+uvKfirjfZHAyXqK6
nMdH1d1gM91KBtSrSaYvhPgIy8nOFrvFQD3RNeX7Xx5m7BWa0XKbQajmyAvh
IR78wje+v3KX1EO9mqfYz8PD+oPX998n+8m2NJrfw4PSfoPbLg8Z3O8o27u0
g4evxbN/zXzEQJ5Lv/T4zMPvJZrOwzUM7qrOXxbSzMMSz54vNbVkXNH3Z8p7
HnpGdfLTnjJY8FH86bkGHuolbyV7Pid518TveFjHw8GTlhfn1zNgd6jYtdTy
MLco+t/YCwams14Khh/yoKCnu6/2FfGDqQ8tc5eHNEdp7WOvGVTd+Jcxu5KH
x7KvZNzfEj82roldXMaDTdocrZnvGVTYT/u+8QoPLVTjnp8fSF541zwJP8+D
dVLCSFkTQ871EL2sIh6eRoxcDmsm/W5rMe9GHg88zdc5lq0Maq713n+TzcOu
/roHom0MZi2eNvgrnYdpTlmqzz8zMJ+2qk7mGA+bmjuvJ39hYNZzz3lBEg9W
+tv2O31jIPMsJsXxEA+LVZ4mTP5O6h8bc9g/lujhXVH/tpNBk1/E4uORZHzi
V7sT3QwGwyY8Lw/lIZH+I+L6g0HL1BS1piAeih9njU/+SfR0dLYX2s1DmXvY
gtd9DO5t3+kyzZeHpJXWBUcHSL4qvzZftoWHFfonV9n/ZmCAlbJ+m3h48UjT
SnyIwZ77SQ3p7jyotR/zr/7DwCVILv7eGh7Ji5j2iBEGSl/MdbpX8RAsknXM
aJTknfKq5skOPHRnRcQP/GPQG7L9kIUtD4PvXleVjDNICorBDhsenhgwmZeF
WLi7BHNOWvDgPG3O8GFhFpa/BG+eLORBy8R7eDOHRdKO57f/GvAwL1cly4Ji
EffV9oGWDtFfIvuTMpfFK9Wv39Zp83Cs0aB2kPAwWucc1eRB6K+Jcz2PRccG
z5PV03iYOPxn/1k+i5uWMfqjLA8DYzdXRwlYlHbNFV6gzMPtl/Uv1oiwOKVv
NbZVngeRd3E/5ouyKIqInJ8vzcNhqdmXxMRYHJ2VcKpZgocPyhLybYRvGg/Z
KYry0G/ir3ZDnEX2Jz1TFy4PHSsuvE6cwGIB/5zfsXEu9r/nz/GSYCH2Kqe3
YYSLb39qtEwmslitb1UuN8iF8m6zl5MkWYxuuVHn0sfFvQtX6W+EQ7y5hpnd
XJy65iddKcVCa/eUoZZvXNjo3j+fNInFvti3E6Z/5uJkeO/PTdLk+Rei+3ya
uYg6hCYDGRa5Gt5Lr7/nYsPvsR0TZFkIh6YFCb3monrc71wL4VZjTYFtPRf9
Ke3JV+RYVD3P/XviCRfbLTLZ/ZNZfP+9xeVbNRcnFjW7usizuK77WVn/HhfY
88tIQ4GFldFqu/gqLmZtVX80QljcSOTHh3Iuzthe/fdkCotJzspjc65yIfPv
e3OWIgv+n8sRMRe58KfEt/kosZgx501QYzEXw0fdTi9UZiHJi/uy4AwXsQfV
9kuosNjbUvok4RQXCwPyZT4S5j5dqPU9iwveITW7czRLfDUkYn2CC9nL7Toh
DAt1r8KN+Slc+O6dVbOEZTHgzzXlJnKxc6axiIIqi+jBG+meB7lwKHH+/YWw
vILXnpr9XOSevpNYOpVFWUJGo1YkF8/XVryNUGMxrbHpwdFQsp+m+GfL1Vmo
Zp7RHQni4kXd1l2K08h6H3pqb9zNhVP66ftfCQv6Qkuf+XIhsXzXgyvTWThl
LLpvuJXoc1neP2wGC9/1/PWFnlxcMX3zcslMUj9rwaHJG7joVe1pldVg4dG3
zyrOjdTDKCu7hfDq9rSkYRcuRGm1CcWaLIwq9/j4OHKhJ3tXw38Wi/+2GH1s
syPrU7o2tFCLxVTvntbVS7nQ6FgYKJjNwu7PieCXVlyc/pxeUE94ZKVxka05
F2FzBLHpc1h4tTz2qTHhQjP3vryHNotDXvOeWBmQ8UcT/tOcyyLCyvnugwXk
e13Min7CVdmyDlbaXLiJGQ3dmMdC/yBCHmlycaspbUXkfBbbLc9g2XQunF8F
uC1ewGKlm9jpelUubitIKUnqsLBo1ch1UeEiM/n04deE3x+4adyqQOr50fty
pi6Ldx1bA7bKcjHilH1ggx7pl4S25YOSXDyYGCY3Q598T/vew2hxLjY2Wqzq
Jjzjfd5HaQEXQzYzllw2IP04Qel4HofsJ9uzL8CQhUrn1V7dMQqp7fp2RkYs
mFV/Oh8PU1Brees+Rvj8FK94998UoiTDp98zJn6TDK4Z/Ekh4prX6f0mLBpM
zpQkdlPwqXv0avFCFpf+uM3X7KAQr9h4U9yURbe4YG31ZwquMu9dnhN+80JE
a1MLBfnB4eIkMzLucjeHaqQgcTvg6kqw6Aw9WJ7/hsKAZoy/rDlZj+SNQJuX
FFaVuXW9JizTmfWh6xmFntN6U9IsWITLRLYnP6Yg8mPxmMsiFllvS1INH1L4
uKY2Q8GSxbP2dV1tdyj0+vT9eEf4rNfbjoRKCpt9f42csGLhydolGJVT8PMS
ve1qzaIgduhdRymFTDUvYwUbFjfeUU9PXKQwXR873xJeZJjjtbSEwpbBp2uP
Lyb+qe4r+neGwowQc+6qJSyaLjEpV05T+JL3cqPMUpKvjkumbcmmsET2WugL
wq1LD7mrZpD5uir2ictInsaNmTceozBTz6zR1pbFz83lT48nU4gTt1cVW84i
sLZ23DGBgtCuCNVHhC3ULBulD1B408FvirYj+idqu7+KobC9Us4B9iyudqYe
OhZB4cRoS8Qo4dTmPetXh1L4HXliW/kKFiLDTR/pPRT0e3ZN8ndg8aTyNvV1
N4XQwmw/7ZUsckqVX17YQSGrbUViJ+G74d2Lg7dRCEu/ubnAkZwf3ereVpsp
bEiSGHV3YrFE+Ia2zEYKC1aF2CquYmEgkZ7Tto5Ck5nu6gbCtyqulJWuoXDY
b/vUI84s3qr2BcU6UxD74FBk40Ly5JlJ65qVFDhzJncJubIofh3yc64dBYe+
7503CGd+TS4SWUphhd+/Qr/VLGxWrhdpsyL+fBIxddYaFrRKtWSVOYWxT3lr
PhN+KZ57K30hheAtx1dk/kfmX6qR3WNIob41juvoxkJzj4K0qy4FndTCQLG1
pP+ue143nEdB6qR64V3CW6/ECKvMJn5rm318zzoWG0ttBoQ1KFQq9C/Sdif+
Eg8/1KFOYfL9nEtfCPuqDz+uZykcmu/ZlLmeRfCBqAs3lSl8i935yGEDi3MD
XwzOKBA9LvTuEniwmODU7Z0iS8HGW6qpkrBls5tplBSFvRDi+21k0Sv9r9xv
AoWQ1O7e6ZtYlDxOerdJhMLyZE5GI+EBow9ZrlwK2jo7uEmeLCpEM3h2QhTa
lrprW3qx+GCbKG01ysGP3eOKfwgbnQi6v/APBy106KOSzeQ+wJNUMPjFwYHD
wrru3sRfplJSOj85sK2r2Ci9hcW6KJ2Sed0crHzyxvEh4fTLC77P7eCgTi+M
t2crCz2nB4/ntXNgmfFxj+Y2FstPZ9rqtHJQtYK90ET41SGfXQZNHEjF7yo4
sp3s7063vuk7DpTMR9fBh+TN9docqwYO+Cu6PvQR1r5SVmRXz8Fety1T8nxZ
VD/3WLn6KQffPuUqOu0g9wvO3izPGg4qtCubuTtJP80ojt39gIPcLV88rxFO
4+RIRd8h43HWlzx3sbC1oYxSKzn47Cx6S86PnGenIjiF5Ry07XFJfEi45cbt
LRVXOSjetEY9YDcLcxPvHS8ucXDcy3ifuj/x+0dW5vs5DnJy1TJeEY7wSHTi
nOUgQ8wkJCqAxdo81wUqBRz4+p1n5wWyiE9hLxqe4mBFaO7BFsL9VgcfuZzk
YPj0whsJQSxO9+uHBqVz8En//DnjPeS+8Lf26YljHARulPf8Tjhk4HN5RTIH
jtPy244HkzzKmYrWBA72OIVMs9zL4sfYNA/+QQ7Ccx7M7iPsYn+YnhPLwdvD
hX9PhrCIlBrwd4ni4PfeZYlLQ0k+iw5tigrjICH3bccg4R+2Oj8u7OWgZsJu
kbx9JC8XWkt9DOTAv9Dyh10YC97RR7UTdnNgPm93xgjh8tUrVUx3EP8smiZx
JpyFsVCEYNc2DiJWRlo7RBA/OHyPL9jMQdDZ89ajhKeHTT/VuJGDcd96icJI
kgd0nb3Meg6m50lmOUSx0NXbm2rrxoEYm9z3l/BBw1u+ca7EHxl7J56JJnk4
cV7zfScO5HL7+u1jWEDGu03YgeifqZQzTPiwyp+95ss5mPBCRSZvP8nzyIDC
qCUc1Lqr2NvGsvCX9d/80IroY2Hm+Jtw7Oy4m6IWHFjYFzHZceQ+VmKea2/K
wQP9fVet41nsGNJVSDPiYP+Btkm9hJ/wBlVb9TgQujCqn3aAReh/MlWaCzho
7uydbnaQ5LMk8z1QmwPWo7X5K+Ejz88WPJhF+kO63/3IIRZRTYv6ZWZyUP5m
cbHuYRYrFPY936TOQchmkVtNhIf/tRuWsRy8W+2UGZ1A7rtnxXTEVUi/sSss
NI8QP7wNrVw/hYOHYkxpPeGi7scvy+RIvazbewITWYz9DA+UkuagoOVev3IS
i7o0rcKtE4k+tz7evUc402ztpmoxDqaUuPznnUzOq1/Z59UEHNxd6nhb4ijx
x+6wqCiKg1uqAz1XCO/UjG9rGxfG+6Orv7mkkPqaLH5mOSqMwpaiklHCTZFL
LYr+CKN8JmV8KpXof1jRXOK3MKp8Dh6zOkbuD4WLHu/uE8aVhPUV3wn3fVjx
obFHGBNtCs8lHCd53vV0t1WnMP4H5r5D2A==
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd1nk4lU0UAHC915ZosWd5Z0SoaLNVqnuI6GuxhFRKEtFOUXYtIlkiUQhZ
UqikxEdIFKGsoZItUnwSbUh8M91/7vN73nvnnTlz5pxR2HvU3IHh4eEJm8bD
Q7/nlbTljR1hQePvZ4A7lvl631kXFqJ5S75UMV+5qS9S3GecYKG6xrlxlfkI
dylsGYpwZ6Ho/dHptqHfufV7W+skPVg4tLPpzbW8n9zz/+rJx3qxMHzy6ekH
DaPcGKHzzbK+LNT8vvVgdcc4d9L++mScPws7R1d4vm+b4GYpecfInGUhnqNx
43LVJDeXTywlJoCFoeiVGS5beWCnoomiWBALMuFreCd1poEgv4xMaDAL1z5F
avTPYUA2c/sFvlAWpteaz0edDGSGfnX1DmfheWOQgOcNDsy7V9Q6HEHmv/Gf
nDoLXqhIjH/sEMXCXZd3b7+N8oJqoANujWZBPcte714IHxxRG+TbcI0Ff9Fw
98qZ/HB5kvdofhz5f+Erqy8n+eG8nNcu5QQWwoymL4iu4Af1XTKNkUks9F2Z
oSfwhx9stmXU/0lmIdVrZP0sOQFIcR7asT+NhcTOHA1YKACSTzOO1aaz0GwU
V/x6kQB8dYgV185g4Q2PwiC/kgAorfQwjstiwXuWeJWBhAC0802JTN0l8xnQ
2HBgmgB0nu10tLvPwp1wy4zOz/zQbFtr8fQBC6FSFwQKa/khRN/zjcIjFm7M
KlKpfsAPYq0hP/3yWXh0w1X7fjQ/vGq+d6etgAX2+bSkvlP8cIj/As+KIrKe
jzf4anbwQ+36wq8RJSxM7dsx7eZqfngX/dGvv5Ssz6/IIIvlB03ZW/f0ylkQ
etPnKTiNH3qVYk/HPGdBIm7l6rcf+GBMx+LXQCUL6a6pW1ZW8MHknIOi3GoW
jny6t1snkw+OZR9ruvSSBVPtjeZd4Xwgv+372q5aFuRVuVvAjQ8ORJ/ZurSB
hZzgbv8dO/ngklmamG8TC2oTok809PmgtPyDf1UzCwdW/uF9tYAPVl98Gi/x
hgXBK7deLhDlA6u0Mifbd2R9ccYH1v/mBUdfx4/p71n4ofBh1bxeXsgYUZEa
6mAhu6C0s6CWF2Qsz0xodrPweuZWR5FCXlByG4zx6CHz9zhjK5nOC/ap7f2P
P7KQNCjO23CZF7QeV/6c/ETm58g1XH2aF6wV5Yq4Ayzo5jh2mB7lBdvG9Vy/
QRacZcqdZuzmBbXdD32LhlgwOX9m1/7NvLD520vv8WEWHOMrF+xZwwvmDuOr
tL+zsO2QyPJhdV6YuSSh4NhPFi72THsrgXih7pTsn9ujLGwf2Bj8YjYvXJBv
4HSPs9Azvi5XgMMLvfdQnfQfFiST37+t/sEBCz9b+y1TLLgtbbs45zMHpl/v
Lz4zDcFN5uihpjYO9HdK9eRyEPxx36Q9u54DR7/oNvXxIWju213w5BkH3Ffe
viQtiGB/j1h3VwEHZs/IljEWQlAQuTP7aDYHNM4nHHcXRvCk1V7f8SYHDmU9
iU+ZiaDRYm5daTwH/PbuiamdjUC+yT3L9zIHfp94tm9cFMHD6xmG14I58CRe
i19JAsGtt1LzZ57hgM/Z796bpBA4Vq8ceuPBAdnKdVXH5yJYpnzYfsyFA6oc
+6FrsghOLk/d6XyAA0rV4YPF8giu5grWKNtz4E0+3/NuhOCFVvjTxTYciDw4
6cE3D8Hc9z6OvpYkHqH3hVSUEOiHff4lakLi0WLhYaSMoH76otrPxhy4Li5X
4aiKwHJ4sw3POg6IL1j549xCBMXGXsoWa8h4om28yWoIQj33VHfrcMD6y/Jf
RYsR1G2Pmry9nANFE84vW5ciiO8fD0pX54BYWmbQyHIEb4dVjd+ocuCiB144
QwtBMqpUX6PEAY7uUM48HbIfxyfW1iMOtLWtVlq5EkFOQ/Xly7IcyAlS89ui
i8D+WJDVGSkOzE3uKN+7hrxvBbcsTowDG6rcfrpxEYg8WaTSPosDzz4ISwTp
IbisqdlpJMyBYYlShWvrECjNcLVpEeRAVl2W/G1DBP5TdXMv8nGgtvbT9Hwj
BB7Kb9PsGA48YkP6nm1AUBHSfX37FAP3ZLPyGjYiOCCql+0ywcARLxuv9s0I
7jzvSro1xsDhTfc0Ppsg6J06Njrxk4FN4w+7RsxIPkVVhxz+zsA8M+/zv7ci
CDKtXjM2zECVv6gixwrBhIXNj4QhBhbgs/nTrRG4P3VN3zXIwJ6lrUazdiAQ
bPxspjnAwAws0yBmg2CJxtYJhc8M2L4ysZbajUDxUmHe/D4GtoX5vpu7B8Fq
xilhbS8DLxZk2MjuRYCmwhoPfmDAs6epTXYfguvPZ57N6mJgkd+Ujawjyd+H
87qmOhiIW7Wgfa4Tgle+0gsd2hk4/9bETuoAAicp/uR3bQxE3TraJ3YIwfRi
/6i97xjYcvKsy6wjCPbEWFqMvWFgKvUcj9AxBCoiBrqJrQxEswevcFwRdLEF
t7e2MOC9V33ZxHEEzx5H8ks2M+B49knTNzcE+1Y1F/c2MYAWSZ/uP4lApt3b
8GkjA5uvK+t0epD9CtEQy2wg8y1o+9XkhSA3cN7NxHoGuNMWllf6IDDTe3Q6
sY4B4aiJ+EI/BDtUDizOqGUgb4Xe2TunEZgeurKy5BUDd2w+nEw4i0Atd6VW
+0sG1ki99AoLQHD3RmMeP7G6Wl+4TyACCaxus6KGgY0z5+YevIAgymdZqWs1
Az+6jP+zvoigXansQm4VA/F+O7UNQxGsn4i04SE2cNeMWhpOzrfl2AfzF+T3
Io/4ZSPI+dpd9zKrkgHNf0rDeC8jUBU2rRYhdvpPS30wCsEHp4FLbhUM6LuP
dDdFI9DmLmn+8JwBVq0pu/Aqgn6xZEtr4l1SeTE3YhFgu7SahmcM5Au6Xz0f
j+CegPVvc+KI2P4HBxIQjPZ7pLaWM7BKY7B/cxICJss01J6YK2C5dmky2T+P
UJ9vZQwkyY7enZOKQKBPgxtELGycuWYkDYFs9ekEBWLJlfoD9ekk/4RanUue
MuDgGp6ffZucP4tUFzviDtN9N8MyEZg/3xgkQFwlHJF78A7Zv72SZ+6XMjBS
2PPR6B55/y5ZLVvi0q3quor3yf+1F3vMJrbK1HnwJweBUESNyrMnJF98ak1a
HiKwrhCW8yHWPVgyJ/sRqZ/LQ5evIH43UTcWmI9AAe/b8LOEgYHUGkHbAlIv
nGZDHnFRqQdX6zHZj8wDvzyJfRMTEoSKEUzKx5jpEat48qh0lCAwGfm1TIjY
1c/+TU4pguz12Od1MQPP6oIfBZSRfEyskE4hlg1YUbLtGQK7rqIBV+KPGerf
VSsQSFV1vDcg/rFhodVYJXHHjFZp4g0Og72VVSTf66TKvxQxMDihmRpTQ+r1
puchz4nrZhVHOLxC4KxVJJ9EHHzd4N7yOgQtG7ztvYiX3jr7Z7IeweN5Fhut
iaW1tXyqGhEsjd5Vpk0cs1V0yZXXCCRdXQokiV+IN4rZtiAIDMV49DEDRjGL
1VTfINBUz+p5S9zBeXfq61vyvrzJ0WLi9ZdCx/PaEHg+TN2SSlzjP37ftx3B
WennLcHEfAtfJxp0IrjQiAJdiV1Gasund5N8SPtjspN4vkW8wqsPCEqXaiob
Eu9r738U0YsgwlR2cgmxoc7BAIs+Ui9SgmpkiY3la0IlPyOwsag6L0g86FRY
19KPQGxu8ryfheT5zI9brv5H6sE+iO4hDmdHBa2/ICh7yW1tJM54ET8l+RXB
qZSkjjLiPFtfjdfDpL7mlKc8JL5kvj4t8hupXzoH5W4Sm+pctzT5gWDFaJbe
VeL6ioWGM36Rfhc8OuMisWLPlRPPRxG0Fs884VtI68W5Hv9xBIVaU66uxB6C
8VdWTSCYLTqf2U/8X7x/0Lc/pF40KcraEP9sfV2UOUX60daePDPi6hUo7j4P
htY3EQ1GxFbzF4+FTMNgsCPGYS2x2mqnsf0Mhh0v4g9qES9Lko/X52C4E3au
Q424RiShS44Xk/u082Ml4ivvVlT9JF7iEPtHjpjn92qrOj4MblNxCRLEM8dG
A27zYwiKnRc3k/jbZMH2MwIYRJHokABxSUNd/Q5BDGIZXtHTiAVbA78sn47h
1c240N8FDITMVs8WEiLznWip+0H8Vk5EqpvY16zY5ivxyOoTiv/OwPBgJ7N4
gPiT6d3X4cIYnm/w1vtIHPCGf7GjCAZ2hUpUF3HfaKXa6pkYNucjxffEcse5
DXNmYWjYnzzQSvz07kO2j7jtitBAE/GNXFfRx7MxHP9Vx9YTG2mV3bk0h6zP
OfjcS+LrfkNf94liqCr5OLeK+MxFaFshhmHTjXttz4ntfkweFRbH0H60oqqM
+PmUa1YHsdJq1e4ndP6XeyJyJMh45d24mPiQfhwOkCTx9ZUPKCS+uq7depsU
hpWZYiL/EsOp76sWSGNIOSGe94h40QGlinFiYYkzpx8S39z08E/1XAzbBOoP
5BCL/fncHi+D4Sc30CWb+ARnxsHDshg0j+hG3SUei7RJXiOHwc8wqj6L+Hyw
YoCIPAazV0aqmcRr3FLF3hO7FcvE3Cbmu6i4JYvFsKW1Q+4Wsfj9Hk0vhKHT
9GT+TeIjnosqN2AMhqtfOaURH1PVFZRWwGDL066WSmyWafWjl/joy0xOCnFS
8pPwB/Mw7JEz/u8G8atdhS3+ihgClr/qTaLraQt6uVkJQ0SG/VAicX3tAReZ
+RgimRWC1BbXkss+EucuPkdu2gyIbHYpz1HGkL40eN91Gp/7Uid8VTDsehB1
M544Z21zwwZVDNKZP7/HEQ8pDHaKLyDrGxMyoR5ZFZ/QQbxTQvNhLPF0VlE4
YyEZ79E7RWpt8dIFJxZhcAxwvX6Nzk8299caNQweNUcx9YJPa9wF1Ek8l5hl
XSVO/nAtrY641z4WqH0XC5y/thjD9/+a2mKIFyaVSe1dgqH8bbg/tW+F8M6F
SzF8uWi7iFp7AJmOEH9yed8WTWwjtOrXv8sw9LWkR1EXt8WYnl6OYXGWnTm1
VaObjbEGicfGHAnqEunZsrM0MfCbGrZfIY6LSA55TaxvW5VJzffe6X6cFgb1
ye8+1OMWCRfstDFo7fO2oC6f6SuhokPyyUx2CbX9O33L/4ibesNFqH8ZqWy4
vwJDnFfcUBRdT4LDsNtKDHanmdfUUT06W1atwmC0LaSIWrGjxXaSWEidc5v6
zCw/5ae6JJ+7NGKo/XMdkwNWk/zrGQykPlxb0Wi8BsOIJMeLOkjmXcGMtRhu
3jc6Rm0t9mbbK+Islcj91FI/xzIucTEcECncQy1S4vbQHDBET8XvpP628NwJ
cT0Mxy6KW1Nb5tkMvCbmSPNYUQ8ma8+N0cfgXMe1pBb8Yjy5bR2G0bDcv36/
oypW2oDk0wuDbdRDh4e/tBJf9mnYTr3/yPfxq4YY7iLDXdSujtNLrNdjcA06
Z0cdp+ioK22EIbPHw5FaWQeOtRAbpM06RO38s2ZXtDEGkWPLXKlVvPR4LTdg
UJtTc4q6N6XBXuwfcn4Pv/Sj3iCe611P3HJc6W+8nLXkTcI3YlgmVhpGrarN
fbdpE4bri6KiqQNnmCgIbcYgey48gZrHxV+hglijJO0mdfMn/razWzDYmFbd
pT70WMIMTDA0uww/or460eE/QTwpM7uE+sfpqwfzTcl+/pKtoNYZdJlzwozk
j82MWmrv9ATXJeYYNq573Uwd320a3k98jevSTu17rWB/2lYMuidbeqntLolM
2FpgKInjGaTWsPTaJGOJQeFD7zfqNq7W9iZi8Wmnx6lDXA/NC7PCkIhreGg+
Cr01u2W0DcOf96X81MxiyQEeawzVsEuY2mz4c/+/xO6Prs2hNnX9k+66HcOA
8HFJasVq/3mLdpB+dbhXhnqyK2XHB2ID60GW2sM52jRuJ3l/YuA86rrOQN6t
NqRe2d2fT60Zle4utAtDsKCTKvXs60rppcR++rcXUlt2q0ef2o3BcspVjfqx
9Mi6JbYYvh0qU6eWLEvM7iUu+XZ1MfXF5Q5tcXswmGqM/HXf+WMVZnYY/pl6
+ddtd4dcBPaS+mqz6K+NnGa3PSZ295n+dzxP4OF3tSfjP9m/iNor6r8h5X0Y
8F3DBdSbI5jYd8T5I8nK1Es0j/JecsAQvsdPkbr7H9slBo4YrAbeIuovx6dk
Ron9b+bKUnew3hWZ+0l/KpslRX0hZJqWrRPpz2Gf/8Z3U22hvagzhg1H1/2N
v3l189ZnxM098n/3p1bbl+/UAbJf5zym6H4axL4/tfAgqQfjVqPURab4bhux
Lm/eV+rZQS5pYYdIv3CN/UQtqzexGw5j8FFmOqn5TQfeDhMHzhn6m2+eNs5z
U46Q/rx870vqvq4kGYujGJ5F25RRFy553M57jNxHrDryqZOcex1yifdGDdz5
+zxwfbaDC4ZzfmeSqT9YTS+WcMVwakva3/PUfWpb+DPiSLAMps7Yt0PJ7Tip
T/GXfaijHXV9lE5ggGy7v/UqMUkxtpH486sne6ljhVZ7nXHDcMIsx4L6iOsd
vMyd5McVnfXUpt5JwR3EfBNmOtRjyWv+DT1J6ls/o0rdpXMnS/cUuW9UbpSm
dreXcvhMXDOlLki9dX5qd7QHJvf6jF+XiU9ZeM038MQwV738I7VfYrn6MPGj
Sc/X1C0h6b+ve2Eo6qwro/7huTH8H28M1voV96lDk1o+/SQ+H2mbSF0pfFww
xQfDC25cCPWJdIMvW3wx1Od5eVDrLTseO06svZ9xpP6ybr7ITT/Sr/5dak7t
b356vZk/uU9ICa6lPnn7zvoJ4s2fLyygnjpSJ5J+mtwHo/LEqZVTZsWbncGg
7BM5FUnPO44Y/k28jCPXTz071nPmzbMYFAMsm6glkoZHTM5h2L0biqkT42QT
x4i39L1PpxaulxdLCcCwzm1JBHWVrbzJpvMYLHZoe1L76XO3/iDW6/22l1rf
5BZKCCTnwc55I3W5js/D9UHEklc1qAMudM8ZInYwPi1LzXN3QifmAulfOsoc
6vb+IWVuMLlPKAT1RxDjvZ3tH4lt1t6qpzYXHbENu0j6dVlgPnV+s3GGVgjp
b50qidRe+wWL24j3lF8IoG7dbhF3NpSsP+buQepN2FR/YRiGRb4xZtTPhNCD
OuJNsYY61JXrewbdw8n5FSyQo07reDoidwlDctePadSJxe9LnxKfWjX+8RLx
3MxtO50iMGQrVlZTl/6ztUQkEsOH23uyqYsVvg3mEMe8Lo+ifhO5vW/bZQzc
zB+nqNM7bmVOEK9d9N2GOl+Vo3sjiuSjWSlQFx0OvmJ4BUOC1G4l6pzQPYWf
iW8cqxagnmmUnhUaTfrHZqGBcOL/AQEZizY=
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwdl3lcDe/7xqNi5ix1TiW0zEwKCWVpI+kSSrQXJRFRltAqS6uoiCRLUUkU
UUp87JVEkUIlEm0kIZIiLVK/5/s7/5zX+zVzZu77eq7nup+j5u5t7zFSQkLi
yAgJif99TyhquN2/ncHs//98M+nPfr1hny+DnDnzqm0W/DTJeJoeyA9g8MpN
2qZb8pfJDFh3xgcyqOQ3pk9r6jGpdq+rUtzNwDnN8Ozvij6TqLsLVJOCGGz4
XpBbUvbXJJEXVascymB74Xe74sohk6H1Z4aSwxnYqyoPdXRI4IpGcKLSPgad
x3Y+6PMfiZvS8umJkQzq1l8L9+2VxCp1G3X5Awy02uw8Xu2QBjVKSSk2hoHl
WJdfV7+PgnL2yoPSsQze3bVgL6+kkB370y84jsHg48LG4Hs0JlwtrOuKZ2Cm
w/syLODjydmUAo8TDAKsAzJUbATQjPbg6hIYLBuaZ1YZKsT2aR3SFqcZiMzy
4rkkGRwfkvK+k8zAOr3TVXxaFlEqQasnpTJY/LymdY6xCNNXK9UcS2MwbObj
uDtVBFenrOp/5xlkyw+Ns+wSIX1zp8vGCwxmrokJPGoghuLDLJ/KTAaarQeK
2/zE+OmRpKCfxcBwf17k3QwxNObsXpJ8hUFCuH7IohdiNEkPC4dzGThGP01L
+inG+33vPdddYzDgaLM9WyCHWrdKx4f/Mfi6KCLcXF0Oh033vFW7xWCplOYR
DT05yNcd/hN2h0Hg5szW96ZyeFF7NafhHgO7FbO8R1nJYeuogxKGhaS/jOCV
Qkc5VJrl/4wvYmB7cfSqNc5yqE9oC2svZlBa4nzL0UUOusqXri4oYeCp0N9j
QviTRtLexMek3q4abw9yf7+BY++3MgZ5u7YljFguhyGxl5xJBYO+IF/GwlYO
Pnk+r44+Z5B0auHQ5qVyUHX6Pf9DJYP3k0IsDy+Uw5aECIcZLxlUa50fUWMk
h6N2F+RDX5H6dcrSXGfLobjkY3h5LQML3vbyhVpymHfoYcqYtwwelzoVnOXk
sOLCo01u9QzWz2p9sF9RDp6hnm2ZjQzo7uE4KaJXVvfksZ3NDIbeHUvXHiEH
peURg7otDOZfH7VX9Ifov6MjcXcrgzJf2/6b7WKsz2hqL2hjIDx1a+2UZjH0
Csr+DH1hcIDxLPKvEcNZXaXQ5BuDD9Ylf1OeiOFWY2YS1sFA7rXlcHa+GNPW
3Agt7CTrm5BXe/GqGFa/ngcPdDEwsn/5/Fi6GPYeA3P1fzN42zflQECiGDI6
qfd8/hC9U6QVbQ+JUbVL+d/lPgZWz2RHTwkT46DqS8mWAaJ34I49I/3F+HSV
rRr3j8Gfrv5pzZ5iOIa5rbceJv6OM44sdhGDPtN+P2IEi7lGfqnZ1mK0vx/b
elOSxf6R1+3Omorh/cPo1WdpFtsua8xP1RcjcM7lo+MoFgknlKsua4kh4ucp
LeGx8F5mZv6IEWN2VKp/oIDFZwfVgm9yYmy98iAlXYbFV6czGhqjxQhzX5tY
KWKhYbDZedtfEf4GlG4YkGPRnOOpUNYpwoMUvVEaY1j4Xmn7p9sqQsi+38GW
Y1mYrtt04UadCMplC8v9x7M49VzyoPlzETQl13eeVmZRsjFa8UexCBoVcR33
VVn07bLPuXRLhLd3pB+3sOR9vb/P7swW4ZjX0G7pCSw6dVP0VqWJ4Bh7jTdZ
g4XJSIdsh5Mi0G8cd5tPYnHjvZLeuhgRziioPPHUZDFy0cehfWEiKEyZ07Nf
i4W/0frpBQHkeXINUuensaie+raJ3iKC849ZvYXaLDwlb0zd5iZC4eDm53Uz
WEhf15zc5iiC/IXsA92zWHQF3GoOWCrCod2cFl+Phd+sFLfxEEHSqPP6BAPy
+wrk1OiJ0NAwT2POHBajcLQifaoI1w9MC7M2YrFez+beQTURxp9vLnE3ZnEr
1DMwcqwIFuU7/uwwYcGt1BxIEIpQ+lEw5sACFsvd443vS4rQNaZY7fRCFlYh
om1/fsniStUV1cuLWTQpml5Pfi+Lysov9B1zFmuXNulsfS6LW8zhz6UWpF+f
f2Ub78niqvKV2y+XkXrfh6w9kimL7UGuQU1WLP54Fzc2n5DFNsurs7/akOd5
rfm+KkIWlgM3PnTbsUic/8R9pI8sJtgFR/11YAGVSoWa1bIoD5dTl1zBojvm
W83zZbKYwu27Qzuz+Ll4g3f3HFmsnVFnLuvCIu9D6A1oyoLPKb2Ud2XxOPfi
9juKsnB7YeM8dg2L14viN66UloXTkdD68WtZBI5fu1H9twyeTslyVXZnIbut
SFfxowz2tL5qUN7Aordx5MmZL2UwNWzYVdmTBdNoYrmjWAbJc6c0jd/EIsLQ
U/VDngyi3tmsG7uFBftnRXlAmgxOXPL+LL+VhSC1X37GURlY79znK7udxRkN
23ty4TIYztgvwfNh4XL4YLCKjwwSGK+Tkn4sjrvLj7daK4Ng9+kzB/1ZjNDJ
ssqwlYHnvgevfu1gkdq56Y3aAhmwU8ftbd9J1jfnjV/pTBlYnZlk8H438a9Z
f/2RCaTeew29r4JYhPs7vwiRl4HJCK2SshAWEhMUpI9JyUBwYjAlP4zFvQnf
5lb0CHHbcMG+nL0sNE3NtaZ8FiLH9ePO1H3ELy/NY7PrhDAe+zzoSCQL56sV
qvblQkyf9jkuJJpFTNGekyoFQiyTGX/T6yCL/0ZX5vByhej5sOS78yGyXktU
OZU0IVLCVukvjmWRb3Dmgu0xIRYF6p6YEUfWw9q3N3M/uV94a5RyPAsbs9wX
ajuF0F1afETqOIuk6e6thZuF2PRdb3rHCRYrdZO7glyFMA3sbnmVwOIFt/3q
KhshmGmv8vJPkf2zc7DW1VSI1WNvJ55LYjHgskctTE+IO1TgqagUFhVTdJc8
1BQiPqn9vy2pLNZVHpeapCLE3Nkd7VZpLB42ThRlyQphMnr5/BnnWWzckKph
LSlEmnJfrjiD1HO08a+4VwDBkmzj7gssNsv+tulpF0Bxjum36kwWyiaT63ub
BPDwi7uTd5n4WbPHaXyNAM22Gy4eyWbx22Lc3pVPBCgXxN/0ymGhPu2Q+E6+
AN35rW3mV0n91YdKdPMEKHaYbqR+jYX5z9TllRkCrMg2+O/fdRYi3vHw6NMC
JIRU2ry5wULRft+I1UcEMPIqEufdYrHG790Jm30C1A9W9UffIfmoubx3zS4B
vmU8o9zuEb8WSrXFbBOgsHi3iV4Bi0mudkyNuwChZ1NTefdZXDAdXG3gLMDk
PRKTm4tY1L5RW3/bSgC/sPVvrxez2JFs9N1+oQClVTG3Ih+xuDqkdoeeI4By
pGGRUynxs7JMVL22AG1Z039rPmFhaZs8pkxDgB4LrRX9ZSycHpVNqlQSwMKj
41NZOcnT8oHdP0UCdAzqZiQ+YzHbcLBy6mgBqmTvx3u8IP0lDH8N/8dHzJlF
V2dVsXi2MO1g5y8+Zlza92+omoXh3o8+O9v5GKevF1JeQ+r3mOM+7gMfiQ5y
Oidfs/hVGMK9fMPHU4Uaebc3LG439G3PeMGHeaL2NM23LC46rBXHlfLRLFm/
6+c7FotT3lTEF/BhdjR24HYDycNrP92v/MfHs/CBa6FNJA+PXUluyuJDWuv1
2UXviR8Kg4w0z/Ph211ZQrcQPyXMpw6e5mOiY4rai48sDO4vLpOI52NDU/ut
+E8sgtbZm8Yd4GOxgVek42cWg74JxrrhfCxRfRar+JXF9Xc39nbu5KNjU37V
m3ayPunFtQ+8yXWZNutT31l4jTaVvrSRjzimj3L+wSIgalpthhsfWU9ThhV/
kjxu/SJ324mP226hs193sTiqZhvZZMPHUXuzC8d+sbi85Uqv0hI+bA3OLLfp
IfoO3tHdCj6qn2gt5veyODR0bvRLQz7UW08GPO5jkesiNc9yJp/kxf7W8AEy
zyM6zrybwsduKuXk3EEWW/Xr+4Mn8PE9JfzAr38seCb5KrOV+fhT97owe5jk
u/q3mkF5PioM2eRrEhxu1Bp0vCXn5xUTtfsPj+Bwz7VRv1yaj2nzNvVvHMkh
2Dsq7PkQDzPTVFNMJTm0KlomfOzl4Zkw9YOKFAfVBTeXCrp4OFlvWP6HcIjd
ra3m7TxI/J23okqag21O3rMTH3mQ6e+LvDyKgy78jH438PBr6N7KiNEcvEbq
xXjU8lD0sqraheJg7Z8a86WSB6ou+scsmkO9QpFMyFMeDoum5/F4HPZ/FH+d
8IiHdyrCsS2Ec0qDvr8t4KF7XoD6XT4HvaGl38/d4uGLbe7rOAEH50T9gj15
PES+HaXtKeQQ9Wz1jA1ZPHzuK5s2T4aDnI+56poMHlT8TV6KZTlMtf3gtCmV
h4e5N5jPhO1Phd2MOMXDuZt+cgUiwjoN/JxjPJjrPco5KuZgN0Zx5ufDPJwJ
6/y5QY6D54O8vzOieYg4hAZDeQ4X/I+bxuzlYV3PkLdAgUNiItXYHcTD42G/
K83/Y3Hh+S2BpP7jrfHXx3A4mVjk1eXDw1bTZC5SkcNGyXBRtBcPpxY2OTuN
5ZB94cXmqZ48YNfvuVPGcRhOqLdtWsvD1C0aTwYIj6H0z55dxcNFyxv/KsZz
yI2v0PZewYP8v69NKUoceiI+v7W04yFAku+1TZnDLp1ZQYaWPPQfcz1vrMKh
bV5ex0xzHqJi1COFqhx6fxYL5pjyYLwjQ76RsHXIhBtWxjxIH1K3vsKQ+pd9
LvI25EHhWqtuEMth9NIwwdnZPGzfM7XMguPw1PB6YL02Dz6aRtQ4NQ5Bv8/W
a2jxYJe9oucT4dTionFBE3lIO/8g7r8JHCYnNfObOB5erM5/E67OYcsu9eNW
KqSfhgPPrTQ4pGdIxT4dy0N15RZfpYkcGiXs6uzkeXA8ff5RG2FHRy3HNhke
hFa+JdcncbBIln4fxSP6XBsbEDqZg7lD1qrZo3i4Pr/2pYUmB7+ymZnfRvDQ
qdbxXmEKh+gNo9Kv/qPRPTcltZlw/lCLTlg/DZpRF2RpEX2nvNR26aGhr1A8
JWAqh7CI6XvRReOi8s1e42kcQkefoWZ10JjyxThw9HQO3WsVM7W/0jj/8fSF
KsK6cxrm63+iEao9Ouq0NofdsSHXl3ygoZX2aKy7DodSidetHo3k+hPBKq0Z
HG7Oou7GviXv+8badhOuEUXLPXhNw5U3t/fuTLJeOvzXg9U07jck2u6dxSGD
S2xd+ILGipodrktmk/Ur2zHxZDmNonEiZVldDmz+nOCfj2kkx58//JpwdlzB
8+WPaEg3brqWrMchEMxwSRFN/oemHlynz0E7oqTHuIBGiUzomMkGRC91l8QH
d2isrzdd/p2w48YXTy1v0ug1n2xxzZCDhqejf8s10k+qR9eOORxiN7vv2ZtL
40SrgfXcuRw+2l4rnZJNQ735jdsQ4aIfRvPqM2lEyIZNemjEYe62+aUnM2iE
3/Q8HzmPg+ia3pKV52hsq3xSs8SYw7/CpisTU2kcUKq/x5/PoUxFv34giYaz
/FunF4QlF+zMr0ukMfZPf9ZREw4eP5X1i07QEBbtuGEPou+V+tm58TR+ae0P
UFjAIUY1+8yFIzSW33b99prw+935rhcO0eg4rz8+0ZTD89+7XXIO0KB+LBly
WsghaWpceGEkjUaX8qRxizi4H2u68zqCRue2rh91hH9/jOzoCaOxcfvvgVOL
OYw73kAxITT8POkiZzOyH4z8e6z2EP3VPY3GmRN/ycunRu6kMckAPm8Ii9YV
dpQE0Nj859nqhCUchB1ZlXw/GpODFkgttyD5FbRMx8Wbxqf0l+vll5L8WrC4
7+pWGhYKN4OrCSesClAUbiG/11O1iVvGYcbS9h2+G2lo6pvUW1oSv2zuGNm4
gUY030aNZ8VBybvvso07DQnfcLUnhO0+3nV66kaj9suohn3WxL/n5PstVtPY
WjDGDjYcDjkpBVW70Dg12Bw+SLh5xJgKN2caPXtPed2x5eDqE1z7ezkNgw5f
cYAd8WvpQMxRBxrBmal+OvZkfw9uqZ1lRyOlxTaunTC9qe5ivTXx++l7Gy84
cNg+P7Q9xpLGuqPCQTdHDjOVn8RhKY3Zy4MslZZzZL5aRg6a02gw0Vv5irBu
eO3d+4tpHPbbOuHICg57R69SiV5Ig/fO7pK5E4fvGf+Sly+gMVJb8ZuEM4eG
PzKaWiY07Lq+tt8lvGy+IE/KmIat379Mv5UcdL6lqn+aS/xZET5hqgsHn2kp
fhWGNIY+pLt8JDwxVCr2tj6N3ZsTbJNXkf7nSa6/rEuj6n20lIMrh/7ZP1rT
ZtHQPZEZyFtN5teMxZKpM2iIzmhkFhM+ffpabpo28VvL9IRdazgsGZKuuzSN
RsG47oU6bsQPV419bmnRUHx0Nu8T4egVwZueatI4NMujIXkted5B4fUPk2h8
jvJ5YreOzNvNG+YPaxA9cjt9R7tzyNJVHlZTp2G+SdRQQNjrc/cnCzUaeyAx
ym89yd+al62BLI2gE987J23gIDAp67ikSsMqfmRSPeFbw9K/mpVp6Oh6Sx31
4BA3vrVNWYlGy1I3nUWeHGa7Nee7jqPxw39YqY+wj+j0hvOKNJqZ4CfZG4ne
QbU13xVoHDw8Qs9tE4f1aeGDRvI0LCvz18tt5mBVlV4dJ6ZhX1HrUErYxdHb
7IssjUr9UOldW0jeiPWsF8vQWJTUuEvLi8yTqZsbLgpoFNpyuQ2EVXLOtQr4
RM8DvheObCXzfWaCy06ahvKCwTXYRt4Xzc5qG01jlO23d12EDVwN3FaOIv27
bh6fvp3M57be11VSRL8PaUqO3hzUjyTHWErSyNcpaJLyIfM9Kdj32QgaaZs/
edwkHP1OIcxWglyPNsvz8OUwyelfZt0QhY8r6Ptj/Mj8+dvxfsM/Ci27nOJK
CTuaFzI9fylkbXDR2OHPwf+v24qDAxQSPI1CNAI49FV8CVbrp3A2TT2phvB0
0YHowl4KSbx5QRE7OFz1P+S1+g+F7X453MxADi2XVzMjeijYBqfFNBMuVos6
eekXhf7zxndjd5J5fvvSY4duCh8Mcq4Y7SL56RWZObKLQuD6sR5fCf+V75t+
s5OCw8SMloTdHB6N67Px+kFhl2PQxEV7OEyYfEpyYgeFsLMl07sIs5+lTVq+
UXhzOPPvmSCi552DfefbKfTsWRa3NJj0tylq0savFGLT3nz5Q7jx264i7S8U
ygT+VHoI2T/KfXf72ygEZC76YR1K6ve6ISj7RGHBTP+kAcJfruzMPd1K4cfC
icKLYSRPH2kkbP9IIdx+r5ldOIeVG2/fM2uhsPNyjtkgYaplofyEDxSGt1cJ
M/eS+ir+JEi8p8g5XDbFLoLsn6cKxi1NFHhcfNdfwmL7gcHHjRRESXtkLu4j
vEn5RW4DhTFpXd02+8l5ZY3kpdP1RP9k5bP9hEOTHCOi31EQVKvKp0dy8HYo
c9z1lkK5m6qNZRQ5Lzhrj91aR/QxNXHoIfyyemux+xsKpjaX2NRosl9GhS9z
raVQYhByw+wAyS+1PTnOrylEHmwRdxJe8jui2ekVBYncQYPEg2T+FL15u7KG
QlN75ySTGKJff/mJNS8pcO7vm9oIB8uXUJ7VFOzlut2OHOKwboGJtk8VhTu1
S7L0DpP8WvT8X3AlhaCN1P0Gwltmy/scfkGhbqVj8r5YDhUm5SGpzylYcram
Wkc47IkqYv97RqGUx/5XRfjQqxrr8gqyXmatHYFxZD13/JVsLadwoflht8pR
Du2DxoYShM/ebyx+SNhkzK1W5imF8dlOqzbFEz9YxI9EGYXipQ5FwmMcKl/K
Hlr/hMJ9tV8d1wmf3rR/58HHFN4eW/nZ6TiHIZ5j8bVSCpnNl7IHCXe96lnX
UEL60ZQ0OneCw5Gn3fY04cJtMScXnyTnwYxPsYaPKFyPXZv/lfDApT2CLQ8p
yJhnXolNIPnn7112ppjC/wFL81kw
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJxFWHk4VtsXVhTfcQyFhDpni8waDbcki5Q0iJChpBINGkWRMTJUxhJlSiJj
kVSilKG4GqhIypShpCSKIsNvfbffc+9f3/M+3z77rP2ud71r7SO74+BGx8k8
PDzhk3h4uL9zHjTdGT7AgI1GYiIt/E1vOLt+Z8BhBsz1Dqps3D6gl/r3laOC
rgywKS9mVzz/obcATPqijjIw23anTmvNkN6LHW9qZ3gw8PZ97t/Sbr/0gu7q
z47zZICZsXf99/ARvVgq6LWMDwPieo+bbvGN6Y07JI7H+zHwdKWXotP9cb0c
ea9Y6QAGzrT5qjYu5IFbU8SuxAYy8FDBuW6F6yTYLLdBTiyEAc+flZ71ayaD
wFRp6bDTDGys5zP7qc8LMtk2p6aEMXBH6aa+ghQfZId9c/GKYGDc+3Eg73s+
mJN7/01/FAPTF8492502BSovJdxzjGZglUCEVrj1VFAKdiRvYnC9qur6NZP4
4YBa7xTjixjvnDbRrGh+ODfOd7AwnoHEogGbJH4BCJrlaaeQxMC2bL4z5TYC
oG4n/epsMgPdYh5nXcMEYItV1ouxFAaeZ9XUb8oRgCt7+mx3pTEQ4mDXtKpc
AGaUZR2qSWdglsH5ON1aAfjmGCeulcWArM1DvgPNAiC/xGN1fA6ed2G0WG+P
ALRMmRCauM7AIt7z/X3fBaAtoM1p+w0GYOj4z8rfAvDavsai7Cb+7zJjqICX
A6EGxxtlbzOQPy2kYVCQA2JvQod8CxkwUTJ8KCvOgeevc681FTHgNZBn6izN
gX1TT/H8dZ8BTJa5qzwHalYVf4t6wMCN9NnjcWoceBfzwbenlIFfIRemG2tw
QEMmI1e/goGPMyPvt+hyoEs+7kTsYwZUHg/Hm67mwLC2xc/PVQxMvvP1Q6YJ
B8anOU/Xe8JAseHg64ebOHAo71Bd5DMGzmX6mxnbcWC21Y/l72sYSCnQ/lW2
kwN7Y/zNF7xkQF7JJ/SuMwcizdLEfOqQP78VGRuPcKC0osOv+jUDIkrxLoHH
OLDsTFmCRCMDHYc+WB3x48CmtPLd9u9QP1+SlqlFc8DJx+lDejPyldpaIpzA
gawBRcm+VgYO3b67UPcyB6Qt/Uc12lE/vo5pxpkckHfrjfXoZGDCPdf2Yh4H
HFJbeu59YMBvWzjz4A4HNO9VDY13434t2ZsU7nHAWm7Wfb3PDGQs7XQqLOWA
/atVer69DJzAcG9WckBta4HP/T4GLhyYHvCwmoM8P/Ma6Uf9GgZZ3nvBgY2O
I0u1fjBwb0vFsR2vOSA8P6no0BADeeSZtUYzB2rdZcYyfzGwuOLGvAMdHDg1
+yVv+wgD8TlmIi+6kf9ctnbmGAO8nNOsw1cOWPjaO5hMMNCo62GdMcgBTmJP
if8kFp7ara3iH+NAT5tk5y1eFrSOnuq5NomCg1916j5OYWFBkv6KCT4Kji7J
jJwpwAKsV9/8WZACUcE86dUUC8vSAgZ9hSlYHJR05CjNQuBz5y/TJSjYl/Mw
4YowCyJfn7/dL0mB745tsTWiLKifvyOXMIOC366Pdo5MZ6G63ODaHoaChwma
U+UlWLha6xFmN4cC74AfXuskWWgYmXNZXZECmaoV1UekWLjJb3tCVpUCJV6H
vosyLDwpUfWfUKdA/klEb8lsFli/OgWTeRQ0Fk553M6ykH7zXKnZIgrOOo97
TJnDgpHLsMgnbQoswm5QivKIbVUOGv1FAafBwsNIAfffSncZ6lCQKD6r0kmJ
hSyUYyJQIK68ZPCkCgtf5hcriqzF/aY38aWosVAI/u2V1hRYf1308/48Frjl
Vm5Pwf3RPc/eLGAhzC7luPM2CsTSskMGFiEfK08sj9pFwRkPoiKoycJoqCC/
gQsFvDp9+XO0WTg4mPCj5DAFTU3L5JcsYeGKTkiisisF+SFqviY6/8+XNwVS
Ka0VO3RZSHMSKZgcQIFxtduQmx4Lva/6L5w4TcGjDloiRJ+FsSG3toQoCvol
SmUvrmChb5wrYApyanNmZ65kwdT8yeuRFApqaro5hUYsfH5kalKQTcFtJvTj
I2MWBG9d9ajMpCBXJufOy7WYL+lB0bDrFBzw3OLZsp4FH9ee6l13Kdi/Lnfx
pw3Iz8MlcmuKKVg3UvB+wIyF0urLK2/fpGCOmVfQb3MWXmcE73atpKDab7oc
7yYWVIdim88hViYBhRxrFmJWnNn3EZ/ftuCNkYgtC8e+WwQ3PaVAkEi/FNvC
Qoc5T+iuWgrsn2+wltzKgoHsZOHL1RRYhfu8k9rGQnAKXKp6RcHfyllbZHaw
oNbvl6/cQMHxzrommZ0sEOU55SotFKj6TmyRcWJBe9/m6MY2CuKXKrdI7Wah
3KgienU7BUFvN2yX3MvCy0zVS13DFERnHPwotg/5oG2aexCbHAs4LHKABVEd
8+57UwVhIvUkD3WIhWyFkCIREIQYxvk8rwsLU0+cxxMJgtcO9YWjR1goMqYn
qwYLglPAw7rvbiw8zH+ZKl4gCKzqzBM9x7DeBr9fnVMvCOsTFbTbPFiYsX6X
YkCHIKgWNf2s88T91rW9bh4VBL1JKhVV3iw8y/3AUzqLBjp6NKHYlwX6mZv0
HmUa7vylH3DtBAtWCqMb9ebTcG1Lx7GkABZG4k3RMmnQlXzmGR7Iwt7gBwrO
FjSoq32M8A5mobnPVLzbnIa1wlK3nE+xoCC1RNDTlobB96u/WJ/5vx720JDg
u1lrZRgLKq5bHWJ302B4VCN6QQQLcqK5nyX34Xqh21NlolhYqRKqzudBg8aa
0nC+c6ivjL3+GZ407P6iqd4bzcL2sUvlXvi/wdGB9roY9o9/etHAqNXlFV9A
vfJGvq04RYOd5J3Yy3EscN3M1p+GQoGjF4ISWChp/PD4x0kaouJ6bu5NYiFn
CSwwiqBh6eLenvXJLGzdff3V6jM06PFbLl+QgvkMXfmqEfdLlvl1fVoqC+tP
Cm3IjUb+VmfrDqSx8DZCPGr7eRpmLDH4/CIdz9vnMq0V1zu6RBTmZbIQN3fS
3r0XaWg13Xk1PJsFARfTsnXxNFTTUbecr6H+Th8eV8D9Boo7PxjlspjndYtc
YmgoNVfXkbvBQmpn/ZKpqTRsyta+OZbPQht2n8UpNMR412xoKEB+DiT1ROJ+
Os4PpuXdZqFsPgoC/383WjscXMiC1/ZFlguyaPic+lTAvoiFffmrdA2v0HC/
1ENP8x4Ly2sp2iaRBp9LSUlUCQtcOz9xjQbF4zyKrQ8Qj/k35yF28XVozC/F
etDvd3iK6x/Vnr4dWM7CGQxfHN8nE/jXA6tHLFQ8F1+ae4OGD1nqP5Qqkf9n
lbcu4/+DxiqbhquQHy6hyIexY29XVTX6ldzd0eACGnpHNVJjn7LQIyvdrJ9D
Q61ISZTjcxZeBc/LOIjrTyca5i6qZYGPO+Bcp2FBRsDY+AvsDzUBxTdv0zBT
S9O7+hULlWu1T+kn0xBrPn3++XoW8nI0lKdgvH+LvxKzb2ABySvQLqTBKHae
mlIjC1Uv8QW5mB/ed+7f3rLQ3VI+txLXr4oMG7nTxIIitzyRv6d+Izd8WlCv
74Z99t6jYYpK/SXDNqzHj8HTypDPwwM1FZx2Ft7vWCl09TINcy0SZJ93oN86
K7Tuu0nDzpae21FdqLcjdNVWfN9KbedAi4+oB2xP2Zi/1bOfhs34xMLayXV1
+beQj93FtQ09GG8KElSJ/wt/MLnwhQUx4x+LTqfREMH8ErD+yoJsl2L9cow3
6++EiRnfWIg988vkaRHWs73P4vp+5NP9KThivJEbV6Wd/c6Cnqu+95MEGky1
Ey03DLLwgCsn5P9FpcpKwZ8s3NfMs/R/RINc53nXx79Y8Lz/u+N+FtcvTnb6
jaDf7HTL/oh69BBIOL90lIWJjwvstz6k4UuCX8j3MexX3O3u0DD0pv5+9gQL
vMv1QkWTaHjyFxt/g4fAcy3tq4qY301z5w2HTiJgWZqRaoLPqy3bPbxrMvlX
LwuTZycY8BL4Z5yIRf6Fkt7P4iPw3m5euw7q6/y7v6qHEAc30dptyC/P72Wb
aqcQOBtT/W5aOA3Cw78CM6cS6MjK7zuNevg+XmTjz0+gu7TZphj1/OBl7Qtb
AQK6hTrOd5A/gTfBXxdxCFhtq+rZhH4QKqqeR1EEFjf51Yhgft/OEpJsR7yG
//PErKtYr8tc5e4KEvgi+SVoP/pFt+n1+giawLrDlo3HAmkIbJw6z0mIAOf9
i8fTsmn4+KtKbZkwAW76urC+Zx3RezlNhIB+3I3dS9Hfyq4XMB8RK3u4hU9C
vV++5TL9niiBnWejbualo141y69FTiNQtqf0TAn6WaJv37ed0wnUu39SWBhC
g/8ZaPpLjMCexymfvmB+tg+OH6TFCdSpOkq1X6Dh8YRLTivi1jZBHJkx/nOd
UfkSBER812OLpWGfQTwJnEEgSLf3WwM+f2FFi7WVJIHws1Y4otMA7j+WKs8k
oLkVOxI+r7pXvnIEsTVXAJjfq+sKxp5IESC3Tp37jXyKjX1qSZAmIGF13tsK
/daVV9B5vwz516+Gz25J0Z2F+dGSfrgZ8xN0Wi5QaDaB9qfYoE5gv3FLFWtG
LCl8cuekc1hvZ+RMchgCL5dmxRHUo/iNTg1PlkAGz8yaZKy3A8dVq4wJAde+
92c7MP+HlHQEZsr+F49Z9qbBLsQruQNdJvp5ysOIm3MImNf2zg2LouG5XXGD
nxwBByXFt5bI59WmkGfr5Ql4e0waeoHrX9TsPSw9l0DTKl53QeTH4mJK+Ye5
/9evHw1C6w9X5CsQWMHHvZEhPzckXX0UCfQOfo34ifHmL3/90lgJ16eWvTFA
Pvtke9vElQmMUGiIeL6BpQlJrYhnkwtXKtEfOIwcnaVCoNHWXr4A611LvFTZ
VZXAt/TH6HAYn8ytn7pqBGKX2M0QQz6Vu3WP8qsT+Ge8xnpI6biYVotYiJtA
zL/PPP6gi/MItH0vF3iP51VJLpfcMZ/AahmjnEeoL59KerPKAgLzNRr2pHLf
95k1HUD8z7wSRMMWaunPuwsJVG/I8l6K+S5pijU9sQj1b1bIBKK+N71y27J6
MQHtwy4PVuD+D2aKyohoEKhAN32J+YyPSgmtR5ztLve96hLms3n3jXhNAqqa
nskSGN+IRdKp7VoEumrnoMPSUCHsI6GoTf7c97BeHN4ZWH5BHHgjkPBjfD+N
FI1v/IXxtClhxeB5khz73ZYQSJae3yyP8UZ3apssXYp8cw0C9SXX2mA/jthQ
oyjgDdaXv4ivQpkOAbzdy9pg/vxuOaUELiOggO26EfO3v6by1WpdAhd3dqp9
wfyHSL8rElyO9eo4+jsU691arNHqOeK6bdJBEagXyaHhrEg9AmfGHH92oh6F
HrgVbATyr/99VznpKq5PIEv4rtQBfJ/lnS2f6xGLHtfKXo7+1puiJRVrgH42
PDD5C/qNwNfV41Yr/uO/2bY6bqYhAQtX+dgJrn729399g3gtW5RcgnzsOvBj
5MJKAm95rz2MxHnExYnzwHoVAVn+uU8LvJF/OSedmUZYr9wLN8ajoA2HGhCX
adDsNNTfnqGndjGrCTQ0L6uXPYb931Ofz9KYgNTHgwayWO9dV146iK1BfUcG
THdCfozFb3m9QPzP94IAfF5z9oaItQSixXpVUnEeU9LSe7duHerzUcWHDlwf
LLhBllpPoOpCcUwk+ivPYT/ZSsT/9Cdc/7p7alOACfl3ntp3T8IMNpA/9zvs
BxdGW/1GER98c1vpJupp8MQF50JTApV+X7DCaNDuPTzN1YyAsHp+Yh/q2Ss9
yWX+RgJbf0ikSmG+EtpNI3oQJ21VfiKKfudzsWhXmjkBWyNLMUP0h+2RQqP2
FgRWRQ9NtUc9Lrb0XCdtiXrB63UUzptNepo2dVyM13F+PE+oy7454ZsI7K+W
aOnC+Ki3ZhlGVtgflLuHzmK+Js+b8ZnHGvUoMTO/CM9j1v+p5y7iNHFXT2PM
r6nLWLqLDfrZzGtXsrCe5Z74zVG1JbDj5LfdHain8fdXbDsQv5vhqFXF7bd7
YkzjNxNwP56mtgL7d21bMJ/5FqzXIJcUO+w3GtHpRyk7Ak92eTBNeB7RRPn0
UsRCY2JbcjJQb+3qMe5bCeBlYkYj1su9mQMr5tsTGBfmXjBxfi2/lNeFWLI/
8cIgnufMIsem+G3on1sb5r8Jw/4VdKjSbDuB462/3i5GPpuu9x3m30EgoDlv
vxn2Q6Pdok33EMs+s+Z+AYTjwDPVxYEAl95m5Nsz+kufwk4CmQtui3ZiPa6P
mhz3DnF69+p5E1gv8zUO8kU6ElBX0GIbkL/2NfbzDZ0I+MXZ3n6N9fH1yIT0
L6f/+lsr41WZvYsAmhfPTMz/qdBJmva7CVxxs9DUx3l6XU2xw/Q9BL7e+HFZ
EP1345PX5o8Qz7VbPOyEflmj5TPFfS/OIyEvW9rwPIZxze4qzuTf+e2+Kbne
hHhKUM6BQeRbNORwWvg+AoIOgvrCp3He1R/dCvsJHEH2o9HPppp+ftuPOJ70
LOdBvzi+ZY/UlQPkz30T1398nyxtcZAAkq1ojOcpnn+vhe8Qge82SfzHUK/J
e7ocbyGO3nspvDIU/w9eled4GOt7WfK+atRPxyZOiYQLgcO231Jykb92d6uI
R4i55TkZ85m101be7Qjun69s5Y77xzjpeMu7kj/3SZy3LiXLxb1C/M/3FPTT
OGqZp78bAS+R2FnHML4DLtfIwqMElAqtzQIwflOv5NOtiG0k77zgQb8YTtG9
G3aM/PkeiHy9176Wo+OO/bAoPn0p5uOog6TjJ/f/9GM+N7U9xoNAkTgOABiP
u4XnXMPjBGZxLyR5NPheqlDvRxz+VM53AeKG0PTfiZ7/5Wfw+NqINV5YP3jb
m4TzfVhyQ/cQ4h3qy6c8xPm9ij4icMWb4D1B7qQRrndNN/xq4oP5LEs6+gv7
kf7CI3EjiK2vrfuVVoL6WTFX6Kov+fN9EOP123hilZkf9q9mts8S1x/LvLZq
FDH3OpyJ8/LEgVqh9BMEQnC6D8N6VbgikmDmT0Dr3MHbd3H+pEhU/2/En+rO
1wzgetG448JXA1A/x8WvG6F+JJL7BzacxPkiRjbcDddfipe5NIxYUnXvAqFy
nKdfzBa7Ekj+vW9V28/esC6IwC4fTX4BrCdfAz3zQcRSE8s7ykrxvrshg00K
JjBt9OBcHeSjQtu7YFUIAbrLsJjCfAWeap/WhzizRfqNCq7nuT6qHXsK/fRv
bJB4n2jp6VPQO43zklX1ogqMh+xoa/mA+ILkNjYR7wsbpw/Yh5/BeqtTMPmK
83vh69VZmqHoH6c81bzRPzx3CZQ0IS6YvGLTHVz/xsYiPiCMgAfa92gx1hsx
NVAJx3rhFijq7RHF3qxFfGiujtZkfF/Vqs7eoxEE7LkDLz6f1lo2MCsS+917
uR1rMB+XSppLyxB34XV3J84/UtlWm3dHERDnfhDH+0npGvMHQmfRr7mf35Cv
EtnvvfmIu3oF0qfg+sazNh+tzuF81ORZ2In6SG/NyB5FHJ2KFzCMp1CJV+dy
NPrvz7BcXZyP7u8/fX7ledS/mne3P8aTH7at+BPizODdrvwYr7BRek5YDPnz
uRfX/w/7Fmpy
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 0.5225}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.5, 5}}, {{7.608374474380783, 
             8.294049640102028}, {0.5, 5}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 0.5225}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"e) CBA\"", {FontFamily -> "Helvetica", FontSize -> 16}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.08, 0.95}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox[
             "\"d\[Degree]C (relative to preindustrial)\"", TraditionalForm], 
             None}, {None, None}}, FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{0.85, 
               FormBox["0.85`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}, {5, 
               FormBox["5", TraditionalForm]}, {7.5, 
               FormBox["7.5`", TraditionalForm]}, {9, 
               FormBox["9", TraditionalForm]}, {10.5, 
               FormBox["10.5`", TraditionalForm]}}, {{0.85, 
               FormBox["0.85`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}, {5, 
               FormBox["5", TraditionalForm]}, {7.5, 
               FormBox["7.5`", TraditionalForm]}, {9, 
               FormBox["9", TraditionalForm]}, {10.5, 
               FormBox["10.5`", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.5, 5}}, {{7.608374474380783, 
             8.294049640102028}, {0.5, 5}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}]}, {
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwVlnlcDe8fxSPabW0kzQwRElnatOiUlL0iIhGlvohokbST+8xctJGKVpI1
SyVFC1mzVgohpZKIpChK6vf87j+93q+5c2ee8znnfBrvunOF+2AJCYmoQRIS
//874VZtfo8XA4n/fxIPoufiy80R3gwKGNFXe6ODOP0ow1/ej8Hf2R0lL7rE
mInl7bH+DB490l2j/VCMSteaCtW9DNLcVCQHMsUgNyw0TgQxsBu68stApBgJ
cuSVeiiDB49/6s4LFqPfLaU/KZwBF6gUWeglRtbE4ISxEQz2tDB6GpvFyBuq
lJEgYnByn5rfnnVirNO01VQSGKzd7MhoO4ghIzV2bORBBvFTxqwqWyaG+sW1
4qGRDPqsgsfKLBTjYuQPn+BoBrbOChPzLcWYcKW4piOWwXuVEstcMzEepiUX
uccxyNF8MbfZSIwpvDtXE88gQq/P1ExPDC+dtqGLjjM48FI/6qquGEf7h+ws
SGKwfuaoesNp9HzjgtZrpTLYufmzwXMtMaavH1t1JJ1BW7PjnF0TxHB2vFD5
7xSD+3UqRJ0RI2Nru9N/mQzcd4QkP1cTQ/XOhV3lZxmkz/V2E1TE+OF+Qtng
AoPEB+HMwlFiTJy7d2FSFoPSaxOXDhsmRt3QgWEDlxn8Z//hyGsZMT5EfPDY
lM3g1XOva2eGiPHKpdzhTi4D1kZBFCghxmHLwDfjrzPwOSRuXtEnQKnmcHdY
AYOnNxfc0v0j4PmrK5dqbzII/+s9aNQvAdulxBJGxQwmxOqndbcLKLcu/BF7
i8GG7duiPnwV8C7+U1hrKYP5TqUPnrcI0FM/d8XiHoPbaToWpU0Cmiee2Jfw
gIGsd+Dv/HoBPYYOv7+WMdjbPuJjzjsB/aM8Fc2f0Hlb3hyU81rArqu7qmOe
MejOjVqSVyVAw/HXvIZyen7pl0VF5QK2xe9fOfMFA+3CP3ZlTwTE2GcqhVYz
WCYZJlnzUEDpvabwx68YePcOlH+9K8D00J1klTcMLvwbnyN5W8DqzLtbXN4x
8DgQn8kWCfAI9fh09j2Dcz2jz5gXCLjQOXl0ez2DeVZbrrhdEzB21f4+vUYG
Hfdtiw9dFTBxd1vC3o8M9l1MfpKfJcDtdF1r0ScGyb4TXrWcE6BfVNbd/5mB
ZtKNGvVMAWs0xxWbf6X+cjUvX3lSgEuVtXlYG4PNZ47lRacI0NlwLbS4ncHz
klN8+XEBy34+C+7tYOC0w95CKV7ACvdeY4NfDMKexNQ5HREwXDf15q5uBnnz
HNadiRJQEaD+7/wfBiVeR3O7DgoQa7yQbOxlkGW2uGkhT/W/wlaM+cdAoTTg
U1qEAIcwF7flAwwaTTRv9IYJkE1pLdk/iIW+2grHtcECWj+M/pgnyeLnp1HF
hQECdn43qW4ZykLL3vfT+N0C/Oeejxkjw2KxxqHyQ94CRspfHbtQjsWLST5+
PTsEzCGpvv4KLG6sWlC5bRv1T9bt5IzhLKafntRY7yEgzHVjQvlIFtYjjTLW
uAn463d/c68ii3vJmSNfugi4nawvNVGFRe2SJK1VzgJCIn4FLx3NQkp9cUPN
GgHqZfMf+6rR5/V/Mt24SsAUSbf24+osyuou6H+1p/N5Et1WosFiUeyLh3uX
C3hTMPRBI8vC73Vqu/wSAUc8+/cOncBCca3D+ZM2VI/IbLnJE1mQdJMOYyuq
x2uHvTZaLG6rnrz7GgJSlMc99JjCwmCgelyAmQDlqXO7DmizaPKd1qNuTH9P
sXbIKR0WVpv6HO4a0Hl/n/27eAaLjfszdLzmCCju2/qsZiaLSufw4HEzad4y
Lwqds1mUm3bjuY6AQ3s5bXl9qses7f4RUwVImrTnTDBk8UV6mZqploDaWtOJ
c+eyWLJIWuvPBAE5gk7YchMWEvrDjuezAtRO1d9zNWNRVFztFThOwKLHu7t3
m7PYK3qdATUB95sUVAQLFhlvjujJqQroUCkdf3w+C5srvMZrRQFZFVka5xew
ME8zXnd2BM13+WfZAhsWOxvntAYqCLjOHG65v4hFz7KBB/ayAq6oZ+W/WMIi
zFbn+zQpAV5BzkF1y1hs/rLMWVZSwI6lV+Z8sWUx/ErvsNYBHkt7rzV02rPQ
K3068KyPxwT7YPJ3JQvtx5tm5PXweByuqCm5moVur1N8WjePqVxEgewaFg8l
1+tF/uSxcWaNzQgnFqPGjBwa+oOHPDf2hZIzi4lN7FCfNh4uz23XjN5A31cw
mbW1lYdjVOg7tY0suDQV4tbC49HUC87qrnS+MzZLbPrII/Bjda36ZhYRFz4k
b2rgMS1swFndg0Vvu80a9zoeScZT69S2sDCzcNLd/o4HeWu7afQ2Fgct3zH+
NTzizu1sUdrO4kB3rGbESx7L90R4j/BicfXmQuOjL3gMnD4gIbeLRff8Zy5n
ynnEM57HJH1YTEv6EVP0lEew6/RZfb4sjqjxj18+4uERcbv6524WPu5bZDsf
8GCnjdnXuodFutfOxaPu8ViWomX4YS8LZc/Ag3NK6fverP1dHcRif9W2B2tK
eJgP0r5XFsKiy2XS3/BCHgpxfcmFYSw8hxyZlFXAI9/IIuLSPhYBbUmWb/N4
XHJu2pMawaI9eJatfC4Ps9HPgqJEVB9rq4XmV3lM12mJDuEpKzzS9r/EY8lw
tTxPMb2/KP/nlQs8uhoWfltziMU7T/n0b2d5JIetM1gQyeKtwx0dnUweVv56
cTOjWUhXvY/3OkW/P+y6lHosC5WNru9y03joLS6NGnKURVqM4++/yTy2fNOf
3hbH4vPIshbrEzws/Tsbq+NZZJ4sPR+XwIPRqb5amMjigfIq4+Y4HutH5yec
PEH9uzg+3ugIjwIZ/0SSTPMwPbkwKppH7InW3G2pLIKuhJ9pOczDeE5b67J0
Fk/LNjrMP0j1kl41b+Yp6hdv5zsneR7p6n8ujzrNYkJ6fNtgEdVv4UWzzkwW
T6z1qzz281Cda/m18iyLDbabdj0L4+HuE11w9Tztq0TrOwYhPOrtNp+Jukj9
+lPpwalA6meF2DzPSywGcX8DRgXw6Cz8+MnmCovnZTNr9u/mUbpyuolmNs37
/m8fun14rL5omPsvh8WMB1tiduyifgkpt319jUXfj8amTzt4mHjeGnX1Or1/
XlKNqyePd30VPXwBi11l1Z4NW3h8Pf1UxuUmC/fwlydcPXgUl+411y+ieup+
cv3kxiM0LTVVroTFP98Vpds38ZgcKDG5/haL4Jtbcrs28PAJc3uTU0rzZB5o
sM+Zx/2Kg9dFd1lky7yjueOhLjK65XifxY/mho9pjjw+XZj+a8pDFvXbPsvN
WUXnu0h7dU8Z1aNtcX7ZCh6L3Nuayx6zWHlgS8tGOx5tfXqnE56yqJDISPy7
jEfFiJJY9+e0T9s3lCUu4XEwxerK7AoWLkck/YwW8Zh5LuJffyWL2Q29iW+t
eYwx0A95XMWiKiJbL8yKR8JKRd1jL1lUV8RbaVnSfCtXKbm8ZrH98bgH5eY8
bBJm6Ex5w+KSesH1IDM6H8l3AT/esrij8kFJ24SHdUxkb34t7Z9Lw9+9NeLx
NLw3O7SO6u1/WzbKgMdQ7ZdpVh9YTDnjlzJfj4d3Z/k92UYWpTKXjv6dxWOS
Q/L4500sLId+/5Kny2NzXev12GYW7xNKUnym81hg6ClyaKH+sT2XNWsaj4Ua
TyNVv7BIXmqo/HMK1WNLYcXrVhaHTXorr2vR68M/LU/8Rvedw/6m4Ik8opk/
Mmu+s5i61s16wQQeFx4lD6j+oP6NmvNnBEfz7BI652UHC5Nbh7prNXjErLDO
PPKThYeetHmWOg87w5RVtl0sxl+fXx6ixqPyofYC+d+0v/iG0/ajeWh+POb3
4A/dh5sjiier/L8vDnwM72XxMvS5qoQSj70yyceM+2hfB2+7/HYkj2/J4cLP
fywY30H784fz6K55WXxxgEXiZ/PoeAUeT4zYpGwJDinPqqv2yFE/T5rRc3gQ
h9hg72XrZHjomG7p+W8wh/vXH/VAisesdI1kS0kOP04efTVlCNV/WGrDuCEc
bt7nGxQH8zj2zuhxN+W5spvGDAwQSPw1XV0xlEPw1dqAtn8Ew3v+iM5LcVB2
uilR95fgZ//NtfulOWT2FV6q6CG49aKi0kmGw66PmSH3fxPI1PDfZ8ty+HR1
nldRF8HhkdOvyslxMF9hG5L3k+DtuGGjGykPk844d7WDoNPUT/OGPIc3a6W/
X2on+Gx3+WW0AocSZumSS20EojdSMzyGcRjqPb/k8leClj9lOqbDOZRdLbXK
+UIwztf8xagRHI6Fp9TmtxDcuXyNaaGsfPdKxK1mgpN5PopFIzlcTqwyfNRE
YKN/91LMKHre9Z+6qxsIUsLaf2xWpOfJfFjSWE+w/xBqjZQ4XDRbG9n5nmBT
V/9OBWUOYZPCNg6pJXgw4JNVT/lANGsw5i19/6MfY3NUOAypm6Awo4Zgu2US
J1Ll8Dnd98OCVwSJ8+vWOI7m4He0/6pLNQECfhlPHcNB8kROUNALgmnbJj7s
pfzkVvi84xUEZ5Ze+/dEjUOSnvPvgucESv++1CWP5ZCx2Pj026cEfpLynjvU
ORj7Kc7vf0zQc8T5lNk4Duct6io1HxGQg5qiYRocfm04vnzJQwKz3aeV3lPO
irXI97tPMPSQ5vIshsON669k0+8SKGd/1AtiOejfdrJ6VkrgFTitbBHHwSi3
cnPfLYJdU0xkxoyn38+02Dq9hMD+4uquZsouRTm2G4sI0k/djs6dwGHDFF3V
YzcJnq8vfB2uycF50t2bTwroeWqFZ8smcrD5HWwyJJ+gsnyb99hJ1A+ft8fP
yyNwOH7q7ifK/taZjwJzCYYt876Xo8VhrKtxVUE21Sd7tF/oZA4mhyyz/1wh
yJn36sWiKRzyR7zaZHyZoH182wflqRy0545oCsmi8zBOTq2nXLNYbs7dCwSy
jKbCBW2qX1izrdx5AgPl0ql+0zgMSJcarjxL308977eZDocm6VufUzIJpn42
85eezuFBnOSm1gyCU03HMysoJ+ReSzU6RRA6Q5ocn0Hzs7o3TUgn0E6/O9pV
l87Tud/1bSq9/lBhnfZMDoUHvzVPT6HP+8radVJOj+3UikgicJYz/n1jFofW
IZj49jhBSW2C3b7ZHFY4S9XOTiRYXbXbeeEcev6OgKWR8TRfY0aqj9DjoNr3
1PdLHEFS7KnDLykXHZ1rZ3OUzvP9luwkfQ6zLvyuPxNL0OuQKt5kwGGdvOV4
mRiCe8NDVSYbcuh0WqXoGUXg9s5y1TfKxxR3ZZcfJvhtM3lRthGHxrAXffqH
6HlS3Tt2z+UQdaekM0VMEPfRcLmxMYf9jwNipQUCzfrXLv2UO1ZZv/YhNC8j
wrTumHDY1+51p/4AQXiexymRKYdN30zsl0cQ7Ch/WLXQjPp/2599JfsIhLHv
bsrP4+C9vGPFzHCCNUpvHJ9TlrfcfScjlGB0d8+FGHMOY3Kqn48JoX64tfva
CnAofrrJPzqI9o/2AT9lC5qPsF350oEEq/Kdv76k3Lt7dcy+AIK2UwZqCZYc
/qp6DvT50z76vrDfcT7NV4S0ZOBugvdOj0+MseJQfYwc/+NL/bOj43sN5a5a
q9IAH4L/vH71Ji6gfk9JD+jdReDjIXtrjTWH6PKe4pCdVH9ND5MxNhyk1XOi
B3sRaBli12vKI2p0vgnbCbZ2P10fv5DDTIXyypGeBJODLIasWsShcsvAvBNb
CZozXrgpLeawd5HW7ElbCBYp5wVXUh6Vc+l8tge9X1/DNnoJB91lg06buxNM
MTB/t3Qph7XbothyNwJe3na83DLql767Yze60r72Dh//kLJbgmJc50aCV5+l
aiOW0/7a+U1MXGgfFanYw5aDl+P9XvUNtI/66sP7KLsWKzbnOBN07Uv0LLDj
IHVxic2SdQSGbd6j/OypHnc+s81rCYLPpvrorqD5M9+8I3wNQXKjXXQr5az2
uTM0HKnfj9/8L3MlBwujlo2Fq2hfxgzrc3Gg8x3xVXKdA8GcVUFLx66ifuq7
r9K3gqDWXH9tNeWJqr1xqfZ0P/hsnxC1mvpVQj7c0o5A7q39ORtHDg5fQ162
LCcYPEP1q8QaDkdj3xyNWkb7p+NL6w3KGw3O3DBYSmDn8++sz1rq/9M7FnxY
TP35JHzCNCeq57RC/UOLCPobMpyaKMumqYsNFxLs3Rpvl7SOQ8xqjXnN1gQV
H/ghK505dE+xWxm3gEAv7qy/3Hrqj+0LHlpZEYxMmXi2lHJwd3RityX1W+P0
+IANHHaq3rt/3oKgaEznfF0X6q+EPcs2gED1btrVZsplJRYzlM0JDs12r03a
yGGqTaHHEzO6v8iuh/abaD+4hnZFmFI9Lrd7S7tyeJyv9cbMhO6nLSNriyif
dLEf2TOXIBASUj5udP81Jx/PMyIIivvWrrWZ9p/leV9fQ4JlsYNPvKP8q2F0
ymwDAl29nUNi3Dn0JB5S/qlH0LjYRdfKg0P4+XM11+YQfPcdGPuHst0t5c97
ZhPUM8EPL/5H3+e7v4XpLALx4UH6Lls4zMjd0zRoJsHS8kI3xa0c8tpuPy2b
QbDiyauV9ykfbPr3N2Y6QblB6NCAbRxOmb7b6aRDYHXifYC2J/XLYOnJk6YR
FNtxl2spb0+ZyXVMpXoK3plR2zkUvJRxKplCoG7RtwE7aD+WW1QdnkwgZff1
bQdlQ/nog85a9PzOW9UyvGjfumaGTp9E9WtIH+uwk4OWrMnlAU2CQt2iuiG7
OLwQpMdUTaD7aGuzex5l+Tt3b54dT6/z1lfdvTlc+jL1WAhH0LRatkTFh0Mp
35XpwFJ9Ahyj71PW8G/6qsMQXNjsNHG3L9W7PttdSoMg3sMkZKIfh6cmnGKD
OkFauuaJKsq7V7a3F40lOCFnGrR/N/Xv3IZ/x9Xo/vS5xM3y5/BqyQ3jgDHU
n8HpB+spf5htmuk4mu7rU2Y3IvfQ59fpmhqpEjQYXsoyCaB6kHX9aioE/m6j
3b9QPnOWb+1TIlg56XRj/F7a94NDBz4oEgQ4BE2yCqT7LlnW9MEogrC0e9M7
KD+90Z2aNZLg9eGzf1OCONQ2KE6OG0HzHbgkenEwh7NvdKqChxNEpr/+3E0Z
p5VPeQwjKFPwlckIofnZl3TEXoH+f3HW6vvyULr/vx7NMJMnsJjle6KXcm98
ZZW2HPXP/EnDzoTRPvaeOkFNlvb9in3W9uEcJqV7R8rIEOw5f8m6j/L34H3K
PVIEA14Vw87uo89PmHW9dSjty4wRyfb76b7PXef9fgjNOxfb8Zdy1f23VpWS
1B8nAoefieCwpOug7oPBBCrpHZ22B2i/JC6aWTSI6p+kntZD+fqcrgW5EgQK
lRpKGSLaX4E7dl4cEOGxi4btUkLzsejoxdP9IoRZmq/somyctbAn9Z8Ilrbn
2FSeXq/e5XiiT4R7hiHXrAUOr5kf9+L/iiASN45qpxw1LAtxvSJIXO4zTBBz
+LLo0KMjPSLUtbZrmR/k8Pbk7g1H/ojAuX6o+0RZRtqh/8hvEVYodrpEHaJ+
jhx5Lq5bhIJXCy/oH6Z+9Yx3SugSIeg/mZJaygu7KpWTfolQs9YhKSKSQ3b6
1ZdpP0VYytlZakdxqB/gkjM7Rbgvx+ZWUO4tVfwvq0OEMuuPbf7RtN+z/fWv
/RAhs/5O57gYmv/ceVLF7SKklbwvvUNZ/uH6mgffRVC76LhuSywHg0FlFyrb
RChdvPLWsCPUX9E+we+/iVAy/mdbDuXVeSuXtn4V4c2RtS2OR+l5H7mq/WkV
4Wz9uYt9lAWjxEYpygVTJE1OxtF+C207o/pFhOIdB48tOMaBTFvvPvmzCDmR
Gwu/UK583zhubosIw23OZkXG036cH/R0yScR/ge0hh7i
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwVlnk8Vl8XxWUokRLJfO/NVJRSQqV+lgbSiIRKKaJ5oIgSyj2XRNJESDKk
kKRJhooG0kAoQpSUKERSJN7z+uf5fD/3cZ991l577TPBZY+tm6iIiMiJYSIi
///UeFB/t283A5H//0WHoi/9zeYgDwbzt+xltyuHIvlZkrf0fgbVNj1vM9KO
wQArOiO9GfROir7+2OoYXrvUlI/3ZeA9ZtWdzp4QCPfM1WMOMaj/bj0pJS0E
UVLCW1V/Bmam+lNPbAvBoOuFwdhABsOrM4MCDEKQoeUXpRLEQOz4r/Z9g8G4
LSGfFEUYTNSudwuuCMY6zZWa8iEMsi+lNnanB0NyuIpKeCgDw9kScZKhwVBN
X3NMIpxBUdKnHwY7g5Ee/sPTL4LBprxvB1tsgqFxvaCmK5LBY9tlaTlzglF8
MS7f7QwDg8J5F810gjEp2I2rOccgxEZ1mda4YOye0i5hdZ6B/Z45VcriwTg9
KL4nJ5bBvhnF7PtfAgS1Q+t14hmsVWu9YNgqQH+9SuWpBAZr2BXT2t4LcHJI
e/0vkcGK3X2GVZUCkrZ1rt2SwsDvcu3d0lIB44vS9palMniYtyA3vUjAD7eY
ccZpDHKcKsPW5AnQmu27ODaDQUdSjUXuLQENEkMyQ5kMotrOLrmbKeBD0Af3
TTcYqM1Tr517VcBb5zK7opsMTGtL781OFhA2/+C7CXcYLL2a2BB/UYB8TVhv
QA6DqmaZic6xAl69vX6tPpfB3w2panuiBOwcfkxkVgED8czOgsenBZRZ5P2I
fMCgVuzrCoeTAurOfQloK2SwX/vmNDZcwEzVK9fNHzNQPeKToxAq4LNWzJGo
pwx+Lm1QNgoW0Gdi9/tbCa1nBTH34QUMjt0hZ/acwT8R8aLaIwL2Zu2tOvmS
Qeb0zgLHAAHqDj3/fSxjUPc27E2Hn4Dt546uMqhg0LexdnzMQQEnbVLk/ato
/6pjOh18BBQ+/hRY+paBwk29CTreAuYeL4pTeEfrfdR4W3S/APuUR1ud66h/
3xb9/uYhwN3f/UvqewZKage2ftgjIK17omJnI4MR4rq5DbsEqKw+OjCzicEJ
Uddnn3dQ/b3ao3ybGZTLpUf1bBPgmtzQlv+F9ndnmYXUVgFG+SW9g18ZyOq+
GKfjLsBRU63A7BsDmR3GjpabBThXWpgFtDOIllI7vMtFwJQNt/wLOhmkDSwW
jd4oYPnPl379XQx0+M/eTzcIsHXrn2Pcw+BB8yafP04CRk+Lz93by+ByQUqW
/joB5T6q/67+YZDhebDKbY2AY+oVYk39DBZq6CYmOFD9r7PlSv/o+WIXfXi/
WoBdgLPriiFaz/kEJ3U7ASMvtN0/OoxF4lKnbxtsBbR9UGy+LcZCvZRxT7QW
sKfDtKpFgkVm6ob0lhUCvGdfPakkycJ39dMLU5cLkJXOUlksxeLsznTNA0sF
GArx+7xHsTBzjNIptKL+yXgYlzSaRbte46lRiwUEuGyMKpNlkZ+12GGNhYC/
+59s7pdjsVM2b3PqQgEP44yGaymw+HK071rvfAGHg3r8limyGPHOfaKluQDV
kgWl+5RZmNwofxptJmCSmGvneVUWqS7mQd/m0f48j2i/r86i7VG1ndlcAe9y
JJ42sSzsRyfPPDNHwKkdg74SGiyqTI6ptc2ieoTfkJqoxeLHdI0R5iZUj2o7
X0sdFs4RaZ3RRgIujFMrdp/EwnVC2+suQwHjdGf/4vVYeE7RTFs6g75Prl48
cQqLykZRr8sGtN8dM34XTGVx6enpaaLTBBQMbHtZY8Ciq2t69QZ9Om8p6SHd
M1hIJwduy58s4LgvpydtxKJ06aZmFT0BYqad2RomLNanfFt0cJKA+vq5WrNn
s5he5x5WqyMgO2RKwApTFm7Cgjum2gKUExsfu8yj9XmOL7qgKcCq1KvXy4xF
vdSZTBENAU8+jVIIMWexY0PYwc2cgC6FwgnnF7CQTGrResYIyCjPUL+6iMWL
yUkZU9XpfJd9HZljSftZ+Er2rKqAO0xYyxMrFuK2odYDygKuq2bcrVjK4lWr
2I7NSgJ2H3I61LCcxacfXs4vxwvYtey6YetK2u+L2vomCgKW9d/62G3DYih1
U+UleQEaNn7C31Us+iWO2MjICSgNlNMUs2cxceDjZV9ZAbpcUM5IR8r6rRVf
RgvYaFBjOWYti9+VIm/sZARIcyoV8k4sXBSiMx5J03l6tdJRcQOLmC0aawyl
BDic8K9T3shimoxibZKkgGe6aU6qLiy+JvyYqjBCwMHmqnrVzSw2ZE1xCJYQ
MDlgyEnVnYWH61LbfjEBsXN0G5S3shg2rYzdLUrzvHblJsXtLPZGzn3QJCLg
zJU9LfI7WeRVKxs4DhGsOBDkMWY3/X5bh8erfwRDybyI1F4WscwiftEAwTlm
x1kxTxYNcqnuBf0Efi760wf2sXgfkqBk3EfgHvSw6qcXi0NW989f/03ATlY6
0naAxRKpE626vQTLL+iYfPBlcdc+fkRKD8Hk3PrfVYdYqPr5/+R+EpgN03tc
cpjFcp/7GRe6CEadGYjLC6D1tnXMUP1BcHeWedC1IyziJS6R8x0E15w+HYgP
YrGUuCcrtRPMU3x56ASh8570+kT0NwL9KS0Rh4OpP0Z7LVRuI1g6Wvn2jmMs
Qpo+PY75SvDr4+LvjsdZvE26MUa9hSAuYJ3xonAW3UaeWgmfCRZ6zzxjEMFi
f809Ua1m+n2ZO8NVI1n0TlBPu9JEMHNJ4Qnx0yyUBgxUpn4k2PrdSL/9DAvR
hFDbW40E8727m6rO0fOcfmBr2kDATKnKyotmsSrFTeVRPcF6xbtRl2LovH2X
u7q0jiBH0jtaiGNR/WT9YNU7gsiYtpvb42l+lNUrO9cQzDFsb1uewGLjd52/
rW+pXiNW/2eQyEJlXuUlrzcECap/Mscms1DQ9JURraL6LU6f153Cwn1e1ryI
CoLxs+d/e51K82ar7Az11wRunhE5WVepv/Omt6WXETRab758Ip3FurAMN9NX
BKWjIm/vuEbft1U5+fkLgu685i+W11m8Vhyb4vScoHCVvqnmDVrvhSlbO54R
2Keb3PyXzUIwkmgPLKF+OVy2svoWnV/bmYbjiglMdzwYm3WHhXziqjlXnhDU
DZT3BeewwIh/w+Y9JviW/ELSOZeFSHzpsYoigoJCXzOjfBZa9+xfby0k8L8Y
Hy91n8XuJtOaoQcEEw+KTGx8wGJF7bj4qPsEngGu77ILWSRF+WkYFBA8KQ+9
Qx6xCLIc7fYsj0CVzHrg8IT2Z7mbm2suwZc0/Z5JxSwkzNU1B3Nof6307PtK
WIzpfn3h/F0CK7f2zyWltN7N7BujOwTtAzOTo16wsC6/VFJxi6B8zP1It1cs
mJRfB/beJAi9sPD6jHKqD7nbNDqbwOBK0L/B1yzClvCSmVkESsZGh0srWXAi
fV+XXyeIWiU37ewbFq0t2UEd1wiejauUd65mkXZgZU1EBoFl1NQpk96x2LNm
55fp6bQ/YnU+P2pZbNmReq3qKoHFyfD+u/Usnj2I1/e5QvAisP+GfwOLm3E/
3NRSCST03lxc+IHFKD9T+8IUAo/usscjm6gfpJlB92QCbbu4Ca8+0fmdbLJe
Jolgc0PbncjPLAa7tPfdukSwyGQHsWuh+yjlmJlTAsFi9Rfh41tZfC8cViR+
keqxNa+8uo1FX49+/7UL9PnoLyuiv9P5YDNbHOIIIpg/ko4d1F/2GqGisQRp
z+KGxv+g5/ug9/HaeTrPzv6Gb7pov4y3fl8TTXDS1iLl1E9aj/ih9OFRBNYm
F1av/EXzXFecuXWW4HWx3iLp3yzm3kle4HKGQLP57P6nf1gYtv9THXv6/3nB
Nwf2s6hdcOPyw0gCX8m4s3MGaD5u2vhp70mC73GBIT//sahhrr2eEEHQW/Om
IH2IhUHwbI/KcILns9jYGyIcxKpTC0kY9bP21L6wYRyO+8UUzTpOMGXu1r4t
ohyOKN7a9/0YwfQE9bj5YhzEfaOqEkKo/jLxH9XEORxNamleHUxwtm5WaS/l
6FLLZGmBQOTvXPtyCQ5/bdfJFfEEo/v+kKvDOayveDLVN4jg52DumqMjONiP
mdxncJTgQUX567WSHBYNm+bRGkggWRPcMWMkB9Nyr3OJAQRhsvpZUlIcGqqS
tjr5E9SqySg2UbaOXt8y/jCd17n7Ne9Jc1CospSrOETw1TrzTcQoDgMeI1rD
DxKQd8OnustwGBZmvmOJL0HLn5Ipc0dzmLUzNnqED4HaPrOKsWM4ZIXl7n3i
TVCUeYtpobw2auHPIC+CS7c95fJlOfx0a2QX7Kd+NXp07eRYDi3DpveK7iO4
END5Y7Mch9nJjV6PPAiOHkf9LHkO229HxvN7CTb9GtwzahyHjS/b91jsIXg6
5JnRSHnZzZhWyd20/tPNkdkKHE6vN5N+sZNg5/xYjoznkN11tCpiB0H0ggZH
B0UOkx6PWmS3nQA+PXN0lTg4OfJOytvoftmuVdxP+ejGSJXGLQSXl93691yZ
Q0hBnX+KO4H8v9aGOBUOvf7Sx3a6EewXk96xS5VDXVPJrJmbCfpOOSXOU+Nw
Y3V++IALgRCqSWTUOVh4ngh+sonuG69k+feUU4Z91Y7YSOftuOaKDIZDf7/H
1jXOBONuNM88xHI4FPRmhdYGgt0HJ5dYcRxsO/JqOp0I9k4ylVSawCEw/5VE
/joCm3T7X58pP4+7+yZkLc3zxIcRNzU4XNzBLbZfQ/BqfV51oCZ9/4ybTlqO
9Dz1IS+Xa3Gw01OR/2lP56Nsu4eKNgdyZ2h70WoCu/OJj75Qvr5t9OZTdgQy
yz0eZ+tw0BTr+ueyiupzQ3G//0QOy/fYzpppS5D939sKq0kczhe/lxtuQ9A5
of3DOF3qT9v/wmtW0n7MiYtvpFx4lE1NX0EwktEclabH4fKfKRsDlhMYjyvU
3T+Zw8lAuZxVy2h9qrd/z5vCIVzeL3PSUgLdr/O8R+hzYKsVFgxaESR+Op9S
TllTPcyrajHN96kjhPNTOeS6Hl+Ubkmgl/BI0WUahxmrH2YftaDPi0et0zPg
0Flcnb92Ef29b6x1N2Wb+/6uhgsJnKTm/L43ncMld5fLoxYQ3K+Psj4yg/ZX
xYB8MafzXOnltNiQw4RNZ4cegs6XkqzqmJkcTrWZKcSZEcRGJoa9obzozPsn
B/6j/Xy/9UasEYcr7mpj7eYR9NvFH9tkzEE4m9ZrMJfg8Wh/hYkmHDoCjL1H
mxK41s1f/Z0yk7U74vtsgt+WE61uzOKws27Y/Oez6Hni3bq8ZnOY2hQfnmZC
cKbZZMWcOdQ/ZT0eocY0zxqrnQcpf3qX3bHdiM7LmACdIlMOOZtCxJbNJAi8
7Z5I5nKI7dbK0jck2FVWXLl4HtV7/qyeMTMIQlTqcqX/4zB+hmdZtwGBo/w7
h1eUR704av52GoFib1/aSTMOCYtUluROpX544HXLFhwMB79+jden+aPH7x9n
zsEy4KI6P4Vg9V2nb28ob/HraNk2meZ9orFy1HwOYyoFS2s9mkcdiwcdFlC/
hCrPNdEleL+2NEZpIQftKocnzCTqn11dHTWUeamfTcMnEmzZ3dMfvYjqnx13
plOb7mv3kQ8cLTi0+QyvrdGi+mu6mypZcphn3JRdpEmgY4K91ZTL2z4y1zQI
tvW+WH9uMT3/w7vq0RPo/j9kLr7aisMjqfHXgziCz0kVrvJL6O8tul6xh6X7
e9xtv9eU1cYbhzgx9P+N1FdGLKX5sWR9mZU6wSRjs7ply2i/a6tTTdQIgqVX
TpBaztG+OI7VUaV57RE4oZiyZPZpaQUVgrdfh9cHraDzeNP0nLgyzaN8BRus
5FBzVPxGjyLNo4HGwAHKcR8vrfs8nt4njkTvyLHmMDG3+OxbBQKTdo+x+204
/Gb0nEvG0ftzarznNFsON5ccvpsrT++fTdYRbZQVE7zir8lRv5/P3ZKyisOH
q8Xyl8bSvDwpM+Bsx+GWyiTFs7IEhqsPLVNZzUH25dIrx8YQ1JsZramiPO1R
y1P/0XQ/eO7UOGFP943ODc/9MgRStTZXLB1oXlutT98+ikB06vhvIo7ULymX
9m6SpvnT1dp2j3JFjWGRoxTdv57/Uj3X0P5kPLtoPZL683mgxuS11A+yyiOt
JAkGPyat/UQ5QLnmn/kIum+3nbOOXUf3o0TBYdPh9H70IVh8lRPNi1n+IUYS
9L58JtVbaj2HoP8q1A3ECWQvaKUWUm4p2TNvshj1W5P+OZ8NHCqzZFp0RAny
lboXTHPm8PGXi4rmMHp/fXQx6zPlxfd1qlkRguMz3OpjN3J4Zi+rrj7Eo0XY
W2yzifpxRvU3lUEe9ZmdHiNcOKz8NmOB8j8elltl6/Mpl6NOQ2mAx0GIDPd0
5WCsHBKq+JfHoTPfO3U2c3gY2OWr2M9jeaRoTN3/+WrZD8U+HtNm7hE/6Ubz
+ntth9IfHk1LnKctdKfzU/x8n8pvHh37hlT+UP7wfm2AWi+PRsavOH0L3Wf9
GMv+4nEsbJiR81aqp7SJrkYPj2Vlea5y2zg8ntj7VPsnD9vnb1c9oeweYtKm
282jzNhfwmc7h1fht05N7eKxMOa9j94Oej8o0Hlo+INHgTWXWU85odDSc3Yn
D9kQj5QTO6n+219fMevgoWo+sAG7OHRnHHa1aOcx3PpbbRflP4nDE5d/p+d3
2qactJtD5HGdzau/Uf0+JqjY7eGQVBp1dX0bj7xp+Q3iezl8/jrO072VR8K2
z263Kb867Viw5yt9HmyR5eZB9bigfty3hccn+5H3FTw53B1g6oK+UH18HCKe
UM5+oXjtxGceaZvXannto3m//JFITDOPc+6mh7X2c1Btqn+T8onHxQTNmErK
PfLclOwmHjFScw8d9eIwP2Kx2IOPPHZ7XuOme3PI15Jb9+IDD2u/hNBGyvrP
ZhnWNvLoS5x3L/wA3VdnfY5/beDx0eRahqkPh6En4a6/3/PwdlV0a6WckDcz
bzjlVdrJTed86f2iX/fU+HoePnaHtBcepPtfT++rTh2PgIuP9bsoM0rd+Sa1
PKrDUv9eOET32Y3/ZK3e8fh1cGnEEj8OVSNfflxbwyM8ofprL2UJh7XTd1Xz
KBm1TzLpMIfQ7qTBgLc89qcu7Fjhz0F6zRar0294mE/fF9NPeaOey9jUKuqf
BdoylwOonrq29nmVPAJtj1jYBNL9MfeXYnkFjwNXr1kMUFbZOdL+82seQ7vL
ZVKPUL80L5P9W85DJ2lMnM1RDiI9hy3GUpbiIrv+UnYcte7PxDLqj5iDoy8H
0XoKE7XNXvFQSOjqXsnT+SiVf2X/kuofq3qxj3Lr0M6u3S94jHqtLp9EOIzd
sCsi+DmPUmf1lcsEDs2iVakJpVSf+WarflGunLpxTu4zHvNXXmHjg6k+C19b
VJXweGxy+JZFCIeuki8vOop5kGNNYzsp97tsfDGSskjmgEnUMQ4Zdf8Waj/l
0dDWqWMWSvVjAozNn/DgXD40fKHcYpycsP4xnQ+5bucTxzmMXK0fdPARj5y3
i9OMwmg9JbXvo4ro/G6RvF9POVF8V9btQh41a+xig8Lp/otL7q98SOeNs56v
d4LDgYXz87sf8Hgixd4sp3yravivsZRLLJrbvSNoXi68mTz9Po+UxqJutZMc
GjMln9sUUH3uvy8somy8vGSLZz4P5XSHdVsjOcj43Tx4Oo9H4ZJVD2RO0ftE
znGx27k87k/42Z5NWeKSnGj1PR7vTq1pcTjNIbVnpHdfDo/UxivpA5RTThs6
q1HOmSRmeukMB6kAmwKzu3S+d4WeXXSWQ2aN9knXOzyywzfmtVLW+ORZHXyb
x2jL1Izwc9TPw/6eyrjF439u0AH4
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd1nk8Vk8XAHBtQqisWbp3isiWNhTiZFeyZEuJSrRJKEmE0n0sEUqULaES
irQv8rNFK62IKBGRiqJIvGfev57P9zP33mfmzDlnZs6WPWs9J/Lx8R2fwMdH
f+eWtdwa9mHgzeErluanY2C44M3WCD8GyGTnky8aoyH3Uc7+afsYCHAt8vEy
jYaFYP09cT8DCwI1J9x8GQUvtjTWSwUxUHJUzsPrQBTw7qycnRrMgPPt2vNW
C6MgRYj3Vi6UgdBWXfl3g5Ew5pExlhbOgEe+onpxdSQUKoakyEYwcLLCLso2
IxJuTBHPSeEYiFGd7tZ+MBI2KNgoiEcxsOnYwC/+jZEgwC8rGxfDwMJxt5I7
RpEgV+ASPSWOgdNk8MgytUgoiPvhHxLPwD0h44AByUiYW1Ta2J/IwDGh9Z0H
J0ZCzdn0+55JDEwsW80f/oMH8yM9SWMyA83vF3dVtvHAR71viuUZBsZNP1hJ
1/Pg5NjkPbfTGGjPlut0LOcBTz54o1ImA/Pu3zngcY0HGhtlX53IYkCi62yT
ygUeuDrnv/iXzcDRl24bUs7wIGfH9/XbzjOQP2FySUYcD6Qq8n3rLjJQSWzk
Fx3hwQ/PVAntfAbCayOqzQN5oLg8yCKtkIE6PiPbJm8etE4ZFxm/wkDv6tyw
1i08+BDxwWvzVQae/bo+ZOvCg7fudQ4V1xjQ8N4soGbLg1ijg01zbmK849JO
bjPngXhj7FDYbQbaAg92TzDkwfO3RZdb7jKwfcPE64PaPPDmj+ZbVsrABc3G
HwaaPKgzu/cjsYyB4wdTm5uUedCc/Dmsp5wB8bG+LxWEB0vl8opWVjFwyy62
ckiGB52KqYdTHjJwacoLfX9xHgzrOPzurWXgieXWtYtFeDA2c5eY4RMGonbe
m7d0Kg98i31fJzxjIE9Jd2TfBB7Mdv5l8LGOgVf5zxYP/OVgZ/IR+4UvGfBX
67C5NMRBgt158dDXDLxMLuhL6eegvOpT+OO3DGzxiKy495UD/WMV6ZJNDOxI
upoh1s2B0/nK7e7NDBRIjHmmfuLAK9Tr88X3DCwrvzPLro2D/AFl6e9tDM47
q3ZpMweyjkdGl7YzwD+7I924gQPFgL6UoA4G7CIt6oNfceCR29pz/zMDbJVZ
cXMdB1r3a4fGuhnIdV6ZvvkpB+sU5EsNe/F5+/LJwo84cH9lZhjWx4BnYOnO
pmoO1N2uh5Z+Z8BtUY9bbQUHa34+CxnpZ0CwaubhhjIO1nqO6Gr/wvlO2hc2
pZQDUc3Mu75DDHQra0jZ3eWg/oDcv0t/GLAyyxG9c4uD6NkvJ7WPMKAgNWKg
f4ODziK2ftY/BmrzYqObSjhwCHP3sB5nQOCxd0t8MQeCGT0PjkxgYUZl10K3
Kxz0fJDuuDGJhSrDGceMCznY803vddcUFuTl1gwb5HOwf/mlhFkCLHx79/Wk
TR4HM6YVy1oIscB3sTRk3wUOlvAy9+4XZkEy5lJrYS4H3oX/peeIsmD/3Knv
dzYHYVs2pdTNYOGGxdMOh3Mc/N1XvXVEDMd3yAhWnuXgv3QtfkVJFhy6J1xY
mcnBoYhfIVbSLJAvhaL16RzI1Ro/3ivDgtoe54zdaRzMn+Tx/YwcC+oThK7J
pOL+PInvezCbBVsXu1uvTnPQdHvKw3aWBfGJI9JpKRyc2DUWNGUuCwrlzy32
JGM84q4KKSuycK7EpdLmFMajwSHIXImF038u8usncZAhIV/jNZ+FgE/TU5ac
5EBCZfngUVUWcoOG/2mdwO+JtUzOVmfB1PTSI6NE3O9vi3+XLmBB11YkziWB
g9LRHc8aF7IQqxPbFhTPgfj5gqiBxSyYw1vXnOMcHAsiqtO0WLi27nbumzgO
Jul9L5mrw0JF/4/1M9AtLfqKy5ezYJHBr2wfy0FJlHqYtR4LPDdyPeMYBzLZ
bVVbVrAwJ62t+HsMB5aPA4YCDFkIS9Ors0BXfxKWjFrJglKMW1VeNAf9kuVz
zhjjetojLKajC+sLZ18yZSHBsFEqJIqDurpuwdvmGN9D6/u+RXJwk4ntqrZk
wUT+Qew2dJFc4a2Xq1k41Wp9u5PHgU+wa3DrGsyHY2+0dqB3WxUt+WLDwoY3
h571cxxYjVz/OGCH819VahmGnmsXwvtrz4Kvg17gTPTjcDGFSU4s1GveVcw7
yoEKibgtuI4Fp9d8CsboTQsbzaevx3jVVJu0R3Awjci+FHdl4e/jVDcO7f7c
Zp20GwsPPJrM1NHOx0ObZTaxwKokvHl7hINHKvmuclswH5p9O46iD3a8bpHb
ivFbWmatjVYLG3eV82Kh0Af6ew5zkKar0iqznYXhALX8bDTvnc1m6Z0sbC2X
cdmITsrb0yXuzYLU4z+tsmjrwAi/6T4s7JIbnd0czsF47lE+IV8WlAfjhzPQ
ycyuU5P88XtBVk4e6JAtGotG97JweOsXGTW0V8R/r38GsLB2xWK1wTAOWLVZ
h3sCWSgQ/utXjl6ToaTzIYiFd0ckG+LRandbfr8OZmHzCTOTTWjDCapVtYdY
0AnUz12MFk4aTb8XxkKxEtfOj761bGXE5cOYTwpcb0soB5ddPwVmRrBw5JpP
4XX0Culnwcc5Fnp3Lxc/jtZQ74o/FMnCQuVU0R3o1aIyN3ZFs9Cp8TfOFD34
0eLrumMsnHm377ACOj1sg7ZpHAsHdj9smog22b80aWE87qe2TdSnQ/i8yE1+
uUSM31SBsGr00lXlxyefZCG+M6Q4D739q5ZGXxILoZNrpsehjfYPtL9OZuHq
CC/BH82ovy6+d5qF5VptSi7ojdK3Us6lYn2d96kB9G2B/ad56SwYnF+9TQWd
mNpzbWcmC4zE+F8xtO6Svp41WSyY5YQF/wvBeE11NFiYjc87abR0o7Pk/lyZ
mcuCz6JnEm/QwhYFKwbOs7BUipOvQEstN+p9cZGF7Y8beorQnv7xt4svsXBC
5VxgJrrNduuF4wUsTAsVuxeHfiyceGPXZRaC+YouH0IP3Ov4bF6E/TXEwsIH
XW6voadwlYXfkqMR7minAp1r/0pYyNLWXG+HTj5UZ9NwnYWdJ2OrjNF6u8pm
Ft9EO08o1UY3j9YPR95mYXzH3RWq6N7cpwLud1n482LOSgZdWh5kqHWfBY2l
LeVi6NCzmZlCD1hw9X54dypa+SCfclsZC0aGP5X+BXPgH+bRVFLOwkfFSxN+
oqvrY25ylSz8Utlk9gUtxy0rc65mIbur7Ecb+nO+xq/5NSxEJ2SMvkUPWqo6
Dddi/omNeD5HW3r2ddY+xn6xik/lIbpvdGluylPcL+tJRg/Q9dMfJHo+ZyGm
OuTyTXRMhknR4noWHjlM216EXpgX8W/sBY7L+PnkoWdpax16/Ar7v/aJ0nPo
FHsxzVNvWMjw3rs2Df1I4pW4ewPGu3aZ6im0ecoC9flN2C+cFI3i0W2Tmg/8
eMdCbXdSSjTaLCFu5FYLCwK9k+cfRT8NH7ka2spCmYFgfyh6iuqbsyYf8DxQ
sv0RhPYbqKsSbGdBUD9LIQA9zyF9zvNPLCTtaYjyRW9t7bmZ2MmCqkTPbG+0
qc4uzqGLBcVfHz9sQ1vMfhon9QX71Z73dR40Htvv1Tf0sLDqgugXdzou+tn6
9FcWUnPvqrqi45k/Auu+sXAza9nJdej8R+njUj9YkNPtJ47oW+6hS970Yz+t
3PjSDp2w1uz8iZ/Yz09MvWCNttXJcLQZZOGYS2TqavSLGlXTab+x/xw9esUC
rdBxat/DPyzMPXf9g2kw7RdHO8JH8Hx4+E7TGB0kkH5Kd5SFO4I1qYD+mh4e
9fMfC6+GHIkBeqjxTWnBOOaHkG+ZHvrJMjbtKh+BimWCgcvRTvMWDMdOIFC3
h5jpoNX1tw9vm0hglUqZmhZ6UdbsdKNJBHYM/1FaQuMvkvlRfjIBt3m92ovQ
p5qXPR5C56y4v14TzfdX36l+CoH999MSNdCiw3+4S/wELPLK36mhf47ddTky
lYCEro+WKrrsZf2L9QIEbCO/ZM1HCzRGflssiO9rRsgro2NnaBQLCRH4KHzi
4jz0O3kR6XZ0f/felYroAf19CnemETBbEvdlLrrb9sqbeGEC/+5ZnJ2D5pr4
F3iJECj1ld5C0F1/atX1RQmclPddxKLl9xq+nDmdwCbVOmEGXXHlOtOFbthx
86c8+twNf7H7Mwi0vy3slKP5qlV5OWEmgfUeBu2y6Iyw7z+2ihH4XfG3WwZ9
5Bi0LBMnsHX5weFZ6M2DY3uEJQh47LQXp3447l/Yhm5Wm6ctTed/siOxRJLA
W5fEzVJob6M0wknhegpXnJJEnzZuXecsTYA7/qpeAg0HfumqzCJw6M+4OLXa
TsWaEbSP5V43cfQFq+v/nsgQWKL4sUgMLf7vS2u6LIGJa/gEqPdNmrZrtxyB
pKgYr5no4ROu2SvkCZwL0X8yA82LUeBEZhO4kvhGi3pFQK74e7TYW+kL02m9
HVOwLmQIqLfXyFFLXO1YGswSKCstTBZF+xxUq7UkBDwfxktR+87XE5g1h4BQ
in6aCNquwGmwE+37I1yROiv7v/hrc/H/s9VLhNHPN95rCFcg4Bg404T6QkvU
szWKBLRnT3o3jdZH3U4/2XkExsQb9lI7nMmu/IzefmbrTGqRNX5VJUoEviQf
LRGi8bkqvS9UmYBCwkxn6hKDty8t5xOQO9E1Joj+Pqfvg4QKrk+h4xL1gG56
ZhtaYslnZ2pBRkE4X5UAEXkuQK0tUa6yTw3zz+LQfQE6P7kbv1eoE1hX+taf
WqV7xf6pGgTU9j5Qo87+dOZ8PfrmaZmuqejQBVN5ZxYQuBXwPJdaNatSeosm
gXr3qq3/H68R3qC6EPe36JMStXYvazuA9rsh2cuPdhXS/X1nEYHdxSZXqR+0
pNgeXkwgvHJDELXTqwBXiyVYj1/NjKnLZs2Qm76UwJO/A6LUaYnZsW/QJjFr
WqbQ/Xy//WqaFoGAAZMC6hGHzOjN2gR+mdcGU1eJhkoq6xD4ZlOzhtqj2cjx
K/pT0OI51L/NlS2vLiNwoXFkcDJdT6Znf8ByApflxJ5SJ3XoWOvq4njUzhxq
hbYG9zG0zeBQMPWR6WFKFXoEYsvzHanDb3hlc/pYry+CFlLvrqt5ZbEC8yF6
nTB1lGzz3WkGBDKr9b5MQq8Tb3J+ji5tnFVDLT00nJ9gSKDnaOd5apGygOtr
gcCr3ykc9U/Vo/skVhLQfajkRe14y7X3DfpmV5Q5dV+2tkyKEYFLJTdUqAW+
WYw5GxPY2JgrTP1+/ePUWSYELDdb/5hI82d3/7dGdNil/NfU23x+jZw2JWCw
seQOtb+XYNk6MwL5AW5nqdMUvPRmmeP+aOVx1Eo64NuALleK9qbeMfR0Y7IF
AW+pv/bUysErJztaEpAW/6NH3Znz0kN8FdbvjoOK1JYSN0JeoLnsEJH/v681
2yZ+NYHusOGhCej52obNVlYE/hvp/UAdOc1mjtAa7Pdg84Sazy98Tg3av4S5
Sf22m78lwppA9AfHc9Te9yXtwIZASMyPWOrTo23ho+i16T0HqAcPn95125bA
B3XwpNbp85u5z47A5JA+O+qQi5n+mmsxn358M6BOb7eN70EXzFqpTh165u62
8/b4vdwPMtSbE0RG3R0I1G57PJV6iWOwlawjAb11fwf50C2GWi6v0eUxvh3U
sf7ec487Yf0uUX5FLfTOLs/cGeOfLV9BPXGBVC/fOgIRptZXqe36v/TcQcuf
v5NFbev/76K/C/YzD9cEaoUn4XPV1uN+6S4Npx77mLP+E3rTmIEvddCOZNu0
DVgPKQc3Udd/iJxs70qghb/Tlnpp0sX9QhsJ3HAPWUk9I0PxYjl6/hODxdSO
7RrJB9wILONUFajvzxow1nQnsLNlhQS1VOXZ4k709EWBU6iPLfZsSduE8f/1
emj8IJ5fPN8au80EtuQ5dlO3XPnuN3UL9rPW303U5ttntNxHC2nffUJ9EPj4
/T0IjLqllVIHJ339rrSVQLxkahH1msSJqc3oXIUb56g1l+6ZnOBJ4KV770nq
9lXumiZeeP4W6vGov+0dl/2DXjWce4C6jQmpKdhG4L6B0i7q6NgJWu7bCeQd
frCR2qrunofYDgLP671tqdc+eWtfja43WWhMXacdOuXATszH8ana1Cap7w+o
7sLzSuPnfOpSW3KlBb2Br1+OekaU3/nj3gSUb/JNp5ZbOeoGuwncPTFnIjW/
be+7frRs+9rBMbp+1x0yOT4ECn+f7Kbu+pgl67AH+4NGRzP1Pc37rZN9CUh9
NqqjztrR6XkD/TOyqOL/45FmxZ5+mD+HVW5Sf3ISfCDpT6DKrPgSdfsB5/hq
tJ+dcQZ1/tb1igF7CVST9gTqZC+9Q4r7sN8ujz1KfTZLIfUV+rDiygPUqUL6
wUcC8Lzy5fOm9vG/TBbtJ3Di6iN3atuQrJg2tEBouj31cPaKO3GBBOb4HzCn
/qhzuVDvAIGnGhv1qPd7SHt+QXc7rNKktp+X254cRGB2vKEC9QGH4HkmBwkU
RepLU4edrdLoR7v3wTTqhtiLfzOCCYC/1fg/9ODB1fGrQggkP3H7SR2X1dA9
hL51NbCLulZ4r0DOIZx/W3Iz9b6LJt+sQwkYS9yvo165aG/qCDp+elcl9Tfj
eSIXwghonpK+TR2+9rCZXTgBvl1rCqkDL102G0Ubu0RlUY/71ItcPIzxUq1N
olbKmZ5ud4TA3gLhaGohktj/F92X73iIekbqQdELEQQeDWf7UUtm9Q/YHMX4
7PzlSX02Te7sMPr0S8v11MIvZovncLi+qTnW1I/dZ9tY8fC+93HciDrMyNB+
EG2gt0mH2sgmj82MJPDnW6UadZXOoetmUQQ6mlQJNRfdPvM72vRdkgQ135VR
nZRovB/VTRCkbu35rmQYQ8Aqze/fKJps+dD6Ga3KdvRTrxUbcD9+DOvBwOUz
9e23FvlasQRaW+vfUQdvE3jQgp7VuaqOutHFIS0iDu/Py2oqqa2IrZHqcQJe
/5nepq4WYq/Voxd7PSykrjXr6Nsfj/cFcctz1OfbKgbkEwgIXnt2ivrsg/fl
FehNCx1iqGUKnDdsT8T7TmBLKHX5KvsykRMEhvZ77aV+MOdnXwnaW25gG3XT
CZcu55MERB3CXKkvtuUVjKKtZ4ja/X898yfpnUvC8xMyTalLd8ecMj1FoPK1
pi51Sdyme1/Qc8sqFlCLml8sjEvGftfvpED9P7nd9jM=
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwV1nk4VV0XAHC9IhlK5sg92xCSNBlDljJHyFyiFBGZMstQcu4lQgORJENK
KJoUklKKypxkTCqRRFGEvvXdf+7ze8495+6z9tprLSlX311u/7GxsZ1exMb2
/2/pmp77Mz4MYPv/50ICzNzoOBjrzwBt+c6Gz2EJkP8yL5gnkAGN61j6Bi4J
sAF2jqcGM+CcwtUMf4MEaHF91ywSxoC0Fz6+SkoJQD/Qk8yMYEDdrMruQMEE
SOem30pEMeBl7OuXRn/jYeHApYWLMQwwbxdaXvAxHoplj6WLx6L7VPcnvIqH
uxyCeelxDDhbZjg4dTce9shYyAiyGKCibZH36XI8cHGKiyclMKAj81WhfUI8
SNxwjOdIYsB/jY+HTYLi4UbSj4BjyQyQENlr/3BfPEjfrH43kYrv42jdf9Us
HuovZ1W5nWNAvX+XB59mPCgw3ci7NAY4inm8H10dDz5KYxwmGQzoeqcjDoLx
cHZhsW/FRQbc3l+ynGtRPNCrIvbKZTPg37BOvt44C9btFW87k8OAwNncupFe
FjjZF7XM5zJgh8VlnkWvWZDnOb77UAG+X9sa4RNVLBB5UuTXVMgArrjlMV7F
LPjhlimkVsSAw9sdxh9msUBWM8z4YjEDyouDeXySWNDH8Y/vXykDJJeaxp6I
YsFA7ID7/jIG9LN+8077suCtS5PNk9sMSLfPcX++nwWJ28K7pO4xwPTeH7sJ
axYIvkucjq5gwNR/dSWBhix48/ZmSc9DBnT6aerv1GSBN2c8m0Y1AzT+Ws9H
KLGgybDyR2oNxjOd//lfigXdaZ+jR2oZ4F6adb5RkAUqEtdu6tUxQFEp5MjX
JSz4JJt5PP05/v52nKP1HBNm1G1+j75gwMdcym/JBBMWVngJ6DYyYECZv5X9
MxP8bvm1p7xmgPN8SpFhNxMk7X9t/dCE8Vy+df2bZiYcTjthvaGVAWv+sOdc
eM6EFKsCwah2BvywXGqUX8WE2rqPMQ1vGRDEeS50vJwJ2qeeZAl34fN5R8+E
XmeCXcFTD5duBrxXUV3QyWGCe5T758JeBmy1s1Xams6Eokl50fF+BoQU1V0I
Oc0EcdsTcyqDDDAGrxfDcUyQDRpLDxtiQKVAiElKJBMO5PeNVH1mQD73ptve
QUxQrXoxvTDMAHudzoJjR5jgILOqWneUARzehxoeuTHBpc1QN3oM72dEtm50
ZoKS852o6nFcz0ES2m7HBPOfr4/NTuD6L2RGFlgwYZfb7Ba1XwzI/WVSkmfM
hGXrsx/6TeP+hAV1vdZjQnOoxPz1Pwy4U0d6pLWYEC/Zyj44y4Dh3QNpV1SY
8Okm1Sw2z4BtzqWTxspMsIl2ObDzH67XtaZfVIEJSy+NPDqxiAJ7MQdbPmkm
jAyIDt1lp+CRdp6Vwiom+H7Xav/CQUGeIqvrkAgTgjWvp4hxUbBk9vifBn4m
8PPcEjfmpuCEZchjSx4mbKazjwbzUhDx+IzJHw4meBc/zspbRoFCp0T5YzYm
RLvuS2/ip+BNnyXj+l8a/gY+OzgrQMG8tl7FrWkaHmepcsoKU9B27trNtxM0
RMb+OmYmSsHjyw2a4mM0SLzY3nB0JQXWKRap4cM0KLAfGM+QoCDWT2p6+iMN
so3JY48kKZgeNyk53U9DVwXH80GKAu4VLWx63TSc8VoI45CmoCIoS5evkwab
pDJueVkKlHwtqidbaVjaaRNmJEdBQ9na1h9vaLgktKreXQHfp2byPWcjDUJr
NKdOKlIgMVOvoVKPzxPoWZyrRMFhd0Gr0Kc0OHzf9LtamYI+abek1hoaquc8
X7/bQEEv03HPtioaBAtusCY3UdBaG6lUX0HDqTCiyKNKQY6javC+uzSwa42X
S6tTsJHklPGV09DToy2rqUnB6t6YPW9KaShnKUXv1KJALUb215UbNKzM7a9z
1aFgJZfpP+Y1GkwagqaDdCkwGeJeHFNAw7OPvMIsPQr2zj5NjM+lYUK4Vipj
OwWpxv/k8i/TUNxcLHndgIKdv/ceaMqioalpeGmFEV5fFtvBnUnDPUbil2cm
FPy6tyBol07DTYni+607KPj+RbPi1jkafCKcIvrMKTha6+osfoaGI2Y3N3+1
wHjoORacSabBbPbOh0krCr5GZCmvTKJB2uoY/deaArcYjeySBBoaYgRk2O0o
SHO9k2nBomENia1Y6oDx+sP2eiGOhn0b3hkt303B+DKPgYexNPAQ8VZBJwq0
PkSciD1Og8sbCwdRZwqOKy054BBNg/3pqO6V+yhIouc3a0bS8HJNkZOEK76f
hff11RE0hA+190gcpOBHm1eYZBgNa6P/OUm4U8Ba4HciITRc3LKmb6UHBXvM
XXiUg2ig31vsFz1MQai11nbDozScu+b7RdAb88tib62HPw07Q2L9l/tQIH5A
3+C8Lw3/8k+ycftRsIhLMaXxCA1pDK/z7AGYTy+mDvJ403DMdd3GuaMUFB3d
yLI5TIN77OP2n0EU3D0xX3PVgwZqrdjxkRAK/n3iaF90iAbzS3LqA2EU7BMM
SXJzw/U+7PndHkHBR7uf91oO0KC7SLHuRSQFtqmsVYauNPCem8uqjKYgW/zq
qSf7aLivoRdbcpwC1d8CbYYuNJQ4fQzJjsV8ODz0pHUvDTqiryNOx+H11EAl
dyca1il9SY5kYn4mOA6y7aFhx7KVd73iKXiV7lSR60jD1Afjbw6nKFhW7B+7
w4GGrOg9agZJ+Dypmyv/2tGgH6xybkMyBY73DXaV2eLv+e5xSqRSsKI0lMPH
hgYV09rTi89SIGKQxrvRmgaPb6rrxs7h+rf/0Ju1omFb8ORgexq6qT3mpSUN
DKX2W5UXML7BzIJsCxr2it5Pv5JJwS7XLUlhO2mo4Aq+QGdRUPJkichucxpS
M0duH86m4MguLLpmNGzZPDZinkPB53VVzLU7MF5LbLduyMX4P5XbuMqUhhyJ
P6Ur8il4P3p1boUJxs/4hs5kAZ4v0ROveI1pENHcNtpSSMHvX7WxvEY0uAUk
V9y6juf7vTLnCkMa+i0PXj19g4L8BFMNcQPMZ97Uu14lFKxR3/FPXp+Gycqh
z0Y3KVBxE9Hbsp2GWut1WjJlGG957SHLbTTY3VC/PV9OQUjEZJOXHuZLZJNF
5x2MVy7/N5yWQMurZsWtexQENXBLlerS0D3XPMOswPy/PWbfsZWG0fxXXC4P
KeA6vTucDV1dG6arWkWBTP2JgPU6NERdzs7mfkRBlbnsWldtGuTD2eT7aygw
TY5LvqBFQ0D0ga7yWgr+a/I/1boF60Vzwr24pxiPY6o8/GiJOI0a+2cU/HmY
+ddSk4bPRet+KdTj/aOfTM5r4P6aKNrNvKDg297Wjz3qWH/cxj69aKDAXyz5
vjx6bE4lP/0VBQGFlbeD1GhoXv4o1e0NBYaSbvXPVWlIuKR/c1Mz1vcV7IPi
6A3XYucXWrAfPAn86a9Cg5iaamRDGwUfrBdGGzfTkG4tsP58BwXNSwyrFNAv
hdoEXToxP1OsbFmbaDBKV1ZS6ML1ZMReG9mI+8PeHfrjPQX71TIKLdCGKUmz
93soYPMt1L+/gYZXMbNlUX0UDM2JBUihORQ7LusPUND/+Yb06fU0+E821S0d
xHxw8DWZV6ZhtU2W1JuPFAi51Hb5oA/2jdxL/USBzoxZ/eA6GgzUveJsvmA8
B5dwOqKNJV8liXyl4NCVDQktShgPj8rmzhEKhK+aGZuhjZd93nnhGwWlfnKq
L9fSkMz4w+XwnQKvU40Gxuiil1n/RH5QcHI+wfelIp5nl6jNHRPY/5g/C83Q
KbsMC878pIDZ2TLUsoYGS/VLthZTFGxatH6VI7qlXtGA5zcF98Z36g8q0CAz
dD7w+R+sD5Wl1kcU/l8vTg7FzGL8drHrzcrTEMaVdX7LHAWvv6mzx6O/ZcWw
fs5TYFTonboSPf2uo/rGP4zfqqnBG3I0NGpQF8vYCAQw7Md10XarlWcSFxHI
8TQp7VhNg5K2x8yh/wgUmpSLHkFvzJHM2sZOwCj6qgwn+hVf9odViwk8ZPNo
yJGl4Xy3RsM0OvDxwcU6aLa/2nbNHAQUylUb3svQsGzmT9x1TgLiiZeEwtE/
Fx46nlhCwK2F2SOOrmltbtnNReBN2RKJamkauN4xv29aSmCrnP3LfehE/nW3
uLkJLO3qGOBAv1/FJzqIttXg2lMshedVO1DmAQ8B7Yy0jTboYcvSjmReAmd1
zJznCQ1xXZzK7nwEbkeLdBeiv/x5oaS9jIDJJHuuNXrVUd3WFcsJrGFtL2FD
Pym9w/iCnngn87uUouHK3QCBKn4CZ7YIhDujjVSflqSsIFBPMjcsR1+KHv9x
UADv1z8oXMug4cQp6NEQJDA9rCoTiN4/teDLK0RAy+iHjQL6+b+A4n70q6rk
gl5JXP/ZodRyYQJTymv5z6G9t10kcSIEsgJ+Ju9AX9je52AvSqAmdRNZjIbQ
X1vWiBF4vG1HVfUq7C+HZetn0TwGFS6h6Ktmd+YbVxJY2c7DqYIWnP/alyVO
oIx/vOiHBA2B7DxeRyRwfwKkTEvRM2eccnVWYXxsQ/u90XSCTByfJIFbNn3u
SmidoHzBXvT+zl0938TxvJ2S2VnMICCa91WrFC1UNqQSQRE4r9Vw3A/tE772
hQkh0HZ+fdFmtJ+CFpeYFAHziENlv1fSYHXDbuoTOnx769kqdE7u4+Tb0gS2
6A6an0C/2VvZGSNDQH2vRI8x+moP67W5LIHIZwJa/OiWpsP+4qsJrPf3OfRO
DOfBjNynn9H9z4b2XkHzmfvXlcsRCNHWlvBCry0TDYySJ7Drq2mWKrp869tW
EwUCQibTvWzocamxAaE1BOQfbep9JYr7sSUrux/t7sGenoFeypDhLVIkYHgp
jOsQWk2odk3gWgKHHtxRVkVflbj7W0eJwO6GD5yL0WuGdYKXrCPwVVXrdJsI
DbkfMwqa0Y1+XE/y0FHKS+gMZQLU00uXA9GKOU9FXdcTuPJ1j6zh/6/X8+5R
3ECAf/CmuRhabZSynERXpQmsHBWmwYl7y+8HGwksKuc6+Qj9qCfd8vgmAk06
0oln0HZtQU7Gmwk8iJlVPoSuEeOXWK5CYOSm+mFt9MXU3MQOtGBlgpYAmqPX
o+yiKoFPXDdzhoVomLXJjt+vhvtneji9Bl23LEpYXp3Ahc2JkunoA93bbL+h
vc2/b/BF/zaSNynTILC5/miTEVox220iSJPAwS1LfxP0uSH1nVu2YP575RfM
CmI96+90WUDzbdLvakefWB4t90SLQPHWH8k30TF33XPjtAkkfKqoT0Afaapv
M9YhwPx5L8odzRLvfsizlYBGAs/tbWgHwS77N+h7vf2uFFp0eqYoRRfzSdEt
cU4A86Em6M4uIHA0sn3de/RPxZOBQnoErgf5GFSgbe87jXagLdQjWtLQY7lq
K9O34f9ZmjYHobm+Gy/Yb8f657kJbNG9uxsyxfQxH7RTKVX0+JGJ7+/QoqGN
3sLoQz6/Zi8YEDCNN5ObXoH92n1pjYMhARyjTTvRF2XctcSMsH4NTnRWoOXU
wa8TzXuP73Um2nP61d40YwLWii4KkWj5CL3FtiYExrL9h13Qn/JaDwiaElD0
fMuzHW0idPdYC3pti2yq3P/vV5W0SN5B4NTnmWButIKabreZGYHL+/9Ufuen
gcljIcVtTiDjzAvnNjSbf4xUPXp+q5hzBfrtMGdP7E4CP2MyKy6hvauErcCC
gHHlkiOx6Atz/TFz6D3HJMM90VPHL3hVWBLwcMrus0Crj/mvCLQiIP3TKkMN
fawwO2D9LgLVxYuvS6KzBi2TR9Dxr5m8HOiojIeHCqwJSOmVPfm2HOtlCt+c
iw3mx4U9De3ozbYRZuK2mF9DbtLV6B5dVcd29FzZ7ZcF6MQAb+nTdthfepVq
TqO531tdM7InkJtWvSgU/Z+yyCibAwGy3S5lP9pq4uvIA3Sm96jnDrRlwHxh
gCOB1JygJFW0TGOM9NrdGK/giRkKvfAhb/dHdOIBl1JudJhnmuXFPVhv6p5e
n1qG89EAc7G1E57HB3KjA2iVc4XB3HuxHiw75/8KzX9JtrAWHWokoV2Bth1c
lxbqTKDTr8kkH10lNrl9vQvGg9RnpKBFnl6+9Qnt47lqbST61Ca3nov7CBjc
+zbnif5C+9Vb7SdQO+CwzB7dUzruv8QV93/6pLM+2siDv6cK3YlTykZ0OLBx
BhwgkLSv+j6Fjjj3bVzuIAGBNqkaPrR56n+Z3egy++lFc3w0rFfxXZziRuBO
jk/0CHrQ1GW9vjvuj0utWhf6+9F/4n/Q8rIK8i/Q/Yxj9TcO4f2+/Rb30fGJ
i1RdPAh0nJK7dRVt1lR5QMAT6/dJXaM09K7Gt9bP0DnrsHqgm9SiOEIPE3CZ
nRMJRutn9oYqehHIW7F5pzu62pKU9qC/Kzk/sEPzs/wLTnsTSE55bW+EltCb
c4YjOC9wtSlooDktR99PoN8OPFm7Bh3u5Lkyz4dAc+NPF3H0lw854ja+BGR7
H9XxoCvXV/Ut9sN+nBrtOM+L/cjzk9td9Myds5Lj6Eqm4S03f6zP5nv4P6A/
2i19JBxAQLNEY2MbejDUPvkZ+j/XlOhn6KKDu2WDjhLgEHs5ex+d5q4VKRtI
YNuNHblF6Ms5Mplt6L6lsUGX0Jnc2hEnggjMbu05moL2CSghG4Px/O57nhWL
tjyWk9CPlosqHw9Gz+TqPEgKwfpxTdD7MPqDekmxViiBlmHnFc7o4AOibl/R
7go8/VZo69X5g2lh2O/0UtsN0KE2Eav1w3H/Br0mNNHRl+vWTaC9UkVVldGd
iYV/L0UQ+JEvcFkaPRW+I9n0GO6/aq+yKDopp3N4Gq1AzXzkQb/gPcqVF0nA
7O/XajZ0YKH+951RBPYJq1ZN8dCgt/Fo5iy6zn5/3wj6+/bVfFejsT94/pYZ
QMfsOm5oFYPzTNzxxA50yPUSwzl0c8gp0Ub0P59mvsLjWA/v5NY9RsvlLc+y
OkHgvqzd2XtobpI68Retaa0WW4zmzwxfdjUW++HmjrO5aOGciUmLkwRok+d1
F9CXL0pcnkHfP5ktnIzmbZEUzIsj0LDjV1wcusFF0sKMJhDl7iJ8DB29Tdd6
Cm3PF/Y0AL3N4hqVzSRQ8L472RNdpx55x5BFwPWBTPg+dFz84Ipx9PaFseP2
aLbSOfX0eAKWml1Xd6L7RsbldBOw/zvGDRugietA32d0Y8pZQx30LoFJl9On
CByxuvpYBV3x1rhINZGAmsV+OyV0xCGuRz1o8VjPJbLod442F2OTcL5ZONgm
gTYjltsUT+O8vPrvA0H0M27qdjM65Gj7Qx70C8OhseBkrEeZmR3s6IL+J5Or
UnC+9fizdI4b4/Oot/YJWr4lw/4XeuUN+z0eqZjf3WsffUPXmlrX8J3Bfnrf
SecT+pHUz7FydHx6d3svuuuM4xf7swT+NjicfIsu7L92Yw49dS1uRxO6QoFd
68o5PM9nhRRfoKuPJJw3OE8geKqCqkWXJ+2r/IqO2iCv9BC9zKiwOCkN559S
IYvb6P8BCsuOIQ==
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJxFmXk4Fm8Xx1XIWqJSlpm7SIhWS1E5VJayRlIpvxalqOwRoWTmIWuJQoik
0J6SrWghKSqiEiWlSJZKkXjP43mu6/WP62Nm7rmXc77ne8aMbfvXOo8VEBCI
HiMgwP09827T7YF9FJxrKZ2gkBgBA7n1O0I9KNjb/veih1sEnHuc6SvuTUFt
vf23eRYRMB8su+N8KXhaXV1tviACnm9rrJ3qT0HzWNEIWiYCmDuGikkBFMjP
e6cs/DscEsWYV/JBFIjkKWxsexcOw9vPDCeHUOA0/tl0m4pwyFMOTJQLxfc9
HL4ecDMc8oVkMhPDKDBa/uW1xtlw2KRkpSTDocDhgvZT/ahwEBGWk4uKoGDR
g2tz9wWEg3zuhnChKAqOeBnH9+8Nh9yoHs/AGApWS4ydM94pHGZeKWnsjaPA
zls5MdgiHCrSUoqd4ymYUDr/dM7ycFBlnUljAgWRd1xF/ReGwz6NLiGz0xT4
iSurDs8IhxPDgvsLkinIuKn7p1wqHBiFgM0qqRR0P75vdGlMOGhulnt5PJ2C
88kPyNVeDjiuz3n+L4OCJ2dX3fJq4kDm7u6Nu7Io+LT17CutxxyYWp7jXpNN
wdb7L+d8usOBHuekyTo5FCwTa8h0z+KA8hJ/0+Q8CrpSl2rYHedAs9CI5Mhl
CgTtJ2heP8qB96Hvd269RgE79fWz354ceOVUY1d+gwLO9s1Nj5w4EGl08PWM
WxR8VVkgkreWAzKNkf3BBRREC/dMNV3FgWevrlxqKqSg1UH29vNFHHATDhdY
XEKBfotVVKIKB2qMi3ri7lKwpkNQK06BA28TPgd3lFEw3atB2lOKA1ryF64Y
PqBg08vij/FjOfBJOelw4iMK9I4/CTYdZGFA1+53ZyUFnV75UwJ6WBie5Cpt
8ISCu4cUF+9qY8H9qntd7FPc77cuAvvfsaC4/ufyDzUUpC3VqJOrZ2FPwhHb
+S8oUJ0onq9SxUKsTZZMUB0Fg12d9+7cZ6HswceQqlc4vw3M4lfFLCw9Vp4y
5TUF71MmZZVcY8E+676L01sK9hR7n5iWx8LOoJ2fs99RYHzrxz+78yzk9M2W
7W6hwDGm/NeFFBbk1h0Z0mqlIGHFMbddp1hQ9ulK9G/DeF/Z2PMzjoXt55o7
ij9T0DZZ8bFzOAvaxZX9w194+2fDsOCgpFBi0ElB5phioePBLDi9NDYI7qLg
B/1iv5M/CxpbbgaVdPPPw4cFix9PAwd7KTDxHJi4ey8La50H9XR+UtCE2zFm
DwsT5qUWuvdTEPx6mb+DMwu1fvL/Lv6h4HRRQmzMZhbCFV+Max2kwOBRU/7R
jSx8ukLXTvtHAS6v7o8tC3bBTtstRyiIC/qr12PBguiZjtIjY2ioUNM7vmYN
Cx3vZdvyx9G8817Bwv7v+nXtQjTMTg+/+sGABd8lF2OnidDgcqPDK1+fBSnx
q3KmYjSUy6rYCmmxsIhJ9fKVoKHPsGZn/QIW3PLupWROoOFmpW8pPZeF4G3/
JdZI0bDk1cO9Wmos/PV+uGNQmgZq6h6LH7NYuJeiLaw8hYZMpTtDrBILh0J/
BprL0sA9zoc0C/KVK6q8ptNwsk7UJUOBBdVx27tPy9OwcN18dTU5PJ8nMV2l
ijRcmdUWSsmy8LpA6FErTQNmv7CTNAvHXYf9hWbS4OUS1xUoifsRdU1stjIN
7YrZXyrFcD8a7PxNVGiQclhy01SYhTOTFSp2qtLgjwJjMYaFyWpLfh1Vp2EH
d4P+MXBcukkwQ4Me1Z+iQQYcvi/8XTKX5sXDHwZKhnY/bZxPQ/BfPXfLfgZk
snI5fQtpYDZigvxg4Jg/URfXpiF2wQHNs70MjNPvvj5TlwYntSdSFd0MNDUt
VV6yhIbhOr+v57sYuM7RCLbUp8F1Tn/i5k4Gpme0PNi2jAazMyEqRl8ZMKvy
6fcxoEF0IH3XonYGHn6UmMIxpMFu7ex00U8M9E4pm3F6BQ1buRv2kYG82jzF
i6tokOEKzgcGamq+iBaY0LD+27yi2S0M3KIi2x+a0aCcOBI73MTAFfm82y/W
8OJD9i0D+wIcA5ot+Pv1moG95lcWfbWi4QymW1kDA+aDNz/02dCwtoAK66xn
YKZNIPPXlgb3Z5wXW+oYqAqRVhpnT8OlQce9D18woEZCC0QdaBhY8PnyrOcM
/De/0WTiRpqn/zUMiBO5FzKONHhzD/QZA07PrBxkt+D7D+rkLq9mYH100Nvp
/9Gg81Tf8nkVA4/Vchzlt9E8PXnMwMG2uib5HTSkPc2pWVfJwJzgEUf5nTRw
t1uvgoFkPbXm6S40rx49ZIB5Y7VVdg8NP93sD11+wED8hf3tMm64vhCVcuY+
A5YHQj0m7qOBKydHyxkYOXdUQMwd86mwIIopYyCBcj05zpOGaB8P+ah7DARu
01ww5IXne8p8SuRdBnaG3qv74YP5hemfUsoAPWfa4Y4DGL/xzpyPJQxYnFHR
fe+P+XTV2lUOeU5h0++6AF6+eBUzYDBG/UHlIZqnf0UMSMQPpRQFY7yswL8U
MnB7sWHopcM0HBZ8GLMA+ZLjxwOpoTRclKld6XCHgWWyTwOiw2jYyf0pYEBT
oz3mEEvD2GIh6fjbDKyZMD3fNZyGdWUXzj27xcCvD6bfHI7h+Y+xOCqJnBK8
SWdVFK53jW64YT4DK3214ufH0CAv+V4z9ibeL3lLWD6OHvUD1TcY0FpdFi14
goakAykZSsgu37Q1u+JpkPTIO7bpOgNGvn2tdQn8+68xQGnUXS06RUNuDRoM
5M2ytxPPJtGj9fImcoGI7ykmhYaRGf/6fZDjkjpu7Eml4fEng3NOyHqLujos
0nnnI4hsMH7d8vkZNKR2Zz9ag5wu/+fypHP/v1/CNHdZXxYNYYG1NzYgT11i
1Pk8m4YsjRUKrsjOnjEFVy/S8PfJ98f3kVusd5yPzqXh1+oNTAHOv0oiLt/1
Eg2m3IKG6+sravtscoUG7S2FZpF4vcxWU1/pGg2zfMYmieDz9rm6N/5dpwHV
sr3jMsbLoRqrhpt8PcljQN/17qSrt2jQqEv6fCaHgbdDtQNsAU+Pnl5goPNc
tYhTIU8fV2Wj3pT5G2gX03BDwiNP/DwDQWmpqWKlOH9LTPEsBmYfFJjdcpce
9TfqyJ7B219fL6OBa8fGID+sjbgVdp+vl8jyYYvvrn9Iw9A0LPA43ucczZ+q
FXx9Rv5lpm4/UEkDV76jkc2cuz5VVtEwh2tA8PmuIa1zidU0VG9eU8meY6B2
Ymmc8zN+fchgIOLMyisLa2nA0X5uOsvA/Auh/4af0/C9894SpXQGpuloH6p6
SYPB+k3X7qYykGgrPe9kPZ5nQuzEwTOY35Nfyjg18OMZ2SRxrobqa3rUX/1I
wfMZ99av5w0Nt7cFvy5BNo6NGrzdRMNMN7+DWcjVIYPXgpppCAidZ34eWUi9
Pm3le956jyN79NU8EG1FveQKKPIsu5QZzz7i+aNcDSPvaO64FfeJhlPvTrBC
+P5Vuq5hdu00WG6TcriD100Vq6OmfqXhXf7RQGvkLpei2oYOjG+Up7hkvD7h
s+Wpbzw9qk9iIIb6I+LwHc+rpEz2/GkGch6njEzt4elx9inMZ6egRfW9/HhM
ZCB2rXHW8R/0qJ85lcCAte6ZdVa/MH6W3KzsP8nA8wr1VeK/efpWiKzUdtL7
0R8aqtCefj3J1YujbSGDqMdcw43P+4uknNQb4usF8reUEM6PfzR4oAFVQu5v
rC/JHaFB+PDJFeLITxbTydcECC+/kO1nzR2IHEN49RzH11jqMrBrLOHlC/KC
dMUUo3GEpy/I1ZKpHxQECWxD+7sf+eTbxVX9yNz6YYgs8Hepfa0Q4fUPyBMG
/oRdFCaj7z8Wz8CP4cINR8YTXr1Cvvui9vlGEQKBWOCunmBApJH9vlCU8PQV
OVJK86qYGIGjklZX4pHfKEjKtiKPxh9y31JvpTviBDg/3zaMQf5ifbk+RoLA
iYtHbB4fZyDstfDcnZIExmEDcAG5/U+lxtIJhBffyApeBi8mTSS8fEMuv3yT
akfmFlhb5LP5ntLFUgRSFmHHgGyiff9S7CTC07s4Bs4Ed/fskMb1ekREtyEf
OQZNi2UIz28hb/01vF9iMgEr7oDIj0Y881qQNVcodLYi951oi7s+hQC3/VHC
8d2MkknYVP7+IZ9a0eywXpYAVv+LJ5DB76ee2jQy2t+lIM/Zo1wxiGzYu736
HfJ585v/nkwnMBUP0Az3Q+bf1+YUOQL7tEJu30P2HifuuleeN54M7v/AcceM
ZQoEfWy0rTcyE6EUJqlIRvXbDXmZzzmZd8jT0MB9QRY6pmSZR5HReiqM5zv5
WptWAE0A27u8g8j7Ds6pNCOEV58xvtxV9UWmzSC8+o5sk2v/6xNyg3SfoRXm
Q3rGvZgbMwms3L2/Jwz52eaihhAlAi+b34vLYP6cb+I8tVAmID3Z4JEj8vOa
PR5yswj8FnY6VY1sdzrj/mdkrUk6S5dh/klaeDy4rkLggOYM2ht5zjVZ76DZ
BLjt6Rvk68tfvTBTxfjQw4KI+ds9o+v9ZDUCqC4a95H79FJSW5C59vkrsiil
JJGjTnh6ivmvM7lMzXsOf77I5+Xzfy/TILBjc5PxONQLtS/LfMdrEsDuzHoI
OePj6axaZF25e5sI6k3Q3PHM6bkY/yiPbsjq6fdlt83jxyPqZVCFxCb1+QRQ
bRyHkXU6aes+5MW78I1pDDiK6f2+s4AfX8ilTYnWhxcSiJt4UGcO6q/9Sx9H
00UEwjptClKR706Tkp+oRaBe1GWmG+p1clxGZD0yt70zQBZ653ItWZuM9sdB
yIN2qeFbdQj0/ly9QRj1/sGEoCmzdQnQXEOFvP2t0bpvyP/5WlFTMxn4bTLb
7NpiArefCzSPxXqhnurc67OEQPJnxWwX5Pg2XUs9PX68Iiu1NDgN6/HjA+vN
kYnBKuX6hOffkEPyd2aELeWdrznWp701FS9NlxGYzm2YsV5y5N4Wii8noN29
eJUJsoPM6/XPkIOwHV2JLNs/kBNrQOCatWvSAWTJuz431wKBWShA95F/qB/1
nmxIeP4Qed1tx856Q35+Indl6ExPNCJwIwAdHNZrke+mw+tXEPDE9PZEfrex
KmnaSsLza8jde3u/NyI3NRz2enSRgV37fg6eWkXgcqOTbw2y507Ruw7GBOzT
ci81Iicr7dSfZkJA6uvtK6HoD1R0wb0BOdu/Qq0QeXd/9eYEUwIYHt9SkWcH
GAquMyNw4REatlwGPmW+2C6zmsCf8h0579FvmE3OD3yOTLA9ZS/h89qKVjFr
+PGO/kRVx+CtuTmB1Vgwq68wwIpbzRCz4I93FfXaI2RGBfKWNZXjS5BffRFu
CrXE+A17bGeIfseteIoNWBHY/n2j0XL0R6eGWkKGrHj7U4t+89fhU64F1rjf
H76eXIj+WLfLY5K3DQF0Y7/uoF8PzE71nLeW8Pr3l+g/W61jOtby9Rr7k6DT
hbuybAmvf8J+Zmus5JCTHZ7PP2ygkBetCzCXW0d4/X0z9lcG2hvqkLn9SyX2
O5GebjOj7TG+/bAjb2NA7I3NBZP1BHA5y5KRx86d2inggOsrNJMYi2zT+7Xj
DjI3fR8jW3v+y/bcwI8PZKUnITPnbCS8/hF5+EPmxo/IMW199Fpk/90J1smb
MP4/1c58i/1Z7XtW0NaRQJRql+RyvK4Vn+0rtpmAalDkHddWBqTOKGeXIfvj
9Dh4/7pWzQS/LQSU8ECuIBdP61sxz4mALMrFtM/oX++nXf2EzO03JL5gv7nQ
uSn5P8xPtN93OrB+Me4VNlsJfDWdOzID+8umy90e47fx9R37TxMXqaZiZK48
nMT+9CAICHtuJ7x+CvvXgPhv3So7+PUO2SJubNJbZNxe1Sa8f57WfsFYZwJu
2JC2I7eudpq3cicBceNZPkeQv3uNyP1BLmey11fh+1qowIrcXQSwXCu86WEg
PHKMtpMLv77g/eY1Rduld5PR/n8m8tonr2wfInP7Y5U+7F91goT89hBQ4BqA
n9iPJL3zU3cl8DEr+UE69t8l1uRyE7IZLvcQ9udSHI+saDd+/UWWNxzaAnt5
8bYE+3lh6843vVxe2djj/RfX77h7euY+AnI2b+QD8Xr7h3Q5u/2E5/+Ri+YV
Nwu6EygqiBJ2R07f/ck5353nf1YM4HXW+KqzBy9+jiB/tBctneJJ4CD3Awxy
q9/6mIfIo993kHN2bFT28ULGgJdBTtipf0jZm4D5eTHjLBw/LV0p6SWyEQZQ
Bs4vSWxpwBEfXj0S/If10/MSWeBLRr9PGg1jfAamR7QgfxA/cXHsGBYGMpbd
iTqA++f8u+3DOBY+6F7K0/cjgO2eJQix4Ltd1vmrH08/KGTbWedaE/yxPmNA
5+P9fnYBs1YexHjJHFMchuMFpz3Q7EVW65IsnY/cEJn990wAb3/NRzC/D66J
WR1IwPTDwcmXcX5R6Q1f+pG5crwQ51cp4SWSeQjjP3GfdCiyd/bK75ZB6Bex
odiAbLjAK2kQmbs9F5C/r5gleT6YQHukalcUvi9k7WFjmxAy+v3lkzALBy5e
Mh5CtkH5ThFhYWRfrWT2YZ5ejsPrKpkTU2yOEFjKLZC4HjES1/v3CP+8xrIg
lXRwwvlQAktWmXgOCLAwJb23z+ooAVH51C1qyGnJ8mkDR/n+DlniuaJMZhgZ
7Z9akKucFK3MGQJVC9GRcffHyMD2F3KHoNakW8hGVhfoVJaAENrt34IsPNA9
dNOYw/dDYiyEhbdO6ubw9EpVnAWBy0O6ieHor9DAzsP1NHd0qxhEEOB+HtuL
6yHb3jd/Rh793ovjrZXuc4o+xsuHelxfwSvTHO1IfvwhB+wSKW1Czv5iOjcY
uXGDXXJoFPrFE2zYG2RzYm2kHk1gftHsiceQH4rRN2qRueV6D76v0rityzeG
wKrGnp+rRVnIainvU4glo9/70nB+aaXvysqRRZYlr6PHszA9d/0mlzgCAnFB
fwvx+bLVtncljxPIu9To1I/xVTrjR9d15NHvw8ivj29oX3+CH//I2S0XcodO
8OpJGa6vQHWc/tl4wuu/8HrJ3oiTq06iv1SxFVLC8a9H/Vf0FZn7/wYG5zPB
JDsvKoFATu8Li2043/8BWnQjkw==
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 589.36}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {588, 860}}, {{7.608374474380783, 
             8.294049640102028}, {588, 860}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 589.36}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"c) zero C emissions\"", {
              FontFamily -> "Helvetica", FontSize -> 16}, StripOnInput -> 
              False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.27, 0.9}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox["\"Gt C\"", TraditionalForm], None}, {None, None}}, 
          FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{600, 
               FormBox["600", TraditionalForm]}, {650, 
               FormBox["650", TraditionalForm]}, {700, 
               FormBox["700", TraditionalForm]}, {750, 
               FormBox["750", TraditionalForm]}, {800, 
               FormBox["800", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}}, {{600, 
               FormBox["600", TraditionalForm]}, {650, 
               FormBox["650", TraditionalForm]}, {700, 
               FormBox["700", TraditionalForm]}, {750, 
               FormBox["750", TraditionalForm]}, {800, 
               FormBox["800", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {588, 860}}, {{7.608374474380783, 
             8.294049640102028}, {588, 860}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], 
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwdlnlYTt/Xxo8hGoSE0nDOaTA0SUUJWUsikQaVqHwjGogoiTQqSTQSkSQN
ohTJECoqQxIVTZRKUqZKmeo807t/7/PPc32ufc7Ze9/rvtfeKm57N7iPpSgq
fgxF/e9f9VH7vVEfGg3+//cdRvObdkT60ih4ntYVGTII2S+yAqT8aVSaT5++
lDwEC9BqMCmAxtIzE1rfav2CBrfW+pmBNC4PlJHvTPwNx+6vUE4NojHeWsFr
5as/kCJ5rFkxlMaGDVsS7L/8BeH2i8IL4TQ6xZ0yqe37B9fVg1MUIml8bD3n
rkH9CNwRk81KiaJxpc9kH92cUXBWs1aTPU7jXucvR+7s5EB8goJC3AkaA+Nd
1yxieaCYvzlGLI5Gj4pJ22/X8CA/7qdfcAKNTQWHXHp28UH1RlnrUBKNV+63
/NYfK4Dnl9JK3ZNpnNPvldqcJIB50e5s61kaa7ps5VsVhOCj3S9mcZ48v6Xd
SCFdCKeF4/eWXKBxdl3ONrOpIjimFLRlTjqN1HGZ1yf3i0Bni8LbUxk03o5X
0mh7IQIXx7wGQSaNakH/bH0kKczaOejkmUNjqlGM5RgtCmdW5u2ryyU8oBNq
bk7hT/fU6YZ5NO48nNhd60qhunHgmgvXaRxWPL9M6gCFHWIiaVEhja4G9sG7
oynsiuzy2FZE1ld7/41lCoXNrnX2lcU0PlO7H8rPpjDW9PA7lbs0Wisbbam4
SaFsa+zfsBIaFdxWmbU+oPB1842C9gc0nmq8tiCgisLdE2KoxWU0Zr+sW/ei
hsK61Q9/Jj2i0XSse91oPYVtZ3vDvlXQODZN+6VmM4ULFa/eWPGExpOpf+oP
v6fws3rqkZRnNCZtUjwxvoPCUSP7f9+ryXzpEcadXRQKZbynwUsaR+svazOf
KNx3c19j4isaRyxrlZt7KFR2/L38Yx2NtsqFMbK9FO46G2G34A2N849kj/YQ
TrTNkQ1tpHFwv6fZxj4KK558Cq9pprG/yPyZL+FlJyvTZryjUW+bwikkvDGn
ysu1jUbDZ88u1JD3PUI9enM/0BgRvvbDTMJ5w3PlBjtpnDa5P0DrM4UKDhH8
hd00ehmvfClN1qN+oD8lsIfGapX4lMpuCrdnd3wr7aVRceOguNVHCheVVv8V
fqHxXHbb6+JOCjepKZXBdxo3B8/T+veBQte3qyGsn9TjyThKsZ1C7f9uh5YN
0hiWo9iuQvRa/+tVMDdE49l8fbHJrRRucOeWGP6mcdU7+yMfmyicrJv+YN9f
GmPs2+j0txTWH1IUXBshefL3CFrVQGGM8ptx3RyNmo9/Srx7TfS/wdTLC2gs
GJCXd6ql0D7MdbuViPhLpuzNixcUSlz8Vh4xhsHKHIGFxnMKv3XJ9dwZx+BH
u1L/wCcU7h1Y2tgnxqD6mVyDhxUUBhhfS5QXZ/CwfrfdYDmFU6VuKqyRZDAw
0y5pZimFBsfS9wdMIu+nXD+nd5/45/rjtKzJDMJ5DYkVdykMc9uaUjeVwSn6
SgGriink+T/dwU1j0GSBqRcQPz5OWzRBfQaDl72G/tMtoDAk8newpRyDajnK
DTPyKFSsXlmzfxaDPlkm839doXDeuO2D5xUZfOAp2/k8i9TnZUJ/uTKDGued
VydnUPiuROxZN8NgnopnxaaLFJ7yFgaKqTLY0Xn56oxUokdckeRcdQbHtIvb
vDxL9GixDzSfw2ASc2ri4dMUXpyu9NxjHoPl4scVVRMpnK5h/OeoJoNad941
VsWS701rH5+pzeC0b9sCXWNIvQf0/5XNZ3Bt0WzLP1EUlvF3vmpdwKDdg5Nx
UREkbzn5x4f1yX6944KmhlF4MpDVlFrE4G2fbtuzQRSOWzp4S9WI6Oc7d63c
IQrb25epGxszGFtApZ32p/DWce0wq6UM/qxYHCLlS+GszM4nbiYMUs7tKmF7
KLSoOfD3ADBYOs6udGAnhU8/TZpxfAV5/siBECcPCodmVKicX8mgsnhmcqUb
hdfrrytfW8Wg05HXunNJf6mr+yJRYk72p38+6LgzhXfp2L6nFgxWf3TM6nWk
8Ibi9Xtv1jGYWzK7YYU9hT5BLkEd6xl05Q3qpNpQuMfyhsFXawb/VB35OGhJ
oSV3++OwLfl+S/y0lRYUqtoGH+PZMTiuqKz39CoKa8KnqY3byKB5282I7hUU
arCRJRKbGLS4OkVSdzmFWxe0mk9xYrDMJf5S4BIKpViFN7IuDF5q+7Oj0pDk
6bX1Jrn/GFTo0gySMKDQMT60bdZWBg0aFo611qXwhUaei6Ibg5uNzWadJv31
cE9ju+IO4vdvJR1NcynUChO5KHow6Nk6d5+cOoUXlmh0zPJi0C9v6zdHlsJj
7623ye1iUGf6/p0pShQmX93bJ7ubwaqfxeLN8hRaHYz0neLD4BGtym7ZGRSK
so9SkvtIPQ+elLGVofAs7X1mnB+D7W02hXHSFAa76ejx9zO4TTa/4YUE6T+R
jxt/HSD+ehF/WmwChYyW/JFvBxnMKLKRWjGW9IOLc4y6AhnM/L3h0ghfBFoP
2v81BjH4ae3+fp8/IoAxmk+qQxgsCFHQ/twvgknJ/LSHYQzu+rk8yrlXBPcW
r4gsOMKgqn2pypsOERS4fDqYHsng6QAnDYsWEZjIvQqKj2JwuOtt5eM6cl5p
9yWERDN4fE27rHG1CNZNnnXHO4bB2W/nrLj1WAR/Pq75sekk0VNvt4/2fRGk
hTkbropjUCxxX3lukQjMAhYmL0hgcNBNwk49jzwvfXeCYhKDtyTU1mdmimDh
2or48acZ9Ld5VqtyQQRePxbp9CczmPxKeSjztAhMA4a7G88yGKIc1Do7VgS0
duPNh+cYvCdwzsg7KoItcvdSLqcyaLRmr7teiAhKxAPOHUtjsLfu/MoHB0SQ
lPqteFc6g1YMz2GVjwiWGPR/W59B8qYwfPeNB9FrosPyBZkMmkaqhLu5iiBD
caRQJpt8392/5rcj0W9NvslwDoNz3VULY2xEMNPY9HtDLoMVw8WmKhYicPdL
KLl5jcGjOydcerhCBJ02O67E5zNYJ2PzbtMSEdRMSrrjXcDgyCT1iaP6Ihh+
2NNrfoPBUI0AkzQtEVTY6SxVK2LwUEZ6oqm6CDbmGxULbjH4vHTL9B9KIjgb
UmfdcpvBtN2dbedmiGCp9yOZm3cZbCkrH10zWQRt/PrR6BIGn6ySCOdPEMH3
7Fpx1wck7/6m4cUiIZRVBMKiUganN3tI+YwIIfRSerpkOdFn2aCe9pAQ5h6m
5nY+YlCx4+24ga9C8Avb/u5WBYOamxISi7uF8LT+xN2oKgbHX1PpC24TgmLU
4keOT4kfpsnOXNsohN48nd/znpN8k+NR8ZUQ/lhobhytJv3XZ2Dhz6dCsHDv
/1xdw+BEh3x4US6Efv7C7JRaBiMS/TZduSeE+inlSe6vGQx7m34y+qYQTlw0
u6FfT/qnnNrn3deEsOBqpEDYwKDj1Lh9GzOFIG+4KKTmLYPWKRONzS4IIcVu
mu6ZJgbPiVwsDJOF8GL6W1nXFgZ3bB/N144TgnnKfO157xgc6vqxa+4xIXSO
azv08z3p9zX9CXPChLA6MY67185gzksndc1DQqgN54pCOxiM5C/T0/cVgphm
0yWzLgaVflo8Wr5LCL7DdU8kukl+ij43W28Xwmz7NJXXn0i/uqMe7u4ihB0d
3+4mfWbw4ZNXlWEOQlhl5B1l38dgcLPzlXQrIaxRro2b+ZXBko8ivUpzoofX
w/qWb8Q/2Zm7vyEZn9xrde4HydfWXhe5JUJIoEfENw0QPjlPwsJACHkv0kQz
f5K8BEYeDNMWwj3XUIOmIQbrubqCB7OFkLhhdc6pXwxeG7xSxNFCsDG66GD9
h6yn0e04yAuh4bnmKql/JF+rVIxiZISg1nPG/9kIyUPAk8oWSSHpF0d7wjkG
DbN/62qNF0KgeNqZJXwGeaEqkZECAfxICz/+S8Cg2fHIx11/BfC3taksX0T6
4W7lH6Y/BfByMXOhiGLxsG2ZRN5XAWycPX80dgyLrKpQaeYnAWgv8xr1HMvi
qto1GtHtAtDLUE4zHcdiV1CTnqBJALXS6R+VxrM4+9V140N1AjjTtrjmL+Gv
/66uHKkWAMVbtrFejEX13wEbQioFMHl0JOraBBZLU1K8JpYK4JfwweaIiYQL
th4/e0cAj97UNziJszh3orBY84YAxFujB/QlWAyP8uuvuiqA2Kk6NyUlWVzI
nDd0yxTAeyVpuW7CEh2zk8TSBDC8zF/tvhSLN1uuCAvOCOCLTWFTwiQWr7BR
4c4JAoh6N2G+hzSLB++LyU+OEUDfSLX2ssksJgesffY0QgBK++GNzBQW67s3
xEYEC6Cy8DbdRzhXSbDLLEAAl+/4TSudyqJP4YTtUvsEYL6oqiBRhsWYbdIH
WnYK4GLY4M8d01isnpR4+ep2AUScxPbFsiyKtgx+Cd0igG1/hHsnTWeRn+6z
zslRAM9Eftc7Cf86sPDFEluy/tM9SbdmsBhyeZ0bu04Au00vsFEzWTS9mTVT
apUAzq3s2OQox+KO2zK93HIB4KHfSzTkWXw9bFM/uFgAWrvUn3OE98ePa/qq
L4ArlrcFL2exmKpb/OuLtgBkBV870hRY3JjboNU/RwD+46S89yiyqJNwP/gv
K4DRUy6ZJkoszvpc+Hm8ogCOnVCLklZmcSCr011+hgBMDmTLfiBstGkHf8EU
AYidVLO6TrN4tQivWkkIYHpRz8IghkV9mR1evuME4HNYq9qCZfGVbN7S8wI+
7Ju3VFxehUUZhTb22T8+2OZv/POZcH7t9ZkjQ3zIyHycUKzKYvnFSkXdH3x4
veVhS7gai1bmhfO9e/lwpf34q/XqLJas/rn+ehcfGup2+SrMZtHGYeTg8Hs+
2J/PrOolvKhjdr5JEx+k1/s+uTWHxT2+1Z/j6vigVSTnHzqXxfUL2TmfXvDh
1vLmNxbzWHSw/m+XyRM+DKr0d03XYNF3c87NtHI+DC9JS+8kXPNY4h91nw8S
tNqkPE0Wab1TS3cV88FweoWGvxaLFf+MglsLyPoU7/wz0WbRzL3v7rqrfND4
YhIwUYfFD9rhX6sy+ZD56XxOPeGUiiaZFRf5EDp/4rHz81m0K7qhU5XCB82M
Kjk3XRZvCF4sWXuKjD+f5Ky5gLzv12TYHEvm+87YDBP25R9kPKP54CK55N99
PVKPEcth/hE+lLen2BzRZ1Ex+vP1lGA+bHx7wGWNAYsL2qstjQ7y4ZH8VMUp
C1l8H+Nf1+bLhwtJmbFNhPVeuehH7eaD2AevoguLWLzc8sPPwJMPnH16zDZD
Fl/OjI7v3caHJ5NDZ8w1YrHycFREugsftreZOvwgnPbA2NLZkQ//zOdaFC1m
0Tul/4vSBrKfdPehA8Ys5ih/cvhkyYfkHiOrJUtYHP/ZPrHQnA9qnS2uQsI9
VgFnQk35EDElbE7lUhbnV+13szPhQ/gdj8yoZSw2fff7rb2YD3vqnr9dY8Li
t4FTa6QM+HBcoe2B1PL/+fmH84AOHzbJvnN8TXhp+ymt5nl8kPs7mpcILEod
PHW7Uo344dGB2xuQxc0lw7+KaT780jzqP30Fi57ed3qvzeKDwz2X702Ew+Rb
YrKn86E/03BWiimLjKH1+6wpfBAfWCN0XMni301Tm3Il+fDBqSZV3ozFKjfx
gzfFiH/2DA20Ep5xky0ro/jg6fObO7eKxX9my7PreDzw85B4tGk1i3EjKzR6
//LggprHUnlz0l8uiVuMGebBHCPc10LYztCbUunnwc6/tVvOrmFxnzhYrvrC
g7lBK8Y7WLC49p2Dhs8nHnzOerNddi2L5pKhyRc6eGAx/U5wA+HMxxEnXr0j
7y9Stk5Y979xbfHxTTyYZwhtlpakP40BSajnQbSUtYrkehYPDYXEhb7kAeUb
rvKccMGBq/GVz3jQ/GVCe6QVyXN6kKRUJQ92l86wRWui/+RbAscyHpzjd4bz
Cecz492vlfDgz5Fz3iU2JI+8uSaiYh4Y9fvK+NsSPcobIjbf4EFwbrqf7gbS
b04X65fk8SCt2ybhG+HchhALxSs8CD3/wDPHjsUM+c6qiMs82JYozXe1J/ru
Opo+kMYDA4cgSwUHUg+LWc3/neNBOyza3EjY8ZW559vTPIj1260av5H4varE
yjKBB5Lvba+aO7IYXCEb8+IED8bOn/md2sTiLlPRtHXHeGA79PXbfcKmD9mv
9Ud4YOMnyPXbzOLRYiVx5xAeqL0MV9VyIn5oO7v76yEeCD9mOX0ivEFVXzbY
nweBO8/aXHAm/nmZODJtHw/qu6LH27mw6BZpP6vQmwcLk3MDJLewmORP+633
5MHUi+q5FYTfOiWIfrrxwKFb5+yh/4g/U8zLz/3Hg1L54ZW6roRN+/LMnHgw
s+rSzc+EpWFy5W8HHpzUd2+/sJXFu+tdqGu2POg7tu+57TaSL0Vft23riR6F
g74T3ViMdfjRo2zBA3Ovqe2lhHvu7TnaYcaDw0hN8NtO9GfOmGQhD4KSfwzO
2UH8kDJWevcyHqxPGpvaRnj3no2DixfzQHfh3vGJ7qT+S/Q+SizkQfdaV10z
DxZX/jHo7NDlwcB+kcIIYfUxVO89LR500sHP8z1J/zA2Gk6ey4OY2DGLXL3I
eTUmmApQ44Fl3cPt03aS+a19pZ0ZHmx42Wz3lPCNBw9mmCnyoM4wVOzQLhZV
Y/gz9OR4YJb64ZCm9//O6zZJVVkelNmwhe2EYarw58wpRM/jvjnxu8n9RE3y
6RQpHiiu4P+He1h8syM3ctJEHkyw+f5+iHD+/FAN6XFk/y47Z2X5sPis1qhY
RsRB38cMBfu9xO/RocoKPA4e6pZ2jN/HYnahYMecfxxk7Pzsfodw9OVtxwx/
kfHo1TfdfVl0fe8YunaQg08bJcpn+LH44G+8hdt3DroPOSY8Jfzo8d2ekD4O
8nY4qR/Yz6LY4nDLi584OOuxNETdn0Xt1Ishjzs5uJShlvqW8CLvSv++Ng5S
JZcFRRwgeQjJmj+tlQMfvwJWL4BFf+5vLjZyYBOccaKTcLaX/we/eg5GM03u
xx1kse5248urtRx8NCq4vvQQi1sXv9nbXc1BwHY596+E0x/Pe8Y85cBudnb3
2UAWj50583JrBQeH7INmmx0m94XwluCcMg7CLj3RGSJ86k1hc/99Dlpic3kX
g1ic5/2hyfguB38Or0tYG8xiXtmcgzG3OIjLaPnyl3B2i/W99kIOqiftF88K
IfXyYE4b5HPgn2s2YBXK4pfSLRPjczlYobc/lSN8rLVx6o8sDgZWzpa+EsZi
n4fN9fUZHIRvOLLaNpzF+zUXm2+lcXDwWsFqPuFCNjZW8TwHIp966dwjLK4w
+1ETfYaDOVlT0mwjWLRvTIz/l8SBJJs0xCOca2TVuCueg6mphydfiSTn22Xu
3McTHMzIGBq2Psqi5XSfd87RRP8LipdGCVd7RZx6F8nBpAZl2awoct5YyVY4
hXNQ46psbXmM6LtBuK0zmOhjCnZ/CH/tUvXzDOTA1Poqkx5N1rvGbWD4AAdP
jEJurz5O7puPL7094sdBVEy3zCDhhTsf09P3ckAV8o1SYlg0tMmvvebNQce3
wTlwgsXP+y3em3pxwLp1dfQSbnwaZda5g4MN04Zd40+S+XXWi4dt46CkeU3e
olhSz9h4VdX/OAjyFC9vJ5xXviSx2omD1s32FyLjWIxPN7Pyc+TAkrUx1Ywn
99OJlzcz9hw8lWSK6wl3tqy+UWdD6rW6pz8ggUWFX/MtI9dzkNNZOayUyKKx
mb3OkrVEn/IPFZWEnz8qtv69moNZ+Y7OXknk/uBuebNoJQcVa+0eSZ9icYwZ
Y+mHHJSr/Oq/RVjuoC5raMLBu1Ob+xxPszhBJ0JDYMxBbufVfD7hfVdo9+eG
ZD/zxi29nEzqsXhyfbIBB2V7TpxZdYbFnetdPN0XcHArbuvDr4Q/es6cZ6zD
wWTz3OtxZ1kMUrWcMlWTg/8DIFlVZg==
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwdl3lcTd33xyNCKRSVhntOSkjJUNLAWpVKHlQaEUmKlChJKRVJmpWISpKQ
QvSUekwpIZlCaFJJJCSFM93ku3+/+899vV/nnr3X/qzPWmtfjU07VnuPlJCQ
SBkhIfF/39Oq2ir4ABEu+P/PV+CLX2+OCRThs19lyi6+/VDw6GyITLAIdeHW
FDZoAObiqv60EBHu8rnwJb57EF5sampQDBPh61ObAwYVf8Gh/8zVs8JFaKA4
6VbOlN+QKX3ojWqkCGW67AT6y28Y9jo1nB0twpGHGhrichi4pBWRqRIjwlPp
1eWxC1goH61wNjNWhMYSD3SulLGwTtNOU+GwCO/5D3Wf1uJgrJSKSnKCCBPn
P6jWieNAtXhN/OhkEbask1+9s4OD4uQfQRGpIkzI6Cr5q8/DtJLbTQNpIiyZ
tm9x314eHp7OueWdIcINeYtaP1XzMDPOm246LsLbaswEKykBAnT7RtueFOG2
MM20qbYCHB0etaMyW4SZd55OoqMEOKQWvl47V4Q74h+1JhUJoLde5VV6ngjr
pq9RMX4qgLtr0Ys/+SK8HtDcdvWzAGd9+9duOSfCK/FTx8CwAIo1RTufXxCh
2kp2Lysnhh/eWZMXFpH1i2JuVamKQcs4bFn2JRHaJA0sc5kuhvbRf2X/XhGh
+aI7DW66YuiM6fTxvCbC8uWVkbbzxPDG47lTzb8iHJh+ccdRAzEkWext1rgu
wnATu7CUhWJQaEpioipFqNHyc+0BIzE8e1Nyue0G0TdQFHCRsL9UvMSi2yKc
d6vgy3zCz61v/kirEuGJMQnPlpL3W49/ivpSTfSaWrHnD1nfQLWwxLyW6Ose
Iw5eIIaPWln7Mx+Q/LlbWN8h8fBGTuzXOhGe1D4o81lfDMOT/OThsQiX39yW
8kdPDDuv7mw88lSELxPXLhtDzqPu+mvJ++ciPLxwzS4ZHTFsO37Ace5L4r/4
3Ai5mWI44nBOIbJRhO+1ZnspaIuhuvZDdP0bEV6OPTNaTUsMZok1OVOaReip
K9o0a5oYXM7d2+rRSvTdt6HelBaDT6TPpwvvRNjtPUvOUSSGosEZSv0dIkyb
kXsqQE0MKs4Hhgy6RGjUU1+QrEL0392XGdYtwjN0mUaJshi8Ctq/3PokwhHz
Hvx+oSgGw1t1zPBnETZf3f/z12QxuGmq3YavIkxXndSrqCAGj1fWENUnQn3P
NYULJ4lBd0NZ5O1+EU48NzzecYIYVv58GiEMiHDpt2oJP1kxrPYWTBb+EuFR
TIzcJyMGOf3cGzsZooejd0b8ODE0hKr+uciJ8Eb82c0pY8QQr/5SsksgftHz
1E4cTfQvoRqU/4jwrkz09ChJMThFeXit+kvWP29V4ztCDONOfblzYASFh22u
7lz+V4AvnUrd5ZIU1rqdqKD/CLDju2ljz2gKF62+ov9NECDE+OIR5bEU/jDf
dOASJ8BEmasqy6Qp7NKs2urJCLDgUO6ukPEUXh1pUST9SwD/S3dzzspRGDdc
qlo4IEDUpo2ZzydS2Pt6VK5xvwDi4PubBXkKnzouUa/6JsDdHEMprSkUNkvv
TF30RYB9Mb8iVihR6DFU8fNcjwCqdZb1u6ZSKKPj5DDmowAzJb36T6pS+ORo
7XX3LgG0Hqf23VGnUK1maNH5DgGaK0c/6KIodCotGPzQJkC633DY6GkUttVs
lVRsEcAp+Zr0DC0KnSe7pZq9FWDcW6cwG20KZ1Ta33FtFODUZLWHPjMp/D4Q
enPLCwEmzzL+fVCHwr77tWX+z8h68m2j8nUpDB4X1+LzWAC37/PZ23MoDJgl
6+FSJ8DtId+nTXMpNGlfGmJ6XwCFc8WHB+dTGDrOz1mxRoDEMFpHxpDC3yPu
ze+5I4CkaX/pNCOSjyxnqys3BWhrM9MyNqYwwqSi1q9SgNLDulGrTCmcv7Xx
M1UuwNT8jtpNiykUz63trb8mgG39bmY3UJjx4fRf/ysC3P8wfsphcwrrczw2
SRULMDClWuOkJYW5+jdtMy8IcKnhkvpFKwofiuX6qAIBnj//PK7ShsS/amlM
Xp4A10VJPfdtKfQbuGUx9ZQAJaqXKl7+Q+HWY+aeCSdJPwx3D29fSWFx/aDC
r2MCbF9RsqDXjkK0NEt1SRdghVD2ftCBwkqqXqo0RYBpDhGHxI4UHpKNviyV
KEB9tLympAuFCZJB5U5xAsyiYyrHuVG4OaDdLidGgI1zm2wmrKUwL3/W5Xek
v8rQKi8V3ClU39EypBwhgMczOzelDRTev5y5fVWoAK4pka1TN1IIZdp6kcEC
PJpV5K66icKl8du2Fu4UYG93Y5vqZgotH3j989RfgNlRf91VfSgMmjBvRN9W
AbJNZrVP3UrhS7mJZWO8ST9vsfNU2kbhjc4NyeqeAmQU7uhR8KcwsOtU+Zz1
AqzaExM4IYDo3xjoZLpGgL8FByWkd1LYbnP+iKWzAMdFfsckg0i94NwjNg4C
RGzSmze0i8JkpXmhNisF8Im52/hzN4Un9/L+lmSeULOV93/ZQ+rv5Ph0UysB
Vp7SNuoMo3C9n6b0XHMS7402tjGcwsdj57L0YgFghE5t3T4KI9U898oZCzA+
YyjnZhSFde7TyzgDASoWmcdc3k9h5gT92o65Alx2/7AnN4bCE0f3PLqnK8Bi
pafhKbEUlny16CqYSeaVbk/qvjgKlZdr6sZoCfCP3NRyv3gKP54YureBFuD3
+2Xf3BJJff4Z88BITYCcqHULrZJJ/bu+XSmnLMDSEIOMuakU3ipzC+lSIL+X
vS6lmkbhntvNa8omCGCwvDpl1FFSr8oy8gdlBNj6zVCvL4NCzxrJSocxAliE
DHY1Hif+dlm6WV1SAJFu49WbJyiMtbsxp2eYh/VKFZlnsijsMbk3p0TgoXJs
yIlDOcTfLfrhuxke0rK+/Lstl9TjEhsdk0EeTBb0fVmZR6Hk40cOf/p4gDHO
S+bmU+i28JdUVS8PearclUkFFD7bdWBD1Ecexi8rXjx4jsLy9FL/Je95UDS2
+PriAoUHU2yshtp48A5Krbx6kcJXE5PElU08dNhvPp9STKHmdOf84EYe6sen
lftdpvBY+6gV+g08DN7s/mRTQmFRf5J072Meqh31TDWvUahjENh/5iEPLsVG
//4ppdBLr15m7T0eju97bve2jOi902bnpCoeTP2qJl29TmH/uPl6dTd4aB1q
4OMqKax4GrA68joPXwuejPW4QfpnfnT/glIebleHkRlE4d2bCQq9l3mIPJ2b
K32HwmX3Vz89dZGHGXslZnRUkf3HWs5efY6HoCiv5tJqCsdE+ZtKneHhfkPC
9dh7FK7rPCxzI4cH1dhFVa73iZ9zhgq3n+DhU5Her5kPST5eNtEaGTz8ttVx
4etIfzV4F9WYyoOtd9/HunoKbXrCXsYl8tA3ZFCQ+YTCGKcXWqZxPDRMuJPm
/YzsN/Dfge8HeEg4tbRkfgOFiuIq9kwkD3MLY/4MvyB+1ZuR6kzuY8oLDffV
vyLs+81xXAgPmY7y+sdeU6jv8tD+diAPjya/UvB4S/onM/tI4HYebDLn6M5s
ptDMeIWati/Jj2Rr6I8Wcv7QqX9bNvNgfSRZqGgj+eWsLI5s5OFJtHAtsp1C
43XW/VbuPIzWeX16aSeFrJTjhCFXHgIHn9eO66IwLdG3uNSRh+lOORrPPlA4
S7zyia8dD5vbv1xP+0jhfrOkvRr/8GBl5Bfr1EPmlXPYnWZrHpapP0lW7KVw
+2WDvHQLosfWmw1vv5D82V6csWIJeS73adWJbxRyEqnuUiY8pIq4sW7fSX0V
+llXG/JQ9Cjnr+IPCh3MMr5FzOOhwiNywesBCm3Fei7GejwcWW19Lv0nmbcx
+gnMTB7sjU452/2mUNTtmVqmxcOLhzpWMiyFCwo9/XfRPGh2Hwt+wJH+1n56
xgI14veMg93RAolXxevhTyUewsbmHDMZolDFr86hXIGHbznRh3/+IfXlWPtk
zwQemKbXt4v/UvigUnOJqQwPjxdR2dckaIx/lFT8V4r4efocPmkEjQPdUSr3
R/Kga7aV3zKSRvNQtyOJwxzMy1PPsZCkUaZ5pbyjwMET2dz3aqNoVFMJPqfK
cHCsdVE9Qzi+9daqjwMcSIjNXBpG0yhM4eSv9nEgx3OxF6VoXP6+kQnv5eDn
8I01B8bQmLewa3jZRw6qXja8WDuWxilXUvWV3pP/A01x3+ePo3HkojnJn9o4
SJqod1Vamkb5lz9UK5o4aFGTVeoiPHNRX8fhRg4GzYI1/5Oh0TJN7d26Bg4+
2195nTqexi3K7kpzn3AQ2yw1x0eWxvPV29NH13HQw9XpmsnR6N3KObTd40Bt
F7ycNIGcvzhhTVkVBzVXykQ9hINlMi8l3+TgTHmQ/K2JNPoKoau2VnBgY3jv
8pFJNGYZ7LJY+i8Hp6L6f2yWp/He3auJGiUcHEjEtkUKNH6OsNKTKObA8/fw
jvGTaQy9MEen8zwHD/4GXeogvNLbMbY6n8R/tDutdAqNx5bGmhfkcuBvkU3H
KtJYfSva83AWBycs291clWg8WNzXs/04Bxj6y2SWMo3sM4+3TukczN6m9VAg
3GfmOn9xCgfnV5T9eTyVxvS3KNZO4EDhT297jgqNa6pCDOQPcRAsKeO3XZVG
uxrsHN7PAZ/unr9YjcaPdY0Sffs4OJSgGSurTqMxup5oC+Ng8e4ChXeEB/e3
Fj7dzcHoRM1Vl0Q0VhpvNrgbyMHka90G4RSN6+s+mJVt5yBg7+w6W5rEX2BW
e9GXg50zTccqa5Dz3zB/kufNgUOxy++PhO0fXHc56clBXv7d1H+n0Xj5qr33
0fUcPFt/8220Jo2tH8v5lDXkPG2Hn67UotHtUuSUJGcOXjzfFqgynUbNMMMb
CQ4cOJ3Mv/eJsIaFa2/CSg5kVwbWlmrTePKZY0GSLdHnmlJw5Awa341O+ZZq
xUHpkjcvbWfSON3M/V6GOQf9Gn2dk2cRf+wbq5O9mOTDJCe3g/Dg2waNs8Yc
jBNpji/SofHimZ7iS4YcLJxcPSt4No2H7+56VDGPxKdazi7WJfH2HQmv1eNg
1ufFIWP0aPTg7e69nMVB/oeT5xoIZ0lXnOmazkHknDGHTs6h8b/OaqVfGhzo
5N1T2qRP/Ddxk/YYEXn+cPw6nblEL8uoZ6oqZL+vlP0gYYUd7MT5ihy4S5uw
/82jcZXC6e+28hzcacu03z+f5DfQfKuXHAcur3a7L1tAzn8vLzJSmtSX8kTV
CQY0MrtC5mdLcZCdlp/0mnCP/a6D/40k+Xy39Vq2IY021bC7eZgFwSk33nMh
jSPY8NFigYVaucgpM4xojKPvGopYFrxaLZy/ETY4mSNl+ZMF1maG7bVFpP6V
s0J9+1nQyfUe2G1M4uk0Tkr7ykJGt9EqExMau3t/m9/sYUGz463HMOH+SeZZ
nz6wcGBClHaNKY2vLOOOKXSyEF3ukx9rRuPRs3oGFm0sbH/+8NWyxTSKr6eH
BDWxcFil9YbMEhqfJcutL2hkwU2h2fUZYanewZ63DSwoMXzREaBxgWeikuxT
FmSrdpetRhp/J6p/s3zEwk+dg8GTzWnMpnu9I+6z4Fzh/vU14a+qM2OvV7PQ
l79waqYFjaof5JYP3mZh7Pdlw66WNHLeT8r0b7Dwbm19lvJSGldgwv2A6yz0
bx/43kQ4tMU/oqSUhS0Bv4QTVjQ6xR9tHrjCQpDPuCo3a8KXld8ZFrOQrelj
qmxD48+GSXHhF1jQNsKdbwkHPUh9W3OWBV/myfrjy2h8X5v7TCaPhRnh5qOc
bWmMOWjt75LDwsezL70UlhP/rU24mn+CBdvJ5REvCOs4+Wb/yCDvG6rbpf5D
o5ZDuy6msTBzIbSuWEH0VO/cnJbMQpyMnYb0ShoXJ3padsezIBEYrfGQ8NIE
h7pFh1h481mqLWYVjbbm2T9TDrDgf2uKA9oRP0zXvv8pkoUTQx3RQ4Rxwhsz
DGfh9/4TfpX2NIY7J67N3sOCUV/gpGAHGuvbp4m4XSxEXMgN0l9No5dxSJzL
ThZyuuxTvxDOLVl3/Lo/C5Enb2w550hjmPv55cq+LHgekR3ycKLxHGgXhHuz
sMA5fIWKM43qDoX5nZ4stIHhmkbCyzMYK5sNLCQF+U9LcSH1pNOUXLKWBekW
h0IbVxo3+UzaO9WVhZFzFL9KuNEY1eolHevIgsNA75f/CI8KSlkyaMeCfdCf
C0FraCwMWanouYL483H0tNlraUwuXpv2YhkLw+/Prv1AOMFte4mlFQthvsft
s9fRKLfOZGeFOQsNnXGjHN1J/zIMfqW7hAWDjAsh0uuJP6jHTWdNWJh4SutC
NWFuUl+UmhHxW5fe8dANZP40x9YdX8DCLeVBS30PGhU1oFR+LguK905f/UjY
8MBdsyO6LCTO927L3kijUlrJlgmzWOg5tPOhgyfxy5eS+UemEz2u9AeO2USj
NXqdkp/Ggs3WiW23CIf7+F44LmJhL0pIBXnRqO+x0V5NlYXwjG/92ptprPXp
zjyrxMLKtJFZrYTP/U3dpzuZBX2DHaOOeNN4949YomIiC13LPfSX+tB4P61K
w1KWhe+7/qpwhNWcdnY0jGOhQxTxsHgLmed2+cYbpViITxph6LGVxqnjP+sP
jGRhxfObXvK+NIaceFkd85eB1Y/fON4n/Dxj4LvSEAPPF0aODt1Go67Zq+uX
OQaWZr0L1fGjUTZg1FSr3wzctqevtBGurpg4pX2AgYmHA8+l+JN6WH+gKPQ7
A6rmQxtwO40bvbqaJn9lQMr+a8sA4W/HKk+X9jCw19136tkA8n564rBDNwM9
7/NUnHbQ+KKh89dgJwM39W+1j9pJY2Sh2YFj7xjI8/3oXU44cd2088Yt5Hmc
9VXvQNLf1SZv7HjDwAeXcXemBNEoqXy05NArBrpCXVPvE74SSmXoNzBQtHmt
1u5dNDYFLpJtecLAcR/TfVrBNLYvdVc59IiB03maWa8Ib1w29uaCBwxkSZuF
H9hN7jv9ld+7ahgICLpMzwsh9fast+xoFQP2EXkJHYTzzk6Rtb7FAJ+/+L/k
PeR+sv46w1cy8N7o8iXTUHI/EFkFlpQzEOKl5N1LeKWVSYRPKQOO0wu6jofR
eCpQVokqYSDUKXz60r00/pNgaN5czEDU6Vq9AcKva2YKGYUMvE26ID4VTvTJ
czdffY6B33v/SV0eQeOyEdaKk/IZSM57+5kh/E19TeiLXAbqxu8ae3Yf8Wv6
uC1HsxkIvrD0+6pIGl031r93OcGA+bxdWQLhaYzsZ9VjDHy3nC57Por4b551
WFcaA9Gr91s7RNMY4NOdUZTCwJ6Ll62HCLduXGMSnMjA34AG2Qv7aazxm+IL
hxnQPjshx+EAjbOcDtPjYxmQptMGxITzt2tsbNlP/JG1V+58DI1+x+1mFEUy
MCVvYNDuIOkvpvt3h4cT/bNVT/OE/dy1lq8KZWD8C3WFs7E0bk49XzBtNwP1
Hup2Kw6R+TJq90EukOhjAY6/CcskDn1+HsCAhV0hlRtH47j0iy8K/RioNdpX
Zn2YxodzPi+O2cpAbHzXpH7C90Raeh7eDEhcGTLKjCf9/3FdrtkmBtq/9GtD
Ao0/Vpinq3owQG/qbP9EeEMAJzW0jtSH/KBHSiKNb0rcht65MVD5ZlmRYRLp
N8ufBFY7MxC+ZeydNsJG8277nF/NQNMap+yYZDJflY61JNkxsIK2t9BJIfe5
wNtPglcwcF+a+reBsMye02YbbEm+rLv7QlJp/DC9YJatNQPnOmoG1Y6QeW1t
cNTQkuhz5111DWEH/8pQTWRgarHruq1pNM4TTjTLL2agerljlWw6jS6aS8ol
TRi4o/Gzr5Rw9PcJMsxCBprT1/S4HqVxzqKQlt4FDFzoKCweIvy1rGlax1xy
npmSpmcyaEz5mfvhtR6p7+0Jx6yOkfx7zFV7psNAafLGm72EYy1+PX44gwE5
mwuXko+TfvzQYbBGi4H/AYDEpIA=
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd13k8FW8XAHD9qGRroZRlZkSUSCnJ1pxUlsqaSJEWZAsRsiuRilCWsiVL
hCRbypY20oLQqoiKyBq692Z5z7z+8fl+Zu6985znnPOckTrqZmr3HxcX1+U5
XFzM/5W1HffZrgRs/P/fAM3Ob7cNPUmAmdShE5+3DtNZLzK9+U8R0DHeszxw
6yi9HgyHY70JMD/qOm/T5TG65eiH5mW+BGhfrdJJT/9Dhz/YJpnkT8CV67wG
t0LH6US+8HfiQQQYvG8nJrdN0DPHUmeSQwigjGuiG3sm6AKZgESxUAISx2/x
B7pN0mVzhTMTwwgIGZHhTP6apA9KG0kLRxCwfXeNMa/FX5p3nphY1EUCmhxn
Tt9+8JcWz7e8MDeKgH+Jz+wVRVh0ftSIR0A0AVrKa3OOO7DolXerP4zGEqDO
22D84j6Lrr+RUmUXR8CNW4WCPtxsevV5O+pDAgGCGRuGLPewaVeFwbn61wmQ
DDDcpXCVTV+d4XGrSCag5WmDksMrNh0u4W8tm0YAd4SQjjCHTStai7VeSSfg
hWmoaZ8kh7ayyGuZziBg/JPC5aNqHDrTcfjA8WwCQvXPitcbcOhlj/Pcm3II
UE2Qn1Cw4tAjdkkim/MIOGdMpITacWgZNV+95AIC2i0cq685ceivc2cFZwsJ
kF1yf0rChUN3hXbZH7lHQOx8ed5cvP7OpsnscQkBd5rXCVfZc+hIbb+PUuUE
uK+Ob244zKGFP0ROBlcQMCI6NKtoyaHfvLt7p+MhAbMvqtK0jDm0y7wLXFuq
Ccgvh5daOhy6SadyJLaWgMiOQ7ZOGhz6c8LP4P46AlTO7HefVOLQm8Rz7257
SkBrlZ+poAyH/iGTdCbxOQFZS4rftYpyaLaq2d+BBgIOufQsd+Tn0DOLnZfQ
Lwm4VSJo0DvDpt2L3NtiXuPvfwtwsR1j05IW41u/NREgpf/w5dgPNu2UcHbv
+rcEnBo4nHLzI5uOMckWDmoj4F3XJevA12y67mlPSOM7AnQzNmnF1LFpzUuP
U5Z+JKCEc86lu4xNm2c/cbD5TMAz/k8Ofnls2j7I/mfOFwIGgtnq1jfYdN6Y
nOhwJwFK0s/vXI5j02L7zk5t6ibgjHtc4OKLbFrGazDR9zvul9iKM73BbPpY
1tf+qp8EDJs2vlrszaZVqhomZ/oIsHvr1hLjwqb3S0tU0wO4f3XnvG2PsWmb
Vh06eJCACyvY6yMPsGmFQ6VB1cME7HN4vWy+KZs2+PM6gDNKgHTZn+FWfTZt
asdR3zxOwKDa2x2j29i0kFLaQ/dJAgx9Kpys1dl082nx6dssvB4feXnZRjZ9
QfItdzeHAJFPg9ViCmz6x12yefk01ts41/DxVWzaLNjmmOEsAcFCIvOnCDa9
ILW/5uwcEg45aHe1LWfT/V2i38u4Sfi9Rt1wZAmbdhvSaOudS0KLp/bKPYJs
2lvtdsxyXhJuNSev+zmfTS/iLxLT4yNhU4mJftV/bHpjeJqntwAJ4iUxhq+m
WbRLwaOUTCESzNKvrBRhs+jgo4cTmxaRMLtdqSR2nEX/O/XMlrOEBJdCgq09
wqIfpajMk1lKgpsWi7XqN4sODB0P2CNKghof68mWPhYt3rC90XMFCRXSV0/7
fmfRq7mPDV8XJ8H/8zftn10sWuZl9GCNJAlnT/60CvzCoj9WzH3eTZJw+UqZ
kNYnFn3FecZ37koSODZhhdLvWbRZ1D0+ORkSjovkpCu1segF7818dWVJkGl0
tbBpYdGpIhL19qtxvS4Ce++9YdEia9QmzsmTwO25X0rmFX7fkg6eDAUSFmcl
WJe/YNH7h5T/Vq8jYbJ1fZF9PYuunnJ8/WE9CQk7nN9sfMaihbPzI8aUSXBf
KuIn8YRFX/Kl5PlVSIjnrDtD1rFobo3h4pWqJETtSKvWqGXRHR2aMmpqJBiI
N4q4V7Po4giFYEMNEvgKdHwqK1n0iozOp0e1SGgf8O2SeMii9Ru9Jr1oEkx9
tplfrWDRz3oElkZsw3jMud4nif1tdGmd1PXtJPgUbbtXWcaiC5oLJG/vJIEs
d2p1LmXRTU19Cyp0SVC3O+ivWMKiy4nI3mf6JCyaJL7O3mPRd8UL7r/dTYKk
jLJadxGLdvW38v9qQMKjp8pvW++y6BN77m78ZUTCXrfYydZCFr2HU/ptzATz
S2/nv293sN+aBIT/20vCnKkzmtMFLLoxZIk0tznm25Cb5Cr0Giq0YsF+EqRv
/5xvmc+iD6//oLvwAAmufmtcruWxaH5K7K2wFQme+2496r7Nom3eGO0XPUSC
aEf5GVW0xeWgzysOk9AYf2xDQi6LfrEmz0r8KAm1OmssZnJYtN/3tg5xW7xu
/SjYDb02eNZK3J6E8yd+av66xaKT1dd8XeFAQkrWmlXO6PBPRkdEnUgw3FLe
Op7NouNy3XqFXUggSlf1haENfUJPLnTF+qCM5xHo2axzXHzuJEhNEO+qslh0
AuEcz+1BgtjjI9xH0QFHFTdMeZKwKypLSxBtH/qo7Y8XCe8b52+pyWTR5Nrl
Z/p9SCj/teL2KbRBqqxqly8JXrbFu9aj1z7s+NvmT4KC/puPIxksmp4j/7Qh
EPNpreuycrRA3FRKZTAJhz29ngSj72/ZFnrnDAk7pi/eMkDfserxSQslwXqa
c55Ea4m+9r8cRsKMeJLyxE0WrajQGx14ngSoue35Br1baEWZ8wUS5rlXi+Wj
J77p/d5/CfPL9ib7Ijol+ODmnVEk6M3R/n4CvcN7U9z6aBLiTsQV7WXuFyyf
Jx6L9bs0ZLMmetOuuss8V0mQlXhhJId2+K2iOBhHwrayf+9F0NreY91tCSQM
me0v4EETCm1FlddIOFD+KH8ynUVbi95PvJlEglZ+dnk/uoLX+1p4Cgl/70wU
dqFjk/pLnNJI0F4ncPoDWn3jYL9BOglcsTcnW9D0/H1b12eQMPG5ctFrdLo4
q3BxFgkn5qXfeYEW0MvXGsvGftb3pKwevUxNe6AlhwSHR4+WMLbziK4ouo39
w0DnLuNOY9tbl/NJGPAU8mE+3ygQW+Z8h4TUYy3mr9Bjld9/6t4lIVtXXbMZ
XbdXUUP6Hq7PsWNpO9o8X7VkupgEwebVrZ/QCYFNRu9LSfijZ2v7Da3hXLu4
qBzj25v6sA/9eaqZfb6ChPGe7PoR9EDWK16bhyREf+cJYqOr63zxDCLhws0/
zf9h/IJupKXx1WB99JmWCqDl/LjkOmtJWD6eKSGK9gg+9rG4joTtxJxZKfSz
5ovlYU8wvz8vM1FEi4dtqbV4RsKR+ZIL1NA/8xTHV9eTEBHULLmT2V99eXN2
A/YTlku4CVrfbvBHQyPmz9oc9UPowalNWYmvsF+sy1F2RjcvrIm1e0PClBj3
8dPoi6k77io3k9Az8KA5DL0+N3R6pgX7e+w6x6vo5ZtVAhtbMd7bpOVvohP3
LlGKb8fnY5cK3kW/EGkVtnlPgqWShVA1WjdxncLqjyQUVDfJvkR3cn8+PfKJ
BNVRZdOPaJ2YKM79DhJeN3Ze6kW/CuHcC/qK/dohoInJ/7ny7Td2dGH8ksaW
82B9nBxrerqgm4S111xsl6BXmaVIvekhgbfHpJBC237tL4/9QYKS7o4/69A7
VZ3DzHrxPOCSXK+F1pN8FbXsFwm507+O7EYPOlQ2v+8noV9vIMySuS700/Da
bxJWhsdcP46OJli8+4dIYF/1TvJC571ImV02QkLfTrvwUKaebYI2to9ivm0x
OBiLjjHVyb7yB+uxbqfoDbSxauo+owkSkkcuVhSgW+rld/L/JcG42F/rIVr6
e/yp5ywSemcSs+r/3y/OfQ/hkFAkHfy7De3LmxKvPoXfTwwJd6N/p4RE/Jkm
QW5hzYph9OSH9ur8WRIEyrqn/qFfbiGT73FR8HaeYxUv9ifzVevYkXMouNrm
ZbEUraDpwD7+HwWPAna8lkJvSJdM0eamYH7RKsl16FeCad8keCicB4J01NHx
n7c0TqKHhZ/r6aC5/mmaN8+lQGQ4XNoULcRmhd2eR0HL1YPvrNF/Zh5anp1P
gfr9ocOO6Nq3zS0HeCmwWc55zPRP3g/nh5QXUDCUtnMqGB25SLGIj4+CmHO3
BC6hP0kIinajkyNm/sSjxzRPST/gpyBRUaM4Hd1nXNgeLUDBRq59uvnosI/z
1tkLUrCh17CkDN3LalDQFMLn9VeZrEVLeNJvFy+kYKUzsagR/biwlOhFH/8i
N6cNfbPMY0nVIgr29/q8+ILWVXlyJ2YxBXVcmo696NTg4RHbJRTcOZvbNYI+
ewk6tghTMLWWpcRBH5mYcRMQoUC5wNmCG8+P57MeBZ3ojZv0LQTQY1e/xxYv
paBcoENpKdpFO5kKW0YBoXzqmyT62vav+y1EKTg7Yecii4bT4+prllOQlrGg
ZR16rZNMPQcdJl+5UBV9a0/p9MsVFDS8/biaRgtP//qaIkbBQF+9hC76FDe/
8wlxCkZ8+wcM0ewrVhlaEni/4O0Ec3T4RekwQUkK/O1PSB5Ca3llCX9Bd2pn
htih516SNiwgKCiUqXjkgha5932TP0lB2wrxr55oV7+1DfoUBU0Rmh/90O6r
NXiXS1GAb6jFZ9Am+eYTP9B18886RaDTMx5Fl6ykQPrvpTnR6DfWle9DpCnY
/JI8Hc+spyPitYEMBRVcxW+S0S1NTifFVlHA735/bgba7HrGk5/oI2uzJXPR
ggYnnxbLUjB5aGRZIROfe6KnguQo2LFRaKwEXbz13Vv91RSI3fO8+wA9LDXY
JbIG15sTb1TL7Id6Slonev3VvrdP0QsIaYE8eQr+nu9Sa0RvFqlbc2otBVvF
R881Mc8nXvZXS4ECA+Oo0jb0mj4t7/mKFHwKk3vxEZ3Rcz27Gf3TdsOTr+ig
dfPDr6+joLtZPLMHLZ/+RPSoEgWcD+aOfcz1eoGD8uspOJ9nsmyQ+b0B0ngM
HX3OL28UbcWn/vfBBgp0C7bKTqJrOhKNzyhTEHWU7yIHbd7qZaW3Edf7Se/d
DLp2+SLxhZsoSFCy5efGeSc5NiOyHT1t82zNfPTcLw73klUoWLq9bQM/mmOW
duHIZgrkzv2VXoh+KhS0VE4V6yEljksYfeyz9r7f6PbXCxuWof/qyunf20JB
NfHKTwwtn2Y36qVGwat9a1cw81Xcd1VDdXXMl8moTCm0dOd7mxn0Jnqv2Cr0
2YXBso81KPgj8zFwNTqkzD4jTJMCy70Bb9aiTzTVt+ppYT7IXxNQQkeIfX7I
v5WCG1XhW5TR+4U/WrxBazenm6qgRSfZeTE0BQu+aB3cghas9So1BQokBEtN
NdB/5M+dEtlGgYLWfrWt6H33rQba0QunAxduQw9mbF6RqE1BaoxP+3Y075De
jMV2ClpH4i/poL8caExavgPr9/VqZX308InRoQ9oy6igF7vRx13HOdd2UtBo
+t3EEO1hv6B2vw4Fo5zsl8ZM/KXtNZbrYr5ICanuRcuqgvt79DMp+7h9aMfJ
V9YJehTIik/2WKDl/Lfx7NOn4Pkoj+wB9I/Mt8eEd1GgY/rhgBVaX6QsoAXt
WVp69hDzeRVJo+jdGI9DX1IPo1dvpj/v2UPBL/u4gqPo8/xGUnwGGJ+HYndt
0VwnQ6Tq0X/EirLt0e/65nWEGmL/krsa44B2qVpqAkZY/9Zz3J3Q16Y6Q6bQ
quKqO1zQE2euOVcYUzCT6SboilYdPLn4lAnW16ofL93QATlpHkqm2G/uNwef
RKd0G0f3o/ntndZ4ooOuPzyevZeCSoVfDafQR2IEp2zMKHjCFXrIG71xn/8e
sX14/1uXfh90B61i2YY2jf7k4ouO9HBZedkc62nN7A8/NN8nk1xdCwr0rwuY
B6D/W7dsgGs/BUKdG6sD0Sajv/ofoB34ssWD0cYe0zkelhSMa0SfDGHy82XI
yrUHKDh2m6o9g575lnmgB610M5wnFO3rmGCcfJACuDy47Ry6ues8z14rPH/+
hfgw7xeb4nK8+azx/Ep0zg5HL0qVyalDm6m9f3meybduxYTTh3A/u373R6Cr
lo9tV7Kh4GF1238X0cue3Cj6gc7bUC58CX1J2a4j+TCez633JSPRveHu9SZH
cL89Z6koJh6FwyfnH6WgVLJY8jJa12FRRxX6GjEuHI32A655HsfQc39xx6D9
434Py9pivHNLBhkbxP6X9Bn9Xc67JRattMmNJ8YOz+8Rk7tX0N27bJR22FOQ
U3P8/FX0kOesGAt9Luu9ZRy6kwiozz+O+bagTjYefSFyjoqNA+ZnofYQ4z1N
lceWOFLw7p5fUQLa9OW7vc/Q1JXwE4nops1Bc087YT6tD111Db0j6ctpeWec
N1ojPzCuNqYKO9Bb5WvDrzPxjDiZfdkF69dEZX0SWnzb1CE4QcGVlgXtjOcZ
D3waRbveMvdKZtZv5bgi0xXXu1VlcQoTv2/pYmZuFEiF1OQyrlSq+srjTsHN
F3yaqeh0xx92ZeiNkxteMq48r1Nkd5KCgza7zdPQPeYLapZ6UFDceeIL4+7T
FtHP0Hbtdw/fQOfZHpDx8qSgQEaui3GCvUagzCk8/9V/HUxH30iXTmpF+wry
tzFO4tP0P+tFgaL0Tb2baFePO9QGbwo8omsfMDYOSL/YiZZj+cploNkZWg+i
fCiQTOyJZfxN9U6BxmmMt+ZCNmPvY6J2v9CfjRZaZ6L3rsrqTvClwKttoprx
aTP/VTv8cN5xbBPPQgffeKo4inbaXeXN+H1kzr9UfwqMLGveMJ7w2x29K4CC
7cID0tnoqPT3fZNo0TRTb8YNAp68mYF43j3lec74VM6OIcMgCu5zFgnfQm/b
4JnEQddbhVszHtq+SvBWMAUfSjyzGYeYntExCcH4ePf2M/a5fUdnCr3rxbBi
DvN+7tosmHOGgtOhSa6MZTMXppicpeC64kQBYz4qdvQfuoRH8BfjRUl+QrdC
KYj8N7QyF700fXTM6BwFalU5BxjfSBa/wUbn3t4ew1igRVI4M4wC8tubJ4wb
bSSN9oTjPKaxb4JxsDa9dwLdaNQtcxutbZRLpp3H/fY4Y8r4qWpgqU4EBVkV
WkGMwy50Lx5GL2FL5TLmKpxSTbyA88/rLc2Mv/YPy9IXcT6KjZxkTB3t+voT
vdVJTjyPqY8lYzaXL2G90cJbGVe808tTiaRA84mlDWP/47w1HWgtN55gxh8s
zZJDo3A/IyRSGe+hjLXlL+PzSuY/YPyMjyxpRl8XeNDGuEHn+6B3NPaTGcMh
xtmdj8ckYijwcfGal8/Ep+ZL3WP0m7RNkoxX5FscdIjF+acwTplx3a69tYJX
KJCPSNVhXCP1Z7AYHdRnbsn44xXLXourFHw90uDEOKczN38KzXOQ7ce4YjW3
xs04nCcWjV5gXH3iYvzOeApWx5cnMi6OOlz5C81qNc5iLKSbUxCVQMG/6Od3
Gf8PI8jmZw==
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwd13lcTd3XAPBriAYiRfM5R0VExtLEs1eGyFBKKYnQYBZNaE4q0SBPA016
SqJBoshQKUMpNChKEyoapRI6597bu37v/afP93PuPXvvtfdaazf3gLO540Qe
jxcxgcf731+VkpaHYycoWPn/nz4yltXgEHiKgtNHjttMvTVIbrxO85Bwo+BQ
tJP1lddDZBmYDEZ5UHBl1dXWE4EjpPZAY82csxTEGtua+oiNkuBHhsrxXhTY
nrZpij/wm8SJB39Q9KXgl3L0z5LoP0RonyRM8KdgndzgTCr9L8lW845TCKSg
YNfeRL2rY6RARDotLoiCP11BtjwXluxWNVWVvkDBR6vhOa3aHBGdoqAQfpGC
d7WOMRXfOKKYtStUJJyC6jKJ09YhfJIV/tPFO5KCL0d2y7yRFxCV3KLGoSgK
3lMfC2RTBKT8euJTx2gKWs54W/5QFJIFIY5MYywFwXXuipURQnJi8YCI8TV8
/5stz0bGhORf4WTnwgSMT3NBwHHzcRKs5LVnfjIFr5dT7NP4caK5R+H9lRQK
9ptJxEo3jBNbq8xaQSoF383lC7In8CDt8KDNwXQKGpP+2ZsgzYM5ZZknqzMo
sKGb1CXn8uCnY7zMqkwKeE+Dt6Vr8EBN7+ymhGwKpN/Ui/Yv40GbyPj08TsU
zNfx2bpbiwefAz877c/DeDiUqtlq8+CDXbVF2X0K+CH5Fcb4PGytZ9PcBxSk
Li5ycl3OA+nGsN9+hRTMiiUFypo8ePchN6flMQVmj3RNz6vz4NiUUJ5uEQUJ
ZyI6PjE8qDZ68jOqhAJ5z7+rTeR50Bz7za+3lILE5hR1ESkeaCneyjV8QUFF
8JDuXFEedKnFB8S9omDetFbWVzBOxnQs/vRVUFC0b4we7hknQqmjs0gVBerO
Uw3KMT4n756sv/wW4y09fEe1dJwoW/3650s1BQ1tsrnq2ePkSOy5HcvqKHjR
XNb/I3acXDZLl/atp2DhAaUlUQHjpPRFh3/lBwoyI0NrVY6Nk9WXyhJnN2G8
cjhSsHOc7Ex/fsiumYKni45utzIcJ06+Tt8yWik4oH4kefbicZI5rC472E6B
9UmvBnbOOFGwPMfX+krBEZ204RkTx4ma+0Dc2U4Krk338LEdEBL7G229T79R
EP/o2aNvjUKi/bTit7AbnxcW191/ISTWqkpFpA/3758CXsVdIbF7b0T8Biho
qs6+PT9JSBbvzfctGqRgs1OfT12okGwbeevNDlFQP+np5bceQmLuyOqv+kXB
YnPhcXkHIZFcmvz45G8Ktor3LH5oJiQ1ZxQFt/9SUNu92z+DCEmoct2kryzm
44xZL3s1haQrl66RE1AwspCbHqAkJBZ+dvYm4xT4n/y75IiEkIgl9Rafm0BD
zOCKV+msgPR+lu0smERD7W699St7BcT5h0H9dxEattRPH5H6JCAeercvy4nS
IHLfiA+VAjJT4q7CJnEaNojuP1HyWEBWBie7ekyjocbazjAsS0COZT9LTJOk
waGmyuZmooD4HdgXVz2ThnSFFVHTIgSEc3vpwM6i4cwJzEQ/AXmWqD1FbTYN
nnPfuheeEhCfwF/eW2Vp6JNbf52zFxDFinWVrvI0SN04/jlop4AsmGQ/eE2R
hqG/93otjQVErSpyoFiZBpWprsePrBaQpkKRV19pGkTtDGXLlgrIlaPCsyIq
NJxv+BO7W1VALMLzxNXVaAgtTknUlhUQsY8WZzfOpyH37T+fTCQEJElGqdxp
AQ3fpp2efHOcT2QW6o2e16DhTRnzXu8Xn1yZ1TI5dTENNpnFE8R6+MT6x4o/
RUtokDvcaTqrjU+K+IffNi6jwbD5YoDFez6RTs+6MLyCBj8bS7t3FXxy6Syj
IaFNw+lZlQ98i/lkksHgPRUdGh7zfW0c8vmkpWW1mp4eDVNmrFHxzeSTexcW
+5kY0HCgVaGvMoVP5FPbXxxYQ0NnS2SccRyfGFe6/3YnNPToBswYC+eTlx3T
Zl8wpEGBMobG83wyNLt07rV1NDyBR0rfvPgkuyZb+fYG3F99+aS5rnxSXd0t
VriRhqbdc0tCj/DJAyrs+0tjGuI9hoOUD/BJrmL2w7otNHhNkGCbd/HJCS9b
r7ZtNEhL6i98YcYnx7fmruwxpWFwx+X5DcZ8spXN/zJsRoNMiqm45Fo+UTHz
DuZ20FAqaBw6rs8nlf6zVCftpOFL7rXxkRV8spAJLBSzpmFg4x+b64v4ZN+y
xo0zbGi4ImKwzFmNTyQYhTppW9y/GO+7B5T5xO6dqbXsXhqS9oVJnZ3DJ1YR
vs3y+2go8mwNz5vBJ68XZtoqHsD17HF2kBDjE8/O+hZFBxrmuTxsDJrIJ4v8
xm0VnWiwD7m4guFzJEF/YZv8IRrObphS3DTKkeBPpvtlj9Dgfd+zKm+QI9G3
nL9LH8N4vNyRm9HDEZPTgadmnMD9k5tU9riDI+M3zvPET+L5/dRj19vKkVjq
aMwkFxrMP6/t0W7kiPcBzeV8Vxo+CKaVJdZxxCnwWf2IOw1qiaNm1FuO0Ivk
AnpP0+B7bd3kx+Uc2ZY0X+fzWRqiXMs2OpdxZNHjlj/1XjQcfZITsaaII2SC
xosKHxrsOhNN1Ao5Mi2an/jEjwbN/c481fsceahrGJgTQEPLHD1G7w5Hcmw7
TicH4vlctlTT6TZH1si+9YoIoqFZP+b27Rsc0Vz8PdInBPPlbqbCpBSObJGU
Lzgaiuer/KqoSwJHRr9s6re+RMOhvH3C0ViOJPrtXrUhnIYOpjI04gpH1nto
RS+LpGH/GnMDgwj8/vQHUxSjaDD6rHCTC+WI1ubSiMn/0vBO95NddRBHDvVr
aw5E06DxrJL3IIAjaz2Gv9bHokMTVHN9OEItrr/75CoNp7r3OT4+y5E9sg/j
/ounwc01yPGjO0cKRT2uBifiebJ48lLEhSNR8b33jyRj/AcHFm44wRH9lQO9
21JomNC6UjfmCMZrquU/y1JpyF5denXUiSMpin/vSN2gYZH5p1FHe4zfpqw1
w+k0RBx5xXXZcWSO3tq+2gwaAuc9t3a35YijS2Th3ds03Pjz56n0Lo60b3e4
GZGF+cYd/vTMkiOV06IKjubQ4Kj008HbnCPDTzq/bcylQdVVfZaRKUdKd2ga
qObRMH/s4DXlrRzZmaVzX3APz2PAo/sTjfG8+FSbfsynoaqvQnF0A0cMjpZI
3X2A88lsDf+1liPN/JqxkEIair2ry3nAkb4bb0TtHtOQ5ca/IL+GI0WlZ7EH
Yb4tJlf+0eeI7/XkZPFijI9JV7qzDkfUPXnq7SU0mJncDMnW4oiLn33TvVKc
z654/q/lHHlZc/FB0HPsByHLqzYtxftTkG6J1UsathktepKxmCPfMjV/LSjH
+jUaHiOlgftrrLFzrAL3vzhZLVidI8aOA10VlTTk/Ne0UmQeRwb4Wjfi3tAw
ntMTGaHCkZoZxVGO7zDfT/83RYXhyMWk9bkramgoeTjiVKLMkWW3AgXCWqxH
Sv3+ToockVul7VP5HvPF9NY8WXmOxO2YtTSmgYbL883Ua+dw5LXMe2m7jzQ8
/yW9K1qGIxvjlixe0IT5oaQUuW8W7s+k5jM/P+H5LQpL1p7JEaPL4ezDFhpc
L3vukZbkyBt/Ns+3jYbj/V2pYxIcEdFouL7+M9azkXyjbjGOnBqufiH2lQb5
zpy57VM5Ms8ice67DhqORZ6a3ibCEYe23gdRXTQkcO6dnZM4skHnaJDFd+xH
9IRzIxM4skn5TficHuwXr1TLxHgYj0NPaj72Yvxj8gPUhSzZJPnN5Go/DT66
W5K38lkSSf0Vtf6B4yUZ/D7DsiTzdeL4nJ80UHZRh7L/suShne/KhiEaDptL
NHz7zZLL5kbpV0ZoWK8sq7RglCXbdZIsTUdpqBt7Q50cYUltucYGiT800HF9
xcVDLFHtjHF79ZcGA9H6NumfLNaL853+LPavtqD9zj9YclY0MUafj/1mR4JG
bT9L+hP9L4wIsB5FbKD0+ljyu7GhKGuchq8Tjedm9LCkSpdOyOMx4PF9TE6x
myU75y0ZC5vAwJ0K3b7obyxZvPrQ2MGJDBxRd/aV6WLJ8hTlxLWTGHitH/bo
WgdL3kxP/qI0mYGw0gnn1b6yJKZZt/I3etfXZy/zP7OEx63eWSPCQP9SnYOb
21kiOfY36PYUBs7mbTHramXJiPDxrnNTGRgSsz0e1MKSkrqaWhtRBlpu6aVr
NLNEtDHkxwoxBqQU1Dvqm1gSNlPzrrg4A9a7G6TON7Lkk9J02a/oa0b7lXQ/
smR4tZvqIwkGrkqb/fjZwJLu7XcaIqcxoPY1yvVOPUuCmqYscZrOQMAu96sn
37Pk+9+KxaslGRi3yDXWqWOJkiupk5rBwNHkHW4Ta1lSdief+o6eXPJepK6a
Jf8VuMx6OpOBkjp+X/o7lmzUfp5zWYqBntOjMr5vWZLkN/jTYRYDqqUGzjZv
WHLuErToSjMwSTutR7+KJftHhc7TZBgY7DJ3pStZ8mrcJbsdHRv6nJv6Guf/
b2fUvdkM/PmvyOVXOUuOrU1gguYwkPrQqqLzFUuurmuztpJlYF7Mr/7GlyyB
M7/0F8oxsCLWsLbmBUsWHVErZ9HLBFpOb56z5ObWfEGVPANxO6clVZWxRFrQ
05aowIBM5+aD70pZ4jZJ4uhxRQYUpQof1D9jydgV29Q1Srgedo9PWwlLgi+q
Bk1XZkA4HJLTV8ySNe43pFvRz6VL9fhFLBG5pGqSTTHw8WudzEy0TF6nlhfN
QMrA8+XqT1lywnNRhTGD7/P7EGj4hCUnFxiIys3F+ZmHCPc+ZolZ1s7RLvQt
s7AYv0csSUl9FnlfhYG5+96vTitkybs9Tz76qzKQoBLQ/fohrqflwtttagz0
NQ6GjTzA/Kg+ckphHp5fgzsUg7a4lvr8G9rJzveKaQFLpm879eLefHz/DYvW
gHyMT56sm686AyYpO389uM+Se/98qDNewMBs6tObH/dYMjh34LPMQpyfrIPt
QvSwfmJyO9q0LOOqUx5LxCjVaZkaDFyKDjp98y5LVsmULnRbxMAhK/HB7lyc
n2LBnzWLGbhneGJUE72we43HVE2Mh5RMgPsdlqR2XEuvQddrXrhQksMS3yVT
g68tYcC71m/iNLRGynPZA0sZMNNq7LLJxufl03ZrLMN8KYlZmJ2F4/XR24fR
VdDxYjyTJbbi+n8eLWegd5FUriW6uCVue8AKBpa+j27PuY35/N7ddtNKzJ+8
qSai6BK5mYoztBiQzZ0/7HCLJQlRqWEN6Itutc+fZ+B+th7KS9BmoLpA7Ika
mrVIDt2/igGV8OHqkJsseSHpO1tdhwGlmmq2P50l9s1rLfvRPidEtCzQfzaq
G+fp4n40zHEruoHrSXYcctfD/d9x8/4CdHSnjom+PgNLfNz6YtKwnrV/tBOi
zePtZETQ52b4zS8zYEBH3l7dI5Ul/gVOqUGrGXARxCr3/MeS49Xl7zetYWC1
5dKfe9AXFJofS/zDgFiB19X6FJZYSzdZvUPPzvk2Yxta9vdY5mXCgLrpqGn5
dTwPJe755oDvzzMyX4ce0TjvJmPIwIHD/84sTWaJ5UPbvgb0T7mc84AeSF0l
H7eWAS+Bz63SJKxHPzYJrdYxcNxV1GM9utWmMl5uPQPvQpy+VyTi+Tk+9KMR
rR7x+rcJ+uCJX+zVDQz8vns2+UMCS1ycxEqsjRg4H9zQaIdOUHUykNvIwM1M
s5TeeJbM14GTH9H3bM8MeqAP/36zJ3YTrl+u59lktLqX4WRLYwaO6VnPiL7G
kq60Onvpzbje2IgGNbSxTIF3LVp3wWHJh1fx99rKppFbsP7lNeZvRi9YRZq3
bmWA3fvleXscS0IkTOeKb2Ng05n4VR5o3in/ueVomLJEVBL9oXtKS6AJA/t8
G1dmxGI9ejrbDEwZiHftzjdEX+W3+/PRFhuLg1tjWDIacPVo4XYGPBurbnii
dQZOSbmZMVCnFy0uj/bOSHZZao719EDW/cJoliR+3R7Zi1bpLkjYhfa99vhg
+g4Gih4cKub+xXp5eTrfzoKB3IoLstfRKy29tipYMuD/pTd1HbqFaO+qRwu3
utr2XMH+4HJMJWInAxJxs+EyWvyT2a2NVhhf03pjXfTEJXP6eNY4XuUz9y9R
WH+Genofod+1syWX0NtdBBkuuxj4nHNXTQetWuWvssgG82svldJxmSXCL2k2
HejDveFLotBnD8duT9jNQPCXnW8IuuZzyOQdttg/Vra5D0ayRCs6w0N8DwPU
SIx6CnpmklpGKbpmvqDVDG35VTP2zF4GToVfj5mMfio3vG6pHZ6Xo7O3FEaw
ZM7z63e70IG2k7hj6EsrHFsS9jHQMFshVQX9Pfhkudl+zPd1c9Y0hWM87gye
mnqAgczNzyrwqkQ2HprZ8hRtqNZvaIz2BN4UF3sGCtTOpk9Ee0X3D853wPl+
NPv5NIwl26Imxjej7789Sp9BL9VynnzZEevhqfKlWuivm+2WrnfCetfsTA1d
YskP13GFv+i6m57dd9DtlHd51kHcr6qpl46jQ8MmaNsdYsDB1XCSJnpr9RP7
WYdxvHe7TQYussS86sOOl2jN4ejDd9DVq3xFzhzB9WZpmZ9Er49vPaNxFOuV
XZjISnTRduZOC3rml9/+v0MxnhdOpUccw3iZNJY+Risa8vfCcYzHQNJLP/SU
7X2fhtAXpxSHbkB72h6WTzuB940XDyWmob9/SVGwcGZgp6S08fsLLHmy9Gnb
5JMM3D60jySgUw53ORagJT7q9tv/73mI0V3HU9g/8tds00R37BQrnu2C+RQn
t+9PCMbnjFXkS7SznpdKGTrTwUbN3ZWBp5vpK+HoWCcDHzU3BrTsXmXvQl9P
UY1/j77/Wu/kfHS8+Gqvc+5YjwI3fxoJxv7pksMs92AgSbK2uxS93TvlYju6
Y2fOtcvosdQ1j8JPY3+Le9Vrh/6ik5NtcAbnt07i01K0h72sYw96YcdJRx56
x7wbX2PPMhA58dfF2iCWnLHwmrfeE8eXuropDe13/YXmEDpt68FEd/THsAwu
yYuBsVSX85vQo55bIjd7M7AyqVaoiA5P+dj9G73JKFXs53mWVExzFU3zwX4p
I5b2Au2Wsf6HiS8DCrXLXl9DGy53jWfRcT6bPZ3RP9bNm37TD+vL+vD8DWh/
8wAjM38GTuxd5aGEPn07x4iP1hu7UDQSyJLxEzXTMwKwvmm8u1CFnp82I9Hs
HAOW1RYf0tDiTNQQh7Y/f+qGN3pmvKfkzUDsn+d9hyzRs1OGhk3PM5CY1Pxk
Kfp6guL1MXSJ3I8J4uhptcrSaUEMLLjFlHWeY0mlnbLp1mAGuk072BK031qy
YxSta5WVmYBea3qLTg5h4KX2SPVp9Asdn3yjCxg/b/3DFuig0K9Sg+jXVSLu
y9G8O3yduFAGKh60DUmi23oH55OLeJ94vKOtP4AlzIHPbd/QyzX+6lahzWcN
20VcYiBH0YGXiS78sClTO4yBUmutlaFor4OixS3ow+biNYfQjbssEgLDGfCd
HNawCb2V2b5WIwLvHyP2axeiX4rT92vQR2UMZ4ujK4w6BzwiGXjz7MPWPn+W
pLeXDStdxvxNb/mO/1uR68WtpWXojALJrjto+Syr3YeisF7N0VwXhS7dvKNk
+hUG/pPn89zQxXNHBu6hL81br2yFbrqy67vVv1ifs2tj9dEZ7bey+OgByv0Y
hS5cMMngv2j8ftPEpInoouMXYzbEMLBNeYf6dz+8n4Xve9KDZviG4m/Qkhsz
ssNjGWg1zV2fh/4/UUvDqQ==
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJxFmHdcTX/8x7s3kTaV9jmnQUTKjMT7bVZEUxmRUdkkSktFE01SGpJClBSy
tVQko0QKKSJZaWnce8+9/T75fX+P3189np1zz/m81+v9fh/tLfvs3LhiYmIx
HDGx4b86JU13eHspXDvz7FkZuS7g5da7huynMFiut01iTTdceJrlLX2Qwpkl
KeIjDvSAMa7qjPemcEXBnDRefQ+82tJYO86XwlVpTZ02Sr0Qfm+hVoo/hW2b
z7+dua8XkqTC32oEUljumrPJoa4XRFvPilKDKZwv1ZDlMf8vXNULSFIPofC1
YqIPvvsLtyQUs5LCKOyaMVVT8ulfWK9rrasYSeEnhZw3vzl9IDlSXT36OIWP
eak2kcF9oJG79phENIWF9CSdcoN+yI3u8gyIpTB+s/I+V6ofdPKLGrvjKURV
nz/znfvhybm0h24JFPoU7q9Yx/bDxAg3pjGRwhtbdRXydw3A3ikdEpbJFKaM
5+zcuXYATolG7LubSmHIDtUFOpcGIFzTf8OEdAoPJ7aXfVw7CIYb1F+fzKAw
bNEIzUXKg+DslPNKmEn8NXx87iBk7ehct+0ihRkOgoNm7oMw7lGOR002hbeO
nRJoHR+ELrcUpdk5FC7Jmhd5dtIg6M31tUi9SuGuN4tn3g8ZhGaJIdmhaxSu
O6Kdu75oED6FfHLffJ3CF19T9+y1GoS3LjUOj25SqHJUM8HYfhCiFvm9075N
oV2gXcfr7kFQbIzqD7pLoZV6lpfDrUF4+TY/r+k+hWkVTIHn9kHYPfKY2Jwi
CjO3pJWMluBBzbIHXfElFJ7LzWt06R+ED4nfgn6WUVhb7/jb6MEgzNS4nL+w
gkK5D+PcZlcNQpteypGkxxR+X7nUIMqQBzwTh4FfVRROeHK2row/CKIxu8bC
Mwqf3L8bPbJrEDwKPN7EvaBwHmdlqKw1D7Sc/i74XEPhw8Q4eb/ZPNiZeNTe
uI7CnKO2lmfFeBBne1Ex8A2FUytXu7Wc5kFZxZfg6rcUOnYv+xYPPDA78ShN
+R2FEZl4rkqRB44Xy7e7fKBwwU09XJnHA/dA92/ZH4k93E1mIeE8yOnRV+ls
ofBIjbxuqDkP1FcfZWe2kniNmW1WVMcDPa+OJN+vFHY3uEb7RfJg64Xmnw+/
UcjoSZ8pJc+b9bCqX/Sd2K/w/NWXAR6s0dUsgl8U1vv8mDCN3O/yehkEdVDY
mv9UvU+BD1M2FgYWdVJ4L+f3A51BHqzsfRHA7yb10SGZLZHPAzs3vunsvxRe
61u6aP0qPsgZpd/36Kcw1v6gXtIQD2p9NIRXBil8f5XvvGcpH45p1Ym38ikc
rh4pJz605dO1qkJSj/T9jOI2HjgEuWxdNUTym2S7pzMfRp/9WXyUQ6PO/tiL
8hv48POTytdb4jT23Xt/XEju3/dn3pt2CRo/ZD4fmezKB++5V+JUJWn8Z95s
PihIF6hbSNFouYKcWJ8PM8LTD3jL0EjZzG6T2seH3VdL07LkaPTMPlggsuZD
0JZNSTUKNFbJODwuISw4WOnKH0vjPbW9pe0RfChNmzVST5nGy6Zf3e8e4cPh
kL8BVio0el+q9Y0m59OoWlx9QI3G9QnvmFNRfJgovrUzWYPGtvq5I13z+aD3
LLajWIvGlksgiM/kw7u7Eo9baRpJ9f5S2c2Hk7tEvhI6NO4Zql5+qo4PDtHX
pfT1aNzVPUns8U3ijwYHX/MJNLorPTPMC+fDWSXNJ+4TaRzDibC56M4HpUlz
+0INaLwf0pi8aBt53timEZlTaHwgNQmuePNhzZ/pA0VTye+LVKuPES5id7xo
NKZxeixbVnqAD4oXcyN7ptN4x2+VX4sPH074MgbSs2h0YwVR0sR+8XmdN3RM
aCyLq89LP8WHpiYzvblzaRy/YQbPPZUPNyKnBK2aR+PZ4AmPwrP5oJbZUrFl
Po3vV1vwLG/xwbLaq98LiH1zk1pzbvCh8ouMcuRCGp202/Tri/nQrVymnbyY
xn/lV8KHq7VXta4s/f/rNTXfR981pzGUmNdOnnebimqvtKQxNXbX4sq7fMjX
uHqnbgWNW4h8dxLe6+/s37ySxnh9ywYr8vs9VvkzfljT+C7AWcPgMR+s+IWf
e2xplJe+dcn3CR90bAPCBfY0ii92vOP3kg/VwWN1xR1pPNAwtmdhDR8mMSF3
R68h/lVyOn24gQ+bjBvN5dfRaJaxu1q5mQ/SjHqdojONjv8cyAeXl9ZrVDbS
eD40+XZQGx+cYgI/qG2isTA3rufUTz48nZTjrLGFxiGf/HXJXXzw+/qmScOV
xiO/+/7EDvBhctCQs4Y7jQlEbblCPqSaTmpW204jXXLnR42ID+HvrTer7KTx
r8l5Bc4oASRc3teuuJtG6U7PMS2jBbDqUMh++b00LpAo9RkpK4ChC6FiUh40
Gvf1XtJRFkAiteu0uCeNryOmXt6nJoCALYbT2AM0/pDbsk1KSwDuIaVver1o
FB1+HCauLQB6suqRn4dIfXnRwW8mCGDl2Qkmn3xJvWzsFPkYCWDy/aaBN/40
vpLoMzxgKgDgGFRUHaax1yGiScZEADIJbNqDIBrnbjFcIIECuDNnYUjeEfo/
/RBAnvOXQ+khNFYE+HL6bQUwX+WFf0wYjWmkW1ivEYDhlPbYwxE0vj1xPm27
kwBWyKnd2nWM3P+LL/FgswD6Plv8XnOCxmmSVzXXuQogLWj97KXRNC4f9WtI
010AS7xnJhjH0mhi7VX1woPcL3t7pEY8jVPOtfl6HBLAzOVlMSNO0QiPm26F
Bghg++9Zhh0JNNZYdmq4+AtgkXdP65tEGn+H7zkxPVUA1JQ3BQ/OkPMMt5ds
AWxQuZN0PoXGM0ZGpQvuC+CupPeZ8DQaT1hzjNPLBBCf8vPmznTi74dflLSe
CsB0RsfPlRk0LinVdrjyjvhr1OoFxpk0Rhc6NMd0CSBDY/DamAsk318fVTks
wYKMRe78nos0Sn773u2vwcK4uYt+vcqm8eMLey3PGSy4ecbeLbhC8mcByXgn
FlpsXC/F5JJ4fCcBPc5CtUz8rV15RD/fljqOTmSh58HXb+b5NKrIhbpyTrFQ
Zm84T/c6jYdvvoj+cYwFx1yTm8IbxL5h+TrEQuLhGuuGQhoxgtfD3c3CvF0l
Ywpu05hJoqHtxsIHtpYXcZfobXDKutuOLPy68FzS5T6Jf+5cNDZnoajMl/Qg
Gq86TmDtgIXAc+npUsVEX0l3HWfBgr6fmH5Lyf/lAwueQVvf3Sij0b62Y3y0
LQuVtcdvh5WTep6yiXtnLwsaYXNKnCpJvYd2bf8SycK3HMO/E5/QWN++c3J/
Egt9lgaOvCqib1dbo59nsWDp1tFWVU3yddT81NXnWOhgZ15Iek7jubVjMy4R
f9TKF8e7vST1fDGkLyiGheNnl+RPryXxU7cq74pnwfhyiFD0ivQjk3LZwQAW
VGfPOlz9mujb008Tfb1YSLIfa3S6nsYNosX8jl0sPFV6rejSQOOcbUt27PNg
wTxp6pSJ72gUGi8iIxyJj/gHn673pH4Hi1YGebOwLC6af6eJxuTXbtOu+7Lw
PJh/PbCZxuaCPbbuISxIGNSfW/Lp/8+3v6emYnQrjaNeqtm+T2VhvEOa9ssv
JP9K8x745rDg2vzzdnwbjc/e8nXO57Gw1GRXmEM7jTvfrXPRK2TBQut59Lgf
NAqc91SKbhB/bH9Q2/CTxGfowBmjfHJd7tuqM79Jfwo11zC/ykIsNSi55g/x
V0GFePUlFnKepg2N6yL9RX9YQVm44xI4o76bxpTr203nJbMQZ7fs4sleGk8f
3Wu0I4oFG5Ozq637/j//Xj0xWCo9QKPRR72RR06zoPv19MHHgzR+ma1euj6D
5HtC6NdgPtE/49f9+eT9vpJpp01ZGqeOmDtxM3nf77TgyF4h6RfLmI0N5Lz9
jfVFuUM0li4w9Wq7ycKzOXTqdTEGo4PO7f9cSvJ5/FReFIfBmZmFJoOPWJhi
tp23jcugpHhNUcQzFqZlaKUtEmdQYOrxMrKO+F82/bPmCAZXDCdMPQunP8yp
7ie8scGoUfYDC2ICM8daCQaXn9khcHrLghxvMOzKSOa/fYCFXtH9tUdHMUgO
2+FCuKSu9tU6SQZ1zxu22zWxINkY8Wf6aAbl/w0YLEQpGBZISTH4blFcyNhv
LLzXlFVpJazZxdsc2kXq1eyg7j1pBlnV4Y7Ewneba/WxMgxeP25CWjgLYe9G
TnWXZXBYHlJFLLQPVk0xkyPnu2X9ZOtIIWgegLox8gwmG6iefjNaCI+uFVLt
hIuNyX+UhXD+lufYhwoM5tnKE8kQgvms8ry4MQxuyh1xolxNCGeDOrtcxzJo
QbKhUl8IR09g0xxFBv0ttxbGGAhhc59on4wSg1GDq577TRPC4yHPqy2EyXZx
OmW+EHpOfY2/oczg5J3GsuXmQti9KJUJG8fgj8kWM8atFMKZxc1rnFQY3KYf
kvV1tRDQ56/pJFVyPeWpyQdnIUzeqfeET3jt3h2z9PYK4ZJVofCZGoNvus8c
qfYRgqLwR3OaOoM61ievJQcI4aC49K49GgzuF18AUXFC4J10zpyvyWDacQfV
9ZFCCD+uGyarxSCZBjs944Uw3+uC4kfCma+0Kl4mCEHihO6qqxSDhqfv6KYl
CkHp+teZ/jSDW/0ejZW/LIS9fpOrLBkGh4/z57oQPCbOk1TVZnDz/jm9ufeE
YJvr2NdG2ENy9c7+UiFkZJbG3tRhsEjrc+GnSiG83PCgIViXwWdpU08ce0Hs
aYp8sVKPQeHRjwV7XgnhVc3O/erjGRyefm1ahOCQnFn+jfC/ceSbEGRX7q+4
MYFBgyuKtUsaiX+uqxwM1Cf5/JQ7weOXEG4seFtnOZHBfbK7T2/qFkKndscn
pUkM2ulnHCv4TOJhmpbeQthsgJo6948QRlO6MjkGDG4Yp5gaS34/W6ls0sHJ
DCaOuHzFjfAljVsD86cwqIA7FfUHhDDp+3zvUYYMppLt+u+gEDK/JF+sJfxv
nOwUQuDUUeHJU0n826MmdsiKwCCjXGWLEYO7hwdkRREEPpFZb2DM4Kjbywvm
aIpg9i/apodwzYD9l4saInCWMh24N41BrdUrycghguKmJJsj0xkcXifn64vA
8bWXs8UMBvUK25yPTxZBiaqChvxM8n6PdV2ZRiJIjc+MqifsxU2R1KBEIPFx
+/XUWQzylMS+qM0UAd8h/djm2QwaDwvYLBFUyAUq65swOOnmwglqc0Ww9cOi
1b8Jf5Qx+dS7WAQD5vqW1+cwGCEaPdXRgdiT7tbtNZfBigSLzCRbESR8NVll
aspgz09N8RtOItBtaXAREZ5hoza0YKsIjsoHTXg0j8H1Ly/ezdktguBb7plh
Zgz2VtEyZodEsKfmyWuL+SQfBgfUVGJEEKn+4b70AgbPnWo2KfYWwRrFd04v
Cbs+37CiKkIEKv28nDhgcH69tkl5tAhkS7wK7ZDBDyU36i4kiKDXIPSg0kIG
wz0zN4QRXn3H+Vc94drh9TFVBB2Zs9WSFjGYUGbb8zNNBJJ/LEROi8l5m4Jr
5LNE8HFddYrqEqIXXSuED6+IoHNP959Gwo190t7lt0Wwbe9f/pmlJN/Vw2Mj
yXVP99Ela5aReiDb0phHxP+67vNUzYn+/mHIiiSCCSbo0UD428G1VruLRbCj
//mGRAtiz5pKjeQnItD3XzhitSWDhwy16b+/RdCWVbdVcTmD93eN5mW0i8BS
6VbAK8L7+tL+FneT38/Sso5dwaCcdX6Cm+QQTJwNH6ysSD4X2SVqyw1BhLS1
ttRKojez/DOUVYdAbH+w9hPCI9P95ZM0h+Dt95FNIasYnLN849mtOAS7Hyrb
ojWD1rqk4rOG4AzbEswS/rf/mIth35Ezu+7aMHg3X7w96rsYmnTsH3PQlsHh
9bFmMwcDstM9jewYjLNc9vJRMwfTWm1ifxL+9z1kMRcDk+9vu2jPoKq22fs5
OlzcHCfLujgwODaktPp8JQdnrPa3Ul/N4B+yXhv5cbAJZq19Q1g+bUZm4R0O
Rnnu1olxZHB7fEcA3OKg1Hvby+ZODK6S3vhX+QIHuVPH/RJbwyDx1rabORy0
7f7x8x7hXrpun8sTDtp4CrM915L4pxIB/MBB3WfBOpPXMXhm7/AJOCj6nLXu
C+Hc0Zl/xBW46Lsj0SZ1PYOmusv9Qzo5WPspYoS9M4NLu0pO/27k4MyEbG+p
DQzaJ2rHeHVzUOGsXnYZYbIMtemIOLi61TDRZyPpP8Pj8zcOPlTtWWzkQvR4
+ANaFwfHlZ8raCMcmv4ip0aZiyemuzWlbmIwZ5ODnT7DxfZwjye2mxn8Fy4T
LjZd69w/agvRk+pLzp83cNF8u0LTQ8LPpQtiVxH2Q7GRnlsZXPbr8s6j27no
n/C7c4Irg8djvvbQdlxcGc9N+UD4aHtz+XhzLhrN3Dcizo3kr/BcecBcLrYu
dzFa4s6g7XuNgM3TufjnwJD6IGH2SnfdShKvFirgSe424r+ba/vuqXPxWBRn
lst2otc75RSej+GiVc2DrWN3MChdF7X0tRoX7Z69ta8knGMRdj2M2FMzO1DC
ZyfpX+Fz3lYacnFJykcfg10M8oc/B5L8KLJhrjURdojqNTlvw0WFyP0XY3Yz
eCOMGTXeiosaC9mNuIf533mK8EibX++7CQ+7f/96Yr/zDrWsvST/3lc8Fa4i
/vucoe6wj/TnyGWHFOZx8YHRw+YRHiT/G82zr5lxMWNHm9stwtVCuaVHFpDr
EcsK3PYz+CvvSN7YKVz84ji6WNmT1O8r05wUcv5WH6fYSsJ8Mo1s1+Vijus6
Pa8DDA7LazrFxUT3eYf1DjJ4eLgBE/vPZeimvCZMVbxUMjXiYoqUmf9Rr//6
9Rwu7vXMY6Z5MxjzXDfI2JiLNgEZx1sIP/xOBgJHLvIy59+LPkTqcbidH+Di
Z5O8q/N8GHTxd7cMXsdF760qbj8I/9tXLLloP/5Ca6Ived5Jp3ZV4j8fB//x
S/yY/50PyfuDzlUYdhP+4ab0zJD4vyEqW3DW/z//aXCxz29F7PIAoh/TflXa
yHExOqPhez/h4c9rduO4WCVzQDLrMIP547+GpMty8WD2kj+rAkl9+LHNl4Y4
uHDagRR+4H/1Lk7yZ/F42UtBDFoR9bRYysVguyPLbIMZvHpApmrjPi4eupK3
jCV8ePhzBMm/ob21stlHSPymDSsgFydkyafZHmUwcHj9Jv6UYuK7BYTF149f
o0nOp5DiJ3cphDyvunjyUfJ+5YzuHutQBoM3xVAlAxw8l6pxjkdYg6wvY0h9
yrzSUswKY7AvdDxl08/Bahcta6twMs9lXwtIbOdg0CKw7yM85mtGaDK5vsj6
Mp0eQfTFr2Xw/QwuVpgcLlwWyeCXlm3Oc4h/w461jukkrEO2V3HiT7FrrEnS
sf/mL5aDzT87J8BxUl+knDNGc5HZ8qn5G2EynJvJ/+Gg3dgel5gTJD+LBF+K
fnLw7luLnFlRDLZy3OyvEX3w3yZZ3ERY5d1LMhFwsHGtQ2pINIPxw5+fiL5a
MTaLDGKIPpLsjSfnr5Sib9YSvufB6Emrkngt+9rhHcvggo6uBlcSr4stj3o0
45j/vrcQ/xR/LHsU93/zDQfVcp3Wb49n8POGqa3ziL/KltuXyJ5kcG5hlXdx
CweLtXs7bhA2iF9ilEX0793Jte1OpxgsbyQDex0Hs1su57KEddQ/Lvz9nNgz
UXze+QSix6I7J7WI3hbtOX566WkGZV54qe/4wcEb0Zse/CCsdHOjTNsILsqZ
Z1+NTiT9nshh/VsO/g8/0VD2
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 0.8085}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.8, 2.5}}, {{7.608374474380783, 
            8.294049640102028}, {0.8, 2.5}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 0.8085}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"f) zero C emissions\"", {
              FontFamily -> "Helvetica", FontSize -> 16}, StripOnInput -> 
              False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.2, 0.92}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox[
             "\"d\[Degree]C (relative to preindustrial)\"", TraditionalForm], 
             None}, {None, None}}, FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{0.85, 
               FormBox["0.85`", TraditionalForm]}, {1, 
               FormBox["1", TraditionalForm]}, {1.5, 
               FormBox["1.5`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}}, {{0.85, 
               FormBox["0.85`", TraditionalForm]}, {1, 
               FormBox["1", TraditionalForm]}, {1.5, 
               FormBox["1.5`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.8, 2.5}}, {{7.608374474380783, 
            8.294049640102028}, {0.8, 2.5}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}]}, {
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Year (log scale)\"", FontFamily -> "Helvetica", FontSize -> 16, 
             GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
         Text[
          Style["Year (log scale)", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0]]]], 
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Year (log scale)\"", FontFamily -> "Helvetica", FontSize -> 16, 
             GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
         Text[
          Style["Year (log scale)", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0]]]]}}, AutoDelete -> False, 
      GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"],FormBox[
     TemplateBox[{
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"CC16\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["CC16", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"CC13\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["CC13", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"CCGL\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["CCGL", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"BEAM\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["BEAM", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"UVic ESCM\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["UVic ESCM", FontFamily -> "Helvetica", FontSize -> 16]]]}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #3, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.5, 0, 0.5]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.5, 0, 0.5]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #4, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #5}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "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[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.5, 0, 0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> 
                   RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0.5, 0, 0.5]"], 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.5, 0, 0.5]; 
                    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.5, 0, 0.5], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[1, 0.5, 0]"], 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[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "55"}]}], "]"}]& ), 
      Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )],
  FrameMargins->None,
  StripOnInput->False]], "Output",
 CellChangeTimes->{
  3.7275143598306336`*^9, {3.7275143972107716`*^9, 3.727514521556883*^9}, 
   3.7275145722547827`*^9, {3.7275146177603855`*^9, 3.7275146430463314`*^9}, 
   3.727514673862593*^9, {3.727514706234945*^9, 
   3.7275147441986156`*^9}},ExpressionUUID->"df2a9882-d37b-49af-9cf3-\
b2e418e49beb"]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.7151919881943607`*^9, 3.715192236682207*^9}, {
   3.7151923058761253`*^9, 3.715192308333371*^9}, {3.7271497683816123`*^9, 
   3.7271497748088236`*^9}, 
   3.7275142747092657`*^9},ExpressionUUID->"7ae39972-8703-448e-82c3-\
fc8d8833b837"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"\"\<2017EF000724-Fig4.tiff\>\"", ",", "FigureCom1"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<2017EF000724-Fig4.eps\>\"", ",", "FigureCom1"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7151893715226583`*^9, 3.7151893792514315`*^9}, {
  3.7151932131028214`*^9, 3.715193255628149*^9}, {3.7271497985832653`*^9, 
  3.7271497998312674`*^9}, {3.7275094710351396`*^9, 
  3.727509489872217*^9}},ExpressionUUID->"b961cf94-92ca-44e3-85ee-\
2eabdfc693f2"],

Cell[BoxData["\<\"2017EF000724-Fig4.tiff\"\>"], "Output",
 CellChangeTimes->{{3.715189377072213*^9, 3.7151893798294888`*^9}, 
   3.715193256751342*^9, 3.7151942858025413`*^9, 3.715194337642341*^9, 
   3.727148001513707*^9, 3.727149801999671*^9, 3.7275094910452843`*^9, 
   3.7275147602260323`*^9},ExpressionUUID->"9d3df40a-036a-4eb5-9083-\
a61df43457b5"],

Cell[BoxData["\<\"2017EF000724-Fig4.eps\"\>"], "Output",
 CellChangeTimes->{{3.715189377072213*^9, 3.7151893798294888`*^9}, 
   3.715193256751342*^9, 3.7151942858025413`*^9, 3.715194337642341*^9, 
   3.727148001513707*^9, 3.727149801999671*^9, 3.7275094910452843`*^9, 
   3.727514761569109*^9},ExpressionUUID->"4ef4413a-b831-4ae4-b8f3-\
766d867d34c9"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "7"}], ";", 
  RowBox[{"ComCBACDRAtmos", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"atmosCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"450", ",", "1600"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", "\"\<Gt C\>\"", ",", "None", ",", "None"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"500", ",", "851", ",", "1000", ",", "1250", ",", "1500"}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<a) CBA Framework\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.35", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ComCBACDRTemp", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"tempCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.2", ",", "5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "None", ",", "\"\<d\[Degree]C (relative to preindustrial)\>\"", ",", 
        "None", ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "0.3", ",", "0.85", ",", "2", ",", "3.5", ",", "5", ",", "7.5", ",", 
          "9", ",", "10.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<c) CBA Framework\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.35", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQB2IQfUxn5U+Nda8dl7n5MGkC6cnXtDhA9JIQdW4Q3eW5
TB5Ee94P1wPRVvfu2YDoL2nObiCafdqjABB9cea2IBB9aO3HcBB9JssgGkS/
1UhtA9FPa+50g+jFfDNngO3ZZr0RRM/6e/gxiN6h9+QriDZZVc6iBaQjjL+K
gug9BS4eIPrK0n/eIDrPTiINRK+Kcc0B0SXq7KVgdf0OZSCak02uEUT7BRmC
adEFIWu1gXRWoup6EB3qIrIZRH+TqgTTSoJX94NoITaH4yD605G20yA64vGt
myB6csPegp9HXjt6SW0vBNEtbPa8v4C00Y9EMD27rtVm5dHXjiJeXQ4ges7Z
Bi8QfWdZN5iOuH7VH0TnFGiGgmgApey7rQ==
  "],ExpressionUUID->"260246be-cecb-4adf-9146-065a9ff90250"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "9"}], ";", 
  RowBox[{"Com2CCDRAtmos", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"atmosCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"588", ",", "1080"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", "\"\<Gt C\>\"", ",", "None", ",", "None"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "700", ",", "800", ",", "851", ",", "900", ",", "1000", ",", 
          "1100"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<b) 2C framework\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.3", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Com2CCDRTemp", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"tempCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.8", ",", "3.8"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "None", ",", "\"\<d\[Degree]C (relative to preindustrial)\>\"", ",", 
        "None", ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "0.85", ",", "1.5", ",", "2", ",", "2.5", ",", "3", ",", "3.5"}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<d) 2C framework\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.3", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.7151919881943607`*^9, 3.715192236682207*^9}, {
   3.7151923058761253`*^9, 3.715192308333371*^9}, {3.7151946110788193`*^9, 
   3.715194689625316*^9}, {3.7151947280790696`*^9, 3.715194884109418*^9}, {
   3.715195261881218*^9, 3.715195262318018*^9}, {3.7271499763153777`*^9, 
   3.7271499832261896`*^9}, {3.7271512214511657`*^9, 
   3.7271512219191666`*^9}, {3.7275100335853014`*^9, 
   3.7275100476071024`*^9}, {3.7275101911093054`*^9, 3.727510206510186*^9}, 
   3.727510287003788*^9, {3.727510326337037*^9, 
   3.7275103352825484`*^9}},ExpressionUUID->"f9631ca9-2eab-4efc-bcc5-\
c3268d3909a0"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"x", "=", "11"}], ";", 
  RowBox[{"Com2C2100CDRAtmos", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"atmosCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"500", ",", "1100"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"None", ",", "\"\<Gt C\>\"", ",", "None", ",", "None"}], 
       "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "600", ",", "700", ",", "800", ",", "851", ",", "1000", ",", 
          "1100"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<a) 2C2100 framework\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.35", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Com2C2100CDRTemp", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"tempCC16CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCC13CC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempCCGLCC16", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempBEAM", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "x"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}], ",", "Purple", ",", 
        "Orange"}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.8", ",", "3.8"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "None", ",", "\"\<d\[Degree]C (relative to preindustrial)\>\"", ",", 
        "None", ",", "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
         "0.85", ",", "1.5", ",", "2", ",", "2.5", ",", "3", ",", "3.5"}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<b) 2C2100 framework\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.35", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.715194906667018*^9, 3.7151949465874186`*^9}, {
   3.715195154100818*^9, 3.715195171214018*^9}, {3.715195213505618*^9, 
   3.715195270367618*^9}, {3.7271499977186155`*^9, 3.727150007219032*^9}, {
   3.727151230764382*^9, 3.727151234165188*^9}, {3.7275100551115317`*^9, 
   3.727510070664421*^9}, 3.7275101210333*^9, {3.727510366944358*^9, 
   3.727510380228118*^9}},ExpressionUUID->"b05b876c-9377-431c-8ffe-\
6f6e0fc6de12"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"lgsize", "=", "16"}], ";", 
  RowBox[{"FigureCom2", "=", 
   RowBox[{"Framed", "[", 
    RowBox[{
     RowBox[{"Legended", "[", 
      RowBox[{
       RowBox[{"Grid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Atmospheric Carbon\>\"", ",", " ", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
                "Bold"}], "]"}], "]"}], ",", 
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Global Mean Temperature\>\"", ",", " ", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
                "Bold"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"ComCBACDRAtmos", ",", "ComCBACDRTemp"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Com2CCDRAtmos", ",", "Com2CCDRTemp"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"Com2C2100CDRAtmos", ",", "Com2C2100CDRTemp"}], "}"}], 
           ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Year (log scale)\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], 
              "]"}], ",", 
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Year (log scale)\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], 
              "]"}]}], "}"}]}], "}"}], ",", 
         RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Black", ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", " ", "DotDashed"}], "}"}], ",", "Purple", 
             ",", "Orange"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<CC16\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
             ",", 
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<CC13\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
             ",", 
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<CCGL\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
             ",", 
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<BEAM\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
             ",", 
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<UVic ESCM\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}]}], 
            "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "55"}]}], "]"}], ",", 
         "Below"}], "]"}]}], "]"}], ",", 
     RowBox[{"FrameMargins", "\[Rule]", "None"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"FigureCom2Rev", "=", 
  RowBox[{"Framed", "[", 
   RowBox[{
    RowBox[{"Legended", "[", 
     RowBox[{
      RowBox[{"Grid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Atmospheric Carbon\>\"", ",", " ", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Global Mean Temperature\>\"", ",", " ", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"ComCBACDRAtmos", ",", "ComCBACDRTemp"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Com2CCDRAtmos", ",", "Com2CCDRTemp"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Year (log scale)\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], 
             "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Year (log scale)\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], 
             "]"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"{", 
             RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Black", ",", " ", "DotDashed"}], "}"}], ",", "Purple", 
            ",", "Orange"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<CC16\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<CC13\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<CCGL\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<BEAM\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<UVic ESCM\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"LegendLayout", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}], ",", 
          RowBox[{"LegendMarkerSize", "\[Rule]", "55"}]}], "]"}], ",", 
        "Below"}], "]"}]}], "]"}], ",", 
    RowBox[{"FrameMargins", "\[Rule]", "None"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"FigureCom2RevSI", "=", 
  RowBox[{"Framed", "[", 
   RowBox[{
    RowBox[{"Legended", "[", 
     RowBox[{
      RowBox[{"Grid", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Atmospheric Carbon\>\"", ",", " ", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Global Mean Temperature\>\"", ",", " ", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
               "Bold"}], "]"}], "]"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"Com2C2100CDRAtmos", ",", "Com2C2100CDRTemp"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Year (log scale)\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], 
             "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<Year (log scale)\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black"}], "]"}], 
             "]"}]}], "}"}]}], "}"}], ",", 
        RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
      RowBox[{"Placed", "[", 
       RowBox[{
        RowBox[{"LineLegend", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Black", ",", 
            RowBox[{"{", 
             RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
            RowBox[{"{", 
             RowBox[{"Black", ",", " ", "DotDashed"}], "}"}], ",", "Purple", 
            ",", "Orange"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<CC16\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<CC13\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<CCGL\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<BEAM\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], ",", 
            RowBox[{"Text", "[", 
             RowBox[{"Style", "[", 
              RowBox[{"\"\<UVic ESCM\>\"", ",", 
               RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
               RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}]}], 
           "}"}], ",", 
          RowBox[{"LegendLayout", "\[Rule]", 
           RowBox[{"{", 
            RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}], ",", 
          RowBox[{"LegendMarkerSize", "\[Rule]", "55"}]}], "]"}], ",", 
        "Below"}], "]"}]}], "]"}], ",", 
    RowBox[{"FrameMargins", "\[Rule]", "None"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7151923116247005`*^9, 3.715192530071102*^9}, {
  3.7151925692141876`*^9, 3.7151927781632905`*^9}, {3.7151928137898245`*^9, 
  3.7151928471248245`*^9}, {3.7151929023988247`*^9, 3.7151929797458243`*^9}, {
  3.71519311822423*^9, 3.715193208532051*^9}, {3.7151932431326294`*^9, 
  3.715193243943824*^9}, {3.7151952908816185`*^9, 3.715195354373618*^9}, {
  3.715195385184618*^9, 3.715195500265818*^9}, {3.715195556457018*^9, 
  3.7151956124454184`*^9}, {3.715195648731018*^9, 3.715195650977418*^9}, {
  3.727150050478908*^9, 3.7271500512277093`*^9}, {3.7271511076771655`*^9, 
  3.7271511566778517`*^9}},ExpressionUUID->"3bedd8a9-da21-4013-ae3d-\
bdac9f21fd01"],

Cell[BoxData[
 FrameBox[
  TemplateBox[{
    TagBox[
     GridBox[{{
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Atmospheric Carbon\"", FontFamily -> "Helvetica", FontSize -> 
             16, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style[
          "Atmospheric Carbon", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0], Bold]]], 
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Global Mean Temperature\"", FontFamily -> "Helvetica", 
             FontSize -> 16, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style[
          "Global Mean Temperature", FontFamily -> "Helvetica", FontSize -> 
           16, 
           GrayLevel[0], Bold]]]}, {
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwd1nk4VV0bBnDRIFJEKXL2LkKKJqI03KJQplSo9BIZSiRTitAZ9j6ZpxBC
aXpFhiglRAOvJhkiiUqjBlEpMnzLd/451+9a+5y91rPuNcx1OmjtIioiIhI9
TkRk7HteZfv1AS8ORMY+KeEYuNy8l3eIg7NHPRw/n4/Auf+yAyT9OJCNzjhc
cDMSS2DRExfAQYBTXv/T5ig8dWqtn3mEg+wjmx55/4oGc8NAKTWIA1/HM9HR
krFIlmCeKYZwcH99xQ6x9FiMOJ8eSQvjwCRd3yZWIw65KsHJCjwO1Huq+bOL
41AyQTY7WcDBxzfaqhEr4rFL2VJZVshBaYVHm0lBPMQnKihEhXPgL/opvpBK
gOLlHScmRHFgU8RZqcZLwOWo7z7BMRwop7R1yD5PwLz88tbeOA6aZzIXe6hE
1GSm33JJ5CDtKCtmZJMIddaFbk3iQGecsnXe0UR4Lfo6wfQUB2dk/mFfRiQi
YWT8wdI08r4uN83TwkQwc4J2q2ZwcPL0YHLtwURo7lZojM/iYHX2wCdrJMLe
Nufp8FkOLG90eU4YTkD2vp6dbuc5GGKG3Y0rEzCzOsf7yUUO6g28+hfyE/Dd
JVVuRQ4Hc5jjywtNE6Cy8ohJWi4HCjkq7/ynJqBjwqjU6BUOHH4v1mWfxuMV
75XrnkIOpAqLW9bGx+OZw5Nt1VdJPSOVFi2yikfk+qPP517j4D85C+kJkvGQ
bY3sDy3lYOkauRtp1XF4/Cw/r/0mmd/V16e3BsThwMQTInrlHOywsA6+qhaH
JxvLvsdVcnCq5+/8Fc2xeJH0PrS7ioMO5Wyef2gstBUv5RvcJbbp4iWoxuKd
Surx5PsccNqOC4NPxmBAd9vvz7WkPtwcPcfWaIzIeExf94CDKSOSVQ4zo+Fd
4N0U+4iDE+7H2HlWUVCy/bn29RMObr5bnbificT+JO7WJQ0cjL4VHJlxMwKx
W87LhjRxMPPJEx2lL+GoutsVVveMg8nLXAZTlMKxOqI6fcZzDg4rP2ottzwB
m/N33B1ecFCu0OvRyRPCNcT1/cWXHAznvozzLmOR06cm39PJwaeKybHj/zBQ
2M4d0n7Dwe9PZdO26DNQ8f+afOQtB9wmbutSVgDncx3dt95z8EC07kT+Sz50
btX2j3zkYPZ8Zp+kAR92ynPK133mYPn9BS6NV3lwaNy4LvQrB0tq7oiJreRh
0T/FIeU9JI/n7wTrNXFh/uNR8GAvma9917+Ih3Nh7TK4asVPDtRs43L5jlxM
XZxx07uf5DllSEaEuD5QcfjfPxycXtb3f59QahB7M0h+HyQjO+Z3+VT9rGEO
ugt3yY15W6iDs8UoB7cae2aMefLp7gruOAq3/zGYNebuV/JvS8QoqBnZKoz5
4Df9pg8TKHy6dWbOmANW/hs7S5yCaoMtNWZpyQIFEwnSLk7NG/NyJsM3YAoF
yQ3H5o/5QO7t9OypFIZRpj7mUCfH5CfSFITRvEVj/ut3b+/gdAqLtvUvGfPt
dJ2JKjMoRP0s0RnzMd7PYDN5Cna1CvpjVqw1rPOdTeHo3TiMWV3MueeUIoXz
bVOMx6zyIOZrhRLpX0mf+Zifl064/4aisNTeYPuY4z1GjkyYR2Hd7jr7/9cj
qlBCTYXCNTtll//Xo2XbEWNVCgVd/l5jPi03p8ZVnQKrnRk4ZrkFK3/xNSgE
OOfz/v9/09vHn11EYW+fWOyY7b4t+12uReF6SvTpMZcP7XvUuoSCbMbH3DHL
nr8s7FtGwanmSvmYI47QGpI6FIKwuX7MYvo9RfN0Kay11no35vb21SorV1J4
NnVgeMxFwkWhFvoUEqu3K4wjnn22867TGgq7X2frj9m0zr/ffx0Zv6/M3jHf
65oyQ2hAYadV28kx986omnvKkEJZ7JTmMefW5yr9u4FCoNylBaLET558nFxq
TIGea3BmzNc4kR/umVJw3HHbVow4XzH3esNmCi7GXVHjib2C7IM6zClsVcwy
n0TsaZa//JMlhTnTrug/9+TCbLD4dd8WClbBSsdFj3Ixb0sw83crBcEdw83i
Ai7qwqYri9lQUL8lRm2I4WIBzSudbEdh3I58Xn8KF45LWo2n7aRwXOmV2caz
XEjSCg2y9iSfg77dVpe5cHhsaSf/D4XyCzVFC4q5sI0OeTHbkcJkjemPXt7i
4r8FOfaKThSKczIWBdzj4ujbpnbFvRTqk7mf/jziYmHoqL2iK/n/D6819j/j
Im3Vgo7Z7hQ22qjcf9jBBdNmuUd+P4W5iuqX533gIvHSwQ+yByjoi9RpevZw
YXGYd2iaF4Vukw7dvN9cjJ7ji0h4U3hfo+rRNcpFEsfjpJgPBQdXNz1pcR6C
nTSXDvlS6E+Z0bNcmgdX3u2mH/4UppiNq7WYxQO1cNbx7sMU/IISvjjSPJif
VtV9dYRCY/LNoP3qPCy82f67KYjkQcEwymMJD+vGadytPUbqkaukvVePhymJ
Q+lloRQq7naHbgMP1/UMeHnHKWjFTwpZbcJDnn3X4QwehdXXjFbNseJhjfyj
oGgBBdFgp8oftjxoLvoQc4wl82nkIn/HgYfNU2eXeJygEPzx8eZwNx5+vTb5
YhdB1nf5PRfTgzykh+5asSGKQp38Yi+RwzwYBWgnLokh9dpR5ZkfQp6XujZR
MY7CwBJpTxuGB+1NVdHjEygs/pPo9yuKB/cvOppfEylIORZHRp7kYX1A35um
JPJ+6+pyxdM8cBY1FZSlkP4mjZfOPsfDbvnryWdSSX0yiyPm5fJQKh6QwqRT
iH4gsjKV7K9xqd1X92dQSFotRUuU8bBq+ddu8yySV++fJj7VpF6Ttq9dcpaC
RU5NWcN/PGQp/rkic45C/pqYsIVPSf1MLq/pO0/hwJ1NmcGtPMxcuf7z04sk
Twa91P1OHlx8YkoL/iXj2XBIQvwDD51Wey9EX6ZgJlrouv4bD3VT4ko88ig0
2EWv9v/FQ1/Z2/fG+STf3zoSsoZ4qNqqqa9cSOGMjrffXTE+bC7rXh0uIvUL
nvT+lQQfSceeWLYUU+j6tef7Lxk+9D0qZQquUcit0k4Tm83Hi6H6AbaUzO+f
Rd8m03x8PvdQ3OEm2Z+Ke76Lq/FRXnVknc4tCpNmKVwW0eIjJDMjQ6KCwn47
A5VebT7UjoqodVaS/eZen3ObPh8+oc7Pi6rI/vz06qFb6/m4Vx9+TXCHQp+i
6PZkUz4UBXqVtvcoNPttneFhxcf7HM2f6jUUKj/NuKlry8cvUw2bgVoK4Q/y
Nw3v5sPU5eu72joKL6+FPi7by8fXIe1zyQ/JeklvN/P14KN+WkWcy2PyvpoZ
j5R9+Ag/bZS/rJ7Ur9vH5lEgH0su8YZHnpJ8UdrfD4byMWuFzrG6RnI+/Yo7
I8nwkbx1+uKTzWQ8R8oPZUXyyT2mUdahhexveq/ctBL4ME7WWqT+nMLo5jkR
Jaf46BR7Efi9jZwPjpFvdLL42BgbNXi9nYJ2uaF//gU+HoYNFoZ0UHizyWLT
vDw+Jmg0Zxq9ovAqvcA9+iofh/qe3J38hsz3b7eWHzf4mL8tfe7jLgrLdu4/
bX2bj70d3dfi3lHYwb1QlXOfjw26HoJtH0j+fottHnrIh4nSw6iZnyh8kHaG
cSOph3tZfUs3hXND6ZcinpP2qe8tUr5Q+FbDC/+vk48Yzh9xu28UFFzffBF5
z0fOf+mjM78TlwY/W/qFj+sOIcube8n6T5hmYd/HR6z1xvPxPyjwH1jtDPvD
h5Xu6e2Wvyj80O4ZlzHCx9MajQ2Svyk8LYjfXDJeAOW3J/3u/6HwdWn7mvsS
ArJf8N+GDVJwv+vSWS8twBHx9JOrhsh5nli9onmmAF/Sw4Q/hilU/w7Z1DhH
gP7W5vLLoxRkvOm5D+YJ8ECPSisUodF+bX7VLXUBbOZrDUSOo6FUPXHpJS0B
Fq12H3ATpfH4gfbhKG0BlmYppa8Xo/HdTiH1wCoBHkplvJ4znsZxKGZtgAAn
X+jV9RP7FiXGzNoogMjf1Tb1E2ikrH3p9W6zAFMH/gj+nUgj/IWRUe4WAX6M
3NzBnUSD+So309NWgMqG+qc7xWlsNI/tVtstgHgr+23ZZBoNFj9q2p0EiJTW
LJCQoGFS61sc4S5A2xwp+TfEabMMrml7CdC32k/5hiQNGy1+Y4uvAB+trjTH
TCHPRztM9z8igOD5RC1XKRo6O3sCp4QK8OFP7aLVU2mE2JpKZfAFmOO7rkFm
Go2KX8HNC8IFqL5SzPlA7Lg9oSU/RoAzJT7Tb0nTWGERM3vJSQGMde7kxcrQ
GBfgeSYnVYDToT3f906n0aeq4k9lCcCNQLueLI1FTHZq9HkB9vwaOThFjoZe
eLP8nxwB7o/65HYS+43L6NtVQPqf8DauaAbpT0rbkpslAhxYn0YLZtJIeOXU
Or1MgBTDDjtbeRo928V7XG4LgMCfqxbMokG5Jh29ek+AhftVagaJLQMawv7W
CXDBrHj4wWwaiZ+CJq2tF0B2+FNHugINDTUzuaBmAfzEJD08FWkUZ/XnFrUJ
MBBvf3bNHBr7W9Vb3nYKwIQrC6SUaJi5hafIvBNgjf852ZfExmLl/XrdAkyI
ULbI5dCwFdj/3tkjgFzhW+0gikZWz0jm4Z8CeB1dWGtK0+D5avdHDwjgra4v
PmsujSuH2dGsEQG2XLb59Y6YygiuyhNjkHX2dszVeaR/dfEGJeIMHu8uawlT
puGjaii4LsXgQrvwkbkKjU6NcfHF0xk8fbL/kMJ8kqezqzxz5RlsO3X2znvi
S4W2czLnMJAyP3S3SJXGgRc3z0XOZbCwUN4vRI1G16QqSX9VBkVrnzWYqtOo
O1FlY7eQQc/cr6/kFtCwV5kasWIJg75V6RmdxLTMj7xpOgwmc5Sn5GjQyJlw
/W7XSgYr5KoW+C2ksWtlWlPRWtI/xZLfaxbRkPd48SbYkMGCj2sCJmnS+PM+
76eBCYOzXafO1xMPRBhOEzVnEKI1iTmlRSPzaY1u+RYGGll35J0W0zj5yNHX
14a010zZpbGE1H/l4hqVXeR9nymrPuKIwxZ6Tx0Y2Eus+n1jKY3RU00PAvcy
qGhPtjq+jMY91wZGcR8Dm0Z/e5PlNL7s3up1w5NB5SxpxWnaNH5W7GatfRik
xZ2NbCY2iu579j6AwYSX7oVpOjQyUqWcAoIYDG7LOLFnBY0T3POa48IY3J0a
MkNNl0bZjctrWT4D5xfrt38hDoyekip+gsFvYzXTQj0aX7XyjQRRZDwZLr3+
K2kIr/gbDscxSHyra7FqFVmPkmvSvJMYKHe2OIwQT1z+0qozlQF3WqhqtT6N
cvEF+0wzGYSVuJ4VrKZRu+/bxyvZDDyf1DSarCH70/L+pmmXGAgVXtyUXEuD
u3H8sgO5DOxkn9s+Jq6IaRl/t4CBfP9ATuw6GlWTNazlS0geKv2LrUHjvzsF
HNcbDH5o8P3kDEg+3yseLChnsP26/edmYpUbM036qxh8PbtidvJ6GscuGF/R
vc9A/JvJiK0hjWnrrS741TF4ubMudZYRjanmj7TzHpP8ePZ+ayX2KLP553UD
Azevn4MpG2g0loaqybQw8HGdXGm3keQz71ni6hek/squ+rOMaQwavstx7mSg
qgvvFmLfA0u8mC4G+/of7k4yoWHorNd17gMDtSCD8dtNaUwuCZxa+ZnBu+wG
Z9lNNAoM3X829TAwlSsJfkpstvnIqfc/yO91lCxjNpP5dp0t+vM3A/UV616Y
mdGIOlm4bPgvA1bScq6EOY3Tay8sFhVhIXIobG4NsbSu7bDoeBbPPk5s51mQ
vN6jskYnsThwa8YWWNLY+q/NnD+SLFKGOsOGiG8qWAR8mcbi1/EUj1IrGgpN
W4vaZVnofj0k47eFhotcYVOtPIvgixk+i63J/nku53WBIov0N1Yx3cTBbWEv
EykWIaduup3fSmPmmYMP/ZRZ7ImVGnLYRtb/kStFVmoslm8PMlPYTmPece9E
9YUs2tfp7Ggi9g546z+kxSLS58C8aBsaH29p73q4jIVE25ZLxrZkve9hTVJW
sBDVmvlZxI6GxNwRA8dVLLb0fuq+Qdzifm2zyloWVj7DF312kHaH//a9NWCh
/CBs3sKdNFTfbc7K2sBi5HX2zi7i9nSLH3amLI7sS7JK20X6/+Wlq5Q5i/pX
7Pit9jR2iomOllux0E68GCCxm8byjorK/dtYSJ9WuVhFHLFZLk/WjsX2N5pJ
gf/QmPR9uK50F4tbs/oMFzvQqN7kq7TTgcXMO5kF74izbrhd+u3EImKZS3ua
I43UY3UH41xZfGC8a7bsIeunkjmstp/U40rPoUlONNrieHdueLIwdpduv0X8
eSDb1uQQi6MQmejjTGNhz33dRj8WQYlfelT3kvHsqXHbGcjCPE409QVx9drg
zy+DWCzWPjg+1oXGNt/S+7tDWXLPclhs5ErjTe+m4edcFt98RxX+EJeXjMRb
Myw6OcE1l93I8zWpETUnWJyIHKfj4E6MN916USzMnpQ5T99Ho9IysfhCLAvr
B8+23iMeWnPgi3QiiycrQiYE7ifnm/fcpMPJLIxSXwZqeJD2g24lbaksyq3o
K+3E0z9+NV+VQeopPHQ++gCN/HxH56QzLBQNhv6BJ42XdW4D386xmGj1ua2X
WPPgRVmjS2T89vtmZ3vRyJt0u+TkZVK/11kK2w6S8etZdHVdYVG2+FbHeG8a
SW+7M7WKWGTte+dSQiyitbDHv4S0sxsLXA7R8DqW1XSjlEWXzeSKGT40NvBb
tw6WkfoE2sbcI27Bbm/dShY5e3eq+PvSgGiJ5qFqFkmu+sdU/GisOuAUc/Ee
i8ws5dRG4p6jb1PaalmkSqwO4vqT/Ym5Zi7xkIWXTx69NIDcF0ysClc8IfkM
zgrvJA59Mb/GoYHFwNk1N6IOk/Pt7sV4QTOL17p5ufqBNOb2rZe/1MoiwFne
5RNxbbWjXc0LFlvnn3uTdISG6SS3HV0dLAK3Bc03OkruL5NKlYZeswjNvKvZ
S+zFK7ok845FS+TFv6eDyHjKCoeVP5L1fXRzzKZgGn+9pejln1lEZbV87CfO
/Thbdt03FrVTfMWzj5H7TK9am3EvC7+LRt8sQmhovecHmv9kYbDUN3WQOLPw
aK/lb5Ifw/lSF0LJemuwNLEcZBFmfXzjljCSP3vjsM3DLA7/m7dxiPjquDPp
RiJCjHrVS108Tuo19VTWKjEhVLOnpW/h0ljm5x6jOVEICTqu9y+x832jA0qT
hZBOPTr1Ao+GrKHjKokpQszI6u2z5JPzuPHT0I+pQmSmKWYOEDtPl7reJiPE
lKdKstkCGkWb+jwq5ISoc1CyNGNIf0IrOJnyQoSuX7f1F/Eur4SGYAUh1lte
ojJYGsmxMeG2SkLc1T1WvFFIzre5j00X00IITryR6SG2o9xkxysLIXJlSDf5
BA31LQe7m+cL0dHdo7ounJyXxn+enlMXgnZ61fGeeJyz9CPvhUJYT+9ziI6g
sbqxumOllhClz0xydCJJnjLkJUSWChHkJl7RTlx3Rtb6znIhWndsS+NF0ehP
Kr3BWyGEGW21XiOaBjtjgpHBSiHuSVBX64k1kn/++KsvRO3Gt18DYsj972jo
w6trhTjfWd03J5bGP5PS6t0NSH0qXlZVE48eXCmmaCTE7Mu2u9zjSH6fmbrV
bRSiatPWSql4GtfNS0cDTIWomPvjaxGxRafnE9pMiOfxOz7YJpD5ibR6XmMh
xMXOS5eHiGdtMaQPbCHjURfTP5NI7lsLVC9KbROi3DP85IaTJL/Tn3nn2ghR
FOVY9on4kJRmmMkOIaYaX8yNSiL7yXzR1te7hPgfJ/zhag==
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwV13c4V38bB3BlREkKmZ1zMjIiyiojN0VLRgkVkV3KntnnZCQyEhkhlLKi
qRSppNQPKUmEzFKSWWQ89+Mf1+s68zPu932+6+3cDzguZWFhubCEheX//8Vr
Oh/MuBHA8v+/y7EwU9zqwHgSIP/cPIU1+jwUvM73W+FDQJCPRrx2UBwogdFo
kh8BVkNh4ie84uGd3afmtYEEsLXWf3M+cQGiHuquywgiYDZm8cOQVQKkLY/6
KBpKQKRNAdRIJsKC/ZWFzHACRtLyX3ZfSoQSyeA0EQafdzq0P28hEe6x8+Wn
RRLQTNls+WaVBEcljCX4YggId+gRoW4lASeHiEh8LAEGJR18LRNJIFp8+Bx7
PAH9blX3cmSToTj+t1dwAgF886beBsbJIH7ryaexJAK04kvv59knQ31O1mPH
FAIejdQ1lTsmg0y0I/UplQDnNM5zcWbJ4CY/wr4nnYAVilq9norJcHGBzb0y
kwA9gWKjx1NJECUWZL0hm4AepVdqvdeTQMFa5H1yLo7/kqSun14SWFkUvZvP
IyCj7o7cwJtEyD8xesT5GgFPH3h3HbFOhLXPijyaCgm4dGfFbO9wAvx2zOBX
KyLg9rsujgGpBJDcFrg7s4SAQ++ub87D+exiX1y5WEbAlIdeyd678dDD9Dgd
ryDgdHtZhQlbPHy0aTJ7docAxe8908ct4yBO70z7+vsEbNUXVbK7dR74PsVN
h1USoJvrEO3EeR4aP94q7XxEgMpA6ecKu1g4xXGOZesTAtxLxHMrnpyDJoOq
30k1uD7uPs7/hM5BR+pg2HAtAdKZ/xr3+sSAiuiNW7ovCKiZ5PkZ1hQNA5IZ
EWkvCVBVOsOWLRcNM+pmf368IkCTNzWpITIKFla7rtF5Q8DPhoQgw6+R4FHu
8SHxPwLeT18OOK8dCessJrd/bSLAQagwclXmWTiZSh9UaiEgK2PePnyWgUTT
a3yhH3D9PThErlkxUPuiL7zhIwGfywcd7J/RoHX+WZZAOx43GSZq5Gkwv/bc
xaaDADOlr+XtWRHgFOo0WPiFAO7VdwvG+CKgaFxacLSbgB+1x+/aXQwHkUP0
nEovAcsogZfXxcJB0nckLbAf109GI7TCLgzsC7qGHw/i+pTK/fC5Hgqqj19N
L3wjIOUPa00YZyhYSog90flBgJTR4AH9+BCweW+gEzZCwD7eSS4OjRCQP3Y3
9MkoAbbi8ZPbBEJg/8R/wbNjBNwgRss0pEPggOOshtokARf1/PuMgkKARzH7
kcc0ATNfLsXD+lBoDhCdv/mXgEyVxJPa9aFwbl0La+8sAVeTZV7yu4TBwC2y
WWiegCT70mMhLOFgFmZjb7RIwBVz9STh3eHAdWW4ml5CQnvD4qJDbDgM9wj2
32MlIafm97FN9eHg/kvzwxA7CRe/8UgFLISD37abiUKcJOxOLb7pohQBvCvK
RXYvJ6Gk4/Cm7dYRoByV7e3HTQLLH4kJ/cgIOFXyNCufhwTl5NYrrTciIMzO
Nq2JlwQhGVdPg1cR8M+nzmF2DQmZn1f2jPVFwNMsVQ5JARLinp6WVZyLgBBm
MthQkIQib8XnpqtpEH21o8FbmITIZ3fMbkjQIMNqP5ouSoK0WLtUsDINkm8S
RqrX4fma2u28ujS0V7K/7CVJiG0PcCwwpCHZdSGQXZwEwQusKu7mNJjFVyyX
liTBfoHNuuAYDVxtZoG7NuD59r7jno40XOEXq3eSIUHxcbr5Elca+GW3TZ2V
I+Gt7c00f3e835pOtjx5EhSCON5OedFg+WvLnyebSKiZ6ndN96XhydyJ/z4p
kZAvJ3Mz2J8GvmvFMeNbSPDe31FzP4CG84GU3ApVEmI2Z+20CqSBVXP0trg6
ji/m9ckwdGenluS2bSSIZz01UELfjpEPM9IkYXwpP0cIXi+c1/3CTpuEZmZE
xgvvv6fBd9pXh4S2tW8rRPxoqOvjFojRJWH9YTeTcB8axgRq16fvIEFkz63Y
YnzfkuaSdTf1cT7ECr7me9DQ1PSNq3IXCWweAePubjTcJ+KG6vaQcLx4NEPg
FA23REsetOzD8Tx6JJNxgga3IKugrv0kBOUf5md1puG04S3l78YkTDFKP9bj
/Q1n734dNyXhulu38UQQDeKmwVH/DpIQLTuccvUsDQ3hayRYzUnYr/+m2DSO
BlmKqeSyJOFh3Mx7iYs02Cp92rXqCAkeZWXKKuk0rKBEWvisSDg7qmedmU2D
TaOxpeAxElbdv/TcLZ8GiwuhHcK2JGScLiJrC2l4LVtkJWpHwt5NR1/nFdNw
pv9Dp6gDCZy2dWzit2jYGLZoJepEQqpst/6+2zRkash2CbuQcKrT11X2Hg1R
n42PC54kgauzZLzuAQ0pN9yH+E6RQM38lpB9RIORP+O5yg3nS11V48hjGhYL
zrIs9yBhZ8+WSJtqGlIJ10usXiTMbzKO3v6UhmA7hc1z3iScUbi7aq6WBifm
6YcJX6wHbyHTrOc0kBuFIob9SXAuujolXkfD/isb1HsCsT4FQOniS3zfR51/
PgSRwGrc+ma0ngadJXIvXoWQ8IjTbavmaxq4U+ayqsJIqA3+L9W/gYYHW3WZ
0ggSetUinl1/Q0OpVZ9/NkPCq38lRxre0qAt+F/QhUgSDgVUvu77jwYF+aGE
kGgSTERYDScbadjHI3zP9RwJCe+fTM010TD1dfdPy/O4X8M4KheaacgKO6qm
H0/CwXXWjrPvaNjpp5KilEDC6Fz0vd8teP7K+xyiSSTsMp7Z3fueBpW9tRfY
LpLwWullcdMHGlx+qiqMpOD8a2hbPmylQc9vvPdDKgnHvsg8zPlIAyH/obzq
MgmT215tZNposBZ8kHY1gwSnpuglDp9oqOT0uxyVRYLPBjpCr52GpIzhOyez
SXh+uek78ZkGDeWR4f25JJSfLPaYQessO7RdKQ/HV+Ct39JBQ67o37LVBSQ0
OsYk3ezE+dtdrD1+jYRN7TyBYV9oWLtN78e7QhI4rDNFzbpocPRKqCy/SYI7
z8sU6W4auk0crl8oxnrzLJmbQTdwJ91zLSVh5VU7lzc9NIxX9Q/uukVCxVrz
4cyvNNQeVNCUqCBB7Ed+smsv9qNi9Tvzt/F9RB3cNfpwv4Q0GbfdxfnY/iOO
s58GTdea1eX3SeDvZZ1uRXfMNc9EV+L+y6Du5g3Q8KPgLafNIxIC70c3uQ1i
3tQG6qg+JiHKJdBYY4iG0Jzs7OXVJOjzmmqwf6NB+gyLdHcNCZX78y41ob3C
7Ntv15Jw3vaAU/p3zIvm2PuRz/H9jMrK7YYxbyO31ljU/X//hAZs/EHDYJHC
pEw9CdVqa2sn0FN75MxnXpGwlXKMr/qJ+eM4MvCqgQQXyyU99AgNI3MqBWlv
SfDnVana84uG5lXVSY6NJPxazbqed5SG2Cs7b21pJkHVcBvfR7TSDWZ+4R3m
6z63i5m/aRBSUw1peI/9qJo733aMhrSDaxQvtZKwR9Jyh9Q41jf/ez6bNqzv
Ok/f7+hdaZvkZdpJKOC01iidwPVh7Qj4/RnnR4v1osckDQaJ8bMPOkm40KcW
rjxFw9vw2YrQLhLM0u4vnUazy7Xm7OwhQTZOUbRymgbP8aYXXL0kPHiu0xD4
hwYps6z1jX0kdPzx59X8S4ND1/D9pAE8f5f1r39ofXXXSLMhEhaKTjo8nqFh
97q38Wu/k7B0+xrv4FmcD5eq5rZhEjYfrhbR+ofHeQaNLv/E/hnXcvQfOoH4
y2n5i4ThgBK1R3M0FL3OWlz7G/MxrqA4YB7r2SZUuXUM+9sNniq1BRoSDxhc
S54g4ckdDcdJtIn6lUPGUzgfAr5FFYs0vKuX01/xh4RtUsvOu7EwINF/yefl
XxLKzqsv27iEwbw42x8+i3mdspccQgdyZl3SmMP1PUO/z1vKwM+s8JiJeczX
AlLyGCsD059anxQvYv/4YrtamI2BN1vJzAoWCiajmcz3aHOpTTNxSyiQqX/+
LJ6dAXktlxnnpRR8yrOK3sXBwObcdVl6rBRsko35zrKMgbcrs7+KsVFQFhv2
/SH6UsfWhmn07y1B0V6cDLD80zJvZqdApev2czkuBnhm/kbe5KBAr8Q6uxc9
sfDoML2Mgk6l24IZyxmoaWl+d4STAkl6UNF0BQOcn6J/beFC6ysNLeNmII5X
oXz5cgqaKl9oV6M/i60U7EVfqPmk7LOSgXEtH4mHKyjIH8p9LcvDwDeTstYE
bgoCvUwXu9CR7RybnFZSwHmUaL24ioGhv6/ktXgocD2quW83LwNi3jotq1dR
8GKs4/gc+lnZXWIIHeKgLFy+moGr97zWPOalYNlLH0/7NQzsUn1emriagnV/
W06u5WPgStjob4c1FOSWhbO/RtPnoXMrHwVCXuW6QfwMHJ9acOfmp6D3agqp
IMDAy0Wvkm406WeT04Uev9ifdFuAApslO2oT1jJwSi+TilyLx7d4RoIgA5d3
dFlaCFLA+0H05280BExqyApRoJXkM5UrxMDGk5L1s2j2iZKrJsIMXDe8O/9G
GN/Xfvr3Ippv/ntXlggFXzbSfWUiDPiwrnA9LUpBc2BEoLUoAzPJVnnaYhR4
HpW6s0KMgahYiciV6yiQeJad+BCt7VvA9wWdRBNrnNcxwH5ewqiEoPA7u1Wd
n2CAv6JfJYikYPPHiSW1aLczG1/toSioiCryOE0y4CGjySm0ngK5t7JnhSkG
TIvNpwbQEmNXterQuXlPE+6IU2AhtSPDYz0DjdZVbeESFPwM0b4iKo7j6Yz5
b78kBYVTT/Vfot81nfQUkaKA//T8RQ8JBszS854Pou8ViceISDKwcr/ni9sb
KBA/aiv+Ar2xQtAnVBr37+pBu9NSDNze/rFljwzOl0HfnrUbGBhdP9LDL0uB
4eHotmr0uEZWdjdaI2kJt7M0A1yEBHeRHI5HJGKIR4YBNf5aWZ+N+L5cqifv
o6+L3vujLY/1YGGYYi3LgOw3bb9lChRIDU05sskxkNeXfq0ZrRhu212EDt20
LCp9E17f8ojFdCMDcrnPBe0UKTjgo9wwjQ6t5z4qp0TBqv6/mlny+LwfpMk4
+nXUNnNdBQaslmv8ebiZAuGbEsKD6OrONJOILRSwhQ2cjd2E9fze12q3MgXc
kqXpmxSxvoR4RVepULA984ZFCzozKS+uFa3fxF7jq4Tr+cWlIlOVAq/k8Sah
zQzMmmWfO65GwbvsrNgq9AueUAFpdQq2pG4etd7CgH2H3qGfaI2l3fOL6D+7
pPdUbMX9Y9Zy/6oyjifbccx3GwVGg1tFdqgwkNKvbqShgc+b0ZHpR0t0t9ks
oFvv8389q4r1sipswzNNClKV+ndKqTEQfs8pL1KLgh22HQfr0Keb6t/v1qag
QVqax1GdgRiRjkcrtlNwxHTSm20rA5Z87RaNaNcE98h8tOD0TFGiDu7v4Do9
vW24H2p87x4ACmqzxEt60BNyZ334dSkYPnKnNlSDgUMPrH60or1XFDBimgyM
5KkJp+lRsPoHNf4Qzflr94LFDtxvpPlKCy0GvhxpyBDaScHpe+6tE+jR02O/
PqGfFqTvTdRmwNltcvayPgVubxdPyW9nwMuJq8bSAPNp8j+tV+hMCSdNoV0U
HG9UfGSvw8AGdfBoQ8dNmAwsoE9Mv7VO3U3B30Gr6nRgQDpIl+3QHgp8+MP0
VXQZGMhvsefbS0Fbc++ZRvQe/nvB79DcR+4cc9HD61XXGSfso0CsTXRsyQ4G
ZNR0OgwNcf0td23JREevMF6/fD8FXR9txVV2Yl57hq+vR1eoXqx9i/74jaOT
MaKgErh4HfUxjx4LmIIxBQdLR1bOoy/PdYfPofeIuFalGDAwFXHZtdIE13NV
iZD8LgbURzxX+5hScGfxs9RzdHBhtpfiAax/ffG+w7sZyOo1SRhGi0iVmPxG
h6Y/cr52EOuxMc8tag/mZeLKORszzD9LJW2xvQwoHwoyFDlEgXld6OMKdKeO
6uEPh/6fl5U/DfZhf/A6JX7BHPP7K3tjB3r5Z9MbuywwP6SSbT0MGVi6ae0P
FksKpP2jCtj2Y/6MfR9+iK5x4c64jDbxmi/0OkzBnP9+XXkj3J9vwsU3HqFA
jds7owa98DX/SB+60+/6tQPG2G9PpJpkHqXg7ASv/QC6uSea7aAVBeOFHS3+
JgyopBT6LbfG5xUoTnGZMsB7RbKwFu3aq9qQiT7Uq5AacAzrf5fgAYUDDDwW
Gt+haEPBwNW5uGr02uc55QNo/2KeIOODDJzf4tiZaYvHl/mJ9aCHojzqTY9T
EKV/1NPDDOejbNRzmR2u75fBQJZD2J9ceDsfo2O26Kolos8AC4eXPQURF5Ov
k+YMBKX8HN3ggP1/K+ubMvT+pKUZHWgng6p8bQsGFFXc2RIdKaAaepXeonv3
2ijudKJg25OrXkcsGfjlvSjyF13ASp34hu4mguuLnTEPTkXy+x1m4FzcElUb
Fwrqymd8WI8wYNhUZb/mBO5Pv4LYRPSBNx8P1qE795UeWneUgSa1UPaAkxQI
lGp+vInemfElQM4V83zRj1vNioEnJlRZJ7ovJepvLZo3xvPahVNYHzeSMvZb
MyCqO3cMTlMQb18z/gnNYfLj8xiaaVNb4nAMx291QjjfjYI1rOTLX+ihr7ki
Zu6Yb03ZuoE2DFQpPu5i86Cges0Xb1Zb7EcnBhzvoU3jWKzj0VXRBuWOnhSE
f1OcX3ucgT5zrmoBLwreVieZ5aJ7AywS6tB7kw3tZe0YKHI4IunrTcHdd1Gy
t9GpTpohkj4UnGpzKtSwZyAnVyLjPfr89zVfnqEzlmsF0b6YR9sqGvY6YP/0
KqU2+1GgNOjs0YI2Cc6N7Ua3/7FqPOyI/TpP+2G8PwW6Dvf7e9Bf1UtLNAOw
frkz7jg7MeBnL+j4He1craD5C31QqqA3NRDzZ0takI8zAwFmQVI7z1Bwi2fO
ZxYdlvNCYQw90hchHe7CQFtc4b8rQZgPikYX2U9gfZ/Zl7A3mAIFq6jKWHR8
btu3aXR1tXHaqpMMvOL25swPoeB2epNiCtqncOcvo1DMK9GNtJArA7qbvTNm
0S+PRV/IQv/aIbXyehgFr05yHaJOYd4fiDAwDcf+pfyxNR/tf7PUYA7tn7Zm
tfRpBhbdmlcWRlCQ49DHUYTekL8qy5TG9Th4+oG8G9Y7lTT2D13B1Sp+C82b
cYbnOkOBi7DOns3uDAjkjo0bn8X9v6RZ7g46J1M0ZwYdq1BSr+KB39Pv1vHl
R1Lw39Qf8j66wWadsWEU9pecNmV1T5wfPZ2DU2g+K3fWSrSe8Q0yOxrHu7fv
wlYv7I/qIXcNYij46GfxsRIdea539Siap320fas35mvZnHraOQp6zJvTK9Fd
w6MbdGLx/Gdia7f6MEDZ9XQNoqM7/xo9QB9YM25z4Tx+T5rE7FTzZaDy4+4i
1Tj8vq78NX0XHeTMWd2J9sgydlL2Y+DTYbNMJh77rXtjcgXakDLRk7tAwXTy
hWBFfwbqlpN3mtGE+R2JUvQrg/4RvwQKGidtYuQCGLjW/WxcLBH35+UHRYXo
nOovtc/Qzyy+xEoGMiBcbHHUJYmCFeqTMlfRtXsP1qxMxryUJiPXncHvj/UT
I7fRjVwROeno9uTDQxYXKdh9UytAIIiBwu4bxXPo+qc+q5LQlTKsmldTKNj3
d58jdzDW9+nYS/qX8Ht7oD8wGn073rbqO/rxCrv9S0Pw98OuwpL4VPw90DnQ
HYz+Hxi+3c0=
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd13c8VX8YB3AlklAh2zmn7NUk0fCksn5ZkVRKESWFrBTZrntktmREmYWI
kp2UEg0iUYQkSclqkfF7Tn/d1/t17z3f9Tyf773L7Fx3Oszl4OCInsPBwbwu
r+4smXAhoDUo31D/SgRM5LYeDjlJAJcHr94w3znIqE/3XuhJQJ22es5A9DlY
BSbDcd4EPFUeUFguEQmv7NqbRE4TUBT5rt8/JxJYZVukE30JyGu90gsboyCe
l/VG0p+AHC/XmqlnUTBjf3UmKZCAsfq3anFW0ZAn6xcvEUIAv/q4nuObaCjm
EkqPDyPAeHr+Wg2DGNgnYyojxCYgeJ1EQevNGODhlpCIiiCgJMxkUnciBiRz
99BcUQRUb1psZSoRC7lRI+5+MQScp9Z1iqnFwvKCqvbROALci7uU1qvHQl1q
cqXDRQK019uvml4RC4rhDlT7ZQL0vt6dfS4VCy6qQ1yGCQTsK83w3zYZAxdm
5rmWJhFQ+S76l1hqDLCkfPfLpxDAmhBosVaIAbX9Ei3nrxEg3/G549j5aLDZ
nfNqOg2f1+m0Tbk/CtKdhvceycTx7dKOmZhEgcjDHLfGbAICTqarCTyOhBGH
ROF1OQT0Cl77KqcXCbJapw2S8tB5qSbuL89BF9cs/2w+ASu2dEhn7TsHPSE9
jocKCRg3TOwT+hYBb2wbLR/eIcCMRSuw/CMgUvfM22X3CCCc5uxYLhgBQu2R
vwJKCXAT/mlnkUXDyzcFtzrLCaAVcyrLtWk4zk1zrK8ioMVLpky2kQ2NehUj
cdUEGP3tfxhoz4aOy/0BgzW43p3lkR2/w0Fd8kbBlloCKg4d5N4XGQ6fZBOD
4p8QkL/5ZMiGZeEwoWn5++tTAmrfez9+cY8FM0ucBXWeERCR3JDpZcwCt9tu
r2NfEBDVK6p481MYSO/+sflDIwFr1IpahgPC4NjlYItVzQRkCe5Z2SsVBrHm
mUL+rwko8GVZKFWFQk3tx8CGN3j+baq+/odCYeO5h8lL32K9VR48n8MbClaZ
j47adhAwNPOnJawsBBz9Hfuz3xOg/8aQ9dslBHLGFESHuwlYfWiv7C+VEJDY
FTyl3kvAwUs2JuzRYJD1Goo/3UeA2HsR3boHwWCf0TVY2Y/j9Tzq/ZgYDBqV
T3/NDBBwkucM16qgYLCWkarS+UrAVrdp9gqvYLBt0dMJGCJgVvIIf75PMKge
uOtfNUzA74t/RH5EBYPx+Au/yVECHDjgxJzSYNjpMKm97gcB5iF+jtOTwSCw
MqXc7RcBnG7tXW02IdDkIzl98w8B259cbd5WEgK0dDNn7yQBA6zmCGVc76cC
sklsGp/3ftxdxCoULANs7U1mCZhaIBqVnRQKC64O3g+eQ8IMh5l7QEcoDPaI
9hVzkmAgYLtHSyQMXL9veP2ZiwT7kVk5hx1h4K11M1aMh4ToS1NCYf5hsHjh
bQkDXhI8Jn/y898Kg7WsFA9vPhJ+6Uzx2LeHwfG8B8npAiQcsng00s3BggC7
g/GNi0k4MU+pt0meBX89Hx+eFCRB+UWEn48RCx4ka3DLLiXhht3HNYuPs+Bs
yA+/HaIkhF15GVF/jgWST7c2eIiTcGrky8bGmyxQ5LQfTpBEp6pq6T1hgeyz
mKH70iR8VOBkmXxgwdtSrie9JAm6h1W45v1lwXnnmdNcy0noDcwUDxAKB8uo
Ql4FWRL+3nus0aocDgvaLE/ry+N+yEybiW8Jh6vCUnWOiiScuVX2n41VOAgr
af0MVSbhuFqn7q1j4XBesHNemioJK6+It4r7h4P19zW/q1aQcMfoxr782HCo
mnJ60b6KhNtVPRLeaeEglJnLHltDwoICuaO+d8Lh3GlKeaEGCSGia57XPQoH
zg3DRcs1SYiv3SN9uCUcOjs3ymppkVB3hIi37g2HIrZqgMkGEt5mjH7JGwkH
8bTuWrtNJATNUTE5OhMOhg1ev7x0SEi9Nj82biEbHn/kW8reQoJdgpTESjE2
jC6tWZawlQS5sOFZPVk25DXlSd/cToLbdOH87pXY340DC0r1SVjarF40pc2G
e0Tk58eGJFxIETHI3M6GAsm8kub/SOgfkx97b8oGF18b3y5jEhw4SdO8PWw4
saNg7RdTEg4n+aifdWXDjsm7H8bMSaB3quXkB7Nhubkf668FCTV+MW5NF9jQ
ECgow2lFwor7vJ3G6WxQokJKF1iTsHeTsvWpQjYcXNWuv2gvCdObE53p+2xY
SEk0C9mQkDn+u6+wgQ22L02tRQ+QQJSp5Qm9YcPuaP8O8YMkKJ1PuFDfw4Z6
pRwbSTsS3l/YdnxgkA1n+l53Sh4mwcvzSXTgDzaoBMzaSDqSMDp7dDplmg1J
2kpd4kdJkOwL0TbhpoH1zvSQ6DESIgbH+y8L0HDxhutnoeN4ntm7NQNFaDA5
FXJykQsJKnUfjBYTNMxmhHLwupFQvKrceYccDZcJ50uc7iTo6TZu1lKlwc9O
bfWUB+6f7InP79bQ4Bjy4PW4Fwlz218s09CigVQRCxo8RcK3/Gmr/3RoML4q
r9lzmoT/zr3KpbbToFLe+fu1LwmlRpp8pUY06MxRrn16loSKkua1wmY08F2c
Sq4IIOFzXcJdzV00lKzfEnIriITTYj/+yu6l4ZbNx1MpISR4Lqq26jpAwybR
F77RYSQYRfn/cLCnQU31c8zZcBKMzYe/VB2h4T8B8WJnmgT/3cvXDjjT8POD
wTfrcySwNm0u7nelITlg37rtUSRsXDOlU+FBwzZv9YurYkgosxuJPnIKP89/
j1syjoRnlTeNhs7QoG5UEz3vAgldbwoXmPjTcPSbhtrQRRK0Yj3MzwXRoOs9
1vv6Mglnd/HHZ4XSQKi+vl1xhQTFSkG4Hk7DftGS+OuJJBQCpPtF0FDK432F
lYz1py+zQDuKhrjEwTvHUkgQmFOa9y6GBu21Q4PG17CevGcqbM/jfs3ftXlV
Gp7nvXDrhos0XJP8k78kg4TO0b/xkvG4fwa5m8YySXhCJYZaJtAgoqX79VU2
CfUVhdLeSTQ4uMeU3r6JeTYqYh10lYZus8NZ0bkkFN2LI06l0tDAF1fsfAv7
d67BTuvrNIxV9PXrF+D6fWSeyaXTUGOhtkGmkIQfD9dY92TQYJWreWe6iATt
Ru4HbLx/L59tNG27S8ISBb4a8gYNG5yrl9y+R8LLyJ4lWTdp6Jhqmggvxbxc
mHlIKpeGrxnPeWzLSZBO3WEdkkdDVc1pHY1KzN/rny933KLBPzUlhfc+CQdE
v5XIFdCgcIZDobuahLVzfE3tbtPgHmD/tqiGBOu3aV/jCml43BRxL+wRCYvN
UoWLi2iQDFtfvfsxCbzHRYyf36GhP0fth2Id1quihWD7XTxfQ2Wriack+N44
29leTIOhw9Cnpw3YPzKviMZ7NAxNqWfEPyfhe0yjfkUJDU2L7sc5vMT63uBR
c7WUhoir2wrWNJHAZ3Fg1LuMhlU3QqZnXpGw6xSPln45DWLrNM42tOD8Tw/+
FKigId5CcOWlVhJGtt8IeomuF24Rsm0j4byk1hpWJQ368StUFd+SQEkI7F1X
hefD2eEz8o6EjE2aBt1ovdioyZJOEmRaWQZB92l4HjhZ6N9FwvqwO+lS1TRw
KbembuvB8//kk1qIPjnWWLugF8evv+cPD2iQs0xe9vIjCS4bY4Lq0Ye7Bu/F
fcLnG4Z82lFDw3ZN5zDLz1gfsdGfGtAG0s+jRL6Q8LBsS/nWh7gfRyua2gbx
/Ns6EkrQBgL9Jle+YT5U2JXKP6IhhvjDY/2dhGH9cv04dE598qzICObFm/JT
v9Eltv5rW0dx/bl63ntqaYjdqZd5fpwE54gDriVoM82ru0x/Yh65a0QteUzD
qzrl7Qt/Y75Gbf1zBC3Td8nzyR/MLyvrtvLHTF6E9gVOkvCIM8+U9wkNp3mS
L2lPkbBOYyTUCv0tOZA9Pk2C/qRtQir6V3trVe4s9pNK461P6GfryaRCDgrC
ZMo+KNZhPcutmIicQ0FKt4mFE1p149GJI3MpEKNDyWz06mvSybqcFFS6E3a9
6Of8KR+k5lGgEFWlIfmUhksd6xt+oUOtv94xR3P83WjVxEXBH2u5n2FogYk/
YTe5KXgnOLC4FD0+U74neD4FyRfKpAfQ1c1Nr/byULAqcu1qkXoaeNrDv69Z
QIH9HP6DuujIxWq3eXkpiLgsc/84+p0Uv2gv+rZ36IFL6LGNnjJlCynY2uNp
UYkeMMtvjeGjYOHuM/kf0GFvuVc48uPzA+0CuRpo+PznqepGAQru5Rq9VUBL
eeg0L1lEwZBA9lMD9MP8u8Rn9Nw7hvuPoq8XuwtWLqagScIpk4XW13h0K3YJ
BaNpWfnp6KsBwyOHBSkYTBFmVaODz0HneiEK5NdtXP8OfejnjCufMAU+nDKv
xtFPZt3zutFRp81s+J7h/C/0xRUtpeCZQEufDPq4bhIVJkLBzzXbvbTRV7Z2
We8WxfkubhY1Q4PPD20lMQqMpbXfHEarHJOtm0Rb+rSV+aCzdtydfiZOwQ3p
tGfn0ELTX7qSJSj8P7RWOAXtybnQ+YQkzt/veVIBeuK8TdomKQoOdVsee4Bm
RciE8UtTcFHKPrwJvckrQ+g9+nvapsluNNc5GZM8AuuF3VX/HS1c2KfuS1JQ
l/dragrtckblqSGF6ykZSeB9ToOb4gYesWUULJsazxJFm+da/fyE/rH+s5Is
+lrag5g7yyl4qOOhuAr9cn9FW6AMBbr+XDc2oLM62S+MZSlIPdF8Sw/9qvHY
SQk5CqiBts3maMuEtEf96EOO3bb70PzGJ2uL5CmYlg1c6oBWKRT19FegoHjt
ssMu6KLNb5oNFSmY4/rX9BR6eNlQj7ASBT2HJd8HoMe0k1O60Q1y9ovY6AWE
DF+OMu7H3MjBGPQ64RolTxUKBNYruscz85Ms/r1JlQJxOuNmClppYJP3fDUK
vtUZXsxEp31MyGxCa5lu1shD+6+Yz0pYQUGfc3hMEVr52iNRu5UUvC3hzSpl
3q/j26e8ioISxxjf+8x4X0mzMfTr0GrBWrQNr/bvstXYf0pKLvXo+53xZkFr
sB8SdWJfoq1avGwM1lLQ5mTj24KuFlssuUidgs3+D1a3o5Pi0iJb0WzxS8Wd
aK73RwuTNNCN33g+oCctU+hD6yhQ96xV+4SuFfBfqqCJ/THLKf8Fbd+hu+sb
eu+xgPFv6N/6CoaF6ykw9/sdP8KsJ8Vh1EsL6z9BYukP9MU+TRNtbQpKA8KO
/0bLdLfZzqAvcdamTqKDFwXIP9xAQfB989vT6MBix7SwjRTUlyemcryg4URj
XYvBJgrOiEy5cKLZEh3lCzdTwHetluRGWwu93f0SHXpc4w4PWvTXRE6sDgVB
R4KVF6L5q73u7gQKdr1vZvGjx5VDPYW3UOA3u6V+EXpXic3XVnSmfffYEvRQ
2jrxeF0KAs8WzBNG83w3mNm9Fc9fKG92Kfr93oZEsW0UGBTU9omih0+Mfm9H
W/F03xVHH3H5MXllOwXNzm1ukmh3xwXV1nqYJ2SQuDQ6ScZxg5g+5uv9rAIC
La8Jbm1o6XhedQrt9Ov5/ssGFAjOOZK9DK3gu2XeLkMKIgtceGXQn9Kb7YWM
KGid+2K/LNpQuNjvFbrJUj5Njvm+hrRpzH8UFOqKtcujFdfpdOzYQcGtcS0O
RXT4QtNlvMYUPLWRklRCc5wMXFaH7goyUlJGvxng7gwxwfy+Y6iigj5eudQc
TCmQepGwTBV9Zao7cAqd5VTMp4b+GXTFudQM84UUHGKsOXRyiac5BY8KqUcr
0H7ZKe4rd2J9bTeOWYlO7jWLGUQrx86ar0L7J5QfybTAfOFOWrgafSiWf8rW
koLDCwMqGa/d5btDYhcFq0XmO6xBd+po7HmNFu6J4FqLjnQ/vjzaCvOCPpDC
mPed+Q393RQQ1c0r1dFzV4h85bCmwL1HvZyx+eiXwTK0CNW4SQNt5j6d7b4H
74+sgXLGMs8Cl6vspcD39uPV69AzH9L3fkTL3s5OY3za6bJZ0j4KPhx5wa+J
buoJn2dhQ0HVfA8PxuoXs71591OgZNDcwnjxVdnsGnRXyPKV65l661W77HMA
+7XpShjjSrGxrSttKXAUPdrGWORR6u1P6DDlGlkt9Lk1Dp1JB7F/O5tPMP7M
cqszP0TBcaGGIsad+cMn59vh/dD9apyx/tHFnZXovkih1droM8DB7W5PwcHi
e8cY+178Nix/mAIOyw/XGBvHzU3sQHO3lrQwXqnuOi/WAftHfj/nBnSvke3K
bY54X9SNrWT83WNW4g/a5O2VPYy7Cb+63CMUeCq5BDKmI+do2B7Fz2+NzWC8
o7HCXtCJAiN/ySeMdz57Y/EYnT9P5RPjxnX+XD7HKJDrb5+zEb0t8b2PsjMF
W6jNUoyrzKj8TrRVjrs648Xsk5nRxylYHxhlxFhyy9QBOIH9kZdxgDG32dd3
o+jMnS/cGJ+xcRJPd6FgQalkEOPPH65JWLri+ozTYxhXrKzsmudGwZsS72TG
15w+ORSjFdqzs/+9H6532+EkBZMt+oWMP1otuL/UnYJuqSNljHt9dsc8Rnee
WvqAcc7hvbJeHnjfz7N7zPiy44azsp4U0Fv31TNOvSaT2IK+Lb3oOeNE3o2+
wV4UJH2JeMHYxf0Wtdob76+THf9s5nctohtt8pfvnyfSNpVFncL9NFR5xviD
5q28DT64HxlbnjL2thd1+IL+835vLWMLuYzey6cp6LUKqmbsY+krt+0MBU5z
q//NPyC1Vm0Ufd5Z+g7jtsjsv1d9KYCyzFzGP8/8F2Pkh+MVHUxnHHWtbeAX
2qXGKpHxUz4PnvSzFAhNxMQy9sze9t3En4IREWEW4y2rPRIn0f7hg2cYf98q
x58VgOtxknBlHLgzSM88kIKNsTl2jE/dvKU3hfZnX9/FeNaliT87COeXwGXA
WD59UbJ5MPZ/facWY14qbvQv2vW9qsq/+kg8I5AVQoHbwb+SjJdeGx0zDcXf
J9eN+f7tf5Jk6gT6WJniFFN/fK+khdLDKGin474ybrCVNt3BosDsYeQ7xgG6
OhY/0f09RD1jXdMbZEo4BefUd5QwrtU8e1ePjfXRJZbJOIzuXTKMjnnDPs+Y
I39KM57GvBlIDWDcNTgsrxNBgXfpoeOMKbuern70/ievrP/1h+CYbfQ5zGfn
8W2MS98Y5GhEYn13169i7HuE534nunqdtRTj9j2WSSFRFCx3vD7/X79RZrrK
0bgfW2+MMf38mJe804ROY7m+Z/xUr2/IO4YC1WcTdYwzux+OScXifR1nWMQ4
9f77modop82HkhmL5+7edzQO857cymJcY2RRzX+eAmenUVfG95eNDxWhl2u5
7GH89vyez7svUDDvcoUu4+zuG7lTaA73DhXGpYqcG65fxN+POY3CjKtORFza
fomCVwsSp5n8Koo6WPEF/URvYz9jAf3svKjLFORxl75k/D80zC8M
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwVl3k8VO8Xx5VIIrJH5l5RlqiUpaL6qGwt9tKuEi1KCBUy9mVm7ohkJ4mU
JZJKJaU9+YZkKbIUikhUitDv+c0/83rPc5/73HPO53zuGZX9x+1cpgoICPCn
CAj8/3veg9bbo+4sCPz/k8TBaH7DgVBPFj68XNT1oYGL7JeXfGd6s2Aw10Bd
SoPBElgNxvqycIxKnX2Cw0fd/uZaudMsbNPTcuOOxiDijolyij8LljXznZvL
ziJRNKJRKZCFjvqhbveTsZh0Tp9MDWLBMMBC8IBBHArUAhIVQ1nwaJzaMHU4
DjeFpC8lhrOwnn2xfX/uOexUtVaVjmIhdk/4QkGHeIgIKyoyHBZWFPv27PsV
D6X87dFCDAuLxJPKp0afRz7z3SsghoVvrdIDJ8QSMK/ofvNQLAulaVNfOpxJ
wPMLaeUu8SxkKKphx7sEaES60M0JLJjwkpXtWIlw1x4QskxmIWLudCv1DYk4
NznteFkqC3wjjYquHYnkd//dCzLI/sNuTKlVInR2K9bHZZL917sudKkmYpdj
Xt1EFsnniXlSMa0JuHR4cMfBHBZU3D1/bIpNgNyjPI+aXBbinI0sx0wS8N0l
RcYgjwXZeQnjft/OQ23FaYvUAhYKJQUzbyecR5vQP/F/11iYN2PWx/SV59ER
2uG67zoLPvmUtsr7eDQ61Tg8usHCtepuJyOfePDW+r1TucVC6mWn/IGZ8ZBu
5o2wy1jQlv3qaZJxDq8biwpb77LADfZcZ6l9DkeFowWW32dBPtuwVeVWHGrM
7n2PfcCC2BI/3R9GcWhJ6GH3VZLzdPcEDt2PhZ7SlSKTJyx4NnZt2WMci261
lODEZyy8OB9QGH37LEYNHX5/fcHCQW2XtjeLz2JytpvUmlcsvB7/u9B+Yww8
ij3env2PBdE+EQflZXwoO/5c3VnDws2vB2M1FRgcSQixX/KGhUz1lP7Kv1yc
tc2RDnzLwkCwcdaWdg4qn3wKqmpkwerkHYXTT6JhzH2UJvuOBU2tpOXdBVHY
mvP4kFMLCy1bXBb7pkTCNdC1J/cDC6YhfXmaMRHIG1aXH2xn4W3rp09zmXAo
bgkZ1/vIgmKu3w9OQhjUfAYST3exIHJ2i3d1YSics9v6yntYUAu/1rW9IQT6
5S9GJr+wEHDcUrNeIgTbVOfeX/OVhfi8Tzcl9gbDqd5sDXuA6IOxumj8Mgja
e0oD7w+S/On38yWtg7D5x38BY0MsSD6582VtPxt2LmMrDX6yoLr2+7S2KDZm
Lc646zFC9JPWcONEGBu1p5Qmrv5hwftR07ayRDaild8IfhxjgekfNxoqZ6O7
iKpVmCD15p7NrB9kw4Ht5Gz1j4WkYpu+M3JBmJHeVxEyhcLRATet9uVB6OuQ
77opSEHDYv11gT1BOP7N6O1nIQr6rvWOEuFB8F1x9ayCCAWjvHsFLoVBkJxZ
rGghSmH6F0mvkMYgLIvIOOErRqGmKVF2ikAwjhY8TLs0iwL/HHXznGYw2Pv3
JtZIUhDtlHaetAvGX++nB8akKMiey90nHRCMh2n6wmqyFHZMc1hQnB2MM6E/
AzbJU1jQSo/frQ6G0ot1VSfmkOdbXUCr/AyGhqDzYLIShSOUqUWDYgjUXsUM
VChTODhmePQ1QvCuTOjZR4rCxO+DrcKuIYhzmzwtNI/C8PEdQf6cEDgw10XV
1Sg83nnYZOG1EMxocjhtvoCCQlVCnFxdCNJl5j531aBgVhEoteZHCGQ0V/wK
0yLxzog0yZUJRZxU67QsbXJ/mShzO/1QbPu29Pf9RRRyN694um5LKO6PH/6v
eQmF7pb519neoZDOyY8aXkpBV0Nhpei5UHBP01oz9Slst3xR8rk4FIJGgyXz
DClsrTEPmvs6FK2txmorVlCozpk1q7AvFCVR2mwrIwp7dPQq04XDMCer/cn+
VeS84/TPYZUwWFb5jPisoZDwxPx7sXEYnn4Sk40yoTBzp3tvy9YwDMlWqiSv
o9B7Zuf4SY8wFNQWKF81pXA188+i6Ogw1NR8mVFmTu639YOHdFYYbrF4n59a
UtjXyrqkeDcMRUoFt99spPDdSOpaVl0Y3P13+bdtpiAc4qxc/CUMxzYVLeu1
pmAiUdyhKhaOTWOlncO2FMQ1hQXeLgrHPNuAiL/2FLTsfMrqbcJRFSSlKriV
gnPeQRENr3Bo0qFlM7ZRyDAcfdAQF469S5rNJXaQ86t6QzpLwjGTVnwjvYuC
w/7tVdZvwuH02nqb/B4KbPuTPWpD4XDkB7bM2UvB1UFNwEUiAi8183Yp7Sf6
GAxXlNGJgF/X21alAxR+jXFlDDZEYCH73y4lVwqRvIN5r10jkLpSs23OIZLv
Kz98O0MiEPHeep/8EQr9cRK/PDMiEH/l+GfpoxQ2HvgaFHongvhMqKeEOwXD
62bb57yNwL/sMAFRDwpirKxMg28RSGC5nRf0olDY4rynbXokAvbr6I6foHAo
f5AtrUL8J/Th2x8+FM7fLXnXvCIS1EKF4L6TFNZNVdPQtYvE5vQFhh2nKaTg
jiR1JBIL77b+futP8mteNy8nOBJrpmg9eXGGwqOJc81PkyIhFj+edo9NYdqh
F4mhRZG4vdwktDCYwj+7iyUdTyNRuOvTyYxQCgu/Bx1qb4nEKvn//PnhZP+1
Gz3BQ5HQ0f4ccyaSwtMFqpZVwlHYOGvOTbdoClsKBVLvKkXhV6dF/zYuhffv
DzU5LIlCGnungSlDwaDoX2/K+iis99WLXxJD4m0LL+JvI9eL3xJWiqXg8ejg
iO7RKOhtqORPO0dB6bspO4IdhUP9+joD8RQq5E5NMHFRWOs7/PFtAoXfMzjy
G3KiwNJ+W3wvicKtrBsHy29HYbf87cSLKRRi928M6HkZhTIR36SINAoz7PSa
X7ZEITal78aRDAqrF5r/ODgQhZXLBvo2Z5J66txe+WgyCmumb1m9JIvo/7LX
7PcS0chU+nNtdjbRWyK7tpiOhphF/qrhHApzdzo8N9eNhtyKtV/rcik09msb
Z5pEw8Urpqz4Kolv766j92yj0W5z4DI/n8IUx1Reyr5oVInF3nQrpGCrZP9y
tWc0hu919ZgXUeA+7ja7GhSNSnsdI9XrFKJifqi0xERja77hjYkSCjpO6ccb
MqKRcKbGuqmU6PXsk1XJhdEwcnswu/gWhfsci3Pq5dFoGa8djSyjsCzaxCO4
Khpfs6tFnO5SME9a8Tq3ORr3K0+v0S+nUNS9PzO1JxqBFzIyRCso3NhcXb/7
ZzTU/QTU2x9QcK86Zz04hQMvtvO7kkoKo3/lftlIcPC0lnMr/DEFl08qmaFz
OVAKX/7A8SmF5Gol9ShNDnrydH5qPKdA5y7d6WTAwS9Lra2jLyiwroSJiK7j
wNJloPtFFfHTYIuRKGsOBsb1shOrKYz1/ehp3clBrURFrMtrCsvn7ksSPsQB
J3190dJaClfChh8Le3Ow5EroxGQdiY97k9XG5kDBQP9MVT2FH82h2xkuB4n2
UovPN5D3RbaqimwiBy9l6qWdmkg/JbqyfLM4ME9cpK3xjsKHr+YjxYUctAu2
nPr+nsKbpTM2PCvjwOwsM3a7lcIzc6vbtx5zUB00dj2wjeh3yfLmkNccCGk1
XFjfQUFuPnvdwncceA7XPJnxkYLXJS6v+BMH8x3SVF5/Iv6cw18n/Y2DA219
t2K7SX4lkn/Z/+HA1NAt3OEzhbZ1JdonpnJhoVzNyPVSsJD8dtxTjIuBQ/dq
m/qIXkqC11nLkfVZPVZJ/RQ87Zo1xGkuYlh/RLZ9o6B843JGviYXeS/T/sl9
p1BuO0kvXMbFbafAZQ1DxI9eOmnyjMn8Y2eWE/eDQueN6kU1plzYGKZvsf5F
9NXfnPPTiou651qmM39TCDO+JzDhyIVq13nvZ38o5MTsLvqyl0v8IqwraIyC
cdBRquwwF6dF0s6vHCf9kOFa7ubFRX9aUNSPCQpZ3/IGBf25GGluuJ//j8wD
+pF0cCgXr5ZTqdcFaOwoMi39xOVi6/xFo7wpNPbbr5ylHc+FtvGh0YNTaVhU
1sTsSONCN1M5ba0gjd4H55KOZ3NRLZ7ROXcaDWWrdRFuBVycb1leNUJ4xLWx
1KqUC4G/xltrhWhctuQGzinnYtbon/CrwjR2JQ4ZVT/m4sfk3e0h02nY9/9c
d/AVFw/e1NbtEKEx2/bz1743XIg0R35bOoPGWxVupON7LniSOsWiojQSh+Ye
Luzk4v1ccfmPhIs7d3X2f+Fi2Nhb9c5MGvMbE9fIfefii821hhgxGtt2Ftdp
/uYi/J3wIldxGu6r1LvUJ7n4/OeFtvEssv+L6iNJIR7mnljzZrYEDbvLATe7
ZvKIr5ayPhO22VQhnC3Fw8WbXlLlkjRkVPQmrObwYK7/uPDsbBpNEoNt3RQP
6ezB7wekaHxT+O/7oQU8hHDRulyaxqROkG+zNg/7fk0eF5Ohoap0vkRvGQ/P
/nkVtBPOlfLrObOCh+FzXbElsjScVoXbla7h4ejaVDpcjjxP7Zh+sykPSeva
tjnK03i5TLqmdyMPOPVzpaYCjYkxgZ29tjwsPKL2fIyweeSIbJMjD5c3lU68
mkPqV7bQ6MZuHqQnetvSFGkcNf00LdCZB2/BmW7HlGjsFvQoMDzMw2jcrqxV
c8n59MojHe48RHBUw8WVaRwTfOJzypuHVT7Z0h8Im5sXCQn48SDEVbUqYNHw
3VFpfZLNg8z1Lj1/ikbtgi9RbWE8uPstfGFJ0wjhr+7W5/DgoWEkoqBCY9pT
yaQzMTzY5m/91U1Ym9dRfzOeh8yshzE35tGgtx+uakvm4fXue01BqjQ67bML
/mSQeFqj/tusRuOZZXWeYDYPdTVHPBXn0+Q9vO/nvys8OCRnPe4hLHlCp2yg
kAfxzZ5PShYQtjFT+6+E5Oe6vHegOo30UinXjNs8lKxufGOpQWPu8Ka8feU8
DKoMdMho0pgTLawsX0nqsTIto51ws0V+b8VTHmawVMXytIgecqYZba/iwUCm
UtN7IY27T4yNel6T51O6+XuVNo1lxzulXet50Pyyyne6Do2gRZ8Hmpt4yPqU
nFNLeK9YwdDqVh4CF02PSF5Ew8xrzCypgwetzMfy+xfT+P1hpmx3F1l/LrZT
awm5XxY3ZH4vOe8rZTNM+P6h5JvbB3jYJbry9x1dGoJPXtUHD/FQ0ZpoE7yU
6P3F0qkZv3jYWu+zy2IZDR37HS7XRnl4oCCpJKFHgxOySeXGBA+psVm8BsLs
kXPbC6YwEPpw6HqqPo3T1GrdFCEGYw4Z0fsMaAh7fagKmMHgyaxAWXVDEo8f
18JBnIFzy9ot/YRl5319Rc9m8Ntc3fL6chr3krR8P8ow0MpwGfJZQePfdqFD
yeT/X3yXodXKlWQdzypN5zJQbW9ymiQcZ2d56TPFIESCveCREQ3NGxML2aoM
gm66ZoUb03Bmf/YTU2dwrOZ5vcUqGh8DLl6L0WIQpdhyd+ZqGo0je7pFFjHY
Jv3O8TVhi2MDxqd0GciPjOadXUOjy/jWmw96DMQf+JTagUa27cPHK5Yz+KEV
5i1jQgNXr2vzjBhsub3rawPhxaJ1mg2rGQxkGcxJXEv63Xl6k8xaBiLfLCYd
19FQONZpvdGUwYcdVSkK68m6cmzRKQsGg8eGvjUT7hQZlEzfyOCg+8+xJFMa
kR3+/DIrBl6uMx5sM6Px5uW+ta9sGaSquhopmNMIK/Ixa3BgsMAQHk2EF5Uu
L210ZHB4pHp3ggWNDY7vsmt2MFD3N5m2xZJGwHs93Ye7GXRfeuMsvYGGlF+z
55W9DCxlbgbUEX7HncqOcib79ZWtYzbSUHp/yWOvKwMNgzUtmzbRWH9/754l
hxlEzrRWEd1M/Fc3zumPGwMBzyCV54R7FMy5Ze4MGr8It4Za0Xi6wvSPhyeD
o+WytrCmYXtE9L6KN4Ok8fagccKJkf8NVvky+BWc5FZmQ+NROvvy0dMMDAc8
Z3vb0pB7Wz0iHMAgIDfDa7EdDW+28khyIIO0jzYxfYTPKCTemR/MIDD57sEc
exoPNZS35oUy2HdWfNzJgYbaRrsO9QgGy7b4b1LcQsNPPvloRhSD1jX6298S
ficuKzGLy4DndXQefyvRv1N+iy/DQPS97RVzRxp5M6f1NMcwmLpI7qvANhpX
QzkmenEMbId6++4QvhjnPiU6noGN10Su13Ya1RtzljclEH2+Cpq3cAeNk3d6
R1nJDCY7L+34RHjOk/uOe1MZnD6cYJO6k+Tny5EDqekMajsip9nvIn4jLbi0
9gIDvfhcX9HdNMQ37nszeZGBZLpabiXh/XwtR/VsorePOgmn9tAwdX5dZ3mZ
QbnC8LrFTjQ2PY60d73CQO7xheJuwiGFuwcC8hhwl7q0pu6lkfBdtZgpYPA5
wuO57T7Sr/f8C5KukXxcG/Scvp/GraNvh9OLGZgfkmwtJyynfPRcegkDPwgI
ezmTfnK1yUgsZeAf3z+44ACN9oE9qrxbDDbHTk1pIWwhbLbUv4zBYr3j0866
0EhxDX9/4C6DjxucFq93Jf10zX2hZTmDbyf+Kf4hrCu8QE+jgkE7K+B5/kGS
n/IswakPGUTzpug7HaIR8aLoSmMlg00195ylDtPYzO7XvfyYgd2rRvunhE//
qS70eMqgxiBQ6NQRGknlKVoGzxmsT/lwSsuNxs5VPrdGXjC4b0NfayVs7W3n
VFJF8hnlmcM/Svxi87+lh6sZKJmM78ExGv+Z0GuUXjMQtvn6fohwRZ1u7Isa
Ev+uw3MuudOgZkYbeNaR/HVmKjocJ/UdtzeWrWdwb3F52zQPUj+LlKLStwwy
D3e73CTcEbgq3bqRrEeaFbt4kusfjM7uaWLwaeuMClkvkk9hV8VT70h+TjnG
PCXs8+LnI6EWBnkHdqj5nKDBWP2Uj2llkOBqdEbNm4blopj5Mm0MLmSqptQT
riqr/h3fziBF1Ng/xIfGZ4/YlNmdDNy9CmldX9JvJy7M4Xwk+gzI5LQT5jQl
BE1+YjCateoOc5LMW4Yj7927GXQaFhYYnaJh9ENRr6WHga+zvEsv4eFrJonr
vjCwn5/9MeE0jTUVERJXehmccvCfv96P+KdbT67IVwbsC090hgjPO7XKzaWf
QRMv92+6P41rRywPVAyQ/vbbGLMhgLxvha6mSw8yYDKbvowQvnuqVcXlO4MX
YidELp2h8XXS9G/JEAPv3PXfrAJpjE3V0psYZmCieyJljPAfpqhx3U+in3Xz
xS+zSb1zO/ojfhG/tws2sw2i8fdKXtCzEQYnrxaajRM25LelTv3D4J97rXhu
MNH3Zl0Lo1Hil5ck0mxDaCxZYRzjMUb6nY4d+kt4F874Zf0l+kjxm3U5lEaB
jaN03TgD2cyhYeswGvHJUs7jEyT/qUoXRgmP9bd6qf1jIFanLH0pnMyzYy83
WgrwUeWkbL0pgpxfXD9yZAof7LVr7H8Rfu33PiB6Kh9rra9QGZE0ytJzerIF
+XhieKbULIrMVwc/Gd+fxkd49MfZg4Q/p2lGvRHiQ+DauGFiNPGbrF+1XcJ8
tPUNLljDIfNhRwH1czof9P6Oth7CI4NpAQIz+LCTGnbic8n80fd3cIYoH2WN
Fnn6PBqBj74ES87kw/+gSEUrYTtXt5UyYnw0b3dIDWVoHGH5qMiK87GJtlmr
xafR8KxjtfQsPp6KUjdqCccInEiZJcHHC7OuAd8YGoMX3htNl+Qjp/3R8Nyz
pH6lxVoThC9UfKh8RHik75T799l8zMl33Hkolsx/NRdndUrxUbnB/oF4HNHD
UJhUjTQfFSo/BkoI3zQ8GHxXho93cds/O56jcUPq9P5Lsnzktl/JHyf8uqyx
PFqOxKMhaHQxnswv+6MSj8nzcf8Y57zpefI+9g8ZtVLgo4TZe6+XsNxYTq/O
HD5mmecWMAk0itweuosq8vE/Oa0NOA==
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJwtWXk8VO8XVlKytVCyzX1FJdFKisqTNhWhRAs/lbTRQioh1Kx37tiLsiWU
QnvatK9aaZX4pkSLklKphH7vmPGPzzPX3HvOc855zvNepsvWzw3oqqKiEtdF
RUX+e+Dl6jN/1vGQV3NJxzhVij+Fz5bzg3moLx9Y9aeIQ96d3M2aoTw4vwnX
O5Iuw0jMaUrczENs6rq+fHEsHi17Ud5/Kw9th749dg2Og+jcZJO0CB7s2MlL
6n3jkaohem4UxUPwRI0KM4sEdPhndqTH8JA8oJuXTk4CiswjUw35PPye93a/
kX4iitV0c1OFyueziVhs5mamK+FhjPznVyLUuxsaxkp5cJE/YHESjAoXsmqx
PNwkx0JWFSehMPZrSGS88n6qyRh49OKLb4k8ROgdmfHGKRm392ZcCNjJg0/8
tZ8HQ5JhIQ4gL1J4oN9ObExIxjqrRrWZe3jgX7m7b1pGMpI7uq0/m85Dx9Ow
j4OTkyEyjvAdnMWD59v96VM3JsPa1/BJUjYPD+7fv+8yIRk+3gWP2nN4yGrK
vzX7WxJyVzctWrmfh0t7DUf45ieh/7WCDWX5PBy8NduO9U3C14A0vbEFiuev
1U2C+fitzulFPMjDDS9NxCu1f9r/jvAwZJR6UUZkIl7zX69YelzBZ+6IRDz3
K/O8dpKH3bQceJMAmVN4pelpRf7piQnQfSFriT7LwxYawFEk4OHzo4erz/Ow
zdH2f+er4xHUnVUZd5GHL5H0A9t4lE0v+Zp4mYcV8h8uDlUp76IbriqfVxML
G6ODRyff4CFn2unv7aNjUW+etj31lrI/hDL8sfP89amUh4wbtCAvOHT0Cezr
eE/JpxWHDcc2PE14oODjvxgpTLx/THpTxsPWj4NHqVewWJOyY97Ixzxk08vm
I1kkeOzXjXqq5D9Wgqs33sbcfc4DLZ+FzxcxJnDXMvpV8nCqdPOlvZ5ieO2/
vsqvSpnfFRFWRK14l/8fD0b0dt1Hi1DQPES/qYaHxEaa8FEhDOfvaLOp5aH5
seuy3mOFMN/UmLq1ThnvNQH88141XHjHg3qR8aLl/xPA9kJpS8cHHobKG0hN
gAVmxhcdP/FwnYYTX8yH35PpjtGNPHQdJu5fGcaH1f9ORV1sUvI3mw/X7w8i
W7/xUPnw17y31nzMDWi1H/uDh1XygKz40BmRdX5DCw9eOtYnMifzUR5m1H7o
Nw9necJPHu58sCaPVWtblfX156P+KFM+oF3Rf/dD+PCM9vOf80/RL8bb+eiZ
2XBpRxcG7vKB3clHw2v9umJVBmZVf6LW7ONj/ReHp+/VGCxa7lDjdoyPzeMP
JQxQZ3BvHy3wTT56ax4zdNZgQK/GplbyMUaUtXGzFqOYx/d8BBVdycjVYWAi
v8EPPqKXLUkt680gbwNN+B8ff0NvLm/ty3T255VeAlzJsO1u3o9RzIexANv4
PyJd9BlFfQcJYFQ65e5GAwa0ejO1bAWwUPVv2mPEgFZv+64pApjfi2+8ZMIo
+JojQOVZtVu1DKPI31eApMCOrWoDGUX/BQrgGXtcY4g5o9CjUAF6VnhunTGY
wZxlvReM3yFApp7x7RUWDCg6VZoogN7Q8T8FlsrnZdL79a3ulmPFQN6eRQW0
3l9G/7o4nIGWvMBnBbjYtvrBi5EM5OF2vS6A7v5CSfNoRlHvhwJwW4mlpi2j
mKdqAVQdmk4MtGMgz4b7IEB19QTz8eOV3/8uwAmJVfQcB2U87QIY5NTcWDaR
UcyXuhAz725q2eTIQN7O23WFuPlWq59kMgMDKqfWPCG+9btqumeKMn4LIYrK
i0wOTVPGP1qIsrIPPc/OUNZjghCnebL3N2cyinmZLsRRo6Izj2cr+8FdiHUR
PhGvXBkMT8j+PWqREGtdjo756MZgzatgqc46IVxaT71p9mCwWmX9dkG0EAM9
IkV/5zHYf/Gq/oF4Ie7G9DVT9aL5/6pbui9LiKGEf7bnAga0m89mFQmxZOSL
Gb0WMfBefPxy0HkhNInhY10f2l83jg9fVyqE30O3Bfr/Y3BmWXTlxedCeMdF
VRksYWARJTsXWC/EnaEFPkbLGJjTD8b/ECK87mm10XIG+R+ch//rKsKw6H8+
RisYjJcLRB8R0u2HvjJYxaBh1wmtb4wIopduS/XX0H4aGBTWai3CzoPr3+sG
MTgX2/1rioMIc7bwg3utU/S//kwR/uUJVDQ2MKDT/XCLlwgpvMBdqiEMBux6
2vODvwiRy6xHtW1kcKu6WNC2geoP/8rT75sYxbxvE4EZNmB7wxYGZSuevV8j
FcE1c7Dd660Mknw6prSm0HjPV/96GsHgDpWztFwRHLtY3ijdxuBHkNe24cdE
0NrZllESzSj2xwURzoybzD+8nUFY+H6r66UiHPZ5uyWLz+BQ3hzoPhNhov6D
iDghg7/3vty5/loEa6v38dvEyn78LMJsHYPiQJbp3IcWv0X4+cb58wKOQZ+x
Ey7OVRUjI3rx2GmxDN6bUEZ1xJi62WbnyHgG7S2bXhsbiPFT+3R3o0QGnqHm
qdFmYtjMuhrXLZnB7IZuNn2Gi7Hqs611406m0y+ojhPDaXNz7dMUBjmn7H47
OYnBs3p6rGQ307lPtrmI4at/JnVfGgNHSmA3bzHOqm/eLcpg4LW38PCCpWIk
pjWcXJPFIII/wuVAoBj2YxobXLMZnIxoPua+SQzHHvMnjcxR9mu0GNlGv4/0
yWMwtnCSd5VEDC3nwonN+xn0eGjgsShJjP7jnT49ymcQP48mkC5GQEj82WOH
GFSvog2dJ0aN+/IDcYUMrE2ZH0GHxbirlVgceJjBpA+VReGnxWguqXs346hC
vw5cFuPqPGsHs+PK+S+l+6jQ7mT7CQZWAQa1Cx6JkbKtzK3iFAMabaDhSzEc
Ai/3OXaaQQG1T7W1YlS1lf8Rn1X29ycxPuXdV/c7z+DzlfFmd7+LcfHqVkfb
CwxKhvTStG0TI2pvVpbGJQYppnGbgrtJMCRcZUjNZYUeHNaSICTav/LEVQY9
pYz/Fz0JbpZLTwuvK/XXRAIj4bjL3jcZDJIL0iAJ3hVY/7C4zWBH7e3dDtYS
/Jxp6fWnlMFdz6sHzW0lmBnQWF96l/79pq5p6hMlaGyzyUu9z2Dcyqmr10+T
oLzXpcSAh1S/winjrhJIM6ceHV3OoFH70kiD+RKMPMhv73jEIH0+LaiPBAPG
2m67+4TBuyOD6vjLJUid13fErmcMku27uHYLkuCO3hNdvwoGkh9VFds3SjAj
dbiVRSXla4nn3PxwCWpUq8K+vlTMa/8dEkxPiG09U82giKtapcJKcD+m9XjU
KwYL7o6+cTxeAjXLZ3unvmbw+9rygiUpEgQ3l93oWcsggN7wcYYEgzwzTB++
pf3UsLG4X64Ey181nE6sp3xurOgbckiCaXaBQs/3DNRuxo/aclQCZ5P7sf0/
MnixfeP0ncWUj1Ul5RUNiv47XkKv67ybs/szg8cqr7r2vCZBPO+3+oIvDPxo
Az66LUHBnYx//b8yMLyymFx9IMEZv6gxz75RfYwsP1n5RIKEudP3J31nELl0
9PxjlRK422XOd/vJoPYjFbAaCR7dtpym+UupZ3USmNXtCr31m1H4xwYJ1QtB
XUwrg2X7nts0NUmwVT1jl32bgo9RPyX4nBEj+d5O96fDnEeJrRK0vHh2sfAf
g5dFrT6N/yS4N45JP65COvXniBoLr0HD/8i6ENS81kweqsnCasKqPyu7EsU8
9GYxKtskw0mVwHPukOye/Vnc1856Y9yNIOletLOjEYtdVePutlB8/qW0PYCw
UPk7watcjaCKwi2DWOj8+S081J3gpFZwEWfJ4nvH+YU7ehC8NIpcemIEi8uP
yx8tUied/Vliw0L9hfjL6J4En2i5IsazkPW2PqahQfDkwlu9zEksXhpr69dS
3LmfprBonhBqdk6TQLd5ctk7ZxYf3I88i9ciyDU719ZjDgthZffhK7SJ4vww
j8X736VWE3QIJn/zv++7gIXxRsfHfXoRzFPLTbL3ZXHtyCnee4qrp6uGcctY
7CsO6XuhN8EM1TDNvJUsZtheP5zQh+BXd7/d94NYZEY3fV3el6DrBbW+eiEs
dnCoHqdLFHqwhcXSnx3rtfRIp958jmBx619IUQ3FCaO2WO+LofEn1yWe6Efw
RjP50A4hiyCndCLsTzr3cZyUxe4prxZ46xOUnKUDEccCYT/shw4gmMoFvY9I
ZjFsjfntVopDp+9sEe1mccDlVPs9A4KmO9edDmey0G3/+CrDkKC+mXm8PodF
qKpm4FojgrW0/GPzWfxJ8smZaEwU/qmIhUhqJtQ2IYp9fozFxE15uv9RnP7O
JH9VMQs1zmxOEU9R7/pzLPSO19lEMJRPeQEvsVgXPqx0JiEKPb7OYoOFg/oA
U6LYZ7dZeBR6/aynuHM/3GeRnXMl/uRAggqbpnHTHrF46FtSEWNG4P9lkdOk
5zSfaskDV3MC0bjnN9dWsXhUtibYcBDBhzXDWvRfs/Dck3P9HcVy+i/XsdB2
Db5xYjABHa+Rlh8pP8f1Q6OGKOqzs5HFiUnPH8+0IOjiKtB2a2bRZNr4Wm8o
gTz9Uy20HvYZWTUUC7IeFLj9ZdGTZ6ZVYElgE3MGXVWkGKt3dWjoMIK+ckPU
TYoDRsW/JloRHG71WTtNXYqhHyZu7mFNoHNp5J4CLSly3u7ZX07xZZ2MMQP7
SBE1vIdoz3CCbeUnF27qJ4Vl9nX9ZSMIZi+kGRrQ67e1FluOJNg7weppmgl9
3ifGvZliNRu6wU2l8NGw/3VulLKeg6S4VJ3qvn20cp6HSuH1ZJOP8xjS6f/s
raW4PKC3US8bgg1ygRolRXpijuwZxddE+d53baVQ+2/V8XRbghBpXF3zeCla
PbPYpWNpfvID0yQpbuhE9RtiRxR+1UkK/yqn+Z8ppuH/PDddil8zhsw8Po6A
2r3PPBeaT1bAt03jFfPh4iHFzjq7Ofb2ROFXF0hhVlPh10ExbYcpxsul2NEr
evA1B4KLc1NMdYKliClekSOcQBTnV3qeXFt2+4nzRMX8psdJITGsOq85icD7
84iSIWlSLNCt9H5IMZ3eLq7ZUui3/ClIcCSYJTf0uVJoX950ai4I9pSkJPQ6
JMV3S0Go3mQCeXscOibF/DM+n55NVtavWIrGnLEGqU4E2q+tE8h5KdS/OHd4
TyGwPKRbfuOKFP8tups2YKqiXl6lUjSt/fblBcVPXr3W1H0oxcp1P1p3TyMY
/s+0veWJFCErel5eMJ3gUaJPx/WXlH+zFQ4DZhAcpesx640Ug+2woWKGQt9M
PkixuuW+b4ozAXm83k/cKMWQiMnd5s+kekqPdxOapajPfeyvO4uAkQ/obylm
6hVHPqL4O22Hmg76fVsTt/jZROFnVTlYjHWscnEhWEntaWEPDmJNN1MNV5rv
6lfBGtocVIJjTG9T3Lmv+nJ4/qF7NX8OwUBqCJfocwi60M8DbgQegWlbMow5
7G6riWlzU/TvT1MOP7fvDjzrTvm1pI55MAe7xuA+oR4EDwvKnj0fxiEyPytk
xFxa79tD7fuO4pBR6x7fQLERJbj3WA5Re86v3D+P4J1jXs0kBw5LE7Tb/DwV
emsODmPmR7gYzqfzf4calqlUXB1tFz6dr9Q/Zw6ykKCBcV4E9mazIvguHDRe
ehyc4U0U74PcOXQd3v+TygKCFnqcd5rPwePbx4ZzFH+qHWt4ZSEH95D2/JCF
BL7Urq/15WB2L2bgsEWk8/y2YwmHjje5i95SLA/Hwp/D1tUp7umLCVz7yWY1
BHAofy3uNs+HoNJvs1vWag42O/M3a/gS1OmZ3KkP4tA70zz/KsWd75M2cJhf
a50S9j+i8K+hHC4MaJ4ywo9gGKWPDePQ//reY/UUbw6mDG3lwI0OqE5fQpD6
LyHqbziH96INtz2WElA32XPrNsrHkabgHssIMvvsvzg5msOMVb2rL1As90sx
MRzCodI9xJ/qSeHhFzV8DhE7PzcNXq7kS8zBNbFrWhXFp+g4v5RyGGGzvltC
AEFiL2r44jjUzvIbMXWFMt8kDl82/jP8vUKxH3gpHGp4kbcLVxLsbOnuN2AP
B1bWxdZvFcH8qwfz5mRycCkr8e+7mvZTUFj4oH0c5t57Pu/mauW+zONQNjZK
LWwNre+iJxf88zlMTfsvzDJQMd/5hRwuupMj1YFKPTxC+ZQE748LIp1+y+M4
B6PJbf/DWoIrn7MmWBVz6O7+6eW3tUq9OUvz91ltkLtOMZ/JJZS/N9mGnusJ
jOUG7DKHkhEXXnXbQJByQivY6jqH7NX1AcUUy+V24i16XTz9WEAwUfjfOxze
evW81C9EWb/7lJ8w7/ibFIdl5JiNL+NQsHyR+aaNCj4XPeKQssJhm3kogVze
bz7lsDfbLO0JxT2+9nd2r+CQpjEhYscmxfz6VXJYF3KYjNpMQNXuBvmP9mdk
trSGYl9qSH6/5vAnZ+K52C0EWtQueLzl8MbucJFDGFG8f6vnsNlfP+BjmFIv
P3KYNyivNmUrwTq6wK585hDmGTFoarhCD4Z95RC994b1N4orcjdM1PjBoUKW
/zczQrlvWuh8h8+OnxVJEL3mQqjuHw6x2RUfWiimp4Ovam0cSrU2quduo/u4
sqi1uoNDaP7UL3OilH6tiwyTR21Ma6XY+kRmU343Gb5MGaR9IFqpJz1kiJm7
fbpHDNXvLhfUknrKsOXQ4eltFMu7sV1Thn/ryrXzt9PntTZ+Qi8ZBuf2yvDY
odj3jn1k0CCJ3/5S3Omf9WTonRauc4BPQN2CjYq+DP2yvzW7CQic6AF9pYEM
e9ON9v4RKPMxlkHrkYlurpCAaw/4tZyR4a6fiZuLiIBu09O1pjJEOznO+ylS
+JOb5jI4uR1kssT0/l6fRzhYyHDDbtup6RJlv1nKIGRr+zRJlP1lLYPKkTa7
VJYo3kePlOFVQ9NgRynpPC9Zj5GBLHv96h3FEn/f6lu2Mszt2+wXxxHw+q9x
3ThOhrPPnQtsZQSFZc+8PtvLELFS/VI1xUPv9b5tP1GGFws90/mxSj8HGVyI
u5NlHOVXbrCdZLipwZwsp9iUBtBnmgyl0+saN8cTmNAD3scZMuyvudZsnEAU
/y+YRfm59N/VaxRTO9m9xkUGg0LvxasS6T6k9r3KTYars+Zd1k4ine/Lb3jI
cMn0e+MJip2W1JfneMpQmbTwvXcy5ePMUdWV3jLk1xwsbKOYuoF+soU0HwtV
h307CXppFh/Y6iPDxbXSXdN2UT9Gj1MafjKciF1S8nGXwk8OWCqDzoz8otgU
gr8+a292+Mvwf3kQ9ys=
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 455.75}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {450, 1600}}, {{7.608374474380783, 
             8.294049640102028}, {450, 1600}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 455.75}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"a) CBA Framework\"", {
              FontFamily -> "Helvetica", FontSize -> 16}, StripOnInput -> 
              False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.35, 0.9}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox["\"Gt C\"", TraditionalForm], None}, {None, None}}, 
          FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{500, 
               FormBox["500", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1250, 
               FormBox["1250", TraditionalForm]}, {1500, 
               FormBox["1500", TraditionalForm]}}, {{500, 
               FormBox["500", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1250, 
               FormBox["1250", TraditionalForm]}, {1500, 
               FormBox["1500", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {450, 1600}}, {{7.608374474380783, 
             8.294049640102028}, {450, 1600}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], 
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwd1nk8VO/3APApkb0F2TL3FqnsLSLUOdpQ2QmljxJapFBkCyWKLCmRJckS
hbJV2oiItFhSKUqWUrIvM2bM8rvf3/wzr/frvu597jn3nPM8y1xP2rjPpdFo
8XNotP/9L6/uesw6Qcd1///7B6zCT24RPnR0atL7XbF2DHLf5PiLnaZjReO+
BWZfJkAHLUYT/em4MaIo8vGFaWh17WhZEkhHotS0Z6P+DEQ9MVZKC6bjqJGP
/scRNqSIRn1WDKXjYJvODds8LvAO3eSlh9PxlkbvurUaNCxSCUlRiKBjeAPL
auTcHHwoKJWTEknH56pn7Kta5+I+ZUtlqUt0nLAWFUuXn4fCQgoKcTF0PNLm
kHzNQRAVC52iBePouPDrzO230UJYGDfmG5JAx/k7/dcF3p+Pyx+86BhPpKPP
4F7z3lfC2HAr47l7Eh1d996pd2oUwVUX3cmOZDrqBiYtMHwqiic0hgXNUunI
HGNt/ZUihtd4805WplPrffezyHcSx6ilwftVM+lY6RTPTeWJo+Z+hY9Xs+iY
9dWgryBSAp0d7rVysymP/+l3GJHAnKOjew/n0fElLNVM2CSJS2rveTfn01FN
aDaY7S+JY+5p0hvu0fF7nKDhfzclUWVjoGl6ER2f1PxZ0F4miT8E+RL8+3Tc
UXhfkVEpiT8jfnocLKVj1KmnYrwSSfzs0mxXW07H2mGlrM50SYzdEvR12SM6
3g2w0t0eJIlSHbGMsEoq/jrRpXW7JfHD5wfFXU+p9W4RtCopSTwuFE3Tf0FH
Y042hDRLYPOOZ2OJ1XSsYmxpXxMugZ3Jv8MGa+jobGFtTFOVwPWKBQ+M6+i4
VGL+99mX4vhLJe1cyms6XpSsrtC2FkeWnh3zXyMd3Scvwu3PYshb5LkY3tKx
xs1cxM5aDL1LvNuvvKcjg3shyLxGFJUcpjb3NNPxYH309xuqongs+bytThsd
VQcqq3edE8Er1nlSoe10lP9T/y6mVRhr6vrCmz7TMXXJCkyQFUajy7UZMl/p
uGuft3Cx7Xzck/fqiEsnHUPJhidOUULoEerxO/87ZRW7Y+tLBPHexErZ0W7q
e/y4mSbZNg8V7M9z1vfScYBMt2IMCaCK33BKYD8dV+tmZxvPFcBDuT8Gn/+m
o1ccf0GG1FzUfd7I4P2ho4OE2Y4lynPQUXnpC/hH1fc1X6eN62jo8nEHhA1T
9ajwc8XmeB5o/FcR+mKUjiWl9yuV6zlgPvk+hD1OR/6T960npWfBxp1tsGGK
jhL+MXNvXmSBpHbmU28GHXUMjt+c1JiBlgBF7t0ZOpod3H9Hm8eAaKU2gV42
1Z/GpG/W9DT8ekC0yHHpKGekOWkjOQ12YS6HLPh0fCXwUoi1dQpEbg5WnZ9D
YFSdNevj1UkY/Cnb/1CAwCMudZ9vMyfg5Ihh+4AggZsNlqnHnZwA/413r8gJ
E5gTGvCTPjMOC8VKFExFCQxfyZpckzAO66IyT/mLE4jlpfV/1o7D8aKXGTmS
BD43aH2b0zMGYa4HUpoXEmiavfMsK3UMZk/Xu7EXE7h3mYbZg71j8DJDV0hF
hsAC4WsB5cvH4GzEVMhuWcr3Dj/V7h0FxcatTafkCcz6wTmgEDMKqwQOjaYq
Eph2MWxpleEoqLxNGK5SItBErmfg5/QIfK0UfN1LEDi/JMfT5/EIXPXkBQou
J1Bu766yc2EjYBdXKrpShYpfalv8FvMREPliF2iiSuAXKZUbfGIEbkovbfBY
ReByvYIyReYwSK/eOH1BjcCbpg4Ckm3DcHVx17xsDWo9NSMrl5JhcBxZy3yh
ReCSC68r8hOH4QXn6PsOHQI3LVDOjfUbBqm8wksTawksHvLSqN43DJcDSTUx
XQITDwf7sbcOg4DhaNlyPQKt2hb5zNUahq4uI5WNGwlsmD/xOFt+GMouaYRZ
GBK44EJ7dLHQMMhnd9e5biIwe7HKBHtqCMya/Bh+QOCv1BPCR/qHoL5PXOaS
MfU+lxebfW4fgnGZmmWpWwl0F3MUVH89BEUtRUp3txOYu3fzH4vKIWhu/iNS
aUKg+uSXWM3CIXhEjx2oNyPwRmG02sPMIXigWPS4bReB258RBz9fHYITwc7B
P8wJfGVxLvfCxSHw2v1g3V9LAovevyy/ED0Eu9kVPRPWBNYKFHxLuj4Ey61D
omZtCVy6zLLJ+e4QNIUvVhbYQ+AupaNvVF8NwWoyolLEkcANTTZGD3qG4IBO
h8mCvQQ+/rvQVmDeMIiRCm1SzgTOrZgreGz1MLh8sHSU/Y/A1Q0q0nbWw+AQ
H9opf4DAU2V93VbBw/Bm9T1nRVcC92TeiRTKH4ag/vYuRTcCVc09TDXah0E9
jO+s6EHFw5CPjZo7AukGq3/IHyGwzfDoYN+aEYj6ZnlQ9hgV32ySuKLrCCQV
nByQOk7gMXrNQpFrI2BxJsJnwQkCmacLba7UjQA/9wJN1JvAlGmpkBTGCCTT
Pa8L+FL5Vg58I7x6FEJcNddwThHoMRjj17pvFDwiXrZP+hGos7PIuCd+FAh1
uXODZwjUmkqVVqsdBfObqno/Awk8qb3+3q3pUVB/2sVsDybw9rwDBenSYwBz
1OoazxLYe8y345TWGIgncTKehRGotEnd0s50DB7rG0cUnyPwOPHuzEbXMSh2
7juTGUHgz4YPmmTIGGySfR8cH0mgkMyq+4LJY6CpMZBw9iKBtrvTYgYejMEu
SfmHntEEskrqM1+9GYPpHtMhx8sEZsg8FLrRNwYZYfs2bI8jUNLpwZJD3DHY
5r8+SSeBQOlKwk5ZdhymJR4JKSZS31vuxMkvOuOwfmdN/LxrBBrY3tkcunMc
jgzpag4nUe97tK1yids4bPGf6G1PJvBtxOj4rbPjQNdoL3l2g8A65aOy8inj
sF/2ccrtNALP5Al7nSsZh0ph/xtRGQQuqjXb2fFmHBLTBsuPZRJ4v1ZITqlv
HAzWDQ+aZxE48svbwpIzDjDffrNONoFltF2nTshMQJbizP1FuQReeLhfLkhr
AsRNCzdN5FHPr1X65mMyAUs2bvnXmk/lo/fsf/YHJsDdN6Gy5C6BHTd+26oE
TkC3ldud+EICy/kW3j8SJ6BJPPGhZzGBgRa+3hH3JmDiWf9vkwcEdnrQZaVe
TUCNraahcimBB9RuaMR1TsCeQr1ybhmBb5oWh45PTkDy2WbLLxUEfs7R+w7i
k2DoWb2o5BGBeaHPiQCVSejktLAuVlLzwl2ISDOahH+574RdnhIo7PXlcZ7d
JLyoCQTd51T/iAk1pR2fhNBbmZmiVdT8azDSD7wwCSuDaCu7qwm01K4ZwIxJ
8A079LWshsBVWsYvx8snob4l5lHkKwJV/uUVXn47CYqR+tUO9QQmR/+7Ltk3
Cb/vaU6taiDQeCX3eBB7EqbN1PawGgmkJSWRzYumwMx9+FdjE4F2u5WyxVdP
wTBnfW7KO2p+WqX1r8UpaFlQlej+gcDFIfFdxg5TEHNz24O1LdTzZQfCNp6Y
Ap2CCC6vlZpntn/q5SOnQG6D7tmmjwQ2hSrm96ZPQYrtYu3rn6h+ebZZKals
Ct5If5Ry+UIgIbJBWevNFJikaGms+krVUxi3oqR7CroFOgPGvhEoHpfRrMiY
gh1X4tiPu6jvq6Hgc1J8Gt6Fs0tDfxD4tc/nRuHyaRBU+3Rr208C50RFb2/R
nwafieY6kV4CE1JXBn63mIYVdhnLPvRRz3MYXP/RbRrcfgw+SvxF7WdaEFwa
NA3b9Twj7Qao/q/faxlwZRpMld7FLflL9cfhNQ9X3pmG4SPPWr4MEhjZerK0
+hl1XfK3xY0hKh6302bYOg0J9BlhxxECP2WYRtz9PQ333mTwl4xRz+tJc5+d
nYbHLqHrPo1T/XWlkqm7iAFXbHbkXZ0k8ODuS8ZOqgyw0rtpbzlNICfmwi53
Qwa0NqhtF2MS6Gn9iL7XigHK/ddPv56h9p/VJXV67gxqXlzoD2cTqLA92oQX
yIBA4YzrBhxqf3vbUVocz4ChjPBLk1zq+9iVSu7IYQCj49OLQj6B41EZRxse
M+CtPpFeSiNx04/kD2veMWDPCi1W7BwSG66K7Yz8yQANoyOsw3NJZGa3/KmZ
YsCaLKWMLQIkbuEsrxwQZsI7icyepfNI3FqbXc9YyoTrnfpNDMo3yiyJUR0m
0GaN9rQIkrgrN/JjyzYmSLJmIu8KkZi3jDWW7siESd5Tp/PzSXRSrIiyOs6E
6raW1r3CJMpXLM4dCWOCcMfFkbUiJOYov3T0v8aE2IWaJaKiJAaVlFcM3GHC
t6USsr2UA6o1G7c8ZcKE0WnlJ2IkxsxU5Fx8z4Q/Vvc/JYiT2BEm5fjoJxMi
vwppeUiQWLXFjvFhkgkDM40aRpIkjju8TGgVmoGlp6Bt0QIS0bdLt0p+Bmrv
V9AHKDu7e7CTqPPa7Ye+i58vJFH7uc2oPcyAie6r4iuLSFQ/0KQ6x2YGboaN
jrktJlHTelV5stsMnL+MXfpSJHp6Me8sOTMDB6d5J8WlSRQzG5M+Fz0Dr/m+
Rd2UB6WZCz6nz8DEtf7EMhkSdZLkC2Xuz8DxLelk5BISzck4FrycgRtbfzg6
yJI4+7RI0r5tBjBgymC1HIm/NJlcu/4ZUD+m0sCmnKEn0QmMGbizu4L7Vp7E
s/UPnsgIs0CK+/dHhgKJBgZVxZ/lWXBaQMzTS5HEgpfr355XZwHrqnP2pqVU
/u6pqSpsYkFUjHKkhBKJwp0tbRkWLNjklyv1nXKUkfcv0QMsELysbFFEJzHR
+Iivmw8LpEv71wcTJF731oy/e54FJ4LUG81IElXYJubfrrHAe5WhsNwyEkOc
bOoYuSywLtwz/YuyBJ85n/+QBVnZLxPKl5NYN29KY/I1Cz7sf/YlXJnET/8W
mH78woI7XZfem6uQ+PbQ8hO3/rCgtfmYj8IKEnMVJCscWCywS81+9Zvy4+sv
tTgibJAw96krUyVxrdSayVgFNqiXyp4OXUnl75TLElF1NpRt/txmtorECk3b
4lOGbBhdNvxTejV1/zaF9292sWHCICOzm3KzeWOMuDMbROjK4vfUSLx0xm/W
8DgbNkjXrD6tTuLHtE3rHUPYcEfxIXOTBok9NrDzYCwbVv/Z5D9fk1pPMd3G
IYMN2X2peS2U1QJ9XQ2K2BCqNT8qVYvKNzkQL/qcDWpZr2RdtUmU0VIYbnhL
XW8Q36emQ2Kts/pV305qvX+E1QTlpu3610T/scFZ1ID5ZA2JI3n7BK+w2VDV
lWJ1bi2JqQVF3Lmis7Dno5+z6ToSi/Q3Jx6Sn4VquYWKC9aT2LuH/ql01Syk
J2bHfqKc4mf/Y1hvFgS/HylN16X65euvGlmTWWDbZUYf3EDi1Tlvk7T3zEKd
ZKjMSj1qPkiyPHXdZ+FQ5xb7Icq39ZydV5+eBabJSrNSfRK3G3YEiUXMglqm
+7jfRhLNOk26OhNnIalfz8LAgMRCp5DraVmzoNz9xYVHWX3W6JnJg1k4vyBM
tdaQiiduh2vfi1kIf+iRHWlE1f/Uzlte72bBq7nho+kmEkvLx6J+f5uFSwqd
T8U2k+h6sU3T4u8sOEp9dfhAeQ0ztCCXOQuyDNa9K0Di7/EzYoOCHJCo9quw
QRJ3eq71pEtzYFLtwmlpYyqfXJku4+UcsH/s/O8T5ZiEEF87HQ4MZ2+QT9lC
4ld26ZY9mzkgPGLKc9hK4tCTyQMmuznwfW9Tmtw2Ehuve/es3MuBUa/xkQ7K
lo6mHczDHDh8Yop9Yzv1/ucuOz3244Cvh0i14w4Sg3kGgR4RHEhX9jCUM6Hm
y2+TXYKJHFDVQ+8vlP/pXuu7lsmBo4x3+5NNqfl7Zdh+cREHVgYbz7M3I1FL
UPZR+BMO/MppOyS1k8pHc5Vs92sOmEk/DGmlrLEiIl6znbpfV8kyYReJ/3HG
NI/3cGDVBujcvZtE/rcIkfQRDlwUs1wmak7iaG7e+qezHKD5hC9roHzX637t
G2EufP4j1BVhQWL3rv7Xb2S4cPy5jDVakrhBO9ju6XIu3OB0h3MoS1UmhaZr
c2H63A3PSisS3Raho5cRF/SGfRadtibx0LvAKW0zLoTkZ/pq25C4rkrdo8+e
Cxm9VgmDlA90a7y86MqF0NSnh/NsSSQ1jWWUTnLh4BUJjosdifax8gE5wVxY
Zx+8W8GeROP7trMKl7jQBbpO7ZQ7GYGlEUlciPU9vjx+D4nP3QSKv2dxQfSb
dYGJA4mZQba01cVcmKu15B/NkUQ7tacv3J9wwXr87+ATyltqTjGv1XPBypeb
7+tEov7nguryVi4ovw1frr6XxHL9E6vqv3OB15Ozt4/yqZ66rY1/uRB4NNkq
fR+V3/5U5RfTXGj5eXGerTOJ+Ydef82Zw4P1Sfn+ovup/eLCgoAQCR4svKmS
X0N54SHVhSbyPLDv1UwO+I/a/8QLygVW8OC53MRWbReqP32VTpfp8GDJq1sl
vyjrH511tTXiweW17l3pB0hMSs9O/G3Cg4Eo7wbrg1T8MS6LjtvyoOv+qM98
V2r+Xzo22fcfD0yOLOx6TplTPmBqcYwHQUgT8j1EYhrz9/JCPx4EJw2NqrpR
+RB2u8oO54F54ty0TspDbjsKjGJ5oL3+5Lwr7iRG7zno55PCg96dLtrbPEic
N3FKNDWbByOn+AozlIUVVgeUF/Ogmx7SUHiY6t9zss0vK3kQHTtH1+UIlZ/S
GqLmFQ92Nz87tPgoVV/CyUEVH3hg8/azbT3ld/Ujo2lfedC8IVQw4BhVv6KL
r5zu58G2tO8Bap4kjv1c42k8yoMXVuT9LspzdxxPnMOm8nnJJy/+OHWe0Hy7
+OE8Pigac/5DLxLvxW7j71vAByGrf9/GKa87+NSDIc+HIOej8jknSOQ9Yzte
UOHDQE+Wgt1J6vzSVP1LUJsPz7Sf/5jnTcXz88HS4I18yDr6y/0hZe75/RL9
W6nrF3eUuPuQ2OJn0oAWfOjbI1Il40si41WHU6IjH3oDHBLqKfe+P9L+yZUP
99z2qvidIrHM3nCHpBcfkj0Mz6qcpvbf2PAqgzN8uJWlnPaRcjjdfve+c3xI
EzUKPu9H7adba3knL/PhhG8xucafxKdNL/oDrvPBKiQrppuyrJqahP8tPrCy
Nz2JO0Odh+I+Rx2+y4ceveIiwwCq/n6FHjAv54P/IVn3v5R7mG8LVr7gg+2K
3N7kQOr842V7gvGaDwF2wSu2BZG4+1dK9ZMWPoTdqtMcpxw8R6TQ5xsfvsTm
z94MJvFVkADQ+/kwHbQrYWcIiQo6rdHVw3yIy/ryh0FZTv9uqj2TD43ip4Rz
zlLnF5bDZm8aDU/nbxuxCCUxOzaY1BGkofGaU2lsyo1/NwcNitBwZOsKiTth
JFodumFzS5KG4TbndliHk2gq7VdiIUXDM3eLd3Ao2/2tTJuRpSH/RItE/jkS
WXc3y91cSkPVnAUZ1uep+p7ToW20jIaiZOL4LOWOGPM/n1bQcGFakOSdCGpe
fPrP9JgaDWWyxicsL5BY7Vu7h6VFw1vpirdYlB35KxQi1tFQvFVJKieSWl9d
K3W+Pg2bXJQsd0dR+0Od/7coIxqGbQHbacojNVf7acY03GJZQGReJDF0p3iV
33Ya1umdrdhx6X/X3bx+mdEwMrp30Shl+1ZplqUFDWn3OXop0ST6+8QefmhD
wx+Do6oQQ9XT1NpqGQcakq4/f/ym/GjRYSGffTS0WTzhEn+ZRO+h0K0NLjSs
/Gx6TzeWxMPLGkPk3GgYfFi4qouydfPFSrcjNOxwskuPiCPR6zabU3ichrtJ
qy1q8SRWfrWzGvGmYb0oUd5CWXdfbaW6Hw0bd/QP+ydQ/VbhYeQWSMO87tqJ
pVeo8/Sq/T0pZ6n8VH2vqaXc+qyy+PU5GsoXOuw7kkiiotGF/LFIGtbstK2W
uEriw1217TIxNKxaNjlcRrnZ08twQzwNv151GnC4RuIzoYAe66s0zO8uKORQ
Ng569+5IMhXPKgHD20kkTiwzFwhOo+ELr5jr269T59WD7TGXMmlYFnfg2V/K
tAfrjyZm01DSJL8oLpnEfTf1c6/foeH/AQ2oV2E=
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwdl3k4Vd/bxpWUOVKZsvcukiRUpAw9T4O5UESirwZD0mguQilRZKZMiUoZ
QvMgUppUqGQoRcbCOWdvmpT4rfc9/5zrc61z9lrrue/nXmvP3r5vg8dEISGh
0xOEhP7ve05V2+2RvRQu+f/PAIwUvXePPECh2LUDt1Xns3DhRX6ghD+Fn/Rs
jgpVDIEu2ggSAyl0EST5Wtr9gDfbWxpmHqTQVz/xQ3TXL4i6u1IlI4TC7r/i
+1t8/0C6eFSTchiFZ8z9Lgn9HYWxHdljmREURvtM6UgNHoditdB0pUgK/VPU
zQuGhfCmiFx++nEKY+3lD22dPRFdVG1V5aIpzGlW83NeLYyik5WU4k5SGG9c
NBbrNAmVi5xjROIorOqr2SnpKoJFcaxvaDyFvOh72aM2k3FO6YMWLpHCyA4P
7yTtKfjsXFaFRwrZT3lmsNTIFNQ44cG0pFEYMUQJyotFca8WT8TyLIXN8/jd
D83FMHls0r47mRRGCcWc3fZIDKNmhWxRz6GQiXr3LkhZHBduUXqXlEvhYEqd
8eX14ujqVPjmXx6F3uFzGXAXx3xvwWavixQe+6F/S9JZHGc+KtxfX0Bh4/B9
gw49cWQ9MqYvLaRwwSY705K/Yqi2/KBFZjGFVkqpfsVlYvhZZFxq/CqFmr96
U4McxbAjssNzWzmF272W280RiGKTW73Do+sUGox2etuGimLsqkOts29ROFwq
ZLt6fArKtcT+DL9DYbbsN7XvwVOwrqm0pO0ehfNyFF/J90/G3ZNjhJY9oNDZ
z3O2rv1krDe7zyZWUbhaXPAy9YYIfkzrDe+vptDTYGrbEWkR1FO+XLqyhkKt
wwWHZ26bhD1qGUfSn1Ko71Tx27NYGEcMHH4NPKfwb/Pi5eHsRByT9ZkGLylM
z0yZ5rNwIu4v29+Y8JrCG1sX7TfZMQFVnL6v+FJPYfjnihz5JCHclXbUXvct
hb2N74u2+Y9DwvqLcmGNFP4uLDOvuP0Pqmu6ImqbKKwZqM3VF/wF41OPsma0
UriyKz1qzqw/4Hjx8U63j+R5S1TfW+Bv8Azz7C34RGGFUe304S0/oXBonryg
nUJDzxuXJgV/B6WNR0f1Oil8UBikKJ00BGoBvPSD3RRevrpp/bYyFnZc+Nxf
0Uth5ZnnNVZlPNCveP5z7CuFp1Uu0++pftikOusBDFCY6mX0NvxeL7i9M4Nw
HoW6x2dqZyZ3gdZ/N8IeCCj0C+szHqrogHXDr0P/cBTqmKSM7DnTBhs8/hgu
/U6hq/TTWzY3W0BaJ+fe/p9E31b9+78kmqAhWPnfld9E3//6emT2N0KMylvh
zj+k31aNx8TcfAc9pXSDwj8K+XfLAk5cfwcO4W47bMYplJH/r2mlaSOIZfdX
Hp1A46Bs0qiD1Xvo75DvvilMY8c81qvqUhPs4xs19onQWB5Wo1y4qgUCl19J
UBClccPD5d5y4h9ARqJMyUKcxt0W+4p9Bj/Ckqgcv0BJGk+4vhDVbvsEu4sf
ZuVL07huVdf2kLp2CN++Nb1ehsYPQ9OLt3zqgL/+T9z/TKPRzloxdc7rL/Aw
S3+y2gwaVbJDHore6ITDkd9D18rT+Pu7bJphQhcoP19d66dIo83qxxa+W7tB
Q3iH4KwyjXtl3+a2q/aA2st4XqUKjefM+g7JfuiB1jsiTztpGrv+KZzvPNoL
ST5jB0XmkPU9rczwpvrAIa5cfJ4ajS9MDRQGivtArNnhoLk6jfH1Onl12l8h
e/qsZ54aNBocqV6ReuErTJ+//McxTRqzLyU+eSP9DZKmtU3K06KxP1ovf87e
b7CJv/jXA20a1boWvdN6/A0ejHq/btGl0er8qS/p0v0gd7EoemgxjUUj95+K
r++HUwcZTQl9Gss+NIbOP9UPwkaCa3MMaIzxrF6Q/KAf2tqM1ZYvp9GyL+dd
x9d+uBatFW5jRGPxBr3NF6QGQDGvvWa7CY2izEO+l9YAWNYG/AwAGgfAtLTE
dACedEnOiF5Jo3B56xGB8wBwM6pnn11NY20Yp3DOewCKG4pVrpjSaG/qoqge
MAD19V/F7pjTKH0swLk3dABuUbF9TyyJH67kLjc8MgClysW331rTWNddOivg
6ADsDXEN+byORr7x68PdEQOwZ23pkm+2NLKaExSyYgZg7Z8bX4bW06jcNJwi
mzEAc9aHRv21pzHC4edRg7IBqI2YpirsSGNa04lrXrUDMJ+JvCO2icYfW56p
ru8bgK26LeZTN9PoasuxX0UGQYJReivnSmPeq2v3tswdBLc6203y/9F4dEmH
tpTpIDidDvuouJXGLe4XN4S4D8KL+YWuyttp3G4xx9w6chAOdTe2KbuT/RyZ
Yr38/CAsCB93VfYkeryIfTKjchAyDed/VtxJ468lG3SqWwch6oPtNvldNBr9
K7ih8X0QUi7v65PbTfypf8p3tRQPbIIiD0zdS2OSTZyezFwejF84JiS+n8bE
9LHsZCMepFE+qcK+pD8UdYqb7HgQun3holE/Gi8lRx/tceeBZ+TDxuEAGv+q
PvCrC+IBvUDhSH8Q6ZcVLibnY3iwLlvdoOMgjU93tezem8GDBffafjWG0Hjh
d3avWSEPYIJmzfPDZH1RHdFGd3kgmTKadT+cxoo1M3tcn/Hg9rKVkSVHyHz0
Q4n7jTwoce0KyomkEZR+enp84YGJ/OuQ08dpfM+ryd3F48FCrb74wydo9BUS
JLX85oG1tOJNnxgav+jLrqgQ5sOPLxaDm07RuMcm+ulsaT5khbssNY2jUbDt
YcB0BT6sCdRL0Y2n0eVvc2XObPJ7qVuTlRNp/Bx007RWkw96VtWnJyXTeMC+
te/cEj7sHNRfyEuhMdLX9ek8Yz6sChzqbEyjsTKkwM57DR8orcay+2dozBKK
sfVZy4ct8rfTz2eQfvZ2Z5c48OGOaOCZqCwaHyivaXjuwofEjP7ru3JofFt0
abLODj4YLuH1r8ulkWn9puOziw8wZeMK3Twar19ZEXTkAB9ylX9flb1AY84k
xdyAYD5IWhSZDF0k9c6eNtU6nA8zl68aeFNA4zYnk7eTovjg4Rt/p+wKjU2J
3ZcvxvKh3c790ukiGnk+VeK6yXyolUy86VNC/Nearn3pLB+G7nf3mpfSGNfo
IyOey4dq+4VGquU0Ut3SQVsu8cGxyOD6v2s0ur3cMHK+mA9ph+ttm2/QKHOm
cmLrNT4Y+VTJlt0i+eb5sVn4Lh8+jjaMnLhD1r+YylCt4sPAhVeibvdoPMUP
sF7+hA8Pqg+SM4jGs63H3pi+5EPYuZwc8Uriv8ZTvy3f8GHeIaF57VU06k6T
DjRr5oNv+I7Wa9U0epHLndEnPjxpOHnr+GPinwBer2YXH5SPL6tyekJjgem3
PrlvfOgtXPhd4xmNybT1f7/4RF9LTceR5zRqrMeS99/5YOnB63leS+ORN55a
pX/4wBvVu5D+isabMjLzjwkJoGFqZaJHHfHPuu19DpMFcDJ7TeniBqJXuUv+
bEkB6F6O/Df2hsY3uvcS+2UFoLBU/3DtOxr/tNR2lMoLIN1+mk7qexqD5FTv
HlARwIvp7+Tcmmn0kzBboasqAPN0bS2NVpKna5bFD2gIoF34YzD7gcy/VPhZ
vrYAzBLi/txuo/Fdiua/TXoCeBXxpzzsM42vqqebSRgKQETz/bk1HSRvnntd
vwcCODBUXyPWSaPtVFcHL1MBzHXIml3XReO1DpGlstYCcP/cfyuxh+hdlbbj
jp0ATA18jjv00Wi4O73X1VEAFiqv4mZ+o/Gih/KzMRcB8Hbeb2juJ3mYxpfI
2UbGpXttzgzSmN744J6hlwDiqd+im/g0Nj8zbGncLYDCF1njM1kaD1412rnb
VwC33cKWvOdonBDRvGdCsAASNphdTBom9awLG0g+LAA7g+yNtj9o7KyR7VKN
FMCbZ5qmEr9onJg2vLE8WgCq3an+T3/T6JOvbGp8WkDy4lh3xB/yvFy18ppk
ARwUzUo1HKXRqc85w+qsAAazIqKH/9G4YsVjobocAfxsef+gaJzkiaZOt80F
AbxcRmeWCzEoJGm85vUVATjO1R6JncBgvsJWxrJUAFrGO0e8JjLkPscGPboh
gEW5KlmrhBncOaxutfweqb9UzpdZkxhchRppJVUCSP24rPYn4dHaKS70EwEI
/TV2bBBhcL3Zq/TTtQKQHvl9/MpkBo/N87P+Wy+A4bF7zkenMBj+aNjf470A
qt42vNksyuDZ0ZVyrz8IQLTlBH+xGIP78uzmLu4QQKzMwjJxcQbbfeQKU3oE
8GGWlHwn4bbbEbnf+wUwZOyveleCwWeiyVM2sAL4anf1fbwkg90WVp+Lfwjg
eOtkbU8pBh99KlYV+SuAvt/PtYylGTSycPdZKMTCLD94KzuVwYmXnf82TWTh
0dUbVB9h82+mK8NFWDh/03dahQyDlZIPjNVFWTDXf1ySIMvgDL4T76U4C9nh
AtZ9GoP6e29s2C/FwtFT2LZMjqwnOWC3nAwL236M7ZOcTuqRv9rw5jQWno77
FrcTFui8ur9xBgtDyd2J12YweG3uI/a7PAu7V2Uyx2cyGFT3qSVJiYUzqz9v
cpJn8MebNj8dFRYw+LvhfAUGyxcdra6lWViwS+3ZH8JeK9Oq3eewcGntjX8v
FRk8kNXr90+NBbl/3z5nKTGYpmDWkjKPBX9hCZ89ygxevxXL19RkYSTJNc9k
FoPRiem3qrRYiDqpelxKhcEJLy107XVYMAm4IPeJ8NLgEy49i1gQOaVqU0wx
6BMLywL1WJhe3q0XQjO4+PG2pyIGLOw9tOC5JcNgf0yXSMpyFvZrGIkqzCb1
+1r5kzFmYX2R448ewqY+Q2eKV7CQm/cw/vocBjtEjwwuXclC3Zb7zRGqDH6X
9OWqVpP9tEW/XqdG6j3eUGBuxsKb+l0HlOYyqHOqZGqdBQsOZ/Me9xKu9Vae
b2/NgtS6AzXX1Bn0tlj8vWkdqU+5vH/YPAaVr0kdcLZj4dqKpreWGgyu/v3q
3IcNLAhm8zqmzyf+V06O2LyR6GGYldNOuORmlFyrEwtilKpkoSaDqp1vNjlu
ZmHp9Or5/gsYFJ+fZ/fWlaxP+eYvEy0GR3Zq/F3rxsL8ryaBUxYyWFF9ZtPT
bSzkdZ292EDYKVzTe4U7C2HaU6LOajO4W0Rh4U1PFjRzH8tv12Fw/F7OBU1v
Mv5M0kVTl8EzP8fqc3zIfAO03RDhhv6QUtm9LLiKG/66u4jokeyyOnI/C5Vt
6XZHFjOYe7731LAvC47vAlwtljDY7LMzZnsAC1UKMspT9Ri83Kpt3BDEQmZi
Xux7wo72Jy8YHyJ6ftpZnqlP+rvs9aOCUBb+OOTEbFvK4Ad1m3TZcBZqpMNm
zDNg8IrhjjmHjpD3p4+rNg4SrijxdP8SycIv83mW5csYVN9/Y4t5FNlPjgcX
sJzBmoRC6eJoFlK6DWwMDRnU074SNPUUC6rtzW5jhGftnHb2QBzpl6nh6o+M
GKy3s/J7G89CxE3PvOPGDJq035q8OImFPfXP3lmYMGj4pco+IYWFaKWP9yRW
MDidX7eZl8bCJqJSHeEgZ9tZlmdZkP85UpgADJ5Tv3omP5P4oSrgxgZk8P1f
54bRbBaGNY/5T1/JoMHMx48dclnYeNt14D3hJyYufkV5LPDyliqmr2Lw7t3U
dqGLLIjyLcacVjM417RPdGMBC58212YorGGwTvipoOAK8c8ejt9C2CHoSspI
EQtee7//OWPKYKK/+G/Lqyz4eopVbTJjEBR3KJ0l75+Zqp5GCuYMNlVrj/Ze
Y0HdAPc3Ey4Z/5a95CYL3j9fbUmzYHBD/DSh8NsszAtZOWmjJYO07TzVF3dZ
6Ml/u0POikGRpZenTKtgwXL6zdA3hBOtZl51riT/11exjbdmcF7G8Mzchyxo
LIWPa9eSPNB9vKrnEQsnJGxni68j+T9VbPH8JywIHYiY/YywxlyrHp9nLDR9
ndwWacOgsIXklpIXJI8qZqxHWwaLNJvO8l6SPBptjxglnOeok6VVx8KPI2d8
7tgR/6jluu9qYMGAd0DWfz2DxjfKhy+9ZSG0IMdXZwODMn08y85GFrI67eL7
Cec4tXvNaiZ+P3vP66I9g2X2sjYbW0leJkiNujkwGP9+6r/Yjyws2RiyVmkj
ya/DXgGPP7HQBvrOjYSHTl28/budhVjf3XNOOzJ44oNTjVYnC+If1l82d2Lw
V5Nklls3CxO1Zw4IbSL9E2oPib0kf7hv/XcJd9rev1r9lQU7338Fvs4kTx0b
+9l+4s+XEXMWbGZw6gyd7xSPhbEv+Zu7CL+Jcn1pLWDhoHeaXaYL0UuJvz+I
Y6Gh48Qke1cGF5UE9JwfZkEvpSBQfAuDnyOPz3/5gwWZbLWCasJbLMpMhn8R
v3UuTAv+j8F3wjFzlP6wUKEwtFrHjeSDUn4LjLIw8/G5sh7C4WZJW93HWDi1
2KMtcyuDU1L7750Q4qAvav+z9dsYzNyKX69M5KDtquDAlO3kvF6n8a12Egfm
O2XaKggnmRlU9k/m4BAKTfbdQc6foIk7xcQ4CEkZFKi7MzjNiu5Tl+BgXeLE
jI+EV+5QNV4txYGO3r5JCR7kfMq+4PXfVA46rdx01ngyuEZ0+a5gWQ74fuNK
vwmLdwSuSZTjoJ0KfVbkxaBV/Pefl2dwEBM7Qd9tJ/HXFYujVfIcrK2/v2Oa
N4N9PWJ9jYocbHjZZP+EsP3s+rnflDmoXxomEryL5IejDoyqcLAm41Owpg+p
T2b1EmmGgwd2zNU2wsGqKpPoORzIRB+4eHo3g6L6rWXaahworxz9D/cwGKMV
Z2iizsFku4EPHOHtQQ3nrTTI/l29FfP3krxKNOxz1CT1+5Kr5LCPnC/COyS2
a3FwX6fi86T9JI+2fpHerc1BrnePx03CcbBuyF+XjJ8wK/M4wOApXHErdDEH
XY5ilTN8if+E17pE6pH6BDvFPyE8qindGb2Ug0L3zWoBfgxKbZxlHbeMgzRP
o8Nq/gwmqEinJxhycC5XNeMd4R7FkKdJxhxkiBuHHA1g0Ln5T2vyCg72+pYw
iwIZXNiq9jYZObALzT3ZTrgoLaE0aRUHI3kmd+OCGDQ7+N43YQ0HXwxKio2C
yX3jw8lZcWYcBO6Q9/hGOErYoiTaggP7uRc60w4Sf2tcmBtpxUGwQ8jcNYcY
zNq1NCp0LQfh52oWcoSpd6n1/jYcNMcW/M0OIf1j7zxxtx0HPw5Zx1uFEv2f
yNPbN3AQl9v89Sfh0S4vdScHDp5L+onmHyb5a9ehYO3IgX/BGr5NGDnPYuV/
mWziYOUiv4w/hH1G86t1NhP/rJ4rdSmc5G2H8kHGlYOIDUfM1keQ+ZxnUDL/
cRB0pcRslHCUu3r5mBsH43sbpAqOMGjT0r14cBsH6vlTs9YfJezVm9+ygwNx
JpH7Szg46+GkGg/ij4xD0pciSX58EHW86sXBjFxuyPYYyUsXhzPp3qT+mcrn
Rgj3aS17Fe7DgeQbFbn84yQfllgOee7hoNZNxXZtFINd6rMk1u0j9VkF9j8I
18abyi8+wMEq28t0zgkGH75wlp/px0GNweEbZtEkD4V4EiP+HByP6ZQVEJ6o
m/zjQyAHQldHDdJjiF5zOhrvB3PwuV+gDicZfL3PqzDzEAfM9o7PvYTlwyoC
D4WS/pg25Hb6FKlHmK/hpjAO7jRZFOrHMvhi36yfehGkf71EK9sIlyqsK5Q5
ykGLs0NmZBzpF4l0p4FI0m+M3SrN0yRPL8SO1Rzn4Ik4fb2B8JYpD89lnyB6
mXXzAuOJ/+jHRgExHFxsfzQ0K4HB7PPz3lmfIvWp/FT9iHDE5HDP2XEcKBY5
uexMZDDl9OafP05zUG1lXyWVRM4nsI58kcBB5exh3jXCsl1fpLKSOGhNcu5z
SiZ6iJam7UnhoKD9ctEo4R8TVlMr0sh+NISNzqeQ+0DPwotSZ0h/7zmZappK
6ndyfEHbWQ6uxW29/40wP9b8+pVMDqTNC4rj0oieFqlGgdkc/A8ZPng8
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd13c8Vv8XAPDnubYoZUbuvaJEokFkdE+RUUaFNEhlpSQh2USkMlJWGfkq
KSSR0kBES0JCRqi0CBnZ43f6+cfr/XK9nnPP54zPI3Po+E4HgsViRbNZrH+/
l5a1P5xwJWHd/396mYmcRvvQEyTwXOMTGiD+MDdeX/ea50mChfVpkVs7h5jV
YDoQ60WChjDPNp3oEab+0Mc6MR8SpO/MVIs+GmXCH22SvupHQuCSmiRW4ziT
yB/eJBVIgt+aDvXEL5PMrF3qbHIwCU6Gz6sjP08zuXL+iZKhJBTqbNu1sm6W
KeISvp4YRsLdR42pS3axYJ+smaxwBAnr91Zm5m1gAy+3pGTUeRJ+Jyxxjl9I
gFTOnnNcUSTsamRG49oJyIn64+4fQ0JKzAjteoUDlt4t+TgYS8IYp3xZpz4n
vLyW8tQhjoR47YTAm185YcVZB/pjAglzP/u3+LlygatSH5fRFRI8Ri4mCX3n
gsuznMeLk0mQaLGeZOlyQ/gSP5vlaST0SiwXyTnDDatsJBsupZPwzHLNC+1s
brC2yq6fySBBcO0q0fhCbrjuPLDXKRPjb37i+vgmN4hVZLvVZpFglqUzphHB
DX8croqszybhdXp3lP8+bpDb4GOYnEsCd6S+pZgsN3RwzQnO5ZEQ7mEkPNTF
BV2hXY4H75GgVSHJGZTABU22tRYVhSQY7Bflr9XjgsjNvi0yD0j4mqkYkfeb
E4Q/Ro4GFZPwMVSg8EE0J7xrunun/TEJPi6zj/et5AQX7nMsjRIS6OGj7WMV
HFCr/+RPbBkJdy7YyH+w5IC2hO9BPeUkjCj2Jql0E6AqdevupkoSuoeHZvVc
Cfgmd/V04gsSVrxTnTUbYcOEusVY7ysSPA1nA2K92DC78OgippqEnw1e2eZ/
WeCW7/bhYg2eb9OGu31uLJC2Gtn4uZaEXw5Op6Mb5pgjCSHmq9+TkNyyeebh
s1nm4o5M4cAPJOQfabAPyJ5hyiu/Br9pImHi9dIKjUvTjPaFihTRFqxX/kTd
QJ8pZlfm88O2bSQocE4ayxyaZBwDHb9nfSJB0tetVMN0gskekhcf6CShSKDU
cimMM5KWIdOqX0goq9u7PExzjJE72Zfo001Cgcr5I+Ywytjd6Oh5+p2ENaqH
tr+1+MuoPX01OvsT61uPmzfIb4TZLbukhOnF+Pdc1dhRPMzYNugzQX0knIpk
q0YuGGaU9t8PLBkgYf/B1/V/w4YYk+Ea/8lBEm5I1bybooeYnQ6TmutH8Hz9
Vw1Ofh9k5qukPXYbxXraOW6W0znI1HlLzdweJ4GvPYfLjzXEnJN+z/FlkoRW
7hNV+2GI+XaXqpOYIcFUtVyoM3GIsQiytTOdI+E8u/rHZ9Yww5faUxrCpmDo
hctlL69hpqdLvLuIg4LXGeF9mSPDzPF+rQ8/uCgQrHaVN/QeYbw23L4owUtB
zPMZra7ZEUZoXr6kIT8FZ1RuVfuH/2XWhad5eAlQkNOi+DNVcJRxyX2Wcn0+
Bb7hvtrU5VEm6NCBxFohCtbyrZtZJjbGTHlW2U8uokCz5cLCRQljzLMUNW45
UQrERFRGTiwaZwJCR/yNxSlo0y9pGT8/zki90n3jsZiCufSEYq+5cWYFh93A
FSkKLE6e66g/PsHIVcf0lUpTkCL2+A27fYJpKeZ68YWiQMY7a+E8vUnm0tFZ
H66lFDxjO0pMZ00yFlH3+OXlKJi3Ojywh2eK4Wu28DFYTkG0nqjIoN0Ukyqy
5KXjCgqCPmaD8tMpRkRhw98zihTQ/rxVFULTzKVF7ZwZShScXD5TWXdwmtnd
v3asRJmCm8pu/H53p5mSaeeaj6sxvsU2Xt0T04xwZk7E0FoKRj+oxatsmmEu
+NCK89QoiOrV2B4YNsNwaA0ULFWnoGph+v3BFzNMe7u23IYNFFQ0B729zTXL
FEQoBZlqUTBmNRJatWmWWZzRWXlIh4Ke4p4rh/xmGaM3J0dPMhQ021kmpRbM
MlVfBUQjNlFgsJh8H/tjlhkULZe5oovPH2U77pGcY3LrcqVvb6FAUkZ3i+C2
Oaa29idfsQEF4QNz2lU+c8wDMvJHlRHGlxbOkXRzjrkrlfvw/TYKflzkN0mu
n2Nc/az9Okwo2Pnh8qLuyTnmmPHddb/MKAh54PbUVZgFxpP3Pw/twOfPVptT
iixYusM/fMqcgoz51cnzN7HgTfAiWY5dFAzHZ9b8smKBAh1azLebghfO/mqn
XFlwYPVHgwV7KbBNvrYv5gwL5tGS74WtsZ40MzgkrrLA9p3ZbvH9FJg1SIay
7rLAKjqwbfEBzNc8HhHmOQteK2RbSx2iIOJOZOe7Jhb4dn9ol7KnoOxYW0ze
LxasDJqzlnLE/+eU3tI5xYJkTYWOxYex3s6xG+wE2RDeanZQ/AgF6xxC1gHJ
hrhbx38Iu1AgfjCd9lFmg+mp0BMLXLFf9HLeCG9kw9yNMyx+Nwo+tR2+LmrC
hgTyaDyHOwXXsv00zuxjg/+hVWumPSjo5P8l4eDMBsfQZx+GT1KgxVdcUYLz
kFopcbrnFOZf4UTC5VA2mKQuV+/yoSBdvPNdbwwbVj5uH/vgh/mq6fSrTmYD
w1asfBVAwcckpyD1LDYIxE2nPAmiYMJDOFK1gA0PNTaF3jlNQbD5B7mXT9lw
x/rrqbRQClx0bFKHX7BBR7zGLzqMgm8vRKVK69iwSulHTMBZCs522SUotrJh
2/zFRUfPUWByQald+ysb/n42/L37AgUfdnrGjPeyISVo3/otURSkKi5YeRDn
u56XatzqGIxfzYLDdxqfF3zALRVLgVFMjYE+J+6HreXRnJcpCHvewfl6HgGH
f6ut6ouj4JH3/mVcwgRs9hr68iEB41OQ8ZxZTACp9CH/SRIFyx96pN6nCbAR
f5j431WsH+Ow1avkCSjm9UoKT8H+832W7ryKgNirPYVH0nA+vRY2cFlHgOa6
vh6TdAoUVBXt1DcQwPBYblydgc+Lxy2p2UhAutR43sIbFBzQ+xyqokeAgGGO
zlAmBeyu3MsHjAgQ27C5tz6LgqaXyWsOmRLg4B5TnH+bglYlU5X15gR0bre/
GZ1DgY3Ilm0dVgS8EYgtOnqHgj1OT9dYWxMw9KT7u8FdCh6u8Q24d4CAcvNV
WrL3KJjMvlzcaU/Arhz1wpkCrM8rK2x+HiYgIaDWrPk+BQlXRJveuhCgdbRs
Yf4DnCevUoOi3Qhom66bOFtMQY2pwC1lTwJ6b7zltX2M/aZuejHvFAEl5T64
g7C+OcNcFvgREHgtLY2/FOvnwCX7nYEEyPuy5DvLKDixLTXO+zQB7kF2LQXl
2F9krGDoGQKq6s4/CHuO51+U0Oh+Fu9PYRplVlUUyC+I+Gl4noDv2atGVrzE
+XFrvwZ3FAF/jRR3TbyigKMr5U5ODAFGDn3fXr2hIC2uQF7zEgF906o3Et9S
4G1iE1AQR0DdgtJYh3eYPxHOANFEAs6n6t1dW0fBb70FfXZXCFh9K3Rmtp4C
Qy/tyLRkAiTWqwW8aaDg3bP+hS9SCUg0X6QS34j95++n3HaNgNciDcK2zRTs
zva40PEfAQaJykorWijYur6nuu46ng9Hm/efVgqsFB9GFmQSoH8xavJhO543
V7H9mSwC3gZP3gvswPjMBL/p3yaAS7Hxml4XzvcYyyuT2QScGKqt5PuC/VHy
jSc9l4BlFiky775SkLln7p56HgH2HT0PYr/h/FDmFKm4S8AW9aNhFj8wv0NZ
mcw9Agyl30aJ/cLzr6Va8wswH4ef1DX3UEANmNFi9/Hv87+bJv2m4Bw19uV4
EQEx5Djv7n6cN7kfI0ofEJD9OmVO7A/Ww6luT6KYgIe2gesaBylY4WrDrf2I
gIs79TMvDVNwyW426ehjArarp1qa/aVAyEU6LPYJAfUvFbfMG8N5WlFD5T0l
QLY73vPFOPaDCetJeQnWe9yZ7uBJCp6+ych8W0qAD29KvOY0zs+ykpW1ZQT8
TgmOGJ7B/K+ITXj9jIDRj40lOXOYL858paflBFRrUMn3WDR8L5Ncm1WB9bxM
eSKSTYPepd0/zz8nQEn78IQTQUP++5hop0oC1qRLp2zmQJunHtSpwvwLpn1e
wknD3XeKKQIvCIhv03gzik50rvRqRLOmtHfVcdGgdKBPPuklAfMnxsNuc9Ng
1rqu2+IVAcOzj/eE8NAwPabbMe81AWXv6+r38tLgJDWpX4Lm/Xi2fy0fxuPj
aeL8hoBIoVX5/Pw0fB2VpYSqCWhdIij+BX3Gpv3HPfSQtqfso3k0dP36Wm/6
loCf2/MaYwRoyNtIcP9Ah7VwKzsK0nDhWXSObw0BP8ZfKWnPp8HrYOBPvncE
LPFg3i9cQEP5Z7fPceiKvPvkD/SyyJJHUrUE/FfkvuipEA1W7kGX09AGas/v
XFyIVvkvRrqOgNSggT/2izB+1Z81SeiQC9CuIUyDa+aci1A9AQf/zh4XEKHB
8nXI+TPoF3PuuZ3ookU8un/RQ5e7YwtEaZhXtazg0HsCXDYn02FiNBzTDBt6
i07S7dhtJU5DQs1nadUGAsB7RFNBAvN3VMwkCb3yiNzLSbRLg1zSBPqm8f2Z
6sU0JAXqiO3+QIDwzK+OFEkaqnVffipEe3LMO3pMioZPtxw5BRsJmLhknaGz
BOMd4Lxmhw4/LxsmKE2DcntT+UO0zskbwp/Qc1p2wXxN2G8XZE1zSRoiFM71
7UaL3OtW9aNoeCYaLnUT7eq78pURTUNH/JTUINpthRavhAwNQ+MjcxuaCdiR
s+vvN7RH1u/mYHR6xrOYwqU01JnWF1ah39k8aQ6WpUGyjf8670d8n/aIGhM5
Gkog6L4Rur72yAnJZTTISCSORqAtrmQ8/44WFNx86gVa0OREZcFyGnxkp3SJ
FszPPXHPQHkazjW8ddZGF2xsem+0ggbNWYu/nugBmb4uEQUadjx9NZSDHtJM
SetEE3zjxz6j+UhZgWxFGh4b7XAXbSVgvUi5gudKGg7e7+Y3RN+UKhrTUaLB
Md5psw9a4aeOF88qGj54qcveRmd8vZJZh05VsHnYjA5U5gm/okzDloIYXq42
AhTTn4sfUqFhvqQ6vQYd+FJgn+JqGq4vO85jjV7fS20fQu8b4nsZhrbm1xx7
tIaGGd9LTnno0vbE7afX0sDiMhtsRO9qOGltuI4GhVO6LtPoMgkhqQWqGN/V
dV0y+H06OTYjshFdvCXTQh/N9enwvWQ1rKeTX+qc0ZMWaecOrqdh186pfZHo
yvmBovLqNExIv5q+g7Zr22z5G80p0fvoHXrMQN7ongYNS7a+v9KPVkxzGDy5
gQZP/UcZgp8IiOtWN9XUpKG9Mbt1JVq2s9l2Fn08IcTACB2yIGh5hRYNgRf6
+x3QwUWOGWHaNGhfc2s6jT5W+7LBUAfPX+wARyo6QrLt8byNNFSO9/g+RO8W
brF6h/7qJL65Hi0+OpF9kaHh0J9Kmx60YNnJ+zuBhqNv7rwnOnD+KJ7xFNmE
8QgdzpREWz607m1Ea/Y5tq5B92WsX5y4mYYVj6ZOGqJ5+w1nrXTx/EWt/Pej
P+19c1VCjwapiXODHuiBY4P9H9GvCsJbItBOriOTSVtoqP0uo5GKdnfkK9ut
j+cXLLzwHjpZ1lFLwoCG1uQxp0r0cnVwa0bTzmbQjHYefWuTYIifxxWS+gst
77eJ09KIhrdmn0Km0N+uv7cT3krDg3sJwwKduL9Fivzr0W++Vw9Jo53VpM1i
ttFg/Cg0VBm9Yj3TZmxMA8fjvFsb0Wfnmcnwm9BwcVDewRTNOhEs8xL96kLR
Ext000/u9lBTGgwC+O66oF2eiu4AMxrcZSs2+aGTpjuDp9HSnUe8zqH/nk46
Wrwd58Ntf7NEtHrfiYWeO2hYl7W/9gbaPyvNXWUnDZ15juP30Clftsf0oHUa
W96WogOvPHbKNKdhVd9v02r0wYuC07YWNLhxVwU3o9dZ+hlLWuJ8/nHK/iu6
nVHb8wH944zAdD860t1lafQuGn66+RlNovlbd9wysKLhtPFdU64uAghlsV7W
buznNWGCQugdg796HqELxGvOSqK3u89kue+hoVlna5kcWrY6eOnKvTSEhBUW
KaNnP1/f+xWt0VDoooH2cU7YnrwP+/lwz7dN6Lqus5zm1jSoaPcu3YZWjcvy
4rehQd2UWWaBFkqVyypHs6fs+63Rll9WJXjvp+Hk1rogB/RTiSFdFVsaFHV6
W4+hxZ5fy/+G5hUXY3uhL6x1aE8+gPsrK2s4AP0j3O3ljoM0VMX0FYah2/MG
TvAcomF5uJJuFNrgsFD7U7RCUnpGHNoXWNzudjT8cQ5oSEb7xf0eWG6P+fPo
b8pAm8QSV9vQfhvF826jVVSPc150oGE0WXhvPvrLVlsVPUcaLneNtT1A93vM
SY6jGyXqVUvQnaT/yxwnGtQ2Zjo8R5+LZKvZHsb9f8Tj+Gu0ce0Tu0XOOG94
VM1r0Turm8yr0OYcLQsb0bXrA7m8j+DnT5jktqL1rn7yVjyK/WPnLduFLtlO
57Wj31aqe3/7l8+IE5nRLlg/7x1yetBSm6b3wzEabNOaSgbQ3Nt7WwfRb8t2
54/8e39r58XXXbEevYtCJ/7l73O6pMVxvP+05GvMop+oPO3gdMP7yW++OuIz
7iPnbw5FaKNa36086Cdn9fMdTmD9fyq+NQ/9dRdfqag73h9qPHsXoL94W8VU
oR3e7xUWQWfb75U76UGDwJNFMhLoBEetADlP3M9CILoEfS1d9moDWn9dyB8K
fZVf2y/kJA313p6FsmhX9zv0Gi/Mt37efnn0dv/0851oj1XPhxTRExk6j6JO
0TDFoeumjP6sfidXyxv37dyj5jVoLztxh1/osnf5Cmpo82U3viT40LA5L9dR
A+1t4bdMzxfnb6hKjBY66FrlqkG0/eDD6xvRzZFZU6l+NBw5Xn5jE/qv77aY
rf402O2vvKSHjkpv/jmKTpde72qAfiXgwXs9APc1dU59K9ozS6/fNBDvT1NK
A8boTWs8rk6iz4ZGx5uh+3WXCd4MomFRk/jKnejgnaf1dwTjfdJ1db4F+tTt
O/rT6D8aOsus0HOudYJZp2kg/0s/vwe9/PqClB0huF9vPO7ah+anYwen0OTX
n/L70UJXfeffDMX6zw0/cAAtmj44ZHYGP1+o7/yhf/lPlro2gZ4bcM+yRwvU
SwtfD8P9yXvsgSP6ja20mXE4DTfYysWH/+VnM2P+F703iPvOEfRms1tU2lnc
D4pb4l3QleoB9/Uj8L5Vuv6EKzrs3JeFA2j9xcs3uaFZedPqiedwP+pac7mj
O3oGljPnsV8C6FIPNH2oq+M7+phx8dGT6J2LhmyjL9Bw84zT/FPo4ibDbLVI
GkrN3W56o/2ceEvb0euNhVV90R/3WCSHRtEQfzzmoR/amN6+WTGahlCNpWsC
0FX8VGEdOvkGz3+B/85Lv7vPKwbn0UZfnmB0ZmfF0JKLeL+XK7Q//S8/pZ/K
K9DR4j3FIejFOVb7DsfSsCnAkvMMunyreZngJRpeuigahKFLZYb7CtDNRSmn
w9Etl/b8sLpMA/evjsKz6KzOWznT6Ee2Szsi/r3PCg6t/+Jo+KybyDqPLjl2
Pn5LPA1BiS5SF9AFUQee/EJPa9UpR6LnG2TlRiXQYDrRrxmF/h+lwMD8
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwdl3k4ld/XxnGG5yBTKjKc50FJIg1ESc+tRJpoklRfRaSkoihkKFGpRCkV
ylApVGiSkhQqKmRIEZKhTIVk5t2/9/xzrs+199l7rXvde+191Bz2rXUSExER
CRMVEfnft3pOzZOBvULM/f9PGzuQUrEjyF0IxQUfgw+Z/mFvvEv0kjwoREjM
9BI3bg87C6t/R3gJkTW65b5uXS9b6lBVMslbCM/533oefOhnQ56aql71FeJ9
Slt8UNEQGyURUqnsL4RPCHW7qGyUHXWMHY0OFEJ9lppE/h8RpE45EqUUJITj
seyGwENieMSTT4wKFmLrRTZ31hAHmzWsNORPCtEx7r015c2DgK+kdDZUiM/H
tovadPKhnLLpFO+sEBPlL+iF2QqQcvaPx5FzQpw3MKPxSBzq97OruiKE0DWc
4KkoJok312OeO0UKsfbne5maheOgdcKJqbokhGhN+RIHRyns1engWV4h+W+7
8vnsAWlcGOXuy4wW4sXfzwXznGQQouK7VfOaEL2Z0z4FKstCd6tS2fk4IWyf
pl3NOCCLLRuTS0cShHi4zrT2VpYsEnf9ttt5U4ifIT4zmW5ZTHqVvL84SYhV
xzoSrinL4Y/T1QnzkoUYVC2LdzGSw5T53suiU8l60SUzzlvKoZY3JjV2T4h/
bi1zONZyqA+qd96eLsQNmQHGb6UcKu2L1796QOa7NqVeZ+VwZrHPF7XHQmyr
XTC5Y7oc5KvO/AvIJPHcSv/7QVIOHyvv363JIvpH/HWPbJLFHv4pEaNsIWJi
DXYHPJFFsfmzPxE5QswXTVfNPiqL6kvNAa25QsiVB7x2M5OFvvLt+6Z5JJ7L
zb0rxmTQNOXq0agCIYzyJbY1OMtgwHB9X9tbIbLzlkjezpHGqJzreLZIiEta
ig9ixaWxP21/efgHIZJMvDtemklBdePfRd+LhXCf2jZ5vPs47L50bN2sT0LU
766ViA6TRPiam/L+5UKM19WK9YqVQG7ej8DCSiEi6wPdv8SKY+HpVzETvwjx
7kD1kHK4ADY3X7vYVwuhEKCjVHCQgrO/c3PSNyGc01PtYlbykdw9TeF3nRBe
U3Pk7ivyoLTh2LB+gxDxm99ZuX7lYIpnR5R3oxCUaVPO3QticLxR2/q8WYhp
Ku6en81FYfD87b/Rn0Icvf814l3HGGuroZLNtglRV9i3RspqhLUvM2cDOoSw
87WO9s8aZHX+e+if/VuIb3kXFwmM+9lVPR+ODHYJkaayIb/4Wy+71mlwwby/
pP6vLPclZvSw0nrXsvb/EyK8PdQw9H0XW3JYeeROP9HjztXifq0/7CnVT5yG
QSFyp6oeXnGyg226T5cojggReKGkXJ2c3/UB9o6rx4QItpmXnrnsFyse2/ri
mCiNl0Yf+qRzWtjWeoXGRxwaw0UuikvPNLP7Oo3LW3g06jobRapuNbFe8++E
KwpoVLv86yniNbGykmlKyyRo2GXYJeTHNbJzQ64d8BpHY5dJTv2k/Y3sntSX
MYnSNKQ/zXV+taeRDXDYFlUsS2PbeanF3uGN7NDB/B2D48l+H1dKR1Y0si9j
DPhTJtLI7I50ETdsYv2C/h5ZqUBjtIOqcEhrYpXfLik8MJmGc1JYdZpJM6vF
cfx9RZmG7ajHgH91Mzul6FzHC1UaPLHdhW9CWtgvmbyCBpqG1mvBg18Lf7Ln
XUe9eeo0VjfHG8QM/WTXn02XmDaFxq3fbySbXxI9Pq/3ttCkURP4QWrC6VY2
doLKG2ctMj9Vqi3Nto2dMH1+73FtGldo+3t+Wu3s+fE13AQdGvYPVXiuA+2s
beecvuyZNF4nzFh4obCDzR7e9aFqFo2JFN2iH93Jyt9MOdk9h4bZ2Hy1e7t/
s6e9GW1JAxpbG87PXKjyh+UY/85QN6SxJ/3DpvHH/rA1NQunzJ9PY+OzkrWp
zX/YjJM6AauNaVRE2cc3WXaxkxPq8hxMaFztzLSJT+liLQs9/3myNDrwu++t
ZDeb/2PcxJOmNCSb8k6v2N3Ndk3MVbuyhIa/aclblTfdbGpJquqdpWT9zYbb
9NV72OLin+KZFjTc5m/bfta3h30sPNOSb0nqHbbo8dSyHva+cuqTTytoJFMx
WSNaf9m9vlt8a1fRWJm2T03R7y/rtvL+3F9WNI7tlVF6UP6XXTn48Hv3Gho2
ua/XDc7sZdXXHAkZWkfq+9pr+aLTvWxh4HgNjg2NvJ8qF3797GWnM0GZ4rY0
Vl0JW+5n8Y/dNqvKQsaOxsUpk0fP3vrHSjJKn+S30HCsuDPyktfH2n+0slX4
j8b1z4nihTv62I1h/tWTt9F4yJhb73rdx76bnrxF2YH4gauatkutn/VpLK9R
3kFDe+rWedf9+9kZAWNblJ1pJMQZlTZ97WejF0yvnexCo/7Acj1m3gAb8tVq
u8JuGnxdlYJ54QNs5O19LfJ7aFgVXBic9GuAXX0oyF1mL431lwucMzDIjt04
LiKxn+z3znz+6KVB9pLQ9SLHg8ZQ5vHk7rZB9oiD7uzhAzSyuq2DQ9kh1jno
ZXmPJw3fls6cVxFDLD1D8WjrIRri5wM0rjYMsatiNQ3rvWkEmlWOyc4ZZmdk
1fSV+9JQ3CPZqhU4zLKi2nlv/Wjcq950vPH9MDsucjjmWQCNyZ7c1RaKI+wT
I9Ogu0dpeHbp+GxwGGHvbvlx6FoQDerOnffyKSOsicIH37BgGhI+giMnukdY
XZ2Wc34nSPzK4oqPjUbZFdKTH7meomGg3XXgpt8o2/t9WbvtaRq9L2ZHbs4d
ZWMCNs9bepb4Z9XPa7WcMdbMSz9y1jlynhPLP+ovHWN7pR7zlSNoxMW7uuwI
HmP1l+eGcS/QsJyUlXYgb4x1aTfQ7Yik8bau1UNfVASLvbobyi/ReHdhjcpN
WgRCnfK0Z5dpaITV/QgzEcFWhSdR8VdpLApN+/DXTgSZAq/LITE0dH4ISr8c
EkHE1dYHu6+R8ztZ8jMiRbBgbkfrqjgawX+ePtVJEwFLbVg0K4HEs854SVyR
COKU++/J3aCxrG+N7rVmEYxblmLSfZPM7+CqTRcVxaT5i9tKk/5XT7fHS5RF
4eRxLjPtDomn/NbBP/qiqLPecSsshfixvax09mpRFI6LeOR6l8YUC9O5EjtF
0f2ssdniPg0x1cgO3wBR5K7TNdZIpzFWLr70VJQobFIMH4xk0AjLfuWmf18U
l/yKrT4/JP6vnngmoEAUxq45cmmPSf943vZwzzdRVA+XDJzIpMEcFnaO9Iii
7cZ7gX0W8dPhbzMNJMSQnevNGjynUZwqv20CIwb/69euSbygsWBm8ZZYAzFM
8xGZVpdDo8jjTnfpcjF4BDh+ycgl/cRar+GBvRjyS0IfB7+mkYtldWYHxaAc
bJSzMZ+GxdaYiJCTYmhO1v2r9YbGhdf9kT4xYui11LYZeEvGx9K91dPEYOnU
0fS2kEaJJTc/4LUYOob1b0S9pxGyw73rQqUYSmReRDh9JPsPKu/b9ksMobFm
9+eU0IjfxtxoHhLDrNtBI6OlNIzvtrZPk+ZAcZ6BX2EZ6V90aMxUhoOodeP1
LlbQUCsWHamfzcG7CWXy9p9Jv0m5ZLV5CQcWUTN1tL7QuF2k9OHieg7qONWH
/3ylYa0671aEEwfm4WcHn9QQ//ilcqy9OHgfOJjuX0ujbGk8/1MIBzztiutm
9TTcd1a9VYziwL27OE+8gfR/xd4tU5M4mLo+Ru3jDxqhMx9/7H/MwY7a1scR
TTQ8jGZpRBZwsNTQNXh9C41/DrxN/RUcLFN9f3bSL1Ivi2gXzSYOOlyelXxu
pdF+e7UZ/ZeMSzevvtxO48Pim1U/xLg4J+wX2HbS2J7sN85TjovkdzFjk/7Q
GHQyyS2juXhi7z+3oovGJnbkk8hMLsLXmt8830PD/NcDxRFjLqwNYzdY9dK4
L7Df8c6Si9I32ksl+2iM3NMOct7IhUbjxYMF/TQm2EWZVOzgYlzk8cbAQdIv
gq5tnOTBhbcg5uKCYRpV5RXh2gFctMcEnuwZoWEkGXFj/Bku/lVVZKeM0Thz
UWx58WUuiozo6HQRBg1im/W33+TCZurMgTOiDBizlvHv0rnQWegysFOMwdFy
3QjqBRez41RjFnMYUJ8kNqoWcvFe6tp3FS6DVzJFAslKLi5WGxX+I1ytZ25R
+p0LkaGFNiU8BsGFfff3d3AhPdAffIfP4MADhW+/+rnoGc3adIxiEGSf7mTC
5SHnU0mpnYBBrk/WN1cZ8n+g6kTnHHEGCve0Kj2VeDgjq5smIcGg/jb/2+ap
PHxVkVJoIHzC9aSfcBYP3QsPajyVZMD7Tt70C3j4aX2v4tw4BmXvQ5ONl/IQ
/IU/01mKwbnxv9koKx5a+t/qLJRmcNO+IbB0Ew8qB9hPcjIMXE0D21odeXh1
76GwhXB3nPfQDzce4h95jH8uy8D4+RTt7EM8WBi8vhsux0D23JlOr6M8xAb8
/rNjPIPDrwOy5U7zcOw0aozkGSymr4uHRfKwvXd037gJDMT9XZe0x/JQMOaR
Wkd4xoZ1X3SSSPwXGiMyJjII+JhjaJ3Gw57F0UzwJAYv3dXe2Tzl4fKSWtuN
CgyUXId78YoHHP67YLoigwT3v1NkiniYsXvKm0HCL5ZXZeWW8XBr5cORoskM
0v6lKm2q4UF+5FdtjBKDvqOZNysaeTjIkXR1U/4fn3lm2MHDwPktCSYqDGaZ
yWYF9PIQEqoRLKXK4Med0JG7IzyYeN6Q/0ZYLDul/hWPD95pjdWpQgYdfRef
v5DiY0J6o74vzUDXsuVn/EQ+9vrMeGvJMMgoy322R5WP/VrGAkU1BnPcyk/R
U/lYk2LT20TY6JvDrSwdPuISXp57oE78WLfKcZE+Hx+3PvscqMGgrl1JLsWY
j1s1Jz+smkLiLRgaFVnCR2nxbnelqQxOVVT4YDkf668kvG4mnGJhWbprDR9S
q9zzMjSJPzmZq/xs+ZiRrnDQfxoDi10rF/ja85GxqPKTpRaD/bVjdY7OfPxW
66ifMJ3BWf34EEM3ProXxFyrI6z69evBfwf4EBdqjEvWZiDz0+hPnA8f8ybk
Tj84g8F4jp6J4VESn/KjPhMdBtPlhNefnuBj+k8TL0qXwYLiTbZaYXwk/Lhy
s4TwZuOZyUGRfPjPpEKuzGTg/K2xvOgqH9pxrxUc9Ijere8UROPJ+Jtxm7Vn
MWhbMTtdI4ns10ZbdxP+7uNbO/cuH1skFvQ9nc3AfKlSzewHfLyoibI+OofB
oPvFJtWnfNiUeW5ZNpfBziXnDPpf8JGjKKsso0/0qX/Ly83jIzoi4UwF4Xlx
mucOF5J6fnNJjzZgIDX/oThdwsfg+munts9jsPLL7dSHFXzkSftPnGbIQJRx
vTe/mg/H6sUb2gnf4140u1fPR5/FNMt0IwbZcX2J45tJPtecujznEz81XBPZ
2cZHZKPh6gULGIzOqDib8ocPjbrP9qOEt1dr+tf38nFMJkDzlTGD11lOHP4Q
H4GPnBOCFzK4tS11tYoIBbfiN2XLTBhoeG0P1+BROKlUnSW5iMGqzgX9yhIU
bOW/bPxIeNZ000c8GQoK/waSw1kGoZxPvfXyFKRyPB+uBYM3lYktdxUp9Ggf
PzjBlMEHx7dP9qhS2PBkS1sF4VMZ98+rqlPoSJg3OWoxA++v2jdealIQdC4b
3biEwZGXexVsZlD4Zld4VdGMIe/hSQq1ehR+u3V1VhGO3jTtg60+hZ17/w5e
XsogOVbWscCIgoezeI6tOYN/pWmi00woRGs4GytaMJAssSn1MaWgaYj9nwlP
c88byF1KYde/91svLWOg9WNWwrAlhWm+ptwNlgwe9C7v0l5NoSnxk6P8cgbp
m4ylVq2lYDnh0ZFSwhUlt5QdbcjvDVStzq1gkLoxzdTNjoLWPLZ65UoG8qZD
ia7/UTghaaUmsYrsb3bX+T8HCiLugWpvCI8E7b+71JlC5U9+TdBqBvGnPKPV
dlPY83ziGlgRvQ0813W7Ubg8XBc4THheYkbfE3cKvUcvu2ZaE70kRu54eFIw
7HCXO7iGQXhY+ml1bwpHkq556K1lsFQiO/vNEQoxDdbnWglfKond5hBIwf9K
1s6b6xhYOzpFdgdR2B4uNWy/noGBRtbhwycozN3gu1JpA0Pee1U6f0Mp1LAG
m8oJT2q/VOwURuGMxx71MBsGJQUOAR8iKEh8XXPbYiOp9xVzuxkXKYjNnNQm
Ykv8s+yXX8BlCmu6frU+JTzCDacKoylYe4wkeWxiUPmRniB5nYJGUaD6DDsG
92uFLxcnUBj9nmj3g7DBhMfT3G9S8N51yTp6M/GbbYbzpdsUSupPcNdtIed7
KPhyRgoF/cgkL4mtDC5ILq/Kv0dBNnZKUi7h5Fs5KEknfmvQvXT4PwZfsKa9
9CGF54rdS/TsGTS3y/cWPqEw6fX1tCbCZZffHnyWReH0HKea6G0MPJZ9O56Y
TaElZP+bNduJH5buXRT0kuhx77c75cCg3Noiy+41BQsX2ZrnhD0KGmW1Cyj4
QITv4cjANP+gXddbCr6R7b81dzBIXF51L62IwqoIsavVhI8tvzHV5SMFPf19
3HAnBi356pUKpRQaltvrmTkzUPyy7nNOGYXOA2NK/YQr8zvZbZUU6oRH3qTs
ZBAx6KA5UEXh1BlRA3sXcl+M/xIXWk1hZfEzx/G7SL8rm5s/oZbC2qLKdfmE
d2jJ3Ymqp1A8z593eDfZX75ou/wPCmZXvx3WdmVw5fph7skmCtnWzL0awt4f
O2/2thA9T7rfDNvDgA3ItdvSSkHZdPg/uJH115sZPm+nwLdu+9pF2DTytNXE
3yT/LbsmJ+5lwKHcnuzsIvp9j1Nav4+BZnHgsQc9FJ7pPa/l7mdw11Q9r7+X
QtyuJqdHhMUe7z9n2E/GT5inObkzMLS17ts3SOGHjfiLiR4M/nbtlk4YJvoc
3ngun3DOo1ktH0YpJO+wm+J5gIEV58uFHhEBLjkb+005yKBguqOmPEeA63Ea
V8sI39CMStPhCXBVYqHvMU8G7xz4ZqAE2Otxl5ntRfqr67juVeICWB+JC60j
PPd2cdEGSQEGEkyenj1E6iGzuGGjlADfDe+mGh8m/b1czXy9jABejgpOvwhP
VBqkVsgJsG7qjYZL3qT/XNEwWigvwOH1vlPNfMh7ZXV+87SJAgRcz9PtIiwz
uUJDWkGAz2eShmJ9Sb5OimOdigL0+qw4t/wI8XPRlJOFSgKcjfv88x/hFanb
PsapCPB23AFBoh8DlxLOd3ehAAeTzDpX+5P8RBSLTRgBTGcfuDpIuCfGO4mr
LkDnkqlStwJIv5pTdbhAQ4DAtUfN1wSS96LskzVBUwU4dOeu+TBhvQo3GE8T
YGxviVTSUQYbxrTWdWoJoJkoE7PmGINGn9aoGG0BJJiIriHCydqhKuY6Ashe
9ZG+FcTgvfvjzlZdASbGdXVbHSfxPv2rfFqP6B+tfH2AsPi/+HTN2QKMK1WV
Twwm98H0nufZcwQotFe1WhlC8m3qXW6tT/RZzK7rJez0Jtyl1kCAxVa36Wsn
SPz9QeouhgLkGfo9ND/JoD9pV3CHkQDBpxrkfhPODXocu3eBACL3hg2jTjF4
ODvrUJuxALWtvzXZUFLPguv0DhMBGIf62mbCPfP2xlctEmDt+G77sNMMej8I
xC0hQGblsmSDMwyexug5PDIVwHen4EUN4dRfAZmqSwSo2rQ+Ougsg9PXDyoc
MxNgJWO9WDuMwfBT59CGpQLkS9APSggvuXdWhbUg9TJv7PA6x2D+l7GqqGUC
3Kx71a0STvrrj4zCdkuiz4tvua8Iq2kdGTZZIcDklI2bXSLI+0tVzvv0SgFy
l6/LkTpP4n1MrahYJcALtZ6ODMKdeZVHlK0E+HJ+U8vGC+R+t6tU/M9agKS6
2ynDhJW1MT12DclHi2McH8kgr0kvs2qtANluoReXXmQw82pisex6ATLObnv2
i7CJ9BHvpRsEkLZISj17icSn5JfjZSPA/wHf/ZeL
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJw1mHc8Vu8bx5/B85xHKCNknHOKZJYGSnRfiTRkZFb6kpVSlFAyI7QkJWRH
UkZRKaWSSqSBpiIaSinrsffv9u37+8vr/brOc9z3NT/Xme3svdGNxWAwTjIZ
jKm/c8qbbg17kbBpSVqasGg3Gs5/6xqxl4Qyo/53D2z56MLTbP9pviR4N9xU
uV7Rh7TArCvOn4SrLxfSgfcGUL1zQ51UAAmaTqxbne5DKOr2SoXkQBKUq9Je
VRwcQYlCUe/kQkg4JFAZu3BwDE24pE2khJFwjBU8x/z0BCpQCkqUjSDhrbJZ
534VBpQISmQnRpIgFEksPbyTCVsUzRUljpDQRftfrFvGAoIjKxtzjIRAySsm
X/TYIJe/6ahgDAnlPSXbEwQEID+m2ycolgT15mp9fpUAzLl6r6EnjoRm/bez
dSMEoSoj9a5bPAlGx3e1japyQCXajW5IIOHOQoNtR6s44KXRIbj2HAnxAxzH
JFMunJkQ8C5NIcHsYMvQx+tciJIP3KqcTkJ0k7Du514uaG6VfX06kwRZrwdt
0WIEONjl1Y9nkXC5YokwhTl7R9fm7TkktDEq5A0muCD1MG9PbS4JF+sCYrZ+
5UK3W7KkTh4JwkWxZltvc0FpWcCalAL8/3dmnKw6wYVmwUmRySsk8Nvl2dfs
uPA54rP7tmISpr06Yfx6FhfeOdZaP7xOwvYUudcS7zhwwvDgh9k3SYjjn8Fv
4IBEw4mB0FISbCouXTADDrx8d7Ww6Q4Jv4K/edb+EYRdnKOMpfdIeFq9qeH1
SUGoXV3WHVdOgsG8e95BmoLQmPAjtL2ChJnfxjaoPBaAJXKXrq58TEJY8uab
7+wE4LtS8qHEJyRUd+0eud7ChmFd68Hf1dge7Ntes50NE2Ke4ugZCUOzpEUP
t7JgT9GeN6deYP8/mG19eRMLFOz6VnypJcGQt3j3ZA0TdiaEW2m9IsFt1ld7
aV0mnLLMkQh5g/29+/giuQsMqHj8LazmHQkqfKVfyTwG6B9/mDrzAwnW3iK7
zn6eQLY5jzwcG0lYefeKY1HKOHIPcf+R+4mE7F9/XPdIjqE8/jzprhYSzgbb
CUxuGUWyNuFjS76SkKee8T2gexgp+XUkBrTi/Hufvcfg2BByudDcfvcHCV9C
1T8Uiw0h7bvVAxM/cb6t8Xh2O34A2SvK30O/SdjiqHTju0M/cny9GoV2kPDK
25H7clY/0vjnRsi9LhKWqWy72NHSizb0vgga6SHheeia8mCFXrTRbURPp48E
nTPeN28v7EWiC9Lv7Bkg4YyC3KEDW/mo7oDc+OUhEo7vnVCWnMNHRxVesb+O
kCDXPyOmM5OPvl+l6mTGSZgQNT60QoyPrEMdXcwmSfAUnfG83oWPeGnt98OZ
FET5ZG2NjOej9s/SrSVsCsaaL6JR/Lx35/I3bYIUJEV9UXSu4SP/ZZdPyRAU
SGewnPQjetGMaUWya4Qo8E1asODB/V60OCp9n78wBYubwmqnZ/eiXQUPUrNF
KYgsjqS5Ob0o1NkpsXYGBdoluwoXnO5Fo76VriPiFDxpKjkcZNGHHqRqc5Rm
UjB9WsnFgKpeFBzRF2QqTUFFYVlA3qNeJFe9qmbfLAoOTFNSCTnRh1TYLl3n
5CgoKGxw9DfvQ0rPYjvuK1Bw+a7ClxtOfehDqeCTrxQFZvVxDhOP+tBpz4kA
wTkUuNpXyp2r6kPWMcVC85QoWPJ+x4Ucnz7Ee28dYKJMgcNmkaOBGv0oTVK+
yl2FglyHL1vnO/cjSdVl/YfVqL/1ge2nxZsEsjTw+51n2C+70Y/sOxcN3ptP
wVT5fXjaj+6N7XjRoEXBuUM1Q4Pn+pFETv4R/iIKrs33ymbqD6DjAbTaNG0K
+IEpE39MBhB7ede1OboUzFA8bCKHualJX2nZMgpWLau/YrhuAF07ohFqtpyC
2w/LHB7vH0CzsloeOxtQUMrMoFYfGUBra/wG/BAFWqYXhVbnDKDKb8Izj6z8
//0HUM/MitnnVlEQM3W8zwOooK5A4bIxBTbNJ/ds7h5AtbU/eaUmFAQsf7ij
YtogukmeaKtcS/3NJ3oQXZUruPVqPQVT7fyH6iDyCnQIbN5AwajD7sqJRYNo
t+nVxb/MKVi/KWrpO+NBZDpy4wvfkoLk+HCvBTsG0RzLoKhRKwqmjjfXbxDV
hIkrsm0p4H2pfyLmOYhU6YhSnj3+vf8uga/Y7qTVYDJ9M7ZbWD17d3AQTaNl
X0k44Pv+qg25cGQQOb40t5f+h4IOkfta5/IGkd3JkMZZThScuB++xKV+ED1V
zXOQc6bgef23QZ3xQXSw9U2TnCsFK9W1XP3Uh5B66KSDnDsF1cLWT8rNh1CK
nmrzLA8Kfp9K+cIJwvPqo/k26Z0UeI1cp1SzhlD8Je82iV0U1N6LXn+ybAiZ
7Y/YO92L+tuvPgyhyQuHGUJ7KLCISfQSZw+jBNLzLNsH18er0SfvyWEU5Ky5
cGwfPo9x0Dx3g2HkHvHgTa8fBQuJAvnNrsOIUpc51L6fAvOtwxq1EcNoQ5qy
7ucACjKKHrNrLg4j9TtNg28CKfA3J6V2vhhGiKn2uDqYgp8VnzaVdQwj4fix
1LJQCmSjYo+oio2gW0tXRhQeoiD80ijjgs4IKnT4tj89Aj8fPpKwbOsIMpB+
EXgykoJ/wxE+gjQ12mKDoykwSLHJyC8cQetFZ5V4HsX1POyOJ8gI6v+y5o/9
cdwvbO7GBbSOoNTQLTrGMRS8ufX81zWZUWTkvyReKxbnl8pUREZRv8hNjlwc
BddfxPzirR9FS9ZVnBQ4g/Pn3wuMIo8/2pod8RRMlaNJyCgy9Od/fZNAwTJj
E5/h2FFEarwpKkvC+Wf6qFuseBRtlb6VeD4Z96NPZ6IjP46iUsI/KSqVgg0z
T6xrFxhDccnt13emU+Bz7GQrnxpDeos72jdk4vc5a64QhDGEuDYrtLIoIIcj
DrX9M4Yy5YauiF2gQN4x0H1t2BgSXpNvwM+h4KG0spVg9hiSWmb4uz4X14P9
Je0XZWPIzSe2tOgyBc96P3cWfBpDLRauF0/mU3DKc1Xl0skxVCMcV+JZSIG3
2sZtu2aPI35Z6w+TqxQc7vb4dkR7HFVYaS5XLKYg+MpN59BN48g2X/f6+DUK
wt5MCZxxlBBca/7+BgVuVle65yeOo+We5WJFNynYvSzxa961cdQ4VjccXUqB
8JnL4ZZPx9HvC88JxzsUTKwRm2XbM47uVQTgGYT7VUCVqp74BArJSE8Xuk9B
59yYej21CTTvIGNeSznuD+IffeYbTyCfUJcP1yoouBPRcM5w+wSqrDt2M/IR
Ba+1goxMj04gucil5XaV+LxxdQn7Lk+gH3mafSpV+P0Jhf3GDydQ/1o12+Fq
7L9iqQwWnq9r3Tq+V9dQUFYaw+mWmkQdY0suJD6noD+1736P9iSqm34/zu0l
BeMfYiXjtk2iY2lGVxfV4fh0xou+C51EWpcixifqqb/66/IkktHRDq55TUHa
6s1q3lWTKNFKfMHZtxQEva057Ng+iZ5KvpZwfI/9W3bdv1GQASaJ8zVUPuD5
0fny425pBrSwGw90f6SgxLzKhaPGgNWnYkZuNVEwf98dDWUdBjwPGykOacbz
7FY9o9mQAYJqbzOMPmN7pY1biw0D9vJrH/O+4nyaGq9ODJhrnTr75TcKqKmA
eTHAtbn9Ztx3HA/9QXJ+AAOMdT0jrdso2HnX94zMYQasUXgeI/WLgm9VSWUJ
pxjQ4VFW976dgvZrSQ1Bqdgu+sMs6Q8F90a/3duZw4BYcoiw76RA49YNWfFb
DMh7mjop1f1/fzPglmPI4rc9FKzo6H7v+oIBpzauzjndS8Gc8QG/z00MsNBN
szHvp0Bqw/Z5Ed8YUF+lZjxt8L959ocBiq1nfZ8MUaB70v64OZMJwvGHW8NG
8Lz3nrtch8WEACL1rN4YBcT+7R03pzHhT2rYkd5xCvTsJ9u0KCYMNLy9lz+J
+/OZjXUdc5nwbCmVUsyg4SsTZ6wWE2znzh8+waShVVLh6XfEBA19j+HtLBq6
F8+XJ9YyYWGmQqohm4aUp7qNTfZMeC6S/kVegP6rz5yYcLZxac0A5lVt2v5H
sb5njOrb1gnS0KtfutxzPxNEh4ciL3NosLynXWQTzoTeiTubwrn0f3qWCeWv
6uo3EzQcmX/J+9wZJhAN0Z2LeDSMVzzY13WeCSdmaBYJCdEwB3drdiETPsqL
SH/FvDK52EOvjAl8fV/F29NouGV8TmTRUyb8tLjyNlaYBs9bWz2uvGZC5AfO
fHcRGpYOPXTN+8yEtqFqDX1RGnTyV9ht6WGC/D70Smw6DfM836xaMsKEh1du
kG2Y09unBgoLzpf4iN+dQUMlXeTjIcYCE+1HhafEaLgyJV9IFqSFdnW7itPQ
fvaa8F4NFoQfh6alEjS83jAlMFiwrX/CW1iShvjoyM2v9VnwZNKnoAWzU3W7
be1aFvDPtMZdm0lDKW7HSfYs2GWYQkdK0XBYxPxqvBsLklY129tJ03BUNc5o
gQsL4ECfnqoMDZq1EbiCWKC+U6lqBHNz0W5L9wgWXDS9Mf5sFg37GyN/6MWw
QGL8V3OqLP1XL8ezwJc9zXO3HA1aDSKNUjksGD7tkGUgTwPn0NlVxwtYEHVM
MVJEgYbUXL1W91IWGPhdkPiEedcf8bdbHrFA8LiiWQFJA72aiNV5yQLJ4tYl
gRQNtZ74gUYWeB1Ur15L4/Mfamt+9B3vByrLCZnZON4aUwqEBZb5tv3fMcu/
lkg4wGBDZtaD2Otz/osfjw0vt5a9D1OkwSXxUrOsDBsuNh15sUGJ/jtPldlQ
X7tzr+xcGn65ST7T1GSD9bmsRz8wK+xfx/2N2CCyYe/ja8o0/DveV7FBvVja
N2QeDWV1Drlxtmy4tuLdq7Uq+DzbZnq7/sOGrtkdnyVV8fnNOCZPPdnA10tN
b8EcNyUnQtjAIxWF89Rw/qz7J80ljA06khWqvuo0wId49bvH8fnkSgYNNGh4
u4W9ZW4SG1R/GvhzNXG8N2DFl8qGrG/ncuowb1i38lbiDTaEzOdGnZuPnz9b
y9cvZYNa5iNp5wU0dDQQj3/fwfYq4S1qWjgfp9bnGvz/flMWfMxVHgo2G+rY
4CCkN3h7IQ1T46DyLRvuNyVaHFpEg/1UQXeywfa1n8OaxTTctprqAGwol5kh
N30Jjr/i7bHoPjakxGWdeIt57sFZlT7TBEDwk0dxijaOv8nT/H3CAjBinX50
mw4NIXrkYotZAvBYNGTmPF0aMj87G4soC4BLo6HNH8zyQdsW2WgJwKDJvLXF
S3G9U3hDMhEAtXS3Hr9lNEyt+2p+AhDfqmump0f/3RfqBECx5b3jBGYpiZRY
z1WCED49VPnhclxfT8dFjSsEIazEPStSH/tX5kCngTwHdtdWvV5jQMOx/Jr7
6uEcOCLbeGfaCvrv/pTFAXuJD3YvMbd+tFj40pED0gPDeacQrr8Lkr6Bazkg
Uu53YyPgfO2yUZcI4UCv2mFfyZU0pN3hb0qP5oDNLYffbzH/2872cqAjS2dW
oiEN5U66u7bEc4DoXDNht4qGqfbWXsiBT5trkmWMcD/0idx/u5oDXbt7Ohsw
W9utwBKDA9u9+kaSjGmYGq9OYxzwceeV26+mYcZB3HGkuZCi6L5cxoSGvQXH
Gz2AC8q6sOc9Zg+HpTNOG3Nhx8DzrQlraDCyzDRvXcuFeYErBWzW0n/1kSMX
vme/cpFYR4OfvnvmohAurJUsCarHjKuhMOow/r22gnnsehoqlimuC4zggooO
ajQ1pWFqfRNP5kL0NPPZQhvwffRiblinc4GxN2x2FeYLVvgC17nw7ienKcIM
z4fnV38wKriw6+5MSzCnwfyX03jGIy4kjbWEjWHWXvkmmPGKC/2HkjxLLWjg
r6x1f9vGBd2OvWK+lri/uPrlt7VyISg33WfBRhoMV00KSP/mQupXi9h2zIGe
TvkC0wgIOXdne44VDefPh4Yfn0nAtlMiY47W+PnZLNHzQgQstgk0lbXB/e7s
LcVUKQKakPamN5iXbjfa4a1FwAmfXXNO2tKAm+URFwUChD5aXjKxo/9+v6AI
YM2X+s2wp8FiT3EWx4oAy55f7bcx+52REbA1I8DCZzzXZxMNKlMLgSoBis/C
5qhvpmFK3kwuI2DiS/bmb5hZeF0jzAkI2JFgkbIF+9eWJxW9mIC6z9ECVg40
fHz6WSVAm4Al8bn+QltpUA3wO8ncRMCMNKXcCszEj589gVsIsPmqmXDgH9wf
X4dLBxsTcFeGv2qBIw0/d6oPJG4lQOpRRtF3zLuxmurZSMDxRW5NKU44f/C2
Wq1DQFvUnirLbTRE4G3JF3PTla69XGecr25miZVGBJh4zGi6izlvlVeUHPbP
QWBwfFxwPUUP81kaBATG/+lSdv3P/+sJ2BDHSm7E7JhkihU5AQuWeAuccqPh
u1GZkCoi4Os6xwVG7jRMjU8nawI6903KDmFe8GCFnp8bAS1kUFX+dhoKLlUs
EXYk4OgJprajBw2CI0bpSvg+prVlLuI7aHjTk3So5gABG5+9s6rEHHrXrtAU
c61OiOCBnbgew5QfRm0nwCj50wE1TxqM1U5oCgQQcM+CvtKE+WnRMd1Fsdif
R/bmnNyF+xNjY8pSbJdbOfYP7Kbh+j/C340CCeBY/P7Yg/nf73FZ+P4OO2Zl
e9GQZIkVWjL235dMWWtvGt7J00nZ0QSULbjbLLCHhgDmQP3lfAIyd3x3K8H8
V89he/TqIre9NPCOUS6d+PffbHn3Z/rgfiEe8aDmPPbPAbvYSsyqz2ZU3Skl
IM91s5LfPpwfk7bXXLIJSHBfHqzki/0p1OUjlkFARqZi8mvMU2rtRQkByUL6
geF+NHjt0FbqLCbAy6eQXuhPQ09aUr/zJZyfQZnHWjCnv6oYQVUEDGcZ3I7Z
T8MewmbnwAMCvugWFiw/gP1tOchcU0iAv4u02y/MgYNVgW9rCLCae+FrQgAN
+pI4Is0EHLAOnGt0kAa1J8MpFtUEhGY81uzBXLk0VEKonoD3J3JH0wJxPLD8
L2kjoP/g+th1QTTsjC5X9nxDQEzm+58DmDO+B+zZ/47Ae/g+IjsY59do3JxF
fwjwzTXqNAuhof6KYY15OwErF+5LHsFs6PS9bk4jzp9Vc0UuhtJwOdrDl9tD
QNjGQ6stw2hIELh02e03AfsvF64ew/yyquS8cxMBk151IrmHsP7gDWdu7yVA
OXt6qmU4DbqPRIbGunG903E9o5hV6+bxlX7h/Eg+KHoxgoZF7LM9Xfj5mZk9
fPPDNBRGPTZImMD+T5HLGMYcbZHjPr2PAOF6BYnsSBqmpt0kttc4KpibRuH6
NJEzKRDkQaghsuqP+k8fTxJgaH6JSo+mgTu1cAnz4LFu8I3VR2hQ1w7MnCnD
g8ijX8W6MD8Ht7FRbGdcGdNNPIr1dNZV+gW2N7d3KaNjNIwGWMUJKfKAdv7c
/APzlLxiy/Fgozjf8eRxGt5HHcMTjgel79bkaZ/A8yspu6pLkweB24n7TZhT
H2NBqsKDhk3WKRExNEy1M1FsN6UtDNVO4n5cZOGZrMuDSiHqeh1mvavF660X
8KB6dWuHfyyO18DBwarlPMhpeciXP4XzA4+TCQMeZNz/VPEQ87+fM7B9Vr7d
Fo84GoKmPnet40HFOqtykdO43lTtDiSu58H92b0d1zBHLy5PZhvx4MPpTW12
Z3D/7++9OMeGB7ktl/LHzvw3T63xfVTYy8/HY7285YfvJlMe3Nt97KzxWTwP
N2MPOfHgWoxT2S/MW3PjEmq28EDUJLcgJoGGxMrHP75t5sH/AFortqo=
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 0.224}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.2, 5}}, {{7.608374474380783, 
             8.294049640102028}, {0.2, 5}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 0.224}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"c) CBA Framework\"", {
              FontFamily -> "Helvetica", FontSize -> 16}, StripOnInput -> 
              False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.35, 0.95}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox[
             "\"d\[Degree]C (relative to preindustrial)\"", TraditionalForm], 
             None}, {None, None}}, FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{0.3, 
               FormBox["0.3`", TraditionalForm]}, {0.85, 
               FormBox["0.85`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}, {5, 
               FormBox["5", TraditionalForm]}, {7.5, 
               FormBox["7.5`", TraditionalForm]}, {9, 
               FormBox["9", TraditionalForm]}, {10.5, 
               FormBox["10.5`", TraditionalForm]}}, {{0.3, 
               FormBox["0.3`", TraditionalForm]}, {0.85, 
               FormBox["0.85`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}, {5, 
               FormBox["5", TraditionalForm]}, {7.5, 
               FormBox["7.5`", TraditionalForm]}, {9, 
               FormBox["9", TraditionalForm]}, {10.5, 
               FormBox["10.5`", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.2, 5}}, {{7.608374474380783, 
             8.294049640102028}, {0.2, 5}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}]}, {
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwVlnc8V+8bxpWRbCFZ5xxRRtIgDamLCk1EUemrkqYGoSIj0uec8yFpUAiR
BhoaWqKhSLIrykpEhGiIjN/z88/n9X49xznPc93Xfd2P9pZ9qz1Gi4iInBgl
IvL/34l5tff791IQ+f/fOR79Ge+2hnlRuP7Ebo22nxCXXqf6SftQyCw1//rU
MgLTsao72o+C7pBuZW1rBMq3VJeNP0zW/afT1KZIHH9oqRUXQOGTWaS83MVI
xEodf68RRIG9r/ZWlvCw+4Xh+BAKG+gXrq+cI5GpeyRWPYzCswgbr/NPI3BP
XCk1NpyCX/R/vwwahNigY6ejxFKw0G0VW17IQ1JCXT2SpxCalHlO/y4HjYx1
nHgkhaZVldOW6nDIiPzhfSSKgvoGzcl+/1hMvPmkuieawhfdHq+hShYFSQk5
Hmco8N//Ha3LZKEv8GCqYyhMsjcvUT7OYq9Rp/jS8xQmvjD6eNGNxelhsX0P
4imUTxIL/rmBxXHNgI2TEykkPJSfv9GFxdSN6pWnkilElHTvq3di4eqcXj6U
QmHXS+kgPwcWqTu7129Po3Aj8niJ7ioW45+n7y+9QuHljK3FbctY/PCIUzZL
p2Cd0Nb6zIaF7tzDtvGZFLYIUs/cXMyiXnxEduQGBem+7UuzLFk0hjVu25xF
ITjhVcirBSzeu5U6Pb9DIX4w8FGXOYsIK/8a7WwKHz7+Omgwl4VSdcSf4AcU
uHxmoZ8Zi5L3N6/XPqKQPaE0tsqEhacEJzLnCQVltT65xTNYlFo//hGdR0Fb
KXFmvjGLTzFfg9ufUQjZYnTWyYiFqcbVm5b5FMoOLX3zy4BFi27c0dhXFI5F
FHte0mPRP9upr6OQwuLi+cruk1gMK+4et/ANBWHMrv+m67DYf2t/1cm3FE5n
3WuX1mah5fxrwedSCo3V0q6/KRa7YkIdp1dQ8I7wdv6uyeKkQ5pSUBWF748c
wn6os3iW/yWk6D2FluJqbpQai/nC5wkqNRQ6PIPG06os1qa92OH2iULDmqb3
tiostgVt+3qljsK5xfsCgpRYpPfqqXY3kHptZbLzFFmorwkdNG2i0N+x0VxG
gejv2xl7uJnC0NqMZ+5yLNwv1bfnfKWwaVhD5JUMi1k5hX+G2yhIZW3JminN
wkVH88nCDgpGzw2ir41l4VZpvTC4k8LKIsWNhpIsjP67G/Skm+hR41B1V4LF
yp9vjwz0kH4oqr9vK85itcfAPLNfFApeqBS1iLKQm5b4aP8fCmdepZQKR7NE
Z42ha38puPYcOjFvFAtOq0K0aYDUR/5icc+IAC036bIJQxSuOOc4Zg0L4BTs
5r5qhKx3xXQeGhJg7IX23NBRNJqmVXjYDgrQ3qjafE+UhnlEKkf/E2Bfl3lV
qzgNrbyjk4f7BfCbe+3kBEka4Tt5mea/AihI31K3laLRqVIvXd4ngMnxxAN+
MjT+yzn4J/+PAJ6ZTxNS5Wj0vNZKyvstQPCWTbGlCjR8Jwo/Pv0lwD+fl1sH
xtG4L/82sPCnAE8TZknoqtCID+lze98rQGDYryMrVGns4X+7tPcIoFG4qOiA
Go2JHlP3iRHWF3XvPq9B48yFKRd0fgig+yaqM1eL7GcUq7K0W4CaB+Kvmmga
y86GDh/oEuDU7uHD4hNp2CXN0LvUSfSIzJLS06Vxuen48ZrvRI8PTodtJtP4
+GD4nxLhC8qaBdv0iR7fND0cOwRQNpj7+5ghDVUVmdTYdvK+cbViKUY0clM/
nW38JoBL18y+J8Y09uWtoowJPxnc+bZ6Oo13zs1USJsASmkZbO9MGgpbtY+8
bxVAeJgxlJ5F9qtXozKDsKh59+2Js2kwoXUVUV8FqK2drzt3Lo3xke0xvS0C
3GaNgleZ08g2LbZdR1gtpSF/iwUNVmbw5YtmAZYW+f7xXUhjq/C4wkzCL7/I
qLCW5Pk7iq9SvwjQo/JM+/wiGtoVrafVCWeWZWpdW0LDhUn7bNkkQGlp29gH
NjTUsu7n7qkXIJuKaH25lEbRNfmndTUC3NTIvF+xnMbZ0hl//3wQYG+Aa0D9
ShovBg/WZtYKsGfFTZNvdjRsIstawsn3Vwzc/dzrQENfyzTdleg30eHI8X+O
NCyu67qEkvoVhYzTEV1LQ9dHVcuY+MeACXsw1oUGnbjBP5z4cdP0ahv59TSs
LJO7LhJ/SzPqFUquNOZFypaeIf3iVmLnovofjY2Lcpt3kn5zPhH0SW0TWT/5
0MSA9Otrg3RXjS00YuonT69WZuHfXFWrsZXGeuv9J/1JPkwJHnHV2EZDxVmx
dhzJl/h5BvVqO2jEhV0qTplI8vyj3WbVXTSuMNVRU0h+nbm6r1XJk0bAIctf
16ewWHUwzEt+L40om0qB4XQWI5eOiUjtp5EUH5150ZRFDLX7rKg3jV0pqZeV
SN4e2TJ1xuABGo/8vqSFWJD8CXta9dOX7O/axuI2kt/0lAlH2w/SSCl5PHOF
NcmDC5NnNx6msbxscUc6mQdTHtX2VQXQeK3WKipux2LhKMP8wkAapb7xgvWO
LGTODCY8DqaRZ742OMOZxf05lmHXj9LImZPR20fm03XXLwcTw4j/xlu0LdzE
wkL1bcCJcBr98mO3hW0l88qoNSpQQPy6O87r+Q4Wy+XU7u3maPR6T1UY8mTx
+7PtdxchjYq5BdYmXiwSgjeYLYmk8bBoibqHL4vFfqZnpkfRKNbZHXXqMHle
NltCI5r4Las5/XEgmQ/Lnp0QO03Y3d6r8SiLHd9nTe08Q2P6JLSKkPlq5dfb
VBVDzjN3vqIWz4Iyqrr1+Bzpr/f5P01PsNioej/2YhyNhAWOp21PsXgg6Xfu
eAKN8qPrfznHsIiOa7+zK5HUX9RWwz2OxTyTzvaVyTTeV4bJ7Eokeo1Zs2B6
CtG7d3+xZwqLZI2/NxQv0bA+vMdt92Win22GRW8ajYicitce6WQez7XqKL9C
9uf+W971BgsP76gHt67RcD84yWzVbRYN9lsvn8igIeFzA/OzWRTJRN/bfZ3G
JLsPJpMfseh93PzV5iaNU6FNSjK5ZD45TjXXyaIxW0mupfMZmUcZs+8M3aYh
iD2d8eYl8Utgqd2HuzScLa7uTnvNwnx3nuKtbBpLS48YBLwl83awrF/wgMb3
hxbfVpSz6LhULOn2iMZ1BaWb6u9YPHl2eOGsHOK/U0xwczWLoKTERKlcGsY3
wzem17LQ8xfRa8ijcZffuMqzkYV3sHvN7Wc0ZEXz1hg2s3hZxmeHvyD5djfn
YHMrC43wOXnOL2lMHtz6IK6Dxdf0qb/0C2gcEXmusbKb1Hep4dr+Qho3smrS
/vWyWOrR2VJYRGNs2fX1l/+w6Bw0vRRbTONHt/mClQNkXsnnRnuU0DALCnT6
McSCv7D45swyGgfyt1+MGsVh+tWwoeFyGo6dHfpTxDlMMJsVWFRJo06yr+u5
JIdYx3HTzr4j/lbw7lsrw+G1cqWS2wcakd8trVvlOdjEGhvp19AY9LVpOKDE
oUH006EfH2lQgW6vBsdzsD4ZOXC/ltSjeMvIUXUOxSEDWUH1pB+nTj4hSnEQ
N3yXtLiRxmdPf7+j2hy8ekvzxzbR8NholPNPl8MkpwTtki/ET3Vi7t76HLbW
t2dHt9BQry3c2zKFw5LZu8OdWmmErpv7xWkaB1ut4sjx32h82auU/3Qmh84d
j8s+tNNIs1dQMTAj63JfV537TqNqdUtN5FwOUdRfSZcuGnqdi8Z3z+eQ/jph
ZPwPGmJ5NW9XgMN9tyCTdz3k/aftxa4s4nBytXXaqZ8k7z1WPRmy5mA/+8Ia
u9+kfu6+g/bLOJQXGC6R7iP90uv+MnklB53msz6v/tI4du+uRqc9R/LiWHPI
AI3KiOHRZk4cDksmnJ03SPyVUBUU4MyR3xD25xANH4dXp56s5/Cn+t2TjBEa
ppvdrAY3cngzh47PEmHQW64XPXszh7WTjPsjRjGwHUwN3beVg9H8Hf3bRzM4
EuWkfmk7hxnJWglWogxWns3e8G4X0V828bOmGIM830XLRPdyOPtpTtEfws0D
+79N9eIg8m/+2jJxBklOWfPX+HCQ6/8bfk2CwVbNAzaHD3L4OfxoXegYBr9c
tGXj/DnkVZSVr5dkoBqqE30/kINktaBr5lgG9sfq3peHcIhQmHpLSopBRP7N
z21hHD5qyqo2ES7V6bs7eJxD73wfnYfSDOpGyzrJ8hza7G+8i5Jh8HmJzXP1
SA7hNRLG22QZyLj8HT3pJIfWv4VG8+UYmEzbp2Z0moPmgYUVivIMdtr1SU6P
4fD8xl2qlfDZkuqq6ec5XLznPS5HgYG4i0uIcQLx66wX108qMvg37b6cQRKH
C8HdP7aOYzBntkkYk8IhVIjaOUoMwrskPiuncdj8e3ifjDIDU/+dUySucng1
4p3ZQDgl7YTHr3Sy/9PN0bdVGGR9vXyq4ToHT6t4Jnw8g0WbG+4V3OJwblG9
i7Mqgxvtmysy73DAoV/zDCYwmCK7puNENocpu3QLBghbS9eK7n3I4fKKu0Nv
1Bgs+zKeXpbDQWnoW32COoNLqydCJ4+Dj6j07j0aDGxqVHf1P+PQf8o1xUKT
gdwT2eTifA7HeZ1wWS0GyrKqLQkFHCx8LynVEVZIWzR/VxHpN6HOqkyKwdXp
yVdN33JQzmo2DaAZvDI2mzpYymGv/5TCpQyDxl/Sb59WcNivby45QZv467au
MPQdB4eMtb9bCHsdCNllWc0hOeVp1J2JpB6TNPcOfeRQsvHxhxAdsp9zPeey
68h5atm3K3UZbAnr6/RsJP1RustLfRKD66z2fuYLB6fzKS++En5qtmlieQsH
2ZVe+bcnM/ghc3FMcBvRJ0vVJ0iPwfKgkomGHRxuL3hfsVSfQe6vUr+KTg7d
2p2NygYMrKo4iUM/SD3mJSQ2EB4VVFel/pPDWEpHJt2QwSHHa82PfnMwU35m
4DOFQczDwjkuf8n+NO71WRgxqNFQruod4GDQZuE3ZioDj+5ND/khDilfzqeV
EdbKPtpBi/AIMh5z/Lwxg1ujrPfcHs3DMPmF6pZpDDL9/C2txMl6gcwGw+kM
+NK2XaVjeJh10Pa9hO82OH9fJ8XDVWpe38MZDKJihIWfZXjk1sbaH53J4ODo
JaO3y/NYW+nramvCIN/RKuGbIo+8CQoa8qaEGxac36nMIz46JeId4Xs6P/99
Hc9DvG5HVvwsBvcLlAs2q/EYcErkNpuRel5cO1SjwSNfLkhFbzbxz4MdF+0o
Hu6frNZ8J/za+u+95wyPPhu9pVlzGCx9ctPCRIecJ9Gjx3cuyYdXZuYXJ/E4
0zx71bx5DIyXzcyS0eeh0/DBbZjwlz2LU3wNeYTKB09+bs5gdZyMYq0Rj5B7
21LC5zPoPqIngmk89pQWVNpaMJCWnuZ9cQYPVv3TI+kFDFKPPdopYsrDRanG
uYSwycH/vrma8VD9059+ciED7mnmz+w5PGTzfO+uBsmPaFOhnDmPn4bHfJQt
GUh4hd52t+Cx5r5rxzvCexYwntkLeXSmmKnFWpH3m559JGHFQ7LLdth5EdHn
u0ey02IedeuL4iYsZnB5kzKTbM2je09PVzVhxS56/jdbHtv3/ho4t4TBbxfx
vmnLeXhvG5vnYk3yr2SBo89Kor/ONvMJNiQPWhc5ZtvxmDwb+z8QvpXO9f92
4LHzT/HGGFvix+hQWxMnHnoBlmJrljJgBIlWe9fyaEmtcFdaRvTpWtZ+2YXH
UuV7R8oJ77nUa1m3nvz/LC27qOUMZEeGlitu5KFvtvDTihUMzldVSC1y4yGQ
ttOWWsngbUBViPdmHiJeIdoFhH+UuN9Kcufxvk2iNmwVg13GDfFFHjw8c1Qc
YMdgfVjKkp/beZwbbAgZJDzZaswttV08fh89t/uBPQPJPVvrLDx5zO70UvRx
IPkfI1fmtpfHkSuJ3tNWM/BuduaD9/NIaLKPaid8SPGk3AVv4vfzj7anOTJI
3i/m9sCHx+aTsoNuTiT/u0cCy/14mKwJWKG+hkGT6ps9bYd41C6cta6KsLZy
5vQhfx4R3p4TT6wl/r75tVA+kIfUR4erNs5kHq3PmcME8xhtPL5DxIXkjZFn
qPFRHg4939ofEk5pnnl1XhgPe++hK97rGGzrXpa5OJz4803IxCnrGVRu+35y
hYDH8OfU9V8I8yorXVZzPA7vjLGP38BA93Cy2Fohj7JGgZijK4PYfNVzzpE8
TM9c8ZPaSOZH02dl5ygeChd0rzwj3HNwSqBTNPFb09SYQ/8x6G+hKu1O88iZ
0Ltomhv53ormCUvP8hj/IulWC+H3kRftEctDONOjNn4TmWcr/Y/MOs+j9fj+
AofNJC/6ohL144keN7q9xmwh+ZI76qHaBR42OxRqcwjHJH5/K5nEwx8iEt7u
DCzddzf8TuYRcOZ79+StDDakxXQ3pvBYGT067hPhwNJjIkWXeEwz3Sd20oNB
Pb1MOesyj6ZlbtMWb2MQn/7XKOYqj64DI+p/Cf/ekLzicDqPBupIQcZ2BtED
q3zXZ/LgIkbNcttB5pmBwrW5N3isKH3sPm4n0X9357fxt3isfvPe8SVhEZ2u
ub1ZPErNgsQP7WJQFqMa/+YOj8VxdYcMdzMo6fWUT73H44k9c6OW8Mll3ecO
3Sd6sl5pJzwZhMVfmLviIQ8Ny8H/sIeBWqnPT63HPCTsOz72EO7N2VfYmUPO
77pTLXUvA9GpgkePc4l+n5PVnfYxeFyT9UbwlMfjaTn1YvsZGHo3Dzk855G8
s8XjHmHNBEVH9XyyLrC+5eHFwPyPwdvGlzy+rB2bq+JN5q+65t60AqLPIeeo
l4QvJ1bN3vGaR/rW9bq+B0g+qy0wMnjDI2abeaCuD5lnEy1XthXzSErWiask
nLQ6PyGthEec1PyAUF8G+sszNTeX8djrfZ2Z4cdA7M6nEvUK4s8jyXwD4XHm
JvcqKnn0p1g8jDzI4FlSdDn7jsfn2dczzQ8xmJBROcniAw8/d1WPb4SfmFXd
6a7m4TjpUlPMYXJfmeoZmPyRxyGngEmL/Rm8iPI+ZlfLIzgpf2oP4ev7c4oG
63h8iLjy70IAqe+g5uqrDaS//ZdHLTtC/OHvobn6M4/I5A9tfwg/W+YxZaCJ
R6HMAcnUQAbl37+FJDfz8LmyuGtVELl/jORSS77ysJxxIG6AsI3VDYm2VuKf
RZNkLwczWHM+eB73jeT96qPWDiFkvsv2P9bv4HHw2nXrQcLpJfURr77zGNlb
JnvlKLlvmP28saWL5GWqfIJDKIPB1390hrpJvzPRPf8IO8y72nm2h/gjzl/u
chj5/o582ak/eagk9/TaHWPg5iFx/Pkvon+8RlI/4Ze+ei5r//CQKddSSg0n
z49rCG/r41HkpmW34jiDWe1NCof7iT5WCx1/E9Zt+Tow5h8PK7urdKKAzC/d
C0vODpL5ODvwrjXLYMmY7F5mmEc416TYTXhIr1E0Y4Tk643B2bEcyb8thf4m
o4Sob++evJAn/qhUW/dotBDMlsb6r4TPfQpMXigmxOpxvW4nhOR+TCesfiEu
xIP3tumzIki/RKp7LRkjRMB2ydxawlXOF4ZeSgpRvc4pPiySzB+Rgv7FUkKs
YOytDE8QPzrM2f5cWoiXUvSdMsIx207aLJAVotC6udMvitx/rnomPJATIq3h
ea/mSdK/lTu2z1AQIim37tlzwo2/qfSrikKoZThv2BHN4NQBvW2UkpDU3TFP
9hSZZ2PULpxSFiJX+2fnbcLJ+ay9+Hghak6ta3U+zeDTBKlQP1UhrjRczRgk
fPWtscnXCeQ8+qLmF88wsJMSeDipC/FkD392yVkGQWsuqj/TEOJ25KbH3wiP
xEg5GWkJIWdzJTMyhtyn1FYpxVBC/A9pjRXC
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwV13c4V18YAHBlJCHZq3tukVWSskdeKqNhr6SEiKjskozoIlspZWUro6GU
lFCRlqSSVUkhJFEJid/784/n83yfu951zlnhctjSbSELC0vSAhaW//+vrOu5
PX2IApb//87HwXTZ231RvhSoc2if0rSLh8InBUFLAiholE4Oa2JJgHVgOpYa
REGVLNyViUiAVy4drcLBFEz7tl+59SwBou/oL88IoeCgXmy5T2cCpHNFt0uE
UcC9aFS97mICzLlmz2VGUNAxZB/dJZwA5dLH08WjKOh2OKevqh0PVewCBekM
BSf13r/j5Y+DXVJmUgKxFNhUfCLhlbHAySEunhhHgUKGfO97uxiQKNt5ij2R
ggc1QVomMdFQlvjD73gyBZ2eWl55itGw8mptx3gqBXHTuqWWXxh4fDHrnlsa
BazJE4VNJQzIxbjRHecoqDncW6sQyMChNaPsJhco0GRlJIy2MnBmju1wdSYF
zxKrjrUYMRAtGbJbJoeCd4v297Xh74q7xV+fzqXA9s/BmaMWDDjalb76l0+B
hrufxh4HBgo8xxz2F1Ew1PhTJ3QfA8IPSn1ellCwfbPZetHDDPxwyxBUK6XA
ab3jaEkwA9KawcaZ5RT4FEk3tkQx8IF9nmf+CgVqVqd3mSYy0BvV6+58nYJs
wwM3588y0O700vrBDQqKhColXmQzkGBwrHPFLQqUI1h8KwoZEOhImAyvpuCF
UP2Z3FIGWtqvVvTUUCDsqllcfpUBb45TLBq1FBjF1i/oucHAS8O7P1LrKOhv
Vb+kfZuB7nMD4cMNFOit3CrVdYcBFYlLV/UfURC/Sbii6S4D/dIZJ9KbKDDk
UTzPV8vAtLr1n5FmCpiMuc9N6LllXvx6zzA/B5b++oP2uebzJuUFBfYxXc7X
0cvtfm389JICQZaivvl7DBw4F2m1ro0C598SmmN4/xSLIoGwN/i+v68ox9Uw
0PDoc8TTdgr2Nulc7qpmQCf+QZZQJ9aLSvOZoVsM2BY99HDqxnp6eGZx3U0G
3MPcB0reU8AnN2njUslA6YSsyNhHCq5la7N34feL20TOqvRRcIN/8NfqCox/
4Gh68BcKdsjEu+zGeLkWfhi+N0BBysjIlB/Wi+q95sm5rxRse93f64PxtZeS
rNUboeC8Ud8zhzwGnF4b6oWPYn5JP4tKDgNr9twMqx3D/L423z+fwcCOny+O
z4xTkLhGM7UunQFLtxkttV8UmHSYPwpKY4BXKafGZ5KCVZ+UWWVTGWg9KvHv
8hT2Z3GvQBvm/9TyNta+GQq85dyY4DiM/1XSKvqPgugQiztUDAPW4U6upvMU
VPp86n+A9bM4e/h+5AICnWkekvsjGBjuFflSxUqgtNB9B3coA4e/a78ZZCeQ
d5192w2svyDNyyminATO7+5rcQxigG/JNXFjLgIq3oHHFvszsCE6xz+Im0AI
iem+g/XrXV6fVcBLYE9o5MFD3gyEu+xNf8lH4FRHWZasJwN/Axr3zfATMN/g
0NTvxkB9liqHtBCB7JaNOpddGAiN+nV8uwiBwp2Vm/2cGJBo3vTUX4yAkk66
ib4j9ier69gFCQJ+SwtyhXZifp4lj95fTmAw9WrTDxsGOqvZm/oIgbqAAxva
LBk47TUXzL6SwIv6XV13zDAeide5ZKUJvJ/tqynZjvF4Zx1sJEOgNmBZWaYJ
A9mCko/d5Qg0VKj5nTVkQFBe8/dJBQKrJa1ep23C+/H3sOWvIbDRWyzhAmC+
v6//U7uWQLPY5p0FugzUznq+6FhHYE1byPR1Ley3orLYifUEPO5MrG1UZyA+
mFZYokqgOuTUnR4VBli1xypXqhNYWfHMZUqZgZ4eHWlNTQL1p71/iSgxUBm7
JtxUm0BYlNVG7TUMiOV/fOSiS+D5ajMuF3kGTJ4GTgbqEdjHz5gkyDDQ+Jlb
KFafgOHNSwl3pBgYF2pYcWETgf2c3/xHaAbKW8uXX95CwFpO2vvFcuzvl18X
VxsRcPPNa7kmwsAtKmGw0YRAaItz2H0+Bq5KlN9u20bgdcW9lR7cOA9DHEM+
7CCQVjjm2MzLwMHtVzcMmRGwTRS2PC/IwPaZm58mLAjYbCgbzBdjYKXF8ei/
VgTiA8U0FlAMPI3gl2K1JdATO7fmyQoG5Omo6sX2BBaNTg/wrGJg77oOo6UO
BMT8t4v2yjKwhBZvE3AkoFA2YWWqgP3UYmYvsodAWeh1SzeMh11SWLfYXgJR
/I5K69Yy8ES+1FHCBeOZ5pNZjfE79uVNj8Q+AqbL2HkWYXxXh887Srjj/fg/
DKxcz0CmlvwHMQ+MzwvvTP4NOM+7zJxFDhBob3J41o1Ou3R4UMCbwPakDXuj
MF+mR6J8lx4iIDleWsCjysB84UkWLh8Cmn2jVmHoc5TXWVY/AmY791R1oI+7
KCrP+uP1irz5RA3nT1T9m5+BWE/6Buk2aLJa9MTwEQIBizY2HEfvyJZR7w0m
wLYxmT0dvbqm58+bEAIOl7m4i9F6CxQeNYdiv7gWGpahudNms+6GE+AfNp4q
Qd/W0I+qOEHgkMM7rWx0hePnIzlRBN4o72RLQOuKvAhJYjD+W1JWB6IV1wwm
h8YQuBj/w2snehuvWJXXKQJ3I0U9NdG/Pxl/s48nYFnVcV0InRW+S21LIgHZ
ko4H3/H7NgeppK1LJjBQ08/ZiP7Nc4tDIhXz92+y7zxaZWtDEtsZAr57xwoO
oD2+qSqOphE4Vi+TpoU2CJroe3OOwLUf9ROcaGrNm2t3zxMwUO6cfIvx3i1y
Oz0vg4BOWkxrHrqaM+h8dBaBOPnGy97o1IzhGwdyCLQobChRQ2ttGB3ekYvf
0978dR7zp7fIZuO6fAJT673imtG5ElNXlhUSqGR8C1PQ3MZluhNFBB5Oim63
RwtrGoy8KiGwMGLoDEG7+SVXX7tMoIqTN2EA6+Wj+b7ipDICxqZ5BhXop9yp
VV4VBDI4xh/6oyfufhkwukrgc3C1uBa6wUpRW+o6gd7LVuYsaNsy9Rv/Kgmk
T414N2E9ngt9afbuJgH9lRePJKC1veqWXbtFYN4gL8gS3T3bOh1TTeDMKYfD
ouiRwuecTjUEmqROuH9Yh/OmIVhP9R7280elvYXosIs5OVz3cd4OTzsdQMse
Y5H9WEdAjX/WYx3aL9y1s7IBn98yEjqJ/dHYGneLeUgg0V067x5agtGos2sk
sHN/5ZtI9ECp4i+5x1jfJbvFTdC/TRRsp5sJWCys9F+KNnEb7W9+ivPwL0ff
W+y/0VmVwvTnOK9co92z0K1L76e6tRDQXr1+oSs6Lnvz1fWtBKb9h6rk0esu
Rf2be0VAcc478ociA6JqqqFPX2M+OVw9bqPTrfiVzr4lsLTEwSMM/UTwtYDT
OwK7m1oit6CN0teukeskEFkuV82N/sjaffRHFwEaHnC+wflgmJI4c7sH+212
MCAT/Txi5nrYB1xfirpmXdDsCm8vbu7F+nvSmquA9p14+WhxHwFqydTeidUM
rLLOWtHymUDCliDdGvS+D8O3UvsJnIw/oBaJ3qLuxVgPYjzYvm/bijZe/jxR
eIhAboVgGD961ONu67thAtFs35934fwy5h0wPf+NAMcFRqMAnUxNcdp/J9CV
9LneC136JGte+AeBbh4edxX0baewDW/H8XsK2eT+4bxPsTQsOv2TQFHmU44m
tLl6to3ZbwJcW3YvTEa/eqywZckfAh0ad8Tt0VJfzgY0TREITOk0WyH//7w4
+SViBtd/keq8YTkGgjmzzmrNYj6O7uC7if6WFRH78x+BfOfUzFD0ZMfb2rJ5
AkmFxzYZoZ9pkMzrLDTo2M4vWoa2XbV2OmEBDSsGBIe6cF6v0fGY3r+QhiKV
awOFaOXc5VkGrDSYFzeyHEY/58n5JMlGQ4qKibom+my3xtNJtNnxtXGsaJa/
Orat7DTceeox/QLXM97pKeYyBw175EZOnkf/nKvZGbmIhq8ul9a4ouvaWl85
cNJwTujMD0U0Z0fM9/WL8fnXsluncD1J4FO8xsVFQ114zfOH6C5JHpE+dP7V
7i9J6AmdAKk7S2hYYvVT1AH91fzK22RuGubcf3qsQjOdHGvdeWiIan/x5oc0
A4NTzWt0eGkYCQ1wvIeW9NdrW7aUhjLFzvkY9IMrN6lB9Jvy0ftW6LwqP/57
fDTA3YILBG2k+rAiZRkN/gKjySO4PmeHj/3Yx0/DFu+7ebfRkfHQoyFAw45j
LC+j0M6/5w5zC9IgPV4hYo5umvcr/4g+erIqRBI9ceZLaqUQDRxDnH+/rsT9
l0EmzQjT4P72wtkq9PlNH+ztRGhoXuiwLRINR39pyYvScFpRW9IMvfqA9OMZ
9A8hJU5JdPH2m/+eieH7RMguHcL1WeDf0IcscRoyVYWVb6EDWJd4HZSg4R/r
6MEo9PRpx3xdSRoa72c3mqOj46QYnuU0fNoorkGhdQMLBd6j+VytG//ff7DH
S5mWUzTw8208eActeP2LSgihoWPdE6UY9KFjq5tNaBpKbw1y26B95LQ5RVfg
+1yIZ5NCW5TZ/u5Hz7QXC48TnOf59ck3VtLwMGD1pjp0y+677yKksF7ClsQl
oot7Yl/skKbBhkNzZBf61csDvuKraBCRKXZXQFtfyH84gJ79t3l2CvcnPDt8
H1XK0GBVtaj8MXr1dZGAMFkavI71Bp5DV25sbzORoyEjsmGnG3psxWivoDzm
lyvbTgU9oZWV8xHdYu12mBW9mJLiLlXA+Jdz57XhfktNsEE+YDXalfmWhy6W
qPqju4aGE20NFr5o+a+6QYsUaai1v9kK6PzPF4pa0Xt2m3nyocPWLoq+sJYG
V1NGoleSAYXchyIuSjT05hoPXkWHPebepbCOhvnW+OfhaLURYj6BXuii/8wM
7cil9eeOMr7vh12fCfp+T7r5ifU0kHcvBH9IYD+/DnQ03kCDaP8pp3p0nSif
xFIVGq6VRD5MQWem5ie8RR9tLAVnNPt7j+uZqjQs/varXRk9Y51zylmNBtZW
q+iF6Ee8YUKy6jQsUqwxfS2O56duA5tv6FuN4usK0X+MZE2ua+D9XT0UAtEK
OW7jgZo0JLw7q2uITvuibqqlRUPn1FlPEbTUx3dOc2iR4l1XvuL+MnJpuMwD
bZwXjzqX1KAjqtzzGR0aJPRZI+PRB18+fm2sSwPD+4xvNzpWvLtmyUYaVspK
V69F2wt02rWgWRIWHGVBi0xOl6bo0cC7xda8TRTroS7wpiWuJvzOQvqF6J8K
JwME9Wmo+K28NQhtc9tx5C3ailz0MkaP5quJpRvQYLzAvEgczfndeM5uEw0X
G9X/fMP99XuHpxmim2lQyTZxrkOPHRz/3oG+VHf0cyp6/6FfM+e30LDXqzp0
H9rPfXGdvSEN4f1/ldTRmVLu2qJGNPQHq80sRsuog887tHzIrp4eYQY8J5/v
PmeM89BgT/tVtGyIPpuNCQ0K69Z/jUT3F7S5CmylIan06TJbtIlg1fFXaFEi
YSX///Wqy82St+HquUCkfFYIz1tqet3bt+P1L65LtqJjlpit4NpBQ+LCj4UF
aBbfiBWP0U3ypzcfQbd/5eiJMsV+fXX/71a09z0hCzDD+CXZP6XQ52c/Rsyi
G/9aXpvA88LvE+e9qs1piL6XV9GEVh/1XRZggfMsWONBBvp4SY6fkiUNob1c
3w+hs/rMk4fRly5xK29Ch12o2V9khf2fqBwvgnZO4Zl1sqYh1vLg7IgAnk9t
QraL29Cwuv7GyXp0j57qzjdoq+IpqbPoBD/vlUm2NCzvVuryRHN1WVwysqNB
UHtHyUb0wrXCIyz2NChe3hwvgLYYHxq+g37CyxX9lR/XX79/JX47aSjflZpe
i5Z6FrFytQMNf5mWutPouU8FDp/RmnFVc/vRwZ7nzDN30WDopWWti27tjWGz
cqTBYb1FPT9aJa0kiGs3ztfvowZfl+F5O1u6pAHNfZutpxZt06d47uge7Jfi
U/Fn0PdEJzYpOdHg2Otj4YkWfnjxWj/6ScIVRT10/Hq3nsy9NPzuUqOF0IPR
Po8tnGmgWObkRvB813NlzHeRC84b9SmjBrSRB1/PPXTsQ7HQdPQxYOHwc6XB
c8S2+SA6JO3bmMw+GsL+FchvRu9IXZjRjRY0/Z0rjlZSOcyW4kZDobre2vGl
DPRtdVLa7E7DK/GgV4/R3/3nxafQrnuS4nLQH6njj8v202B0+PjOQPSphAWq
Th74/HqVjdvR21/edeX3pGH7szINKbTls3arRvQb3nbjGTx/vlQLYz96gIZA
vkuHXqE3Z7w/quBFw4VdwqWX0LXm9JUe9K0TQn/D0XyxvkVJ3jRYiGc426El
9Gf3wEEaJh+cf78WzWE+0jWO1iAchznQxxw9xQoOYX472oU+8GD8PuWKWx+m
YSBn/lUV+q7SvQ9sPjQckQ0sSETneva7VaG/Kq6Jc/v/9xjDa26+OJ/8xaJ1
0Z9tF98X8qNhV71yuhC676hdciN63SfP2lE8X5fuc5AO9Mfvv3xrqhF9zl07
VDqAhvMT3CY56Iu5Uhmv0WGZzleC0BlcOiGRgTRon7osZ/b/+dyvglYO+r8+
Om/Los2P58Z9RGd8GdjFgp7O172TeISGZM0mwc4lDHxSryjXPor1lufddx0d
5CriNoSWoV8+ikNbrSrsOxdMg+S9vruu6KPWIas2H6PhXlTWYx10+MVHiuPo
a3Hjg0Lodwklf7NDsF6G2yXHuLC/j21L3nocr3+g796MTsx993USfV9N9lEe
upnbn7MgFNcL/+NqIeiAks3fTcOwH0rUaq3R+sr+GTPo4cXb7Neiv29axVMc
ju/ffmURJzrC8oShRQTuH0ztnn1azMCRyxWGs+gFNZoFd9Hzh1p5Sk7QMLFv
W/JZtEzB0iyLSBo25p9IPozmolPH/6Iln74qMEHzZRzjLY6iwUNL+bkUWih3
fMLsJA1Ztmc55zgx/pkSF6fRL2N+2neguV8tFyhgaLipo19biX7qtNxsezQN
Z4b8VRPR4QZ6Vr/RWzlPNOxHG5hdIjkxWO+ie5wN0I/UQ28axuL8y2ERWo5m
TvUtG0MnrdrT82cRztcrs+rpp2jw0fW+3Yb+MDwmoxdHQ0MIXVyBpl16Pwyg
M0J8LsWiLfknnJLicX/33uK+K7q63bhUNQH726hmcCM6ZD/n/R50qdtFaXF0
x07rzKhEnB9fJwN+c2C/0eYGCkk0mEbf6mhFN3KRG61oz7+vzcrRzYZfRoOS
cT4v3tIVgy76+GBCMoWGocD5I67oi/ffNzxA6/JOy+mhxcrsdnmk0pBWIDsq
jm7YalXHc5qGz9wnHk2y4/5jxc/RSnS4zN8rbejO0zsH7c7QIN4WX34FXfLx
Utks+v6kXG0culqOVTsvDeMf0dzrjq49GHd2y1ka2F32imxCVybuvTuE9kod
2EvQvEYl5YnnaLBfYlH7l42B/wChsoz+
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd1nk4Fl0UAHAlQqRCZJkZW0mUsqdyUlkqW4SkFFGhLEmyL3l5R7YShWTN
VipRUkgRaUF7EWUtQlTK/p35/vL8njHz3nvuWa60g/sup7kcHByxczg4mL8y
1W13x48T8Da02MjgIg3jRW8PhXsS0Pxk6Fl+Nw05T7N9FngTMFc77k7FymhQ
AZPhBB8CSomf07qW0dDi8KF56WkC/njzy6TZRQPr3mapFH8CMs5WJm/WiYZk
PtY7iSACXI48lLX4TsOM4+WZ1BACFp4+znnnIA3X5AKSxcMJOKZzu5Ijmw1l
XELZyRH43CWgTPF2FOyVNZUViiJg7MVQQM/VSODhFhePoQmYzab702+yQKJo
D5srhoC0jBwjQV0WFMX89AqII6DmM2t5syoLZG5UfhhJICDM32tCT5kF9VfS
HjglEuBxRjzz9UoWKEQ6UR+SCPjgzsd7WoEFx5UGuYwuERCUyHs1Cn1+Zp57
eSoBNq3Ww74GLGBJ+u9bnk4AFZY64u/EAuV94q/PZRCw+Wn5pQNhLLCzLmyZ
ziIg/mXsU8l0FmQfHbY9nEsAz4tazspyFix9VOjRlEfAz9D0xj2vWPDTKUVY
o5CAlKN+DxYNsEBO+7Rh6jUCAovXGHNwRkI716zAbDEBJToVJtvEI+FL+Bfn
g7cIsI55xx5XiYR39k2Wj24TELfbQEPVIBLO6vl9lL5DwLow+aZ5+yJB6MPZ
seByjI/0162BXpHw8t2N620VBCzVlNbJj4wEN242h1YlAQ+UP/vHpkVCk/79
nwnVBFQFZppq3IqE1qTe4P4aAmz1hP9m10WCmkT+jc21BFimyPz4+DESeuRS
QpOfEGDXprbj42AkjGta/h1oIOD6Ml+xrDlRMLPYdYnuMwJOpuW4qIpEgcdN
jzfxLwhQ1uqrj1aIAinr35u+NhHAemUnX6ATBS5JYRYqrzDfzk+osU2iIN48
VyjoDb6fwXF45cEoqKntCml8R8D5xj6+yBNRsCH6UZrIRwJqc7a7XomIAqvc
x0fsWwkgPMsb3ZOjwDnIuTfvMwH/5OWj/+RHQeHoCtHhDgLYpsFiqyuiQHx3
2JRaJwE9zeb8os+iQO7kYPLpbgJ+778gUdwaBY457f0PegkYyAuUHxmIAvUH
DWMz3wiYCkrWbp+MAhtZyUrdAQKU9kjGn1jABvvX+rrBgwQc3rEn9oY4G5T2
lwZVDhMw8YurIX4lG4x/vQiYGMHzT6dnRbTYsMtpYr3GbwI4L4+JbtJnw8I1
6RUeYwRsPHZzNY8lG5p9JaYL/hFw87ZUyImDbGBLveLsnMD1azqfCj7Ohp4b
ZLPYNAHLbnlmrPJng2WwvaPJLAGL7cuvn4pkA+/l/qqwOST0vszwdDzPhv4v
ot1lnCT8kczsH0png/uQzps+LhL0oxevEi9kg492QbwYDwm5wrYuPaVsWLTg
prghHwl6Dk3jZtVsUGWln/DhJ+GQoof+vqdscLv2MC17IQmxJi/f871mQ7DD
geSmRSQ8WzRpZtvGhknvukMTS0joHE7x3NnDhodp6txyIiTY2eoJdA6yITD8
d8BOUfy+8QlRyTE2SDRsaTyxjITyyXmPJ6fZoMDpOHxJgoRxWWHBUC4a5J7F
DVZJkVB8qbD5Ij8NH8u5nnSSJIg4cRrsFKLhnOvMaS4ZEuTkFci8ZTRYxtzi
WyFHQhPdUlhC0sD73vK0wXISMme0wUeehsvCkvXOCiS8L21r+KtIg/BK7T9n
FEkgnp6T3qCC31vSNi9LiQSdu0F7DNRpsBla97dyNQn3Zdf3SK6noXLq6IsP
KiS4HzKvrd5Eg1BuUdToOhJucPumrdtCQ/RpSnGBOu6/zr7+lAENnDrDJTKa
JJzL13FL2EFDW9sGOW1tEqLr/UNDTWkoiVIKNtEhoT8j9pORBQ3LsjpqHTaS
sMj7ucwPKxqMGk+OndQlgbeAg9/Floa6Ln6RqM0k7Pry/E3tPhpGRGqkL20h
IUvfMmL2APbX5mtSBdtIKBTg82xypKGp6RtvuQEJ2+s0ql6j7xBn++qMSOBX
/uWzAX1D4trdVztI+FuwoE7GiYbj/nb+7cYkvHySOjnkRsOxnTdUv5uS4OrX
oCJ3ioadE6VfR81J8DH3V/wUTIOMeQBr0oKEUZHtckcjaWgMWSLLaUWCWMm2
G0tiaVhJhZfz2pDwcFtVxvxEGg6ofDAQtMX8o3d5uV2iYQEl/krIjgSlyTkB
duk02L80tRHdT8Luv6d2/8iiwTo2qHXZARK+GAQlr8qj4enKQjsJBxKaHRJW
LC+iwa/7TZvEIRJsFWilnmIaVgXP2kk4k1CTu+axewkNqetXti87QkJQ25nw
Z2U0sD6ZHhR1IWFokU7XVDkNifnufUJuJMxtPR40/wENJqfCPQWP43nxuxsP
VdEwm3OGg8+DhKhB1vPbNTQkEa4XOL1I2PHZZ5ltLQ0BDsprp07g/ppMebue
0OAc/vDNr5MkHDC8qWX2lAZylVho/ykSHjm2imY/o8H48nLNL6dJiMyp/tX2
Atdb0fb3jT/uz6JiaqaJBt05irUNgSSYsIp38L2igT9xKu1+MJ6XakfP7Gsa
7mptDr8eSsLq8+3VX97ScN2u61R6OAm0R1P19fc0bBR94R8bQcJ+Bfnqwx9p
UFbqiwuMJMH3GOdZwVYadixcVubKJmHTWqv+3DYa/nw1/GETTYLi/duJq9pp
SAveq7EthoRPeks3ZnbQsNVHLVEljgTO7z4x87/i/wvc4ZZIIKHIzlzBvpMG
te01sfPOk/AtSaQgv4uGIz/UlQcTScgoic7pxvuEns9o55skErLblQqEemkg
lN7cvH+RhIncE7oafTTsE72bnJlCQsV6+f6d32go5/G5yEojwZvrwnIbvD8k
pPTfdkknodGty82mn4b1qoP9xhkkxMdqqZgMYLzm796kkoXr9Z1s1/5BQ4bE
v+LFOSQImXN3SQxi/AyLNo7mYv1Xv8/8jV6qrTfQkkdCVXdNQO0QDU5eceU3
C0h4LiDaEj1MQ4fZoauxRSSE2Vj+2/4T85k/ocz1OtbT0e2Gc0doGL3f3Wtw
gwQ/661CJegaC2Ud2VskSHYp5duO0mBVpHl7uoSE4GUlu6bQSYFNpu9L8fw8
D+9N/kWDjmv14pt3SAg81Ttf6TcNrVPN45HlJFyQHkqpQA/kPOexr8B4Pg+x
3PIH+03NaV31ByS8nTvH6wk66Ep6Ol8VCQ18xqu3jtGwwo9jRUc1ns+ejzUP
0F7Bjh9Lakjw6H3qoPIX+0UzfSfiMdZHIN+2K2iJCK1q6zrML27nFN5/NPQW
Kv9WqMf4dqSdc0f/MVK0Gm/A/rPDb28L2shpsKehkYTav9+oNeM0DE6p5SQ/
JyH/LrcAG90sWJXg9BL7gaOmYQeavrz1xrpmEgzGNcbXTtCgkh8+PdOC9TGl
uC0ULaahHtj4moR31G3TF+hkiyVrLrzF+aM3vn7pJNa38Gsh+/ckxD14uMIO
bZC8WknhI9av2En1K+gOzlbfn59IGFihFdaB1o+PmbjbhvMiclhRaoqG5yET
t4LacZ4km++wQXMpvr2y9QvWY+/IdDzac7SplreThCWksV09Wt4yTfplF86z
U2+CJtGH2vvvJPSQ0Hb1X4DyNA3bNF0jLPtI+HdE7dg+tKHU85il30mgEpc6
RaMHj9xvft9PgnHtjtN3mecLe00u/iABMvMqv6LjiH88NkPY3x4rb+OboaHw
adrs0p84b9aLy6xF37UPUn07QsKH+9+drNDxu/Rzz/3C3/c/KO2HNtO8vNv0
DwkrbiUdSkO31CtuW/CXhKnnfzZVomW7L3g/+YfrczKqbpth+sWZ7pAJEs5+
evhrAn2aJ+3C+in83vWx76KzNPxIC4n6NY31kjlWrIoe+/C2smiWBKOELaYm
6GdaZOotDgo8+D+/O4y2kl89fnYOBe8qtpqHoJU2HBk/PJcC1pnwp8notRlS
aXqcFGhFrN5ejH4ukP5Vch4F3s9cPz9GX2jVahxD/+4ZO/sBzTG5waqZiwLY
LO/wA71w/F9EATcFx6z7nWbRv2Yq9oTNp4CjtDVjMUc0VL9qbrHloeDKCzUJ
WTTPh8ihdbwUHLj7qU0VfXaR8k0+Pgpsi+wHt6A/SQqIdqIXenBbWqBHN3jL
3ltAgWRKnagD+ptZ8ds4fgr6i7breqAjPnKvdhag4JDwdHMguu9fg9KGhRQ4
LJzzmkZLntB9tViQgvaD63ckox8VlxJ9aBMeU91sdGaZ15IHiyhYXVZQWow2
UH98PX4xBSJbA27eQ18OHv55aAkF8gKPNGvRYdHQpiVEgYK0nulL9ME/M+78
whTIHU+YfI9+Mut1rQMd8kJ481dm/ee7E0pEKKCn5sr1o930UqmIpbj/EOf8
UfTFLe021qIU/DxJvppAg+/v9SvFKJhr2pMzd040rHKRq59ATwQYyvGhr+4s
nX62jAIZvlKLxWih6e/taeIUKMm4a4ihvTkXuB6ToCCJTm8i0OPn7LI2SlJw
dYG+jDyaRctGCEhRkNNotHYVeuPJHKHP6IYL7rMqaK5oWZNrBAUFMgfiNNDC
t7rV/EkK4nTzu3TQx/1WNRhRFOj9uzcDaA8FHR4xaYxv8WDnNrR5kdWfHjSx
MvzcdnRG1sO42zIUZJ7LEjRFv9x3/32ILAXJ3vvsLJj9tEW9MJajwDD7hp81
uqXJxVNcnoI26RC3vWjLS1mPe9HNU5mq9mgBY8/akuUU+Eq8bXFg4nNL1Dto
BQUdPPWGzuiSTe9eGSlQ4FcqlHIUPSw9+EV4JQVDivr1bujR9WnpHejNBh9b
3NG8hCx/oSIFz+y07nuhNYRrVnqvokD5U/WZk8z6JMr+blTC/O2pXOOLXvlt
o898ZQpejnpV+qGzui7lNqNTdi1ZE4gOWj2fdWk1BaMPHkUEoxUzHos6rKFg
3tv0R6HM83r+vYoqeL75Zb3hzO8NkGaj6KrlC35FoO341v+9t5YC7ZSL3yLR
VW3JZqHrKAgQMm5go61en7QzVMV4vBM4H42uFlskIaiG5/3ojlEMOjUh6+xb
9Ldb4oOxzHl+PnIrVZ2CFa2cQfHoCct09kENCsoV1aYT0LULg0RWaGJ+XXJy
PY92bNXb/QNdGrb9aSL6r8EKo1taFCwejhFNYvaT7jRyUpuC/b2vrZLRid2a
JuvXU5B6517kRbRsx3v7GfR8nXeFl9BhgsHLH+lQ0ERWPExBh5Q5Z0VswPjI
/Hyaij7WVP/acCMFgbumn6Sho8RbKxZsokDN8GD5ZbSN0Efrl+iPDknp6WjR
sfHCeF0KuKYX+11h8qH6ZOkuoKAlc+uODPQvxTPewpsp2KWbsiQTvfuu3cBb
NIe1XzPjwSyNZcl6FCxXMozIQvMMGc5Yb8H+8dNhbTb6s21jithWCo4Oyb9l
PHxsZOgDur3km0cO+vDx3xMXt1FQojo7Lxft5cxbbaNPwcM/9xIYp8o664gZ
UPBDxVn0Knq5Jni8RzeMGicxPjr2fF+SIQWNuuUL89Ar/DfP221EgaLq9xDG
PdmvHIW2U+AiJTPI2Ei4LKAFnZuZaZHPvK8uZRq3A+u5JbuUsYKGbuvOnbg+
Q4dFBejIBabSfMYUqOgLH2bM4RkiXY9urB0qZ/zuG3dbuAkFn87LcRei3R6I
mIMpBXbHek0YX5zqCJlCTyxwPM/4T+hF13IzjB/Uv2asOei52Nsc5wvnpkVF
6IC8dK81uzDeMT8NGad1msX1oxUPcQcxDrpUcTjXgoI77rk3GB+MF5iyt8R6
5B39zFh1t/9O8d34vqAg7zV0m676njdoekhqLeOzXm4ysVYUuN3dZMWY75N5
voE1BdYr430Zz129dIDDhgLOmjUXGZuPfO+/h75Tp13G2MxrOs9rDwVju582
MZZ9FiKzypaCshP/+hjPfM227UKPCX6ZZnz6aJJZ6l6sz6UXF19HN3+JnGdh
RwHpoynLWC0xz4dvH8Z7zZt1jBddlsurQY/tDQfGuzuVk3z3U3BPfc9Oxg/E
Rresscf5InfUivHSx1du9qCrHtXtZxy9zqkt9QAFsd9DnBj3sTzqzQ9SEFZW
5MK4rXjYc74DBYNxVscZGxxZ1PYA3aWe4MHYDzi4vRwpsKx28WTsn/hjePkh
PO/ckf+fGyfMTWlF/2hUdWe8Rs19XrwTBTeDNrkx7txuv2arM86jCOII46ET
s+L/0AZSXxwYdxAB9UWH8X4wL86OMfvsHHX7I9j/AjR2M97ZdN9xyVEK/C2+
/r/fXc/eWdSh93dd2sK4SSOIy9cFf1/cRZvx1pTPvoqumG8he1czrjSjitvQ
4+qnZP6PZ5Rnbqwb5u9MnQhjic1T++EY3ld0zXgYc5sNfBpBW/AQE8x5+dkd
XZZ9HOtlieYA476vGeKW7hREPslqZXx/zYP2eR4UFOoeecY442iPUxla1yS2
4v/nkfo3nTwpWOcvUcC4y4q3SsQL64NvaTLjTl/ruDr089nwM4wLD9nKnTyB
+Snl6sk4yVknUM4b7ycDzfsYX8mQTXmNPlNWYcQ4hW+Df9hJrIdzyuqMj3td
p9b6UCB+cDX1f34GZNAdaLWmGj7G41kb78WcosDU5sdvpj6+al6/puOL8TAq
aWfs4yjq9B3tXyPawNhCPqcz6TQFiWXULca+lv7yW/3wPvWz+RLj4Cu1yiPo
LmGlMMbvz+ZNXvanQDRD3YXxH78dcdsDKNDv/2nOOCbj/bcxdJ7CQW3GDfwn
eLIDKag7zqYYe+dtHTIJwu/dcJvPePPaEykTaLOHAkNMfxjaIi9wNRjft3J/
wzhkV6i+eQje5wQSKxifKriuP4Xe4xCUwXj2eLNAXijWx30VFuPl2YJp5mF4
/3K87sqYj0oYmUSHxoyZMV6U4rfwajgFL6wWajAWyRgZNT2D95+6MXHGV1Il
royjzz+9Ncv0O/4WKaHsCJzPsLmbcaO9lOlOFgXGv642MA7W07X4g55J7r7G
WM80n0yPxPn1ejKeca1mYKl+FOaf5pA34wh25+Jh9BLDSpv/+2vxlGYyG/Pv
lMsGxu39w8t1acyHlX9JxpTDl/ZetEzJIU7Gu5aM2sdGU3B6T2kv07/L3xkW
qp+loMKm7ylj/8M8VW3onLaZa4w/7LFMDY+hII1rKo7xTspMTzGWgg3fOrwY
1/GRt5vRNTFFuxk36HcP+sRhP/ltr8U4t+PRqGQ83g8WzYgzvlL1ueYRuvEZ
a5qZL8uKrPceSaAginuyg3HNdotqgXPY/5P3PmJcJf1rsATtY1KQw/jjuT19
1uex/w13sxjndeQXTaEntAWPMi5X4NTJTMR516mwg3HlMfrCtgt4X7m4Tplx
ScyB+9/RXpzKgowXGuRdi0nC/H8sNsLMx/8ALAfghw==
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwV13s8VF0XB3CFQlQuIZc5J5QSkZKE/KhcShGSQrogt1RIRIgwM8yco0RJ
eEgqKl1VlEdI6ULSRQmVUnoQKZJ49zv/zOf7OXPOPnvttdbeM2v7biefiSIi
IsIJIiL//9aobC37HcyByP8/x/n4XfzCO2EvB4+zTNxdzqbg9MOC8ClhHOjV
TJ578VIqDLCuLy2cgwvGOgqRGQI82/66UTGSA+2SAd96ByGSblmqZ0Vx4Bgn
JyryVIhMqaSXqjEc3BI1eOMuymBsx6mxk3EcZMOU2ftRiBKt6EyVBA6OjAQl
XvcR4rq4fEFmIgfiTTJVK/kCuGs6aMpzOVjmrppgsCMVEpNUVAR8DiSejHyQ
0U6BavEmnriAgy21olUernwUC76HRDMcaMgEeft/5UHj0p3X/WkcWBrcm9Ke
zENdbnaFTzoH7Fl/z5/6PMxN9qFfZ3CwWN9eSqmDi2DdHnG7ExwMW3tFj2Vw
cXRMbPfNkxzUhBbFzAvjIkktynNODgfJ6VbXnDZxoeep8vxIHhl/LCZJZhUX
HhvPP/ubz4HM7ACtOUu4KPDv27yzkAO13o9VhfO5ULx3fk9DEQeeu4Ln3dfi
4rtPlsKS8+R9i+l3XTQXWiaRtidLOCgxHzLhU1y0iY/LjF/kwODTqPEqcr0j
ocN322UOAmZOCKnR4OKlV4PLvasc6FhtN6yew0Wq1YGWWTfIfOPP20nqciH/
OvVX7E0O/g7YMH6GXDx9eelC620OXn1d2HHbhIugSTyRpXc4OK2tn9JhyUWD
dfn3tEoO1t6bKlm5mou3GZ9ju6s46CvS/2vhwsVi1bOXLGs4+Bx8zcdxCxef
tLIOZd4n8apJHm734+K3scvQtwcc5Eudzu0I5WJMNlDO4hEHP0SE061judhT
uqeZfcJBdbBKpHgKF+obB5e/b+DAPemw+YxMLgIy4p0NmjjYKKp9L6iAC3Z9
oXxMMwc50zItxEq5qKr5GFf/koOsRYP5zRVcmKXcy57RwsG4vMqeVw+5cC2s
9vN6S+YzYFcy6RUXvjG+n4vekfwr73vs0cnF+QFtpb52Dg7cGS5q7udCZUP8
6OIPHAgaJvn7j5P47+vJjOzkQLI3IFlRhocdp9u6Kz5zIOax4M4rFR6MKh78
GvvCQf3XJaLn5vLgpql2x+IbB9tMWV7SEh68nltbxPZwUPu+72rQSh50t1yL
udPHQdCpnBluTjys/fEkeqSfgzjLdcGrtvLg5DOybMkgub9kc9HCYB6m6ufc
3vOLgzFbx6aZ0Tw0Rqj+PTfMwfaB8tl/eDzw1JtEP4yQ9e1yHWnK5OHTJapR
+S8Hspt5j3MKeXCJ9dqxbpzkM7t4qcdVHiRPdd+Nn0DhyIpvwxJVPHR3KHVe
F6Wg+iPsS/5THnb3mjZ3iVNQOBsyqt3KQ7jJOVZZgsL6By02GaR+pk8pVbGV
oiA9njP07RcPi5JyQsOlKdxRy3fWFuMjqOTf7IKpFNZ4TbtjLctH7PatmQ3T
Kczef+2iLYePP2G13iNyFMQUT9+eP5+Pf7ONJmnNoHDPr4ffa8zHwYTBaHsl
Cm76Be3MSj5UH6yoD51JIUDnzM2p6/mYK7qj74QqhU9dMPT35EPrEdNzV53C
r6fuTnn+fLTcFL//gaJwbrrH7mv7+DgSOBYprkHB+0lzwJlDfLgILktpa1HQ
5M+Zt1/Ah+Qrl0ibORQMi997aZ/g45SCWp3vXAqZpcElZaf5UJhn8vOwDoWY
+y6n5paS58m1iuXrkuen77t8oJwPt17DoTsLKEisXuNx8T4fd0b9n7w2oOD3
REGy5hkf8oXF3AFDCkVbhtQqWvlIiaR1phhRmOSqMZDRxYeoad8VDWMKqXtC
ProM8NHaaqZlYkIhyjxi5a9RPq5wdWPXmVKoSjq2M2pyCmbmt9dsN6dwSl3+
aKdsCuzq9/3aZ0Gh1pDWNVRLQe1H6RlcSwquy3uWes9JQf+MqlknVlAQX+h5
PtogBSWNJernVlE4OFZRPX9ZChoavkjetKEgPP2nvwMpuMFJ7aq1oxD44bl/
uHUKLqmWlDWtoSDCb3ijtS4FwVEeUW1rKcidyONO8EjBLvtLi746UNhW4TLH
Z1cK7EeuvR9YT+FydZ0NLyYFGuujk/44U0iblaSwl0lBfZycpqgrBbO3atnq
eSmYRyfclHSjcFx54lemNAVbDV7bTNtMocOeJ/Lw3xRMoVWa5D0o6JW++fCw
MQVeTx3clLZQ4Dn38492pGCjMObtzK0Uftbl9M75noKH8857qG6nMD3s6Njh
8RQc6GxuVfWmEFcQcObi1FTMjx33UPWlcOn+rcen1VNxctm8tpl+JJ+8NZz9
dFOR9MZhm1IAhQPtPoojy1KRfnZ3l3wQyR+zqN7NdqlYtz9h77Rg8v4PCy+m
bEzF+OnDIlJ7KOiqC2YLfFKRwQk8JhpCQTtzg/rW0FREb9dbOBpK4euOW+7i
h1Lhm/Bv8499FNQ/z8o/KEwFNV/5UPd+CsEzqy48PJmKtafmGHdEUrhtWGzc
fZa87+3WoeYoCo/a+gbbr6fCYoJOzYODFN4kX80ovpcK6fTR7PJYCnZ6tvVr
G1JRttQy4cIhCvaS1iZ1b1NxwePj/pwECksKCnjKX1JhrvQkSphIIfL4E0+r
wVTo6XYxB5MpNHTfcVklIsCaqTOvB/JIvd+Tk9KQFuDne9v/3FIorL2ipdii
JEB2rPuSVQIK/ZFqUwM1BVgZvjjdgKHg5Cxx+PUC8nuZG5NU0ygkJX+fpLFM
gMWrq4RiRymUX/qmYbtKAL//jPR60ik8XmO4bY2jAFbhAx+aMyiEfV5oq+su
AEe3ubT8OAWjrFz3bz4CeCqVZf6TRWGZMV+Nt0eAmxLhx5OyST+oC5ScFCVA
Wlb31YAcCk2Hl+VsTxRg2aKe7rV5FETzI11yGQEsJm9YbpBPwVzPrqDihAB5
qsMXZU9T0GnaN367QABp22LzgUJyfSj5bdYFARRNrL49K6KgFd5U5FEmgE8I
c7P0HIWBvrgmkSoB2h29zwiLKQxfKqxLrhegXjrteuAFChtlbfr7nwswUN75
2eYShX+Lg8os3glQ5axnqnmZQlvv/Li9nwVwLTa++vcKBZ+oa5eS+wTIONjg
8OoahYwZHmfjhwUwDayULb1B6nvN+frtE4R4O9r4O/kmhXcnduybKyXEt9OP
Jbxuk/4Smy7eLCfEnapIC6MKCguGT770URUiJjcnR+ouhYmfjazaNIXQPiCi
3V5JwUMsMc9cV4iQ2B0tV6rI/afUbA8vFqK2kX8jsZrkx5ik8IqZEKqJSys3
1lKIz31X+2ClEJ/P6w3OraNQI3bNss5eiJ92Oq6/H1DY77/c6aKLEHY+PZ8e
1JPxqUfWMR5C9IwuPp35mIJ11dpdxt5CNE67m+bzlMI+0Z1ybwKF4J9aecmw
kcLD1KBDvqFCGJxN+Dv2jMJ95z1i7w4IobzE6GD9cwrMmE2neTw5LzrL6R97
QfK/+agfjyfEQ4Xn8l6vSD+tqH1VyQphk7lAd24LBfcW7f3vM4VoF30b8f0N
mc+Uj/zeHCGsWcFIWSsF/dXirl2FQjyOG7kc00b6291klcclQojrvMhd2UGh
8oHLzFNXhdg70FAj+YGs9721RzbfFmK2S/aspx8pGJc61ohVCeHd1n0j7ROF
p+XmPSfrhFhlHJjo0kWhM2fUjibnW1v1xwLFr2Q+dYcUjzSTePiVN77qplAW
8lzQ/4Zcn/p53fH/SL2nT+1e/l4IhjMs4dZL4cm9QO8DXUKcf5g9rvid9Ovb
K4xO9whR5hWz6EU/6e9SCukVP4RgnawLj/wg+Xs4oaz6txCOxqc2OPyksPKw
74tb40I8q9NZNWWIQs+Cao1ccQaancfC7g+T+Sa9eB46hSH94nBn3AjJrxB5
taWyDCIlso8tG6WwotBgwX+KDP7LjuP++EvB01PDjFVj8Ov1izvF4+T5HM39
WhoMHi2lTl4WofFw241p57QZuM5e8Dt1Ao1jf4uNOHoMdM38fu+cSCMjT1P5
sCGDhXnq2VaiNOlz7Kc3xgwey+S8VxOj8Xfo9iMNcwbH3i6t/0W8bej+kLsV
A5E/Zq6N4jQedS3KSLJhMPX3cOK5STQmOb5vyrdn8GPs9qb4yTTid8i2lK5n
UNnU+GyzBI3GiUHPS10ZSLxO7jWUpNEWMuG/fHcGqdP1SqWkaNxctNY+eSuD
N2oySh+IzXKXqm/xYTBgFqZ5awqNAa56snYAgy+OF18w0jQkWx9c/hjMILFl
0gJfGRqbJx2sORLKoGv4ga7ZVBr/RAx+WhzBQC3Uokl2Go3xCd5m9dEM7l28
xukidp17sMfpEIN/rofIVUynwdm1h9OQyMDGqPoCK0sjPKHvx3I+g1Oxfd+9
5Wj4xesfyRcyiE9B61J5Gg9+dauNHGGw7efYbmkFGjMUvctWZTK4Px5S0k4s
8o/v4cST5P2PdqZdmUHj8k+7M7dyGQRZnaQTFWlE/hpY/qGAwfEVbW4blWis
En+5e7yIASIGl81TppF/bXiTbAmD+QFadSPEBjU/1JVLGZyxv/b30Uwaqs8G
38pfYyD/92tbtgqNhmn/XhW7ySBMdErgLlUaS6deqekuZ/D7iEe+uRoNhU1V
evcrGSTxNRNl1Gn0ysfJZFYzMN93Wv4dsf1x9XjPOgbiKZrrSjg0joj7nZv5
iIHC5c7FURSN0gdP8h49ZRB8YP4DO5qsv6JXYmgTgz1zTSWUZ9EYCm4IlX3J
YH2x689PxOqD4dzCFgZ5+f8yVzVoVA46t+u/Y/DUs/xVnCYNZ0Pp9NIOMp9W
7pO1WjSsjXurtDsZPGsI2Ksym6zH/YGEY10MXE7kV38mviF1d/B3NwOZtXtr
rswh9/fmLdjQS+JzWSksRpvG8KqsNUX9DK4sf9lkN5eGm4abz/dBBn2zejoU
5tG48HnpMYNhsh7LsnPaiZcetR/c+YeBJEdT+rwODd6TDSczxhgsUaiaFzaf
jCf0Wd8mwuKM6vUhc10an4cDZXdNZDHvi3n4ZD0ad99ePDEkyiL/44nCRmKJ
uJGfB8VZxCyYnHRiAckHi6GFIpNZ6ORVK23Xp9H0d96mGAlyvU7aXceARs2/
g+HDkiyWfKMcB4hzFTMzgqew8JBaNnRrIQ3lwgXVHdIs7rZmOh4ypPHmaNlk
h6ksXJ/v87BdRMNSRmb3rWksKpWnq05bTKP62ldRWpbFybT81BfEy+W/NMbL
sRB/53f5pBGpL6mEjvfyLEZccnjbltA4vEbR3HwGi5qpMTO0jWmI32j7nq7I
Ysdbqw3/Ebc9GxH/qsRiyEbb7vJSGp16gUkmM8l8cnz695nQ0H0qF52kwiK9
03jdsmU0TgvKvjeostBsf+U1RjwtcWLvDHUW8dNi59wzpcmfgbiDbhwWcdd9
8xPNaPzq+edsJsViV0Pdc1tzGp7aFRHPaRZclbe3pyyn4dspMTRFg4WbfMvG
p8RxEkW6lposlH79Ps9akPG/ZWmEarGQqdx3zQk0dhU9ff/PbBY/dA6HKViS
eCfJhT6Zw2JDmce3F8RVJurtP7VZ9OQvmZlpRaNvVeoC1XksJHptxzauoFGw
utPfXIfFu831WcoryfpuTjvhMZ9F367+3tfEYau6aiN0WewMHhw5vorUc/es
oTQ9FiG+kpVu1qSfJPsYnV1A4q/pa6psQ8NKrJJbrs9ijjH2vCK2M9H6/ciA
hf+vx54ZtqTfIkzYspCFdpSl2AY7kj8V+x07DVl8KmjaIb+axlXOe+v/FrGw
U7ge/Yz48Hf7yP7F5H4jdQdmDY0zClZ9P4xYzF1i8dbensZEGcPSH0tYJE9x
mCW1lkaMTWT1d2MWInvjZtURS633Mvi2lMXLL5NaE9bR0NNQGvtgwiKoYsZ6
ONA4tKly0etlLI6PtseNEt+N2/663pTFz0PHA2860rC1GRq4bcbCuGevbNh6
Gn8qt/LPmrOILsoJ0XeisT83uPDochbZHxyZbuJH+9+tjrYg+X7i9s5CZxrm
A66HtoPFNlZm1MuF7D9TQhysLVks2hBlr7KBRoDd1XJtKxatFkabmol9fqc+
nrSCRWpIkIbQlcbYNi/uR2KpN+vP2mykIfgV8fPOShYTFyh+E3Ej8chWVMlY
xWJ9/9fuW8ROTTtGA61ZOIb8LQrZRPL5y4F8CxuSn4/iNOZvJvMx8pGTtWUx
9r5g80fiAjtVpw7iSP8Mx5PuJL84iTsv2LFo7EgWc/Yg+8faA24Rq1ksTi8K
l/Ik8bO4p2O5hsX0U1pFVcTTXBU6J9uTfPuglxGxhYyvrcx/TFyhPLBC34vG
nFM+GsxaForVuaWfiNVNEq84rGORYujTenIr2e/0vltMdWDRlbSnbv02GiNp
0xvriVsv9u2dvJ3GpmOWfomOLGz8prdWEH863SCzfD2LAxCZFLKDhlrGcO0g
cVT6f31zvGn4P/t27JwTi7VpE7PeEi+KrY/3cGahv3i3GOtDw+NqUZqMC4sP
q730V/qS/GC4dRXEvaHjKsPE3Xu95wVsYNHOia4r3kn6n/LsihmuLHipE4y8
/Ej8H585XEls31C+Q86fzId/M3nnRhZOj1461xJvVlWrl3Fj0bAkRjwigMZu
lyTHK8Qrs95F6ATS+KmRS23YxOKOI32xlXj09gSzX8TTuXsLhUGkXmrNzh/b
zELVcnQLdtEI3tsUvMidJeeMb2/6ifefWypsID7g4T+zIJish26LdIAHid/7
PBWX3aS+L8n2TfRkUa5f0Sa2h0ay5GKTLOI8/08+14mXrU7q099Cridbl/rs
Jf3tk5ViDfFHV8m7M0LIflh//LKrF4lPxEamllhBUFzbRXzee7PWvlCyP8Uf
dd2/lUWGr+lBrTCyf7d6+olvY5Gbp5n1nFj7ufR4GnGWlFlU/D7Sn29mctS3
swgOuUAvDKeRoPmt/gyxY3Qev53YYPzLZP0dLH7nm98S7KdxoMyv5Trxe+ML
JaYRZL9yMl5h6s0ifIeSz1finzFKdpXEzrNPf8iIpCGsr+q19GER4RI1e+UB
cl650GlcTRybW6PXT/z0nNbcFb4sXqUW/TkVRd7PT626ivjngTXM6mgarc89
pC12shDkvfryi3iR0a7J5cQPpEMlCg7SSLd/VGbkxyKsaGXvuhhS/4Hf6EvE
lgtDs0aIJ2cstdb2J/mzYrbMmVgaFxmF+TnEcU6HrNfH0Zgu+rpJPoAl63bB
epS4KqUJXOLx4EaZokPkPPNxdcQf4jkF07LXx5P9+lNM9K5AUu90Wv8f4qvX
CxzbiKdnHZh6JoG4+dPQ2iAWM/L6BxwO03Bf5L+vgjj3pGrub+L4DXaP5+1i
If1MXb4gkYbpxhPjx4jrvdQd7JNovJP3lpsQTOJjZeH8kzjVrGRyILGVw1kq
J5lGy5agD8+Ja4wPXrPmkv1oWmah6W4WibwPsn3EMd8VXfKJRS6OGmfyaKx5
9vT75D0s2rr75ljwyXn3zomYIGJ6e0fbZ+KhGWtEGomd5Aa8hCkknwouRhju
ZXHzpe15o1QaDiXc7qPEUTsl7rYS86dkuA0Sv97kcjJBQOOWVWqtcwipN9rR
SkdIY2PqzMVXiGulqKuNxEbfO89MCyXrZd3ZE86Q9fIU0kHEhe33BtRYGtvL
LhbUEefefVd1j9ix85WhRhiLmcUb3f3SaJztS2+MIq5a7Vwpc4SGyrSA2Gbi
u7N+9FwhNr/ZbKm7j0XLkU1dG4/SOHh9jUoCcVH72eJR4iFjiyktxDfnipr+
k07+D3QrKy0IJ/W9i39s1TEaQSOmiCe+Itha/pVYzUSc94J4qk1RiSCD9Av1
Rz+097P4H9/e7NU=
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJwtWHk8VVsYVSIZUqmIOmeLNJEmkfKsvFKajKHSU0lPaUAoEUrc8Rw0UKY8
JaVEmpRKs9JA0iBCGimJRpLevq77j9/67ePefb691vrWt/VXbnTy7qmgoMD3
UFCQ/R1eVH2ubQODQ7WX+w5NFKPt2ONVUf4MJm420T8gkODQnYPBaoEMcke8
jkqbKsV4LGyOD2aw/t2vo/7XpXi48lnZ4BAGpT+cX2WyHGLOzxiWFErXb3bm
/5rPIVE15oleeDe25dDpldqZHMlg6If6KUmKHI4bhiXqRjGY5vdA6BQixRkl
rYOJ0fJ13dMSLDWwN9ASMvhl6fdApUQMFWVdXU7MgFf+PPh2nQh6xxaLlDgG
jXvz1Vs8RTjGfQ4Ii2VgUNUWvnaiCMNzLz1riWeQn9qcdeuPEMUHUi5672Gw
3ehaTNZdIUYJvMmzBAblGz17P0gVYoNxk5LdfgbKAwZa2wYJsbuz18aCZAZq
Zw6HzPYSImZo6DKjNAZ0u+U1DkKYLNN9tCudwR/939+/2Qjh4Zb98HcGgyrx
b+/N44U4uKZ5yb+ZDGau2fhZiRFi8LVsv9IsBoLBlQ829xPis3fSwCnZDKxv
VZ/p1VMIw6khc5KPMzAcFS49/1mAGqU/Gn9OMEjtn3np6isB6qLqVq84ySBz
IbRWVArwxLPU5dopBj3H0m8sEUBqs7VS/yyDh8Or2jovC6D1TPo9ooDBnTfW
h2oLBHjwJDen+gKDzr/bm3zzBFinLFKwuETr0etm7IRMAUptCz/HFzFw9E3a
nHJAgKqEtxGNVxn0L75QwCULMFnvSO6MGwwuPKcvuEuAN4ZJ2xNvMZiwf4zO
XokAbeYuPz7cZlDfsDdfSnFnf98B1ncZ9LXP3fNGIIBfnl9F3H1ab4WanqKd
Agxz+/rXy1IGt/cVJsRFCbA2YYfz+HJaz/zQ1vGRAsQ5ZmqFVzDo5z719JwI
Aa7eeBVZ8oTB+MKRmmp0fbrkWsqgSgZPXD+aFoYL4Jp53cezioHnvvmDpNsE
WB2++m3WCwZWqk8PfqbPZ7eO1G6uZaAuKxjFuot2dEyuZ1D5gBKYYsOgpsSQ
1/L9q0cL4HWopvHiWwZ92tL/PUWx2cXb3zvfM5hyf9pCR6EA7gZDL1l/kPO3
nBPA85GtdUQTg30vdguieQGM/zkdfqmZQYfOpqcDaL0WfLkf1t7CICukePSF
BAGcvNstp3xlcG5lRKVVkgB9TdMu+H1n0KbZcC43RYCyLXq/j/5ksJEekGaa
AKJh5Yr17QzyAnzi19PzepPLlun8ZjD/sKrtiCwBXCI8vRb+YfCFdw40zBag
T2rj5R09WGyYHHnuSq4AjXXar88ospDRd3m+ABs/Tat4p8QixuLJzSbKj+Cp
R+N0VFj5+1P+9FPL052jyuJ2b6vkx9cEmBSTtilYncXc0CjT+cWUP8evpBzs
y6I1z8E36Z4AESuXJ5b2YyEqr6mTlAvwK/DmqvYBLCh7tY2eCXAlxUzZcBCL
yxQ+qhFgW9TXsPnaLFbTz9s3Aujd/rtk0xAWKTdIXkCDAKMUvZr367Fd5zvt
Cz2fu7FNl4excO1rkp/aLkBlgdKtepaFk11q5GEFIXb5doYoDWfxrerp9k29
hXDhTqqONGQxaBhVANVbn6cuIbONWLkfaAuROnBo8epRLKptFbdIhgkxcPTU
bzvHsDByVjq4y5B+34DqXhnGtD5LHl30MhbC/dPEH5fGsQhpMJqgMkmISx1r
7j8bz4JW47DYQgitzGPC1oms3C+shZCEkDFqZnR/I9NF422FUJzWnD/cnKU8
4J2/zheiunq64dSpLGR0NnMRIl9oHLFwGgtuVJPG5aVCDMmovbHSisVuyx4L
elH/sSsJ+h5kzcLnVOMmM18hbr5SHyScwYLS2+/SJiFaBl3V3/83C4/Ya9+O
bBXieNnxYUdnsTAXzVjuHSlEaen7PgWz6e/v1LDP3SnEWUb67qYdi9/fg+qG
CoXI1Tt+rnweC5dXmck3pNQPQz1CaxawGC57IEGI9fNzJzXYs1jy7fxzcYYQ
89tPv2x1ZLHxc/QdlxwhhjuGxfxypvxx1z7nWCBESeQAA0VXFgW5iu+k14QY
TaIK+rjL+aJ7X4jl45/N1lzC4mJCnGb7MyHUiG65lgeLpP3081oIzwf27tr/
sHi5deCJ4mYh3PjwqiHLWZi+MFTe/kuIO6OzPfRWsl36nNRbhK2vK6r1VlEs
Zr0+9RdhbMQfD73VlG8HdE2XDRUh2XJ0zRAfFjVUnkuMRIh5br9Cey0Lcd7L
hkGmIuw5svGd1joWqZFG15QtRFi4OcpfcwOLLyztEDNE+HNop4KqH4vs5S5O
WXYiJDC+exUDWEyrtee0nUUIW2kyoWMTC7elJ4s+eoiwOupKxZcgyi9KR9vV
IrBjdbY3bmZxnlP+nOAnwoJUI/O6EBYyu80Ipfu9UP2jIpTuh25/SYwI1j3G
3Li9Tc4v1XgR1Pd0pBRGyM/PNFmEcxYzonK2Uz1sO3G2/qAIOR6vNqdFUX7E
N4UVZYtgpX0/lI9mMczi35lr8kUwMX4Xu03Qza/zIszrO+SMr4jFX+8rj7df
EeHbyzkf3SUsbJa/KRt+R4SUiKVTZnEs9lb08Rn+UISZwZP3jI9lcXWqwdxf
lfR5jbPKevEsgu2ZwWvfiDB57lW+124W7kfM7hd+FsHno5lJ0x4W//2c8Hbc
TxFsglvrKxJYLFxJHf23CIxxRV7hPsoPJvrDQ0UxlmmfS/wviZXnCTUxClSC
98WksKDyyVuhJUZ8UuOptWnd9dcVw3JSU+OCdOpn2aWPXQ3EsO696K/xGSxk
9N5jIka63s8T/Q+xXX6fMEUM9TnHrFoz2S5/NbUSY/BUmw8Ps1joUMEbzBTD
OyC2IO8orU/ihgGK88SodVh1mD/G4us6123jnMQoUY8/45vTrd/FYrQWvn47
O5fqJdAwMWKFGFedTaYZnGQhk8PVNWK4HjM/9TufheS3949VfmIkbCu1f3qa
hUxeJFiMab5F/fPOshj7PfGFVpgYVR1lbYICVt5Pdojx4dA9Fc8LLNYobNy+
UyTGpash1mYX5fyMiRMj/EBamuplFib67Nd1+8QYuVVhZG0RCzvZAwfECIjw
qsy/ymKdTCCHxbhZJj4bfV3uD6NyxNCLtihyu8kiqGeSSvIpMd5mm3wdVcyC
Qr2082J8sxvj2nZbzu/EK2LYeTe9uV3CYpnMMIvFaOqYfCjxHgsaB1uc7otR
pnk53vtBt788EkOcOjN3YhkL6qaWPZ6LMf5I1O/OhywNL9cfja0TQ2eK2baS
R/L9f3wrRqLzANO9j+XPb/8kxp2Bj7Q8n8r5cv6rGLMTxxmPqmQxW3GLmuEv
ej6KVVs+P2dRMvHGyRM9JLCN49rPVXf3s94S3ItsPxlewyIxTnPrlL4SKI15
fGBmXff3DZLAv7X0Rp96uZ+e0ZNghEuK/oNX1H+oHA30JVhV03g2/g0L2fKg
kRLMMveNdnnHgsgCo4kEc4bd4wY3yPU8eKIETT6FZU8bu/VgQdf7vl2472P3
71lJEMv8VHH/xOKQn5Wqm40E2XdS/gz+LH+fQ7MlOOcZPulxC32f6zY5DfMl
iHOyzdz1Rd6PBjhJ4GCeusj+G4s51BDHuUnwsHjMLLUf1D8Dd+vs9JDA4PXe
wFs/u/W5XEL9YufryPbu+npLEKKSsteyo3vdV4KPKZHCL79ZHPvLbekEfwm+
P3t86dgfFrqOz/U6giS4a8Emn1QgKB5tuWteqASuI8a1SXuQLr06RkpgPN2n
7d+eRK7naAkmpA9LsVEk8v4jofXXSHs5tBeR5/M4CfZWWZR8p7irP++VQOHX
dNcyJYKivimThidL0LftZ/RRZYKTLxv2TkyX4EvnhcU7ehN5/8iUoKi87OES
FYLR1L7GH5NA5Zng08Q+BDI6jMqTQNrPJE9VlSC7pXxBPZ0fng/V0K6n2KzZ
YlbxBQlapwcanFcj8voWSfDe4cTjWHUizzc3JIiuVB63WoNg9Y/XK/RLJHj3
87bx9L4EF5UGDCwqlWDoJuvy/poEJrIAUSHBtROnmXcUd80blRL8dyZgwMV+
BDSNjtSslWC22fWcuP5EPl+8kiA1ovnzqgEEknVUMe8l2CFBtYUWwT8X7NR7
fpJgxbfOjeoDibx/tkpw60/A8VqKZXxq/E73v/t1fP4gAv/jkiqfDgnW2SST
6MEEMntvVpBi39817m7aBAPpQGGmJAW2fLUcrUP/319PY7mqFGPXGha3U0zV
5z1EU4rD80//vjuEyPOilhRavxtqUnS7660jRaCimu96PQIZne8Pk6Jtl0eG
1VCChjnj/ugPlyJGbBCtMYxAzL9uZUdKYRV0SOsFxZPo55SxFEoSg4XHGYLd
Or1c+QlSDDz5enIoS7r6wQkLKTZsHXvbjhB5vpsphd+oaSo6+t31cJLC8Zjr
tzcUT501OyBkhRTpGVdiTw0nMDzfIQj0k+LBssKnkQYE67ZszTweRt+nWnh/
gSHBIOncxp3RdD4tXeuvO4IgQjZASqRw2Z9x/S3FtXVqu0fHSqGxwP9GvhFd
X3sxUGs3rc9J7cDwkQRBdMNP9kmR/9eTcrtRpCt/xx6Qolm/qW7gaHm9Nx6W
otUyJa2WYjXbEUE9c6XowxioZ48hkNndgnNSTBl4dXTgWCLX62W6P70zP6yM
CXrLBpRbUox+bxXc24Tg57VV2XX3pMh4tT+zjOJYehyJ5VKEj+sds38cQWfF
lobDz6QYk35de6UpwfGcZ57BNXS9WH3pmPFEni9e09/7wDq0UizLM3sbpPBQ
tfxxfgJBQr66v3GzFJerEx22TyRoLV+wst83KVwfBXnMmURAx5mH8e1SFOn0
09OcTPAw3qPz+h8pkuMzpI8p7spXShyUXvicTDYj8vlZlUO7S5poxRSCT0ts
/vLR5HCjb/igkeYEB6YbVyQN5OBVZbPoI8WLxo85qqXL4cfskXYnLQgGRF0p
0Wc5jEnzbgmaSuTzggGHPa/NF1paEoTQALFgFAeD2qeenRQP/nX3k50Jhx2a
EUbXppEuPz87gUPkmdUZ0dMJVI4PXbLKjMP60uJHc6wIHm9pMDo5lYNQt+qC
2l9Un3RgybXi4K5V6faA4o6j1CBmcND+3pYdZ03wiJbj2SwOGkVBp51AUHZq
8bepczl8GbMzcOAMghktXvdeLOCw6JzHh8cUR4eVnap05NCUMWVIog2BZsqk
jNNuHFQ+zel0+5vI86IHhxdLSpJ0ZhKw1C4tPDk0r2/59Izilf89mdzsxeHf
DV/b980iiEungvDhELC6T5G7LUEeld+odRySDVZP05lN4EAHSLeNHIzM4feU
Ytl4OzeQw5rv95YlzCGg8d9KdTOHkaEzei2yk+tv0lYObw6We2nNJbjg26eN
RHCwG3gm7CHFX39XbFmzg/6/2TD72HmkK/8cjOYwaop11fz5BGN19laIRBwE
avb6qgsIfIZThXEcFPwj9YsplvXX9fEcnrxXro5aKD+v+3s4rLs4yBH2RJ4n
9nPY11Eb2UHxzPamD0jl8G37Pt8CB8qXMGuzfw5wMG/y7x/oSP1MT6Mu5yCH
sKy0AFMngnsRc4q2ZXFIqXeIbaS4a57P5hC+/8K/mc7dfpXDYUWcRoenC0EY
HSg+nOQwaVHofN1FBG4yAz7NodrabHEFxV3z5FkO0oB1w3lXuX/9d56D6nPH
I7PdCNbIBphLHHqOG/xBwZ36Xe4eb+EVDo4tDY3nKXaQBcIbHBwCfmcFLKb9
Qei1zOM25efdyOFjl5CufN1QwqHz5cElr5bI+53/fQ4haxIckpfK+VBbxqGs
TtDL2YPuh9LFvILD5D1ZwarLCAoLOGW/pxz6pRpmXV3W7QdVlG/1Jglb/iE4
4kYTTi2Hizqtf5t6ErxfSxNjPYfB1w/kvaE4gAZa87ccJBO9q5OXE1xyStDv
28jhXYxfseMKIs9LTbQeJ5r9e68kXfPQi88cZvv0q75IccvXuYuVv3HYCgXl
AC8iv3/7ySF0z8dmo1UEU6Zfchr8i8OC+J5JVau6+/UfDqaTN/aK8yZIo+P0
3R486ud6ms5cLfcro148Pm36o/uT4p1p97PtVXjUMmHFx/4l8vlbnYdI2sPM
04fWq9fk/mc1ecwvLfQasIb2i6M7HO20eDjdfeJ8k+LgupT+mYN5lE4JV9qy
ltaHjgfJQ3jMTHqxZYxvt38N5XHJgZyopviXx/qbnSyPfkL/TH4dkc8vBjz0
ZnT8g/Wk634pbwQPZYcPz1soXkUDrsZoHls91gw5uKHbP415vHuZruuykXTd
X4aa8ig0vVjTy4/I73cm8khf88b7DMWy+zENM7ousM3z9idd9wlq5jxeufa5
PCiAYH8hHXAtaX22uMXeDOjerxWP7FVLDIM2EXnet+aRsHraNsNAgpx2+gI2
PA6kGyQ9ovhz1q155rY8klSnh+4IIrCkhqZox2NDQA6ZEEzk8/88Hg5h6eLa
4G6/tefRlmF1ntvc7ZeOPF6a5xyftoVgGzW4IBcewV7a3g0U0/bapunOw3nE
ofqEELk+a5bw2OISOmLmVjn/Zi7jEXHghkkLxbL7G+flPJ5Ks36lhhKES8/7
9vHi8W3rvNi5YQRnDocUj/bmwaU/ff+dYmPvIfXuPjxuq29SObiNyO9zfXkE
Zs38tDCcdN2n/rOex4wJm5LaKXaXBXo/yp+/R2gcjqD9tAdNYIE8Ip222zpG
yvvBnWAem4/m2HZQXNOTTvxbefzZUKaRtZ3gZuyEzTnbeBgd1Exx3NGdfyJ5
qJL4ll8UU3vr834H5UfS1r6Ho7r9IYbHoPSWVvudBNqVD348EtL6J+sdaNsp
9+MjEh7qD4dpHYzuzgM8jxLPYfbzY4h8foij9bGxdv5GcVfe3sXDxv4Imyag
evCmgTKBxw3zbadthbT+J86ujNjHI1pU37+Z4tO3gy+zyTwUTnSYJ4rkealv
Go+axmYjazHBEApN0nmQlXU1b8XyvLEjg+pjQKsnL+nWTyaPgidzss2kRJ7v
s3iE/qtyuZpi2bjnkc3j2WKX5CiOQEYPhxyqN+JgM4an70Mb8txcHjdV2VNl
FHfdF5+k52X7uik4loDKP+G/0zwya6+1Do0jGEnbv9tZWp/LL65ei+vWfwGP
IcfclvrEE/n9diGPq3OdizR2ka77Va9LPC7rf2nKp/gIpbOoiEflrsXv3HYT
zFscY+F6jUdW7ZFjHRQv1j73MPIGfZ9RitP+20Nw7qFCzY5bVN/rxXtn7SVd
9/9z7vDI55YXNlDcNa/d5dF3dtZxLoHOB3f7FVve5/E/mYAOxw==
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 590.46}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {588, 1080}}, {{7.608374474380783, 
             8.294049640102028}, {588, 1080}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 590.46}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"b) 2C framework\"", {
              FontFamily -> "Helvetica", FontSize -> 16}, StripOnInput -> 
              False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.3, 0.9}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox["\"Gt C\"", TraditionalForm], None}, {None, None}}, 
          FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{700, 
               FormBox["700", TraditionalForm]}, {800, 
               FormBox["800", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}, {900, 
               FormBox["900", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1100, 
               FormBox["1100", TraditionalForm]}}, {{700, 
               FormBox["700", TraditionalForm]}, {800, 
               FormBox["800", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}, {900, 
               FormBox["900", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1100, 
               FormBox["1100", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {588, 1080}}, {{7.608374474380783, 
             8.294049640102028}, {588, 1080}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], 
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwl1ndcTf8fB/B7zzlWw2hJ6ZxDGaXsst2X0KBoFyI0jIxKIqVFQ0NDipa+
QlRWRkKSvUtFIUVKpKSUlMbvc+/v/nMfz8c599zPea/PZ8zGnRbOlEAgOCwU
CMTfYwur8rp2sJgh+fwQdWW/cTrgzuLOcy+devVfolNPM7ykPVkMib1Wzp1p
E03FipZYLxbadzxtzyp0iF5vrCxR8mZxobLeotCxUxSSv0gtyYfFz/y/1iND
u0SJUiFvVf1YnB3xo+e4+z9Rn2NqX3IACwu80d2h2CvK0fBNVDnAIlqWz9nv
1Ce6NkA+IzGYReyMfUPHW/SL1qivVJcPYzH7cKjnw4p+0eCBKipR4SyycpT6
yUekmr3q0IAoFstWTZA4O+qXh280i+1XZ0o89mJBZWssi/zD/7//8YmU287x
LL4LBko8MdSZr0xg0Zn+u0/sHdrNA4yPszDY/FriI33MzhvJLF79yJY4ZLTP
2vFpLF6YRUqss1alLC6dxaV6e4ntbbNe955kMTN/hMQZW1pWbzrN4tz2sl6x
le5luRVnsgj/FibxL+ckBb0sFpb9KyXWmONtlJzDws58kcTVA/pl+y+weH5H
X+JPBz65bLjMwnq7gsRvHYqt7l1hcWZZQ4/Ykfr73o25zuLu+2yJ5Ssj//jf
YJEzLkTiV28vnq+6yaJltYHE2wYeEswuYLG5dbzExQa3fsUWsvi2dpDEHxK+
+jcWsUj71v5P7JmqZy8uesDCiP0mcb1GUmDiIxazxjZI3DXLqvPHExYrj/VK
3DfCVU70nLz/OGXJ89wuuZXHvGQxZiwjsZpt+8LPxSwq/hRL7t+aEGQ5tZRF
r+J/EseYn5b3KyfPn2YtcdGDLwHP3rL4lz1U4vkR91IU37FIkCvtFtvm9P3N
Dh9Y6D8MltjFz+Vr5kcWcXFTJc5qmzCypYaF/7BHXWKrWAf1zKxlsarVRGKN
3c2J3nUsqgO//RXb8VR14+2vLK5arZJY9/aTP33fWLhMP9cptp366ALRDxYh
2uV/xHYoMxD5NxMXfOgQW3vdVb+CFhbyd/PbxTb9/dK3u5XFJNGm32JbOHfP
1Wtn4aT0pFXsoVPSbrr9YfFZo6VF7JK9qr3n/rL4876/WexDaqV0bTeL4FtZ
PyTxv8iVKPeSflPr+ya2lb+D44p+0p/BDfViD0ltvBMk5NBsu75W7MZPI+uu
0RwKpAOrxd75c155wwAOCt6j34vtNedcjPJgDiceLn0j9nDpSypGUhy+7a4o
FntGSNouLxkOoW1Xn0rqJ+duSsZQDgcHnrkntv/G9YnFwzksvJ1xU+x/ng+d
uuU4FPOHLot9N0V3oIYih2zHbZli7z/Q7msykkPDn6AUST8/Wfxs1ygO8yMt
/5P0J+3YclyVQ9b0656S/DyPbr6jxuGNaaKd2O9uDHhUy3EYIbi/VOw41z7v
AWM5SF/UniaJR9RlqQkaHNJ3WapI4lFh5W04nsOtf7OEYqcqjH7sMpFDpKZx
PWlYkYLmnI6DWhxeft3zSOw4uSrmpDaHvDyvU2Lb/ZzeWTCZrH9avp/YBT1b
XlZO5WB4scxKbPnT2WFt0zlYjvsxXuwIb15LWpdDyrDc36RhRfS8ltyxszho
qLy9KXZV1XyNOXM4FDUE+4idG6btv2Ieh8b5a3TFHnWy5sHGBRysC2/VkYYR
GT/b/We3iMOoiFExYj/8IqMYtoiDiV3kWLFbFYvGHF/MQVG/YJLYOSU5aueW
cmBmF7RWi/u7+NuQG4YcDquENBzt6xddZyMbHhpzmOviXUr19IsuqubklS7n
4C577aB+F5mHPvY+1aYcZBdfPZ73t1+03eTijO8rOXR9MdKa9a9fZNJ99XOb
OYnX8TZdybw19w35Z0ni6ykzRJ8W4FmAnDptw2Hoql19UwYJoMkfuDHEjsPS
bRk/MqQFWD+10nDYag51ea6XAocLIM2rlMrbc/j7TdR0RVEAh1cr7Uau4zC4
r4fTUhXA9rDfh1HriSNMHSp4AZ5qZtmrbuSwfUC50+XxAuyrK69SdeJwyDOo
8aK2AJP8++1VXThMc9Wb9mK6AMlzNatHbeZwdKDhOcEcAULer9wwciuHI3FT
co1EAsSf3dkgv42DfGvM1vSlAqzYc8B92A4OTzrfRzAmAvSfOiiQcuMwUmbt
Cg8LARJY16O0B3n+4r2WDXYC+G7Umdazi9Rj5ar4DQ4CuBy4W/57N4cBz1Wt
apwF4CYpBzbu4XD7m4+CwzYBTFPHz/rkTa6XxUXWeJD13qzqLPfhkFY8+j8H
bwFEQq0HT/aL+49aV+0vgEx8T8otfw47fb/8Wh0iQN7sRQfOB3JIdfQ8VR4p
wHn7L3vSDpD86IdXLTsiwIKRL30OB5P+L8yTKzgugI52Q/T+UA4Z/Y5lWukC
LB866prrIQ7RT41uHTkjQMdnoya7CA69bka7O3MESPFfo7c0isP7wsM3rK8I
sMRrZvzUaA6FM9sMLuST+2WvD1SNJes/GvlDcFeAmcuKDjNHOOydfsDb9JEA
m5t0dZrjObQ5/X125IUA+l5tteUJpF7P8nfLSgVgtcsv3TrGYdsxr4Wy7wRY
OzIv8b8kDtMvDpmKGgFuDPY6FpLCwXt2XdC2egFikxqvbE3jEOcaPDHuhwBz
ZzQ3mqZzWEZvV7zcSuI1yHrh1JMcpgy+jqedAqSr/r0w4hQH1eI7Ge97SfyM
she0nebg4V41p54WQmmO/o/XmWR9C5UF34cI4ewRfePSOQ5uHzra64cJUWPm
dOZwNofcr1CuUhTimUzsNdfzZF5M/7z1uaoQbbfqvhpe5GCfc/XnlTFCFFnq
zFO/TObVvB1njk4QwiZ71pXeXA77fu096qYjRML+4pUVVzkEt1YXLpkhxDzX
whGXrnOwOj9DS26OEB96SrpCb3DY9TngXeVCIX6cejHY4SaZh6P0yo4tEaKg
yJvsQRx6zFXULJYJ4XciLU3qDsmvr6iAMRNiwj7BhJpCDm/TO/MvWQvh4e/4
LreIg8j5+SibNUI8LAm/Hnyfg1al+5f29UKoBs8utH3IYcvSp2pRLkJ8zdJp
n/iY5P9fSTG7TYgOYy2bridkXtRmCLLchTB2bq5/8ozM17u78ibvEaK5Z+ap
xBccho8J/pfjK0TJsDuxzq84XHg4qVwjSIjw1CUXp5eQ/g5+bJQQKsTUswd6
+15zcEwtWi+MEkJZT3f/szIOOubh6i5xQiRayk05+oa8/5eEYw8ShXiqUCbv
UMEh7LnD49GpQhgmTtae+I70p6ZD3o6TJD/0h72/3nOo3TrM7WamEAYxUd15
VRxOjm38258jxIuA7st+1Ryu97usEuUKMUDrzYklnziMaeo+tjdPCPe24gdD
ask8NRxZmH1biHFWKWNefSH/P0ezrLJICKfqxuux9RwS+ONV/Y+EWDrLNdiq
gcxD2We1/AshjNReRCl956BrMap53msSj823SioaSfw1qinzt+T60K8rjjVx
uGuwZdL6D0JEs38H2/0k+28Bs2PLJyGynqb0K/0i8zb+9+tt9ULkOfjNeNPK
4V2G+7qtjULEWBicjvvNwcHpisrGFiHMZqVar+zgEPCwXtaqXYjXj7WWSndy
mCc9WYQuIdTrjno++ssh4tK5a+P7hGReHKwL6OZgumLH3kE0Be/BKUfn9nDo
Dz50uHYQhaaUgLDfvWS/aRH058lQ+FP5piC7nwNkSktCR1B4PptLvizgUaHX
JmWhRMFm3OSuSCGPKakrriqpUtCev7lrE8Vjv96LsjcchWnpain6NA/fAkO3
aA0KL2TTPo9meLzKPhqzWJPC0Q+zn/0hvqMXNK9Nh4Lg33ybkgE85pu+3pM8
ncLQrr/B5wbyaExYaCKaReF3381VQYN4qHvuL/w4j0Jhacnr1YN5vOmbXekF
CoMrQ39OH0KuyyikSi2lEDlc55KUFI+cyecUjhtTeD9admQtsVt++NKxKyi0
zfdUz5fmsfC+vt4ZCwrfzC68iZbhkaRl2axhSyH43cDJLrI8FJN03dPWUGj4
+0R7/lAedNSaJ3LrKYzeJSodMYxHtNXkrkAnCvcuXGUbiFm1YVJNmyn8d81D
7vZwHv9+2wjNt1Mw1L1/PmYED/2XNvWX3Cmk+rf8cpLjIRNue1vai0JQBKpm
y/Mo6TseuWEfhQ0dfTtlFHi0d9nY5/pReNTvkVNDHLmscFpfEFn/kbrYXEUe
Bo//yS0NpbBNP5kPVuKxx1pnYGgEhWOLq+1sR/Iw+7VtxINoCtjbPldTmeTr
0vO5PUcoTNqq8bibWK7UImzKMQpnTK72Ph/FY0whLViXQkG+93t1igoPG4XK
zNB0Cp60tOt2VR5zsoqCc05R6IqzP7lgNI/clKwTL85SCAlXD5ZV49Fisftf
Qw6FBbtPyX8k3hDak9Z3icKACPUVOSyPopXyMcOvUVC4XDfTh+MxeVxwuVo+
hR37Jj0x5nlYNil6jC+g4DZx3mDlMTxO9Abu0CqiYJ5t01FPfEjHr1jzIYX0
k3ejr4zlUVmel6TxlMKrtbcqAtR5MO/K36i8JO9TFfbSVINH3NVdITKvKbwu
3uquMo5HkP+k3K5yClbHT97/Sny/M2JdbSUFWVP3B7njeWQfUot9VEXic3mk
p98EHj52G1ae+UQhd+HbUuOJPOoMXqcF1lFoGdP8SUGTR2J/zUG7byQfc1PS
aohLe/8OnNREYQirLpOlxaP7aIBWVwsFPYUiTc9JPKb3lbXf+03Wp3qtc4E2
j04bY9ewTgqa3xZ4DdLhUXhlyhHjfxROfjl+uoQ4Wb3YfWA/Bb/Jg0KOT+bx
Ln+zTCFFQyv9/siNU3hkJuht3jWQht9jmTVaU3ncaHENV5eiofeDM2sj/q6s
u7dYloa91NzO/Gk86iPz9PaMoHGnKtEscDqPZx0jnqso0rAp221vNINY137u
TWUahcrDVYfNJPW4M/OQ9WgaybEnI98Qc8P7Cpo4GgM+br6crEvyXe5Y5a9O
o9sq7dAGPR6yFW++D51A48FQP8UJs0i/xS37cVyLhuMHfesm4rc/L9fzk2l0
Gk4wvjybh7lRx8eMaeR90pxbd8/hUbWns3KsLo34ulkr5s7l0fAh/kPqbBrq
NRUOfcQf12c0KsynETTMf/y9eeJ8tUmFiWgEXHM5GTyfx6K9yxd16tPYXvy4
zGgBD6k/bnEbDWiEqXy4Kb2Qh4svRz8zpmEn/872FfGoBbLHdExpjPzTlRUj
4pGv1WgdZUZDtnD3VQuQ/hCuX/TdksZvrYOeCot4hJvKOSyypWGdZ//jDbH3
nrQrR1fTaD6pNypRn0fAk+TFX9fSGPzTqM92MZmXnsnyMzbQ+Lj6WZLyEh5H
MyZO9HWi0bK99WclcZvXk+CiTTQ27WjvPraU1KdC91TalYaHy5BCOwMem8/r
TV60g8Rf3WWesiGPgyGtgT7uNMbPglsFcZLg2NRcTxpb/rxYm2BE4p0eu7B+
D40JPosYa2MeX5RwScGHRn1GqaP8Mh5dRv2H4EfDWOGa72viRttxJZsDye91
1VZGLyf5PUeFRh2kMVFP9MHEhIfmz8+5F0JphEqvHCNlyuO69mC7F+E0BO4B
Yx4Tez26uu9rFI233wZWHVjBozdgDNcbQ2PbbUVzrCTriwoyHh5P41hPTUAP
sWbswD4ukUZH4DHXG2aknrPfQjuJxqxm9xGe5jyaA5SUdFNp+GameUyx4OGx
sC5wbjqNlFqz6EbiplN2YfMzSL0fv7nptCWPnqGhOvPO0NgQI9vjYMVD4L1/
t945GjOsfUxUrHmcClviNDmHRpVId1U58fb4mt6xF2lEemwbe9iGzP9sEwOF
XBpS783PGtqSek8+uIi6RoOarPRDYMdjXM++3015NMxbvzfmEzdNZdeX36Rh
5tGb6bGKzANP24gbBaQ+nweMnbSazNdPUt7H79Lo+5yx+gtx+s6ROnvu0/De
kmCWvIZHv7RttvkjGiWfQhlLex5LYtM6Jz6lMTM+00tqLY/HbwoUe5/TGJ6q
kVlEvPmy/5BXr0i91eok7F3H4zKT9Tb5NY3bym2LpziQ/BX2BriU01C6f+JS
PfH4Rj2ZyRU0IqY7VyWv52F4Vsa37R2NhhC3x+YbSP4XTyu/UkXicaHFfdBG
HhnTLZQ9amgYbh5edZvYZLSyiU4tjX0QDPRwJPVcO35XfR0Nn/imlvFOPPhM
tdikBhqmsVTSB+JpZQnnTBppTJm5k4lx5pGmNvHuvyYatcscpixx4fE7dmNl
ZguNn7v6Vf4SyyaWdpi10ahhfR9nb+Jxr6NftbOdxqFIoa7DZh5+NdtXJHXS
MCm+5Si3hceH9qSYud00LJ6/tXxIrGki/FrRQ6NYz2/A3q08OvYoWXj001iS
9HGvlisP/6jllUMoBgVm/IUqYu1Jsr5pDIPhYe6nD28j88rvPqYOYqC6qGcd
tpP6MCnVLBzCYKDZj/etxJvaj81dLsNgn/2WURk7eNTu9fAqH8qg4XO6itVO
sv8GX/u0egSDW1NuVzNuPL56XvWtlmeQvqXe+RrxeZsCUwclcj3U4JKzO8l3
xyjbj8oMvtgMuaPoQc5DNcNS7FQZ8lzb6IfE9ps+ca/VGGQ5rdbYvYucny4+
qTfgGSS4zNuv4UnWc17Ymj+WwYl09aQyYsOpd5dojWOQJDXfJ2g36e+vM+sS
JzDY4XGen+bF44BzZCmlxcDMNz28hrhsUoucqzaDrpML8qP28CjICjxbMpnB
51nnc+bt5aG7zClhxjQGXo4jnb8TMzuv1ByZwcBy3KnaBG8ewQGhoa26DPZa
+Yxbso/H2p/tMSazGfifeKDTSqyhJ9N/ai6DisjMf6k+PIZ+f1fePZ9Bx77l
0ct8eYRedlFcIWIQlV7x7Q/xQ7u8+2mLGDyR2TU4Yz85X7x4Udu0mIFn5pKf
K/x4/Kd+avdsAwaLpu1K6iZ2PK3nH2jE4OficbJn/Ml8eulNPVnGIMAi0MA8
gEeEmQMlY8pgz7nzBj3ErRpvAk1XMujfUSKbGUj+/+DDA5HmDMZnDEsxDyL7
/W8l6aeWDKT42NZ/xBkGOSq0DamPpH1Dzxwg8/i007W5dgwU01vbVh4k+3+8
avXO1ST+yaonuojRfjbxpD0Dmddq8hnBPE5Kf64rXcfgmYPaSpMQ0i/h8U8E
G0h89EWWHcRW0TFLtR0Z6K88y6WF8lick7bO2pnBg1n7rxqE8ZjYdFDJdxOD
4EO1I1qI4ysGuKVvYSC40DMr8RDZj70/bb/nyqC6sWW8KJyct5xL5Gq3M+A3
fqr+SvzgZtSG/p0MLOTaHA5HkPmk+dJexYPBjbdGWbqRJH7dokEzPBn4bBp8
p4o4dGi8o7EXg8pVVskHonic/rbLc+1eBia8mb7WYdKPF0Pm79zH4KEUd6WE
2Hqm2x0/X5Ivg7pmr2gewo6Sngg/Bqdr7rWNjiH7rbpBd0IAic+dj0X3iBXO
bsk/EcRgVLbtms2x5PwysXT+mYMMipZZFsrGkfVLyYdmhTC4M+Z3cy5xiPft
pJwwBu/iVjXYHuGhtnXNvpxwBpk1Z7N7iKtOeE/MiiTvM5Ge9188OX9fTs08
fZj09/bwo0uPkvO+9PLutBgGuVHrb30njukUqifEMRhqmJkTlUDm6QmRRkQ8
g/8BjY0ViQ==
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwd13c8V9//AHAlJaWNIveeQsqIyEo6L2UnKztSGSWVCCWzZJXZsEkiRTSV
jyRpKA2USiWrNBRCum8yfq/vzz8ez8fbfbvnnNc6S3Z4W7lP5uPjS5jEx/e/
30vvtdwe3seA6v///KTDxW/cInwYyPeUMd8g/pvmPz0fMMOPAV17vV8TsQNU
Gcz6kgMYaM57om346Q9t3NHcIBrIgNjrWSKd0zga9Z+uZEYQA+eazyqVjPJo
qlDUW4lQBvrkn5rsLxmh467Z45nhDIRsaVn3WWiUXpYOThWPYCAmfqJFQWCM
lgnMP58ayYCkVHJEfvwY3SJlLjU/hgEVpmZWU+YYFZwqLh5/nIEFX2V+e68Z
oxLFDrEC8Qw4znkhYlcwSovjf/sGJzJwUCVibfSsUbr0yt3m/mQGGoekVCaC
/tHas1mV7qcZ8B6I7H3WP0KXR7uT5hQG3DYfeh/qO0L3KfQIGKfj+uMnpsdP
DNNT41O8yzMZ2Ch3rsQpc5hGLQ5yXpbDgPsUkw3KBsNU0Vn89clcBkpP2adH
TPCok11R41gevm/3Rx+bxzx63rPPcWcBPq+0Td45nUdFa4r21xcycKSoaVD5
II/+ds9YoF7EQKuto/a2rTwqrRVolHmZgaX5Kx0jN/Foq8CE8EQpAxPtEXcs
NvBoe0S7x/ZrDNCrzbaJ63j0rUu9dc0NtOymJkV03PrD75fcYkCpo8xFS5dH
5zfH/Q0rZ6A8v7Cv1YBHX769UtJSwUCG61CcpxmP7pkay6d5l4HCY4engB2P
1hvc+Z18j4FNN24bd27j0Y8pX8O67zPQ9Cq/+utuHl0tcfGK7kMGZq5VS+T8
eLRLOuNI6mP8frnQWQ2hPDqsYc39fMKA7ZVru9bE8Oj4XK959Bmeb0KEl3Ay
j+6/ur8p6QUDP+rsTsrhfkja/VnXUc9A9pFIo+BcHt2dcnSz8isGtA7e3/bn
Ao8mWRbMD21iYL3og6rjl3n0/sPP4XVvGdjhfkh57TUeXXuiJkvkPe6fgf/+
6WU8alvwYJfLRwbOBBWY/b3Nox6hHl8LPzFgZPxpRLCCR4sGZMX62hjYMnX/
HuM7PCpuc3R0dScDCQ++f65GS/v3pAZ+YeCK4Y+jgWjX/Nbuyq8MPL6S+TcE
n1erfPJ3/DsDyRKPVd+X86i91OK79CfG87cimnKLR11eG9CwHgYisuYKVN/g
UYWtN0Pv9jFQ/HlcZftVHt00+CJ4pJ+B1NOlUsdwPVbuI2vU/zAgdFmlTuUi
j85SyqnY/5cBqSG+CwHnebThkMTYJR4DbZGnK+xzeDRW8hV/5wgDA2a6xzvS
cP+vsA0LxxjYH71NZNEpHrUOc3E1m2BgeMLhw9R4Hp2e3V11dBILvVulm69F
8Wh3u9iXMn4WzLLHk0k4j3r3ajd9E2Bh1pWM+Q6BPBqgdSlpoSALpeL//m7z
5dE5M66KGwmxMPq9yFPHi0dVo3IOBMxkQeT8JNVBV4yfy9VZ52ex4L1iQUWU
E4+G7diWWj+HBZ8GZuaoNY/+83vkNjKPhYfHVnTaYjxXZ6lNlRZhIcRMszBD
n0dDIv4Em4qxsIzWhtTp8KjEkw11BxaxsMrS2O6HGo8u53ftS5dg4b+VvBPD
ing+zxJ7qiRZGC5vrBuT4dH35QKPO1kW3tQlUp4kj570Gg8UWMrCgZUdTd0i
uB/x14RkpVk4fcFB950w7sc760DDZSw8Kd05ViXAo9kLFtd6LGdh66ii/vkx
ji5YoTV0TI6FvT0bmcghjp6c1zIlT4GFqL2hTu49HLXvVeHurmRh4plroV4X
R++Oer5oVmbB1aA4XOoTR+cXFMcMqLBwNooxmfyGoycCidwMNRa+pMUadTzn
KL923/WlGixMqhMtrn7I0ZaWtdJaWixsL+uKz63k6PUYhTAzbRbC5laNh9/k
6KK8toc7dFhYnaQ6uv0yR43r/P/6UxaubtWJ3pDP0UefZ4rE6OJ+RlcGyWRx
tF/k/pL0DSy8eya3W/A0Ry83XJa8pM/CPhfN/LoTHK2v/z693JCFk77yrzWP
cvQWE/ftkTELbZecFJcd5OgVicu3X21kge1/v7DRi6P7gpyCWjexkKXnyz+y
g6N7Ta+o/jBnIdRo5+7rzhw1HbnZMWDJQl5vxbDqFo4utQyO+reZhSITUbcW
R47Whc+T4rdlQbrstbOsE0dXkIjy6fYs1Ff1x1/aytFtys2Gsx1ZyH5aZDYT
v38GEX8134mFp1etJIU8OOry0txebCsLt7PFcrx2c9QuIfTjom0sNMw5vFjA
m6NPVxQ5SezAeFbp8Lt5gKOHvzS1SLix4JlYZutyiKPyYRNOEh4Yj0r/GvqD
OZq5ZkXrol0sHLuQIOl8BPvVB/PtYrtZ+Pt6PDclkqOnL3p/m7+HhVsbToim
xnLU7GCEz+x9+Hw+6XCI5+hE/jE+of0sVJeaBLUkcTSF8TrD78vCPUGBSQzu
d/AOxVWjB1jQfbyknknlqEdEddOgPwtM9aXV7ekcZeUXHuk+iPvXoajqhue1
KXuZRnsgC0KPgjeW5OD7VrRwTUEsyI6lWVflcpROknv4JIQFfRGZLRl5HJ15
ejTrThgLxlqPovXw/G9r6kaUHGHBP0VtRnUBR0ucPh/MiWBhrHr67DmFHNUR
exGUEMnCFQ31Io2LHFVU+JYYEs3CupdFzVqXOLpx1qIyr1jcD283/0VFHB3q
MPplf4KFi1oH1d+js8K2qOvHs9CqebEoqJijegGrTysnsvC6ADT5MR6HhG9N
lUhmIWlx02Jf9GqT+wlTTrHQsaZ6bx161y81xZ7TLFzoVF80q4Sj6wMGOptS
WMiwKfm2Ds0oNF29k4b5WZ8cshXtLHY79VwGPu+p5LwPXS4YkBaVhfVAquS7
Nzo5o/vG7hwWJOYucnNDr1Ht6d6Uy0LCcj/OFE2n2axTzmMht7Hsqhw6V4JX
OjefBefK6shxfJ+ZRsU6AwUsfNfRs32KFtVa/7OxkIXPA1E9J9DuvonlVy+x
EBm/cIohus3C7UJCMQu2uZ66/3D9dTOTy7xKMH57jHQuoQfufPlqeIUFASuD
I5bo+5sVtaWusWD++F/sH9w/22KNG2PXWSjZpPPkJDolpN783U0WFBuV8xTQ
2l735l69xYKwuLlfDZ7Hx9GG4ehyFk4pmZ+0Rv/Mfy7oUoH1xGvM8DOe3937
gdiDWJDKnni/Dx16NidHqIoF+/joKA7PW/Ywn2zbPRb6Vw9FhqB9w1zfX7+P
+fDZc8Yk9KOG47ciH2A+x23SP3qBoxKRmvfsHrFgub3WeRL6a5Hin+W1eF6P
5YJCMZ6GjOVsh5+wMPWKQ/Uwxpuxe0/XkzoWJhtIbjqA7hldnZ/6nAX5ev91
P89ztGF2VbL7SxZsojtLt6OPZ+tdUWlgIdgw79ZbjF/lixFj440sLEzv8TJB
L1RXC6l7jf4k97nyHEdTN89TOvMGz2ehpNJK9NMFr+e7vGNhwW/h7TmYD4ap
KxWWv2dhiv5gjDC6jf/jod8fWND4nVQWdJajBknxI7dbsJ8Npvz5jvn0PHzk
WmgrC3eOVFrZoAXk3pzVa2dBQaP5Y3U2R30G6h9O78TzvDuUIY+Wsc5a8vIz
Cw+UPTPOYH66tXbfSu7CfPNt/zyeyVF9Da9I62/YL0p9w3eijSSfx4v+YOHu
mtJD9Rm4H7vuNLzrZuEcX0GTOtpo1leztF8szEzjMrMx/xMZnqB9LwsbNdve
8KOLnmZNiP5m4VK2eqxnGuazS6jqm35c36SjlS+xfiRZGRScHMT+seavvyra
QiPbxnwI421F2J3UFI421srpz+BYaNn96OS/MxyV+nLG7zGPBbdo1UkuZ/5X
L459CR/B/IgbmVGD9SlQMOvMmlEWRtRFy6XRv7LCYwbHsP6VWghFn+Lo3+Y3
d4snMF++6k/7cZKjzzTZzGt8BO6d87hhgraVWTkcN4nAqNq/eZeTOaqwdtfw
zskEkicvkxNGr8qVzFrPT+Drla7RvVgfnwvndCyeQoDVFEt8mcjRMx816/6i
NasPflmJ5vu31rZBgMAZgwt8iQkcnTXMi7w0lUCWvMy3Xqy3g+MVDkenEfBI
25Jphr73qqHRUZCAcm0KKY3jqGBzdK/KdAK3lGccFkbHzVG8KiREwPXcm6I9
2O8+LBYW60Q3ao6WPTuO+brWT+q/GQR+2HjnyKG/W5S+SZxJ4KyP0M5YrPeR
76eu9BAmINx9et73GI5+4z1RWDuLwPF7NecN0IsP0FdzZxOQ0VeTLIjmaE3p
TeYbuupR0BF+9Lky33mVcwi0Mwteb4/CeFV7UJI0l4CNldeCauwv2WF9v93m
EXCY3WrIoI+egBbN+QRWrf7PO/gYR7cPjXvPXEDgjdGahA8RHH084Xu5DW0z
mFigiR449SX5ugiBcI8Pt1Owf+9Zn0kiRQmYPJOv/YP9LG1Dq72dGK6/IOaN
FRoO/VmzYiHun+r3L1fDsb/slq4dQQ/VreZmoS+Y3hx7toiA6CrTWXvDcH4Z
+9GaJU5gQd+E/LNQjvrxz/DaK0FANl/EagV6+KRTns5iAkusDY9Gh2D/PC4V
KSxJYOONDVVd2F91/PPnf0IXeJdO00MLnJAyu8wQKDtItuUF4Xx17cvqIJbA
VLr8KR9632H5J8YE18NnoudymKP7l2sLLlxC4Mr4xKu7gRy1LLYd6kIvqqkI
WIzOzatOvLGUwAObDuUg7O8vne+8C5fC9RxpnPwB55cLLTEvNkkTsBBo79FE
N9bv9hGXQT+3H0wN4Kh1et6Dr+iNsmELOH+OCm/yeXh9GYHh8XgrW7T8NTG/
UFkCadPKS8v8cB5b9/aV8XICFQOyciLoviU97QtWEKg9y/fYD+eNgTVZOW1o
3Y3OEU2+HJ3OSM0skiPQXGnpuhqtvuD+Cj95Apv9uj1O++D7SZRxOgoEtr5R
SPyzH+eh7zoB0xQJUCuxT9bovM/pBQ3o8DPnLMtwvgldOS0qfSWBjKLKHhG0
XO4DsR1KBDJlNl8P2Ief187cIqeM8WZsnPtuL/6/n6zFAPqjUki5JtpJaA33
3yoCf388/pe+h6NVLakWR1QInLzI2/0P5zvb1/5ORqoYf59apzqj7y2cIzF7
Ne6vEzRU4byVmZwX9wateKS1lqAFPu26lqlGgN/Ev/eoJ0dHrHNit6sTCAy+
o9e1i6MPZ4WKyGoQyKnZ8cwQ7fpxvc0v9OunYhFFOznKGcoaX9MkcGrb0T3C
aLkc935/LQLRp/Rj9uO8d/qLhtmaNQR6n068fe2O9aztncs42rHDxEEDfXR2
2LIabQLPjSpnZ7pxNLzMIy9yLQEFia6RcVecT+trXxvpEFiuZSXhio4R/1gx
Yx2BgB1xPrU4X9rPf2/3En3UbOG4PFrs73BREiUQ9zDgftJ2jId7/jetgIDG
DenKoW1Yf+SO+S3Qxfw3zOx1RNvcdvr5Br2H38Kh2gXrfZ76otT1uN7XN0dl
0IK9RuN2GwislNF8fwLn20+OdRkL9QjsG9Hr68d5uW9vf28z2mdiPbVH79z3
ZyRNH+tNTsrTKpyPfT2m37M3ILBr7rkEGXSmlIf2QkMCIoHVCXE4Xy/TgP3v
0BU/zesGcb72/PvcOcWIgFlsoe4WtGyQ7hQbYwK/4hYP1ThwtOv8K9f5JgTU
tk7qkkMbLygLbkQ75BXMPWWPz6tJmiduJFBiahv0z46jy9XpR1NTAj2lzkvd
0NEzzJcIbcL6EMs/7YUt1muf8CW16K6F8SvU0W+/T22JMCMwslzn+FkbrEeV
IpZgjvnPWq+Yjk4bbQsfRTsKz5l2wBrniSNpXuUWBOorLkt92sxRjR6fuX6W
BJ7ccg0zRAcX5vgqWWF8uu4Rv26F82enRWI3etWU0T+L0aHpFTsLNhPQeqo/
O8YS62WS8KiLNYGdnw57DlpwVNUmyFTcBt/Pp47fBd1C1Rya0BvrtrfWmWN/
8N2zNMGWwBajPcPqaKEPlhcN7Qj4HZxvc96Mo5NXiv7ksyfwUCysfzbasv9H
939orRVvXgZvwv7rO1bo64Dn+1er54cpxuez8KXyjgQ+STaY2qHHO847fkYn
55T3PNyI/dYzxSJzC4HctnkNKuiG9ugpm50ISN0ZHcw1wXn5dGGAkDPB+9tJ
h9noOdnShffRBaSPL9QY461TMeXQVgLa/fLdv4w4WrlwYIOSCwH3f9tEnNCi
D85e7UKHdOQffWaI900V95bMbQSiemeqaKO/Re2vtdxOwJ8pkSo2wP0o7fOZ
toOA/rI0Owm04a45LZXolqC2Fyf08f4EfFN9XTH/nU9FjepxNOj0r75lbgSu
f6g5she9KXlyxkf0j+age60bOKq02ntKkju+j+QzaoHuNHFR0vPAz60qJ9es
52jvgQlxHrp5jqPganQbE1xbvJPA744Siwu6HI2Nm6TmsovAW5PqjwvRpvV3
XOd5EghqSLt0Ajhq9ezt5kdot3GdinGK91f1UIFDuwnc31Mm7IvWy/h0SM6L
wO7H/Pld63A+tiClLeibLxVCHNBzYnwKEvYQkN6pmv5CB+dd3dGtsJfApDOL
eLroqRY/P/SjH0W1p99ai+t38lx0fh8B7/SYUHn0t45ccWtvAtec517I1ebo
HaXK1in7CQhmB84RRed6drmXoUu33rt7Yg1+Hm1w1d2HwIFfbSWT0J9tp1eJ
+OL+v3vXflAL9+eQXeIj9KPRPNteTZz/3Byl/Q/gvBS7drY7OsVDO0TaD+ej
SWeFWjQ4ejZXKuM12mjdQ6PN6AyhtUFH/QkIHC54WqeO/dO3hKwKINBmph2/
Hm0RnHu8DV1bGXKqQg37dZ7Of/EHCRBFtxYVdIdGyWXtQ1h/A7p2Fq/maICr
mPsPdEM7pyaN3iyT35kSSEB9ebJBtipHD1kHyegdxnniyIV0UXTY2YeK/ejy
LAWlJBWOvosr/JcdRODuJbFpQuihwxsTTYIJHHbcsuTYKo7G5777/hd962t3
yLgyR5/MPCB4PoSA3Oz/Fgei/Qr1es1Ccf4j5WODShzVXXUgYwT97O974o3u
3SAjfCGMwOWJ2VHdK7HeWx0xsAzH9a/bqOiBPnipxGAU7WkaLNqpiPfzfQ3C
hUcI9Luc0t2KXnZ+dpblUQKDJuGlHxQw30ly/z90XpiKsx16TsbhWRciMN/m
pW9qkueoSG7/gPkxAil388Is0WczJc4OH/tffukMvpTDebpRcv75SAKqsfYX
TdF1LpLmplEEKr3ac+pW4P6sp5uH0Cd7a94aodebX2Rzogl0yPaY1y7H/qgR
ctMghsDt9o1CBujI2M65fWjZ1GcCj2SxvpaOaqTG4nwQbr9eD93a3beMHsf4
Ot5678EyjpId7a1f0SdcjEM3oK3mDbgknMB8cT8W8kAG78tvjYrU4gjw1Ry+
uwEdtFOwqgW9b4vYuofSHG12sM6MiMd59YPehB7alFisl0sgYFnSw/dYCu+H
QuyNBnTJ1NH1hugnBl96AhIJrOh0ePRkKUcL2moGFifhfDSlP9oEfbbq0/0a
dPtY0fHnSzi6qNhuy65kAklyPi/M0PdNNt8TPon9rEzBopHg/LFksOc6+n3a
43nW6PcnHb7ZnSIQmisr8o7laGHbxeJRdORuTTtHdPlyfu1zpwmIe3Y0f2Iw
v/ceP6N/hkDNZ6GM7ejr8dvu/EBf52VldEni/cGw8HJ8Cv59TtgHT/T/Aanw
qNo=
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd1nc8V/8XB3A+n6uQUZkZ916jkqQhlNE9LaMUISQluyJlli0rQiiR7atQ
iJJKRlKKNFCaZhpCMkpl/47f55/P4/m4n3Hveb/Oeb9lbI8bO7A4ODjOcXJw
zL3L1rTfHXclQeX/rwFmvPCNfagbCX8yEvusfgwxV55e9l7gSUJuVS/P2PJR
Zg3sHkrwJuGmVJwpt9JvpsX2fbOoDwk6lltK8qbHmIh7m6VT/UjgjJYUNUn6
yyTzRryVDCShiv7sSPz8x8zYZcykBZPAwxOdGTw5zhTJ+ydLhJKw3klZU/n2
BHObS+hycjgJ8xco6QkITTL75QzlhCJJ6FMdaQhFc8+TkIg9S8Ko762+sCcT
jGThviiuWBLUD/9QuegwwRTGDrv7x5HgPZjyQEBigpEtqX4/kkDC+2Ps7NGe
caY+K73KIZGE1yc/zj69P84onHGg3yeRYGkn8buvcJxxVRrk0k8hgTo7w5N5
dZy5MEMcL08jIctDfUVO6TgTIeV3YFkmCUpHJX821Y8zqw5IvD6fTUKSRqKj
+rdxxsq8oGU6hwRJgeLhZXwTzOUjQ5ZOuSR82y+QvHLDBCP6sOBEUz4Jfh11
GvxHJphhh1RhtQISuAQyUxoyJhj5jT56aUUk3DdqOR35ZoLp5Jrlny0mITrn
KytLcJLpDu12tLlJQmtMJBG0c5J5a91k+vAWCQJrmqPuRE4yMVt8P8jcIcH1
wcKivieTjND7mD9B5SRE6A6YveSaYl6+LbneXkHCCfXCEoXtU4zLvCiODdUk
3BP+IdcQNsU06VQOJ9SQMMbxeSasboppS/oW1F9Lwsj7V4GbiGlmveTVks11
JDwwaNz2Yes081U+9XTyExKOCWfSm0KnmXF1078DDST8komh9j2cZmYWOS9m
npEwr2awUZxzhjlx40Rr/AsSIF8i5xgzw0ib/970qYmE6XomTz9ghjmaFGKy
5hUJdwLNF2VXzDDxe3KFAltJcN5oJ+bwd4aprfsc3PgW67EusjJWZZbRin6Y
LvKBBPOOiDLB47OMWe6jw9ZtuF7uKSafrs0yjoGO3/I7SHD4qOw//nmWKRhd
LjbURcJnk5jGfAEOkNgbMrW+B/Na+OXRoCIHyHsNJvt8wXocutDeqMMBdlc6
+6u+kSDuLhqmacsBqlUNf2a+kxCmaOCkFcABFnJS1cwA9kvR7uONyRxg/VqH
CRokQaNKorbnJgcoHSwLrB4ioSzMpjrkGQfs+vXCf2KEhJ83jDmufuEAY4cJ
DbXfJNh6/zloNM0BAqszK078wfrdkOvzEeGE5lOS09f+kWC0OOSb7CpOiJJ+
xe6ZIOG8aeRb/W2c8LWEahafJiHx+ELXQUtOMA2ytts9S4LqUcUkPjdO4Mno
vx/CSUHs2qEjeRGc0N8t9uU2mwLZ5SlqFWmccPynZmsvFwV/haNO6t7gBO+N
1+LFuSnQvpD/ZlcdJyxccENCj5eCo+8n5V+84wSViEwPbz4KaMmPto/7OcGl
6EH6ZQEKJvaQZWrTnBBkeyi5aSEFWZ/q7WQEWTDp+dh+YjEFeYXDn8JpFjxI
V50nL0IBO8K31n4tCwJCf/sbiFGw4CBX+f3NLJBs2NrosYQCw50LLyfuYYEC
224oRZKCeS8iDXsPsUD+WdzgfWkK0mxkzcuOs+BDOdeTHoqC5fc2qkwGsOC8
84wPlywF673P21ZHs8A09ibvcnkK0su6aqcvsYDnnamP7jIKkj+s532Qy4IM
Yal6RwUKWivGTnKXskB4xcaxMEUKehq2x7ZV4+8tbidylCgoafryTfspCyx+
rvtbrUyBWLIUtb6VBdVTR168X0OBybm8ioedLBDKLYwcXUdBeddZqZ/fWRDt
QysuUKXAZbgroGKUBWzNoVJZdQrORzzrXznFgvZ2LfmNGynYb6cOOlxsKI1U
CtqtSUEgn7ASvwAbluR01dlqU/Bw12OlMFE26Dd6/fFiKID5ay8Vk2x4/JlP
JHIzBUt/qpyLW8aGEZFamZStFKT0JegrKrOhqLlI+tp2CrR6rkR5qbKhqek7
T7kuBbX6Fo/nabHhDhnT+1ifAq8tErVtm9lQIll099VOCqSXD7S567LB1c/K
r3MXBb536+Xrd7HhmEGJSp8hBQ3fpzNl97LBYKLs0+geCj4Z6+2WP8AG2T3+
EZMmFHCMJShGOLChMXixHNuMgiOXjb+LuLJhBR1azmNBQfEEz/USbzYcWvNe
V9CSggoONyWNIDYsoCVeCVlRoHvG5OXlM2ywfmloIXaQgqgL5UndcWwwPxfY
tuQQBZI9j9K/J7Ph6YoCK0lbCo5pePTfyWKD75fWdkl7ClaVOF3Ty2fDyqBZ
K0lHCli5OyLTi9mQprGic8lhrG9og37pbTZEfDS0ETtKQY2xiPvZKjYkXj3e
K+RCgTrVzrvsERt2nwx1E3SlIMIj+2TEUzbMXgnj4D1BQaKwstn1JjYkkc4X
2e4UzJ9sd0p/wwZ/21VrpzzwevKO03vb2OAY+qD1lxcF1y82Bn7sZgO1Uvx0
/0nsp3e6Wqu+sWFXxjL1bh8K7sfnxhkO4P1WtP9t9aNAPmh429ZhNjCcinUN
AZh/8y5J3jE28CVOpVcGUeAove1J7jgb7m7YHHr9NAW74lf0is2w4brV55OZ
oRQ4Hzm62JZFgLbYC79z4RTo/cl4Hj6PgFVKvXEBZyhYE8VEh/ESsFNgyW3n
KAoWZU6XWQsQMPZJ74dFNAUig7I54osJSA/ar7Y9lgLzeMGMGyIEbPNen7gm
DvtTu7JHYQl+nv/OPMkEClbmaV4OkSJg/Y7ac8QFCm5c2smqoQg4/EN11WAi
BXERzWJdsgRs8R7taU2igBmwGv68lABSqfVG5SXM6/ni2JcKBBwQu5v8XyoF
QwoKvVkrCSjn9r4UkY79WLe930KZgITU/ltHM7FeBnx+E2sI0FAZ7N+VTQFn
pYdnuAoBzPy9m9bkULDT6vnVCVUCsiX/FS+6QoHdaqrHcgMBfHqF2qO5mN9L
UT15GgSIbtwy0JKPz5udaN+lRYCDe1z5jWuYp6EzklwMAV1G9nnnCimwfFF+
S3wzAY18Cbedr6P13ryS2ErAaOWXb7olFLg9XSnOt52AWpNVmnI3KSiDIalB
HQLMCtVvTZdSQEqd8ryvR0BSQJPhuzIKVNRCioJ3EKDpXLPoxh2sZ6/TrvUG
BLRNNY+fKaegysby44ddBAxcec5tXYF5CExucTMkoLrWh1GtouCMZEbRlBEB
gVmZmbz3KYhXsez2NSZguS/H8q4aCvgeHuj4YUKAe5Ddh9JanOfp7IUmewl4
3Hz2TvgjCqaNs7qvmxEgGb6hxvwxBd835N6aNifgW8Gq3wr1FKy+0tK3ZR+u
r76i2XgDBRYhu7sDLAnQdxj82tBIQanxu+Hi/QQMTq2/kvycgnVpbW5vrQho
Fryf4PCSAoX+rDu/DxBwNmNbybpmCjS8DwjyWhOw5mro9EwLBULHDj0VPUSA
uJpqQONrCnZzLF0taUNAssni1RffULCD8YgUsyXgqfBrIet3FNQ985HgsyNA
N1lZSeED5t+7d/k4uovddmr4IwX3mtgjnfYE6MTHTtxtp8D03pNb1Q4EPA+e
uBnYSUEAa6jwoiMBXIpvsrZ1UzAgIS7k5ESA22hTHU8PBQ++vqTXHSZgqWm6
zMvPFHjcyeX9i7bv7L+T8BXnQ7AucecIAdvVncNNe7G/tp1ljh8lQE/6eaxo
H/ZTdfAPWWesx+HK5nf92O8Hoze2oPUEvu2+9IMCriuHTXxdCIgj/3Fb/KTA
rGKbA3mMgIKn6bOiwxT8iGm4VI2+ax2o8maEgqaNCqIWrgTEG+vknv9FQf/v
NcRPtJF6xl7DMQpeW5tFBh0noKVecfuCvxQM7q95wneCALkvFz2f/KPAxsq4
5yKaLzHsS/AEBWu1a6ck3Ajw4U6/qDFFgf2VRLV09I/04Mhf0zjvR9VKlrgT
8Of9m+rCWQqU62bCLqCfbaDSbnLQcH7Rxjc8HpjnpcrjMZw0ED3rqvzRSlqH
x51YNNzN3bL3B3pttnT6FjYNfGtbKiw8sf78mZ+kCBr+WdvOe4i+2Lah8Q/6
sn2GkYIXARyTWmbNXDQU1JnejEYLjP8LvzaPBk3uc8wP9K+Zin0h82lYR0Yt
2uFNQM2r5hZLbhqWn6rXykVzvz/zcx0PDRafFr+dRscsXHWDl5cGSihsxOQk
AR+l+MV60P/xROXko0e1POXuLaBBRXJg8h/6u1Hxmzg+Gr60tgrqnSIg/MM8
ZUd+GgIy3w0lonv/NShpCdCgrDBS1IWW8mBeLRKkYeGVeHMFHwIeFpeRveiQ
F2mzruj/brsvrlpIg/kDj7JbaF3VR9fjF9FQ/d942B90RtDQsP1iGvKlLgSp
+xIQEg3tG4Ro8L6lXOqNthmbOc4nTMO577qKZegns+5FXehjzMDvIfTohS8J
pSI0vBCrIBX9CHDZkkaHi9Kgb//zli360tZOC3MxGoa0Dz5IQcOp3xorxGmQ
NgsybEKvPCpfP4Ee1j3qwvYnIM+gbPrZEhrONnbIqKGFpvs60yVoOPh4s68T
2pO9wPmYJA1FugVByejx81Y52lI06Np/1HyCjjgrF84vTUPZqE75L7S21xWh
DvRVtSUzVAD2W7Tc7iKShg7XtaI70cI3v6z3o2hQM1jB44V29V3ZoE9jXozN
ujLQJxQ0ucVlaEikn2c/Ru8pNBv7iqYLDu79gc7OeRB3S5aGJaZXiMWBBLw8
UPkuWI6GI8S/22rovPbIF7vkaZCS8jthiW5pOuomsZSGPmsxzQC0aUrOo29o
46ZgqSw0/y63utJlmGdndckH6JU3xTwDl9MgNhCp3Y0u3fT2lb4CDfUO56Nm
0UMyg93CK2hgejdzkUG4HhrpmV3oeZPmdzTRPKQcX4EiDbHLj+RYoNWEa1d4
rqThuFXXS090nuTtv9pKNLSbTEI8esV3be/5q2jI630zXYDO+ZyS24w+ZmnD
+xgdqDw/IkWZBtOLR5070YrZj8RsV9NQbJm69O/c9Xq+/YpraFjg6q0tGIz/
N0AZjaL5Sm3vLkNb8Wr8vbcW+0MrJ1kbfb892ej0OhqED1n0mKDNXntZ6anQ
oFoSlXYEXSO+UFJwPQ3sX1L1gei0hJyYN2hpqfbDF9BcHYdvpqnSYKToFZaP
njDNjLJRoyGaz0+6El0nECiyXJ0GDR9H9ZdouzacC2jDmqQ33ei/usv1b26g
QTveeHIUrZjpMOK1kYaljxoKidMEJH5R362hQYPHokX9Imi5rnfWM+hVL5Tu
LUOHCAYte6iJn0+YL6WODr7tmBOuhb8/cFJEF32sqf61njYNRznhqhk6UqKt
YsEmnB9rBN45oC2EPpi/RBvnBlzxRIv9GS+IZ2jY+FtUKBTNX+NVZgzY33lG
SxPQvxTDPIU30zBSF9eRid5712rgDTrBVmFTEXowR21J8hbsf4mD+vfQ3D/1
Zsy30rAh3p7zCbrDsjFVfBsNo9+tD79CDx0b+fkeXbbZIbgT7eT6e+LSdhpc
ZPx29qPdHXlqLHRocO5NeTaGTpNz1BTXxXqrFbE4QwhYpg4n3qHD98eNLkAf
+fP8QJIefv+WUIYoernfZmKvPs4f3mm2DPrr5Vd2QjtoODHBWrESrS98278F
/Z9OC7/q3PdVpQ3jdtKQsY67bBNaQY1pMzCgQfa9lrQe+swCQxneXTRE+ozv
2IPmcAuWqUfXtFRvskS//T6vPXQ3DU9sZsdt0S5VInvAkIbyyhWBzuhLU13B
U+jQZ5nPPdBjpy85lxvRcEj67jc/tPqg2yLPPTQIyT58EYr2z890X21Mg6Tb
vNBodHqPUVw/+jn3w/kX0IEpFU65JjT4xSgeSEXbxPNPWZvSUBl8LOw/tMpe
PwOJvdiv4TcCr6LbGdV9rWiZ+EW7StAx7i6y58xo8KXyh2+jeT/uuaprjvPQ
I/hoFZqlLDrAYUFDSW1u5UP0npG+/ntowk78awPayH06330fzlfu170v0XLP
gmVXWuI86H9a14qe+XTZ8jN6+0i//0e0z5Eko7T9NCh+l17UjW7uPkOYWNHw
5/K2kK/o9Yn53rwHaNilrNnSj16YIZ9fix4ZfDczhN7bsyrp1EHM48uBBWPo
KvHRrautaXC13zI+jhZ9lHXjK9pFNKd+Bh29zqE97RAN01rPT7JDcf+KOFG/
x4aGKN0AXm50e/GQ23xbGlo7XIL50LqHF7ZXoTs5dn9ciPYFjnnudjR8UGwS
F0H7Jf4YWmaP+59rqtYS9K4EVmobOvPCXh1p9Or1x4l4B1xf9Rw1GXTPDuvV
2xyxHt+kBZaif3rMSvxDt6rbvlBAd5H+9YVOuF79hJcSOiqGU9X6MNZ/Oplr
DdqgqdJu8REatjVeC1JBGz97a/IY/Ufi8Wc1dJNaINepo/j/293WaaC3pXac
UnSmwX7zOhdtdLURXdyOTqmOTAD0wki33HMuuN+qj+ZsRUtunjoIx2hwWtiX
rYOeZzTwcQTdkf0lWn/u+a2OLLnsSoPN7n32BnP1+5QtYXoc51lmuaIhunJ1
VSdxgobrem5de9DZR7463EaH7BwKMZ27fkbnhoMbDfxTaSLm6M9mPPdF3Gko
Fe9M3jdXn1PmcY/Rwx+W8FqhC+wt5b08aBhj3XQ5iE5y1AyQ96Th/gjrwSF0
VrZc6mt0fbELYYdO5dXyC/GiwWBKT8MB7ep+nV7rjfl2GLZxQhv5Z5/tQsvv
vOd3BD2eo30v9iQNO8b+nnFGf1K/XqR5ioadGTMRx9DedmIOfehhf2mf42iT
pVd6knxomN+Wc9ANfcrUb+k2X8yTWJu6Bzooq27VCFqmYiGXF/pdTP5khh/u
1z4xT7zRY74743b4436786L/KXRs9rvvf9Cex08s90U38HlwXw7A+/e2qfdD
e+Zv+7k7EPfPPQVWAejNaz1SJ9By+6J7A+fys3Upf14Q1n//1sPB6GDj0zp7
gjGv2YJdp9Enr13XmUJvnlhpEIqedW3mzz9Nw8X6VyVh6GWXBdP3hNCwhqXN
G4HmpRNGJtEe23P2n5nLR6qvQF4o+t2GK5FokeyRUcMw3H9vqn6Jmqt/mmTW
OHr6zHPJaDRfi7TQ5XC8v9erd8agG62lDQ0iaBB8G+8eO1efLYzJGLoqjzp/
Dr3F8CqVeYYGM9UFBXHoOvWAMp1IPO+ZnK6IR4dH9SwaQi+tLH6UgOYonlJP
jsLztEjN4/Pozv6hZcxZnFesjgcX0LRtd+c3tJr0utuJc/2xeNT6XDTmj+jN
uYguf6tXoBpDw29rubNJc/3rxH2/Hb30G79zMvr9PtO00Fga4m2fb78012+0
0RbFc3ieqwyVSEE/5qVuNaOj/5j3zblB58ugdxzuZ+BSmorO7Xo4KhWP82io
xyttrj73O2ofonujOlTS0UsKzfcfTsDz/HP/H3Ou3WFSw3+eBr3r3VkZ6Psy
vwZL0X6HFHZnoj+c39drfoEGt4Puf+ec33W1cApt4dSeljX3PApszf8S8bx7
JlQze66/j529uP0iDWulw97OuTT2UGUfuuPDuMt/aAHd/KLYJMzD09mZOf8P
wzdQ3A==
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwdl3k8VN8fxocxzNyLFiTk3htFRGmxFPKkBRUqSyqliLTbW8iSIpItUVKJ
tFgqWiWVUkmFUClrpZSSEEXid76/+Wde79e5M+d8nvN8nnPueNcdy93FeTxe
rBiP99+32r2Gm/3bGcz4/+ebWX/Oqw3h3gz+pZl4+874aXb2aWYA7cdgilvL
4wu13WZ6sOlMCGDwJcFcy8ir1+yla13VmN0MJI5NV9f989ssonCuamogA5V/
ZWkpawbMUqiI1yrBDIae7fq5J37QbMjt5NCJUAaF8c3OzSFDZrkTglKUwxnU
P/1hpi7Dw3WBXGbKAQYxzr/uJJ3nYbW6rbrcQQZTQ3PnxonEIJRUVj4czaBp
b5u1ob4YVHJWRgkOM1jZU15fCTHkHP7pExTHwDpvsLbXTAxql4vruhIY3I/2
L3lHnn9yOu2OexKD48JGVZmJYpgU6c7VJZPxj8X/4keIYbtOh8DqOIPAQzbx
f/t4ODIksePWCQZvvdWGdRp4iBgXuEbjFIMHIyzfPL7Pg+4a5ZrEdAbTV2xL
6M/iwXlF9st/GQxaZf/YnojhIXNT56qNWQxk1X1Gm/rzMOZBtlfleQbqr65t
N17Hw0/3VHmDbAYvqTN5z6x5mDBrt+WJXAYbvXaJS87hoUkwLDN8iehhwPfr
0OOhJbzFY30+g2l7XLv9NXh47VJp/+AqgzL+p8GDDA8x5nvejr/BYOK4SA2R
Eg9ydTF9IbcYtNEFhbUKPFS8vpzXcJvBnoA7uU/kedgqGcUzKmbQ7i4/spiM
Vy4s+plwj4GY8hT5+LE81Cd/DmkvYZAcIFMyTpWHmSoXLs8tZRAsLPKGOg+f
JqSGpTwm+1s3Rf2dNg/9hva/v5Ux6PvWeqZ8Bg9Do7aMNnvGQH+u7ulfpjx4
XfGqjX/BIFZB8bqJFQ+qK37NeV9J9JpqvjbKgYfNyfvs9KoZ2NAzPz1w5SF+
WZZccC2DxL2MTY0XDyWlH0PLXzNYsLLH9FwIDyaHHqQpvGUwKjqgeVIcD45Z
Dz1d6hlcZKXLrE7z4BHs8fl8I4NUR37jn8s8ZHdrKnY2M+i1Sp6lWcKDssO+
wZkfGCg/XTvmSTXR378jZXcrg7ysGQXPWnlwO9vUfuczgxuXd5ho/eZB/05Z
39AX4i8Tu5Ja4kcn9XHFZt8YFA8nKpaOE4NLzUKzkA4GPdrnKjumikFn7bXg
4k4GYz6GTLCaJwbrnhdBA13E72F5HS8cxbDcfWC2wS8GvMriRL/NYpCdeuq2
Vx8DuYh/w/rBYqjapfLv4h8Ga6Pk0uhEMUSpVvM/DDDoorzmdGaJ4dNltmrs
Pwblcrqa9YVisA9xcbMZZnBZ0eT30xdiEJ1sv7tPjMUmp6SLN96Lob1FsfU6
n4VQ409MWq8Ydvwwrm0TsLAxVJqzUySOgFkX48cKWWgfLcgwVxXHSPqKsiXF
Ysyv3NYBPXHMiDjlGyDN4pczb3vafHFszb2flinLoi67slXdSRwhrutSKkey
WNEonBS7RRx//R5tGBjNwjVUuKQuWBz30/QlJyiweDC7JGU4QRx7w38FLVFk
Mej4OUwsSxwqZfPKfZVYrM6fcb3+pjgm8d06j6uwiLBuaT1ULo4Jz+I67qqy
OFK9fP7IRnG8vSV4/IFlMbrm/sqNneJI3DK0W6DGYsTNNFG8GB/2h/MpzQks
dM18o6Pk+BC9sd9tocHCcpTncruJfJyUH/fEYxKLm5efUR0GfMhrzerdr81i
uk1NhKMlH4mjGyQydFjEKG8tilvJh9OP6b+Lp7BQjn1569hmPooHN72o02Mx
qzU4yzuQD7msnIPd01ks+ad2WzmGj0O7OW1an8XAVCfTpDQ++MadBWqGLP7s
eRzWlMtHQ4PJhFmzSL3pcz/23+Gj4KBOiI0xi31qcx99fs6HUkZzqaspi76k
mrisBj6syv37/M1YrLp+/6rBdz4efZRWODiXhdl3m9TUv3x0KZSMPz6PReg3
/Z6XlARyq3JVLy4g9SV+rq9SkkBl5RfRLQsW1XWmehqTJHCDiWl7ZMXCqupr
a6G+BC6r5N6sXswi2r9I8Y+5BLYHOgc2WbOI5Jt8e79UAtuWXJ7x1ZboN/GL
43cXCSwZuPa+exmLS1Jqiz7vkIDasqCIv3YsdJrSMrNCJVAeOlqd78hi/pCw
T5AoAS0u/JbIicXlS9FlbZkSWKdXZzFiFalXqP1z6g0J0JxytZwz8ZPh36HH
ZRJwqbB1UlxL9n/T5MfH6iWwIja4Xmkdi7+1QV+O/JDAU61sZxVXFmv0ZQMv
igmwp7W2QWUDi1TjhILn8gJMDhl2VvFg4Rm+7ES3pgAnZms1KXmS+cIz340y
FiDine16xc0sRpaH7VKzESDpwo42ua1kv+5aXFFdL4DNznDvEdtJP+xPe/LP
V4Dhs/t5lBeLM/H32osjBEhmthzl+7AQbAyXWXVcgCBX3WmDvixsZ6yqqsgR
wCP8fm2PP4ti7++eSncFYCePDWvfyWLLxoeHDasEsD6pYdiymwX/QvoGzQ9k
vbcbftcGsng9Tcu3rUcAMzHt0rK9LPTckhMCBJKQThpMKwphoaSq1VwzRhI3
jeaG54Wx2Dlvwq0hTUnkOX/ceSqchdtGlbw+I0mYKr4IjD3Aop3bFFhkJQld
nba4vZH//d85SetVklgsq3R9SxSLr6yYXc5mSfS+t/zudIhFUa996Os9kkgL
WW2w4DCLeP/vjyqiJTE/YGaSXhyL982125NSyfMyNyRVEojf5fJfa2ZLYuai
kliJIyzk+gc8ogol4fldX7cjifix8WxSYZkkzAO6P9Qms3AZJdt0640kGJ3a
K0XHWKS/NHsa+VkSaxRvppxJZVHzzfODRq8kbgkDjkWkkXqexd1O5kshIbX9
6uZTLGSv+35+M0oKs2d0tFunEz/3Jv9rZ6VgJuUwRy+DxdHQrcerdKWQrvLn
0qizLN4sOmsfZSwFacsc0+4sFi3mieUKVlIYM8v828vzpH7r3OQARym4+8Td
unKRReDMcfa5blJoXrrhXGwOi7VPXU/e9JJCuXTC9S15LNb/FEkf3yuF7qLW
zxaXWXDhbkbLoqVQYqdrrJ7P4rqlXWFLshQccwyv/itgURqkNsEyUwrJeytt
31wjeRS/WvrgZSkYb7k36sqN//ojl3+mSAr1g1X9kbdY+OtVHz/yRArfzj4X
utxm8SUtzHldjRSKS3ab6d9hwXNweSPVLIXg06dOUXdZlHv0HIlul4LmHp5m
8z0W0oGZSl97peAT4va2oITkk/7lDnUxIR5VRd848JD0d/uUI8bSQqgcMLq3
4hFZz3L5Q3qKQnzO1v016QmLmY069nw1ITkntR37ywj7TtxyTUcIK/eOT2Xl
LOAQt2i+oRAdgzPPpjwn+dj3afPVuUJUjbib4F7BwuDYUXPxJUJEn5x/eXoV
6bcY8YXTHIXQuxD+b+gli+He+DasE2Ksgf7e8hoWzp25KdM2C5FiN3rq0Vcs
5v2tLuX7CfFUvkbO5Q0L8fxj9Tf3CmGRMkVn0lsW2YevL7SJFKKZX7/r5zsW
QY30jifxQiyMPzxws4GFXUF+kXqqEM9DB/KDm1iYvu1PcMsUQqD96vT8FqJv
eZBDZK4Q3t2VpaIPZH8ix3vGXRdion3a+IqPRG8PDe2gu0JsaGq/kfCJhXmJ
1oD1EyEWGG45YN/GYn/EdH1BlRCWqs8Pj/lK8jPnlkFGHdHDs6jqTTvxg1+e
08T3ZFz2s82x7yzmHA/vif0qRBzzR+j0g+TBAsO1zV1CZD9NGx7zk+Rrm8OP
MQNC3HQJnvGqi8W3t4I/+uIixC9fmJXYwyKlVabChBJhqeFJB9teFl5xDSWT
R4vw8on2Avo3OU8Xx6nzlUVQbz3q9/gPySef/rkPx4tIXuxvDR0g+aWcs3mr
lgi7hWlHZw+S+e///jqkJ8L3tNCDPf9I/S8GqUAjEfrqXhXnDLOIbT+v+N5M
hGdG7Il8HoctBsVO0yxEcJw4pT9GjIOKbaPCVhsRdEw8+zeKc1iuf+hogoMI
09JV08z5HO7R01UznEV4LnPq/TgJDgsKtLtOuolwtN6ovI9wwewS+wObReD9
NXGsEnAQN5sd7eQtgmz/nwMXJTnEydVVK+4SoWfo9sp9Uhw6XzVvfxgswr3q
qperhBz4606dXH1ABGFd5I/pIjKuuO1kyyERYkbqXqEoDn/P3shZnijCu3Ey
ih8IO+//K1FwTIRuEz/1QppDYNjr1qFTInxZeulVnDQHW3mxiFlZIhx4KznF
Q4bDgTMr1FxzRGj7U6ZjIsshLKOxe1e+CON8zapHjeCQWVAyNfimCA8uXWPa
CE/fv36kT7EIZ677jL4zktR/x/qZ/UMRLPQf5sWP4rC/0DpZ46kIJ0M6f24Y
zeG+qdu5tgoR9h1Cg5Ech4/CiqnHakVY3zu0Q1qeQ9LqER5G70R4POyT20x4
sWtHYFkzWf+R1oQCBQ6tsQGZlp9E2Gp+gjswhsP7BgnZwnYRjs1rclqhyMFT
MPe70k8RsOvXbK2xHI6kTty+pVeEyZsnPBkg3DpG/GHegAjnllz790yJw9U3
e5XeD4sg9+9rU5oyh7GSJ04LBBT8+PSWbSocjL0L96lQFPoTnTNMx3E4u+J4
p9oIChHR6gdkVDkEsWtHj5OnYOp/Vq6RcAgvYYyUEgXBIXWbXIaD4LS6Zqsq
Bfn81pmBLIfDx3y2X1WjsH3P5DIrjkOkmOUYf00KXpOMhWPHc3j9utFCS4fC
shzH3k+E29e2TK7So5CecT/uqhoHp31e7Zv0KVSsKXoTqs5BUV4jp28WhXMN
B19YT+AgIzP6aMAcCi8rN3srT+Rw8d79iq/mFOyPZzz8TLjtr3HwUgsKMtbe
pQUaHBhtmafZiylMzlf0C9bksM3JrPaPLYWCOa+rrSYRv2J96Wx7Cp3jO1rk
tTiMQGSxlxOF7tlpp5oJ77W0/pjqTEHEqEtna5P5S+ucCtdRMJAv0fKbzMHH
5x2ebyDrU7n+21SHQ82s+OIaTwpaX0wDpHQ5nPnx+GflVgoZH49nVRGOUGj4
e9+LQvAUqYjjUziYpt4bPudHQTv9oaLrVA5XAnvH7dtFxp9Ir9bW46Dhn+K7
PIjM941d2k341HFH9bGhFJyp2b8Lp3HgfQ9aXBNO4W5DytKw6Rxsvv2g9kdS
cKzxd7acweGPkm6o9iEK98aOVBkxk/Beh6ePYymcSMiIeUX4vuJEiZWJZD8b
PfNP6HP4ubzf+v1RCgP2p6LWG3Ao83750OU4hVLZYAVNQw6Xftjuq02j4FZv
7vCdcMy7oiyzdAq/LTSt8o04jJwuvuhMJqnnlHuX/ywOsVNuRvefo5DUamgz
ezaHhDjFcMtsCurNb1yGCNs2i2xi8yjsGxGi8cCYg9YVVvLZFQqh1z0yDphw
mPEq+dHQVQrbKp/UWJpyuHt01TmtmxQOKtffpudwyHkn8WDxbQpOcm9XVBBu
dGie5l5MQbGvPzvejENfVqtswH3ih3v+15aDg7dPiXfwQ4q8x+33k5/LYdbB
Vz7Bjyk43HT+9orwmK8ztQOeUujIMFBKMedQ23jhsvtzCsIflkMr5pF+GL6i
bF1JoXFVeerY+RxWz9m/T6ea+Gdb1486wv4fRg3xX1HYuP3XwLEFHNSixM/W
vKHg4yG657SQ5JlqYfSJd0R/dQ/jsRYcBirtylY3UtAwhNcbwj94eT7yLRQ2
9T1fk2xJ8my68+lHHyhoBs6VcLDisKvzhtuOTxQ+ZVa7yS3iYHXlZe2oLxSs
5K8HvSQscSdUKq+d/F5f1TZuMQdfwcqRczsoTDIwq1+yhMN6iXx+RSeFSNp2
PGVN5j98pteumwLPO3T8E8KuWZID1b8ovP4i2RBuw0F+SeiExb8pbL2jsAy2
RC9r34N3+ikcG2wOHSRsKUXN0hyk0Bt2bMutpYSn6VsdGqJg2OE9ym8ZB+HJ
3GdfeDSCzp/ymbqcw7W+zmozPo20D0vj2gnbh1l4xwtoBB+/vTHLjjxfVXrr
nRSN9fEygy72xK9B84oYisYMh8Alyg4cljVsinaWptFgpr+ylvDGSxcNk2Rp
xPhsVYt15KD0ArWPRtKg3i27YLGCw69Xs7y7RtMQnzLmG8+JQ8urrayiAo1l
XV/bCwn/7AjpNFCksdTn33mflRxCf7d1LVWiof4sVG3yKg4dE74auKvQGHqf
ueoj4WNnUip8VWns3pS89MRqsj6durIglkZVS6SEnTMHtxvr9EPH05iZdD6A
WsNB8tct9WB1GiNPTjhfQnjvn9mZARNpOHzQTd61lkPTY7mHmzRp3BnbPW+q
C8nD9/MSV2jRGPPw9JVPhEObTrOYTOPQdPeGE+s4jPtRtVtdl0ZbhNeTZevJ
+jY5XBabSvS41Okt5coh0Tms4p0eDQvPkQ13CBuLQj5dmk5jD3iSPm4cRnnZ
igfPpBGY9L1TYwPJq6ry6ZYGNKwTxFPrCa/TObNfxojG1Jk7JOLdST+VrhJU
zKLxYZHL1Pke5HxOdXoQZUzjh++w8h/CCp9ry2BKo5kJepKzkUNw8seJPXNo
RMWI6bt4kjwr9fmcDhpLKovcRm/i8Fh3seIicxrLn722e0Q46uzIRz/m0ag0
CBbs2kzOt4Pmg7ELaMxPbdylvYXDvpkmT7UtaBQv5S41/Mc79I0eWBI9D3pn
xW4l3GDu4LCIhsrcwbXYRvzt7qjTupiG5NJv77oIq10we7rdmtTvvEkpczsH
k3W5hr02RL/36cr2O8h+VkwK37mURtHUO00SXhxWjedu9i6jkb7pk/t1wgZv
G5p22JHxyIVX3L05pE+JEny2p/HRUXRXwYf0j89UAydHos+uFXGPCE/0ux34
eAWN7A2rJvj7cvha39uit5JGsofx3gl+HHbExnqlrKJxOl09tYawrkhOf2A1
jVTKJHCfP4ee4h6jlWtobPfJ46YFcGjeER5xbS3xZ1B6dDPhbYd+a0qvo9Gf
YVp4eCeHulBPzXXrabw3zMs13sXBbFx17BVXGgFuiu5fCfPfynn+c6NhN/Hs
h+TdHBxmd91Z6E5jl33gxPl7iL+Y0SkxHjRCTpfqdhEuG8XnVW6k8Sbm/N+T
gSTf0vXFZDfR6N2zOG5RELk/needtdpM43D6my99hIOz0rvCttAok/YVZu7l
sEho1HNjKw2/8/N/2ASTfAqszP+yjcbcab6pA4QV9B0NFHcQ/8ybKHMuhNxH
zDOizL1ohC4PW7gslENhlde1zd40dl7MWzhIWGq3x704HxrD26tkzodxKDo4
4mq+Lw2NzBFpy/Zx+GbZklLlR/qdS+j6S/jKAv2A7/7EH6l7ZM+Fc5h91M5R
sJOGQnpXt+1+DlUqm6Cyi+h/QuV0P2Hr6hiTKbtpSL9Ulcs8wOGB5L3lc/bQ
KHdRtV0SwaE0/Wv04kCij7mZXS/hkxtavjsE0TC3vcCeiuSwdtr60DV7aZQa
7r228CCHJ/PkrV2DaRyI+jCqk7CsX8yqDSE0eJcGDVOiOIT7W1xxC6XR1N6p
YRZN7kNylxzWhdHgXFuaPhPW8pJfvmof6Y/R3S6xhzjsMb2duyycxq3Xltn6
MeQ8HCzfunA/6d+NwrsNMf/pufa40QEadSvtT4Qf5pB9deesSRGk37il5tqx
HIbvStkrRNJ4RLFXqwhLLP/WOUy4bGFrR0Ac0c/+u9yXgzSymh90j4vn8Lym
5PGLKKLP3caSB4S/zBg5Ij+ahlLOitWeCRyGtmzqSThEo2SR3T2ZRA5Ljaz3
eMXQuDu+p6OA8Hcbrewlh2m8TVzZtuIIB1HSyiiNWBrnmy/kDBLOsJ7EDBG+
NYlvfCaJ5JVjxfaaONLf26KPLjhK7gO2vmHn4mkUHF5X9JXw+Je6zjsTaMha
nM89nEzupyf5goWJNP4HAvg+Kw==
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJw1mHc81d8fxy/XNe69VGTnfj4iskpTpfq8NIxSdlRKWYlCkpJZUkmSBrIj
ldGgpUEp0qalQSlpEaJybb/jW7+/7uP5OJ9zzznv9Xqfo+7qZ+shymKxDoiw
WMO/Y2/WX+nxFWD51PR0vsxPpqfgpXvUJgF0LphoKc/sZE7czwniBQowf0hM
Uc/7N2OIpe0JQQI4zxh5iPPoD/PU9XWNQrAAy8LOXnYd6mJ2XzVRSwkRwNtQ
+o7Zgm4mibu7VjVcgI+rJjQaF/Uwg27pg6mRAtDP/FwknvQwhZqhSSpRAviY
17t9v9PDXOLI5SRFCxAjcWTJ1ds9zEoNKw25vQKYmCsY7ljZw0iKq6jE7RMg
YEp9ZPWIbka1YHkMJ04AL87uQt8tQqYg7mdAaLwA98/vM5ocL2TGnit93ZEg
AGf93ezvP7qYqsy0Gx5HBOhYPHAj714XM36PB/06UYBkX9moW4uEjK9+K8fi
mADmFUfMsxWFzOFBMb+SVAFcy26w+r6R840JWaWVIUCVKb361UQhY7BK5fmh
LAFyfbQaNmwWMs6O+U8HsgWwtPeT3iAvZHLWt69Yl0vs21vD+WMgZBRu5/tX
nxJA5Z3JD8vjQuanR8ro6fkCXH+5+VmfqZDRnBlsnloowOrs7T5r9ITMe86Q
9NBZAU6rDaYUPhUyH6I+eK4tEiAtW+Nq/x4hU+tSbX/7ggAzXQ3mciBk9s/b
/kb9sgAlTjZR65OFjNzr/V0RJWR/UX8iZH4JmSe1587UXxNAauPMpMZ8IbNB
PIY1o1SAlqExXx7GCplq0+s/E26S9a9Z8EX1upm6xC8RzeUCPPFnz2X43cxU
1dPnTCoEkHTw7kKBkPmsmbIj6a4AwYcCHzepdjM9RvbClnsCjJG8L6rl380M
jvKRZR6S7+ekOmSS//M/7//i4GMBRK+0fck70M2oOf6e+7FagB+7N8ZOTu1m
vBN32hk+EyDvxFLIre1mDtrkyoW/EMBp6Kuhy/tuprziU+SDWgGeew8HTDcz
O/Z2mvwbAUrvTrApvdTNLMu94+VSJ8D3sE8+1fo9jGe455dT7wTo2i6sCnHo
YfI7tRXbG0h88Qu2afzqZlQcdvZPbSTxXTkjQm5fD6O5pTUpuEkA39jJqu6H
ehi3E++bb3wRQFx2NHPXuYeZduNe1+A3sv6b+x/G9/QwThpjSpkWARY/Fnhx
xHsZl+emTESrAGYrdP3MSnoY/dUXw0vbBSiv3KdiOb+XWfLrcWhvhwB1UxaL
vrDvZWw9emdN/y3AzjOy+jLrehmZiRnX/LsEIN62GWHTy9RsUx3I6xZA4qeC
uXVoLxOj9ozd2EvWPzE6MOR+L/P5HFWjNCCA2IOTzh9X9TL2ES5uS4dIvj29
O8qno5eRSm8u2ylCYb2aw5KRf3qZ5g+KTZfYFBas9/sZTeb7tRm/+MqhsHy9
LffanD4maGbeQSVJCk/ivkstnt3HjOSdVzHnUvgS7L+11rePmbI7Y3MQn0Lr
a8mKlu19zIbCW2k5MhT+M1dCHxPhuiapeiSFw3k7bSzS+5i+wEr3XlkKTIK2
xatHfcyttGnimvIU3BZKn1zb3ceERf0OtVSkIElfijnc18eo3pv/YLMyhW9v
CnudW/uY8Wy39mOqFGidsXd0V/czmg/jW8vUqH/1qJ95U8K520hRmCRZOGaF
ez9zyGcwmDOWgrj7ua0RN/oZ+7girrYmOa9ljOZ25QFG6pV9sJkWhfz5vrtV
f/Yz6aPHVHmOp3DO5bzqZYMBZrTOzD+7dCnUNtqx9q8bYA7J1otl65P9O64s
urlhgHFqmywsnUBBrmSLkdWWAaa0f/3j14YUIuS4o/z3DjByuQV7OydT6H9/
kulLGGBig2ld3jQKx8wG13y4OsCwjduLxxpRKHn0vTj59QBTXz9bc+ZMCkdf
SHmN/THAFO/Vj1hqTOHuKZZSNT3IKGc3VLjOoaBX3uj/xXGQsXiwpWsLQ2Ek
vOW0tw4ylZ/48ntNKKgdMXzedW6Q6ZAvVz82n8LC1z9/L3ozyBTWFKrlLaTw
ln3m1sGXg0x19TepEjPCJHyD/wwylwX7v1ZaUJim2Vb0W32IOadaeOXZYgpZ
kwfD7nKGGN8Q55D3SyiImm9sbBocZDZanpvy3YpC5ZzEuYEmQ4xl78WPnTYU
TjSUyaRNGWLG2oTu7rOj0OH2aNVi8yHmQaSsBnsZsdeI8akB0UOMDh1VIuVE
wd24wSouaYhZY/jabMQKCl7fMj+4Vg4xPFrlmZwzhZWSAda3+Sy4PLFyUlxN
7DlteY5gLAuOB8LrlNeQeExglLZNYOG+Tr6zqiuFTfG5I1ZZs7C96UW9qjsF
g5UtsbuCWNCLGHJW9aQQ39RJPfNjIXWWzntlLwozays3To1kYfdbq7WK3hQ+
rBtWNBaOnPb7KreBQuaBKr79bhaWbo3aNMKXwniLV5Zlx1gYOrGLxfWnYJJ5
7/CJAhYSBT5H2QEUstO8HNVzWQh1NZjUv5nCtUlz1sZUseAZdevFry1k/tqT
rS5vWKD0lHY0byXfj6/R7mxiYUm6ltGHYAo7inUctymKQO9avfBFCIVR/X7j
jKeLgBHRrbgXRmG6aMe1cBMR8I/0p12PoGAaqu1Z6iSCKzNMos7sIP4MmFDp
4CGCM86ftmZEUbigiSUGK0UwR/FxyIFoCr+Cdj3f6SgCA/2v8WF7SD0Ydnig
CBbLKF/yiaGwpvnrkoXeIvjz0fyHUywFV3k/d0GwCNIiVk5fGEehs3kMuzhJ
BAuCph4xjKewqF3VJeQk+V76srhqAoXSvk+l3p9FMHVR+QGxwxRWbawcLO4T
gdePaQatR0g+e+t1Jb0TwbygzsYXiST/PHzCEmpEINB/cf56MgWLCUPqA10i
WKV4Jel4CoXVwwYg80skg5J3p1EIc1bVvdsjgoSU5gveGRQid8bKT1MSxawp
rc1LsijIGBSnt2uLgpFwmGuYTWHxPQmiOKLIUu0+O+oEiZexZXIXVouCb14w
pzOX7F/z6cPxy0ShMHNey9NTFD6H78mGiyg8AuJLzudR8JxU1FMSJIoGa/eT
BwoohO+/6iMVLIoH/IRLPmcozJ7UUml9QBSd15u+mJ2jYPNWNXRtsSjK7QyM
NYookOi1rLspimUFRhcGiik4vNm68CfhxLBqq1cXKZyVlv/U/1gUxj43R52/
TEGg4L3k1xNR1PXX9OwpoVBU/4wonChaTjySdLlG4feHtsJ3XaIoLQ8mGkTy
1bTltLcoG+GZGRncMhLv6tTvDQpsaG9naTfcpCA2k0ScARsBEW5visspDLsj
ZDIblTX7LkffoTAs16lkXDV6xk3HSgoJXDeeyVI2vuQb/B5fReFg6fuBjtVs
/LHQXdZzj8z/r8Fjw8Kj9fO9BxQ06nrCvUPZaO2feiLpEQVi/VN3Y9moGVGW
4PGEQnu8MP9oDBv70hecm1xD9CJjtv6LFDYMT0cNDD6lMOz9xAtsKE2fFvbg
OYUbZ4cLMBtJdrITj74k8Rw/OmHtSzbuj34u5/KKQtmexQeMP7NhljRBf/wb
Ch75a+xtv7LRwK7b9vMtBbuxMatNO9gwPRjXe6We2G+jjWcUXwyPInuLwt+T
+n/a9oKEihg4ui8zF3wg9pQ/oRyrJYZNndUVUo0U2kKZaatniWGcfZr6k08U
1umnPFlqKgb3982XEz5TSDcdFnQxLDTyibb/SuFWdYk/7S4Gc7VHcQrfKciz
PilPDRRDq9f1mlfNFLqgZ+i+hYzLfFma/IPCuO3KlQGxYogXdEs6tVGou1n8
7MQRMeTfTxtS+EnON9xeEr7iEj7lZQepT7yQtx/PieGgrWnuoV8UpigsWad9
RwzWRukOVn8ouOg8HFl1TQxPq3QX8oRE78zuF2x+JAaNpqOBd7spbNueqz+/
XozUi11Nkb3E38FNI8TfiyFYMu3orH4KE3OcfNf/EcOPtMi9vwYozFMXlTnO
5aDr9cvSgiEKWvlXxC8TfjiDSi1i0fh9cqz8XQUOlo2b0LNfhIaWf4tvhi4H
+rO9etaJ0n/3O5GDSVlqafPYNOzz3rDPgINH0hkfx4jRkHBJtpS35OBo3YwH
XYSj54mNmefAAatv9rIaDo2OCYod6U4cyPR0R+eJ0yi1TVQ/sIWDX4PXlu+U
oDFcjnqiOLj5rObpCkkaFeOq0p/t4EDy9Z62yVI0RtQOzXyUxMH+kQbnuVwa
z4bbnzwO3o6RVmwknDRm6yKJAg46ZwdqXOXR+BK43HJDGQffrM++jOfTUJUV
OpEWHdFvxCd4StNYVbHVtfYhB1+77+nPliHrq93/zDRxMGYz82zUCBqVXz69
te7g4PbZi4KvhFWm/rbyJ3z8UoDsjZE0DDNMSIsiDrNpd84cHEX/1WNlcaRH
tP90l6WRUuQ1y5jwzljUz5CjMeFgVvckLXGs/TPoxx9NQ6/vrOSgkTjuDgUU
NhBOzqlq3zhLHJ2HmxKK5Wl0aSx0d1oojg3zUuloBRqh4Urqs1eII3n+eydH
RRpKww2+qziw7fcsHSUaWR9cF0p7ikPPW7Oql/DRTPu+wFBxnLS8OPBQmYZO
4soV0jHikBv4/j5NhcaxjPMV7H3iCGTzfDaq0limJxeelymOnkPO2XPG0HAO
qNdRKxTH7n0a0dJqNC4WHOw8nC+OOVtOyL0jXLYkokujUhycWI2lhQIaL7WW
tm39Jo7RRU1TQyiy/6d5epnjJOC7Xe+eBU1DcsUO9YJUCfiPN5ZUUqfh2r03
WVZKEjYFy/58Jizx3DB0gaUksrJvxV8YS8PugsSKHccl8WTV9VeRGjSkTnEm
9j6QxMn6vY+XaNJIGLF9ekGZJJ5We29SGUf8OTi/t7VAEvbHsu98Idz6p41U
KElIL9lUUaxFY/twe3tdEnpFioHh2iSehgOmShLFc2ufWYynMXe4Ia2XRLt6
64fROjS+Kg1XSEl0zkrLaCDcJJw+8GaEFKQEGvx8XRo7fpAFjKQwfXS5TqAe
DdINkButFE6qXhLO0afxbri8u0lB59ucIAkDGjnD17lAKWR/OpZbQ/hvPZVC
+ASJ3ccm0LhyUUVWmCwF3aw7iq4TaVgaxZisySXjVfyVuoY0XoSxbFNLyHot
lHUnYY/+vv28Kik4c2cJr076938PpVBWn2S9YzLJh5mrFOTqpLDs+RZn8yk0
1AqHNie3S+Gm0kjVEVPpv/2lUAqpCdn7XxJ+eHzh5V8DUuC88ypKnUbyYda5
osWjuei1z4hZO53GvZCXD3ZRXFTIhMtrG9G4f/iEjxZht7p5Dj8IfzAYDnAu
hGbaFkUzaJDsLe9luNDN8OjYMpOszy5+dZ3wkSajpbNmEXtm7Tp2mbBGwyuX
QcJbyzJVJq7iYueICK3bxjQ2zCUK6sZF5CXP7OjZJF/eFI3a68jFxuqq5+Zz
SP69lq5T8OBir0rdNd5cEh8VLb2cEC6c5N44PiGsPGbcuSebuFDs6sk/yNA4
qa3fERnAhfTNLRdtQaM31XpvZBQXv3R3BY42of/191w4XHFueUm4YkUoN5LM
b82erpw0j4ZMmeEx3WQuJNvMBx3n09ANXO2WdJqLdysepCgtoDGcPUZHuWjf
2NH2mvCxHQ+6hce4WOf7uzd5IY2wC4/jvt/nIsBT6qaTKY3gR8SF17lI1fA0
VjKj8eaJ0O5TLhdaRvB/RbiiaIJvTjkX67serUo0p/GpgTSwNVxoh5iIOVjQ
8H332E6tmIvPOc/c5BbRmFccKVV/jQuL0ZdCnxKOa6ODTpLv109Ts4pfTOrD
gPko5Vouxk9n6iwtadSPWspbfZGLPTwrde4SGl4XmjdfeskFa1OkehXhcY8u
Dui1cFH7Tbw+aimN/8rvKy423JC3gRWNE3EatY3PuUjub4jsJ9yvtPmVbCcX
f3Yk+5RYE32w1c6K+cmFUeumUYE29N/3FjI/9FRGwERbGtzIDr5KLxdpjdbx
zYT/e08S4yH82LV1uXbkvMqk4JL5aw9K97vY0xhW5xmtXExxCLFUcSD1tNF4
UguHh3pm2vIXhEsOqanu6OZif8CGsQeW0QifJiH55RsX3Lc2p80caayODAts
5vIgOkGhheVEQ7BPNGzsCB5sOr43XyVsnJ9CNw9yYR0wcCpgOf1Xj9k8aDyM
HKu3gsaZqTqcdwIeBj/mrPhE+Lue+RQFaR6C1ydap64k/pMcDkAeaj7sEbNz
JvVoX8GDMj0eph45FcRdReO1LrngafEwMl3zVDlhnVbpMkNlHhwaDRK3raYx
cCPPPHoSDzeUOudPdKHRmUwCyIgHhTuZ5z8T9stoPpiqziP3cI/61DX0v36P
h6+7/ats1pL8eH9vdqcZscfZ9k0Srv/XFx7MvEbW3yCcY7w3XWcqD9vBEg9w
ozH0YNFhW2seQo78aNdyJ/FzNGVOzSIeliSIptQRvig6f9mVWTxMnOondtCD
RuzJC4fLbXhoXOQycYEnjeMGX22dHXho2zyk0k3Yfv8vo+Pk/xoEoVUF62hI
byqMrfPiIWa/yDQXLxpjhxuGjTxYVl93k11PQ335LTHfVTzYPqy1qyQ8LK9F
rjxUTw/nbPOm0e1/f9OpQB4WpLzbputDY/g5Ss+fh1Jr+mw94c8vZ4q7+xF7
7t2Ue2AD0YPUj+Kh4TyomvSvxkbiH3Ny4QjjQdy65W0H4d8bSIMbRM7vvF45
x5eGNpGr8fuI/T5mqdj70eDkHJolEsfD9Yk33ov50/AffgCL5CFr/WePS4Tv
/Bw1adwhMr7H9LzHJqJ31an77JN5+LRMqkw+4F8+HCb22eYYX0l4+HXzehoP
+e4rNLdsJvmVKHY6L5eHRE/jMM1AGooe0+9p5vCQmaWR8pyw2daRxnaneUjh
zg7ZuYXUj+cek4qu8uAbcIaeFETjXIvij91neLAOzdrXQLgvcLZnVjEPPdlz
rsZt/deP3eLho9GZQuNt/+L3Dg9Bbooe3wmbyCxKXn+dB7txJxoTg4k/Ti6Q
LX3Ewzb7kHELttNwGvOk3/sJDxGZFQYdhNP22SutvMfDq/2n+tJDaFRHXb8Q
VMfDn+2L4xeF0rCITFlxuZaHuKxX37oID3Rt+ZD2lId7/M2SOWFE/1Y/Uzrz
iYfAUwvaloaTevxfA8mDyaTNKb2EHyUprqHekfiZP076ZATRr8X2ftI/eIi0
3WFqE0kjg8jZYiEPW/POmPZH/utHm3kY8q2RPrWD6EW3T7HpAA9aOSPSbHbS
2F/nxfIT4YNLJ3T0Ef57nyLxkbJd5mQUjeH0kGDzIZ/V0Wm1i8atH+TCMpqP
zFTVzB7CZeWKWnYcPvhP1eRyomm0uQy/mPHxwEXNynI3/fc9Q5GPiHmM3R/C
M+TzDC+P5GOe1WkqYw+N3FLyB3J8VBiFXTTdS+P0/ojMTep8RMc0jmon/N97
rRIfrLP9RkkxNJbHWokYCvh439yuxeyjsfJyraKUAR+064f3Xwh7nX1uvngc
H7aynS4HYum/93/CJbXm+dP2k/18n6/4woiPkHWSZfWEz8cvXdWjz8fr5fap
UXE0Bl9s+641iQ9L2nqe7gHST/13AeSjkktdqCEsPSzYM/i4Z9rUGhRP4xCj
tK1tDh+5Dbc7xxwk/o0uiqbNiH3K3pXfJqyiKLPLncxXLnBc6ZVAY4FNllWT
BR/li+xuSh+iYTP6m1ywLR9l6r9aiwkf3ek7cb0lH28OLf/qeJiGrT7pcMj4
qYbTBf2EaZPhFyRynvFs4+NHyP5qWsfF2fBRunHf0YVHaXx7f2dcFRkvjltz
/TthH5mRj5668SFjdqowLpHGWqMNK48s5+N/eomPKg==
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 0.8150000000000001}, PlotRange -> 
          NCache[{{
              Log[2015], 
              Log[4000]}, {0.8, 3.8}}, {{7.608374474380783, 
            8.294049640102028}, {0.8, 3.8}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 0.8150000000000001}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"d) 2C framework\"", {
              FontFamily -> "Helvetica", FontSize -> 16}, StripOnInput -> 
              False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.3, 0.9}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox[
             "\"d\[Degree]C (relative to preindustrial)\"", TraditionalForm], 
             None}, {None, None}}, FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{0.85, 
               FormBox["0.85`", TraditionalForm]}, {1.5, 
               FormBox["1.5`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {2.5, 
               FormBox["2.5`", TraditionalForm]}, {3, 
               FormBox["3", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}}, {{0.85, 
               FormBox["0.85`", TraditionalForm]}, {1.5, 
               FormBox["1.5`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {2.5, 
               FormBox["2.5`", TraditionalForm]}, {3, 
               FormBox["3", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.8, 3.8}}, {{7.608374474380783, 
            8.294049640102028}, {0.8, 3.8}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}]}, {
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Year (log scale)\"", FontFamily -> "Helvetica", FontSize -> 16, 
             GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
         Text[
          Style["Year (log scale)", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0]]]], 
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Year (log scale)\"", FontFamily -> "Helvetica", FontSize -> 16, 
             GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
         Text[
          Style["Year (log scale)", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0]]]]}}, AutoDelete -> False, 
      GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
    FormBox[
     TemplateBox[{
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"CC16\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["CC16", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"CC13\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["CC13", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"CCGL\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["CCGL", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"BEAM\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["BEAM", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"UVic ESCM\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["UVic ESCM", FontFamily -> "Helvetica", FontSize -> 16]]]}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #3, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.5, 0, 0.5]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.5, 0, 0.5]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #4, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #5}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "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[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.5, 0, 0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> 
                   RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0.5, 0, 0.5]"], 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.5, 0, 0.5]; 
                    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.5, 0, 0.5], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[1, 0.5, 0]"], 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[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "55"}]}], "]"}]& ), 
      Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )],
  FrameMargins->None,
  StripOnInput->False]], "Output",
 CellChangeTimes->{
  3.715195357072418*^9, 3.715195394217018*^9, {3.715195429504218*^9, 
   3.7151955009054184`*^9}, {3.7151955583914185`*^9, 3.715195613365818*^9}, 
   3.7151956516950183`*^9, 3.727148002012908*^9, 3.7271500527565117`*^9, 
   3.7271512452724075`*^9, 3.7275094999067907`*^9, 3.727509736798332*^9, {
   3.7275100759877253`*^9, 3.727510105149392*^9}, 3.7275102208840084`*^9, 
   3.7275102924080963`*^9, 3.7275103388717527`*^9, 
   3.727510382101225*^9},ExpressionUUID->"8cf216ad-d2fe-45fc-9e7f-\
b3d5be9f4633"],

Cell[BoxData[
 FrameBox[
  TemplateBox[{
    TagBox[
     GridBox[{{
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Atmospheric Carbon\"", FontFamily -> "Helvetica", FontSize -> 
             16, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style[
          "Atmospheric Carbon", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0], Bold]]], 
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Global Mean Temperature\"", FontFamily -> "Helvetica", 
             FontSize -> 16, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style[
          "Global Mean Temperature", FontFamily -> "Helvetica", FontSize -> 
           16, 
           GrayLevel[0], Bold]]]}, {
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwVlnk8VV8bxZUxKhVF5JxThtCgFNJkRYUSkqJSSkiUJJGfMeKec66xgUJI
SaE0SoOkNImoVMqYDCUShUi8+73/3M/3s+85e+/1rGc9d7rTfhuX0SIiIjGj
RET+/z2jqPb2gCcFkf9/TvEYyHnnHH6AwqCaX7XaSSHOvzjnK+NDYVlLZ2z2
sSjMg2VXvC8F/wyV1bHR0XjtVF05xZ9C0T4HRvFwDCLvrFBJCqCgVPRDoWVx
LBKlI98rB1OI2anrkVUWi+FdZ4aTQykMLTKsWzgxDrlqgYlK4RRCD5sK+xXi
cEtc7lxiBAUva9qD/hqLrapWqnIsBbUpukeTl8VCSkJJKZqnoC56/FquagyU
czZz4tEUPM9+Pj8YG4Wc6J/egbEUjM46VZm84jEjr7C6O57ClJJ4SbdvLJ6l
pdx3OUFBbmnU8vzeSGgKXJjqBAp7AkU6GmdHwHN2p7j5aQohs9c6bh1/FMeH
xfYXJFOwjPTUFmhFInJawDaNVAreOueP7j0hwJxtSm+PpVOozapSXn+AhYNd
9ut/GRSeRncU9X5kcW5P15bdmRSOjk4pTW9hMeVRtldFFoWf+04P1eex+OmS
JK+fTYGqmtuav5OFmqG/WXIuhXzj99MngEW9+Mi4kSsUZL+19essY9EY3ui6
8xoF5wf3OafFLN47Vtg+ukEhqennliwDFlHG/32cnk/hDfu1599CFnLVUX0h
BRQuTlOsddFl8ep93uXauxReR7Wfq9dhsVeCE1lUSKEguOLT7jksKlbf+xlf
ROFVWZb8qFksahJaQ9qLyfknHGi7pMliofLFvBUlFK6K7ercqcGiRS3pSOJT
Cr07jhRrqrEYMLDt//6cwnLjE6OHp7MYnugxyeglhWMny9d/pll4XfWqiiun
kNvQb/NGhYWK3e/lnysorDsWn1upzMI9IWzDvDcUehRDJGqnsohbnykXXEVh
Xv95md8KLIpLvoSWvqcwKr/XTXEKi6XCRymTP1JoNg8pN5NnsSnzsZtjDdlP
o7v96CQWrsGurVl1xE/7yw+WTWCR3TNToauBwsPgLBValoXSxrChhU1Ez1uT
0gPHEf0PdSb6N1PISfK92SzDYtf5+vb7rRQO2lfJ20mz0Lv/vG/4KwVrI73g
t1Is7FWnFRp9p/BP9kreZkkWjm9XG4V0UsjYjT3fxFnM3n4zuLCLQtNx+71h
YizW/SoPHOymcJouDlQTZWHjMrhY/zeFPoMAx4pRLMbrpN716iPv8/v7KUyE
ReVh5X+X/lAwEMm5vXxEAE7ljWjTIAUrdrBw9LAALXl0peI/CpWeFXdeDQlg
G+K4y3KE6Gkq5ZfxV4AxZ9ofhI2iMdkk4VHQoADtjQrNt0RpHA364LFjQID9
P5ZUtYnT2PDomPGaPwL4Gl6KU5Si0elcqrikX4AJMleVzKRp/K1QeajbJ8CC
yNSDvmNpzBvSHju/V4C9uQ9Tzo2noT2z/7XebwFCnHYkVkygITnLvQ2/BPjr
88R5cBIN/5nvZ9j0CPAwRU9CbTKN0l252/Z0CxAU/jvQQoFG0JzfpyN/CqD8
3KT04FQavtqGIZe6BNAU3dV1WplGPGW1o/KHAGovYzsfqNCQ8rveNdwpwMcC
8adNNI1pXayYLuFjHsP+4jNoXPpqrObeQfSIviY9U43GjprNyPpO9Phg62+q
QUNZpmnJt3YBzshPe+aqScMiqLNPh7C8lmHvUW0aGQ16NgHfyPsm1YplzKbx
YK7x3JdfBbD/odtfOJdGgnzDPppw4dCe8up5NNKFYb/82gSQy8xhe3RpbG06
eraqVQChP6Mto0fjp9iq7XqERZd0XZ9hQEP9BT8uqUWA2tqlaoaG5L4yJpGj
CV9nZ4dYLqFBlWSe9WwWYGpGQ4nTMhoXNYSX678IYF56qO+QEY3soq77NoSf
fBk7mV1B476xPl/WJED35OLpp01o7N+ygDchnFuZq3JpFY09v/d62X0WoKLi
65gCUxqrjRXzuuoEyKei2p6Y0/jW8/XVk48C5Cnn3n6zlkbLjWHTcx8E8Axw
CKhfR2Pj1Nk+Z2sE2GeRt+CbFY3cgQaLKLK/xeDNzz3raVxJdlf3IvrNWB8Y
+XcDDfnQrXlppJ6loZNURTfRSExYQG8g/tFiwgvG2NOwNpO8dJX4c8e8alPZ
LTS+VIutekP8LsMovZFzoOFh1pb0gvSP4ysre4XtRM+tX3MySP/ZxQTXTN1B
I5lemOFC+veFVraDshONvcYNMoqk//9rrqpVdib+Pf7raqEii1khIw7KrjRi
3rWpbSZ5k7xYq36qGw2X/gCtDpJPkZ+sdiq401iU9rXbj+TZiYv72+T20vjw
T2D9T5uFpV/4AVlPGnVxde8CSV6OnD8qIu1Fw+tebkvfAhYJlMdJUW8aspfX
PfFYxCLQac78oYM0gp+5Z9YsJfkT/rDq1yGir1raxdUrWNCzFI+0+5HnF/S1
5a4ieXBGw6DRn4bZ5sFD49eQ896t7a8KIPWtfr7Dw5KF0SjtkudBNJ6tCbjx
2IbF2BNDKfdCaAysUfFTsGNxe9GK8MtHSH33bbjhupXFZYcvfqnhxI8FZZ7X
HFksUygPiImgsfZJbF7/LhZzZrfFBgmIn7V0AgzdWKwdP/WWB0fDT7nzve9e
Fr2fzTrshTQeZr19lufFIiVkq/6qaBq6s57YNPuwWOm78MS8WBoLjgoC5f3J
78flSyjH0zh19aU5gsh8WFMcI3acrA/pFu0+wsKtQ29O5wkaPwQ2n/kIFsa+
PU1VCTSUrt26eYljQc2uunrvFOmHWw3LSqJZbFO4nXg2idyn0uLIp3gWBVK+
pyJTaKSMPhjecZJFfFL7DfdUGvUnH5kNnmaxeEFn+7p0GhKBF96JphK9JDcu
n5dB43js0bljMlikK/+5MvE88VtxoZ30BaKfWc6ynkzit0VXNkpmk3lsaPz9
dRYNp72XZ4tcYeHiHVtw9RKN7/PHf/59jUWDtfOFmBySZ+WUX8stFqVj4295
XKaxZkDz1+s7LHruNbea5pH1Xwc23y0k82nDnCWq12hcDl58JbWYzKMcgxv/
rtNY1fWgN/gJ8UtQhdWHm6SfZhss3PqCxRKPoolX88n5br/ft6CczNuhygFB
AanP1bILkq9ZfD9fJuV4l8b8OpMvH6pYFBb7G+ndJ37Ldpp5vppFcFpqqvQD
kl+6a/321rKY+Z/IzIYiGqImyh/mNbLwDtn18XoxjTE7OtZ0f2HxpJLPj3hM
48Dzt+8vt7FQjlhUZPeEhnRAU7Drdxat2XN+az6jUblY3VS5i9TXXHvTwHMa
W46fX1DWw8LcpbPleSkN1Dmb+fex6BxaeD6xjOS3sSs3Y5DMK9kH8S6vaJQ/
Oj/47B8L/szKPN1KGiMGiul7RnGYdzH83/BrGuu23AySFOegqK8XVPqWRmaJ
W+JZKQ6JGybpnHxH4/cfpttgLIcX8m/lHD8QPziXxJTKcjBNnDtb8yONgl36
PpvlODSI1hz++YnGetNNmc1TOKyOix68XUsjyW5Efa8Sh7LQwWvB9TSYj1KD
XSocxLXfpa1spPF0wmp1r+kcDvRUlIxpotFhGpnTocZB3TZl+qsv5PnKE3Eu
mhyc69vz41uI/8YYVn+axWGVgUeEbRuNs076kRY6HMxUyqKnfKNhs8Mi9a4u
h063e5Uf2mm4p+urqeuT9fGtlqc6SD/V5SpHGXKIpf5I2f+gYffbie1ayiH7
RcrIlJ80XFukPK3A4bZj8IJ33TTsa9ZU5phwiLNZnXnsF41Xc15fFzPlYG1w
ZqNVLzmfC6ZuWcPh9TPtVTL9NG7AUDJ3HQfV5pM+T/+QeZxvHzpozZG8ONoc
Okhj6qABu8qWg79UysnFQyQPj+ydEW3HoSMllP31j8wLCdbm9RYOfdXvCnNG
aDgIFadN2s7h5SI6+ZoIg2OOF8OsdnLYpD53IGoUg4czHnCcM4fZS90Gdo9m
0Pi8duHD3Rzmp6ukGIsyGJsaLvjlTvQfl/p5mhiD1WvmRqh6cjhZs6i07//8
zna+9QEOIn+XbqoUZ7Ai2yPW34fD+IE/EZckGOQkf8lI8+Pwa/ju5jBJBr9b
tfY/+o9D0ZvK11ukGKxcdLH/cxAHqWrBD90xDBZeKTEaDuUQNWHOVWlpBgF1
n9coHOXwado4hSbC56q2T5sj4NCz1Ef1jgyD63TibSOew1frK+9ixzKofNlE
W0VziPgoMdd1HIMf7gn2W+M4tP15PnvpeAZOCqIuzsc5TDto9GaiLINIP18z
9wQOj67cpNoIWxYvlth3msPZW96T7k9g8Lkw4ezeFOJXvceX4yYymFFerrIn
jcOZkK6fzpMYrPpGBztlcAgTonaRHION2S+e2Gdy2Nk7vH+sPIMCc7E/ay9y
eDrindtAOD9TXHFpDjn/8eb465MZdK8U0dK6wpG5l8xETGHQull1rtw1DqdM
6u3tFBjseJqkPXiDAw7/XqylSO5DxU6vz+cwy13t2SBh6yvqU4rucLhgcfPf
y6kMvh4OlTlzn4Pcv2/1KUoMSAKJHS7i4CMq47FPmcGLiEEx60ccBo45ZCyb
xiA6dp2s+hMOkbxqxDgVBsvcyzT6n3FYdui8XB3hhZ2s5dNS0m9CVctcikFu
YTx3rJyD/LXmhQE0g4k2PZ+2VnLw/G/Wc3OG3L/3+qoZbzl4aS6RUpzOwKC0
uqzlHYf1OZt6Wwgfe+Vy8EI1h/SMh7E3ZjBIq7df6lzD4dW2ex9CVRkYFlzW
puvJfWrZ8nVqDKhhhxUfGkl/VLgfUFJnoLnEITzqCwfb0xmPWwlHtJz5tbyV
w7h1B0quazD4uXPiyR9fiT7XFHyCZzKokzjnnvydw/Xl79+YazLIo5f6rfrB
oWt6Z6O8FoOarkeFHT9JPRanpDYQnpyvtCL+F4cxlOrYbG0GB/NUxRb0cdCX
L9bymcUgRunemDd/yPmUb/Uvm83g7OJ7tp5/OWh9XeYrOYf4c8vfNslhDhlf
TmdWEnaotHqaKsIjeK5k5Om5DEJGuB5dUR7a6Y8VnHQY3HY4vL9EnKw/G7tV
ex6Dm16tRhukeOh/p617CBvWpLg2SPNwkF7cf2c+8d+mna1u43g8qE20PqLL
wK2gr7hLlsemt4cczBYwUB2YNnRwEo8ixQnKsgsZCHTjE3vleSTHZ0S9I9x4
flyijwIP8Tq3a8l6DLg75v9+TuUxaJvK7dRn0Cw+WOY+jUfJ+ODJMw2Ivy0r
pZooHrtqjDd2EP7GBtzYNJ1Hv+lM82uLGHxqzKp4rkruk+rSfciQ6F0w7LhI
g8eJZgPLxYsZ2F7R2J2pyUO14YPjMGG1lMdtsrN4hMmGaDxaQvxwxrfZbw6P
0FuuGRFLiV8n1jvW6fDYV/Hsrdky0q/JJx2gy4NVqrkrs5xBk5Z+XfpCHvZy
H+1eEW7t3dg8rM9DoW8gO86I5JGA9dliyGNc0aGbNmCw6Pb2uBtLePzSPuoj
v4L46YbrYunlPDbedvj+jrDFyKxD28GjM0N/aqIxgzJ/A5OrxjykfpgN25kQ
vbfJZo2s5FG3pTRJcSUDGRODcxamPLr2df+oJmw4c97iRHMeuz1/D55aRdbd
D3s2rOXh7TqmyH41Oc9bobG6JdFf1XWJoimD0hNfCtyseWgYwOsDYaN1fW8v
2fDY01e2LcGMwVPpRQlfbXnMDFghttGcQeY6pdHqdjxazr3ZJbeG9L/0WCXH
zTzM5W8FviaskeffmLCVPK+nYhW7lvQ/U25Xto2Hpr5RjYUFybfH+8JGHHkI
ZKymS69jcN7/odM8Jx4iB0KnPyNcnTXz73ZnHu+/StSGWzJYbiBqKXTlsff+
5PWwYjD+1NVtt9x4nBpqCB0ivKCEn13nzqP3yCmPAmsGVSva74/ex8Og88BE
n/Vkf3X1iRr7eQRmpXrr2DB4MCV2lukBHilN1rHthAWW/uNdDxK/n767O3MD
g49ndO+HHeKxM27ckKMtA11PSYMzfjwWbAywUNrIILBkxZFb/jxqjfQ2VxFm
TbTOvAzgEeW9d0bMJuLfuaLRDUE8pD+tv2hqR/LMY9KG7hAeo+dO+S5iz6A3
IrFbJIzH+u5v7XcIN1+tdB9/lIe1978s780MbrwYeDg1kvjzZeiMWVsY7Nxi
0TeD5TH8+dyWL4QHk0fGavM8/PckWCdvZSDhbyapE8WjslEgtsGBQXvs5rb5
MTwWnsjyld5G8lhvV55uHI8JZ9Syigmzvsd3zj9G/NY0J+HwdgZtylNE5p7g
cV+xx0THkfRDjny0ZgKPKY/TrrYQvrknX3r6KR5CXZfa5B3Er45MgEISj7ZI
r2frdzLYYHeoUSaF6HGl64CkEwOxlndLh8/wMHWbUHufcMeuHcd+pPH4DyIS
3rtIHvyd96X2LI+AEx1dGs4kL9J2zn9xjse6+NFJNYQ9J0uH3MjkobNwv1ic
CwOV30avkrN4NK1x1FnpSvLxwpTpYZd4/Dg4ovSHcPn+NH/XHB4NVOCznN0M
FN2/fTS7zIOLGqXn6EbOGzVqpVYeD4uKe7sm7SH5dqnnjuQ1HjYv3294QtjT
98my5us8KvSDxQ+7k3koCH394CaPlUl1h7U9yP52mn6J+TwKrZkrtYRDVxbN
8ywgerIHMmP2kn47tUrE5C4P5RVD27GPgVXEnbbJ93lIWH//1E04bZbCt9ZC
cn+HPVPPeZJ6JdlL5BcR/T6nK9nuJ/6rPLQivJjHPZ379WJeDLwfOadYPuaR
vqfF5RbhUPupUxWfkHXB6qsuBxgMeUfcaXjK48umMQ8me5O8+34qJPM50eew
XewTwlWnVuzbU8oj23mL2qGDZB6t8zg6q4xHguuSIDUfkvd1I0+/l/NIS1dN
ekvYiWrTz67gkSS9NCDsEKnXN4n3rq95eHpfZub7kvxgTC5Mf0v8GZjONxDu
vBh06VMVj4GMZXei/ci6X8Ln+Pc8Phtczl1ymPQL52FtWs3Dd5eCyzfCsR3V
/YMfeWxQP9+U4M/g6oOCj7k1PA7bBqiv/I/0h86Xfoc6HiFpJXO6CQvC59rK
NPD4EJX190wA8cfk/T9vN5L+/m9t7JpAcl57v1dOTTyi0z987SMs/Unhp0wz
j+djD0qdCyL6r6TtbrTw8Mla+cMymIGv4xbxzW08Vsw/mDRIeJz8iaGhr8Q/
JurjLoQwqN97cnlaO8l7myOr14eSPD+lXm7UwcPv0uXVQ4R1Osdk13fyGPGs
HJd1hEFLq/iHgC6Sl+dkU9aHMZg2p2ajQjfpdya++y/h0mPmmtd6iD+S/ht/
IZzBZUVZa/PfPCand/dYHSXv62p71dBL9E9WThsgbH445oJPP4+xr1XkzkUw
cDG/Vy05wKPUUcXKIpLk8Rz13acHiT7GRht6CRepH9mgNcTD2OoinSog9d8X
lnb7H5mPBkE3V7MMnAM+Wawc4RHBNU3sIvxTxHBbhYgQIleGDBI54seutW/s
RwtR396lYcSTPDlcdLlRVAjGqbG+lfCDCcu7XcWFsJnU4xgjJPXy9Er9LiFE
wXuzbL0oBnvi/uV7SgkRsFvqQS1hjXv80p9jhKjebJscHk3qGXRvnpeMEBaM
tbF2DPm/fG3+yR9jhXgiTd+oJPw0KNrDY7wQz1c3d/rGkn6w33erVVaIzIZH
PdPiGGyS8PTZMVGItAd1xY8Iy53Vzq6eJMTUHLutbvHk/82JpfZW8kIUr9lQ
NO4YyZNzS0JLJgvxYPqvzuuEl7QWqi5SEOLjsc1tdscZFFfarcxWFCKr4WLO
EOHAeSlflJTIfTRFl5w9QfTTmSbKKwtRuI8/ueokeb/d7vP904S4Hr3j3jfC
F+JkXuyihBhvmpUbncDgP/WT3q9oIf4HUJ4UpA==
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwV13dcT10YAPCS0kZD+57bQFKElkJPNClKKRTR0l4UDe0bmkoKTVFRolLK
SG9EKjQpSkuKkhSiJO+jf/p8P/fe37nnec55znOl7bx2Oy5gYWFJYGVh+fdf
pqancsaTApZ/fxdiYKbolUOkDwVRHna8m/1j4WrDFX+eYxS4HKzWuLk7DpRh
50SSPwWZ8np1lfLx0GrX1bIsgIJ+tRNe4Z/iIfqujtSlIArKD+kFZAYnQBp3
9GuJEAp+/f6jlNmZAPP2mfPpYRQ8/cjGKzORADfkgtPEIyn4FuVtLVKZABXs
glfSGAr0A3VmOGUTwFp2l6zgaQq6rp5IurEiHjg5xMXjYyi4XE5veHknFiSK
9p1hj6fgpiVrKVfTGSiK/+obnEhBe32nc0LpKZC5Vd01mUTB4fS9bzsCGajP
znjgmEJBvZu13AvtSJA/5Uh3pVLQssXnrcKWcPBUHGc3ukhBKcfS4bRvoXBu
fqFXVToFAuWVx9dxRkC0ZNCBFVkUjF9niofOR4LSAfH25BwKzjGOqkeuR4GN
VWHrn1wKZHJiOsZ3MHDFZWL/kTwKHnkZfrwXy8CyR4XezQUU0KXS0S5hDHx1
vCSkVkjBRSqt8vRuBuQ2Bhim36BgunPRNz4jBnrZ//L9vUlBtNDGa3b7GeiP
7Hc6XEqBjUd+cqsLA69tmy0e3aagdrNKh8dxBuK2Br6RvkOBfbdYv2kkA4Jd
cdOhVRRcm/UfSYtn4OXrW8U99ygIuWIxfTiVAXeOMywa1fj+cylpLzMZaNa/
/zWphoLCybG+uSsMdKcOh47W4u+X9ddxX2dAReLaLZ06CiSdU0qFihn4IHcp
PO0p5vN4ko5qCQMz6hY/x55RkBtVJc2UMTC/1E1Au4mC0V6xhRLlDHiXeHec
fUHB3yVZeTwVDEhZfd8y0EzB53dPel3QrqkR5sptFFSlBdzTR581yxMM6aDg
nbh0Sik+X1v3PqzxNQUd7g9Vq24zsCn2UYbwG1yfLu0/nXA8y7zHzrbdFEgs
jRl4hu/jFOI0XPCOgvA32U9GbjJQOLVSZKKPAnan54ef32BAfE/EnMogBYbq
2gEhhRh/v/G0gCEKdAJ+jC+8xoD91d7RB8MUJE/xdTrmMaD64Nn0/EcKFoyX
X8jPZWCvrGS19hgFd03appuyGbBt19cOHafguNvN5W8zGFA8WB5SPUFh3Jzf
dlxkwOTbi+DZScyP+/b9NRj/3Y6zmmrfKcgQSI7OOMcA/9qse97TFBRMrP7o
eZaBlhMSf67/wvmd87mngfk7I9XGNjhLwY8kl6nfZzD+t0iL6B8KjorB9nvR
DFiE2trv/EtB0UkxPT/MP1fm6MMIVgL8p/3U1uB6G+0XGapgI1B3U8loOJgB
ry9aHSPsBLi5/CKyAhjw33j9rCgngevZvM+s/BlYwlMibshNgEc1bkDgKAMb
orOO+vMSWFNChbR44fq58V/GFX4CTq0zaknuDITaHUprXkIgxywsaQ+uz9/H
njjMChDQ2S7GSjkx8F+GKoecMAHjW2Njo3YMnIz8HmwsQsDcTbPtgS0DEs+2
NR4VIzBbSF6es2FAns1+4qIEgSt5b1I992F+mhLHH0oRCCxrUDSzZOBNFfvT
QUJgQNbwpYY5A8lu8wHsMgRsjb5JrDDFeMSXcq+UIxCS7ywkZoLx6LQIMFhB
4EHv/rSl2xnIFJKsd5InEMDd5LfYgAGhVRt/RCkQ2K87GiCgi78n0LMwV5GA
u8MpF3EdzPeX9T+r1xAo4hrkXrmFgeo5lxddygS8vrbKamjhfssrOj21noBu
ilSQiQYDsQG0Ao8qAY+bh945qTLApjVRJqNO4EQoj0jUegZ6ejbJbdxIgGVO
Y/TqWgbKTiuG7tQisEo4RqpBkQGx3L46u80E9uZ3f/m6igGjRr9pP20Cn55n
HpFcycCT97zCp3UIbLWP0zSRY2BSuFb64jYCk/033gdKM3Cj5YbUdT3Mh+O+
l7oU7u/mj1xVBgQKz45pJooycIeKG3lihPknr3JZBRi4JXGjsm0HgT2N4dZe
fAx4BtkE9ZoQ2MwzICqwmAEP41sbPu0i0M7GKzwixIDxbPnAlBmuD4EI/mkx
BmTMgqN/mxNwHXBV2YvjNYYJyLJZEvDtCI6QlWFgFR1ZxbWXgHiV7Cq35Qwc
Uu4yWLyfwFCu60dteQZ4aPE2QRsCo5VWtiUKuJ9e7torcpDA7fp1Zv/iYZUQ
0i12iAD8/Tlwfg0DDasKbSTsCBgQhSaizEDgUEePhAMBE+PuM17rGFgd+tdG
wonA85pP0XEY73TNVb1izgQUhsQ0T25gIPrtrsMirgTuK903NFBhIOWa14ig
O4G1fUdyJtA7j0f6LPbE/XPsYEIg5u/v1SgWbm+cn+n79jF0KuV2ns2XQKwe
T5W+GgPBdkrr5o4SCFfdJpKAdor8r+ObH4Gvzr3edWiyWjR89DgBv5axqTG0
SeYK9f4AAlY6MVEc6vi+93p+dgQRWJL5+aUwWptVoe7ZSQKL0jX0JNC8KXMZ
90MJfD7puFoUXamhE1kcTuADaGXwoYtt3h/PiiTwNC8hYQ5/f7PIi6AEBuM9
2fbmA1pJcSTx5Cm8PrNMsxG9g1+swu0MgU6fMPNC9I8Bw897YwnMD++piEZn
hFqr6cUTaOrP67FF6/qrpCgnEvhVnKam9u9+vjscEkkEDr3xluFGq2yvTVh4
jsDKt3u/dWN8nD+rKo2nEGC3fj9ZhN7qPzXYkYr5dHA+8C+elGJHyf0LBBY0
KnsYoA+IVKZdvoTr2yHYTBBdxel/ITqDwN95J5VezEfSpdHbrlkEGqRLNK+h
NTeMj5rkEMgMd4nyQWsv2rNFOZfAvs2JSproHIlfN5deJWBZF7dzAZrXsGjz
VB4Bya6SuQbM/7KNW8daCwjENCdvT0I7+iZWlVwnIP/b1XAvus/UIT+hiID9
C9uFBN3Im1ThVoz1S6Uh5gOup6n7Q8MGtwh8tHcbLkLXmitpyZYSOL+ykPZF
Wxap3/5TRqC8uEJHA516snlXZzmBx5dLTedxfWq51SwtuUNg9c5O8zp091zL
zKkqApFHzpnGoMeuPue0vYfz4c/ZYYqurg3QVn2A+y9CwmgZOiQ7K4v7IYHs
H+nGPbj+VwayrOyrIUB3wL5ctG+o/ZuyWhxvoNbHGf2kJeYO85jAMqfgC2vQ
EoxGjdUTAjPFIc3fsf4MFyp9l68nELUsWfQ++oeRguXMMwJU6za/cLSR4/iH
Z40EnGM+Dxugx+dUrqY9x+uilZ786JbFD5McXxIoNcnne4X7MyZT99b6FgIy
gpfq0tHK1yL/zLcSMHxtnmKHFlVTPdnYjvvHLfDkKnSaucDa868IeHpnhn1V
wv0t1C5o20ngp7ZGViXaIG2NovwbAt+iy1+HoPvYuk98fUtgZ5S7gj5a/2z8
bGUPrj+W4ot86Odhs6Uhvfj8gkq5V1g/2BVeZev2Exi0qG3KQPtMNddxDRKw
eD6T4IBebpEh/fI9gaW+0Z6KaIfe0TtJH7BehEW7fl/NgJ66G2MxgvEBwcgH
aEOp5/HLPhGQaoaqKPS48/2WzlEClx5T3Cb/rvMP77zwmYDRk6oTwuhE6hfn
3i9YX3lFFvZifStsyPi77CuBM21bbuSjK21DNryaJFBbsd7HC312t35e8jcC
XXzfdmugTdUz9+z6QeCqeogZK7q1XkGP5ycBn9ct7o14PsgOnT/29BeB5XzD
V8+t+lcvoobCZjE/JZUzNugAzozzmnMEHnpvcVuB/pwRdvrbHwJubL4zE1h/
p7teVRf9JXAXjK7eRTdpkPRSFhoObr3nFom2XL5mJo6VBv/ge7tM0IqbnGeO
LKDhXPsWUxH0uhypjK1sNMzd0vIYwPPpOV/WgORCGoL48/KL0Oe7NRqn0WyJ
nnN+aJbfmyxb2GmICI/1BDT/zC/mOgcN3JNf5rjR3+bv7YtYRENCcWzBqxUM
1LS1tO7npMHJwsIzB83ZderLei4aqq20zNzQcUuUSri5aeBk32Cqhn4ryScy
iL4Zo+TGip7adEz2Lg8NP+ckc5/j+fPR9OarRF4abPZ/+56GZt5wrHHio2Fb
Yq69PXrk1zPFTfw0GAZIflmDljyq3bZ0MQ1io7tTZvG8fXSznBpBf7+ubvkU
fbnCV+DBEhpaAx5sSEYbqD4uPruUhu3C7YoH0ZmhE18dBGgAFQ8dBXRELPRo
CNKwIy7YZ1qWgcM/5r14hTB+rVMPHqGf/vW90Yeevlsrm4ieOjeUVCZMw+DM
2zxrtPvWdJpZRoO2kfI2efSFbb17rURokLG7/fs7nrdw4rvmKlF8H1bL5lr0
ale5+lm02SeuhwnofOPyP01iNPS9+6/eGi3451NvhjgN1tfdP8ujj7HxuHlI
0JAr/nf1NPYTM8k2uZsl8X521+jH6OgYWYZPioYW3ezfZ9Gb/a4KvkOzVJ6N
PYhmj5XdeYOiYVZHWU0RLVQ6pBJEaAhs9fo9Q2N/Ebj6mRFNw1krne56tLe8
FqeoNA21z1NfnUebFVn++ICWVbYbtUfn5P6XeFuGhuOnzoutR788cL8zTJaG
zX0y9izo/J7TL0zkaHi6fe7pS4L7o9nVR3w5xntIUC8TbXEx9/Ew+ulz63du
aD4Tn7qyFTS4KD5N1ESvLhU5FrKSBo31ejZc6LItr9uM5DH/Qk1bu7CfmZAe
7xdaRUPV4u3bCtBTmhlZff/sXH7AH81FyfIWKtAQ5zqXpIdWE6pddWw1DTFH
hPqF0PkSFT83K2J+7n4xGJLCfujjZv9FSjS8rTnZcBud+/5iXgva/P1th0h0
yJpF0RfX0KCXHClmjlbIeSxit5aG0K19IzL/rtfzWiso0/DR+27zlCSON0ZM
p9CBlxe2PkLbcGv+vLsOn7e9PZaMftiTZhq+ngb3TVXEHm3Z7mdjuIEG0sbu
sQFdI7pEYrEKDen/JbSzodOTcuNeoRVu6Zl3SGA+3zmXpqvSIGUs9fkqetYi
68xhNRoajTmz/NB1/CHCK9Vxvh4zzvpo++6tez6jK3zeG4ugfxqsNCrVoOGy
7F2jj+I4nyzHSb+NOJ6Fh+1ddMqQ+k5NTRqGe6biY9CyfZ228+h76ZteWaMj
FoeueKRFg9bxzapK6LAKp1xmEw3BNh+L57H/9GiubzfcjOtDW1m7BX1avPse
zxYaeCQ4P11G7xV8Y/US/furXdFRtMj0TOFZbRyvYUO0Hpqvxq98N9CgX+ER
IIL+phB1TEiHBs8GNuYT9st7Km3GXqEjZD9du48ez1UTS9uK9W1kyYd4NOcX
w3mrbTSIg+fGQ+h3+xsvierSMHbwe9569ITH5JcutE5wqgI7+ojn99kLejQo
dxrUd4rgee3EVbNXn4bYit9Bheh0WSctUQMa+u3zDE+iV6iDdyfaT1VDyRTt
Mv38QKohDbpRBatk0SuDdBbuMaJhpmR48/Qy/D680mYvuB3Hl/nk0oA2EqoI
bkVLGuYWZ6BdVKV2Je6gQeU8O5c3Wl5Nu9vYmIYQhiN4G/oUzy5pbhOsN5cu
cIigWXzCpOvRIwduXRsVZuD1R46eyJ00XD+wxe4h2v2BsBnsoqFn7cYNyegL
c31hc+hH3ucknNA/wi+4VZnSoPQYJDTR6uM+S4+ZYb5aVNbzo4MLsnzX7qYh
ytD+0CB+X2QMmiaOou8O1OTdQYdcvHckzxzr494tC2LRh8/yzdla0HDLp83P
Fr1hT5Cx+B6s9z+8WFTQPdqq+zrQRhXcuZzoOF93mQRLjNep1P3vBBngfmt2
zcCKhjbDRQpl6AVrlo2x7KUh8Z3pklNos8lPo3fR4WuP8NmgTX3/FPjuo0Fg
7RbpdWjZpjCZ1ftpWNzesIMDPT9wZf979GXR+bhu/J4KcEk1TbemwYSteagE
3dJ/aqG5DY3nrrJ5NFolpcCf+wC+/49lXdboJZlyBbVoYTn/o+vQewaVUk8c
xPt1ty5fhH4gOrVtrS3OJ8hrvGcp9q+Ps0s+oGO+TjaVoWPXO/akH6JhV0f1
f6fRI9He9WaHaThhU990EN1zc8JnkR3WnycLxlXQBs5Leh6gr5o6yPGgA4GF
w9eehjMG/T4DSxgISvk8scIB4/HL9VUl2iRpwaVudF7Vr50J6LUqXgvPOuL+
GTzZ64Ae3G67VteJhpSuL5Fa6C9H/4r/QouwgrYAuo8Kri86gvlrcFzyCb8n
z8Sxqto64/rMt/hZgzZuvm8v4EJD0VLW76no3U2vzZ+gJWJsOTzRzWoh7Cdc
aVib6rBGD6176d0JBTcaxmsXukuiq03pmz1o12yVmm/8GM/TPnkJ7jQ8e/px
ZRNaQmfuIHjgfnstnJ+L5jAdezuJbvEp2RiIDrRxEbviSUP3tuJBM/TIQI64
hRcNYXMsl1eh76990LvQG/NhlnOMFZ3j8sGxAr2NJezAG/xevn9Kv8TRB/Pf
kGJdin5vyfVQ2BfXi3+75xn04AmrxCfopHbltMPoQof9cn5HaVh053LHRnSq
k9ZJuWNYr3+KrxRAZ+fIXmpHLzielDDKy8Al7k1BEX40dIrPcj9Ge/oW0+v8
8fx7aZSRjjYNzonpQ8dG+G09hp7J3Xw3/jgNX9f4/jFGD6gX39A6QYN3i8qL
5Wh/exHHT+gPLmWl8zwMmC+/OpgagP0RW39hJ/qERdBy3UCsF8VlVSXo0Ow6
pUl0SgDpPoPujCv4nRlEg2OkhIA9+kfgjsTtwdg/jKYf2ISOz+n8OI1m7Thf
LYx+xnuU88pJGrLd5tdNcGN/UaD7ZWcIDZqDjfeeoXXWHb00i07w/GqVi/6y
bTlffijWbxMHrmB02O5wfbMwGtprJJr3oI9fL9afQ9/h572+Fv3Xs4WvIJyG
dacU0rjQK64szjCLwPM92P3iey7c73TS5G+0vEH9rWr0kkuB/PmRWK/0lN+m
oYVzJqd2RdGQ3JMh6ovOTpfInkF/P7bAzRjN2yoleIXB/IRYtq5AN9pK7TKO
puGQR8IOVnToVm3zH+iyB9lvujnxe3fXNZJ1Cuf3OTToDrpO/WS5/mkamHC5
dUlo5szg0gl04aLIWTc0y8059bQz2A8uTurUR/eOTqzQjsF+Yo3uM2k0bdff
O4wWYk1+PrcI94fAlG1CLPbL8t5Dneiq14aFqnE0LN3esfg2OugI58MetJ5g
+c4EdNc+i/TIeBo2qrJfdkEb06ZbFRJo+OFUzaGHfsJNbregvzi0hdLoZ/pD
4/6JNPBObuSd42Agr+/RlORZzF/bp6JOdPbDd7WP0LavOw/eRosVWVk7J9Hg
9nJGLhFdu928hi8Z622y3rwr+qH0t/EydMN8yag++k3yvhGrc9hvTa8blUEX
9F0rmkPLH3o4N8+O85Fn07qcQkP0KmOZbnS1R8x5vfM0nNdt3V+JLos/dP8T
evTatvxzaH6DghvxqTQcMb+40Bv9P6rbkKY=
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd1nk8FV8UAHAlZYkWQmRmLCHRokQoh6wtdlEpKbQXQmSNeO8NWVooXsiS
QqFSWhApflosWUtIqGSvFInfmf56n+9n7pu599xzzr2y+05Yu87k4eGJnsHD
w/zKlbY9GD9OQOOZ22Yml2kYz2l0CfMg4Lqz+/jLKRoy/kv3EfIiwPLGNs7D
Y5GwCsyH4nwIyDt5N4DqiIS6fS214n4ECPpfNblnGAURD/VlEv0JCLU0FvnB
joIEwYgm6SAC5D7JBpRlRMHU/qtTSSEEvAVhcbPYKMhVCEiQCiMgP9rXV2dT
FBTyiaYnhBOQLHF5j1RhJOySt5AXZROw8/MJn5wPNPDPlpI6RxNg1DuY+rCQ
A9I5Ozh85wg4ZpGU7a/Fhpxzw54BMQQcCRXqEM+OALm84paROAL2Bxdb1y4K
h8oU7hPXiwS0vnGveBcdBsosV6olnoBRZbv4PaahcFx1gM/sCgHx+Vtul+af
gQtTs04UJRHgsDHBKGU0DCKW+O9WTCag24h70DokHNR2S709n0oAu/v9Gb2A
CHC0z677m0bAfFhtmzGTBemHhnYeyCSgffNtz2I1FoiXZ7vXZBHw/bhfRZcU
C4ZdE8XWZRPgrqyi2TwSAQrr/UyTcgkweFkQemg4Atr5poWnbxOQM3Rd+64A
CzrDOt2cCwiQPOryAuRY0ORUY1t+l4DxvNYNK7RZEGVwulX2PsbnB+w5b8UC
0ZaoseAiAoisGxuCD7LgTVPerbZHBOz1Nf06M5gFR2dzeLSKMR42J0WVL7Gg
xvjxcFwpAUPxa7hj2Sx4H98b3FdGgFKqr6zXUxaslb6Rp19BgL2vzM6MRhb0
KCSeSXhBwMFl8uGcPhaMa9r++lZFwMOi9Y8UplkwteDIQr2XBMx6WSTlI8oG
93z3htjXBGhmhKoGKrFBxv7Hxo81BNyacOvQ0mHD4fhQm1X1BNxs+tKUZc6G
WKtM0aAGAp4oi3hUObOhrOJTSHUTAee1jn667MUG3chy7qJWjF9Eg70Eiw3b
M58ddHpPgI3Tiz79K2xwC3LrzfqA77dY8Vo8hw3Zo0oSQx0EeBW6a1x8wgYp
u9DJtV0EDC8tCSx6zQYF74EEv24CVFnZYqHtbNif0d73pJeAL4p36aFBNmg8
qRqb+oLxTb+dMD3FBgf5JcV63wh41Bq+qECEA05vjfWCBwgwlHCbyUtwQHXP
vaDiIQJexL0J/aHKgW3fXwdMjGB+Gz3rOqvDAWvXCe11Pwi48+cW+64ZB0RW
Jj9yH8N85XKEQuw5UOsr/ffmb/w+rb+kz4UDHJl63q4J3P+AR+dHPDjQk0fW
Sv7FfOUbdY4P4oBtsNN+82kCuDvzuC00BwSu9pWEziBBPtzjRFE8B/o6JboL
eUnI1Dmtui6NAycGdRo+85FwWK5bw/oWB3zW34yV5CehTdthrnARB+YL5UuZ
CpLwzI/f6EA5B9ZEJJ/0mUtC16L2SOdXHDia+5SbLkLCWpNTaZONHAjetzeh
Zj4JneuWOK3v4MAfr+cuEwtxvNOLW5JfOPCUqzFbYREJ5und7KRhDgSG/QjY
KoHfa/eWffYb67lqU/XJxSTkTGpZx/LQoMy7f+iKNAncsX5qag4NCi9jBkpk
SPC5ah4+Yx4NrUV8L7pIEnRIfXbGIhrOH5ny45Mj4Z6poP6oNA225woElRRI
uPiYK/5dlgaBZls/E0US3o1XPbmlRMNVsSWVbsokLKrvuK6kRoPYsvU/z6qQ
IDUYuMNVHd+3sG1WmioJGR5CGYc1aXAYVP9VvIIECafZb7R1aSiePPS6ZRUJ
LpkX7rUADaKZOexRdRKi2HpdxkY0RPpRKkIaJDRXrspgmdHAqzN0R06ThJJk
pQVXt9HQ1qarsH49CR/XdQlwrGi4w1YNNtchwfhxt/k2OxoWp3VU7NtAgojh
kf5vDjSYVXuPeeuRUJp/PdHNkYbnn+YuYuuTkPvwhPdTJxpGFpXJXtlEQgKH
ver7Phpya3NlbhqRUN5pzZvtSkNNzReBIhMSbIfkrwi40XCfiPr83IwEx5oT
3HJ8nied+6B+Cwk92mtZ+w7QcNzf0b99Gwl7Nt89H3CchmNb89Z8tSChu+Rh
QakvDVsn7n0ctSJB/KH2ruAzNMhZBUT8sSFB8gvvgBiHhuqQhfK820lYAd2v
y2NoWEaFFQk4kJAmyHF/dImGvataTObtJOFh+Z5yKokGIUqqXtSRhFdrY90X
pNLg9MbCQWIPCbVvnayuZdBgHx30fvFeEvoL6OWdN2j4b1m2o/Q+XM/TDbPf
5dJwuruhTdqFBI2ZE9TlfBqWB087SruR4J/Eypa9R0OS9rL2xQdJgOezTAMe
0BDxzsJZ4jAJfdrpvrmPaLh448Rn0aMknN+9o6OwmAbzU2Ee846TYDbt6Jf0
lIbpjLM8gu4kZKt7vnB6RkM8ceQSryfmF/d576wXNATsU1s9eZIEwa/zCqKq
aHALe9rw3ZuEgso5z35X00AulzzTd4qElZMp5za/pmHbVUXNTj+sr08qe8Jq
cL6P2n41+ON8fqq7ZtTRoDdDpaIqkIRhi2uPb7+lYe7FSe7jYHyunu6W3kjD
Ay39sFtnSOAvvbYzrJmGW46fTiWHkWDnzAm0aKVhg8Rr/+hwjKd59A3+9zSo
qX6OCWTh/NgxN/PaaNgisrjwCIeEMWK1oVE7DT8/mvY7ROJ6Zj5Vr+6ggRu8
a53ROcz/un5FvY80GPqsvbgqhgTrggPVGV04Xvj+bOk4EkLPuZT++UTD2s1l
0bMuYH5sFL5m2EPDwX4NtYGLJNjc7OEN6aXBwGe0qyEe3/dOwef2ZxoI1Yb8
x5exPo7yhdR+oWG3xIOEa4kkUB9EMnq/0lDE73M5gov9QWaH00gfDXGJfXcP
J5PwaMfLZSPfaNBeM9C3LZWElPTtPr39GK85dhtXpZEgJq92t26AhlTp37cX
ZJAQpzpmdncQ42eas2E0k4QB7nRK5BAN4usNvtVlkaBSfFR81zANrp4xRfk3
SdjZu09QboSGDkuX69E5WI+iaxs70dVz4wqP3CKhIpz1KmGUhtHH3b0mebg/
KSEGJt9pKLNR05EvIGFwbnf4EHp7jubdv3dIOGWl0xX7A/MlsMai+R72p9ax
lOU/adA5Urog/z4JdQnRs56i30/WjrOKML8Nr1mbj9HwLeMVv9MjEm7YLqxu
QheX+elpPCHBI1vxxo5fNASlJCcLluB+EalKzWil0zxKHaUk7O5sDrH4TYNn
8P7WO2XYb8qav5ajn9fS98OfkeDs6xm/epwG6XCtUvvnJGzq2FmUhO7NVvuh
XInz26QdPGMC99dMZft4FQlVlc8l96PNXAd6qqpJEO6uz3+KHphcm5HwCutz
wREPqT801M4riXN9g77eHuqOpq8a5qnXktDb1yT0DL3qRtjfqToS6k8cWL1w
kgbJdRqB1W8x/+4QEnvQCTYLV15qxPNovnjHdfR/Ym9FnZqxf4nMyO5HmySs
UFVuJUFVUDdh5V/cH973vsPvsL6M3lWcQBvHnpt40IbjD961uIV+FTJRENRO
gu4Jd5svaD6VxhTDThKSF1zuo/B+6zFaUyHQRcL8nMQV9uiltlzZN59ICE/7
oBmJdmnvux/Xg/nh+EKmGG2keSTc9jPu74OKsX60qcyrc+JfSZiQ3d0iNY3x
OPi4trmPhID16s3GaFORXvPL/SRoLhSZ44GOIX7zOwxifYh9O30Fnf0fd1p8
GMeHTho+RT9wClrTOILnT/J9nx50rLVx5vnvJOifaaIEeCLBUvOqncVPjNfV
QzbL0XWVKkZCv7D+RxtktqLluy95vfhNQsPg++gj6LkXz3aHTJAQJpl1j4P2
4+de0p7E89mpmnsd3c8NYX//S4L3+i225eixlsbinGkSnntd/9yGfqlFJhXw
UKDX1LhvDL196YrxqBkUHPCxqxOZEQmqugfHD8ykgPtFeaMienWqDNeAl4Km
5Z13ddGvhJM/LplFAfsAV9cafem9VvUYutpHrMsNzfNHd3stHwX1m67cOo0W
Gf8dfnM2BcU/F984h/4+9WhH6BwKPEeV3qWgS+tr63byUxByf2JLAZq/hTWo
LkBB2tmTfOXoqPlq+YKCFCQOUiL16HdLhCW60KNaBsc+okd1veQfClGwPKl6
2TD6i+Xtxpi5FLzZ7bJ5Ch3eOnuFmzAFr5pPNgrNjITPv6tUdUUo8N4qVSeJ
XnJSr37BPAqcc7Q2LUWX375HfEb7r/FcvRp9rdBz4ZP5FDhOrLimizbReHYr
dgEFijuSE0zQV4OHhl0WUtCr93CxNTo0Etq0RDE+7oaqjmjnn1Mn5opR4JVW
/9YV/WLaM7cDnR3zQuwEevRCd9ydRRQ49Nt+P4U+apBEhYtjvM0iToagL29q
d7CXwPn3aF1ho8H3h/YySQr2uckdjEUvP6xQOYFedbbuUwL6+tZ7f18uxv1I
y5uXghb9+7WdK0WBr8PMoUy0F6/QkWPSFPzs6T+bix4/75i2YQkFd5I9Gu6g
I2j5cGEZClwMTnYWoTd4Z4h+QO81vZ9TguaLlDfPJShwk+nSqkCLFXSv9Scp
cLINpf9DHz+9vMqMouB69Zz0N2h3ZR1+SVkKNj/97+xbtFXO9p896K7u2eot
6NS0pzF35Sgw39Gb24Z+s/txc4g8BYPXfX91MutpY7/epkDB/dwi0R50Xc1h
D6mlGN/QKN6vaNsrac960YY2L6r60cLbPCruKFLQorbUdZiJT4GEV5AS5uNr
u3ff0Xc2NtWbKeP8dn1f9gs9JDvQKbaMAmIp226C2Q9tbnIHeqN59J6/aAFC
fm62CgWtp92NeXgjYZ1Y2TKv5RToetAivOjr0oW/NqhSsOb+siI+9LIvG3zm
qGH9yEUb8qPTPl3JrEV3efbdE0QHrZgTcWUFBRdrXQSF0SqpzyT2raTAbruE
8TzmeeXcXSqrKDgYPf/QAuZ730jLUTR/v42XKNpRUPvXw9WY33rvDi5Cl7Ql
WJ5Rp8BA6byJBHr7W29H0zUU9J/au2AxulRyvvS8tRSMZVKVUuikuLSoRjRX
MfPQEjTfh4MFSRo4nzcPxmXQE7bJHOd1FMSqSvmS6AqRoEVKmhRIdob3UOj9
7w3s+tHV/bkGcuhfJkpmBVoUqAtqx8oz60l2HfFeT8Ge4do3CuiL3Zrm2toU
WF4TmV6Klu9odppCH8rjyCqhQ+cFK5brUDAcUr9OGR1S6JYWrktBZ+xJvWXo
YzWVb003UPAnd0RHBc2Wev9IaCPm5+pXqsvRDqKt9m/QJfqBC1XREmPj2bF6
+L5pvwHGwqXe96yBggdP1UvU0N9VznqJ6VMwc6No+Aq03QPHb43ozZWhBivR
A2nrFicYUNBzonuMMf+g6ZT9JqwfnYS0VegPO6sTJQ0puGQ6ZrQaPXRsZLAF
zR13+Mj4wPEfE5eNKBiQFvVWR3u6CZQ6GFNwWth7xhom/vJuOpImFLR1voxg
rKgJ7s3ozmBnvrXoQ2OvdsebYn94FRDIWMlff5adGQXRZc5DjHvS6/eLbqYg
KMZqlwbaTKwwoA5t+5guY3xIQ8YiZgvm/3ozuXVo5XV677duxX5KvwhkzBKy
kBXcRkFf3foGxjweIbKVaP2R5qWa6KYvs9vCzCnYmvLWk/HRJ4uswAK/F7T7
MePLkx0hk+h+9Yxpxj/PXD5SZIn1cKpBTwutOeCxwMuKgrxViwMYB2Qle660
xn4VmnSPMbfLMqYPXd4R+pVx0JVHBzJt8P/ET6n1aOdY4UknWwq0IsTNGK+x
898qZYf955OAF+M2PY0dDWiNi8NJjKM8j8pFb6dg/pW+p4wF31ndMLGn4FSa
+CfGM1eIf+NxwPgS52dqo61GvvY9RPeZ+JGMLT3/ZnnuwHxY+Xk9Y/mXIXLL
d1LA+u+nFeOpj+k7P6E9JosPMPY7FG+ZtAv3M8ven3FtJ2uWjSMFjXmtUYzX
XszyEdyN4wV3chnPv6qQVYZueD5wk7Fdl1q87x4KIkVvFjJ+Ijm6aaUTrt8q
pZSx+LOU/B607YJPlYwj1V3bkvbi+SAf8Ybx5wj3SitnnH/SlbeM224PeczZ
R8HRNrVmxiYH57c9Qe9KtG5lfBp4Znvup/D+K/6Osf/F/iFFF+wH6px/z7fF
zUx8j6Z2Pfj3/5VrT8yKdcX9unG7gXHXZqeVhm6YTy3+tYwHT05L/Ub3Kix/
ybiDCKjMOUBBgWFVBWNO1AwNp4NYn957ihlvrXm8f+EhCtYH/b7H2Pplk81z
tGVhag7jmnVBfL6Hsf/Pcr7G2DDxg6/KETz/+g3iGRdbUrfb0BVRFvS/eLI9
MqOPUrAtLSaQsbT+5B44RkF3jJA749mW396NoHn2vnT+t37HQ4vTj+P5UdVk
/S9+H1OlbE9QsHqlxibGj1c+aZ/lTsFU9oA649RDPa6FaAOBOXL/nrOM8109
sL/UsOYz/rRdoGSRJ85Hz2eKya8uX/uY52ieHS3fGGe77FTwPkmBWtvdFsbx
bjqBCl4UZG4Tec44JVU+8S26/Vd/PuNEQV3/UG8KqgZsuYyPe96iVvtQICa8
hcXYMiCV7kC78jR4MB5P2/Dw3CncH/0fuxh/1LyVq+NLwROpfCPGPvslXL+i
ZbKFVjK2WZrRFe9Hwd+PgpKMfW39lxqexvteZAEP4+CUCrUR9G0T3n/12ByV
9eeqPwXC53nrGP88vSVmcwDWW1lhEeNzqc1fxtC1/DKpjKvmnuRPD8R+d1qX
xdgry3DQPAjnJyBxnLH+6pOJE2iKlWfLeHDTUuHrwXj/u8mvwzjE+oyxVQie
twJLZRmfunnLeBItqzBnDuPp47XCWWfw/re7oJ/pN4rp87hWoRSI8yjWMxak
4kb+oH9tOPCA8fzE0yLXwyi4oH6Ky3hR6sioxVkK5D7Zn2GckiSdMo7O0RNy
Yzy3TkY0PZyCD/IXNjOudpKx2BqB9WU/soJxsIGezU+0eZySKGMDixtkMgvn
c1LzF9M/KzQD7xmz8T4YJ/eecTina8EQuv5IX8m//np7UjOBQ8FN79g0xu19
Q4p6NNb/AvEIxtS+zvZe9JsLAYcYWy8cdYqOxH5h8Hwr46Im02yNKAqS7EdW
MvY/wF/ShracmiHKuGWHbVLYOfze9t8/mf6/lbI0UInG+6B3Ywvj54Lk3Vq0
yr7Ex4yrjLsHfGLw/iNtmsw4s6N8dEksxudSRwjjlJIPZeVoqsh5P+PFOfa7
Dsbh+eNSY8S4bLNNqfB5fL/HMmXGJbLfB+6gf+e4CzJuPb/js/0FCg6/y+xn
zqusjhs5k+jhh/+9YVykzKtz7SLeF3g+5DMuPkZfMrqE/X1X53nGd87tffwV
He3Z4MVYxCQr91w83vd7Hm5n/D/jcLAD
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwV13k4VV8XB3AlJUMJZco5pwiJlEiRfFNIKZSkKGWKZAwlQgmX695zlFSm
pDRJswZEM2kwlOiXoWQoQlQqiXe//vF8nnPv2Xuvvdba+85wC1jnOVZEREQ4
RkTk//9nljXe/uNPQeT/f8eT8Ce/ziM2iEJFQazVxyd8nHl2OkwyhMKU+2e8
VEQEmIe1fSlhFHYZ1t0vMhOixq2helo4BZ+L/pXOoSzi7y5TTY+g4HG81fjB
cg7HJOLfqkRRMDfJr9a6yWHEPWskI4aCUvDXmrnjUnBJPfKYciwFmz1b5ELm
pKBQTO70sTgKX5lT76gZKXBWs1WT41FYHPe2c3YjB/HxysqCJArOYhrZfes5
qORvShQTkPHvzVVyHMsiX/AtOJKl0ByacOq4lAAzr9xr6E+hEG1WHVj4Ngnl
JzNLPFMpHPD13RSyjwetBE+mIY2C8PnvM18M4+Gv0yNmfYLChLu6dVL8Qzgy
Mi7gTgaFoqvr46/2xiF+esQWjWwKadINtzLGJUB3i/LrwzkUhgp9ZA5VJsBl
48Waf7kUJA9sVcdSHk779G3ekUdB8cbMh1XuPEx7eDGw6hyFWVzRqpvWPHzz
TJdfeJGCw4RZvZkyPKgvDl+ZcYkCb+yHPT9/J6BZbFR69DIFtrTQWX44AR9i
P3htv0ahY7L0rmsiPLx1rXJ4eINCAX9Ny6nxPCSb73s34xYF9dOVu25I8yDX
kDwYfYfC8qSB4pKpPLx6e6WgsYiCa3RYVgbFw67xiSKL7lGIuEmdWqDFQ5Vl
8beUMgqX/ob/3KXPw/u0juiuBxQSJwTELDDlwUDl/JVljymUvc2aHbaSh3b1
9APHnpJ4mSy30HDg4Y+Rw6/uCgrK+8pmGG3jYWSKr6zZcwrb0vkXsnbxEHg1
8A33ksJRty+KduE8qG78sfRjFYXd9+weWsTzsDPt4Pp5tRSODbQ2hR3hgbPP
k4t6Q0FTFR6NOTw8ePwppvItBduDu/sCLvOwhP8wc+o7Cm/drXPnlPDgmPfI
2/U9hWeSklMlKnnwivLqONdEId2qafn4Bh4uDmgq9LWQ9w9filXp4EF5w8Fh
g1YK35y6wyx+kPiH9hwLb6Pg35k9LmZsItzPNHeVdFDYFB5sVy6TCMOSisGR
zxSOt329pUAnwklt+j2zbgqDwopyP91EuL62NIvuofB5qsiypyaJ0Nl6M+pe
H4UTGs8kqVWJWPP9ZeRQP4V/TeHGwU6JWOc5ZLzwB4WR+zZi970SMUkvuyhw
kMIi87CKcaGJqN6r8u/Cbwox23hjl8YmIlG1VrR1iELDi1n2PimJaL9CVyv+
o1C4+nDwoZOJcIh2dV87Suq1/cAyQUEiJmZ1lR4cQ0N1ybubB4oT0fVBoa1Q
lIaO5b0W12eJCOg1edMpRsO+oKR3Vn0iwhZf4BTFaWS1PdWqbUuEjORV5ZUS
NIq+NnW7DSRiQXz27jApGpXt0ZffjiZi16X7macn0WjqjB+ZI52EaLdtx6pk
aCg2i8dsV07C35AnHkOyNNrX0F9DNZNwP9NwvPpUGmfD62W9DZKwP/ZHpI0C
Df6C6JGFy5KgUrG8crcSjXpVv4iPa5KgJered0KFfF/D0NZzcxLUn7M9pao0
zK7EaT31SsK7O2JPW2ny+Wfng8buTsJh35FwsZk0fh2pOqESnQQHwTUJTXUa
H4557pPlJ2FivUO4lQaNV1KKzzrTkpAlP73cS4tG6sdP6pm5SZCfvfjnIW0a
O5JfT593mbxPtnFcrg6N1X0L9c/cTYJTr/6ve3NpHFu1oen34yTcG/Z52TCP
Ru08ecHc6iTI5eXzBvRpvHx+8rzF+yTwwxltSUMatnoJqUs7kiBq0nd9phGN
rlnVBUr9SWhsXKK+eDGNd9b5qP+bhOs8nei1JjRKbuml7RnPh1Juy2M3UxLf
C+Xb/8rwYV0ZOhhqRmPCzSwNdxU+nnySmspbRuOvit2fq7P46J/6YMaJ5TRM
v61yatLj41L1JdULFjSW/FbLTV7MR1XV54l3rGjsT852vgM+blHJnU+saTjU
X/CrsOTjisql27Wraaw6dfnP1rV8+Ee4RDSvoXEly7PwtDMffjZXFnyxpRFw
Lt5K2Y8Pm6GbHwfsaeiP0xTaRfEx0z4y/u96GpvGjJVdxfJRGSOrJupIo/zS
o/YJOXzMZmLvTHSikd3UOY1/lY9t8xqsJm+mMb/iSsGb+3xIMsq1ci40Fiko
F7RX8+H6ytZJYSuJf9tH2bIPfGwURr1X2kaD+XOwfvs3Pp7Nvuii4kbjWol5
76tRPva1vWlU8aAxR97UYsLkZMyJHnVR8aIxZBDyRJJKRobx7GYlbxq9cz6t
a9JJRvx/ttsVdpL8CDv8ItIkGannAzrldtFQULos1W2djLV7YoMm+5P4ymZ9
1nJKxuiZQyISgTRm1ivNN/JKRhrle1Q0mMYXj9XXp4UkI9JNd/7wbhpH3zYv
qDiQDK/Y+2++h9Lw0JkRbsMmg56jeKBrD6mfQKVlZzKTsSZLw+hDOA2bI7mW
1RfIfIsaf72JoDHWPA41t5JhNkb7ccV+GgczUz6ee5QMqdThzOJoGhFhdxoc
qpNxe9Gy2IIDNOL91GsaGpNR4PJpT3YsDSmvdcEGX5JhqvAyQhhH4/Wd2du8
fyZDV6eT3Z9AQ7dGziR0jACrJykV+ibSaPCRy3GWFuDnx5Vfnfg0tkx9rzVd
SYDMaOeFFgIagVs++d5WF2BFmEHqPJbEMyBmWHce+bz0rfEqKTS4rsGdMSYC
GKx6IBx3hOwPy624YimA91dD3Z5UGjVSV+WK7QUwDxtofZNG47pXm+sZFwEo
nTdXi4/TKPz0t8B3hwBbFG4fO5VO48jKaTFTggW4Ix52PD6Txt3btzakRQqQ
kt51Y2c22e9JdflD8QIYL+jpWpNDg+b3Di9NEcBswoal83LJflpMe+CeIUCO
yu/LU87QiPwxzt8nTwCplfmmA3k0RD209thdEWDaYvPumnM0ROyur1G6K4Bn
MHvn6gUabT1ntz1+KECLncdZYT4NcbHu6eteCFAplVLoW0Dez7fveVgnwEBx
W4fVFRKP7vPGCi0CPFiva6J2jcbKz+W+tp8FcMw3uvHvOo3vEuntvv0CpO2v
sq2/SeNB1RxJvyEBTHzLply9ReK345bpelEh3g9X/0m4Q8NQNr+RkhKi+8wL
cdciGhXLSi2q5YW49yDczLCEzG/rwJsdqkJEnczOliil4TM/t619lhCa+0Q0
W8poTBThv1w1V4jgaPd31x/QuLTvbUfaQiGeVCfdintEo26BenzlUiFU4haV
bXxC4/6Pw6PtlkJ0XNT9oVVO8uf+s7wva4X4aa3t+KeChvthkco6RyGsPXva
KyppxLWIl1zcKkTPsMGZYy9o5H/aUOntJUT15NIUz1ek/ySPM5fxFyIpa8UV
/Woa53w/+Z8KFWLe+dh/IzUkH+fvy5i+XwjFhYb7K1+T/ik3ZcrBQ0IcWy+r
d7SOxPv7bYVavhDP5F/LudaT9a5fMyh1RAirY3N1tN7R8NKIG9BPF6JF9P3e
b/+ReK/ts1txSghLTjB0u5Hsp+KIw7LzQryIGboW1Uz6u5fUMu0rQohp151c
8YEGVeruOFooRNBA1eOJreR8W2Red79EiFkOmTNefSL9Tu/DsP8jITyau26l
tJP6/S9UUqJSCAsj3ziHThLPXCw9XC3EStUXgmlfSH9P5tVMqCfx8C6uru+i
ccA8T8S3iTyf1LH2+FcaTyjR8SWfhGCp3+JOvWQ+o5oqf78IcfFZ5ui0byQf
Fe7s1fomxG3XqAV1/SR+fvscVwwKwa2zzDv8ncbH/Vu61w4LYWeUtcH2J423
ByP8VpL7bk25toXkL5JftynZ+eIs1NqOhjz9Tfpv6hPpiZNY0i8OtcUMkfWV
a6RWy7EIF888ajxMznvGsCFBicXXzBje9380HvHVpPRoFoMNdffyR2kILnpv
f6rO4vkiOuOaCAP95Ifia7VZOM6a+yd5DIMhY2P9p3osdJZ4/9kxliH3e01p
PUMW83NUM81FGXzq0K/gGbN4IZ39cfo4BtsLnFNem7E4+n5R5SBxp+/vo5Mt
WIj8XeJYLcZAb0/xWNNVLCb9+R13YTyDl0WFoi62LL6PFG06OIFB19lNj3c5
sCirra7ZLM4gRC8qIGATC/GGhF79iQyiDm/X89jKIllG96qEBIMfsy/prnZn
8d90aYVW4sc6u4+oe7MYWBKidleSQb+BSeK3XSw+212uY6UYFAwOLbwSxCLu
3fi5XtIMVpSoPt4WxqLzd4XOkkkMdlfFbRSLYDF9t1ntlMkM7v0QKmRFs3h4
+SbVSXyhVEZb6xCLU4XBsiUy5HnztptneSysDB8VcFMY6HpseK8oYJEV3ffN
Q5aB6H+Wj6JSWBzko3GRHIOqo7Jcw1EW23+OBEjJMxjIne6pkc7i6WjwpRbi
wu/2nt7ZZP5H2lKuT2Vw31b7RnYui13mGUzcNAY1Ky4GPjvL4vjyZqeNCgyq
53iWfb7IAnt/GM9WZND8Ner+8GUWc3aqlw8RdzQXpIrdYHHW5ua/50oMxE8s
cRG9zULu35fmTGUGW/MljQaLWISISvr6qZD5OB9Z0VzK4s9hl1zT6Qw2r2o/
XfyQ/N5LUouTVmVgoXN5t/ApC9PQM3JNxNutjWodK1mI8dXWXqIYrNbxbpJ/
xUL+WptBBM3gqXLF9YoaFv775lRYMwxmZUYHBNexCNQyEVecQcYb2TRP9h0L
+3zHn+3Eh0qfTjnfyCIn9z57YybJl97/9Aw+sHi1pbg+Ro2Bz6V1Z299Iutp
5L1co86gwuMwp9dJ6qNqZ5DyLAbxK85PPNnFwuFE7qMO4pGgNTpivSyk1wQ9
vq7BYItLp6xbP4nPNYWQKE0GpaKJ9YU/WFxf+rbWWouMp/XjiMhvFn0zej7I
z2YQfSh9u/lfsh/GmdktxKmj2ZsiRlhMpNSkLmozcNrhW1knwmGh/IPZIXNI
/ti1H/UZy+GsSuEvUx0GMu+cVf6Icpj92TRsgi4D/70VXofEOOR+OpFXTWw6
VuSQ5AQOUXMnxJ+Yy4CndyNKKM5BO+eRgpseAymNADdpCfK8XMpZex6Z/2CW
MU+SjNdN2w0Q5ysmyI5KcXCRMP51dz6DF99sfwZN4lDaeMzugD5Zn8Vwz4fJ
HBxfh7qsXMBg9m3/CTZTOJQpyqhMNiDPF/vY3JDlkJGSm1xHnBctKJ8mz0Gs
yftahiGDhTFbYsOmchhyyE7cvpBB8QuTpNppHB5PipqqacSAltvVoa3Iwf29
+YavxEsOyuVGK3H4ZaVpfW0RA2WDxeXVymQ92Z79oYsZeKU+daWmc0htM1pr
bMzA/nlCqLcqB7WWetcR4tYZOrJXKA4HJ0drPDRhIO1iaTZAc4gp9MqNW8Lg
16w14/VncPCrKn+90pRBbFBGoP9MDjzl90WSSxl8qAhMOKfGwUnu3cZXxBPu
9K9vUuegMPjnImfG4JqaVstkDQ7SZaE314H0syxRfTNNDt+1D4XIL2Mw+eGm
Db5aHDbcdumuI16f3GGfOptDT+5CpWPmDA4X2Mwr0uYg3rtyZONyBtffTf3T
OIdD0+bKdMUVZH+ZGzeHdTj0+fX3NhAXG+/3VZrLYYf/j6HjFgxKPt6ctUCP
Q7DXxDInS5I/0rHd1vNI/NW8TBStGOxc++fxlvkcNIwQWE88U1m2yF+fg8/g
iy1pKxmslbhWG7mAg2bEsnEbrMn+65+exjPg0H661l1uFQM/t5MCzpCDtXxh
ZA3xlABLs7SF5PuGqrbsagYTg9UWnDDioLXQ7L2NDQMblUuBJxZxSJC0nSGx
hoGgC6NpizmIBMXMKCd2DtHtSDHm8Pbz+MbYtQz25Z3XSTLhsKtkqj1sGdyY
UPcuegmH48MtMcPEL3/c/xFsyuHngeO+d+wYcO1eh9yXcjDqCZoSYs+APVPA
2ptxiDyXHay3jsEu1lvVFBwyW+3YLuL9NRsNNJaRfD9RtCNvPYPpp7TeS5lz
2M5JD7s6kH62J1Sxn3jBhggb5Q0MAuyeDtQu59BoZrjpDbHgDRd4fQWH5OBd
M4WOpF/lLTrOWnCQ+M/+vNVGBu6xkwN3WnIYO3dat4gTg9DkDSPmVhzs+790
3SWeEbzYWmklB7vgf+eCN5Hz5kyDYw+x2vOYmXM2k/5/3Ey3zJrDyMfTmz8R
l371qRWu4hDuk2aX4Uz693FzG5fVHKo/JIxb78Kgdu6ZHE0bDgap58IktjDY
NnZT3TdimSz1cw+IN25U+XZ7Dcm3Vt20vVvJ+tOPDkau5VCiOLBcz5Xs7yG3
XjNbDtMenbzaTuyxQbpJxI4DX9+zMWMbg5zfUyrKiDvjA8vtt5P8WtR0M9Ke
xONyX9AENwaSnS/OG63jYOUt01hC/HrivAvfiPdBZHywOzk/JK2Kz63nEJH6
tU/Dg8Gx5uVtLg4c1qSMTX9PvE9v1WyZDRz0DALGcZ4MFsQGsA+IW1e56q3w
YvAlqFglyJFD7+5R5d/E44o1X1MbObRQkeX5OxicjMopqiROTB5j6OpN6nnr
uPoQJw42VcXusj4kv3LUdVU3cVj3/O36Jz7/P3+ePHhEXLUwSmzvTgaaJ7NO
eG/msCK9aa+2L4N0buNdSWcO9+yYy43Ek9O5WQXEMrygPOEucv7Fv2u1ceGg
smx4K/wYXL1662cX8Xi77v/6iaNkc9wStpD1u/gonfZn0BY/Zu7MrSR+H3OU
HQJIPbwydikmLtYraR4XSMZ/crJ/nSuHHJ92z0LixKi9A5+JixMsr3oGkfp1
H+O+fxuHT44TS6cGk/PNxddKZjuJz96N7BPiVx3vT58ivuixWT10NwMNU7/I
+W4c0rxM9quHMFDcM7eujPhkjlr6a2KvPLXrNu4c0iWWRBwMZSDbZ6HQQOwf
XMDMD2PwuThW3M2D5GdkTlILcXjp/cQu4j+5pncFexhoz3mbHeTJ4aNRwSWT
vaTflR1e/Ys4zF3B8wuxSW/RkQgvDutnnWlNC2fg3S8eMUK81yFi1op95L40
oCMWs4ND9MnHuv3EsqovDUW8OdQnn/ubFUHytSxOJpr4577V7KpI0p88vxwf
Jhbk1H8eJI78GlO714dDhdRu8dP7GewpfH7/O3HIuRW9a6MYGGWa7fDbyWHZ
/N3pQ8Td86yftRP3Lp8lfTaa+NHqLhdf0u/XHbC0j2EwHHnqZS3xngsFlsPE
+dEZYVa7OIz6V0ufO0D6wc8Dn4uINU5PzrQ/yCB4UaqGrh+pdyal/y9xZZO4
QTaxTPq+SWdjGYRVSctP8ucwNad/wPYQA9WAimeRxCczVE7+IZbP3ODURSxV
oyp3Oo5BXNOzh44BHCpdVW1t4hkc8Zov9ZA42txs/U/iF8s5I51ADua25+ns
BGLnVqujxI+N9t+05DH4J1TBP+K4xNYpfcQr6zTVPIJIf708bHQskUEuur8/
I27u6tMwSyL5oGVeODeYA+P2obmDOE9vzM7DxOtkB1yFfAaTtv6U/0l85+3K
i4bJJN+N2+447ib1u0O8tJFY/zXf6TZxwyaHjFgBg9MfcgenhZB6Y+zMtYXk
flTTcDSU+IkEfaOaeLixbtFr4grLtp4wluSDskmrXiiHvJaHA9M5ct6l5qby
iU+WNj14SHzc+eS6DmKl/I3O3ikknifuUQjj8GDV+jLpw2R+Zw7+PU5cOuN7
z3ViSsKv+xvxu8ObOjceYfDw2o9vVns4nGs5nz9MPKM1aVI28R0tUZNTqeT8
cEi3/E58zy/pqMVRhtxbEzKs9nK4LthW/IW4IffK5AziSVbnLgnSyP3s/c68
HuL/AS0E8ew=
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJwtWHk8VV0UVUkoTZQi9xxDlOYilfqsJtKEUmmURHMhJAol3ngvKpQpKSka
pdKcRmmgWSVKg1ISjSS+87z3/nm/9bvv3bvP2muvvfc1XrJuhldrNTU1oZWa
muLb5HLpmfq1HPaXX+rYK0GK+uwnSyN8Oayp/Huodo8M+2/vC2zvzyHNYNAr
sxA5BmN6TWwgh44DclJqJvN4sKSkuPtGDmqKj6aAqLNjjRJDOIi6P7//O11A
gnbUU8NQDtd+9lkQ3SMaTZ4pTUnhHCyGaB7utSgah802JRhEcFDAeZ7RONVW
d19CJId5S23LnYyiMd/UyVRXzIHdbebbKAGaGgYGvJSD4jIv52GYPVfSlufA
UMLa/nJk89/8NkVzWB5bvcnuiBQmxy6W1MZyUNx+qa4Et/YkX/DaycFGMnbx
+wAR+oi8aEk8h2GKj04U1vavbuu4m8MNetxv+dRI7GhSX5eXxGHx+2KTl5VR
iOoVstA8lcOzfT5jtJ+IMGChwaPtaap4XcVYMCfrwb90DvqKgKPE2LeiZt6y
DA7x42WrKwPF6H41y6cok8ObYL2jDqPE+OaVqDc8i0Pibvb5KYLZyI2Tkg5z
YE+PrWb3L2vbrNN8lIPiONa3RXgd8drb4wSHkbkFgZcuifDUvcj16kkORooA
TokgHxf83Pg0h/zCvRNPHxRBt0T+KyyPgyJdmSki3H967EjpOQ6Mra4Ru0RY
rSFRG3FRdZ4YEYrsz3+LvczhduClPQZRIryM/xBWlc8h+TojZKsIVoYHj429
zkFb8YdQEd6bJW5JuKnSQ6AI9Tauvz8XcChi6crwF6Gpy6qudndU+V0vgs9x
n8cx9zic/v7vcdA6EYzm/PjvTRGHGXlc5OfVIqyM3zpz8EMOO3qoz+64VoQY
lwzd0MeqeNn1/OtvwwufcmBq1NjC8GjZ1eRuzzkcSGIBst/Pzri23P0lB9e3
GUnXGfYO9f6Q+YoDu9uAHIaz6iz0a8o5OCtuyOIxmLW10apCxR/DZgHVCRvf
cXg0bUlnN6YPz/1lVRc+cPAdw04cLIL1hYJfTR9V+gkRwc2010W7zyo9hong
/sjeLqyaA8v230PbROi/KDf0Yg2Hc44dWveLFGHa93ubGmpV95OKMMOrYdTw
Hyo+BBE6Dko95/NL9fxoEYqDDP8d+sPhFyufq3EiSIwetqlo4BD52SWPS2T8
HyPFPf5xYHcXdWf5dQ1z95zerNLbPhG0UqoubW1FlP9neqh6rf/uVBuizMcR
EdZ9tX1c2ZYo480RIXDkoZgemkTJ/zkROrc/bjBJmyCEyfUN09uwqNT1gR2I
Mt5rTD+HryTv60igSJ9LgQhhSxYnFHUm2MDkM6hYhL/+N5Y2dCXYz+T1jOn5
SrK1hlk3gqbHQZ/MX4iwOeLHpqn6RFmvb0QwLBhfuL4nATv9yNyPrD7beNbs
NiTK/Fez/NyJrr5kRBBxhQmc1cvzvLY3KwhR+sk/EbavatrY1kQVTxsxXPkT
2hZmBAGKA2mJofXMdaODOcEudrsrncVI0et1y7sPUeq1pxh6fUf+3GZJEH2V
GZaJGNu7lqqn9yf4wuiO7CeG29ehvy8OJFCU355hYlxsXHGvZDBBb40tceNt
xdDNyBbXDSUgigSNE0O2kVq2tybKenEUo41tTY6JDcE69vjC6WKUlo42GzmS
KOt/lhg54v5h022J0n/ni9Ezvfz6kjEq/j3EcCwM+BVgR2C9iClqhRg33nbo
Jh5LoJBfgo8Ytd3yjXePJ5ikMJgNYhwuPmx0aCLBE0b3kDAxioo+auU5EPRU
FESkGKc5eeUNR6L0d6kYxwwPn3k4hYCdRrY6Roy1IQtCyqYRTCz59qMwSYw1
U48N++RE0Hio9uG0Q2JMbch9U+fCzvMt8rZrrhgmLpui/s4k0Hk9IIZeFqMw
vKtpm9kEE5jAQm6L0ZdG5Gm5EYx8emNN7kMxFg8uceg0j+BkSN3x4lIx2lOD
h7oLCDI33up77oMY7ved3PQXkRa/vFUjxhwh9GXPxQT/bXQ7eKpBjNt9sxYY
LiH4Om/cfx/VJQh+97jUcClBrefdhXc6StAvrHmBoTfBlCp1qy4GEiSN6lvW
czmBWUJzTGhvCaJeOHnoryQICs7oP36wBDsPrqvUXU1Q8Skup4OtBNM3RPh2
WkuQWpN5c4q9BM37t6lp+xAoym2uswTx3Kq4Nn4EXlmLXWfMlWDTkgFDGtcT
KOzGyFMC74grj78HKPWG1RKQfj22VG0gaM5hB/aXYFqKuc3rjQRS4vl1XiiL
91zp78chBKHys6u0RBLYtbK8XrCZwHLU9jvN0RJ02NmYfD6M5dvnvnhGogRn
RoyNOLKFoIqF67tfgiML3m5IjSB4ndwl4+JRCcbo3wsRIglYuM+nn5VgQP/K
6M0iovSHqxJM6djz1CoJgb2ioAsl+Plm0hc3GcGswZaHdjyQIDls/vCJPIE4
ct6j0c8lmBBotXNwNOMrOd30bDn7vc5pDcNYVX1/kMBqcr6gvkOpR/0aCZZ/
sR5QvZNg9/n4mE6/JRgXWFfxOJ6gm3xy1TY1Kbj+j4+f30WQ/d+c+SfaS7FQ
/0zC3kSCVf1+JSzUkyJPM3BXVDJBWWstKTGQIjax6uTKVNLi/62MpRg1rLpq
WhpBH0bYZwsp7NrN+m9wusqfBkmRZvjnaJf9BMaKhmojRYdJ2WPqMgg+Vww3
uGInRfeR4z4/yCSoTh3d39VRCi+/6LzjhwiOlrgHOs2Qotx56QEhm8Bj6KzB
WW5SFHaIPbXqCIHp5JCIYwulqDv/7oPDMYK6sUXes5ZKkT9zgK3pCYJWLGDt
VVLMzrY5+S+HwAm6HuP9pIjfXOT0LFflN8FS2K663OX4aYJlE1as89kqxcvG
4npRHqs3B7/6ThIpPu+/q+l+jmDz0dNLwqKluJi/0c76AoHjwGbjzXFShO5J
TdW+RMDk8HBRkhQWwWoW5ZdZPXy+MtI0XQq/MM/nOfkE6pXyPtUHpbhRLD0d
eY2ApVfX+ZgUhpEjLs+5QWD+LiL13ikpPmQN+NHnlrI+ms5L8dPRcnZ9gcoP
86Vw9Kp+X1Coys8tKaobrfYn3CW439PlheF9KYo7XYr1uk9a5ofEx1JIUyYc
G1pMsHLad+HRCykGH4z41/RAydeTN1L0GG69ufARwR9Gh+FHKRJmdh0U94S0
9L+Sr1Lc1nuk6/6MQND41n3SLykcEgb27/Oc8Xlsp5fmP5afNi+Dvr0g+Hvn
6+1rbWSwj+EbzpQSZFzM1z+gLcPd8IYToWUEUfMeXXjbWYa2lk/2THjN9Nlq
2ja+uwy+dUXXtSqUfutrJENv12Tj+28JakZMdKgzlWFpWdXp2PcE7e17B2zt
K8NEm1WRrpVKP5w8SIZJRnf57p9Yf014tUNkJUP18vPFz6oIvpOH68pHsusd
P0zf9YXVz4+Xz1rZyRDN/dF0+8rq3/jfr4AJMmTdTm7u/o3AMHVR3ymOMpxx
Dx32pJagPm3ZyarpMsTMsM/Y/p1gmw47sasMzjYps5x+EsQ91lpuMk+GB7cs
J7b/TTCWGd4rdxlM38X53/xD4NzYY/0zLxnzi23vwhtY/Vn2iHu8UoaNmslx
oxoJ3AqHXh/iI8OX5HDx93/K+r4QIMOvkicXs5sJspi9LwmW4c4IknRCjaLJ
6/c7jzAZZvceWC9vRTH/xOUvqdtk6D96ef2y1hQfVzJBSGQYkmaUPK4NRTyz
o8MC418n9U0vdQpvsefCBTtliHs5ovAXw0dWlPlqJ8qg9nf07OK2FFfm07G1
qTJ0rP8TeUiDImuri2PKfhm+N52bu7UdRcEuZiBZMlx+WPxgnibFtUf9vHoe
k0GzRPR1qBbFsieVK7NzZZB3HnBcW5si+l0deXhWhhe9dPQrGL682WjEsksy
1I32Nz3bnirnw2syfHQ++iS6A8Xw0RdndL8tQ+RzjYHeOhQDxvf6XHFPhso/
Bf1Hd6TwcJ1hQR/J0Gu93cMunShY+Q+aWiLD1aO5XCXDha75B81eybD3lF/X
C52psp9UyOBgfe1ITBcKizTJcY9KGVLCar4t7UrBurFm/y8ybJWhdIQuxbbU
e1lF32Tw+Nm0roMebek3d37KcLPZ73A5wwkxnYJPN7D4d7yLzelGcT+r6Mns
ZhlWj0uikd0pFk0paDdGXY5d48vc5uhT5XyrJQeCfozq24OieAITrI4c/Vaa
3Wpg+O8on/uaunIcmJr7705Piq0Vt3ad15dD99+nsmQDJf9GveTwb9N+1RpD
1f2M5ajfviB9TC+KCQ3Vn2EuR5TUNFLHiGLweYtO7fvJMSZgv+4rhi++1TNy
HCxHW5np9MMcRebHSQObbeTQO/HOKoRQTGIC/T5OjrXB/QocKYWvIZsYXOTw
6WOr2cNYyd81Dzlcsmf/fM9wy7y2To609CvRJ02och/bJMf9heefhZtSMLf8
dCaKnadUfG+aGUXpsy3r7eVyPCha6WvQm8L/VLe/d6LlcN2dfu0Dw4p+WbtD
Dp1pvtdzzClMX9aHVu1m/JzQ9w+1oHioVtZakiZHzn9PHzr2ocr+e1COGuPq
13p9WbyHZS8/HpejblRyajnDtT8mz9XIk0OLM+2QZUlxl9nRuCtyDNfL7+vf
j4L9fLlaAYvP8NTvMf1pS/9ddk+Ovh/HBLYbQMHcSc/okRzpb3dnFDN80Pqe
7f0SOUIHtovaPZDiK1v/yl7JYZl2TX/JIIot5lejLN6y67c6zLccTLGRCUr8
kT3vM3GuY3i5yeqghmo5FmiP+n12CG3pd/gux6XSBOctQ6ly/vwjx+xHAQsm
DaMt80pKkxyXe3Q27GRFW/YZHXUeSbHp8icMM3u601mLR9tXy08kWVPsZfa0
viOPBtdUicdwis6fzhyL0OVxvWNoNwsbpverUZlzevDwfDlu1heG3+kZ3fYy
4vHbwcLxxAiq7McmPCxTvWoDRrJ6nelvpm/BY+c7m+mjRtGWfvitHw/T8mfu
TQxfnBFvLAzhsbVTmPlVW9rir+7DeYSf8k6PHM3ieWpVkzeKx5qiW48mjaEt
/m9ux0Ns8PJc+/8oLrDxI3g8Dzfd53PuMzx7T/aREnse+r/qs2LsKBxTws2v
TuahczkgdwZYvKwdWjrx+G65zV9vrBJnzeQx68yCz08YZuOrVfgcHtXpw3sm
jFPxtZCH5tdJTXPGM39k4+hzDx6v5hUm9phAW+YddW8eNWtqv5YwPLPtvu3n
VvBYtvZHw66Jqvpcw8PPW+uymz1tmY+tfBn/pt62PRwo3Bn9Dv48zG3g84zh
Acbkx+ogHit+3V0YP4kq+8kmHhYhY9VnOVL8DmATYDiP9/seeupOVvlTBA9H
vVObHkxW+tEbEfu/tZFT9BSVHmU8+gy3ezl1KlX2O4GHqL2TsfY0iltTbCT5
23mo+YYb32JYsW58jefx9KNGacR0qpz/dvNYfaGbC5woZjBCDyTz2NVYHt7I
8JklYc/H7OXxc8uuVXnOVNnP9/Owqfbt4u+i5GtuJo9Nmal+g2ZQsO2v4FcW
j+QK5+gqhhXz9cOjPEJ3n1uWMZOCUxjKCR4eMTqN7q4Uba26DB+dy2PYrJCp
BrOUfG/L41FqZz33McNMLe2mn+ch91ttIsymcFmVuCH5Ig/tFy4HHeZQ5f6V
z6P1wO6f1dwonlnVjLhxnYdL7aeqswwr1ofTN3k4+/3L9JvL/Ggqe0Ih0+ed
cJN+85T9I/4+j6Y3++a9Zbid+66pcQ94bFwR75w0nyrn1yc8il+L1GcuYOdl
Bb/zOQ+rnZmB2gspLg3ebbmrlEfnFLPM/IWqfJQzvVUMiA9aRFvm21VveVzo
UTd+kDsFW6/S/nzg0f3anuPv3VV6/MRDNtSrNGmx6vzVPCqjfG65eFA8MGEG
V8v4OFrj224J01M7NrH94OGwvHPphSUq//vNIxhqGn6eKr3/5RGy80uN+VIK
xbi/qYnHtNjWiS8ZNmFye91KwCCrdeoxXqr8agiomOw+aII30/OT2V8GaQn4
ur7Z4I+3sl/ebS+gnNt0K3uZqj47CZDIW1m7L2d8d2UTYVcBU4vOe3ZdQaFo
J6e6CZhx5+nMGwwr0mXSU0DR8NC2QStpy/xa3EvAhMRXQZarGJ56QPsmEXDR
mR4tZbhshyhynqmAzmLfDGE1hWKc/mQuwHBs4yKsoWDVeTi4rwAN588vahm+
0Lar3uX+AoIXrOi5b63K7wcJqHyTZuC6jrbsL9HDBJwfdKFM3YddZ4+/PlxA
2or3Xqd8VH4xil0X2R/38qUt8/aaMQLezta61M2P4r3H3qe5doyfoDnRNxhO
msUMaJyArKXzzALWK59vN1FAvLftZjN/Cg0GbzoI2JNmmviI4Zb9dYqARO3R
IVsDKBg7B+qnCVjrd4QOCaRQjHvbnQU4b0qTljPM3DLAd6aA+vQxZ/kNbN44
c6xN5WwBb2yOHLYNoi3vAy3mCgj01Pf6FKTko2G+gJm991fEb1T6ZcMiAUGu
Ib0nBFPlPu4hIGzP9QG1DCvax96lAp7JM/+mhKj8c5mAn8FToidvYvMSG9De
rxDApz37+IthxesXYbWAgg7rNfdtVvXrdQL8Myd8nR7K9MvkYusnYOyQ9YkN
DK+50ZTz15/pZ3xvnQNhFC8ONyxYEyQgfMYWe5dw9n+p8K4uWMCGQ0fsGxme
vqSz29nNAprXFutkbqEt877nFgHm+zolu2ylLftLaYQAbRpb+5dhVo2ea6OY
PhKDOx6IYPoelp5rIxHQLa22zmkbq0cmz0cyxn+S4Z76bcr+aCQI6PDASHdf
JOuvrP1ZxwoodDdymhpFW97Hpe5g/Iyzm/mT4Zb3V3ECxjkdJKkidv5Rraap
7xZw3WZzrr2Y4vmYjW4HkwRESiq61DBsv/OXRnmKALWjjTYJEqrcf9IElFXV
mNtJVf6wTwBd8rrsg1TZb/gMVh9d69wFmXI+TTsoIO/ppCxrOQVVGF62gJBl
mpdK5ar57YiAkrmuSRE88yfFwnaM1Rt1HmcpUPw8+0K6OUfADW1yspjh83m8
hk8uy5f9u+rAaDYv+5slhJ0RkFF+ta5XDMU92+kPupxj/Fx6lX+VYcU+2/uC
gJ7Zc+Yvj6XKffCygPzJMy/rbKdgdJ3qli/gkvH36hyGp8yNGvH0qoDn2+dW
ztlBkdKFOcINAZnlB7MbGVasV3ML2Hn6tLHdu1Olz9usvtdI4ybG0Zb3V0fu
CsjhF5//FKesz05FAjo6ZB7m4ymsws+g9QMB/wNcihd8
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 503.}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {500, 1100}}, {{7.608374474380783, 
             8.294049640102028}, {500, 1100}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 503.}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"a) 2C2100 framework\"", {
              FontFamily -> "Helvetica", FontSize -> 16}, StripOnInput -> 
              False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.35, 0.9}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox["\"Gt C\"", TraditionalForm], None}, {None, None}}, 
          FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{600, 
               FormBox["600", TraditionalForm]}, {700, 
               FormBox["700", TraditionalForm]}, {800, 
               FormBox["800", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1100, 
               FormBox["1100", TraditionalForm]}}, {{600, 
               FormBox["600", TraditionalForm]}, {700, 
               FormBox["700", TraditionalForm]}, {800, 
               FormBox["800", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1100, 
               FormBox["1100", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {500, 1100}}, {{7.608374474380783, 
             8.294049640102028}, {500, 1100}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], 
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwl13k8Fe8XB/B7Z4ZkKaUo6s6EJKFFolT3Q6tSIdImJVSKoqiQNUvZS6hs
WVJo0aoiX21KiyVZokhRkUTKkvg9t9/9x+v9GnPnec45zzl3JtnuNbeneDxe
BJ/HE/1VLqy/3ecsgM6/T5uwL/uNXYCLACtPBZYe1fohTH+W5i51QIArL1fM
evOkSzgDqzui3QVw2TVsIHbbL2G5bU2Z/GEBUhytN93/3SMMumM48YynAF5i
+wPMPPqFcZJBVUre5P6g1ccMGweEg9sTB8/6CnDQ2TqnUWlImKPqFacYQO5P
6/gvN5KHm2JyaXGBApRelx2X48THJpU1KnIhAuQXmLzlsRQkxBUVw48LcPH5
+SlLTlNQyt5wTCxcgPii2WOGl1HIDv/h6hUpQK1+8FHTIgrKVwpqOqMF8Fef
+nvFbgrFyQn59jECKE3pnj/4kg/1YHuuJlaAnqCaO0Y/eXDWbBczPi3AmJf9
g0NDQ8KTg8zevLMCqMr+rPLVGRIGTfC0VksSIKo827Nv+JBQy1rx9YkUAZ5W
mTw+pDsk3GyVVf43VYCG4kCH+75DwrRdHRt3ZAgwXSZktWvxkFD+Qda+0kyy
34NN9879HBL+sD8zZk6WADd89IdEz1Ode3j52RwBcr/Z/fN7sSGZocskHsyh
f24MaHTYlitAol34P1fZlFo8uC6AeljKP4cZedROuiVA+p57/yxXE/bbJ0+A
k0kt//yq6sql+rtkP+tlSPZ52CN+jKdfIIA1x/1z6dJ7P6ILBdAcMf2f62Jb
fFqLBNhhqv7Ps5UuXDF8RPLp8383q57xi3sigPaHif/cp2fR0/ZUgFGb+P88
OGr3aOFzAf4zSfj3/H1X91VGvRSgapz0P0+06l74oVSAaoHHv3g7xvqvnVFB
4vG16q/IUWYZct6VAiwOUP7nokcffUuqBNBYvnFA5PmhDxLG1gqwZO3+PyKv
y3i406ZOAPmI4/0iO3g7tGS+E2Bn2t4+kbO6pih0NAhw9NXIXpEVLf0HZjcJ
kEwf/P0v/m7tcYc/CdA/5Um3yNvT37fmtwjAcyvsElk3/+nvwS8C0Fj0Q+T1
KhMKhG0CdLnuaBfZ5vVSoU87iY+zRqvImltueBd0CBCWvFWUAOGqny+9+jsF
KJEa+iCyuX3/vDndAvRN7qkXecT0pLv7fgswO2tGtchlh5T+XuwV4HHzzTKR
j02soJv6BTD01n4mcvMVtmzcXwGCv53/T2QLH5vtq4dI/R1lbos8PLH1vj+f
xeV3XdkitzYqfLpJs6hRNk8Wee93g8rPYix2hzVFiew+92LUOAkWNvx0X5Fl
pa4qLpdk4RG6wFlknaCk/e7SLNKsLTaIvCfnv4S0ESymnE43FNnHdmtcqSwL
oWWrmsh/Djy26x/N4tmaDAmR/0vQFVcdy6KDft9CEi48EtDtZaLAYszRmWUi
Kz1dVLJ/PIvUb2aFIqvT2ztOK7FwtM5QEVn1eWT7/YksrthlvSMFIazNE3vS
xLK4o/0zQeQTuwcPiymzCPkx00pki/BcySmqLALqlSRFHl5tcXiZGos61c4b
pICEiWMmFDuos6gqb1sn8pipc38d1WARXjGr44/o+0bXM6maLJYk+XuJvP77
rJ4CbRZ78h/9JQUmLBjY9bJmBgte93kXkeUyskO6ZrGYyl9XRQpOGHqY05DS
ZbH2doGGyLRBxzVlPRYHEhY7kQIU1tfPV507l0W93bC4HuJrIZo+qw1I/KQm
JJKCFI5PbXhku4BF74PQM7+IjUvcfrsJWbzumH2LFKjw8UfpsSGGLD692Z8n
cufYokmnF7GIGye94idxTlnOxItLWJhb2fY+Jy4t/TI8bxkL1dQtUsmDQ8Jb
grDPj41ZaNlPM1g2MCS8opRzu2IlC4uH/YfS+oaEzp6bPd+vYrHgWdDw771D
QieTKzpf17A4RJXtWPVnSGjSf+NDlxmLtnHmUaL4KZt5Bf1Zy+Kk/s+mOTQP
Jb6jVeh1LEqOiH+bMIyHqVxA3vD1LJI3eFocl+Jh64yaZSM3knzMl0+zleVB
ilOskNvMIu9lpH7UWB5sXq1Zr7CFRWPz1F2UEg9WEd5147eyOKN8RD2H4+HZ
1KzNSrYk3sll4wPUePD4VFmvZMeisKyi2VuTh2k+Q5uVHFhgy87/4mfxcHbe
1Pfjd5Lnyw6MfK7PQ9DbNdsUHFkMaK3SHCXkIebC3s9ye1hUBldr7VjCw+qD
AS4jnVm8cx717NlKHobSj/Ik97Fo8Zsxa445D7GC3adoV5LPqsnDstbz4GWr
NXNgP4vvCTMXqtjw4BDwX+VPNxZN3p8VUux5YKeN82s9yOJsaZkcu4eHVYlq
eo2HWXT/lfuc5ErWe7e+p9KT7D8094DgMA9Cvsajp0dY+MXTxQk+PEjHDCTc
82GxP8hQcnwQD7f1DQMu+bEo66oOPhHGw6XNHw8mBbDIaN2bKnGShwUKLz0j
AllksiEVHqd50NL8HHkkmIXP/ZC0L8k8rBwx/ubuY8S9C3PNzvPw68Pyb+tD
yXnKv5pxM4eHBJ9Nc5aEs7j+xEBvzHUeFrvPjpkRycJpyS81pzvk/2VuiStF
k+eNNBT+V0jmw4qiCOYkqY978eYyT3jY+U1Xqz2G9IfRXvMsXvBg5N7VVBnL
wmRFYFVMBQ8Czcqr9+JJvS9IkCqt4cFa4XbcuTMsjA8ufkg18JAn4R4flMBi
5UmqbXozD9FnWq87JrHY9urN/nVtPMzTaW9dlULOn8ZDM/dOEq9hlgtnpLKY
9WqvZ2QPDylKvZdHpZP+kvP067m/JH7Lsxd0ZZB+kH4z7hLNh/xco7byTBa7
cqv8rg3nw941Mu/qRRbfHhifvzqSjwZTu/MR2SyStA4xF8byUSIdfXP3JfK8
S60J8Up8dN371LLsCulHAhUX/0l8FK3VMlDJZbFCzzPAfgof67L1rv+9xkI5
dFi1oRYfsUdK11TfYLF5o/deBR0+DHYXjrp6i4VM2iSzFn0+6gbK+oLzWOhJ
5/heXshHW/oLCZu7LJ6sAL1vMR8FRYfJDGIxeGnje40VfHgnJyVJ3if9PfSR
QsMaPqZ48KY0FLLIXnXsZpglH64+22uvFbFY3/qtQGcTH4/Ljt8KfMiCOr1d
r3IrH0qB+oVWj1lInD6u7uzAR0uWVrd6MYuRXybF8/fw8ctYY13fU3J+noqH
R7jwYWzf3vy0hNTjH+0RYw/y0T4wOz3uBYvZCenKp7z4KBt5P9r+FQvGx798
hD8fxxMXX5lVRtYr1TnJP5iPGRcC/g6Ws/D1UVHqCONj3BzdIyWvSb8OtHxk
eYKPuLWjp596Q+Kp8kz1Vhwfz8a8lrOpZnHx86NFsol8LIvT1lSvJf3X7IS6
XSrJD1136Mdbsj4Xr7e5mXwsjQrvv13PYsL1V1v7cvh44duf6/2e1Ev56wfz
rvEhpvEmeXEj6adfK4e53+bDpav00fAmFpa54/Sy8/mYbJEw6dVHcj4Lm6ze
FvFh9771VnQzC89uVxe6mI8lersDLT6TfvedCVV7wcfyiS/C5b+ymBFbmr2o
nMRj572y6lYW9DWmbmMVuT6iZXX8NxafI8vYPXV8RAp6JdZ/ZzHsxga/g418
ZD1LGJL/Qc5HzH/iR5r5uG3jrfOmk8X2Textr1Y+osyXZpz4SebhzWOn3Tv4
MNVLtFzzi8zTc9I3Hbv5KC/WWCLVw6La+LLshj4+VD6dOvCkl9R/o9N1w0E+
6RdHP/n2s/DyW5SuSlM4LJFwat4AmfeKXCtfgsK3BN+Qn39ZcGbtobXSFH7X
vCnIHiL91SU8KnsUhef67NlcHof3m+sGD8pTWDdZuy+Mz+GYR9a7hUoUNOfv
7NtBcQjIeaLD4yjMTJmYYERziF7cPSxflcILmaQPExgOMX86trpOpXCqTr/k
N7Gw1XmJijYF3p/568rEOHABgvxXsyiM6OsNvCjOoS48/fkBPQo/B+9u8B/G
wV4l2WPsfAqFFWXlGyU4zM9OL70K8j5QE/x91nAOTrWLypcuoRAmq3VVUpLD
1kt0ULUxhbcTZBSaiC1dtnfbrqbQNf+Ayh0pDu533yp/NafwxfTym0hpDn67
ahUcrSgE1oprO8hw6Mwurm3eROFz71PN+SM4nP4rtnfzVgoT9gsrRo3kcE2j
/d1LOwoPLt8QfCZeav5Kc94uCuduuo7Ol+XQ+6Vr2zknCst0H16KGkX2l58Q
QLtSSPTp+GE3msOsX2LxW90p+IeiXl+OrH/itow8Dwrbfg3ulR7DoXRSba6U
D4UnQ645DcRGVtEPNwSQ9Z/8FH1tLAe+T0ZjajCFPUZnuUB5DgbPp478HEoh
ftH79VYKJH4fNSzVoijgUPe8qeM4hLZdytsaQ2Gao2pxP/Hbo1eFsfEUzpvc
+Pt8PIfIavUfTxIoyP39+j5BkYNyrFhZVwqFA7TUbiclDutp7ebxGRT6TmxO
XTCBg1ivn+78ixSCjqsEykzk0Pql9smGSxQWuKXLvSO+9U082TWXglioyuoc
AQf2QcXDoJsUxuR+mu3JcphQNTQv9g4FZ49pT405DjorjCXPFVDYp24gMW4S
h+Z+W71M8v5mlr3uVzOxdlBf8YXHFFJS/4u8rkzuN79WlPGMwivre9W+Khy8
Tk7TSHpJ9lMf8nKVKoc4iwHxE+UUyksdXRQncxjmdcPa7w0Fi9OpD1uI41/X
6+yppSCzyuXRNTUOGNkTYf6OxCdX4YD3FLL/yiMHZn+gcG1hVYWxOodzhZ++
jmqm0DGpvXHMVFIvzvHdrV9IPuYlJDUQjz86eLrwG4XhAhXpLA0S71y3hsgf
FOaMKZp6YBoH6QLLkk3dZH1KN3sWaHLQP9Zho9JLYeqXBe7DtDjsmRCe0fKH
QurH0xllxNoXXFIyhih4aw8LOq3N4WxUreVWmoZGykMF2+kcGvb3l8gPo+Fd
LL1JYwaJ90xa7JkkjTltrGkX8Y8upeEHR9DYLDmv585MDkMzHOq50TTu18eZ
+s3iEFYwEPBkLI11r902L9fhIFvyk9k5nkbhOFmlkbM57O1Ybyc2kcbZ6NSw
N8SJujqZSRwNsXc7c8/qcliiFFCho0qj3yLp2LY5HPYnGrU9mkLj0QjvsVP0
SL0K7X+bTaOxvc7I8hvxsVE1vW+1afQsm2Kcq0/6wV2/HptZZD9J9p1uczlU
HDHqadSlEfNJb/W8eaQeF3UPWM+lodJQbTNInJ3iKFM9n4b/SB+1BwYczN67
apmQtzDfmw6pgfM5XOFXbitYRMOptPj18gXkfL5efUVjGY0Qxbq7Ugs55H1J
VIxZQWO9XK3VK2LTC24X+lbRUPjdlxUl5PDV4qj1JjMaMoVuN8zBIVzOdeEd
Cxo/NY4eGGPI4cTPxjVy62lY3t7c9oZ4ze89sbs20WhPnTM+zohDiXyOfP4W
GhLflw9aLeKwy0z7jaQtjXcbS86MW0z6R/aRKkt7Gh1Ond9riL0MBGziTho7
nLv745dwOD494nrjbhquDsML1y/loFe1JJ7bS+Kv4mAwbhmJR8bt8s2uNNT0
sK+a+LWRqd0pNxq7fr+wjl3OYdRxd4uSQzSmeBoylsYcrp8KPf/Hk0ZzWsV2
uRXk+pPWLVN9aBiPuelVTvz36Ve/tf7kft2JayJXclh8rkbOI5CG+hxhnYkJ
h5mX+eMTQ2gES62ZJLmKw/DrF0/lh9LgufhOKib2ez8yoiaCRtUX8fqA1Rxm
VDiJd0bT5L1orBnWcOi72EOJn6IRP9DgO0DsQtcHK8TT+OUXvzvPlIOh2OLT
k8/S0Gt3GXXAjIOPw1qDGUk0vDKTXKebc6Dd1V31ztFIaDKNbCW+Pqne0CCd
1Pvpuzsy1nJ49dfvskEmjW1RMgM2Fhw0TdTz9bNo6Fh6mihacjhI1zjPukSj
Xqi7oZJ4e1VMifpVGmGue5Qj1nGonWf9Wuk6Dcm3ZheWWXEQuGiES92iQWnL
t/HWc/h1/MefnjwaZp1fW+8Q33JNUvlwj4ap699M1w0ctnVNlCi+T+rzua/y
tI0cLtxde+liEY3BD2kbPxJ37WIVjj2icXhXrOnZTRw2ndxkbF9Mo6wxmFm7
mUP643fLFpbQmB2T6S5pzUH1hLv8mJc0ZBNVM4uIL5/szGspJfXWpBV7aAuZ
D25jdW5V0Mgf17Voug2Hwr60EP83NOQfJl9tJubzNxasrKEROsu+/uxWDhui
OipH1dH4HLSv2GwbB7cahdeV70g8Lne4DLMl+Z7vdy+mkcaynbL1+cQZVm+i
zT7S8ABP3HU7h9HidzZItdDwjPnWoWbHYcGuF/IPvtBYFU2dqSO+0pH1wq2N
xvTZe5koew4Wm9q81b7TaFphM32xA5kPT9mZlT9ofN8/pNhLPPzamxbvnzQa
BF7F2TvI74OBU2lqv2kcC+Pr2uwk++/95Pi8l4ZJ6b3to3eRfrnLCE5/aJg/
r1r7mPhm+NQp0oM0Sud4ix1y5CAxeZTKBR6DxWfeHdLYTc73gd16hjSDAlPu
cj1xxJrzO6rFGMiGuGRE7OFwUWnabUcJBkqGA1vgRPJZs2XqH0kG4qZtbzuJ
ObXUohAZBh6bd41Pcyb92dgsQE6WwecPKYoWezlY6TxyOTuawb3p+e+ZfaQ+
gldHcWMZpOxqtr9JnJcqbEpVINeDl161d+HgndjkqKzI4OO64ffHupL8r/PW
Sp7AoOmQVeRj4ig3S63xLIMsu42qbvtJP9h/3ilqEoNYB4Mjqgc4HE3K7mRU
GSSnqJx5TfyDO5vvrsbgjOR8T383Do/FM8ub1Rk4u17iZrqT/rTor475NAam
XinHG4j184pb7mkx6EtdcCf8INm/vma78gwGH/Qu5RgcIvMs2mRF8CwG7tsV
7L8Sm0cs5X+dzWDt5PSm2MMk/oM6Y5frMThk4Tl5sQeZN3c0jqXPZeCT/Eir
k3h61vytgwYMqsMy/yR6knp6cTDRciGDXx4rI1d4kf6k17IoCwzCU6q//Cb2
VI1YN2DE4Kn0fom0I2TedrjUrFzC4EDm4u+rvTn0sFEv4pcxMJy5/0w/ca7z
R92Pxgy+L5osc96Hg+IzW4VpJgx8zf2WmvlyKLfiH9i3msHBi5eWDhDfDbi8
+ropgyHnMplMPzKf/lhm/TRnoJY2MsHMn8yD2w3HZloykOSiO/8QL6dm/Nhj
RerjjMeI8wFkPh2e0pixgcHYlM6uNUdJvuTTNtdvIvE/q5TcRzxtptdO2S0M
pMsnyqUFkvoLDhE32sqgxGbiGpMgkv+FZ+a62JL4GAnX/iJ+2O7DJNkxMFpz
gU0KJv0okXF86sDgkd6RG0tDOHwp7djzYyeDwGNNozqIPx0Vk5XfzYB3eUAv
7hiHxoXi6+Y6MXjf2qEmPM7h47Arhhv3MuBsG9+3ENu633lzyIWB+egum4hQ
DkrX6sac2s8gr2p5lm4Y+f106Cn/ihsDzx0S9+uJvVSmJz85yKBmg8XZgHAy
n7PuddQdZmDCmRppRHD4c1H+93dPBo8l2etlxAE7m28MHSH5Wvqp3T2Sg0ft
M+0RvgwyGh50TYji0JZq66DoT+Jz/13RA+L2SSu3qB5lMD7batPOaA5z9yqN
1wxiULRibaHMCQ4F23eenhnC4P6kn+3XiNUTH36YfZxB7YkNn61OcnD0v9et
G8Ygs+FC9gCx7vK6ytkRZD/qtMG5GDI/fmUdnRlFzrfT8VNLTnG4tOOKuOYJ
BtfCt977Shxo5WitGsNgxLLMnPBYDuLWG0MVYxn8DzMZxNU=
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwd13dcTu/7APBIJCoULc45VLRIW4X7apCMhjQQUUpUtKSlIQ3aaWhKIbQT
IiIrn0ihhYZSSkMKnaekftf31z+93q/T03POdV/rrLQ9udt+NhcXV8wsLq7/
/V71uO3exAkKVP7/Z5BM5DcdCXGj4Ixc3+thyZ/k6n+5Xgs8KfARnfTRyx8j
68FoJN6LguTNsps0FP6Qd7atDct8KEg9Zq3UcZklYfd1VqT5UdDrlpHTOzFB
UvjCmiUCKAiREApxXTtFpu0yp9ODKPg59PFeicI0KZDyTxEPocDvShV9vH+G
3OERyk0JpeBdl4nGjTwu2C9pLCkUQYHQQzPh5NWzgHeuuHj0BQpeavB9bDky
CyTy957niabgcH0VeJnNgvzon+7+sRSc9x9x2P+DC1YVP2odjafAgjPP9r0S
F9Rcznhon0jB27bxmv82TBOZcHumNRnvd1G8+Be3v+SEwjCPYSoFmyO1Z19w
5pCL03NOVqRTYDT3ght/4zgJW+53YHUWBQK1MV+dpcfJ2gPiHxKyMV5Vg7Nb
Zo8Ta8tb7/7lUPDjlvKS4DXjJPfYyL6j1yhwdj0iHXF4nCx7esu1Po+Cy+E/
OSRunPy0TxNWv0XBgggl7Z1540RK02dbegEFk2OC4yoV46SDZ4Z/poiCqBgf
df+34+RLyBeHw6UUdL7m3nWrf5w029TveXqbAm7H+Y/O8LAkStf348q7FBT6
XO4fkGSJUGvUeGAFBX913zkt1WPJ2+biwrYHFLjOO+O33ZYlznPPc214REFV
ilfA3yCW1G+t/Bn/mAIdUafZ97NY8jn5W+BANQXbqNXUukqWqErcKNZ5ToG7
gv/25c0s6ZVKC055SYFhlk2J5QhLJjT2sIOvKGjUah14NpdDphc7LSGvKYhz
1VE1Xc4hriWujXF1FDwP+jc+ocghKyx/b+6qp+Bf8I6KJzoccjz5rNn69xQU
fDE0KzLFEJleEwpopOBqopB/gw2HVD//GlTbTIGHs1LwBjyfjZFPM5Z+pKB5
0Q29SS8Osbj2zNHmMwULZ9sflA/iEIcAh2957Xi9w/lUdziH3BpbIzLSSYGi
zukb6jEcIm5+dkq1m4L5sharyEUOkTo1nOLTQ8EhTs+TJSkcYne1Y+DhNwpS
ZIXf1aRyiNrDV+PT/Zh/ZQLtHukcYiW5/BEZxOuiCyLkMzjE5sNWEjhMgZWz
8qnZaIWD5QGPRihYESq+YQH+/a5fdf6To/i8LtK7LPH/7baf1FL/TUFMz14R
NplDBBSzHriOU9AnMdM9gffT4C3x7yaHAqWpyUGXOA45v+I9d/ckBSayog6H
ojikt5huEP2H+fUiN6Idn29PoI2d0QwFMgMjqT/Pcsj8zIGqs7NoeJQgN5V7
hkMGvoj03OGmQdlkg/Ysbw45+UO7sY+HBkq9Q2yxO4d4ad6ME+WlwV4w7fJn
Jw5ZtKBEfBsfDW+UGWlHew5RCcvy8FpIQ1Kz++FHBznEueBJRq4ADc23Vb26
LDkk0PZQSv0iGhR/KP79aMIhfz1fHJlcQkOjruD8AkMOeZKhNldqKQ3Fv6L0
rXU55EzIb/+dIjRcqfnC/tDiEIlXerUeYjTY+V79c1SFQ2S47UZSJWho0tQS
r5XH83kdO1y1ggbT0owIMSkO+VjB87KbpkF+W+gbK8yvBKdpH55VNCjdXHrs
gjDGI7qUb40UDcYveVNLFmI8Wvb4GKym4Wy19466ORySKby8xkGGhuyg0DXd
UywRltX8c06OBpcl1xN+/mZJwpK2OTkKNAyG0/cmhlhi9UOZfbSOhsc7EiOn
e1jyaOpYXet6GtJX6X6cacN6u5YfMaaMz2P9V2e6kSWRPozcAjUaPvLvMZh8
wxJu7ZGyVRo0mOn6GP1+zpK2to1Smpp4f09cLw89ZElZhEKgkTYN5eucj38t
Z4lYTudz2000WMhWTLYWsMSw9tT4KYLPt3Q8s+4qS158Xbg0QoeGTZtdjZ9m
sGR0afXKVD0auvS3B5cnsqSgoWDFzS00/Hjzc9Q3Cuu7vn9+hQENy4ZTZERC
WHKXiup7YUjDd737ayy8WVIsUXDv/Q4aHJUsL693YckJP2u/jl00zJXiLVI/
whKXncUq341p6NVeqf/hIEt2TpZ3jZnS8CF0pmOzNUtWmfqH/TWjwbo/Sbl5
P0tqg5ZIclvgdUp0hfABlsgyIRXzrfD7LAvio2xYcmh9q4HgPhoS5cvN+rEf
LWDE3wtZ/+98ZG27HFhi89bYSuQgfh5iWeLEEsuYgM9ih2g4oCU3r/UkS/6T
vWUtYYv58PSjZLgnS3x7GtskjtAQsq/jsbIPS+QDZ6wlHPD7Tvjfe3mGJela
sh1ijpjfO2LFVc/ivPpkfFjkOOZrxKScaxhLEm+c7BNypuHJ2OlwjwssMTod
4iZ4gob6kQQ/zRiWzFw9x8XnSsO64OoTj+NZkkw5JXG701BlHeAyJ4kl/rZr
laY8aBAOXvqK9xJLHEKeNP46RYPWspBndWksoeVFgwdO03CMtdxrnsmSXZmr
Nb744PkJCM/Jwfkp/6CNbfSjwVeqIenuFZaQWXLPX52hYeXwMZHkXJYsTJzK
qAzE59lUUqR3jSX3NuiEFAbTcL5n54Wn11lSaP31dFYIDXl/D75feoMlm0Tq
/GJCaXC/0ZsBN1myVqEv9kw4DZ3zdHq33GLJDgGxO07n8f91rwuTyWfJn65t
Q1aRNFzzeKY2iM4I3K++JZqG3T2/z8Zh/ul7qSauj6Vh24Bto3gh/j3/3bkS
8TTwhgg5RqFVt1fHzLlIg1HvgFkf2nFIbe1wIg2WicVha4tYous11t2YTMPS
857/HUJTCo0llZcwPp3bq8+iD4jcS7mShuefs2o0EV3B63UpLIMGQbeaykvo
+LSB28ezaChs+W4fi9ZSGR7YlU3DoQeyor5oMs988/ocGmz7RLv2orMlOEWL
r9JwQ0PxniJ64bb8TWPXMH89832n8P6WaeoOvsvDfL1zgH2CtnePrSi5ifGa
v/fbGXSnyZHrMfk0BOhFjqigaxfG33EqpEFgv1b+V4zHWGXPN4NiGhi/o7nR
6GqztdqSpTTcVBc1V0Zb5Gvc/leG+VgUpvQe45l8pt64pZwGnkLNyy5obafH
i0vu0nC3m+fvHPTnqYaJ8Aoa9CImLl3C8xm8+obX5gEN5J7KCxn0o2ofnEE0
tNffeH4HzzPgclYWXxX2G9LURNBrfLnWdD6m4d4fG6UaPH/3QLuPZdU0pL4s
5NuJftFw4W7oMxrm/XKIe5vHEonQDY8tX9BQPT4yZIT+dmvtb5kaGrrLmrfW
YT79MZSzmHhFQ/S4arUh2tB+uPdVLQ0mlvP9n2P+DU+pXk15Q4OrZnjiJnSD
YFW8/VsarrcclL6D/elCpn6xcgMNBfOnt8qj198I+Tf9DvPVp1YwG/NZVF3t
TO0HGmZ/N08UQqeYLVFMaqKhQjy6LzQH61v4g5BNCw1FvV3iLNaDQco6BZmP
NHQMu24+iu7k/uz98xP2azfJw83ZLNkaFz15r42Gq7F1cfroN0GTpQEdWE/2
hp9Ksb545Jou63+hIW13rCGFdhurfz6/G/O/9PX387jvSO/JWPn2Kw0qhu4v
fmN9HukYuBvfSwN3ofG3g+gtGk6he/rw/usvmb/CfrttxZvoZd9pmB7kSCih
hx0rG1oGaBiYzNRJTcfrAt+MLg1h/bboveVCx1IcXqsfWD8am/87iv3g1n8Z
M8t+Yr9OD9Z8m4r1bBOg0jSK88goX1oVHbd767WEXzTcj+JNTMV+YqKRaW78
hwb6V8aF6RSWvKuR27KAxXrTkRG0Q0v2JHm+5NDw65z8mprk//WLcz1Bk5gv
VcMtcmgf3owkrSkaWgSDVsdgvxrKCIr49Q/z27daZBTnxXhr06P8GRrKttiW
mKFfb6DTS7kY4OPr+33nIuaz9LqJqFkM+HrkfxdBK2x0nDg6m4Gzj3sSfBJY
opS9IkOXm4HlM7m/P2F/fMOf1bV8Dn5esnXJRnTS5w2142jtVuPRjDiWcP3d
aNHAw0CYZuXFf9jiBSY4oTfnMrBlf+G/A+hf0w/2np3HQH95pnIV9t/H7xve
7eNlQNr5uxqF5m0N/6E8n4Hpc418AdG4/y5aW8LHx4DXxIXydpx3n5bzi3Sj
wytXqm9Cj230lLy/gIHM3JSEjEiW9JsUNcUuZCB5V/Obv9jvQz/OXefAz4Dg
t7K+feg+ziuFjQIMpH3/0Xv/PEuWe5D3iwUZ0GvZUCuKflpUTvWhb7YopJyO
YMmVO+5LHi5i4Mlec+PmcMxXtWeFcYsZ0L0u/0cVnRk48vPIEgZKj4tGXsR5
czYS2jYIMVC00VNoLJQlh/9Mn1wozMC+ZRFxJuiXM+4FneiDb6LnFJ/D+7/Y
E1+2lAGlgBI3frSzbjoTuoyBhbP4PznhPL+k12FlKYLx3lpGanG+gfdvLVlR
Bhoqr1yVQcsfl6qZREsU1POFB7Pk+s7yf6/F8PySJD17cf8X+ve9I0Ocgcpg
7249tCf3AicXCYyPVaZlTiDu9wnWOZuWM/BH0byJCx12QTKUfwUDo5csD9gE
4Lw5dVWoHW0+YDL6COctT6SkUQHFQG5Ed8JytHBpj6ofjfGRz9Xz88f9wlf+
lSHDgOsqmueTH0tcZbR5RVcyUHWxtXUD2jTf4k8v2qnK4EmKL/bznCext1cx
EKL++eE4zve3BypbgiQZkF/JqTdHX2+LqNslhZ8/MTlZjvvMu/rjbuLSDGwX
UiPC6D2pOc++oSM3jWV6nGYJ/y6352WrGbCN8hD94IXxKRXxDFjDwHfdsWJl
dNnm5veGMphvfpftE06xZGTl8BdhWQZcLK9qjeG+MaaVkdWJPq+8av1u9HxK
cuEtOQay3ioblHmwRF24WtZTnoGBs/1BS9DXJe6wmxQYOOBo1OHujvtQ/yav
eWsZEA91PPTBjSU5X1OvNaB7xlV4VdEB6+aFpa7D/F2e15zoyhK57GcitooM
bK4qffMH95+AmoX75dZjvaltGrRAqw/SJmPo6HgFlYoTLLHm02LvKzHQ9cT6
mhi6qi3FJFiZgb+lV3X9cL+z+HDKepsKAyt8mha0O2N9iS6SEFRl4LP7g1kE
nR6fE9WE1nEQk76C+xdPu2NpuhoDktfLvLjRk3uyzh9WZ6BYSYe1P86S5wIB
S9doMKDc6Jv36hhL7D7rmg+h5fQXRcijWYM1hqUbGEjSKUyNccTnybIfPaXJ
QPxtTtvoUdy/ejSMtLQY2PEicbc5WrKzxWYarTub/luB++BZwcDVT7UZ6HZb
37IcHXTHISd0IwM+ZQf6guxxP62v+bBtEwOJQhoKvbivRoh/frBgMwP3irdd
N0RbCX20fIsOCRW3KLJjicj4xK04wsDWuPUbhdD8j0+V7wYGOJ18e71xH/0l
d85TWIeBghLpwvbDLDG/Zz3YhPYJntighx7OURdL0WXgo9zfqRuHsB/92DZt
qYf19Dt9QgDdvq82TVSfgee3DBVP4b474jL6oxXtePtE1mfcn4+e+D15aQsD
AqvcDXTR7g7zH1ttxfN8c0/uJu7L6ZIO2qIGDKy3zt62CL1aA1xb0FL256+c
xn372PibA8nbsL4869Q6cd9e46czx9yQgZ3Sz3kM0L257+2EtjNwYv3TxcX7
cH4L3/F/h94fKLZPBH1MbYVx7A4GLDaKdQbuZYmMOvm8cycDYl/5r/RbsSR8
gfFKvl0McJnqZJuiudyCVtag3zdOtj2wZElz/9y2ECMGFDYHWkqhnR8uNQVj
jP/QokUxFtiPpjqDptBKHSNzOea4TwRfcqowYWBd1d6NtmiNYbfFnqYM1Iyd
L3mzB/fnvCx3xd0MzMu/b6eBzug2iR1Arx+iLXLMMN9THxy9ZsZAc9ZoOD/6
cBz/lM0eBkrSD09472aJirnfTnFz7G8V2bd6TPH9iqjtbUTvft+eboKOcnde
FWOB9d6+pe6hCUv4PpneMLBkoHGIm8iiZ69bNshlxYAw6IwmGWP/Gf0+cB99
aZd0z2y0ifu/PPe9DDyqaxJxNcL8fB20Sn4f9oMXXlHtu1gy3ZW77ys6NE5O
dwfa51iySfp+BtjBxZr3d+J+9CV8jpk1A3dndritQasm5nnxHWDguOP4QNIO
lizKlMqrRvfA2utz0Obda5O9DzJwWH5Brsd2ljwUHdNTtMF62Xezq9sQ99dn
l0t60S5ptO1udKSyfVv6IYyP1Tmpp9twfoW51pgeZmBO0ZCMMrqtaMRtni0D
z444n8wxwPnkuKjtIdp/9jLOErQvcM11t2NAqH7yachWlvglDo2sPoLn2SbX
8HsLvq/Ez077jC4XuEM7oBVVT86Js2dg9aq80hZ9lnRvt1HUd2DgxW3+MEP0
D48ZcQ463uB3RqUe7muUf03+Uexnxvbja9Hno2ap2TgyYKx8PCFbF98n6yvt
lhzD+WC6wE0Ivft1s9kLtO5ik4QwHXx/VQ/g8T7OwPy2zeMTgO8jae3eck4M
yMq3Z7igH5kwRW3o8EjFsC6C8YxwuxbjjPWbq1lmjpbQmToILhgvzWmmdjNL
5poMfhpFn9YIfL8Z7Wt9TCz3BJ5v2aOXtzdh/LqyxfecRI/c/yeDrlR82DHH
FfPtqMfprI04j4712t9BJ9X1qwijK8O3lti7MUALiapc0GbJV4v5VUvdcT64
THtyobu9LWNfoA33XZrw0sL978g+qVMe/7u/rifDmvh+4KB9RsoT89W+qfYI
+nK2ZNoHdNKiEyJtG1iSxrfR7+wpBt65Xrtuhj7hXsgoeeH5FHt6v9bA/PTP
vtCJrrBqjNJDT+Rsuh99mgG7gw+/VqqzpEujsEDbm4Hh5VJnVNFediL239Fl
B2fvLVRjiZn01e5kHwbqbHadXo323uMnre/LwMN3ky2XVVkSePn52lH0SMeM
rxi6JSrvb6Yf7kPrTA9dVMH69t0Ru92fAftv3eH86Ojslv5x9OrSG6Phyix5
tdCDN/cM5n9VUuZstGee/g+jAAbqX2VEnlFiiY6SR9okumFpSSVnPeaPnjT/
9UCc537Vaz3RQbuDt5oGMaBp97RrRJElp28Wbp1CH6zNbXFCz5xo4M8LZiDV
wEKwfx32y1zBDNOzDBxZWBtxBM3HxI/+RXP6fuh1rcX8SPMVuB7CwKBhORxE
L80eHTM+h/1af37gZwWMf7rE5Qm0d1zbtBV64bsVQrmhDHRGLX/SLI/vgzYr
jHeGYb/Uv/d0DzpQl5j9QXc6p839IIfvu8Y36KxwfB7n25Gm6OcaZ8q3RjBw
Y9+IaYMs7pvnuxePoF24tPcao7mKpjRSzjOQ0H72ylsZlnQMjKwmFxjglb0t
Z4RmbL90fEPrf7j3u24N1seSMZuYSAZIhP/MLnRF87ZbalEM2JQObX+7Guv3
KG9V2/98+lezEbp17570kGjcZ5775dZLY70xJrpyMfh9+q4lJugXfPTtBrTu
8cp/76TwvLb2DHvFMmDgYhBphr7W+XRseRz2l13TVk2SGJ+q9uqn6O9N/zlY
osXyLfc7xjPQlnax/OMqfB/ebvaYP4GBqWl9XWt01cpfw2VoAZUawc6VLPmY
sLfP8iLGR4N7hS06r/NG/hT6eGfXsV4Gn0eGW/tKIgMdb3eMO6IfuVxI2pKE
1wNlnw7RuJ9FH6r8jv5K7Opc0QIGeQXRybgPq3eJ/KFY8n/DiavF
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwd1nc8Vu0bAHA8RyGkKCLn3IVCpLJHnYsQDSkz9CorpcjMzIqMEIlCEikZ
FS0pepXeSgNphySpCBHK/l1+/vH5fp7jdq55P0ucvLa78nBxcSVzc3HN/F56
r+XWqCcNqv//6WFHS167RHvTUHHoTUTfRD97/klBwBw/GrRM1i32MxxkV4FZ
f2oADWW9Qtfeew2xTU7vGhcG0VBQ8+ihYMQIG3tbXzorhIYb69KnwfMvmykQ
+0bqMA0uYm77y9eMsVPOZ6ayI2jQXBOwy6lunC2VDc2UjKah8J1/4AeJSfYG
r2hBZgwNh1wF5Otlplh7ma0yonFoe6f4rDdTLN8sScmkBBqCqn+u/8JMs1Il
O+J5k2joE+mtb++eYkuSfvmEptAwGrw1nUd7il16pfrdQCoNkWaau48KTbKP
zubcdU2noUS+Z0+Q9zgrf9SVvMug4dzwe+mlR0ZZT6VeXtPTNHS8OF2jk/2H
PTFFeVVm0/Cjv0wy4i/Gtzhk57JcGnhffo12n/uHVd4p2ZyWRwPV/IV/POYP
62BT3DSZT4PAHe+cZPKXLdjbb7enkIb1s8tzeCr/sgvvFx9suEiD2Sml7S3q
o+wv1ywxjWIaFLYHesmcHGVltYNMsktpENc+kRTwfZRt450Wmr5Mg+itaatN
umNse3S72+5yGmpcY1t3J42xbxwbLO9fo+GYb0VpUtsYe8wg+P2SmxjfZzux
8pXjrOi7YyPhlTR4f7f3uB02zr54c6WspYqGgwbvBHOejrP7Z8VzaVXTkF4Z
z20pMcE2GN/5lXqPhpCXoSvbnSfYjxld4d21NKQlyo7qX55g1aSKrujX0VAu
xqwN/TPBfpXNisz8j4bKVueUNHaSHdW0/NPzmIbUt/2VcbGT7NQ8j/nsU+yf
da1WTs8m2YNXD746/pwGB8m0/KXzplhpm6F1nxtoSDgL259ZTrH7MqIsVr2k
wfaPb8zuzCn2+LZC0cOvaMhzSan78m6Kra37ElH/hoa2Li9ey0XTrF7i/ZwF
72nQsD9QVWE7zVoXPnB3/EiDvc77tumMadbtsFvXxVYaWmPihHRfTbPFg8vF
+z/RsMci+dFqPi6QtIqaUOuggd/eVeuuHBfI+vdmBnXSMMfM2vSuARc4n2/r
vtuF5ynaOax25AL1u49Hpr7TsBuOPZcM4QJbmcXVbA8NHl/MRw9lcIFjszEb
3ktDzq8xfZNyLlD65/rh6n4avPjGxRKfcsGW389DxwZocLaN7me/csF21zEd
jSEazoiZ7HKb4gJhldyqgyM0SDXfFJxayA2NgVKTl/7SMHduXvksFW6Il37J
6RijIdZsUC7CmBu+XmEaJSZpGHeeZ79vJzdYhjs6m01jPs917nzoyw38Z7pr
orgZWH35lnVqPDd0t4t33uAwMNm5OPFFLjd49em++sbLAE/oV/uwa9wQoH3p
uAQfA0JTL4xyH3GDyJyrkiYCDOgreLav/sgNqrG5vgGCDEi8zWrV6uOG/aX/
5hQIMyAu9ZDvOhcPhDvtymwQYSB/St34/HweGPd76DI2n4HL9zPSBGR54N8c
9VmyCxhwid3B/V2NB8Kih0I3izPgp/67dq0RD0g9Xl/vu4iBFaeNhISseECe
49x/WooBSfJ4pbULD8g+TemtkWZgjZJ5obgvD7yv5P2vg2HA1kTu5bZIHkjz
mAriXcoA96H2zlkpPGCZVC6wXJaBET1HZZ0cHuB/axm0YRnmw1vpcn8RD+Z9
8SM3eQaafig2rrjBA2IK2sNHFBlYL3lb+fe/eN78FipfiYHqJ1qeG5/xgG3f
mj/VKxlIXNeorPGWB6on9j5/t4qBTw4avVWfeUC0sCRucA0D+9RiZ7f28EBi
EFGco86AWHtHad4wD3B0+yuWajLw6/1oG/80D7S06MlqazNgHTPPczEfByri
lMLNdBnYeJRv7KMIBxblf6pzWsvA5723qM2LOGBa7z/izzIw5Sv83WsJBx5+
EVwQp4/xtlSIbVLgwMCC2iWn1zPw9aZq/KdVHChtLJW+ZMTA+Xs/ty7R4kBD
w3f+yg0MaJmWyNxex4Gb9LFvD00ZeLYw4neeIQeuSJXeermJgYCG1bJrN3LA
M8QhpG0LxndQVzjInAMHNl9R/bGVAd2Y4iO1NhzYPHb98+A2Bt6c9FW+7siB
pdtCY8ctGFBVLJzid+dAfcR8GY41A/tF9/WlHOSAAomu5LdlYFdH0cklQRzY
terdhrl2DOgNSkBhJAfmEMmXog4MeL8L5ONP4IDji6224v9gfe3zbkMaB2yS
D39ctAv7t0QRDLM48ESh2EHKiYH+LIdY4XwOBHe+apFyYeBD9aLcnEscWBE+
7SDlxsCTIVXZ3qscyNZRaFvkzsDCHy3Pp29xIPbD1t3i+xgIfcq34HUNB9KL
vL6J7sd+GTw6fuAhB8wORXvP9cR5KKhve/qUA9Pnj3AJHMT8urTY/GriQAbt
cZLjw0C4yHbZ1rccCHVSXj3hy0BW2oMF6a0ccIv+99VvfwYEq4VmiX/hALNC
IrL7EAOKR0Qa9nznwJYzyzTbgxiItB8xjOvF961q+fMqhAGOxfY1wYMcYLkV
6x6HMZBqnmbF/uGAYPpEzp1wBuRfuTq+H+fALS396LJIzPeh5gFTLgrKHL4c
yo1mgBfqz6ZRFKwVfx6SHIPP1/L3XuejQFnpW0rYUQYKlhmbVQhSsEl40Q2P
eAbq6/wUjolQMPzZ5KdtIsajrPpmvRgFOeH2GkZJDOjUr8v9IE6BYYBa+qoU
BvLahqu3SeHzQjdnSaUyEDXY4lJMU6C2sTaZOoHzqyB38+sSCtx/qiv3puP/
X7b6CSVHgUHAYMerDOzXnoXFfPIU0Eqvrt45xUBJsbTdoCIFO8VvZZ7LYqB4
RKPxvjIFlXwBp2JzGDg+6DMavIqC1Kzua/tyGRjY73VbSpUCHdXe7i15DBz5
VNtdqE4BO9tq3ap8rK+Xg6OkFgV5Un8vzzvPwJf5fe1BOhQImpSsHSxkoFd0
3eqHehQs1DboabrIQOeiaIHJdRS4+qRUXr3EgMPkDWapPgWfzF0uJJcwYJjZ
vlh9PQX1gqk3PMqwHnXuFzWMKBi809m14QoDq5pt/lm+gYJaC2VdmXIGxhNy
P8w2pcC6RPPaZAXuFx7rK+82UpAR1rD17XWcH6/JvVmbKdD1uDfv6k0Gtiy4
kbbFjIKPE42jRytxHuMDSge3UtBz/hmfYxXuV6eN6gnbKKiuDWLV7zLwMSjk
gpgFBYfP5uYK1DDg2vfIL82SguXBXMs/3cPz+1JEKGsKfMKd31fUMlAaxNO1
14aCh40JN2MeMKCtYrKzzpYCqRitezYPGZjQK/0gakdBV7HykPwjBq4lP6ix
tcf6mipajz5mIN4sze2EAwWmrr1fH9czEPb8yoq6nRT0Tqidz3zGwHCXu0vP
PxQ0zq1JdX2B8zjQ7sy/i4KEM4ZX1jRif25bHUzvpmBVUfTkVBMD3RVHhxSd
KJDQUA+rb2ZAeu56aRVnCjIt5qucfM3ATd+5eitcKHgi1izq+JaBvhKuDMaV
gg2ZK5Xk3zOg0VhyQNAN68P5GPjrA+bnKcsZRBsfTxq71cLAy7ac9MY9FDyL
GCs/3MbAkIbHziJ3CngVX581bMf+Pr4qM2gvBd6DDXX8HbgfeFyDDPdRIGeZ
s+TFFwauDMZq83tQ4NLWfTP1K94H2ivnPEYbaXrEWH5joCyWJpH7KTCRfpa0
8AcD6fw7itQOYD7c7zS+7cb3dVJ+2YE2Ee4yO/WTgeZe0/pETwpS6L98tn0M
BDs9vaPiRUHxk5zphb8Y2PpxU+ML9C3Hw6qvB3C+DAZU9h6k4Ph248K03wyw
KiHc02hzzTNWW4exv9TN9x33pqDpkaLRnD8M/HcjIVnahwKZzpN+//3F/Mrw
pl5AC6Yf6YwYYyCz1fXECl8KgvhyTupMMPA4WvFmKfpnTkTc70kGTLoqJBT9
KBh597q6ZJoBz6hN7wvQT7WY7HIuAoOnNRdI+mM/y60cPcZNYH5X1fdjaCU9
99E9PAQ4PUu9JtCr86RzDDgEUvsb7rsHYP6Fcj8vpgiczVk72YQ++VGrfgRN
mczR1DpEAde4nnUjLwHVPk5cNlp49G/MpVkEfrTKzZ5A/56q2hE1m8CIRHH9
jkAK7r1sbLLjI6B4YM7362i+d0f71vATWGMi5CcURMExEeWrAgIElpnej3JG
f1gsJN6B9klLW34LPajnJ3N7DoGkNn1/vmAKvptffp0iSGB4x3CYDTrm/ayV
bkIE7hpqW5xHf/v7WElPmEDrzlmz+tGLfdmX8+YSCJV8dEEzhIL7l6/T39AS
JQ5Gh9HnbvjMvytCoKRRZuA+eoP6g7Lj8wiciB6t5A2l4Ex4/y+X+QTEPdkS
Y3RUIrRoiRLQ02t/HYPePTzlJShGIOe+hfED9H/TPqWf0I2T+fzT6METnakV
C/B9ezyUtMMo2G+QTWIWEnii/7XKG31qfZutjTiBhxOf/y1CQ+CQjoIExtv8
yrQNvWKf7KMxNBXbvGv+YQoubL4++XQRgQ3CWSJGaNHJH205kgQqryU5B6D9
OHM8DkgR2Mz9r/MF9GiaQ/7axQSW5w1IvkbHJsjECEkTKBQ/mcYTjveN/3nR
VvQT36bmlWjeRBmzUprAvOYj33agxco71UIYAnktxm+i0Z7BKx6bEgIFjEdR
KfqgvC6fxBICTx04bq/Q20qsh7+i71R9XjiOzsv/N+XaUgJKXVn3SQQFL3be
eRshg/ml4w4aoS+0xD3fIktgQuXJ8r3opoZ93pJyBNrtjPsT0Zan8x90odMU
K56XoYW2eNdVLMP+1kl88gK9olzc7/ByAnP7pH/0oSvWvXlpKk/AcH7sGuFI
CvqX9LaLKRA4EHS1RAk9qJOT+wldG+lgtxHNT8sIFisSaDkubbgHrSFWq+C3
gkBgpINnNPqC1I0/a5UI2FM72nLRCt/XBsxWJtAzpHj6Njr/y+nCRnTXuQcF
zejDK2fHnl5J4IJAP08vWjHvgbiTCgHXeVZ3eKPw80eC9oqrCHzND26SRmv0
MOaD6Nbm+6bqaAcBnT+3VxPIGPKS34yuack0j1xDgDf7vLcT2rrZ38FElcB/
BS4Kgeh7EiJSc9UImCtmWCShs1Pzj71GFwbyDJ1D87a6l2erE/jcZy18Ez1m
mRu/WwPz2yF34Qm6TvjwguWaBGwDv9W0oJ0/Glj9RGd7j9n3o/9sWG5arkXA
cvR8BHc0xpPrOuCvTcDfdcEqUXR6p6aZjg6BrN9OB2TRMp/eOk6hF4cn66qj
o+aGL7uvi/tndfQZI3TEDbf8GD0CnoriGVboAw2Pmk3W4nnygvKu6DjJj1Vz
1uE8yIhY+6FtRd/bvEDP665eGo0WHxktPs4SeFlx5ngqWuie//XtQED4ilz+
WfRvxSN+YvoE3NOrdpShrW459LxGn5e5ersK3ZuvsSjTgMC/xaZ1j9B8fSZT
NusJfIiqCnmFbrWrz5IwxHmNX9bRju4/MND3Dt14Kn/0J3qP59DYKSMCfUNq
dX/RPm7892yNCQzUvF5PHcH8y7jpSmwg4LbTK3guepkmHHyLlu9s2yuJ3jvy
bGeGCYGDgUOicujlIfqUlSmB2+W+wSrorwUvnUU3Eoj/I3pWG20qdiO0CW3Y
EhG9fubv1aW3pmwisMTfTmELWl6D/bh5M4HtV9TTrNFH52xdIrCFQFR+zj1H
NJd3xJJH6Op24Wvu6DffZ7VEmxF484Db0xu9/+6CbbCVgGNl+0AQ+tTEp4gJ
9PZYIYhCD0ee8qg0x/pktu9IQGv2es/z20bgmO4lSEOHXsz1UdlOIKi7bPg0
OqfDPKUbveGIUvA59OHTVXsKLdApdg1F6N3HhSYcLQkY+LmOXEGrWoVslrQi
8LrS59dNdAurvuMVmlsrr6Yafcxn/9JkawICOyinOrTAh21FG2wIFBte/liP
5lm5sIfLFusrcUGpCb1t4Ef3bXTDol6rt2hzn8mLPjsInOkMs21FyzyNWLrC
DvdRzmb1L+ipzwV2X9C/xTf0fkcH7c0wz7bHfhKxiuxDN7YfpSwcCGib2A7+
RqulXwwQ2Ekg4baS/iha5IzsxVp0V1WR5xTaqkM5I/AfAlvkz4RwYii4KzG4
XsWRwN+41+586IUPzl79iv5HTUJTCJ24xrUlexcBqYBl3+ahv8UefLRtN9bn
6t2gheiWy/3es50ILIpI65dEb3AXabmLXvPezpRBBwPXLB9nAmRF3VEZdEj6
z/5lLrhfwwJLlqO3pPJkfUTzp0jfWIFWUfOijrsS4Bu0LFRBd2x0VDF0I5Co
cDdUFd3nOy35F51e91NXE/2JDn1UsofAVGDoFx10/DFudUd3AjFrJ33XoTc3
3HGev5fAQufJXn309qdvLB6inctmbzdCN2gc5g3ch/fLvoI8E7RhVmugogeB
2ETLD5vQ1ebkcgt6c2X2tBlaJM67MHk/gVXuIyLb0VL6E//AAbwfhtuErdCz
zHs+DKC/XX82ajMTv8PeRQWeBGootZd2M/n7nCdp6UUg2DX21E70HZW7bdRB
PD9hzZZd6Ly9X11voJfuP//Laebzo8ZXXb2xn+yNol3RX6z5axb4YP7nh/K6
z+Qn0CblIfrbw9JD+9DFLnay/r4ExlW1P+xHZ7jphsn6YT/dilD2Qp/Nk8lq
RrOW7d7e6CwBvZAofwJfnlRc9EV7+pSR1QEY/1nzBn+0eWhewif0Y1WRH4fQ
o/lrbycdwvmtNxoOQn/WLCvVDcT5y1o/FIIOcBZ3/YFO/7CjKwxtIXe+IyMI
++vFm6fh6EDLEDnDYAIBr2cVRqLDz9YpD6A7vdV8otFvj10cPxOC94ldkWoM
ejh4U8rGUAIKkZd+xKKT8t5+H0GHyoSlx6EfC/ryFYTh801uaglov4uGfWaH
cV8EFj1JROuv9s0aQ6/wjrJMmumf9XJCF8IJqMWqvk5GR2yPNN4WQcB6+u+m
4+hDl8qMJ9B0ifDtVPS0Z6PQxUgCK79fXnwCvaxgbs62KJyPy/MPpaMFSOrA
OPpcpvfjkzP9kRUsfCGaQPl37nmZ6AV5A4NbjxDcM3/NT83kP1vq7CjafWd8
3Gm0YJO0aEEM1qOk61YWut5ReuvmWLyPHup/yp7JjwFrMYx+cq9+KgdtsLWI
yT2K85BwdWEuuk4z7LpxHIGhYbL8LDomvmNeP5q+Y7IqD811eUIzM55ASJTF
mnPotu7+ZWwCgYhuD+V8NHFqb+tCyyXfWVIwMx/zBx2TEwmsneMx9zy68o1J
sfoxjI8vf2TGIXv4alrQWnpH3xai3+2wzI5OItB0ECouzMwbMTdQTCbQljgY
exH9UIC51oimTtRaFc3Uy7izNyAF93N5I30JXfjp/uDi4wTK1hp0zPhsTWvt
ffSNas28YvSiEht791QCor1NtiXo2o0W94TSCKyrXSVYiq5Z8ru3Ah3q6Vs1
4/dpO77ZnCCQvL/SuQx98VNRyQRaN0Sa7/JMPPIc3XPpBO5duHdxxtUHEk4a
ncTvA5vvGFxBVyTtuvMDbSGt9H7GwhsuliZlYL7klD2uov8Hsopegw==
               "]]}, {
              Hue[0.37820393249936934`, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[0.5, 0, 0.5]], 
              LineBox[CompressedData["
1:eJwdlnk8VN//x4cZzNyLRCEy9wolkbKE8PGqRFSWsiWlEm2KJNlCZE8opZCU
pIhoj0rao0KlFKV9s4UIWX7n+5t/5vF8nDtz3+f1fr9e56iu81vmLcrhcPaL
cDj/+55S1XJ1cJsQ+v//abMYLG5cH7NdiFOlJiH7zX5bnHqcH0QHChHr42W8
6U+PxSzYdaUHCcGJbG43utFn0bCuqV4+RIiPxlrueckDFnHX56lkhQkR4OER
vcD5n0UmFfdKOUIIPVP/TVL0qMWo17HR7CghokOefRqy4+CcenimUowQaq3W
xS8jRHBZTC4/M1aIycEy3RL7RLFSzV5NLkEIF6nHrQ6+XPDFlZRSkoSIqNr9
pkqOB+XiFYliKULIq2331QjkoTjld0B4qhAanVz1+ngeppy/2dSdLsTEZwVy
/jY8PDyec8M7Q4gpVS43N1zmQjPem206LETO0tFBboMotml3iNkcFcLE5npc
aKUIDo7y/K5lC3H1Qal03XgRxE0OWzU1V4hirHFee5EDnVVKLw7kCfFBO7Cy
JpYDD9eihpGTpJ7rvsfn7OAgf1OX+4YCIfpFDkrqbOZA/k6Rf12hEL4aXzQX
rObgt3fWhDlFQig/2RS9zJYDdZOQRdnnhEg3zrWyMOTgvdiY1FipEFPvqSt2
qHHwIeaDz9pyIfz6Pjmy8hy88qxzunNRiMS4jL3HaA72zQ99o3qF6J+zT1aT
x4Fc077+yGtCQObOc4mxMYtnr86XtFQIker2w6djaMzCVzyRY3xTiJ+008L0
f2MWdVaVv9OrhPhcZdFpyeGg+fC3yF/VQkSFpipUkP8zUD5zft49ov/pRrEh
ioOv6ll7Mh8IcbFpkPtWloNBI6e/bY+EOHbItUhvMgej47fIWtQKUbq5sqJ1
Kgf+Zf4v054KwV/R0lulx4GK65//PtYJkRwq+HDJgoPNh6OXz3ouREJ13omT
SzlIcyyQi3gpRIlMTpWfBwfV9z5H1bwSomWvdS/PlwOz5Ds5E98IQU9VGVgS
zoFLwd2Nns1CfKkKWG2QwoFPhM+3wndCKOX/WHM2l4OinmkKXa1CXFm57mZ2
GQdKztHDBp+EeFQilT58h+i/syMz5IsQ2SphRrcaOfA69f7XjW9E//BU7Zc/
ODC88ah/9AdZ/3m6W2+YAze1yTct2oToFZvZVzdOBJ4vrCwiO4S4XRgZfkJN
BNqrL0Xc7BJCOkkmLddIBEt7n4YPdQtRte3ez1uLRbDMe2junD9CLAz982XI
UwTSurkV/v1CmE3R9F8cKIL6YOWRswNCyN1z5hQliCBR5Tn305AQQfqzYmWO
ieDreaZecUSIvCm6niHlInCK9PSyGxPiUucUl9b7IhAc+3UrWoTBeLG2NPO3
Ivj1QeHLZS6DXXZz9qd2isCv0/TldzEGiu5lKg2ioggyOZumyGeQTeu6j8qL
QoYuU1pEMQjRpk/JzRCFflzujiBJBkvMfHKkLEThe+52Tr40A83SF+zPZaKI
XLcms06GQczSFdb5PqL4F3h//ZAsWZ91zd0kVBS3cwzF1Scy+Dc75PWZFFHs
jvkTvkSBwXMJGb+uPFEoP1pQs2MSg8obI/3UJVFocr26jiozsFxdYjL4QBTq
takdt1QYWET8bb/2RhRvrok9+MQw2Ha+6dqidlEc2DIaIjaFwWVf0SuFo6Jw
SimnpqkzyLMqtGqU4ULw2inEeiqDkp3vxRumcHFswuSHPpoMmgP0q7MMuJgw
3aRvrxb5/65n3npWXByQbeGd1Gbwtmcq94grF26den9vzmTwn+eG27Ububg5
vOlp0ywGynpJTU9DuJArKE7o0WNw0dj9cG4SF8khrBZtyMDB46njf9lccE27
LkwxYvCC6vYtKeaipcVM3cSEwZN5D+3bK7m4kKAdaWfKoOn8O59/tVxMOtl6
b505g3kH3fSbm7mwqdnZv9OCQUZ2EPa1cXH/s+TEhHkMHsjNXTvuHxfdE6tV
jy5g0F+sp7Ge4uFc/TmVswsZzI4cagibxENd3Q/BNWsGoV6RvgPTeLgi3Pf9
vg2D7+1WpbcNeTivfO7q88UMRsqWymsu4GFbmEfY+6UMxH56L1Jx5GHrkvP6
P+0Z3NTVrdNfw8OSoUsfexwZmLnv85rrT/LWMTzu33LCdkN3xffwUBMlq8Z1
YVCVWbwh8AAP09mYawI3BsYaHre8TvGwZlaT9Th3Bgql+onXr/BAs0rP5TzI
OrPDZvVjHjyf2bsprGbg3Cd/x7yFB9f9Ec2T1jBgH/cnWnXx8Hh6kYfyOgaG
CWbnNomKIfTLyxbl9Qwiljs7Z00Uw4zIMQ9lHwY1KjeSnmqKIXvu9PeTNjI4
vdSgfdBUDHFv7dcqbGYgVWayW8FeDBln/L7L+TLo/XNwJ7NODHa7YraP28ag
5QijKLlTDGOn9nIofwZrFEb2N8WL4bBwyyFuAIMgg4AnUVliCF+nM3t4BwPH
4x/8RErE4BNz+2XvTgabM21KXavEwMxQ3PNrFwMT8R/mexrEsPTYVKMPIWT/
LSGW4Z9JvRUtf1+GEX+OvLe27hODhYjWvUe7Gby5XsV+FBeHZMZwTmUkg7nf
+zsXKYrjqvG8mJI9ZD5O7B0XMV0cJR6fd+XGMOAufSUXNVcc5gpPw/bHMnCD
UYXdYnHoaH9P3R1P2GDB958rxbFYetLlLYkMDtwxznP0FUffx0XtbskM4uOl
xePCxZETuXLOwhQyH96zHeP3icMyyCBjVioD9euNT51zyPNSV8SV04l+yo+a
uovFYWBbvZ93kEEDr6RlZaU4NrYb6nRkMLDPz7PPqBHH/KCeTy8PMyg00CrP
fiMOofbLssojDDb+3JUQ8EMcqxSuZp7IYiBd/GbdpL/iuMYPOhKXw+BscMDz
NDEJpGf9urg5l8FhpUlb38hJYK5+x6+leaRfTWtre1UlYCHh/N+skwyGH9XG
f9CVQJ7yQOn4Uwx0v0n+l2cuAclFxeY9BWSe3gUn6S+WgLzJ/LaGQoZ4KUKQ
7SYB74DUa2VnGay8bur62lsCrQ7rT+8vZvAjbPK4nwESqJFMv7ylhIELJ722
PlICPZVfvlmfZ2B7tEYjdZ8EqpfrmKqVk/zQirusflQCLsVGF0cuMHh/t1Xm
QIEEDu+us399iQGiZj55XS4B0y1V48uuMHDf+T2k/6YEmofrB+OvkXoq4oo6
H0ug7dQTvmcFg7uFu9tvN0rgZnWIheENBnuSNZ5s/SiBiOO5udQtBmt1r7zo
a5fAtFDOtNYqBruzLZJXDEggINLrzYVqBqO5p4OPcvm4X590JfYug0fF+cwV
aT6UY42rXO+T86HkrkjZJD6+Fen80XzIQCtuc268Oh99Nloug4+Inr2vAsx1
+bDx7vj6qIbBs4xpQw0mfHQMG5zKfMJg+dc1JQst+agfdyvd+xk5TziB3KN2
fCQdszyvV0/6y7Xa/sSNj1lnYkZGG0je9Vzd9GEdH4pzDHfXvGDQNlK6qtGX
j8zlsrqHGkn+yKrcKA7i4/GEF3Ker0m+nRH0eEXxYZ05U1vzDfH/+azNo4l8
tHKbg3+/JXmXoZIadpAPq7SUoastDGatlHnYnMPHk6ih8oj3JJ9PawUzp/kQ
02o8bvmBwav7PuLW5/nY3lN3T/CJweJy6uWya3xoOOWoPvvMYPWPsnkLqvlY
//7XlfSvRH8zx1LFGj4WGm2JdfrOQDLYZteL53wsUnmSIv+Twe/P3gM7moke
GyvrX/9iQBX9TB76TNalv9kdaWewTiozaUM7H6nCAb5bJ9E79Oriyj98FD3O
GZP/Tc7XrWoa/cN8XPWM0G/sJvOia7tFUUyAtGVWBQd6Sd5sMNk+RUoAB6Nj
zvZ9DFzDTyVMmChAw0OthfRf0u/nbSJdkwVQ+3Io8MEAg6w3atoX1AUkL/Z+
iRoifu1Wdl6tLUAIP+fQ3GGSN6z34159AdpzohJ6RxiIn3V7GWAqQH9T483i
MQYF24S3m+cLUGvMZJdzWLjqX2ycaSuAi8bMwX0iLE6XdXr4OgqgbbZxcIMo
i8GExJwMNwFm56nkzOeyWCmr9rbQU4AnUrkfJ/NYZAxZuZ/2EeBQs3FNP+EH
tQFr0rYKwPln5lIvxuK3jbKuT6AA0oMDsWfFWXiUlUtohgnQO1qxIlqChU/t
Ga1XewSoel7f4M5nceFPyGv/BAH4TfGdegIWvI6zSwb2C7BPRqeMolg0H3n6
0PeQAG8nSyl8Ihyftz/2WbYAPWaBatdpFqmd56tVTgrww6G0MVWSxVl52avu
ZwSIfSM+00eKRcLxq8djSwX4PvBI20yaxYDu40u5lwSYvMPi+fhxLB6fOjrz
dIUAd0ovCb8T9pYsssy5LcCJywGyN2RYhCeV6Ox5IIC14d2StPEsatRSGOcn
AhyL7Pq9XpbFiN8We8XnAkQno8VYjoWs6ZnumtcCrO0b9ZOcwGIe9cVk6zsB
HowFnGslzEvnrhz7ROo/+CX9wkQWN6T14/f8EMB3fjYbK8/iSubPrt4OAY4s
eO/mqsAixq79vkuvAAj+M3e6IgunOEeTogEBZmxWfzhEOONlTEjniACnl1wa
qZ3EInr8wstqXApyIz/f5yixmGNVrmTLpxDIpbdsVWZxNGne67VSFAYPeJw0
n8wiouGZwhZZCnFJarFSKizUzmTwfRQomO88JfeO8JGP+o3LJlMQS1azOydk
sdro8pnZqhQmlH8xCGNYHG9KLhGdSmFb6IxHNizRsy1T6oEWBX9NU76iKov7
3Ok9YboUHItd+r4Sro3l7FU3oJB38nbqxSksNESd2qqMKTxbVfk6So2FY3Sd
vZ05hdMtCU+XqrP48yCzqW4ehYa6zduVNFgoRyw5Z2lFwenoybvfCK/cTHWf
s6UgtXT7vQtTWXLObX3Ct6cwo1whMGIaixN9B7zcllO48N+r5zaaLHqWKjdn
u1LoUu34MGE6C2kHbdcXKyn0zM3JbSV8/F/Av1FPCgKhmmSRFosiP4024XoK
cyZUTw+cwULpMc9GfyOpT/nyX3Nt0t/+1UZmvhSm/zAPktAh9UbLNJn4Uzj5
+WhBPeHbK+KWaAdSiJgpEXd0Jouu8KrLcsEUtPLuKqzTZVF91c7gdxhZfyi5
UmsWC1Urjx/VkeR9bYxDD+GYHYXdCTEUPKi5f6/PZnFNP8FvYTyFWy2ZDnv0
WPRf+B31N4mCy4udHov0Wex8t83y+H4KVYoyyuMMWCz7qNNkdoBCdvrJfY2E
uwv+rqg/RPr5bmN5tiEL5/lzvq84SmHIKTdx7RwWL9b35bzJoXBPOmLiNCMW
YhWfM+3zKHg1z3duJ1xr6/SnMp/CX+tpNuXGLNpfWDwTFpL95Hp37zQh+SFv
NS+4iELGFyO7uXNZWE09v/FRCQW11teeo4QvFvl6jiunED0ucuodUxb6qspY
eolC1GWfk7Fm5H3yXI3oqxS21j18sciczPcKJc3SCgoJSs0V9H8s7mqLeTXc
pOAm98b1GeHcLQpdbbcpKPQPFqVZkH6XO38duUvmoWrnpWVgsXFX0GqJhxR6
tfYGTpjHIlLncwC/hoLzVY+2RsJ3Ha7PFXlKoePknEmZ84nfw2qfdtdR4Hcu
GnVdwMLf7+SCt88pvHOvyVK0ZBGmEnGxopHMz9buzibCJYUuBgebKGzY9mfo
yEIWImvftXg1UwjwEVS5WbHYcW/3Xe33RH81H1NFa/L8ltWjHR8oTDWC/2vC
HiLr8gs/U9jU/2TV4UUsCrQ1H634RmFa2Dyesw0LKlw6mveTwtf8515ytiyi
bGd/K2yjYDPhcngD4eoTvgLLTvJ7QxX71MUszsiv4rz5TUFzjkXzkiVkXgrW
tPr0Uoin7VWppUTfxMyKjj4KnO1Rqg8Ju9BfC7YOUHj1Q7wlxo74z+33pW9D
FHxvTHSEPckbW41/biMUjgy3Rg0TDp19OfneGIW+PUe2XHMgeZqdGTJdlIZR
x/bxgY4sJikmv47n0QgvzA3QXcZi/Z+J11rFaeR8ckj9Rdh+OE5ntoBGxNGK
DQXLWaTo9duE0zTWpkkNezqxaIpfyFRL0dB3Dlui5MxCNE21amwcjRYLwxUv
Ca+eLWpqLEtjX4DvlP0uLNqcZ5zaPIEG9dbxjLUr0e9QCZ0pT0N0pnwbx42F
7gef6JuKNBy7f/66TthVnTvpvRINh4CRwoAVLIx7hlsHJtNQq42aMsOd6MPm
fpdiaIx+zHf/TPjPBg5UVGmEbDrskL2SxV6u9OBUNRr1H+J5yz1YbF4UPWWG
Bg2DjMIgahULdfyqnT6Nhswx9cJqwtPMC3hq02k4f9I5HLyahaL/12b5GTRu
KPYs0PVkEburbI2YDg35u8fLvhL+8Lv1ROdMGsl63i3Za1jwxaaUPp9F43uc
/0PHtUTfP4MHy/WIHqVd2yXWsZDIvb022YCG9UaZlhuEXwgKNNbMoREKjniA
F4vXbec6dI1phGW0d01dT/w77fLDIRMaS9NFs5oJv1weUH3blIaugR8vzZtF
g+H2H3vMaXyy9dS19GEhsFSw/c+CRueOMaUBwhDm9/aBRqsw/GHxBqK/QKfn
zHwaiftEDD03skjcXLjM1ZLGkrpKL9lNLE4ZtaqKWNFYVvtq+X3CEgHhvqet
adTNiRAL3kzyOFPUwtqGhmXWu2CtLeS8km8o+GxL46YDW9pC2OW6WknYEqJn
wvaC/b4s3JXl1o6zo6E8b3g1trLwkz30NNeehrhD29tuwrsm7R6d7kj277Fp
Uv42FodvhY+VLSP6fcxTcvJjYcRXb9F3olGpe+M9z5/F0vcfj19wppG36av3
ZcKjfjwXHVeyHm9V5r2drGdeF5xyo/HZRXBrYgDRx3zcA3l3ok+wa+p9wn03
eg/FrqRRtN5dfecO4sf/5uz97UHjsI/pbvVA0k+V+GzX1TSO56llvSAsuiD4
W4UnjSzKLCx6J4tjUbv9lNbS2BZQws4OIufz73YErSPzGZ6X1EpYZ/HY+mde
NAZPml9P2UXyZ0H91yneND4alZwzDSb3h5bVT3f40AjyUvD+Sdj0TopG9QYa
yzVOfTocwqIwW22A2kQj2ClMwzKU6O9Va+e4mUbk8Xs63YTTrkzQz9hC4/W+
wn/Hwki9MwJLX/jS6AtdnGobTu5neQtqxm2jkZL3+kc/4a2Jd1IX+dF4JLmD
n7+bzLulPD/Cn0ZgoWWnXQSLrLW2ZmXbacybvSNriPDRPgfD1gAyPws0pE5H
slj4SXSYCqQRtWyPlWMUiy+q7FH9nTR2nS2xGiZ8SdZh4oogGmPb6qUK9xC9
b6qGhO2iMTV/XI5jNLnfqEo+zQomfmfTu/8Rbti1bdLVEDIfWaHSp2NYZIal
+dSH0piY191jv5fFrLKTN76FEf2zlY8PEl6Wf0ttKJyGZIOKXH4sC3P97/lU
BI0aTxX7JXHEP8/4CxUjiT7zLZb3EZasHJRWi6Ix3/4MkxvPYrtjqGDGHhr3
jHZfskpgcRCGZrOiacQmfhrfRbjgaVWpXgwNTumwUWYi8Y9M1ka9vTTe/+qa
apFE7ht6utt1Y2mw6z68//Y/Lmmsmx5H/CHb47k/mQUTW5esGk/j2qtFRYb7
SN7G2Z6TTyD+3cC/1UL4xe41xoJEGk0rnLJjUkie7FQwGiS8hHWYr7WfhVz7
2vPfkmjcp5iL9YR3yTBnGpJJv6y+dASlkv33K2lW7KNR0HqnZ3Ia8Wed9Jy8
FKLPrXfVdwj/mXKiKWY/jUnFris3ppN+ivjIe6fSqLZdXiV1gNzXzFv7FqTR
uKXa23GBcH5W+G42ncabAyu+ux4k+vNzLg4RLmw9UzxMuLkhMff5AbIfTa7p
iQxyP6yLsjxzkPh7a9KhhYdIPh8rKg7LoHEhZU3lT8KrHjJvlxyiIW1deC7l
MMnbse+Nyodp/B8J8DIn
               "]]}, {
              Hue[0.6142719099991583, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               RGBColor[1, 0.5, 0]], 
              LineBox[CompressedData["
1:eJwtmHk4VV0Uxi/XFfdcU5SQe07xZW5GJZ1XSWkwRNKoklKkCClCiZAMDZS5
QUIqlVJISikNhGZTmhVKmadvq/7y/J593LP32u9611pnzPptS5xEORxOpAiH
M/R3bFHN9W43IZZPTUoSSP9gu7OebwhyF+Jp3xZp2UVt7JmHp70pTyE8BQ/W
tPr/ZifCojXGWwiXPTEVsTs62GfrX1WM3CVEjTNn216xLjbkholqvK8QkiXf
enj53WwcP+SFir8Q6yYvnaid0csOOCYNJAQKsdVuz4VrjX3seXW/OOUgIcYa
3pXq8utnc3nyp+OChXjft1jTFAPsSjVLNflQsp+0vMzv+QOshLiy8qFwISJu
uEh2MwOsStbyMN4hIZy2Hy2YMa+fzTr0w8MvipxnkeusC1J97NiLha9+xggR
VlnXQMn3sKUpiQVOR4W49FC5XfZQJ6t5wIl5FSvE17X9KXf92lk33Wae+Qkh
7k0LkOfH/GKPDIhty0sQYvVI+YSob7/YkNG+q8clk/1nTxj+pu03q7dauepw
qhBS/fKrzmt2sKuWZT7rPyVE7CxPkz0LO9nTm1tXbEoTYt40PZ9nyzrZkXcy
t5enC3Hu/STuMfdO9odTvIJBphCW9o0iTlWdrPr0XfMTzgvxotGGE7Gpk63j
DUoNXhDispmx6WmjTrYhqGHjuhwh0jbKXBW928m+cCi3vXNFiNuSwRLT9ney
EbN3vx5zjZzvE6d4tHEnK/8qoiMgT4jNES+sn5P1py8uZtfcFMKnxXiVR00n
6yoexplWSPa7coVUmG8nW26W/yOmSIjdH2TEkwm/jf0U0FQsRO0wJjdMvoud
qnLuokmJEB4jO67ere9kP6rH7427L4RmgkfwzhudbLehbee3B0IMli04ssSq
ix2QcxnOPhKizDXa3Myii91+aXt19BMhJl2T/ZBK9KK67Pesd+VCRKqREwd2
sVti99lMrBTi2M/WKeMTu9ho6zR5/2ohlK3fqPit62KLS94Hlr0QovvNlIWi
1V3szIN3Eke8FuJzhvQNpZYu1i7trrPDWxLvFdrb5uV1sRv9N35KrxUiXwZb
5DW62cw2DcXWeiGOLr5xJ39VN6u8dF/f1EYhuOWFBxZKd7PqXs1xuz4I8WjT
LmFNUjfreKauqeCTEMfdhgfdLutm9QsedAx8EaJwRmngd69u1l5tdCH7TYiC
Lzrzp4zsYR2qzNiAZiGM/bdVpfR3s7prrvoXtpL7+Z48U7e6m13864lfz08h
ZvtcdS9Z0cMuceqZYfBbCL+Ege/z+D2s9ITkm9s7yH0ntabfX9jDVvio9Gd0
CVF9/fHXy8d72DDVSm5jD9l/AdmAaw/78SJdMapfiE1tTwwMz/awtgEOjhaD
QjiY5dRUNvWwkklNt/aJ0Aj3HrHEv7KHbWpQ/JDLpbGlAzoTP/Sw21qMqj/z
aHw0zedrsb2s9/SM6FESNK7t96u4sryXlaUuKc/n06DlbMaGrellp4Qk7/AW
0PD6eGWmjFsv63r+duJpaRqOlIn0guO9bMD6tXHlsjQajSZ9u1fRy/Z63tvQ
M5zGczHrTpEHveztRH1x9RE07tQuz2++08vuCfrtt0iRxrq7VTpOSn2syoM5
ZTuUaPj9MYw+VpPr2HpChUbBo7l+Gp96WfVHUc23VGkI311tmOvQx77O491v
pGkk+8rEjd7Zxx52GdjFG0vDomWnJt+zj7U9lMPXUKcRV/ZWzuJgHyv50nbX
vHE0GN/C3veFfWySwujSjZo0qNyzu0q1+lkFrent+7VpZLu1J/6e1c8eHl4j
dkqXxi/3redGbepn7VsmdxaOpyG9f4OIfF4/W9i3+cmriTQEojoHRr7uZ+XT
skLbJtOQ58ttl3jezx7cxWhT+jSceSHn3dr7Wa5R6+WxhjT+4OgBtqZmpvr0
6eT3LC8edZIYYC+H6gZYGNG4/fmA3B21AVbpVH3JemMaJ285WcTNHWDNy7w6
vFgaxBwqKtgB9t57wYhQExpqshe/KboOsD9HFI85MYfGu5bztd4nB9jzFedV
M+aS+CqHRIVmDLDl5V8k8+bR//JngL0mjPh8z5zs3/vutblKg+xFlfPXKxfS
OKVZodGmPsi6+a7yrVtM44Pu980H2EF266KLU75a0nhrNelp/f5BdlHP1Xdt
1jQmtv86O/bYIDvW2i+k14aG22mRAt7hQbYscLga147GrosrTvx4NMhqMUF5
kvY0TnvZ6ptUD7JrJ76aJ7OCxq0CTu8XwhSjXCm/ikawQ9PnxTwOHJ5a2iuu
oTFUPeRlOVgW6f9WaS0NmReD0x8rcvBQK3OVynoaskPpbcghvlVdo7KB6Pfk
+sQicw50AgZXqWykodyjkWdvzUHCDK06JWeiL909X/bt5iDkjeU6xS00XFIi
SwVHOTh6bttneVcaOVYu8TsTObDYGeQu40b0bK94/dltDgbP7Ofwt9N4cfBk
ovNLDmKFLse4HiQeRZcrz1Rz4Ldeb1LfDhpD6trykYONQberf3nRuPh0EuPb
zwGtM2pv004aVyrPKHj2crA4aZxhwy4aGxUe6WWLi0DnZk1ntS+NIxn7rM1V
RcCKaJc82EOjdKFhmAkjAsHRvsT8APpfPRDB9WkmQdl7aZwJFWT5OIoge9X7
nclBNF4b77I/5yUCY8UnvpHBNAZXPow8FCgCPd3PUXsO0FjpoH71Y6IIFkor
5bqE0TgXEZDiflIE7e/mf7c/SGN8dkiJcawIEgNWGsw9RKNIZ99g9hkRmHpP
PToxisY9j4VZY3LI81LXxFViiH6GDCRDBFMXFEeKHaExVA7PFYvA+bu+XvNR
4heRIq+/1YpgtndbY3UsDSclEtFOEQh1qy/lH6dRr/xKu3isKFYrXo87GU/D
f4ZwipWSKPIkvI+HJNJYscGo3lJKFDHxTVe2JNP4Pvz5Sq6KKGZMaW5anEpj
if+S5qpJomCHLZ018RSNYjvJkQemiCJVpeuC3Bkarj6703TniEIwP8u4LY3G
Drn6sOXbRDFy+uxvz9JpdFAkAYJF4eQRlXcpg8aCXMtSxxBR1FttOBuZRUPj
zdL53WGiKBPE5Lpk03hVJR2wOFYUbfkfPs27SOPS+alavCRRFNvoGanl0Jgc
1Vd8+4oo7LIMr/RfJnol7rSgVBSxe8otX16l0epBNvBaFEYuRXKXrtHw7t9X
e6lZFG/7KroP5NEg7mll8VsU3848lnC4SSM6VCvGtFUUhcW7SA0i8R4SiCQX
/inJyfxbxO80TW+PUeBCYzdHo76IxszQJC1PIRceAY6vLxfTEK2uvpw7i4t7
FeHXgu/SqMjbzqgv5EIleFrRsns0+EXV5QkLuPiUqfdbs5SGZDjt2LKCi3Zz
bbvuByRfmk/8J7KFC3On5o8Pymjk3nU4ok+4uW/qmbjHNOY9zNohCOWiQuZW
jNNT4rfZ7XNnJ3ARnmR6cXIFjTzsayw9zsXEc0H9A89oDMyXU7LL4WKUgf6e
sioanUYKvJ4SLuJshk849pzGLCJf/SdcPFSoknd4SePQ6lO7XRq4mBc3Xlfz
NfGXRUMdkxjquW99fryhYSUyMdmEKwaz6EM912uIv1ducxgmLYbHgT05/nWk
/sxSjVLSFANP+3mKaQON2O+vJEp0xODeVl4i2Uj8X7C8tmm6GP6zTRzz9D25
/yFDtxPDhrqmazEfaRD3qTC1F8NcQ5dg2880VhetNXRdKYb5qo8PjfxK9Ljo
5C9lXzE0O+dXvGyisShMfbdSMFmX/mRx/Dupd5uLD97aJ4YoYZeEfQuNltk7
kszixZD5MHFw5A8alUt2Gd3JEMN1B/8pz38SP/OiA6vPiiF6iVna4V80xmat
NNYoFIOVYdJSy3YafXVn2d5nYnhWqj2X6qThUTTHOrVcDGofjnne7yL5Ljne
rrpBjPjF/g+BPeQ8a5Ic0SGGXRKJx2b00X/7vV4xfE8MDP3VT4MkS1E8l4eO
V88LswZpeDaVkQ6Ih0fT6IQcDoNIL3cVKYYHu//Gd0eIMJA3/z05/D8edGc6
d28SZVATWC6jZsrDpFTVxNlcBrXq4nuPzeHhsVTyu9FiDE4kXyrhLuDh2Ntp
ZR2Ex23/5pa8hQdO70y7Ch6DD+aV+ke28SDd3RWcIc6gf+JQh8TDr4Gby/cN
Y8Dqr7lpHsFDUWXFsxUSDJK1PNc4xvEg8epAy2RJBg7DnipZx/MQIat3ic9n
4L709c65l3h4M1pKsZFw5EXjK+q3eWib6al2g2IQZeOpHlfEwxerC8+jBAzS
SfWfUclD8Gvx8RulGGxt/OB/oJGHz10PdGdKM5jWdWdDZgMPo3ewlXIyDDLn
uIWo/ODhzoWrws+E//TfYuI4mesxvECW+TcPiWOe/t3saDkGpBn33yYvjqSA
1h8bhjMgpyEKE8e+g6iZJs/AyeCBupqGONa1D2wTKDBQGLLPqeK4P+hxvp6w
t6Gl14PF4mg78iHm8ggGJnseJY5fKA7X2QlM8EgGy3ziDnZZiOP4nDr7ZYrk
PFeOFFt7iAM+v2dojWKQakki7CUOnS3qpT2ESffucITw2UVX+x8pMX/7tWhx
yPd/rUtUZlDeafM+LUEcnlzKZasKg6ZZnIzFieLoPrzqlPFoBkpidtJ6l8UR
Eq4WLKXKYIP9PZUTpeIw9jojX0s4+KkLsWhx8A6qWZwXMljasVqub8IwKOR8
mOpLM1CRatCLTh0Gt906D8wZBnPsru+26BmG7ZpGEqPGMHgTpRCzbqkErLPs
2j8SJmI66JougdRTt6OujGUwcfgbj/H3JPB0df7LQDUG5xsPPVYrksDZmtAn
i9UZZBxw9hyWI4Fn5Vvclf9jYFU/Of3RKQnYnjh19xPhiP3XEheSdanF7iWX
xzHQvt+dYPVAAjo5ip7+GgxGHauWdG6UwOVZLyrNNRm41T6xUW2TQOuY5gYF
LQabElSq5EdKom1GYnI9YUadOn5bTxKSQjVBpjbz138sJGGgUKzlqcPgR/BD
22JnSZxVye001iV6zZ38Lm63JLS+GHsP02NAsnWtcogkTr0/kVZBuOXpm62K
8ZLwHz8s5MR4BqRarwrPkoR26l3F9RMYvM6RC32ZS9ZLBSu1JzI4su3ajUmF
5H3faKs2wv0dXg2JzySxij+j88YkBmWWmXtm1EniVk2c1d7J5P6GCvg7SdhV
ea2aP4VBT56BbcQvSRSNklWRmcqgO2jv5zouHwkxpyKeE9Yae1e7ToIPXq1z
ToI+A5svBffHy/HRY5scts6A6JXXY5qszkeJtP8IDUOGPLemcpQeH45vZy/9
TnjsnwLMR+c8DfOcaUQfZFrV1udDO9npp9d0BvHXApzSzPk4+sHQYsYMBkPu
b2TBh1r9S4cBwjtIu+Fuycc+mYBxd4wYvA3vd+rcwEdg7sZTwTMZDPqQBnM7
H1vLS6vmGzMwmFm4JHYdH6HKb29SsxjI3FByu72JD3v518ueEvY8PmHCbX8+
FDu6M6NZ5q8/evMhVeR1dQkYOMc0+7FefPzS3u+pYMJg29AAH8PH0uurvj0n
fC9q0k69k3w0nzJQipvNINpidbduFB8SLfMHls0h+72pO84ghY/aFWXxo0zJ
+9TjBqNv8dG69WfLK8L30zmjylP52OT2u+f4XAaHY65cSk/iw2OjZJG9GYOp
p64adt0h8VfbaDRqHoMx9G9Xu0I+xhli+0vCV7Oi245k8rG54/Hq2Pkk/4fa
nSI+NHxNxJaaM3henhBu+4qPj6crHeUXMBiaTp5e58NcIdfvGeG+3ghqGPn9
zfqqllELGZDuwTbjNR+aBuzbRYsYHC22bmuq4eMAZTmGv5gBqb5rs0r44LgH
jikl/Mt7f9W+l3y8+CJeE2TBYMgdalr5cC0YYQ1L5m9/9IKP4331gX2EXXQ6
4mqr+Gjfe9wlz4rc/9EU297ffBg2u8t5WhP/L9zidIf8v196sseEJQyG7PzN
Wz4SG62imghHouCCww8+/E/c3JRmw2DI/g5KUlgXLdXnYMtgLRkX5jbxMWWp
7yLlpQy+OpGGupmPGlZ/eTVh96g0mdWyFCI8XMdG2jEIP9KrGi5Kgf/G+ty8
ZeR8VNPKT2Q/ouNHfuPYMxgab1ukKVj//Np0g3DJCYcnIuR5K4/+dI/lzL/+
nejzUeBYnRUMluhev6o8nMLAu9Mr3hO+X1ROOiwKuzbHWiWsJPHsEHc4LqBQ
0XBAzGYVg8KI9TfSRlCYejTdm7+agX9GiuEILQqySerpxav/6WsMhaWNerE+
axjk2tZFblemUDCqbc4EB6J3MUWdLRMpjLybcukjYXdj/svThA9OdqpJWEvq
0/zgnGDy/s8h20ut1/3TB0uh5kKr+7D1JH9KHvZLz6Uwz1m2poDwpueft+gY
UNgNjriHIwP+77CZ5jMo+B793jpuA4Oz67pCjy+hsDhGNP4t4TwvUpDmU5gw
dZtYtBODp6GVdQ0LKTQucJhgupHBz/GKP5PsKbTsGFTuIhzUEzt9tR2FeqFf
adamf/liSSEsQkTfwZmB69BA40hhUXm+4/DNDGRXE8feRGHJoxc29wirP3uk
GbuSQrmBP89nC/H3Xs4ZA3cKpvG1PtouDOr7f67J9aBQaMVcqCG8dXpcYyZh
2VD3tEhXkt9D7YU3BRWTvjXYSvzBO6wpey8Fcatvb34SHmfDO314Nzn/qs1K
p92IHw99sAoh8XuXqmy7jQHpdj7GxlLIn1BQJ7ad+FP0Rt34SAqpmz865RIW
vd7yKYNw/gGzS07uxF+nU75vTlJ4byd5a4QHqd+TpxGLIfHxWRZ1j3BSsHHz
jzgKmRtWqHvtIPl9ycM5JptC7EajPeqexK+HPk9eoJCSqhZf5fnPX89QiOfP
9N3nxWDxi3MHnK9ScPPIZiZ5k/r7dY5i9XWiT7/U8HrCw0NftlPXKHSfMr5x
aCeDGJndBlm3KLwzzD5v5MOggDdcgb1PwdtR0ekrYXIb5UH5FGz+O9MYu4vE
w4B+GVJGwcfW9z/T3czfeb6SQkBKid5Pwo/h1Nf7mMLLiPTeJF8Gixpe1M58
TqF998KoBX4MhqbT0FoKh1JffukgrKZ37LpaDYUHgh0Sp/cwIOb+LIawZ7pp
i4U/eX94VtmtbxRMJu2I7yFs5mASn/OF6GfOf1JnAxj8GT+aKAQu2WtmHUj2
P7arfkEHhZ0Z2WZ9hLtTN11p+kVh0K1CKn0v6U9Na4cx7RTGnZZJtN5H9PVn
YBSAz8T87CX8Zz4VEUA2frf02SBSr277iEv1UxiR+rPNcv8/fcoIkJKgktJN
OKebFEiBAIJnqvKngxlUkfT3lRSgzEHVclEI0at4sq+MogABs1mbdsKdh+87
q44QYLblOTr5AIODZ0lDJidAieGeq2ahpB6YEUegBQgOa5RrJbyyquC9gqoA
nAt9hnFhRA8fNcjIIkBdU+s4Npz4TWt4Q4COAMz6hrpPhP98j9IQYMnwNofI
gww2vhk4dmycAHkv5mfqRzBIycp+5WAggO8miVs1hEOH2qEpArxabpsQdIj0
e15k4JwowCLGarZ2JPGvda5jHpgIcI9PX6kgzPWh1DVnCfDA7EOzdxQDUr38
e2cIkFZ/p210NIPvE/I1ZBaS+NyqLb5DuKKCLb63QAClrGUrnWOI/lx+anHM
BCheYFMkdZj5+33HVoBbY341XyY8ID137yxrAV4fXv552RHm7/eypQKk15/L
6iM81flLSsN6ch5NrtHJo6R+LV5gcn2ZAIVbw4/NPcZgytDA4SjA5UNr878S
fppZ/tzOVQDpeennD8WS9ZKc8W5k/X9bDIp2
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 0.8150000000000001}, PlotRange -> 
          NCache[{{
              Log[2015], 
              Log[4000]}, {0.8, 3.8}}, {{7.608374474380783, 
            8.294049640102028}, {0.8, 3.8}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 0.8150000000000001}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"b) 2C2100 framework\"", {
              FontFamily -> "Helvetica", FontSize -> 16}, StripOnInput -> 
              False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.35, 0.9}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox[
             "\"d\[Degree]C (relative to preindustrial)\"", TraditionalForm], 
             None}, {None, None}}, FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{0.85, 
               FormBox["0.85`", TraditionalForm]}, {1.5, 
               FormBox["1.5`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {2.5, 
               FormBox["2.5`", TraditionalForm]}, {3, 
               FormBox["3", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}}, {{0.85, 
               FormBox["0.85`", TraditionalForm]}, {1.5, 
               FormBox["1.5`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {2.5, 
               FormBox["2.5`", TraditionalForm]}, {3, 
               FormBox["3", TraditionalForm]}, {3.5, 
               FormBox["3.5`", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.8, 3.8}}, {{7.608374474380783, 
            8.294049640102028}, {0.8, 3.8}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}]}, {
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Year (log scale)\"", FontFamily -> "Helvetica", FontSize -> 16, 
             GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
         Text[
          Style["Year (log scale)", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0]]]], 
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Year (log scale)\"", FontFamily -> "Helvetica", FontSize -> 16, 
             GrayLevel[0], StripOnInput -> False], TextForm]], "InlineText"], 
         Text[
          Style["Year (log scale)", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0]]]]}}, AutoDelete -> False, 
      GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
    FormBox[
     TemplateBox[{
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"CC16\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["CC16", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"CC13\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["CC13", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"CCGL\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["CCGL", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"BEAM\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["BEAM", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"UVic ESCM\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["UVic ESCM", FontFamily -> "Helvetica", FontSize -> 16]]]}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #3, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.5, 0, 0.5]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.5, 0, 0.5]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #4, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[1, 0.5, 0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #5}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "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[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.5, 0, 0.5], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> 
                   RGBColor[0.33333333333333337`, 0., 0.33333333333333337`], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[0.5, 0, 0.5]"], 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.5, 0, 0.5]; 
                    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.5, 0, 0.5], Editable -> False, Selectable -> 
                False], ",", 
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[1, 0.5, 0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> 
                   RGBColor[0.6666666666666666, 0.33333333333333337`, 0.], 
                   FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "RGBColor[1, 0.5, 0]"], 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[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4, ",", #5}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "55"}]}], "]"}]& ), 
      Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )],
  FrameMargins->None,
  StripOnInput->False]], "Output",
 CellChangeTimes->{
  3.715195357072418*^9, 3.715195394217018*^9, {3.715195429504218*^9, 
   3.7151955009054184`*^9}, {3.7151955583914185`*^9, 3.715195613365818*^9}, 
   3.7151956516950183`*^9, 3.727148002012908*^9, 3.7271500527565117`*^9, 
   3.7271512452724075`*^9, 3.7275094999067907`*^9, 3.727509736798332*^9, {
   3.7275100759877253`*^9, 3.727510105149392*^9}, 3.7275102208840084`*^9, 
   3.7275102924080963`*^9, 3.7275103388717527`*^9, 
   3.7275103822512336`*^9},ExpressionUUID->"a7016d88-62a3-4cc8-80e8-\
02ec2c3effa6"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"\"\<2017EF000724-Fig5.tiff\>\"", ",", "FigureCom2Rev"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<2017EF000724-Fig5.eps\>\"", ",", "FigureCom2Rev"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<2017EF000724-SIFig3.tiff\>\"", ",", "FigureCom2RevSI"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.715195736606818*^9, 3.715195761457618*^9}, {
  3.7271500623047285`*^9, 3.727150063615131*^9}, {3.727509506040141*^9, 
  3.72750953103257*^9}, {3.7275097607917037`*^9, 
  3.72750982474336*^9}},ExpressionUUID->"8abcb550-7ac7-461e-aac6-\
621c0f1cf2f2"],

Cell[BoxData["\<\"2017EF000724-Fig5.tiff\"\>"], "Output",
 CellChangeTimes->{3.715195764094018*^9, 3.727148002590109*^9, 
  3.727150066079935*^9, 3.7275095409821377`*^9, 3.7275096015736017`*^9, 
  3.7275098329648304`*^9, 
  3.7275103895146484`*^9},ExpressionUUID->"de9cde3f-3ab1-48e1-b8c8-\
1b846402627d"],

Cell[BoxData["\<\"2017EF000724-Fig5.eps\"\>"], "Output",
 CellChangeTimes->{3.715195764094018*^9, 3.727148002590109*^9, 
  3.727150066079935*^9, 3.7275095409821377`*^9, 3.7275096015736017`*^9, 
  3.7275098329648304`*^9, 
  3.727510390448702*^9},ExpressionUUID->"705b980e-dad8-4eca-896b-\
8a91974957ad"],

Cell[BoxData["\<\"2017EF000724-SIFig3.tiff\"\>"], "Output",
 CellChangeTimes->{3.715195764094018*^9, 3.727148002590109*^9, 
  3.727150066079935*^9, 3.7275095409821377`*^9, 3.7275096015736017`*^9, 
  3.7275098329648304`*^9, 
  3.7275103907587194`*^9},ExpressionUUID->"1862fce8-5b9d-4821-8cfe-\
c893b8e4b0f6"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"SensCBACDRAtmos", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"atmosUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"atmosUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "15"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"450", ",", "1300"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year (log scale)\>\"", ",", "\"\<Gt C\>\"", ",", "None", ",", 
        "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"500", ",", "600", ",", "851", ",", "1000", ",", "1200"}], 
         "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<a)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.15", ",", "0.9"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SensCBACDRTemp", "=", 
   RowBox[{"ListLogLinearPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"tempUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
       RowBox[{"tempUVic", "[", 
        RowBox[{"[", 
         RowBox[{
          RowBox[{"2", ";;", "y"}], ",", 
          RowBox[{"{", 
           RowBox[{"1", ",", "15"}], "}"}]}], "]"}], "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", " ", "Dashed"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"Black", ",", "DotDashed"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Joined", "\[Rule]", "True"}], ",", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.5", ",", "3.5"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Frame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"True", ",", "True", ",", "False", ",", "False"}], "}"}]}], 
     ",", 
     RowBox[{"FrameStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Black", ",", "Black", ",", "Automatic", ",", "Black"}], 
       "}"}]}], ",", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Year (log scale)\>\"", ",", 
        "\"\<d\[Degree]C (relative to preindustrial)\>\"", ",", "None", ",", 
        "None"}], "}"}]}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", 
      RowBox[{"Directive", "[", 
       RowBox[{
        RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
        RowBox[{"FontSize", "\[Rule]", "lcsize"}], ",", "Black"}], "]"}]}], 
     ",", 
     RowBox[{"FrameTicks", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"2015", ",", "2500", ",", "3000", ",", "4000"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"0.85", ",", "2", ",", "3"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"Epilog", "\[Rule]", 
      RowBox[{"Text", "[", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<b)\>\"", ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
            RowBox[{"FontSize", "\[Rule]", "lcsize"}]}], "}"}]}], "]"}], ",", 
        RowBox[{"Offset", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}], ",", 
          RowBox[{"Scaled", "[", 
           RowBox[{"{", 
            RowBox[{"0.04", ",", "0.95"}], "}"}], "]"}]}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}]}], "]"}]}], ",", 
     RowBox[{"ImageSize", "\[Rule]", "500"}]}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.715196286961218*^9, 3.7151963459448185`*^9}, {
  3.715196428281618*^9, 
  3.715196656838526*^9}},ExpressionUUID->"7742e60a-b685-4169-8598-\
5e833ff057cc"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"lgsize", "=", "16"}], ";", 
  RowBox[{"FigureSens1", "=", 
   RowBox[{"Framed", "[", 
    RowBox[{
     RowBox[{"Legended", "[", 
      RowBox[{
       RowBox[{"Grid", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Atmospheric Carbon\>\"", ",", " ", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
                "Bold"}], "]"}], "]"}], ",", 
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<Global Mean Temperature\>\"", ",", " ", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "16"}], ",", "Black", ",", 
                "Bold"}], "]"}], "]"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"SensCBACDRAtmos", ",", "SensCBACDRTemp"}], "}"}]}], 
          "}"}], ",", 
         RowBox[{"Frame", "\[Rule]", "All"}]}], "]"}], ",", 
       RowBox[{"Placed", "[", 
        RowBox[{
         RowBox[{"LineLegend", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"Black", ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", "Dashed"}], "}"}], ",", 
             RowBox[{"{", 
              RowBox[{"Black", ",", " ", "DotDashed"}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<default\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
             ",", 
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<kv low\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}], 
             ",", 
             RowBox[{"Text", "[", 
              RowBox[{"Style", "[", 
               RowBox[{"\"\<kv high\>\"", ",", 
                RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
                RowBox[{"FontSize", "\[Rule]", "lgsize"}]}], "]"}], "]"}]}], 
            "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "55"}]}], "]"}], ",", 
         "Below"}], "]"}]}], "]"}], ",", 
     RowBox[{"FrameMargins", "\[Rule]", "None"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.715196665668182*^9, 
  3.715196732077808*^9}},ExpressionUUID->"56421106-838d-4899-b312-\
648a08c92dc5"],

Cell[BoxData[
 FrameBox[
  TemplateBox[{
    TagBox[
     GridBox[{{
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Atmospheric Carbon\"", FontFamily -> "Helvetica", FontSize -> 
             16, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style[
          "Atmospheric Carbon", FontFamily -> "Helvetica", FontSize -> 16, 
           GrayLevel[0], Bold]]], 
        InterpretationBox[
         Cell[
          BoxData[
           FormBox[
            StyleBox[
            "\"Global Mean Temperature\"", FontFamily -> "Helvetica", 
             FontSize -> 16, 
             GrayLevel[0], Bold, StripOnInput -> False], TextForm]], 
          "InlineText"], 
         Text[
          Style[
          "Global Mean Temperature", FontFamily -> "Helvetica", FontSize -> 
           16, 
           GrayLevel[0], Bold]]]}, {
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwtWXk8VO8XVlKytVCyzX1FJdFKisqTNhWhRAs/lbTRQioh1Kx37tiLsiWU
QnvatK9aaZX4pkSLklKphH7vmPGPzzPX3HvOc855zvNepsvWzw3oqqKiEtdF
RUX+e+Dl6jN/1vGQV3NJxzhVij+Fz5bzg3moLx9Y9aeIQ96d3M2aoTw4vwnX
O5Iuw0jMaUrczENs6rq+fHEsHi17Ud5/Kw9th749dg2Og+jcZJO0CB7s2MlL
6n3jkaohem4UxUPwRI0KM4sEdPhndqTH8JA8oJuXTk4CiswjUw35PPye93a/
kX4iitV0c1OFyueziVhs5mamK+FhjPznVyLUuxsaxkp5cJE/YHESjAoXsmqx
PNwkx0JWFSehMPZrSGS88n6qyRh49OKLb4k8ROgdmfHGKRm392ZcCNjJg0/8
tZ8HQ5JhIQ4gL1J4oN9ObExIxjqrRrWZe3jgX7m7b1pGMpI7uq0/m85Dx9Ow
j4OTkyEyjvAdnMWD59v96VM3JsPa1/BJUjYPD+7fv+8yIRk+3gWP2nN4yGrK
vzX7WxJyVzctWrmfh0t7DUf45ieh/7WCDWX5PBy8NduO9U3C14A0vbEFiuev
1U2C+fitzulFPMjDDS9NxCu1f9r/jvAwZJR6UUZkIl7zX69YelzBZ+6IRDz3
K/O8dpKH3bQceJMAmVN4pelpRf7piQnQfSFriT7LwxYawFEk4OHzo4erz/Ow
zdH2f+er4xHUnVUZd5GHL5H0A9t4lE0v+Zp4mYcV8h8uDlUp76IbriqfVxML
G6ODRyff4CFn2unv7aNjUW+etj31lrI/hDL8sfP89amUh4wbtCAvOHT0Cezr
eE/JpxWHDcc2PE14oODjvxgpTLx/THpTxsPWj4NHqVewWJOyY97Ixzxk08vm
I1kkeOzXjXqq5D9Wgqs33sbcfc4DLZ+FzxcxJnDXMvpV8nCqdPOlvZ5ieO2/
vsqvSpnfFRFWRK14l/8fD0b0dt1Hi1DQPES/qYaHxEaa8FEhDOfvaLOp5aH5
seuy3mOFMN/UmLq1ThnvNQH88141XHjHg3qR8aLl/xPA9kJpS8cHHobKG0hN
gAVmxhcdP/FwnYYTX8yH35PpjtGNPHQdJu5fGcaH1f9ORV1sUvI3mw/X7w8i
W7/xUPnw17y31nzMDWi1H/uDh1XygKz40BmRdX5DCw9eOtYnMifzUR5m1H7o
Nw9necJPHu58sCaPVWtblfX156P+KFM+oF3Rf/dD+PCM9vOf80/RL8bb+eiZ
2XBpRxcG7vKB3clHw2v9umJVBmZVf6LW7ONj/ReHp+/VGCxa7lDjdoyPzeMP
JQxQZ3BvHy3wTT56ax4zdNZgQK/GplbyMUaUtXGzFqOYx/d8BBVdycjVYWAi
v8EPPqKXLUkt680gbwNN+B8ff0NvLm/ty3T255VeAlzJsO1u3o9RzIexANv4
PyJd9BlFfQcJYFQ65e5GAwa0ejO1bAWwUPVv2mPEgFZv+64pApjfi2+8ZMIo
+JojQOVZtVu1DKPI31eApMCOrWoDGUX/BQrgGXtcY4g5o9CjUAF6VnhunTGY
wZxlvReM3yFApp7x7RUWDCg6VZoogN7Q8T8FlsrnZdL79a3ulmPFQN6eRQW0
3l9G/7o4nIGWvMBnBbjYtvrBi5EM5OF2vS6A7v5CSfNoRlHvhwJwW4mlpi2j
mKdqAVQdmk4MtGMgz4b7IEB19QTz8eOV3/8uwAmJVfQcB2U87QIY5NTcWDaR
UcyXuhAz725q2eTIQN7O23WFuPlWq59kMgMDKqfWPCG+9btqumeKMn4LIYrK
i0wOTVPGP1qIsrIPPc/OUNZjghCnebL3N2cyinmZLsRRo6Izj2cr+8FdiHUR
PhGvXBkMT8j+PWqREGtdjo756MZgzatgqc46IVxaT71p9mCwWmX9dkG0EAM9
IkV/5zHYf/Gq/oF4Ie7G9DVT9aL5/6pbui9LiKGEf7bnAga0m89mFQmxZOSL
Gb0WMfBefPxy0HkhNInhY10f2l83jg9fVyqE30O3Bfr/Y3BmWXTlxedCeMdF
VRksYWARJTsXWC/EnaEFPkbLGJjTD8b/ECK87mm10XIG+R+ch//rKsKw6H8+
RisYjJcLRB8R0u2HvjJYxaBh1wmtb4wIopduS/XX0H4aGBTWai3CzoPr3+sG
MTgX2/1rioMIc7bwg3utU/S//kwR/uUJVDQ2MKDT/XCLlwgpvMBdqiEMBux6
2vODvwiRy6xHtW1kcKu6WNC2geoP/8rT75sYxbxvE4EZNmB7wxYGZSuevV8j
FcE1c7Dd660Mknw6prSm0HjPV/96GsHgDpWztFwRHLtY3ijdxuBHkNe24cdE
0NrZllESzSj2xwURzoybzD+8nUFY+H6r66UiHPZ5uyWLz+BQ3hzoPhNhov6D
iDghg7/3vty5/loEa6v38dvEyn78LMJsHYPiQJbp3IcWv0X4+cb58wKOQZ+x
Ey7OVRUjI3rx2GmxDN6bUEZ1xJi62WbnyHgG7S2bXhsbiPFT+3R3o0QGnqHm
qdFmYtjMuhrXLZnB7IZuNn2Gi7Hqs611406m0y+ojhPDaXNz7dMUBjmn7H47
OYnBs3p6rGQ307lPtrmI4at/JnVfGgNHSmA3bzHOqm/eLcpg4LW38PCCpWIk
pjWcXJPFIII/wuVAoBj2YxobXLMZnIxoPua+SQzHHvMnjcxR9mu0GNlGv4/0
yWMwtnCSd5VEDC3nwonN+xn0eGjgsShJjP7jnT49ymcQP48mkC5GQEj82WOH
GFSvog2dJ0aN+/IDcYUMrE2ZH0GHxbirlVgceJjBpA+VReGnxWguqXs346hC
vw5cFuPqPGsHs+PK+S+l+6jQ7mT7CQZWAQa1Cx6JkbKtzK3iFAMabaDhSzEc
Ai/3OXaaQQG1T7W1YlS1lf8Rn1X29ycxPuXdV/c7z+DzlfFmd7+LcfHqVkfb
CwxKhvTStG0TI2pvVpbGJQYppnGbgrtJMCRcZUjNZYUeHNaSICTav/LEVQY9
pYz/Fz0JbpZLTwuvK/XXRAIj4bjL3jcZDJIL0iAJ3hVY/7C4zWBH7e3dDtYS
/Jxp6fWnlMFdz6sHzW0lmBnQWF96l/79pq5p6hMlaGyzyUu9z2Dcyqmr10+T
oLzXpcSAh1S/winjrhJIM6ceHV3OoFH70kiD+RKMPMhv73jEIH0+LaiPBAPG
2m67+4TBuyOD6vjLJUid13fErmcMku27uHYLkuCO3hNdvwoGkh9VFds3SjAj
dbiVRSXla4nn3PxwCWpUq8K+vlTMa/8dEkxPiG09U82giKtapcJKcD+m9XjU
KwYL7o6+cTxeAjXLZ3unvmbw+9rygiUpEgQ3l93oWcsggN7wcYYEgzwzTB++
pf3UsLG4X64Ey181nE6sp3xurOgbckiCaXaBQs/3DNRuxo/aclQCZ5P7sf0/
MnixfeP0ncWUj1Ul5RUNiv47XkKv67ybs/szg8cqr7r2vCZBPO+3+oIvDPxo
Az66LUHBnYx//b8yMLyymFx9IMEZv6gxz75RfYwsP1n5RIKEudP3J31nELl0
9PxjlRK422XOd/vJoPYjFbAaCR7dtpym+UupZ3USmNXtCr31m1H4xwYJ1QtB
XUwrg2X7nts0NUmwVT1jl32bgo9RPyX4nBEj+d5O96fDnEeJrRK0vHh2sfAf
g5dFrT6N/yS4N45JP65COvXniBoLr0HD/8i6ENS81kweqsnCasKqPyu7EsU8
9GYxKtskw0mVwHPukOye/Vnc1856Y9yNIOletLOjEYtdVePutlB8/qW0PYCw
UPk7watcjaCKwi2DWOj8+S081J3gpFZwEWfJ4nvH+YU7ehC8NIpcemIEi8uP
yx8tUied/Vliw0L9hfjL6J4En2i5IsazkPW2PqahQfDkwlu9zEksXhpr69dS
3LmfprBonhBqdk6TQLd5ctk7ZxYf3I88i9ciyDU719ZjDgthZffhK7SJ4vww
j8X736VWE3QIJn/zv++7gIXxRsfHfXoRzFPLTbL3ZXHtyCnee4qrp6uGcctY
7CsO6XuhN8EM1TDNvJUsZtheP5zQh+BXd7/d94NYZEY3fV3el6DrBbW+eiEs
dnCoHqdLFHqwhcXSnx3rtfRIp958jmBx619IUQ3FCaO2WO+LofEn1yWe6Efw
RjP50A4hiyCndCLsTzr3cZyUxe4prxZ46xOUnKUDEccCYT/shw4gmMoFvY9I
ZjFsjfntVopDp+9sEe1mccDlVPs9A4KmO9edDmey0G3/+CrDkKC+mXm8PodF
qKpm4FojgrW0/GPzWfxJ8smZaEwU/qmIhUhqJtQ2IYp9fozFxE15uv9RnP7O
JH9VMQs1zmxOEU9R7/pzLPSO19lEMJRPeQEvsVgXPqx0JiEKPb7OYoOFg/oA
U6LYZ7dZeBR6/aynuHM/3GeRnXMl/uRAggqbpnHTHrF46FtSEWNG4P9lkdOk
5zSfaskDV3MC0bjnN9dWsXhUtibYcBDBhzXDWvRfs/Dck3P9HcVy+i/XsdB2
Db5xYjABHa+Rlh8pP8f1Q6OGKOqzs5HFiUnPH8+0IOjiKtB2a2bRZNr4Wm8o
gTz9Uy20HvYZWTUUC7IeFLj9ZdGTZ6ZVYElgE3MGXVWkGKt3dWjoMIK+ckPU
TYoDRsW/JloRHG71WTtNXYqhHyZu7mFNoHNp5J4CLSly3u7ZX07xZZ2MMQP7
SBE1vIdoz3CCbeUnF27qJ4Vl9nX9ZSMIZi+kGRrQ67e1FluOJNg7weppmgl9
3ifGvZliNRu6wU2l8NGw/3VulLKeg6S4VJ3qvn20cp6HSuH1ZJOP8xjS6f/s
raW4PKC3US8bgg1ygRolRXpijuwZxddE+d53baVQ+2/V8XRbghBpXF3zeCla
PbPYpWNpfvID0yQpbuhE9RtiRxR+1UkK/yqn+Z8ppuH/PDddil8zhsw8Po6A
2r3PPBeaT1bAt03jFfPh4iHFzjq7Ofb2ROFXF0hhVlPh10ExbYcpxsul2NEr
evA1B4KLc1NMdYKliClekSOcQBTnV3qeXFt2+4nzRMX8psdJITGsOq85icD7
84iSIWlSLNCt9H5IMZ3eLq7ZUui3/ClIcCSYJTf0uVJoX950ai4I9pSkJPQ6
JMV3S0Go3mQCeXscOibF/DM+n55NVtavWIrGnLEGqU4E2q+tE8h5KdS/OHd4
TyGwPKRbfuOKFP8tups2YKqiXl6lUjSt/fblBcVPXr3W1H0oxcp1P1p3TyMY
/s+0veWJFCErel5eMJ3gUaJPx/WXlH+zFQ4DZhAcpesx640Ug+2woWKGQt9M
PkixuuW+b4ozAXm83k/cKMWQiMnd5s+kekqPdxOapajPfeyvO4uAkQ/obylm
6hVHPqL4O22Hmg76fVsTt/jZROFnVTlYjHWscnEhWEntaWEPDmJNN1MNV5rv
6lfBGtocVIJjTG9T3Lmv+nJ4/qF7NX8OwUBqCJfocwi60M8DbgQegWlbMow5
7G6riWlzU/TvT1MOP7fvDjzrTvm1pI55MAe7xuA+oR4EDwvKnj0fxiEyPytk
xFxa79tD7fuO4pBR6x7fQLERJbj3WA5Re86v3D+P4J1jXs0kBw5LE7Tb/DwV
emsODmPmR7gYzqfzf4calqlUXB1tFz6dr9Q/Zw6ykKCBcV4E9mazIvguHDRe
ehyc4U0U74PcOXQd3v+TygKCFnqcd5rPwePbx4ZzFH+qHWt4ZSEH95D2/JCF
BL7Urq/15WB2L2bgsEWk8/y2YwmHjje5i95SLA/Hwp/D1tUp7umLCVz7yWY1
BHAofy3uNs+HoNJvs1vWag42O/M3a/gS1OmZ3KkP4tA70zz/KsWd75M2cJhf
a50S9j+i8K+hHC4MaJ4ywo9gGKWPDePQ//reY/UUbw6mDG3lwI0OqE5fQpD6
LyHqbziH96INtz2WElA32XPrNsrHkabgHssIMvvsvzg5msOMVb2rL1As90sx
MRzCodI9xJ/qSeHhFzV8DhE7PzcNXq7kS8zBNbFrWhXFp+g4v5RyGGGzvltC
AEFiL2r44jjUzvIbMXWFMt8kDl82/jP8vUKxH3gpHGp4kbcLVxLsbOnuN2AP
B1bWxdZvFcH8qwfz5mRycCkr8e+7mvZTUFj4oH0c5t57Pu/mauW+zONQNjZK
LWwNre+iJxf88zlMTfsvzDJQMd/5hRwuupMj1YFKPTxC+ZQE748LIp1+y+M4
B6PJbf/DWoIrn7MmWBVz6O7+6eW3tUq9OUvz91ltkLtOMZ/JJZS/N9mGnusJ
jOUG7DKHkhEXXnXbQJByQivY6jqH7NX1AcUUy+V24i16XTz9WEAwUfjfOxze
evW81C9EWb/7lJ8w7/ibFIdl5JiNL+NQsHyR+aaNCj4XPeKQssJhm3kogVze
bz7lsDfbLO0JxT2+9nd2r+CQpjEhYscmxfz6VXJYF3KYjNpMQNXuBvmP9mdk
trSGYl9qSH6/5vAnZ+K52C0EWtQueLzl8MbucJFDGFG8f6vnsNlfP+BjmFIv
P3KYNyivNmUrwTq6wK585hDmGTFoarhCD4Z95RC994b1N4orcjdM1PjBoUKW
/zczQrlvWuh8h8+OnxVJEL3mQqjuHw6x2RUfWiimp4Ovam0cSrU2quduo/u4
sqi1uoNDaP7UL3OilH6tiwyTR21Ma6XY+kRmU343Gb5MGaR9IFqpJz1kiJm7
fbpHDNXvLhfUknrKsOXQ4eltFMu7sV1Thn/ryrXzt9PntTZ+Qi8ZBuf2yvDY
odj3jn1k0CCJ3/5S3Omf9WTonRauc4BPQN2CjYq+DP2yvzW7CQic6AF9pYEM
e9ON9v4RKPMxlkHrkYlurpCAaw/4tZyR4a6fiZuLiIBu09O1pjJEOznO+ylS
+JOb5jI4uR1kssT0/l6fRzhYyHDDbtup6RJlv1nKIGRr+zRJlP1lLYPKkTa7
VJYo3kePlOFVQ9NgRynpPC9Zj5GBLHv96h3FEn/f6lu2Mszt2+wXxxHw+q9x
3ThOhrPPnQtsZQSFZc+8PtvLELFS/VI1xUPv9b5tP1GGFws90/mxSj8HGVyI
u5NlHOVXbrCdZLipwZwsp9iUBtBnmgyl0+saN8cTmNAD3scZMuyvudZsnEAU
/y+YRfm59N/VaxRTO9m9xkUGg0LvxasS6T6k9r3KTYars+Zd1k4ine/Lb3jI
cMn0e+MJip2W1JfneMpQmbTwvXcy5ePMUdWV3jLk1xwsbKOYuoF+soU0HwtV
h307CXppFh/Y6iPDxbXSXdN2UT9Gj1MafjKciF1S8nGXwk8OWCqDzoz8otgU
gr8+a292+Mvwf3kQ9ys=
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJwtWHk8VV0UVSiZGhCRe0/RhGZSJKtSGg0lmhWRNEnyFUK96d73zIpCkgZF
c2kevkbSgIoU0ciXUlEpkr7zvHf/eb/1u/fdu8/ea6+9zunns36OX2cVFZW4
Tioq8t/+16vOt6xj4C+/HknRkle2QrCBwa+5bw+mF8hw4N7+UK0QBk2PZ/v0
eBCDEXD5khjKILEhwtHmYSxKfSpKem9hUNq/siWyKA7iixNN08IZ9DsZHJB4
Jx6pmuJyk0gGcy4woo/eCWj33dOeHs1g17peArxMwFHziFRjAYMDQQ6aXvMT
ka+utz9VxMDRZuml6SWJWGTmaqbHMYhNpX+YlASNLsbGsVLF9/PzkmCSt4BX
j1Xe10pGXuzX4Ih4Bi/Nu2wzWJqM/ieuVjQmMrj1Y/Di+OxkFOzNuOK3g8Gm
ZCM1z/JkDJb4kYoUBvf3TTn37Wcy1lk1qE/fzaCzpaT3c/UdSG5XW38hncHZ
wtBre9uTIe4bvmRgJgMHzWf7g2qSMXSJ8ZOkLAa2/MRl7w8lY7FXbumfbAYu
Pj3mj1uQjP2rvixceZCB/nHn1600vt43c4OKcxioeeoOHXUtCV/90vTH5DKg
2b5N1ifBfNyWaelHGWgc7bvwHZOEavW/On+PM2iNDLwS8jARrwSv/JefYvC+
hCY8LBHl3sUeN88o4t84KBExk8Ke9zvH4HWY/vGCxwnQq4hpjrqgfD4iAY/K
TxyrusRgy4eBI7kBCVjThVcZe5UBzbZ2593xKJ56+WvidQaTltF/vI9DZUpt
VP0NBn3kAQ+Pg7XJ4RMTbzOIouEkb47Fe/O0bal3GcjT9ejfGLTYevz8WKio
778aMWjvubqX430G8nTrzpEh6GTQ04SHDOTl1d4jhanX9wmvixk00/LcrOcR
mLJ97ojHDOR0cR/PI8H9oF7kUwYe8gQlcrhx+210UTmDkfIEfZRgvOxmhsFz
BncIJdwMCTwP3grwrmSQ20gJe1IM/0j/2pyXDNJ204sRI7dpkOGXGgYPH9Br
pwjG87a3Wb9hIC+nQ28RzDc1pG55p3xfphC+B6rrr9QyCOggvBA2Vwqb2/9j
IH9c84UA8836XnX8qIxfLID3k6mOUQ0MBskDnCyA1dKzkVe/MNCWE8pAgNnf
Hka0NjKgq7vA/NqOOX6tdmO+K/n5eTt0h2deCmpmsJ6mr0hFgJLNJn+O/GIg
b6cGPQF408eqb1qV8Q0Q4P0JtsToD4Pin7RhRwrgEeXt6/KXwUZ5wBME6Lan
/tr2TqyiXrMFqH9l+C5flcW1vcbDXy4TYP1n+6d16qyiv9cJEDruSIKRBgt5
OX9uFqCH1knjaZosTIbTjqLrGy3O3BiqrbyfKsCao/9m7NdlMaDLtp2TDwoQ
5bMstbgHq+if4wL8DrmzorUXq+DHFQH+zbDpYm7AKuJ9IMBWwfeIWYYsFq6w
r3EtF8CkcHLRxj4sRsuvGgEGq/p+2W3CIuM2XXCDAOb34xuumbIKPv8R4PkF
9btvWOX6ugqRtLp9i3p/VtFP3YXwiD2lOcicBc3mvil9hej2zGOL80Dl94cI
sUe/b4H/YGX8o4TQHzLuh9CCVeR7An1fryq1bCtWwecZQsz/POrn1WEshp7e
8yXHXYirbaseVoxgIW8fyyVC6B3M45pGsQr+BQoh20IstGxYbJUL2gYhVO2/
nO5vy6LtCH0gXIiqqvHm48axCn3khDjNWUW52LMKfiYI0Se75raPAws5Hfal
CTG9aFPzJkcWNFuxqYeEuPNW24CbyGKGnGDHhGg0uNFv92S2Qz9WXBTiaMlR
0yNTWMjDvXtLiOLi/7pdcFbGf0+Ic0xM3Z3prELPy4Q4YXL0/OOZyvrWCLEu
fHF49WwWQ+73KLCrFWLtrBOjP7iyWH7riaXfbyFmtZ593eRO67F8X/lZXRH6
u0eIf8+l/Bqx22JXXxGKonuZqXqy6Oq9a5aBlQhDiOBCt/ksHL0Wnbo+XoRl
Iyqcuy9k4U0/4DxTBC1i/FhvsbKeC0XwfuQ633Api2fWX8ZOCRDBKy6yss8y
Fk+uvNU3DRXh3pDcxSY+tD6zDGKKhCKEvXtaZbKCRd+I5aPKEkWwjPq72MSf
BX2bkdpeEdLthlT3CWBxMbbL195HRRC/cF1uGMii5MyCHxcviLDj8Po6vTUs
plR8/T7jjggu/wg2dF/HwpCm40mpCH8PCFU0g1iEujK9A6tFSGFW71QNZmGd
fdZ2c70IET5DR7ZtpPmd3Pfjm2YR/AX/Pv22icWYvAlelZ3EYC2NttX/w3bM
h4uaYszeM9D21RYW88edLWw2FMPyUtXPp+EsRu62MNrZXwzHTha3C7eyHXpY
aiGG9o62jMtRbId+ZI4V4/zYiYJj21iUe34aftlJjGOL3/6TKVDUd9AsMRwM
H4bHiVjcPjVs3X4vMYZa1cVvlbAwv9gmCfEXY6Zun/zVPIsfF19It64T48fr
aZ/my5T8CxUjI2rRmCmxLJbOLOzqIBbDKdR6x4h4Fk6yNXXh8fR5nXNdTBIV
//+zUwzrGTfi1JIpPzzmDCL7xQj4ZDO0YQeLrzl3Z9qeEGNSaNObpylshx73
yReDsXp68vIuFnZmM8JVr4mxxPB86r40FkW3Jh1b9UCMCxqhu8QZLJLtOs1W
eyJGYlr9mcBMFgddoLf8uRh2oxvqZ2exSK81zQmoo/nqOm/CiGwWsYMbdCY0
ipFl8ut4zwMsnFU3a5k30/xNy3NoOshim9qd+FMqEvQeN+ljaY6y/joS+AXH
Xzh5hL7fanLf1XoS1LitOBSXx6Jgpi1/w1iCIu3E/NXHWNS80koeMkSCpsvv
ap1PsLhblS9sGy7BjblD7c1OsdAvcaoIsqbzKM/2zJ/TynxDgpStxa7PzrKg
7uDstOkS2K++3vPkOWU8sySobCtpkVxgcU4YUXLGU4KPBx5oeF9iUb/ztHbj
cgmu3tjiaHOFxjPELum+nwSRezMzNa+xIL6fF95cLcGgMJVBNddZHD1W4R26
WYLgKN/np2+wKNx1OaVHpAR3SqTnRLdYxTzdJoGJaOx1rzssdF4NTSBxEtTm
Dv0+uIBFgw7t4J0S/Jhu4dlSSOtb+Wzbxl0STPdreF9YxOK8T9Rzh2wJGtqs
D6Q+YCE9+fqDQa4EJd2vJfo9onx/aO9SekwC6R6nE6NKWITLDdA5CUYcFvxp
L2VB3WLglasSGI2x2Vr0hOqVQ/o89pYEqXN7Dd9ZptC7fvckuKf/RM/7GYun
ln59fIolcE4dZjX4OYsVD5bMLCyj9VGt3Pz1BYtOs4U6xZUSTE2IbT1fxaIq
QGV9pzcSPIhuPRVZzXb4hRd1EqhblO11eqXUywYJNjQV3+72hkVg9QZp3DcJ
Bnhk9Hv0lkVZXaBlaIsEK6rrzyW+Z9Gz4NKF2L8STLFdLfKoY6F+J37kP+oc
ppk+iO39gUXI1B3NYi0ODQGXS57Vs+jWkrXyTE96X7fWZdcnqg89x4y/asgh
nvmlMf8zi/h3TexjUw659zL+9v7K4kDNNd0MMw7nvSNHlzWyiNu0wURnCIeE
OVMPJn1jO/yl3zAObrZ75rn+oPz5cP6EqjWH0gKLKVo/qX7KBXAcB7N3O0Pu
/mLxX6Bls6EjR/VC+C66VTl/nThs0cjYaddG52m22cW26Rw+ZURz3/6wOLHD
j/N15dBcUXY17y8L2i2DIz043B/Lpp9SIVjptGp90AIOngOGtcR0Ior8LeVg
NT6gZWVngomNvg+W+HIYmWWaMUmVoHOahgkTwOGBTubrvmoEyUe2u99bw2Fn
5diiZorbJ7c2rN7AQeX3eM8SdYLPH/8dZxbKQbfll+hIF4KUfnGbGsM4fGu/
tGB7V4KztD1fRHG4/rikdKEG6ZhP/wg5aFRIPo/qRlA0iioczyGmx9CTmpoE
0+QGOJbDi746hm8o7shnEoem8SFmF7UIfPaVW69P4fCf2/GyeG3S0Y+FaRxE
z7sM89chkMvv00wOdb8Krcbrko55UJTNoe9Gx8c9uyvff4jDzeNnmTqKhZkP
c4tzOezLD+51pQeBS2ni4vbjHJxtbh1L6EmQkPVrZO1pDnuivnxd0YtgiLzB
znPYLkPVWD2CI3olTvMvc1j+o329tj5BKA132XUOd/8GH62huIOft2j8ye8S
TxsQPPcOdc0s4LBmUjoR9SYYNW+ExZH7HHZNrp7vZUgU+4FiDtj83W6IEcGc
QVn8iCccLAPNC1op1so/tMX5GYdDs87+ud+H4Psaz63DKjno/flQnWFMcKZ+
Y75BDYcQVa3Va00IuklZ389vOLQkLc526Euwv9MV9V51HMRSM5GOKenwr90/
cnDYdEDvJcVL1t5pP/2Zg7rMzOUoQxR63cRB/9Q763CWYIF4bPmUZg7rwiwL
pxOC3r/vf77XwiFosL2GUT8Cz63Hz/n84eCe5/njPcVdeuk73lXhkZX9b/yZ
/kThF9V4PFpy+Vm0GUHTxGL/sq48DlVxD2ebk475nqLFo7Q4cIPxAILH6727
unTn4bE7+1Ytxbpyg6LHQ2f2htunBxLcGGc243dvHpanDEMiB5EOPdprzOP0
hPLH0wcTtIysPT6A4fGlX8Mr/SEEX3tPc4vox6PJLiOzhmK5X9EbwKMbY6ad
a0Egb8+Vg3mM0b8xJMSSQI8GWGtJ4zPJ/+lgRdBfTsjhPIb85xDadShRzLtR
PLLf7j5YQrEb3dAm2fCIHNZVvHsYQUPmeKunY3lYZN0y9BlOkE23q3/s6f0C
7UUWI0iHvjg40u99ZN2aKDZ2f2ESMYnHYk27nxdHEiRG/rYLmsLjWlWq27ZR
yvVN4+H5ZNPiaaMJnlD7XzGTx3WjHibdrYlCv1x4pCdmx5RRLPdbe9x5qL8M
OJVuQ7A371hFjQePVo9MfvkYovAvXjxu60YaDLIlivm+iIdv5aR5nyjON/h9
f91SHj+dB00/NZZAPh4Sl9P1ZPo1bhpH9YUKbt4KHjve2brY2RG80ze9934l
D7OaZ97tFGfxdMAE8tjePWrgTXvSoXfa63hE5/tni8aTDr1qD+KxtrjgyTQH
otjPhvDgjCsvaU1Q9MO3UB7z9Z57PaJYa+qATZ3DeBg2t+QmOBJQd5NeFkH5
cH3T2TkgWCsnYBSPbxbCEP2JdL20vcu285h3fvHHMopn1qtZJ4p4NGSP6ZM6
iYDazXknOR4an6e1e01W8kPG4+XCojQjJwU/kuMof9Y2fq6guGO/kchj5brv
rbumELByQ5fMI9i/2/X5UwksqfzwKTT/Zv72Rs40nxommUt38xhoi6Bnzor8
+GXwWNX8YEnKNKLwe3t5DAqfqDZvOgH/uPqVVjaP9/sf++rNoP2sveGo1kEe
0/XzI0oplpe3Pof+38bUNX4mQV5xmeenXB6DxzhWzppF8QRq0I/xkGi59tOc
TRBpOnbl7ZM8VDZE9yugWI9uAPLO8Cj/r0uVwEXZ/+d4rLli4A5Xgpwt1KFc
5LGrrSa6jWL58UjJZR4/tu1afcGN4DS1o9uu87Bt2NAzxJ1g1iHNqQNu8YjI
yQwePofgE90eq9/lkfHGLb6eYvn26V4h5fvuSysPziWQxr1r2nufx/IEnTZv
D9KxP7n0iMfoeeGzjOcRxX6slEeVo82CpxRbR5/H9qc8YoLX9I/zJKDLcVpV
wUPzhfthZy8CC7kAV/HoPKz3R5X5ivnwpYaHe+OH+osUd5zXvOXhFvwnJ3gB
AZ2OMeNqKT/vR/e3XEjnRxh1+B94tL/ev/AtxXI/lfWJx5ZVKW7piwjurrWO
tv3Ko+SVRG3uYoKptH09mnhY78gJ1VxCOvZT77/z6LHHPOcGxR3+8yfl25uh
KZuX0vtU4HN/87hi1DR5uDdBpfSP3z/tPHrf2nvyPcVyP3ZVRQrZKL+q9GUE
Vn593lSoSVEnDipwX04UfqqLFFXHv2zo6kP79bDNQ/tuUjgH9Ki64qPQ+51a
UoRBpUuwL11vXQx10FKE7/j0ZeAKgn7s9zXlPaWYndg5rZJiqiaPOD0phluv
V0vwI4ifG2JuaCTFmxnew5386fefptWa9pHi88a/xr8olo+D8L5S1DARBXkr
Ca7rZozOZqTgYzrZeAdQvNV0bB2RYlbxZd9eqwionXM9YS7FnPvlc+9QvPNp
t4DsgVIUj4lU3xxIOvZf9RZSOKW93Gyxmij8i5UUV93I8arVCr0yHSFFD27D
wbg1ivpcGyWFycS2pVirmOczbKTo4vbxRSPFcj86fhxd/+JVffavo3ym29vd
9jR/r7OMPdaTDj/rPlGKy8OvVKsFkY7z0lpnKbJWvffLp7jjPGIuvS+ZetJv
A+nwizo+Urz17HbNIFjZb0E0P5u94u9QfNiraJRTtBS5Kxaab9pIECY39DIp
Uvztt5qHEAzurpU/MEmKvVlmaU8olp9vqlKcpjk+fPsmgtt0XFTvkGJd8DEy
MpQozht3SeEWkSWtobhjP5whRUu2w8XYf6heyQUuW4rXtseO2m9W5C/wiBSh
voZ+HyheRBO245QUcwcceJOyhUB+e/YlKTZ7hA9wCiOgduTVsRtSRO29PbQx
TKnH96R4FpPze084gXzcLC+R4kfYzPgZEQSjqR37XC5FbNaz/5op1nWlFaqS
olB7o8b+rQTVnamjeC1FSI7TZ5dIgpuGA+eq10oxceTGtFaKH6vQJz5S/kwe
oHMoikBOn+CvUkTP2TbVPVrpj35I8c+RY1PbopX1bJXi77oSnZxtBH/7/Wn+
0S7FwP3dM9y3E0zfEz3wpqoMmiSx8TfFcvuaoiFDj7Qw3UMCpZ5oy2CQ1djk
KqT6vIk62J4y7E032dsiVNTrtr4M2qWmevtFSv9gJEORt6nrLLHSD5vIEDXJ
ce4PsUJ/ZawMk1wPs5kS6tcctsw/3F+G27Zbz07llPkfKIOIf9PzC8Xy8yE7
CxlUjrfZpvL0feGC4Q+GylBd/2Wgo1TJp5EyEJ9X1bVS5byylmFOrybvOBn1
o25tRt9sZbhQPi3XJob6r6qpqr/sZAhfqXGtiuKO86YJMlQs8EgXxCr6c89E
GWYRt0kWcQSr1n8V3XOS4Y4me6aE4o7zgmkyFE591xAaT5Ca0D3s3EwZDtbc
bOqboNgPfHWh+bn28sZNitdsDjtoNUeGPnleiwISCRzkH5gnw40Zc6/rJBHF
fniBDNf6fWs4naT0G4tleJ60oM4rmfa7QcyMem8ZcmoO57UlK/XSl65nsKr9
vh1EsX/zl+HqWunOKTupfzQ8X6oSKMPp2GWXP1AcRQXJZa0Mus45R2NTKH/p
hJocJMP/vmPvSg==
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJwtWHc8VW8cVlISqRAZ57zFT6W00ZKnvUlmpbSUliIpI3TnuQcZFRlJU6Gl
pBLS3rSJiIZSEk2Sfu917/3H5/Ge8Z7v93me7/f79l2+cb5XRxUVlZ0dVFTk
f/sVVuQ2+zB4cJ/+nGVozny2UujLwEY2cem78TwO3zkU0M2fwW+nN0eSh0Zg
GOwbYgMY3JpNrzCOxKPlpSW9Axk86lfeHKoaBcnFiSZJwQw0Ow6S9q6PQoKG
5LlRKIPY+hA7qyc70bZiX1tyuPJ9udHIMgtJMBQykF++YHYMctR0DiWIGbDi
T44XzsdgkamDqQ7HwH55D/cxxrFQ72xoGMUzGK6eZbwwMBZGmQtkalEMyh7+
clpxPxaZUV/9QqIZ9Onk2v2EThz6ncovbYxVvD9nbhxu7U+57LWbwdf0m7Nz
t8VhgNSLlMYzGPrKrHOHXXHwGVyvNjORAf3a62lJcdjV1mnjhWQG57/9ffo7
Kg4S4+DF5qkMVsl/6+JgudjwSVwag4zGx3OXj4iDh1vGo78HGQz0iL665X0s
Dq1pWLj6CIODU89/254Si95XMzYVpzN4cWiTrYZTLL56JelaZyj2Y9M1FmZj
AmckZzGQf+65ghhUqv3T+neSgTf9gMLNMXgtfL1q2RkG8vAwA2Lw3LPY+epZ
BivHVTlE0XhGTgoq63uewdrL/rsMTKKhUxr5M+yCMt7hO/Hw+akTFZcY3CCn
/bxrorC+s0xldL5if38nRqF4Wt7X2EIGTfRzeqRFojz+fVhdkTJ/fyMwyujY
qYnXGWy3s1pyaUEE3pkl7Ui4yWD+BUb8KYdHs43zr0+3GSy5NFOzYy8ebT3X
9bK7p7x/owybTm96GvOAgfDK3QNTH3Iwcfs+obqYgYr8N4zD2niB07DHDCgd
yh7uliLG8YhO6FPlfv9KUHT9Tfjd5wwoiq1fK8H4iKspemUMjiZfJ6crxHA9
cs3bs1yRf0sXMVaFrnqf/kq5nzIRMpr66zdUMTCldF27WARDF0HrqBoGNF0/
BnwWwmxLfULgWwYL5QHlhVhxuLLu8nsG+nKCWQphdfn2z7YPDK79GOAR/VIA
d1PjfLtPSr7vEsDzyTS7sHoGz7Z9NB/uIcDgJedC8xsYjJT/rAWY++1BSEuj
8vlEgPleLWOtvzOgV6tnmQnQfWjqpU0/GRTR8Jy3E6Bkm9Hf478Z9JcT3lUA
mclj1ZoWBvLtX94gwLtTbInBX+X7dwjgHOa5wv4fg7andAPxAnTdV1cg6MDi
+1/6jwwB6l7rv81RZRXfWyjAxi/jntaqsYp8PBIgYMzxGAN1Fik0nH7VAvTo
dtpwhgbbzucfjQKMlKRuDtBkQdl5O6CDEOuzrqQc6s5iQ+2f443aQoQtX5pQ
3INV5IsR4o//jZUtvVjs2DM5Yj2N35UUq85meiyqg3RPTh8vxHbh95A5+qwi
37OEMLo9+e7mPsr7FwgxQHVFQ6IRq9C/N83Pvej6AhMW3S2z9zUECFF2Qe1m
DctCTseZYiHi1rUFqvVjIbeHlbuEcI46o9HfjG33l7IDQnR94Rw43ZyFiTwB
p4TYp2t8a9UAFvLtP84XQnfgmB8iCxbHqBxl9+jzelV0OjiYVeitTAj3LyN+
5Q9hFf7zXoj81jUPSoex6Csn5DchdI5kck0jlFhFhIhAYtHNisVmuYC1RFAd
15Ddz4aFXJ6dDEWoqBhvNmYMiydUbu7mImRzg8Psx7Fooen1HyFCn4NV15fb
sgo/mCDCzLtbfm6xY+EsN6hZItx4o6nHTWQVenQVoVGvqG/iZOX7l4mQVZJl
cnwqi17yBK8Xobj4Q9cL05Xfu1WE80xk7Y2ZLKbJDU4gwimjrNzHs1lErKdX
RIngE+wRXDmXRZlngAOTKMKGOadGfnRg8fnKGNO7J0SY03KuusmRxZnCz6nj
r4jQzzFE8seJxeopazZueiTC3fBepqquLOX9Tqfv1SIMJMILXd1ZDJtzVONm
owhLh5VO117IoivPrvDpIEY3YvhYx4NFjt6fez49xPB86OCuv4TFql9vlx1g
xXDbGVreZykL+viv4iFi3BmY4WG0nAUOVxV0txUj6O3TCqOVLOjjviycLcag
sH8eRqtYzItK8IlbIEby2IGVfbyV8VkthuSlwzL9tSzk9uW4RYzdxzbW6qxn
FfVAKIb9VqGvtg+Lu85Fx8xixPh3WKSisYmFoeNLo5B9YsQz6/ao+rH4M3bT
Q/UMMUKWWw5v3cxigHa3HPNc6j/CK0+/bWHh9nloXvo1MdhBBjvqtrKK+lEi
xtx95javA9l2fzhL/WvQpYpfT4NZJFoY7Hn6QQy7DhbXb29nFXr+IYbm7taU
vDAWOsuuPRnUQYLc0ROFJ3awqNcqGJaoKcEJjzdbU4UsFj25/EbXQAJb/QfB
O8Uspk73a47uJ4Hl4Nro7VKlngdLMLt7n5x1Mqonh1O731lL8KN6xmf3CJof
i+M6JRMlSAlbZD01isWog+dsfs+RYErAqN3DopXxdafXa53vbBTL4teW1ymx
KyQYNatoZ6ddyv34SOD92cqyfjeL/lcl6W6BEkwKaKp5Gs+C3j2pQCgBM/jp
6by9LLo87OP4MkqCxfq5CQeSWEX9T5DggnrAXkkKi8qOlCEHJIhNqju7NpWF
58B7PaZnSDB2ZH3d3DQWPYKsMwvOSmDXxWXCsIMsvDKWOs/PlyDN6PfJnocV
+k29KYHmjEzbpiOK/LUWS9B7zKRPj9KV+SqTwMsv+sLp4yyiBtRrTaiRoGre
yqM7M1mItBxO6X6S4K5mbM66EyxouLzUv0vQlPf2/fRTLOR2WNBK65OT5TjT
MyyWjXAZZqEmhWumzdm/2Sx8DnW4LNaSIn57scOLcyyMQ5aNeKYnxbh1hT1P
n2eR2pB+856JFOWtJc3SCyxCIy+u62ouxafD99U9L9HnyxNoKUV+UaCd1WUW
p1VrI49ZSRG6PzVVo0ARj1u2UvQPUulfVcjC+2zdZqtpUviFrSjLLmJxosVj
w1R7KW6U8OfF11hQNfeuc5HCSDy60O0Gi+OH7bFrsRTvMyy/D7jFKvoHLyl+
zLRwbb7NYlLxqmer10sx06v+3e27LFyKjh2295eivnXU4YT7LIrGmM4KDpGi
RLsg1ush217PBoul4PdNOTWihEU5/9dra5QUw44J/7Y9YhFPy0Etre8G1lbb
7z5hsX/84KdJyVIkOPUauueZ4n21B6S4o/tEx/MFvT5b0zfrmBTTE4YMHlCm
5MtJKapUy7d9fclC67VlDMmRYlpMVEtuBYuwMtvA0jwp7oe3nAmtZBFMy031
VSnULJ7tn/Kahb/cYO5I4dtUfL1rDYvbe/PiY0qk+M85pe/DN5TfO9827X8u
xcrKuvOx71hUeKts3FEhxVSbdWLnWhaF3VNG9quRYobJ/ajeHxV6zKyl8fDO
K3lRR/XQ2XPvnHq63v29/d7PlP9pstPVTVJEM7/V3b9Q/VGBnP4tRcadlH+9
v9L9+2ZFLGqTItczdOSzRhZJiYmJfTpxiJk/7UjcNxaB8oBqcJhns8/F4QeL
3VLxwifaHB7dspja7ZfCH47qcTB9u8f/5m8WR+zplow46heit+EtlN9yQvXl
EKiesmdsq7J+9+fwOSWc+/ZXyWdLDj9Ln+Vn/qP6TR0/2HkEh3uj2eQzKgSj
qaE32HBw/W9Ic2QHotC3LYfB472bV3ckiv5uMofhaSYpk1SJor7M4HBfK7Xa
uBOBhrzhteewp3z03Z8UC2pu7c1z4qDyZ7xriRpBoPsxq7kLOHRv/i0+3plA
7Ub08K1LOHxru7RA0IWALj/IW8Gh8HHJo4XqBLuOCxzveHNQL5V+GdGVKPxz
A4fIHpanNTQISr9+n1Xmx+GlsZZ+DcUV01S3ddvGoWm8v+nFbkShh+0cPsw7
+Sxak+DLJ1rQBBzEZZ2HrNIiOC8KKRkp5VD7+/bg8d0J5PIaG8nBeLPd457a
BAsko59PjeVw9eQ5ppbisZT+qvEcDuT49brcg7Tr2yWZw3SraydieirvT+Ow
L6zh68peBHJ7OH6YgyACFaN1CNIDbw0ce5zDsh9tGzV1CfL6a3ezOsnh5j+/
rCqKJQupoWfT/e96G5utR7D95Pnl/3I5rJ+UTMS9CWKGb7U8cJnD3smV7m76
BB9zT6muLuKAbd/HDjQgaDXY/KLXTQ6D1prdalHiuLscjs459/deH9LeH/Qt
5qDz92NliiFBjbt+ruMTDv6q3dZtMCKKelLKoTnO46CtMcGsYOHQ+xUcJLyp
WMuEoAM1aI1qDrZbDuu8ori9H3zHQS3C1D6LIXi37MDzc3UcdM+8HRXMElhn
TnAr/8LBJ2jQ7ZmEwCzhX0zoNw6bBoxTN+hLFPPKLw6Oma4/3lEs96O9rRzS
Dl6JPtuP5m9Npa9GBxkeLs57EW5KEHRk8OQUNRmOVnAP5poRJFI5R2vI8Kh4
ra/hfwTO/vQN3WVwTjx47b0c0/5pio4MWnN9r2ebE8jTNcxAhkFn9P1D+5P2
enDUWIbsCc8fzxxAQN3pvUlfGRr61r/WHUjwk7b/V/+ToWlsSmoVxWeDm06X
DJShK2OqmWFB2uthzyEyWOsWDfQfRNrnw5oRdH9GOb9sBxPFvGsjw8APtgFd
LAmyh9AKYSvDwTeJR0ooru6263jHqTKEDukiSRxC4zU+f368gwwWadf0lw8l
+FH+YsdmD7p+S3ORxTCC+dRghq2l7/vEzmuiWLdkSummABk8NMb+ujicwKsP
zWiYDAUVCfN2jCB47vp56DiBDK5PtnjMGEmw8v7i2TNEMhQa9DDSHkXwmba7
4ggZkmMPRj6j2ExuILtkUHvlfSbZirT76bIkGVqcU2XLrAkeZhQ/c90vw/Xu
oXr9bYii3z0sw4rySS6fKZ4nJ9xxGX5N7z/zzGiCPV7cisUn6PekejVuGUPA
fS9/0SFbht1vbezHjiUoObvgx8UcGUyrXni2jVU8//lFGQTaYeZXxylxvgzh
OasOiscT2LktOlN4Q4YNxbeezLCl/LvRlh38UAbOsPxStwkER/KL9M2fyeCu
U+b2kOIMgePMfS9l0P/ZnBFjR9r7u8NVlA+FW87NB2k/3yiqkeGbhchfdyIB
7ca6fngjg0uux6dnFFe9pgl6L0P9Qes+CZMI5PIwqZNB/cuMNrfJpL0+HPws
w6uFd5MMphB4kImNb75S/mxo/FJKcXPa6rNrf8mw2ud7y96pVE/yAa5VBr9V
XQvdpyn049uRR7LpqnEG05V87sLD3AabXlCcdyGq8yYNHmt+3l8cP4NguLxh
1OTRP3hiJ5eZBEbyBlabx7tDj1fozCLt/UhGTx4zdXNCHlFsMTbu3j9der+V
iUP0bIIdnW5EnzHgMcDarnzOHILk9ybp3sY8pN0c+mrMVawP78tDxTe87y2K
9XMfqSwx5/H8Q+cKoT3Bv+zgpmGDeKy/rOcIB5q/Z5RgQ3nsba0Kb6VYnp7P
w3n82LF33YV5BJfjY7RbRvKwqfft6e+o1LMVj5D0VL+h8wkc5BXVmkdKzbzo
OorNLrZKv4/hEZp4afURJ9Jen1lbHstitFo9nQnk7QjAY6RL8BxDF6Kop1N4
VNhZLXhK8WOVyo6yGTwi/db32+lK2s9LtOby0HjpeGy6G8GjWI+2aw48Og7p
/UnFnSj6tXk8HBs/1l10V97vyGOe3990vwUEe1/tkoqdeJjeC+83aCHBe7vD
VRNceLRVH1r4ZqHCPx+58QhcEz8veRFR9CeLeJS8lnZy8iDw7rd+W9ASHqN2
pwdoLCaK/mMZjx77zNKLKA7PhWC5Fw+XGsv4bUuIoh6v4XHZoGnyUE/K1xHX
z5xcx6P3tf2n31Esn9cGbuARMcKrInkpUcyvFNdKNt1yXEb1PDSvf7QPjcfJ
Bt8uyxX+8NWXx3TvHhWXKX6ZRQuiP48gqHT2W0Ha59uX23gE7/7cYL5S6e+h
PObGdkwqp5iOU71Ud/AYOmpjpxgv5TrFNbM8h05ZRZAQox1kHc7jy+Z/hr8p
vndg6vlvFFcxIbcyVxPFPCngIYvsYOXpTdr7o2UUzynOW9FrDQGdbrwSxTzm
33vudIPiGdVBukMieRRbh6ptW0ugZ3LnnV0cjylJr7ZZrCPt8+bXPTzy55GT
FRRPaan/hAQaT873yM71BAG+RlpL43kYTWxdgg1EcZ5Hr+8879PLRop7r6UT
Kr0+yGNNn0M+tN5NmvChbC+NX3WaofNGgpsbRoXnJvLIG3q5stMm2t9E0gEh
lUfamndeORT70OUrR+i6dNppL18CIbUXlUweb1y7Fuj5Efy+ujJjaRaNzza3
6BsUy487tlKcsXKh2ZbNBK7dLbNNTvCIXzVuu5k/wVfxHeciivenmSY9oXjk
9TNDvlCcpDE+WLCFgKp7h94ZHj5+J8jwAJpPu5sVVhcoP0PS+CqKjT/VWCfl
82g+aHsxaquSjwU8qm1OZI3bRhTzCsUBK/S9PlJM7f+2tJCH03+Ha+IDlfXn
Co9tzsH/TQkiqPTld66kOGz/dctGiuX998IbPF5Epv/ZF0z9hI6LUx5QfQfN
jp4VQhT9ZgmPqLQXH35SfLKUJryYx23NzeqHtivq4XK67p8+5Yt9KEE+tc87
FE8cvjmpJVS5H4q/TP5P62gYvX86JcATHuHzd0xzDCeK84EyHluPn5jWGq7s
F1/x+OdTopW+g0DdNtmFraR+eUg7xVFAMHNfuPkkijVIbOMfig+ZUkOpovxI
Cup+VEjreQIVNMV6aY1NDiKCrBOlnj+rafyTjfY3i5T+XctD85GJziExUZyP
1fG462niMEdCMFcvctbajzQ+k+ycflAsSn2Q4fCJxySHY2yqlPKZpv/pZx7X
bbafm8YRxPfduaWxnodYVtOzgWL5/De7kfrryVabBBlRnE9+41FZ12Buxyv1
/50HWf668j3FrvszT5T+pPro1eS5M4L2c7TdntvM48LzGRlWkQRyu1zUQvW7
Wr2gIlJRD//84VG6wDlZGEUw3l7ueFRvZN4ki51EMZ/943FDgz1bQnGzNu0g
O0Tg9rS39QHRBNHUbh+rRuBI1dUm4xhFveqiFoH9Ba+KrsYo+iXzLhHok+m2
yDuWtJ8Hr+sagaJZToVacdQv5+hF3tWIQEHfb/XZcQr/D9KMQFncglq3XQTy
7YRqRyC96lhmK8Ub5QLoGYELA1THHdit1I9OBPI38Hum7iFYfuD5qAbdCGRH
Lc37SHH7+VzvCHSfnp4VFU/7gZsVOSL9CPwPbHAOKg==
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 454.25}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {450, 1300}}, {{7.608374474380783, 
             8.294049640102028}, {450, 1300}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 454.25}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"a)\"", {FontFamily -> "Helvetica", FontSize -> 16}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.15, 0.9}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox["\"Gt C\"", TraditionalForm], None}, {
             FormBox["\"Year (log scale)\"", TraditionalForm], None}}, 
          FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{500, 
               FormBox["500", TraditionalForm]}, {600, 
               FormBox["600", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1200, 
               FormBox["1200", TraditionalForm]}}, {{500, 
               FormBox["500", TraditionalForm]}, {600, 
               FormBox["600", TraditionalForm]}, {851, 
               FormBox["851", TraditionalForm]}, {1000, 
               FormBox["1000", TraditionalForm]}, {1200, 
               FormBox["1200", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {450, 1300}}, {{7.608374474380783, 
             8.294049640102028}, {450, 1300}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], 
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJw1mHc8Vu8bx5/B85xHKCNknHOKZJYGSnRfiTRkZFb6kpVSlFAyI7QkJWRH
UkZRKaWSSqSBpiIaSinrsffv9u37+8vr/brOc9z3NT/Xme3svdGNxWAwTjIZ
jKm/c8qbbg17kbBpSVqasGg3Gs5/6xqxl4Qyo/53D2z56MLTbP9pviR4N9xU
uV7Rh7TArCvOn4SrLxfSgfcGUL1zQ51UAAmaTqxbne5DKOr2SoXkQBKUq9Je
VRwcQYlCUe/kQkg4JFAZu3BwDE24pE2khJFwjBU8x/z0BCpQCkqUjSDhrbJZ
534VBpQISmQnRpIgFEksPbyTCVsUzRUljpDQRftfrFvGAoIjKxtzjIRAySsm
X/TYIJe/6ahgDAnlPSXbEwQEID+m2ycolgT15mp9fpUAzLl6r6EnjoRm/bez
dSMEoSoj9a5bPAlGx3e1japyQCXajW5IIOHOQoNtR6s44KXRIbj2HAnxAxzH
JFMunJkQ8C5NIcHsYMvQx+tciJIP3KqcTkJ0k7Du514uaG6VfX06kwRZrwdt
0WIEONjl1Y9nkXC5YokwhTl7R9fm7TkktDEq5A0muCD1MG9PbS4JF+sCYrZ+
5UK3W7KkTh4JwkWxZltvc0FpWcCalAL8/3dmnKw6wYVmwUmRySsk8Nvl2dfs
uPA54rP7tmISpr06Yfx6FhfeOdZaP7xOwvYUudcS7zhwwvDgh9k3SYjjn8Fv
4IBEw4mB0FISbCouXTADDrx8d7Ww6Q4Jv4K/edb+EYRdnKOMpfdIeFq9qeH1
SUGoXV3WHVdOgsG8e95BmoLQmPAjtL2ChJnfxjaoPBaAJXKXrq58TEJY8uab
7+wE4LtS8qHEJyRUd+0eud7ChmFd68Hf1dge7Ntes50NE2Ke4ugZCUOzpEUP
t7JgT9GeN6deYP8/mG19eRMLFOz6VnypJcGQt3j3ZA0TdiaEW2m9IsFt1ld7
aV0mnLLMkQh5g/29+/giuQsMqHj8LazmHQkqfKVfyTwG6B9/mDrzAwnW3iK7
zn6eQLY5jzwcG0lYefeKY1HKOHIPcf+R+4mE7F9/XPdIjqE8/jzprhYSzgbb
CUxuGUWyNuFjS76SkKee8T2gexgp+XUkBrTi/Hufvcfg2BByudDcfvcHCV9C
1T8Uiw0h7bvVAxM/cb6t8Xh2O34A2SvK30O/SdjiqHTju0M/cny9GoV2kPDK
25H7clY/0vjnRsi9LhKWqWy72NHSizb0vgga6SHheeia8mCFXrTRbURPp48E
nTPeN28v7EWiC9Lv7Bkg4YyC3KEDW/mo7oDc+OUhEo7vnVCWnMNHRxVesb+O
kCDXPyOmM5OPvl+l6mTGSZgQNT60QoyPrEMdXcwmSfAUnfG83oWPeGnt98OZ
FET5ZG2NjOej9s/SrSVsCsaaL6JR/Lx35/I3bYIUJEV9UXSu4SP/ZZdPyRAU
SGewnPQjetGMaUWya4Qo8E1asODB/V60OCp9n78wBYubwmqnZ/eiXQUPUrNF
KYgsjqS5Ob0o1NkpsXYGBdoluwoXnO5Fo76VriPiFDxpKjkcZNGHHqRqc5Rm
UjB9WsnFgKpeFBzRF2QqTUFFYVlA3qNeJFe9qmbfLAoOTFNSCTnRh1TYLl3n
5CgoKGxw9DfvQ0rPYjvuK1Bw+a7ClxtOfehDqeCTrxQFZvVxDhOP+tBpz4kA
wTkUuNpXyp2r6kPWMcVC85QoWPJ+x4Ucnz7Ee28dYKJMgcNmkaOBGv0oTVK+
yl2FglyHL1vnO/cjSdVl/YfVqL/1ge2nxZsEsjTw+51n2C+70Y/sOxcN3ptP
wVT5fXjaj+6N7XjRoEXBuUM1Q4Pn+pFETv4R/iIKrs33ymbqD6DjAbTaNG0K
+IEpE39MBhB7ede1OboUzFA8bCKHualJX2nZMgpWLau/YrhuAF07ohFqtpyC
2w/LHB7vH0CzsloeOxtQUMrMoFYfGUBra/wG/BAFWqYXhVbnDKDKb8Izj6z8
//0HUM/MitnnVlEQM3W8zwOooK5A4bIxBTbNJ/ds7h5AtbU/eaUmFAQsf7ij
YtogukmeaKtcS/3NJ3oQXZUruPVqPQVT7fyH6iDyCnQIbN5AwajD7sqJRYNo
t+nVxb/MKVi/KWrpO+NBZDpy4wvfkoLk+HCvBTsG0RzLoKhRKwqmjjfXbxDV
hIkrsm0p4H2pfyLmOYhU6YhSnj3+vf8uga/Y7qTVYDJ9M7ZbWD17d3AQTaNl
X0k44Pv+qg25cGQQOb40t5f+h4IOkfta5/IGkd3JkMZZThScuB++xKV+ED1V
zXOQc6bgef23QZ3xQXSw9U2TnCsFK9W1XP3Uh5B66KSDnDsF1cLWT8rNh1CK
nmrzLA8Kfp9K+cIJwvPqo/k26Z0UeI1cp1SzhlD8Je82iV0U1N6LXn+ybAiZ
7Y/YO92L+tuvPgyhyQuHGUJ7KLCISfQSZw+jBNLzLNsH18er0SfvyWEU5Ky5
cGwfPo9x0Dx3g2HkHvHgTa8fBQuJAvnNrsOIUpc51L6fAvOtwxq1EcNoQ5qy
7ucACjKKHrNrLg4j9TtNg28CKfA3J6V2vhhGiKn2uDqYgp8VnzaVdQwj4fix
1LJQCmSjYo+oio2gW0tXRhQeoiD80ijjgs4IKnT4tj89Aj8fPpKwbOsIMpB+
EXgykoJ/wxE+gjQ12mKDoykwSLHJyC8cQetFZ5V4HsX1POyOJ8gI6v+y5o/9
cdwvbO7GBbSOoNTQLTrGMRS8ufX81zWZUWTkvyReKxbnl8pUREZRv8hNjlwc
BddfxPzirR9FS9ZVnBQ4g/Pn3wuMIo8/2pod8RRMlaNJyCgy9Od/fZNAwTJj
E5/h2FFEarwpKkvC+Wf6qFuseBRtlb6VeD4Z96NPZ6IjP46iUsI/KSqVgg0z
T6xrFxhDccnt13emU+Bz7GQrnxpDeos72jdk4vc5a64QhDGEuDYrtLIoIIcj
DrX9M4Yy5YauiF2gQN4x0H1t2BgSXpNvwM+h4KG0spVg9hiSWmb4uz4X14P9
Je0XZWPIzSe2tOgyBc96P3cWfBpDLRauF0/mU3DKc1Xl0skxVCMcV+JZSIG3
2sZtu2aPI35Z6w+TqxQc7vb4dkR7HFVYaS5XLKYg+MpN59BN48g2X/f6+DUK
wt5MCZxxlBBca/7+BgVuVle65yeOo+We5WJFNynYvSzxa961cdQ4VjccXUqB
8JnL4ZZPx9HvC88JxzsUTKwRm2XbM47uVQTgGYT7VUCVqp74BArJSE8Xuk9B
59yYej21CTTvIGNeSznuD+IffeYbTyCfUJcP1yoouBPRcM5w+wSqrDt2M/IR
Ba+1goxMj04gucil5XaV+LxxdQn7Lk+gH3mafSpV+P0Jhf3GDydQ/1o12+Fq
7L9iqQwWnq9r3Tq+V9dQUFYaw+mWmkQdY0suJD6noD+1736P9iSqm34/zu0l
BeMfYiXjtk2iY2lGVxfV4fh0xou+C51EWpcixifqqb/66/IkktHRDq55TUHa
6s1q3lWTKNFKfMHZtxQEva057Ng+iZ5KvpZwfI/9W3bdv1GQASaJ8zVUPuD5
0fny425pBrSwGw90f6SgxLzKhaPGgNWnYkZuNVEwf98dDWUdBjwPGykOacbz
7FY9o9mQAYJqbzOMPmN7pY1biw0D9vJrH/O+4nyaGq9ODJhrnTr75TcKqKmA
eTHAtbn9Ztx3HA/9QXJ+AAOMdT0jrdso2HnX94zMYQasUXgeI/WLgm9VSWUJ
pxjQ4VFW976dgvZrSQ1Bqdgu+sMs6Q8F90a/3duZw4BYcoiw76RA49YNWfFb
DMh7mjop1f1/fzPglmPI4rc9FKzo6H7v+oIBpzauzjndS8Gc8QG/z00MsNBN
szHvp0Bqw/Z5Ed8YUF+lZjxt8L959ocBiq1nfZ8MUaB70v64OZMJwvGHW8NG
8Lz3nrtch8WEACL1rN4YBcT+7R03pzHhT2rYkd5xCvTsJ9u0KCYMNLy9lz+J
+/OZjXUdc5nwbCmVUsyg4SsTZ6wWE2znzh8+waShVVLh6XfEBA19j+HtLBq6
F8+XJ9YyYWGmQqohm4aUp7qNTfZMeC6S/kVegP6rz5yYcLZxac0A5lVt2v5H
sb5njOrb1gnS0KtfutxzPxNEh4ciL3NosLynXWQTzoTeiTubwrn0f3qWCeWv
6uo3EzQcmX/J+9wZJhAN0Z2LeDSMVzzY13WeCSdmaBYJCdEwB3drdiETPsqL
SH/FvDK52EOvjAl8fV/F29NouGV8TmTRUyb8tLjyNlaYBs9bWz2uvGZC5AfO
fHcRGpYOPXTN+8yEtqFqDX1RGnTyV9ht6WGC/D70Smw6DfM836xaMsKEh1du
kG2Y09unBgoLzpf4iN+dQUMlXeTjIcYCE+1HhafEaLgyJV9IFqSFdnW7itPQ
fvaa8F4NFoQfh6alEjS83jAlMFiwrX/CW1iShvjoyM2v9VnwZNKnoAWzU3W7
be1aFvDPtMZdm0lDKW7HSfYs2GWYQkdK0XBYxPxqvBsLklY129tJ03BUNc5o
gQsL4ECfnqoMDZq1EbiCWKC+U6lqBHNz0W5L9wgWXDS9Mf5sFg37GyN/6MWw
QGL8V3OqLP1XL8ezwJc9zXO3HA1aDSKNUjksGD7tkGUgTwPn0NlVxwtYEHVM
MVJEgYbUXL1W91IWGPhdkPiEedcf8bdbHrFA8LiiWQFJA72aiNV5yQLJ4tYl
gRQNtZ74gUYWeB1Ur15L4/Mfamt+9B3vByrLCZnZON4aUwqEBZb5tv3fMcu/
lkg4wGBDZtaD2Otz/osfjw0vt5a9D1OkwSXxUrOsDBsuNh15sUGJ/jtPldlQ
X7tzr+xcGn65ST7T1GSD9bmsRz8wK+xfx/2N2CCyYe/ja8o0/DveV7FBvVja
N2QeDWV1Drlxtmy4tuLdq7Uq+DzbZnq7/sOGrtkdnyVV8fnNOCZPPdnA10tN
b8EcNyUnQtjAIxWF89Rw/qz7J80ljA06khWqvuo0wId49bvH8fnkSgYNNGh4
u4W9ZW4SG1R/GvhzNXG8N2DFl8qGrG/ncuowb1i38lbiDTaEzOdGnZuPnz9b
y9cvZYNa5iNp5wU0dDQQj3/fwfYq4S1qWjgfp9bnGvz/flMWfMxVHgo2G+rY
4CCkN3h7IQ1T46DyLRvuNyVaHFpEg/1UQXeywfa1n8OaxTTctprqAGwol5kh
N30Jjr/i7bHoPjakxGWdeIt57sFZlT7TBEDwk0dxijaOv8nT/H3CAjBinX50
mw4NIXrkYotZAvBYNGTmPF0aMj87G4soC4BLo6HNH8zyQdsW2WgJwKDJvLXF
S3G9U3hDMhEAtXS3Hr9lNEyt+2p+AhDfqmump0f/3RfqBECx5b3jBGYpiZRY
z1WCED49VPnhclxfT8dFjSsEIazEPStSH/tX5kCngTwHdtdWvV5jQMOx/Jr7
6uEcOCLbeGfaCvrv/pTFAXuJD3YvMbd+tFj40pED0gPDeacQrr8Lkr6Bazkg
Uu53YyPgfO2yUZcI4UCv2mFfyZU0pN3hb0qP5oDNLYffbzH/2872cqAjS2dW
oiEN5U66u7bEc4DoXDNht4qGqfbWXsiBT5trkmWMcD/0idx/u5oDXbt7Ohsw
W9utwBKDA9u9+kaSjGmYGq9OYxzwceeV26+mYcZB3HGkuZCi6L5cxoSGvQXH
Gz2AC8q6sOc9Zg+HpTNOG3Nhx8DzrQlraDCyzDRvXcuFeYErBWzW0n/1kSMX
vme/cpFYR4OfvnvmohAurJUsCarHjKuhMOow/r22gnnsehoqlimuC4zggooO
ajQ1pWFqfRNP5kL0NPPZQhvwffRiblinc4GxN2x2FeYLVvgC17nw7ienKcIM
z4fnV38wKriw6+5MSzCnwfyX03jGIy4kjbWEjWHWXvkmmPGKC/2HkjxLLWjg
r6x1f9vGBd2OvWK+lri/uPrlt7VyISg33WfBRhoMV00KSP/mQupXi9h2zIGe
TvkC0wgIOXdne44VDefPh4Yfn0nAtlMiY47W+PnZLNHzQgQstgk0lbXB/e7s
LcVUKQKakPamN5iXbjfa4a1FwAmfXXNO2tKAm+URFwUChD5aXjKxo/9+v6AI
YM2X+s2wp8FiT3EWx4oAy55f7bcx+52REbA1I8DCZzzXZxMNKlMLgSoBis/C
5qhvpmFK3kwuI2DiS/bmb5hZeF0jzAkI2JFgkbIF+9eWJxW9mIC6z9ECVg40
fHz6WSVAm4Al8bn+QltpUA3wO8ncRMCMNKXcCszEj589gVsIsPmqmXDgH9wf
X4dLBxsTcFeGv2qBIw0/d6oPJG4lQOpRRtF3zLuxmurZSMDxRW5NKU44f/C2
Wq1DQFvUnirLbTRE4G3JF3PTla69XGecr25miZVGBJh4zGi6izlvlVeUHPbP
QWBwfFxwPUUP81kaBATG/+lSdv3P/+sJ2BDHSm7E7JhkihU5AQuWeAuccqPh
u1GZkCoi4Os6xwVG7jRMjU8nawI6903KDmFe8GCFnp8bAS1kUFX+dhoKLlUs
EXYk4OgJprajBw2CI0bpSvg+prVlLuI7aHjTk3So5gABG5+9s6rEHHrXrtAU
c61OiOCBnbgew5QfRm0nwCj50wE1TxqM1U5oCgQQcM+CvtKE+WnRMd1Fsdif
R/bmnNyF+xNjY8pSbJdbOfYP7Kbh+j/C340CCeBY/P7Yg/nf73FZ+P4OO2Zl
e9GQZIkVWjL235dMWWtvGt7J00nZ0QSULbjbLLCHhgDmQP3lfAIyd3x3K8H8
V89he/TqIre9NPCOUS6d+PffbHn3Z/rgfiEe8aDmPPbPAbvYSsyqz2ZU3Skl
IM91s5LfPpwfk7bXXLIJSHBfHqzki/0p1OUjlkFARqZi8mvMU2rtRQkByUL6
geF+NHjt0FbqLCbAy6eQXuhPQ09aUr/zJZyfQZnHWjCnv6oYQVUEDGcZ3I7Z
T8MewmbnwAMCvugWFiw/gP1tOchcU0iAv4u02y/MgYNVgW9rCLCae+FrQgAN
+pI4Is0EHLAOnGt0kAa1J8MpFtUEhGY81uzBXLk0VEKonoD3J3JH0wJxPLD8
L2kjoP/g+th1QTTsjC5X9nxDQEzm+58DmDO+B+zZ/47Ae/g+IjsY59do3JxF
fwjwzTXqNAuhof6KYY15OwErF+5LHsFs6PS9bk4jzp9Vc0UuhtJwOdrDl9tD
QNjGQ6stw2hIELh02e03AfsvF64ew/yyquS8cxMBk151IrmHsP7gDWdu7yVA
OXt6qmU4DbqPRIbGunG903E9o5hV6+bxlX7h/Eg+KHoxgoZF7LM9Xfj5mZk9
fPPDNBRGPTZImMD+T5HLGMYcbZHjPr2PAOF6BYnsSBqmpt0kttc4KpibRuH6
NJEzKRDkQaghsuqP+k8fTxJgaH6JSo+mgTu1cAnz4LFu8I3VR2hQ1w7MnCnD
g8ijX8W6MD8Ht7FRbGdcGdNNPIr1dNZV+gW2N7d3KaNjNIwGWMUJKfKAdv7c
/APzlLxiy/Fgozjf8eRxGt5HHcMTjgel79bkaZ/A8yspu6pLkweB24n7TZhT
H2NBqsKDhk3WKRExNEy1M1FsN6UtDNVO4n5cZOGZrMuDSiHqeh1mvavF660X
8KB6dWuHfyyO18DBwarlPMhpeciXP4XzA4+TCQMeZNz/VPEQ87+fM7B9Vr7d
Fo84GoKmPnet40HFOqtykdO43lTtDiSu58H92b0d1zBHLy5PZhvx4MPpTW12
Z3D/7++9OMeGB7ktl/LHzvw3T63xfVTYy8/HY7285YfvJlMe3Nt97KzxWTwP
N2MPOfHgWoxT2S/MW3PjEmq28EDUJLcgJoGGxMrHP75t5sH/AFortqo=
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{Small, Small}]], 
              LineBox[CompressedData["
1:eJw1mHk8VV8Xxu/EvYgSReScIxJSVKRMe5EMpcw0iCIqSuZMIUKDsUSZEpVC
RaVUhlRKVCgNSpGKInHNs3fr1/vX/Xw/90x7rbWf9awt7XjQwplBo9Hi6DTa
zO+iiua7o+4ELGDZCC27yUWj+W93R3gS8GdxbIOGYj+6+DzHT8CHgK/rHXRT
VwwiFdjck+hHQOFU3a5yrWHU4Pihfn4AAS5ZK6cOG4yiqHu6UqlBBAhbLjpu
bzCOUvij3kmGEJBr93XHcsdJNOWUMZUWRkCGEwwFHppGBbLBKRIRBKgV77+m
/JoGxTwiOSmRBGQGzU5ZOEyH7TKmMiLHCBi89/HE5A8GcHglJGJPENAn+yv1
+TATJPO3HueJJWDNnFM8Jq0syI/t9QqOJ4A/jDtL4j4PLLpR9oGbSMDjIwlK
O8N54dn59FLnJALESn8uNVrFBvloZ+pDMgG2O6s7berY4K7UzWN8Dr9fwcfe
yZYDp6dYB0vSCMi/2XOitYIDUQuDdshlEhDi01mzZ5QDy3ZIvDmVRUD2jsik
86J8YGeb1zCZTUBi32nX80J8kLOvZ9ueSwTsu1oq9XWAA/Mf5XnU5RLQXitQ
GP+KA73OqaKr8wjY9qBbzzuDA7JrA4zSCghwfqQ82O/CgS8804LT1wkwjG/5
NLCEA60RrS67igiYr3Y26us3NrxzqLN6dIsA0xeBK5JOsyFGL7BJ+g4B7g87
ooX12CDyIWYotISAHfNF0uK7eOHVuxvXmu8T0MR50jUWyQv7eY/T1pQRoMDz
2f61OC/UGTzoTawg4KyqQdeVPB74lNwe2llJQKx8t2C5Cg+oSl65ofsEv+/U
9XPBt1jwQzb1SMpTHO+M9x8WK7JgVN1quKuagLd1aSeszjJhSthtLqolIEtC
+bMsLxM8Cj0aE14S0JDsrXDdlQFStgM6X+v+xesVHVyTwy1VXuN8yE1YIGU6
JJhfEglpJOBcZuET5gkaVD75FlbzjoBfOHvzX04jrZOP0uc14fhKWW+a4zuF
bC493uvwCT/fNsFFSWISuYS4tOd+JsDgnODK59XjKK9viVhPCwEjHs89c33G
kIR1+IRqGwFXRer1P/SOIFnf7pSA7wSsld91udthGDld/NJZ2k7A4lM/nUVr
h5BaafXQ1E8ClLhhNxVsB9EWmYVlqIuAKOvSxIDv/cjhjQEK7Sagt+LM7w+c
fqRkfzukrIcAE0/rpkNVfWhT/8vgMS4Buo2HaRZpXGThPKaxeoAAuqtr07aW
XiSknHnfY4iAzQL2A/Mu9qJ6f8nJqyMEhK8NnPgix0XHpV4z28YIICSP+O+o
6EU/bpD14pOYv95uXe/Qi6xCHZw2TxMw76rKnTm7exFfRmd5OJ2EuY9yYmXe
9aLOVrHvxUwStuvp/GxS4qKDfzQbO3hI2OW5pj//Xi/yW3s1QZxDwheyx3rp
6V40R6BQwoifhMqaC+vv9PeiVVGZ3n6zSNh9KvFWYS4X7S94mJ4jRILmd5cS
OslFoY47U+rm/LtfhIvGfap2j80lId7SRzZlmosepqvxys4j4cB0zYbTr7no
cMRAsIkYCXxfG54Ku3GRZPW6Gu8FJFR5bcyX9uQieaZTzzlJEhL1lXO2uPch
2dr47nIpEujidVkXQvtQUwnP0zaSBOEFNlyDdi465TYVwLOIhIpwVaeGAS6y
ii3iXyJLwoqi0ZLVjX2I771VgKEcCb6MVI5kZh/KEF34zEWehLc1Rx069/Qh
UYW1g0cVSSiY9j6rrNyPTs1tZmUrkbA4cEGVV20f2vJn5XDZchLyjCKLIrP6
UNnEvpcfVEjQGiaWr3XvRyKX8o/1rcTP91u5ZoN9PzoZQCkKqJGgL9Z498Wv
PsTU7Lm5SJ2E236fItvv96PmZi3ZtWtJsEzkdxKo7Ec3jymFbtYk4ZHJp4qb
Fv1oQXbLE0dtEoZChfp/8Awg4xrfIV9EwuW3CSXPXvejqm+z5h3TJaHJwc+U
SO5H3HmV0ufWkdChEXvbyn4AFdQXSF1dT0KAbxy9qasf1dX95CsxJGG+66b+
uDf96A4R01FlTMJGraz9NWcG0A3JgruvN5IQjuWSoT6A3IPsgr5sIuHavi+e
J4QG0AGTG6t+meLrq9naaW8HkMnY7a995iT8LH263LxsAC0yD44atyRBh+eh
P2/sAKoJmyvDtCFBaN63iU3yg0iBiijh20KCa+XJ8nDVQbRT5YPh7G0knBt0
lF+ybRAJUBKvRexIWP2Dv8crcRA5vDLdImZPgnnEPnGd7EFkGxfyacFOEtyW
DqV8FhlCzxXy7CQdSRjdjAVQdAgFfm9sltxNQtSad1UHVIfQ0tBpO0kXEgJX
5+vYbh9CaRoKXxbsJUGaHNhvc3gIRX003SXmSkKIBrHK7NwQSrpysENkPwm0
mD319RVDaPOhCM/Z7iQcObPu5P6OITR98SiN3wOvV8XBPmxyCCUTbmeYXjge
py3quxcPo2DHZSsmvHH9Wju3zNMdRi4RDxv7fUlQfyw4MqEyjMil4kc6D5Hw
NJcmXkcNo00ZcuqtASRcGFnRfv3SMFp6v3m4MYgEScWno2lmwwjRFZ9UHybh
4XZKl+s0jGYlTaQ/CCXB7LvxazWREXR3jW7EtSMkrD+ik7jk+TC6ZvftUGYE
CeXRG+M08fO0xV4GxUXi/Y3VbOu+EbRMqSP+cDRef7Uu36oDI2ij0IJit+Mk
GGrr52hyRtDgV6PfW06SgLtfyhX7EZQeun31+lgSsgPdduazRpG+n2qSSjwJ
bE77T24Qvl7wDq9k4v/zNYJUN1TGsU6TYKtT29/qPor2/lZb1p1Egmi34sUJ
2VGk59fX1phMQtn4tzLXHyOIUGosfHCWhIix5LU7kkfRDrG7KRdSSThzVyZ9
fukoKuH4nY1K/8daoygxtfOWayYJNoev33EMHUUaq7o7N2WRIC6t9XGN4xhC
bGsdlWy8f6tmAjyKsiRHrgtfJIHF8h4YKRtFs4zytfsukVByg9kRc2UMzV+r
19WQS0Ij9+yRGv8x5OwVX1J4lYRirKa6EmOoxWz35bh8EjIMtikefDaGamYl
Frtdw/r5pvSbqNQ46nvwvd3wBq5nLN8OF8dQpeUyTZkirG8JxgavHo0hm3z1
W5M3sf4E65scvziOkg/Xmb6/TYJDkItxmMQ40nSrEC68g9eDy6Vyegx9mqgf
jS7B+ydZx0d3chx1XXzBcbhPglODj9/KknFUVhmAexAJ7mKpXaoW4yjkfGYm
fznWnxkDhq9fEkhb0lKB96vy3I9eyyeQV6hT081KXF/vVHvWVI2jqvoTdyIf
k6Asxs04OziOJCPXVNhWkXDatkM8oWwCtectG5B/RkKuz4zDm0CDxoo2o9Uk
7Ny6z4JfYwIZO3f/qK4hQcx5dbWszCTqnlC9mPIC70dcHScfT6D62eWJzq9w
fbaszK1tm0AnMvRvrKwnIXiJS5n4hkmkciVicqqBhJnuEKIwicRXqx2ueUPC
ZOlVo8gVkyjFcq7ymbckdHkXzxvfOImei74RcXiP6wVH+7nzJDJMWa4k30SC
0t3bEnMPTaIW5if/3o8k+AvIyofETCKDhNixu80kqM0ihS2zJ9GLsLGikC94
v25arxhzbRLxKL49r99KQmE7rXJh2STy7Kt7wtdGAnaT6p+aJ9Fiq3TpV99I
iH6inawzMIl2f+m8k/iDhNjAYwaH5kyh9epukVYdJKy9Xe1XTk4hI6kXsfN/
kbA3gGjOUJtC3Xsf1L/vxPk0GjUuNsX/C7VvPvubhKC/BT+F4okRzpY/WC9e
Ent5oqZQ3vP06fm9JOzfntREnZ5Cdx1CVr3lYr3+JbeCUzCFEiwMLp3qx/01
L5XqLJ9CZuoZ1qaDJHxatZHR2DiFGp4prhcYJoFf2INj3TmFZL6f8Xk6QsJv
sd9RBwSmsV4c/R42RgJPVIH74MJpFMBJP6MxQcKDkEr3D6un0e/0sGP9k//6
28ZpNPThbVn+NAmlPqfFWTbTqHYNmVZEo/7rH27TyGbx8tEYOgU8YktdVWKn
kZLW3tE9DMzun19aZkyjFVlS6XpMCubFbOhk3Z5GLwQzvy5kUTCj/voPp9GZ
T2tqhjBLd+rQrmL/RhvXsqnnof75p2kkNDoSeZWX+ucXplH/1P2t4WwKdA/X
pi8XoEHF6/qGbRwKZtI/LE4DzofoPyv5KJhRxxdSNIiZs6yQn58CAQV0dUiB
Bh8XCoq1YV55aJk0qUqDPi0fmXsC1D99psFPs+tv42dREHYXwtsMaRDZxLvc
RZCCK1JTqQXmNOgYqVbSEqLgdmGu1NQ2Giz0Rq+FZ1Ow4FpOHp8jDR5dv010
YP7rr91ocKHYa27pHApUZgy7Dw0M1R5fSxCmYPviLQtfBdMgI7Snd/dcCpwn
xmMEomkQfhKa14hQEIO7oVMiDXYNTh2cJUoBVgvZwHM0eDrtVdCC+Wug6HXD
C/j7T39PvDmPAtaMQb1Gg/16aVTkfAoig+tvbS2mwdl1X7bYilFA5P40Wl5B
A/Af0FAQx+vfZmgt8oQGS11ln41hbjGNTXHH89Zlk9uTtQso2Hur07v4LQ1E
Jn99SZegYMY+fm+lgQ9TwO2AJAXsolWRr7poMHrKLlt7IQVN2gFbrgzSIOqE
TKSgFM7/lavObpM00Pa9KPIZc7vPVpP9UzTgOSmzuYCgoOGnkOMefjqIFn1X
DSIpsCghIruE6eAeuLTamKLAP/CS0rqFdPCQ1+SIS1Mw1t31cK0MHczzbQZ/
YGZJb33IWk6HrOyH8bcWUbD5zyF5flU6vNrx4H2YDAV8Zpa17zTocLn52MtN
shTMdeMq0Azo0FDn6imxGMc/GE+EJnSwOpf9uB0z/piM91voILjJ88lNOQr+
bjc7OiwtEvMJWULB982/dk460OGmzrvXxvIUOBgUNb92pUOPdHerqAIF2L1p
xPrQoU8jPbMF8/Mf6GJLCB34CJlZeYoUvLsSvdcnmg6rRSsVfJZScKu43Gjv
Sfx9ksXD2kr/zzcdFH5q+7GX4fgjC/2oM3TI/nbuUj3mVWYLpnVy6BCynB11
bjkFettfXSrJo4Ni1mMxR2UKDh5hVcUX4f+fzdquqELBa7XTB+/cw+/rIs36
MGv3sZl1ZXSw49cYvreCghG3mwbaT+hQ3pxidmQlrt8Zu9xAB5s3vnZGqygQ
Jg4sLHpHhwrxOZKzVXE850evqvhIh7TE7Ji3mPfLtez3/kYHns97i9LUKAiR
WrNH/xcdxqwyj+9aTUGSypuhG7/p8EQoZN4SdQrOPUhOmD1GB6dPeta/Matf
XqLEpTFg2HCJcdEaCsK9DZKGeBmgmOnM9V1LAW4me3bNZkDSd/XNGhoUXCqr
FJMTYYBMy3uHKcy6RvNVjkgyIHx2qNwjTQqy0/faSi9mQFixS3akFgXIdntR
hRIDDtQ9e2OkjeOZ2B2M1BhwTOLTfQEdClLwuKmoyYAtIk22rzCb4vSeX8cA
saHRvASEv+fkPLWzBgwQrPC9bQEUPBs4upgwY0C/4lEfUV0K/h4X2DDA+q5d
11vMW7zDdsbZM6A7e/WCFD0Klv3eF13hwgDOH6Mp23UUyHl0uWfi+fbztppU
cX0KsHkcv+rJgJ4D3D8fMN/fLLPszCEG7HEfGDu7nvpvXg9ngJcLX8UWAwrS
2qVyfx5jQJqMi6a4IQXk/axy5zgGyKmDx3vMI4925+1MYsC+oRc7ko0omDk+
mZvKgCVBuixrYwqu735mQGUy4EfOayeRDbg+NHADyWOAsWhxcAPmavueKf8b
+H41KdP4jVj/dsYRFXcZIL8afTIxoWDXcXbSpnsMiBYwlebfREH5ptAhmSoG
0DzDpJ9hdvZIKtV4xoB3P3mbIzZjfRI4fTW8gQH7S+eZgykFf8fnJgacnWgJ
m8AsKdi6LKGVAYNHzrqVmGGeGSB7GaDe7SnsY05Bbq2jYz+XAcG5mV7KFng9
lwOeKYwxIL3NLL4T88zxx55pBoScu7/nkiWO72ryfRQ/E3YlCE44WFGQ5+x2
OHEOE1ZZB5lIWFPQ2v+Y81WYCc1IbWsj5g935G/pyjEhxmv/ojgbvN5Guc1/
1JnA/9H8iqEtBaPDC8SE9JnAWD6/i7aFAks766Ed5kww5/7qvIc5MG+de9R2
Jph5TeZ6bcX5n7FL9kyQqQ1btHQbBTWX7b7ucGfC1Necbd8w347LkzsWyISA
fclmadspWKHnf9vzKBPqW6NZlnb4/UubioSPMUE1KdePfwfeb7k8ymMnmDAn
Qza3EvNx3Z0/6rOZYN22LNnf/p8e5jChVLxvnbID3n80i7Q195gw//H5wh+Y
9840+GImnFzp3Jy2k4KzYwGWiTVM6IjyeGa+iwLPmQTU43hc7/FkO+L6mvpt
eKKaCYZ75zSXYj6wNqUtr48JgUDj9XKi4FC/VXTzCyYEJf3ukdtNgYSY0NHd
dBZsSmSkfsI8tbP13nAvE5RVD7ISnCnY9veAjgltGxyU9V0o8CVxhIVY8Md7
WmIEc/1bm9/K40xoIYKf5e+hIMLcOCNMjgXHY+hqDnspyLRXqJ3DZoFJ3QOn
ufuwf/AJMnZSZYFF7TvLKsyZZ2cGRBbUrQ7h8XelgMG9H1K5nAX6qZ/9Fd0o
EDK9keRsxIIyM+p6M+Y2urPldRUWzDnmeSluPwVlB4O7zzmzQFJ3wh4O4HoR
urfAHVjAa9b1kYt5q/s+NVl3FgTa7VuQ405BHJRed/BgQcfXLAmrgxS44PKq
T2bBA+XSLyyPf/UhzANZ+344F2PetEH3booPDzyINih09qSgxFfd1JfDC99s
+MrneVHQbMD0F9jNC23+tvFVmPs9D1wR7+CFvN3bZH29cb+JyHyZN5sNyS6a
h2V98Pe/uIEdKi+cz5JJfYP5rx+/wAup/FpB4b4UyHwaDXEN5gV3r2vUCj8K
ujO1lBpTecEsOOtEC2b798ofBNN4YTRb+17sIQrWtREbyfu88FX9WoGmPwUz
7XDWR17wcxJz/oW5a3phe60AGywXX2xLDqAARHY9frOUDf5WQYv1A3F/Kzyh
vtKUDaHnnyzjYsbRXEx3ZcP7mNzxjCDcb/jf53gcZsNg4Mb4DcEUdBzUk2bE
sSE26/3PIcwqgo8NnySxoXqWNyfnMN7fVl/iPFLZ4JOr/2dzCAWdfBu1sgrY
oLvCO3UM86lb2HCVs+HPusWCl0MpeOXB1EEv2BBmccTAPAz7nTvpGz3fsuHQ
1WsGE5j/Hl92s2HavV4w9wj133wwzAa5nNnp5uE4vllHz92ZZgM/lcgdx1z4
XGJwjiAH5qQGCl2OwHoVEnPPjY8D87K4faZH8X7rY/zOEeHA+TTJ86OYG+xy
E5P5OTCrQUokJxLX254QNTaHAzUOUqYmURTMjDc1+P5QPWQ5iFlrRVeVmRAH
9EyvkJnR2D+9UQnWn8WBJ+qHbxsco6DoCbPm8kIORB5vE+7B/FImVKUXM+36
hHrKceq/+ZvgwJfOHjl0AufHps64R5IDlGPrl3bMKwvaYl/IcMBibp9D3EkK
1GT/FA1Ic6DknVGeWgwFj8TkLHnw/0F7OOXNmB03yDbUynPgw1artIhYCs4X
4g+Q44AJZaanGEfB3+VgruInb9XH/evnShyoNvje7Rf/z/8t5cCllkd9CxMo
OKFlfN9lJY5P+efKR5j/O9/gwIJ82+17E3G+sFv5rcmByg2WFYKn/tWHNgfK
pfu7b2L+e96ly4GmU1s7bE9jvZgZYHU4kNtyJX8C83/zIl6PPFPzQhKOv8/M
gRoHyg6cOLP+DK6f46fHpTDfjN354NeZ/+s1B4QMcwtikymY/+XHonJLDvwP
vBS+Ig==
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0], 
               Dashing[{0, Small, Small, Small}]], 
              LineBox[CompressedData["
1:eJxFmHlYTd/3x++te46kQSqldM5pIEUZIlQ+e0kqNCoVIlOJ0BzNJU2UBpoH
KWlERURCpjI2mEmRiNJ0m+ffDt/n91fP6+meffZee73fa60ju8dxsy0Pi8U6
zWaxpv7K3W24MXyEAgshlZK0rlY0XPBmX5AzBU+N8301qHZ04UmWxww3CpQt
jyWcGupES8CoK8aDgsaiw6Z2vD2obs/72tmeFGRvUPo5MKsXhdxcK5PsTcHR
E6+OS/j2owT+kLfSfhQoLuUrnLttEE3sTZtICaBAvU1W6vPaYVSo4JMgFURB
dJhSjM7iUVRKiGYlBFMwPuD+JVVkHG2XN5YXDaOg6cG8qrT6CcRHSklFnqTg
bGjwtldaLJAu2BpORFKQ8kMm5ycfGwoiu118oihofn7lB6uSDXJXKt73xFCw
jDeup8uVB6rOpd62PUvBJq2MQ0/FeWFBqC3zPp6CQyW6a3SyeOHIog5iQxIF
Ormbr06T4sCZCY5jWQoFvj+Pj8R7ciBkrveO+ekUTP7WO1ldxAGVHVKvYjMo
UOgs7jv/jAPWlvl145kUcLvUVOdWcyDrQNe2/dkUNCjJFE5e5cDs+/lONTn/
zhPLgW7bZDH1fAr4nvDMd3LggMJqT/2UQgqqlDRinyEONBKTgpOXKbjm/HCb
Dz8HvgR9sdtdTIHbtGK14Je88Namxvz+VQq2LFHOE43mhQhtrw+y1ykI23Ra
M3sdL4i+jxjwL6PgXMGl9zYDPPDy7ZVLDbco2Cxc91MokwcOkeGsVRUUBJxz
/gr6PFCjW94dc5eCvZ3btP/7yYZP8T/82yopcGYUZiQGsGG5dO6VtQ9xvGoW
TTcRZcN3heTAhMcUXDIYyvZLZ8HwSvPB9mp83lspORoKLJgQcZiFnlEw/FFt
E4/5JHIqcnod/YICD2Nq9kHDCSRj2fff1xoKevo2bg1ZNY4Oxh83W1JPQdwu
51W9C8dQtGm2qN9rCj5GicXsFh9FlQ+/BTx9S8HCxmot7rQRpHXqfqr4Bwr8
NCg1k6QhZJH9wN7mEwXJZ48fWfxrENn52f3I+YzzTatic/z5AZTPVZToasLx
H5raUD+S2nJ8bHkzBfOs5r4cO9iHFNw7Ejxb/t1fWC/ae6Gx7fYPCvIqlwvQ
Ily04nb1wMRPnM+DmmLESDeykp9bgdpxfKKyhXeYdCGbV7rIv4MCGRe1hoCa
TrRo5zW/ii4KdG3WJhfb/0aGvS98Rnpwvvgv6W7wbkebbUc01Pso4L/7uibl
ZDsSWpx+y2mAAjnj2MtJPm2o9pj0eN4Qfl+Fo09HUjsKl6nnbR6hIH7dqUOt
o+3o+xW6VnIcn/elEan3pB2Z+9vsNZqk4PHdmjInpgNNT2u7c5xNQ8f1GS/c
pTpR2xeJllJeGh4H88puvdeJHDs1X7cSNGwR1fk8jelCHqvzoiX5aMh//TvQ
YlcXmjmjSEqfnwYOx7VvqKILqYWku3oI0HB4dUJzfkkXOlR4LzVLiIbhoMDW
xgddyH/ProSamTQ4prdFp3ztQqNuj/aNzKIhC85Vn1HoRvdSV5AK4jS0rvAI
b1PpRr5BfT4GEjQQWbEabMNuJF297qnrHBoEpUYUy6y60QLevV1J0jQ8O7/+
eq9vN1J4FtVxR4YGyflm+JFu9KGMeNxM0/BxIi5ufnY3inWY8CTkaGjUeiO7
8kE3Mo8s5ldUoKF99S/fb+3daPo7c0+9+TRYr8ERHetGaWJzq+wW0HCzqj5U
dUEPElNa3X9CmQasPn991INiZzVwMhfRMGvpvNiftj3IqnPZYIUqDb/0VSdl
fXtQxdiBF++X0BDpFaZ7NLoHiWYXhHGX0XCh6Y5Q6tUedMqTUZ6xgoYy95XG
7tU9iFezq0RuJQ1y4Tt1ixt6UEODlsLq1TQsEJ5RenG4B5WELfI30qQh6n7/
AmthLpqT2fRwzxp83t8hh08t46INT90H3BEN87zmPHLZxEWPvgmIh62lYRnj
XTG6l4t6xCtlk9bRENPhg1bs5KLC2kKZvPU0fF772+C8KxfV1PycXqZHg5Dx
lbO2YVx0nYpofbSBhqp36VtnZXDRFenCG/WbaLjR+SNP6CYXHfG29m40pKFU
fPRZ5xMuOmxwRe2XMX4/GKpsb+cig5FrX7mmNJx6kGTzgt2L5Ex9QkbN8H59
iQOP5XrR04BZ8rwWNJS/ca0f1e1FSkxQ2XQrvP5UOh7oRbuWvNcT3kbD+LkH
Pp6BvWgGI1Uvak3D05WfGhLTe5HNS2MriZ00bHv/Ssj/RS+yPO33ac4uGiT0
TcYke3vRE6V8a+k9NLBDTbLthPuQV8vrBul9NDSN9+wsXdaHFvpPWkvb0ZDU
v2eB4rY+lKKh1DjHnv6r/+N9KOSj8W6JgzQsXv7uwIXsPnQ217FV9BANJ0+3
cOn6PmR0NMhZ+AgNCa5Kl5VH+9DkhRMsficaaoXlT+hJ96N4yiGO14UGG6Vn
M6s0+pHPHpWlY6403F14fPLSvn5kF3Tvda87De+7pwyuH9ELJQPbjtIgtbzP
2Km4HxmmzV/5xRPzqYtXz1T2o4W3GgZfe9MgMseiR/dHP0Js5YfVvvj/IVFh
SiIDSODsWGq5Pw1/7GPVALqxam3QpUAczx32l1/pD6BL1t+OpgfRILNqv84B
xwG0RuKF9+lgGhKX67bnHhxAKotao3xDaZjbPbz7hNMA2iQ0p9QhnIYDEW9N
35wYQP1f9X9bnaLhw8tBs2/ZAyjVf7v6+kga6leccbx+cwDpeCw/uySKBtEN
fctOfse/F7xOSsfQYNuy6PeBaYNo+cbK05wzNPy5juWDyP73CpWOszSkl35S
XW45iLQ9uM2v47He7x0jBX0HEbXodVF5Ig1MafiZ0bRBtEPiRsL5ZBrO77/a
5lo6iMr4PBJDUmng/1OwB1FMctvVg+k0/PB0Ovq2cxBpqHW0GWbQsH/RlAMO
ITRty39LMnG+GlftJZWHUIb00GWRC5jHFy403DiEBPQL1nCzsR7lU2ffth9C
s1drt9fl0OC6qUDWOWoI2bpElRXlYX2IfxszzB1CTSb7Lp4uoIF3+1SFGEJP
BWJKHS7RoJgRXvT11xDilrf80LtCQ1ur4XplgWFUaaaiKV9MA9+WgwOwcBhZ
FKy8Ol5CgyyP0PmNhsMo3rfG+N01Gko2mTsKHhpGmg53RYqu09AiTKZ7Rw2j
T2O1w6Fl2H8058ydd2UYtV94zmdzi4aKFUVbjj8aRhWVnrgG0ZDWd6entHUY
+Z1LT+e/Q/+rjyNI0Yul2HQXn48KbjddNYJc/Pd+KKmkYeptcbtG0KPak9eD
H9BwxMDYqjlwBEkHr7pr+YgGbBa3NkSMoB/5Kn0LqmhYrxyhwrk5gvo3KFsM
V9MQlqbktvPbCNpg2/G9+ikNpvh6r/GMoo6x5RcSntNA7rty1F9rFNUK34mx
fUlDxInrqZucR9HJNJ0ry2qxflbvmC2aMoqW5AaNT9Rhvd/O0w8uHkWS6it8
n76iwQN3e9kVoyjBbNbiuDc4Xz+fCQ3+OIqeiL0StXlHQ6GrQPXOrlGkl6C6
aMEH7A/hHuKbJ0ZRE++nY90faTjeXJVYPnsM6UZHjtxooOFP+VQbQ88DRor9
Gv/tf+8YIpTfnNP5QsP3MjMNK/8x5MyteTi9Gft/WNfDwoQxNM88VfblNxqK
oox2DBeOoX2NbddjvtNg4Lzlw9FHY2j9Sodg81Ya/rSzLWNIX+Z55OxfuL5p
4jf0jaEO+/Lad200bPrewZdDjCN9oR9Gib9pYD1Ws/9Jj6MoaojPqpOGjVOC
Uh9H+U9SJ2d34/hYrGumNo2jGzZ+am96aEgpNBWusx9H0Zt1s2N7aZjWPVvf
xGccmaxM22LcT4PRtYJo7plxVFelvH7GIK4fOvdkzfPGkXxLnNvjIRqCJKYM
eBz7xYmWgBGsHxEnvi1t48iTLzVOY4wGb4ddBZwZE+h3akBY7zgN8dNxAyI9
gQbev6komKThik2R9HWVCfRsFZ1SzGLgLbbvx5YTyGKe6nAEm/l7H44TaJGW
/fB+Hgb0Dze3+IVOoKUZMqnavAzoGIQreCVNoOeC6V/nchiIr+FqlZVPoLhP
q54OYPY28sIWPIFYo1oWtQQDs5cEbj/aO4GEhoeC80gGHharHsliT6LeiVtb
j09jID1xysAn0d362rptfMzf/gUmEd/70M5l0xlIC17T0W05iSJmqhTx8zP/
8m8SfZwrKNGMeWK+mNyX6EnE1XKTvzmDAbNnb0fkzk+inyaX30QJMDDqpmWX
UTKJgj+QqnaCDIROTFe1eD2JWoeqF2kJMf/6yUk01xXViwgzkNco9V6ZzYL7
l69RrZhXr9dzGRZmwflSl1m3ZzIgdSDvtowsC/RWPLgULcLAxi5pG+/5LEjz
7+reN4uBr3WPRRyWsuD4KWhYJcrAVHeoocmC3f0TjgJiDNyMJPGNs+DxpEth
E2a1YbsUaTMWcM+0xJSIM9D6uO/EvJ0sOKSdwgTPZmDPndusUXsWJK5rtLKU
YEDvRwySPMYCONanoSSJ4ztVvoNYsPCgQtUI5jUbbtlxI1lw0eDa+LM5DNQq
chV+JbNAdPxXY6oUjrfCDrXhiyxw453hcFiaAT9JWa2PZbi/j7XOXDOXgSm7
D73LgpCT8sGCMgxA5aOTUs9ZsMb9guhnzFhsCbmNLCBOyRsVUgz8HS9ZIFbc
stybZkDa4EG3SA8LjngtrN7AMPBdp5xfaZIFTgs0+SRlGXj6ZYGnuxAbTAss
+r9j1myxK2PTbMjIvBd1VY6BXufDuZKKbHi5o/xdgDwDyt+a9luvYsPFhrAX
hgoMTFXXTF021NUcdJaax0C03VSBYIN5UuaDH5hbNSKvme9kg6Ch88OS+Qzw
9NzyqzzChoXFEm5+igzcMpJXiTvKhpL/3tZvWMD87d/C2NAl2/FFTImBOVMG
FMsGrkZqehPmpMCnQ4NJbJhOyQvkKzOgFRQyMf0yG9TFKpXcFjKwe6rBuYn3
J106uGYRA4khX+X3PGWD0s81HtNUGJjWPjn3xwweyPyWlF2L+c7A81iWOw/4
qU4LSVLF53PUW6UyxAPKGQ8k9ixm4ELLm9XkPl7wqxLYrryEgcv967W343lQ
vZ024WL+ORD72F4Gz6P8GoM3lzLwZ7wd5YU7DQkmgcsYuLpTAIecFyxeuVvr
qzHgNVWAMN+VnCktvJyBxVlWRw7080JKTGbEG8ztrrgDnMEB4rN9ccoKBuyn
yrM4B0bM08N3q+P9hAkUHJPnwEMhP3HFlVhv60Y62oEDez9pb/mNmZpILjQ1
5sCgnuKG4lUMPAfbsVEDDiin2/a4r2agI2ke++BBDpxtWWmkocGAnHneB97D
HJBvemczgTk8cdaGPhcOHBf2n39fE+fzQcPe02c4EFBqlxmsxYBS/PZtgk84
cLim6pX+GuZv/9PFgTCpT7dm/If1Bvqzl7AJsBL9YPkS89S0JzSTAImB4fxo
hPNF/MKcU/MJELzrfm0zYP054YFXkoBe5RNuYmsZ+L24XFF4BgFbbli3v8E8
KTs+4M4Q0JGpPidBG+evX2gm0ATwdepPWK7D+ZNxx9ZIgoDP254mS+ow4D8V
oFUEdB3u6XyPedjouddScwL2H+kbSVzPQI+qRE+aFQEudtPvWukyUC/z8KWY
FwEp8naaknrM33rsScD8leD0DvMf+z9IwIGB5zvi9fH+w7WwoglQ9F7L2bKB
gdtXPT4FY/6eVb9XdCMDgbIF29fsJ2CDWKlPHea+Qxa+lz3w8ytkjKM2MWC0
Z6bVajcCFqijTwYG+H7W+yja+RIQOsNYlt+QgSd42uaNIoDlHCBbhfmEIB4g
sgl4+5NsCDJioPLI++sLrhJw6La4KRgz4Ft7dWv/TQISx5oCxjCrrJvb3nyd
gP7ARIcyE+x3C5fscy8gYGWHs4ibKY5Po/mF+4kE+OSkuyzejP3OZM7kf1kE
pDabRLVhHqkl+lXw+n5Jt/ZnmzH/6h0Bu6MFx2zMGXiQ7jHkUEKA2hZvA6kt
DGzefUi2upKABrRi62vMf+ctAiJcDsmdtmAgIVrYS72dAP6Pprl6lgzkyuAE
rSOAR3V2O8uKAZGm8K2LHxNg2vOr7SbmC+rOLncfEGDiMp7jspUB0ZQoh3WP
CJB/FiC3cBsDTng6n4ffN/E1a9s3zJH+55y/3iPA80C8Scp2HN+6GOsJ/Hzt
l1COmTUD1Ynl8dE1BCw/m+PBvwPXsxyWZM0XAmamKeRUYv7TPnThfGtWiT+2
kwH1gv8st/cQcFuSu26xDQPl3K3p0wYJmP3gXNF3zCFPzCtzWwg4tcy2IWXX
P309J6A1xKnKdDcDZz8wZyLw+RsudzlP28MAd22N3ZtWAvTsZzbcxnxGkmMh
1EGAF7BIl70MLA9+6fB7FgneZ393zd/HwL2pzwkKJBjG8CR/wrykv/einDiJ
5yZHTrQt5il59BPQvNFmsY7d/6/X6TopNYR5y8AOkTF8nibKp6pgPwMeF2s9
Iz8TEB7BXmFjj/0nf92RkE8EGNSU7511AOv36EZsiQRsfvbW7BHmv/MkCTXq
fsSxgwywIvbX1iISdJI/H1N2YIB3F3bc/0ioMGEuN2Ce9/wa7vhJmBnmnH36
EAPrVtdd1uYnQXrt2E44jPNBCk/EAiSQJu0fezCn11eOoGkkeFkfmJN1BK/n
K2cc24nj9zVDytwR9wuXu7FCCShffLuR44T9/M9ARkLGge+2pZjF4o/BB3MS
ykN1i2ydsR6i31xKNyPhm8X0O+Iu2G/rL4i5aZLQfMwy6hHm6IyhpT9UScjf
t03B3RWfJ8ZvVGMJCfF2mr4KbjgfJVsdtWVJOJchn/wKM626uvOsEAnJ/Fre
x90ZuMj1OPFKm4QjLpeYpR7/0y8JJj4ZJ5sw933pLPzsQcJw5pqbkUex/uJu
yKdakPB15aVCzWPMv+9vJHjslbD9hfmnqGesG2azeRea4z0ZYE8lPI7vMXPv
eTpezN/5bzUJ/uceqvRgzvTCDeQJEt5F5IymeTOgOpfvCc9FEvq9NkVt9GHg
T3qEkBCZ8e7nAOY6uU/DfgdJqBZw5cvyZUCWnnIgEtxydDqN/HC/Nczl+b2X
hLVLXZNH/P5Xr0noXDdP8KI/8/f78zESAjYH6poGMKCwwC/iZgEJR/Mu6Y5h
nqZdEjA9lYTJI7WCOYH4vjw17x8IJGF+lnCq6XHm7/fS0yTwMzE9o5i1p6sd
njyJ8yPZS+hi0L964UiCeEYP1/gEA4exPV7PxPFPkT43jFlyKoHukyBQJyOa
FfxPrxkkPLWRMTYIwfVH7oFyYxiOjzYy68eMi3F2WT4J2sa5dHoo7p+mGtYk
Eh6u9L2mG8aA9dFe81C83+DwZpEuzP5TBppLAuvy2MqEcAbEZZ58RxdIaGzr
mo9O4ngVudjHXCKB2fOl8QfmMRa+oBISNs/i2pw+9T8/JqHsrX7+iggGru+P
5+TmYf3u57vTgJnIzbN1qCDh/VbzlKBIBhrS8EB+jQQDxkRb+TQDErbq1QpZ
JDzip6/WYg5cl7v5ahW+L92WDo8o7D8e4W2XKknIbrrPnRv9Pz/H8bnzufI+
5m2C4d6L8PpzCiy328cwYL5i7WvfeyRUbjS7KxjLwCuc/t5PSLgj29tRgnni
RqyMNF7vQ+zWVsszDHzge9g+8oiEnKbcgjHMATemRjp8ngW8mufPMlDEvLBa
/hnr+/DJuPVxDHRFDebH4fVKIneV/4r7Nw/g9wnp5RRGxv+rr69J+D9Igdro

               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{0, 0}, {0, 0}}, 
          AxesOrigin -> {7.611802850209389, 0.515}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.5, 3.5}}, {{7.608374474380783, 
            8.294049640102028}, {0.5, 3.5}}], DisplayFunction -> Identity, 
          AspectRatio -> NCache[GoldenRatio^(-1), 0.6180339887498948], 
          Axes -> {True, True}, AxesLabel -> {None, None}, 
          AxesOrigin -> {7.611802850209389, 0.515}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, Epilog -> InsetBox[
            FormBox[
             StyleBox[
             "\"b)\"", {FontFamily -> "Helvetica", FontSize -> 16}, 
              StripOnInput -> False], TraditionalForm], 
            Offset[{0, 0}, 
             Scaled[{0.04, 0.95}]], {0, 0}], 
          Frame -> {{True, False}, {True, False}}, FrameLabel -> {{
             FormBox[
             "\"d\[Degree]C (relative to preindustrial)\"", TraditionalForm], 
             None}, {
             FormBox["\"Year (log scale)\"", TraditionalForm], None}}, 
          FrameStyle -> {
            GrayLevel[0], 
            GrayLevel[0], Automatic, 
            GrayLevel[0]}, FrameTicks -> {{{{0.85, 
               FormBox["0.85`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {3, 
               FormBox["3", TraditionalForm]}}, {{0.85, 
               FormBox["0.85`", TraditionalForm]}, {2, 
               FormBox["2", TraditionalForm]}, {3, 
               FormBox["3", TraditionalForm]}}}, {{{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}, {{
               NCache[
                Log[2015], 7.608374474380783], 
               FormBox["2015", TraditionalForm]}, {
               NCache[
                Log[2500], 7.824046010856292], 
               FormBox["2500", TraditionalForm]}, {
               NCache[
                Log[3000], 8.006367567650246], 
               FormBox["3000", TraditionalForm]}, {
               NCache[
                Log[4000], 8.294049640102028], 
               FormBox["4000", TraditionalForm]}}}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], ImageSize -> 500, LabelStyle -> 
          Directive[FontFamily -> "Helvetica", FontSize -> 16, 
            GrayLevel[0]], Method -> {}, PlotRange -> NCache[{{
              Log[2015], 
              Log[4000]}, {0.5, 3.5}}, {{7.608374474380783, 
            8.294049640102028}, {0.5, 3.5}}], PlotRangeClipping -> True, 
          PlotRangePadding -> {{0, 0}, {0, 0}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}]}}, AutoDelete -> 
      False, GridBoxFrame -> {"Columns" -> {{True}}, "Rows" -> {{True}}}, 
      GridBoxItemSize -> {
       "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}], "Grid"], 
    FormBox[
     TemplateBox[{
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"default\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["default", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"kv low\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["kv low", FontFamily -> "Helvetica", FontSize -> 16]]], 
       InterpretationBox[
        Cell[
         BoxData[
          FormBox[
           StyleBox[
           "\"kv high\"", FontFamily -> "Helvetica", FontSize -> 16, 
            StripOnInput -> False], TextForm]], "InlineText"], 
        Text[
         Style["kv high", FontFamily -> "Helvetica", FontSize -> 16]]]}, 
      "LineLegend", DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{Small, Small}]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], {
                    LineBox[{{0, 55}, {55, 55}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0], 
                    Dashing[{0, Small, Small, Small}]], {}}}, AspectRatio -> 
                    Full, ImageSize -> {55, 55}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.42727272727272736`] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "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[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}]}], "}"}], 
               ",", 
               RowBox[{"{", 
                 RowBox[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}]}], "}"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "1"}], "}"}]}], ",", 
           RowBox[{"LegendMarkerSize", "\[Rule]", "55"}]}], "]"}]& ), 
      Editable -> True], 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, ",", "Below"}], "]"}]}], "]"}]& )],
  FrameMargins->None,
  StripOnInput->False]], "Output",
 CellChangeTimes->{3.715196736757838*^9, 3.727148002808509*^9, 
  3.727509547077487*^9},ExpressionUUID->"ba2744c2-3624-4016-9a08-\
0240323f55ad"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"Export", "[", 
  RowBox[{"\"\<2017EF000724-Fig6.tiff\>\"", ",", "FigureSens1"}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Export", "[", 
  RowBox[{"\"\<2017EF000724-Fig6.eps\>\"", ",", "FigureSens1"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7151967452598925`*^9, 3.7151967633716087`*^9}, {
  3.7275095529688234`*^9, 
  3.7275095911510057`*^9}},ExpressionUUID->"3f5c1154-6e5d-40e1-bc8a-\
a8f219fedbe3"],

Cell[BoxData["\<\"2017EF000724-Fig6.tiff\"\>"], "Output",
 CellChangeTimes->{
  3.715196764791218*^9, 3.72714800312051*^9, {3.7275095640944595`*^9, 
   3.727509593075116*^9}},ExpressionUUID->"2d1f4d3b-5128-4b2a-9f47-\
e661a921014c"],

Cell[BoxData["\<\"2017EF000724-Fig6.eps\"\>"], "Output",
 CellChangeTimes->{
  3.715196764791218*^9, 3.72714800312051*^9, {3.7275095640944595`*^9, 
   3.727509593649149*^9}},ExpressionUUID->"d30d5bc3-9f3c-4a1a-aceb-\
67909c0bbe76"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"T1", "=", "\"\<Atmos_CBA1200_UVic\>\""}], ";", 
  RowBox[{"T2", "=", "\"\<Temperature_CBA1200_UVic\>\""}], ";", 
  RowBox[{"uvicsensitivityCBA1200", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"GraphicsGrid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ListLogLinearPlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "15"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"All", ",", "All"}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "T1"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<year\>\"", ",", "\"\<GtC\>\""}], "}"}]}]}], "]"}], 
          ",", 
          RowBox[{"ListLogLinearPlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "7"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "14"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "15"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "T2"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<year\>\"", ",", "\"\<dC\>\""}], "}"}]}]}], "]"}]}],
          "}"}], "}"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"{", 
            RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Default\>\"", ",", "\"\<kv low\>\"", ",", "\"\<kv high\>\""}], 
          "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7133723438991823`*^9, 3.7133724414257603`*^9}, {
  3.713372471979508*^9, 3.7133725802701664`*^9}, {3.7133726488029814`*^9, 
  3.7133726927304935`*^9}, {3.713372723717266*^9, 3.7133727350679154`*^9}, {
  3.713372780939539*^9, 3.7133728195427475`*^9}, {3.7133728745208917`*^9, 
  3.7133728918416004`*^9}},ExpressionUUID->"038e0ea9-2349-43fe-9863-\
7e3cb25f8b64"],

Cell[BoxData[
 TemplateBox[{
   GraphicsBox[{{}, {{
       InsetBox[
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwtWXk8VO8XVlKytVCyzX1FJdFKisqTNhWhRAs/lbTRQioh1Kx37tiLsiWU
QnvatK9aaZX4pkSLklKphH7vmPGPzzPX3HvOc855zvNepsvWzw3oqqKiEtdF
RUX+e+Dl6jN/1vGQV3NJxzhVij+Fz5bzg3moLx9Y9aeIQ96d3M2aoTw4vwnX
O5Iuw0jMaUrczENs6rq+fHEsHi17Ud5/Kw9th749dg2Og+jcZJO0CB7s2MlL
6n3jkaohem4UxUPwRI0KM4sEdPhndqTH8JA8oJuXTk4CiswjUw35PPye93a/
kX4iitV0c1OFyueziVhs5mamK+FhjPznVyLUuxsaxkp5cJE/YHESjAoXsmqx
PNwkx0JWFSehMPZrSGS88n6qyRh49OKLb4k8ROgdmfHGKRm392ZcCNjJg0/8
tZ8HQ5JhIQ4gL1J4oN9ObExIxjqrRrWZe3jgX7m7b1pGMpI7uq0/m85Dx9Ow
j4OTkyEyjvAdnMWD59v96VM3JsPa1/BJUjYPD+7fv+8yIRk+3gWP2nN4yGrK
vzX7WxJyVzctWrmfh0t7DUf45ieh/7WCDWX5PBy8NduO9U3C14A0vbEFiuev
1U2C+fitzulFPMjDDS9NxCu1f9r/jvAwZJR6UUZkIl7zX69YelzBZ+6IRDz3
K/O8dpKH3bQceJMAmVN4pelpRf7piQnQfSFriT7LwxYawFEk4OHzo4erz/Ow
zdH2f+er4xHUnVUZd5GHL5H0A9t4lE0v+Zp4mYcV8h8uDlUp76IbriqfVxML
G6ODRyff4CFn2unv7aNjUW+etj31lrI/hDL8sfP89amUh4wbtCAvOHT0Cezr
eE/JpxWHDcc2PE14oODjvxgpTLx/THpTxsPWj4NHqVewWJOyY97Ixzxk08vm
I1kkeOzXjXqq5D9Wgqs33sbcfc4DLZ+FzxcxJnDXMvpV8nCqdPOlvZ5ieO2/
vsqvSpnfFRFWRK14l/8fD0b0dt1Hi1DQPES/qYaHxEaa8FEhDOfvaLOp5aH5
seuy3mOFMN/UmLq1ThnvNQH88141XHjHg3qR8aLl/xPA9kJpS8cHHobKG0hN
gAVmxhcdP/FwnYYTX8yH35PpjtGNPHQdJu5fGcaH1f9ORV1sUvI3mw/X7w8i
W7/xUPnw17y31nzMDWi1H/uDh1XygKz40BmRdX5DCw9eOtYnMifzUR5m1H7o
Nw9necJPHu58sCaPVWtblfX156P+KFM+oF3Rf/dD+PCM9vOf80/RL8bb+eiZ
2XBpRxcG7vKB3clHw2v9umJVBmZVf6LW7ONj/ReHp+/VGCxa7lDjdoyPzeMP
JQxQZ3BvHy3wTT56ax4zdNZgQK/GplbyMUaUtXGzFqOYx/d8BBVdycjVYWAi
v8EPPqKXLUkt680gbwNN+B8ff0NvLm/ty3T255VeAlzJsO1u3o9RzIexANv4
PyJd9BlFfQcJYFQ65e5GAwa0ejO1bAWwUPVv2mPEgFZv+64pApjfi2+8ZMIo
+JojQOVZtVu1DKPI31eApMCOrWoDGUX/BQrgGXtcY4g5o9CjUAF6VnhunTGY
wZxlvReM3yFApp7x7RUWDCg6VZoogN7Q8T8FlsrnZdL79a3ulmPFQN6eRQW0
3l9G/7o4nIGWvMBnBbjYtvrBi5EM5OF2vS6A7v5CSfNoRlHvhwJwW4mlpi2j
mKdqAVQdmk4MtGMgz4b7IEB19QTz8eOV3/8uwAmJVfQcB2U87QIY5NTcWDaR
UcyXuhAz725q2eTIQN7O23WFuPlWq59kMgMDKqfWPCG+9btqumeKMn4LIYrK
i0wOTVPGP1qIsrIPPc/OUNZjghCnebL3N2cyinmZLsRRo6Izj2cr+8FdiHUR
PhGvXBkMT8j+PWqREGtdjo756MZgzatgqc46IVxaT71p9mCwWmX9dkG0EAM9
IkV/5zHYf/Gq/oF4Ie7G9DVT9aL5/6pbui9LiKGEf7bnAga0m89mFQmxZOSL
Gb0WMfBefPxy0HkhNInhY10f2l83jg9fVyqE30O3Bfr/Y3BmWXTlxedCeMdF
VRksYWARJTsXWC/EnaEFPkbLGJjTD8b/ECK87mm10XIG+R+ch//rKsKw6H8+
RisYjJcLRB8R0u2HvjJYxaBh1wmtb4wIopduS/XX0H4aGBTWai3CzoPr3+sG
MTgX2/1rioMIc7bwg3utU/S//kwR/uUJVDQ2MKDT/XCLlwgpvMBdqiEMBux6
2vODvwiRy6xHtW1kcKu6WNC2geoP/8rT75sYxbxvE4EZNmB7wxYGZSuevV8j
FcE1c7Dd660Mknw6prSm0HjPV/96GsHgDpWztFwRHLtY3ijdxuBHkNe24cdE
0NrZllESzSj2xwURzoybzD+8nUFY+H6r66UiHPZ5uyWLz+BQ3hzoPhNhov6D
iDghg7/3vty5/loEa6v38dvEyn78LMJsHYPiQJbp3IcWv0X4+cb58wKOQZ+x
Ey7OVRUjI3rx2GmxDN6bUEZ1xJi62WbnyHgG7S2bXhsbiPFT+3R3o0QGnqHm
qdFmYtjMuhrXLZnB7IZuNn2Gi7Hqs611406m0y+ojhPDaXNz7dMUBjmn7H47
OYnBs3p6rGQ307lPtrmI4at/JnVfGgNHSmA3bzHOqm/eLcpg4LW38PCCpWIk
pjWcXJPFIII/wuVAoBj2YxobXLMZnIxoPua+SQzHHvMnjcxR9mu0GNlGv4/0
yWMwtnCSd5VEDC3nwonN+xn0eGjgsShJjP7jnT49ymcQP48mkC5GQEj82WOH
GFSvog2dJ0aN+/IDcYUMrE2ZH0GHxbirlVgceJjBpA+VReGnxWguqXs346hC
vw5cFuPqPGsHs+PK+S+l+6jQ7mT7CQZWAQa1Cx6JkbKtzK3iFAMabaDhSzEc
Ai/3OXaaQQG1T7W1YlS1lf8Rn1X29ycxPuXdV/c7z+DzlfFmd7+LcfHqVkfb
CwxKhvTStG0TI2pvVpbGJQYppnGbgrtJMCRcZUjNZYUeHNaSICTav/LEVQY9
pYz/Fz0JbpZLTwuvK/XXRAIj4bjL3jcZDJIL0iAJ3hVY/7C4zWBH7e3dDtYS
/Jxp6fWnlMFdz6sHzW0lmBnQWF96l/79pq5p6hMlaGyzyUu9z2Dcyqmr10+T
oLzXpcSAh1S/winjrhJIM6ceHV3OoFH70kiD+RKMPMhv73jEIH0+LaiPBAPG
2m67+4TBuyOD6vjLJUid13fErmcMku27uHYLkuCO3hNdvwoGkh9VFds3SjAj
dbiVRSXla4nn3PxwCWpUq8K+vlTMa/8dEkxPiG09U82giKtapcJKcD+m9XjU
KwYL7o6+cTxeAjXLZ3unvmbw+9rygiUpEgQ3l93oWcsggN7wcYYEgzwzTB++
pf3UsLG4X64Ey181nE6sp3xurOgbckiCaXaBQs/3DNRuxo/aclQCZ5P7sf0/
MnixfeP0ncWUj1Ul5RUNiv47XkKv67ybs/szg8cqr7r2vCZBPO+3+oIvDPxo
Az66LUHBnYx//b8yMLyymFx9IMEZv6gxz75RfYwsP1n5RIKEudP3J31nELl0
9PxjlRK422XOd/vJoPYjFbAaCR7dtpym+UupZ3USmNXtCr31m1H4xwYJ1QtB
XUwrg2X7nts0NUmwVT1jl32bgo9RPyX4nBEj+d5O96fDnEeJrRK0vHh2sfAf
g5dFrT6N/yS4N45JP65COvXniBoLr0HD/8i6ENS81kweqsnCasKqPyu7EsU8
9GYxKtskw0mVwHPukOye/Vnc1856Y9yNIOletLOjEYtdVePutlB8/qW0PYCw
UPk7watcjaCKwi2DWOj8+S081J3gpFZwEWfJ4nvH+YU7ehC8NIpcemIEi8uP
yx8tUied/Vliw0L9hfjL6J4En2i5IsazkPW2PqahQfDkwlu9zEksXhpr69dS
3LmfprBonhBqdk6TQLd5ctk7ZxYf3I88i9ciyDU719ZjDgthZffhK7SJ4vww
j8X736VWE3QIJn/zv++7gIXxRsfHfXoRzFPLTbL3ZXHtyCnee4qrp6uGcctY
7CsO6XuhN8EM1TDNvJUsZtheP5zQh+BXd7/d94NYZEY3fV3el6DrBbW+eiEs
dnCoHqdLFHqwhcXSnx3rtfRIp958jmBx619IUQ3FCaO2WO+LofEn1yWe6Efw
RjP50A4hiyCndCLsTzr3cZyUxe4prxZ46xOUnKUDEccCYT/shw4gmMoFvY9I
ZjFsjfntVopDp+9sEe1mccDlVPs9A4KmO9edDmey0G3/+CrDkKC+mXm8PodF
qKpm4FojgrW0/GPzWfxJ8smZaEwU/qmIhUhqJtQ2IYp9fozFxE15uv9RnP7O
JH9VMQs1zmxOEU9R7/pzLPSO19lEMJRPeQEvsVgXPqx0JiEKPb7OYoOFg/oA
U6LYZ7dZeBR6/aynuHM/3GeRnXMl/uRAggqbpnHTHrF46FtSEWNG4P9lkdOk
5zSfaskDV3MC0bjnN9dWsXhUtibYcBDBhzXDWvRfs/Dck3P9HcVy+i/XsdB2
Db5xYjABHa+Rlh8pP8f1Q6OGKOqzs5HFiUnPH8+0IOjiKtB2a2bRZNr4Wm8o
gTz9Uy20HvYZWTUUC7IeFLj9ZdGTZ6ZVYElgE3MGXVWkGKt3dWjoMIK+ckPU
TYoDRsW/JloRHG71WTtNXYqhHyZu7mFNoHNp5J4CLSly3u7ZX07xZZ2MMQP7
SBE1vIdoz3CCbeUnF27qJ4Vl9nX9ZSMIZi+kGRrQ67e1FluOJNg7weppmgl9
3ifGvZliNRu6wU2l8NGw/3VulLKeg6S4VJ3qvn20cp6HSuH1ZJOP8xjS6f/s
raW4PKC3US8bgg1ygRolRXpijuwZxddE+d53baVQ+2/V8XRbghBpXF3zeCla
PbPYpWNpfvID0yQpbuhE9RtiRxR+1UkK/yqn+Z8ppuH/PDddil8zhsw8Po6A
2r3PPBeaT1bAt03jFfPh4iHFzjq7Ofb2ROFXF0hhVlPh10ExbYcpxsul2NEr
evA1B4KLc1NMdYKliClekSOcQBTnV3qeXFt2+4nzRMX8psdJITGsOq85icD7
84iSIWlSLNCt9H5IMZ3eLq7ZUui3/ClIcCSYJTf0uVJoX950ai4I9pSkJPQ6
JMV3S0Go3mQCeXscOibF/DM+n55NVtavWIrGnLEGqU4E2q+tE8h5KdS/OHd4
TyGwPKRbfuOKFP8tups2YKqiXl6lUjSt/fblBcVPXr3W1H0oxcp1P1p3TyMY
/s+0veWJFCErel5eMJ3gUaJPx/WXlH+zFQ4DZhAcpesx640Ug+2woWKGQt9M
PkixuuW+b4ozAXm83k/cKMWQiMnd5s+kekqPdxOapajPfeyvO4uAkQ/obylm
6hVHPqL4O22Hmg76fVsTt/jZROFnVTlYjHWscnEhWEntaWEPDmJNN1MNV5rv
6lfBGtocVIJjTG9T3Lmv+nJ4/qF7NX8OwUBqCJfocwi60M8DbgQegWlbMow5
7G6riWlzU/TvT1MOP7fvDjzrTvm1pI55MAe7xuA+oR4EDwvKnj0fxiEyPytk
xFxa79tD7fuO4pBR6x7fQLERJbj3WA5Re86v3D+P4J1jXs0kBw5LE7Tb/DwV
emsODmPmR7gYzqfzf4calqlUXB1tFz6dr9Q/Zw6ykKCBcV4E9mazIvguHDRe
ehyc4U0U74PcOXQd3v+TygKCFnqcd5rPwePbx4ZzFH+qHWt4ZSEH95D2/JCF
BL7Urq/15WB2L2bgsEWk8/y2YwmHjje5i95SLA/Hwp/D1tUp7umLCVz7yWY1
BHAofy3uNs+HoNJvs1vWag42O/M3a/gS1OmZ3KkP4tA70zz/KsWd75M2cJhf
a50S9j+i8K+hHC4MaJ4ywo9gGKWPDePQ//reY/UUbw6mDG3lwI0OqE5fQpD6
LyHqbziH96INtz2WElA32XPrNsrHkabgHssIMvvsvzg5msOMVb2rL1As90sx
MRzCodI9xJ/qSeHhFzV8DhE7PzcNXq7kS8zBNbFrWhXFp+g4v5RyGGGzvltC
AEFiL2r44jjUzvIbMXWFMt8kDl82/jP8vUKxH3gpHGp4kbcLVxLsbOnuN2AP
B1bWxdZvFcH8qwfz5mRycCkr8e+7mvZTUFj4oH0c5t57Pu/mauW+zONQNjZK
LWwNre+iJxf88zlMTfsvzDJQMd/5hRwuupMj1YFKPTxC+ZQE748LIp1+y+M4
B6PJbf/DWoIrn7MmWBVz6O7+6eW3tUq9OUvz91ltkLtOMZ/JJZS/N9mGnusJ
jOUG7DKHkhEXXnXbQJByQivY6jqH7NX1AcUUy+V24i16XTz9WEAwUfjfOxze
evW81C9EWb/7lJ8w7/ibFIdl5JiNL+NQsHyR+aaNCj4XPeKQssJhm3kogVze
bz7lsDfbLO0JxT2+9nd2r+CQpjEhYscmxfz6VXJYF3KYjNpMQNXuBvmP9mdk
trSGYl9qSH6/5vAnZ+K52C0EWtQueLzl8MbucJFDGFG8f6vnsNlfP+BjmFIv
P3KYNyivNmUrwTq6wK585hDmGTFoarhCD4Z95RC994b1N4orcjdM1PjBoUKW
/zczQrlvWuh8h8+OnxVJEL3mQqjuHw6x2RUfWiimp4Ovam0cSrU2quduo/u4
sqi1uoNDaP7UL3OilH6tiwyTR21Ma6XY+kRmU343Gb5MGaR9IFqpJz1kiJm7
fbpHDNXvLhfUknrKsOXQ4eltFMu7sV1Thn/ryrXzt9PntTZ+Qi8ZBuf2yvDY
odj3jn1k0CCJ3/5S3Omf9WTonRauc4BPQN2CjYq+DP2yvzW7CQic6AF9pYEM
e9ON9v4RKPMxlkHrkYlurpCAaw/4tZyR4a6fiZuLiIBu09O1pjJEOznO+ylS
+JOb5jI4uR1kssT0/l6fRzhYyHDDbtup6RJlv1nKIGRr+zRJlP1lLYPKkTa7
VJYo3kePlOFVQ9NgRynpPC9Zj5GBLHv96h3FEn/f6lu2Mszt2+wXxxHw+q9x
3ThOhrPPnQtsZQSFZc+8PtvLELFS/VI1xUPv9b5tP1GGFws90/mxSj8HGVyI
u5NlHOVXbrCdZLipwZwsp9iUBtBnmgyl0+saN8cTmNAD3scZMuyvudZsnEAU
/y+YRfm59N/VaxRTO9m9xkUGg0LvxasS6T6k9r3KTYars+Zd1k4ine/Lb3jI
cMn0e+MJip2W1JfneMpQmbTwvXcy5ePMUdWV3jLk1xwsbKOYuoF+soU0HwtV
h307CXppFh/Y6iPDxbXSXdN2UT9Gj1MafjKciF1S8nGXwk8OWCqDzoz8otgU
gr8+a292+Mvwf3kQ9ys=
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               Dashing[{Small, Small}], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwtWHk8VV0UVSiZGhCRe0/RhGZSJKtSGg0lmhWRNEnyFUK96d73zIpCkgZF
c2kevkbSgIoU0ciXUlEpkr7zvHf/eb/1u/fdu8/ea6+9zunns36OX2cVFZW4
Tioq8t/+16vOt6xj4C+/HknRkle2QrCBwa+5bw+mF8hw4N7+UK0QBk2PZ/v0
eBCDEXD5khjKILEhwtHmYSxKfSpKem9hUNq/siWyKA7iixNN08IZ9DsZHJB4
Jx6pmuJyk0gGcy4woo/eCWj33dOeHs1g17peArxMwFHziFRjAYMDQQ6aXvMT
ka+utz9VxMDRZuml6SWJWGTmaqbHMYhNpX+YlASNLsbGsVLF9/PzkmCSt4BX
j1Xe10pGXuzX4Ih4Bi/Nu2wzWJqM/ieuVjQmMrj1Y/Di+OxkFOzNuOK3g8Gm
ZCM1z/JkDJb4kYoUBvf3TTn37Wcy1lk1qE/fzaCzpaT3c/UdSG5XW38hncHZ
wtBre9uTIe4bvmRgJgMHzWf7g2qSMXSJ8ZOkLAa2/MRl7w8lY7FXbumfbAYu
Pj3mj1uQjP2rvixceZCB/nHn1600vt43c4OKcxioeeoOHXUtCV/90vTH5DKg
2b5N1ifBfNyWaelHGWgc7bvwHZOEavW/On+PM2iNDLwS8jARrwSv/JefYvC+
hCY8LBHl3sUeN88o4t84KBExk8Ke9zvH4HWY/vGCxwnQq4hpjrqgfD4iAY/K
TxyrusRgy4eBI7kBCVjThVcZe5UBzbZ2593xKJ56+WvidQaTltF/vI9DZUpt
VP0NBn3kAQ+Pg7XJ4RMTbzOIouEkb47Fe/O0bal3GcjT9ejfGLTYevz8WKio
778aMWjvubqX430G8nTrzpEh6GTQ04SHDOTl1d4jhanX9wmvixk00/LcrOcR
mLJ97ojHDOR0cR/PI8H9oF7kUwYe8gQlcrhx+210UTmDkfIEfZRgvOxmhsFz
BncIJdwMCTwP3grwrmSQ20gJe1IM/0j/2pyXDNJ204sRI7dpkOGXGgYPH9Br
pwjG87a3Wb9hIC+nQ28RzDc1pG55p3xfphC+B6rrr9QyCOggvBA2Vwqb2/9j
IH9c84UA8836XnX8qIxfLID3k6mOUQ0MBskDnCyA1dKzkVe/MNCWE8pAgNnf
Hka0NjKgq7vA/NqOOX6tdmO+K/n5eTt0h2deCmpmsJ6mr0hFgJLNJn+O/GIg
b6cGPQF408eqb1qV8Q0Q4P0JtsToD4Pin7RhRwrgEeXt6/KXwUZ5wBME6Lan
/tr2TqyiXrMFqH9l+C5flcW1vcbDXy4TYP1n+6d16qyiv9cJEDruSIKRBgt5
OX9uFqCH1knjaZosTIbTjqLrGy3O3BiqrbyfKsCao/9m7NdlMaDLtp2TDwoQ
5bMstbgHq+if4wL8DrmzorUXq+DHFQH+zbDpYm7AKuJ9IMBWwfeIWYYsFq6w
r3EtF8CkcHLRxj4sRsuvGgEGq/p+2W3CIuM2XXCDAOb34xuumbIKPv8R4PkF
9btvWOX6ugqRtLp9i3p/VtFP3YXwiD2lOcicBc3mvil9hej2zGOL80Dl94cI
sUe/b4H/YGX8o4TQHzLuh9CCVeR7An1fryq1bCtWwecZQsz/POrn1WEshp7e
8yXHXYirbaseVoxgIW8fyyVC6B3M45pGsQr+BQoh20IstGxYbJUL2gYhVO2/
nO5vy6LtCH0gXIiqqvHm48axCn3khDjNWUW52LMKfiYI0Se75raPAws5Hfal
CTG9aFPzJkcWNFuxqYeEuPNW24CbyGKGnGDHhGg0uNFv92S2Qz9WXBTiaMlR
0yNTWMjDvXtLiOLi/7pdcFbGf0+Ic0xM3Z3prELPy4Q4YXL0/OOZyvrWCLEu
fHF49WwWQ+73KLCrFWLtrBOjP7iyWH7riaXfbyFmtZ593eRO67F8X/lZXRH6
u0eIf8+l/Bqx22JXXxGKonuZqXqy6Oq9a5aBlQhDiOBCt/ksHL0Wnbo+XoRl
Iyqcuy9k4U0/4DxTBC1i/FhvsbKeC0XwfuQ633Api2fWX8ZOCRDBKy6yss8y
Fk+uvNU3DRXh3pDcxSY+tD6zDGKKhCKEvXtaZbKCRd+I5aPKEkWwjPq72MSf
BX2bkdpeEdLthlT3CWBxMbbL195HRRC/cF1uGMii5MyCHxcviLDj8Po6vTUs
plR8/T7jjggu/wg2dF/HwpCm40mpCH8PCFU0g1iEujK9A6tFSGFW71QNZmGd
fdZ2c70IET5DR7ZtpPmd3Pfjm2YR/AX/Pv22icWYvAlelZ3EYC2NttX/w3bM
h4uaYszeM9D21RYW88edLWw2FMPyUtXPp+EsRu62MNrZXwzHTha3C7eyHXpY
aiGG9o62jMtRbId+ZI4V4/zYiYJj21iUe34aftlJjGOL3/6TKVDUd9AsMRwM
H4bHiVjcPjVs3X4vMYZa1cVvlbAwv9gmCfEXY6Zun/zVPIsfF19It64T48fr
aZ/my5T8CxUjI2rRmCmxLJbOLOzqIBbDKdR6x4h4Fk6yNXXh8fR5nXNdTBIV
//+zUwzrGTfi1JIpPzzmDCL7xQj4ZDO0YQeLrzl3Z9qeEGNSaNObpylshx73
yReDsXp68vIuFnZmM8JVr4mxxPB86r40FkW3Jh1b9UCMCxqhu8QZLJLtOs1W
eyJGYlr9mcBMFgddoLf8uRh2oxvqZ2exSK81zQmoo/nqOm/CiGwWsYMbdCY0
ipFl8ut4zwMsnFU3a5k30/xNy3NoOshim9qd+FMqEvQeN+ljaY6y/joS+AXH
Xzh5hL7fanLf1XoS1LitOBSXx6Jgpi1/w1iCIu3E/NXHWNS80koeMkSCpsvv
ap1PsLhblS9sGy7BjblD7c1OsdAvcaoIsqbzKM/2zJ/TynxDgpStxa7PzrKg
7uDstOkS2K++3vPkOWU8sySobCtpkVxgcU4YUXLGU4KPBx5oeF9iUb/ztHbj
cgmu3tjiaHOFxjPELum+nwSRezMzNa+xIL6fF95cLcGgMJVBNddZHD1W4R26
WYLgKN/np2+wKNx1OaVHpAR3SqTnRLdYxTzdJoGJaOx1rzssdF4NTSBxEtTm
Dv0+uIBFgw7t4J0S/Jhu4dlSSOtb+Wzbxl0STPdreF9YxOK8T9Rzh2wJGtqs
D6Q+YCE9+fqDQa4EJd2vJfo9onx/aO9SekwC6R6nE6NKWITLDdA5CUYcFvxp
L2VB3WLglasSGI2x2Vr0hOqVQ/o89pYEqXN7Dd9ZptC7fvckuKf/RM/7GYun
ln59fIolcE4dZjX4OYsVD5bMLCyj9VGt3Pz1BYtOs4U6xZUSTE2IbT1fxaIq
QGV9pzcSPIhuPRVZzXb4hRd1EqhblO11eqXUywYJNjQV3+72hkVg9QZp3DcJ
Bnhk9Hv0lkVZXaBlaIsEK6rrzyW+Z9Gz4NKF2L8STLFdLfKoY6F+J37kP+oc
ppk+iO39gUXI1B3NYi0ODQGXS57Vs+jWkrXyTE96X7fWZdcnqg89x4y/asgh
nvmlMf8zi/h3TexjUw659zL+9v7K4kDNNd0MMw7nvSNHlzWyiNu0wURnCIeE
OVMPJn1jO/yl3zAObrZ75rn+oPz5cP6EqjWH0gKLKVo/qX7KBXAcB7N3O0Pu
/mLxX6Bls6EjR/VC+C66VTl/nThs0cjYaddG52m22cW26Rw+ZURz3/6wOLHD
j/N15dBcUXY17y8L2i2DIz043B/Lpp9SIVjptGp90AIOngOGtcR0Ior8LeVg
NT6gZWVngomNvg+W+HIYmWWaMUmVoHOahgkTwOGBTubrvmoEyUe2u99bw2Fn
5diiZorbJ7c2rN7AQeX3eM8SdYLPH/8dZxbKQbfll+hIF4KUfnGbGsM4fGu/
tGB7V4KztD1fRHG4/rikdKEG6ZhP/wg5aFRIPo/qRlA0iioczyGmx9CTmpoE
0+QGOJbDi746hm8o7shnEoem8SFmF7UIfPaVW69P4fCf2/GyeG3S0Y+FaRxE
z7sM89chkMvv00wOdb8Krcbrko55UJTNoe9Gx8c9uyvff4jDzeNnmTqKhZkP
c4tzOezLD+51pQeBS2ni4vbjHJxtbh1L6EmQkPVrZO1pDnuivnxd0YtgiLzB
znPYLkPVWD2CI3olTvMvc1j+o329tj5BKA132XUOd/8GH62huIOft2j8ye8S
TxsQPPcOdc0s4LBmUjoR9SYYNW+ExZH7HHZNrp7vZUgU+4FiDtj83W6IEcGc
QVn8iCccLAPNC1op1so/tMX5GYdDs87+ud+H4Psaz63DKjno/flQnWFMcKZ+
Y75BDYcQVa3Va00IuklZ389vOLQkLc526Euwv9MV9V51HMRSM5GOKenwr90/
cnDYdEDvJcVL1t5pP/2Zg7rMzOUoQxR63cRB/9Q763CWYIF4bPmUZg7rwiwL
pxOC3r/vf77XwiFosL2GUT8Cz63Hz/n84eCe5/njPcVdeuk73lXhkZX9b/yZ
/kThF9V4PFpy+Vm0GUHTxGL/sq48DlVxD2ebk475nqLFo7Q4cIPxAILH6727
unTn4bE7+1Ytxbpyg6LHQ2f2htunBxLcGGc243dvHpanDEMiB5EOPdprzOP0
hPLH0wcTtIysPT6A4fGlX8Mr/SEEX3tPc4vox6PJLiOzhmK5X9EbwKMbY6ad
a0Egb8+Vg3mM0b8xJMSSQI8GWGtJ4zPJ/+lgRdBfTsjhPIb85xDadShRzLtR
PLLf7j5YQrEb3dAm2fCIHNZVvHsYQUPmeKunY3lYZN0y9BlOkE23q3/s6f0C
7UUWI0iHvjg40u99ZN2aKDZ2f2ESMYnHYk27nxdHEiRG/rYLmsLjWlWq27ZR
yvVN4+H5ZNPiaaMJnlD7XzGTx3WjHibdrYlCv1x4pCdmx5RRLPdbe9x5qL8M
OJVuQ7A371hFjQePVo9MfvkYovAvXjxu60YaDLIlivm+iIdv5aR5nyjON/h9
f91SHj+dB00/NZZAPh4Sl9P1ZPo1bhpH9YUKbt4KHjve2brY2RG80ze9934l
D7OaZ97tFGfxdMAE8tjePWrgTXvSoXfa63hE5/tni8aTDr1qD+KxtrjgyTQH
otjPhvDgjCsvaU1Q9MO3UB7z9Z57PaJYa+qATZ3DeBg2t+QmOBJQd5NeFkH5
cH3T2TkgWCsnYBSPbxbCEP2JdL20vcu285h3fvHHMopn1qtZJ4p4NGSP6ZM6
iYDazXknOR4an6e1e01W8kPG4+XCojQjJwU/kuMof9Y2fq6guGO/kchj5brv
rbumELByQ5fMI9i/2/X5UwksqfzwKTT/Zv72Rs40nxommUt38xhoi6Bnzor8
+GXwWNX8YEnKNKLwe3t5DAqfqDZvOgH/uPqVVjaP9/sf++rNoP2sveGo1kEe
0/XzI0oplpe3Pof+38bUNX4mQV5xmeenXB6DxzhWzppF8QRq0I/xkGi59tOc
TRBpOnbl7ZM8VDZE9yugWI9uAPLO8Cj/r0uVwEXZ/+d4rLli4A5Xgpwt1KFc
5LGrrSa6jWL58UjJZR4/tu1afcGN4DS1o9uu87Bt2NAzxJ1g1iHNqQNu8YjI
yQwePofgE90eq9/lkfHGLb6eYvn26V4h5fvuSysPziWQxr1r2nufx/IEnTZv
D9KxP7n0iMfoeeGzjOcRxX6slEeVo82CpxRbR5/H9qc8YoLX9I/zJKDLcVpV
wUPzhfthZy8CC7kAV/HoPKz3R5X5ivnwpYaHe+OH+osUd5zXvOXhFvwnJ3gB
AZ2OMeNqKT/vR/e3XEjnRxh1+B94tL/ev/AtxXI/lfWJx5ZVKW7piwjurrWO
tv3Ko+SVRG3uYoKptH09mnhY78gJ1VxCOvZT77/z6LHHPOcGxR3+8yfl25uh
KZuX0vtU4HN/87hi1DR5uDdBpfSP3z/tPHrf2nvyPcVyP3ZVRQrZKL+q9GUE
Vn593lSoSVEnDipwX04UfqqLFFXHv2zo6kP79bDNQ/tuUjgH9Ki64qPQ+51a
UoRBpUuwL11vXQx10FKE7/j0ZeAKgn7s9zXlPaWYndg5rZJiqiaPOD0phluv
V0vwI4ifG2JuaCTFmxnew5386fefptWa9pHi88a/xr8olo+D8L5S1DARBXkr
Ca7rZozOZqTgYzrZeAdQvNV0bB2RYlbxZd9eqwionXM9YS7FnPvlc+9QvPNp
t4DsgVIUj4lU3xxIOvZf9RZSOKW93Gyxmij8i5UUV93I8arVCr0yHSFFD27D
wbg1ivpcGyWFycS2pVirmOczbKTo4vbxRSPFcj86fhxd/+JVffavo3ym29vd
9jR/r7OMPdaTDj/rPlGKy8OvVKsFkY7z0lpnKbJWvffLp7jjPGIuvS+ZetJv
A+nwizo+Urz17HbNIFjZb0E0P5u94u9QfNiraJRTtBS5Kxaab9pIECY39DIp
Uvztt5qHEAzurpU/MEmKvVlmaU8olp9vqlKcpjk+fPsmgtt0XFTvkGJd8DEy
MpQozht3SeEWkSWtobhjP5whRUu2w8XYf6heyQUuW4rXtseO2m9W5C/wiBSh
voZ+HyheRBO245QUcwcceJOyhUB+e/YlKTZ7hA9wCiOgduTVsRtSRO29PbQx
TKnH96R4FpPze084gXzcLC+R4kfYzPgZEQSjqR37XC5FbNaz/5op1nWlFaqS
olB7o8b+rQTVnamjeC1FSI7TZ5dIgpuGA+eq10oxceTGtFaKH6vQJz5S/kwe
oHMoikBOn+CvUkTP2TbVPVrpj35I8c+RY1PbopX1bJXi77oSnZxtBH/7/Wn+
0S7FwP3dM9y3E0zfEz3wpqoMmiSx8TfFcvuaoiFDj7Qw3UMCpZ5oy2CQ1djk
KqT6vIk62J4y7E032dsiVNTrtr4M2qWmevtFSv9gJEORt6nrLLHSD5vIEDXJ
ce4PsUJ/ZawMk1wPs5kS6tcctsw/3F+G27Zbz07llPkfKIOIf9PzC8Xy8yE7
CxlUjrfZpvL0feGC4Q+GylBd/2Wgo1TJp5EyEJ9X1bVS5byylmFOrybvOBn1
o25tRt9sZbhQPi3XJob6r6qpqr/sZAhfqXGtiuKO86YJMlQs8EgXxCr6c89E
GWYRt0kWcQSr1n8V3XOS4Y4me6aE4o7zgmkyFE591xAaT5Ca0D3s3EwZDtbc
bOqboNgPfHWh+bn28sZNitdsDjtoNUeGPnleiwISCRzkH5gnw40Zc6/rJBHF
fniBDNf6fWs4naT0G4tleJ60oM4rmfa7QcyMem8ZcmoO57UlK/XSl65nsKr9
vh1EsX/zl+HqWunOKTupfzQ8X6oSKMPp2GWXP1AcRQXJZa0Mus45R2NTKH/p
hJocJMP/vmPvSg==
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               Dashing[{0, Small, Small, Small}], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJwtWHc8VW8cVlISqRAZ57zFT6W00ZKnvUlmpbSUliIpI3TnuQcZFRlJU6Gl
pBLS3rSJiIZSEk2Sfu917/3H5/Ge8Z7v93me7/f79l2+cb5XRxUVlZ0dVFTk
f/sVVuQ2+zB4cJ/+nGVozny2UujLwEY2cem78TwO3zkU0M2fwW+nN0eSh0Zg
GOwbYgMY3JpNrzCOxKPlpSW9Axk86lfeHKoaBcnFiSZJwQw0Ow6S9q6PQoKG
5LlRKIPY+hA7qyc70bZiX1tyuPJ9udHIMgtJMBQykF++YHYMctR0DiWIGbDi
T44XzsdgkamDqQ7HwH55D/cxxrFQ72xoGMUzGK6eZbwwMBZGmQtkalEMyh7+
clpxPxaZUV/9QqIZ9Onk2v2EThz6ncovbYxVvD9nbhxu7U+57LWbwdf0m7Nz
t8VhgNSLlMYzGPrKrHOHXXHwGVyvNjORAf3a62lJcdjV1mnjhWQG57/9ffo7
Kg4S4+DF5qkMVsl/6+JgudjwSVwag4zGx3OXj4iDh1vGo78HGQz0iL665X0s
Dq1pWLj6CIODU89/254Si95XMzYVpzN4cWiTrYZTLL56JelaZyj2Y9M1FmZj
AmckZzGQf+65ghhUqv3T+neSgTf9gMLNMXgtfL1q2RkG8vAwA2Lw3LPY+epZ
BivHVTlE0XhGTgoq63uewdrL/rsMTKKhUxr5M+yCMt7hO/Hw+akTFZcY3CCn
/bxrorC+s0xldL5if38nRqF4Wt7X2EIGTfRzeqRFojz+fVhdkTJ/fyMwyujY
qYnXGWy3s1pyaUEE3pkl7Ui4yWD+BUb8KYdHs43zr0+3GSy5NFOzYy8ebT3X
9bK7p7x/owybTm96GvOAgfDK3QNTH3Iwcfs+obqYgYr8N4zD2niB07DHDCgd
yh7uliLG8YhO6FPlfv9KUHT9Tfjd5wwoiq1fK8H4iKspemUMjiZfJ6crxHA9
cs3bs1yRf0sXMVaFrnqf/kq5nzIRMpr66zdUMTCldF27WARDF0HrqBoGNF0/
BnwWwmxLfULgWwYL5QHlhVhxuLLu8nsG+nKCWQphdfn2z7YPDK79GOAR/VIA
d1PjfLtPSr7vEsDzyTS7sHoGz7Z9NB/uIcDgJedC8xsYjJT/rAWY++1BSEuj
8vlEgPleLWOtvzOgV6tnmQnQfWjqpU0/GRTR8Jy3E6Bkm9Hf478Z9JcT3lUA
mclj1ZoWBvLtX94gwLtTbInBX+X7dwjgHOa5wv4fg7andAPxAnTdV1cg6MDi
+1/6jwwB6l7rv81RZRXfWyjAxi/jntaqsYp8PBIgYMzxGAN1Fik0nH7VAvTo
dtpwhgbbzucfjQKMlKRuDtBkQdl5O6CDEOuzrqQc6s5iQ+2f443aQoQtX5pQ
3INV5IsR4o//jZUtvVjs2DM5Yj2N35UUq85meiyqg3RPTh8vxHbh95A5+qwi
37OEMLo9+e7mPsr7FwgxQHVFQ6IRq9C/N83Pvej6AhMW3S2z9zUECFF2Qe1m
DctCTseZYiHi1rUFqvVjIbeHlbuEcI46o9HfjG33l7IDQnR94Rw43ZyFiTwB
p4TYp2t8a9UAFvLtP84XQnfgmB8iCxbHqBxl9+jzelV0OjiYVeitTAj3LyN+
5Q9hFf7zXoj81jUPSoex6Csn5DchdI5kck0jlFhFhIhAYtHNisVmuYC1RFAd
15Ddz4aFXJ6dDEWoqBhvNmYMiydUbu7mImRzg8Psx7Fooen1HyFCn4NV15fb
sgo/mCDCzLtbfm6xY+EsN6hZItx4o6nHTWQVenQVoVGvqG/iZOX7l4mQVZJl
cnwqi17yBK8Xobj4Q9cL05Xfu1WE80xk7Y2ZLKbJDU4gwimjrNzHs1lErKdX
RIngE+wRXDmXRZlngAOTKMKGOadGfnRg8fnKGNO7J0SY03KuusmRxZnCz6nj
r4jQzzFE8seJxeopazZueiTC3fBepqquLOX9Tqfv1SIMJMILXd1ZDJtzVONm
owhLh5VO117IoivPrvDpIEY3YvhYx4NFjt6fez49xPB86OCuv4TFql9vlx1g
xXDbGVreZykL+viv4iFi3BmY4WG0nAUOVxV0txUj6O3TCqOVLOjjviycLcag
sH8eRqtYzItK8IlbIEby2IGVfbyV8VkthuSlwzL9tSzk9uW4RYzdxzbW6qxn
FfVAKIb9VqGvtg+Lu85Fx8xixPh3WKSisYmFoeNLo5B9YsQz6/ao+rH4M3bT
Q/UMMUKWWw5v3cxigHa3HPNc6j/CK0+/bWHh9nloXvo1MdhBBjvqtrKK+lEi
xtx95javA9l2fzhL/WvQpYpfT4NZJFoY7Hn6QQy7DhbXb29nFXr+IYbm7taU
vDAWOsuuPRnUQYLc0ROFJ3awqNcqGJaoKcEJjzdbU4UsFj25/EbXQAJb/QfB
O8Uspk73a47uJ4Hl4Nro7VKlngdLMLt7n5x1Mqonh1O731lL8KN6xmf3CJof
i+M6JRMlSAlbZD01isWog+dsfs+RYErAqN3DopXxdafXa53vbBTL4teW1ymx
KyQYNatoZ6ddyv34SOD92cqyfjeL/lcl6W6BEkwKaKp5Gs+C3j2pQCgBM/jp
6by9LLo87OP4MkqCxfq5CQeSWEX9T5DggnrAXkkKi8qOlCEHJIhNqju7NpWF
58B7PaZnSDB2ZH3d3DQWPYKsMwvOSmDXxWXCsIMsvDKWOs/PlyDN6PfJnocV
+k29KYHmjEzbpiOK/LUWS9B7zKRPj9KV+SqTwMsv+sLp4yyiBtRrTaiRoGre
yqM7M1mItBxO6X6S4K5mbM66EyxouLzUv0vQlPf2/fRTLOR2WNBK65OT5TjT
MyyWjXAZZqEmhWumzdm/2Sx8DnW4LNaSIn57scOLcyyMQ5aNeKYnxbh1hT1P
n2eR2pB+856JFOWtJc3SCyxCIy+u62ouxafD99U9L9HnyxNoKUV+UaCd1WUW
p1VrI49ZSRG6PzVVo0ARj1u2UvQPUulfVcjC+2zdZqtpUviFrSjLLmJxosVj
w1R7KW6U8OfF11hQNfeuc5HCSDy60O0Gi+OH7bFrsRTvMyy/D7jFKvoHLyl+
zLRwbb7NYlLxqmer10sx06v+3e27LFyKjh2295eivnXU4YT7LIrGmM4KDpGi
RLsg1ush217PBoul4PdNOTWihEU5/9dra5QUw44J/7Y9YhFPy0Etre8G1lbb
7z5hsX/84KdJyVIkOPUauueZ4n21B6S4o/tEx/MFvT5b0zfrmBTTE4YMHlCm
5MtJKapUy7d9fclC67VlDMmRYlpMVEtuBYuwMtvA0jwp7oe3nAmtZBFMy031
VSnULJ7tn/Kahb/cYO5I4dtUfL1rDYvbe/PiY0qk+M85pe/DN5TfO9827X8u
xcrKuvOx71hUeKts3FEhxVSbdWLnWhaF3VNG9quRYobJ/ajeHxV6zKyl8fDO
K3lRR/XQ2XPvnHq63v29/d7PlP9pstPVTVJEM7/V3b9Q/VGBnP4tRcadlH+9
v9L9+2ZFLGqTItczdOSzRhZJiYmJfTpxiJk/7UjcNxaB8oBqcJhns8/F4QeL
3VLxwifaHB7dspja7ZfCH47qcTB9u8f/5m8WR+zplow46heit+EtlN9yQvXl
EKiesmdsq7J+9+fwOSWc+/ZXyWdLDj9Ln+Vn/qP6TR0/2HkEh3uj2eQzKgSj
qaE32HBw/W9Ic2QHotC3LYfB472bV3ckiv5uMofhaSYpk1SJor7M4HBfK7Xa
uBOBhrzhteewp3z03Z8UC2pu7c1z4qDyZ7xriRpBoPsxq7kLOHRv/i0+3plA
7Ub08K1LOHxru7RA0IWALj/IW8Gh8HHJo4XqBLuOCxzveHNQL5V+GdGVKPxz
A4fIHpanNTQISr9+n1Xmx+GlsZZ+DcUV01S3ddvGoWm8v+nFbkShh+0cPsw7
+Sxak+DLJ1rQBBzEZZ2HrNIiOC8KKRkp5VD7+/bg8d0J5PIaG8nBeLPd457a
BAsko59PjeVw9eQ5ppbisZT+qvEcDuT49brcg7Tr2yWZw3SraydieirvT+Ow
L6zh68peBHJ7OH6YgyACFaN1CNIDbw0ce5zDsh9tGzV1CfL6a3ezOsnh5j+/
rCqKJQupoWfT/e96G5utR7D95Pnl/3I5rJ+UTMS9CWKGb7U8cJnD3smV7m76
BB9zT6muLuKAbd/HDjQgaDXY/KLXTQ6D1prdalHiuLscjs459/deH9LeH/Qt
5qDz92NliiFBjbt+ruMTDv6q3dZtMCKKelLKoTnO46CtMcGsYOHQ+xUcJLyp
WMuEoAM1aI1qDrZbDuu8ori9H3zHQS3C1D6LIXi37MDzc3UcdM+8HRXMElhn
TnAr/8LBJ2jQ7ZmEwCzhX0zoNw6bBoxTN+hLFPPKLw6Oma4/3lEs96O9rRzS
Dl6JPtuP5m9Npa9GBxkeLs57EW5KEHRk8OQUNRmOVnAP5poRJFI5R2vI8Kh4
ra/hfwTO/vQN3WVwTjx47b0c0/5pio4MWnN9r2ebE8jTNcxAhkFn9P1D+5P2
enDUWIbsCc8fzxxAQN3pvUlfGRr61r/WHUjwk7b/V/+ToWlsSmoVxWeDm06X
DJShK2OqmWFB2uthzyEyWOsWDfQfRNrnw5oRdH9GOb9sBxPFvGsjw8APtgFd
LAmyh9AKYSvDwTeJR0ooru6263jHqTKEDukiSRxC4zU+f368gwwWadf0lw8l
+FH+YsdmD7p+S3ORxTCC+dRghq2l7/vEzmuiWLdkSummABk8NMb+ujicwKsP
zWiYDAUVCfN2jCB47vp56DiBDK5PtnjMGEmw8v7i2TNEMhQa9DDSHkXwmba7
4ggZkmMPRj6j2ExuILtkUHvlfSbZirT76bIkGVqcU2XLrAkeZhQ/c90vw/Xu
oXr9bYii3z0sw4rySS6fKZ4nJ9xxGX5N7z/zzGiCPV7cisUn6PekejVuGUPA
fS9/0SFbht1vbezHjiUoObvgx8UcGUyrXni2jVU8//lFGQTaYeZXxylxvgzh
OasOiscT2LktOlN4Q4YNxbeezLCl/LvRlh38UAbOsPxStwkER/KL9M2fyeCu
U+b2kOIMgePMfS9l0P/ZnBFjR9r7u8NVlA+FW87NB2k/3yiqkeGbhchfdyIB
7ca6fngjg0uux6dnFFe9pgl6L0P9Qes+CZMI5PIwqZNB/cuMNrfJpL0+HPws
w6uFd5MMphB4kImNb75S/mxo/FJKcXPa6rNrf8mw2ud7y96pVE/yAa5VBr9V
XQvdpyn049uRR7LpqnEG05V87sLD3AabXlCcdyGq8yYNHmt+3l8cP4NguLxh
1OTRP3hiJ5eZBEbyBlabx7tDj1fozCLt/UhGTx4zdXNCHlFsMTbu3j9der+V
iUP0bIIdnW5EnzHgMcDarnzOHILk9ybp3sY8pN0c+mrMVawP78tDxTe87y2K
9XMfqSwx5/H8Q+cKoT3Bv+zgpmGDeKy/rOcIB5q/Z5RgQ3nsba0Kb6VYnp7P
w3n82LF33YV5BJfjY7RbRvKwqfft6e+o1LMVj5D0VL+h8wkc5BXVmkdKzbzo
OorNLrZKv4/hEZp4afURJ9Jen1lbHstitFo9nQnk7QjAY6RL8BxDF6Kop1N4
VNhZLXhK8WOVyo6yGTwi/db32+lK2s9LtOby0HjpeGy6G8GjWI+2aw48Og7p
/UnFnSj6tXk8HBs/1l10V97vyGOe3990vwUEe1/tkoqdeJjeC+83aCHBe7vD
VRNceLRVH1r4ZqHCPx+58QhcEz8veRFR9CeLeJS8lnZy8iDw7rd+W9ASHqN2
pwdoLCaK/mMZjx77zNKLKA7PhWC5Fw+XGsv4bUuIoh6v4XHZoGnyUE/K1xHX
z5xcx6P3tf2n31Esn9cGbuARMcKrInkpUcyvFNdKNt1yXEb1PDSvf7QPjcfJ
Bt8uyxX+8NWXx3TvHhWXKX6ZRQuiP48gqHT2W0Ha59uX23gE7/7cYL5S6e+h
PObGdkwqp5iOU71Ud/AYOmpjpxgv5TrFNbM8h05ZRZAQox1kHc7jy+Z/hr8p
vndg6vlvFFcxIbcyVxPFPCngIYvsYOXpTdr7o2UUzynOW9FrDQGdbrwSxTzm
33vudIPiGdVBukMieRRbh6ptW0ugZ3LnnV0cjylJr7ZZrCPt8+bXPTzy55GT
FRRPaan/hAQaT873yM71BAG+RlpL43kYTWxdgg1EcZ5Hr+8879PLRop7r6UT
Kr0+yGNNn0M+tN5NmvChbC+NX3WaofNGgpsbRoXnJvLIG3q5stMm2t9E0gEh
lUfamndeORT70OUrR+i6dNppL18CIbUXlUweb1y7Fuj5Efy+ujJjaRaNzza3
6BsUy487tlKcsXKh2ZbNBK7dLbNNTvCIXzVuu5k/wVfxHeciivenmSY9oXjk
9TNDvlCcpDE+WLCFgKp7h94ZHj5+J8jwAJpPu5sVVhcoP0PS+CqKjT/VWCfl
82g+aHsxaquSjwU8qm1OZI3bRhTzCsUBK/S9PlJM7f+2tJCH03+Ha+IDlfXn
Co9tzsH/TQkiqPTld66kOGz/dctGiuX998IbPF5Epv/ZF0z9hI6LUx5QfQfN
jp4VQhT9ZgmPqLQXH35SfLKUJryYx23NzeqHtivq4XK67p8+5Yt9KEE+tc87
FE8cvjmpJVS5H4q/TP5P62gYvX86JcATHuHzd0xzDCeK84EyHluPn5jWGq7s
F1/x+OdTopW+g0DdNtmFraR+eUg7xVFAMHNfuPkkijVIbOMfig+ZUkOpovxI
Cup+VEjreQIVNMV6aY1NDiKCrBOlnj+rafyTjfY3i5T+XctD85GJziExUZyP
1fG462niMEdCMFcvctbajzQ+k+ycflAsSn2Q4fCJxySHY2yqlPKZpv/pZx7X
bbafm8YRxPfduaWxnodYVtOzgWL5/De7kfrryVabBBlRnE9+41FZ12Buxyv1
/50HWf668j3FrvszT5T+pPro1eS5M4L2c7TdntvM48LzGRlWkQRyu1zUQvW7
Wr2gIlJRD//84VG6wDlZGEUw3l7ueFRvZN4ki51EMZ/943FDgz1bQnGzNu0g
O0Tg9rS39QHRBNHUbh+rRuBI1dUm4xhFveqiFoH9Ba+KrsYo+iXzLhHok+m2
yDuWtJ8Hr+sagaJZToVacdQv5+hF3tWIQEHfb/XZcQr/D9KMQFncglq3XQTy
7YRqRyC96lhmK8Ub5QLoGYELA1THHdit1I9OBPI38Hum7iFYfuD5qAbdCGRH
Lc37SHH7+VzvCHSfnp4VFU/7gZsVOSL9CPwPbHAOKg==
               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, AxesOrigin -> {7.58315269907919, 0}, 
          PlotRange -> {{7.594089575094925, 8.294049640102028}, {
            0, 1281.462}}, DisplayFunction -> Identity, AspectRatio -> 
          NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
          AxesLabel -> {
            FormBox["\"year\"", TraditionalForm], 
            FormBox["\"GtC\"", TraditionalForm]}, 
          AxesOrigin -> {7.58315269907919, 0}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, 
          Frame -> {{False, False}, {False, False}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {
             Charting`ScaledTicks[{Log, Exp}], 
             Charting`ScaledFrameTicks[{Log, Exp}]}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
          FormBox["\"Atmos_CBA1200_UVic\"", TraditionalForm], 
          PlotRange -> {{7.594089575094925, 8.294049640102028}, {
            0, 1281.462}}, PlotRangeClipping -> True, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
        192., -116.80842387373012`}, 
        ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], 
       InsetBox[
        GraphicsBox[{{{}, {{{}, {}, {
              Hue[0.67, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJw1mHc8Vu8bx5/B85xHKCNknHOKZJYGSnRfiTRkZFb6kpVSlFAyI7QkJWRH
UkZRKaWSSqSBpiIaSinrsffv9u37+8vr/brOc9z3NT/Xme3svdGNxWAwTjIZ
jKm/c8qbbg17kbBpSVqasGg3Gs5/6xqxl4Qyo/53D2z56MLTbP9pviR4N9xU
uV7Rh7TArCvOn4SrLxfSgfcGUL1zQ51UAAmaTqxbne5DKOr2SoXkQBKUq9Je
VRwcQYlCUe/kQkg4JFAZu3BwDE24pE2khJFwjBU8x/z0BCpQCkqUjSDhrbJZ
534VBpQISmQnRpIgFEksPbyTCVsUzRUljpDQRftfrFvGAoIjKxtzjIRAySsm
X/TYIJe/6ahgDAnlPSXbEwQEID+m2ycolgT15mp9fpUAzLl6r6EnjoRm/bez
dSMEoSoj9a5bPAlGx3e1japyQCXajW5IIOHOQoNtR6s44KXRIbj2HAnxAxzH
JFMunJkQ8C5NIcHsYMvQx+tciJIP3KqcTkJ0k7Du514uaG6VfX06kwRZrwdt
0WIEONjl1Y9nkXC5YokwhTl7R9fm7TkktDEq5A0muCD1MG9PbS4JF+sCYrZ+
5UK3W7KkTh4JwkWxZltvc0FpWcCalAL8/3dmnKw6wYVmwUmRySsk8Nvl2dfs
uPA54rP7tmISpr06Yfx6FhfeOdZaP7xOwvYUudcS7zhwwvDgh9k3SYjjn8Fv
4IBEw4mB0FISbCouXTADDrx8d7Ww6Q4Jv4K/edb+EYRdnKOMpfdIeFq9qeH1
SUGoXV3WHVdOgsG8e95BmoLQmPAjtL2ChJnfxjaoPBaAJXKXrq58TEJY8uab
7+wE4LtS8qHEJyRUd+0eud7ChmFd68Hf1dge7Ntes50NE2Ke4ugZCUOzpEUP
t7JgT9GeN6deYP8/mG19eRMLFOz6VnypJcGQt3j3ZA0TdiaEW2m9IsFt1ld7
aV0mnLLMkQh5g/29+/giuQsMqHj8LazmHQkqfKVfyTwG6B9/mDrzAwnW3iK7
zn6eQLY5jzwcG0lYefeKY1HKOHIPcf+R+4mE7F9/XPdIjqE8/jzprhYSzgbb
CUxuGUWyNuFjS76SkKee8T2gexgp+XUkBrTi/Hufvcfg2BByudDcfvcHCV9C
1T8Uiw0h7bvVAxM/cb6t8Xh2O34A2SvK30O/SdjiqHTju0M/cny9GoV2kPDK
25H7clY/0vjnRsi9LhKWqWy72NHSizb0vgga6SHheeia8mCFXrTRbURPp48E
nTPeN28v7EWiC9Lv7Bkg4YyC3KEDW/mo7oDc+OUhEo7vnVCWnMNHRxVesb+O
kCDXPyOmM5OPvl+l6mTGSZgQNT60QoyPrEMdXcwmSfAUnfG83oWPeGnt98OZ
FET5ZG2NjOej9s/SrSVsCsaaL6JR/Lx35/I3bYIUJEV9UXSu4SP/ZZdPyRAU
SGewnPQjetGMaUWya4Qo8E1asODB/V60OCp9n78wBYubwmqnZ/eiXQUPUrNF
KYgsjqS5Ob0o1NkpsXYGBdoluwoXnO5Fo76VriPiFDxpKjkcZNGHHqRqc5Rm
UjB9WsnFgKpeFBzRF2QqTUFFYVlA3qNeJFe9qmbfLAoOTFNSCTnRh1TYLl3n
5CgoKGxw9DfvQ0rPYjvuK1Bw+a7ClxtOfehDqeCTrxQFZvVxDhOP+tBpz4kA
wTkUuNpXyp2r6kPWMcVC85QoWPJ+x4Ucnz7Ee28dYKJMgcNmkaOBGv0oTVK+
yl2FglyHL1vnO/cjSdVl/YfVqL/1ge2nxZsEsjTw+51n2C+70Y/sOxcN3ptP
wVT5fXjaj+6N7XjRoEXBuUM1Q4Pn+pFETv4R/iIKrs33ymbqD6DjAbTaNG0K
+IEpE39MBhB7ede1OboUzFA8bCKHualJX2nZMgpWLau/YrhuAF07ohFqtpyC
2w/LHB7vH0CzsloeOxtQUMrMoFYfGUBra/wG/BAFWqYXhVbnDKDKb8Izj6z8
//0HUM/MitnnVlEQM3W8zwOooK5A4bIxBTbNJ/ds7h5AtbU/eaUmFAQsf7ij
YtogukmeaKtcS/3NJ3oQXZUruPVqPQVT7fyH6iDyCnQIbN5AwajD7sqJRYNo
t+nVxb/MKVi/KWrpO+NBZDpy4wvfkoLk+HCvBTsG0RzLoKhRKwqmjjfXbxDV
hIkrsm0p4H2pfyLmOYhU6YhSnj3+vf8uga/Y7qTVYDJ9M7ZbWD17d3AQTaNl
X0k44Pv+qg25cGQQOb40t5f+h4IOkfta5/IGkd3JkMZZThScuB++xKV+ED1V
zXOQc6bgef23QZ3xQXSw9U2TnCsFK9W1XP3Uh5B66KSDnDsF1cLWT8rNh1CK
nmrzLA8Kfp9K+cIJwvPqo/k26Z0UeI1cp1SzhlD8Je82iV0U1N6LXn+ybAiZ
7Y/YO92L+tuvPgyhyQuHGUJ7KLCISfQSZw+jBNLzLNsH18er0SfvyWEU5Ky5
cGwfPo9x0Dx3g2HkHvHgTa8fBQuJAvnNrsOIUpc51L6fAvOtwxq1EcNoQ5qy
7ucACjKKHrNrLg4j9TtNg28CKfA3J6V2vhhGiKn2uDqYgp8VnzaVdQwj4fix
1LJQCmSjYo+oio2gW0tXRhQeoiD80ijjgs4IKnT4tj89Aj8fPpKwbOsIMpB+
EXgykoJ/wxE+gjQ12mKDoykwSLHJyC8cQetFZ5V4HsX1POyOJ8gI6v+y5o/9
cdwvbO7GBbSOoNTQLTrGMRS8ufX81zWZUWTkvyReKxbnl8pUREZRv8hNjlwc
BddfxPzirR9FS9ZVnBQ4g/Pn3wuMIo8/2pod8RRMlaNJyCgy9Od/fZNAwTJj
E5/h2FFEarwpKkvC+Wf6qFuseBRtlb6VeD4Z96NPZ6IjP46iUsI/KSqVgg0z
T6xrFxhDccnt13emU+Bz7GQrnxpDeos72jdk4vc5a64QhDGEuDYrtLIoIIcj
DrX9M4Yy5YauiF2gQN4x0H1t2BgSXpNvwM+h4KG0spVg9hiSWmb4uz4X14P9
Je0XZWPIzSe2tOgyBc96P3cWfBpDLRauF0/mU3DKc1Xl0skxVCMcV+JZSIG3
2sZtu2aPI35Z6w+TqxQc7vb4dkR7HFVYaS5XLKYg+MpN59BN48g2X/f6+DUK
wt5MCZxxlBBca/7+BgVuVle65yeOo+We5WJFNynYvSzxa961cdQ4VjccXUqB
8JnL4ZZPx9HvC88JxzsUTKwRm2XbM47uVQTgGYT7VUCVqp74BArJSE8Xuk9B
59yYej21CTTvIGNeSznuD+IffeYbTyCfUJcP1yoouBPRcM5w+wSqrDt2M/IR
Ba+1goxMj04gucil5XaV+LxxdQn7Lk+gH3mafSpV+P0Jhf3GDydQ/1o12+Fq
7L9iqQwWnq9r3Tq+V9dQUFYaw+mWmkQdY0suJD6noD+1736P9iSqm34/zu0l
BeMfYiXjtk2iY2lGVxfV4fh0xou+C51EWpcixifqqb/66/IkktHRDq55TUHa
6s1q3lWTKNFKfMHZtxQEva057Ng+iZ5KvpZwfI/9W3bdv1GQASaJ8zVUPuD5
0fny425pBrSwGw90f6SgxLzKhaPGgNWnYkZuNVEwf98dDWUdBjwPGykOacbz
7FY9o9mQAYJqbzOMPmN7pY1biw0D9vJrH/O+4nyaGq9ODJhrnTr75TcKqKmA
eTHAtbn9Ztx3HA/9QXJ+AAOMdT0jrdso2HnX94zMYQasUXgeI/WLgm9VSWUJ
pxjQ4VFW976dgvZrSQ1Bqdgu+sMs6Q8F90a/3duZw4BYcoiw76RA49YNWfFb
DMh7mjop1f1/fzPglmPI4rc9FKzo6H7v+oIBpzauzjndS8Gc8QG/z00MsNBN
szHvp0Bqw/Z5Ed8YUF+lZjxt8L959ocBiq1nfZ8MUaB70v64OZMJwvGHW8NG
8Lz3nrtch8WEACL1rN4YBcT+7R03pzHhT2rYkd5xCvTsJ9u0KCYMNLy9lz+J
+/OZjXUdc5nwbCmVUsyg4SsTZ6wWE2znzh8+waShVVLh6XfEBA19j+HtLBq6
F8+XJ9YyYWGmQqohm4aUp7qNTfZMeC6S/kVegP6rz5yYcLZxac0A5lVt2v5H
sb5njOrb1gnS0KtfutxzPxNEh4ciL3NosLynXWQTzoTeiTubwrn0f3qWCeWv
6uo3EzQcmX/J+9wZJhAN0Z2LeDSMVzzY13WeCSdmaBYJCdEwB3drdiETPsqL
SH/FvDK52EOvjAl8fV/F29NouGV8TmTRUyb8tLjyNlaYBs9bWz2uvGZC5AfO
fHcRGpYOPXTN+8yEtqFqDX1RGnTyV9ht6WGC/D70Smw6DfM836xaMsKEh1du
kG2Y09unBgoLzpf4iN+dQUMlXeTjIcYCE+1HhafEaLgyJV9IFqSFdnW7itPQ
fvaa8F4NFoQfh6alEjS83jAlMFiwrX/CW1iShvjoyM2v9VnwZNKnoAWzU3W7
be1aFvDPtMZdm0lDKW7HSfYs2GWYQkdK0XBYxPxqvBsLklY129tJ03BUNc5o
gQsL4ECfnqoMDZq1EbiCWKC+U6lqBHNz0W5L9wgWXDS9Mf5sFg37GyN/6MWw
QGL8V3OqLP1XL8ezwJc9zXO3HA1aDSKNUjksGD7tkGUgTwPn0NlVxwtYEHVM
MVJEgYbUXL1W91IWGPhdkPiEedcf8bdbHrFA8LiiWQFJA72aiNV5yQLJ4tYl
gRQNtZ74gUYWeB1Ur15L4/Mfamt+9B3vByrLCZnZON4aUwqEBZb5tv3fMcu/
lkg4wGBDZtaD2Otz/osfjw0vt5a9D1OkwSXxUrOsDBsuNh15sUGJ/jtPldlQ
X7tzr+xcGn65ST7T1GSD9bmsRz8wK+xfx/2N2CCyYe/ja8o0/DveV7FBvVja
N2QeDWV1Drlxtmy4tuLdq7Uq+DzbZnq7/sOGrtkdnyVV8fnNOCZPPdnA10tN
b8EcNyUnQtjAIxWF89Rw/qz7J80ljA06khWqvuo0wId49bvH8fnkSgYNNGh4
u4W9ZW4SG1R/GvhzNXG8N2DFl8qGrG/ncuowb1i38lbiDTaEzOdGnZuPnz9b
y9cvZYNa5iNp5wU0dDQQj3/fwfYq4S1qWjgfp9bnGvz/flMWfMxVHgo2G+rY
4CCkN3h7IQ1T46DyLRvuNyVaHFpEg/1UQXeywfa1n8OaxTTctprqAGwol5kh
N30Jjr/i7bHoPjakxGWdeIt57sFZlT7TBEDwk0dxijaOv8nT/H3CAjBinX50
mw4NIXrkYotZAvBYNGTmPF0aMj87G4soC4BLo6HNH8zyQdsW2WgJwKDJvLXF
S3G9U3hDMhEAtXS3Hr9lNEyt+2p+AhDfqmump0f/3RfqBECx5b3jBGYpiZRY
z1WCED49VPnhclxfT8dFjSsEIazEPStSH/tX5kCngTwHdtdWvV5jQMOx/Jr7
6uEcOCLbeGfaCvrv/pTFAXuJD3YvMbd+tFj40pED0gPDeacQrr8Lkr6Bazkg
Uu53YyPgfO2yUZcI4UCv2mFfyZU0pN3hb0qP5oDNLYffbzH/2872cqAjS2dW
oiEN5U66u7bEc4DoXDNht4qGqfbWXsiBT5trkmWMcD/0idx/u5oDXbt7Ohsw
W9utwBKDA9u9+kaSjGmYGq9OYxzwceeV26+mYcZB3HGkuZCi6L5cxoSGvQXH
Gz2AC8q6sOc9Zg+HpTNOG3Nhx8DzrQlraDCyzDRvXcuFeYErBWzW0n/1kSMX
vme/cpFYR4OfvnvmohAurJUsCarHjKuhMOow/r22gnnsehoqlimuC4zggooO
ajQ1pWFqfRNP5kL0NPPZQhvwffRiblinc4GxN2x2FeYLVvgC17nw7ienKcIM
z4fnV38wKriw6+5MSzCnwfyX03jGIy4kjbWEjWHWXvkmmPGKC/2HkjxLLWjg
r6x1f9vGBd2OvWK+lri/uPrlt7VyISg33WfBRhoMV00KSP/mQupXi9h2zIGe
TvkC0wgIOXdne44VDefPh4Yfn0nAtlMiY47W+PnZLNHzQgQstgk0lbXB/e7s
LcVUKQKakPamN5iXbjfa4a1FwAmfXXNO2tKAm+URFwUChD5aXjKxo/9+v6AI
YM2X+s2wp8FiT3EWx4oAy55f7bcx+52REbA1I8DCZzzXZxMNKlMLgSoBis/C
5qhvpmFK3kwuI2DiS/bmb5hZeF0jzAkI2JFgkbIF+9eWJxW9mIC6z9ECVg40
fHz6WSVAm4Al8bn+QltpUA3wO8ncRMCMNKXcCszEj589gVsIsPmqmXDgH9wf
X4dLBxsTcFeGv2qBIw0/d6oPJG4lQOpRRtF3zLuxmurZSMDxRW5NKU44f/C2
Wq1DQFvUnirLbTRE4G3JF3PTla69XGecr25miZVGBJh4zGi6izlvlVeUHPbP
QWBwfFxwPUUP81kaBATG/+lSdv3P/+sJ2BDHSm7E7JhkihU5AQuWeAuccqPh
u1GZkCoi4Os6xwVG7jRMjU8nawI6903KDmFe8GCFnp8bAS1kUFX+dhoKLlUs
EXYk4OgJprajBw2CI0bpSvg+prVlLuI7aHjTk3So5gABG5+9s6rEHHrXrtAU
c61OiOCBnbgew5QfRm0nwCj50wE1TxqM1U5oCgQQcM+CvtKE+WnRMd1Fsdif
R/bmnNyF+xNjY8pSbJdbOfYP7Kbh+j/C340CCeBY/P7Yg/nf73FZ+P4OO2Zl
e9GQZIkVWjL235dMWWtvGt7J00nZ0QSULbjbLLCHhgDmQP3lfAIyd3x3K8H8
V89he/TqIre9NPCOUS6d+PffbHn3Z/rgfiEe8aDmPPbPAbvYSsyqz2ZU3Skl
IM91s5LfPpwfk7bXXLIJSHBfHqzki/0p1OUjlkFARqZi8mvMU2rtRQkByUL6
geF+NHjt0FbqLCbAy6eQXuhPQ09aUr/zJZyfQZnHWjCnv6oYQVUEDGcZ3I7Z
T8MewmbnwAMCvugWFiw/gP1tOchcU0iAv4u02y/MgYNVgW9rCLCae+FrQgAN
+pI4Is0EHLAOnGt0kAa1J8MpFtUEhGY81uzBXLk0VEKonoD3J3JH0wJxPLD8
L2kjoP/g+th1QTTsjC5X9nxDQEzm+58DmDO+B+zZ/47Ae/g+IjsY59do3JxF
fwjwzTXqNAuhof6KYY15OwErF+5LHsFs6PS9bk4jzp9Vc0UuhtJwOdrDl9tD
QNjGQ6stw2hIELh02e03AfsvF64ew/yyquS8cxMBk151IrmHsP7gDWdu7yVA
OXt6qmU4DbqPRIbGunG903E9o5hV6+bxlX7h/Eg+KHoxgoZF7LM9Xfj5mZk9
fPPDNBRGPTZImMD+T5HLGMYcbZHjPr2PAOF6BYnsSBqmpt0kttc4KpibRuH6
NJEzKRDkQaghsuqP+k8fTxJgaH6JSo+mgTu1cAnz4LFu8I3VR2hQ1w7MnCnD
g8ijX8W6MD8Ht7FRbGdcGdNNPIr1dNZV+gW2N7d3KaNjNIwGWMUJKfKAdv7c
/APzlLxiy/Fgozjf8eRxGt5HHcMTjgel79bkaZ/A8yspu6pLkweB24n7TZhT
H2NBqsKDhk3WKRExNEy1M1FsN6UtDNVO4n5cZOGZrMuDSiHqeh1mvavF660X
8KB6dWuHfyyO18DBwarlPMhpeciXP4XzA4+TCQMeZNz/VPEQ87+fM7B9Vr7d
Fo84GoKmPnet40HFOqtykdO43lTtDiSu58H92b0d1zBHLy5PZhvx4MPpTW12
Z3D/7++9OMeGB7ktl/LHzvw3T63xfVTYy8/HY7285YfvJlMe3Nt97KzxWTwP
N2MPOfHgWoxT2S/MW3PjEmq28EDUJLcgJoGGxMrHP75t5sH/AFortqo=
               "]]}, {
              Hue[0.9060679774997897, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               Dashing[{Small, Small}], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJw1mHk8VV8Xxu/EvYgSReScIxJSVKRMe5EMpcw0iCIqSuZMIUKDsUSZEpVC
RaVUhlRKVCgNSpGKInHNs3fr1/vX/Xw/90x7rbWf9awt7XjQwplBo9Hi6DTa
zO+iiua7o+4ELGDZCC27yUWj+W93R3gS8GdxbIOGYj+6+DzHT8CHgK/rHXRT
VwwiFdjck+hHQOFU3a5yrWHU4Pihfn4AAS5ZK6cOG4yiqHu6UqlBBAhbLjpu
bzCOUvij3kmGEJBr93XHcsdJNOWUMZUWRkCGEwwFHppGBbLBKRIRBKgV77+m
/JoGxTwiOSmRBGQGzU5ZOEyH7TKmMiLHCBi89/HE5A8GcHglJGJPENAn+yv1
+TATJPO3HueJJWDNnFM8Jq0syI/t9QqOJ4A/jDtL4j4PLLpR9oGbSMDjIwlK
O8N54dn59FLnJALESn8uNVrFBvloZ+pDMgG2O6s7berY4K7UzWN8Dr9fwcfe
yZYDp6dYB0vSCMi/2XOitYIDUQuDdshlEhDi01mzZ5QDy3ZIvDmVRUD2jsik
86J8YGeb1zCZTUBi32nX80J8kLOvZ9ueSwTsu1oq9XWAA/Mf5XnU5RLQXitQ
GP+KA73OqaKr8wjY9qBbzzuDA7JrA4zSCghwfqQ82O/CgS8804LT1wkwjG/5
NLCEA60RrS67igiYr3Y26us3NrxzqLN6dIsA0xeBK5JOsyFGL7BJ+g4B7g87
ooX12CDyIWYotISAHfNF0uK7eOHVuxvXmu8T0MR50jUWyQv7eY/T1pQRoMDz
2f61OC/UGTzoTawg4KyqQdeVPB74lNwe2llJQKx8t2C5Cg+oSl65ofsEv+/U
9XPBt1jwQzb1SMpTHO+M9x8WK7JgVN1quKuagLd1aSeszjJhSthtLqolIEtC
+bMsLxM8Cj0aE14S0JDsrXDdlQFStgM6X+v+xesVHVyTwy1VXuN8yE1YIGU6
JJhfEglpJOBcZuET5gkaVD75FlbzjoBfOHvzX04jrZOP0uc14fhKWW+a4zuF
bC493uvwCT/fNsFFSWISuYS4tOd+JsDgnODK59XjKK9viVhPCwEjHs89c33G
kIR1+IRqGwFXRer1P/SOIFnf7pSA7wSsld91udthGDld/NJZ2k7A4lM/nUVr
h5BaafXQ1E8ClLhhNxVsB9EWmYVlqIuAKOvSxIDv/cjhjQEK7Sagt+LM7w+c
fqRkfzukrIcAE0/rpkNVfWhT/8vgMS4Buo2HaRZpXGThPKaxeoAAuqtr07aW
XiSknHnfY4iAzQL2A/Mu9qJ6f8nJqyMEhK8NnPgix0XHpV4z28YIICSP+O+o
6EU/bpD14pOYv95uXe/Qi6xCHZw2TxMw76rKnTm7exFfRmd5OJ2EuY9yYmXe
9aLOVrHvxUwStuvp/GxS4qKDfzQbO3hI2OW5pj//Xi/yW3s1QZxDwheyx3rp
6V40R6BQwoifhMqaC+vv9PeiVVGZ3n6zSNh9KvFWYS4X7S94mJ4jRILmd5cS
OslFoY47U+rm/LtfhIvGfap2j80lId7SRzZlmosepqvxys4j4cB0zYbTr7no
cMRAsIkYCXxfG54Ku3GRZPW6Gu8FJFR5bcyX9uQieaZTzzlJEhL1lXO2uPch
2dr47nIpEujidVkXQvtQUwnP0zaSBOEFNlyDdi465TYVwLOIhIpwVaeGAS6y
ii3iXyJLwoqi0ZLVjX2I771VgKEcCb6MVI5kZh/KEF34zEWehLc1Rx069/Qh
UYW1g0cVSSiY9j6rrNyPTs1tZmUrkbA4cEGVV20f2vJn5XDZchLyjCKLIrP6
UNnEvpcfVEjQGiaWr3XvRyKX8o/1rcTP91u5ZoN9PzoZQCkKqJGgL9Z498Wv
PsTU7Lm5SJ2E236fItvv96PmZi3ZtWtJsEzkdxKo7Ec3jymFbtYk4ZHJp4qb
Fv1oQXbLE0dtEoZChfp/8Awg4xrfIV9EwuW3CSXPXvejqm+z5h3TJaHJwc+U
SO5H3HmV0ufWkdChEXvbyn4AFdQXSF1dT0KAbxy9qasf1dX95CsxJGG+66b+
uDf96A4R01FlTMJGraz9NWcG0A3JgruvN5IQjuWSoT6A3IPsgr5sIuHavi+e
J4QG0AGTG6t+meLrq9naaW8HkMnY7a995iT8LH263LxsAC0yD44atyRBh+eh
P2/sAKoJmyvDtCFBaN63iU3yg0iBiijh20KCa+XJ8nDVQbRT5YPh7G0knBt0
lF+ybRAJUBKvRexIWP2Dv8crcRA5vDLdImZPgnnEPnGd7EFkGxfyacFOEtyW
DqV8FhlCzxXy7CQdSRjdjAVQdAgFfm9sltxNQtSad1UHVIfQ0tBpO0kXEgJX
5+vYbh9CaRoKXxbsJUGaHNhvc3gIRX003SXmSkKIBrHK7NwQSrpysENkPwm0
mD319RVDaPOhCM/Z7iQcObPu5P6OITR98SiN3wOvV8XBPmxyCCUTbmeYXjge
py3quxcPo2DHZSsmvHH9Wju3zNMdRi4RDxv7fUlQfyw4MqEyjMil4kc6D5Hw
NJcmXkcNo00ZcuqtASRcGFnRfv3SMFp6v3m4MYgEScWno2lmwwjRFZ9UHybh
4XZKl+s0jGYlTaQ/CCXB7LvxazWREXR3jW7EtSMkrD+ik7jk+TC6ZvftUGYE
CeXRG+M08fO0xV4GxUXi/Y3VbOu+EbRMqSP+cDRef7Uu36oDI2ij0IJit+Mk
GGrr52hyRtDgV6PfW06SgLtfyhX7EZQeun31+lgSsgPdduazRpG+n2qSSjwJ
bE77T24Qvl7wDq9k4v/zNYJUN1TGsU6TYKtT29/qPor2/lZb1p1Egmi34sUJ
2VGk59fX1phMQtn4tzLXHyOIUGosfHCWhIix5LU7kkfRDrG7KRdSSThzVyZ9
fukoKuH4nY1K/8daoygxtfOWayYJNoev33EMHUUaq7o7N2WRIC6t9XGN4xhC
bGsdlWy8f6tmAjyKsiRHrgtfJIHF8h4YKRtFs4zytfsukVByg9kRc2UMzV+r
19WQS0Ij9+yRGv8x5OwVX1J4lYRirKa6EmOoxWz35bh8EjIMtikefDaGamYl
Frtdw/r5pvSbqNQ46nvwvd3wBq5nLN8OF8dQpeUyTZkirG8JxgavHo0hm3z1
W5M3sf4E65scvziOkg/Xmb6/TYJDkItxmMQ40nSrEC68g9eDy6Vyegx9mqgf
jS7B+ydZx0d3chx1XXzBcbhPglODj9/KknFUVhmAexAJ7mKpXaoW4yjkfGYm
fznWnxkDhq9fEkhb0lKB96vy3I9eyyeQV6hT081KXF/vVHvWVI2jqvoTdyIf
k6Asxs04OziOJCPXVNhWkXDatkM8oWwCtectG5B/RkKuz4zDm0CDxoo2o9Uk
7Ny6z4JfYwIZO3f/qK4hQcx5dbWszCTqnlC9mPIC70dcHScfT6D62eWJzq9w
fbaszK1tm0AnMvRvrKwnIXiJS5n4hkmkciVicqqBhJnuEKIwicRXqx2ueUPC
ZOlVo8gVkyjFcq7ymbckdHkXzxvfOImei74RcXiP6wVH+7nzJDJMWa4k30SC
0t3bEnMPTaIW5if/3o8k+AvIyofETCKDhNixu80kqM0ihS2zJ9GLsLGikC94
v25arxhzbRLxKL49r99KQmE7rXJh2STy7Kt7wtdGAnaT6p+aJ9Fiq3TpV99I
iH6inawzMIl2f+m8k/iDhNjAYwaH5kyh9epukVYdJKy9Xe1XTk4hI6kXsfN/
kbA3gGjOUJtC3Xsf1L/vxPk0GjUuNsX/C7VvPvubhKC/BT+F4okRzpY/WC9e
Ent5oqZQ3vP06fm9JOzfntREnZ5Cdx1CVr3lYr3+JbeCUzCFEiwMLp3qx/01
L5XqLJ9CZuoZ1qaDJHxatZHR2DiFGp4prhcYJoFf2INj3TmFZL6f8Xk6QsJv
sd9RBwSmsV4c/R42RgJPVIH74MJpFMBJP6MxQcKDkEr3D6un0e/0sGP9k//6
28ZpNPThbVn+NAmlPqfFWTbTqHYNmVZEo/7rH27TyGbx8tEYOgU8YktdVWKn
kZLW3tE9DMzun19aZkyjFVlS6XpMCubFbOhk3Z5GLwQzvy5kUTCj/voPp9GZ
T2tqhjBLd+rQrmL/RhvXsqnnof75p2kkNDoSeZWX+ucXplH/1P2t4WwKdA/X
pi8XoEHF6/qGbRwKZtI/LE4DzofoPyv5KJhRxxdSNIiZs6yQn58CAQV0dUiB
Bh8XCoq1YV55aJk0qUqDPi0fmXsC1D99psFPs+tv42dREHYXwtsMaRDZxLvc
RZCCK1JTqQXmNOgYqVbSEqLgdmGu1NQ2Giz0Rq+FZ1Ow4FpOHp8jDR5dv010
YP7rr91ocKHYa27pHApUZgy7Dw0M1R5fSxCmYPviLQtfBdMgI7Snd/dcCpwn
xmMEomkQfhKa14hQEIO7oVMiDXYNTh2cJUoBVgvZwHM0eDrtVdCC+Wug6HXD
C/j7T39PvDmPAtaMQb1Gg/16aVTkfAoig+tvbS2mwdl1X7bYilFA5P40Wl5B
A/Af0FAQx+vfZmgt8oQGS11ln41hbjGNTXHH89Zlk9uTtQso2Hur07v4LQ1E
Jn99SZegYMY+fm+lgQ9TwO2AJAXsolWRr7poMHrKLlt7IQVN2gFbrgzSIOqE
TKSgFM7/lavObpM00Pa9KPIZc7vPVpP9UzTgOSmzuYCgoOGnkOMefjqIFn1X
DSIpsCghIruE6eAeuLTamKLAP/CS0rqFdPCQ1+SIS1Mw1t31cK0MHczzbQZ/
YGZJb33IWk6HrOyH8bcWUbD5zyF5flU6vNrx4H2YDAV8Zpa17zTocLn52MtN
shTMdeMq0Azo0FDn6imxGMc/GE+EJnSwOpf9uB0z/piM91voILjJ88lNOQr+
bjc7OiwtEvMJWULB982/dk460OGmzrvXxvIUOBgUNb92pUOPdHerqAIF2L1p
xPrQoU8jPbMF8/Mf6GJLCB34CJlZeYoUvLsSvdcnmg6rRSsVfJZScKu43Gjv
Sfx9ksXD2kr/zzcdFH5q+7GX4fgjC/2oM3TI/nbuUj3mVWYLpnVy6BCynB11
bjkFettfXSrJo4Ni1mMxR2UKDh5hVcUX4f+fzdquqELBa7XTB+/cw+/rIs36
MGv3sZl1ZXSw49cYvreCghG3mwbaT+hQ3pxidmQlrt8Zu9xAB5s3vnZGqygQ
Jg4sLHpHhwrxOZKzVXE850evqvhIh7TE7Ji3mPfLtez3/kYHns97i9LUKAiR
WrNH/xcdxqwyj+9aTUGSypuhG7/p8EQoZN4SdQrOPUhOmD1GB6dPeta/Matf
XqLEpTFg2HCJcdEaCsK9DZKGeBmgmOnM9V1LAW4me3bNZkDSd/XNGhoUXCqr
FJMTYYBMy3uHKcy6RvNVjkgyIHx2qNwjTQqy0/faSi9mQFixS3akFgXIdntR
hRIDDtQ9e2OkjeOZ2B2M1BhwTOLTfQEdClLwuKmoyYAtIk22rzCb4vSeX8cA
saHRvASEv+fkPLWzBgwQrPC9bQEUPBs4upgwY0C/4lEfUV0K/h4X2DDA+q5d
11vMW7zDdsbZM6A7e/WCFD0Klv3eF13hwgDOH6Mp23UUyHl0uWfi+fbztppU
cX0KsHkcv+rJgJ4D3D8fMN/fLLPszCEG7HEfGDu7nvpvXg9ngJcLX8UWAwrS
2qVyfx5jQJqMi6a4IQXk/axy5zgGyKmDx3vMI4925+1MYsC+oRc7ko0omDk+
mZvKgCVBuixrYwqu735mQGUy4EfOayeRDbg+NHADyWOAsWhxcAPmavueKf8b
+H41KdP4jVj/dsYRFXcZIL8afTIxoWDXcXbSpnsMiBYwlebfREH5ptAhmSoG
0DzDpJ9hdvZIKtV4xoB3P3mbIzZjfRI4fTW8gQH7S+eZgykFf8fnJgacnWgJ
m8AsKdi6LKGVAYNHzrqVmGGeGSB7GaDe7SnsY05Bbq2jYz+XAcG5mV7KFng9
lwOeKYwxIL3NLL4T88zxx55pBoScu7/nkiWO72ryfRQ/E3YlCE44WFGQ5+x2
OHEOE1ZZB5lIWFPQ2v+Y81WYCc1IbWsj5g935G/pyjEhxmv/ojgbvN5Guc1/
1JnA/9H8iqEtBaPDC8SE9JnAWD6/i7aFAks766Ed5kww5/7qvIc5MG+de9R2
Jph5TeZ6bcX5n7FL9kyQqQ1btHQbBTWX7b7ucGfC1Necbd8w347LkzsWyISA
fclmadspWKHnf9vzKBPqW6NZlnb4/UubioSPMUE1KdePfwfeb7k8ymMnmDAn
Qza3EvNx3Z0/6rOZYN22LNnf/p8e5jChVLxvnbID3n80i7Q195gw//H5wh+Y
9840+GImnFzp3Jy2k4KzYwGWiTVM6IjyeGa+iwLPmQTU43hc7/FkO+L6mvpt
eKKaCYZ75zSXYj6wNqUtr48JgUDj9XKi4FC/VXTzCyYEJf3ukdtNgYSY0NHd
dBZsSmSkfsI8tbP13nAvE5RVD7ISnCnY9veAjgltGxyU9V0o8CVxhIVY8Md7
WmIEc/1bm9/K40xoIYKf5e+hIMLcOCNMjgXHY+hqDnspyLRXqJ3DZoFJ3QOn
ufuwf/AJMnZSZYFF7TvLKsyZZ2cGRBbUrQ7h8XelgMG9H1K5nAX6qZ/9Fd0o
EDK9keRsxIIyM+p6M+Y2urPldRUWzDnmeSluPwVlB4O7zzmzQFJ3wh4O4HoR
urfAHVjAa9b1kYt5q/s+NVl3FgTa7VuQ405BHJRed/BgQcfXLAmrgxS44PKq
T2bBA+XSLyyPf/UhzANZ+344F2PetEH3booPDzyINih09qSgxFfd1JfDC99s
+MrneVHQbMD0F9jNC23+tvFVmPs9D1wR7+CFvN3bZH29cb+JyHyZN5sNyS6a
h2V98Pe/uIEdKi+cz5JJfYP5rx+/wAup/FpB4b4UyHwaDXEN5gV3r2vUCj8K
ujO1lBpTecEsOOtEC2b798ofBNN4YTRb+17sIQrWtREbyfu88FX9WoGmPwUz
7XDWR17wcxJz/oW5a3phe60AGywXX2xLDqAARHY9frOUDf5WQYv1A3F/Kzyh
vtKUDaHnnyzjYsbRXEx3ZcP7mNzxjCDcb/jf53gcZsNg4Mb4DcEUdBzUk2bE
sSE26/3PIcwqgo8NnySxoXqWNyfnMN7fVl/iPFLZ4JOr/2dzCAWdfBu1sgrY
oLvCO3UM86lb2HCVs+HPusWCl0MpeOXB1EEv2BBmccTAPAz7nTvpGz3fsuHQ
1WsGE5j/Hl92s2HavV4w9wj133wwzAa5nNnp5uE4vllHz92ZZgM/lcgdx1z4
XGJwjiAH5qQGCl2OwHoVEnPPjY8D87K4faZH8X7rY/zOEeHA+TTJ86OYG+xy
E5P5OTCrQUokJxLX254QNTaHAzUOUqYmURTMjDc1+P5QPWQ5iFlrRVeVmRAH
9EyvkJnR2D+9UQnWn8WBJ+qHbxsco6DoCbPm8kIORB5vE+7B/FImVKUXM+36
hHrKceq/+ZvgwJfOHjl0AufHps64R5IDlGPrl3bMKwvaYl/IcMBibp9D3EkK
1GT/FA1Ic6DknVGeWgwFj8TkLHnw/0F7OOXNmB03yDbUynPgw1artIhYCs4X
4g+Q44AJZaanGEfB3+VgruInb9XH/evnShyoNvje7Rf/z/8t5cCllkd9CxMo
OKFlfN9lJY5P+efKR5j/O9/gwIJ82+17E3G+sFv5rcmByg2WFYKn/tWHNgfK
pfu7b2L+e96ly4GmU1s7bE9jvZgZYHU4kNtyJX8C83/zIl6PPFPzQhKOv8/M
gRoHyg6cOLP+DK6f46fHpTDfjN354NeZ/+s1B4QMcwtikymY/+XHonJLDvwP
vBS+Ig==
               "]]}, {
              Hue[0.1421359549995791, 0.6, 0.6], 
              Directive[
               PointSize[0.004583333333333334], 
               AbsoluteThickness[1.6], 
               Dashing[{0, Small, Small, Small}], 
               GrayLevel[0]], 
              LineBox[CompressedData["
1:eJxFmHlYTd/3x++te46kQSqldM5pIEUZIlQ+e0kqNCoVIlOJ0BzNJU2UBpoH
KWlERURCpjI2mEmRiNJ0m+ffDt/n91fP6+meffZee73fa60ju8dxsy0Pi8U6
zWaxpv7K3W24MXyEAgshlZK0rlY0XPBmX5AzBU+N8301qHZ04UmWxww3CpQt
jyWcGupES8CoK8aDgsaiw6Z2vD2obs/72tmeFGRvUPo5MKsXhdxcK5PsTcHR
E6+OS/j2owT+kLfSfhQoLuUrnLttEE3sTZtICaBAvU1W6vPaYVSo4JMgFURB
dJhSjM7iUVRKiGYlBFMwPuD+JVVkHG2XN5YXDaOg6cG8qrT6CcRHSklFnqTg
bGjwtldaLJAu2BpORFKQ8kMm5ycfGwoiu118oihofn7lB6uSDXJXKt73xFCw
jDeup8uVB6rOpd62PUvBJq2MQ0/FeWFBqC3zPp6CQyW6a3SyeOHIog5iQxIF
Ormbr06T4sCZCY5jWQoFvj+Pj8R7ciBkrveO+ekUTP7WO1ldxAGVHVKvYjMo
UOgs7jv/jAPWlvl145kUcLvUVOdWcyDrQNe2/dkUNCjJFE5e5cDs+/lONTn/
zhPLgW7bZDH1fAr4nvDMd3LggMJqT/2UQgqqlDRinyEONBKTgpOXKbjm/HCb
Dz8HvgR9sdtdTIHbtGK14Je88Namxvz+VQq2LFHOE43mhQhtrw+y1ykI23Ra
M3sdL4i+jxjwL6PgXMGl9zYDPPDy7ZVLDbco2Cxc91MokwcOkeGsVRUUBJxz
/gr6PFCjW94dc5eCvZ3btP/7yYZP8T/82yopcGYUZiQGsGG5dO6VtQ9xvGoW
TTcRZcN3heTAhMcUXDIYyvZLZ8HwSvPB9mp83lspORoKLJgQcZiFnlEw/FFt
E4/5JHIqcnod/YICD2Nq9kHDCSRj2fff1xoKevo2bg1ZNY4Oxh83W1JPQdwu
51W9C8dQtGm2qN9rCj5GicXsFh9FlQ+/BTx9S8HCxmot7rQRpHXqfqr4Bwr8
NCg1k6QhZJH9wN7mEwXJZ48fWfxrENn52f3I+YzzTatic/z5AZTPVZToasLx
H5raUD+S2nJ8bHkzBfOs5r4cO9iHFNw7Ejxb/t1fWC/ae6Gx7fYPCvIqlwvQ
Ily04nb1wMRPnM+DmmLESDeykp9bgdpxfKKyhXeYdCGbV7rIv4MCGRe1hoCa
TrRo5zW/ii4KdG3WJhfb/0aGvS98Rnpwvvgv6W7wbkebbUc01Pso4L/7uibl
ZDsSWpx+y2mAAjnj2MtJPm2o9pj0eN4Qfl+Fo09HUjsKl6nnbR6hIH7dqUOt
o+3o+xW6VnIcn/elEan3pB2Z+9vsNZqk4PHdmjInpgNNT2u7c5xNQ8f1GS/c
pTpR2xeJllJeGh4H88puvdeJHDs1X7cSNGwR1fk8jelCHqvzoiX5aMh//TvQ
YlcXmjmjSEqfnwYOx7VvqKILqYWku3oI0HB4dUJzfkkXOlR4LzVLiIbhoMDW
xgddyH/ProSamTQ4prdFp3ztQqNuj/aNzKIhC85Vn1HoRvdSV5AK4jS0rvAI
b1PpRr5BfT4GEjQQWbEabMNuJF297qnrHBoEpUYUy6y60QLevV1J0jQ8O7/+
eq9vN1J4FtVxR4YGyflm+JFu9KGMeNxM0/BxIi5ufnY3inWY8CTkaGjUeiO7
8kE3Mo8s5ldUoKF99S/fb+3daPo7c0+9+TRYr8ERHetGaWJzq+wW0HCzqj5U
dUEPElNa3X9CmQasPn991INiZzVwMhfRMGvpvNiftj3IqnPZYIUqDb/0VSdl
fXtQxdiBF++X0BDpFaZ7NLoHiWYXhHGX0XCh6Y5Q6tUedMqTUZ6xgoYy95XG
7tU9iFezq0RuJQ1y4Tt1ixt6UEODlsLq1TQsEJ5RenG4B5WELfI30qQh6n7/
AmthLpqT2fRwzxp83t8hh08t46INT90H3BEN87zmPHLZxEWPvgmIh62lYRnj
XTG6l4t6xCtlk9bRENPhg1bs5KLC2kKZvPU0fF772+C8KxfV1PycXqZHg5Dx
lbO2YVx0nYpofbSBhqp36VtnZXDRFenCG/WbaLjR+SNP6CYXHfG29m40pKFU
fPRZ5xMuOmxwRe2XMX4/GKpsb+cig5FrX7mmNJx6kGTzgt2L5Ex9QkbN8H59
iQOP5XrR04BZ8rwWNJS/ca0f1e1FSkxQ2XQrvP5UOh7oRbuWvNcT3kbD+LkH
Pp6BvWgGI1Uvak3D05WfGhLTe5HNS2MriZ00bHv/Ssj/RS+yPO33ac4uGiT0
TcYke3vRE6V8a+k9NLBDTbLthPuQV8vrBul9NDSN9+wsXdaHFvpPWkvb0ZDU
v2eB4rY+lKKh1DjHnv6r/+N9KOSj8W6JgzQsXv7uwIXsPnQ217FV9BANJ0+3
cOn6PmR0NMhZ+AgNCa5Kl5VH+9DkhRMsficaaoXlT+hJ96N4yiGO14UGG6Vn
M6s0+pHPHpWlY6403F14fPLSvn5kF3Tvda87De+7pwyuH9ELJQPbjtIgtbzP
2Km4HxmmzV/5xRPzqYtXz1T2o4W3GgZfe9MgMseiR/dHP0Js5YfVvvj/IVFh
SiIDSODsWGq5Pw1/7GPVALqxam3QpUAczx32l1/pD6BL1t+OpgfRILNqv84B
xwG0RuKF9+lgGhKX67bnHhxAKotao3xDaZjbPbz7hNMA2iQ0p9QhnIYDEW9N
35wYQP1f9X9bnaLhw8tBs2/ZAyjVf7v6+kga6leccbx+cwDpeCw/uySKBtEN
fctOfse/F7xOSsfQYNuy6PeBaYNo+cbK05wzNPy5juWDyP73CpWOszSkl35S
XW45iLQ9uM2v47He7x0jBX0HEbXodVF5Ig1MafiZ0bRBtEPiRsL5ZBrO77/a
5lo6iMr4PBJDUmng/1OwB1FMctvVg+k0/PB0Ovq2cxBpqHW0GWbQsH/RlAMO
ITRty39LMnG+GlftJZWHUIb00GWRC5jHFy403DiEBPQL1nCzsR7lU2ffth9C
s1drt9fl0OC6qUDWOWoI2bpElRXlYX2IfxszzB1CTSb7Lp4uoIF3+1SFGEJP
BWJKHS7RoJgRXvT11xDilrf80LtCQ1ur4XplgWFUaaaiKV9MA9+WgwOwcBhZ
FKy8Ol5CgyyP0PmNhsMo3rfG+N01Gko2mTsKHhpGmg53RYqu09AiTKZ7Rw2j
T2O1w6Fl2H8058ydd2UYtV94zmdzi4aKFUVbjj8aRhWVnrgG0ZDWd6entHUY
+Z1LT+e/Q/+rjyNI0Yul2HQXn48KbjddNYJc/Pd+KKmkYeptcbtG0KPak9eD
H9BwxMDYqjlwBEkHr7pr+YgGbBa3NkSMoB/5Kn0LqmhYrxyhwrk5gvo3KFsM
V9MQlqbktvPbCNpg2/G9+ikNpvh6r/GMoo6x5RcSntNA7rty1F9rFNUK34mx
fUlDxInrqZucR9HJNJ0ry2qxflbvmC2aMoqW5AaNT9Rhvd/O0w8uHkWS6it8
n76iwQN3e9kVoyjBbNbiuDc4Xz+fCQ3+OIqeiL0StXlHQ6GrQPXOrlGkl6C6
aMEH7A/hHuKbJ0ZRE++nY90faTjeXJVYPnsM6UZHjtxooOFP+VQbQ88DRor9
Gv/tf+8YIpTfnNP5QsP3MjMNK/8x5MyteTi9Gft/WNfDwoQxNM88VfblNxqK
oox2DBeOoX2NbddjvtNg4Lzlw9FHY2j9Sodg81Ya/rSzLWNIX+Z55OxfuL5p
4jf0jaEO+/Lad200bPrewZdDjCN9oR9Gib9pYD1Ws/9Jj6MoaojPqpOGjVOC
Uh9H+U9SJ2d34/hYrGumNo2jGzZ+am96aEgpNBWusx9H0Zt1s2N7aZjWPVvf
xGccmaxM22LcT4PRtYJo7plxVFelvH7GIK4fOvdkzfPGkXxLnNvjIRqCJKYM
eBz7xYmWgBGsHxEnvi1t48iTLzVOY4wGb4ddBZwZE+h3akBY7zgN8dNxAyI9
gQbev6komKThik2R9HWVCfRsFZ1SzGLgLbbvx5YTyGKe6nAEm/l7H44TaJGW
/fB+Hgb0Dze3+IVOoKUZMqnavAzoGIQreCVNoOeC6V/nchiIr+FqlZVPoLhP
q54OYPY28sIWPIFYo1oWtQQDs5cEbj/aO4GEhoeC80gGHharHsliT6LeiVtb
j09jID1xysAn0d362rptfMzf/gUmEd/70M5l0xlIC17T0W05iSJmqhTx8zP/
8m8SfZwrKNGMeWK+mNyX6EnE1XKTvzmDAbNnb0fkzk+inyaX30QJMDDqpmWX
UTKJgj+QqnaCDIROTFe1eD2JWoeqF2kJMf/6yUk01xXViwgzkNco9V6ZzYL7
l69RrZhXr9dzGRZmwflSl1m3ZzIgdSDvtowsC/RWPLgULcLAxi5pG+/5LEjz
7+reN4uBr3WPRRyWsuD4KWhYJcrAVHeoocmC3f0TjgJiDNyMJPGNs+DxpEth
E2a1YbsUaTMWcM+0xJSIM9D6uO/EvJ0sOKSdwgTPZmDPndusUXsWJK5rtLKU
YEDvRwySPMYCONanoSSJ4ztVvoNYsPCgQtUI5jUbbtlxI1lw0eDa+LM5DNQq
chV+JbNAdPxXY6oUjrfCDrXhiyxw453hcFiaAT9JWa2PZbi/j7XOXDOXgSm7
D73LgpCT8sGCMgxA5aOTUs9ZsMb9guhnzFhsCbmNLCBOyRsVUgz8HS9ZIFbc
stybZkDa4EG3SA8LjngtrN7AMPBdp5xfaZIFTgs0+SRlGXj6ZYGnuxAbTAss
+r9j1myxK2PTbMjIvBd1VY6BXufDuZKKbHi5o/xdgDwDyt+a9luvYsPFhrAX
hgoMTFXXTF021NUcdJaax0C03VSBYIN5UuaDH5hbNSKvme9kg6Ch88OS+Qzw
9NzyqzzChoXFEm5+igzcMpJXiTvKhpL/3tZvWMD87d/C2NAl2/FFTImBOVMG
FMsGrkZqehPmpMCnQ4NJbJhOyQvkKzOgFRQyMf0yG9TFKpXcFjKwe6rBuYn3
J106uGYRA4khX+X3PGWD0s81HtNUGJjWPjn3xwweyPyWlF2L+c7A81iWOw/4
qU4LSVLF53PUW6UyxAPKGQ8k9ixm4ELLm9XkPl7wqxLYrryEgcv967W343lQ
vZ024WL+ORD72F4Gz6P8GoM3lzLwZ7wd5YU7DQkmgcsYuLpTAIecFyxeuVvr
qzHgNVWAMN+VnCktvJyBxVlWRw7080JKTGbEG8ztrrgDnMEB4rN9ccoKBuyn
yrM4B0bM08N3q+P9hAkUHJPnwEMhP3HFlVhv60Y62oEDez9pb/mNmZpILjQ1
5sCgnuKG4lUMPAfbsVEDDiin2/a4r2agI2ke++BBDpxtWWmkocGAnHneB97D
HJBvemczgTk8cdaGPhcOHBf2n39fE+fzQcPe02c4EFBqlxmsxYBS/PZtgk84
cLim6pX+GuZv/9PFgTCpT7dm/If1Bvqzl7AJsBL9YPkS89S0JzSTAImB4fxo
hPNF/MKcU/MJELzrfm0zYP054YFXkoBe5RNuYmsZ+L24XFF4BgFbbli3v8E8
KTs+4M4Q0JGpPidBG+evX2gm0ATwdepPWK7D+ZNxx9ZIgoDP254mS+ow4D8V
oFUEdB3u6XyPedjouddScwL2H+kbSVzPQI+qRE+aFQEudtPvWukyUC/z8KWY
FwEp8naaknrM33rsScD8leD0DvMf+z9IwIGB5zvi9fH+w7WwoglQ9F7L2bKB
gdtXPT4FY/6eVb9XdCMDgbIF29fsJ2CDWKlPHea+Qxa+lz3w8ytkjKM2MWC0
Z6bVajcCFqijTwYG+H7W+yja+RIQOsNYlt+QgSd42uaNIoDlHCBbhfmEIB4g
sgl4+5NsCDJioPLI++sLrhJw6La4KRgz4Ft7dWv/TQISx5oCxjCrrJvb3nyd
gP7ARIcyE+x3C5fscy8gYGWHs4ibKY5Po/mF+4kE+OSkuyzejP3OZM7kf1kE
pDabRLVhHqkl+lXw+n5Jt/ZnmzH/6h0Bu6MFx2zMGXiQ7jHkUEKA2hZvA6kt
DGzefUi2upKABrRi62vMf+ctAiJcDsmdtmAgIVrYS72dAP6Pprl6lgzkyuAE
rSOAR3V2O8uKAZGm8K2LHxNg2vOr7SbmC+rOLncfEGDiMp7jspUB0ZQoh3WP
CJB/FiC3cBsDTng6n4ffN/E1a9s3zJH+55y/3iPA80C8Scp2HN+6GOsJ/Hzt
l1COmTUD1Ynl8dE1BCw/m+PBvwPXsxyWZM0XAmamKeRUYv7TPnThfGtWiT+2
kwH1gv8st/cQcFuSu26xDQPl3K3p0wYJmP3gXNF3zCFPzCtzWwg4tcy2IWXX
P309J6A1xKnKdDcDZz8wZyLw+RsudzlP28MAd22N3ZtWAvTsZzbcxnxGkmMh
1EGAF7BIl70MLA9+6fB7FgneZ393zd/HwL2pzwkKJBjG8CR/wrykv/einDiJ
5yZHTrQt5il59BPQvNFmsY7d/6/X6TopNYR5y8AOkTF8nibKp6pgPwMeF2s9
Iz8TEB7BXmFjj/0nf92RkE8EGNSU7511AOv36EZsiQRsfvbW7BHmv/MkCTXq
fsSxgwywIvbX1iISdJI/H1N2YIB3F3bc/0ioMGEuN2Ce9/wa7vhJmBnmnH36
EAPrVtdd1uYnQXrt2E44jPNBCk/EAiSQJu0fezCn11eOoGkkeFkfmJN1BK/n
K2cc24nj9zVDytwR9wuXu7FCCShffLuR44T9/M9ARkLGge+2pZjF4o/BB3MS
ykN1i2ydsR6i31xKNyPhm8X0O+Iu2G/rL4i5aZLQfMwy6hHm6IyhpT9UScjf
t03B3RWfJ8ZvVGMJCfF2mr4KbjgfJVsdtWVJOJchn/wKM626uvOsEAnJ/Fre
x90ZuMj1OPFKm4QjLpeYpR7/0y8JJj4ZJ5sw933pLPzsQcJw5pqbkUex/uJu
yKdakPB15aVCzWPMv+9vJHjslbD9hfmnqGesG2azeRea4z0ZYE8lPI7vMXPv
eTpezN/5bzUJ/uceqvRgzvTCDeQJEt5F5IymeTOgOpfvCc9FEvq9NkVt9GHg
T3qEkBCZ8e7nAOY6uU/DfgdJqBZw5cvyZUCWnnIgEtxydDqN/HC/Nczl+b2X
hLVLXZNH/P5Xr0noXDdP8KI/8/f78zESAjYH6poGMKCwwC/iZgEJR/Mu6Y5h
nqZdEjA9lYTJI7WCOYH4vjw17x8IJGF+lnCq6XHm7/fS0yTwMzE9o5i1p6sd
njyJ8yPZS+hi0L964UiCeEYP1/gEA4exPV7PxPFPkT43jFlyKoHukyBQJyOa
FfxPrxkkPLWRMTYIwfVH7oFyYxiOjzYy68eMi3F2WT4J2sa5dHoo7p+mGtYk
Eh6u9L2mG8aA9dFe81C83+DwZpEuzP5TBppLAuvy2MqEcAbEZZ58RxdIaGzr
mo9O4ngVudjHXCKB2fOl8QfmMRa+oBISNs/i2pw+9T8/JqHsrX7+iggGru+P
5+TmYf3u57vTgJnIzbN1qCDh/VbzlKBIBhrS8EB+jQQDxkRb+TQDErbq1QpZ
JDzip6/WYg5cl7v5ahW+L92WDo8o7D8e4W2XKknIbrrPnRv9Pz/H8bnzufI+
5m2C4d6L8PpzCiy328cwYL5i7WvfeyRUbjS7KxjLwCuc/t5PSLgj29tRgnni
RqyMNF7vQ+zWVsszDHzge9g+8oiEnKbcgjHMATemRjp8ngW8mufPMlDEvLBa
/hnr+/DJuPVxDHRFDebH4fVKIneV/4r7Nw/g9wnp5RRGxv+rr69J+D9Igdro

               "]]}}}, {}}}, {
         DisplayFunction -> Identity, GridLines -> {None, None}, 
          DisplayFunction -> Identity, DisplayFunction -> Identity, 
          DisplayFunction -> Identity, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, AxesOrigin -> {7.58315269907919, 0}, 
          PlotRange -> {{7.594089575094925, 8.294049640102028}, {0, 3.17221}},
           DisplayFunction -> Identity, AspectRatio -> 
          NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
          AxesLabel -> {
            FormBox["\"year\"", TraditionalForm], 
            FormBox["\"dC\"", TraditionalForm]}, 
          AxesOrigin -> {7.58315269907919, 0}, 
          CoordinatesToolOptions -> {"DisplayFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& ), "CopiedValueFunction" -> ({
              Exp[
               Part[#, 1]], 
              Part[#, 2]}& )}, DisplayFunction :> Identity, 
          Frame -> {{False, False}, {False, False}}, 
          FrameLabel -> {{None, None}, {None, None}}, 
          FrameTicks -> {{Automatic, Automatic}, {
             Charting`ScaledTicks[{Log, Exp}], 
             Charting`ScaledFrameTicks[{Log, Exp}]}}, 
          GridLines -> {None, None}, GridLinesStyle -> Directive[
            GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
          FormBox["\"Temperature_CBA1200_UVic\"", TraditionalForm], 
          PlotRange -> {{7.594089575094925, 8.294049640102028}, {0, 3.17221}},
           PlotRangeClipping -> True, PlotRangePadding -> {{
             Scaled[0.02], 
             Scaled[0.02]}, {
             Scaled[0.02], 
             Scaled[0.05]}}, Ticks -> {
            Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
        576., -116.80842387373012`}, 
        ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}}, {}}, 
    ImageSize -> 1000, PlotRangePadding -> {6, 5}, ContentSelectable -> True, 
    ImageSize -> 1000], 
   FormBox[
    FormBox[
     TemplateBox[{"\"Default\"", "\"kv low\"", "\"kv high\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxDividers -> {"Columns" -> {{None}}, "Rows" -> {{None}}}, 
             GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}}, 
             GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
            "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[{
               InterpretationBox[
                ButtonBox[
                 TooltipBox[
                  GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                   True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                 BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                GrayLevel[0], Editable -> False, Selectable -> False], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                 "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{
                   RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                 "}"}]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", 
             RowBox[{"{", 
               RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 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, ",", "Below"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{3.7133728202887897`*^9, 3.713372894832605*^9, 
  3.7149865204414377`*^9, 
  3.72714800332331*^9},ExpressionUUID->"7db131cc-dcbb-47ba-9e59-99b1153b6e8c"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"T1", "=", "\"\<Atmos_2C200_UVic\>\""}], ";", 
  RowBox[{"T2", "=", "\"\<Temperature_2C200_UVic\>\""}], ";", 
  RowBox[{"uvicsensitivity2C200", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"GraphicsGrid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ListLogLinearPlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "16"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "17"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"All", ",", "All"}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "T1"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<year\>\"", ",", "\"\<GtC\>\""}], "}"}]}]}], "]"}], 
          ",", 
          RowBox[{"ListLogLinearPlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "8"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "16"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "17"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "T2"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<year\>\"", ",", "\"\<dC\>\""}], "}"}]}]}], "]"}]}],
          "}"}], "}"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"{", 
            RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Default\>\"", ",", "\"\<kv low\>\"", ",", "\"\<kv high\>\""}], 
          "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.713373009427978*^9, 3.713373070858492*^9}, 
   3.715186435041176*^9},ExpressionUUID->"5b65fef5-bb92-477e-b3f1-\
c1fe6ca9ec4c"],

Cell[BoxData[
 RowBox[{
  RowBox[{"T1", "=", "\"\<Atmos_2C1200_UVic\>\""}], ";", 
  RowBox[{"T2", "=", "\"\<Temperature_2C1200_UVic\>\""}], ";", 
  RowBox[{"uvicsensitivity2C1200", "=", 
   RowBox[{"Legended", "[", 
    RowBox[{
     RowBox[{"GraphicsGrid", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"ListLogLinearPlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "18"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"atmosUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "19"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"PlotRange", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"All", ",", "All"}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "T1"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<year\>\"", ",", "\"\<GtC\>\""}], "}"}]}]}], "]"}], 
          ",", 
          RowBox[{"ListLogLinearPlot", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "9"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "18"}], "}"}]}], "]"}], "]"}], ",", 
              RowBox[{"tempUVic", "[", 
               RowBox[{"[", 
                RowBox[{
                 RowBox[{"2", ";;", "y"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"1", ",", "19"}], "}"}]}], "]"}], "]"}]}], "}"}], 
            ",", 
            RowBox[{"PlotStyle", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"Black", ",", 
               RowBox[{"{", 
                RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
               RowBox[{"{", 
                RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}]}], ",", 
            RowBox[{"Joined", "\[Rule]", "True"}], ",", 
            RowBox[{"PlotLabel", "\[Rule]", "T2"}], ",", 
            RowBox[{"AxesLabel", "\[Rule]", 
             RowBox[{"{", 
              RowBox[{"\"\<year\>\"", ",", "\"\<dC\>\""}], "}"}]}]}], "]"}]}],
          "}"}], "}"}], ",", 
       RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}], ",", 
     RowBox[{"Placed", "[", 
      RowBox[{
       RowBox[{"LineLegend", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Black", ",", 
           RowBox[{"{", 
            RowBox[{"Dashed", ",", "Black"}], "}"}], ",", 
           RowBox[{"{", 
            RowBox[{"DotDashed", ",", "Black"}], "}"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
          "\"\<Default\>\"", ",", "\"\<kv low\>\"", ",", "\"\<kv high\>\""}], 
          "}"}], ",", 
         RowBox[{"LegendLayout", "\[Rule]", 
          RowBox[{"{", 
           RowBox[{"\"\<Row\>\"", ",", "1"}], "}"}]}]}], "]"}], ",", 
       "Below"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7133730872744303`*^9, 3.713373163933815*^9}, {
  3.7151864482178583`*^9, 
  3.7151864498036995`*^9}},ExpressionUUID->"b7b4ea67-eb02-4b32-a3ca-\
4657bce49333"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"SensUVic", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", "uvicsensitivityCBA200", "}"}], ",", 
     RowBox[{"{", "uvicsensitivityCBA1200", "}"}], ",", 
     RowBox[{"{", "uvicsensitivity2C200", "}"}], ",", 
     RowBox[{"{", "uvicsensitivity2C1200", "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.7133722960554457`*^9, 3.713372310800289*^9}, {
  3.713372853060664*^9, 3.7133728635862665`*^9}, {3.7133730380986176`*^9, 
  3.713373044170965*^9}, {3.7133731076735973`*^9, 3.7133731120268464`*^9}, {
  3.7133731931494865`*^9, 3.713373262614378*^9}, {3.713373337479119*^9, 
  3.713373396032468*^9}},ExpressionUUID->"7fbed7e8-1305-4f46-9d4a-\
8e0d7e0ff16a"],

Cell[BoxData[
 TagBox[GridBox[{
    {"uvicsensitivityCBA200"},
    {
     TemplateBox[{
       GraphicsBox[{{}, {{
           InsetBox[
            GraphicsBox[{{{}, {{{}, {}, {
                  Hue[0.67, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJwtWXk8VO8XVlKytVCyzX1FJdFKisqTNhWhRAs/lbTRQioh1Kx37tiLsiWU
QnvatK9aaZX4pkSLklKphH7vmPGPzzPX3HvOc855zvNepsvWzw3oqqKiEtdF
RUX+e+Dl6jN/1vGQV3NJxzhVij+Fz5bzg3moLx9Y9aeIQ96d3M2aoTw4vwnX
O5Iuw0jMaUrczENs6rq+fHEsHi17Ud5/Kw9th749dg2Og+jcZJO0CB7s2MlL
6n3jkaohem4UxUPwRI0KM4sEdPhndqTH8JA8oJuXTk4CiswjUw35PPye93a/
kX4iitV0c1OFyueziVhs5mamK+FhjPznVyLUuxsaxkp5cJE/YHESjAoXsmqx
PNwkx0JWFSehMPZrSGS88n6qyRh49OKLb4k8ROgdmfHGKRm392ZcCNjJg0/8
tZ8HQ5JhIQ4gL1J4oN9ObExIxjqrRrWZe3jgX7m7b1pGMpI7uq0/m85Dx9Ow
j4OTkyEyjvAdnMWD59v96VM3JsPa1/BJUjYPD+7fv+8yIRk+3gWP2nN4yGrK
vzX7WxJyVzctWrmfh0t7DUf45ieh/7WCDWX5PBy8NduO9U3C14A0vbEFiuev
1U2C+fitzulFPMjDDS9NxCu1f9r/jvAwZJR6UUZkIl7zX69YelzBZ+6IRDz3
K/O8dpKH3bQceJMAmVN4pelpRf7piQnQfSFriT7LwxYawFEk4OHzo4erz/Ow
zdH2f+er4xHUnVUZd5GHL5H0A9t4lE0v+Zp4mYcV8h8uDlUp76IbriqfVxML
G6ODRyff4CFn2unv7aNjUW+etj31lrI/hDL8sfP89amUh4wbtCAvOHT0Cezr
eE/JpxWHDcc2PE14oODjvxgpTLx/THpTxsPWj4NHqVewWJOyY97Ixzxk08vm
I1kkeOzXjXqq5D9Wgqs33sbcfc4DLZ+FzxcxJnDXMvpV8nCqdPOlvZ5ieO2/
vsqvSpnfFRFWRK14l/8fD0b0dt1Hi1DQPES/qYaHxEaa8FEhDOfvaLOp5aH5
seuy3mOFMN/UmLq1ThnvNQH88141XHjHg3qR8aLl/xPA9kJpS8cHHobKG0hN
gAVmxhcdP/FwnYYTX8yH35PpjtGNPHQdJu5fGcaH1f9ORV1sUvI3mw/X7w8i
W7/xUPnw17y31nzMDWi1H/uDh1XygKz40BmRdX5DCw9eOtYnMifzUR5m1H7o
Nw9necJPHu58sCaPVWtblfX156P+KFM+oF3Rf/dD+PCM9vOf80/RL8bb+eiZ
2XBpRxcG7vKB3clHw2v9umJVBmZVf6LW7ONj/ReHp+/VGCxa7lDjdoyPzeMP
JQxQZ3BvHy3wTT56ax4zdNZgQK/GplbyMUaUtXGzFqOYx/d8BBVdycjVYWAi
v8EPPqKXLUkt680gbwNN+B8ff0NvLm/ty3T255VeAlzJsO1u3o9RzIexANv4
PyJd9BlFfQcJYFQ65e5GAwa0ejO1bAWwUPVv2mPEgFZv+64pApjfi2+8ZMIo
+JojQOVZtVu1DKPI31eApMCOrWoDGUX/BQrgGXtcY4g5o9CjUAF6VnhunTGY
wZxlvReM3yFApp7x7RUWDCg6VZoogN7Q8T8FlsrnZdL79a3ulmPFQN6eRQW0
3l9G/7o4nIGWvMBnBbjYtvrBi5EM5OF2vS6A7v5CSfNoRlHvhwJwW4mlpi2j
mKdqAVQdmk4MtGMgz4b7IEB19QTz8eOV3/8uwAmJVfQcB2U87QIY5NTcWDaR
UcyXuhAz725q2eTIQN7O23WFuPlWq59kMgMDKqfWPCG+9btqumeKMn4LIYrK
i0wOTVPGP1qIsrIPPc/OUNZjghCnebL3N2cyinmZLsRRo6Izj2cr+8FdiHUR
PhGvXBkMT8j+PWqREGtdjo756MZgzatgqc46IVxaT71p9mCwWmX9dkG0EAM9
IkV/5zHYf/Gq/oF4Ie7G9DVT9aL5/6pbui9LiKGEf7bnAga0m89mFQmxZOSL
Gb0WMfBefPxy0HkhNInhY10f2l83jg9fVyqE30O3Bfr/Y3BmWXTlxedCeMdF
VRksYWARJTsXWC/EnaEFPkbLGJjTD8b/ECK87mm10XIG+R+ch//rKsKw6H8+
RisYjJcLRB8R0u2HvjJYxaBh1wmtb4wIopduS/XX0H4aGBTWai3CzoPr3+sG
MTgX2/1rioMIc7bwg3utU/S//kwR/uUJVDQ2MKDT/XCLlwgpvMBdqiEMBux6
2vODvwiRy6xHtW1kcKu6WNC2geoP/8rT75sYxbxvE4EZNmB7wxYGZSuevV8j
FcE1c7Dd660Mknw6prSm0HjPV/96GsHgDpWztFwRHLtY3ijdxuBHkNe24cdE
0NrZllESzSj2xwURzoybzD+8nUFY+H6r66UiHPZ5uyWLz+BQ3hzoPhNhov6D
iDghg7/3vty5/loEa6v38dvEyn78LMJsHYPiQJbp3IcWv0X4+cb58wKOQZ+x
Ey7OVRUjI3rx2GmxDN6bUEZ1xJi62WbnyHgG7S2bXhsbiPFT+3R3o0QGnqHm
qdFmYtjMuhrXLZnB7IZuNn2Gi7Hqs611406m0y+ojhPDaXNz7dMUBjmn7H47
OYnBs3p6rGQ307lPtrmI4at/JnVfGgNHSmA3bzHOqm/eLcpg4LW38PCCpWIk
pjWcXJPFIII/wuVAoBj2YxobXLMZnIxoPua+SQzHHvMnjcxR9mu0GNlGv4/0
yWMwtnCSd5VEDC3nwonN+xn0eGjgsShJjP7jnT49ymcQP48mkC5GQEj82WOH
GFSvog2dJ0aN+/IDcYUMrE2ZH0GHxbirlVgceJjBpA+VReGnxWguqXs346hC
vw5cFuPqPGsHs+PK+S+l+6jQ7mT7CQZWAQa1Cx6JkbKtzK3iFAMabaDhSzEc
Ai/3OXaaQQG1T7W1YlS1lf8Rn1X29ycxPuXdV/c7z+DzlfFmd7+LcfHqVkfb
CwxKhvTStG0TI2pvVpbGJQYppnGbgrtJMCRcZUjNZYUeHNaSICTav/LEVQY9
pYz/Fz0JbpZLTwuvK/XXRAIj4bjL3jcZDJIL0iAJ3hVY/7C4zWBH7e3dDtYS
/Jxp6fWnlMFdz6sHzW0lmBnQWF96l/79pq5p6hMlaGyzyUu9z2Dcyqmr10+T
oLzXpcSAh1S/winjrhJIM6ceHV3OoFH70kiD+RKMPMhv73jEIH0+LaiPBAPG
2m67+4TBuyOD6vjLJUid13fErmcMku27uHYLkuCO3hNdvwoGkh9VFds3SjAj
dbiVRSXla4nn3PxwCWpUq8K+vlTMa/8dEkxPiG09U82giKtapcJKcD+m9XjU
KwYL7o6+cTxeAjXLZ3unvmbw+9rygiUpEgQ3l93oWcsggN7wcYYEgzwzTB++
pf3UsLG4X64Ey181nE6sp3xurOgbckiCaXaBQs/3DNRuxo/aclQCZ5P7sf0/
MnixfeP0ncWUj1Ul5RUNiv47XkKv67ybs/szg8cqr7r2vCZBPO+3+oIvDPxo
Az66LUHBnYx//b8yMLyymFx9IMEZv6gxz75RfYwsP1n5RIKEudP3J31nELl0
9PxjlRK422XOd/vJoPYjFbAaCR7dtpym+UupZ3USmNXtCr31m1H4xwYJ1QtB
XUwrg2X7nts0NUmwVT1jl32bgo9RPyX4nBEj+d5O96fDnEeJrRK0vHh2sfAf
g5dFrT6N/yS4N45JP65COvXniBoLr0HD/8i6ENS81kweqsnCasKqPyu7EsU8
9GYxKtskw0mVwHPukOye/Vnc1856Y9yNIOletLOjEYtdVePutlB8/qW0PYCw
UPk7watcjaCKwi2DWOj8+S081J3gpFZwEWfJ4nvH+YU7ehC8NIpcemIEi8uP
yx8tUied/Vliw0L9hfjL6J4En2i5IsazkPW2PqahQfDkwlu9zEksXhpr69dS
3LmfprBonhBqdk6TQLd5ctk7ZxYf3I88i9ciyDU719ZjDgthZffhK7SJ4vww
j8X736VWE3QIJn/zv++7gIXxRsfHfXoRzFPLTbL3ZXHtyCnee4qrp6uGcctY
7CsO6XuhN8EM1TDNvJUsZtheP5zQh+BXd7/d94NYZEY3fV3el6DrBbW+eiEs
dnCoHqdLFHqwhcXSnx3rtfRIp958jmBx619IUQ3FCaO2WO+LofEn1yWe6Efw
RjP50A4hiyCndCLsTzr3cZyUxe4prxZ46xOUnKUDEccCYT/shw4gmMoFvY9I
ZjFsjfntVopDp+9sEe1mccDlVPs9A4KmO9edDmey0G3/+CrDkKC+mXm8PodF
qKpm4FojgrW0/GPzWfxJ8smZaEwU/qmIhUhqJtQ2IYp9fozFxE15uv9RnP7O
JH9VMQs1zmxOEU9R7/pzLPSO19lEMJRPeQEvsVgXPqx0JiEKPb7OYoOFg/oA
U6LYZ7dZeBR6/aynuHM/3GeRnXMl/uRAggqbpnHTHrF46FtSEWNG4P9lkdOk
5zSfaskDV3MC0bjnN9dWsXhUtibYcBDBhzXDWvRfs/Dck3P9HcVy+i/XsdB2
Db5xYjABHa+Rlh8pP8f1Q6OGKOqzs5HFiUnPH8+0IOjiKtB2a2bRZNr4Wm8o
gTz9Uy20HvYZWTUUC7IeFLj9ZdGTZ6ZVYElgE3MGXVWkGKt3dWjoMIK+ckPU
TYoDRsW/JloRHG71WTtNXYqhHyZu7mFNoHNp5J4CLSly3u7ZX07xZZ2MMQP7
SBE1vIdoz3CCbeUnF27qJ4Vl9nX9ZSMIZi+kGRrQ67e1FluOJNg7weppmgl9
3ifGvZliNRu6wU2l8NGw/3VulLKeg6S4VJ3qvn20cp6HSuH1ZJOP8xjS6f/s
raW4PKC3US8bgg1ygRolRXpijuwZxddE+d53baVQ+2/V8XRbghBpXF3zeCla
PbPYpWNpfvID0yQpbuhE9RtiRxR+1UkK/yqn+Z8ppuH/PDddil8zhsw8Po6A
2r3PPBeaT1bAt03jFfPh4iHFzjq7Ofb2ROFXF0hhVlPh10ExbYcpxsul2NEr
evA1B4KLc1NMdYKliClekSOcQBTnV3qeXFt2+4nzRMX8psdJITGsOq85icD7
84iSIWlSLNCt9H5IMZ3eLq7ZUui3/ClIcCSYJTf0uVJoX950ai4I9pSkJPQ6
JMV3S0Go3mQCeXscOibF/DM+n55NVtavWIrGnLEGqU4E2q+tE8h5KdS/OHd4
TyGwPKRbfuOKFP8tups2YKqiXl6lUjSt/fblBcVPXr3W1H0oxcp1P1p3TyMY
/s+0veWJFCErel5eMJ3gUaJPx/WXlH+zFQ4DZhAcpesx640Ug+2woWKGQt9M
PkixuuW+b4ozAXm83k/cKMWQiMnd5s+kekqPdxOapajPfeyvO4uAkQ/obylm
6hVHPqL4O22Hmg76fVsTt/jZROFnVTlYjHWscnEhWEntaWEPDmJNN1MNV5rv
6lfBGtocVIJjTG9T3Lmv+nJ4/qF7NX8OwUBqCJfocwi60M8DbgQegWlbMow5
7G6riWlzU/TvT1MOP7fvDjzrTvm1pI55MAe7xuA+oR4EDwvKnj0fxiEyPytk
xFxa79tD7fuO4pBR6x7fQLERJbj3WA5Re86v3D+P4J1jXs0kBw5LE7Tb/DwV
emsODmPmR7gYzqfzf4calqlUXB1tFz6dr9Q/Zw6ykKCBcV4E9mazIvguHDRe
ehyc4U0U74PcOXQd3v+TygKCFnqcd5rPwePbx4ZzFH+qHWt4ZSEH95D2/JCF
BL7Urq/15WB2L2bgsEWk8/y2YwmHjje5i95SLA/Hwp/D1tUp7umLCVz7yWY1
BHAofy3uNs+HoNJvs1vWag42O/M3a/gS1OmZ3KkP4tA70zz/KsWd75M2cJhf
a50S9j+i8K+hHC4MaJ4ywo9gGKWPDePQ//reY/UUbw6mDG3lwI0OqE5fQpD6
LyHqbziH96INtz2WElA32XPrNsrHkabgHssIMvvsvzg5msOMVb2rL1As90sx
MRzCodI9xJ/qSeHhFzV8DhE7PzcNXq7kS8zBNbFrWhXFp+g4v5RyGGGzvltC
AEFiL2r44jjUzvIbMXWFMt8kDl82/jP8vUKxH3gpHGp4kbcLVxLsbOnuN2AP
B1bWxdZvFcH8qwfz5mRycCkr8e+7mvZTUFj4oH0c5t57Pu/mauW+zONQNjZK
LWwNre+iJxf88zlMTfsvzDJQMd/5hRwuupMj1YFKPTxC+ZQE748LIp1+y+M4
B6PJbf/DWoIrn7MmWBVz6O7+6eW3tUq9OUvz91ltkLtOMZ/JJZS/N9mGnusJ
jOUG7DKHkhEXXnXbQJByQivY6jqH7NX1AcUUy+V24i16XTz9WEAwUfjfOxze
evW81C9EWb/7lJ8w7/ibFIdl5JiNL+NQsHyR+aaNCj4XPeKQssJhm3kogVze
bz7lsDfbLO0JxT2+9nd2r+CQpjEhYscmxfz6VXJYF3KYjNpMQNXuBvmP9mdk
trSGYl9qSH6/5vAnZ+K52C0EWtQueLzl8MbucJFDGFG8f6vnsNlfP+BjmFIv
P3KYNyivNmUrwTq6wK585hDmGTFoarhCD4Z95RC994b1N4orcjdM1PjBoUKW
/zczQrlvWuh8h8+OnxVJEL3mQqjuHw6x2RUfWiimp4Ovam0cSrU2quduo/u4
sqi1uoNDaP7UL3OilH6tiwyTR21Ma6XY+kRmU343Gb5MGaR9IFqpJz1kiJm7
fbpHDNXvLhfUknrKsOXQ4eltFMu7sV1Thn/ryrXzt9PntTZ+Qi8ZBuf2yvDY
odj3jn1k0CCJ3/5S3Omf9WTonRauc4BPQN2CjYq+DP2yvzW7CQic6AF9pYEM
e9ON9v4RKPMxlkHrkYlurpCAaw/4tZyR4a6fiZuLiIBu09O1pjJEOznO+ylS
+JOb5jI4uR1kssT0/l6fRzhYyHDDbtup6RJlv1nKIGRr+zRJlP1lLYPKkTa7
VJYo3kePlOFVQ9NgRynpPC9Zj5GBLHv96h3FEn/f6lu2Mszt2+wXxxHw+q9x
3ThOhrPPnQtsZQSFZc+8PtvLELFS/VI1xUPv9b5tP1GGFws90/mxSj8HGVyI
u5NlHOVXbrCdZLipwZwsp9iUBtBnmgyl0+saN8cTmNAD3scZMuyvudZsnEAU
/y+YRfm59N/VaxRTO9m9xkUGg0LvxasS6T6k9r3KTYars+Zd1k4ine/Lb3jI
cMn0e+MJip2W1JfneMpQmbTwvXcy5ePMUdWV3jLk1xwsbKOYuoF+soU0HwtV
h307CXppFh/Y6iPDxbXSXdN2UT9Gj1MafjKciF1S8nGXwk8OWCqDzoz8otgU
gr8+a292+Mvwf3kQ9ys=
                   "]]}, {
                  Hue[0.9060679774997897, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJwtWHk8VV0UVSiZGhCRe0/RhGZSJKtSGg0lmhWRNEnyFUK96d73zIpCkgZF
c2kevkbSgIoU0ciXUlEpkr7zvHf/eb/1u/fdu8/ea6+9zunns36OX2cVFZW4
Tioq8t/+16vOt6xj4C+/HknRkle2QrCBwa+5bw+mF8hw4N7+UK0QBk2PZ/v0
eBCDEXD5khjKILEhwtHmYSxKfSpKem9hUNq/siWyKA7iixNN08IZ9DsZHJB4
Jx6pmuJyk0gGcy4woo/eCWj33dOeHs1g17peArxMwFHziFRjAYMDQQ6aXvMT
ka+utz9VxMDRZuml6SWJWGTmaqbHMYhNpX+YlASNLsbGsVLF9/PzkmCSt4BX
j1Xe10pGXuzX4Ih4Bi/Nu2wzWJqM/ieuVjQmMrj1Y/Di+OxkFOzNuOK3g8Gm
ZCM1z/JkDJb4kYoUBvf3TTn37Wcy1lk1qE/fzaCzpaT3c/UdSG5XW38hncHZ
wtBre9uTIe4bvmRgJgMHzWf7g2qSMXSJ8ZOkLAa2/MRl7w8lY7FXbumfbAYu
Pj3mj1uQjP2rvixceZCB/nHn1600vt43c4OKcxioeeoOHXUtCV/90vTH5DKg
2b5N1ifBfNyWaelHGWgc7bvwHZOEavW/On+PM2iNDLwS8jARrwSv/JefYvC+
hCY8LBHl3sUeN88o4t84KBExk8Ke9zvH4HWY/vGCxwnQq4hpjrqgfD4iAY/K
TxyrusRgy4eBI7kBCVjThVcZe5UBzbZ2593xKJ56+WvidQaTltF/vI9DZUpt
VP0NBn3kAQ+Pg7XJ4RMTbzOIouEkb47Fe/O0bal3GcjT9ejfGLTYevz8WKio
778aMWjvubqX430G8nTrzpEh6GTQ04SHDOTl1d4jhanX9wmvixk00/LcrOcR
mLJ97ojHDOR0cR/PI8H9oF7kUwYe8gQlcrhx+210UTmDkfIEfZRgvOxmhsFz
BncIJdwMCTwP3grwrmSQ20gJe1IM/0j/2pyXDNJ204sRI7dpkOGXGgYPH9Br
pwjG87a3Wb9hIC+nQ28RzDc1pG55p3xfphC+B6rrr9QyCOggvBA2Vwqb2/9j
IH9c84UA8836XnX8qIxfLID3k6mOUQ0MBskDnCyA1dKzkVe/MNCWE8pAgNnf
Hka0NjKgq7vA/NqOOX6tdmO+K/n5eTt0h2deCmpmsJ6mr0hFgJLNJn+O/GIg
b6cGPQF408eqb1qV8Q0Q4P0JtsToD4Pin7RhRwrgEeXt6/KXwUZ5wBME6Lan
/tr2TqyiXrMFqH9l+C5flcW1vcbDXy4TYP1n+6d16qyiv9cJEDruSIKRBgt5
OX9uFqCH1knjaZosTIbTjqLrGy3O3BiqrbyfKsCao/9m7NdlMaDLtp2TDwoQ
5bMstbgHq+if4wL8DrmzorUXq+DHFQH+zbDpYm7AKuJ9IMBWwfeIWYYsFq6w
r3EtF8CkcHLRxj4sRsuvGgEGq/p+2W3CIuM2XXCDAOb34xuumbIKPv8R4PkF
9btvWOX6ugqRtLp9i3p/VtFP3YXwiD2lOcicBc3mvil9hej2zGOL80Dl94cI
sUe/b4H/YGX8o4TQHzLuh9CCVeR7An1fryq1bCtWwecZQsz/POrn1WEshp7e
8yXHXYirbaseVoxgIW8fyyVC6B3M45pGsQr+BQoh20IstGxYbJUL2gYhVO2/
nO5vy6LtCH0gXIiqqvHm48axCn3khDjNWUW52LMKfiYI0Se75raPAws5Hfal
CTG9aFPzJkcWNFuxqYeEuPNW24CbyGKGnGDHhGg0uNFv92S2Qz9WXBTiaMlR
0yNTWMjDvXtLiOLi/7pdcFbGf0+Ic0xM3Z3prELPy4Q4YXL0/OOZyvrWCLEu
fHF49WwWQ+73KLCrFWLtrBOjP7iyWH7riaXfbyFmtZ593eRO67F8X/lZXRH6
u0eIf8+l/Bqx22JXXxGKonuZqXqy6Oq9a5aBlQhDiOBCt/ksHL0Wnbo+XoRl
Iyqcuy9k4U0/4DxTBC1i/FhvsbKeC0XwfuQ633Api2fWX8ZOCRDBKy6yss8y
Fk+uvNU3DRXh3pDcxSY+tD6zDGKKhCKEvXtaZbKCRd+I5aPKEkWwjPq72MSf
BX2bkdpeEdLthlT3CWBxMbbL195HRRC/cF1uGMii5MyCHxcviLDj8Po6vTUs
plR8/T7jjggu/wg2dF/HwpCm40mpCH8PCFU0g1iEujK9A6tFSGFW71QNZmGd
fdZ2c70IET5DR7ZtpPmd3Pfjm2YR/AX/Pv22icWYvAlelZ3EYC2NttX/w3bM
h4uaYszeM9D21RYW88edLWw2FMPyUtXPp+EsRu62MNrZXwzHTha3C7eyHXpY
aiGG9o62jMtRbId+ZI4V4/zYiYJj21iUe34aftlJjGOL3/6TKVDUd9AsMRwM
H4bHiVjcPjVs3X4vMYZa1cVvlbAwv9gmCfEXY6Zun/zVPIsfF19It64T48fr
aZ/my5T8CxUjI2rRmCmxLJbOLOzqIBbDKdR6x4h4Fk6yNXXh8fR5nXNdTBIV
//+zUwzrGTfi1JIpPzzmDCL7xQj4ZDO0YQeLrzl3Z9qeEGNSaNObpylshx73
yReDsXp68vIuFnZmM8JVr4mxxPB86r40FkW3Jh1b9UCMCxqhu8QZLJLtOs1W
eyJGYlr9mcBMFgddoLf8uRh2oxvqZ2exSK81zQmoo/nqOm/CiGwWsYMbdCY0
ipFl8ut4zwMsnFU3a5k30/xNy3NoOshim9qd+FMqEvQeN+ljaY6y/joS+AXH
Xzh5hL7fanLf1XoS1LitOBSXx6Jgpi1/w1iCIu3E/NXHWNS80koeMkSCpsvv
ap1PsLhblS9sGy7BjblD7c1OsdAvcaoIsqbzKM/2zJ/TynxDgpStxa7PzrKg
7uDstOkS2K++3vPkOWU8sySobCtpkVxgcU4YUXLGU4KPBx5oeF9iUb/ztHbj
cgmu3tjiaHOFxjPELum+nwSRezMzNa+xIL6fF95cLcGgMJVBNddZHD1W4R26
WYLgKN/np2+wKNx1OaVHpAR3SqTnRLdYxTzdJoGJaOx1rzssdF4NTSBxEtTm
Dv0+uIBFgw7t4J0S/Jhu4dlSSOtb+Wzbxl0STPdreF9YxOK8T9Rzh2wJGtqs
D6Q+YCE9+fqDQa4EJd2vJfo9onx/aO9SekwC6R6nE6NKWITLDdA5CUYcFvxp
L2VB3WLglasSGI2x2Vr0hOqVQ/o89pYEqXN7Dd9ZptC7fvckuKf/RM/7GYun
ln59fIolcE4dZjX4OYsVD5bMLCyj9VGt3Pz1BYtOs4U6xZUSTE2IbT1fxaIq
QGV9pzcSPIhuPRVZzXb4hRd1EqhblO11eqXUywYJNjQV3+72hkVg9QZp3DcJ
Bnhk9Hv0lkVZXaBlaIsEK6rrzyW+Z9Gz4NKF2L8STLFdLfKoY6F+J37kP+oc
ppk+iO39gUXI1B3NYi0ODQGXS57Vs+jWkrXyTE96X7fWZdcnqg89x4y/asgh
nvmlMf8zi/h3TexjUw659zL+9v7K4kDNNd0MMw7nvSNHlzWyiNu0wURnCIeE
OVMPJn1jO/yl3zAObrZ75rn+oPz5cP6EqjWH0gKLKVo/qX7KBXAcB7N3O0Pu
/mLxX6Bls6EjR/VC+C66VTl/nThs0cjYaddG52m22cW26Rw+ZURz3/6wOLHD
j/N15dBcUXY17y8L2i2DIz043B/Lpp9SIVjptGp90AIOngOGtcR0Ior8LeVg
NT6gZWVngomNvg+W+HIYmWWaMUmVoHOahgkTwOGBTubrvmoEyUe2u99bw2Fn
5diiZorbJ7c2rN7AQeX3eM8SdYLPH/8dZxbKQbfll+hIF4KUfnGbGsM4fGu/
tGB7V4KztD1fRHG4/rikdKEG6ZhP/wg5aFRIPo/qRlA0iioczyGmx9CTmpoE
0+QGOJbDi746hm8o7shnEoem8SFmF7UIfPaVW69P4fCf2/GyeG3S0Y+FaRxE
z7sM89chkMvv00wOdb8Krcbrko55UJTNoe9Gx8c9uyvff4jDzeNnmTqKhZkP
c4tzOezLD+51pQeBS2ni4vbjHJxtbh1L6EmQkPVrZO1pDnuivnxd0YtgiLzB
znPYLkPVWD2CI3olTvMvc1j+o329tj5BKA132XUOd/8GH62huIOft2j8ye8S
TxsQPPcOdc0s4LBmUjoR9SYYNW+ExZH7HHZNrp7vZUgU+4FiDtj83W6IEcGc
QVn8iCccLAPNC1op1so/tMX5GYdDs87+ud+H4Psaz63DKjno/flQnWFMcKZ+
Y75BDYcQVa3Va00IuklZ389vOLQkLc526Euwv9MV9V51HMRSM5GOKenwr90/
cnDYdEDvJcVL1t5pP/2Zg7rMzOUoQxR63cRB/9Q763CWYIF4bPmUZg7rwiwL
pxOC3r/vf77XwiFosL2GUT8Cz63Hz/n84eCe5/njPcVdeuk73lXhkZX9b/yZ
/kThF9V4PFpy+Vm0GUHTxGL/sq48DlVxD2ebk475nqLFo7Q4cIPxAILH6727
unTn4bE7+1Ytxbpyg6LHQ2f2htunBxLcGGc243dvHpanDEMiB5EOPdprzOP0
hPLH0wcTtIysPT6A4fGlX8Mr/SEEX3tPc4vox6PJLiOzhmK5X9EbwKMbY6ad
a0Egb8+Vg3mM0b8xJMSSQI8GWGtJ4zPJ/+lgRdBfTsjhPIb85xDadShRzLtR
PLLf7j5YQrEb3dAm2fCIHNZVvHsYQUPmeKunY3lYZN0y9BlOkE23q3/s6f0C
7UUWI0iHvjg40u99ZN2aKDZ2f2ESMYnHYk27nxdHEiRG/rYLmsLjWlWq27ZR
yvVN4+H5ZNPiaaMJnlD7XzGTx3WjHibdrYlCv1x4pCdmx5RRLPdbe9x5qL8M
OJVuQ7A371hFjQePVo9MfvkYovAvXjxu60YaDLIlivm+iIdv5aR5nyjON/h9
f91SHj+dB00/NZZAPh4Sl9P1ZPo1bhpH9YUKbt4KHjve2brY2RG80ze9934l
D7OaZ97tFGfxdMAE8tjePWrgTXvSoXfa63hE5/tni8aTDr1qD+KxtrjgyTQH
otjPhvDgjCsvaU1Q9MO3UB7z9Z57PaJYa+qATZ3DeBg2t+QmOBJQd5NeFkH5
cH3T2TkgWCsnYBSPbxbCEP2JdL20vcu285h3fvHHMopn1qtZJ4p4NGSP6ZM6
iYDazXknOR4an6e1e01W8kPG4+XCojQjJwU/kuMof9Y2fq6guGO/kchj5brv
rbumELByQ5fMI9i/2/X5UwksqfzwKTT/Zv72Rs40nxommUt38xhoi6Bnzor8
+GXwWNX8YEnKNKLwe3t5DAqfqDZvOgH/uPqVVjaP9/sf++rNoP2sveGo1kEe
0/XzI0oplpe3Pof+38bUNX4mQV5xmeenXB6DxzhWzppF8QRq0I/xkGi59tOc
TRBpOnbl7ZM8VDZE9yugWI9uAPLO8Cj/r0uVwEXZ/+d4rLli4A5Xgpwt1KFc
5LGrrSa6jWL58UjJZR4/tu1afcGN4DS1o9uu87Bt2NAzxJ1g1iHNqQNu8YjI
yQwePofgE90eq9/lkfHGLb6eYvn26V4h5fvuSysPziWQxr1r2nufx/IEnTZv
D9KxP7n0iMfoeeGzjOcRxX6slEeVo82CpxRbR5/H9qc8YoLX9I/zJKDLcVpV
wUPzhfthZy8CC7kAV/HoPKz3R5X5ivnwpYaHe+OH+osUd5zXvOXhFvwnJ3gB
AZ2OMeNqKT/vR/e3XEjnRxh1+B94tL/ev/AtxXI/lfWJx5ZVKW7piwjurrWO
tv3Ko+SVRG3uYoKptH09mnhY78gJ1VxCOvZT77/z6LHHPOcGxR3+8yfl25uh
KZuX0vtU4HN/87hi1DR5uDdBpfSP3z/tPHrf2nvyPcVyP3ZVRQrZKL+q9GUE
Vn593lSoSVEnDipwX04UfqqLFFXHv2zo6kP79bDNQ/tuUjgH9Ki64qPQ+51a
UoRBpUuwL11vXQx10FKE7/j0ZeAKgn7s9zXlPaWYndg5rZJiqiaPOD0phluv
V0vwI4ifG2JuaCTFmxnew5386fefptWa9pHi88a/xr8olo+D8L5S1DARBXkr
Ca7rZozOZqTgYzrZeAdQvNV0bB2RYlbxZd9eqwionXM9YS7FnPvlc+9QvPNp
t4DsgVIUj4lU3xxIOvZf9RZSOKW93Gyxmij8i5UUV93I8arVCr0yHSFFD27D
wbg1ivpcGyWFycS2pVirmOczbKTo4vbxRSPFcj86fhxd/+JVffavo3ym29vd
9jR/r7OMPdaTDj/rPlGKy8OvVKsFkY7z0lpnKbJWvffLp7jjPGIuvS+ZetJv
A+nwizo+Urz17HbNIFjZb0E0P5u94u9QfNiraJRTtBS5Kxaab9pIECY39DIp
Uvztt5qHEAzurpU/MEmKvVlmaU8olp9vqlKcpjk+fPsmgtt0XFTvkGJd8DEy
MpQozht3SeEWkSWtobhjP5whRUu2w8XYf6heyQUuW4rXtseO2m9W5C/wiBSh
voZ+HyheRBO245QUcwcceJOyhUB+e/YlKTZ7hA9wCiOgduTVsRtSRO29PbQx
TKnH96R4FpPze084gXzcLC+R4kfYzPgZEQSjqR37XC5FbNaz/5op1nWlFaqS
olB7o8b+rQTVnamjeC1FSI7TZ5dIgpuGA+eq10oxceTGtFaKH6vQJz5S/kwe
oHMoikBOn+CvUkTP2TbVPVrpj35I8c+RY1PbopX1bJXi77oSnZxtBH/7/Wn+
0S7FwP3dM9y3E0zfEz3wpqoMmiSx8TfFcvuaoiFDj7Qw3UMCpZ5oy2CQ1djk
KqT6vIk62J4y7E032dsiVNTrtr4M2qWmevtFSv9gJEORt6nrLLHSD5vIEDXJ
ce4PsUJ/ZawMk1wPs5kS6tcctsw/3F+G27Zbz07llPkfKIOIf9PzC8Xy8yE7
CxlUjrfZpvL0feGC4Q+GylBd/2Wgo1TJp5EyEJ9X1bVS5byylmFOrybvOBn1
o25tRt9sZbhQPi3XJob6r6qpqr/sZAhfqXGtiuKO86YJMlQs8EgXxCr6c89E
GWYRt0kWcQSr1n8V3XOS4Y4me6aE4o7zgmkyFE591xAaT5Ca0D3s3EwZDtbc
bOqboNgPfHWh+bn28sZNitdsDjtoNUeGPnleiwISCRzkH5gnw40Zc6/rJBHF
fniBDNf6fWs4naT0G4tleJ60oM4rmfa7QcyMem8ZcmoO57UlK/XSl65nsKr9
vh1EsX/zl+HqWunOKTupfzQ8X6oSKMPp2GWXP1AcRQXJZa0Mus45R2NTKH/p
hJocJMP/vmPvSg==
                   "]]}, {
                  Hue[0.1421359549995791, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{0, Small, Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJwtWHc8VW8cVlISqRAZ57zFT6W00ZKnvUlmpbSUliIpI3TnuQcZFRlJU6Gl
pBLS3rSJiIZSEk2Sfu917/3H5/Ge8Z7v93me7/f79l2+cb5XRxUVlZ0dVFTk
f/sVVuQ2+zB4cJ/+nGVozny2UujLwEY2cem78TwO3zkU0M2fwW+nN0eSh0Zg
GOwbYgMY3JpNrzCOxKPlpSW9Axk86lfeHKoaBcnFiSZJwQw0Ow6S9q6PQoKG
5LlRKIPY+hA7qyc70bZiX1tyuPJ9udHIMgtJMBQykF++YHYMctR0DiWIGbDi
T44XzsdgkamDqQ7HwH55D/cxxrFQ72xoGMUzGK6eZbwwMBZGmQtkalEMyh7+
clpxPxaZUV/9QqIZ9Onk2v2EThz6ncovbYxVvD9nbhxu7U+57LWbwdf0m7Nz
t8VhgNSLlMYzGPrKrHOHXXHwGVyvNjORAf3a62lJcdjV1mnjhWQG57/9ffo7
Kg4S4+DF5qkMVsl/6+JgudjwSVwag4zGx3OXj4iDh1vGo78HGQz0iL665X0s
Dq1pWLj6CIODU89/254Si95XMzYVpzN4cWiTrYZTLL56JelaZyj2Y9M1FmZj
AmckZzGQf+65ghhUqv3T+neSgTf9gMLNMXgtfL1q2RkG8vAwA2Lw3LPY+epZ
BivHVTlE0XhGTgoq63uewdrL/rsMTKKhUxr5M+yCMt7hO/Hw+akTFZcY3CCn
/bxrorC+s0xldL5if38nRqF4Wt7X2EIGTfRzeqRFojz+fVhdkTJ/fyMwyujY
qYnXGWy3s1pyaUEE3pkl7Ui4yWD+BUb8KYdHs43zr0+3GSy5NFOzYy8ebT3X
9bK7p7x/owybTm96GvOAgfDK3QNTH3Iwcfs+obqYgYr8N4zD2niB07DHDCgd
yh7uliLG8YhO6FPlfv9KUHT9Tfjd5wwoiq1fK8H4iKspemUMjiZfJ6crxHA9
cs3bs1yRf0sXMVaFrnqf/kq5nzIRMpr66zdUMTCldF27WARDF0HrqBoGNF0/
BnwWwmxLfULgWwYL5QHlhVhxuLLu8nsG+nKCWQphdfn2z7YPDK79GOAR/VIA
d1PjfLtPSr7vEsDzyTS7sHoGz7Z9NB/uIcDgJedC8xsYjJT/rAWY++1BSEuj
8vlEgPleLWOtvzOgV6tnmQnQfWjqpU0/GRTR8Jy3E6Bkm9Hf478Z9JcT3lUA
mclj1ZoWBvLtX94gwLtTbInBX+X7dwjgHOa5wv4fg7andAPxAnTdV1cg6MDi
+1/6jwwB6l7rv81RZRXfWyjAxi/jntaqsYp8PBIgYMzxGAN1Fik0nH7VAvTo
dtpwhgbbzucfjQKMlKRuDtBkQdl5O6CDEOuzrqQc6s5iQ+2f443aQoQtX5pQ
3INV5IsR4o//jZUtvVjs2DM5Yj2N35UUq85meiyqg3RPTh8vxHbh95A5+qwi
37OEMLo9+e7mPsr7FwgxQHVFQ6IRq9C/N83Pvej6AhMW3S2z9zUECFF2Qe1m
DctCTseZYiHi1rUFqvVjIbeHlbuEcI46o9HfjG33l7IDQnR94Rw43ZyFiTwB
p4TYp2t8a9UAFvLtP84XQnfgmB8iCxbHqBxl9+jzelV0OjiYVeitTAj3LyN+
5Q9hFf7zXoj81jUPSoex6Csn5DchdI5kck0jlFhFhIhAYtHNisVmuYC1RFAd
15Ddz4aFXJ6dDEWoqBhvNmYMiydUbu7mImRzg8Psx7Fooen1HyFCn4NV15fb
sgo/mCDCzLtbfm6xY+EsN6hZItx4o6nHTWQVenQVoVGvqG/iZOX7l4mQVZJl
cnwqi17yBK8Xobj4Q9cL05Xfu1WE80xk7Y2ZLKbJDU4gwimjrNzHs1lErKdX
RIngE+wRXDmXRZlngAOTKMKGOadGfnRg8fnKGNO7J0SY03KuusmRxZnCz6nj
r4jQzzFE8seJxeopazZueiTC3fBepqquLOX9Tqfv1SIMJMILXd1ZDJtzVONm
owhLh5VO117IoivPrvDpIEY3YvhYx4NFjt6fez49xPB86OCuv4TFql9vlx1g
xXDbGVreZykL+viv4iFi3BmY4WG0nAUOVxV0txUj6O3TCqOVLOjjviycLcag
sH8eRqtYzItK8IlbIEby2IGVfbyV8VkthuSlwzL9tSzk9uW4RYzdxzbW6qxn
FfVAKIb9VqGvtg+Lu85Fx8xixPh3WKSisYmFoeNLo5B9YsQz6/ao+rH4M3bT
Q/UMMUKWWw5v3cxigHa3HPNc6j/CK0+/bWHh9nloXvo1MdhBBjvqtrKK+lEi
xtx95javA9l2fzhL/WvQpYpfT4NZJFoY7Hn6QQy7DhbXb29nFXr+IYbm7taU
vDAWOsuuPRnUQYLc0ROFJ3awqNcqGJaoKcEJjzdbU4UsFj25/EbXQAJb/QfB
O8Uspk73a47uJ4Hl4Nro7VKlngdLMLt7n5x1Mqonh1O731lL8KN6xmf3CJof
i+M6JRMlSAlbZD01isWog+dsfs+RYErAqN3DopXxdafXa53vbBTL4teW1ymx
KyQYNatoZ6ddyv34SOD92cqyfjeL/lcl6W6BEkwKaKp5Gs+C3j2pQCgBM/jp
6by9LLo87OP4MkqCxfq5CQeSWEX9T5DggnrAXkkKi8qOlCEHJIhNqju7NpWF
58B7PaZnSDB2ZH3d3DQWPYKsMwvOSmDXxWXCsIMsvDKWOs/PlyDN6PfJnocV
+k29KYHmjEzbpiOK/LUWS9B7zKRPj9KV+SqTwMsv+sLp4yyiBtRrTaiRoGre
yqM7M1mItBxO6X6S4K5mbM66EyxouLzUv0vQlPf2/fRTLOR2WNBK65OT5TjT
MyyWjXAZZqEmhWumzdm/2Sx8DnW4LNaSIn57scOLcyyMQ5aNeKYnxbh1hT1P
n2eR2pB+856JFOWtJc3SCyxCIy+u62ouxafD99U9L9HnyxNoKUV+UaCd1WUW
p1VrI49ZSRG6PzVVo0ARj1u2UvQPUulfVcjC+2zdZqtpUviFrSjLLmJxosVj
w1R7KW6U8OfF11hQNfeuc5HCSDy60O0Gi+OH7bFrsRTvMyy/D7jFKvoHLyl+
zLRwbb7NYlLxqmer10sx06v+3e27LFyKjh2295eivnXU4YT7LIrGmM4KDpGi
RLsg1ush217PBoul4PdNOTWihEU5/9dra5QUw44J/7Y9YhFPy0Etre8G1lbb
7z5hsX/84KdJyVIkOPUauueZ4n21B6S4o/tEx/MFvT5b0zfrmBTTE4YMHlCm
5MtJKapUy7d9fclC67VlDMmRYlpMVEtuBYuwMtvA0jwp7oe3nAmtZBFMy031
VSnULJ7tn/Kahb/cYO5I4dtUfL1rDYvbe/PiY0qk+M85pe/DN5TfO9827X8u
xcrKuvOx71hUeKts3FEhxVSbdWLnWhaF3VNG9quRYobJ/ajeHxV6zKyl8fDO
K3lRR/XQ2XPvnHq63v29/d7PlP9pstPVTVJEM7/V3b9Q/VGBnP4tRcadlH+9
v9L9+2ZFLGqTItczdOSzRhZJiYmJfTpxiJk/7UjcNxaB8oBqcJhns8/F4QeL
3VLxwifaHB7dspja7ZfCH47qcTB9u8f/5m8WR+zplow46heit+EtlN9yQvXl
EKiesmdsq7J+9+fwOSWc+/ZXyWdLDj9Ln+Vn/qP6TR0/2HkEh3uj2eQzKgSj
qaE32HBw/W9Ic2QHotC3LYfB472bV3ckiv5uMofhaSYpk1SJor7M4HBfK7Xa
uBOBhrzhteewp3z03Z8UC2pu7c1z4qDyZ7xriRpBoPsxq7kLOHRv/i0+3plA
7Ub08K1LOHxru7RA0IWALj/IW8Gh8HHJo4XqBLuOCxzveHNQL5V+GdGVKPxz
A4fIHpanNTQISr9+n1Xmx+GlsZZ+DcUV01S3ddvGoWm8v+nFbkShh+0cPsw7
+Sxak+DLJ1rQBBzEZZ2HrNIiOC8KKRkp5VD7+/bg8d0J5PIaG8nBeLPd457a
BAsko59PjeVw9eQ5ppbisZT+qvEcDuT49brcg7Tr2yWZw3SraydieirvT+Ow
L6zh68peBHJ7OH6YgyACFaN1CNIDbw0ce5zDsh9tGzV1CfL6a3ezOsnh5j+/
rCqKJQupoWfT/e96G5utR7D95Pnl/3I5rJ+UTMS9CWKGb7U8cJnD3smV7m76
BB9zT6muLuKAbd/HDjQgaDXY/KLXTQ6D1prdalHiuLscjs459/deH9LeH/Qt
5qDz92NliiFBjbt+ruMTDv6q3dZtMCKKelLKoTnO46CtMcGsYOHQ+xUcJLyp
WMuEoAM1aI1qDrZbDuu8ori9H3zHQS3C1D6LIXi37MDzc3UcdM+8HRXMElhn
TnAr/8LBJ2jQ7ZmEwCzhX0zoNw6bBoxTN+hLFPPKLw6Oma4/3lEs96O9rRzS
Dl6JPtuP5m9Npa9GBxkeLs57EW5KEHRk8OQUNRmOVnAP5poRJFI5R2vI8Kh4
ra/hfwTO/vQN3WVwTjx47b0c0/5pio4MWnN9r2ebE8jTNcxAhkFn9P1D+5P2
enDUWIbsCc8fzxxAQN3pvUlfGRr61r/WHUjwk7b/V/+ToWlsSmoVxWeDm06X
DJShK2OqmWFB2uthzyEyWOsWDfQfRNrnw5oRdH9GOb9sBxPFvGsjw8APtgFd
LAmyh9AKYSvDwTeJR0ooru6263jHqTKEDukiSRxC4zU+f368gwwWadf0lw8l
+FH+YsdmD7p+S3ORxTCC+dRghq2l7/vEzmuiWLdkSummABk8NMb+ujicwKsP
zWiYDAUVCfN2jCB47vp56DiBDK5PtnjMGEmw8v7i2TNEMhQa9DDSHkXwmba7
4ggZkmMPRj6j2ExuILtkUHvlfSbZirT76bIkGVqcU2XLrAkeZhQ/c90vw/Xu
oXr9bYii3z0sw4rySS6fKZ4nJ9xxGX5N7z/zzGiCPV7cisUn6PekejVuGUPA
fS9/0SFbht1vbezHjiUoObvgx8UcGUyrXni2jVU8//lFGQTaYeZXxylxvgzh
OasOiscT2LktOlN4Q4YNxbeezLCl/LvRlh38UAbOsPxStwkER/KL9M2fyeCu
U+b2kOIMgePMfS9l0P/ZnBFjR9r7u8NVlA+FW87NB2k/3yiqkeGbhchfdyIB
7ca6fngjg0uux6dnFFe9pgl6L0P9Qes+CZMI5PIwqZNB/cuMNrfJpL0+HPws
w6uFd5MMphB4kImNb75S/mxo/FJKcXPa6rNrf8mw2ud7y96pVE/yAa5VBr9V
XQvdpyn049uRR7LpqnEG05V87sLD3AabXlCcdyGq8yYNHmt+3l8cP4NguLxh
1OTRP3hiJ5eZBEbyBlabx7tDj1fozCLt/UhGTx4zdXNCHlFsMTbu3j9der+V
iUP0bIIdnW5EnzHgMcDarnzOHILk9ybp3sY8pN0c+mrMVawP78tDxTe87y2K
9XMfqSwx5/H8Q+cKoT3Bv+zgpmGDeKy/rOcIB5q/Z5RgQ3nsba0Kb6VYnp7P
w3n82LF33YV5BJfjY7RbRvKwqfft6e+o1LMVj5D0VL+h8wkc5BXVmkdKzbzo
OorNLrZKv4/hEZp4afURJ9Jen1lbHstitFo9nQnk7QjAY6RL8BxDF6Kop1N4
VNhZLXhK8WOVyo6yGTwi/db32+lK2s9LtOby0HjpeGy6G8GjWI+2aw48Og7p
/UnFnSj6tXk8HBs/1l10V97vyGOe3990vwUEe1/tkoqdeJjeC+83aCHBe7vD
VRNceLRVH1r4ZqHCPx+58QhcEz8veRFR9CeLeJS8lnZy8iDw7rd+W9ASHqN2
pwdoLCaK/mMZjx77zNKLKA7PhWC5Fw+XGsv4bUuIoh6v4XHZoGnyUE/K1xHX
z5xcx6P3tf2n31Esn9cGbuARMcKrInkpUcyvFNdKNt1yXEb1PDSvf7QPjcfJ
Bt8uyxX+8NWXx3TvHhWXKX6ZRQuiP48gqHT2W0Ha59uX23gE7/7cYL5S6e+h
PObGdkwqp5iOU71Ud/AYOmpjpxgv5TrFNbM8h05ZRZAQox1kHc7jy+Z/hr8p
vndg6vlvFFcxIbcyVxPFPCngIYvsYOXpTdr7o2UUzynOW9FrDQGdbrwSxTzm
33vudIPiGdVBukMieRRbh6ptW0ugZ3LnnV0cjylJr7ZZrCPt8+bXPTzy55GT
FRRPaan/hAQaT873yM71BAG+RlpL43kYTWxdgg1EcZ5Hr+8879PLRop7r6UT
Kr0+yGNNn0M+tN5NmvChbC+NX3WaofNGgpsbRoXnJvLIG3q5stMm2t9E0gEh
lUfamndeORT70OUrR+i6dNppL18CIbUXlUweb1y7Fuj5Efy+ujJjaRaNzza3
6BsUy487tlKcsXKh2ZbNBK7dLbNNTvCIXzVuu5k/wVfxHeciivenmSY9oXjk
9TNDvlCcpDE+WLCFgKp7h94ZHj5+J8jwAJpPu5sVVhcoP0PS+CqKjT/VWCfl
82g+aHsxaquSjwU8qm1OZI3bRhTzCsUBK/S9PlJM7f+2tJCH03+Ha+IDlfXn
Co9tzsH/TQkiqPTld66kOGz/dctGiuX998IbPF5Epv/ZF0z9hI6LUx5QfQfN
jp4VQhT9ZgmPqLQXH35SfLKUJryYx23NzeqHtivq4XK67p8+5Yt9KEE+tc87
FE8cvjmpJVS5H4q/TP5P62gYvX86JcATHuHzd0xzDCeK84EyHluPn5jWGq7s
F1/x+OdTopW+g0DdNtmFraR+eUg7xVFAMHNfuPkkijVIbOMfig+ZUkOpovxI
Cup+VEjreQIVNMV6aY1NDiKCrBOlnj+rafyTjfY3i5T+XctD85GJziExUZyP
1fG462niMEdCMFcvctbajzQ+k+ycflAsSn2Q4fCJxySHY2yqlPKZpv/pZx7X
bbafm8YRxPfduaWxnodYVtOzgWL5/De7kfrryVabBBlRnE9+41FZ12Buxyv1
/50HWf668j3FrvszT5T+pPro1eS5M4L2c7TdntvM48LzGRlWkQRyu1zUQvW7
Wr2gIlJRD//84VG6wDlZGEUw3l7ueFRvZN4ki51EMZ/943FDgz1bQnGzNu0g
O0Tg9rS39QHRBNHUbh+rRuBI1dUm4xhFveqiFoH9Ba+KrsYo+iXzLhHok+m2
yDuWtJ8Hr+sagaJZToVacdQv5+hF3tWIQEHfb/XZcQr/D9KMQFncglq3XQTy
7YRqRyC96lhmK8Ub5QLoGYELA1THHdit1I9OBPI38Hum7iFYfuD5qAbdCGRH
Lc37SHH7+VzvCHSfnp4VFU/7gZsVOSL9CPwPbHAOKg==
                   "]]}}}, {}}}, {
             DisplayFunction -> Identity, GridLines -> {None, None}, 
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
              DisplayFunction -> Identity, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.02], 
                 Scaled[0.05]}}, AxesOrigin -> {7.58315269907919, 0}, 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {
                0, 1281.462}}, DisplayFunction -> Identity, AspectRatio -> 
              NCache[GoldenRatio^(-1), 0.6180339887498948], 
              Axes -> {True, True}, AxesLabel -> {
                FormBox["\"year\"", TraditionalForm], 
                FormBox["\"GtC\"", TraditionalForm]}, 
              AxesOrigin -> {7.58315269907919, 0}, 
              CoordinatesToolOptions -> {"DisplayFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& ), "CopiedValueFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& )}, DisplayFunction :> Identity, 
              Frame -> {{False, False}, {False, False}}, 
              FrameLabel -> {{None, None}, {None, None}}, 
              FrameTicks -> {{Automatic, Automatic}, {
                 Charting`ScaledTicks[{Log, Exp}], 
                 Charting`ScaledFrameTicks[{Log, Exp}]}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
              FormBox["\"Atmos_CBA1200_UVic\"", TraditionalForm], 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {
                0, 1281.462}}, PlotRangeClipping -> True, 
              PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.02], 
                 Scaled[0.05]}}, Ticks -> {
                Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
            192., -116.80842387373012`}, 
            ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], 
           InsetBox[
            GraphicsBox[{{{}, {{{}, {}, {
                  Hue[0.67, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJw1mHc8Vu8bx5/B85xHKCNknHOKZJYGSnRfiTRkZFb6kpVSlFAyI7QkJWRH
UkZRKaWSSqSBpiIaSinrsffv9u37+8vr/brOc9z3NT/Xme3svdGNxWAwTjIZ
jKm/c8qbbg17kbBpSVqasGg3Gs5/6xqxl4Qyo/53D2z56MLTbP9pviR4N9xU
uV7Rh7TArCvOn4SrLxfSgfcGUL1zQ51UAAmaTqxbne5DKOr2SoXkQBKUq9Je
VRwcQYlCUe/kQkg4JFAZu3BwDE24pE2khJFwjBU8x/z0BCpQCkqUjSDhrbJZ
534VBpQISmQnRpIgFEksPbyTCVsUzRUljpDQRftfrFvGAoIjKxtzjIRAySsm
X/TYIJe/6ahgDAnlPSXbEwQEID+m2ycolgT15mp9fpUAzLl6r6EnjoRm/bez
dSMEoSoj9a5bPAlGx3e1japyQCXajW5IIOHOQoNtR6s44KXRIbj2HAnxAxzH
JFMunJkQ8C5NIcHsYMvQx+tciJIP3KqcTkJ0k7Du514uaG6VfX06kwRZrwdt
0WIEONjl1Y9nkXC5YokwhTl7R9fm7TkktDEq5A0muCD1MG9PbS4JF+sCYrZ+
5UK3W7KkTh4JwkWxZltvc0FpWcCalAL8/3dmnKw6wYVmwUmRySsk8Nvl2dfs
uPA54rP7tmISpr06Yfx6FhfeOdZaP7xOwvYUudcS7zhwwvDgh9k3SYjjn8Fv
4IBEw4mB0FISbCouXTADDrx8d7Ww6Q4Jv4K/edb+EYRdnKOMpfdIeFq9qeH1
SUGoXV3WHVdOgsG8e95BmoLQmPAjtL2ChJnfxjaoPBaAJXKXrq58TEJY8uab
7+wE4LtS8qHEJyRUd+0eud7ChmFd68Hf1dge7Ntes50NE2Ke4ugZCUOzpEUP
t7JgT9GeN6deYP8/mG19eRMLFOz6VnypJcGQt3j3ZA0TdiaEW2m9IsFt1ld7
aV0mnLLMkQh5g/29+/giuQsMqHj8LazmHQkqfKVfyTwG6B9/mDrzAwnW3iK7
zn6eQLY5jzwcG0lYefeKY1HKOHIPcf+R+4mE7F9/XPdIjqE8/jzprhYSzgbb
CUxuGUWyNuFjS76SkKee8T2gexgp+XUkBrTi/Hufvcfg2BByudDcfvcHCV9C
1T8Uiw0h7bvVAxM/cb6t8Xh2O34A2SvK30O/SdjiqHTju0M/cny9GoV2kPDK
25H7clY/0vjnRsi9LhKWqWy72NHSizb0vgga6SHheeia8mCFXrTRbURPp48E
nTPeN28v7EWiC9Lv7Bkg4YyC3KEDW/mo7oDc+OUhEo7vnVCWnMNHRxVesb+O
kCDXPyOmM5OPvl+l6mTGSZgQNT60QoyPrEMdXcwmSfAUnfG83oWPeGnt98OZ
FET5ZG2NjOej9s/SrSVsCsaaL6JR/Lx35/I3bYIUJEV9UXSu4SP/ZZdPyRAU
SGewnPQjetGMaUWya4Qo8E1asODB/V60OCp9n78wBYubwmqnZ/eiXQUPUrNF
KYgsjqS5Ob0o1NkpsXYGBdoluwoXnO5Fo76VriPiFDxpKjkcZNGHHqRqc5Rm
UjB9WsnFgKpeFBzRF2QqTUFFYVlA3qNeJFe9qmbfLAoOTFNSCTnRh1TYLl3n
5CgoKGxw9DfvQ0rPYjvuK1Bw+a7ClxtOfehDqeCTrxQFZvVxDhOP+tBpz4kA
wTkUuNpXyp2r6kPWMcVC85QoWPJ+x4Ucnz7Ee28dYKJMgcNmkaOBGv0oTVK+
yl2FglyHL1vnO/cjSdVl/YfVqL/1ge2nxZsEsjTw+51n2C+70Y/sOxcN3ptP
wVT5fXjaj+6N7XjRoEXBuUM1Q4Pn+pFETv4R/iIKrs33ymbqD6DjAbTaNG0K
+IEpE39MBhB7ede1OboUzFA8bCKHualJX2nZMgpWLau/YrhuAF07ohFqtpyC
2w/LHB7vH0CzsloeOxtQUMrMoFYfGUBra/wG/BAFWqYXhVbnDKDKb8Izj6z8
//0HUM/MitnnVlEQM3W8zwOooK5A4bIxBTbNJ/ds7h5AtbU/eaUmFAQsf7ij
YtogukmeaKtcS/3NJ3oQXZUruPVqPQVT7fyH6iDyCnQIbN5AwajD7sqJRYNo
t+nVxb/MKVi/KWrpO+NBZDpy4wvfkoLk+HCvBTsG0RzLoKhRKwqmjjfXbxDV
hIkrsm0p4H2pfyLmOYhU6YhSnj3+vf8uga/Y7qTVYDJ9M7ZbWD17d3AQTaNl
X0k44Pv+qg25cGQQOb40t5f+h4IOkfta5/IGkd3JkMZZThScuB++xKV+ED1V
zXOQc6bgef23QZ3xQXSw9U2TnCsFK9W1XP3Uh5B66KSDnDsF1cLWT8rNh1CK
nmrzLA8Kfp9K+cIJwvPqo/k26Z0UeI1cp1SzhlD8Je82iV0U1N6LXn+ybAiZ
7Y/YO92L+tuvPgyhyQuHGUJ7KLCISfQSZw+jBNLzLNsH18er0SfvyWEU5Ky5
cGwfPo9x0Dx3g2HkHvHgTa8fBQuJAvnNrsOIUpc51L6fAvOtwxq1EcNoQ5qy
7ucACjKKHrNrLg4j9TtNg28CKfA3J6V2vhhGiKn2uDqYgp8VnzaVdQwj4fix
1LJQCmSjYo+oio2gW0tXRhQeoiD80ijjgs4IKnT4tj89Aj8fPpKwbOsIMpB+
EXgykoJ/wxE+gjQ12mKDoykwSLHJyC8cQetFZ5V4HsX1POyOJ8gI6v+y5o/9
cdwvbO7GBbSOoNTQLTrGMRS8ufX81zWZUWTkvyReKxbnl8pUREZRv8hNjlwc
BddfxPzirR9FS9ZVnBQ4g/Pn3wuMIo8/2pod8RRMlaNJyCgy9Od/fZNAwTJj
E5/h2FFEarwpKkvC+Wf6qFuseBRtlb6VeD4Z96NPZ6IjP46iUsI/KSqVgg0z
T6xrFxhDccnt13emU+Bz7GQrnxpDeos72jdk4vc5a64QhDGEuDYrtLIoIIcj
DrX9M4Yy5YauiF2gQN4x0H1t2BgSXpNvwM+h4KG0spVg9hiSWmb4uz4X14P9
Je0XZWPIzSe2tOgyBc96P3cWfBpDLRauF0/mU3DKc1Xl0skxVCMcV+JZSIG3
2sZtu2aPI35Z6w+TqxQc7vb4dkR7HFVYaS5XLKYg+MpN59BN48g2X/f6+DUK
wt5MCZxxlBBca/7+BgVuVle65yeOo+We5WJFNynYvSzxa961cdQ4VjccXUqB
8JnL4ZZPx9HvC88JxzsUTKwRm2XbM47uVQTgGYT7VUCVqp74BArJSE8Xuk9B
59yYej21CTTvIGNeSznuD+IffeYbTyCfUJcP1yoouBPRcM5w+wSqrDt2M/IR
Ba+1goxMj04gucil5XaV+LxxdQn7Lk+gH3mafSpV+P0Jhf3GDydQ/1o12+Fq
7L9iqQwWnq9r3Tq+V9dQUFYaw+mWmkQdY0suJD6noD+1736P9iSqm34/zu0l
BeMfYiXjtk2iY2lGVxfV4fh0xou+C51EWpcixifqqb/66/IkktHRDq55TUHa
6s1q3lWTKNFKfMHZtxQEva057Ng+iZ5KvpZwfI/9W3bdv1GQASaJ8zVUPuD5
0fny425pBrSwGw90f6SgxLzKhaPGgNWnYkZuNVEwf98dDWUdBjwPGykOacbz
7FY9o9mQAYJqbzOMPmN7pY1biw0D9vJrH/O+4nyaGq9ODJhrnTr75TcKqKmA
eTHAtbn9Ztx3HA/9QXJ+AAOMdT0jrdso2HnX94zMYQasUXgeI/WLgm9VSWUJ
pxjQ4VFW976dgvZrSQ1Bqdgu+sMs6Q8F90a/3duZw4BYcoiw76RA49YNWfFb
DMh7mjop1f1/fzPglmPI4rc9FKzo6H7v+oIBpzauzjndS8Gc8QG/z00MsNBN
szHvp0Bqw/Z5Ed8YUF+lZjxt8L959ocBiq1nfZ8MUaB70v64OZMJwvGHW8NG
8Lz3nrtch8WEACL1rN4YBcT+7R03pzHhT2rYkd5xCvTsJ9u0KCYMNLy9lz+J
+/OZjXUdc5nwbCmVUsyg4SsTZ6wWE2znzh8+waShVVLh6XfEBA19j+HtLBq6
F8+XJ9YyYWGmQqohm4aUp7qNTfZMeC6S/kVegP6rz5yYcLZxac0A5lVt2v5H
sb5njOrb1gnS0KtfutxzPxNEh4ciL3NosLynXWQTzoTeiTubwrn0f3qWCeWv
6uo3EzQcmX/J+9wZJhAN0Z2LeDSMVzzY13WeCSdmaBYJCdEwB3drdiETPsqL
SH/FvDK52EOvjAl8fV/F29NouGV8TmTRUyb8tLjyNlaYBs9bWz2uvGZC5AfO
fHcRGpYOPXTN+8yEtqFqDX1RGnTyV9ht6WGC/D70Smw6DfM836xaMsKEh1du
kG2Y09unBgoLzpf4iN+dQUMlXeTjIcYCE+1HhafEaLgyJV9IFqSFdnW7itPQ
fvaa8F4NFoQfh6alEjS83jAlMFiwrX/CW1iShvjoyM2v9VnwZNKnoAWzU3W7
be1aFvDPtMZdm0lDKW7HSfYs2GWYQkdK0XBYxPxqvBsLklY129tJ03BUNc5o
gQsL4ECfnqoMDZq1EbiCWKC+U6lqBHNz0W5L9wgWXDS9Mf5sFg37GyN/6MWw
QGL8V3OqLP1XL8ezwJc9zXO3HA1aDSKNUjksGD7tkGUgTwPn0NlVxwtYEHVM
MVJEgYbUXL1W91IWGPhdkPiEedcf8bdbHrFA8LiiWQFJA72aiNV5yQLJ4tYl
gRQNtZ74gUYWeB1Ur15L4/Mfamt+9B3vByrLCZnZON4aUwqEBZb5tv3fMcu/
lkg4wGBDZtaD2Otz/osfjw0vt5a9D1OkwSXxUrOsDBsuNh15sUGJ/jtPldlQ
X7tzr+xcGn65ST7T1GSD9bmsRz8wK+xfx/2N2CCyYe/ja8o0/DveV7FBvVja
N2QeDWV1Drlxtmy4tuLdq7Uq+DzbZnq7/sOGrtkdnyVV8fnNOCZPPdnA10tN
b8EcNyUnQtjAIxWF89Rw/qz7J80ljA06khWqvuo0wId49bvH8fnkSgYNNGh4
u4W9ZW4SG1R/GvhzNXG8N2DFl8qGrG/ncuowb1i38lbiDTaEzOdGnZuPnz9b
y9cvZYNa5iNp5wU0dDQQj3/fwfYq4S1qWjgfp9bnGvz/flMWfMxVHgo2G+rY
4CCkN3h7IQ1T46DyLRvuNyVaHFpEg/1UQXeywfa1n8OaxTTctprqAGwol5kh
N30Jjr/i7bHoPjakxGWdeIt57sFZlT7TBEDwk0dxijaOv8nT/H3CAjBinX50
mw4NIXrkYotZAvBYNGTmPF0aMj87G4soC4BLo6HNH8zyQdsW2WgJwKDJvLXF
S3G9U3hDMhEAtXS3Hr9lNEyt+2p+AhDfqmump0f/3RfqBECx5b3jBGYpiZRY
z1WCED49VPnhclxfT8dFjSsEIazEPStSH/tX5kCngTwHdtdWvV5jQMOx/Jr7
6uEcOCLbeGfaCvrv/pTFAXuJD3YvMbd+tFj40pED0gPDeacQrr8Lkr6Bazkg
Uu53YyPgfO2yUZcI4UCv2mFfyZU0pN3hb0qP5oDNLYffbzH/2872cqAjS2dW
oiEN5U66u7bEc4DoXDNht4qGqfbWXsiBT5trkmWMcD/0idx/u5oDXbt7Ohsw
W9utwBKDA9u9+kaSjGmYGq9OYxzwceeV26+mYcZB3HGkuZCi6L5cxoSGvQXH
Gz2AC8q6sOc9Zg+HpTNOG3Nhx8DzrQlraDCyzDRvXcuFeYErBWzW0n/1kSMX
vme/cpFYR4OfvnvmohAurJUsCarHjKuhMOow/r22gnnsehoqlimuC4zggooO
ajQ1pWFqfRNP5kL0NPPZQhvwffRiblinc4GxN2x2FeYLVvgC17nw7ienKcIM
z4fnV38wKriw6+5MSzCnwfyX03jGIy4kjbWEjWHWXvkmmPGKC/2HkjxLLWjg
r6x1f9vGBd2OvWK+lri/uPrlt7VyISg33WfBRhoMV00KSP/mQupXi9h2zIGe
TvkC0wgIOXdne44VDefPh4Yfn0nAtlMiY47W+PnZLNHzQgQstgk0lbXB/e7s
LcVUKQKakPamN5iXbjfa4a1FwAmfXXNO2tKAm+URFwUChD5aXjKxo/9+v6AI
YM2X+s2wp8FiT3EWx4oAy55f7bcx+52REbA1I8DCZzzXZxMNKlMLgSoBis/C
5qhvpmFK3kwuI2DiS/bmb5hZeF0jzAkI2JFgkbIF+9eWJxW9mIC6z9ECVg40
fHz6WSVAm4Al8bn+QltpUA3wO8ncRMCMNKXcCszEj589gVsIsPmqmXDgH9wf
X4dLBxsTcFeGv2qBIw0/d6oPJG4lQOpRRtF3zLuxmurZSMDxRW5NKU44f/C2
Wq1DQFvUnirLbTRE4G3JF3PTla69XGecr25miZVGBJh4zGi6izlvlVeUHPbP
QWBwfFxwPUUP81kaBATG/+lSdv3P/+sJ2BDHSm7E7JhkihU5AQuWeAuccqPh
u1GZkCoi4Os6xwVG7jRMjU8nawI6903KDmFe8GCFnp8bAS1kUFX+dhoKLlUs
EXYk4OgJprajBw2CI0bpSvg+prVlLuI7aHjTk3So5gABG5+9s6rEHHrXrtAU
c61OiOCBnbgew5QfRm0nwCj50wE1TxqM1U5oCgQQcM+CvtKE+WnRMd1Fsdif
R/bmnNyF+xNjY8pSbJdbOfYP7Kbh+j/C340CCeBY/P7Yg/nf73FZ+P4OO2Zl
e9GQZIkVWjL235dMWWtvGt7J00nZ0QSULbjbLLCHhgDmQP3lfAIyd3x3K8H8
V89he/TqIre9NPCOUS6d+PffbHn3Z/rgfiEe8aDmPPbPAbvYSsyqz2ZU3Skl
IM91s5LfPpwfk7bXXLIJSHBfHqzki/0p1OUjlkFARqZi8mvMU2rtRQkByUL6
geF+NHjt0FbqLCbAy6eQXuhPQ09aUr/zJZyfQZnHWjCnv6oYQVUEDGcZ3I7Z
T8MewmbnwAMCvugWFiw/gP1tOchcU0iAv4u02y/MgYNVgW9rCLCae+FrQgAN
+pI4Is0EHLAOnGt0kAa1J8MpFtUEhGY81uzBXLk0VEKonoD3J3JH0wJxPLD8
L2kjoP/g+th1QTTsjC5X9nxDQEzm+58DmDO+B+zZ/47Ae/g+IjsY59do3JxF
fwjwzTXqNAuhof6KYY15OwErF+5LHsFs6PS9bk4jzp9Vc0UuhtJwOdrDl9tD
QNjGQ6stw2hIELh02e03AfsvF64ew/yyquS8cxMBk151IrmHsP7gDWdu7yVA
OXt6qmU4DbqPRIbGunG903E9o5hV6+bxlX7h/Eg+KHoxgoZF7LM9Xfj5mZk9
fPPDNBRGPTZImMD+T5HLGMYcbZHjPr2PAOF6BYnsSBqmpt0kttc4KpibRuH6
NJEzKRDkQaghsuqP+k8fTxJgaH6JSo+mgTu1cAnz4LFu8I3VR2hQ1w7MnCnD
g8ijX8W6MD8Ht7FRbGdcGdNNPIr1dNZV+gW2N7d3KaNjNIwGWMUJKfKAdv7c
/APzlLxiy/Fgozjf8eRxGt5HHcMTjgel79bkaZ/A8yspu6pLkweB24n7TZhT
H2NBqsKDhk3WKRExNEy1M1FsN6UtDNVO4n5cZOGZrMuDSiHqeh1mvavF660X
8KB6dWuHfyyO18DBwarlPMhpeciXP4XzA4+TCQMeZNz/VPEQ87+fM7B9Vr7d
Fo84GoKmPnet40HFOqtykdO43lTtDiSu58H92b0d1zBHLy5PZhvx4MPpTW12
Z3D/7++9OMeGB7ktl/LHzvw3T63xfVTYy8/HY7285YfvJlMe3Nt97KzxWTwP
N2MPOfHgWoxT2S/MW3PjEmq28EDUJLcgJoGGxMrHP75t5sH/AFortqo=
                   "]]}, {
                  Hue[0.9060679774997897, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJw1mHk8VV8Xxu/EvYgSReScIxJSVKRMe5EMpcw0iCIqSuZMIUKDsUSZEpVC
RaVUhlRKVCgNSpGKInHNs3fr1/vX/Xw/90x7rbWf9awt7XjQwplBo9Hi6DTa
zO+iiua7o+4ELGDZCC27yUWj+W93R3gS8GdxbIOGYj+6+DzHT8CHgK/rHXRT
VwwiFdjck+hHQOFU3a5yrWHU4Pihfn4AAS5ZK6cOG4yiqHu6UqlBBAhbLjpu
bzCOUvij3kmGEJBr93XHcsdJNOWUMZUWRkCGEwwFHppGBbLBKRIRBKgV77+m
/JoGxTwiOSmRBGQGzU5ZOEyH7TKmMiLHCBi89/HE5A8GcHglJGJPENAn+yv1
+TATJPO3HueJJWDNnFM8Jq0syI/t9QqOJ4A/jDtL4j4PLLpR9oGbSMDjIwlK
O8N54dn59FLnJALESn8uNVrFBvloZ+pDMgG2O6s7berY4K7UzWN8Dr9fwcfe
yZYDp6dYB0vSCMi/2XOitYIDUQuDdshlEhDi01mzZ5QDy3ZIvDmVRUD2jsik
86J8YGeb1zCZTUBi32nX80J8kLOvZ9ueSwTsu1oq9XWAA/Mf5XnU5RLQXitQ
GP+KA73OqaKr8wjY9qBbzzuDA7JrA4zSCghwfqQ82O/CgS8804LT1wkwjG/5
NLCEA60RrS67igiYr3Y26us3NrxzqLN6dIsA0xeBK5JOsyFGL7BJ+g4B7g87
ooX12CDyIWYotISAHfNF0uK7eOHVuxvXmu8T0MR50jUWyQv7eY/T1pQRoMDz
2f61OC/UGTzoTawg4KyqQdeVPB74lNwe2llJQKx8t2C5Cg+oSl65ofsEv+/U
9XPBt1jwQzb1SMpTHO+M9x8WK7JgVN1quKuagLd1aSeszjJhSthtLqolIEtC
+bMsLxM8Cj0aE14S0JDsrXDdlQFStgM6X+v+xesVHVyTwy1VXuN8yE1YIGU6
JJhfEglpJOBcZuET5gkaVD75FlbzjoBfOHvzX04jrZOP0uc14fhKWW+a4zuF
bC493uvwCT/fNsFFSWISuYS4tOd+JsDgnODK59XjKK9viVhPCwEjHs89c33G
kIR1+IRqGwFXRer1P/SOIFnf7pSA7wSsld91udthGDld/NJZ2k7A4lM/nUVr
h5BaafXQ1E8ClLhhNxVsB9EWmYVlqIuAKOvSxIDv/cjhjQEK7Sagt+LM7w+c
fqRkfzukrIcAE0/rpkNVfWhT/8vgMS4Buo2HaRZpXGThPKaxeoAAuqtr07aW
XiSknHnfY4iAzQL2A/Mu9qJ6f8nJqyMEhK8NnPgix0XHpV4z28YIICSP+O+o
6EU/bpD14pOYv95uXe/Qi6xCHZw2TxMw76rKnTm7exFfRmd5OJ2EuY9yYmXe
9aLOVrHvxUwStuvp/GxS4qKDfzQbO3hI2OW5pj//Xi/yW3s1QZxDwheyx3rp
6V40R6BQwoifhMqaC+vv9PeiVVGZ3n6zSNh9KvFWYS4X7S94mJ4jRILmd5cS
OslFoY47U+rm/LtfhIvGfap2j80lId7SRzZlmosepqvxys4j4cB0zYbTr7no
cMRAsIkYCXxfG54Ku3GRZPW6Gu8FJFR5bcyX9uQieaZTzzlJEhL1lXO2uPch
2dr47nIpEujidVkXQvtQUwnP0zaSBOEFNlyDdi465TYVwLOIhIpwVaeGAS6y
ii3iXyJLwoqi0ZLVjX2I771VgKEcCb6MVI5kZh/KEF34zEWehLc1Rx069/Qh
UYW1g0cVSSiY9j6rrNyPTs1tZmUrkbA4cEGVV20f2vJn5XDZchLyjCKLIrP6
UNnEvpcfVEjQGiaWr3XvRyKX8o/1rcTP91u5ZoN9PzoZQCkKqJGgL9Z498Wv
PsTU7Lm5SJ2E236fItvv96PmZi3ZtWtJsEzkdxKo7Ec3jymFbtYk4ZHJp4qb
Fv1oQXbLE0dtEoZChfp/8Awg4xrfIV9EwuW3CSXPXvejqm+z5h3TJaHJwc+U
SO5H3HmV0ufWkdChEXvbyn4AFdQXSF1dT0KAbxy9qasf1dX95CsxJGG+66b+
uDf96A4R01FlTMJGraz9NWcG0A3JgruvN5IQjuWSoT6A3IPsgr5sIuHavi+e
J4QG0AGTG6t+meLrq9naaW8HkMnY7a995iT8LH263LxsAC0yD44atyRBh+eh
P2/sAKoJmyvDtCFBaN63iU3yg0iBiijh20KCa+XJ8nDVQbRT5YPh7G0knBt0
lF+ybRAJUBKvRexIWP2Dv8crcRA5vDLdImZPgnnEPnGd7EFkGxfyacFOEtyW
DqV8FhlCzxXy7CQdSRjdjAVQdAgFfm9sltxNQtSad1UHVIfQ0tBpO0kXEgJX
5+vYbh9CaRoKXxbsJUGaHNhvc3gIRX003SXmSkKIBrHK7NwQSrpysENkPwm0
mD319RVDaPOhCM/Z7iQcObPu5P6OITR98SiN3wOvV8XBPmxyCCUTbmeYXjge
py3quxcPo2DHZSsmvHH9Wju3zNMdRi4RDxv7fUlQfyw4MqEyjMil4kc6D5Hw
NJcmXkcNo00ZcuqtASRcGFnRfv3SMFp6v3m4MYgEScWno2lmwwjRFZ9UHybh
4XZKl+s0jGYlTaQ/CCXB7LvxazWREXR3jW7EtSMkrD+ik7jk+TC6ZvftUGYE
CeXRG+M08fO0xV4GxUXi/Y3VbOu+EbRMqSP+cDRef7Uu36oDI2ij0IJit+Mk
GGrr52hyRtDgV6PfW06SgLtfyhX7EZQeun31+lgSsgPdduazRpG+n2qSSjwJ
bE77T24Qvl7wDq9k4v/zNYJUN1TGsU6TYKtT29/qPor2/lZb1p1Egmi34sUJ
2VGk59fX1phMQtn4tzLXHyOIUGosfHCWhIix5LU7kkfRDrG7KRdSSThzVyZ9
fukoKuH4nY1K/8daoygxtfOWayYJNoev33EMHUUaq7o7N2WRIC6t9XGN4xhC
bGsdlWy8f6tmAjyKsiRHrgtfJIHF8h4YKRtFs4zytfsukVByg9kRc2UMzV+r
19WQS0Ij9+yRGv8x5OwVX1J4lYRirKa6EmOoxWz35bh8EjIMtikefDaGamYl
Frtdw/r5pvSbqNQ46nvwvd3wBq5nLN8OF8dQpeUyTZkirG8JxgavHo0hm3z1
W5M3sf4E65scvziOkg/Xmb6/TYJDkItxmMQ40nSrEC68g9eDy6Vyegx9mqgf
jS7B+ydZx0d3chx1XXzBcbhPglODj9/KknFUVhmAexAJ7mKpXaoW4yjkfGYm
fznWnxkDhq9fEkhb0lKB96vy3I9eyyeQV6hT081KXF/vVHvWVI2jqvoTdyIf
k6Asxs04OziOJCPXVNhWkXDatkM8oWwCtectG5B/RkKuz4zDm0CDxoo2o9Uk
7Ny6z4JfYwIZO3f/qK4hQcx5dbWszCTqnlC9mPIC70dcHScfT6D62eWJzq9w
fbaszK1tm0AnMvRvrKwnIXiJS5n4hkmkciVicqqBhJnuEKIwicRXqx2ueUPC
ZOlVo8gVkyjFcq7ymbckdHkXzxvfOImei74RcXiP6wVH+7nzJDJMWa4k30SC
0t3bEnMPTaIW5if/3o8k+AvIyofETCKDhNixu80kqM0ihS2zJ9GLsLGikC94
v25arxhzbRLxKL49r99KQmE7rXJh2STy7Kt7wtdGAnaT6p+aJ9Fiq3TpV99I
iH6inawzMIl2f+m8k/iDhNjAYwaH5kyh9epukVYdJKy9Xe1XTk4hI6kXsfN/
kbA3gGjOUJtC3Xsf1L/vxPk0GjUuNsX/C7VvPvubhKC/BT+F4okRzpY/WC9e
Ent5oqZQ3vP06fm9JOzfntREnZ5Cdx1CVr3lYr3+JbeCUzCFEiwMLp3qx/01
L5XqLJ9CZuoZ1qaDJHxatZHR2DiFGp4prhcYJoFf2INj3TmFZL6f8Xk6QsJv
sd9RBwSmsV4c/R42RgJPVIH74MJpFMBJP6MxQcKDkEr3D6un0e/0sGP9k//6
28ZpNPThbVn+NAmlPqfFWTbTqHYNmVZEo/7rH27TyGbx8tEYOgU8YktdVWKn
kZLW3tE9DMzun19aZkyjFVlS6XpMCubFbOhk3Z5GLwQzvy5kUTCj/voPp9GZ
T2tqhjBLd+rQrmL/RhvXsqnnof75p2kkNDoSeZWX+ucXplH/1P2t4WwKdA/X
pi8XoEHF6/qGbRwKZtI/LE4DzofoPyv5KJhRxxdSNIiZs6yQn58CAQV0dUiB
Bh8XCoq1YV55aJk0qUqDPi0fmXsC1D99psFPs+tv42dREHYXwtsMaRDZxLvc
RZCCK1JTqQXmNOgYqVbSEqLgdmGu1NQ2Giz0Rq+FZ1Ow4FpOHp8jDR5dv010
YP7rr91ocKHYa27pHApUZgy7Dw0M1R5fSxCmYPviLQtfBdMgI7Snd/dcCpwn
xmMEomkQfhKa14hQEIO7oVMiDXYNTh2cJUoBVgvZwHM0eDrtVdCC+Wug6HXD
C/j7T39PvDmPAtaMQb1Gg/16aVTkfAoig+tvbS2mwdl1X7bYilFA5P40Wl5B
A/Af0FAQx+vfZmgt8oQGS11ln41hbjGNTXHH89Zlk9uTtQso2Hur07v4LQ1E
Jn99SZegYMY+fm+lgQ9TwO2AJAXsolWRr7poMHrKLlt7IQVN2gFbrgzSIOqE
TKSgFM7/lavObpM00Pa9KPIZc7vPVpP9UzTgOSmzuYCgoOGnkOMefjqIFn1X
DSIpsCghIruE6eAeuLTamKLAP/CS0rqFdPCQ1+SIS1Mw1t31cK0MHczzbQZ/
YGZJb33IWk6HrOyH8bcWUbD5zyF5flU6vNrx4H2YDAV8Zpa17zTocLn52MtN
shTMdeMq0Azo0FDn6imxGMc/GE+EJnSwOpf9uB0z/piM91voILjJ88lNOQr+
bjc7OiwtEvMJWULB982/dk460OGmzrvXxvIUOBgUNb92pUOPdHerqAIF2L1p
xPrQoU8jPbMF8/Mf6GJLCB34CJlZeYoUvLsSvdcnmg6rRSsVfJZScKu43Gjv
Sfx9ksXD2kr/zzcdFH5q+7GX4fgjC/2oM3TI/nbuUj3mVWYLpnVy6BCynB11
bjkFettfXSrJo4Ni1mMxR2UKDh5hVcUX4f+fzdquqELBa7XTB+/cw+/rIs36
MGv3sZl1ZXSw49cYvreCghG3mwbaT+hQ3pxidmQlrt8Zu9xAB5s3vnZGqygQ
Jg4sLHpHhwrxOZKzVXE850evqvhIh7TE7Ji3mPfLtez3/kYHns97i9LUKAiR
WrNH/xcdxqwyj+9aTUGSypuhG7/p8EQoZN4SdQrOPUhOmD1GB6dPeta/Matf
XqLEpTFg2HCJcdEaCsK9DZKGeBmgmOnM9V1LAW4me3bNZkDSd/XNGhoUXCqr
FJMTYYBMy3uHKcy6RvNVjkgyIHx2qNwjTQqy0/faSi9mQFixS3akFgXIdntR
hRIDDtQ9e2OkjeOZ2B2M1BhwTOLTfQEdClLwuKmoyYAtIk22rzCb4vSeX8cA
saHRvASEv+fkPLWzBgwQrPC9bQEUPBs4upgwY0C/4lEfUV0K/h4X2DDA+q5d
11vMW7zDdsbZM6A7e/WCFD0Klv3eF13hwgDOH6Mp23UUyHl0uWfi+fbztppU
cX0KsHkcv+rJgJ4D3D8fMN/fLLPszCEG7HEfGDu7nvpvXg9ngJcLX8UWAwrS
2qVyfx5jQJqMi6a4IQXk/axy5zgGyKmDx3vMI4925+1MYsC+oRc7ko0omDk+
mZvKgCVBuixrYwqu735mQGUy4EfOayeRDbg+NHADyWOAsWhxcAPmavueKf8b
+H41KdP4jVj/dsYRFXcZIL8afTIxoWDXcXbSpnsMiBYwlebfREH5ptAhmSoG
0DzDpJ9hdvZIKtV4xoB3P3mbIzZjfRI4fTW8gQH7S+eZgykFf8fnJgacnWgJ
m8AsKdi6LKGVAYNHzrqVmGGeGSB7GaDe7SnsY05Bbq2jYz+XAcG5mV7KFng9
lwOeKYwxIL3NLL4T88zxx55pBoScu7/nkiWO72ryfRQ/E3YlCE44WFGQ5+x2
OHEOE1ZZB5lIWFPQ2v+Y81WYCc1IbWsj5g935G/pyjEhxmv/ojgbvN5Guc1/
1JnA/9H8iqEtBaPDC8SE9JnAWD6/i7aFAks766Ed5kww5/7qvIc5MG+de9R2
Jph5TeZ6bcX5n7FL9kyQqQ1btHQbBTWX7b7ucGfC1Necbd8w347LkzsWyISA
fclmadspWKHnf9vzKBPqW6NZlnb4/UubioSPMUE1KdePfwfeb7k8ymMnmDAn
Qza3EvNx3Z0/6rOZYN22LNnf/p8e5jChVLxvnbID3n80i7Q195gw//H5wh+Y
9840+GImnFzp3Jy2k4KzYwGWiTVM6IjyeGa+iwLPmQTU43hc7/FkO+L6mvpt
eKKaCYZ75zSXYj6wNqUtr48JgUDj9XKi4FC/VXTzCyYEJf3ukdtNgYSY0NHd
dBZsSmSkfsI8tbP13nAvE5RVD7ISnCnY9veAjgltGxyU9V0o8CVxhIVY8Md7
WmIEc/1bm9/K40xoIYKf5e+hIMLcOCNMjgXHY+hqDnspyLRXqJ3DZoFJ3QOn
ufuwf/AJMnZSZYFF7TvLKsyZZ2cGRBbUrQ7h8XelgMG9H1K5nAX6qZ/9Fd0o
EDK9keRsxIIyM+p6M+Y2urPldRUWzDnmeSluPwVlB4O7zzmzQFJ3wh4O4HoR
urfAHVjAa9b1kYt5q/s+NVl3FgTa7VuQ405BHJRed/BgQcfXLAmrgxS44PKq
T2bBA+XSLyyPf/UhzANZ+344F2PetEH3booPDzyINih09qSgxFfd1JfDC99s
+MrneVHQbMD0F9jNC23+tvFVmPs9D1wR7+CFvN3bZH29cb+JyHyZN5sNyS6a
h2V98Pe/uIEdKi+cz5JJfYP5rx+/wAup/FpB4b4UyHwaDXEN5gV3r2vUCj8K
ujO1lBpTecEsOOtEC2b798ofBNN4YTRb+17sIQrWtREbyfu88FX9WoGmPwUz
7XDWR17wcxJz/oW5a3phe60AGywXX2xLDqAARHY9frOUDf5WQYv1A3F/Kzyh
vtKUDaHnnyzjYsbRXEx3ZcP7mNzxjCDcb/jf53gcZsNg4Mb4DcEUdBzUk2bE
sSE26/3PIcwqgo8NnySxoXqWNyfnMN7fVl/iPFLZ4JOr/2dzCAWdfBu1sgrY
oLvCO3UM86lb2HCVs+HPusWCl0MpeOXB1EEv2BBmccTAPAz7nTvpGz3fsuHQ
1WsGE5j/Hl92s2HavV4w9wj133wwzAa5nNnp5uE4vllHz92ZZgM/lcgdx1z4
XGJwjiAH5qQGCl2OwHoVEnPPjY8D87K4faZH8X7rY/zOEeHA+TTJ86OYG+xy
E5P5OTCrQUokJxLX254QNTaHAzUOUqYmURTMjDc1+P5QPWQ5iFlrRVeVmRAH
9EyvkJnR2D+9UQnWn8WBJ+qHbxsco6DoCbPm8kIORB5vE+7B/FImVKUXM+36
hHrKceq/+ZvgwJfOHjl0AufHps64R5IDlGPrl3bMKwvaYl/IcMBibp9D3EkK
1GT/FA1Ic6DknVGeWgwFj8TkLHnw/0F7OOXNmB03yDbUynPgw1artIhYCs4X
4g+Q44AJZaanGEfB3+VgruInb9XH/evnShyoNvje7Rf/z/8t5cCllkd9CxMo
OKFlfN9lJY5P+efKR5j/O9/gwIJ82+17E3G+sFv5rcmByg2WFYKn/tWHNgfK
pfu7b2L+e96ly4GmU1s7bE9jvZgZYHU4kNtyJX8C83/zIl6PPFPzQhKOv8/M
gRoHyg6cOLP+DK6f46fHpTDfjN354NeZ/+s1B4QMcwtikymY/+XHonJLDvwP
vBS+Ig==
                   "]]}, {
                  Hue[0.1421359549995791, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{0, Small, Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJxFmHlYTd/3x++te46kQSqldM5pIEUZIlQ+e0kqNCoVIlOJ0BzNJU2UBpoH
KWlERURCpjI2mEmRiNJ0m+ffDt/n91fP6+meffZee73fa60ju8dxsy0Pi8U6
zWaxpv7K3W24MXyEAgshlZK0rlY0XPBmX5AzBU+N8301qHZ04UmWxww3CpQt
jyWcGupES8CoK8aDgsaiw6Z2vD2obs/72tmeFGRvUPo5MKsXhdxcK5PsTcHR
E6+OS/j2owT+kLfSfhQoLuUrnLttEE3sTZtICaBAvU1W6vPaYVSo4JMgFURB
dJhSjM7iUVRKiGYlBFMwPuD+JVVkHG2XN5YXDaOg6cG8qrT6CcRHSklFnqTg
bGjwtldaLJAu2BpORFKQ8kMm5ycfGwoiu118oihofn7lB6uSDXJXKt73xFCw
jDeup8uVB6rOpd62PUvBJq2MQ0/FeWFBqC3zPp6CQyW6a3SyeOHIog5iQxIF
Ormbr06T4sCZCY5jWQoFvj+Pj8R7ciBkrveO+ekUTP7WO1ldxAGVHVKvYjMo
UOgs7jv/jAPWlvl145kUcLvUVOdWcyDrQNe2/dkUNCjJFE5e5cDs+/lONTn/
zhPLgW7bZDH1fAr4nvDMd3LggMJqT/2UQgqqlDRinyEONBKTgpOXKbjm/HCb
Dz8HvgR9sdtdTIHbtGK14Je88Namxvz+VQq2LFHOE43mhQhtrw+y1ykI23Ra
M3sdL4i+jxjwL6PgXMGl9zYDPPDy7ZVLDbco2Cxc91MokwcOkeGsVRUUBJxz
/gr6PFCjW94dc5eCvZ3btP/7yYZP8T/82yopcGYUZiQGsGG5dO6VtQ9xvGoW
TTcRZcN3heTAhMcUXDIYyvZLZ8HwSvPB9mp83lspORoKLJgQcZiFnlEw/FFt
E4/5JHIqcnod/YICD2Nq9kHDCSRj2fff1xoKevo2bg1ZNY4Oxh83W1JPQdwu
51W9C8dQtGm2qN9rCj5GicXsFh9FlQ+/BTx9S8HCxmot7rQRpHXqfqr4Bwr8
NCg1k6QhZJH9wN7mEwXJZ48fWfxrENn52f3I+YzzTatic/z5AZTPVZToasLx
H5raUD+S2nJ8bHkzBfOs5r4cO9iHFNw7Ejxb/t1fWC/ae6Gx7fYPCvIqlwvQ
Ily04nb1wMRPnM+DmmLESDeykp9bgdpxfKKyhXeYdCGbV7rIv4MCGRe1hoCa
TrRo5zW/ii4KdG3WJhfb/0aGvS98Rnpwvvgv6W7wbkebbUc01Pso4L/7uibl
ZDsSWpx+y2mAAjnj2MtJPm2o9pj0eN4Qfl+Fo09HUjsKl6nnbR6hIH7dqUOt
o+3o+xW6VnIcn/elEan3pB2Z+9vsNZqk4PHdmjInpgNNT2u7c5xNQ8f1GS/c
pTpR2xeJllJeGh4H88puvdeJHDs1X7cSNGwR1fk8jelCHqvzoiX5aMh//TvQ
YlcXmjmjSEqfnwYOx7VvqKILqYWku3oI0HB4dUJzfkkXOlR4LzVLiIbhoMDW
xgddyH/ProSamTQ4prdFp3ztQqNuj/aNzKIhC85Vn1HoRvdSV5AK4jS0rvAI
b1PpRr5BfT4GEjQQWbEabMNuJF297qnrHBoEpUYUy6y60QLevV1J0jQ8O7/+
eq9vN1J4FtVxR4YGyflm+JFu9KGMeNxM0/BxIi5ufnY3inWY8CTkaGjUeiO7
8kE3Mo8s5ldUoKF99S/fb+3daPo7c0+9+TRYr8ERHetGaWJzq+wW0HCzqj5U
dUEPElNa3X9CmQasPn991INiZzVwMhfRMGvpvNiftj3IqnPZYIUqDb/0VSdl
fXtQxdiBF++X0BDpFaZ7NLoHiWYXhHGX0XCh6Y5Q6tUedMqTUZ6xgoYy95XG
7tU9iFezq0RuJQ1y4Tt1ixt6UEODlsLq1TQsEJ5RenG4B5WELfI30qQh6n7/
AmthLpqT2fRwzxp83t8hh08t46INT90H3BEN87zmPHLZxEWPvgmIh62lYRnj
XTG6l4t6xCtlk9bRENPhg1bs5KLC2kKZvPU0fF772+C8KxfV1PycXqZHg5Dx
lbO2YVx0nYpofbSBhqp36VtnZXDRFenCG/WbaLjR+SNP6CYXHfG29m40pKFU
fPRZ5xMuOmxwRe2XMX4/GKpsb+cig5FrX7mmNJx6kGTzgt2L5Ex9QkbN8H59
iQOP5XrR04BZ8rwWNJS/ca0f1e1FSkxQ2XQrvP5UOh7oRbuWvNcT3kbD+LkH
Pp6BvWgGI1Uvak3D05WfGhLTe5HNS2MriZ00bHv/Ssj/RS+yPO33ac4uGiT0
TcYke3vRE6V8a+k9NLBDTbLthPuQV8vrBul9NDSN9+wsXdaHFvpPWkvb0ZDU
v2eB4rY+lKKh1DjHnv6r/+N9KOSj8W6JgzQsXv7uwIXsPnQ217FV9BANJ0+3
cOn6PmR0NMhZ+AgNCa5Kl5VH+9DkhRMsficaaoXlT+hJ96N4yiGO14UGG6Vn
M6s0+pHPHpWlY6403F14fPLSvn5kF3Tvda87De+7pwyuH9ELJQPbjtIgtbzP
2Km4HxmmzV/5xRPzqYtXz1T2o4W3GgZfe9MgMseiR/dHP0Js5YfVvvj/IVFh
SiIDSODsWGq5Pw1/7GPVALqxam3QpUAczx32l1/pD6BL1t+OpgfRILNqv84B
xwG0RuKF9+lgGhKX67bnHhxAKotao3xDaZjbPbz7hNMA2iQ0p9QhnIYDEW9N
35wYQP1f9X9bnaLhw8tBs2/ZAyjVf7v6+kga6leccbx+cwDpeCw/uySKBtEN
fctOfse/F7xOSsfQYNuy6PeBaYNo+cbK05wzNPy5juWDyP73CpWOszSkl35S
XW45iLQ9uM2v47He7x0jBX0HEbXodVF5Ig1MafiZ0bRBtEPiRsL5ZBrO77/a
5lo6iMr4PBJDUmng/1OwB1FMctvVg+k0/PB0Ovq2cxBpqHW0GWbQsH/RlAMO
ITRty39LMnG+GlftJZWHUIb00GWRC5jHFy403DiEBPQL1nCzsR7lU2ffth9C
s1drt9fl0OC6qUDWOWoI2bpElRXlYX2IfxszzB1CTSb7Lp4uoIF3+1SFGEJP
BWJKHS7RoJgRXvT11xDilrf80LtCQ1ur4XplgWFUaaaiKV9MA9+WgwOwcBhZ
FKy8Ol5CgyyP0PmNhsMo3rfG+N01Gko2mTsKHhpGmg53RYqu09AiTKZ7Rw2j
T2O1w6Fl2H8058ydd2UYtV94zmdzi4aKFUVbjj8aRhWVnrgG0ZDWd6entHUY
+Z1LT+e/Q/+rjyNI0Yul2HQXn48KbjddNYJc/Pd+KKmkYeptcbtG0KPak9eD
H9BwxMDYqjlwBEkHr7pr+YgGbBa3NkSMoB/5Kn0LqmhYrxyhwrk5gvo3KFsM
V9MQlqbktvPbCNpg2/G9+ikNpvh6r/GMoo6x5RcSntNA7rty1F9rFNUK34mx
fUlDxInrqZucR9HJNJ0ry2qxflbvmC2aMoqW5AaNT9Rhvd/O0w8uHkWS6it8
n76iwQN3e9kVoyjBbNbiuDc4Xz+fCQ3+OIqeiL0StXlHQ6GrQPXOrlGkl6C6
aMEH7A/hHuKbJ0ZRE++nY90faTjeXJVYPnsM6UZHjtxooOFP+VQbQ88DRor9
Gv/tf+8YIpTfnNP5QsP3MjMNK/8x5MyteTi9Gft/WNfDwoQxNM88VfblNxqK
oox2DBeOoX2NbddjvtNg4Lzlw9FHY2j9Sodg81Ya/rSzLWNIX+Z55OxfuL5p
4jf0jaEO+/Lad200bPrewZdDjCN9oR9Gib9pYD1Ws/9Jj6MoaojPqpOGjVOC
Uh9H+U9SJ2d34/hYrGumNo2jGzZ+am96aEgpNBWusx9H0Zt1s2N7aZjWPVvf
xGccmaxM22LcT4PRtYJo7plxVFelvH7GIK4fOvdkzfPGkXxLnNvjIRqCJKYM
eBz7xYmWgBGsHxEnvi1t48iTLzVOY4wGb4ddBZwZE+h3akBY7zgN8dNxAyI9
gQbev6komKThik2R9HWVCfRsFZ1SzGLgLbbvx5YTyGKe6nAEm/l7H44TaJGW
/fB+Hgb0Dze3+IVOoKUZMqnavAzoGIQreCVNoOeC6V/nchiIr+FqlZVPoLhP
q54OYPY28sIWPIFYo1oWtQQDs5cEbj/aO4GEhoeC80gGHharHsliT6LeiVtb
j09jID1xysAn0d362rptfMzf/gUmEd/70M5l0xlIC17T0W05iSJmqhTx8zP/
8m8SfZwrKNGMeWK+mNyX6EnE1XKTvzmDAbNnb0fkzk+inyaX30QJMDDqpmWX
UTKJgj+QqnaCDIROTFe1eD2JWoeqF2kJMf/6yUk01xXViwgzkNco9V6ZzYL7
l69RrZhXr9dzGRZmwflSl1m3ZzIgdSDvtowsC/RWPLgULcLAxi5pG+/5LEjz
7+reN4uBr3WPRRyWsuD4KWhYJcrAVHeoocmC3f0TjgJiDNyMJPGNs+DxpEth
E2a1YbsUaTMWcM+0xJSIM9D6uO/EvJ0sOKSdwgTPZmDPndusUXsWJK5rtLKU
YEDvRwySPMYCONanoSSJ4ztVvoNYsPCgQtUI5jUbbtlxI1lw0eDa+LM5DNQq
chV+JbNAdPxXY6oUjrfCDrXhiyxw453hcFiaAT9JWa2PZbi/j7XOXDOXgSm7
D73LgpCT8sGCMgxA5aOTUs9ZsMb9guhnzFhsCbmNLCBOyRsVUgz8HS9ZIFbc
stybZkDa4EG3SA8LjngtrN7AMPBdp5xfaZIFTgs0+SRlGXj6ZYGnuxAbTAss
+r9j1myxK2PTbMjIvBd1VY6BXufDuZKKbHi5o/xdgDwDyt+a9luvYsPFhrAX
hgoMTFXXTF021NUcdJaax0C03VSBYIN5UuaDH5hbNSKvme9kg6Ch88OS+Qzw
9NzyqzzChoXFEm5+igzcMpJXiTvKhpL/3tZvWMD87d/C2NAl2/FFTImBOVMG
FMsGrkZqehPmpMCnQ4NJbJhOyQvkKzOgFRQyMf0yG9TFKpXcFjKwe6rBuYn3
J106uGYRA4khX+X3PGWD0s81HtNUGJjWPjn3xwweyPyWlF2L+c7A81iWOw/4
qU4LSVLF53PUW6UyxAPKGQ8k9ixm4ELLm9XkPl7wqxLYrryEgcv967W343lQ
vZ024WL+ORD72F4Gz6P8GoM3lzLwZ7wd5YU7DQkmgcsYuLpTAIecFyxeuVvr
qzHgNVWAMN+VnCktvJyBxVlWRw7080JKTGbEG8ztrrgDnMEB4rN9ccoKBuyn
yrM4B0bM08N3q+P9hAkUHJPnwEMhP3HFlVhv60Y62oEDez9pb/mNmZpILjQ1
5sCgnuKG4lUMPAfbsVEDDiin2/a4r2agI2ke++BBDpxtWWmkocGAnHneB97D
HJBvemczgTk8cdaGPhcOHBf2n39fE+fzQcPe02c4EFBqlxmsxYBS/PZtgk84
cLim6pX+GuZv/9PFgTCpT7dm/If1Bvqzl7AJsBL9YPkS89S0JzSTAImB4fxo
hPNF/MKcU/MJELzrfm0zYP054YFXkoBe5RNuYmsZ+L24XFF4BgFbbli3v8E8
KTs+4M4Q0JGpPidBG+evX2gm0ATwdepPWK7D+ZNxx9ZIgoDP254mS+ow4D8V
oFUEdB3u6XyPedjouddScwL2H+kbSVzPQI+qRE+aFQEudtPvWukyUC/z8KWY
FwEp8naaknrM33rsScD8leD0DvMf+z9IwIGB5zvi9fH+w7WwoglQ9F7L2bKB
gdtXPT4FY/6eVb9XdCMDgbIF29fsJ2CDWKlPHea+Qxa+lz3w8ytkjKM2MWC0
Z6bVajcCFqijTwYG+H7W+yja+RIQOsNYlt+QgSd42uaNIoDlHCBbhfmEIB4g
sgl4+5NsCDJioPLI++sLrhJw6La4KRgz4Ft7dWv/TQISx5oCxjCrrJvb3nyd
gP7ARIcyE+x3C5fscy8gYGWHs4ibKY5Po/mF+4kE+OSkuyzejP3OZM7kf1kE
pDabRLVhHqkl+lXw+n5Jt/ZnmzH/6h0Bu6MFx2zMGXiQ7jHkUEKA2hZvA6kt
DGzefUi2upKABrRi62vMf+ctAiJcDsmdtmAgIVrYS72dAP6Pprl6lgzkyuAE
rSOAR3V2O8uKAZGm8K2LHxNg2vOr7SbmC+rOLncfEGDiMp7jspUB0ZQoh3WP
CJB/FiC3cBsDTng6n4ffN/E1a9s3zJH+55y/3iPA80C8Scp2HN+6GOsJ/Hzt
l1COmTUD1Ynl8dE1BCw/m+PBvwPXsxyWZM0XAmamKeRUYv7TPnThfGtWiT+2
kwH1gv8st/cQcFuSu26xDQPl3K3p0wYJmP3gXNF3zCFPzCtzWwg4tcy2IWXX
P309J6A1xKnKdDcDZz8wZyLw+RsudzlP28MAd22N3ZtWAvTsZzbcxnxGkmMh
1EGAF7BIl70MLA9+6fB7FgneZ393zd/HwL2pzwkKJBjG8CR/wrykv/einDiJ
5yZHTrQt5il59BPQvNFmsY7d/6/X6TopNYR5y8AOkTF8nibKp6pgPwMeF2s9
Iz8TEB7BXmFjj/0nf92RkE8EGNSU7511AOv36EZsiQRsfvbW7BHmv/MkCTXq
fsSxgwywIvbX1iISdJI/H1N2YIB3F3bc/0ioMGEuN2Ce9/wa7vhJmBnmnH36
EAPrVtdd1uYnQXrt2E44jPNBCk/EAiSQJu0fezCn11eOoGkkeFkfmJN1BK/n
K2cc24nj9zVDytwR9wuXu7FCCShffLuR44T9/M9ARkLGge+2pZjF4o/BB3MS
ykN1i2ydsR6i31xKNyPhm8X0O+Iu2G/rL4i5aZLQfMwy6hHm6IyhpT9UScjf
t03B3RWfJ8ZvVGMJCfF2mr4KbjgfJVsdtWVJOJchn/wKM626uvOsEAnJ/Fre
x90ZuMj1OPFKm4QjLpeYpR7/0y8JJj4ZJ5sw933pLPzsQcJw5pqbkUex/uJu
yKdakPB15aVCzWPMv+9vJHjslbD9hfmnqGesG2azeRea4z0ZYE8lPI7vMXPv
eTpezN/5bzUJ/uceqvRgzvTCDeQJEt5F5IymeTOgOpfvCc9FEvq9NkVt9GHg
T3qEkBCZ8e7nAOY6uU/DfgdJqBZw5cvyZUCWnnIgEtxydDqN/HC/Nczl+b2X
hLVLXZNH/P5Xr0noXDdP8KI/8/f78zESAjYH6poGMKCwwC/iZgEJR/Mu6Y5h
nqZdEjA9lYTJI7WCOYH4vjw17x8IJGF+lnCq6XHm7/fS0yTwMzE9o5i1p6sd
njyJ8yPZS+hi0L964UiCeEYP1/gEA4exPV7PxPFPkT43jFlyKoHukyBQJyOa
FfxPrxkkPLWRMTYIwfVH7oFyYxiOjzYy68eMi3F2WT4J2sa5dHoo7p+mGtYk
Eh6u9L2mG8aA9dFe81C83+DwZpEuzP5TBppLAuvy2MqEcAbEZZ58RxdIaGzr
mo9O4ngVudjHXCKB2fOl8QfmMRa+oBISNs/i2pw+9T8/JqHsrX7+iggGru+P
5+TmYf3u57vTgJnIzbN1qCDh/VbzlKBIBhrS8EB+jQQDxkRb+TQDErbq1QpZ
JDzip6/WYg5cl7v5ahW+L92WDo8o7D8e4W2XKknIbrrPnRv9Pz/H8bnzufI+
5m2C4d6L8PpzCiy328cwYL5i7WvfeyRUbjS7KxjLwCuc/t5PSLgj29tRgnni
RqyMNF7vQ+zWVsszDHzge9g+8oiEnKbcgjHMATemRjp8ngW8mufPMlDEvLBa
/hnr+/DJuPVxDHRFDebH4fVKIneV/4r7Nw/g9wnp5RRGxv+rr69J+D9Igdro

                   "]]}}}, {}}}, {
             DisplayFunction -> Identity, GridLines -> {None, None}, 
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
              DisplayFunction -> Identity, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.02], 
                 Scaled[0.05]}}, AxesOrigin -> {7.58315269907919, 0}, 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {
                0, 3.17221}}, DisplayFunction -> Identity, AspectRatio -> 
              NCache[GoldenRatio^(-1), 0.6180339887498948], 
              Axes -> {True, True}, AxesLabel -> {
                FormBox["\"year\"", TraditionalForm], 
                FormBox["\"dC\"", TraditionalForm]}, 
              AxesOrigin -> {7.58315269907919, 0}, 
              CoordinatesToolOptions -> {"DisplayFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& ), "CopiedValueFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& )}, DisplayFunction :> Identity, 
              Frame -> {{False, False}, {False, False}}, 
              FrameLabel -> {{None, None}, {None, None}}, 
              FrameTicks -> {{Automatic, Automatic}, {
                 Charting`ScaledTicks[{Log, Exp}], 
                 Charting`ScaledFrameTicks[{Log, Exp}]}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
              FormBox["\"Temperature_CBA1200_UVic\"", TraditionalForm], 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {
                0, 3.17221}}, PlotRangeClipping -> True, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.02], 
                 Scaled[0.05]}}, Ticks -> {
                Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
            576., -116.80842387373012`}, 
            ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}}, {}}, 
        ImageSize -> 1000, PlotRangePadding -> {6, 5}, ContentSelectable -> 
        True, ImageSize -> 1000], 
       FormBox[
        FormBox[
         TemplateBox[{"\"Default\"", "\"kv low\"", "\"kv high\""}, 
          "LineLegend", DisplayFunction -> (FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxDividers -> {
                  "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
                "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[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    "}"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
          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, ",", "Below"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{
       GraphicsBox[{{}, {{
           InsetBox[
            GraphicsBox[{{{}, {{{}, {}, {
                  Hue[0.67, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJwtmGk8VV0Uh5VIphQics4WqQxRmSJZJEMRolBKEdFMkSmUOFfmBsqUSAol
SqnEmxSNJBkiSkoRopHEu+69fOn3tPfd05r+68i77lvnPpmHhyduEg8P+9+5
FW23hvdScKGjXHRO8nEYzn+9PdybAs/rPQdKzKLhwuNsP6GDFHjt+xZhURIN
GrB2INGPggYV99mdPDHw0rW5blYABXcshCerkBiIvG0klxJEgdYW/J/pMZAs
GNkoG0LBW0X+I5JPo2HMLX0sNYwClzOWkjEJ0VCgGJwsE05BucZZ5TO20VDC
J56dHIH78ew7MkUsGjYpWCuIsyhYHRSubvniOAjwy8jEHqcgqVjYW/XIcZDN
d4rii6WgKXu/gaDqcciP/eYTHE+BCR6Y73UUzC281zyYSEGJzp/K7YeioPpc
Wpn7KQp2Wn2Ps5OMggWMO2lOouBiahXRqGDBXtU+PouzFKRlKdweDWfBybEp
+0pTcb+V0bu7fVgQOSdos1IGBR+H6PoBFxaobZZ5dSKTguNxXUPnbFng7JD3
8l8WBSy3zW2PVrAg22tg444cCoaMaj1eq7BgVmXe/tpcCjzw75McC765p0ho
51FQz9M+OUqEBYrLAsxTCygoPOXOcvvLQDvfuMj4VQr8A3NUH3xl4F34O49t
RRRcvrAWxDsZaHSpta+8TgH9Y/eGw/UMxBgHtsjfpCA5YXqgdhUD4s0xv0JL
KVivoXz5ZBkDLxoLr7TdocAYj7OjmIHd/FE8uvcooHI/m1/NYaDW9O63xAoK
5NkLZjDQmvQptOc+BbdHmR+tyQxoyl4qNKqi4EP1mbtJcQx8VEw5kvyIghYX
P2sqgoFhHfvfvTUUXG128asNY2Bsxq6Zhk8p2P+CVd8ewMD+a/sbEp5z33OH
NwNyDj9WvK+lQFb9rWLkXgZ2Jh2106inwP5DTqqJFwMJtjniIQ0UVBlf8dqy
jYH7VR/CnjRy/eGZCwPLoyvTJFso+KK0WKBgEwMbch54urRSUBDd6hlmz4BH
iMen3LcUmNuMSn9fx0De0HypgQ4Kdqn8Sn5rzYDM+qOjmp0UXOPtjlmwmgFF
377kgC4KDB02FVVYMOB2ob2n7BMFIu/UEjLNGNAqq/k19pmClLP4Z8yAo8Kc
e4a9FMg9/miouJIBl1emhqF9eN6iRXuzjRhQ3XIj5N4ABUcPmJ76tZwBq+/P
g0cGKfi52ilS14CBde4jeto/KJgb5+stq8eAqHrGnf2/KGgdDtm5XJuBOn/Z
f5f/ULBufmbUNeQouXrezhEK3Po3Gq9Yiu9fSNdJ/6PgxNNQ8woNBuxDXdzW
jlOQN1hv1Yk8Lb2n/OgkmhOf+aoM9LyT6irhpcFx2Y0aPxUG9vXrN3Tz0aDU
FZ5hhey37HKCtAANZXwzJQwXMiAmdE3GXJAGPs0Z2mVKDCyNzDjgJ0xDTKsn
z8Bc9J+C/9KyRWl4Vy6atnQeA6GuW5NrxWioQJyrwMDfgw+3j8ykIQfd9T1h
4L80LX5FSRrskuTjfPH3h8N/BFtK0XDNxzOxT54B2ZqVTw7Mpjn2OoC8gNdt
4KwsDSYjfb3/ISs+je8rl6Phlmtoyz3kllK+R500DTK2b2RHaQZO7BoL4JtL
gwL7AZHtY4sE5yvSsGVNzdR7FL5Hk32AmRIN9vig05DTJeZUeyygYa2rmONt
ZImFy34eU6ZBLFA7v1wO15vZNiVLlQb3vK329XPQ3v1Lft9bREOYecVhOeR7
o17PmzVo+GR4oWMFsnhOPmtoCQ3P+h8/qESODiDKQlo01x64Hq/+QPFcnYnf
4/na2pYrLluG98P08he5mKUaulafBkl0qAp8r9lZHVWuBjTXn/C+Fk98f/ka
0lAwZ+P2u/h+Dz8IS7KM0F4HT0pPUWRgUPK+/NmVNMe/N6M9CuoK5C6vornx
jlxb+3laqRnNyZ8FyDepmO6HFjT0TNGccRO5ULbgVv0aGtju9h55b5BzULvV
xPpo/z2WhUu/WON7sh0K2XLkxvshWxrWWaSHXcT5c22DI//a0Zz8H4P8JGym
Au8GGrZvbjMNR15IwkunOdKgrIcei7xVo9ls+kaam5+RhYhMvbgzzY0vZJcX
1o5SW9B/VFfO2YXsEBfSOnsrDTvxQGeQHy/Mc5Z1pWG6UMnFYeTAroY22e00
YHSfZPB8KqHjzrIeaL/ZnY5S8xlI1VvYPtuTBu3l99YlIUe+sd4mtZPmxu8C
Bk5d2tctvpvm5A8e9P+1h8K9p++lQZ+dwJDHLxzjEdxPw8DjB8ZqygwkUbtO
8/rQoLvDxGsAx4Nd1RaPHsD3KKUiepE9wv9r+O5Lg1TLi992yLSK9JGeQ+hv
LxOdQ3A/q3QlnXcBNDwkGAF4HpU7bb8bgibeD89vOEm5quYw973G8X7Cp0bT
7oZy7XEM+ZauUfiVIzQESVw124Z8xfnDoYxwrj8vQzaQeh4UF0Fz6vdjZDXV
7vjDDPrjVvt1ubj+GtHZJbuiaGCXe0k8z8/35l8do2lAd+neiedNC92kvSqW
Bs2sGzr+eF8TP81TGvE0XHq0Rmca5oufIjf5ZRNpTj0XRtZcfT9uykkazj3P
q32N8z2/aqn1ncL3m2R1TATZ2G+osyEJ80XajBwDXJ9Sbbh29wwNGQO5j9bg
/pulbiWfT6Hhuf7alzOQSwX8zkSmTZwf3ycxpef6zgwa4vi/zapB1lva12OV
SQN65wZRnG84df0KjSzMP4fldLuRM2X/XJ1xAePtFhx1xf2FzfMNhnJojt6Q
xnw4a5lx78tcGqYNZ+64rsaAu0986bXLNFffLGKgw2b7xbh89Jf8FQ6t6ujP
woklu67QIM4u6Jhfh+52fTIr5N4/Bvm+nZq+QtFEPkXekK9z/V8xxhumu0H8
fdLhWuumG2jv+MWHriDr76qYce0mDcPTv9wqRG4drRtmSmmQqDNp/obce+GZ
gMsdGm5+/9fwB/ne/QBDrTIa1PdmT1qO64ecy8gQLMf4XvG5pQB5fiDP/I4K
Gtq9UZEsZsAn1K2l+D4NEcF1152wXjysO34z4gHNqe+NmphvI3QrHB7SgNXu
K4X15VOe2o8F1TTQEb22ujpoXwvlDcM1NOQGVC+8g2zh3vex5gnWkzfH/31E
7hvVvJD8jIZHezTDbiHXTS9PdH9Bw8bt+h3WyMfTTQqX1OF9rpq9H8H1NS6F
/xt7ScP5Rs2BUmRpba3DT16hPx61tUhHTrabqX76NQ3dcrmfa5AfS7wSd2mi
YdDt2eY1uJ5Z8iLVBS00CJnO852si/bhbfX/9gbzxSFUbMsYME2IHbnVRnPq
rR/W02dhI0Uh7RP202eAT/n1OZN3NOBr/FyG9dd7qLZqWicNO9DdVVYwMM8+
Tf7FBxqWsAUT8vb2npuJH2noE0GPQV6lsyvCvpsGdjrRQTaXexY76wsN8/iP
nH6A6/V53q1r6qE5euISsrnop7VnvtKwFBN4P3I89UfAsZ8Go6Od1dL4+7zH
aeOzvk3EF/Itl5Clrwdpjt5baYj6Z51pzonvNPhhwMwDBmx00tdb/5zIF6gv
XlYrrxL6TcOBpplDRqg/FLpOH3z0hwZ2epNfxc4Xx7rCRmiI1G182IccIJB2
Wm90Yn9TBr6mhbG+/6PhhPPYyhEc/9X8+l7+ODf+EpGf6tKpRTwErEF82wMT
9Od5i4ZjJhEouRhQfRlZdbnn8I7JBLBaN51AXpwpl2bMS2DlnN7Om8jPRDLe
z5lCgBWx8VUZ8ulW3Se/kMXQ3XlxfZ6/yzfU8RFAa6awkEWH/0Rc5ifc+o7n
+z52x+noVMLRd6rmDFTU173cKEBg7m7/wHmo1wSamf4l0wisv3/pwos1qH/F
1K4JChK4Ox8rgiUDb+aISHUic/IL8tDygwq3hQhXz+L8zzZXX8cLExjQXWXm
gxzRwr/IQ4TAt1moQHD97j81qstFCcf/niLPOWBYP2P6xP2QK6/eoLqR0Xx/
KpHPl/jMLBMjnHqqjeuZaT24kjCDcP0BOT104Nv2mYT7vnieo9HQpitO4FXZ
B4l0Kwa2/RzbJyxB4JiIdaEE6tNH4z4FHcjVa3SijGzw/Ce7EoslCWA4BUrY
ov4yTiURswhse/BKxR35zMp2RwcpAjn37kspIYP/D72F0gQOsx0ef6+yU7F6
BJltzlfIFy1v/Hs6m8AVr3ZvQZwv/u9Le5oMnscKCwjyQV6hXXtkCbDLiSby
8AnnLIM5BFQbUj6lI0ceV4gQkSPgwW54kA18L4i/RR4vDhq6hnqbL1phbQE1
8T52qK+KujSDaALn8q80d6A+3xuoUmNBCCRk/ln8aT32Bwv0BaTlCfhiQm/c
wIBt/oafH5GfLKkquuqA+Tzrv/jrcwmUn5NR3+yI/czmu01hCgS+qt+dH498
sY313EqRwHlcbpETxkftTm+Zedz9jZHtz2Y9+ITc+eV0sfBGBkSsvKuKlQhg
K8wThqxSJHUwZD6BG04/b2/EfqJ4RWO9xQKc7yh16yXygHzfO4mFBMx4/YUU
N6M99NIyOpDXsA2+BfUlpSCcp0wgdT3eEFlb4v7CgyoEerG8BmG/clG25LeB
KuH0fx5bUQ99NvCbqkYA5cO+/chZH87m1CGHthgENCOHLJoaeXYRAcdLWs/1
sf9Rznwg5apO4KQeFlTkkGrhTcoahJtPXXG/XtpmCLnNFA+4nQFnQb3ftxcT
uOSAL4hc3pZsc2QJgSNTHsYXuWM8v/J1Nl/KtaecB8aXtJjsdE3Cqf89OJ6a
mBXzGnkGCqZ6ZL63nkWpWgRcpr6YbYvzR+wzorZpE1ArTh+Yv4OBKtEQyfk6
BOZXRuY2Ibu1Gq//isxu51d5MvDbbL5Fke7E+bG/U85wH/RdRjj65f1O1F9d
Omv19Ah83qnyS2o35rOOJpcx5APYHowiH50eqlSpj+MtBSPOexgIK/HIilhO
OPXVG3lPbfUrcwMCf+ywgURmybTeEVqB+YuatfM5sqN4i8MLZGx3F4Vivyn1
azgvwRDt6TM83Wsf+kOF7411QICZ1fLi0H7MP8rHDkoYEZBnNyjYr66/5dz7
Gvnp+VU3v/tgvs/Snp1sjP68XLVB5iDmo37zMYeVBE4xmPB8GXi78UmKtAkB
DXZCOoT+s2ewvxk5lC1gkXfs/TFyZhXh9k/YH/t4TKtwNCWcfrc9GN9fwUNf
2gzjY/EhNfljDCjpwP4m5Dd4/b4YBrx+PducZI759Udr05EzWP+DjKast+DG
n0Y29ofZ9W7iqwn0BxtqbSnA+i1REvwS+ckD3OAa/l5Lzjp+DYFMGfW3Fwqx
39I2bLW0JCCK5S6viAFGyFpe0Ipw9EPLTczX3mHy1ciy2BCL3Wag8TN/W/ha
AssaH+65gby7TNIWrAn8fYoN0B3MR6MdYaPWE/5XjnriyJldpTYEZqNcu1LB
gE6f94yDtvjeuQ5PipGDczN81NcRbr9Tifqz0ya+B5mjj6rQ38/e2ZFjN7H+
Q8yXCSKjLvYESP0+l6nV2J+uD7KUWU+49b4G+ytDLacGZGxPlCqfYX3w2T03
bgM3XhPrGBB8Y3vJzIFw+t2KVwxMXjSrl8dxwt8bMf8Mfum57ThRL1qw/vr8
y/Vx4trj/Bv0z6dhc1U2Yv27jA0e8tj77I0fkInRoJtlK9ZbrySb1E0ErmM6
rEOue8dMsXMmHP1wC1nzVK6f4GbC0YNqb7HfTlfMvb95wt860N861ZL8t3Dt
1/6OgTLpoZXqLgRmhv/3RP4D6tcH5659RD6ECbGwG/vNJe5tqVu59nLqxfoV
ub/adhsBVGOxychtVwe8p7oSuHksuG7pZ6xPnmJtZa4T9fUj9k/Aw+/jRqD5
24/VTl0MBJ36OqC0ncAmFJhOuJ9V4uSUVmRvA8EmBWR1zX1TEtzRvy0vCpri
/M7VLuomHph/PHn2TfrEQP+BcZk/yJVSSnZ8uF8HFVydvwPr2Z3SWP4+BqJi
Jmm5eCIvxAZnEPvJ2rtuM70I/PjX4O81xMC6p412D5ExPL/o4Hitdgif/04C
i9gFA9kk5a2/8i58vzF0+G+oj23I1Tbk7Elo0QF8T5Z3TtxuAl0S2OH1o941
Gt0Cewj3+yTO57fpfTOIHPpXb/9a5EBnr9nZezG+xfCEuH73+0wZ+30ENhy+
erPzJwN31cvap+yfqGcjWI+8PrqXILM/l/37h+OM6TV3b64+Woj8YcO0ckkf
wv3eiPM7/R3iHyLHrEYHHEb9t32jou8BAh+3YQb/g/2Bh/5hxYMEFuIB9JDP
ZSqkvELWRsFgi5wiuDzoqC/h9sfIe32ukMV+hKv3cX2b4MzjHcjszwkLeVgw
nGVwO/YQ+gsKgmQ+FrzXuVKg70+gZqpB6mtkPzcp9y/+E/l4Mgvs5l3oTArg
3l93Egv87YPmmQRO1DtcL/Rcldpg4ISeQm6Kyf2bHkQ4/T0v8s/ANfGrgwkE
oEOxkGMzmz7/YjO7gOH6NcIHBLIPc+N9iQALDuaa9K8NIbCK7XBCLDBafCBl
BBnD59nbaSzoXzlP5GIogakoyOr4WRC27oipbRiBySrMLCfkQ5evmI4ijzX4
f7mI9xnfWyeSe2RCr01hgVL29DTbowTYn/O+4rggSRz8e5T7PpenskAsJVD0
YjgBxeTxhDHcTzJzcMj6GOH0QxmCLDiXKntuGPlV+zuhkzgu/FJOPDuCWz/G
8fxPXOSsLSMJvJ7mOXc3jocaG9r9ROZ8H8ZxY+tLdAZDuN+TcbxK5/ANUxYB
bP/HVgqzICKqc8YAMrt9C0TmuTqqkxxFuP2dCAvaewaUDI8T6MDtLyMT13ft
n5DZn1Pf4fx1M4dc4qIn9JsoC0obzfO0Yrj6zg45aIdAeVvMxPh0FjQ72aeG
x3L1l4sYCyyJjbFyHAE7vuwTesgPBenrdcjszxcvcX6NaVefXzw3/6rjeE5H
5dCcBAJ9GVjwcPxc+dv7lQkT+hXHZ+c7bPJMxHpwo8ZvxQwW3F9tVyFyAutv
4Sl3gZksKJf/3leMjO3xc2XklhNO3Q4nCYTI6e6owvm5HZfyR5Gx/SzNwPHS
Bbz6509x+wEDcRbc23P89KrTE/pJggXFsVvvfkGWxvSSjSxqllsQmzShb5D/
BxJB2wM=
                   "]]}, {
                  Hue[0.9060679774997897, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJwtmHc8ll0Yx5VIZqVs9zlFyCiVUSEXCQ0hkkppoKEUISKUPLc9eo1CeEkK
SVpaSlPTSMNLVkopRKXIeK/H4/nH5/u5zrnd97nW7zoztu1b4zqej48vdhwf
H/fvzDsN1/o9GHDj/l5GQn/Ba5dQTwaUrw+yP7dGweknOb4i3gyUXuBvj/4Q
BdqwujvBlwEZFTuBHJNoqN72rkrKnwFGarfVj/3RwLluopgawMDPPQ6H5+yO
hhRhzhv5IAZmDvX5bJkdDcPbTw2nhTDw+EZpDOdbFBQqB6bIhTKgvvj4s+Ci
KLgiIJmTEsbAkaSlUXs8omCjkrWSZDgD3/MerbymFgVCgnJyMZEM7G3/e86z
IRLkC9ZHCMQwEKS4cIdZeCQUxHz3CoxjwOX5ppUVmpEw88Ltdz0JDKStzSzQ
eh4BjzPTb7kmMpASL3FIb3cEqLGu9F0yA6xU3cuDkyPAQ7NTYPlJBtw1+lI2
VYbDP8MT9pWmMWAwzupYTFk4cBQCNqlkMODveFbXqiActDbJvTqexcAtganT
jFPCwWldfvVQNgNF75x9K4+GQ86u7g07chkoVNjgctMjHKTu5e+vzGNg6/y1
2uobw+G7a+o0vXwGyrRPqstYhoPyIn/LtEIGooZcf7vohkOjwIjYSBGut1+j
SpXCoTm02W3rRQZeGKyuTpgSDm+cK+3vXWJgovOJVUl84RBteqhuxlUGbq9J
nhH7nQXJd9F9waXoPybsq+0HFl6+uXC+4QYDshMcxM+/ZmGPYATfwtsMNDWL
/HPuIQuV5je/J9xh4OuBK9P/XmWhPvlTcEf52PecZ0FH/uwFkwcMmA10fr37
LwsflVOPpDxioAW3j09ioV/f/vfXCga+qMwTKoxmYXiK+1TjZzz70TAW9hfv
r41/wUCnGH7xIRYU1/1c0lKJ/trUYB7qxcLu5KN22jUMmPRsf/7eg4V421zJ
oFoGtk12XKTjykL5gw8hT98wkFwi6lm4iQXDqHvp0+sYsPoRa+e9kQWH3Ps7
nesZwHBrVrBnwS3I7VPeewbe6nQvXLaKhfxeVenuJgYke00q3VawILf26KBO
KwMLHlyc47GMBWWfzhT/NgY+1xUOOBmxsP10Y8etTwzw+4kon13Mgu6tir7h
zwxoyCTVRuiz4KikcNv4KwMbX936ME2bBedX5sbBnfg+x8SsL2iyoLn5ctDt
bgbqXv62245s9eNF4EAPA5HFLV+mq7CwxnVgsd5PBk5Nyb1dTlkQn5txY38f
A04UT2AmC1V+8kPn/jBg2XJoWhFhIUKxhr91AOM9+rp7hAye/wVSJTOE54tm
CykW7IOdt68eYYCbvvXSLEw61VF2dBwZzadvU1joaJZuu8JPwCGz4LyjKAv7
ugxq2wUI3PgvcshVnAXfRefiZYQI3PL+R2aCGAuTRYrlLIUJBGLAFguysICT
ccBXlIzGjxbynsK76TniBDozDDVrkYO3bUmpnIz7k+MlBvhY+Ov90GVgKgE7
DMdfwxy4m64rqDyd8Pw/noXDoT8DV0kTeDr/wcWiEQ7IVyx9ekCWgAL3Hw5w
QI1/e/dJeQIft/775jKy8rO4zjJFAobcAMfn1ZUKPGolBMZrsFLr0X7cfdhf
YCYBg/0vw9f84YB9zEVhVWUCnIVvHu79y4FJb+39LVQIVM+s7x/+zYFT0xQe
u6kR2LyyYqJRHwemzV7065g6gUQ2bINdPz5vasOEbM2x78X1jl3zf9+eQ+Cv
096HQb0cuD2468U7bQK/ruMB/uKAZG5BeO983vkdQ47yp+oiugS01c9J2vRw
gN+gu2SmPoGyTLm5739yoKHBUHnRIgKfima1hSKXhGsGrzYggKfvII7rZbOb
HmwzIjCfuwDty5/69PkYE2gcPymS/ODAww+i08NNCASg+1twfc/08hknlxJQ
VsMIwfWFVYWK55YRXrx950Bl5edJpRYE6px9rRlcf5WJbn+4nIDJ0dbHJ5Av
yBdeq1lJwDV/i31NJwc8ApwCGq0IcNMjB/fvXXVhwRdrAvu+hz2xR141cLml
15bAfZf8LbXfODDTNpDz147AD1Kzr6mbA09DpirxO5DR+jK7iwOzaWjpJEcy
ms+Xv3Jgi/Y7C4kNY/GIdhEqVyPpRCDtk2Le5w4OOL+0dpTePPb+yOtig+pl
txCw91ZOCcb9T2bnO8lvI3B5PXoA7YfaahvkXQiv3qFdI3jESd6N8PKpnQNp
i2c3yu7EeKrCAPjMAc5/1luldxNg8j5bzvnCgcSz+9ol9xCYh+V4Oq5ffTDU
U8KDQH1/0G5DtI+cPsYnvH/MX7g/mXFP4vciYLrkc50mrg/cpjVv8MBYfHzi
gFvo3dofPgR2vG7fXfCRA0RD5kjHQQLeWF5XIludUtFv9idQcqo771Ebvu+N
ht+1AQR0pugZGiEbj1N/UHGYQHM6FogPHBBNHEy/GUzg51Ct35dWDlxbaBJ6
/giBowfME32Rzzt9OJgRSsCfW4CRjaRfBMSGEZD6+6xrObKWZnvcYZbAxTvf
MgyRV4rLXnGPILCE29CQf7VYfnOMIqDpKtvqiJwevFFvWQyBd99/rliPbOar
k6gdx8tHHe56sauC8gkEBB7GzfvdwgGdFeWxE/4h8LzryX1T5J3fdLU6Ewng
cSbVNnPA1Le3tTaZF7+ZyIxmbfHNE5ivTdYxKcibpK+l/JtKYOJ3Kcsq5FIh
3xOcdAKnm8rEFfB5Cakdl3ZnEJjtFHfPB3nxgs4OqywCDW+PHHiEbDxx7RLt
bIwXsr1rA75flvyfoimnCThPfClbjSxqWWDUm0t4/R/PU2qR6dfqPALccKxA
dvWKKy0+h/7cghGC599k43ImtoBAqpB8xmbkp6IJV9zPE0hfkH35GnLvzbZP
FhcI2MSkeExFf5bbaRkoXSQggQt0kB0K9C8NlWD97C22cUdOPlxp/fYyAXmx
Zq14ZAP3O1OKr/Le5ypy/WBVP1uK59tLarqRv55+LuR8g/D0AcbT7XJ/Y91b
vHr9Ee1BmRkZwmVj54WseohPtekOAQ2uoEH2Ct5eV1JOANVZ7Cvkh1WRV8Pu
j/kLWT5s4Z11DwkMyhx4OxWf/ylf66faYwKoZh45If9aru7QX0EAlx88j7zc
tfNjxVMC4twXwnjvHNQ5nfKcALf9nUKukihLcH1JoCOpRLQHOfKU2YX5VZjf
4lolipgv2mdDh4arx+IJWUZP9/DTV2S03zYgp9hNnZv0GvuBfflZZcy3J9Ne
STq/JbA9uM7IH9kiZY6mWt3Y+yA38df7ff+P559GZPP4mIFrDWRUr4piPXge
MnAxqJHw9CKygPrrTLNm/H5ugiF79lY+mNRKYJbP+FQh5Fn26TNefiA8/YvP
c2nsuJrwkYzqsTbkZfruYfbtBGzdUw8q4HpLxecxUl8IXP2BCYncufNm1dsO
PM9zPTUvuHbxT6tPfCNQvkhpxV/kOOaPkGMXfu9ujT5prE/5T9JHpL5jfTU9
v2sz8jXnoAWvewgURtXvDEGOX2Oee/wHAVWUU+nINvqn1lr/IiDKbXhYb6sf
qy8T+c3z33FkpbYk70d/CIiY4xd1cuvFsbaQAcLTs8j+QulJiwfH+jXyt/SQ
8B9DqA8m4Ili/e179/p2wQgBbrimIj9bSNIu8lHYev+Vxkdkh1lz+qPHUTik
V7DkLbKm4c7+HeMpoLqzfYI8L0sx3ZSfwg33Sf0U6/9zsYwWhQmUp5eRk+oX
Pu1DfvbvsqsHkPn+GjpUCVCePkQW7/8Tdk6Q8voP8o/hG+uPTqSj88EI8p2a
quoNQhQwWntNsP8IvWO75k+iMPnLtQuhyNGTtYqFhemonv+N/J+CmHQrMrbf
KjPsb72G3krXRSigPKjZjPzZpuh1nCjl6UfksDrBOW5ilKenkdv/VGgaitNR
/zQiKxwwrpkiQcGTm8DY/+8VXWbakbn1eBfyv1e8pt6aTGFmrI9nGrKF7v3z
8VMotH7BhMB+fSq4+7vLVAq9NVbbJiMfjYKGhZIU8HPXqCJv/TW8T3QaBQ+d
kGuA/GjEq7AJ2QgHGA3k3n/aEkqmU9BedUbYHHmPaRoNk6Kj/TwD+cTSRsd1
0hS0uA0FGfx+Lp4tQ6Gg8rXDN2SN3cqPB5Cx/TzzQH1wZtXloWeyFPqzdlzq
QJYc+tKYLkeBO86Jo37x5hdx3ytPefMHcv9xp2wjBcqbB5E5kUphYoroL2wX
KchGPqcl3yNr1qZ+UkQ9JRCltLqQoaPzYBFXX11s0wkglFcvUU95HNKoWE7H
1iPvVzMQkplBwRoHyhfItgUOvz4ir1HNitBGPZeVfTfu0kwKcW1YIJFfbrr5
NkQJz9dR+pot6rUzDeEvrJQp4H+72opcXbnbU24W5elv1If2J7Pvf0LmzjcB
yGJWng9KVChPLyNrXJT2DlKlMIzt9QzqxZIlb2qWq1EQt76Q+BG5e0Zn87TZ
FLhyIXgQ/bE4PaMJ2fLOYcWFQ6gvGSXRfHUKv1as55Qi600rn+2tQcEXG/gs
1Ktn5K/8NtJE/+aMuxWGPPuzke9ELQrbsJ12I2d/OJlbhfxS1vY/edTDQXMm
ck7OoTw9i6yedV9621wKf+655Ddz7Y9FN6prU5iEDlyAelvvK7HpRR6d55Gd
hBf/vj6PQtcGVCjIZQ0pNkfmU15/G4fz0isfJ8sF6H8JTCDkOzKT5SV0KE9/
oj5PS8iOfo28kSsYkAXe77yYpktH9Q8/PwsD9hkRW/Uo3CyNEfyO/EA8aLqq
PoXo+p18+ybg/FRvuvYbcqzgd6kK5N8WqssvLqSQuxoktwqwoJ7h2uOziPL0
GHJim/7qxYspHMt4kV+J84RS01vnYeTR+X4iC0clglXuGWD+70zoHEQOueKW
HWZIefODEAt7Kx+/sjSiUGWGHQY5XK7+hsgSCqju09ZOwnlNsm7dS+Qpj2+U
igmzIN3Xnx9vTKHS7XV7B7LYHZ/LawDf73a5tIoICz/Uj3lPM0F/1qPAQF57
zenra+SafagokDuz9WRTTOlof+pHFuqyHF63lIIgt4HifPV+w9NUGTPK05M4
T3Xv7el6hzx6n4G8w+PnwIllFFJPnjwpi/OXl9ukO47mFHD83bQSOU3JzUDG
ggKGf3ELsoo+7H+LTFDeLpRgYVff803Jlrx4HEFWDTCZsHY5Bc4T+3K1yTgf
5tRsl1wx5g/k5dOuBFYjt6O8rkDepatoHbcS3xcHRBGcD9X0jOtXraIgP/e9
MgeZFbGeIWxFYUax184pU1ng8wyZ8RhZQuTKGX/kN58FG0JX8/zZgrzn1nRb
sKa8+Qr5xGBTyCBy3L1fak6SLPw6csK91IbCPWkVO4FpLOh3ek7xtqWj+vMK
cmBehtfcNRTeOHybexM5vdUmrgP5xXP8IQedvLEj1463P2w6C1vjxQad7Xn1
j8H5d8HagFVyaymsl75WHYLcYKy7vnaM+XAejvbaMzPWgfL0ErLwf7ZnLdZh
Ptl9yJXHeXr8HKmvfI5j/ka27fnScR2Zch0uy4KN11Ce13oKxuswI5CVnoXM
1NhAeXpYjoXhlpwNH5C7vt5dlIPsvyvZJm0jhd2NnpGx8jjPN7MT7JwoFF3d
FlyHrJOY5yu8iYIQ94JIAeftU8p55cje5ol9gooYb61ayX6b6eh9RjryLZne
pXOdKWzBz01mWJC6n1n8Efl5sOWdIeSo+a4NaVt49WQfYaGds/+x7VbKm9co
nkdRt+fEbZSnr2awYLFzcsMtZM4GVHDIh4BP0Gs71ituAZ7JQkDit24VF4xX
3F6ObJUwPrXeZaweKbEwV2ffhHhXCrMwgO4jt65wnmvmRkGlLTTDSpmFrgMj
cn+QufOlzCwWmpjAxwU7ePW8GDkiepyu8046qh8VVVhYVXlz+9RdY/2Lez/y
7I3dQ2SzqD3tAaosVOoFCfjtHusXaiyYpb73U3cf6+fIt21oUQMyd97vRJ4c
7pkbu4eCnUDO8cWzWZA3GdwMeymUYXq/Qha0+fpfD3LBknUb56nj9zvtks3x
oLDMwqtfQgPPryVLzn4fHdXj+5Bvzr3VOGE/Be640Iecteuj6xVk7n3SJ020
s+bFrp4UHlJMGC0WPjhMKpvuReGSqGehyBw8H791cQ+RsXvP8kHOd9mg7HMA
7QGouOaykOxmcFjZm4Lc3Y20XJuFzCyl1FfIo/er81lIFTYMOOrDO69TyB5e
5+k8Xwrc64kSHYzPwKzIJmQ+/IXostCfbXQ95iAFLBeljB4LLfrnCw386Kie
VFjIgu92adcvfrx6a41sN+t0a7I/hfQH+AGLWPCzD5hldgj7C44/59AenPlA
q+cQz99LF7PwNjrv76mAsXqJ/OvQyrgVgRiPm1ZWTMT9MVlvP/chdwUa6242
YKFC9IBQzmHsF6oSIrq43jvPrGt1EB2d/98hm8w7kDqAjGrLUxjXdy2dJXYm
mMLVY4FVC5BD1hwxtw0Z0wOGLBw8d958ENmC30/kNO4f8agSyztCeXof7So5
Eum2Rylw5UYo7hemCT1/j/L0ZDDy5NRD4mdCKYwOmEYsTM/q6bU+Rnn3l2jP
TJPP7EfmlvMGfJ5otaJkThgFUZSr1chPnRWtV3EoZC/DCQA52NTY7hfy11Y9
ubv4PFPrsySDHasPyA/0D182Dx+LD2MWwiJap3SHj8XDEqyvRYP6KRFj8YTc
2NGtYhxJ4eTN5HgJYIFua278hLyWe6GE+9dM7XWOjaK8+RDtpW8s83WjKcwZ
mTHUh/aAHUJlDcgXEl3DP6D93Xr7tNAYCgvwd8kU843amKrHUt58Y8LCQ2Fy
qQqZK68rl6K/zNs6feNQz+7xO5SL63Ob7vUqxPP0+Rq0Z5a9L7+HzJ3HtMxY
kC1Yt3FnAuXdh6K9fIXdHbHjvPPUXIb6Y8aPzhLk0fkD19cdX9++7h86el9v
ac5CXtPZgkHkJ75lmanIpWr8Bv8m0tF5RM4C83tvZNKyJKyn3As2SxZKYrbc
/JI0pgdwvbhFXmFMMgUFdEAq2v8H/KshDA==
                   "]]}, {
                  Hue[0.1421359549995791, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{0, Small, Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJxFmHk4VV8XxxUK0WCIyDnbmESaUCSLpImQIZVSiQYN5hShdLehTCUKSSSF
CiWKEtVPaTA0UERJKYVoQuJd173P895/PB/nnH32Gr9rH6Ute1e7jhYQEIge
JSDA/atc1lTUv4eBp0/wZxcB/Tkvt4Z6MvDXwOOZyOsIOP8ow2+cDwNxEw7o
5VhGwixY1R3nx8BVtbZQJjUSarc01Ezez8Bhb/N4v4pIoDdNFJMCGDA53Fp5
qigSEsXoK4UgBprMBf3HeUfCkMuZoeQQBvonfCnS0Y2EXNXARPlQBmJn79M+
9ycCCoWlMhI5DHyfvMx68EYErFexUpEKZ0A0knXp8owAkTHy8lGRDOgtvL06
YVoEKOSsjRCOYkBO3VZYpT4ccqK+ewXGMPBnjPOpJyHhoHz1dkNPHANrZYtq
BdTDofJsSqlrPANf1GeLaD0OA40wV9KQwICfFTN5p38Y7NHqFF5+mgH/A5la
94zC4MSQ0N7iZAY2cW+YEwZ0asAG9VQGVk9Li8hTDgPtDfLPj6cxUCjz9/Ee
yTBwWpNd+y+dgeOPg5eVjQqDjB3d67ZlMiA+ekbY5B4KkyuyPaqzGLCOStwj
+Z7Cd9ckab1sBroCjXU31lJQXbB/WXIuA1O86yW9yik0Cw9LDF9hQDVxOHYo
n8K70Hdum/MZSL+u32eaQeGVc7VdxTUGXLrWmS46TuGY6YHXSjcYuPstdaEW
pSDVcOx3cDED4+/MOq15gMKzV1cvN93i+f/qTgq7xkQIzL/NQJ1A8+gIZwrV
5iXf48oYyPq8bOawHYXGhE/BHeUMvB934tLolRTmKVy8anKfgeeWWyY2mFL4
qJp0KPE/BgxHWR6J0qfQr2/35+tDBg6dXHz022wKQ5PcJY0fM8A1N1STgkee
x4vYpwwsnzms9E+JguKan4veVzOws9kzcjxLYWfCYdtZdbhfq6vxH2UpxNpk
SgW9YGBlh9C8OEkK5fc/hFS9YsBhvHaB4kQKC49WpMi8ZsDGPWnfVAkKDpn3
tjs3MnBEwuqqtBgFtyC3T1lvGZj6tVVPXphCdu802e4WBm4cCay5JkhB3v7w
4LxWBrSV2J+7kFV9OxP3tzFw8b+V+qICFFzON3eUfmLgYM21tb+GOKBb+vD3
0GcGfms4xVQMcsBRZept46/89w9wwPm5uXFwJwMv/THD+jigtfF60O1uZNHt
yrt6OWD542ngQA8Ds09ryskgr3YdMND7yYAlblinhwPjdVJvefxmYCmWi2on
B2r8Ff5d6mPA+L+mwiPIEYp1gq0DDOQebdwugPzxKlsj94+BcJcNTeZfOWAX
7OyyahjjU/pB+sw3Doie6bhzeBQLlSv1I8qRO97JthUKsoDlknEceW+X4Yt2
YXbEPl983m/BpVg5ERaMtF4kfergwMRxefLLxFi4FtCbV4M8l6Z6+4mzgNUp
5428K/duSsZ4FiZiOgkiB2/ZlFg9kYUEpWjfni8c+OvzYOuAJAuvn/2x/YB8
N0V3jKoMC+UXz6+6i3ww9GeghSyuL+6ZexRZ4eHiKu8pLFhcEDNXQ9YQdOk+
rcBCqI7FhcjPHFB9HNN5R5GF+/kz92S0c+B1sfB/rSzL6wefOHDcfWi/sDIL
kXnvv5z8iP6IyhebpspCyztM4Db0R73d/qXq/PWRz0hPrXTTYEGlsT+o4wMH
pKcv+HVEk4Xra3/dfIN8XLJJKF2Lha3oXkG837Frzp/bM1nA6GgM4fXbgzue
NsxiIWVu+vUiZKnMnPDeOSzYch2AfHQ/0Ryny0LmKpDajCxo2F2grM/Cd84j
u3LkpqaFqgsWsGDYYhUli+sXhGsFrzJkobfOckss8pT0lvtbjFi4uKZqjhna
s7zK97evMQtN9Ye8zdHeBx/EZcJNWJiLDulC7pEpVzq9GJ83qXZ7if7JrclV
vLSEt/9Q5Orqz6LFS//vvxvMsfYHy1nY9LFGuRH5qkJuUd1KFrIP2yxXRH/v
CXAKaLZk4Vzf7E9XkHdbXJ37xYqFmpcO33QwPhYD19/32rBQeGF/5SVkZZtA
+teWhX68XQ3zoSpEUkXQgZ9fyNNJaLGoIwsKOm9Vx2C+bZrVsHTCOpaXr8jj
iHydlBML6/PLvjGYn87PrBxlN7Ij9RyPvCY6qHHKJhZGlwpLSmP+P5qe7aSw
hQUZxUcfy5APtL1oUtjKgtzJF6LbuzgwI3jYScEN7TW9vGNjNweSDaY3T9nO
goHKigDB7xygb6w2y+5kwXd0kkgycvzFve1Su1gIUpy/zQzrcdW+UM8Je/j3
Y70Onz8iIObB8vo/cgLjflLQi4WVa+l8hx8cCNyiPXvQm4UTBqMshX5ywC30
7osfvixMx3bxC5mdIXeoYx/Wx+Kju9p/YT84o67/bj8L2D4lqn/jfm81/XkR
wMI2sx17Pf5wwHiU5v2HB1lwrJpzn9tPxOMHU0qCcX05IYfofg4UzTcJvXyI
hTn2szQvYf+57PRhX2ooPx//csBI9mlANIeFj71s3V7sV9pa7TEHw1iouocO
+ceBleOnFLpHsOA6pdUxEfvbr/fLvjkeZUHe5o3C4DAHUoLX6y2JYkEy9G7V
uVEUzPzmxc+Kwfftw46J/fKXxI0xCnEscMNRJoT6sKI8WugEy9PTMRS2f9PV
7ozH6z64YxEKpn69rS8SePvpRma0XuSVnGJBChP2kyiFDbJFieeSWNDZkzGq
FLlYxO8UTcH9zrmffwU5Lqnj2s5UFpJEFFI3Yn83mNvZYZnGAtd8qXEUjMfa
L5qVzoIaN6DIaQp9Vyad5+WHMbL4shyj3kxefI4gT15g+rU2C/vZ+wPSV5Bd
vWKK8y5hvLkCLk6hxXrrhegcFrjtNxC5Sjyu0P0yC/eez3CdgnrTW9L2aelV
dkRfs5HLbbUNVfL59Toe9ShH/9q/AhY6ThaI9yAnHKy2qr/OQt1e57GrJlAw
dC+blHeDBeexz6bUIjcO1vSHFbPQ/eieqTbq29fzT0Scb2G/SUlXuYl8u3y/
sW4pC9x21IccdDY1VewOC0LtxzR2T6Iw7YDAtJYyfv6hXnoFu7wuKGchdeP0
x7HID2oib3Du8fTARIqCAmd+2ZoHLJz3MBKrR/6Urf1To5Lf36Uxvss1Hfof
Yr/E2zfJUFju2vnxYRULcL7lzvjJFDoH551PfIL5+rJ9Zw5yzYQ7ca7PWJjB
LUDU78gzZlfn1GA8sdwPIc+6GPpvqJaFNHn8jxwFOT3dg1XPWfh2d4FKFXKi
raTOyZcsfH6dO+A0hcIj6edSzvUsoHr6DyAvTZyppfEa6+Gi7tMSeYyPYKP/
9zcsYHVpOClQMI+NGihqYmFWybQJ46ZSeBIykB/UjPljh4qDLKz58qzZO+xv
m+xWT1Ok4NlbfV+0la9HyGp2KUrPPrAw5PqnbTNDYWtzx424jyyI5E5d14a8
RN+dY9fOwuUBp91LcF5ZpvgkavIXfv0id24vqanvYOEHlpszwevjP6069Y3l
zVPIMUyfiGMXrmeUbH8W55/sRynDk7/z+rW9MoUi56C5L3tYWLiqNq4JOXa1
eebxHyycensijKNCwVr/jL3VL54eiqlSqK3UXDLuDwvcdrQZWaXtpM9/fSy8
Qfd1IovHH2kLGUD/XevwLlSjsF8k5aTBIAvvUiZlGqlT+JYSEv7jHwtLGr7/
rEL+3fDyds4w3/5pFB7PZ5PzBQiYcuUE2UFtZv+xUQTm4u+aBgWthdv7t40m
UGPW8N1nOoXZaYoppoKENy/ivPdEIvX9VCEyom+JyCcb51f9Rm6TVnzkOoOC
wN+FDjXChDe/alEY39/HuTSGwFIvnFCRfwzdWnt4LAHuOHJGm0JZXU3tOhEC
wwU4kMykINIQ1jVHlAB6M+eyDs6/E7XzxMQICD+Imb1vFoU3UyVkW5G5yxXh
PNq70Efl5jgCZQcV57fPofDZ+srLGHECwa+N9jvOo8B5PWammwSBylvFUWN0
KbT3PdRaOJ7w4oU81du4btIEAlx37NSjUHHlOtOOPJrbkJDPFXpJlk4k0Jtn
7S6P8/BS3XuXYycReLJh5cOx8ymcCe7+vlWSQCD3BuTDR6FpvhT/+gIKm38N
7RWXJqAc7euZjPzfsFduC7Kdj2pisAHu/0RbXIEM4emDIc7vpsmEM5nAjr3f
OcsXUji1uNlxjSwZ0VeKDP4/DabLESDo4ArkGTtVKweQWx1li2yMKFywuP7v
8RQCgtwDFrLUvy/NKfL89yH7CI5z361AYCIe/xYtwvn+uFO60VQCy8+EqFcg
00gVjoQiAa7cKhtTMPI9L/UWmXveCkEWPqqyKpfBeIemPtUECtL5bfMCWAI4
XUUeNKGw58CMh8sJAVTDv5fwPOGhYSgip0RAezFO7Isp2OQ4/PqI/Cy7+uUr
M+zn6XdjrikTwGg3OC/B88yGkvoQFQIXku+TPOQLTeFPLVUJCMQF/b2FXFu9
01NejYBJj8uTt8h2p9PvfVLj229OQcLS836BOoHwn431h5aif/JlfYKmEdBE
ARheRqFg0au65RoE8PT2+tkKCt1Kne+kp/Pz1wLjYZCS2oKM8v/qgSUFUUZF
PFuTQLsiVrwVBT3p8uk+MwgkxuIB2gb3p1D4x0iLQPNo0ciz9hSmfzbyG6tN
RuaTZicK6R9OZ9Ygc4+769ywv88cS0/PJPDwVEnCRE8Kmmn3ZLfoEJiAAj8P
z3NBleLrNWfx/NESgu/7ylr3Io+crw9RcBIz+HNzNoFihvO1NpDCnaZE60Nz
CMSHcdbZ4vMOz32dls0lMHipp+7pQawvuYkKE+YRwONnr0koheS49GMvkbny
WBmO8Xy7PT9Zl8AY7gEvisKAXWrEZj0Cs7Ad/RdL4f74IJlp+hi/gjPd05Bd
Gk3tvyFb/oi29Ymh8GfptOX587E+503SK41Ge1Jde3wXEODK83m8Ht+mv8rA
gIA9tyEjq7TUOw8Z8Py7BNc7PCFYvcKQjMwjSnEUQgrd0jkLMX/+YcOKp7C7
uvL5MiMy8v0g8DSFcPnGW+MW8e07Q8FR6vWaZ8gj5+s0CrK/+7NjjcmInvoj
S5T5Xl8NBBZxBSgV+4/mER9pEwJi9RkeRvi8fZHT15fITw1X1U5KwX6frjcl
0ZRARF3zu3HJ2I+6lg2tWUzg884Zv2WR366rSpIzIzC0eKDzK3L37p6uBmRu
u/uMz2/b83Pg1BLC+96A7/NyEy1zNCewPa4z0Pgc+l/FzVBuKc++recpqOuD
Rz0yt71pX6Sw4/eTDQnLCPRVbM3elI36H2AiZL+c5++fl/B8nlHnIrWCjMwH
nVmo39KFgbXIG28tFx+dic/rKlrFrCS88ySur6Fn3GhhQeDGj38v/DMohI2z
UhKzJDz9QRbwDFGqRD6S+jTbCu9/9XlMU+gqXr6U43q7SmVswAr7vcez8Dp8
36nBlpBB5EtSNWaOOThPHDrlXmzN84f7VQr6nZ6TfGx4/TIpn0JgVqqXzmoC
Y7kBLKCQ0mod07Garwd4Pej0rW2Ztvz44/ObYyUGne3IyPn6G64/1z7AQt6e
wLTZqNjojyZj3bUv7PnxQ38c89qlHO1AYD26/zX6T+yNzcWlawhPr/H66JmT
vwo4EvhkjAMOPm/T86XjJvLIfHkZ9dfrX5bXWgLc9qSXh/n5OER5xjoCk7iC
cZ3C0PuMdR+Q75yV19lQhHq7I8E6eT2BA5XTDY4X43z0LkzI1omMnE9lkOfF
Z/mJbcD+iwfKi4UUJp5RzSpH/updKPMX7bVv1U7w30gAyynLHO0tletdrONM
IOjYTXfRKzi/3jub9xH53Kt53cW5FI7OcW1K3kRAFwN8DLmdelTabCawGccd
gvtvutLtOXYLgZmxaX2z8fml2yc2lSKrcQsa33cABMZ4uZCR+fU+7icg/lu3
+lYyMr8fuUnBMm50UiOyGaYzlFLQmbdXKNaVwO/EtyfG3qbQusJZx8wN8wvl
7HYJhS7vYfk+ZCs8/i7G51uYwMqcbZhv2L79cP2IY6N0nbeTke9/StcoWFSX
uEju4NVjH+5n9eNXtg+QdzscvHIDuVovSNh/J+F9H0I2S3rrr+mO601dt7UE
8+W2NbnShCyGA2Mfrjcx3DMzehfWyxAODDdw3jUZ3Ai7Mb5X1NpCcX9jrL++
6dnNz8c7aL/TjikZe/j9sgz99z5N3m4vgZ9YDl+QS3RKm4U8cD8oVz1ob9qO
j66FyHhaEZbE9UrCzPNcPQmM4jZ4jO8HB9E7Ml4EGiOxgPH9rf5rYh4gl+B4
8R3tz966TtXXm9cvs5AT3AwPqvoQKKoVaD6MfDZNJek5ssyxFR1H8PkksYUB
h3359YTr7/G6TGb7kZHvnRYYD+vAtMgWP36+4X77041uRu3j1UNKOYX3+pdz
Df35+ozs5yLr+gW5M3Whlt1dCrZq51sT9qM+fjlZcAzt87cLUDM7QGAdCrYY
2hd89r52D3KFrLotB+NZfyzr75kA1EvuhnA/vw6sjFkRiHr0FAUb8z8qrf7z
b2RuO9iI/FDcWyTjIL9ekX2yzLpWBRHe+QvXM5ntnTSAzB3HLqI9XYvVJC4E
Y32ifJzH/YWsPmRuE8LX3woK+y5dNh9Enhq4ec5L5OE9NRJZh/j5gPapZ0xI
sTlM4O56YtKD8RUjcT1/D/PrAdefmHRg/IVQ9E8FzarH98uk9fRaHSHgxv2h
PWeTFc72I4/M07hf8VpFqQwOgbAsLBDkKmdFKwtKYAX3Ay9ysKmx7S9k7ufC
m/i8qdVFNjWMV09m6L/7+gevm4cTwHAKXcf9cCJaJ3Ujj3xvx/0KXBnUT4zg
zVPp3O+/Hd3qxpG8eXUbMtnyrvkT8odMHHgwvqsle52jjxLA43rgZrSn+NWy
bN1jBPRQoGxuYf1uE7nThOy44PpDP7SvYa1dcmgUf77E/VkQa1PNaML7Xon8
QIy9VhPNz29uvMzbOv1ieHpUhtczWyp6p8by+k8Ern/2ztvyCmQX7gCN+TIl
Z8367XEEpPFA4IHxKl9hWyZxnO8vjM8dpR+dBcf570d7Xh9f277mBM6r3AMq
2pPVcjFnEJnbbq1xvWINQcNz8Tgv4nj2A993e3fkySUnCXhyBQvtKYjaVPIF
mft5fyPub/zSrNyoBOyv0W29Z3H//wObhwzx
                   "]]}}}, {}}}, {
             DisplayFunction -> Identity, GridLines -> {None, None}, 
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
              DisplayFunction -> Identity, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.05], 
                 Scaled[0.05]}}, AxesOrigin -> {7.58315269907919, 689.93758}, 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {700.4224,
                910.1188}}, DisplayFunction -> Identity, AspectRatio -> 
              NCache[GoldenRatio^(-1), 0.6180339887498948], 
              Axes -> {True, True}, AxesLabel -> {
                FormBox["\"year\"", TraditionalForm], 
                FormBox["\"GtC\"", TraditionalForm]}, 
              AxesOrigin -> {7.58315269907919, 689.93758}, 
              CoordinatesToolOptions -> {"DisplayFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& ), "CopiedValueFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& )}, DisplayFunction :> Identity, 
              Frame -> {{False, False}, {False, False}}, 
              FrameLabel -> {{None, None}, {None, None}}, 
              FrameTicks -> {{Automatic, Automatic}, {
                 Charting`ScaledTicks[{Log, Exp}], 
                 Charting`ScaledFrameTicks[{Log, Exp}]}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
              FormBox["\"Atmos_2C200_UVic\"", TraditionalForm], 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {700.4224,
                910.1188}}, PlotRangeClipping -> True, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.05], 
                 Scaled[0.05]}}, Ticks -> {
                Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
            192., -116.80842387373012`}, 
            ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], 
           InsetBox[
            GraphicsBox[{{{}, {{{}, {}, {
                  Hue[0.67, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJw1mHlcTV0Xxy+nSCoUmnTOTqlEmRpUslehgVRIiogoQ0RJSmmiAY2G5ukp
KRWSkJIMERkqIkOKlIikwh26w7uv53n/6vNtn3v23mv4rbWOusfe1Z6jWSxW
wigWS/x3el37da4PDa4G2dkycj8xt/TltiO+NGDDTdW2MkP47KOCgPH+NDzx
8Bj27R/Gc8F+IDmAhtbrT75WKP3GLR6vm6cG0TBYHXrH5/VvHH3DQi0jmIYr
A8c/hJX+wanS0a9UQ2mQcX3fZ7KTjYVbs4WZ4TS8+faeGXjJxmWaIakqR2hI
+DpuxaI8Nr4qqVCQGkVD+gvPeZe5bLxBw0FDIZYGC5upcyM2cLDUGBWV+OM0
dNs+Nzw1wMaqpa7HJONpiDqd6zTyi41L43/6hSTSoLDl3otZnhw8/VLt68Fk
GgxWjG5trWDjhtysm56naTjek+K8xIONdWI80esUGs7H7PAfe5mNfWb3S9qm
07Dv2o155lvY+JRQYm9VJg2dDvGpPvJsHD0teKNWDg3zLAMrfZeysd5GlRcn
82jYXCpx4l46G7utK2kR5NPwa8pZ5RNabFywc2D99kIa1gWmnuDYs/HUuyX7
mopoiNfpl71VzsY/PTMmG5XQUHLYlF7gyMaaJkE2mWU0zDAzGj1oysYdkiJZ
0cX/9qtn4w9HPnhtuUzDgyhK3fU2G79yb3K6e4WG/heDaRHL2TjO8tAb9Ws0
mMVXOnUksLHC67g/YVU0BAgi35f3s/GzV5cutFfTcPGnvuJgNhvvHnOMtbCW
BmPBm8TJyWzcZFXzM7mOBjjbeUtuGge/S/kc1neHhrwPHstktTjYQLX4kkU9
Dfe2lWx2es7GPZoZEakPaDg2M3npHA0O5ho7sb89pOFbl5HKbeIv4SRvefyY
hobw779/TODgfeX7WpOe0mA+uzXjsxoHq637tfhjEw3atXtD+tM5eFdK5Jq5
z2kQzpq1crkFByetKlQIbaUh/weV9HYpB9+p/xTe+IqG6M+m8ZWtHLzoxN2s
KW9IPF2eFNt2gIOdC+/tcH9Hw++J8T9QAAd7hXp9LnpPw6pCrwmVo7m4ZEhb
caCTBvW+xazzTzlYZW0k36CLBpGE4qxd5RyseaA/Naibhg96SXmceVy89WxH
383PNLRPsh+/6RcHG958+Ef4hYY2+SGLps8c7KIxrRZ/o6Hqa1Po2Vgudn9h
hcP6abD6VrwrUoeLZ2+qDK0doIEYO+23BxevHH4awhuk4dwWTmzaSS5e7ckz
NfpFw0msFPjDnIvl5uRU7/tDw9oR/0VeeVzcHKgqOM8h9ljC6/92m4uPqT2n
ung0/KPXu9ptLRf3XGKalQQ0jJ4VM/XNMy52CnPfai+i4aGmxvYtTVw8Lrvv
VuQoBkaLE24vF/d9UOy+SjFgZ3zMYnMPF+/9YdbaK8lAueo1vcbvXBxgcj5J
SYqB6+OfHlD5ysUTx5er2EgzcPH3MssN5P0LonP2B8gwcFd+gk7mEBfvLrud
VSDHwIesSYW1Fjwc5rE5tWkiA5frqcZz7Vw84n9/G0+eAZysbdtmx8O3swzH
aE5hYIGjsmjxVh4+fORXiJ0iA15vhWfOaPGw6sMljfuVGRj/VzB4WIfaOpCu
ysAY60el++N4WPNxYv8tNQbkJj5p+XSQh99UST7oYhjYpN9lNs+bh096C4Mk
pxMWC0IwDzvFX5bW1mQg11U+71wKD49rcwqy1mJg2oxLz+bl8XD25GkNXjoM
uFtkXN5RzcOTZ5r8PqrLQIp6wgHfTPI++XaJ/NkMbD5l2KeewcMuP+aza/UZ
+CVoDfx6jodr+Tufvp7LgDGJdnSHhxUKS2OH5jNw1FrVuuw+D58IQrrjDRng
5m2/0jfMw5TZQMV0YwZIMq8PkR7B7e2LNE1MGCgKaphpKj+CK2Jnh9mbMXCj
4XmMvs4IVs7vrPcwJ88HvIv6bDqCbRsP/DmAGTjAhLdq2Y/g+59kpsRaMLDj
4gubFZ4jeHDKHfX0JQx8bHkwydt3BJc1l6mdX8aAyav7ewzCR3BT05dxVdbk
vpqVPW7HR/A1Oq73vi0Dkj7vn67JHsGXVMuuP1/BwNDV7SkSxSPYJ9gtuGMl
A/Ne/LlUVjmC99hdWvDVgYGNHzfqd9WMYDte5cehVQzM4Uk/j7s/gqevCoke
WcMAEeuDw60juDFcXoNyJudfNOHHs7cjeCY6UjXOhYGselTu92UEb5772nrC
egZu7fK8O+f3CB6PVJ4ruJH377kvrBgZwe7PHFwUNzFANdXGrJDj43UJoe+U
NzNweLrDyYvKfPxoZombqgcDMj1La6Rn8vGh7tZ21W0MBMdaHZxoxsezwkRu
ql4MtBkMLFxmzceZpjM7lHcwIH+3IF7DmY+j3zpsUdzFQCL/zu39e/n4dPHe
XoXdDDzRSdmwPp6P7Q8e8Z3gw8DDseaZa3P5WHT2KEt6HwMaUx5Mjczi4xTa
+wzlR853ZnBgwUU+DvHQm8ffz0D45gS67jofex253Tp8gAF/i8OPs8g6M0sp
ou8gA/k6zdpDZ/l4ZbaW8YcgBtSfupAKTM5b3c5uDSbxfWtuum4aH+NRuvUP
DzNgFaLtVUtY5jQ/qyaMxJeuYXDeGT6+vtDiyIUIBqT1nVs3Z/DxBbdPB3OO
MDCJ3jPtcgofmys+DU6IYuCC4hKTFrK/3uzexMMx5H7LxC/k4xVyyle9j5Hz
VBpz7nbz8e+PNt9dTjDgIE64YT7OCttgtCyegQ0h0uGDMgK8NMDg9NxEBox6
pAf8Jgnwb9lrY1STyf36GrcH0QJssPxOgsQpBlJNNk5VUBXgHd8N9fpPM3BC
xe7eT/K8ZcBQV2sKAwb606QejRZgenZreU0aA8dPjagdJ7xR8XrqPxkMCHLv
hQSNEuAqqYC06CwSn7cDx8gK+Dg5o+/KrhwSX9aJne9+8bHpgv6+lXkMLE5Z
7G9B1vHYtYvn5jOArKQSjeQEOE+Vc3HSWQZaLlo2OugKsIxNqflQIdGX4Lcf
L9kK8FQTy28tRQxkmjdLy7gKsKdfYlX5eZL/319L1XsLcKfjtnMJpQxUVL/c
/zxYgBtlkq96XyD6xq0ycooT4KGa7s/Wlxh4I1X/jRclwHfW6JlpXGagJHKV
bXa4ADuXGl8RVDDQPlOtTLRfgFMONzm0VTIQ+tdgAmzmXTep/Nr/81WA3/Gb
uTFVDNRbXtjZQfjb2SdS7tXE/38FSoBr7wSRGkTOJ1F83pOcLzQ3J0f6FgPb
+68RxRZg7UMs7c46BhJOrutVShJgv7CtbyruMGC7oqdfqkiA7zcfvxZ1j+RH
3hSlimoBVo1aWLfuPgN9Gz77uz4R4M8ler90GhgYCVqTLP2J+NdW15n7kAH2
KJs9Xd0CbOvZ3/OwkYEJN5R9bvcKcD/f4GzqEwbE3ZZylwA3T7iV7PmMAR8f
OwcXwsezl16a30zeLw6PdgGeW3xEIGwh8T3/0UPX1wKsZGR4uPEFA5dmdB/J
eSrAqWvk55x5SeqN7JRPfMKPJr9QcG8j9vT0PpzcLMDWqfqzdd78v74Q/1Dv
An++ZWB/ttV63QEBtkqK511vZ0DcPlULBfhJOO9yaAepZzpXLLSUhVhS92Xu
0g8MHEuTt/01X4h9h5rqx3UR/+r7FIxaJMQznLLUn30i/gxxU9W1EuJtHX3X
knsYKKDzW9SWCvEyY+8op14GrNfr7rVeKMQ2ak/ip35lYLa4XTEW4v4dNc1t
fQxU22vonSFsI/fZPu07A4O/lrtGk+cTaY6Uyw8GnDNOR/rMEeKSR1miqT/J
+X58Pi9nIsTX3UMXvBxkIIldcmYcFuKk1VaFJ4f/r/dC7GicvdbhNwPp27pn
f98pxC0NusvGs4n9f06aN+OkEGt0n/F/wCH6E3liimGakOjF0e5wHslnM76h
a4EQB0llnTHlMyBW2+FzQvw9Kzx2WEDy4eq5oIbzQvzn9cvaUhEDf8MpQ4gf
L2QyL7MQLNdseayTIsTOM/S5caMQyATcu7YsXYhnL9rB3T4a/RdvQjwvTy3L
kkLw9folqjdOiJ/I5nycJoFgnYRow6MEIT7zbmHjH8JCuWURi5OFmDWyyLlZ
EoGEs5xeRbYQy3E5UefHIBB9tz7+sFyIh4XVrpFjERj7+tUtaRHiuufNLeul
EFyd/zGVxxViqdcxP+aPQxCkMfyQkRHhuIl65dLSCGJXJJgVUiL8dpqsYhfh
joeLhsYSHlrkr3FjPAKixvonxonwF8eLLxNlEOwk3f8CSRGOejNG30sWgWbY
3J/tI0Lcy3k4e5Ecgk+xVzmTWSI8bT9+PmkCgokuJpWkE8R3L1bSvYQjJO4n
zmML8T9X/eRvTkTw03HyFwVyPmvDexeSJiHw10wVJQmFODts4Oc2eQTJQ6d2
5cqJcOQJaF+ogCC3nAS0lghv+S3cKzMZwTgiJ5JmIvxA5FfWSVhuedrOkXXk
/Ke6kyumIAg41xwUv1GEd1tmoqipCBZOPClpt1mE05Z0uKxTRGCNNrXNcRFh
CPxlOlMJgdvBYacYNxGetUuzgUd4/Zxov3zy+3N2lYLHygjWxrTLGJPfKwi+
dmSpkPuL3b1BhP2p8d57VBG4EO/WbhJh7km3fPNpCMqmrd9m5i7C0cc1omTV
0L/9pKcImx84q/CesHDzhxvsfSIseULDvoxG8FcOIkR48uVug2AGwZ3is/Zw
SoR9Ds16aIsQUIuJ63JEeJ+OmZSSOrHvRsfO+UUivKrU+XcP4djwJcWrr4hw
Xv7txCvTEbwxD3IpvirCzzbWtIVrIJjiH2y7tZLcpz326UpNBN6DM1kPyPMt
Tbt8VWYgOPo63bKXPO+Unn/vM+FT4nCtFWHZlb71FVoIxNXRspHY57Kif6g2
gttnxAVAhCsWv3puq4PARGfLuf5OER5Q7/8weSaCPvG4+p34wzQrp5OwSnFc
WO6gCI+jNWRKdMl5f71rixgWYaPJd2b6z0LAPRLR20Gx4JzqVbb5bATDxP0J
Y1kw84t5wFg9BJzO5QG7JViQ/ym9sJnw3/SSZUGo/tjodH0EZzLEBYoFunn3
FD3moH/7E/F6g8wG3bkIyOUTSrRYYPSNcRwi/Mr5+5wabRa4SZuyb8xD0Hte
7oayPgtutac6RsxHEFNvnrLYgAXOLw642SxA8OvDj7L3RiyoU5qoOsEAQf2z
yaaX5rEgMzk/7iXh9RHqpRvMWSD5fsflTEMEe4qVevdasoDnlHNsixGxd+sS
g+olLKiXC52ibYwg67iT0gYbFmx9Z7n2O+G/8xFhtrW27eWF6N952ZXcJ8dz
8IAJgrOxMqWBW1lwutvY3tQUwZorY9dHbGGBRmebu5DwTNIuae5kQeSEMK27
ZgjEy+reLAi/6pUftQgB3Z599Z0PC/Y0NbywMUew4VlhVcluFsSqvKsevxiB
0vfoPSf8WOCi8GbdM8JZdeOipAJZoPiHW5KEEYjHteJgFsjWHahcDQh2uJGM
imLBsO5R/8kWCPI9xL9gwdrrbt9eEjY90HNlUSIL+vONlFMtEaRHNHLY6SyQ
+mEjXLcEQbdX1ajcXBa8X9+YobQUwYL28KYJBSwY2DP44zXhwrx3K1QIb/f5
xUtbRuz7M/8SesoCP69xdS5WCMoT7TdyZ4+CTA0vMyVrkh9/G95RoGUM+9oI
H+R4V1iZj4adf55sTLEh+vzc8NTea6NBO9hCYq0tgpxNMx9PtKagp+D5VoXl
RD+Iug5sp8B28tWQFsJ7dVdv2a1OwU5DNYfEFQgSS7Riq5tGg44Rfmdnh+Bv
+RhDQcx4B3XplcSeUn6Od2UoYPmGqzcQ/nLnvWtN/2h49WVM+xF7Es++4ogY
DbtvTlkFDsTe4oZJnoI0fmc4n/DR32FywzMo+B2R5l3liEBL2WR8sAoFxv2+
k/xXITjfofJa14KCkKIcvzmrEcz/fHFG9xIKsrocE/sIY3ED7UZBaHr19sI1
CDbWH/R4tYKCLUmyfHcnBAwpz/X2FCxYG2ynspbsT6ZpNz8K2rGhayth0py4
KB6kIM5v9/QEZwSkee08lk6B9NtVxdbrSP25cDvp5QUKRutP/cZyIfq7kHTY
NRSsGvzad4OwxDTLMxm1FDj6CYr8XBEoLH0/Fl2lQONx+PRZ69G/358qKRB+
LFj/iXDdrEjRhbMUBO1McczcQOqVQ8PWMSUUNH+IkVjjRuoDd8vRn8UUGJwu
CpDeiMBIPLD/Q8HEbM2iO4RrxJ/TrlGwtksvJXAT+re/JfvfVBpaMsed1NdZ
NgumPqVg6r3c8h7C88UDzDAFJ+Z7tmduRhCe6/sRpCSgN3pfw6otCMSnPfaC
2OPigO9YDxLPWTvWqRdSYL1jYvtNwnNrtCeMJ/c5BKwxflsRWPwtkBQEn/4+
oLUNwXNWx+hxxylYmTw64x3heI8bhS+TKJhjsFciyZPoxz2pjy3RFHQtd5+z
1IvE33MyDMdQ8GO/SIVDWH3R24UexL6ddEhD6XYEc4r3pr/ooeBY3ChD9x0I
zlWVfK/posCuqWar/E4Eg23b4g89pGD141dr7hNWS1QujqujoMkoVDJwF4IH
ZJq9fpuCpRnvA3W9iV4e67sQQd5f64guthM+tbq5f0Y8sWesb2HC7v/qVw4F
qhb8TbAHwXTfxMIJ2RSMcfz2dpBw+6/tePVRcn+3ncoFPiRexA4poqD3Y56K
014EYvn5+paCmjk3OyT2Idg9jkz0xN55O3s8rxLOkRF3QGQ9xqrc05f8nj8S
N76Bgk/O425N8UPgay7dVlBO7BO4LvE+YTfSbtuVUVCybb3mgf0IdnX4Hk8g
8ZLiZXZY05/kZ02zW1EyBbl5GhkvCG9msquHSLxmSC8KjjyAgHQ/pEOnwMfv
ApoXgECv6UjNFRIvjiF5xzsJh1R1V63hUcDNN78Rf/A/vRBQ8NH4QplZIFkn
059SIwUBWxU9vxIWTz/vSXyumXG2KyWI6KkjmfAuURDoFDxj6SEEriccRs0l
9gvLrdcbJCz1+ctgcCYFbXFFI9nBRP+vb9xx8RTJ70MrEpeHEH3N17jBJ/6P
z2v78ofwP9uv9O0n8fVQZr9UwWEEbateSqxiU+BftPSHfSgi/3d6UNdEgcW8
/Rk8wnrfd8bUnSPxs2SG7LkwBIsmS/KWkv3DV0dYrQpHoDG/rCs+joKD5y9Y
8Qkv2CNqXE72F/k0yxZFkP1uedqnRlGgVTAha1Ukgi4Nj+WaxF7SKHlwhLBJ
aldJBbnfxIxDcueOILCpO6y2kPh7St7gkMNRBB6c2DT5Y8T+maq5XMK+4gaF
xLtMi5pCQRSCFys9JroEUdDoruZgF43+m/eIfSzxmt+Ey4VNW26FUGDpUMzk
xJD6PEnZeZDkR73x4UqrWASBhwpnL8miIOpY16QBwuLPJ8vI+VkX+capxxDI
ixsY8nxH34AWPo7gr7vIeZDHh47PhMuctfirw0h+yA+5J5wg+RrZ1ZAWTEHV
K5sSwziih/omP04nkPzdLnWrnXDDTNOTj8nzr12dMo/EI0iL/qjhQfLZDjla
6iYgWEGmk1fEXvelmSvNhEuW+ESr7iP+suruD0gk/bt6j/bLUAoKO+8OTUtC
sFrsvghin1vv79xN+n89pUC5dN2GHcno3+/VJJ/uLF9TJ3sSwZCMCk+brN9S
H+6vILxaurr2rC8Fb0669q47Rey7cLjUhNivqLO4lE/4mZHxOe3d5D46lNk/
p0l8brl1k0XuV7vn+JllZxCI5fAw0aeK+M01XwmnGYi/uFIgZ11UFp+CQJx+
YyMp+B/JnSix
                   "]]}, {
                  Hue[0.9060679774997897, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJxNmGlcTe3Xxw8NksoQmrT3TkmljA2UrKVoQJRGRDRJpkoipSIpNAgJDUiJ
MiRTNJBZbhoMSak0iNyVos58znOd7v+Lpzd9vufaZ59rr/Vbv7WureW9c7Xf
SBaLlTyCxZL8n/qo6T53B4Vq0m5KRsX9wC386BsbTKHb+cLrn1sGIPf1pbAx
oRTmLL33R+jyF2bjyr7UMApDjiZ3DJwfhFrvzzWTwyk88/h6aXjBEBx+sFjz
XASFUsX1pbCBDenyhz9pRFGIqnt7LZvYIPLJEmXEUDjw1tTs8nQOXNOJTFeP
pfDcL+O61eEcuCujfCk9jsLSqModn+9xYJ32Km3lBAoVRs6In9zAATlZdfWk
oxQmTjI5c/gbBzQK1xyRSaIwzS/BZ30TBwqTfodEplBYJVRaeqCCA1Nvln/u
T6XwOVMUEpDKgZfnM8v8TlE49cgGm1ueHNCL92M+n6awZvqAzk91Duww7JGx
P0vh3BRB5eM/bDgpkt5ZkkFhw1mrLpMhNhyeErFeN5vC1gfsoNf9bDBar/7+
xAUK9+UZWk/5xQZP94JaYQ6FZbfDGuO+s+HSlr61m/MoHHzw5aiwkw2TnxQE
VedTOHx5Gxt++52baFpA4Q3flzZMMxt0FoTbZVyjsHOArtvZwoZmGbGi+AaF
qR+vZ58k662xrf6bblHomfJkUI/E85NXtcuT2xT+nGE3b/JbNiRa7WvQukfh
JYuELP2/bFD+nDgUXULhW9mzvh2GHHj36eb1pocU1rWzTYUNbNgme4Q1v5xC
h2WL76ffYUO1Tenv1EcUaobMa4qpZkPj6e/R3ZUU7hln4fxjIQeMNa7cXPyM
Qli95LBrGRs6dc4dSH9B4T9LI6f7l7OBa+bC/vWKwp228432OnFANH7rBHhD
YeWxioPG7WwIKgr6cPwthXKnHB48KWWDpvvfRd+qyf3anxw4TvYXePqg8+w6
8jz727dWEz7ulKcc9YFCs+CQR9a1bKh81h5T9YnCA6ObHmYQ/Sw89iRzUgOF
ji1z8994c8At72mAVyP5fcVtaRtJfvyj/L/nf6Vw+VsqQEaWAwUD01X6Wkj8
rl2pNE7kgLrrQYFxG4VH6ppbxyhzQGd3T3p4B4UWSXdcmpU44JPb3F32nUKl
Se0ChyscMCl7NST6QaGw8vGuvk0c8NCeUg6/iL5S5uwx0uKA13sbiO6h0Ckh
xvpKHQcMN9yJKu8j9ZDW3zfvBgcc/ryN5PUTvfVMS6o158BqP5656V8Kh9K/
noyP44DSrOyHQUMUXlwm2TAXavZqCK9ySL2Mkqouj+fAEc06qTYehRVlLP4P
Fw503qRrVIUUHjvy9uVdLS64RHv5rBRT6GKy+MN+FhdGZ3VXHBxB452R1m73
93Ggu1Wl464UjZjbUqGUyYGdvRYfumRobG38uxlWcyFswdXjqnI0frvTutSr
kgPjxhSp28nTuIN3m9bP4cC8w9m7whRoXEjkFbqBC9uuPc68pESjTu+tvxfH
cCHae2N69Tga/07KVTt2mQP80Oe+vAk0jq39oeS9mQuPM01kdSbRSHFjD3SR
7++P/Ru5QoXGi4fO3ovuJPX8yrpqlxqNMpdOmI94S+pTyqfvrAaNZe7XV3Dy
uKDzJqWnQpPGV3XxM6/s5EJDicyLNprGs+/95tzicuDEVlG4zFQaC/dq/3l1
nsQj6Zb8dB0aY/oV1Hn5JB71LuG2ujTOe3Zr5g5tLmRNnPLSX4/GdDfrNuoN
FybqLxg8ZEDjEpUP9//5yYUTE5qkcwxp/GlNPljBBY/euezymTRKjT5K++zg
Qrlgy9vPs2n0UuhcUirPA+W8woSBuTTuPqkq7ZbMhWPhjMEYExq/nskuehbL
BSmLvuKpZjQaJBpJL9DjQVPTQp0FC2jkJN20vJ3LheIEw+iVFjSae4i7Zrdw
QS2n5Zm3JY2PF5nv7pzHA/uq3UO7gcYzKhvprIdceN6uMClhMY31l4Is5d15
0D+pUuusNY2GH85915zOg2s11zSvLqXRekHtDasqLlRX/xhdYkujyvmRGxfG
8uAeldj13J7k49m7ieazeHBT49r9uuU0qj9exyzu58KOCM+IZgcaU+V9xixO
5sH2FTfn/VxFY5VZY9MZigcreHe+DTjR2LJtl88+Kx5MdYo8zHcmevjU5sxK
5EFVzARtKTcahQ56Sx5r8UCfiS0Z7UHjifCOsbLZPNg4+7Pt2LU0sl7MC/hx
ngdjGPU6ZU9yv8vAT53KA693qzxUNtA4yqo4ZnQTD9yToxrVNtK47texQ/cy
efBav8BTw5vGw5Y9v+s7eLCv40OThi+Nb29+Z1WS9RnRYk8Nfxqf+hZsdFnN
gwxz/Wa1AJLvXfo3DPg8OPxl1SaVQBoz8807/Et4cOrKzi7lbTQOh6uaByv3
xAaP3UHjzsHMvxX9PBDnHmLJB9HoOtvgqnIND05TW9OkQuj/+SUPIr2N5gh2
ketnbUn8VMsD/9jHH/7spnHmgt5TSp94QM9QPdC9h+TjeOwE/y88cMjSNWsN
p3Gx3eTZBxrJfh82sT9E0Dh3/rINWe08gBEGz17tp//X73igcEqQWRpNY05m
gLtWJw/uz18ce/0AjbbDBs2D657te7JjaSTd+sPenzywVHkbkRxH4wFp4lBs
HhgZdqXsj6dRVSKfAR4sV1K7u/UIjQUHneyzWHwY/Gb3r8cxGts8VO7XEs6M
Xme6NInG6St79+jJ82FJmPGp2Sk0Sqr7tjK5XvGerEYqqdcdX986a/LBeFll
svRJGk9VOg10T+FDwL8mRj2naLzQ6r1UUZcPVmEDbR9O0+he7KM9bhYfKMMP
RaVnaDxP28ilmPJhvcr99IvnaMyq/zytwIwPJXJhZw5nkvgODxR8SD3XfTsw
m8Zml9wnn634YD6vp9vhAo1LDyxKnW7PBxjlumh2Do0vmu4einTkwwUNzo3x
uTRK7p7swQcFu0LLgTziXxe2VU3awIfJC6x+1ebTSIpx0+XtfPALSSkpukpj
kVRXoh7hFkffy8mFNPruLuzK3cOHKoXUu1uv0+i2/8Y972g+DJR2fLe9Sfb7
cGBNdjwfKp2NLLRv0dhje/RV0VE+uBWa3RYW08iLCiwLPcmH0/urV9XfodH7
T/D2K2f4YLH10fiiezROFQ7tbs3kQ6OghhtfQmPDO7Zzex4ffuX+I+f1kMag
Wzmy74v4UF4ZTnoQjSKSXd1bfIg6n50tX0Ej33P7c1ExH6bvY01veUT8aPG5
WwEP+RAS7dNQXEn0P6hHRgY+PK85ei/uKY1bNxZKH3vKB424+Y/cn9NY2mO1
K+sFH74XGP3Ve0mjkRb9d9snkl97AzfuK+JnYUSRzXyw9+vpfFVFo0SN2m18
6BEY56b/Q6PLi0fVJb/5UDO2ItXvHamfaGX58YSPZi25ObeG+Jms7809Yj7M
vhIrFNXSuNnw3LuVsgJQNTXZX/We+EmrXvhuJQGkO0+YlfaR+N1eWUWhsgBe
T3yv7FVP8ndqSNZLVQC26TMN9RpIPVyUFIAAWqQa9/7+QuN70r5P6gvA5ngS
734T8cdZs4hlCuCfGN6tqGYaR+SaBoeAAGQMPp5f0kqj2bDBCSB4oPrZ6DYa
yTBmqo4CmOaSqfWuncbtV1S7dloJwLe5+15qJ40zAmcrPrUVwFKzrXEuXaSf
eW+Wz3IXgJ3mP0mTf9L4pnH8yjEbBNATUFpT303/N595knWl7yvP/EujRdC7
hDqynkJx5Dx6aZz9uymixFcABa8zxZN/Ez/oMgk7EiiA+15R8z72k/7JKXeI
DhPA8dU2eSf+kPgv9L8wN0oAjmZZrqsGaUxYnmyRFyuA2pcGS8ewiX/laD8Q
xAtAuyMt9AWHRvusGN0nhwXELw51xPBoLMGDbS/PCCBcLjPNXED0YPvslF2O
AP7NjEn4I6SxUuxW7HNJAEOfP5YXimmUcw0cwkIBvJlPZ9xiMfimYsZB8XUB
uE2byU0cwWB0g2W4xxUBGC4M4G4eyeBqUu1SxQKYc0Ez00qKQVbi5pqaRyT+
itnfpkgzqFtwX/ZelQDSGudXDRGu9cxPPU2YxV/oViPD4J1Oz6OFhJW4nLir
sgx6zh93QuYfAfwRPVxzcBSDasOGJIBHdTW1a+UY3LTKQmDSIAC5z/G9c0cz
SIbR1PAOASSOMyqSl2eQcjTtlO8TwJcpiipthIuXu+xU/FcAAwtDtR+MYVBa
a81j6V4B/HC88TFFgcGLjcvVLw0KIK5Bdqa/IoMezzXO2ooE0MV5ZbhQiUFm
Q/2sz4pCmLIL6saPZdBM2JAycbwQnty4Q3UR7u5yWGqgIISLd0MmlI1jsGh+
JvfjFCHYmjy9fnw8gz+GTrwI0BRCVnTfb98JDM6cIvd6pK4QDh7DpvnKDB5r
jZ7RMEcImwZFOxUmMjhLMtCZCOGFOORaC2GJu4bME8LAyY7U4kkMkmGQKEAI
26wymLjJDEqqydZeCGesmz3cVRisX1HR8N1GCLj3r7m+KoMfZviREAphRqDO
Sx5hSfdaQvjyijvCN2oMNlhJGpIQlIU/mzPVSb7/tPZeWy+EUKkxW7drMHjd
WF/m6wYhcE945lhOYbBthJ/zjSAhHD6qHaeoyWAi6cbLg4VguTtX+SvhpYOf
HrsdEYLMMe2V1yiSf0lCjgph4q0O4wiawdSMb7KRUULYsW/GK3uGwQBJwuOE
EKRnIaeqRfJxMfrgsTQhOBW6DXYSJtOH0rIzQriQ8zjl9lQGS24Sg74ihHfr
S+tjtBmcc0q5xyCXPE9TwlsHHQY/plUPLCwRQm11YLD6NAaJWE3elgrB5WzO
0++E/5ufhKDoEPysWJdBRzXxovYnJD63VEKjpjMoqY70WiEUL/pUZ6/HoOma
S1QO4T6tntaJ+gw+kpRDB8mHeWZ2C+Hh+bZLCKMpbYUCAwYl8l3RKgTTiZX6
oTMYXGbz7kn2ENmfxl22pSHRM3EXrZEi0P9hGTbKiMGpq07cOCsQQk772bwa
wh6ScVckhKiZow6fncmgpPxFQiEYXHiq4j2LwYrZZw1UJ4kg6qXCOoPZDG6z
fj4/WlkEpr9oxwHC5apVR8LIuqe8OfvBHAZD6/gv6ikRVDSlOx6Yy+CDhL5n
11RE4PZ+t6fdPAZHvVNz+qIhgkeq4zTGGpN6CslZHzdRBBmpOYkfCftJxqfp
IpD5GnArw4TB9w7e4zwWiIDnkn1kkynz3/nRWATPlKImTTdjMP6R7tYP1iLw
abRy/ZfwJ8nx1UwEbNvp9rfmE/23Wcz5tVQEBtl+/bsXMEiqccdXBxGc6jBb
aW7OoMQumzeKQLul3ktEOCVv7HpHLxEcHBut+8SCwcDm4KPJviKIueufE7eQ
1Kf+1KcGG0SwvfrleztLBqf85m46FCSCBPXGh2MWMajNaVkWtk0EHsoN7u8I
+1q0rEpKF4HKELfgODB4rYoYXLQIFB/tvrMaGfxG2lHyARH8MTgUOnExgy/H
b+3XjxGB633PXx8Jy+3Z3HPvmAh6ckzV0q0YVFE65DvipAjkeu1E7tbMf+dJ
wl/XVp1TXcLgJM3XnZArgr7t/b2fCcvHyc0/VCCCzTv+8s4sZdDk7rbrs06I
IMR/9CMPGwbTNgbP/1NI4q/tb6Fqy6CVtVhahbCuGQbVE9a/vVhX7YEItgz9
s/60HakH2XvLikpEMD1isbSrPYNlp4+P3XdPBJ2X6nyUlzFoXbWqYP9DEdhP
vBtZS9i18kruysfk+yaaq1KWE33qSxxKBHqm0LhiBYM3p3XEZr8VQfyYVVry
DgxqGLzgZtSIgBUco/WSsMyxp2e9yPqnH7JNsSsZlBz3a+tFsK1skhOuYvCC
0G682icRnBG0xAgIP/43e6HhBxEMHjiztcSR9A+HT1fif4jArCd4fKgTqbe1
kfIx/SKIzM8OmbWawWkeU94JukWQ2eaY0v3/OOrsw815zgxaju1996VHBJuO
Kwq8XBgsJePXKLYI5rlGrFB3ZVCi/tUiETSByZoPhLljf96/KSWGxJBtU5Pd
iH5y8wbCpMUg/8Xpiq07g6+D80OLyPUjZ07+xfJgcNhOBCJw6v/Z/YCwZNo8
Tr7vGCLMD1nDoI3kdYeqGLTfxEydsZbBuZabjoyaKAbRt0tr2wl3RsXnIC2G
8C2nHTPWMfgn2TlUR0UMNa3x0s6exJ+6AmcMETY+lR8mv57BEUO1V2eQ68dl
6eRXEr65J7rM3UgMrm1Gp/duYLAx7rt5krEYylQHrGd5Mbi8W9p4vKkYJj89
X9RJWHbQaNdDQzEcm+vXlLGR6HWmU7nJbDF0HQ566bSJwfHOkjdeYmi60Rc8
ypvsd62tq/ISMdgGjGsqIxwnsW9XMexDlmyID4N/1UuXDLqJIeLUv326vkRP
oZIDrRgcUkeeayQ83A7XiWGW8U7p434MApm+61eIoW2Z16wl/gzqEapYI4be
XWJ1DuFX3W7V9jvF0EJFvizcTPy8d63VogAxHEkcYeIVwGDBjPOd4UFiWFFd
6jNhy//yu10Mq998cn5O+L95WwzVplEyewNJ/5vDRJRHiGHJua97DbYyeHAX
mRAPi6HckbnRRDhpX4LNnuMkngnBecnbSL8ZOBl4PlkMGosFG3A7g8FSiyCR
rMs6/vrST3jY3rPI83tuUbu0gzzf8lejLDNI/L5dUHfZSfzknSBQiVxfOqus
WTqIwZBhQYnhwpZOv7uEa0+TA2UBWY+3KfILZlBneKARQ7vb6IpJIQzm/7Cb
Kb5I4rPXPeU54T2crcU25WIo8F2rs3sX6U/YcGpGmRhO+1vs1wllUNBeHug3
koXnL2ife09Y8vZmJU8M5+QXRhzcTfy/UkXXWYaFO0KuM3PCGOxiVU6xFBF9
Rl442kJ4+HWuJgu5OZYPkvYwSNRQ5Eru983s+jWLvQxuuVqm+c2YhWE+Kn4/
Caftd5cWa7DQeVpu2+lw0s8fbB3NZVi41yVi2pJ9DE7mv+l9bc3C6PPPjPoJ
x529F+03jYX1ifn8rAjmf/MyCwf3LU9ZFkn0pubWb6PLwqQL9T+GCLs27Fn6
G1j4SmGX3KX9DI7R0YtKXMDC0PwlvSujGFz3Lq+kwJCFi+fsOscjfD74G9q5
sbDXepri5WgG5+W/8faex8KY1QdsnGLIPKQjeyCN7GfP1es2AsLDx+lFLBTv
qFHMP0Dmnf2s1RnzWah7aWym00EGnSUv3JxYKM+k9vMJe+m/GffSnIXjzu1T
uhxL/CcyfMQQWZ90oX9g1SEGlf50yny2JfHP0DjPJfzk6xpyRGKhQq2m8qU4
4g+z3w/d3MbCKi/NVSsOM7jA22iRDJL4WIHzIOE7RfmaorUstFp1hc6OJ/1+
2JBY+Mxs/x2bBNJf174va3dhYdyRtvF9hNt+phUrBLOQdUNgln6EzK+TAx3+
rGRhc3efLhxlsO4FaUBbWMh4tzZ/Jzx8PiPxWT1hwCv5GNGHpP0vY2HJJ7sC
k0QGOQlnJtiHsjBis1xFE2GF7nXfQ9ew8PMal4zYJDIffl34UWsPC1cwjlYG
yQyevHrQyX49C5/L07drCPsP/5F82XT0hKWQ/rAhywfDWJjX8mRgynEGRX7s
jk2bSHwqvlY+ITzq92Q7x0gWqhW6rwtIZXCRZ0iTPrlf5TLnR4onyHz1ZEXj
oxAWVmj96Skm/HCltlEa+f2GE2u63E8y2GQjtXeMLwvzW64UCghfbZC6/vg4
eR49KYuLpxicnvBwLAaysHz70bSlaaS+oiUnKBYWJ20s/Zn2P33sYqGSbf61
pNNkXgha+ztnJwv/D7+vgdY=
                   "]]}, {
                  Hue[0.1421359549995791, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{0, Small, Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJw1mHk8VV8Xxk+FX6QRmXLOMVSINEmo1lJCIyIaFJlCUYTIGNFkSGXIVFEp
VBqkUqRJaTCEJlGSRuRyr3sv8e5bvf7x+X72Ofuuvfd6nrX2UXXevtptOEVR
CcMoSvRfrbypROBDo90Y3StZXV9AUNDgGu1L4x2q/2t98nc4/SQ3cJQ/jZVZ
dRVC6IAZuKorKZBGo29hn7ZWd0Kt8+uaicE02osNbXiS8Atib5qopIfQ+Fzi
uGtbYTekSsU2KofTuMA013i/CgcGXbIGMyJpfOll0eTiyYFCjdBUpWgaX1QW
n3LO5ECxuExuagyNGs7LNGqfcmCDuqW6zH4SzydZlSefOTBSQkkp/iCNnvoa
nZd7OaBcsO6AeDyNSaZ6uWs7OVAQ/8svNJFGnrPm1LcNHFC7dOd1dxKNZc2/
uzcVc6DyROZtt2M0in2J0+yI54DmPjf2dQqNT46e3jrFkQM+Oh3iS4/TGC0f
Ju5pxoGjg2Lbb2TQmLMx5tgJWw7ETgrZOCWbxluy9slh9hzQ3aj08shJGqMe
fnx2yZ0DDvb5tb9zaOwPtkmScuFArmfX+i1naOzYY+f02IsDE+/l76jOozEt
t7LLezcHfrmly87Np9FkzLI0zxAOaBgGW2QU0nj5oMGsxFAONIsPjR66SGOh
Ic4wT+TAh+gP7psv08iUl3yrDudAo2O17b2rNI5I7u6aPZ0DcYt2v1G9TuPN
yrp9089xQOZ1HC/iBo2LpigajiLzv2i8dKHpFo1Bzo2HTk3iwDaJA9S8OzSa
TQ4Ynr6fA9Vmpb+Sysn+Utv3iC3hwLuU9ojvFTT6CK8yWjkcmKN87pLJAxqd
ipSv6y7jwGeN9D2pj2jcYuq5/Zc4BwQGtn0/Hv/jGHLe47dOgKc05n776bpD
lgM7inbUH35OY7WOpJXNcg6o2Pcu/FhN46l3y5VyAzjglRJlM6OO5KNbi1zF
UDcctj4jE15P44xsk8VDezlQ8eBTZFUjje1wuqUsgQPzD93LlHtDo0z4+RMG
yRywO3Pfw/Edjaf3SxcE5XLAPdy9Pe89jV8r3q8r9eZAPmeqfFcLOe8issFj
e0BpTdTAnFYas9O4JGN6QCOgIzW4jUZ30V87B1xON3+/3U7jtj8B94D+7ce8
wa80ftA9fJI/swfWqk+6Az9ozLrFWZe9rwccX5pBRAeNCRK/JlpY9YDOpmvh
d7pIPsA+AWd4D6zseR4q7KaRLT5wtD+rB1a7CY3m9tLYdCsjz8i1B8boZd/a
waNxiXacrphhD9QEKf8+zyf7Ue+kFJvYAwdU6ka0Cml8yBb5eST1wOdLTI3C
b3L+i+1Kdr/oAdsIR5dVQzQS9en8/NYDklnfy6KGMaibXKKeObEXvn+Qbyse
wWDCsDc/3jO9sL3TuP6LOIPvn9uo+M3uhUDD84cVRjKo/UdQvTBuVJGShRSD
9VEiQfTC7NjsnYHSDH6hKiYtCO+FbYV3M3PHMPhm15Jf5cm9EOHslFo9jsy/
9pDlsKJe6Pd/6CqcwCDln6and7cX7mbqS2jIMfhu9vLh9fW9EBbdG7pCnsH7
L6e5Kbb2gvLjxVU7FRkM/B31vqijFzRHuHQdV2ZQ58Tn4B19vaDxNLGjTIXB
F/nVDXY/e+HNDfFHrQyDC6be2R5Knj+ydTBYXI3BVxM4JtXtvWAbf1lqqgaD
ja02VNyXXpB8ZRtsPoXBhivFZRZfeyFLdlKluyaDd4wqI39ye0FWy5C7V5vB
s1IiRXDhyIQmsRwdBj2e3pS1l+PC2s5ZfXemMzh3/p3VKapcuDPg+fz1DAZn
vuRdKpzDBZkzBfs5sxj8Vp9czZnPhUPBrPYofQZX36BjflhzYYRx1xU1AwZF
8sv04EJT03wNQ0MGgzeWOxls48KV/ToRq4wZXM+9+fZgGBcUc1oeOC9g8Jlm
yob18VxYWhXACwAG52RlSScc4cLDT9Jy+00YjK81yk8/yYVuuQrV44sZjJ3X
+ND7GhcKawpVzi9hkIjxiW0FF6qrv0reMGew/emoosQXXLhOx315uJTBDu3T
A6ffcuGScmFJ3XIGV26ZGp3bxgWfEIeQ5pUMHrJV2DCSwwXvFZdmf7NkcFOW
C/KEXFghvPaRY83g5m2qj00keaBmHRrbb8P80zsPqiInqI+wI/m1qU7hgjoP
tNjoG5JryXnY/dQrncoDpxmvzceuZ1DG9P1/rD4PRrFKdTIODBo66y4URx44
vrBcK7+JQdmrm6Q/m/LAPiH8naITg76JZ8ZutOLBE618B2VnBneVnVDS28iD
3W31TcquDF76If8z1psH0yKGHJTdGbSYOGPPhl08yDDSalb0YDAp46NEaDgP
Yt9abpb3YlCaGW+jdoAHx85t/yKzjcFRfwyRB6t2RfuO9WGwdOrYUcVneTB0
ei8ltYNBf62L2v0XeZBCb00e4cegw5OEeLzNg1Bn3ZkDO8l6NST2JN/ngXv0
3fqeAAZtajomx9fygJmmsOf7LqKH1RnzbrbwYGXWFIMPwQxuuN4oL9lB4r3V
1FcfQvLXukHMuo8HMEz7weMwBuN6DE6NG9YH0scGMksjGPwU/0w9YkYflMwz
ib6wh8Gfc+pWBxv3wQWHT7uyoxmMLMGoVvM+WCD/PCQhhsQTcqPthk0f6Op8
SQzbx6BToCU90asPlo9RLN56gMHXe3aaHQvsA+5Hi59rDzFodown4ZjWB5kR
G+YuiWcQ+5PUZhX2gWngnGMzEpl/fkOeH31dQjmJQfspA6uhqw/mLKtIEDvK
4LV1JIGl+ODxU1+34xiDJvVh1GplPiwK5LTWpzCoMSrt7gVjPtA69UWlacSf
Nvw4tHcuHzbKl6SeSmdw5BovHk7jw42RgWmxmQy6DZO5EWDAh6T071e9ssl5
ftwte9GcD0azO76vPMngIqfPNWob+AD/rVk4I4fBgMBZ85Zt4sNJZf7F8acZ
vCrtW3iIjEtbFCzgnGEwbYVc3DIvPkw0XPSjNo9BvbsLjQLc+ODml3ij6Dw5
fxJeaTAfWqxczyYUMJinJvdoYhQfqqSTirdeYPDg0X6Vg4Q5pW3t5pfIeovy
VAbT+VBho2usfpnBo+ejrJdm8cGuwODq7ysMiqpF+0U+pIRVW766RvSq2TG6
rIgPxlvLxxddJ/GJ0ruUD+8GagT7bpDn3XXSX7zgw4/Tz0Y63iL6fNmdtqeK
D3cqgkkNYvCxtO2j8mo+hJ/IzpYqYzCi2fb0vdd8mLqbmtpSzmBouILq/Ld8
8ItweXOlgsT7nDRYrXx4WHPwesx9BtXHiRTCB+WYeeX2DxkUdTf9vXxoz9ft
1axksGveEnM/AR+4S7XtBI+JntYf/7X8Nx+WunV8flzF4K+8R8sNJAXQMTDn
dOozBh+M/Fj7aLwAasaWJbm9YHBs54u33vICOJhlemlWDYPgbxL2dJIAZpyL
/j1Yy2BJhNuZpVoCUJirH1b1kpzf4iEx+WkCSLWZoJfcwCB372Taaq4Ansi+
lHF8xfzrxwRgnjpdR/MNg4PTpq1cZiKAlhHvgn69ZVD1+0Lq/EoBmB2OF5Y0
kXiOWeSkWgvgWaTwcngzgxvzklKqNghAXLvhhOkHcp4OHzdOdxaAL6f6gWQr
g7Vq7wThXgKYbJup+uITgy5LRp/dHCQA1+bv15M+k3qhanB/NOElBltjbL8w
GHTN98H6UAFYqDyLn/iNQVt9kuGRZD88SmtefWcwOcpHzzOOjI9pX5X2k0GF
KTbiuUcEkEjzR67tZDBFNSHAN0MA+U8yhyb++qcPwiWO4bMbuhkcH9/JBp4V
wOHVZmeO9JB8UhCzG3NBAFYGWWssuSQ/i88GV54XQG2l9pJRfUSPYWqWRy4K
QL0t2f8Rn8G1htceB5YJiF/sbYsUkvmIu216JIDgkZnJRgMMHs8uejCiSgA/
MyP39/xmcJyxzdfbZJz3uuFOwRCDZ+5UyE95KYCn85iMyxSLpabcxruNArCb
PF0QN4xFAcnmyW0C0JnvIdgynMXrPb/rg74JYOZJlcxFI1i8kJsvmdNJ9n90
9sdJYiz2PGak5/cJIPndvCoe4QTjM9HcIQFQ/fPtasRZDFYXPSGEMQJ+zHkJ
FknxaTCUEELP4K11Uf+xOHnjbIG7shDK62pq149kUdP0rqqtlhBGvt7XOUuS
xYB1K7YtnC6EuHG6RVJSLG6TFJzcMlsIbyeNlm8l7NXsezDBVQic+f7qN0ex
OEoLzvM8hfDV6mJDojSLvR86C98HCiHmjcR099H/4vcRwhf+Y535Y1j8b2T7
1+4QIUzaCXXjx7J/+9MIIdy7eI3+QpiY1QzXACGcKvabcHsci5NeDHiNOSwE
c/37Fw6PZ3HHD5/s74SzIrp+uU5g8VNlWmkK4ahD2DRPhsUUyfL66gwhbOYO
bpeWZVHULf7MFcKjIb/CFsLVqyTMnxSQ+I+2JV2RY9FqGOmI7wth26IMNmYi
i1pXTaYo3hRC2uLmtfbyLJJuWO58kRAwqNdIS4HFxVWW+WG3hDDNS6NSSFiT
o/Et/YkQzq649vupIosdrjuO3SbjMr+/NWcqsTi9atvhpY+E4D9i1FZvZRbJ
bn0LeiYEwRGHnAWTWPzTHjQIIfagesxoFRbnkeq0r0YICwJOy7wn/Kc+ExY/
pL6qkGaRNel2efZeCLKX2+aEMCx+c/p94v6AEHx2T3u8lGXRUePaZwepftih
aTxSQZVF88KHeZRCP1gX2HE/E/5jJ0r9cDLnbuJVNRYnihoU9X54sbH0VaQ6
iyL3lNLqh7NN+5+v1GDRxbnH11uzH2qrvXyVJpP49mrrh7D9YHs853474T/L
N+iH0St9H1yZwuLpM5zAvTb9MO2yvH/4VBbX/Wmg+uHKwsa6pZosvn49Ob8k
th+6VDs+yGqx2Dhk+Cw1tR84RpnZLYRF7nj7fD9I0urS+doshvRVhjRU9cNc
2Qot/2nsX71qDcBZ5eK+BToslluIOsrfoPV1QeB/uiyu6tylKeU/CDmfjp+p
Idxc5G3tHj0E4dP/iz0+nehv87ucZ2YUap+8L++sx6KimOjGTmF4pfQG7Rkk
vlJoLkihcO4PxopD+M2iw9ETplDoIGXUd3Mmi1UHAuVWhw9BWVOq1Z5ZLDqX
3ab6PYbA7mWAg8VsFnVEdloyBOUK45THzmH/+h1/CDKScuIaCCeI2o0ZFIq/
97icoc/i7hb+29nLKRTaZh/YPJdF+e4scoOi8MGYcLmpBixaPts985gNhS7v
Fq35SbiVXs7ccqKwz3zq0svz2L/1cSNZT7Zbd4Ahi1+b70+uJHyszWCVkRGL
c9fl0jnWFKq3vHIcJHxjrXW051oKo8ZGTLlnzKJFeZjKvC0URha758TMJ+9H
CVMMsyj0rq58abGArFeu+bNaGYX7ld7dGrWQRW+7sIvXWylcK/PG/gVhtd+8
gA9NFMrzBPmHgcUP73q3QB2Fo8sDrq1GFvVECyqmsEd7r7+sCYuyX2WCj1yj
cE2Jw48GwkGdCxz8MinsyJmrmLqIxdj1L29/OkbhyE6LQfvFLE4VHehBCt+v
r0pXMGWxgnQT+dEUdnl3d74mPL7lwDq9WAq3+PQK05aQ+dU+jMsn7/u5S5av
NSPxiQRE1pOh7m6sYM7in3R6QOEUA9zxivACnfr09vcUevKebUyxYNEnVvmX
4COFU0NMxNYsZf/W5ycUfs6tc5FZxqKx6HpzkcKlssWhtYSL5mUKGkj8nvoq
lonLWXSPXjHLj+SP5lx4t2IF8acd7fY7IyncN8pSVWoli2Ggv+nWAQop30jV
SsJy211pAVlP41eJpuhVLLoR+zDaR+G223LWaEn8Im4c7U3mTxtoiRwgTIqf
0bDnFHL3pG29YUXya6FKouJXCg06fMf7W5N4Rog+yFAYmpftp7eaxWedT+4v
IpzZapX4nXDhYc5RrxaS78dvbTljQ877TaHQ4QKFmw+PHnC0ZbFmqkjRFM5e
E7JCaQ2LNxV97n4h8TSB/rp6wn/uY6EUxvltU0uwY//2zzsolHprfc7cnsVB
pw83+wgPnz7xB7WW1JOiwerN4RRad3/7fpNw1QfN4IAECq38fuf5rWNxyYQ7
cc43SX4+jVSbtp745cM1bi0NFA5+zF3/iXDfMAvv1jYKgz1TrDI2sKiQXC/p
QfKv5sM+MRsHFkXXW+9aCuccywuU2kjq05v1xAIpHJelkVdBeL2rcYtlPMm3
Vt2UoE3E7+NTfSaQ/b6twFms50jy2TC1Nd+Pwon3TxR9Jizs+HHX0IXCQ7Pc
mjKcWLRfTBTnSOGX2B2V1ptZ3Dpm3LNaMt50scv3P2cWD85fesudvG/uMa7p
NuHPGd4+KxIp3I2UhJ8L+f3RB0J07lAYcuxn1xRXFiX0hFJ1zyhcmTQ8/R3h
P9cXkm96c7aLHXZjkfqkOKe3msLWZY56pu4s5l0MTflSQWHnziElPuE//VcG
hS10aGXBFrK/j5/vGEH290DcMH1HDxY9xGMLfQIoXFFd6jLBk0X/TS6p5zZR
uPppo81DwtrnZWpMif6r54aLB3mReLQ/tWxxoNA0/X2Q9lZSLw/6Dk6xpfCO
FXuxiXBQrf1h921kP/f7nknY9v96TKGyycAm9Cb9gei6epVCCasfb7sJz387
z1mX+MVuB0/FXJ9/er1P9u/jSSXb7SxeudWws66UwlK9281iO0g++7x/bkP0
edLzs1sx4Q97F4lNiiLj+8yK3HyJ/5Hb1cqdFH6ykyyT8yPzy4oLTcl6WoPs
Ex8SjrJzevzdjsJ81/UaATtZjJz25vJ4CwpT3I3DNPxZJN1y5nTirydOqqe/
JGzrr5E6ZEVhutT8kKgAFpXOxUWc8KXQx+8COzOQ/Xv/JfFYhZ482EK4mpTL
9AIKBTkLbsbvYjEmtObqOuJnHw0uFBoHkX7BIfEe9xyFgS7ybt8Ii76mnjpE
oc3k060pwSzaXPw1XZ7MH2QbMtl0N4v3Sx0e7CL+HnHigW434T/fV9dQ+Cou
rz8rhPi7uvMyDeLX3N3LE5eFEn/4NLBS05TC+JOvvvII7+JvvWK2gCL3lp0j
c8PYv/fDZRT655l2rgon/iJqX9dRaDJzZ7qQ8GlR+0jyvXPx5NFnI4hffPGa
xkslfr96j5l1JItHgtvGSmRTuOv8BbMBwk4FYofuH6dwyKdmdN4eki+PBBlW
+4lf5o7NtI5iMUnHaXiJD9E7m9TdT5hUA+cI8nvj0nePORvN4lUt+6BUst9y
J7s5lntZpJX3BG0Esv8ZyicEhNPknZgsIwqla1VkcmNYzJ924nMwqYdVjiqW
K2JJvv45MLI/i8CGS1gkl7glFC6yPMdk7yP9pag9dif10SDsmtl+4j/7i/my
xF9jDrSO7yKcsf56o7zIXy8OGKQeYNHg7FSdbjLe/L1rChxkUfT5KTmMQtb5
Q3M74XOUQvXJzUQfEziOCYdIPd/7y+MTyZ8bjRb5+nH/5ltK9LtlZFlT3L/+
1ZjC1+tsM6Lj//WHJP4VrNUi7QQWnx+h9It1KHwoxVytIVwy6nmAkhY5L7O2
jsBEFsllSqdkDoVnWu5xJh0mvHurUwE53xNl7yvuEU4RO3febSuFigX2GzyS
SH7Kj9nruofCimU25aOPsBj3zoPaTrhMtafjCuGVZW/aH/lT+ObIui/2R//V
U6LnvJZzBQOEZx7XVkgmer6hOcL41DEWi2d9TBUaEn17H0xekkz8BUQfJCi8
Eu9U+o1wYhuHqdOjcIx5XmF8Coumc25Fv1ak8H98ZDHw
                   "]]}}}, {}}}, {
             DisplayFunction -> Identity, GridLines -> {None, None}, 
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
              DisplayFunction -> Identity, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.02], 
                 Scaled[0.05]}}, AxesOrigin -> {7.58315269907919, 0}, 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {
                0, 2.50403}}, DisplayFunction -> Identity, AspectRatio -> 
              NCache[GoldenRatio^(-1), 0.6180339887498948], 
              Axes -> {True, True}, AxesLabel -> {
                FormBox["\"year\"", TraditionalForm], 
                FormBox["\"dC\"", TraditionalForm]}, 
              AxesOrigin -> {7.58315269907919, 0}, 
              CoordinatesToolOptions -> {"DisplayFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& ), "CopiedValueFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& )}, DisplayFunction :> Identity, 
              Frame -> {{False, False}, {False, False}}, 
              FrameLabel -> {{None, None}, {None, None}}, 
              FrameTicks -> {{Automatic, Automatic}, {
                 Charting`ScaledTicks[{Log, Exp}], 
                 Charting`ScaledFrameTicks[{Log, Exp}]}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
              FormBox["\"Temperature_2C200_UVic\"", TraditionalForm], 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {
                0, 2.50403}}, PlotRangeClipping -> True, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.02], 
                 Scaled[0.05]}}, Ticks -> {
                Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
            576., -116.80842387373012`}, 
            ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}}, {}}, 
        ImageSize -> 1000, PlotRangePadding -> {6, 5}, ContentSelectable -> 
        True, ImageSize -> 1000], 
       FormBox[
        FormBox[
         TemplateBox[{"\"Default\"", "\"kv low\"", "\"kv high\""}, 
          "LineLegend", DisplayFunction -> (FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxDividers -> {
                  "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
                "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[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    "}"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
          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, ",", "Below"}], "]"}]}], "]"}]& )]},
    {
     TemplateBox[{
       GraphicsBox[{{}, {{
           InsetBox[
            GraphicsBox[{{{}, {{{}, {}, {
                  Hue[0.67, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJwtWHk8VVsYVSIZUqmIOmeLNJEmkfKsvFKajKHSU0lPaUAoEUrc8Rw0UKY8
JaVEmpRKs9JA0iBCGimJRpLevq77j9/67ePefb691vrWt/VXbnTy7qmgoMD3
UFCQ/R1eVH2ubQODQ7WX+w5NFKPt2ONVUf4MJm420T8gkODQnYPBaoEMcke8
jkqbKsV4LGyOD2aw/t2vo/7XpXi48lnZ4BAGpT+cX2WyHGLOzxiWFErXb3bm
/5rPIVE15oleeDe25dDpldqZHMlg6If6KUmKHI4bhiXqRjGY5vdA6BQixRkl
rYOJ0fJ13dMSLDWwN9ASMvhl6fdApUQMFWVdXU7MgFf+PPh2nQh6xxaLlDgG
jXvz1Vs8RTjGfQ4Ii2VgUNUWvnaiCMNzLz1riWeQn9qcdeuPEMUHUi5672Gw
3ehaTNZdIUYJvMmzBAblGz17P0gVYoNxk5LdfgbKAwZa2wYJsbuz18aCZAZq
Zw6HzPYSImZo6DKjNAZ0u+U1DkKYLNN9tCudwR/939+/2Qjh4Zb98HcGgyrx
b+/N44U4uKZ5yb+ZDGau2fhZiRFi8LVsv9IsBoLBlQ829xPis3fSwCnZDKxv
VZ/p1VMIw6khc5KPMzAcFS49/1mAGqU/Gn9OMEjtn3np6isB6qLqVq84ySBz
IbRWVArwxLPU5dopBj3H0m8sEUBqs7VS/yyDh8Or2jovC6D1TPo9ooDBnTfW
h2oLBHjwJDen+gKDzr/bm3zzBFinLFKwuETr0etm7IRMAUptCz/HFzFw9E3a
nHJAgKqEtxGNVxn0L75QwCULMFnvSO6MGwwuPKcvuEuAN4ZJ2xNvMZiwf4zO
XokAbeYuPz7cZlDfsDdfSnFnf98B1ncZ9LXP3fNGIIBfnl9F3H1ab4WanqKd
Agxz+/rXy1IGt/cVJsRFCbA2YYfz+HJaz/zQ1vGRAsQ5ZmqFVzDo5z719JwI
Aa7eeBVZ8oTB+MKRmmp0fbrkWsqgSgZPXD+aFoYL4Jp53cezioHnvvmDpNsE
WB2++m3WCwZWqk8PfqbPZ7eO1G6uZaAuKxjFuot2dEyuZ1D5gBKYYsOgpsSQ
1/L9q0cL4HWopvHiWwZ92tL/PUWx2cXb3zvfM5hyf9pCR6EA7gZDL1l/kPO3
nBPA85GtdUQTg30vdguieQGM/zkdfqmZQYfOpqcDaL0WfLkf1t7CICukePSF
BAGcvNstp3xlcG5lRKVVkgB9TdMu+H1n0KbZcC43RYCyLXq/j/5ksJEekGaa
AKJh5Yr17QzyAnzi19PzepPLlun8ZjD/sKrtiCwBXCI8vRb+YfCFdw40zBag
T2rj5R09WGyYHHnuSq4AjXXar88ospDRd3m+ABs/Tat4p8QixuLJzSbKj+Cp
R+N0VFj5+1P+9FPL052jyuJ2b6vkx9cEmBSTtilYncXc0CjT+cWUP8evpBzs
y6I1z8E36Z4AESuXJ5b2YyEqr6mTlAvwK/DmqvYBLCh7tY2eCXAlxUzZcBCL
yxQ+qhFgW9TXsPnaLFbTz9s3Aujd/rtk0xAWKTdIXkCDAKMUvZr367Fd5zvt
Cz2fu7FNl4excO1rkp/aLkBlgdKtepaFk11q5GEFIXb5doYoDWfxrerp9k29
hXDhTqqONGQxaBhVANVbn6cuIbONWLkfaAuROnBo8epRLKptFbdIhgkxcPTU
bzvHsDByVjq4y5B+34DqXhnGtD5LHl30MhbC/dPEH5fGsQhpMJqgMkmISx1r
7j8bz4JW47DYQgitzGPC1oms3C+shZCEkDFqZnR/I9NF422FUJzWnD/cnKU8
4J2/zheiunq64dSpLGR0NnMRIl9oHLFwGgtuVJPG5aVCDMmovbHSisVuyx4L
elH/sSsJ+h5kzcLnVOMmM18hbr5SHyScwYLS2+/SJiFaBl3V3/83C4/Ya9+O
bBXieNnxYUdnsTAXzVjuHSlEaen7PgWz6e/v1LDP3SnEWUb67qYdi9/fg+qG
CoXI1Tt+rnweC5dXmck3pNQPQz1CaxawGC57IEGI9fNzJzXYs1jy7fxzcYYQ
89tPv2x1ZLHxc/QdlxwhhjuGxfxypvxx1z7nWCBESeQAA0VXFgW5iu+k14QY
TaIK+rjL+aJ7X4jl45/N1lzC4mJCnGb7MyHUiG65lgeLpP3081oIzwf27tr/
sHi5deCJ4mYh3PjwqiHLWZi+MFTe/kuIO6OzPfRWsl36nNRbhK2vK6r1VlEs
Zr0+9RdhbMQfD73VlG8HdE2XDRUh2XJ0zRAfFjVUnkuMRIh5br9Cey0Lcd7L
hkGmIuw5svGd1joWqZFG15QtRFi4OcpfcwOLLyztEDNE+HNop4KqH4vs5S5O
WXYiJDC+exUDWEyrtee0nUUIW2kyoWMTC7elJ4s+eoiwOupKxZcgyi9KR9vV
IrBjdbY3bmZxnlP+nOAnwoJUI/O6EBYyu80Ipfu9UP2jIpTuh25/SYwI1j3G
3Li9Tc4v1XgR1Pd0pBRGyM/PNFmEcxYzonK2Uz1sO3G2/qAIOR6vNqdFUX7E
N4UVZYtgpX0/lI9mMczi35lr8kUwMX4Xu03Qza/zIszrO+SMr4jFX+8rj7df
EeHbyzkf3SUsbJa/KRt+R4SUiKVTZnEs9lb08Rn+UISZwZP3jI9lcXWqwdxf
lfR5jbPKevEsgu2ZwWvfiDB57lW+124W7kfM7hd+FsHno5lJ0x4W//2c8Hbc
TxFsglvrKxJYLFxJHf23CIxxRV7hPsoPJvrDQ0UxlmmfS/wviZXnCTUxClSC
98WksKDyyVuhJUZ8UuOptWnd9dcVw3JSU+OCdOpn2aWPXQ3EsO696K/xGSxk
9N5jIka63s8T/Q+xXX6fMEUM9TnHrFoz2S5/NbUSY/BUmw8Ps1joUMEbzBTD
OyC2IO8orU/ihgGK88SodVh1mD/G4us6123jnMQoUY8/45vTrd/FYrQWvn47
O5fqJdAwMWKFGFedTaYZnGQhk8PVNWK4HjM/9TufheS3949VfmIkbCu1f3qa
hUxeJFiMab5F/fPOshj7PfGFVpgYVR1lbYICVt5Pdojx4dA9Fc8LLNYobNy+
UyTGpash1mYX5fyMiRMj/EBamuplFib67Nd1+8QYuVVhZG0RCzvZAwfECIjw
qsy/ymKdTCCHxbhZJj4bfV3uD6NyxNCLtihyu8kiqGeSSvIpMd5mm3wdVcyC
Qr2082J8sxvj2nZbzu/EK2LYeTe9uV3CYpnMMIvFaOqYfCjxHgsaB1uc7otR
pnk53vtBt788EkOcOjN3YhkL6qaWPZ6LMf5I1O/OhywNL9cfja0TQ2eK2baS
R/L9f3wrRqLzANO9j+XPb/8kxp2Bj7Q8n8r5cv6rGLMTxxmPqmQxW3GLmuEv
ej6KVVs+P2dRMvHGyRM9JLCN49rPVXf3s94S3ItsPxlewyIxTnPrlL4SKI15
fGBmXff3DZLAv7X0Rp96uZ+e0ZNghEuK/oNX1H+oHA30JVhV03g2/g0L2fKg
kRLMMveNdnnHgsgCo4kEc4bd4wY3yPU8eKIETT6FZU8bu/VgQdf7vl2472P3
71lJEMv8VHH/xOKQn5Wqm40E2XdS/gz+LH+fQ7MlOOcZPulxC32f6zY5DfMl
iHOyzdz1Rd6PBjhJ4GCeusj+G4s51BDHuUnwsHjMLLUf1D8Dd+vs9JDA4PXe
wFs/u/W5XEL9YufryPbu+npLEKKSsteyo3vdV4KPKZHCL79ZHPvLbekEfwm+
P3t86dgfFrqOz/U6giS4a8Emn1QgKB5tuWteqASuI8a1SXuQLr06RkpgPN2n
7d+eRK7naAkmpA9LsVEk8v4jofXXSHs5tBeR5/M4CfZWWZR8p7irP++VQOHX
dNcyJYKivimThidL0LftZ/RRZYKTLxv2TkyX4EvnhcU7ehN5/8iUoKi87OES
FYLR1L7GH5NA5Zng08Q+BDI6jMqTQNrPJE9VlSC7pXxBPZ0fng/V0K6n2KzZ
YlbxBQlapwcanFcj8voWSfDe4cTjWHUizzc3JIiuVB63WoNg9Y/XK/RLJHj3
87bx9L4EF5UGDCwqlWDoJuvy/poEJrIAUSHBtROnmXcUd80blRL8dyZgwMV+
BDSNjtSslWC22fWcuP5EPl+8kiA1ovnzqgEEknVUMe8l2CFBtYUWwT8X7NR7
fpJgxbfOjeoDibx/tkpw60/A8VqKZXxq/E73v/t1fP4gAv/jkiqfDgnW2SST
6MEEMntvVpBi39817m7aBAPpQGGmJAW2fLUcrUP/319PY7mqFGPXGha3U0zV
5z1EU4rD80//vjuEyPOilhRavxtqUnS7660jRaCimu96PQIZne8Pk6Jtl0eG
1VCChjnj/ugPlyJGbBCtMYxAzL9uZUdKYRV0SOsFxZPo55SxFEoSg4XHGYLd
Or1c+QlSDDz5enIoS7r6wQkLKTZsHXvbjhB5vpsphd+oaSo6+t31cJLC8Zjr
tzcUT501OyBkhRTpGVdiTw0nMDzfIQj0k+LBssKnkQYE67ZszTweRt+nWnh/
gSHBIOncxp3RdD4tXeuvO4IgQjZASqRw2Z9x/S3FtXVqu0fHSqGxwP9GvhFd
X3sxUGs3rc9J7cDwkQRBdMNP9kmR/9eTcrtRpCt/xx6Qolm/qW7gaHm9Nx6W
otUyJa2WYjXbEUE9c6XowxioZ48hkNndgnNSTBl4dXTgWCLX62W6P70zP6yM
CXrLBpRbUox+bxXc24Tg57VV2XX3pMh4tT+zjOJYehyJ5VKEj+sds38cQWfF
lobDz6QYk35de6UpwfGcZ57BNXS9WH3pmPFEni9e09/7wDq0UizLM3sbpPBQ
tfxxfgJBQr66v3GzFJerEx22TyRoLV+wst83KVwfBXnMmURAx5mH8e1SFOn0
09OcTPAw3qPz+h8pkuMzpI8p7spXShyUXvicTDYj8vlZlUO7S5poxRSCT0ts
/vLR5HCjb/igkeYEB6YbVyQN5OBVZbPoI8WLxo85qqXL4cfskXYnLQgGRF0p
0Wc5jEnzbgmaSuTzggGHPa/NF1paEoTQALFgFAeD2qeenRQP/nX3k50Jhx2a
EUbXppEuPz87gUPkmdUZ0dMJVI4PXbLKjMP60uJHc6wIHm9pMDo5lYNQt+qC
2l9Un3RgybXi4K5V6faA4o6j1CBmcND+3pYdZ03wiJbj2SwOGkVBp51AUHZq
8bepczl8GbMzcOAMghktXvdeLOCw6JzHh8cUR4eVnap05NCUMWVIog2BZsqk
jNNuHFQ+zel0+5vI86IHhxdLSpJ0ZhKw1C4tPDk0r2/59Izilf89mdzsxeHf
DV/b980iiEungvDhELC6T5G7LUEeld+odRySDVZP05lN4EAHSLeNHIzM4feU
Ytl4OzeQw5rv95YlzCGg8d9KdTOHkaEzei2yk+tv0lYObw6We2nNJbjg26eN
RHCwG3gm7CHFX39XbFmzg/6/2TD72HmkK/8cjOYwaop11fz5BGN19laIRBwE
avb6qgsIfIZThXEcFPwj9YsplvXX9fEcnrxXro5aKD+v+3s4rLs4yBH2RJ4n
9nPY11Eb2UHxzPamD0jl8G37Pt8CB8qXMGuzfw5wMG/y7x/oSP1MT6Mu5yCH
sKy0AFMngnsRc4q2ZXFIqXeIbaS4a57P5hC+/8K/mc7dfpXDYUWcRoenC0EY
HSg+nOQwaVHofN1FBG4yAz7NodrabHEFxV3z5FkO0oB1w3lXuX/9d56D6nPH
I7PdCNbIBphLHHqOG/xBwZ36Xe4eb+EVDo4tDY3nKXaQBcIbHBwCfmcFLKb9
Qei1zOM25efdyOFjl5CufN1QwqHz5cElr5bI+53/fQ4haxIckpfK+VBbxqGs
TtDL2YPuh9LFvILD5D1ZwarLCAoLOGW/pxz6pRpmXV3W7QdVlG/1Jglb/iE4
4kYTTi2Hizqtf5t6ErxfSxNjPYfB1w/kvaE4gAZa87ccJBO9q5OXE1xyStDv
28jhXYxfseMKIs9LTbQeJ5r9e68kXfPQi88cZvv0q75IccvXuYuVv3HYCgXl
AC8iv3/7ySF0z8dmo1UEU6Zfchr8i8OC+J5JVau6+/UfDqaTN/aK8yZIo+P0
3R486ud6ms5cLfcro148Pm36o/uT4p1p97PtVXjUMmHFx/4l8vlbnYdI2sPM
04fWq9fk/mc1ecwvLfQasIb2i6M7HO20eDjdfeJ8k+LgupT+mYN5lE4JV9qy
ltaHjgfJQ3jMTHqxZYxvt38N5XHJgZyopviXx/qbnSyPfkL/TH4dkc8vBjz0
ZnT8g/Wk634pbwQPZYcPz1soXkUDrsZoHls91gw5uKHbP415vHuZruuykXTd
X4aa8ig0vVjTy4/I73cm8khf88b7DMWy+zENM7ousM3z9idd9wlq5jxeufa5
PCiAYH8hHXAtaX22uMXeDOjerxWP7FVLDIM2EXnet+aRsHraNsNAgpx2+gI2
PA6kGyQ9ovhz1q155rY8klSnh+4IIrCkhqZox2NDQA6ZEEzk8/88Hg5h6eLa
4G6/tefRlmF1ntvc7ZeOPF6a5xyftoVgGzW4IBcewV7a3g0U0/bapunOw3nE
ofqEELk+a5bw2OISOmLmVjn/Zi7jEXHghkkLxbL7G+flPJ5Ks36lhhKES8/7
9vHi8W3rvNi5YQRnDocUj/bmwaU/ff+dYmPvIfXuPjxuq29SObiNyO9zfXkE
Zs38tDCcdN2n/rOex4wJm5LaKXaXBXo/yp+/R2gcjqD9tAdNYIE8Ip222zpG
yvvBnWAem4/m2HZQXNOTTvxbefzZUKaRtZ3gZuyEzTnbeBgd1Exx3NGdfyJ5
qJL4ll8UU3vr834H5UfS1r6Ho7r9IYbHoPSWVvudBNqVD348EtL6J+sdaNsp
9+MjEh7qD4dpHYzuzgM8jxLPYfbzY4h8foij9bGxdv5GcVfe3sXDxv4Imyag
evCmgTKBxw3zbadthbT+J86ujNjHI1pU37+Z4tO3gy+zyTwUTnSYJ4rkealv
Go+axmYjazHBEApN0nmQlXU1b8XyvLEjg+pjQKsnL+nWTyaPgidzss2kRJ7v
s3iE/qtyuZpi2bjnkc3j2WKX5CiOQEYPhxyqN+JgM4an70Mb8txcHjdV2VNl
FHfdF5+k52X7uik4loDKP+G/0zwya6+1Do0jGEnbv9tZWp/LL65ei+vWfwGP
IcfclvrEE/n9diGPq3OdizR2ka77Va9LPC7rf2nKp/gIpbOoiEflrsXv3HYT
zFscY+F6jUdW7ZFjHRQv1j73MPIGfZ9RitP+20Nw7qFCzY5bVN/rxXtn7SVd
9/9z7vDI55YXNlDcNa/d5dF3dtZxLoHOB3f7FVve5/E/mYAOxw==
                   "]]}, {
                  Hue[0.9060679774997897, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJwtWHk4FW0c1UKytCCKzLxFu9JCKi2nlRYiKpU+RZS0ET5SKHHvnblD2hSS
j6RQSZtKpBJpoZWiFEopFUWR+F7unX885xl3Zn7bOef3DnLeusS1q4KCQngX
BYWOv4Nzyq80b2Hg1nE94tCc+nxdiCeDax49m0kCjxP3En1VvRl4TlMpMXCX
Yiysv0X6MhgeKL3q0UPAY+fSYm1/BvGS9HfuPgLCrs7Ujw5gMGB7iYbXWQFR
KmEv9AIZPBvlOqAyVUCby7G2mGAG1zMFpW3uAtIMd0bphjAocntes7FKikuK
molRoQz++z3uw1l9KVYZLDbQFDNwJDPrXYx4KCvp6gocg3u+2cd1wUEvdYVE
UWDgUDj+zrgbEqQK3712RtDv6616aahEgsHnbpTWR9LfR9xqHG4nQf7x2CzX
gwz2VOYfuc5IMFzkSkoPMyi8PevMpy9ibDGqU5x/lEFexLh/z2SLcaCt+9bM
GBpPpYPOlVQxwgYGrB4ax6C1//aS/VFijF6t+3R/PIMko9kDPULEcFye8vhv
AoOgl9P8HbaKkej+beX6JAZPs6q0jq0SQ/tWyraiZAab89oyAizF+O4arTUx
hcHZUiffIlMxDCf7W8akMThweo/tPQMx3ii2q7efZaCn/nb0Pg0x3oa8dVt7
nsE/1+arde0qxgunIvtbFxiwoZ9tJzWIIJ214+Wgywy+h96zn1klgmaptCko
kwH/1/VX9TMRHr04d6b8GoM+OyamZheIsElJojDpBgPveQebwrJFKJp3/Xtk
DoOZNEH9z4tQdvhDUG2urB/iT4hgonfq3Mw7DEaJtF8+ihHhvWH07qi7DB4+
oNchEZrN7H99LmCgaNJ3YhYvQltfD40Z9xlUa+nfcw0RYVv6tmf7HjLomqWo
cTBYBP3lP6e/K2JweFC4j2eACBsP77Eb+4RBerca6XBvEfbZJmkGPmNwbkh1
SJynCLl3qoILXzB4v/a/FybbRJjK34rt95KBqiHtyI0iLEu6vcGpjMFJlXlD
GjeI4Bbo9iH5NYO9cQ9TitxFSGkYpvOtggGNZv0FVxF0l+5pNalkkLLGfskw
FxEMfeqi/KsZXN67s/iCmwguJ97UZn2Q9V/VOhFMswqa2j4yqP+5YIWSswgO
BgNvzPjMYKidYuJ++jynp/NmBNUxeO73aeg4+n6jfy4G3vgm64dSet/qx8Od
LfUM+unfe5+zXoQlri1TJv5kQKPXEzaL0Ms47tq2Jvn7NolQ7Kf39/RvBhut
foQ/pfcl+k+6VbYw0GyYWfSB5uf9Oba4/18GZ1ocN+f5iGAf5ORi3c5gisGC
gJB/Reh5rDZ7TxcW848FD50VKELtW53qS91YHNmiEXKT4q1fzZ/VKLKy+u4W
wXfy6X39lVnMWL7qfI5YhD6q6bqWKiwGpXttiJSIMCEsbruvGovZZ9zf1IfT
/km7GZvYi0UVHSdtWv8g5zVRRX1YXDrpn3+a4j/eeetaNFg8GmD7Kob2y81Y
UyXDfizu98m/lpkgwq6QnzsX6bDwpA1+JlEEvYLZhdsHsNg99FbYsFQRhndz
+XZUj8Up04fmj2g/Gt6PqMvWZ8Glv/t06IIILzMV71ayLDrG2/G6CPs92vwV
B7NIupGrc/ImzYdwXmWYIYsJHdctmo8Se3+LoWznPOrfF+GY1sB8t+EsWuo+
37xaJILWiMmNe0ey8NuRZHT7MX2eRnn3BCMW5tseiZeU0Xp/Hf/rxhi2k69q
K0S40er+sHQsi9Vts1s2v6fzlpQqbhjP4ovx9WERtSLw/mSkqikLf9oOyt9F
6Gb+LWOwGYt1q8vnhTSKUF4+1XDyZBYVi4WoLX9EyBAbBVmbswj6M2WbdRcx
BiRU3HGexmL7hsi6ViUx5hf6NPnMYLGe0mWqmhh5VWr9xDNZvMjbbBJM+aG+
X+6go7Npvdifm170FyOtOE3/9FwWO/JHTNnPiFFU9LFnpgXbyX/mg8W4zEhr
8uaz+K5tabNziBjn9NKuPFlI72+nhDCS8mGAY8AbKxaT1s9x30r5afOicxM+
LWY7+eHITDEWtVx812DLgtLtyeZFYgy23Rn2x47F58qJujeXi1EYrGHQbRnb
yZcazmKMICGZPR3k8XiIsWZsqUXvlWznvPr4iKFKdJ9oOrJYO37p2JFBYjg9
Wuyg8w+LEg3a8GIxlocHlg1YI6/HfjHujUhx1HOWPX9/jBg7qp+V662Txatx
QoxRQe2Oem603m/eqh5IEyNmyog3AzawOHfQVVx1ifL5q8VrdTbK6tEtR4yD
p7bWaG5iMaJOPXtsgRjW/4Z49t5CMW3YKY/FaD+xV0FlGwunHh0dLcZhxuNQ
Ny8WmmtvPx1VJcZO59HjWrfL++OzGG4hN5/98GGxxncxc/inGOyo/rtr/5Xl
r/9fMayODTV7689i1azpH1coSjDqWvmvZwEsNgze5LdDXYIZXUbeKdgl7/d+
EqgdbI29HsTCeEtil6n6ElyZNDPkzG4WHXRWayjBGceqf+NCWNBsdo02kmCa
zsOA8FC2U9/cTSQYbVQTsUvEwkwyc43rVAkW9hpwyUNC+WBRP+mCORI0vrP8
4sCz2ETpoGahBLFBqybOFViU7qYNQfVzjq/JwbERLETJywvHr6L/r35ZSS+S
xZuuPbnjzhKYLMgN736ARYc96LlRgg1fTEfXHZTl28VTglm+DZXPDtN4wqsb
jvtJwBg9S79+hJXpWbAEq3WuRP0XzaKj/CNEEmQq+x4Ji2XhMaopanW4BJHR
tRc2xrE4PtXoWfQhCaZMqKu1imexImzSi7xYmq8eS6ePTZDz0QkJ4vV+n+17
gkV5CQ0glebPMnVaQxILGv57mwwJtCfP+vw4mQWlx1tKVyVw9YrITD/Noqw5
cGNWjgQVNutOhqfK++2uBIVqkZc8zrC4Q9P55oEEDderP1icYzv1dPpTCXLt
RpsbnGfh1dz705WXEixLNbvwN4OV+YO3EhzeVbS45CKLuaXffxZ+kMDcI6dv
+mUWcygBoU6CstbiZlGmfF5/SPD5xANlp2ssGhesCMtsluBGrv8M0ywWC9S6
juqhwCHweFycSjaL68N6q5oqcRi2Q2FYRQ7ND5W7pWocvIJcXmbk0vmMnZBg
osEhr5i7HHpb3v861D+FTspZnsd2+qlofQ4fUkb/HJ7PQkNrxl1HAw6N80cu
ay5gZf5pBIf5rnXvCwpZnM/5Epc1hkNdq8mJqAcsHkc6ts024VDcOzvS9REL
Rnuj1fbJHLhjc86NL2Zh1yHw0zmMPRXyt+0xC5OEi2Z+szn0n2i6q/ApK9NP
Sw5RdhrGh55Tvvl9a12KFYd7Wk81nUpY1B7KUPNcwsEiaozR8Jdsp7/JXcah
oluZ3/dXLG6vS1nzbCWHefuElivlrExf/+HwILjlfOAbFltMgq/cdOagOPL5
8TlvWXy6cq5bjRsHz4aiOz0rWZn/8OAwxD520KMqOX9u5bDuTe3lyPdUz8zo
B3lzmGvmEWpfw6I9I6Ah3Y+Dpf4DQfsTC4fJFwt8d9F8bLheXFIrj38Pvd/r
g/WRLyw6xnmIiEME81vZ4aucz3gOKfdi27W/U/4xpwqwj8MVp8AJz+tZhBgv
OqlyiMO+JfOS9v9gYfpt0tz8oxxszI4tXdzI4rRm8RyHOA6P80fOVf1F9cY2
kwlN4GBQfcj77m8WTVGvD4hOcpQv9lYHt7BQ90zjy1I4+CvHHprSyqJHB+Gf
4/AlNlj8469cjy9waCp9fiO1nYVW8ZzS71c43J/ExpxXIPj595mfexaHZUPG
NEu7EAym6Yq5ycFo6obm9V0JLtRuv9Qvj8O4eP3YWd0IopX14v65R/OvHvdu
YHfS+b7ihxwOlU0qbKK4CyUMlSccFP5MXVasSGR+7wWHXs2/Q08rkc7v7/GK
w4+2ayv29CAyPX7NIedJ8eOVygQXVzReffWOg3Kp6Ov4ngQ1+skfLT9wkPYZ
na6iQtBB536fObwaqK5TSXGnvn3n0DDV2+CqKkGA1lmLtY0cPtqcfR6hRpA7
2WDBn2YOoS+VxripE7x0ooTdxqHmd4HR1F4EDek2HrpdeQzcPuNJ395E5ucU
edw6e5Gpobizv3ry+O+Sl0ZWH5oPNc801V48LExvn9nXl4CqqVJFXx7Hgr59
X6dBZH67H489PMonaRIcoeVSHMBjbWPbVjUtAir/j8T6PO62e6VVUNy5Xw3i
0XCgOjKjH5HprSGPTbNiSKg2QeL+KV2shvM4MvuNw3Idgqj2fYEBo3jA7+eU
Ef0JaDTaG415jNpomN9CsSoViD0TeJxcdPHv/QEElL2Wl03kofn305tYXYL2
QX+bGifz8O6m6rFZj37P/a/3bk/l0bzfMWHaQFqf4Y4Rs8AjjDMIVdcnnX55
whwe03xOaL6mOKdX7ITBFjwUeQPrNIaA0pVIewEPrfPVJgEswYy75Ze6W/PY
smNUwXwiy3+ALY9tw82V+w8inXx9156HbeqyxvcUV1D5HuHAIz7hZsSFwQTK
02KWHl/F49Hq6yXBBgSpRc+XbXKi8ZSLH1oZEiyiAvfWmcfjoo2eukMIjqee
KXVy42F/NOH2B4o72kN1Iw91K887GUNpvR/9sqvaTPNzXsc7cBiBdQehefLI
mP7iyfzhBJWfDmVIfXh8G1T3VmsE6eTX5/60HlNi4yooptvIt8xdPHoyBmop
I0mn/+ko7kSt3BHeo+T9Gkq/T+/Sr2lGBHR7NX4t4THi4zTfHqMJOtbbBwKP
hKqjScUU/7arSoqJ5BE4pkfY0TG0fh0G+SCPkfG3dZyNicwvHqH389VWjRxL
QOXy9IEY+r7PrE0DxR372KLjPBxVpvy6Ok6eD7rPZ5dH2eweTzr1ySyZx7Kn
Po6WEwhaT9c/sUrhkdO/j15vE4JTVN7nnOURE5kgfU4xXa/Pn82g9Xy94XyM
KUGJCSWkyzxa7OMkaycSdNjbtGs87vQK7DfMjKBD/oyzebiUzVr6heL7/829
/COXxy+LYfPPT5LXN4/GE+da7zOZyPbrAh4Hq82sp0yRx/OAh0FFiVMbxZ37
WhGdl95BQ2+ZE5n+P+URfMktIXQqrR9dt0+94LG5KP+p5TQi89uveIh1y66p
TpfVa+lrHg6aL5c/onjJMDpRb3noNDWn7JtBOvdRrWraDzk+F5eAwIK2h2EN
jx8j93przZTHX8tj6RXHz88p9utYOOt41CVMHBA1i8j29e88lL9ati2fTWT7
9Q8er1cWRvefQ2R620T7Z3P911KKvQ2j2vu08Fi/5WfLkbkE73Zonc1v5eHl
1jPHYR7p1HeRghQxBm7m/S2ITC+7STHUDNtKKJ5MDf9FJSncmx6sPmwpy5em
ihTDAmZ2Xzpfzp/qUrxPfOKiuYDAyHVAZWkfKeZrXdr5mOIOPavWpL831V8c
sZDWz3JM+386UgyfOKNs0SI6j6dOWN/UlUKkuniQihWB7Su9ne/0pVDwDB6U
T/FTK+c+pYOkePFRqTzEmuBvk8/b2CFSbMrqZ4vFBMNoO8SOkOJIa0VwK8Xr
HqxeWGAsRePuIx6ZNgTnbTyif02WwqzOs6+3LcHzntTxzpNiZ3Kcl/ES0umX
tZdKEVtpE1FLcYedVXaRIvDotfVJdnQe3sb2Tdoqxdp96q1O9rL5/+IvxYSl
AYt0lxIk++ePuBYkRfkM0xXPlsr5MEQKqdemweHLCB7R8V0mkkLlle0pi+VE
5jd4KbqO0f6s4EBk+1GkFLb1n2qvUtx5fhMlhY3X32SvFaTz/MM6TgqD+8GD
R60kEIeufJqVJEXbu8SVVRQ796GOIE0Kf/fDNjGriGyfvyBF8VtRdztHWb0t
rklhcjDZV2U1wS8lpyOLbkrR55hhcu5q2Xx/zZNiaeXow37/EKTssZ1/7L4U
Wf0bZhs7ESws6DEtplgK7dvH0987yfXshRT8eNfymDUEJ2PukPQyKWrCtuXb
rpXpEf+O5uPsN88ezgQh9HEKNVJYbOhTnkVxSeK2aSpfpNgBBSUvFwK6rTXk
1ksRcPDLt6HrqL7+oQTRJIVVZNfoMoqp2/hs+0cKY5Ot3fe5yvLxqF2KygVO
xnPc5PrRTcDX7e26v91k8zZWWUAFszM/dT3p9NNP1ARIpF1MnTbQeaHpsuwr
YFHRdRcNdyLb3/oJWHL/hV2eu3xeBggomhio6LeRdJ4ffh8oYE70a7+RHkTm
j4mAGzbkbDnFnfuwoYA+Ys+k8E2k8/zAergAvZmt/2AzQXVI3MORRgKUbD6/
qqc4lqarwVjADkf3AYlb5HwzQUDNu3hd+60EesavDcPMBFw3znrTfRvBs+gP
+sPMBcS7v3e9RLHuzVUkdzq9L5qX7upJkEfSvTbMElC1rGd2Py8CavcXvJwr
oNJveUQexVodAjhfQMq6lYY+2wk6jvfirQQcdjPfZehNQNfBl0a2Ao7HG0Q/
9Zb3l72AaJWpAXt8aP+oUsZxELDF6wwZ50tk5zuOAmx2xnMVFIcrfdcucBLQ
nDDtqvAvgSldsKQuAt6ZnUkz9yOyfXO9AF8XHddPFOtQAXy6UYDdkBOVh/0J
5lpQhdgqwM8+YMicHTI+6uElIOj4ndH1FP8It/M29BFQIk3+cyyAYCAVvGg/
AY07FkYs2En7mdJB5E4BQnzJxyaKJ9w5P2ZLkIACte3KibsIrOi6WbtHgHfy
nK/WgQQOHQUKEzBz3PboFoofULtxS0L7Z/YQ9ZNBRLbfSQUEL9k9zzZY5o+U
9wn49/SZea0Ud56fHhDQvqVYPXk31Z9xH84mHRYwNLF3rO0eIjtPihagQiLr
/1BcROV+yDHaH9E7ep0Mob+/7By0Il5Av/j6hsV75X4nkeY/Ru94815Zfxac
FKD2WF8zMZTgy83JBoWnBRQ66S9eFEb1n67fP9JofmbNsGukOMkamu/OCZi1
+BQbJ6LxUPrrcUHAHbNdF+eJCTZ3DNQlAaGSyr7fxPL+yBSgcLbVLEoi68+U
6wLe1H4bOoOjftlqr3pRtgDi/PbNB042Xz65dD40GpzCeYKMY9+S794RkPnC
MsVUSmTnC/kCAtYrZ5dT3H1Zr9HjCwWUrrCPCRHovJSV7P7xgM4bsZk1MlzO
z0UC8lTYC8UU96B0dOgJrde86jrfCIIN1OCbPheQVHGrYeA+yj+13U36ltL8
ZL/OvbVP7odeCRiQunzVhkjq/3bpT6opF5C7wC5HfT/1l3T8HlcIyB70oy6D
YpO+E6feeCfg5f4VNcsPUL/VQZjVApIrTqW2UkzXr2V/P9B4hncz/++gfD4+
0fnezB2ae4jATeyy2vGLgAxhzfVPh+T++quAXhbJacJh+b5SL+B/U5kq/A==

                   "]]}, {
                  Hue[0.1421359549995791, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{0, Small, Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJwtWHk8VV0UVUqIJooM994ildIslWSlEk0ISSlFSmkypESG5L737rsvVCgk
KSkqpUlJoz6iolEiSjMhiiLyHe/xj9/63XfvOWftvdde+wxz27bUo6ecnNz+
HnJyXf+H36641rqVwuNH5M9BhNaMl+vCvSkMzL+RrarJ4eTDE/59/Shsuul3
ULOYwwQsaYj2p9Bj8T5VGxcxnrq9LhkSQKH5+huu44YY7PXZuvGBFCYsOqVs
WStGnDL7SjuYgpbdG+32SjH+uR/9lxBKwd9bW/XdQTHO6gfFaYVTqLCU39W3
nxhXequdiIugcHzDpRrfhRxW6tnoqQkplJkFLD+9VgRFBS0tCUchvfHZYrcw
IbQznEW9JRT0RwXz05WFyJD88AmKpAC1tfefVwkwPDP3dWM0hZNVt/rpZAmQ
fyzxpschCg/9bx3TihBglMCDeR1LwXP45l1tzgJsHVvX2/oIheEdLTveTRTg
4L9e27ITKPDXvZRa9QVgdQJXGSRRCDO4x44cIoDRKq3nB5IpHDyz1+5hLwFc
nNKfdqRQcA8pM2ttZnFiY8OKDakU/hbVP5zzhcWQe+nbi9MofN00piWulMUP
j3j1qekUxkUl/5n4kIX+9ACrhLMUbt3VMLDPYVHZu1O183z3ec+xeBf+bv3a
ixRGKITF3E9m8cq12OHeJQqtEz+fTz3EgrfYXTbsKgXC3pUYEQu113xLSDbZ
b8wc8fc9LJ68yjxXcYOCEke7b/VmsVlBJDctl8KOnvGK2l4sii1zfkTfluXD
IjcW5bGfQ2ruUpi9tzr/8HIWU7RPZ87Oo3BIELHC3oHFJ/34sLj/KJBoj2he
wqLVxOF3bQEF49U3rFUWsvg30GuQeRGFxT/32/+ax2L7he0voh5TmBJ6DT1n
s9B1+jXrfTGFd0aEAII3xe61n/CM5Me7xIGpYBFll6oW/ILCGM2YFyJzFnfz
PoQWvqKgYWXbfngWi5nie4mDyygMWD79spUZi2Wp9z1dyyk8CrG63UG+tz54
/ee0tzI+BpP105tGajRUUfh8fsRHeSsWWo5726dUEz4JAcIFhP8ddXEBHyk0
uj9aVbSYhfvJypqbn0k8JhwxPGzHwvhmQcu/rxR8PaPrghxZLNfTyTWvpfAj
7b+FJs4sXJ9bmofUUXiSXvxymQuLsasvB+c2UJg336e1/xqW8PA4qK2RwiyS
zsbrWCz1aJsx9ZdsfcWNLPqNT7qxvYXCi/jPuiO3sijZpd1x5g+FrnJK9WUh
0n0mX91GIYN8fnMA4T+TLtHsIOsNJQUWwsIhxNV9SSeFkpfLvmfuY6F0tObW
3h40rI+GGlhwLGreaXy8Ik9jVP++V05FsthWb/riS28aURN3Gg2LYeE//UyU
piKNcxsrvZUTWAzoe0HLSpnGxm0/IqyPs5jMJvn6q9C4FNh0wTaN5M/ZO4kn
+tEQ/iovDSP5GeK2Jq54AA3y84cvLrH46/dgXdsgGm7HX03ZdoPFnURjBf3B
NBYW9DHTvstiT/ivoEUaNHot62eUlc9Cu2BOoe9QGuVch8fvxyxGybs3HNGm
4W9DDdn0gsSnKLLuli6NSm9u/7pyFmXZvf+rpml8DE96bPiBxQGvfwG9h9NY
3bXAd8KH5KLySH0a1cs1rtmRelQqdQiYb9C9v38sjqrr5K8fRUP9/Pz3u/sI
oD56evM+Qxr/5rTVefUX4MCgil4pY2lUeMpt60HqfXn9pN+542i0n2l89lhH
gNz2jY9fT6Cl+bxXTwC11Axh0yQaXeFdbCiAOIAx7GtM41MT/Wwb0RN504as
4SY0JuSM7C+eJkBFxUz96dNpKJolONIQIEs4NmSJKQ372GH7d1gJMDSlKs/N
jIZR1tGGkXYCWBfuaNlhTiOkS5CJXj34oDJYOJvGyImKZxPXCtA4+O6wI3No
GDdMmzd/owBnS87qnplHI/xO4fEH2wQoLv6qlD2fnM/j98f3PgJcpfgvD6zJ
/taSAPkLkKl99tqzhST+bS5b5gURPQx0Caxc3M2fQIAtizInf7OhcfwPEZxD
Aixqu/y+yY4G6QaZ6seJ3toFsX/taXSFU/e8AIWhg/Tkl9FYt4oofI4Ao5nw
bKXlNPIszm1cXSDAmgmv5/dfQUNvQWD4+FcC9GW0nqm5dPNbLYDrE5vlGqtp
jH+rr9CjXgCn/cHlQ9fI8pP7LcDD0eku2m40FAapm//XKcDujy8qtNfRaCbp
6KsoxJiQThft9TQmk79LA4VImDG6cqgnjakZs5zKtYRg39is1djUHW99IQ6d
3vZFbTMNIi+avuOEWLIz3Lv/Vtn6YdOF6Dy5T055O42fJJxVc4WIpbxi5H1o
5GRLFLbbChHkZjSx3ZfGTtJeMl2EWB9+58XPHYSvV1MapnkKQY/RDKvZSeMB
c8Hnq7cQi48amLwLoDHg27XM8ACy3xsVv18E0nip5Dn8e4gQ5j0M8wr20Eic
nHLZRCCEyqH2xJwQGl3tKXG/ENemzQ4/F0aj6Pi8q76xQpxz+bAzKZxGa/9v
18YfE8JM43Hg/ggaPSp7KnGnhTAa+yVyj6CbvywhFvYbesVLREv15PtNIZrf
W31fLqal/S4gX4jEkJVT50loHGpRcD38TIi5/lMOTYik4bTy4u3v5eT3qlcV
tKNppMy7+rOjWogpC+7u73WQxiQiJ8e+CuH53dio7hCph28GE4X1Qlj4N1W/
iKVxVlzuKdcsBDX2xYWcwzSu7gsqmdwuxCqNa3HH42nMJgL8Vl6EbEX/w2wi
jZUWs746q4gQHV9zaVMSjdIT2824wSLMmFxXszi5O56UCOZ9HGdNSCF4Zu7S
2FEiJGv/OT/wJI1jj9OLHSeJoGKVYdaUSkv7X72pCEOmW9Q+TaPh2ufJ0Kdz
RPDwicy+cIbU0z02rdRahCrbdaf2Z9CIeaHkmWIjQqFK9BWvczS67M/4ZSI0
5Xz8PD+ze30XEe7aG5nqXaShU1s9VWudCMsyTC51ZNGI/EgEwEuE2D3FNqWX
ZfV+zFcEU6/bAy9cpZGaSxp+oAjl7SWtgmwa+QtNRHf3ilB78pGi6w0a157K
VfYUi5B7N8Dc+CaNi7Ze8b8PiBB8LClJ+RaNR/UP7987IsLI3XIjq27TMn91
TASfEPeyrLu0tN9cSRXhQQl3NeK+7PmaDBG0I6bddnpAI32vnbXuRRE+pxv9
GpVPY/rlAv9Z10RotjZc1lpAY+nIZNGFXBGsPeo+FRR210eeCHXtU07GPaJx
UJMo+CMRSvrfivZ40l0Pz0Xgjs7NnFRCQ6PsyW/7chEmnA7v+PeURrDutA15
1SJoTjXeU/icxoaXXzZlfBMhzn7Q+JiXNOy84nfq/BDhofpzNdfS7vxuEWF+
3Lixo8q69bKdxEe+fNePNzS2PPiXFdiDg2WUpO1aBS3rx304PAptuxhcScv8
iyqH3oYvj819R6PMlXQUdQ7eTcV5StXdeqnNYYRD4rAnH2h0DutoaR7OYV1l
zdXoTzT2mBNHY8hhnolXhMMXGmLSntZN5GCl+0gy5BuNL/yoOtVpHOo8c0pK
a2iZH51Fnvf7vOTwdxoFh3NiB8zlEEn9UVxeL4v3KWsO6Q8TO4f8kOnnoSUc
rrkGT37Z2F2/DhyillqmHvhJ40P+4ZwhzhxsTY462jTTGF00IP/Gag5P8w3n
9f1N48SBGT0Wr+Og9zHG778/BPe42XvQJo7oxb6PoW00iLtLWr2NQ4BiYsyM
dlrqlwr8OHxPDBX+7KBxXaLwI3Y3h5bXL3MzOmnUxGSpNIZwKJpGJ1yUY7BZ
qTV5QwSHZSPGtfI9GNTX3pl+guMwdqZn64aeDExEs9d4RHGYmKybaCHPyM4X
Q/hXTXqv04vBUN/SQT7xHGLKpxW2EHxBnjCWzEHu78xlJb0Z0BG1dtmpHPq1
/ok4o8BI+0V4Ooef/2447+3DIC6q/+6pmRxuPyt5ukKRAaH3utdlDoqvBfWT
lBiYkoFEcp0DP8DogrIyg1pi9/7mcnijo6pRTTBRzz8W9zk0zfTTu96XAWFj
dFEBh6+2519GqjDwIz9f+JhDRJnCuPWqjHT+kTzl8OVPwdiZ/RiQx0X1rzjo
+Jo/G9ifwWPTJU+jyzncO3+Z+kJwV7v2ruJw/IrPoJsDGGn93PrAYb7x/XNR
AxlZv/vG4WhIw491gxg43j19cskPDnvFqJimxqBPl4Fr5bC2+d82FXUGYwRD
yp70EeO/Tp+zVQT7WRIF1hCj6eDH6KzBDEi5jPHXE2OzRQITMYSRzhMa48Q4
PKdyuZMGg935o2ccmCoGdv2aMVqTAckuD8WZYozZpJ/fRrDUD1uIcWrR5Y6i
oTK+AheKodbxrTJRi8HhtwcFEfZi+Mn39dqizeDHEFLxTmK0HnBJMdNh0FUu
PivIvMfpRajqknj6EEO8WgyzHSfV3hIs1W93MXqL9ZacpWR8L/QUQ/3ixymB
NCPzu1vF2Lp7TIE1wyDk74ztS/zE2D7KVFFzGIPnNz+oHw0Swy5jWfMngokc
Oy1gxUhOuRN5aTgj9aMPJWI8WZVTGqrH4Hq74NfKA+Q8FcLHi/UZqb9ziCPz
afEmb60RDJZ2GeAkMRyOpNz/THCXnx6RIobqYu+8LAMG7/uSCS6V8HNRwy94
JCPz+xliZM169cx6FCOtx8xMMRqG1b1TH82ATKv6p7NIPGYkJlUR3DVv2meL
oUTpqaQbMkhqSPuv6LYYU9XvjvYbQ+olyNy4Mo/sT/vKb7OxDKb9ubcuPV+M
0V/N/PsYMbJ+WihGyocjqSUES/W+WIzgcX3YI+O64/tMDMPk+xpu4xm4MLMb
P7wkz/NVVhpO6M73MrJeLW3bRLDhjANFnRViuCjP+H19IoM735Nmjn0vxq2K
ONuwSQy6xrOen8VY9nyHi9VkBkSO5278JsZtzQHa/aeQ70feax5VJ0ZCdAr/
kmDpfNpE4vnW82KCMSP1A5rNYrQ5JInWTmXQZS+OtYiR1y948EgTRup3slvF
cC+3cPxO8MKaXlMGdojxe/5I64vTiB50GcpOcp4kj8Yd00m8K9/1VevF49BH
kyUzZjBw+JCakKfIQ6+q1PUfwVu+/D3jrcJjb/8Qg3umDIrXv/xSM4BH6JX1
KREzGSwvnJR3cTCPLcX5z63MGHSlf9FQHkKt8ht9ZzHoarcZOjyWq5U5PSFY
On/o8tBoaU2PMmfgQTYUR/NQvb3j8lIwUPYcvvnPcB4/Dff5qc9mZPPxCB6O
11xqXxIcm6XifXY0j7qUqUPjLBipP0+bwEOx3uqf0xwGjb8WOLPGPN6uKIzX
nMuAsLttuwmPhi2N9a8J3pdEDIkpjw1bf7UdnsdI+1ESePisV7q93LJbX+fw
SNBbb6o5n+gDKcASgg1MsL2U4MOLBvMLLHlsbHm0KtaKQdf2kqx5jAyc3cvR
mry/ghimBTw+nXjmrraAgdeYlri3Njys1a8EPSXYjTSAKU7kfWNdm8iFDFpG
uURarOAxaqp5+aJFDAjdjUsJFvS1Gaa8mIEBGbAWr+Ih5x06LJ9gxwmGZ9Tc
eLz6qlARvoTBXl8iUO48Nt8cbAcbRubnPHgcbq8KbSd4yKbFP/tt4tEcdtgr
25bou2mVjeo2HiZ13gP97Ej9nKy6td+bR1Baks/4paR/LIHaez8eidW2kTUE
d91fbN7FI/jIjQ2p9ozsviqAx9oo1XZXh27938NjsmPgIi1HRtqfP4bxqDA3
dn7hKHv/ezgP3mfz8P3LZPnUGMFD+Y3d6flODI4OTM2dzfHoOW5IrdxyBsSu
Kp6V8LBr/FZzneA+roTxKB62Ph1pPs4yfZ91kORnUejwMSsYBJFx2CuGx7/3
J1Z8IHje6x+/CuN4BGyMtU1YyaD3g8iJOxN4lLwT9LJ3Ifvb/OXv6CQeUw6l
+SuvYtD1enwyjwFH9dPuElx43+LctxSSb9VGsbtWy/iSnOJxU7NpznhXRubX
MngMuX/swieCQ61u7zl6lod4kkdFwhoGqu+MophzPL6w2/Pt1jIg21ngnEn4
ON/g3ceN9IfUsXN0LvOY7zmg4ibBpLtfqrnKYzfkFHzcif64hZTlXuMReOh7
g8E6RuanbvBYHN0zvpzgLjtw6TaP8VO29YryYLDn/FW3zns8qhe4jp+7XsZX
zH0e9b6dWn/Wy/pVSx6PKiooP2MDI/OPBTxEfA9jV09Gep/0vIjHouIc90Eb
GXSVf/JjHkuLXtk/ILirfI2KeRRPDe69axODNZ9Khq98xmNu/Ntdhl6kP+rH
dQ4o5ZFry5yvIJhkf9nYN4RPoXfq/s2M9D6KL+ehPbt9NbYwUC+Z+/pHBQ8F
29o3jQR3yWFGFTm/y8ahJ7bK9Cr6PeHvfbKWwzZGOl/rfOCRM/5mZa/tDKzH
dQ7b84lH8sZPHlcI3lNyyXnHV/JcYHnBw5sBsUOfSmp5fFimdGuwD4PLzs3X
VzQQfnY5RT7wkfUv60Ye6etW6O/wZaT3hQFNPGLXm+7R95P1P91fPI4l68U/
J1gnaO0kxxYe8cozA/fuYKTziVMrj60+55iJ/iRfiPyN+0vyMyiZqyK4S44s
O3i0pphdl+zszjc5Cd6bnDtruouR+WV5CfzdNTy+7erO794S2I84WR0bQPKV
GMowgnc5BI6Yu5vw4cxOe6UgQcixPKNGgv/Yf0jVVpKglE/7ezSQkd2/9ZWg
effCyAVBsviUq0ggSS792hIk0+tN/SUoUPFVPLGHAbEjQvdBEvilza1fEsxA
QuzzrMESzJ7oG99GsD5p6H6aEtTPGaF6KoTBKrLhSdoShC4Ns7QLZdB1PWim
I8HOM+cs20O7z0tw59YS1bQwRjqfZRJscKJ/ot1eUt+hBvdYWgJlJrrxL8HS
+5BhEgyI393vVHi3ngyXYHByY5PNPlm/Xq0nwbEE7WOtBAeGj19kYCCBylNd
tRMRJP+JoTkzWoJCV12bRSwD4v60VccSfizM7ZtZmX+VHyeBhc1pOknQXd/j
Jcgz2XPZUsjg5HYz5dIJEkSIqgc2ENx1f2w9SQK58+0mcSLiV7KpiNrJElTW
NBiYc93fM5GAcXtX+ZngrvIpnS7B0kFNrvvFDNrqau9cN5Ug+5VVujHfrb9m
EgRuULxVQbB03polwWtnh4RwCSObFyHBIsbWwnA/6X/paxyeWUjwQJm+VELw
IGLg4+aSeFl+rPOPJPoR5mupbilBatW9Jp0o4p+6DP98ws+tt3fvESy9z7KS
YGiG00rP6O7+s1CCuwvsb6seYLCi+fobZRsJbg37WZdFcKEDMcC2EpQdcP7i
dFDmf1fYSZBWdTqj/aDMHwqXkvOMkjc9fojB9/FkAUcJcrdwMfNiSP2a/1dh
7CRBlmRNzjeCj+TERkU6S9BvftpZSaws3gouEvwPAjoPTg==
                   "]]}}}, {}}}, {
             DisplayFunction -> Identity, GridLines -> {None, None}, 
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
              DisplayFunction -> Identity, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.05], 
                 Scaled[0.05]}}, 
              AxesOrigin -> {7.58315269907919, 697.9608399999998}, 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {711.6605,
                985.6537}}, DisplayFunction -> Identity, AspectRatio -> 
              NCache[GoldenRatio^(-1), 0.6180339887498948], 
              Axes -> {True, True}, AxesLabel -> {
                FormBox["\"year\"", TraditionalForm], 
                FormBox["\"GtC\"", TraditionalForm]}, 
              AxesOrigin -> {7.58315269907919, 697.9608399999998}, 
              CoordinatesToolOptions -> {"DisplayFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& ), "CopiedValueFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& )}, DisplayFunction :> Identity, 
              Frame -> {{False, False}, {False, False}}, 
              FrameLabel -> {{None, None}, {None, None}}, 
              FrameTicks -> {{Automatic, Automatic}, {
                 Charting`ScaledTicks[{Log, Exp}], 
                 Charting`ScaledFrameTicks[{Log, Exp}]}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
              FormBox["\"Atmos_2C1200_UVic\"", TraditionalForm], 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {711.6605,
                985.6537}}, PlotRangeClipping -> True, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.05], 
                 Scaled[0.05]}}, Ticks -> {
                Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
            192., -116.80842387373012`}, 
            ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}], 
           InsetBox[
            GraphicsBox[{{{}, {{{}, {}, {
                  Hue[0.67, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJw1mHc81d8fxy/XNe69VGTnfj4iskpTpfq8NIxSdlRKWYlCkpJZUkmSBrIj
ldGgpUEp0qalQSlpEaJybb/jW7+/7uP5OJ9zzznv9Xqfo+7qZ+shymKxDoiw
WMO/Y2/WX+nxFWD51PR0vsxPpqfgpXvUJgF0LphoKc/sZE7czwniBQowf0hM
Uc/7N2OIpe0JQQI4zxh5iPPoD/PU9XWNQrAAy8LOXnYd6mJ2XzVRSwkRwNtQ
+o7Zgm4mibu7VjVcgI+rJjQaF/Uwg27pg6mRAtDP/FwknvQwhZqhSSpRAviY
17t9v9PDXOLI5SRFCxAjcWTJ1ds9zEoNKw25vQKYmCsY7ljZw0iKq6jE7RMg
YEp9ZPWIbka1YHkMJ04AL87uQt8tQqYg7mdAaLwA98/vM5ocL2TGnit93ZEg
AGf93ezvP7qYqsy0Gx5HBOhYPHAj714XM36PB/06UYBkX9moW4uEjK9+K8fi
mADmFUfMsxWFzOFBMb+SVAFcy26w+r6R840JWaWVIUCVKb361UQhY7BK5fmh
LAFyfbQaNmwWMs6O+U8HsgWwtPeT3iAvZHLWt69Yl0vs21vD+WMgZBRu5/tX
nxJA5Z3JD8vjQuanR8ro6fkCXH+5+VmfqZDRnBlsnloowOrs7T5r9ITMe86Q
9NBZAU6rDaYUPhUyH6I+eK4tEiAtW+Nq/x4hU+tSbX/7ggAzXQ3mciBk9s/b
/kb9sgAlTjZR65OFjNzr/V0RJWR/UX8iZH4JmSe1587UXxNAauPMpMZ8IbNB
PIY1o1SAlqExXx7GCplq0+s/E26S9a9Z8EX1upm6xC8RzeUCPPFnz2X43cxU
1dPnTCoEkHTw7kKBkPmsmbIj6a4AwYcCHzepdjM9RvbClnsCjJG8L6rl380M
jvKRZR6S7+ekOmSS//M/7//i4GMBRK+0fck70M2oOf6e+7FagB+7N8ZOTu1m
vBN32hk+EyDvxFLIre1mDtrkyoW/EMBp6Kuhy/tuprziU+SDWgGeew8HTDcz
O/Z2mvwbAUrvTrApvdTNLMu94+VSJ8D3sE8+1fo9jGe455dT7wTo2i6sCnHo
YfI7tRXbG0h88Qu2afzqZlQcdvZPbSTxXTkjQm5fD6O5pTUpuEkA39jJqu6H
ehi3E++bb3wRQFx2NHPXuYeZduNe1+A3sv6b+x/G9/QwThpjSpkWARY/Fnhx
xHsZl+emTESrAGYrdP3MSnoY/dUXw0vbBSiv3KdiOb+XWfLrcWhvhwB1UxaL
vrDvZWw9emdN/y3AzjOy+jLrehmZiRnX/LsEIN62GWHTy9RsUx3I6xZA4qeC
uXVoLxOj9ozd2EvWPzE6MOR+L/P5HFWjNCCA2IOTzh9X9TL2ES5uS4dIvj29
O8qno5eRSm8u2ylCYb2aw5KRf3qZ5g+KTZfYFBas9/sZTeb7tRm/+MqhsHy9
LffanD4maGbeQSVJCk/ivkstnt3HjOSdVzHnUvgS7L+11rePmbI7Y3MQn0Lr
a8mKlu19zIbCW2k5MhT+M1dCHxPhuiapeiSFw3k7bSzS+5i+wEr3XlkKTIK2
xatHfcyttGnimvIU3BZKn1zb3ceERf0OtVSkIElfijnc18eo3pv/YLMyhW9v
CnudW/uY8Wy39mOqFGidsXd0V/czmg/jW8vUqH/1qJ95U8K520hRmCRZOGaF
ez9zyGcwmDOWgrj7ua0RN/oZ+7girrYmOa9ljOZ25QFG6pV9sJkWhfz5vrtV
f/Yz6aPHVHmOp3DO5bzqZYMBZrTOzD+7dCnUNtqx9q8bYA7J1otl65P9O64s
urlhgHFqmywsnUBBrmSLkdWWAaa0f/3j14YUIuS4o/z3DjByuQV7OydT6H9/
kulLGGBig2ld3jQKx8wG13y4OsCwjduLxxpRKHn0vTj59QBTXz9bc+ZMCkdf
SHmN/THAFO/Vj1hqTOHuKZZSNT3IKGc3VLjOoaBX3uj/xXGQsXiwpWsLQ2Ek
vOW0tw4ylZ/48ntNKKgdMXzedW6Q6ZAvVz82n8LC1z9/L3ozyBTWFKrlLaTw
ln3m1sGXg0x19TepEjPCJHyD/wwylwX7v1ZaUJim2Vb0W32IOadaeOXZYgpZ
kwfD7nKGGN8Q55D3SyiImm9sbBocZDZanpvy3YpC5ZzEuYEmQ4xl78WPnTYU
TjSUyaRNGWLG2oTu7rOj0OH2aNVi8yHmQaSsBnsZsdeI8akB0UOMDh1VIuVE
wd24wSouaYhZY/jabMQKCl7fMj+4Vg4xPFrlmZwzhZWSAda3+Sy4PLFyUlxN
7DlteY5gLAuOB8LrlNeQeExglLZNYOG+Tr6zqiuFTfG5I1ZZs7C96UW9qjsF
g5UtsbuCWNCLGHJW9aQQ39RJPfNjIXWWzntlLwozays3To1kYfdbq7WK3hQ+
rBtWNBaOnPb7KreBQuaBKr79bhaWbo3aNMKXwniLV5Zlx1gYOrGLxfWnYJJ5
7/CJAhYSBT5H2QEUstO8HNVzWQh1NZjUv5nCtUlz1sZUseAZdevFry1k/tqT
rS5vWKD0lHY0byXfj6/R7mxiYUm6ltGHYAo7inUctymKQO9avfBFCIVR/X7j
jKeLgBHRrbgXRmG6aMe1cBMR8I/0p12PoGAaqu1Z6iSCKzNMos7sIP4MmFDp
4CGCM86ftmZEUbigiSUGK0UwR/FxyIFoCr+Cdj3f6SgCA/2v8WF7SD0Ydnig
CBbLKF/yiaGwpvnrkoXeIvjz0fyHUywFV3k/d0GwCNIiVk5fGEehs3kMuzhJ
BAuCph4xjKewqF3VJeQk+V76srhqAoXSvk+l3p9FMHVR+QGxwxRWbawcLO4T
gdePaQatR0g+e+t1Jb0TwbygzsYXiST/PHzCEmpEINB/cf56MgWLCUPqA10i
WKV4Jel4CoXVwwYg80skg5J3p1EIc1bVvdsjgoSU5gveGRQid8bKT1MSxawp
rc1LsijIGBSnt2uLgpFwmGuYTWHxPQmiOKLIUu0+O+oEiZexZXIXVouCb14w
pzOX7F/z6cPxy0ShMHNey9NTFD6H78mGiyg8AuJLzudR8JxU1FMSJIoGa/eT
BwoohO+/6iMVLIoH/IRLPmcozJ7UUml9QBSd15u+mJ2jYPNWNXRtsSjK7QyM
NYookOi1rLspimUFRhcGiik4vNm68CfhxLBqq1cXKZyVlv/U/1gUxj43R52/
TEGg4L3k1xNR1PXX9OwpoVBU/4wonChaTjySdLlG4feHtsJ3XaIoLQ8mGkTy
1bTltLcoG+GZGRncMhLv6tTvDQpsaG9naTfcpCA2k0ScARsBEW5visspDLsj
ZDIblTX7LkffoTAs16lkXDV6xk3HSgoJXDeeyVI2vuQb/B5fReFg6fuBjtVs
/LHQXdZzj8z/r8Fjw8Kj9fO9BxQ06nrCvUPZaO2feiLpEQVi/VN3Y9moGVGW
4PGEQnu8MP9oDBv70hecm1xD9CJjtv6LFDYMT0cNDD6lMOz9xAtsKE2fFvbg
OYUbZ4cLMBtJdrITj74k8Rw/OmHtSzbuj34u5/KKQtmexQeMP7NhljRBf/wb
Ch75a+xtv7LRwK7b9vMtBbuxMatNO9gwPRjXe6We2G+jjWcUXwyPInuLwt+T
+n/a9oKEihg4ui8zF3wg9pQ/oRyrJYZNndUVUo0U2kKZaatniWGcfZr6k08U
1umnPFlqKgb3982XEz5TSDcdFnQxLDTyibb/SuFWdYk/7S4Gc7VHcQrfKciz
PilPDRRDq9f1mlfNFLqgZ+i+hYzLfFma/IPCuO3KlQGxYogXdEs6tVGou1n8
7MQRMeTfTxtS+EnON9xeEr7iEj7lZQepT7yQtx/PieGgrWnuoV8UpigsWad9
RwzWRukOVn8ouOg8HFl1TQxPq3QX8oRE78zuF2x+JAaNpqOBd7spbNueqz+/
XozUi11Nkb3E38FNI8TfiyFYMu3orH4KE3OcfNf/EcOPtMi9vwYozFMXlTnO
5aDr9cvSgiEKWvlXxC8TfjiDSi1i0fh9cqz8XQUOlo2b0LNfhIaWf4tvhi4H
+rO9etaJ0n/3O5GDSVlqafPYNOzz3rDPgINH0hkfx4jRkHBJtpS35OBo3YwH
XYSj54mNmefAAatv9rIaDo2OCYod6U4cyPR0R+eJ0yi1TVQ/sIWDX4PXlu+U
oDFcjnqiOLj5rObpCkkaFeOq0p/t4EDy9Z62yVI0RtQOzXyUxMH+kQbnuVwa
z4bbnzwO3o6RVmwknDRm6yKJAg46ZwdqXOXR+BK43HJDGQffrM++jOfTUJUV
OpEWHdFvxCd4StNYVbHVtfYhB1+77+nPliHrq93/zDRxMGYz82zUCBqVXz69
te7g4PbZi4KvhFWm/rbyJ3z8UoDsjZE0DDNMSIsiDrNpd84cHEX/1WNlcaRH
tP90l6WRUuQ1y5jwzljUz5CjMeFgVvckLXGs/TPoxx9NQ6/vrOSgkTjuDgUU
NhBOzqlq3zhLHJ2HmxKK5Wl0aSx0d1oojg3zUuloBRqh4Urqs1eII3n+eydH
RRpKww2+qziw7fcsHSUaWR9cF0p7ikPPW7Oql/DRTPu+wFBxnLS8OPBQmYZO
4soV0jHikBv4/j5NhcaxjPMV7H3iCGTzfDaq0limJxeelymOnkPO2XPG0HAO
qNdRKxTH7n0a0dJqNC4WHOw8nC+OOVtOyL0jXLYkokujUhycWI2lhQIaL7WW
tm39Jo7RRU1TQyiy/6d5epnjJOC7Xe+eBU1DcsUO9YJUCfiPN5ZUUqfh2r03
WVZKEjYFy/58Jizx3DB0gaUksrJvxV8YS8PugsSKHccl8WTV9VeRGjSkTnEm
9j6QxMn6vY+XaNJIGLF9ekGZJJ5We29SGUf8OTi/t7VAEvbHsu98Idz6p41U
KElIL9lUUaxFY/twe3tdEnpFioHh2iSehgOmShLFc2ufWYynMXe4Ia2XRLt6
64fROjS+Kg1XSEl0zkrLaCDcJJw+8GaEFKQEGvx8XRo7fpAFjKQwfXS5TqAe
DdINkButFE6qXhLO0afxbri8u0lB59ucIAkDGjnD17lAKWR/OpZbQ/hvPZVC
+ASJ3ccm0LhyUUVWmCwF3aw7iq4TaVgaxZisySXjVfyVuoY0XoSxbFNLyHot
lHUnYY/+vv28Kik4c2cJr076938PpVBWn2S9YzLJh5mrFOTqpLDs+RZn8yk0
1AqHNie3S+Gm0kjVEVPpv/2lUAqpCdn7XxJ+eHzh5V8DUuC88ypKnUbyYda5
osWjuei1z4hZO53GvZCXD3ZRXFTIhMtrG9G4f/iEjxZht7p5Dj8IfzAYDnAu
hGbaFkUzaJDsLe9luNDN8OjYMpOszy5+dZ3wkSajpbNmEXtm7Tp2mbBGwyuX
QcJbyzJVJq7iYueICK3bxjQ2zCUK6sZF5CXP7OjZJF/eFI3a68jFxuqq5+Zz
SP69lq5T8OBir0rdNd5cEh8VLb2cEC6c5N44PiGsPGbcuSebuFDs6sk/yNA4
qa3fERnAhfTNLRdtQaM31XpvZBQXv3R3BY42of/191w4XHFueUm4YkUoN5LM
b82erpw0j4ZMmeEx3WQuJNvMBx3n09ANXO2WdJqLdysepCgtoDGcPUZHuWjf
2NH2mvCxHQ+6hce4WOf7uzd5IY2wC4/jvt/nIsBT6qaTKY3gR8SF17lI1fA0
VjKj8eaJ0O5TLhdaRvB/RbiiaIJvTjkX67serUo0p/GpgTSwNVxoh5iIOVjQ
8H332E6tmIvPOc/c5BbRmFccKVV/jQuL0ZdCnxKOa6ODTpLv109Ts4pfTOrD
gPko5Vouxk9n6iwtadSPWspbfZGLPTwrde4SGl4XmjdfeskFa1OkehXhcY8u
Dui1cFH7Tbw+aimN/8rvKy423JC3gRWNE3EatY3PuUjub4jsJ9yvtPmVbCcX
f3Yk+5RYE32w1c6K+cmFUeumUYE29N/3FjI/9FRGwERbGtzIDr5KLxdpjdbx
zYT/e08S4yH82LV1uXbkvMqk4JL5aw9K97vY0xhW5xmtXExxCLFUcSD1tNF4
UguHh3pm2vIXhEsOqanu6OZif8CGsQeW0QifJiH55RsX3Lc2p80caayODAts
5vIgOkGhheVEQ7BPNGzsCB5sOr43XyVsnJ9CNw9yYR0wcCpgOf1Xj9k8aDyM
HKu3gsaZqTqcdwIeBj/mrPhE+Lue+RQFaR6C1ydap64k/pMcDkAeaj7sEbNz
JvVoX8GDMj0eph45FcRdReO1LrngafEwMl3zVDlhnVbpMkNlHhwaDRK3raYx
cCPPPHoSDzeUOudPdKHRmUwCyIgHhTuZ5z8T9stoPpiqziP3cI/61DX0v36P
h6+7/ats1pL8eH9vdqcZscfZ9k0Srv/XFx7MvEbW3yCcY7w3XWcqD9vBEg9w
ozH0YNFhW2seQo78aNdyJ/FzNGVOzSIeliSIptQRvig6f9mVWTxMnOondtCD
RuzJC4fLbXhoXOQycYEnjeMGX22dHXho2zyk0k3Yfv8vo+Pk/xoEoVUF62hI
byqMrfPiIWa/yDQXLxpjhxuGjTxYVl93k11PQ335LTHfVTzYPqy1qyQ8LK9F
rjxUTw/nbPOm0e1/f9OpQB4WpLzbputDY/g5Ss+fh1Jr+mw94c8vZ4q7+xF7
7t2Ue2AD0YPUj+Kh4TyomvSvxkbiH3Ny4QjjQdy65W0H4d8bSIMbRM7vvF45
x5eGNpGr8fuI/T5mqdj70eDkHJolEsfD9Yk33ov50/AffgCL5CFr/WePS4Tv
/Bw1adwhMr7H9LzHJqJ31an77JN5+LRMqkw+4F8+HCb22eYYX0l4+HXzehoP
+e4rNLdsJvmVKHY6L5eHRE/jMM1AGooe0+9p5vCQmaWR8pyw2daRxnaneUjh
zg7ZuYXUj+cek4qu8uAbcIaeFETjXIvij91neLAOzdrXQLgvcLZnVjEPPdlz
rsZt/deP3eLho9GZQuNt/+L3Dg9Bbooe3wmbyCxKXn+dB7txJxoTg4k/Ti6Q
LX3Ewzb7kHELttNwGvOk3/sJDxGZFQYdhNP22SutvMfDq/2n+tJDaFRHXb8Q
VMfDn+2L4xeF0rCITFlxuZaHuKxX37oID3Rt+ZD2lId7/M2SOWFE/1Y/Uzrz
iYfAUwvaloaTevxfA8mDyaTNKb2EHyUprqHekfiZP076ZATRr8X2ftI/eIi0
3WFqE0kjg8jZYiEPW/POmPZH/utHm3kY8q2RPrWD6EW3T7HpAA9aOSPSbHbS
2F/nxfIT4YNLJ3T0Ef57nyLxkbJd5mQUjeH0kGDzIZ/V0Wm1i8atH+TCMpqP
zFTVzB7CZeWKWnYcPvhP1eRyomm0uQy/mPHxwEXNynI3/fc9Q5GPiHmM3R/C
M+TzDC+P5GOe1WkqYw+N3FLyB3J8VBiFXTTdS+P0/ojMTep8RMc0jmon/N97
rRIfrLP9RkkxNJbHWokYCvh439yuxeyjsfJyraKUAR+064f3Xwh7nX1uvngc
H7aynS4HYum/93/CJbXm+dP2k/18n6/4woiPkHWSZfWEz8cvXdWjz8fr5fap
UXE0Bl9s+641iQ9L2nqe7gHST/13AeSjkktdqCEsPSzYM/i4Z9rUGhRP4xCj
tK1tDh+5Dbc7xxwk/o0uiqbNiH3K3pXfJqyiKLPLncxXLnBc6ZVAY4FNllWT
BR/li+xuSh+iYTP6m1ywLR9l6r9aiwkf3ek7cb0lH28OLf/qeJiGrT7pcMj4
qYbTBf2EaZPhFyRynvFs4+NHyP5qWsfF2fBRunHf0YVHaXx7f2dcFRkvjltz
/TthH5mRj5668SFjdqowLpHGWqMNK48s5+N/eomPKg==
                   "]]}, {
                  Hue[0.9060679774997897, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJwtmHk8FW0Ux+91F+5cJBSRmRGpLK2kSM9pRdlJlFKJdkVSlqxRRCilEF4l
hUpKKtqT0mILFSG0ESLci4v3Uf3l8zVzZ57n95zzO+eM6pa9Nq5iDAbjBJPB
GPs75WF9wYA7CZPY9tI6ed1oILt6a6gHCfZFcT6t436jiy8vePO9SOhVKlze
V9OLZoNFV5w3CS8d31dJB/ajii3vyyf6kJAh7+Vn2iJA4XeXqCT6kSDufNZs
guQASiDCa5QDSAho2VWmzRtEIy7nR5KCSNi4+oW4UdIgylH3T1AKJSFtgmLe
vepBlM+Ru5AQRoKloUjP8cIgWq9mqSZ3jIR5e0ZLV8kNIgmuklJ0JAlTDeeL
dRsMIOVsxwhONAmaUTrshZeFKDv6l6d/DAnm//3GKxaiKdfvv++OI8H2pvi6
YFUhKklNLnKNJ6HT2XGHDSFE04+60u/PkHDCMCO0b1SA3LU7OKbnSLBT8ZxX
zxCiUyPsvXeSSPDKnzD0qhPvb7LfBo0UEvorrmilfhEgnQ1KVSfTSPBzMw1K
/ChATmuzKobTSRif9e5ncI0AXdjRtW5bBgkDH+etFnsnQBOfZO0ryyRheKe0
zOsKAfrlmig/P4uEqAchui6Y1Rf6mCTlkEClV6g8eytADZxRqdFrJJT0HplK
lgtQU2iT2+YbJDjEumkn4us1zmV2T26S8CVpj7tZmQBFLfX9oHqbBN+SGQYn
XwmQ3Puo/sA7JNCVe53F8f1va65frb9HQjYvvZMlI0S7uRGMBfdJUA+c/at+
SIDKVhb+intIgs7PHUcfXhKgujNfA9sek1CQoLuy/bIA6Spfvr7kGQm14ZEe
IxpC9EU9MTjhOQk5zdGv1bB+A/p2gvYXJNzsimwKzBagkfG7ZNErEvSWvDvM
qBSgfbn73sW+IeH5s68tH62ESGVt7+LPZXj/E/TOhn8WoJ1nQmxnV5LwRm1s
QQIUa50hF/DuXzxFCdHjZy1BpTUkXJcYKTipIkSLjj9JnvCBBMdPbQt/DAuQ
fcbT7c51JCx+9bupM0eI3ALcvmZ+IiFC3XdSsacQZfVMU+hqJMHU5daJLLx+
pTUhIt1mEk7ptakqbRAi9QMdCT6tJFyMVqtprhIil4sNbUVfSShmlV5y2ixE
ekUv+ke+Y703/1eju1eIHNQm30ftJCj3yUR30gPIuWolCuwg4YF5YL9asRBp
b7wVcL+LhDOqJw54JAmR+e83/oPdJKx3Vr/1xWkA2bgOGszvxfmw/VqVyeoB
JD0r5d6+fqz/oYq1sV+FqPyQ8vAVIQk9S8rcqrcNoAiVSlbzIAl1exQS228N
oC/XqXLFYRKCTB4eVlkwgOwCnV0sRkmQ8LR6YlY3gHjn2x6EMClQ6D5/tq95
ALU1KbTmsyjoybXalXhwAO3tNHz3jUNBmQXX+KXWIPJeeCVWUYICey25gCvU
IJLh5yqZEBTsw9EzqWIAzQtP2e8tScGb618Zj5MH0e6cR8kXpClo+v1U4rP1
IArcsimhTIYCo2pV/adSg2jIq3jroCz+/Z+EHUSPkvW46hMoqC5LirQ7O4gO
h/b6mylQIGfaOzfSdRApv1hWun8SBbsP+WZoLxtC01kuXeeUKVATNq7y/jmI
1F/FdDxQoaBgAxbsxSD6cIfzvJnC7wvYW5V6eAid3DXiw5mC97cxf+5nhSFk
F32DmKZOAefTxkpFnSHEq7XzMdag4G3GnayfhUPovPzkErfpFBCrF6XtXjWE
5Gcs7DuiScH6pYu/f8jBz5OtZ6drUwAN2fYaoiHk0DlXcH8mBQeooHcab4fQ
fdGON+9nUzDl0nLZ+5IiJJeRfaxnLgXfno8lrAgd96E1+Xp4/b9fUJKLRIhl
2JU3RZ+CyUtPJxpZiVB9/SL1hQsp+FS506TeRYTyjmkHWhhSQGZ+N5kZKEKT
0hufbTGigFV2/+jqEyJkWnqg/wCiICe259TOVBEqbpGccGwJfn/2eqNp90Wo
e8Jj1XPLKNixVvXLtGoRyinPUbmyAutdesS57ZsIlZV9590xxs/btCg0fESE
bpNR34pNKdDS88MWPIyuK+cUVK6moP1q8FVZ7WHk7ufk12BOwUNXi4Ti5cNo
j9n1eT8sKcjr/Y/ftn4YmQ3e+txjTYHKwVXi7YHDaIq1f/iQLQVPZvX9vpQ+
jEqDZNVY9hTM1rwiV/5sGM2gQ+/wHCjwD1BUXfRxGG2a/d543DoKqD+GMoz4
tFKlnBMFC5MHqifTI8j5raWDwkb8vE+OhR1LR9DaEwF1kzZRYDOu4rv0lhH0
ckaWk/IWCpQUpI9sDR5Bvq3v6pW3UtDqdoeZmjqCtAJHnZTdKMiSvjvJ/dEI
SjKY0TBpOwU7GzwiT7SOoPCPlpsVdlL//H8ExV/e+01uNwW8MXtRHkUWB0M9
xrlTUGW+RcZh4SgavXiEQezDenvEZIzbMIrOkLtOszwpGEJHB3pCRpH/Fp05
ov0UXIDUF6cujiK30Efvfh+g4PzM4xFvSkYRpaUY3HaQguT6Liv576PI/LyG
fpMPBZeIlVMPiDFA61694J0fBVce60pS4xmAmJrPXhymYMw+bZQZIBkvSi4M
pCBOe5NYwUwGFCxYEno1mIKNYfGpdoYMuOrUcjAllIJ1v9Kv0+YMMFJ443ci
jIIAm46qbgcG6Gh/izl8lIItq9QrXm1nwGrpSfm7Iii4WXkRV3AG9H02+elw
nILVjuELasIYkBy4fv6KaHx++DinnGbAcm/d+NkxFFxsrV7IvYjvl7rNVY6j
4HhToNaHGwzQXfX4BPsUBc/DWKqOjxiw/aeeTkc8BRVe3nMXlDJgqXdP87sz
FPhmLXMPr2MAqf0ut/As9UetXV8ZsEGhIOG/RJy/6j8SXwoYcEfC+2x4Mj7v
ara1gMmEuMS2mztTKPASvzEvTJoJBvM62szTsD5F15xzlZmAxNcsnp2O8704
Zs5BHSakKQuvjb9Iwe0aBd6ehUyQNMk26smgoF9txVaHFUyYuHBpe0UmBePn
L7pvY88EV8+YO7lXKBBd6a4038KERqutl05kU6Cvf2matgcTSiXj8nddpf7W
Sz8m9BS2fjW+jvMtqsa6+ggTHtvqGKrdwHpcunnqcRwT7LP1bw7nUfDU+Fm8
SToTzhwus6y9RQEO/gVbrjLBcNfD8bm3cbwtOKKpV8iEOlH5wNE7FISMXt1a
8pwJ7RdfSzjfo2Cu0eYI8XdMuP/YB9cgCsaqpVozEwJSU1KIBxR86ZDI5HQx
YZovY1rjQwrEf000sRIxwTPQ5UPeY5y/3fnbzrDFoLg88nbYUwosHZqZrnJi
oBy24OHaYgoSrvatWKosBl+zdHqnl1AQam16PkhDDPpMNe0HXlAwa6yA6ImB
qWvHlxeleD9SQtHspWLQIdK9mPCagpSNM17JGItB+bgHca5vqb/9jp0YRJ5f
fn1uOQUGrxMUNjmLwezLocMjFdi/+W8OKO0QA8X5eodLqyh47P7+9vT9YpBg
KzvrdDUFB49UhSgcFoOX8lVyzrW4PskbXL9xXAyME2ZqT/+A84tZxJGNF4NG
Vt2hXx9xPg73H2hKFoOVsdGDBfUUGMc01vVmisHroMEbAQ0UROZ+/nE6Tww4
mtWpy5vw88bstFAMPHrKnvGaKfjzumIxmGqXrPq2hYKoVW1s3Qox2NrQdjvu
CwU/w/ccn1snBiv0d4XZfcP6qemcLmgRAxOV19ETf1Dgbu0WataD9dheWF7b
RsE1zaFrEiP4uvRXi7M/sf+Oha8EC2JIoYRDJ/W3/xvPgqyXyaMTf2G/bZ6v
9EiZBQXOAfOquymoabZlRE1jQazNyoyTv3E+pf/4uXU2C6z0z6+x7MP3X94Z
ctmQBRUlmiv4AgpmNhvOaV/BArXW017PhdTf/tCChf3iSGvQIAXLzXAH5MgC
H4nk0wYiCubnrgkp3syCn8lBx34PU/DVZ9/BGncW9L+vvp89SkHwoQ0PNx1k
wasFVNINBg0KBRWMhhAW2E+dORDFpOFQwnGhRRQLtBdtH9gmRsOD2ec0FU+z
YE6aSvJSFg3knsk3Jqay4LVUyufJbBoqDbIS6SwWnK5bUNqP+bid4nqJPBYw
hhbZl3NomCYwlOfcY4H0gDDsCpf+Vy9Y8HvknmOIOA0Wt7Jje6pY8LCyvGKd
BA1/xoMGFki8P9o5l0cDUy9/99UuFkTJ6OQSBA1W0Qnusiw2fJwspdCM+fHl
ixYgx4aeRV5qd/k0WOPuJ3kKG75bXauOkaSBg4/HRIcNYR+4M92kaMDZFm++
kA3fhC+0F0nT4HbMZUP9SjZM3o8qx4+joQUfzzYrNjy5dov8htmuJSPp2SY2
/JfvKVskQ//tdzzYYKz39GrseBrkv8v5nPRiw/nArl9bZbEeY+ODDxtCjkP9
AjkaEm8HumZEsGFz38heSXmsR0Za3epENjwf9cxpxDwWbmrJeP2nWuPyJmB9
th7I/naRDbuXJtFhE2lYjKJkyKtsOLuswWGtAg2Xxm2wasxjAxzqNZihSMNA
aPC3hqds0NqpXjKI2dc2jnB5xYZLZreGX02iQbVtMePKGzbIDf9oSFaiIdVR
Nu1SDRu8WPxde5Rp4EVSLp0f2TBw0indaDIN31Rwg9LJhvBItTApFRrCafGp
r3vZYHTgotwnzNoFt5RkBWzgHFezyCFp+HyraYUzkwPyN1p1/SgarklNaBFJ
ccDdV+uFKU3D7mXFCwLlOLBvuqGEoioN54JLhYJJHLDOtu/7gvlIX6D076kc
SEt/FHNzCv23P9PmwNsNhbVBajTcs8AK6XPgUv2xN+bqNLRPZuXVGnKgomyn
h9JUGpbv2PsrzJQDdufSn37FHN+g/6DfjANS5h7P8jRoMKY31s5y4IDWDQWv
gGk06OHqa7uFA3mLaypNp9MAcpufVu3iQJdqR5P8DBoavkx5ILefAz0GySmN
mC/1eGML4QCPVJPM0qSxzrOlnh7lwHz5xzO8tGjA02RQWQxen3K+wEibhrPW
WKFEDsz4buQtrkOD4mHOjufpHEhvOZdRjtl5Y9BhrywOBMwUDz83E8cbHq8C
czmgmfZUYcss+m+/fwdfL5FcrzmbhrFwvfsEv6+dsurBXL78/a/eUg44EQaC
u3Pov/W7mgMP6hOsgudi/d87e1s2cMC+6oCTyTwaDGA2tkwOPFSUUR6nS8Ox
3rra4N8cSIpLj6rGrGHLuXBykIP76O03kvRomOs5sf8WiwuDdikRm+fTMHZ6
xHguPJMOmDBNnwYBd2xg44JL3dI1PzFneuWOlKlyQWA8zfTGAhqWjA2UWlzQ
THHtPrCQBvNVY//hQnyrvoWBAf23/0VcUGusdR7B7JY2d+TwSi6EjAvUeGJI
Q6T3BJsAGy4E5bulhy365z9ruLCnrKTKxAjrjbu7HmcuHFOqu8dfTIPJvInm
27ZxwUHuw9q3mEtmWt/X28cFhf6BrFiE/cGeN/Hofi5IPTxwywZoEDPZ09wa
wIXfmke85JfQMN52SsTGcC6sKXBqr8Y8dWycPM6FjvT5kxKW0iC96uyOoQQu
SHSajKxdhs8Pj0vWiVz4tK40UXH5v/jN4ELXnu7O95g3X+pwdrzChW3uvYNn
V9D/6hMXPN14Dx1W0uDjcFnvTSEXktTcDBWNaZjs7Odm+ogLGvqwrxYz0tt4
z/Q1F3b0v95wxoT+9z2BC9P8lrDXmNJ/v6/UceHLhUoXuVXYPxOK8cTNBVP5
fP8KzH/C7Qf+vZ6KZcxqHK9HJ354K+DC9PmozsyMhvOrPdZ8wHyUb6lKmNMg
Y2j7vYgrDgyPINUSzKV22FGlxaHmO7c+1IKGk3E3czNVxGF30QRrsKQhY5dG
4+554nBW1BgkwvynnzsoDn3BZ3fdsaJhlDfT/l2TOOh3eIz3sqYBmyvr0GoJ
8M9M8Zxlg/27cW7mq3QJSG62imnD/GFqVgG3XwICzt3blmGL9+PbKPw4jweb
Y6VEznY43qvtf84y5MG8NX5mSmuwPxlE37IjeVCP9BzfYfYflzD5IMGDKM/d
U07Y03D77hyjzTweEB+tLxuvxfFhJVLcr8ADsZkT2xkOON5bQ1PeaPLAuvtH
213MQQUQ0mzMAyvP4UxPRxou7jMial14oPYqaIrWOqx/6lN/n2AejHy+sK4F
s32Br4VvKg98dpyxSlqP4+PIVqbcHR6UNx1l2zrh/fg7KWs+54FufKY3sYGG
Z/4+zP4KHsicV898jFmYEdBg18qDNc06Zw5tpGHS5KnX33bzoEixZ9ksZxqu
rzv3a/UwDyY+Tc39ghk+xGsV8Qk4Pte1PmkTDX/sV5GAb+H7Sqw305DnoiZz
XYuA+mtdHuJbcDyL9uIKRYDxdpn6IswXuFWz/ZcT4AsMrqcLDXv2u/g+sSHA
L/5nl8ZWGspCC296ryfAPE4ssQ6z7auawSmbCZilu5cd60rDzNg04Rw3AppX
Oc9a7kbDQ62xDpaAzv2jSkLMe4PZxTEeBDSS/iXZ22joberM+eRNQEQUU895
O/aDxBvbDfwIMCsrdJHdQcMii4o4pwACbF7V2BZjfto33SkmhICy+QGcQztx
vl4t9MkKJWB54qdDmrtw/n/4iiduAu5b0dfqMVcVtcirRBAgc8wj48RunC9x
00xrowhQXiLaCHtoGNuebAwBXKv2j92YRxJzrMfF4f077Zh0wZ2GJ2Pj1yms
3+c0Jbu9OD/+GBQBhbOKGtj7aOjyHN8YcY6AtB1fXPMx5+bozuCcx9ePrsx1
9aChmVxN3UsjoMWe92CCJ/bnJZu+lKdjfQ6tjSnGPPY1a1UWAVlb16kf2E+D
g31ifMg1As64GR5W98L7F5AzF2JOTVNLrMK84Hf2QsglIJFY5BdyAOu32/7w
tdsEuHteped44/r3MXLYtYAAK/+0yEbMXLOmmk9FBAykG92NPoj3G7TpBPmQ
gM/6V3MMD+H99Cd8OlVCgLeLgusPzL36/8kwMdtOvdh8xgfHo8TniucVBByy
85u63JeGzoPTid6XBASmPtPpxix6XpviWElAbVTm0Hk/nL/zBtyS6gjo810d
s8qfhpXx/Vzn9wREp9V+7/f/54cfCXghuV/iwuF/8fOZAK/M5Z0WAbg/Mc23
LGkhYMmc/YmDmMc+507H1zuXTZW6FIjzzzXDdMZ3AoJsgldaB+HzbHkSHPuT
gINXrq4UYX4Snrm2tIeAUfdyqcxg3E+161baDBCgcWFcsnUIrvdDKpFiwwQQ
dFz3EOa/8xGOj0Rf6UuhOB8lnrUPcvgwIa27x/IIDWPTzxMuH1KTlFMHMPMy
ObMGCT5IVqjIXQjD/cQncTqfx4dSZxVLs3AabozZtyQfApci2z7MuufPS56Q
5cNSy8tUylEa5kw9+d1Vng/P9A/fWnkMP3/7q7vyCnwIi2ge34X5z/dHFT4w
ron0EyJw/UmUUE4h+dDQ1qWBInE/VfRqhf80PtBbmhq+Yr63izeQhtlGtsf5
xHHsB+0KP8N1+HCnxiRLLwrre+3XTIU5fPDbJvGgPupffzyLD+8d7ZJCo2mQ
oPMjThnywYy2Wqp5Aufv/nvaGvP5UExQN8sx/2kv9fnwYmVrh3cMrqf1M1Ry
EB8yGp/0TI6l4csdWwMHzKkPPj1+gnlEayxD+DApe+367XE0ELUX9hmt4sPj
VbYPpU7SULi5Lv31Sj48UP3dkYf55JnSuvEWfPhw0vHb2lM4XsduMONDZuPl
bBHmkqCffZ2WeD/TWYb/xdMwSFRGrbDlw/09kadXnKbBb6wArONDXvSmwh+Y
x9x0YD0fpI0zc6LP0MDS2NfuvpEP/wMs+aGn
                   "]]}, {
                  Hue[0.1421359549995791, 0.6, 0.6], 
                  Directive[
                   PointSize[0.004583333333333334], 
                   AbsoluteThickness[1.6], 
                   Dashing[{0, Small, Small, Small}], 
                   GrayLevel[0]], 
                  LineBox[CompressedData["
1:eJw1mHk8Vd/Xxy8X91xDk8x1zjGkMlemkvZKiQbzWCmlSJMKyRQiRIQUZcrX
kNBEiTKUkNKkERGlUIRc8/xs/Tx/3df7tc85d+81fNZaW9rhmLkjN4PBuMDF
YMz8yjxuKhx1IcF6jnJ+cm8HGs39tD/oBAme+n8fX/7TiTJepHsIuJPg/Ova
Nwf9HqQGxr0xHiRU6catc1//F71zqK8V9SJh5Q4DK+HKPhTycP3iBB8Srqbc
rWRu6Ufx/CGfpfxIEPtY+Op3fj+a2pc8lRhAQss3gdjswAF0U843XjKIBAuZ
sN2b8gZQAa9wenwwCYFV31/dcRpAO2VNZIXPkZBpDMJ7K/oRwScpGRlOQpHO
4cJdvzhIKnd7GG8kCRJudQs46zkoN/Kvq28UCVpa15cq9fUhmTul9X0xJCz4
4qpS9akPVV9LKnG8REIuz/mKqy19aFmoI10fR0KGhc26l/19yEWpm3fzVRK8
dJ4eLBfgoNgpnmNFiXi/IuXT1is5KGSRzy75FBJ8UkXE89dwkPIuyQ8XU0ng
Luxpz57DQXY2Oe8m00iQHWnZ4nGEg9IP9u44kEnCRHbfeyMHDhJ9mnP8bRYJ
Y/zvI/QtOOivY8JCzRwSDB+fXqx9gIPkVnsZJt4k4ZSyNDWA32/mnRaavk3C
ntdcgau9Oehb0DenvXkkSLo86QiN4aDP9m8tn94jQVED7+gKB0XoeTdIP8D2
uzHOyHjAQcL1EUP+RSSMe1nE8O/joDef79xqekTCOt4nnnyRHHSEL4yhXUpC
vUJ56/F2Dnq7qfhvzGMSKortKk/h/TbGtft3lpOgIdeTN/AfB6lL3bizvpKE
y6dteKYbOahNLuFM/DMSFJ6NJpqe46BRLcvhrufYfrY3NF4Xc9DU/MML0EsS
tvRK2fs4cdDxu8c/Rr/G9tDYnk6mcdBim4F139+S8M/9TRx0KC7QQu09Capm
pRp3P3FQtFmmsN9HEgy0lT3f1XFQeeWPgJrPOF4TLgW63OGgteefJok0YH+b
nHz++i8HWWdWONs3kvCfcoe5nVU/cvJzas/6SkKd2Sces1P9KIezVKy3Bb//
cY9kSFQ/krQKnFBvJaFaZeYP+5Hcye54r58kPMz5Uywz0o/2ZTR3lrSTwJfi
Mzd+0QDSKHk+NPWLhBTWqQPdmgPIVnZRKeoiwUp8J+FqOoDsP2xC/t0kZNl9
36XiMICUdt/3K+0lYa6/0ecboQPIqP+171gfCasq81Rc0geQuePYGs0BEtTT
7muNPB1Ac1RTHh0fIuHIuttCIj8GUK2n1GT2CAmk6CGj/jmDKGzxe2brGAmP
5yStSlMfRG13qFrxSRJsO8SjS3cPIkt/+33G03g9gcnj5j6I2MmdZYFcFKSG
3f3++/Ig6vwm9rOASYFSyUt936xBdKxH52MHLwUa781xyA8ij9XZ0eIEBT+e
nolW+jaI5gnclTTkp2CCkaF5gjOIVoWkuHkIUmCkvLPrPM8QOnLzSVL6HAp+
y68gbi4aQv4Oe+LfzqOgQ8MjrFN5CI27V+0fW0DBoq5WTUkYQk+SNPjkRCg4
sy5m6WabIXQ6aMB3mxgFT/LfZyx0H0JSzzfUuElQ8PA4LSdwZQgtY+7rvSpF
gZ+49NovRUNI7mVUd9liCqJLmyf7modQQxHvs1aKgqgc+XOP5g6ji4envHhl
KCC/3/+mbz+MLCPz+JfKUZAO157HZgwjdp2ll4E8Bc2xocE7Pgyj5IWLqp2W
URBrXtu9RGgELVy+evCsAgUbt4XJeUuMoIsLmnjSlChQ38r98ePKEWTbs3K4
VIWCrXe1k0atRlDpxMHX9WoUNFzVw0ceQcKZuec4K/F+ng4us4saQee9aAUB
DQpu/1UR60seQUyd3nwZLby/VaYS02UjqKlprdzq1RTsrlOtF2ocQfnnlPyN
dSgQ9Kh4oC8xiiTSWioddLE9f3wxXWE8ijbXnBw6iSioCfMQMfcbRVU/BEXO
racgYsT4lXfeKOoTKZe+uoECxYa8+efqRtHN2puLs/UpIJhvS0NfjqK3b3+x
iwwo2Pcw81N00Sh6QEZ0VG3G530ibZndMIruSN0sfL+VghPtNm4B30aRi4+d
T7MRBZvrtpU1tI+io9vurPptQoFUyu7lL+eNoW1j979zzCgI0f5cdVR9DMmY
+YaMW1DweTXf/junxlBNwAJZpjUF5pzORcz8MbScDipi2/6/fcfRHrV6g7k7
KFDDpxd1HEcCtOR7YTsKQsNPTMlfGkf2b0xsxXZT8Ocr1WuVO45sLvg1Suyh
wEPyYHZJ8jh6sTzHTsqBgvUlt+3vJo4j758fm6T2U8BY3P5S4O44UvSftpNy
ouByoWySaMk4SlyzvFnCmYLIHtrjeu04CvlislfsEAWnyq5Jqn4dR5duHOsQ
PkJB8vzM0nKxCWR8KujEXBcKfgl7XXQ3mkDTGWcZ/Mcp0Im8b9l8YQLFkYcv
M10p2Gkvd7+taQL5OiivmHCj4F/4rZ9ETkFPPvafxP4v9srZ4DKJKEXxM52n
8PkqZwroJDJKltf65kVBxQdFRwmHSaT4qGn4ow8FM7uPMp5EiEuh8vlpCoa5
DI+27p9Egpcmkor9KXjQqKJed3ASFWqvD7p1hoJxFDrKCZxEt+x+nEoJwvHM
0Cg4cmsS6Yq99rkQTMF2scJ3jOZJpKzUEXU6FNujr3eVyqIptHWORMHhMAqW
e528wLV9Cg1+N/xje54Cb4kq1625UyjJf6emfiTOv4iHh9mjU2ijh/oltSgK
jne5pHTOm0aDQg/4pGIoKPQ29m4ZmULqW8ov8MRS/6vf7VPI+Y+GcvclCsQM
TSfE+6eQngen9WMcBbp+xz5cm5xCpNLHu8VXKJghw/nTaJdYYfx/CRSkxZsp
FapPoyLC40pIEgXrfjXcHLObRjEJnfcOpVDQY7/9oHn4NFqzqrvTKJUCLN5W
gVXTCLGs1qml4fjV7s9dzWBAqtTI7fkZFLi/H39WRzJA0DBXl5NJwQcjh3m2
qxkgulqv610Wjsex7q4nmB1do4ruZlPQenIy8KsaA1pM91+/kEsBf9OjxKw1
DKgRjCk4fIsC7S27k/cBAzjFP9sN7lCAi8OpLQYMKLdQ1pHNoyDpqMs2E1sG
WOdq3ZvMx/nm/XTBXGcGxJ1+a1J3nwKnzQEJOzwYoHP48fy7Dyjoq9sf6X2O
AY0TtaOhRRTsCs+tKctlQFfGK8L+EQXKMwX7GQNKy71wDaKgCAJbq+sZ4Hct
JYW/jIIDnNeaWu0MWOrNWNrymAKtCqGRib8McPXf15BfTgG7smuMd5wBVbXh
D4IrKLiz4+rfrZMMkArWfmxTRcGcA34aLIIL2nOUB5ZVU6ByK6RSV5QLBjcr
WI8+p4Dr0KGGHRQXbHbsbnteQ0Hu20/Wf1S5oHtCPSP+FQWDjXVn3DZxQe3c
shjHNxQ4HOBPrrPlgvDkjXdW1lKwKuulg4MbF6jdCJqceof1S6S5TcaPC8Q1
NU7XfKBm+xEuiLdYoHr5E87nj6cZ5olc8GLhB2H7OgpqOWuLdHK5wCBeRWlZ
AwXxN5ol63O4oIXZ6Pn3C9aP4qVzBQq4YFN05FhhE86Xap9PNZVc8CpgLM+v
GceT/oP+yY9cwKvw6drGbxQE5wXTrDYuOMF5W8lupWDNxZf+htNcsMQySfrN
DwoSluATS3DD/ubOBzFtWK9NNdv4VblBX+twsGUHBTDkPVytww2Gi19Fiv7G
+qZUeF/SnBu6nYtr6zopsGe9kTDbgdfntBtf+YOfH4+RWXmEG6LIEcK2B+uH
xa+SZy7ckPMiaVr0LwX12HqXPLih0N5v1ae+2fgK4IZo802ZF/spWMaR+50Q
xg2mWslWJoOz+h7PDe+qFfQFhimoC8GCeZ0bZH9edn82QsG26/yblhRwg+Cl
sz8DxiigtlKPUsu4wYtIurxmggLLiH6t/2q54U9SwLn+SQrcVKqsHFu4Yaj+
U2nuNH7fxLaVq40bXmpTiXkMGs5/81ds6OMG6yUqoxFcNGw3CzooPsUNSmud
Rw9w09CWiAN+LhNWpC5O0mPSMOZ3qMRdmAmvhFK+L+Kh4evu9+K3ZJlwuVG7
ZgjzlfTq3qNrmMAYX2tdy0tD6vW4W4P6TJgzOhKczUdDnHxmauNWJvRPPdoe
yKLhRWzGYXl7Jjx+X/tuB0FD+h36ta07E4j60J6VbBoelBk6v/RiQsQ85bv8
/DTMnEbkDBO+LBISa8XMlJ9RLCZw1rrLPhTAzx+I47mRzYRfprc/RQnS8Poi
FsybTAhu4FNxEqKhQHLBsO0jJnSMPFdaO4eGgZXhbXGfmbDIDb2fP5eGD8Jx
ntDAhKe375MdmBnPVjn/amHCfwWuC0rm0UBm/TJUmWaCgUbFrej5NKxXVNt/
UpEHkv17/+5fQEM+7v64fHkg8Dw0aQvTsEPhmIF2Nw/sHZw6JriQhl/NFUuq
d/HCs2nXmy2YC+PVN3Xd4AVO7M+YfBEatvgEqW5r54Ujeol0sCgNf7GaE2w+
uLKh2dZGjAanUvGasCFeAM+BNcvFaZgvYd23CT+veEiuegyz0+HTMbWifHB9
2/3JlxI0eP0TBD4QnvzdnCRJQ98jv3IXWz5wZwocPipFg9mKNy1n9fhg9KJd
mu4iGoo/ub0f38QHIeGywUKLaZDe/oTHZRcf6J7MEP6KGVvLeoMDH/CelzW+
SdL/m7fs+WBh3k91H4qGle23l/wM4gMXb8Xnm2nsX0pw7XAKHxxfpkOIS9OQ
UjBT4PjALNd6sA2z5Pnr92K5WJCa9iTqngwNYT5Kp39xs+DNruK6AFkaeG9k
Ox6exOdpOvfaSI4GUaMDS4NkWfDu7aETkktoSBPo3NmuzgLLq2kV7ZitFYX9
sikWCBmdqMyXp+FabLNWmSYLFPPE3P2W0vBvPDBkQf66z+83L6NBf0FphMNq
FvRKd39buJyGVf8OyALOmqSUFsx4OrGJdmIBm5QVzFGg4QuuVkeDWaC5sHy5
uyL9v3oUwILrUgXDuko0uBzEE9UJFiz/pevBUqZB5MeE0bKzLEj7cTWzFrNK
zZHozSEs8FNhhVxVocHxp9Kfg6EsUEitEHNQpUFg94BIxlW8Xi24U0GNhksN
dGxEEv6/LsqUg5nn30DPAjv+NcMPV9BwRjp3p24WC8qa4k3PrKRBfA+V/Cif
BdYfTtoZrqJh+o9B+PO7LHgsPk9qrjoNgiy9/IAXLEiMSYv4hPnCRZsO8VoW
8H51zkvUoEG2/zklWMKCMcuUsL2aNNhZDe2aj7lyjp/IUi0aenA1la1hwb5G
Pas/mO2vbBOJwDxssHRznjYNDiPnrizA31dIcew7uZqGXjw9P2xgwaWfWsZr
1tCz/QMLZFvq7Kcwa+x75+7BYUHgXH/5pzo0nC2+59HIS0BAgVNa8FoauEJN
M53mEnD0bfUHQ10axmXwBLiAgHOSjY8E1tFgMTPQcxFgK9xg8wbzZEm2YXAf
C8SGRnOiEQ3B9p0dRvh7Qo9P3jcH7H/HFXmjIyzoVzjrvnA9DQf/DcAssCq0
6/qEGQ/Hn89LE9CdpikRr0fDmpl2FxFA9BhO2WygAXeDduGKBHzdUZMgvpGG
6kdFkXxqBPQe7eupx6wjsWjJHWMCDrgMjF3Rp+Gq0MoXz7cT4OrEfmy7CecT
9mawLgGJsk464gbYH893905pEyCvBcfrML+zy4qJ20LAwaFXu+IMaXipPFOw
CVjqs57HajMNhx2fqg6uIqAt/f0+4S30bL9JwOaFBb7vMONh1Nk9FL+vsdgk
aisNy+3wxOJMwDJN1LhtGw0LZb7Ny7EkIFTARJrfiIa8cK2VUb4EME4ESFdj
FpBb5hfhRcDnX3xNQcZY//1C08CegCMlImZgQsOyIltcIQi4MtESMIGZvy79
uG44AYNnrhwuMsX6c27frqYQArS6T8x3N8PxufNUvyXej29WiquqOQ0V9XrR
QRcJSGo1jerE/K+/wM/7XX10INOChn/p4E/A3mihCXtL7J812KKZBKyy8tkm
aYX1X+qqwVQqAU1IY/tHzK6PN5ilRhEQ4XpE5oI1DY3hk47DGQTwfzG7YWCD
/RU/He1XTAC3imgXw5aGrR5HeFoLCDDr+935EHOFQvPztfkEmLpOZrlup0EG
T0vMWwTIvgyQUdyB9Xyf7Lw7uQRMfU/f8QMzrn6x4pUEeB2MM03cietJWOz4
4hoCar+F8ljY0eA90Xwd4f9Tv5Tlwb+LBjfnmG7fxwTMS5bLKsfs6Z2ptKGJ
AKtW5TjP3TTcY+04I91FQIk4Z4OqPQ0xn26lxDYTIFpx7W6b/awePyPg/ErH
psQ99Ox9FwEdIcerzfbO2qcN2+N27wmWAw1iDW+GLX4QYOA8r6kEc+1S3GB8
IcAbGHyu+2bt940An0t/euX307Ciq8rUeIAAoxjuhEbMR2+IdxzjZoOq+jGe
aMdZ+40T0LrFXnWjE7bXA/2rQhwCetymJUcw426vTLifgBbStzr3ANYfzx5d
O7weFsGlYe88G48sNmx7W7xvwUGs76xLRg/x981ffraowvxK33ep0yQBbzX9
eD0P4fy2sU64hNc3Jnz1VDhMw79xV4MNpab07SbM93rDccfChnnnTmReOIL1
cHrniwtCbJBaP7EbjtIw034/EGUDn2nXlz7MCjae8ee12eBtd1Ai3YWGnXp4
4lBiQ8f3VEnLY7h+G4qqnZFiQ7FqSTPPcZz/9rEandJsSD3Y5liAmTMzThni
9dBNdx1PYH/OXEeasOGHNbtMxBX3FyfxwLqWDa2eNlFVmGeuT85qsiFn/w65
k2401D2xZosasCHOSee0nPusfm5hw7VU2YQPmFX/XRiyIYF/rU/gSayngm0b
i/G6i+steoUHrichUn9H97LB1Dc1vAWzxcvPYzKYR9N0H0aemq0X29nwXevW
TR1PrBd4+b+jbPDYJ+b4G3PRzHjszAaLJRmtcV40vLFY7LrKjg2elj5LNnrT
kMWLd2DOBv9rlcp9mI8pmO89gr9fF5E1nuyD9d+1afniI2wY9N4atcUX+6vn
RYUe/n5kat2vIcwz6Weynw3PBd2I9NP07H0PG9yzNvYY+83aN5EN61e4JYxh
fqQkr0nFs6FnwxKh6/40qM0EdDAbAszPbDILmO13wthwKvvWpgnMrA9qvhsj
2DDtUiuUdQbXl7N/nX+cY4N8+twks0AafBOncIVjAz8d0zeOeReWzxr8f/MS
vOdcD8L58jQ9UjaODSKpfRyTs7h/C+c+LROF7Z8odW307Kw/MQu+WyycHkyD
1aEhULzLhhr7xSbbQrB+3lsvL/EQ20cPWQyGzNrnPzbomdygUkJxv2OlppAd
y4ZKrdP3N53D8S2Y6yl7jw3BYa3zezFLzVzA4u8xbk9oxYfRMDM+1Weyobmz
Vx6F0xC9MGavyB020A7fmtsx31wNagZvcX4s4NhfOI/1NHXl1OlnbCj6bJij
EUHD6vjWnHz8vM8BoqwJs8q09ORQARvqt1smBkXSEOKativ4I8432lRP4QIN
U3P0z6x7x4YqfupeLeZ/148l2F+bfnZ7RNH/m3eK2ZDZ8pSzKJoGvcsJurU1
2D5lX8ufYj4ZK85j/YYNErk2O51j6Nn7JjaUb7F4LHQR57v02i/arWwok+7v
zsdcUDGTQGxouLi9wyYWxwdu3x/i/WS13MidiJ2dB6rweZYxdf67RMOemQv2
3zi/j4Zf1r9Mw2jqgXud/WzIj9xT/BtzquW4+9p2NswxyLoZGUcDdwIhldLM
hv8DMpfGOw==
                   "]]}}}, {}}}, {
             DisplayFunction -> Identity, GridLines -> {None, None}, 
              DisplayFunction -> Identity, DisplayFunction -> Identity, 
              DisplayFunction -> Identity, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.02], 
                 Scaled[0.05]}}, AxesOrigin -> {7.58315269907919, 0}, 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {
                0, 3.54874}}, DisplayFunction -> Identity, AspectRatio -> 
              NCache[GoldenRatio^(-1), 0.6180339887498948], 
              Axes -> {True, True}, AxesLabel -> {
                FormBox["\"year\"", TraditionalForm], 
                FormBox["\"dC\"", TraditionalForm]}, 
              AxesOrigin -> {7.58315269907919, 0}, 
              CoordinatesToolOptions -> {"DisplayFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& ), "CopiedValueFunction" -> ({
                  Exp[
                   Part[#, 1]], 
                  Part[#, 2]}& )}, DisplayFunction :> Identity, 
              Frame -> {{False, False}, {False, False}}, 
              FrameLabel -> {{None, None}, {None, None}}, 
              FrameTicks -> {{Automatic, Automatic}, {
                 Charting`ScaledTicks[{Log, Exp}], 
                 Charting`ScaledFrameTicks[{Log, Exp}]}}, 
              GridLines -> {None, None}, GridLinesStyle -> Directive[
                GrayLevel[0.5, 0.4]], Method -> {}, PlotLabel -> 
              FormBox["\"Temperature_2C1200_UVic\"", TraditionalForm], 
              PlotRange -> {{7.594089575094925, 8.294049640102028}, {
                0, 3.54874}}, PlotRangeClipping -> True, PlotRangePadding -> {{
                 Scaled[0.02], 
                 Scaled[0.02]}, {
                 Scaled[0.02], 
                 Scaled[0.05]}}, Ticks -> {
                Charting`ScaledTicks[{Log, Exp}], Automatic}}], {
            576., -116.80842387373012`}, 
            ImageScaled[{0.5, 0.5}], {360., 222.49223594996212`}]}}, {}}, 
        ImageSize -> 1000, PlotRangePadding -> {6, 5}, ContentSelectable -> 
        True, ImageSize -> 1000], 
       FormBox[
        FormBox[
         TemplateBox[{"\"Default\"", "\"kv low\"", "\"kv high\""}, 
          "LineLegend", DisplayFunction -> (FormBox[
            StyleBox[
             StyleBox[
              PaneBox[
               TagBox[
                GridBox[{{
                   TagBox[
                    GridBox[{{
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    GrayLevel[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], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #2, 
                    GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {
                    LineBox[{{0, 10}, {40, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    Dashing[{0, Small, Small, Small}], 
                    GrayLevel[0]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {40, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.1] -> Baseline)], #3}}, 
                    GridBoxAlignment -> {
                    "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                    AutoDelete -> False, 
                    GridBoxDividers -> {
                    "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                    GridBoxItemSize -> {
                    "Columns" -> {{All}}, "Rows" -> {{All}}}, 
                    GridBoxSpacings -> {"Columns" -> {{0.8, 0.5}}}], 
                    "Grid"]}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {{Left}}, "Rows" -> {{Top}}}, AutoDelete -> 
                 False, GridBoxDividers -> {
                  "Columns" -> {{None}}, "Rows" -> {{None}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {"Columns" -> {{0}}, "Rows" -> {{1}}}], 
                "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[{
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False], 
                   ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"Small", ",", "Small"}], "}"}], "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    "}"}], ",", 
                   RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Dashing", "[", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Small", ",", "Small", ",", "Small"}], 
                    "}"}], "]"}], ",", 
                    InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    GrayLevel[0], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> GrayLevel[0.], FrameTicks -> None, 
                    PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 
                    1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
                    Magnification])}]], "GrayLevel[0]"], Appearance -> None, 
                    BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    GrayLevel[0]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["GrayLevelColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    GrayLevel[0], Editable -> False, Selectable -> False]}], 
                    "}"}]}], "}"}], ",", 
               RowBox[{"{", 
                 RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
               RowBox[{"LegendLayout", "\[Rule]", 
                 RowBox[{"{", 
                   RowBox[{"\"Row\"", ",", "1"}], "}"}]}]}], "]"}]& ), 
          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, ",", "Below"}], "]"}]}], "]"}]& )]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.7133723028358335`*^9, 3.713372311531331*^9}, 
   3.7133728639562874`*^9, 3.713373044815002*^9, 3.713373112564877*^9, 
   3.7133733397232475`*^9, 3.713373396982522*^9, 3.714986528553437*^9, 
   3.7271480040253115`*^9},ExpressionUUID->"e29fd953-1679-460f-80cd-\
081aea19547f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Export", "[", 
  RowBox[{"\"\<Figure6_example.tiff\>\"", ",", "SensUVic"}], "]"}]], "Input",
 CellChangeTimes->{{3.7133734169366636`*^9, 
  3.713373444487239*^9}},ExpressionUUID->"d1b663a8-48fb-4ac5-b8de-\
dcc9a759bad2"],

Cell[BoxData["\<\"Figure6_example.tiff\"\>"], "Output",
 CellChangeTimes->{3.713373446204337*^9, 3.7149865331096373`*^9, 
  3.727148005585314*^9},ExpressionUUID->"1bd8a136-ba99-47b2-a766-\
605a98dff87e"]
}, Open  ]]
},
WindowSize->{1140., 581.25},
WindowMargins->{{0, Automatic}, {Automatic, 3.75}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (June 9, 2020)",
StyleDefinitions->FrontEnd`FileName[{"Wolfram"}, 
  "FunctionResourceDocumentationStyles.nb", CharacterEncoding -> "UTF-8"],
ExpressionUUID->"99700028-bf19-4e13-b3df-f1ef7f019de3"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 349, 8, 47, "Input",ExpressionUUID->"012e4ec2-5954-4e72-8e0c-cd62752b98ad"],
Cell[910, 30, 439, 9, 28, "Input",ExpressionUUID->"71510dd2-2def-4f9f-b96e-bdf21b72f1d2"],
Cell[1352, 41, 416, 7, 55, "Text",ExpressionUUID->"f703d587-e791-4118-b11d-f6f4e4ac5987"],
Cell[1771, 50, 7516, 237, 554, "Input",ExpressionUUID->"e2867d17-67ce-400c-8e50-5ca3eff26e6c"],
Cell[9290, 289, 471, 8, 55, "Text",ExpressionUUID->"e3ce86a0-f9e3-4e92-9220-6d4ace1602d8"],
Cell[CellGroupData[{
Cell[9786, 301, 219, 4, 28, "Input",ExpressionUUID->"fe1cd5a5-8a5e-44be-8c44-9a2df8048964"],
Cell[10008, 307, 174, 3, 32, "Output",ExpressionUUID->"a4f8cda3-668a-44cf-8ca8-85d7e58d40cc"]
}, Open  ]],
Cell[10197, 313, 330, 7, 28, "Input",ExpressionUUID->"9e535e12-e998-42b7-a958-92111de62308"],
Cell[CellGroupData[{
Cell[10552, 324, 211, 3, 28, "Input",ExpressionUUID->"acb51b51-9bd9-46b7-83fa-e14b0de3a1f5"],
Cell[10766, 329, 248, 5, 32, "Output",ExpressionUUID->"79ae07af-d1bd-4a02-b987-0af5a1c8173e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[11051, 339, 20960, 545, 741, "Input",ExpressionUUID->"d89c5852-c7fb-45f8-b606-2af1c7082687"],
Cell[32014, 886, 670, 13, 42, "Message",ExpressionUUID->"1ce955aa-3cb0-42db-a043-4336388acd35"],
Cell[32687, 901, 668, 13, 42, "Message",ExpressionUUID->"da333941-f45d-45ad-8c56-dbf04bbb47cb"],
Cell[33358, 916, 668, 13, 42, "Message",ExpressionUUID->"06f94da0-bcfa-4c23-9d21-97f445550bda"],
Cell[34029, 931, 527, 11, 23, "Message",ExpressionUUID->"1c98f1f2-20cd-4f5f-90df-e633c7e81627"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34593, 947, 871, 16, 28, "Input",ExpressionUUID->"70226d3f-4f0d-4604-bcb2-050673ad408b"],
Cell[35467, 965, 5649, 91, 181, "Output",ExpressionUUID->"ce1b7f07-ea5d-467c-a268-9705dd1dd631"]
}, Open  ]],
Cell[41131, 1059, 1709, 53, 122, "Input",ExpressionUUID->"bd3cc4c3-d94e-4bdc-a47e-81009fbfa08c"],
Cell[CellGroupData[{
Cell[42865, 1116, 303, 7, 47, "Input",ExpressionUUID->"786bb733-4ec6-4fbd-b8aa-793ee6cff429"],
Cell[43171, 1125, 166, 2, 32, "Output",ExpressionUUID->"e6f72939-2a04-4ce1-a91e-ba915fba8304"],
Cell[43340, 1129, 169, 2, 32, "Output",ExpressionUUID->"92b07fab-6011-476c-92d1-fcc7199dbae7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43546, 1136, 227, 4, 28, "Input",ExpressionUUID->"589c520a-9ffd-482d-b231-01a175c6f980"],
Cell[43776, 1142, 169, 2, 32, "Output",ExpressionUUID->"09749a4f-34d4-4391-a865-5f28a0864dc4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43982, 1149, 292, 7, 28, "Input",ExpressionUUID->"be090750-8e9a-4d26-9b65-4f22ef6e2715"],
Cell[44277, 1158, 966, 23, 113, "Output",ExpressionUUID->"e66ae54e-9212-4ca0-be6c-13880ef77b31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45280, 1186, 257, 5, 28, "Input",ExpressionUUID->"593eee1f-edde-48a3-bfe4-a6f561898dd7"],
Cell[45540, 1193, 171, 3, 32, "Output",ExpressionUUID->"7fcfb6a0-4df7-4e22-8a27-53d8d207f3d0"]
}, Open  ]],
Cell[45726, 1199, 351, 9, 28, "Input",ExpressionUUID->"0b380800-11a0-4ee2-91b6-1f4d1ab04969"],
Cell[46080, 1210, 326, 9, 28, "Input",ExpressionUUID->"cca7d039-e709-441d-a841-5833f201e33b"],
Cell[CellGroupData[{
Cell[46431, 1223, 924, 19, 66, "Input",ExpressionUUID->"97933c1b-e5eb-4047-bfab-68c9498e684b"],
Cell[47358, 1244, 295, 4, 32, "Output",ExpressionUUID->"2cff3c16-78d1-44b8-8434-0a7c9bb920b9"]
}, Open  ]],
Cell[47668, 1251, 564, 10, 55, "Text",ExpressionUUID->"7fb86644-bdc7-4a49-bb85-9dfb45543d62"],
Cell[48235, 1263, 2917, 72, 235, "Input",ExpressionUUID->"2ac70bd5-025f-4f07-89da-64e128d41d29"],
Cell[51155, 1337, 6754, 237, 422, "Input",ExpressionUUID->"060606c8-9a0e-4d56-9a81-b40efab49844"],
Cell[57912, 1576, 5070, 134, 160, "Input",ExpressionUUID->"3d0ce2d0-ea65-41b6-b692-abbbb0dd24a4"],
Cell[62985, 1712, 154, 3, 28, "Input",ExpressionUUID->"62bf4777-24eb-4913-b5ef-90dc283f2faf"],
Cell[63142, 1717, 4850, 131, 166, "Input",ExpressionUUID->"5ed44334-0f06-4e0e-870e-7d633986e2ef"],
Cell[67995, 1850, 3401, 69, 185, "Input",ExpressionUUID->"036783bd-cb40-4198-ac1f-4e274d9d5fe3"],
Cell[CellGroupData[{
Cell[71421, 1923, 570, 14, 28, "Input",ExpressionUUID->"6d4ed6d6-d631-4dd8-83bd-8ca37ead227a"],
Cell[71994, 1939, 113029, 2087, 929, "Output",ExpressionUUID->"b2b4aec8-b88c-4acf-805a-06b50ffd8e36"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185060, 4031, 334, 7, 28, "Input",ExpressionUUID->"3c52d087-8eb2-4a65-bea3-d616886f15f6"],
Cell[185397, 4040, 241, 4, 32, "Output",ExpressionUUID->"17b1defb-c28c-41a1-9b68-b89f37a11c89"]
}, Open  ]],
Cell[185653, 4047, 515, 10, 55, "Text",ExpressionUUID->"bd6d03f7-5c59-4ac2-8b7c-965bec1fc652"],
Cell[186171, 4059, 375, 8, 47, "Input",ExpressionUUID->"137bc31b-1e4d-492d-9496-53bd0a59682a"],
Cell[CellGroupData[{
Cell[186571, 4071, 2149, 55, 179, "Input",ExpressionUUID->"b3579501-872b-42d6-81e4-a6b53d9c0ad0"],
Cell[188723, 4128, 538, 11, 32, "Output",ExpressionUUID->"a53ac330-cfc0-467b-87dc-67df4735e648"],
Cell[189264, 4141, 417, 7, 32, "Output",ExpressionUUID->"c572fcf8-23e0-4152-a0b9-77f1604c5ade"],
Cell[189684, 4150, 561, 11, 32, "Output",ExpressionUUID->"47cf45e4-d68e-49f4-8c53-67f28ece1539"],
Cell[190248, 4163, 540, 11, 32, "Output",ExpressionUUID->"4557a40f-55a3-41f8-9940-339ec87a3f98"],
Cell[190791, 4176, 417, 7, 32, "Output",ExpressionUUID->"b7c782d2-b4b5-450f-ba43-4ef8f0d5b9b2"],
Cell[191211, 4185, 560, 11, 32, "Output",ExpressionUUID->"721e089b-3875-4f8c-b353-b64d81fcffc6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[191808, 4201, 1037, 28, 49, "Input",ExpressionUUID->"cae6f9c4-ba52-4d03-b634-52d9a9361262"],
Cell[192848, 4231, 317, 7, 32, "Output",ExpressionUUID->"5a255d47-da8d-41e8-aec8-f65cd44ebe7b"],
Cell[193168, 4240, 316, 7, 32, "Output",ExpressionUUID->"6338a827-dc07-4cbf-bc62-a05e830ab23c"]
}, Open  ]],
Cell[193499, 4250, 565, 11, 49, "Input",ExpressionUUID->"d6240b2e-855a-4f6b-9361-2fbfd0468f13"],
Cell[CellGroupData[{
Cell[194089, 4265, 1568, 41, 88, "Input",ExpressionUUID->"078267cd-43ae-4453-bd78-19e2897d392e"],
Cell[195660, 4308, 542, 10, 32, "Output",ExpressionUUID->"2666cc1c-0bb2-4791-a783-b308aa836fd7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[196239, 4323, 360, 8, 28, "Input",ExpressionUUID->"9e5c4ae6-adc0-4671-bb14-0029692ca9e5"],
Cell[196602, 4333, 222, 4, 32, "Output",ExpressionUUID->"c0430035-20fa-4b6f-bc66-cf2b97c7ba8f"]
}, Open  ]],
Cell[196839, 4340, 749, 24, 28, "Input",ExpressionUUID->"a2773715-98c1-4f84-92fc-43797b405761"],
Cell[CellGroupData[{
Cell[197613, 4368, 772, 21, 68, "Input",ExpressionUUID->"f02742d6-7716-4b1d-a267-f30fdff4ffcf"],
Cell[198388, 4391, 422, 9, 32, "Output",ExpressionUUID->"1e5ba992-7de9-4ad1-9319-0abf48684352"]
}, Open  ]],
Cell[CellGroupData[{
Cell[198847, 4405, 749, 20, 68, "Input",ExpressionUUID->"a05d827c-e6c3-4d65-8fc7-8b0e63d62b47"],
Cell[199599, 4427, 332, 8, 32, "Output",ExpressionUUID->"e279dc8d-e2fa-43b7-82b2-007ac553bbb5"]
}, Open  ]],
Cell[CellGroupData[{
Cell[199968, 4440, 407, 9, 49, "Input",ExpressionUUID->"665d5027-2e18-4f16-8576-a603ed5a4b6c"],
Cell[200378, 4451, 234, 4, 32, "Output",ExpressionUUID->"e471f723-bd10-41f0-9677-a04efbdb9f09"],
Cell[200615, 4457, 234, 4, 32, "Output",ExpressionUUID->"c9a22c9b-720e-4573-b363-7a0dca21e006"]
}, Open  ]],
Cell[CellGroupData[{
Cell[200886, 4466, 190, 3, 28, "Input",ExpressionUUID->"f2ee1ce3-df12-431e-a8fd-9a48cd68b0ef"],
Cell[201079, 4471, 218, 5, 32, "Output",ExpressionUUID->"e1b9cac1-749b-48c5-b1c6-fadddb0e61d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[201334, 4481, 433, 10, 68, "Input",ExpressionUUID->"c20e81e7-33a1-4c97-af06-edf835876901"],
Cell[201770, 4493, 232, 5, 32, "Output",ExpressionUUID->"4e4bbb6d-6ee4-41be-8a30-32e496a24472"]
}, Open  ]],
Cell[202017, 4501, 486, 8, 54, "Text",ExpressionUUID->"0b2b37f7-0fd9-4b1e-9ffd-cd9d88c1c4b3"],
Cell[202506, 4511, 385, 9, 28, "Input",ExpressionUUID->"7ad51077-f534-459e-91c6-a628d720c9fe"],
Cell[CellGroupData[{
Cell[202916, 4524, 1041, 21, 68, "Input",ExpressionUUID->"53c2a3dd-45ed-484b-ab67-cde2aa5c4aa3"],
Cell[203960, 4547, 516, 10, 32, "Output",ExpressionUUID->"171ad16c-0266-48e0-9ee4-3c1d82b8682d"]
}, Open  ]],
Cell[204491, 4560, 1574, 44, 107, "Input",ExpressionUUID->"320c12c8-0405-4867-9100-977a63030e40"],
Cell[206068, 4606, 22373, 579, 809, "Input",ExpressionUUID->"00d11e97-bcec-4390-9b6c-a892c001de6c"],
Cell[228444, 5187, 693, 17, 49, "Input",ExpressionUUID->"7f89032a-8470-4000-8e38-28fd86ab2c67"],
Cell[229140, 5206, 601, 10, 53, "Text",ExpressionUUID->"f11b8961-a19e-4a80-a029-eec44a94073c"],
Cell[229744, 5218, 345, 8, 28, "Input",ExpressionUUID->"3a9c992a-6f16-40bb-a976-ee2815628ac6"],
Cell[230092, 5228, 348, 8, 28, "Input",ExpressionUUID->"e56a3bd5-bfb6-47b7-b23d-4f35af3de6d3"],
Cell[230443, 5238, 1030, 24, 109, "Input",ExpressionUUID->"2ebf3e6d-39fd-4790-a0a3-29bbf4538a27"],
Cell[CellGroupData[{
Cell[231498, 5266, 591, 15, 49, "Input",ExpressionUUID->"522a271b-0970-4b96-b0b9-f951ffa54632"],
Cell[232092, 5283, 232, 4, 32, "Output",ExpressionUUID->"ea9de76a-497c-4f53-9d3f-0bb7e63fb052"]
}, Open  ]],
Cell[232339, 5290, 2173, 44, 109, "Input",ExpressionUUID->"0a1e28af-2677-4570-a0b4-7bcf51561da4"],
Cell[234515, 5336, 566, 15, 28, "Input",ExpressionUUID->"19312a83-3506-4e6e-ba07-7a4ac946737d"],
Cell[235084, 5353, 21222, 568, 789, "Input",ExpressionUUID->"859d97ae-a031-473f-8860-6f858d24975e"],
Cell[256309, 5923, 16051, 396, 469, "Input",ExpressionUUID->"b9ae01f9-70b2-4057-9f2d-f90443b99e2b"],
Cell[272363, 6321, 18876, 461, 591, "Input",ExpressionUUID->"7c6206e2-08e9-4eda-be45-1e4ff9874ce6"],
Cell[291242, 6784, 21410, 576, 760, "Input",ExpressionUUID->"5d70ae5d-b272-4058-8268-b12a801e6ac4"],
Cell[CellGroupData[{
Cell[312677, 7364, 376, 8, 28, "Input",ExpressionUUID->"48808856-a49c-4610-944a-574fef34f8ea"],
Cell[313056, 7374, 276, 4, 32, "Output",ExpressionUUID->"2b0007f0-ea0c-4bdb-8580-fac5ac679dc0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[313369, 7383, 268, 6, 28, "Input",ExpressionUUID->"b5f19cdf-3800-4b97-987b-d95ccf566cc7"],
Cell[313640, 7391, 2195, 39, 168, "Output",ExpressionUUID->"be615a8c-1859-459b-8b34-fd9236f231ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[315872, 7435, 257, 6, 28, "Input",ExpressionUUID->"8e1d1814-1bbf-4082-86b9-b8002fc27065"],
Cell[316132, 7443, 463, 12, 32, "Output",ExpressionUUID->"564b2b91-ae8d-41ea-9373-f7761ce439be"]
}, Open  ]],
Cell[CellGroupData[{
Cell[316632, 7460, 373, 10, 28, "Input",ExpressionUUID->"b65eb2ff-29dc-4599-95e6-2af743bd37cd"],
Cell[317008, 7472, 2667, 61, 169, "Output",ExpressionUUID->"2fe2d295-d9f4-4e82-91b6-4bd339d51f2e"]
}, Open  ]],
Cell[319690, 7536, 2365, 50, 89, "Input",ExpressionUUID->"934db004-6515-4527-9095-7ee2a0bdd225"],
Cell[CellGroupData[{
Cell[322080, 7590, 940, 19, 49, "Input",ExpressionUUID->"b9266b67-8016-4f3d-aa9e-1c51a4bd943d"],
Cell[323023, 7611, 974, 16, 32, "Output",ExpressionUUID->"22ac5163-34fc-459c-9dd0-284b3af1e877"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324034, 7632, 317, 7, 28, "Input",ExpressionUUID->"11bf98b3-3b1a-461c-bfd1-14baf653865e"],
Cell[324354, 7641, 212, 4, 32, "Output",ExpressionUUID->"8a1dfab8-9af6-420f-b53e-90843f6d816d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[324603, 7650, 385, 10, 28, "Input",ExpressionUUID->"eff06132-31c3-40a0-9a69-356cbade73e8"],
Cell[324991, 7662, 175, 3, 32, "Output",ExpressionUUID->"63583507-5f09-491a-80b1-09ce77c9df2e"]
}, Open  ]],
Cell[325181, 7668, 9558, 304, 469, "Input",ExpressionUUID->"f3dc0bc2-0230-405b-a8eb-c9574438f728"],
Cell[CellGroupData[{
Cell[334764, 7976, 401, 7, 28, "Input",ExpressionUUID->"549a6d15-b119-46b6-9135-2075d351e08e"],
Cell[335168, 7985, 9674, 157, 405, "Output",ExpressionUUID->"3b51b784-805b-4ffb-a207-972ee40e7f51"]
}, Open  ]],
Cell[CellGroupData[{
Cell[344879, 8147, 367, 8, 47, "Input",ExpressionUUID->"6c136577-d08f-47b5-ab6e-9767775c6b2b"],
Cell[345249, 8157, 279, 4, 32, "Output",ExpressionUUID->"d9671775-bc71-4e07-9071-e8e6122af60d"]
}, Open  ]],
Cell[345543, 8164, 3963, 107, 122, "Input",ExpressionUUID->"caa9a136-255c-42cc-9d42-f17bac02d8e7"],
Cell[349509, 8273, 3823, 105, 122, "Input",ExpressionUUID->"7508d29a-c684-456e-a63f-c483a5bbcf82"],
Cell[353335, 8380, 3877, 106, 122, "Input",ExpressionUUID->"7359fa93-166c-41c9-ac92-9e518a6cd882"],
Cell[357215, 8488, 3883, 107, 122, "Input",ExpressionUUID->"875e8063-b35e-45ba-a561-4f699aa2403f"],
Cell[361101, 8597, 3892, 106, 69, "Input",ExpressionUUID->"37aff4af-a8b5-44c6-90a8-cd838e7634a9"],
Cell[364996, 8705, 3880, 107, 69, "Input",ExpressionUUID->"31c0ee1a-97f9-47bb-8d1a-a2ca4a88a920"],
Cell[CellGroupData[{
Cell[368901, 8816, 4642, 102, 149, "Input",ExpressionUUID->"5bab5ff8-ff4e-41db-95f1-c4fc66dde41e"],
Cell[373546, 8920, 161557, 2991, 1284, "Output",ExpressionUUID->"5b9c93ce-4a9e-4090-b1fd-14fdd580c015"]
}, Open  ]],
Cell[CellGroupData[{
Cell[535140, 11916, 278, 6, 28, "Input",ExpressionUUID->"f26af0f5-f0af-484d-b9f5-3ed694560923"],
Cell[535421, 11924, 204, 3, 32, "Output",ExpressionUUID->"09ca9c80-3e06-4c70-a952-cf3046c8fb15"]
}, Open  ]],
Cell[535640, 11930, 620, 10, 55, "Text",ExpressionUUID->"7dd2443e-c6be-4abc-b2dc-23b01d4cc60e"],
Cell[536263, 11942, 361, 9, 28, "Input",ExpressionUUID->"4075e960-8a19-45b8-a82c-fc729d38e731"],
Cell[CellGroupData[{
Cell[536649, 11955, 349, 8, 28, "Input",ExpressionUUID->"e66a07d3-112b-4464-a9b9-74e61ed22aa7"],
Cell[537001, 11965, 229, 4, 32, "Output",ExpressionUUID->"0e40c5c3-d277-487c-a415-d0bf76b0adc0"]
}, Open  ]],
Cell[537245, 11972, 1566, 40, 85, "Input",ExpressionUUID->"5fc2d92b-c500-49af-bde4-3c8f8963a7d3"],
Cell[538814, 12014, 21396, 561, 816, "Input",ExpressionUUID->"3084e01c-e325-4008-8680-79e5e84f9e7d"],
Cell[560213, 12577, 15042, 391, 554, "Input",ExpressionUUID->"70005b8f-ce0f-477f-9b8e-a640762bc78d"],
Cell[575258, 12970, 15903, 412, 591, "Input",ExpressionUUID->"2eb790b3-0af1-46a8-84e2-2804457bc858"],
Cell[591164, 13384, 599, 15, 69, "Input",ExpressionUUID->"2239a459-7b46-44a8-9d19-434e9398606e"],
Cell[591766, 13401, 22659, 584, 779, "Input",ExpressionUUID->"3d2678de-74f3-4179-93ae-d85501128dbf"],
Cell[CellGroupData[{
Cell[614450, 13989, 264, 5, 28, "Input",ExpressionUUID->"bbdfaa4a-1b08-41f2-8030-7c24602da134"],
Cell[614717, 13996, 202, 3, 32, "Output",ExpressionUUID->"fb822d10-b8aa-4a6c-9591-54bc6fb2e754"]
}, Open  ]],
Cell[CellGroupData[{
Cell[614956, 14004, 361, 9, 28, "Input",ExpressionUUID->"7a3a07cd-b195-4fd0-8dd2-f708aeaf2704"],
Cell[615320, 14015, 2466, 44, 113, "Output",ExpressionUUID->"bfe342f4-5c2d-4709-a628-8f002da72ad1"]
}, Open  ]],
Cell[617801, 14062, 1191, 33, 66, "Input",ExpressionUUID->"5f1c51a7-89f3-4982-b205-6407fb116266"],
Cell[618995, 14097, 4201, 142, 160, "Input",ExpressionUUID->"082f4812-bb3f-4cd1-a234-02a0c6749953"],
Cell[CellGroupData[{
Cell[623221, 14243, 3308, 96, 85, "Input",ExpressionUUID->"f3fa46c5-a34c-45e9-86d9-80d2bdb61776"],
Cell[626532, 14341, 383, 6, 32, "Output",ExpressionUUID->"8d49040c-7931-44ab-861a-c62b3d0a4a7d"],
Cell[626918, 14349, 383, 6, 32, "Output",ExpressionUUID->"96c07dec-ce8a-478f-a800-0d29ea250837"],
Cell[627304, 14357, 383, 6, 32, "Output",ExpressionUUID->"cf1f90c8-30bd-4b20-9c19-134c7244456e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[627724, 14368, 195, 5, 28, "Input",ExpressionUUID->"9badd38a-d8c4-45fd-afe7-6372e7bed173"],
Cell[627922, 14375, 174, 3, 32, "Output",ExpressionUUID->"853d989a-692f-475b-86b9-b9ea732ecd23"]
}, Open  ]],
Cell[CellGroupData[{
Cell[628133, 14383, 260, 5, 28, "Input",ExpressionUUID->"b9e639e5-f327-40e0-a452-c8c4398150c5"],
Cell[628396, 14390, 196, 3, 32, "Output",ExpressionUUID->"634b5b28-24dd-4052-b885-4126990f34dc"]
}, Open  ]],
Cell[628607, 14396, 3834, 96, 69, "Input",ExpressionUUID->"b39f7a57-3b01-45b8-9fc9-0a39fe3557e0"],
Cell[632444, 14494, 3758, 95, 69, "Input",ExpressionUUID->"42f40b34-bdc9-45ae-ae86-6ac55be92e81"],
Cell[636205, 14591, 3120, 82, 69, "Input",ExpressionUUID->"0b93dc21-cf85-4cfe-89f2-d8298de47312"],
Cell[639328, 14675, 3043, 81, 69, "Input",ExpressionUUID->"535c7250-ba01-4def-b1ee-d516ee14731d"],
Cell[CellGroupData[{
Cell[642396, 14760, 1897, 44, 66, "Input",ExpressionUUID->"41b91866-efca-407c-a0be-5716fb8e942c"],
Cell[644296, 14806, 78043, 1460, 844, "Output",ExpressionUUID->"ec129035-ce8f-4b8c-ac14-ed6743ce1e78"]
}, Open  ]],
Cell[CellGroupData[{
Cell[722376, 16271, 263, 5, 28, "Input",ExpressionUUID->"e5aa870b-c35e-4fbe-be2a-7160c886b4e7"],
Cell[722642, 16278, 269, 4, 32, "Output",ExpressionUUID->"ac9d4990-4117-4b21-ad8b-c80f37111d3c"]
}, Open  ]],
Cell[722926, 16285, 4668, 120, 202, "Input",ExpressionUUID->"a30cab50-2c9b-4b40-8dc6-9036bed34094"],
Cell[727597, 16407, 4606, 121, 164, "Input",ExpressionUUID->"e1821d0b-b5b1-4d3a-9c5c-ddf9a903ffa4"],
Cell[732206, 16530, 2342, 49, 164, "Input",ExpressionUUID->"40f21b70-237a-42e8-b2c2-4f4f67582b57"],
Cell[CellGroupData[{
Cell[734573, 16583, 917, 21, 68, "Input",ExpressionUUID->"b44deddd-eb95-4a6c-ad43-be4019809d21"],
Cell[735493, 16606, 82892, 1538, 885, "Output",ExpressionUUID->"4e2f2601-fea4-4a94-a3fc-e631726118fb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[818422, 18149, 336, 7, 28, "Input",ExpressionUUID->"3075bd89-3484-4791-85e6-b682f38cd2ea"],
Cell[818761, 18158, 261, 4, 32, "Output",ExpressionUUID->"17ad73af-c87e-482a-a418-3c4e46f54b3c"]
}, Open  ]],
Cell[819037, 18165, 608, 10, 55, "Text",ExpressionUUID->"56eef708-ac1c-4a48-8e2b-5fa84eba9649"],
Cell[819648, 18177, 343, 8, 28, "Input",ExpressionUUID->"e0734672-5de1-454e-a0d7-55531a140512"],
Cell[819994, 18187, 338, 8, 28, "Input",ExpressionUUID->"33c67dfc-31bf-4969-aafb-0652b90e668c"],
Cell[820335, 18197, 1300, 34, 122, "Input",ExpressionUUID->"61dc6c7f-56f4-44fe-85ac-b184d895cd3c"],
Cell[821638, 18233, 1095, 28, 141, "Input",ExpressionUUID->"4aca67ee-a8d8-4edb-8260-74579db8dfe9"],
Cell[822736, 18263, 1055, 27, 122, "Input",ExpressionUUID->"2d2011b3-e2cb-43f5-a6c1-64ee5d1b62c3"],
Cell[CellGroupData[{
Cell[823816, 18294, 314, 7, 28, "Input",ExpressionUUID->"b7d10b52-a651-4fa6-865f-668ff2e59a2b"],
Cell[824133, 18303, 220, 4, 32, "Output",ExpressionUUID->"1b50ea32-03f6-4d50-a44f-d39fb792f40a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[824390, 18312, 511, 12, 28, "Input",ExpressionUUID->"7a95b2e4-cbb5-4aa4-8a88-e1e593049219"],
Cell[824904, 18326, 843, 21, 61, "Output",ExpressionUUID->"cf0cb6fd-0eb8-4f7e-8d9c-4343a7c9070a"]
}, Open  ]],
Cell[825762, 18350, 9850, 260, 294, "Input",ExpressionUUID->"8592cb9c-7aa5-416f-9c48-f2858b08d347"],
Cell[835615, 18612, 9919, 261, 294, "Input",ExpressionUUID->"74a0e8ec-1878-457a-b180-3456ba897b11"],
Cell[CellGroupData[{
Cell[845559, 18877, 3758, 86, 180, "Input",ExpressionUUID->"ffba291e-354d-4c8d-909b-96588cee5625"],
Cell[849320, 18965, 64998, 1351, 1261, "Output",ExpressionUUID->"dc84bf8b-0a3c-4786-af72-2310ca18b0fd"]
}, Open  ]],
Cell[CellGroupData[{
Cell[914355, 20321, 261, 5, 28, "Input",ExpressionUUID->"d47b5dbd-1e1d-4f60-825a-21407b9e2213"],
Cell[914619, 20328, 175, 3, 32, "Output",ExpressionUUID->"27b12c2c-eee7-41fb-9c78-f5ada9debdf6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[914831, 20336, 684, 18, 28, "Input",ExpressionUUID->"284d7b8c-06af-48b7-93a0-e8f19967b0d5"],
Cell[915518, 20356, 7574, 150, 329, "Output",ExpressionUUID->"1095aae3-0d17-4218-8848-598c52a92cac"]
}, Open  ]],
Cell[923107, 20509, 130, 3, 28, "Input",ExpressionUUID->"2ec21420-69d6-4d4f-b4b8-1cce8e5f5b4c"],
Cell[CellGroupData[{
Cell[923262, 20516, 585, 9, 124, "Input",ExpressionUUID->"d6afa5b2-e232-4817-9f83-5b7e246f34a5"],
Cell[923850, 20527, 445, 8, 32, "Output",ExpressionUUID->"38365c7d-2c7d-43d1-8320-a3e257afe8d5"],
Cell[924298, 20537, 445, 8, 32, "Output",ExpressionUUID->"e658ba7c-3420-4ae2-b911-ea2bcfd153c5"],
Cell[924746, 20547, 443, 8, 32, "Output",ExpressionUUID->"b6542fb2-8626-4845-a76b-a88d1fda0577"],
Cell[925192, 20557, 442, 8, 32, "Output",ExpressionUUID->"9cd3bdaa-3c05-4fcf-bda0-b7394d93743a"],
Cell[925637, 20567, 445, 8, 32, "Output",ExpressionUUID->"5f99ddfd-ecd9-4fde-9621-848b0679780e"],
Cell[926085, 20577, 445, 8, 32, "Output",ExpressionUUID->"b5f0986d-6c1f-4771-998c-4f9f90113145"]
}, Open  ]],
Cell[CellGroupData[{
Cell[926567, 20590, 317, 8, 28, "Input",ExpressionUUID->"5b9514b7-e0ab-46ed-a0b2-5948b26fa027"],
Cell[926887, 20600, 199, 4, 32, "Output",ExpressionUUID->"2ea5c800-6a1c-4a28-85bb-2e3ac9bb313e"]
}, Open  ]],
Cell[927101, 20607, 3217, 80, 145, "Input",ExpressionUUID->"0c2f880e-8792-46e8-b64f-92936093aed6"],
Cell[CellGroupData[{
Cell[930343, 20691, 210, 3, 28, "Input",ExpressionUUID->"3b267443-f450-4d37-8893-11cd7271af87"],
Cell[930556, 20696, 5349, 109, 266, "Output",ExpressionUUID->"eea8a4fd-7835-43e0-8a43-a16b9d0b06f4"]
}, Open  ]],
Cell[935920, 20808, 7038, 219, 261, "Input",ExpressionUUID->"762ac6a9-8819-4aa6-a97d-cf22a740567f"],
Cell[CellGroupData[{
Cell[942983, 21031, 247, 4, 28, "Input",ExpressionUUID->"65bad775-8e90-4834-89b6-0d2cbfaaf553"],
Cell[943233, 21037, 165, 2, 32, "Output",ExpressionUUID->"10e05ee8-57e6-4062-98d8-efd199ea3405"]
}, Open  ]],
Cell[943413, 21042, 2918, 76, 124, "Input",ExpressionUUID->"94273f25-bb4b-4905-99ad-d298f29ed97f"],
Cell[946334, 21120, 7456, 243, 332, "Input",ExpressionUUID->"e43aa7a5-9ed0-4e06-bb28-6b8c6bc8ebbf"],
Cell[CellGroupData[{
Cell[953815, 21367, 207, 3, 28, "Input",ExpressionUUID->"b36de00e-4393-4ebf-951c-6f1cfdbe410a"],
Cell[954025, 21372, 4255, 74, 265, "Output",ExpressionUUID->"7e358342-f85e-4302-a47e-e13825790517"]
}, Open  ]],
Cell[CellGroupData[{
Cell[958317, 21451, 249, 4, 28, "Input",ExpressionUUID->"3a7807c8-5a6d-49b7-998c-9b88d272254a"],
Cell[958569, 21457, 213, 3, 32, "Output",ExpressionUUID->"f697e3e3-3a4a-44e8-b1e7-241c5d7cf8b0"]
}, Open  ]],
Cell[958797, 21463, 2773, 74, 124, "Input",ExpressionUUID->"8a6cd990-42d3-485b-aef8-8a56f108b7a2"],
Cell[961573, 21539, 7317, 242, 313, "Input",ExpressionUUID->"9ddd98cd-ceac-4dd5-9d53-667c68c03071"],
Cell[CellGroupData[{
Cell[968915, 21785, 217, 4, 28, "Input",ExpressionUUID->"c90c7dea-d0db-456c-bd73-28dedcfa6ddf"],
Cell[969135, 21791, 4798, 101, 265, "Output",ExpressionUUID->"c243c1a3-52c2-49c5-9499-8d0a74bee67c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[973970, 21897, 257, 5, 28, "Input",ExpressionUUID->"46486bf8-2a90-4056-801b-85c538c19765"],
Cell[974230, 21904, 191, 3, 32, "Output",ExpressionUUID->"e1209266-e99c-4b34-a06a-4d42aaa62106"]
}, Open  ]],
Cell[974436, 21910, 2840, 76, 124, "Input",ExpressionUUID->"4d811e59-54e9-46d5-827f-ca1941249192"],
Cell[977279, 21988, 7368, 243, 313, "Input",ExpressionUUID->"79b0cfb1-9374-4dca-b4fd-92732a6b2e4e"],
Cell[CellGroupData[{
Cell[984672, 22235, 217, 4, 28, "Input",ExpressionUUID->"01b4c6d9-371d-45c6-82de-11e9303d78f2"],
Cell[984892, 22241, 5461, 124, 265, "Output",ExpressionUUID->"fc410d1d-4942-4363-9b7b-8c1e183d2833"]
}, Open  ]],
Cell[CellGroupData[{
Cell[990390, 22370, 303, 6, 28, "Input",ExpressionUUID->"e4bb9d8b-be58-4e4e-af1e-eac43b7f883b"],
Cell[990696, 22378, 221, 4, 32, "Output",ExpressionUUID->"320a04f3-4cc1-4d1f-a816-cce242a124ec"]
}, Open  ]],
Cell[CellGroupData[{
Cell[990954, 22387, 520, 12, 28, "Input",ExpressionUUID->"79b1d517-398e-41d3-ab48-5748ee78742a"],
Cell[991477, 22401, 297, 5, 32, "Output",ExpressionUUID->"27bf5864-6ade-4ab7-b685-a14555301bf1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[991811, 22411, 368, 10, 28, "Input",ExpressionUUID->"2c95e179-4dc3-4804-9fa3-0749e4c7d24f"],
Cell[992182, 22423, 172, 3, 32, "Output",ExpressionUUID->"dcbad1dc-3d5a-4257-ad6e-e4ef191f315e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[992391, 22431, 470, 12, 28, "Input",ExpressionUUID->"0dd4eb6b-0622-43ae-8d99-57e9e81bd3ad"],
Cell[992864, 22445, 238, 5, 32, "Output",ExpressionUUID->"f38623dc-e84a-4b5a-8387-ef3a0a5408d6"]
}, Open  ]],
Cell[993117, 22453, 2796, 75, 124, "Input",ExpressionUUID->"c249f0d8-ad5d-4468-bbd8-ed5e3ddd633e"],
Cell[995916, 22530, 7321, 242, 320, "Input",ExpressionUUID->"a14fd883-4261-4e03-acca-3fcfa3d253f3"],
Cell[CellGroupData[{
Cell[1003262, 22776, 217, 4, 28, "Input",ExpressionUUID->"3042ceff-cb66-45a3-9271-c5500eff5a34"],
Cell[1003482, 22782, 5545, 126, 266, "Output",ExpressionUUID->"5aecb5c5-8685-4aa9-a071-c9e1dec04092"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1009064, 22913, 252, 5, 28, "Input",ExpressionUUID->"374afa08-47cc-49e8-8307-d12cebb3aaee"],
Cell[1009319, 22920, 196, 3, 32, "Output",ExpressionUUID->"7dbcbd7c-6a8d-4827-b083-c6652964c944"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1009552, 22928, 322, 8, 28, "Input",ExpressionUUID->"d3a0dd87-7d1d-490b-b0cd-92c55cd5e5f3"],
Cell[1009877, 22938, 268, 6, 32, "Output",ExpressionUUID->"000c791e-7c21-4864-ae90-ee9234f51755"]
}, Open  ]],
Cell[1010160, 22947, 2843, 76, 124, "Input",ExpressionUUID->"337dd708-ca63-46b7-8f0b-aa963e6770cc"],
Cell[1013006, 23025, 7319, 242, 313, "Input",ExpressionUUID->"fa602bcc-7e7c-4eff-8df1-01089f28e58c"],
Cell[CellGroupData[{
Cell[1020350, 23271, 217, 4, 28, "Input",ExpressionUUID->"29398c5a-3407-48b9-b129-da1996c7156c"],
Cell[1020570, 23277, 5418, 123, 265, "Output",ExpressionUUID->"98aca187-c920-42b3-a078-373fa4cd63ba"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1026025, 23405, 255, 5, 28, "Input",ExpressionUUID->"b6609688-185c-467e-87ee-5176c844ba0b"],
Cell[1026283, 23412, 223, 4, 32, "Output",ExpressionUUID->"5b774921-5564-494a-9e4b-90fd5a1388eb"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1026543, 23421, 373, 9, 28, "Input",ExpressionUUID->"4839cada-b11d-4a1f-981d-e3086baf2f23"],
Cell[1026919, 23432, 303, 7, 32, "Output",ExpressionUUID->"3d643622-bd2a-42bb-8822-c98d789688e2"]
}, Open  ]],
Cell[1027237, 23442, 2778, 75, 124, "Input",ExpressionUUID->"bd555410-c3e8-4570-81ee-68b18b62f8a5"],
Cell[1030018, 23519, 7315, 242, 313, "Input",ExpressionUUID->"71218358-bd8e-41db-855b-8a61ccaee890"],
Cell[CellGroupData[{
Cell[1037358, 23765, 213, 4, 28, "Input",ExpressionUUID->"75c1e9ab-ec22-4344-95ce-84b1f2eb6cdd"],
Cell[1037574, 23771, 5228, 114, 267, "Output",ExpressionUUID->"c27b6839-c19a-46a2-b470-b09837b79047"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1042839, 23890, 255, 5, 28, "Input",ExpressionUUID->"696c1f2b-1395-4b23-9a76-a84bc43ce720"],
Cell[1043097, 23897, 194, 3, 32, "Output",ExpressionUUID->"3eba1949-a56d-40ae-afa5-94da03d8aba4"]
}, Open  ]],
Cell[1043306, 23903, 2803, 76, 122, "Input",ExpressionUUID->"cd19d60b-0e37-4687-aee8-640b106b7d28"],
Cell[1046112, 23981, 7317, 242, 310, "Input",ExpressionUUID->"d2d7a2a9-3b9a-4b09-a7e4-7f2c0a8b8176"],
Cell[CellGroupData[{
Cell[1053454, 24227, 215, 4, 28, "Input",ExpressionUUID->"2f6aa9b4-5107-4fc4-9995-4b74cc97f0e5"],
Cell[1053672, 24233, 5199, 114, 266, "Output",ExpressionUUID->"aaf3b78c-3e43-4c35-99d9-1c72fd9c783c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1058908, 24352, 255, 5, 28, "Input",ExpressionUUID->"dd3d9232-9dc2-4d74-ac18-9deca37fd8ba"],
Cell[1059166, 24359, 223, 4, 32, "Output",ExpressionUUID->"8d2bd9af-f384-46e8-9071-2979e1f43681"]
}, Open  ]],
Cell[1059404, 24366, 10769, 330, 580, "Input",ExpressionUUID->"980e7327-a185-4229-8eaa-80ea68820dc6"],
Cell[CellGroupData[{
Cell[1070198, 24700, 251, 5, 28, "Input",ExpressionUUID->"351e6d3e-4ebc-4462-921c-8bbba87a024a"],
Cell[1070452, 24707, 225, 4, 32, "Output",ExpressionUUID->"50008b71-4b99-4eaa-a85c-5b11b6a0ea88"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1070714, 24716, 914, 27, 28, "Input",ExpressionUUID->"c836f2f2-feb0-4786-ba88-3025ca189df0"],
Cell[1071631, 24745, 263, 5, 32, "Output",ExpressionUUID->"0d1ca14c-c282-48d3-beaa-6af0e054a378"]
}, Open  ]],
Cell[1071909, 24753, 16692, 570, 1113, "Input",ExpressionUUID->"3047b8de-1206-48f5-9dc6-1e6780f5107e"],
Cell[1088604, 25325, 632, 18, 48, "Input",ExpressionUUID->"dbe16a1b-eceb-40a1-9040-459fc5625dfb"],
Cell[1089239, 25345, 16478, 574, 1116, "Input",ExpressionUUID->"45c019f6-54e8-4c25-af2b-6877d6c1728e"],
Cell[1105720, 25921, 16581, 575, 1116, "Input",ExpressionUUID->"5cc3466b-cbd8-4d0c-85c1-5870579941c3"],
Cell[1122304, 26498, 479, 15, 28, "Input",ExpressionUUID->"c2952a07-79b4-4ae6-b0ec-85ae32448846"],
Cell[1122786, 26515, 7135, 158, 222, "Input",ExpressionUUID->"30b57bac-30f3-43c4-b2b7-7e16b8f5b2ab"],
Cell[1129924, 26675, 4704, 107, 106, "Input",ExpressionUUID->"86893872-ff76-45ac-bb2f-f4c003ef2d33"],
Cell[1134631, 26784, 473, 10, 28, "Input",ExpressionUUID->"5e85f460-06e8-49f6-b9a9-ed1a91a03630"],
Cell[1135107, 26796, 7185, 159, 222, "Input",ExpressionUUID->"c62fd71f-11c2-45c6-8ca3-000488a64185"],
Cell[1142295, 26957, 4804, 108, 85, "Input",ExpressionUUID->"669806ee-24a4-4be9-a7d9-a1e038b841d2"],
Cell[1147102, 27067, 521, 10, 28, "Input",ExpressionUUID->"eb6346de-1c38-4351-ad38-2cae21073bef"],
Cell[1147626, 27079, 7310, 160, 180, "Input",ExpressionUUID->"e3426c96-c7cc-4abf-968f-59e96fdb8af0"],
Cell[1154939, 27241, 4910, 110, 85, "Input",ExpressionUUID->"778ac232-6555-4516-a228-b23616f50c54"],
Cell[1159852, 27353, 569, 11, 28, "Input",ExpressionUUID->"97d2639f-f1b9-4c8c-92f0-561dee805979"],
Cell[CellGroupData[{
Cell[1160446, 27368, 3169, 67, 124, "Input",ExpressionUUID->"68df1dfa-e23a-4c7a-8930-7477cbe80162"],
Cell[1163618, 27437, 184478, 4310, 517, "Output",ExpressionUUID->"bc872e77-36e9-46b2-8fc3-af6aa77cfd10"]
}, Open  ]],
Cell[1348111, 31750, 7339, 161, 180, "Input",ExpressionUUID->"c1d9a51b-48fd-47e6-aeba-e0b0d257b9ff"],
Cell[1355453, 31913, 4806, 108, 85, "Input",ExpressionUUID->"73649a3f-371c-4fb1-a8f4-d5758cb9f263"],
Cell[1360262, 32023, 579, 11, 28, "Input",ExpressionUUID->"3731e80a-4381-474b-bc01-62c4438a1f4e"],
Cell[1360844, 32036, 7337, 161, 179, "Input",ExpressionUUID->"6edd0a78-be29-455a-8cea-2684d6e91fab"],
Cell[1368184, 32199, 4909, 109, 104, "Input",ExpressionUUID->"fad508f8-51d5-48b9-9e02-19fd8c12f70b"],
Cell[1373096, 32310, 631, 12, 28, "Input",ExpressionUUID->"009775fb-1570-4690-a4cd-cebd289ae3ed"],
Cell[1373730, 32324, 7564, 164, 179, "Input",ExpressionUUID->"99b51340-96da-4a74-8997-53fc4c7243fb"],
Cell[1381297, 32490, 5112, 112, 104, "Input",ExpressionUUID->"ae2608eb-cb62-465c-947a-f63c42fcd320"],
Cell[1386412, 32604, 303, 7, 28, "Input",ExpressionUUID->"f1856fb2-9554-4584-8b8f-8914d85c945e"],
Cell[CellGroupData[{
Cell[1386740, 32615, 3223, 67, 122, "Input",ExpressionUUID->"2689b573-71ee-4612-b0b2-03225e89c38d"],
Cell[1389966, 32684, 184456, 4310, 517, "Output",ExpressionUUID->"736789f3-efb6-4150-917d-3895b7ef9f84"]
}, Open  ]],
Cell[1574437, 36997, 7441, 162, 180, "Input",ExpressionUUID->"1765031b-0f15-4203-8bd1-d8a5945242af"],
Cell[1581881, 37161, 4908, 109, 85, "Input",ExpressionUUID->"224c91dd-23cb-44a1-bc25-4906454c2e8f"],
Cell[1586792, 37272, 633, 12, 28, "Input",ExpressionUUID->"c3d9fd63-dc71-4d9c-b198-9399fee9217c"],
Cell[1587428, 37286, 7435, 162, 180, "Input",ExpressionUUID->"ef06d3bd-bf14-42d9-ae31-2813a698de01"],
Cell[1594866, 37450, 5015, 111, 85, "Input",ExpressionUUID->"9a469885-6ada-4016-a528-69ce0f532a4c"],
Cell[1599884, 37563, 681, 12, 28, "Input",ExpressionUUID->"0c8319cd-48c6-4451-be6a-77fc5061915f"],
Cell[1600568, 37577, 7718, 166, 182, "Input",ExpressionUUID->"88cbcc72-7353-431d-83b3-1d1490c0b842"],
Cell[1608289, 37745, 5244, 114, 105, "Input",ExpressionUUID->"1f4f131c-b8c7-4a74-aa2c-a3cffeebeaeb"],
Cell[1613536, 37861, 304, 7, 28, "Input",ExpressionUUID->"62615891-21f7-48b5-a029-b0d53032b39a"],
Cell[1613843, 37870, 3381, 69, 125, "Input",ExpressionUUID->"c51307e5-b8bb-49ba-a268-d6dbb1b89e99"],
Cell[CellGroupData[{
Cell[1617249, 37943, 519, 13, 28, "Input",ExpressionUUID->"539373be-836f-4268-b60f-32bf7fd5c057"],
Cell[1617771, 37958, 582047, 13073, 1536, "Output",ExpressionUUID->"105d134d-ac4e-4379-90fe-e8a0a1bce9ea"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2199855, 51036, 264, 5, 28, "Input",ExpressionUUID->"43984db0-99f8-4d5c-907b-d62718713c10"],
Cell[2200122, 51043, 174, 3, 32, "Output",ExpressionUUID->"bbaac5e3-6a73-4ac6-8209-bfe4c62bc312"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2200333, 51051, 5939, 163, 222, "Input",ExpressionUUID->"43ce3214-9bf1-4f37-970c-1fc1b242a0b8"],
Cell[2206275, 51216, 9620, 190, 378, "Output",ExpressionUUID->"f16e7ea1-b704-4075-9dfe-a12ff00b7e89"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2215932, 51411, 5831, 159, 161, "Input",ExpressionUUID->"615ae9c5-bad7-4966-b418-1dc2f557eb40"],
Cell[2221766, 51572, 9294, 183, 404, "Output",ExpressionUUID->"0e08ea37-e56c-47e1-ab7c-a026385d5973"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2231097, 51760, 326, 8, 28, "Input",ExpressionUUID->"a6880041-2817-4c51-96ab-c66172215e94"],
Cell[2231426, 51770, 241, 6, 32, "Output",ExpressionUUID->"3ce7590f-31fb-44e4-a11a-8367efe0636f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2231704, 51781, 1016, 29, 28, "Input",ExpressionUUID->"a41d4248-33f6-43ee-9a1c-12549aa9b545"],
Cell[2232723, 51812, 340, 5, 32, "Output",ExpressionUUID->"36bf0165-9a4c-49b3-ad9e-1f038ece12d6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2233100, 51822, 910, 27, 28, "Input",ExpressionUUID->"2636e2f2-6bc1-462b-83c6-88fede575877"],
Cell[2234013, 51851, 172, 3, 32, "Output",ExpressionUUID->"094a0ea9-ee0c-475f-9c0a-838ccaa50ac7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2234222, 51859, 2113, 59, 124, "Input",ExpressionUUID->"ef242c84-1732-49f3-bfea-1ae45d154559"],
Cell[2236338, 51920, 1095, 25, 96, "Output",ExpressionUUID->"989cc601-2478-4478-9557-97f5abb31b1b"],
Cell[2237436, 51947, 1098, 25, 96, "Output",ExpressionUUID->"52a5d27c-243b-451d-8cad-a1fd0068abd2"],
Cell[2238537, 51974, 1097, 25, 96, "Output",ExpressionUUID->"d18a143f-1057-4825-82da-e681eeb5575b"],
Cell[2239637, 52001, 1096, 25, 96, "Output",ExpressionUUID->"222b66ae-cf73-41ee-8426-2f32e2ecb7ee"],
Cell[2240736, 52028, 1091, 25, 96, "Output",ExpressionUUID->"9fc627f3-e3de-49d8-a3ff-261d64c6f308"],
Cell[2241830, 52055, 1094, 25, 96, "Output",ExpressionUUID->"7138c48b-4325-40b3-850b-b0fed4d0aa4c"]
}, Open  ]],
Cell[2242939, 52083, 959, 28, 66, "Input",ExpressionUUID->"4b973f17-841d-46ec-813a-b032e15f419d"],
Cell[2243901, 52113, 6129, 163, 201, "Input",ExpressionUUID->"40b4ed18-871c-4276-ac66-3b79412f2fc7"],
Cell[CellGroupData[{
Cell[2250055, 52280, 7074, 176, 201, "Input",ExpressionUUID->"bb73a4cf-c813-4537-b68e-3638f4d94400"],
Cell[2257132, 52458, 38629, 865, 449, "Output",ExpressionUUID->"7f6657ac-ac78-4797-a10e-6a113b2854fb"]
}, Open  ]],
Cell[2295776, 53326, 130, 3, 28, "Input",ExpressionUUID->"e3efbba4-dabc-4c1f-8e9c-5c8aeccbfb98"],
Cell[2295909, 53331, 5665, 140, 105, "Input",ExpressionUUID->"0cc22e45-1992-4758-95fc-79555c2dc75d"],
Cell[CellGroupData[{
Cell[2301599, 53475, 16326, 410, 565, "Input",ExpressionUUID->"59bd03aa-f00c-451b-9224-834b569cf196"],
Cell[2317928, 53887, 38274, 859, 449, "Output",ExpressionUUID->"3d0d062b-fcba-4d25-bfed-b8fe77825c3b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2356239, 54751, 3775, 79, 201, "Input",ExpressionUUID->"68b797ae-276e-4f82-80ef-4c8f06d52552"],
Cell[2360017, 54832, 397903, 8515, 1497, "Output",ExpressionUUID->"00873da2-4c30-4ae9-96a5-fba5839eea31"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2757957, 63352, 741, 18, 47, "Input",ExpressionUUID->"36c1fbfc-404a-469c-b566-8d780f257166"],
Cell[2758701, 63372, 397760, 8513, 1497, "Output",ExpressionUUID->"c3d1dccc-744e-4bc8-ad39-290c61f05545"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3156498, 71890, 513, 14, 28, "Input",ExpressionUUID->"56e358b6-1449-49d9-908d-f0c9bcce4cfb"],
Cell[3157014, 71906, 352814, 7572, 1033, "Output",ExpressionUUID->"8105ef3b-8d7d-4c6f-9162-37fca85f6fe1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3509865, 79483, 316, 6, 28, "Input",ExpressionUUID->"7f905a86-7551-493e-926c-5529093c0151"],
Cell[3510184, 79491, 313, 5, 32, "Output",ExpressionUUID->"16679c01-87b5-42a6-8be9-02196268508e"]
}, Open  ]],
Cell[3510512, 79499, 1314, 32, 66, "Input",ExpressionUUID->"70e2d9c8-c84c-4b3d-b151-b261881e174c"],
Cell[CellGroupData[{
Cell[3511851, 79535, 510, 13, 28, "Input",ExpressionUUID->"93ef48d4-e295-4caa-850c-f98902d3a18a"],
Cell[3512364, 79550, 72433, 1474, 908, "Output",ExpressionUUID->"7680a107-84a1-4e8d-b636-87858eacb745"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3584834, 81029, 261, 5, 28, "Input",ExpressionUUID->"1ca6a6e2-f4e1-4a5c-8484-1b2a4b0d8cca"],
Cell[3585098, 81036, 202, 3, 32, "Output",ExpressionUUID->"91dd177f-6a63-452c-88ee-922667cc859f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3585337, 81044, 258, 5, 28, "Input",ExpressionUUID->"05f318c2-90e9-4021-ab0c-53afe2389e89"],
Cell[3585598, 81051, 199, 3, 88, "Output",ExpressionUUID->"e56142e1-19b1-4658-93ad-4fa49db2e8f3"]
}, Open  ]],
Cell[3585812, 81057, 12201, 311, 370, "Input",ExpressionUUID->"b9bf0358-8b32-44d7-97cc-01e96fa9d4fd"],
Cell[CellGroupData[{
Cell[3598038, 81372, 275, 6, 28, "Input",ExpressionUUID->"4e43ee37-64b2-46b1-bc78-be23d8fb6aea"],
Cell[3598316, 81380, 178, 3, 32, "Output",ExpressionUUID->"c071771a-7cf7-40ef-a282-a321e4bfb261"]
}, Open  ]],
Cell[3598509, 81386, 11691, 304, 352, "Input",ExpressionUUID->"2dd91ae9-8ad3-4c7c-ad92-0ff5a5b4de2d"],
Cell[CellGroupData[{
Cell[3610225, 81694, 271, 6, 28, "Input",ExpressionUUID->"d4193bc1-7c79-4054-ac52-0125cae5cc4f"],
Cell[3610499, 81702, 180, 3, 32, "Output",ExpressionUUID->"40333152-35df-40f3-a8b0-d08e2e46511a"]
}, Open  ]],
Cell[3610694, 81708, 11675, 304, 352, "Input",ExpressionUUID->"3db5da93-d0ae-4fcd-ac25-97f7fa3156e3"],
Cell[CellGroupData[{
Cell[3622394, 82016, 278, 6, 28, "Input",ExpressionUUID->"f1492682-33e7-47ec-9a39-173dcec59e89"],
Cell[3622675, 82024, 203, 3, 32, "Output",ExpressionUUID->"c296a0cd-3027-4705-8384-1cc7e5b9f68a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3622915, 82032, 553, 13, 28, "Input",ExpressionUUID->"633841c3-4cad-44a4-ad60-73dd4e012ddb"],
Cell[3623471, 82047, 269488, 5568, 1542, "Output",ExpressionUUID->"7770e7a4-6746-4c3a-bb0f-39646dc5f096"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3892996, 87620, 355, 9, 48, "Input",ExpressionUUID->"90590712-d464-46ed-8e25-0f85870ac88e"],
Cell[3893354, 87631, 176, 3, 32, "Output",ExpressionUUID->"381ea079-ce3e-4e33-bc36-ea762cb69652"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3893567, 87639, 681, 10, 28, "Input",ExpressionUUID->"2a420925-0770-4ed5-93b5-bdc75246214a"],
Cell[3894251, 87651, 10137, 207, 380, "Output",ExpressionUUID->"33d56636-485c-4f1d-b909-85642571a456"]
}, Open  ]],
Cell[3904403, 87861, 128, 3, 28, "Input",ExpressionUUID->"52201424-3770-414e-9a7f-b224c7908565"],
Cell[CellGroupData[{
Cell[3904556, 87868, 285, 5, 28, "Input",ExpressionUUID->"7cb2f32e-74fb-41d7-a168-379254be56d5"],
Cell[3904844, 87875, 9185, 192, 404, "Output",ExpressionUUID->"133b3796-e091-499e-a5a5-7a0bd47dd667"]
}, Open  ]],
Cell[3914044, 88070, 9216, 256, 256, "Input",ExpressionUUID->"d1ded865-b58b-4c4f-96b1-c94283fca969"],
Cell[3923263, 88328, 8948, 252, 256, "Input",ExpressionUUID->"f6f13829-a4d6-47a9-b9bb-b16a7e031eb2"],
Cell[3932214, 88582, 8926, 252, 256, "Input",ExpressionUUID->"b73c6f15-1158-4083-976e-6425d8ffb124"],
Cell[CellGroupData[{
Cell[3941165, 88838, 5059, 108, 200, "Input",ExpressionUUID->"275b0b98-4ef2-4d38-92f1-9a951ff1b89b"],
Cell[3946227, 88948, 151498, 3367, 1276, "Output",ExpressionUUID->"5b34e315-0f62-4dd0-88a2-20a3fb121753"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4097762, 92320, 283, 6, 28, "Input",ExpressionUUID->"93b3ae9d-afdd-4689-9b2c-4743c16c369a"],
Cell[4098048, 92328, 239, 4, 108, "Output",ExpressionUUID->"87da399d-5750-4824-b114-2b1221e9db0a"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4098324, 92337, 258, 6, 28, "Input",ExpressionUUID->"dd92edc0-47c9-44f7-adb8-5e50029d32ca"],
Cell[4098585, 92345, 189, 3, 32, "Output",ExpressionUUID->"7f4ae93a-19e2-4e07-a0a9-8c936e79b2e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4098811, 92353, 6725, 161, 149, "Input",ExpressionUUID->"9db1720c-cfae-4856-85d5-7c486108d80a"],
Cell[4105539, 92516, 36572, 748, 588, "Output",ExpressionUUID->"c9302b12-32ab-4058-a7b9-5f5f9542551d"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4142148, 93269, 254, 5, 28, "Input",ExpressionUUID->"9077a896-b545-45cc-965e-fbd22135e81a"],
Cell[4142405, 93276, 173, 3, 32, "Output",ExpressionUUID->"d27ad817-704e-4dbf-be45-8c28541011d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4142615, 93284, 3174, 67, 129, "Input",ExpressionUUID->"42cfcb4e-8fec-4c65-80e0-e315934ab5e2"],
Cell[4145792, 93353, 7919, 160, 380, "Output",ExpressionUUID->"e869296c-bff1-4114-96de-4a1100cae0c1"]
}, Open  ]],
Cell[4153726, 93516, 154, 3, 28, "Input",ExpressionUUID->"59e8b463-cb93-48fe-acdf-64541959031e"],
Cell[4153883, 93521, 235, 4, 28, "Input",ExpressionUUID->"c0eadac6-9d5a-4f28-93e0-adb60eeb65fa"],
Cell[4154121, 93527, 154, 3, 28, "Input",ExpressionUUID->"77ab7fae-35f2-42e1-8463-5d95095df481"],
Cell[4154278, 93532, 3063, 90, 169, "Input",ExpressionUUID->"303edcda-951d-46e7-b77f-62a87deed046"],
Cell[4157344, 93624, 209, 4, 28, "Input",ExpressionUUID->"5d96b46f-02c8-4e05-9fa3-367f5418f820"],
Cell[4157556, 93630, 367, 8, 28, "Input",ExpressionUUID->"b0b07454-a922-4207-83bc-126c58d8ebb4"],
Cell[CellGroupData[{
Cell[4157948, 93642, 222, 4, 28, "Input",ExpressionUUID->"82f74eed-90e3-4226-865d-20e9c499f481"],
Cell[4158173, 93648, 223, 5, 32, "Output",ExpressionUUID->"8c2732e3-f652-496f-91f6-52bd9355f3d3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4158433, 93658, 334, 9, 28, "Input",ExpressionUUID->"416846d6-8389-40cb-83b7-29e4bcde8577"],
Cell[4158770, 93669, 1436, 30, 65, "Output",ExpressionUUID->"169b3b4a-1233-4040-94d0-76738d35ab5c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4160243, 93704, 21341, 561, 729, "Input",ExpressionUUID->"60a5a1f9-7998-4ed0-bf4f-adabdb9cf75a"],
Cell[4181587, 94267, 613, 12, 24, "Message",ExpressionUUID->"956fd5d5-3c94-4a3c-bb36-b41fcc343a49"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4182237, 94284, 399, 10, 28, "Input",ExpressionUUID->"f297abc6-3c90-48f4-afbc-02e1d5faeaa2"],
Cell[4182639, 94296, 2196, 41, 84, "Output",ExpressionUUID->"521e0858-e3eb-463c-bbfe-1263cdfe78a1"]
}, Open  ]],
Cell[4184850, 94340, 1210, 37, 69, "Input",ExpressionUUID->"09d98907-0e23-4a61-b4de-50873701f6e6"],
Cell[CellGroupData[{
Cell[4186085, 94381, 255, 6, 28, "Input",ExpressionUUID->"a988f98d-4d10-4fd7-b1af-1c6a6f028b11"],
Cell[4186343, 94389, 1047, 27, 32, "Output",ExpressionUUID->"e64eea1b-e3c3-42b9-8a11-ce5856cd1950"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4187427, 94421, 297, 7, 28, "Input",ExpressionUUID->"8530f363-9f91-4418-b8c0-58a55226f35b"],
Cell[4187727, 94430, 171, 3, 32, "Output",ExpressionUUID->"931fc32d-82cf-417a-8eff-40ea86e9aaff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4187935, 94438, 324, 6, 28, "Input",ExpressionUUID->"055d21b9-ac0f-4426-a0cb-fb38edd0eff3"],
Cell[4188262, 94446, 243, 4, 32, "Output",ExpressionUUID->"1b980aef-56ee-48b6-a1ee-499e277ee545"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4188542, 94455, 459, 11, 28, "Input",ExpressionUUID->"e0780ce9-c19f-49a3-b9b8-2470dca18601"],
Cell[4189004, 94468, 889, 22, 48, "Output",ExpressionUUID->"b6fff5be-a7f2-4634-abd6-463c4ce7e305"]
}, Open  ]],
Cell[4189908, 94493, 296, 6, 28, "Input",ExpressionUUID->"8caec232-13a2-4128-8a44-1841feab873e"],
Cell[CellGroupData[{
Cell[4190229, 94503, 214, 3, 28, "Input",ExpressionUUID->"1da43900-c964-4fe0-b614-e218720ff5fe"],
Cell[4190446, 94508, 198, 4, 32, "Output",ExpressionUUID->"2b939d5e-0c2f-4372-8f96-30f3875e4d3d"]
}, Open  ]],
Cell[4190659, 94515, 20404, 546, 689, "Input",ExpressionUUID->"3747a0ef-572e-4aa4-b850-9264a3eb9f8c"],
Cell[4211066, 95063, 232, 5, 89, "Input",ExpressionUUID->"f78fc20b-736f-4a30-9f3b-03967ce9339f"],
Cell[CellGroupData[{
Cell[4211323, 95072, 600, 14, 28, "Input",ExpressionUUID->"6da3452c-00ae-4399-986c-91e514b2f22b"],
Cell[4211926, 95088, 9500, 177, 496, 2968, 69, "CachedBoxData", "BoxData", "Output",ExpressionUUID->"32baf66e-d3b0-4c00-b232-31bf673816de"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4221463, 95270, 219, 4, 28, "Input",ExpressionUUID->"bba90757-bf8b-4f8a-add7-6010c09283b3"],
Cell[4221685, 95276, 130060, 1898, 5021, "Output",ExpressionUUID->"cd682742-12a9-4dfd-9813-84466c0d7058"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4351782, 97179, 363, 8, 36, "Input",ExpressionUUID->"fa8a2a56-0be6-459c-95a3-902185291729"],
Cell[4352148, 97189, 215, 4, 40, "Output",ExpressionUUID->"6f43236e-51df-4239-bd1a-a8417a83de6b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4352400, 97198, 1034, 27, 36, "Input",ExpressionUUID->"694672c6-8fa4-4f77-9213-0a2e881a27be"],
Cell[4353437, 97227, 6373, 131, 332, "Output",ExpressionUUID->"a429ccb7-6d41-4d57-95f9-df3717ca1bff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4359847, 97363, 261, 6, 36, "Input",ExpressionUUID->"0ec031f1-4a71-46fb-afbc-1f6cad48f2ef"],
Cell[4360111, 97371, 165, 3, 40, "Output",ExpressionUUID->"c93f98d0-30ed-4834-97da-0ba4346101e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4360313, 97379, 791, 23, 36, "Input",ExpressionUUID->"d1c8e7e2-bfbe-4a68-823d-8c12e791880f"],
Cell[4361107, 97404, 6567, 136, 333, "Output",ExpressionUUID->"6fe5695b-2cf1-463c-bb16-699ebbcbc75e"]
}, Open  ]],
Cell[4367689, 97543, 1688, 54, 89, "Input",ExpressionUUID->"309f4383-bc53-4659-ad80-db891deb102b"],
Cell[CellGroupData[{
Cell[4369402, 97601, 237, 5, 36, "Input",ExpressionUUID->"80c8c37d-c16c-47d2-8dd7-1143bf59c36d"],
Cell[4369642, 97608, 662, 12, 40, "Output",ExpressionUUID->"3d608d22-f374-4757-9ee2-c8ff2fe17e32"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4370341, 97625, 1033, 27, 36, "Input",ExpressionUUID->"24928cbd-824d-4a6a-89f8-4a4ecc67a4a2"],
Cell[4371377, 97654, 7574, 151, 320, "Output",ExpressionUUID->"8886058f-6d3c-41b1-b292-b9a8338a6825"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4378988, 97810, 262, 6, 28, "Input",ExpressionUUID->"e08b1acb-b25a-46ed-9cda-8f7b5c590c28"],
Cell[4379253, 97818, 165, 3, 32, "Output",ExpressionUUID->"5990aa53-23c7-4a33-bcc6-77fdef6c7d0c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4379455, 97826, 345, 9, 28, "Input",ExpressionUUID->"faad36d2-9294-46d6-b5fc-d669abdb15b4"],
Cell[4379803, 97837, 225, 5, 32, "Output",ExpressionUUID->"56da74e4-6e61-4c71-b9a1-a6ec20fd3e86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4380065, 97847, 238, 5, 28, "Input",ExpressionUUID->"5c82eece-32eb-408d-8bac-95bbda5ba315"],
Cell[4380306, 97854, 536, 10, 32, "Output",ExpressionUUID->"e6eb4162-9a43-4bc3-98a4-ddc2a3c07920"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4380879, 97869, 1113, 32, 28, "Input",ExpressionUUID->"3946f544-2c58-4c6d-b888-927f02fbdbfa"],
Cell[4381995, 97903, 6779, 139, 316, "Output",ExpressionUUID->"1df6c96e-70ec-4c73-a163-2da04bc45eaf"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4388811, 98047, 841, 24, 28, "Input",ExpressionUUID->"23f80986-7c28-4e18-bc01-2b87f2214d8d"],
Cell[4389655, 98073, 6556, 135, 333, "Output",ExpressionUUID->"a6ea025e-53a0-43a2-bbfe-403680a1bfb2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4396248, 98213, 219, 4, 28, "Input",ExpressionUUID->"4deb0b1d-6e8f-44b7-95b9-7b014b7759c8"],
Cell[4396470, 98219, 72151, 1072, 2613, "Output",ExpressionUUID->"98023250-7aae-4e2f-9c1c-8f2f0397d1b7"]
}, Open  ]],
Cell[4468636, 99294, 471, 8, 272, "Input",ExpressionUUID->"78c0a8e3-07c3-435a-a365-7e3acbde67dc"],
Cell[CellGroupData[{
Cell[4469132, 99306, 2684, 71, 49, "Input",ExpressionUUID->"77bbcdab-a87f-4a50-9152-1b6de2727a60"],
Cell[4471819, 99379, 29706, 510, 264, "Output",ExpressionUUID->"dc78b985-e4f0-4b59-8ef6-4a500a22e263"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4501562, 99894, 2583, 70, 49, "Input",ExpressionUUID->"b6454ab1-9855-41cf-99f8-fa686e9ba6c4"],
Cell[4504148, 99966, 29674, 510, 257, "Output",ExpressionUUID->"7d5cc0be-6ea6-4656-b73f-7fa4a01dc625"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4533859, 100481, 235, 5, 28, "Input",ExpressionUUID->"ac39877e-771c-4d9a-aee0-f2e9489756b9"],
Cell[4534097, 100488, 483, 9, 32, "Output",ExpressionUUID->"a782a592-0365-4873-9336-e8104c4e1b58"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4534617, 100502, 3213, 88, 48, "Input",ExpressionUUID->"eef89598-0ae4-40c1-a7f8-1c499f481b85"],
Cell[4537833, 100592, 38030, 659, 256, "Output",ExpressionUUID->"5b1b8e4f-cda1-4e2a-ae02-42764a2218d0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4575900, 101256, 1348, 39, 28, "Input",ExpressionUUID->"26631207-351d-4d68-8bb7-b3d58873445a"],
Cell[4577251, 101297, 12843, 231, 256, "Output",ExpressionUUID->"1be2c323-be26-4a7e-b241-572567a2f4c2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4590131, 101533, 3207, 88, 48, "Input",ExpressionUUID->"2bb431b3-d47e-4a78-84e6-1e1bfcc3e128"],
Cell[4593341, 101623, 37903, 659, 260, "Output",ExpressionUUID->"df545464-8b9b-453b-9083-ac3e8c642046"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4631281, 102287, 2598, 76, 48, "Input",ExpressionUUID->"b7f98ef1-1648-446a-a608-533e5be2ca31"],
Cell[4633882, 102365, 33758, 577, 260, "Output",ExpressionUUID->"a839f395-655f-46e2-b22f-33b2d93fee5f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4667677, 102947, 3255, 88, 48, "Input",ExpressionUUID->"b4145f43-7a88-42c9-ae1d-38a5639f5971"],
Cell[4670935, 103037, 37979, 661, 260, "Output",ExpressionUUID->"a72fa9d1-e500-4dc6-8cbe-ff9fa54a62c3"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4708951, 103703, 2362, 52, 88, "Input",ExpressionUUID->"a45f9500-870b-4a89-ae30-3a7ab95b2bbf"],
Cell[4711316, 103757, 226806, 4040, 956, "Output",ExpressionUUID->"5c022b62-39b2-45b3-b50b-cd213fae9be8"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4938159, 107802, 2959, 61, 88, "Input",ExpressionUUID->"bd1ab19b-75a1-4af3-bf57-5acfdf351d98"],
Cell[4941121, 107865, 31737, 671, 161, "Output",ExpressionUUID->"25609c14-db86-4e35-94f7-1f1672cc8825"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4972895, 108541, 422, 8, 28, "Input",ExpressionUUID->"b12512fe-f9ea-455b-8322-195577722e79"],
Cell[4973320, 108551, 275, 4, 32, "Output",ExpressionUUID->"7b427148-a82b-4327-a770-7117488eb775"]
}, Open  ]],
Cell[4973610, 108558, 255, 5, 104, "Input",ExpressionUUID->"a5fed737-406b-4bba-a1eb-3b718e8814f3"],
Cell[CellGroupData[{
Cell[4973890, 108567, 6088, 152, 148, "Input",ExpressionUUID->"d59ebeae-9f97-4c24-94bd-84edf3007adc"],
Cell[4979981, 108721, 36728, 704, 592, "Output",ExpressionUUID->"e4d136c6-93de-40fb-be09-fc369d31bda0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5016746, 109430, 236, 5, 28, "Input",ExpressionUUID->"d05d3b59-d253-40c8-aa46-d0408e9b4b42"],
Cell[5016985, 109437, 150, 3, 32, "Output",ExpressionUUID->"5b5d5f40-6ee4-4da6-b2f4-78fe990d7466"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5017172, 109445, 5959, 150, 148, "Input",ExpressionUUID->"6eea0a5b-33e3-448f-ae70-a71f38323946"],
Cell[5023134, 109597, 36393, 700, 592, "Output",ExpressionUUID->"f487dcf6-6832-4563-99a2-a772f1979fb7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5059564, 110302, 5252, 128, 205, "Input",ExpressionUUID->"d486f69e-4a4e-4f87-b39b-0f414b06bc30"],
Cell[5064819, 110432, 102090, 1797, 380, "Output",ExpressionUUID->"4e013972-eeb1-4d60-8595-9e06c679dfc9"]
}, Open  ]],
Cell[5166924, 112232, 1003, 15, 28, "Input",ExpressionUUID->"90608f5f-a16f-48f5-a030-446ade9f38d4"],
Cell[CellGroupData[{
Cell[5167952, 112251, 26563, 703, 760, "Input",ExpressionUUID->"9b7975ac-c132-481b-8a37-916f833f5e79"],
Cell[5194518, 112956, 284355, 4968, 1024, "Output",ExpressionUUID->"df2a9882-d37b-49af-9cf3-b2e418e49beb"]
}, Open  ]],
Cell[5478888, 117927, 285, 5, 28, "Input",ExpressionUUID->"7ae39972-8703-448e-82c3-fc8d8833b837"],
Cell[CellGroupData[{
Cell[5479198, 117936, 530, 11, 48, "Input",ExpressionUUID->"b961cf94-92ca-44e3-85ee-2eabdfc693f2"],
Cell[5479731, 117949, 354, 5, 32, "Output",ExpressionUUID->"9d3df40a-036a-4eb5-9083-a61df43457b5"],
Cell[5480088, 117956, 351, 5, 32, "Output",ExpressionUUID->"4ef4413a-b831-4ae4-b8f3-766d867d34c9"]
}, Open  ]],
Cell[5480454, 117964, 7702, 207, 217, "Input",ExpressionUUID->"260246be-cecb-4adf-9146-065a9ff90250"],
Cell[5488159, 118173, 7835, 210, 236, "Input",ExpressionUUID->"f9631ca9-2eab-4efc-bcc5-c3268d3909a0"],
Cell[5495997, 118385, 7684, 207, 256, "Input",ExpressionUUID->"b05b876c-9377-431c-8ffe-6f6e0fc6de12"],
Cell[CellGroupData[{
Cell[5503706, 118596, 12879, 280, 616, "Input",ExpressionUUID->"3bedd8a9-da21-4013-ae3d-bdac9f21fd01"],
Cell[5516588, 118878, 198684, 3505, 732, "Output",ExpressionUUID->"8cf216ad-d2fe-45fc-9e7f-b3d5be9f4633"],
Cell[5715275, 122385, 109495, 1980, 440, "Output",ExpressionUUID->"a7016d88-62a3-4cc8-80e8-02ec2c3effa6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5824807, 124370, 657, 14, 65, "Input",ExpressionUUID->"8abcb550-7ac7-461e-aac6-621c0f1cf2f2"],
Cell[5825467, 124386, 305, 5, 32, "Output",ExpressionUUID->"de9cde3f-3ab1-48e1-b8c8-1b846402627d"],
Cell[5825775, 124393, 302, 5, 32, "Output",ExpressionUUID->"705b980e-dad8-4eca-896b-8a91974957ad"],
Cell[5826080, 124400, 307, 5, 32, "Output",ExpressionUUID->"1862fce8-5b9d-4821-8cfe-c893b8e4b0f6"]
}, Open  ]],
Cell[5826402, 124408, 6382, 175, 200, "Input",ExpressionUUID->"7742e60a-b685-4169-8598-5e833ff057cc"],
Cell[CellGroupData[{
Cell[5832809, 124587, 2919, 68, 180, "Input",ExpressionUUID->"56421106-838d-4899-b312-648a08c92dc5"],
Cell[5835731, 124657, 68725, 1261, 432, "Output",ExpressionUUID->"ba2744c2-3624-4016-9a08-0240323f55ad"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5904493, 125923, 433, 10, 48, "Input",ExpressionUUID->"3f5c1154-6e5d-40e1-bc8a-a8f219fedbe3"],
Cell[5904929, 125935, 232, 4, 32, "Output",ExpressionUUID->"2d1f4d3b-5128-4b2a-9f47-e661a921014c"],
Cell[5905164, 125941, 231, 4, 32, "Output",ExpressionUUID->"d30d5bc3-9f3c-4a1a-aceb-67909c0bbe76"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5905432, 125950, 4527, 111, 200, "Input",ExpressionUUID->"038e0ea9-2349-43fe-9863-7e3cb25f8b64"],
Cell[5909962, 126063, 63396, 1132, 376, "Output",ExpressionUUID->"7db131cc-dcbb-47ba-9e59-99b1153b6e8c"]
}, Open  ]],
Cell[5973373, 127198, 4292, 108, 200, "Input",ExpressionUUID->"5b65fef5-bb92-477e-b3f1-c1fe6ca9ec4c"],
Cell[5977668, 127308, 4327, 109, 169, "Input",ExpressionUUID->"b7b4ea67-eb02-4b32-a3ca-4657bce49333"],
Cell[CellGroupData[{
Cell[5982020, 127421, 717, 14, 36, "Input",ExpressionUUID->"7fbed7e8-1305-4f46-9d4a-8e0d7e0ff16a"],
Cell[5982740, 127437, 192286, 3405, 1141, "Output",ExpressionUUID->"e29fd953-1679-460f-80cd-081aea19547f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6175063, 130847, 244, 5, 28, "Input",ExpressionUUID->"d1b663a8-48fb-4ac5-b8de-dcc9a759bad2"],
Cell[6175310, 130854, 203, 3, 32, "Output",ExpressionUUID->"1bd8a136-ba99-47b2-a766-605a98dff87e"]
}, Open  ]]
}
]
*)

