model_simple_stoch.nb

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

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

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    230113,       4943]
NotebookOptionsPosition[    221461,       4728]
NotebookOutlinePosition[    221819,       4744]
CellTagsIndexPosition[    221776,       4741]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Climate Model - Muryshev coupled to social dynamics", \
"Chapter"]], "Subchapter",
 CellChangeTimes->{{3.694367888349641*^9, 3.694367896789218*^9}, {
  3.6954006160255613`*^9, 3.6954006161262007`*^9}, {3.697130644438664*^9, 
  3.697130650445162*^9}, {3.705941933297563*^9, 3.705941939310923*^9}, {
  3.71621027568736*^9, 3.716210293390527*^9}, {3.726421721377314*^9, 
  3.7264217309431257`*^9}, {3.726581446956918*^9, 3.726581462410057*^9}, {
  3.726678562149597*^9, 3.726678565804326*^9}, {3.7267525980612783`*^9, 
  3.726752607367916*^9}, {3.726768017680662*^9, 3.726768033112118*^9}, {
  3.726768114085096*^9, 3.726768122570509*^9}}],

Cell[CellGroupData[{

Cell[TextData[StyleBox["Setup", "Section"]], "Section",
 CellChangeTimes->{{3.685557114188308*^9, 3.685557114876256*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", 
   "\"\</Users/tbury/Library/Mobile \
Documents/com~apple~CloudDocs/Research/climate_social\>\"", "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7239224038678007`*^9, 3.723922420638607*^9}, {
  3.726421739096759*^9, 3.726421769178512*^9}},
 ExpressionUUID -> "abc39f06-9e20-41c3-ac75-02cffafce0e6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Good", " ", "fonts"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"TMBFS10", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "10"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TMBFS12", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TMBFS15", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "15"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"TMBbold", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"FontFamily", "\[Rule]", "\"\<Helvetica\>\""}], ",", 
       RowBox[{"FontSize", "\[Rule]", "15"}], ",", "Bold"}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"Neat", " ", "colours"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{"TMBcolours", "=", 
    RowBox[{"ColorData", "[", 
     RowBox[{"97", ",", "\"\<ColorList\>\""}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.68588882340141*^9, 3.685888831081005*^9}, {
  3.689774785005453*^9, 3.68977479593287*^9}, {3.6929076088738422`*^9, 
  3.692907613592086*^9}, {3.6933350293326073`*^9, 3.6933350299165497`*^9}, {
  3.70596210419595*^9, 3.705962121410606*^9}},
 ExpressionUUID -> "241db403-a2dd-42f7-a725-e2dcc755ac9e"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.368417, 0.506779, 0.709798], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.24561133333333335`, 0.3378526666666667, 0.4731986666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.368417, 0.506779, 0.709798]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.368417, 0.506779, 0.709798]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.368417, 0.506779, 0.709798],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.880722, 0.611041, 0.142051], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.587148, 0.40736066666666665`, 0.09470066666666668],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.880722, 0.611041, 0.142051]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.880722, 0.611041, 0.142051]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.880722, 0.611041, 0.142051],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.560181, 0.691569, 0.194885], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.37345400000000006`, 0.461046, 0.12992333333333334`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.560181, 0.691569, 0.194885]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.560181, 0.691569, 0.194885]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.560181, 0.691569, 0.194885],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.922526, 0.385626, 0.209179], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.6150173333333333, 0.25708400000000003`, 0.13945266666666667`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.922526, 0.385626, 0.209179]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.922526, 0.385626, 0.209179]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.922526, 0.385626, 0.209179],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.528488, 0.470624, 0.701351], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.3523253333333333, 0.3137493333333333, 0.46756733333333333`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.528488, 0.470624, 0.701351]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.528488, 0.470624, 0.701351]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.528488, 0.470624, 0.701351],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.772079, 0.431554, 0.102387], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.5147193333333333, 0.28770266666666666`, 0.06825800000000001],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.772079, 0.431554, 0.102387]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.772079, 0.431554, 0.102387]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.772079, 0.431554, 0.102387],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.363898, 0.618501, 0.782349], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0.24259866666666668`, 0.412334, 0.521566],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.363898, 0.618501, 0.782349]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.363898, 0.618501, 0.782349]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.363898, 0.618501, 0.782349],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[1, 0.75, 0], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0.6666666666666666, 0.5, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[1, 0.75, 0]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = RGBColor[1, 0.75, 0]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[1, 0.75, 0],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.647624, 0.37816, 0.614037], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.4317493333333333, 0.2521066666666667, 0.40935800000000006`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.647624, 0.37816, 0.614037]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.647624, 0.37816, 0.614037]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.647624, 0.37816, 0.614037],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.571589, 0.586483, 0.], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[0.38105933333333336`, 0.39098866666666665`, 0.],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.571589, 0.586483, 0.]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.571589, 0.586483, 0.]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.571589, 0.586483, 0.],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.915, 0.3325, 0.2125], RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.6100000000000001, 0.22166666666666668`, 0.14166666666666666`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.915, 0.3325, 0.2125]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.915, 0.3325, 0.2125]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.915, 0.3325, 0.2125],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.2672148173956843, 0.34800444289592275`, 0.5666666666666667],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.40082222609352647, 0.5220066643438841, 0.85]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.40082222609352647`, 0.5220066643438841, 0.85],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
          RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.6485525936249404, 0.4144296347913687, 0.048907997212660946`],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142]"],
     
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.9728288904374106, 0.621644452187053, 0.07336199581899142],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.736782672705901, 0.358, 0.5030266573755369], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.4911884484706007, 0.23866666666666667`, 0.3353511049170246],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.736782672705901, 0.358, 0.5030266573755369]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.736782672705901, 0.358, 0.5030266573755369]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.736782672705901, 0.358, 0.5030266573755369],
    Editable->False,
    Selectable->False], ",", 
   InterpretationBox[
    ButtonBox[
     TooltipBox[
      GraphicsBox[{
        {GrayLevel[0], RectangleBox[{0, 0}]}, 
        {GrayLevel[0], RectangleBox[{1, -1}]}, 
        {RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965], 
         RectangleBox[{0, -1}, {2, 1}]}},
       AspectRatio->1,
       Frame->True,
       FrameStyle->RGBColor[
        0.18684294025131137`, 0.4766666666666667, 0.2861392881649977],
       FrameTicks->None,
       ImageSize->
        Dynamic[{
         Automatic, 
          1.35 (CurrentValue["FontCapHeight"]/AbsoluteCurrentValue[
           Magnification])}],
       PlotRangePadding->None],
      "RGBColor[0.28026441037696703, 0.715, 0.4292089322474965]"],
     Appearance->None,
     BaseStyle->{},
     BaselinePosition->Baseline,
     ButtonFunction:>With[{Typeset`box$ = EvaluationBox[]}, 
       If[
        Not[
         AbsoluteCurrentValue["Deployed"]], 
        SelectionMove[Typeset`box$, All, Expression]; 
        FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
        FrontEnd`Private`$ColorSelectorInitialColor = 
         RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965]; 
        FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
        MathLink`CallFrontEnd[
          FrontEnd`AttachCell[Typeset`box$, 
           FrontEndResource["RGBColorValueSelector"], {0, {Left, Bottom}}, {
           Left, Top}, 
           "ClosingActions" -> {
            "SelectionDeparture", "ParentChanged", "EvaluatorQuit"}]]]],
     DefaultBaseStyle->{},
     Evaluator->Automatic,
     Method->"Preemptive"],
    RGBColor[0.28026441037696703`, 0.715, 0.4292089322474965],
    Editable->False,
    Selectable->False]}], "}"}]], "Output",
 CellChangeTimes->{
  3.705962123247766*^9, 3.706294575912724*^9, 3.7062947205181103`*^9, 
   3.706298453045829*^9, 3.7063700037553043`*^9, 3.706370577189197*^9, 
   3.7063856416326113`*^9, 3.7069604580036592`*^9, 3.708944479779883*^9, 
   3.7151046245518093`*^9, 3.716118097441366*^9, 3.716236537372594*^9, 
   3.719104629279759*^9, 3.719149279274685*^9, 3.723922424514003*^9, 
   3.7264217716911287`*^9, 3.726427360711084*^9, 3.7264274462074623`*^9, 
   3.7265814801700783`*^9, 3.726678568388015*^9, 3.726683093517996*^9, 
   3.72668492630823*^9, {3.726684979715435*^9, 3.72668499346406*^9}, 
   3.726686341480105*^9, 3.7266932672605886`*^9, 3.726693344990753*^9, 
   3.726693386146031*^9, 3.726693514840914*^9, 3.726750512302623*^9, 
   3.726751169786528*^9, 3.726751621879507*^9, 3.726752122435548*^9, 
   3.7267554627097273`*^9, 3.726755745612105*^9, 3.7267575913799477`*^9, 
   3.726757676386866*^9, 3.726758032197318*^9, 3.726758106024626*^9, 
   3.726758138692816*^9, {3.726758220851592*^9, 3.726758241723496*^9}, 
   3.726758370867771*^9, 3.726758457174418*^9, 3.726758596544574*^9, {
   3.726758643049556*^9, 3.726758671345272*^9}, 3.726758705858322*^9, 
   3.726758974401496*^9, 3.726759054637362*^9, 3.726759208414871*^9, {
   3.726759261601733*^9, 3.726759402222035*^9}, 3.726768125275054*^9, 
   3.726770050733802*^9, {3.7267719881691008`*^9, 3.72677200360279*^9}, 
   3.726772803906272*^9, 3.726772857765232*^9, 3.726772895167295*^9, 
   3.726772953927288*^9, 3.726774160675235*^9, 3.726774599687777*^9, {
   3.726774636749886*^9, 3.726774653353344*^9}, 3.726775294271187*^9, {
   3.7267757507795897`*^9, 3.726775785614543*^9}, 3.726841345623036*^9, 
   3.7268443329680233`*^9, 3.7268444431896057`*^9, {3.726844970362084*^9, 
   3.7268449781116467`*^9}, {3.726845192621025*^9, 3.726845211671817*^9}, 
   3.726845250374083*^9, 3.726845334261248*^9, 3.726845418576264*^9, 
   3.7268525505128183`*^9, 3.726852607909875*^9, 3.726852654155797*^9, 
   3.726852688206604*^9, {3.726852800324091*^9, 3.726852828951775*^9}, 
   3.7268528801652184`*^9, 3.7268529684452267`*^9, 3.7268531940173798`*^9, 
   3.726853304404155*^9, 3.7268537813873987`*^9, 3.726855025133185*^9, 
   3.726880777101416*^9, 3.726880845855213*^9, 3.726880908485238*^9, 
   3.7268811256974792`*^9, 3.7268813167392807`*^9, 3.7268815830226383`*^9, 
   3.726882681957353*^9, 3.726882839302664*^9, 3.726920631466599*^9, 
   3.726920729835648*^9, 3.7269207686171913`*^9, 3.726920805438057*^9, {
   3.726921019530397*^9, 3.726921034383503*^9}, 3.7269211073928013`*^9, {
   3.726921215220387*^9, 3.726921245625922*^9}, {3.726921308113661*^9, 
   3.726921336830449*^9}, 3.72692140343442*^9, {3.726921540842762*^9, 
   3.726921562205283*^9}, 3.72692160022012*^9, 3.7269216389884653`*^9, 
   3.726921677392434*^9, 3.72692171507309*^9, 3.726921775669533*^9, {
   3.726921814682123*^9, 3.72692183284573*^9}, {3.7269223123917303`*^9, 
   3.726922330897867*^9}, 3.72692265637361*^9, {3.726922687136078*^9, 
   3.726922714504467*^9}, 3.726922769942748*^9, 3.726922916707671*^9, {
   3.7269230938717413`*^9, 3.726923265728372*^9}, {3.726923612789164*^9, 
   3.726923640395872*^9}, {3.726923698855088*^9, 3.726923729253084*^9}, 
   3.726924354746619*^9, {3.726924391807364*^9, 3.726924428888752*^9}, 
   3.72692464475354*^9, {3.7269246795093937`*^9, 3.726924686335725*^9}, {
   3.726924748409532*^9, 3.72692476823225*^9}, {3.726924803238388*^9, 
   3.726924810260521*^9}, 3.7269374091525583`*^9, 3.726937827515581*^9, 
   3.72694387005993*^9, 3.726944304131291*^9, 3.726944371049007*^9, 
   3.7269446062027273`*^9, 3.726944669081078*^9, 
   3.727021506169683*^9},ExpressionUUID->"a9a0a2ea-9bfa-43cf-b5a2-\
1bbd88194515"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Parameters", "Section",
 CellChangeTimes->{{3.715117744191044*^9, 3.715117747934856*^9}, {
   3.726423858945524*^9, 3.726423865552526*^9}, 3.7265815633580627`*^9}],

Cell[CellGroupData[{

Cell["Muryshev parameters", "Subsection",
 CellChangeTimes->{{3.726920442532753*^9, 3.726920445324871*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"cap", "=", 
    RowBox[{"10", "^", "9"}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"heat", " ", "capacity"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"rx", "=", 
   RowBox[{"5.3", "*", 
    RowBox[{"(", 
     RowBox[{"60", "*", "60", "*", "24", "*", "365"}], ")"}]}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"radiative", " ", "perturbing", " ", "forcing"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"lambda", "=", 
   RowBox[{"0.8", "*", 
    RowBox[{"(", 
     RowBox[{"60", "*", "60", "*", "24", "*", "365"}], ")"}]}]}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"coeff", " ", "of", " ", "climate", " ", "sensitivity", " ", 
    RowBox[{"(", 
     RowBox[{"0.8", "-", "2.5"}], " "}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"f0", "=", "2.5*^-2"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"ocean", " ", "flux", " ", "constant", " ", 
    RowBox[{"(", 
     RowBox[{"2.5", "-", 
      RowBox[{"4.5", " ", "*", 
       RowBox[{"10", "^", 
        RowBox[{"-", "2"}]}]}]}], ")"}]}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.726679590439507*^9, 3.7266797631809893`*^9}, {
   3.7266797980208406`*^9, 3.7266798256135*^9}, {3.726680145890032*^9, 
   3.726680185417948*^9}, {3.726680258516446*^9, 3.726680271027787*^9}, {
   3.7266803136685743`*^9, 3.726680316542635*^9}, {3.726680814774828*^9, 
   3.726680925478792*^9}, {3.7266810836551437`*^9, 3.7266811268157873`*^9}, 
   3.726681416263073*^9, 3.7266829834362183`*^9, {3.726683035264776*^9, 
   3.726683035704364*^9}, {3.7267555147098846`*^9, 3.726755528517172*^9}, {
   3.726755558916539*^9, 3.726755600304092*^9}, {3.7268412991771593`*^9, 
   3.726841317848723*^9}, {3.726844418938912*^9, 3.726844436350252*^9}, {
   3.72684495230842*^9, 3.726844963651197*^9}, {3.726845235997126*^9, 
   3.726845239610648*^9}, {3.726845273012787*^9, 3.7268452871957293`*^9}, {
   3.726920425489862*^9, 3.726920481338005*^9}, {3.726921333427088*^9, 
   3.726921334475772*^9}, {3.726921393956463*^9, 3.726921396029751*^9}, {
   3.726921558859103*^9, 3.726921559666686*^9}, {3.726921591498797*^9, 
   3.726921591610339*^9}, {3.726921771857006*^9, 3.7269217730252867`*^9}, {
   3.726922652650628*^9, 3.726922767035775*^9}, {3.7269228880540524`*^9, 
   3.726922911669704*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Social parameters", "Subsection",
 CellChangeTimes->{{3.72676813867546*^9, 3.726768141435171*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"\[Kappa]", "=", "0.01"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"\[Delta]", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Beta]", "=", "1"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"response", " ", "function", " ", "to", " ", "temp"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"resType", "=", "1"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"1", " ", "linear"}], ",", " ", 
    RowBox[{"2", " ", "logistic"}], ",", " ", 
    RowBox[{"3", " ", "cubic"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"fmax", "=", "6"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tempMax", "=", "5"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "linear", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b1", "=", 
   RowBox[{"fmax", "/", "tempMax"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"c1", "=", "0"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "logistic", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b2", "=", 
   RowBox[{"2", "fmax"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c2", "=", "1"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"d2", "=", "1"}], ";"}], "\[IndentingNewLine]", 
  RowBox[{"(*", " ", "cubic", " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b3", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"tempMax", "^", "3"}], "/", "fmax"}], ")"}], "^", 
    RowBox[{"(", 
     RowBox[{"1", "/", "3"}], ")"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c3", "=", "0"}], ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.726768145115336*^9, 3.726768160279944*^9}, {
   3.726771922989387*^9, 3.7267720003269*^9}, {3.72677222523945*^9, 
   3.72677225819221*^9}, {3.726772444838256*^9, 3.7267724542632093`*^9}, {
   3.7267728930640297`*^9, 3.726772893131505*^9}, {3.726772950526553*^9, 
   3.7267729506211853`*^9}, {3.726774158086231*^9, 3.726774168670109*^9}, {
   3.726774634080885*^9, 3.726774646168412*^9}, {3.726775754137268*^9, 
   3.72677577548645*^9}, {3.726852547316513*^9, 3.726852548322916*^9}, {
   3.72685260536524*^9, 3.726852633181974*^9}, {3.726852679054104*^9, 
   3.726852679887247*^9}, {3.726852793843155*^9, 3.7268527939293547`*^9}, {
   3.726852826483511*^9, 3.726852826595119*^9}, {3.7268528762129803`*^9, 
   3.726852876315078*^9}, {3.7268529643599167`*^9, 3.726852965959466*^9}, {
   3.726853117478896*^9, 3.726853119166562*^9}, {3.72685317813797*^9, 
   3.726853191761365*^9}, 3.726882678743271*^9, {3.726882824443685*^9, 
   3.726882830216091*^9}, {3.7269204838727207`*^9, 3.726920506443021*^9}, {
   3.7269207653710527`*^9, 3.7269207656582336`*^9}, {3.7269210168580637`*^9, 
   3.726921048441971*^9}, {3.7269210827949543`*^9, 3.726921102290745*^9}, {
   3.726921212287719*^9, 3.7269212123934507`*^9}, {3.726921305450408*^9, 
   3.726921305643538*^9}, {3.726921595106447*^9, 3.726921636683282*^9}, {
   3.726921674943048*^9, 3.726921675079032*^9}, {3.726921807977108*^9, 
   3.726921827555932*^9}, {3.726922308873519*^9, 3.726922328233358*^9}, {
   3.726923120435837*^9, 3.7269231362451468`*^9}, {3.726923194750139*^9, 
   3.726923194857387*^9}, {3.726923256768489*^9, 3.7269232570235767`*^9}, {
   3.726923609403882*^9, 3.726923628693572*^9}, {3.726923691462399*^9, 
   3.726923721374875*^9}, {3.726924311226301*^9, 3.726924311458604*^9}, {
   3.726924383996834*^9, 3.7269244113260937`*^9}, {3.726924655500663*^9, 
   3.726924655610139*^9}, {3.726924785192587*^9, 3.726924785280945*^9}, {
   3.726943825437899*^9, 3.7269438505526733`*^9}, {3.726944100619052*^9, 
   3.726944100821261*^9}, {3.726944368575913*^9, 3.726944368684111*^9}, {
   3.726944601025432*^9, 3.7269446037531967`*^9}, {3.726944666698601*^9, 
   3.72694466679565*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Conversion factors", "Subsection",
 CellChangeTimes->{{3.726682988628994*^9, 3.726682990764525*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ka", "=", "1.773*^20"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"moles", " ", "in", " ", "atmosphere"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gtcToMol", "=", "8.3259*^13"}], ";"}], 
  RowBox[{"(*", " ", 
   RowBox[{"factor", " ", "from", " ", "gtC", " ", "to", " ", "moles"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"gtcToPpm", "=", 
    RowBox[{"gtcToMol", "*", 
     RowBox[{
      RowBox[{"10", "^", "6"}], "/", "ka"}]}]}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"factor", " ", "from", " ", "gtc", " ", "to", " ", "ppmv"}], " ", 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.726682993231125*^9, 3.7266830048002977`*^9}, {
  3.726683037945862*^9, 3.726683038047583*^9}, {3.726755575815576*^9, 
  3.726755594786368*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Initial conditions (pre-industrial)", "Subsection",
 CellChangeTimes->{{3.726681406422077*^9, 3.726681408582665*^9}, {
  3.726681925529443*^9, 3.726681929912771*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"cat0", "=", "596"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "initial", " ", "carbon", " ", "in", " ", "the", " ", "atmostphere"}], " ",
    "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"coc0", "=", "1.5*^5"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"initial", " ", "carbon", " ", "in", " ", "the", " ", "ocean"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cve0", "=", "550"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"initial", " ", "carbon", " ", "in", " ", "veg"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"cso0", "=", "1500"}], ";"}], " ", 
  RowBox[{"(*", 
   RowBox[{"initical", " ", "carbon", " ", "in", " ", "soil"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"temp0", "=", "288.15"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"inital", " ", "temp"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.726681419496578*^9, 3.726681429656109*^9}, {
  3.72668150111025*^9, 3.726681502158951*^9}, {3.726681920797275*^9, 
  3.726681932794715*^9}, {3.726681990205908*^9, 3.726681998639604*^9}, {
  3.726754887553607*^9, 3.726754892666706*^9}, {3.726754946156229*^9, 
  3.726754966862546*^9}, {3.726756245201408*^9, 3.726756245310049*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Lenton parameters", "Subsection",
 CellChangeTimes->{{3.726582852818655*^9, 3.726582854618197*^9}, {
  3.726920469902276*^9, 3.726920471718391*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"kp", "=", "0.184"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"photosyn", " ", "rate"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"kr", "=", "0.092"}], ";", " ", 
  RowBox[{"(*", 
   RowBox[{"plant", " ", "respiration", " ", "rate"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"kt", "=", "0.092"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"turnover", " ", "rate"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"ksr", "=", "0.0337"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"soil", " ", "respiration", " ", "rate"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"kc", "=", "29*^-6"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"compensation", " ", "point"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"kM", "=", "120*^-6"}], ";", " ", 
  RowBox[{"(*", " ", 
   RowBox[{"half", "-", 
    RowBox[{"saturation", " ", "point"}], " ", "-", " ", 
    RowBox[{
    "set", " ", "to", " ", "145", " ", "for", " ", "ocean", " ", 
     "warming"}]}], " ", "*)"}]}]], "Input"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"ea", "=", "54.83"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"plant", " ", "respiration", " ", "activation", " ", "energy"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kMM", "=", "1.478"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{"photosyn", " ", "normalising", " ", "constnat"}], " ", "-", " ", 
    
    RowBox[{
    "set", " ", "to", " ", "1.578", " ", "for", " ", "ocean", " ", 
     "warming"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kA", "=", "8.7039*^9"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "plant", " ", "respiration", " ", "normalising", " ", "constant"}], " ", 
    "&"}], "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"kB", "=", "157.072"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"soil", " ", "respiration", " ", "normalising", " ", "constant"}], 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"solar", "=", "1368"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"solar", " ", "flux"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"albedo", "=", "0.225"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"surface", " ", "albedo"}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"tauch4", "=", "0.0231"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"methane", " ", "opacity"}], " ", "*)"}]}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"p0", "=", "1.4*^11"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"water", " ", "vapour", " ", "saturation", " ", "constant"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"hum", "=", "0.6177"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"relative", " ", "humidity"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rgas", "=", "8.314"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"universal", " ", "gas", " ", "constant"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"rho", "=", "1027"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"density", " ", "of", " ", "sea", " ", "water"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"lheat", "=", "43655"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "latent", " ", "heat", " ", "per", " ", "mole", " ", "of", " ", "water"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"\[Sigma]", "=", "5.67*^-8"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"Stefan", "-", 
    RowBox[{"Boltzman", " ", "constant"}]}], "*)"}]}], "\[IndentingNewLine]", 

 RowBox[{
  RowBox[{
   RowBox[{"gtcToMol", "=", "8.3259*^13"}], ";"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "factor", " ", "to", " ", "go", " ", "from", " ", "gtc", " ", "to", " ", 
    "moles"}], " ", "*)"}]}]}], "Input",
 CellChangeTimes->{{3.726582864458942*^9, 3.726582870811198*^9}, {
  3.7265841492961597`*^9, 3.726584165975061*^9}, {3.726585144369376*^9, 
  3.726585154678413*^9}, {3.726587552871017*^9, 3.726587567015233*^9}, {
  3.726590075116523*^9, 3.726590075893148*^9}, {3.726590127655032*^9, 
  3.726590161311921*^9}, {3.726590589429288*^9, 3.7265906279883327`*^9}, {
  3.726606122037224*^9, 3.726606122587875*^9}, {3.726606300866117*^9, 
  3.726606301857195*^9}, {3.72660645303229*^9, 3.726606454326826*^9}, {
  3.726607755144116*^9, 3.726607792083961*^9}, {3.726845401058134*^9, 
  3.726845401681384*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Simulation", "Subsection",
 CellChangeTimes->{{3.726920530991376*^9, 3.726920531849888*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"vector", " ", "of", " ", "noise", " ", "amplitudes"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"\[Sigma]", "=", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "0.005"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"initial", " ", "conditions"}], " ", "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"x0", "=", "0.1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"yInit", "=", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0", ",", "0", ",", "0", ",", "x0"}], 
      "}"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", " ", "time", " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmax", "=", "1200"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"dt", "=", "1"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tVals", "=", 
     RowBox[{"Range", "[", 
      RowBox[{"0", ",", "tmax", ",", "dt"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", " ", 
    RowBox[{"seed", " ", "number"}], " ", "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"seed", "=", "1"}], ";"}], "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.726854556431809*^9, 3.726854586499827*^9}, {
  3.726878494486371*^9, 3.726878506904496*^9}, {3.726920536194395*^9, 
  3.7269206235823812`*^9}, {3.726920801677019*^9, 3.726920803021743*^9}, {
  3.726923636620079*^9, 3.726923637868244*^9}, {3.726937404642453*^9, 
  3.726937405706778*^9}, {3.726937824818645*^9, 3.726937824931849*^9}, {
  3.726944170073493*^9, 3.7269442215947533`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Graphing", "Subsection",
 CellChangeTimes->{{3.726772128935934*^9, 3.726772130775222*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"time", " ", "ticks"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"timeTicks", "=", 
    RowBox[{"Table", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"100", 
         RowBox[{"(", 
          RowBox[{"i", "-", "1"}], ")"}]}], ",", 
        RowBox[{"1800", "+", 
         RowBox[{"100", 
          RowBox[{"(", 
           RowBox[{"i", "-", "1"}], ")"}]}]}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", "13"}], "}"}]}], "]"}]}], ";"}]}]], "Input",\

 CellChangeTimes->{{3.726686517189949*^9, 3.726686564838182*^9}, {
   3.726686680055728*^9, 3.726686693297724*^9}, 3.7266898412394743`*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Functional Forms", "Section",
 CellChangeTimes->{{3.726581990578827*^9, 3.726581995497944*^9}}],

Cell[CellGroupData[{

Cell["Ocean", "Subsection",
 CellChangeTimes->{{3.726679956640703*^9, 3.72667995723253*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "characteristic", " ", "c02", " ", "solubility", " ", "in", " ", 
    "seawater"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "chi", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"chi", "[", "temp_", "]"}], ":=", "0.8"}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.72667987719561*^9, 3.72667991721659*^9}, {
   3.726683853573721*^9, 3.7266838540443697`*^9}, {3.726684123149877*^9, 
   3.726684136044426*^9}, {3.72668466428426*^9, 3.726684664892853*^9}, 
   3.726684723062715*^9, {3.726693215820024*^9, 3.726693215998681*^9}, 
   3.7266932620183268`*^9, 3.726693341634897*^9, 3.726693382228734*^9, 
   3.726758029841066*^9, 3.726758096850115*^9, {3.7267581354920063`*^9, 
   3.726758136266223*^9}, {3.7267589706161337`*^9, 3.726758970847665*^9}, {
   3.7267592019748163`*^9, 3.7267592055746927`*^9}, {3.726759256479886*^9, 
   3.7267592996970167`*^9}, {3.726759349075918*^9, 3.726759374660355*^9}, {
   3.7268413412408333`*^9, 3.726841341353593*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"buffer", " ", "factor"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "zeta", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"zeta", "[", 
      RowBox[{"temp_", ",", "cat_"}], "]"}], ":=", "20"}], ";"}]}]}]], "Input",\

 CellChangeTimes->{{3.726679920660069*^9, 3.726679946178629*^9}, {
   3.726680033692621*^9, 3.726680034284999*^9}, 3.726683799108005*^9, {
   3.726683960463126*^9, 3.726683961718799*^9}, {3.7266840776763973`*^9, 
   3.726684096363565*^9}, {3.726684635453417*^9, 3.7266846594931917`*^9}, {
   3.7266849770444202`*^9, 3.72668499091469*^9}, {3.726758594399979*^9, 
   3.726758594492796*^9}, {3.726758639934039*^9, 3.726758668726672*^9}, {
   3.726758702569427*^9, 3.7267587029684887`*^9}, {3.7267589637839613`*^9, 
   3.726758963880774*^9}, {3.726759050954383*^9, 3.726759051690398*^9}, {
   3.726759197311131*^9, 3.726759197703599*^9}, {3.7267592589445353`*^9, 
   3.726759259032342*^9}, {3.7267592968411903`*^9, 3.726759347123107*^9}, {
   3.726759399493297*^9, 3.72675939963658*^9}, {3.72702150322115*^9, 
   3.72702150330616*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "carbon", " ", "flux", " ", "to", " ", "ocean", " ", "from", " ", 
    "atmosphere"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "foc", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"foc", "[", 
     RowBox[{"temp_", ",", "cat_", ",", "coc_"}], "]"}], ":=", 
    RowBox[{"f0", "*", 
     RowBox[{"chi", "[", "temp", "]"}], "*", 
     RowBox[{"(", 
      RowBox[{"cat", "-", 
       RowBox[{
        RowBox[{"zeta", "[", 
         RowBox[{"temp", ",", "cat"}], "]"}], "*", "cat0", "*", 
        RowBox[{"coc", "/", "coc0"}]}]}], ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.7266799594988947`*^9, 3.726680064900908*^9}, {
  3.726755227285887*^9, 3.726755236716373*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Land", "Subsection",
 CellChangeTimes->{{3.726680106077166*^9, 3.72668010904513*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "atmospheric", " ", "mixing", " ", "ratio", " ", "of", " ", "co2", " ", 
    "in", " ", "atmosphere"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "pco2a", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"pco2a", "[", "cat_", "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"cat", "+", "cat0"}], ")"}], "*", 
     RowBox[{"gtcToMol", "/", "ka"}]}]}]}]}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"photosynthesis", " ", "-", " ", 
    RowBox[{"from", " ", "Lenton"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "photo", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"photo", "[", 
      RowBox[{"cat_", ",", "temp_"}], "]"}], ":=", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"pco2a", "[", "cat", "]"}], ">", "kc"}], "&&", " ", 
        RowBox[{
         RowBox[{"-", "15"}], "<", "temp", "<", "25"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"kp", "*", "cve0", "*", "kMM", "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"pco2a", "[", "cat", "]"}], "-", "kc"}], ")"}], "/", 
          RowBox[{"(", 
           RowBox[{"kM", "+", 
            RowBox[{"pco2a", "[", "cat", "]"}], "-", "kc"}], ")"}]}], ")"}], 
        "*", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"15", "+", "temp"}], ")"}], "^", "2"}], ")"}], "*", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"25", "-", "temp"}], ")"}], "/", "5625"}]}], ")"}]}], ",",
        "\[IndentingNewLine]", "0"}], "]"}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.726680125071767*^9, 3.726680142216099*^9}, {
   3.7266801939870768`*^9, 3.726680252124442*^9}, {3.726680308700266*^9, 
   3.72668040317045*^9}, {3.7266807992239103`*^9, 3.726680809036921*^9}, {
   3.7266808408936977`*^9, 3.726680842758967*^9}, {3.7266808755773706`*^9, 
   3.726680879960637*^9}, {3.7266809351612043`*^9, 3.726680982276504*^9}, {
   3.7266810278789587`*^9, 3.726681040493555*^9}, {3.7267520857226467`*^9, 
   3.7267521128355913`*^9}, {3.726752665250671*^9, 3.72675266645607*^9}, {
   3.726752744058323*^9, 3.726752800173026*^9}, {3.7267528379324512`*^9, 
   3.726752845813096*^9}, {3.7267529131660023`*^9, 3.726753117796825*^9}, {
   3.726753178434579*^9, 3.726753179894931*^9}, {3.726753344704006*^9, 
   3.726753368660089*^9}, {3.726753606126992*^9, 3.726753606476281*^9}, {
   3.726757073620859*^9, 3.726757074263733*^9}, 3.726772476376823*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"respiration", " ", "of", " ", "plants"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "respp", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"respp", "[", 
     RowBox[{"temp_", ",", "cve_"}], "]"}], ":=", 
    RowBox[{"kr", "*", 
     RowBox[{"(", 
      RowBox[{"cve", "+", "cve0"}], ")"}], "*", 
     RowBox[{"Exp", "[", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"ea", "/", 
         RowBox[{"(", 
          RowBox[{"rgas", "*", 
           RowBox[{"(", 
            RowBox[{"temp", "+", "temp0"}], ")"}]}], ")"}]}], ")"}]}], 
      "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.7266803662758617`*^9, 3.726680445539424*^9}, {
  3.726754157690453*^9, 3.726754202537189*^9}, {3.726754234315712*^9, 
  3.726754347961886*^9}, {3.726757542596525*^9, 3.7267575478419743`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"turnover", " ", "of", " ", "plants"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "turnover", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"turnover", "[", "cve_", "]"}], ":=", 
    RowBox[{"kt", "*", 
     RowBox[{"(", 
      RowBox[{"cve", "+", "cve0"}], ")"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.726754449136055*^9, 3.726754488133506*^9}, {
  3.726754721860828*^9, 3.7267547232096043`*^9}, {3.726757553770673*^9, 
  3.726757559722231*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"respiration", " ", "of", " ", "soil"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "resps", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"resps", "[", 
     RowBox[{"temp_", ",", "cso_"}], "]"}], ":=", 
    RowBox[{"ksr", "*", 
     RowBox[{"(", 
      RowBox[{"cso", "+", "cso0"}], ")"}], "*", "kB", "*", 
     RowBox[{"Exp", "[", 
      RowBox[{"-", 
       RowBox[{"(", 
        RowBox[{"308.56", "/", 
         RowBox[{"(", 
          RowBox[{"temp", "+", "temp0", "-", "227.13"}], ")"}]}], ")"}]}], 
      "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.7267547243758383`*^9, 3.726754764464188*^9}, {
  3.726754812075931*^9, 3.7267548681103697`*^9}, {3.726772800746229*^9, 
  3.726772801112741*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "carbon", " ", "flux", " ", "to", " ", "land", " ", "from", " ", 
    "atmosphere"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", "fla", "]"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"fla", "[", 
      RowBox[{"cat_", ",", "cve_", ",", "cso_", ",", "temp_"}], "]"}], ":=", 
     RowBox[{
      RowBox[{"photo", "[", 
       RowBox[{"cat", ",", "temp"}], "]"}], "-", 
      RowBox[{"respp", "[", 
       RowBox[{"temp", ",", "cve"}], "]"}], "-", 
      RowBox[{"resps", "[", 
       RowBox[{"temp", ",", "cso"}], "]"}]}]}], ";"}]}]}]], "Input",
 CellChangeTimes->{{3.726680115449489*^9, 3.7266801189588346`*^9}, {
  3.726680450250931*^9, 3.726680496781636*^9}, {3.726751144212187*^9, 
  3.726751147803385*^9}, {3.726751617231353*^9, 3.726751619163259*^9}, {
  3.726754520883245*^9, 3.726754524931975*^9}, {3.7267546433416758`*^9, 
  3.726754713138341*^9}, {3.726755295977572*^9, 3.72675529635748*^9}, {
  3.726755498965364*^9, 3.726755499643937*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Anthropogenic emissions", "Subsection",
 CellChangeTimes->{{3.726682042974098*^9, 3.726682061645059*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"20.3", "-", "10.6"}], ")"}], "/", 
  RowBox[{"(", 
   RowBox[{"300", "-", "215"}], ")"}]}]], "Input",
 CellChangeTimes->{{3.7267697836970787`*^9, 3.726769807965255*^9}}],

Cell[BoxData["0.11411764705882355`"], "Output",
 CellChangeTimes->{
  3.726769808422143*^9, 3.726770051160338*^9, {3.726771988668968*^9, 
   3.7267720040208597`*^9}, 3.726772068274043*^9, {3.726772136958577*^9, 
   3.7267721839042873`*^9}, 3.726772804309978*^9, 3.726772858323907*^9, 
   3.726772895541431*^9, 3.726772954264307*^9, 3.72677416107554*^9, 
   3.726774600071499*^9, {3.7267746371774607`*^9, 3.726774653685479*^9}, 
   3.726775294854347*^9, {3.726775751218997*^9, 3.726775785964635*^9}, 
   3.7268413460954647`*^9, 3.726844333384282*^9, 3.72684444366953*^9, {
   3.726844970825786*^9, 3.726844978565629*^9}, {3.7268451930551233`*^9, 
   3.726845212263427*^9}, 3.726845250884472*^9, 3.7268453347265673`*^9, 
   3.726845419078298*^9, 3.726852550935617*^9, 3.7268526083704443`*^9, 
   3.72685265478868*^9, 3.7268526887562027`*^9, {3.7268528007307243`*^9, 
   3.726852829406259*^9}, 3.726852880609811*^9, 3.726852968871889*^9, 
   3.726853194474071*^9, 3.7268533048298473`*^9, 3.72685378206063*^9, 
   3.7268550257805357`*^9, 3.726880777560507*^9, 3.726880846647706*^9, 
   3.726880909165555*^9, 3.726881137038352*^9, 3.726881317286502*^9, 
   3.726881583813773*^9, 3.726882682775292*^9, 3.7268828398198967`*^9, 
   3.726920631965948*^9, 3.726920730315189*^9, 3.726920769135013*^9, 
   3.726920805940112*^9, {3.726921020027231*^9, 3.7269210348759937`*^9}, 
   3.726921107886465*^9, {3.726921215739974*^9, 3.726921246334922*^9}, {
   3.726921308608259*^9, 3.726921337414754*^9}, 3.7269214039954233`*^9, {
   3.726921541381671*^9, 3.726921562833208*^9}, 3.726921600743869*^9, 
   3.726921639585929*^9, 3.7269216779577627`*^9, 3.726921715601742*^9, 
   3.726921776196641*^9, {3.726921815154582*^9, 3.726921833324527*^9}, {
   3.72692231293085*^9, 3.72692233153122*^9}, 3.726922656880227*^9, {
   3.726922687675268*^9, 3.7269227150249767`*^9}, 3.726922770561207*^9, 
   3.726922917326705*^9, {3.726923094552526*^9, 3.726923266210314*^9}, {
   3.7269236133019247`*^9, 3.726923640914301*^9}, {3.726923699337693*^9, 
   3.726923729818832*^9}, 3.726924355309209*^9, {3.726924392279763*^9, 
   3.726924429481761*^9}, 3.726924645247344*^9, {3.726924680121724*^9, 
   3.726924686990038*^9}, {3.72692474896951*^9, 3.726924768886554*^9}, {
   3.726924803772962*^9, 3.726924811066656*^9}, 3.726937409706275*^9, 
   3.726937828070333*^9, {3.7269438327070093`*^9, 3.726943871900388*^9}, 
   3.726944305560707*^9, 3.726944371665604*^9, 3.726944607965721*^9, 
   3.726944669674625*^9, 3.727021506889908*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"historical", " ", "emissions", " ", "from", " ", "Lenton"}], " ", 
   "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"emissionData", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "0.35"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"50", ",", "0.4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"147", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"180", ",", "6.7"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"190", ",", "7.4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"200", ",", "8.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"210", ",", "10.0"}], "}"}]}], "}"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"futureEmissionData", "=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"215", ",", "10.6"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"220", ",", "11.4"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"225", ",", "12.2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"250", ",", "14.5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"275", ",", "16.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"300", ",", "20.3"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"400", ",", "0"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"1200", ",", "0"}], "}"}]}], "}"}]}], " ", ";"}], 
   RowBox[{"(*", " ", 
    RowBox[{"used", " ", "by", " ", "Lenton"}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.7266875749654512`*^9, 3.726687580376244*^9}, {
  3.726688041879774*^9, 3.726688058383687*^9}, {3.7266881538107367`*^9, 
  3.726688204787475*^9}, {3.7266884118546677`*^9, 3.726688446443448*^9}, {
  3.726688522118381*^9, 3.726688527129257*^9}, {3.726688982234502*^9, 
  3.7266890106724787`*^9}, {3.726689049703068*^9, 3.7266890498316593`*^9}, {
  3.726689181903973*^9, 3.7266892352250032`*^9}, {3.726689307993834*^9, 
  3.726689345205935*^9}, {3.726758312849889*^9, 3.7267583619574966`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"futureEmissionData2", "=", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"1200", ",", 
       RowBox[{"10.6", "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"20.3", "-", "10.6"}], ")"}], "/", 
           RowBox[{"(", 
            RowBox[{"300", "-", "215"}], ")"}]}], ")"}], "*", 
         RowBox[{"(", 
          RowBox[{"1200", "-", "215"}], ")"}]}]}]}], "}"}], "}"}]}], ";"}], 
  " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "linearly", " ", "increasing", " ", "energy", " ", "needs", " ", "for", 
    " ", "population", " ", "growth"}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.7267698255326557`*^9, 3.726769954473207*^9}, {
  3.726769995645666*^9, 3.72677001294237*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"emissions", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{
     RowBox[{"Union", "[", 
      RowBox[{"emissionData", ",", "futureEmissionData"}], "]"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"emissions2", "=", 
   RowBox[{"Interpolation", "[", 
    RowBox[{
     RowBox[{"Union", "[", 
      RowBox[{"emissionData", ",", "futureEmissionData2"}], "]"}], ",", 
     RowBox[{"InterpolationOrder", "\[Rule]", "1"}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.726689252815391*^9, 3.726689293259194*^9}, {
  3.726758218350821*^9, 3.7267582380378103`*^9}, {3.7267699590325403`*^9, 
  3.726769970078895*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"emissionPlot", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"emissions", "[", "t", "]"}], ",", 
      RowBox[{"emissions2", "[", "t", "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "0", ",", "1200"}], "}"}], ",", "\[IndentingNewLine]", 
    
    RowBox[{"PlotRange", "\[Rule]", "All"}], ",", "\[IndentingNewLine]", 
    RowBox[{"FrameTicks", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"Automatic", ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"timeTicks", "[", 
          RowBox[{"[", 
           RowBox[{"1", ";;", ";;", "2"}], "]"}], "]"}], ",", "None"}], 
        "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
    RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
        "\"\<\!\(\*SubscriptBox[\(CO\), \(2\)]\) emissions (GtC \
\!\(\*SuperscriptBox[\(yr\), \(-1\)]\))\>\"", ",", "None"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<Year\>\"", ",", "None"}], "}"}]}], "}"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.726682220802391*^9, 3.7266822409264793`*^9}, {
  3.726683346634842*^9, 3.7266833638736143`*^9}, {3.726683394346745*^9, 
  3.72668339481898*^9}, {3.726684909586681*^9, 3.726684912350576*^9}, {
  3.7266892974983797`*^9, 3.726689298137577*^9}, {3.72668939273701*^9, 
  3.7266893931152687`*^9}, {3.726689825511263*^9, 3.726689908169808*^9}, {
  3.72676997595079*^9, 3.7267699845221853`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    TagBox[
     {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJxN13dUzm/4B/AKFdJC2t+ivTxpCOnzFi2RMkrb87R7mk+pJxGltDQVURoy
MtJEiiRp0JK0RKFJEu00fn7n/E7P7/7nOq9z3ue67vuv69ziFM/DDixMTEym
zExM/1uLTOcnf+bOaiULFp5zdGwjIqtt2k1i2wk9Dw9ZD7c2Ir4rJFA0dpCY
fSnXcpLWRiT1JTWsjJ0mrFyyt4QFtRGXh69PTcewQaIkqTr7chuxyW1z9O+Y
TSg85s/xpbqNMMu1PzYaI42meM0US+l2YrohrHQkZjvWsNXkGQ+1E/bEGg2e
ie0YC7pJ6hptJ1ryYx+pWWigbSq4wG6ynXh46Up+kNQOZA9oFvmxdBD25ndv
c7/YCc3qwsdpwh1ES199ourYbniEpT8fMu4g2hci1bRktdGywu/tuacdRKz6
AV9jK22UBB45sKaig9jnyVlEidNG+jip4VJ1B1HYm0gKn9QG9duPxtvv/+Vf
pco3v9yLla/ILfU/OwidyFxxioUO1EMOdvJv7iTmX3qe8I3RgfCcnMUNmU6i
cE4540KFDlbQ2D/Kb+0kxNweC9+X0kUT+VW3lua/vNGLTRN/dOG8Z0evvWkn
URQebMoqpYdDT/nIo1adhGvF3mR+cz2oKU988bfrJDqUa3l3v9ADs3jetyiv
TiLONcrk0B89DKVctN/g30noZh+IJ0vqo5Hbtf/6mX/9NrxbdyFaH9eYJAfz
ozqJZ95CfWpl+rhSejH4bXwnUdXoUNr/XR9JvhNCA5c7iQb5/PhkQQNM9Gb5
lb7rJNoi5hx19hsggn7EykW9i/jcv2/3ZIABNnCv0uZP7SIGtePW37prgJw7
j6VrlrqImfktFStX70dVm8C4RN1HgtnC43Kxxn4Ye7zteK/YTax5UuJm77wf
favOlIckdhNC3gcFqmr2Y6Vab2Sv5SdCq9+Pdv6CIXDptlja6GfizSPh9nPB
RhBm7d39Ou0r4SWv2vx812FsODubUjQ4RPDpTSfVrT8OrSCVSKWMP8T4802u
N1xtsNcym2ZrPEvMmJCuHgixgejxHX0WLrPEfL9+7dRVG0wfbTpmGjJLrOQ8
JWVYZ4N7Rn81DhbPEnw23V/HpW3Bq31kaSf/HKGxmGmp02+LXpkVF/l65wji
v2SpibwTCJqi3GrwnCe0XcS16spOwHx8hq8uYp7YV5R7LL3mBFTGYiOqsuYJ
fb3qUP2eExgYLqWWvZ8njD2nv6ZxknHgE++2u9sXCMoL8wwddzKEqirLQ5cW
CPvVA48FA8iYrDhOOse/SDgeoTX+CiWj8floVqDyIkEdjFq4mkbG+SeCYTS7
RcKX65nl6FsyftyjGZ6oWST8zPV9XrWT8foO+3PL3kWCnt0alfKNjPSb6Upm
s4vE6e0/n2r/JcMk/Q2PkfwSEWYryn9FjoKnCZs7dsUtEVr2b+tctlOwzoda
anRviZhypgdq7qPA9mhxGvn1EpHnLqnIZUJBkdpCkG/vEuFMa/n8xZoCtk26
5PC/S4SY/9n4YlcKRmuWcpLITOgMVNAO96fglNXIsF8bE/aHXbilkEDBxbDX
1F0VzGCJUjFbuk4Bt2DhAxE1FpTF9rK33KMg7WH6z6W7LFBI2enmX0XBw3Z/
z6pLK8B5f3Rb5TQFzbJyPgedVqE6L7UvaaUdjpTzFW/tXoWzxfqXnXjs0Ht4
xSSPCSvGnt+Y5ZC3w+/Abr+2nWx432xaYWZjB+HG2FO2nKuRMlV+8GeVHZxp
48Hejzhg/Je69OKdHUZYeyuPyK3DaiaBgsTPdghIrV+hnrEOp1b7bNCYsUNU
1a2wuQhOWAtLfwyRt4fF2gdVe5S4sVk7zpk/0R7B1ja1b5h58SDG9vxeWwc0
Mr9q6s7ZCIvgFWZdVAfIsubw7f66Eewn78h50x0QtibG+roQH+ysfr1LT3CA
xnqzH9axfBCUPys298oBNyR+sPb4bEKt6JaJ+GYHLMo0HyRyN8GPt6ZG+pMD
LBQfJWUMbMK7WU7PY1MO4FA/u/mEOT8iatOf58s4wl9vvdYXLQGoP9NO0FNz
xHvDmdA9dAH05Q3Yf97jCCXjT2+zCgRAXFHi4LB0xJfjd8wpEoIYiWrpueHk
CA3ri5mV1oK4FuRXtMPXEUlk78HNVwShTxMMbz7nCIu48YGMRkFMOZRbOMU4
wrOsmP39d0HcNKcoLV51ROjgSTlWNiEcPsjKknzbEVfXbz+wY4sQclWN7la+
cMRL6tO4DEsh2K/4PC3yxxHrhcv53OqFwDsd/LZ40RGy+mc1MoaEUPFdMsNw
rRO0fGHRslIYQi3uugESTnCsr7yusVsYLZkLSa2mTig5XSOx6qEwziVlOVPt
nNCQE6Gr8UYYShE6mixeTvjaauBMHRBGpGfMt62RTlijWH//nagI1O2Un1Qn
O0HEPKZh5S4R9Jl+iLK+4YRtYUa/tpuJIHF/gM3EQyfoFXDxUH1EAC2RbdFl
TrD+1LwtPU4Eo8ovV22udYKlQaHJzsciSJN06CxpdUJm7KH7UV9FMM2Re27g
pxNkBKJs5HeJ4uFHzaY9Ys7QVFqqchsRhVCAldtMqDNIDyZq/aXF8Pnk11uP
453Bkhj7fLOmGDJpzj2+ac5o8ZcpbDAWg4Sb7+HfRc7w2WuVuuWUGAac56Lz
Xjhjr+xUXGOsGHIczr12f+uM9VzxoQHZYlCwvajx/aszirteuTfVi2HUkpeW
M+qM0ApryqkvYsg/nnLfcc4ZR29Pm0pOiYF2TLRfgtUFdJW8P+Wc4lA7fFP0
G48Lzs5s+fZTThwzRnLHs0RccOF5ynthPXGUGuYn2Mq6IDpkXZWhnTi0dJ6t
7IYLkjmmb95NFQeTtrbWtQMuuPaOmtzxRByVWrX+x4+7IP1ybxhbqzj0NFq/
t3q64J7YG0cHjs0wlh9pbkh3QYXqdRnxM5tB5hG+/mLeBcNWex+k2GyBBOeN
tjPsrhgTL0mrObUFA2tkuDU3uGJyQCFm6vIWuK5UPV8i74pFLz6Po01bQJs2
dCmwcIWv61EpqEhAdeLdDU9HV/Cy9wvUG0hgasysW5HmirxbJ9cdPyGBwO92
h+5FumKk9/KEZ4wEtAaHI5yTXREdJD30N1sCTH2elVJZrpAVLvkYXiqByt7J
v30PXFH9VL9p/TsJhH4KVMsucYW9WWdlxqAE7tz92HDBlwqdjyJJ7nlSECOH
ZGkHU/Hfuq3PWJulkMIve3IxhoopLfRljEkhKtxP2O8OFXdvUFRblKXh5sBD
deiiYo3rnVb1Ymn0CZdoiQ9S8SW1ZL6pVRrWrTa8n8apKGuok3CZlEZb9KqB
FCY3JC11HWDhk4HR3gdPj65zA1V5xDdVXQbVc4djuAXdoG23kKZqJgOicPZE
vZQbcgbfazp7yaDEJVM1QsUNJW8+FUmdlwFJXI99H9xQkzso158sg5yOnx+X
DrihLf53VnaODMTjk/LKzN0w4POXn1ImA96lL6YqPm5g3cnF1tMrg8nu07c2
33aDbrX6tw55WZSmFGozc7ij6nNYav1LWWwzNud7zu+OlpdxvNGtsrjPxvSd
LumObzevRhoMyiLN72DCmJY7WKi5/tUccjh7dKinx9sd2tOtRyrM5LCPW/RM
ebs7KrgkOIp/yqExPPJJYLYHnqHydKqAAiz1eX/b5HmgMWuHiJC8AobYU+W0
yzzQw1Lw/Jqmwr999OA6+3sPML/OWLxqqwD1i03nk1k8oWNw5lzKLQVkxG80
ziN7ouujB2ejlCIUTNIjE909Qcn92XlWVRGlPNKvTgZ44keQ2y1lbUW0Jmqo
ayZ4Yk7cVTPZWhHsyZbCdRWeEHR2cLVKUkRJvbHvby4vHJ+wrP7OrIRFhY08
3zZ6oed1V0IalxJ0YjpzW4W84HzF3NpIRAktBymDT6S9QN9pNlGgoYSRRh+L
IMILV84d3hzgqQTxd5ex1tMLHRwGQWyflBD1oZtDstELZpLq6hIlW2GYm1Y6
894LMmoiaxJebwVHmJVzfacXZvet/LzQshWxqt2vfPq9kGrfEtb+cysuXfp4
qnLeC79Nnri+5iHhKDVV5jKLN7o677UG8pPAt9eyzYXdG1XkdK1t/5GQ8qdL
mWeDN5K9w3gzFEgwf3Otp0/AG2dm6aePqZAgeMMipuQ/bzgGuw2s3UnCxwDB
XRclvWG0+oRxJUhIM+kaspX3xvaEI6V0PRKsZa9dVlH+Ny+xe0fvIRJEmS32
sW33xt9w6sgbGxJ6OgT+dGl6Q/jMXPojdxIy8zszHmp7Q4sWaZJ5moSbXJ2m
C+beeKX7WsiwhITchvaqaxHeaP6lmZ+5VRket67QPGK98bvvLSVaSxmkM2Zi
2kne2NhlsdHvoDIKFdoDhzO8YVZFP2VIVcbj6LZtGk+80Z1SvG/qtjLKDT5k
fuj3xuAehU5D0W1oft1ymnsvDUxJQizTHCoYmbsxTTGg4abdgrGUiArYST60
R4do0FfpyTimqII919Y7W1jRkNhyY3fxQRUUehw9cvMkDRI8cgHesSpozJZo
nAqkobZ3bW1mugp+dEzoG4TQ4JH/k6/5oQok9iZrjcbS8PRQQbFSkwqSN7XJ
auTQsD9WY+wHlyoKD9y+GfWQht/WgoSQmCoag/3++1RMQ7LifMx+kiq+P9a9
trWMhh0Ln7oDoArWEb6NIS9pKO0bbRjQU8Vm8cG41hoaAlN8/lqrqIIwfbJG
upGGnQdmZD6IqoJeYcZU3/UvX8Qc+mpSBUmT0oGiX2g47XShYOcXFeTLzUx6
DdKgJbS2p6BeBcNJKT82TtBQHrJhZ2a2CixcOtts1/ngpYn02GkTFfil3zUp
XO+D86seiExoqiDxfUD9SkEf6DwlGVJlVPB2t2DlXSkfvBbbedt8aRs0eS1z
xwkf1P06YKWeuw3/lXWfD6f5oCGGVvuLfRv6OHpJee0+6Kh7nkmpICFKN8sm
+ZMP5saJhB25JCifo1wM/OYDAdHKYO5rJASN9w3q/fKBJa2aUu5DAn/XcHov
qy8+CTZJCEqTcPDOOAevui9etFeYZAttxeM9bMO+Sb5oEGKlBD9WQLifUtZO
k5MYy44P2T0ijWn1pGMB3/3AlaiwmLBeCL46ZHLFmB/K3i0QKyoFMXZEyZ1t
2g++PE3Bvl6CGPKqDU1e4Y+BeO9VZg0C6Lo3X1Qg7I+CuMccwuH8eCbqwPvd
yB+2MRC6PbcRwazqTRZF/siPOKpR+oUbixtWfMx66g+rWslT8vHcOLWleWDo
hT82sk+XpWlxgwbXRb96f3ByqZxdVOeC/al0xUv9/sjmeB4TcY8DuqOsF99u
ooOJ/d29tAQ2rG1r19c8TYf2wu+6yBdzBO9wMtumEDr+kjmZDeNmCf75I9W/
w+kYqpbT4LCdIaQ2N++9c4kOi3i727GLkwQ8arV479Nxe8uHkEu7fxO6wRcW
RvLpuBTx+98eGiMOJu17VvOYjqtdQl/lS38SFqUVO85U0tHvHlNOmh0ifFmf
qg510jEn82XU999/8JSA/3hlDx15zw6/DVDsIoIV1Aqv9//rd6jqTpDbByKC
GPei/6DD/6ta6Pn7zUTs4YKtR37TYTpi9JL7Qw2R5OA5qjhNxxlp+wnV28+I
VLpiLvsCHSIDR+vj92UTN6J/UL+xBIDp/05O+l25cnaGHxY4DadwMvyoSjLH
ZwPDld+zJGXFGO5WvyaWtJ3hrwbHezx2MzxsxZdusJfhqZBEoSUjhrmbovhc
HRnWcQrkQPL/u88Vq5kff/5fnl0+VGeWYRp9litjiWE188vShzlOLfuZYLNp
iSTDb67vfRR6nOGBbDmaSDnDovkzP4wiA5ct8uNDavrKM8v+fvpNXFZG0LJz
/YzISQLnlq2IjuONHxhe/8j9z5es4GXvKdvynXoiZNkv8/WZNYTOL/uOSUDp
p36GP5x/8272RuiyXcnS0b88w5ZtojRuJ73jwrLPXuy59mGC4Q2X232sK8KX
PUYau2cZFMF4b5k/c5pG5LKLxtbMPWKJWnbck3Jj3RcMt8gGGeRHRy/bStEm
M37/xWVriOXyFa2KWXZgOdvWvGaGV42G3BKPjV32VO3qcnfLuGWn1S3NneGN
XzZ5eo3uOS+GO+eEKJ5tDE/q7s69qpaw7NI1fOz9iQxvuzmhIjLDsNGFb7Hx
ponL1tsfe0D9OMPg3LGm25xh5cuxYdLWDG+4veN0uR3DH1/HuYx4Mey8SnOf
fjTD5LoB5tGLDFvEJLy4FMvwgY2DO3sSGN4qmajsl8Lw1L4h0Zu3GP7Ffqnb
4A7DQ/W7r/3KYbjz6KWNux4w/Mxei6OlkOFHMsN1/sUMPxy5FC7ymOFM32EW
l6cMX9VIquAsYzhxXiuo+BnDURXDuyzKGT4fmjS79ILh/wEFQt4+
       "]]},
     Annotation[#, "Charting`Private`Tag$106668#1"]& ], 
    TagBox[
     {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], Opacity[
      1.], LineBox[CompressedData["
1:eJwVj3c41Y/DhstoSCrJ5jUjSlJGkc8TGQmhbA7nHI5zohQyGvbejpFKtNMw
MhpkVEJWOllHFEILSbK+4tf7x309/9zXc123NMXbyp1jxYoVbf/4/y21Wfwz
XjCvmylaEkqjdRFx9aRuy+RuwujkyW0nvbqI1N7wc5LJX4j5F0qsMz5dRMZw
RitX8izhxLgpGxXcRWR9uzozm7Qack8z6m9mdRFCXjIJv5KEUGIdwDtY30XY
FrhZTyQp4G2qTrajQjcx2xpVMZakCZ7VDUUWX7sJN4JHa9O0JiaDb6n2TnQT
rOLkcnUHLXTNhD2i/ukmCtMvFgdv3Yubozql/hw9hJv9vTsba/ZBp77kcY54
D8EabmHumdyPk1G5VV8teojuv3Hqutv0wOL0bw591kMka5j6WTjp4em5o6Y8
tT3EQW++UkqKHnJ/q7am1/cQJQNM1Zg/evD8/KPtzvt//qsryu0v9MH1isxq
Ge8hDOIKpCkOBtAIN2MLy7CJxRfern5JBhBfUHK4ocgmShZ25UXXGoDTZ80H
5Z1sQsrrsfiDrYZ4S37Vp6vzzzevEZqeMgT9wN4BNxs2URoTZrNqqxGOPBMk
TzixieO1+pnC9kZQ3zU9GEBlEz27Gvn31xhhpXTR5/hTbCLleLzlkSkjfM1O
dBMIYBOGN01TyfLGaNt4fOTqhX9/Au/WRycY4/IK+S/F8Wzi+WmxYfVKY1ys
SAxrTmUTdW3uFSPfjZHhNy02msUmWpWLUzNFD2F64Lp/xTs20RW7QDMwOYTY
wKNODI1e4uPIwf1/gg5BYCO3nvCVXuKLXsrm2/cOIf/uY4WG5V5iblG2lmut
Ceq6RH7LvflArHQ4mVWmZQKLk80973f0ETxPnnq50U0wzH2hOpzZR4idNhOp
azABl/pA3IBjP6E74u8TEX0YSL8jlTPxkWgqF+8ODTOH+KqB/a9zhohTynva
q7StIBAyn1365SshaDSb8WazHXSDd8ep5E0Rv6uEjt84ToK+400fF4t5Ys5S
9ZJpOAmSdnuHHRjzxOKIcePMJRJmj721tgmfJ7j4zm49/IaE++b/aZmVzROC
pL6h3wou4Nc7urxPeIHQWrrmaDDiggFFzkTBgQWC+L/MrdNFrgieodxu9V4k
9BjSum8qXWH/e07wTewicbC0wDq3wRW7J5Nj664vEsZG9ZHGn1wx+q3Cs/L9
ImHhPTuUw0eGaT+/2j3NvwSlxj7P4AQZYnUvqyOX/xJua0cfiwaR8afWTjVU
eImgHfVp+xlJRlvVxPVzu5YIzy/xfy/lkBHxRDTKh7pE+G147jjRTMaP+z6H
XRuWCH97Y99X3WS8vrumynFgiQi82RGf/ZmM3Fu5KrbzS8R5zfFnev+RYZnb
tMlceZmIcpEUvqhEwbM0mR7tlGVC1635DUOTgvW+nhXm95eJGXrgOZ2DFLgc
K8shv14mik7I79hgSUGp+t9gv4Flgu7D+jjoTMFqIUNyzH/LhFRASGrZcQom
GpbzM8grwD63XS8mgIKzTmPf/LtWwCQq+vb2NAoSo157ateuBEf8btvlqxRs
FC15KKHOgcrkgTWs+xTkFOaOL9/jwPbsfV4BdRQUdgd416Vzgu/BhNrLWQra
tyn5mnlwo77oynAGFxVHqwXLdvZxI6TMOMtjExUDVpx/NlmuwmTVjXleZSp+
nevz79q3Gu/bbWptSVSItyWfdeFbi+yZarPxOiroPr/DTpfzwuI/z+Wad1SM
rRp4eVRpPdauEHnE/EhF0JUWTo289Ti71ldAa46K+LrbUQuxfHAWV/gQruwG
h3UP6w6obISMXgpdmOmGMGdSY9NKfjxMconQd3FH28pXb/vyt8AhjNO219Md
21blC+4f2oI1Z+4qnQ50RxRPkvNVMUFQnX6+y01zh9Zm2x/OyYIQVQ6RWnjl
jhtyP1Z98hVCo6TsdGq7O5YU282IAiH48zc0KPS7w2FHeUbeqBDezfN5W8+4
g1cjRMbVXhixjblVxYo0BBht1h3UFYHGc700I3Ua3h+eizwQKILholG3jwdo
ULHob77+SATERRVeXkcaBu3u2lPkRDEWz/p0w4MGLefEay+dRXE52L90rx8N
GeTTX2QuisLYRzSmPZQGh5Tfo3ltophxr3bwSKLBu7JszfvvorhlT1FZukRD
5JczSqtWi8HKbBVH5h0aLm3WNN0rK4aCPeb3XtbQ8MLzWUqeoxjcOD/OSkzR
sFm8WtCrRQz8s2HNZUs0bDMO0cr7Koba7/J5h9d5QNcPDiwucYixThgGyXmA
1vLyqtZ+cbCu/c3osPHA0/MNctyF4gjNuE73pHqgNT/WUKtJHCqxBjocpzww
1HGI7jkqjjjvpM874zzAs6PlwTtJCWhQdz2pz/SAhH1SK5e2BIZtOuOdb3hA
Lcr8p6atBJgmQaTpQg8YPdqwydNXAtCVUEuo9IBzf7tabooEJna94JZp9IDj
oRLLfY8lkCPvzn7a4YFryUcexA9JYJa3IHR03AOKIvEkZW1JFH7QeXtAig4d
leU6rzFJiAU5ec1F0qH6cLoxQEEKH88M3X6cSgcHM7lKRkcK13zon/xy6GAF
KJa0WkhBzsvP6lcpHb76Tldkz0phlL6QUFRDh/62mZS2ZCnku4e+PtFMx+YN
qZFBN6Ww3SVR6/sQHWW9r068bZHChCO/T/4EHZG1zpSzg1Iotst+QFug49id
WRv5GSn4WEuOyK1iIHB30VQ1nzTUrW5Jft7EQMic7OdxJWnMmSvZXZdgILoq
+724kTQqDhenuWxjICF8fd1hqjR0DZ5z9YGBTN7ZW/euSGOFnp7uZVMGLr/z
zOx5Io2Xuo0BdnYM5GYNRK3ukIaRVsf3Dm8G7ks10dx5ZWChPNbemstA7Z6r
itIXZMCv6MOTeJ+B1/ObRCwuyaBDbk7f5DEDTdXRa0PKZWAnyfWkvpWB98an
vveNy0BULH4yks1Az/qR3nU8sugT2qikP8JAP8u+ed9WWeQKZFFX/mJg6GJb
JUNPFuRN4ldrFhn45qT/MJski7v3PrRG+3lijap079ndW9EWE/fk3M2TCGWa
fxrk3I74zj5e+bZT+NpvfvbRU1W0v2ad36jvA9O2G0oN5N0Y5h1QLer2hfC6
Xu2XBzUQ469yfZ/lmX9dMtYmM1qY1ciwDvruj+GLZm+fDGpjXVe3sc75QOi4
ynufrdFF4UWnuR9TQVjkjlk3Ug5IFs/9MI87Bz6O8ZRlRT1I/Oi8kst1AR3e
jtmuEfr4fr4p5XpeMNoitC3LFg6iwN+cnCESijuvf+WoeRpiB3rs2jpDsSeo
2Gv2pRE2l5+YGrwehinWwFih5iEcqJT97ukaDlquyK+H6SZ4UWy8UkssAhUX
FWM7vx7GXcugiv6RCOhq3ns76WCGzoimd/M3IhForHbFqswcx8kKCT+9ozAV
kpVwdIsFLFV+UxX2RiN7aol/c6sFQhI/Xe6cjoZwrmffmUBLCGR1+zrXxqBE
fNOSpZoVJlUn7zsGx0K+o4L87pMVJCsDVuZoxSH2xlu+0bijKJ3kWSjniAfX
QQkBP71jSHlSbWFYEw8HSW/H2xPHwNoWfKg4IQFNzfMLR+5Zw2kH6VqqSSIE
SmL7rtraQEuqQLCUOwlmReGrwzhsca569c6i9iRcCymP76+0BfdE+G3p5GS0
xI4d6afbYaZxbfUJxxTwuzudsJGzR86b5YUL/KkwstPscOuzB3mWxzD0VCps
IgUvCMY6gL0gRvHuSkVwhErwAT1H/DHcX3BJPQ3hlSYvNkw6ooJHcM0IMw1+
PCwz38tOULs1vVtiLg0h25lqFkedYR79OTnVhgn3GBv79mVnGJkkm2rYMXG6
Uf8Si4ME8O3l6bNn4vzaXewObhJ2ZSVHKTgzkZawzp69jgSBO3vPV1OZqEqp
tRsSIuHD6xTG2CkmhLKV7KZ3kkDn1jlonMBEU/6SjbArCeQ3oysnEpno/PYj
S5RKgkNSWk16MhODSuwucRoJplu+7PuUxsTcw1IbaS8Sdsozd/lnMyH3iG6j
FEjCzMGvkrduMxH8jGWtk0rCzzXpfYfuMhG3UJOpm07C15b9l3/mM5GpXdCJ
LBLYx9K3aD9k4n5VjLVBDgnP3XR5WSVMdL3QsTbPJ6Fc8dubgDImhjiUMi0e
kFA4lh4j8ZiJcX2hTqtCEq75feNgPGOCq/7XMdsyEi5pZdTyVTKxYfWnDPsn
JDAXdYPLnjMhZtzS4VhBQnztN22Haibk454JkKpIiIjMmF+uYUK16c4x11oS
/gcLBQBr
       "]]},
     Annotation[#, "Charting`Private`Tag$106668#2"]& ]}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 0},
  DisplayFunction->Identity,
  Frame->{{True, True}, {True, True}},
  FrameLabel->{{
     FormBox[
     "\"\\!\\(\\*SubscriptBox[\\(CO\\), \\(2\\)]\\) emissions (GtC \
\\!\\(\\*SuperscriptBox[\\(yr\\), \\(-1\\)]\\))\"", TraditionalForm], None}, {
    
     FormBox["\"Year\"", TraditionalForm], None}},
  FrameTicks->{{Automatic, None}, {{{0, 
       FormBox["1800", TraditionalForm]}, {200, 
       FormBox["2000", TraditionalForm]}, {400, 
       FormBox["2200", TraditionalForm]}, {600, 
       FormBox["2400", TraditionalForm]}, {800, 
       FormBox["2600", TraditionalForm]}, {1000, 
       FormBox["2800", TraditionalForm]}, {1200, 
       FormBox["3000", TraditionalForm]}}, None}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  ImageSize->400,
  LabelStyle->14,
  Method->{
   "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
    AbsolutePointSize[6], "ScalingFunctions" -> None, 
    "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
         Part[#, 1]], 
        (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{All, All},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.726682241235908*^9, 3.726682248754537*^9}, 
   3.726683094126699*^9, 3.726683347599362*^9, {3.726683395372919*^9, 
   3.7266834199254436`*^9}, 3.726683804749596*^9, 3.726683857064459*^9, 
   3.726683964295735*^9, {3.7266840809835987`*^9, 3.726684098922243*^9}, 
   3.726684138458489*^9, {3.726684639253169*^9, 3.726684668072558*^9}, 
   3.7266847263072243`*^9, 3.7266848592259808`*^9, {3.726684897006667*^9, 
   3.7266849271912394`*^9}, {3.72668498030842*^9, 3.726684994262645*^9}, 
   3.726686342113123*^9, 3.7266893254975843`*^9, {3.726689391229856*^9, 
   3.726689393466331*^9}, {3.7266898936433897`*^9, 3.726689908687842*^9}, 
   3.726693219572793*^9, 3.726693268872892*^9, 3.726693345670282*^9, 
   3.7266933879809923`*^9, 3.726693515499063*^9, 3.726750512905385*^9, 
   3.726751170190075*^9, 3.726751622345253*^9, 3.726752123245079*^9, 
   3.726755463192835*^9, 3.726755746217348*^9, 3.7267562586780157`*^9, 
   3.726757593606876*^9, 3.726757678286542*^9, 3.726758033961815*^9, 
   3.726758106592403*^9, 3.726758139249277*^9, {3.726758221428659*^9, 
   3.7267582423865013`*^9}, 3.7267583718211203`*^9, 3.726758458757195*^9, 
   3.726758597102837*^9, {3.7267586436033897`*^9, 3.7267586719323893`*^9}, 
   3.726758706459835*^9, 3.726758975003152*^9, 3.726759055192665*^9, 
   3.726759209023428*^9, {3.7267592622290287`*^9, 3.7267594027654943`*^9}, 
   3.726768125857984*^9, 3.726769984996599*^9, 3.72677001891999*^9, 
   3.726770051358337*^9, {3.7267719888497677`*^9, 3.726772004229548*^9}, 
   3.726772069142929*^9, {3.726772137191279*^9, 3.7267721840770397`*^9}, 
   3.726772804470866*^9, 3.72677285850871*^9, 3.726772895673561*^9, 
   3.726772954382551*^9, 3.726774161209387*^9, 3.726774600240692*^9, {
   3.726774637339182*^9, 3.7267746538683577`*^9}, 3.726775295371695*^9, {
   3.7267757513715878`*^9, 3.726775786111477*^9}, 3.7268413462952957`*^9, 
   3.726844333784943*^9, 3.726844443827384*^9, {3.7268449709915047`*^9, 
   3.726844978729024*^9}, {3.726845193237692*^9, 3.7268452124718447`*^9}, 
   3.726845251068344*^9, 3.726845334923623*^9, 3.726845419263854*^9, 
   3.726852551089376*^9, 3.7268526085380087`*^9, 3.726852655275827*^9, 
   3.726852688980279*^9, {3.726852800889985*^9, 3.726852829570848*^9}, 
   3.7268528807718782`*^9, 3.726852969054165*^9, 3.7268531946344833`*^9, 
   3.7268533051983433`*^9, 3.726853782283112*^9, 3.726855025958078*^9, 
   3.726880778451436*^9, 3.726880847230652*^9, 3.726880909750327*^9, 
   3.7268811373156767`*^9, 3.7268813175336742`*^9, 3.726881584404529*^9, 
   3.726882683518499*^9, 3.726882840007617*^9, 3.726920632186056*^9, 
   3.726920730466484*^9, 3.726920769320101*^9, 3.726920806117174*^9, {
   3.72692102019987*^9, 3.7269210350626793`*^9}, 3.7269211080571423`*^9, {
   3.726921215902924*^9, 3.72692124653712*^9}, {3.726921308788054*^9, 
   3.726921337626093*^9}, 3.7269214041809273`*^9, {3.72692154158444*^9, 
   3.72692156304877*^9}, 3.726921600930978*^9, 3.726921639781755*^9, 
   3.7269216781270523`*^9, 3.726921715781004*^9, 3.7269217764073057`*^9, {
   3.7269218153382883`*^9, 3.726921833705304*^9}, {3.726922313131999*^9, 
   3.726922331712422*^9}, 3.726922657076057*^9, {3.726922687889427*^9, 
   3.726922715212888*^9}, 3.726922770795744*^9, 3.7269229175399017`*^9, {
   3.7269230947922077`*^9, 3.7269232664066896`*^9}, {3.726923613497004*^9, 
   3.726923641132029*^9}, {3.7269236995301857`*^9, 3.726923730032543*^9}, 
   3.7269243554877768`*^9, {3.726924392459977*^9, 3.726924429702486*^9}, 
   3.726924645451851*^9, {3.726924680488785*^9, 3.726924687191072*^9}, {
   3.726924749211114*^9, 3.726924769108467*^9}, {3.726924803968693*^9, 
   3.726924811330621*^9}, 3.726937409910507*^9, 3.7269378282769623`*^9, {
   3.7269438328919697`*^9, 3.726943872103479*^9}, 3.7269443057794313`*^9, 
   3.726944371870414*^9, 3.726944608523787*^9, 3.726944669905868*^9, 
   3.727021507172104*^9}]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Social - cost of global warming", "Subsection",
 CellChangeTimes->{{3.726431170075835*^9, 3.7264311870764923`*^9}, {
  3.726768211670323*^9, 3.726768221757584*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "social", " ", "response", " ", "to", " ", "temperature", " ", 
    "function"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"Clear", "[", 
    RowBox[{"resLin", ",", "resLog", ",", "resCub", ",", "res"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"resLin", "[", "temp_", "]"}], ":=", 
     RowBox[{
      RowBox[{"b1", " ", "temp"}], " ", "+", " ", "c1"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"resLog", "[", "temp_", "]"}], ":=", 
     RowBox[{
      RowBox[{"b2", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"c2", " ", 
          RowBox[{"Exp", "[", 
           RowBox[{
            RowBox[{"-", "d2"}], " ", "temp"}], "]"}]}]}], ")"}]}], "-", 
      "fmax"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"resCub", "[", "temp_", "]"}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"temp", "/", "b3"}], ")"}], "^", "3"}], "+", "c3"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Which", "[", 
    RowBox[{
     RowBox[{"resType", "\[Equal]", "1"}], ",", 
     RowBox[{
      RowBox[{"res", "[", "temp_", "]"}], ":=", 
      RowBox[{"resLin", "[", "temp", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"resType", "==", "2"}], ",", 
     RowBox[{
      RowBox[{"res", "[", "temp_", "]"}], ":=", 
      RowBox[{"resLog", "[", "temp", "]"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"resType", "==", "3"}], ",", 
     RowBox[{
      RowBox[{"res", "[", "temp_", "]"}], ":=", 
      RowBox[{"resCub", "[", "temp", "]"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.72642446457239*^9, 3.7264244796440353`*^9}, {
  3.726424522021249*^9, 3.726424523213667*^9}, {3.7264245578093367`*^9, 
  3.726424774638073*^9}, {3.726424808696013*^9, 3.7264248857696457`*^9}, {
  3.726431294905348*^9, 3.726431307785721*^9}, {3.726432149582234*^9, 
  3.726432151941463*^9}, {3.726772152227995*^9, 3.726772179953738*^9}, {
  3.726772300282251*^9, 3.726772329284707*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"Make", " ", "plot", " ", "of", " ", "three", " ", "functions"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{"warmCostPlot", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"resLin", "[", "temp", "]"}], ",", 
       RowBox[{"resLog", "[", "temp", "]"}], ",", 
       RowBox[{"resCub", "[", "temp", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"temp", ",", 
       RowBox[{"-", "tempMax"}], ",", "tempMax"}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"\"\<T\>\"", ",", "\"\<f(T)\>\""}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotLegends", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
       "\"\<Linear\>\"", ",", "\"\<Logistic\>\"", ",", "\"\<Cubic\>\""}], 
       "}"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7264312521176558`*^9, 3.7264312852580442`*^9}, {
  3.72643192982581*^9, 3.726431935574411*^9}, {3.726432363935233*^9, 
  3.7264324491997643`*^9}, {3.72677233309144*^9, 3.726772352748219*^9}, {
  3.726772418330347*^9, 3.726772422781567*^9}}],

Cell[BoxData[
 TemplateBox[{GraphicsBox[{{{{}, {}, 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.368417, 0.506779, 0.709798], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwtlH081HccwM/l6XSdh6/z6yiPo9GkVZKH9vtQN72a54u0nkzHzE5MJhLN
8li2riusw6spiWnpYYkWv2+dPCQPSzFppa4uOiYP110Ot/Z69cf79f73/dfb
JjI+JIpOo9H83/O/01/5T2o0CO+pFY5rNASWpZkpBmcRNlWbO3jOEjjA6Kny
+juEmz8/tyNZRWBr94S5+CmEHZ40tI++IfDtIyL9IRnCI0zp2YFnBNZf0W+J
OxFOiHUNvyoh8MmkiC9+KEE4w/4Rjs4lcI3WvgqaG8LiEjtRJ4vAOlG+qzg7
TfDpp3nxwQwzjP6+Izhz3BgTPbxARzYbh0jEexzvGuH2IN7GDntTnDa+XiCU
GuLNjvZJdrYI1+8Xx9YGsrDnxR2V3S4mOEAUaj1/ionVR6LRKkdj7FvWGLBp
1AArlRWFu5YZ4crW1L592xm41Va0pimOhXdlnWR3V+nh9TqHri7nM3FGxIKL
C5EuLgY3N+90A0xztqI2ZGvj6NLwl69P6+NHR0/l1jyk4/vnLRlaYl28xCCm
etpHC9swL31K1Wnjb12ddAaXaKhF1rLukd/oeI/bkyqJRE3t3ZL9S1UVDTul
eGj2VqioKMnTDkvRHFX+D6851VtBLVs/H3wn8x31KpPt5bt4kqqNufrszzoF
daPwY+5w2BgVP3V5x1HxBLVyZGDapUxGuWfobNO1k1Mbbwwy5sKGKMvUBwuL
SqRUQnWtyhj1UmN8gVOttI8Ki7Yrv3+wgeo84PRze2ET1Xpv4MhqXj0Zemwd
VKxsJD2cb10JKu4lU7/J7Iv4sZ+kJ7Mf8zlDJH3az/NCsJTUYwZlRv4rIx8m
taxJzpKTh4f6NiSeHSOHG/xv72+bIC+V5ARlTE6Qv+aWR/DzFWT8Gb7RizAF
afW2BqWUvCN3xYqX5maqyP4rVo2eMXNkfnCy++pSNRlSPJQnF9JA27RQdmhm
niw9V9DoV0SH/o7sN1mGWkDfHjemk6oNoWmRa8USOtyLqD4fkqULgoVy264v
teHaIvOdSoE+WNW0FOm+1gF7sc2wnp8BpNVv4BmW6MFMctZcDY8JCZWCurUu
DBidsWBVrWMBk+4WueKlAZR/nfvAws4IuHFbCp1OMEHofa+AY28MixuWxnM/
YgErvsZHwjYBUWLe8ZX9htC0sb6xzhxBSE6gc1mdEczG7V4bxjIFp+1ZoRXp
xqDRvX9q+Zwp9MkYZ06EmsCaTYm3N9PMoCvypbeJFQLl4wvD7EkzeKZ9XlVo
i8Bb0Cb0f2sG05UxtRwHBEfV0nXZM2bAkcuX2DgjsDS3yJ+mE8DfN6l08UTA
3Zrv2IsImDms+d1/KwLRX1GxQlcCHM5xzPOPIXBusRw1SCXA3Xewh3kCwf5Q
j5M+6QT4jZTmCosQ3HoR6nUgk4DvnK0VxWUItiz4qWAkn4Cb1xx6KmsQpIH6
kzYxASEtq3OaWxG03+iPy75JQFSMwmtTBwK0eYrdiAlIMbg+1dGFYOcAq2m6
mYCyAI+veh8iGFdyWfxOAob7wOu5FIGZ6x8XfZ68702hT0W9QrC7uTvswHMC
Flk0V4+8RlDNk89flhGwarcvMTGBwCvRNtBmnACuFqMrSYEgR+szZfgUAeFn
72apVAh6hNtOC5UExHILPA/OIuBYf+/bpibgw7/gw7/gP/ljP/k=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$106728#1"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.880722, 0.611041, 0.142051], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwt13k4lWkbAPCTjuU4p7O9zvvaimijSMwwUZ27TFmiVCjZyp6MqOZEmsqk
xdJmqbEmIcIwUdnq3GUdlQyShkplF1kq2vje7/q+P57ruX7XfT3PfT/3/dcz
32PfVm8ZBoPxkF7/3X/rsx2fmSFwUDNI7UEBhb1h5MeObwR2nXv6Mpz2Jv6r
yTufCWzN9A5aS1tzZdD3fRME/qvzy3dpPoUPomIVunoJ5LH6ysvzKFTQfzYP
HxPoHBd3NTuXwviDuzYeTybwO7VWYXsWhXmzDmQyTAhklEQuFaRQ+NO2G3KJ
RgT2d4XmViZTWJv52m+FAYFWa6O6fGl3WdjpeegQeOnG/NC7SRSS5/RuV6kR
yN5cYeudSOHvqv11pxgEFk8ct7t+icIdRq5DnAYhll2sEExcoFDW28JQxVWI
k37W0ckRFDa7rdg+5CRE1wtZm01pp+1QO3LXUYjujrr17ScoNLZ5X7PbToj2
g/WtSrR9jC473TAXImP+F4fIcArrZ/UdN9MV4jgzvdrzKIUxaaeeuE4KUNiX
V9B5iEKivSYg46IA/co2jjXtoRCXXj0TcU6A0rldeq60A44dyfSJFmBJtINw
wI9+7yKjTt2TAjz/+sU/M74UHv41fWNxiAAzJgwX6PhQ+EYYplvtLsAzFQ0d
/h4U3rQ16O/RE2BgyEhFzk4Kt1Yleeo08LGDNH44bUXhgtbul3W1fFxQZDjt
Q/tTt/5Onyo+Hqj5raTRksJEuSq7a5V8XGa0PzfFgu6v1dDquYV8XJzel2u4
nsJfmsyUBfF8NBzIz98AFJ550floypWPe/h+fWxjCsPerw648JaH9fVN6RMa
FKbsNumHFzwUaZ7rWE+7ssXAa6yNh7uusGIvz6Nw+o62y9YGHp54eido5Vx6
XsdZNkp/8fCavs2gRJXCKMHTpX8c5eGjEceQdiUKk4wChq6o8PB03+F1RiwK
Sw8l+Rdu5mLJQlaNwSiJWl7BWe2WXHwg67/c9j2JZ+0su2at4+KGI3Gv/EZI
9ND55GD/Axdv7/nKTXtHIrtjy9rPylz0frY4aaafRLc1LGXzN3Ow+vtAV9pr
EmfLhtS0HZyDZo9LhNbNJG6KddCcTuSg93XPKoO/SDxsyLOyiOPg8z2bZ+YV
kZjdXB98IYaDpqFFuzmFJE4LV1VpHeNg9CeLy935JBbEaflYeNF+PFQclUMi
J+F93gV9DkYo5GoVXCGx4XKkiXYVG9m+G1dvOEuiRerdTZbvFDEkVB2ueZM4
erbzG7NXEQfanTYEeJGYdPTrjfuvFHEVU2PPD54kvnNfKW/Woohace2zHuwi
MVbrllSvXBFlStT3NTuT+PJ6vgFxRhFjdYKL6raQKLmZLHyprYhqH/tDZlbR
9deFth1wZmHK38lOx/kkJhpKzHPtWRj8UMJ7xyUxJnV/0UtbFpYq+kQ6ziFx
/4G9UVbAwupQRu1iRRJXa7iu0VjIwmy5k1YVs0lslUB2w4gCbuWtLs76JEKZ
RfKS+b8roJ3F56rwDhG6RcSLnuTIY2DthtdaV0XYKP4kH5Ihjz+6D3GcrohQ
/HX7F80UeVS9bDJ2NlWEmvvVXu0/L4+/+UR3TSSK8I17Rg4pkcfD5wLMi2JF
6GNWZOZmLo87KrZ4Dp4QYeD4w93DL+RQOSLM3M1bhEd3zf6TTchhyNb6JaIF
ImToaUjNTzLRpdkz2CNWCf+NTjyd91QG3dufVDm3Eaiu6Jf7Yd0sNG1yGK+X
I3Dvj7qyHeoz0oztE9M60wL0NHmZU1X1VZpUGH7jzWM+6oaYzgRmTkl9y5+n
fZvDw6svtlWHrv0onfWLiUxUDxv7wkWrLJTHpdvM6i8VxylgecKS9f2Ow1Jm
za9BWglMNBh4/mF5aq/0abyuV70VA38u72B9d+ySpv9w9n7q90lpUG7hlIBo
kSq7+em+8HkndfTRvtp8pEw6Gu62LF6lRVr36HmU0bZSMWNOz9u3ps1iU737
N+0ut4g1M53n1y4ZFstIRJ1eKl3iotmynQPZk2J5jl24x0ivOL8r5nncMQac
6Goz339tWJz+RrXubRUTipJP2R0dHxPb5W76u36PAuzL8OJ3O34UWy7uia77
wgY3/6S5p8OnxKXe2jW/vudC5BbJSqOUr2KU+Gy+dY8PTKWE3mNfpsUptR/Y
7eMCePbw5GgEbxZ8Wul6/umAEBzCPIyTqmTA47BIevcxAQHsIa3GnUzQ8lVI
dQxXgqHQciZ7NxNQqh7XeUIJ/Psjey18mZD+wLhj1ykl8K1ZcuP+ASYEgZa3
V7QSeBzzWXErhgmfwCl0e4ISOE28FqfcY4KqR37gSI4SbOhod/HXkgW/6brO
nkYl0MirvSQ3KAtB1TK/LyNFYH+ltKxhVBb6A2uXHFEWQVTcjc5zk7Jgv9BB
uUFVBB/CzmlRsnLwyXdZ2y4NETTYOP65WFMO7mmqDIUuEYFkpKfG0lEOlgTY
73U2FcHjFbIfox7IQZGandlbFxGElZpv4yXLQ/mza36QKgJDl6ZR96vycOFQ
xwDriggGZ1zOFV2XB8tH+oua00Ww00Ly95YSeTDdt6PFLVMEpm054vjH8pBh
PSHakyeCqYk5y1QYCtDtKTO8tozOv7ydqe2tADe3qDsqtoogKDvgtvFyFqQ8
043SlCPh5RO1BK4xC2I7upvuyZNg+7nhQO8qFjjatTY7s0jQtdFZccmaBZt6
RtixHBK6x3ryPnrT8bvGAe+FJGxf7X61JIUFrfUJ+YEaJKxp3RJjqKgIRasV
Np80IYEjY+Kh36MI9dlOCeu8SCg7NHtb75AirOMfXH/BmwSf4SfmaeOKMN0d
NNrpQwK2+y3kMtig7yxnemAPCQcKk/qHVdmQn2VSFBdIwr8u04EFdmwwzvv2
MDOEhJw7NWHLKtnQ7iep5sSQsP4X+wTdOA7ER+vuVS0i4WBsBWNfIgeOdH6Y
UfmLhMw7WgHFVzgQcvfWM+WbJMjIjK1blc8BFw2drUoldP5LZ0dtazhgXLgo
XKaUBFOs3Rg8yYGcgu8/VUpJ0CdWypQ6zwH9ezoxOY0kKJfN3bd+ARfWNepl
HxskYdrzuppgKReUoqwLvYfofnFX1Heu4ELjRWra+h0JRV4/zz8o5oLMXcY+
YoQEC/7eloydXFAIKyhIHiNB4ltqwrjIBeiepxo1RcJT0TZGxXcuHI/7HPJG
loLY/WcuGjzjQZuLi3faPAq+PMovPfOCBzZlHZdtNSjwWPzPq663PDgYf/Pn
b7SNOlX0L47SLhzh7phPwWCGQ88Ukw/lEqsg1gIKYjh94U7z+DCu/bV8mw4F
ja9YFapb+KDOzpGLNKJg66nNeqm3+fBpjOUStYGCbKdRq7IyPgT4kzrKFhR8
XnbR52klH9boukVn0U5vab4yp4q+v7qNL7WkYFjTUXj0CR+8St8uHram4EyF
y6RbPx/i54b9/eNmCu6N7rmvqSoATc+Q/sPbKdB1jnDI/E0AC1x83Lt9KHAK
vi1khgug+ZlHiacvff50/xPPCAFUDjxOf0O7p9jGWjtaAIZr1qx95Ufn54jE
GX8IIKIzLbfFnwLRvawl6cUCOK5qsys3kALG/LqvyQMCiC8X/aEooaCtl5UR
5yAEg525s2+doKDWPjKlbIcQjmZ73hJFUHD7gcLlV85CUFqboy6hfSlNPmap
hxB+ainiGJ+kwMFRVlIVKIR3xc9Dbp6ioLWGYT1xmo6veP5XaiQFzZmTY1vL
hYD3RzTF5+n+evSsFWoQADN8q7JECl4zr08laBHg9e+UWJhEwYdsv0KVRQS0
GmsP+tNWGRpSn69HwMFocye1ZAq8DoxPLjcj4FRBVW5ICj3/EzMFttsJWJac
unHhFQoWZamoRp4nYNermQ2WmRSstOho4sQR8OchZ80/aNsMpJy+cImA4013
SvpoB+tpfrycSkBXsCvvVBYFlbcWNWXnEbAqpzJWmk3Pv9boVHUdAfZ3ljMX
5VLg7fdxleVDAvTjSnKCaYco3pl42EiAh/UT9l3aqZtMd7c8JSB+URZ32w0K
+ttg1Zu3BChEdnGO5NH1hshMePcRcPiQdn4N7Tlq1bkDgwTYbbnF5uVTYOhu
QY2NEZDxPo1zlfb6WazGgx8JGH/m8ecA7R3XGiKmpghImrAVGBZQ4L8+xuzI
NwJKuhN+PEz7//8TePe//wn8B6sFuM0=
          "]]}, 
        Annotation[#, "Charting`Private`Tag$106728#2"]& ], 
       TagBox[{
         Directive[
          Opacity[1.], 
          RGBColor[0.560181, 0.691569, 0.194885], 
          AbsoluteThickness[1.6]], 
         LineBox[CompressedData["
1:eJwt2Wc41o/bBnA7M+M2U1YhNCS07+ubWaGQKEVZ7ZRVdopkZUZEyUhRMrPS
fd32zB7ZM7Nkb3l+z3H8X52vzzfn58Upbn5f34qOhoaGQktD8//pNqozu7lJ
omptzazb3BSgjrjwL3Stk6ivTSoPZ80LUM9y9S3lrpCobpbn9t8eF6CKHXmw
cX+ORFVKtMfBJgFqsV8oc/8Iibp5+PGVf+8FqMz72kWoP0hUO6k09j5tAepL
+2taHtEkqoinjqnKG37qJ1q7RJpDJGpyq+gLm1N8VEYrTQUhEx5qwr/XDCth
PFTSz7K78SHcVId90n9q1Lio+iWvLWSquaiktyGmVCt2qsvfE3eDhzipVpSx
77L6zNS8R69vp53bSk2rMRljHWKgng29IPYvip1ax1G/qRNAS9V88/3sqd+s
VC2Sa2+Z+gYmVTi12V1moX5K2dgzar+Mpl4v+eo/bqGuXrT4Gd0zh+7X6L+w
kZioMg1ue+wlppFmryiqPmOgzl45JHbp9zh2+kc9/9RKR9X5NihwjW0Ym8vE
Pl+rp6PmDQo2n1sawtrNDw18VXRUUYuji9pDQ0ixyxHyKKSjvj54zvz+tyGM
v9z8ySCBjiplv8/A4O4Q3pbjaNh4QEcFF+XM1w2DuFbtIajLTkc17mWYW4kf
wO2sN5PnVWipRpT8yq3dvWhKqQ2QOE5LdVdO0/XJ7cU42wMPdJVoqf46Ujki
Yb0o1bWq/FmalhqbMToZd6YX939+UWrBTkudL+4qpvnWgypns/qaWmmorOGf
RfnjuvFW6D++jJs0VBktjrfnnnbiHSVZxq7tm7j4LnXRLaINbRnzPzzk3MSv
MczeV53a0LlV8wwP3SZeKv4qZXylDf0crIJOj/7Dur/VD15LtGHK13dCeRn/
0CYMVtTTW3FcSWBfuMY/VN3QvA4NLXhDmcHo3IMN3H/xGfMDiWa0ONT7saRk
DQN5FeTucDTg9Y+HDDVy11A676VtxN96vC0UQl+VsoYyfA2P3Err8cGaqmld
yBp6XlFbQut6dMVkUsfVNfwntL+Pt6wOX2o6uE+traKN0L21KccfWG7EbiCk
uIr7H/p+HF+vxqpKK9oY6VWUoz3wx7KtGmuP4BcR4VUcfFg7zpBejU3Ctiy7
6FZxq0ZhaaZFNfb1tVP2Nayg511//tLaKly+kSCjdncFgxI0m1LfV6Ks49FN
68Rl7GBU/iNhW47UnrOyQxHLWJ/nz3NQpxwNVS0uGPkuI5faUPOd3eX4dGvA
J7BeRgFL4UbDvjLsSOwx4jq8jIk6p1S5zpWhT6NHekbNEgYPX7TbUCrFEdkK
s/nZRSzjeHhzl3gxugZ3Bdz8tYhS7Plft9MWI8/i39zu9kXkHBVqPjpQhOQi
wa1lhYu4mZm3ayyuCMONbheEey+ikDR9BoNkEap5cZAObVvEyDdBnQcUqBjX
c77U6eQCOlw7l/a4vhAVhhVWWxQXsDhE8ZViTCGWTnDLy+9ewFWTKi+pW4U4
slQfPbJ1AWdrnfqo9IUoy6Ntd757Hu33kiNrjn3DTA01ib2P5pHheMRJodx8
LE1T9Oj/PIfTyS/KIjpy8EIOKefYuzl8y+D7631qDo4Uzk5GhM3hzd3z7n+e
5CBzdbqRjvMc8jeGBEjK5aDO8J79BZpzeLpeQVDJ4yu2CUr2hg3OomqxtnCm
YjaOPuE7rik4i+JvJiQkyzOQ1S3tbxjrLDrMJxoOv8nAfY6nE/rXZ5DLgeLe
75CBD63dWJ0HZrCyfHQ2UCoDmS7/+vk5ZQa3u9FeRr903KX41YHnxAzed3p8
3r/wC5qPGKT1mE3jmleu0ymzFPQemDKXNZjGtlCGaF3RFEzp9uF/pDGNtuQ3
PBU9yTjbVOjGJTeN1wUtQjcuJyPd49OR3mN/ccVxe7a3yUeEA+ONehx/MWxN
4nGefRIWhO9WHzP8g79cbsjyzMQj8+VRC9rjf1BMUk9L+ns8GoolPd0m/gf/
ZpvFRfvG42zKTqr25G98Efgs8N3OeJShihzLePwbD18oaOe+EoeRE7wHnD9O
4hWh5hW/wlgcSWs+F/ZiEiuzar+fvhaLig6h1p9tJ1FCx2v5G0Ms1m9yfu49
PonMvqf58s69RSY+NmnVxgkcdJ0uWvsTgw5Au4N9dRzVOJrDBbReYzED9Zhk
3ziWsC3Gf1uJQq5qd2Ny6TjOHtU8yJwchZ8N1l89CBzH7kPBYpEsUTh8a4mn
VWIci+ie0Hs0vUL9l3+Y32qN4cdwmqi2p+EoP94xv//NCFLsX9i1XAxB++m9
MgJeIyhfR6tyXjQE85aemPy7PYLZ7fJZeiPBeJJJtrz28AhOVX5Rq3EIRv2d
zq9utfxC4QAbGVWlIHQw2XY0ge0X3neY7yxc9McCS2trv9lhpLO9cV8mzB//
3SmOt+kYxiRynYenvD96O99mIz4Mo8Sw4ce1e34Y+aqgu1tlGNcTbCa753yw
oNH4Mb/zEKrw5565LeuN/35+ydq4NoSFl6PPyrQ+Q5V+urFhzSEkD8wwlXo8
w5qpFN0sviG8eKpVwqfTC7vZ1sR1Mwaxvjp0TC7SEzfVo0t9xwZQntqUPXb0
Carp/F1+UD+AnTqc73pmPdDHQHXvxZwBdPc//ijmkwdyWUyGS3kNYH7mqUd2
oh4o4XHsRonoADaN+5LrxdxRraCLZcOwH2nqrff37XHGLynvj1Qc60f1K6bS
8ylOKBh9/1aIWD92P7NqyJd1wrYlplCtlj4MXPjYr7XfESVdDLnerPbi2jGf
pGPaD7H4yQI7odmDV9gr5eqbbDHC3PduC1cPRhftOBF92xZvqe6ovdnZjdYH
1D5N0NsiF6O6f8i9bjT2mTnFfMwGr/q8ZBkK68LHXIl3ex3u43rgQSbv/g50
+xvmPLhxCxvuV1htS+lAdtv9muTLtzBB93LZF7sOhKTeXRrfbuIZHk+vdqaO
//oa3FL1vIFR4U10Mnt/4pD6h/sXFKzw7sPr5t8X29EdxnbYJVoiYbRapEdt
RwaWRR9OIUscE5R44ny+HSdfG0ymsligcozNZs1/bvUkSB4d3GL23z4wXr2m
2oaRTK3SRi+uYY9JFGWevQ0fGrG67+C7hl6iRW473rVi+PtyO04jU2yO51q3
Lm9Bk4OpwTdGjPFBctoyN6kZGe/Tc080GqD8VmtPlf4mNI+Ne6iy1wBnbPds
tUttwhNSLSzMAefR9njyzhbNJjxjeqTl63l9dKiPPxvh2ojo05kbxaqLyopm
HeWnG9FsbTAkk+YcLkaKWi7xN+K2fRqujrM6+Mg8xuliRgNyFyr0B45p4dyE
3Gml2nrMj9Y1H9h+Cu2zP5pGXK9HgakW1dDDmrjoJmm/RFOPIBltvHhJA5e5
RGPzleqwKsjONDBVDdeVeRZOxNZi7COaEyvhJ9GNJog19kgtdnITGtBD4L8q
NjGalhos2lM3kyhDIK0Jo1Yxcw0qWOXVsiacQCbP5XcatlW4m2h/tif3MD7X
dsj5wF6FTCUReclhh5CZf7aG+UMlCj5mZwUnZWRNnlys7qrAWrL0Q5Griuhv
e5N9z8MKNA/WrxC5ehDZj/8Sf8FVgTtyicSEGwrIWd+rfU69HIdFba0/hMhj
cORl8/T/nKy6+mhXvtV+5DH/+YjbuQwnzJJNGPP2Iu9CY3zzl1I8o0b/eLu/
LAoKly0bCZbgM2awPzi0C6OGT27NzyzGE1QniI7Zidu+UHZu0ylGatWz9AgL
CdxxMu9s95MiXGKRMxUXEsO3rEqWJ7YXoUx+HOfRrSIo2pLh9DaHih9tis1Z
6bejap3h6aI2RPaAr4WjioKoYaZr78mGWCcZ9+bHA348NX86Vp2g4GOVlwrk
El7U3nZioSq5EPXtS/bYJHPj2VRlsYDeb6hfJHiX/TgX6hHyWmdJ3/Anra50
ZRkHGl7fGdfkmo8qQTqx863M6Gdj5xP6NQ+VAphGBOOY8LtryX39qVz8+PTC
fH4gA04/JxnxSOeiiF11etEbOtwVZkFuuvqfo6YLtNt+0ODFt1mSoZFfseB5
bcylQ/8o/sn0HPqN2bj9jPFKBdcaZRYTuhpVsrAxZ+VA3f0FilTNXHGISybO
m2t95JiZpVxqU03Ry85Ad5Yq/l/vpykBA2Eh3H/SkWooGa4r+IdC/T3k2CiZ
jnRhweKGquOUsb83qBLfv2BsFene08pflHNMzEHx+1LRcn2K2y1hkJKz/aOJ
xLtPaGRcatAV20cROXhqTzx3CsZ8M45bCu2kPDs9tiru+REPi4mT3wq0UX5f
9amKm0/CXv9XV0UkmyjnH+6OFL/+Hq0ZXO0DrX5QCgIqr8e1J+Aohwzjf9tC
EU+4qSR+Oh6djil3xhoVU3zymRniCt7hwm7N/MMChZTeWL33Jy++RR9icKJi
PpuSWhuicvJYNNZEuigbnPlCcVlp7CNEItEsJ+vwYbb3lNNSPG4EbTg6T3XQ
3PkRTRE4r7+NGA5Br5mzFv77Qig1m7vuPw58gQfNXhT5mnhSbl56n+xu8BzH
oxgZ5djtKAxZksNu257grd75GgZGUwohpH1ileqAHTd2NygMkinTkVGWM1Hm
WFl12J/lHD3Fle5lmcbh05ADxWafOfNO7HttUcGrfB8EFjRCo39IkXuFMqbY
OF1hrP1glVmILvn8wZ+F3ie94MDPiUN/pm6SczqMnj538YP1L35HVrtcyBzU
yZ2lxsHQPf6Mjw38yBD2ybv0URj8WNth8Fgigmxz/c546csIqC8+oueqHkeO
PyKnXZYRBU2fBvg3bZLJLeyTX8rqYqBSx1NOeiqDzNSfwl0+GQu6R1uUly3z
yDGXlI5aeMXB3fKMP9vEqGQl1fA7QzwJYBAdmaDXWEqu27MQYxGXCEEvRVqe
GFWTb/BfqBvanwSmreL+TOYNZBqar5sWlA+gNunpIcvbQo4a5z0wrJ0M+j5f
w3vO/CQrNNubW3alQP1H5YiGrT3kmsKWsOFbnyEwsUTKWHGAbJmkWGa5nAol
mWElMfLD5I2gl4vD3mlw0E3ruY/HKLnm+GpYpl86MNF9anfYPUmOPJDyeVYv
A66D7bbve/6SLaWMyxSEMoESlW7cVTlDlhdm7bXtz4TDU8LPe/bOkzc4CxYz
P2TB8e2X1UMqFsnVDLc556yzoVvibKVE5Ao5YkVo90HlryBN26pCiVsnm09V
EXYbX0E5p340aGSTvG/I6VJWaQ4Ei3EumGXTQkVth9/B83lw57bwOO0rRrjp
2FlxWS4fqu8dFy6f2ALMu7oYvOgLgKvb8ebgDVZIru86+bmrAIx/HhnM5+SA
My7d7i1Z36D62VhU2hAnTEj1fFv3LwQK/SPdMFtu8G/qWd5l+R3UqZcYilhJ
UCvTZ+vAixBuyy12xIsf7rb2pb35jeDhfy5q5LogeBMPFs3NqaA3gla1FttA
+veDg/5Hi2D6A4vwljQRWD45oxebVARTgkl+Vx+LQeUrmwdZPMUwE1dVXPBV
HG6q2qZ2TRTDmQSPBb1zu+Bw1GzNX8MS2Jta6QhZksD813aCvqQEToq4nuKU
lobk13bSe6JLgXQpsDcPZMF5ek6d2FIG5tlxe9V+ycEZDXtLA7syWIny7eSN
2QsTM/ZxrlrlEEF6l2YfKw8FmgsYnFsOMukDV+vDD4DfG4fexJ0VYLOzWNM9
XAHkTj8U/rFWAZ9EeTX9MhTh7rtH4Ts+VwHe+k1VMjsCxxeXsg4IVkNXDu8k
+4ejwK7t2KTuVQ1VG2qm0UvHIHXJkdP6Sg2ksdp+DMonw9RZZ18K+w/I5nik
9tNcBSiJqx+aHH/AhuDOK1sPqkLgqnP5yPAPwMwtcXosarA/yYWe83sd3Ols
eXixUh3y3CmUNOUGmF5aTG8JPQ3vkv/9yL/bALfs+4IHws+ATwu5pyS+AX5x
fZVKjdWCi7K41r61EXJnnxzuqNCBlVY8TDPaCDFyL2SclPVgkIbmFOuOJvg0
ZiN2oEUPquUII97zTeDp/kE5zkEfXj+hOuzGJpi7qLCzreQ8HN1blKn7qhki
Kug+VwUaglJLWwSlqhku05YKU8hGIO/y23nPejMwSK1eOT5rBFJVAqrMZi0w
dSjEatXiEpCsrJtRthWavv5jc7K7AlvZvXL3mrSClvuaZx5hAqxZUdHRQa0Q
fJJxporbFGhoyywezbeCLpWt0Buvwu8Y4fl9lDaAO8dPK7w3g1HVAz9jptvg
WlueQKSwOQxOaBSy7myHtvLns6wvzaHjsK3XyPN2+HaMvk3G3wLKWyp53+r9
BPGQgtDqUCuIZX+oxPGrA8YqXVp92W7D6yx/IReBTrCj4bPvSbwNEcZxG2On
O0HpR6SKN3EHAj7WlpV+6YRLshqO4+53wVFtp6GrYxcMbX3qZS94H/RdGx5O
svVAQdoNX00zW9DZOWJ8idwDNfKeJslFtnCqeo1c8aAHbjJc67q00w7IgtJb
Elp7QP19w8+0CTuQy3Z7ZRzbCzZdmSvWvg5A95Cv21KoH6p9EmoVWJzA+FpK
U55iP6RyRG/183WCzDNQxa7bDy/SRhnC2ZzBXPRWTrZ3P7zUuOHbyOsCxZWF
wQzz/aD/Ufes0nE38BS2VE+sG4AHuTIXwqc9oJtx5djy+ADslDOqZYUnoDj9
QkGbcRDYpNxINoFPYLg0V3T+2CCk7Jeq55N/CmrWbKuqyYPgxMgnO+buCQxF
mV+GPIfA60Jy34yWN1z5pPn+UOwQkJjGfMVSvCE7vDvav2AIgpX/rBiyPAfL
20y+B2eGIDCcMtZf/RzKSMYWnqbD8JPyfn+IsS94X6cV3HnkF+RdrGpOTA2A
Ley6T8ynRsD/RNGmHn8oXJQ2piqzjAJJQjxE0DAUUlQsN1l3jcLU/RYT+4hQ
OOvk6JZ1aRRU8O61KcEwiBh558RQNgrPbMfYN3e9BKmiGZuk6DEwurJPQM44
Ahy719Kdc8YgoEetLSIhAqqXGKfPNo7BRlJAavyfCLDet816iWkclP1GL7/x
fAU50Sq3T9mOg/bPswUHciNB/WGY+cSpCcgoYQy1PhENESFv4igWE6DQkK69
NyQaxj5/6A91n4BO+jvrEb+iIWDom+mx7Ak4e1Ft9l5wDLToDhsHiE7+5+fW
oyem3oClnNL5fYuTsLaP9MHV6h149rep2ib8gUq/XN4W7wTozde651j4B55Y
7H9pl5cAR8OoEe6tf+DP4ZXe6xMJMK2eMu63ZQpUGcKmT59LBNNPbkEJd6aA
VkO3gGXHezj6cFdXy8G/0PjdOTq1MglWGI/kC5tPw23skLc3T4Ek27kfb62n
IeWbVQFfbAoY9KUOirtMAxdzWR+pOwXS8yTYd7+chuxvHILSRp/g+h32q4rl
06Cfe3ghXe8ztDT0MejIzgDnKXe+4ItfID3aW9d9dgYkmFnKso0yoIbkPcpJ
MwuU1a5jux9nwIj/M/c4jlkoM8261J6UAdtdvT6X7p6F13w65PHFDPC58pSZ
7eosGDgei+iPyoRrO9ypr2pmQXTArUNtMgu4Yh3kMxLnQCX/ho3I9xyQE3Co
UMmcg/WvomMmv3NAI8jetAXn4OVyZWKvcC64PrYLWOqcg5Hx2oREl1wYu2oz
doJ7HtZzkhM0yXlAFbv3rtptHniq5em5G/Lhfrwl17DhAgjoqDL+lvoOgU5R
MYEWCzAx6TE2Z/wdvujW7T7yYAGWRf4FHQn6DlP/Dp0M9F2A3XeYKO7L3+Hu
ZTbbw4ULsPHdMWL+BwVu82Y2B4gvQnDath1GKlS47r0ZofR7EYRe1Hzaw10M
3iaKO/uXF2EjOUhXfn8xJCneSvNjXIIq5XSxCzrF8GuwqaJPZAn6FfcF0PkV
gyUkLfvqLQF3i0LwFEMJmC9rG/fmLMEB6S06wrSlYHr79Y7nT5bhn5VYrCap
HNY6WOpmXizDUvNE54hiOUSednK/8noZPvxb3v3RsBwad1/sO5C1DOfP1RAh
r8tBbZQvrnt4GWxOZp3c/M9FGcuQXQqnViDx2WT0pROVMG/iI9ezdRWEHdq0
PfyqwVfv4ZGDMWtwWsbkkXFoPYTWyt79nLwGoHhNN5laDzGafW8lc9fAN+/u
Zcm/9ZB+4hSDYNMa/EhrT9OXaoCfMtvq17esw/bS6NIhrwbYTUexLLdbh81d
0Y3nNRqhPJMx+JLWBtAO0D3L62wCBt7wkcer/0CTvT11XasNeKbct/Js2YSx
m82ee260gXjlTeVE0ia4+Rjetn3aBmTX496VezZBWSwrgMhvA6fhIUnuq5tQ
IsorPirdDlPZClbxJZugVDdmbMXyE37LjtmYa9AQ5685Jln2dEB7zbNpL05a
4qEA+1GLmh54SX6jfoGfllhslTDa9bcH9DOyX0vuoCV28z6mpyP1Ql3EkFq5
LC1BXQ8/RLrcC+VmJ6O2aNASHasi2oG/eyFnaf2knystUVrWEujI2g8RO+3D
gsZpiQU6jxfdJwbggou58usSOsJSq1VsrHEIIt7wMi1V0RHc2ksmgiND0Ibl
recb6AhbPxptw9UhMGSQc+DooSPkCAOdNYlhuPhiLstjkY7o4mi8PmE/DMax
XgduyNAT26QS6c2Ef8G1kqQ9ikH0BHm8/mKD7QjcZZuUqDNmIISyjvJ80x4H
0U/lEUwTjIR+qeFevdC/4JKnep4zegux60hfO8e3OXiQdDdHeT8L4dnNolG2
sATsdIfM9/1iJTgftRHx+zZA/Z5BuGwYO0Hj12dPfUxLCObvuK++aytRfvb6
bI0vAxFq6xMi385JNPdmhfxSYib0vc/tfZPDRQzc9eqip2cnZC97XUh04ya0
9R4xPuHgItpGWOLDLvAQ2Zq25H1uPESd+a+TPKIkInSUQfDcCi8xwPBhOVyC
RLSlHugaYOAj5pNupglJkQj1Puc+Ry4+Qmhycrv4XhJx+8PTL1nSfISl3ezS
/mMkQrfilOsVQz5i1XMzVceIRIwI5j5zyeYjpN4LbfMNIhG+b40r5+34iSOa
XQ3sYSTCRiRJgduDn9Aej3keHEEivkpzLh0I4Cds9ootvHpDIqRXL4V4JPIT
hV+lGpI+kQiuqCxx/VZ+Qr/8oHdpBYm4Fup+reKQAGF1c+H4qRoS4d1xvVpG
TYBwZM2dq6kjEVJH/rwO1hUg3pw9atbcSiIirOZt79wSIMbaiOODQyQi594P
XsNoAWLVkW7OapREkOyeV3V9ECA4hEuTxydIhMtP0UmrbAFC4aqmwMwMiZAY
ZXN8/kOAUKdlqbNfIBGn4v8Oi3QKEBcTqr2Wl0nEsYHGooIRAeK2esAx13US
MfHZmfPynADxvz+P+N+fR/wfM6gqNQ==
          "]]}, 
        Annotation[#, "Charting`Private`Tag$106728#3"]& ]}}, {}, {}}, {
    DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
     AxesOrigin -> {0, 0}, 
     FrameTicks -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
     GridLines -> {None, None}, DisplayFunction -> Identity, 
     PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.05], 
        Scaled[0.05]}}, PlotRangeClipping -> True, ImagePadding -> All, 
     DisplayFunction -> Identity, AspectRatio -> 
     NCache[GoldenRatio^(-1), 0.6180339887498948], Axes -> {True, True}, 
     AxesLabel -> {
       FormBox["\"T\"", TraditionalForm], 
       FormBox["\"f(T)\"", TraditionalForm]}, 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]], LabelStyle -> 14, 
     Method -> {
      "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
       AbsolutePointSize[6], "ScalingFunctions" -> None, 
       "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& ), "CopiedValueFunction" -> ({
           (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
            Part[#, 1]], 
           (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
            Part[#, 2]]}& )}}, 
     PlotRange -> {{-5, 5}, {-5.999999755102041, 5.999999755102041}}, 
     PlotRangeClipping -> True, PlotRangePadding -> {{
        Scaled[0.02], 
        Scaled[0.02]}, {
        Scaled[0.02], 
        Scaled[0.02]}}, Ticks -> {Automatic, Automatic}}],FormBox[
    FormBox[
     TemplateBox[{"\"Linear\"", "\"Logistic\"", "\"Cubic\""}, "LineLegend", 
      DisplayFunction -> (FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    Opacity[1.], 
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    AbsoluteThickness[1.6]], {}}}, AspectRatio -> Full, 
                    ImageSize -> {20, 10}, PlotRangePadding -> None, 
                    ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[-0.023999999999999994`] -> 
                    Baseline)], #3}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 14, FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]& ), 
      InterpretationFunction :> (RowBox[{"LineLegend", "[", 
         RowBox[{
           RowBox[{"{", 
             RowBox[{
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.368417, 0.506779, 0.709798], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.24561133333333335`, 0.3378526666666667, 
                    0.4731986666666667], FrameTicks -> None, PlotRangePadding -> 
                    None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.368417, 0.506779, 0.709798]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.368417, 0.506779, 0.709798]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.368417, 0.506779, 0.709798], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.880722, 0.611041, 0.142051], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.587148, 0.40736066666666665`, 0.09470066666666668], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.880722, 0.611041, 0.142051]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.880722, 0.611041, 0.142051]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.880722, 0.611041, 0.142051], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}], 
               ",", 
               RowBox[{"Directive", "[", 
                 RowBox[{
                   RowBox[{"Opacity", "[", "1.`", "]"}], ",", 
                   InterpretationBox[
                    ButtonBox[
                    TooltipBox[
                    GraphicsBox[{{
                    GrayLevel[0], 
                    RectangleBox[{0, 0}]}, {
                    GrayLevel[0], 
                    RectangleBox[{1, -1}]}, {
                    RGBColor[0.560181, 0.691569, 0.194885], 
                    RectangleBox[{0, -1}, {2, 1}]}}, AspectRatio -> 1, Frame -> 
                    True, FrameStyle -> 
                    RGBColor[
                    0.37345400000000006`, 0.461046, 0.12992333333333334`], 
                    FrameTicks -> None, PlotRangePadding -> None, ImageSize -> 
                    Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                    "RGBColor[0.560181, 0.691569, 0.194885]"], Appearance -> 
                    None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                    DefaultBaseStyle -> {}, ButtonFunction :> 
                    With[{Typeset`box$ = EvaluationBox[]}, 
                    If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.560181, 0.691569, 0.194885]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                    Automatic, Method -> "Preemptive"], 
                    RGBColor[0.560181, 0.691569, 0.194885], Editable -> False,
                     Selectable -> False], ",", 
                   RowBox[{"AbsoluteThickness", "[", "1.6`", "]"}]}], "]"}]}],
              "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3}], "}"}], ",", 
           RowBox[{"LegendMarkers", "\[Rule]", "None"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& ), 
      Editable -> True], TraditionalForm], TraditionalForm]},
  "Legended",
  DisplayFunction->(GridBox[{{
      TagBox[
       ItemBox[
        PaneBox[
         TagBox[#, "SkipImageSizeLevel"], Alignment -> {Center, Baseline}, 
         BaselinePosition -> Baseline], DefaultBaseStyle -> "Labeled"], 
       "SkipImageSizeLevel"], 
      ItemBox[#2, DefaultBaseStyle -> "LabeledLabel"]}}, 
    GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}, 
    AutoDelete -> False, GridBoxItemSize -> Automatic, 
    BaselinePosition -> {1, 1}]& ),
  Editable->True,
  InterpretationFunction->(RowBox[{"Legended", "[", 
     RowBox[{#, ",", 
       RowBox[{"Placed", "[", 
         RowBox[{#2, ",", "After"}], "]"}]}], "]"}]& )]], "Output",
 CellChangeTimes->{
  3.726432374389791*^9, {3.726432420969346*^9, 3.726432450110619*^9}, 
   3.7264338119225817`*^9, 3.726434241716837*^9, 3.726768238232424*^9, 
   3.726770051692995*^9, {3.726771989077969*^9, 3.7267720044818783`*^9}, 
   3.726772070210878*^9, {3.726772137811843*^9, 3.72677218441385*^9}, {
   3.726772357137844*^9, 3.726772371621914*^9}, 3.726772469460539*^9, 
   3.7267728046579103`*^9, 3.726772858761382*^9, 3.726772895828*^9, 
   3.726772954526353*^9, 3.726774161365981*^9, 3.726774600405376*^9, {
   3.726774637526074*^9, 3.726774654073365*^9}, 3.7267752956366587`*^9, {
   3.726775751548491*^9, 3.726775786301777*^9}, 3.726841346476439*^9, 
   3.726844333994879*^9, 3.7268444440162067`*^9, {3.726844971164899*^9, 
   3.726844978926546*^9}, {3.726845193494779*^9, 3.726845212744975*^9}, 
   3.726845251480413*^9, 3.7268453351541357`*^9, 3.726845419452956*^9, 
   3.726852551271792*^9, 3.726852608964467*^9, 3.726852655492529*^9, 
   3.72685268918859*^9, {3.7268528010773478`*^9, 3.7268528297468863`*^9}, 
   3.726852880949785*^9, 3.7268529692760763`*^9, 3.726853194817272*^9, 
   3.726853306362776*^9, 3.726853782598984*^9, 3.7268550261513653`*^9, 
   3.7268807804868593`*^9, 3.7268808477042837`*^9, 3.726880910204536*^9, 
   3.726881137588416*^9, 3.7268813178416433`*^9, 3.726881585206026*^9, 
   3.726882683810594*^9, 3.726882840239048*^9, 3.7269206324296007`*^9, 
   3.726920730640911*^9, 3.726920769505331*^9, 3.7269208063029537`*^9, {
   3.726921020366189*^9, 3.726921035235571*^9}, 3.726921108217602*^9, {
   3.726921216069614*^9, 3.726921246751148*^9}, {3.726921308987151*^9, 
   3.7269213378099413`*^9}, 3.7269214043772182`*^9, {3.726921541788867*^9, 
   3.726921563293195*^9}, 3.726921601087863*^9, 3.726921639969575*^9, 
   3.7269216783155413`*^9, 3.7269217159859543`*^9, 3.7269217765857286`*^9, {
   3.726921815534005*^9, 3.726921834144503*^9}, {3.726922313348077*^9, 
   3.7269223319559298`*^9}, 3.7269226572581863`*^9, {3.726922688077901*^9, 
   3.7269227153790827`*^9}, 3.7269227710169697`*^9, 3.726922918106995*^9, {
   3.726923095323927*^9, 3.72692326664384*^9}, {3.726923613662574*^9, 
   3.7269236413105583`*^9}, {3.7269236999738703`*^9, 3.726923730264822*^9}, 
   3.726924355679944*^9, {3.726924392722365*^9, 3.726924429913362*^9}, 
   3.726924645663828*^9, {3.72692468076991*^9, 3.726924687421771*^9}, {
   3.726924749421453*^9, 3.726924769356731*^9}, {3.726924804180594*^9, 
   3.7269248115253353`*^9}, 3.7269374100936193`*^9, 3.726937828468248*^9, {
   3.72694383356557*^9, 3.726943872473819*^9}, 3.726944306072446*^9, 
   3.726944372075879*^9, 3.7269446087676992`*^9, 3.726944670109836*^9, 
   3.727021508441575*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Stochastic Simulation", "Section",
 CellChangeTimes->{{3.726591818812344*^9, 3.726591821595628*^9}, {
  3.726853948934013*^9, 3.726853952645129*^9}}],

Cell[CellGroupData[{

Cell["Derivative functions", "Subsection",
 CellChangeTimes->{{3.726854149612198*^9, 3.726854154987424*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Clear", "[", 
   RowBox[{"f1", ",", "f2", ",", "f3", ",", "f4", ",", "f5", ",", "f6"}], 
   "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f1", "[", 
    RowBox[{"{", 
     RowBox[{
     "t_", ",", "cat_", ",", "coc_", ",", "cve_", ",", "cso_", ",", "temp_", 
      ",", "soc_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"emissions2", "[", "t", "]"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"1", "-", "soc"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"1", "-", "x0"}], ")"}]}]}], "-", 
    RowBox[{"foc", "[", 
     RowBox[{"temp", ",", "cat", ",", "coc"}], "]"}], "-", 
    RowBox[{"fla", "[", 
     RowBox[{"cat", ",", "cve", ",", "cso", ",", "temp"}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f2", "[", 
    RowBox[{"{", 
     RowBox[{
     "t_", ",", "cat_", ",", "coc_", ",", "cve_", ",", "cso_", ",", "temp_", 
      ",", "soc_"}], "}"}], "]"}], ":=", 
   RowBox[{"foc", "[", 
    RowBox[{"temp", ",", "cat", ",", "coc"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f3", "[", 
    RowBox[{"{", 
     RowBox[{
     "t_", ",", "cat_", ",", "coc_", ",", "cve_", ",", "cso_", ",", "temp_", 
      ",", "soc_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"photo", "[", 
     RowBox[{"cat", ",", "temp"}], "]"}], "-", 
    RowBox[{"respp", "[", 
     RowBox[{"temp", ",", "cve"}], "]"}], "-", 
    RowBox[{"turnover", "[", "cve", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f4", "[", 
    RowBox[{"{", 
     RowBox[{
     "t_", ",", "cat_", ",", "coc_", ",", "cve_", ",", "cso_", ",", "temp_", 
      ",", "soc_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"turnover", "[", "cve", "]"}], "-", 
    RowBox[{"resps", "[", 
     RowBox[{"temp", ",", "cso"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f5", "[", 
    RowBox[{"{", 
     RowBox[{
     "t_", ",", "cat_", ",", "coc_", ",", "cve_", ",", "cso_", ",", "temp_", 
      ",", "soc_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "/", "cap"}], ")"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"rx", "*", 
       RowBox[{"Log", "[", 
        RowBox[{"1", "+", 
         RowBox[{"cat", "/", "cat0"}]}], "]"}]}], "-", 
      RowBox[{"lambda", "*", "temp"}]}], ")"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f6", "[", 
    RowBox[{"{", 
     RowBox[{
     "t_", ",", "cat_", ",", "coc_", ",", "cve_", ",", "cso_", ",", "temp_", 
      ",", "soc_"}], "}"}], "]"}], ":=", 
   RowBox[{"Which", "[", 
    RowBox[{
     RowBox[{"0", "\[LessEqual]", "t", "\[LessEqual]", "210"}], ",", "0", ",",
      "\[IndentingNewLine]", 
     RowBox[{"t", ">", "210"}], ",", 
     RowBox[{"\[Kappa]", "*", "soc", "*", 
      RowBox[{"(", 
       RowBox[{"1", "-", "soc"}], ")"}], "*", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", "\[Beta]"}], "+", 
        RowBox[{"res", "[", "temp", "]"}], "+", 
        RowBox[{"\[Delta]", "*", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"2", "soc"}], "-", "1"}], ")"}]}]}], ")"}]}]}], "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.726854157092564*^9, 3.726854270162891*^9}, 
   3.726854887448264*^9, {3.7268795518507233`*^9, 3.7268797160387774`*^9}, {
   3.7268800174437733`*^9, 3.726880060986862*^9}, {3.7268813106750317`*^9, 
   3.726881311394603*^9}, {3.7269441444106073`*^9, 3.726944150850665*^9}, {
   3.726944241970941*^9, 
   3.72694424277253*^9}},ExpressionUUID->"d89288c3-ca2f-409d-96d0-\
a01f4ec86df8"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"f4", "[", 
  RowBox[{"{", 
   RowBox[{"1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1", ",", "1"}], 
   "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.726881275750537*^9, 3.726881282848866*^9}}],

Cell[BoxData[
 RowBox[{"-", "4.188845450278521`"}]], "Output",
 CellChangeTimes->{{3.726881283109676*^9, 3.7268813180405273`*^9}, 
   3.72688158541943*^9, 3.7268826841584787`*^9, 3.726882840344069*^9, 
   3.726920632704644*^9, 3.726920730734351*^9, 3.7269207696536417`*^9, 
   3.726920806397933*^9, {3.726921020444919*^9, 3.7269210353275347`*^9}, 
   3.726921108306843*^9, {3.726921216154799*^9, 3.726921246856629*^9}, {
   3.726921309128443*^9, 3.726921337934779*^9}, 3.726921404529087*^9, {
   3.7269215419663763`*^9, 3.7269215634001417`*^9}, 3.72692160124168*^9, 
   3.726921640111082*^9, 3.7269216784630613`*^9, 3.7269217161539793`*^9, 
   3.726921776828568*^9, {3.7269218157073936`*^9, 3.726921834290861*^9}, {
   3.726922313494939*^9, 3.726922332098427*^9}, 3.7269226574331923`*^9, {
   3.726922688242436*^9, 3.726922715526847*^9}, 3.7269227711279163`*^9, 
   3.726922918303506*^9, {3.7269230956078873`*^9, 3.726923266811243*^9}, {
   3.7269236138697042`*^9, 3.726923641469611*^9}, {3.726923700199994*^9, 
   3.726923730452836*^9}, 3.726924355828103*^9, {3.726924392894519*^9, 
   3.726924430097885*^9}, 3.726924645854096*^9, {3.7269246809036093`*^9, 
   3.726924687554987*^9}, {3.7269247495992517`*^9, 3.726924769489347*^9}, {
   3.726924804358747*^9, 3.726924811642398*^9}, 3.726937410259955*^9, 
   3.726937828614547*^9, 3.726943872638947*^9, 3.726944306263793*^9, 
   3.726944372237032*^9, 3.726944609108646*^9, 3.726944670273363*^9, 
   3.727021508847159*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"data", " ", "array", " ", 
    RowBox[{"(", 
     RowBox[{
     "cat", ",", "coc", ",", "cveg", ",", "cso", ",", "temp", ",", "soc"}], 
     ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"y", "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", 
      RowBox[{"{", 
       RowBox[{"6", ",", 
        RowBox[{"tmax", "+", "1"}]}], "}"}]}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.7266818109993687`*^9, 3.726681812318832*^9}, {
   3.726682288144927*^9, 3.726682288894066*^9}, {3.726682800538268*^9, 
   3.7266828011848297`*^9}, {3.726683403102593*^9, 3.7266834036036587`*^9}, {
   3.726689402312296*^9, 3.726689402762999*^9}, {3.726854722350876*^9, 
   3.7268547505842648`*^9}, {3.726858605153706*^9, 3.7268586338623857`*^9}, {
   3.72685867760198*^9, 3.726858685730245*^9}, {3.72685889988739*^9, 
   3.726858900031958*^9}, {3.726877707302209*^9, 3.726877718063854*^9}, {
   3.726877808404067*^9, 3.726877860874812*^9}, {3.7268784872416077`*^9, 
   3.726878487357579*^9}, {3.726879734478417*^9, 3.726879740928088*^9}, {
   3.726881836456778*^9, 3.726881846004653*^9}, 
   3.726920594271822*^9},ExpressionUUID->"bbe49b16-9153-400b-a71c-\
f44c4c9187e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Implement Euler Muruyama", "Subsection",
 CellChangeTimes->{{3.72687765233706*^9, 3.726877659409667*^9}, {
  3.726877742003746*^9, 3.726877742322555*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"initial", " ", "conditions"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "[", 
     RowBox[{"[", 
      RowBox[{";;", ",", "1"}], "]"}], "]"}], "=", "yInit"}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7268779100873013`*^9, 3.726877950085705*^9}, {
   3.726878099673316*^9, 3.726878099778161*^9}, {3.726878481537734*^9, 
   3.726878481646514*^9}, 3.726879748632741*^9, {3.726920556064754*^9, 
   3.726920556579605*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "matrix", " ", "of", " ", "normal", " ", "random", " ", "variables", " ", 
     "with", " ", "mean", " ", "zero"}], ",", " ", 
    RowBox[{"variance", " ", 
     SubscriptBox["\[Sigma]", "i"]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"noise", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"\[Sigma]", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "\[Equal]", "0"}], ",", 
         RowBox[{"ConstantArray", "[", 
          RowBox[{"0", ",", "tmax"}], "]"}], ",", 
         RowBox[{"RandomVariate", "[", 
          RowBox[{
           RowBox[{"NormalDistribution", "[", 
            RowBox[{"0", ",", 
             RowBox[{"\[Sigma]", "[", 
              RowBox[{"[", "i", "]"}], "]"}]}], "]"}], ",", "tmax"}], "]"}]}],
         "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "6"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"noise", "//", "Dimensions"}]}]}]], "Input",
 CellChangeTimes->{{3.726878459109603*^9, 3.726878459873022*^9}, {
   3.726878532752891*^9, 3.726878564555032*^9}, {3.726878641479958*^9, 
   3.7268787520107927`*^9}, 3.7268809793159113`*^9, {3.726881038106029*^9, 
   3.726881046351543*^9}},ExpressionUUID->"dd7ef3cf-090b-4ff6-8fe7-\
b7d30d04c2da"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6", ",", "1200"}], "}"}]], "Output",
 CellChangeTimes->{
  3.726878752347848*^9, 3.726879233579974*^9, 3.7268792995090113`*^9, 
   3.726879759090548*^9, 3.726880654813586*^9, 3.726880783664433*^9, 
   3.726880849983646*^9, 3.726880911857603*^9, 3.7268811583248*^9, 
   3.726881318438793*^9, 3.726881585746284*^9, 3.726882684319557*^9, 
   3.72688284049352*^9, 3.726920632937888*^9, 3.726920731090765*^9, 
   3.7269207697709827`*^9, 3.7269208065705643`*^9, {3.7269210206103783`*^9, 
   3.7269210354995317`*^9}, 3.726921108469379*^9, {3.7269212163237877`*^9, 
   3.726921246979624*^9}, {3.726921309233362*^9, 3.726921338046712*^9}, 
   3.726921404665119*^9, {3.726921542116723*^9, 3.7269215635146914`*^9}, 
   3.726921601355221*^9, 3.726921640257742*^9, 3.7269216785868196`*^9, 
   3.7269217163041983`*^9, 3.726921777028652*^9, {3.7269218158460913`*^9, 
   3.7269218345629473`*^9}, {3.7269223136087637`*^9, 3.7269223322218523`*^9}, 
   3.726922657558386*^9, {3.726922688357641*^9, 3.72692271564642*^9}, 
   3.72692277127829*^9, 3.726922918567676*^9, {3.726923095854154*^9, 
   3.726923266970722*^9}, {3.72692361408706*^9, 3.726923641597666*^9}, {
   3.7269237003665257`*^9, 3.726923730595991*^9}, 3.726924355946393*^9, {
   3.726924393057931*^9, 3.726924430264824*^9}, 3.72692464600765*^9, {
   3.7269246810420856`*^9, 3.726924687688122*^9}, {3.726924749740437*^9, 
   3.7269247696316843`*^9}, {3.726924804502942*^9, 3.7269248117685957`*^9}, 
   3.726937410379918*^9, 3.726937828753458*^9, 3.726943872790615*^9, 
   3.726944306433671*^9, 3.726944372423606*^9, 3.726944609675536*^9, 
   3.726944670390945*^9, 3.727021509213323*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
    RowBox[{
    "make", " ", "first", " ", "210", " ", "timesteps", " ", "noise"}], "-", 
    RowBox[{"free", " ", "for", " ", "social", " ", 
     RowBox[{"(", 
      RowBox[{
      "only", " ", "introduce", " ", "social", " ", "behaviour", " ", "after",
        " ", "2010"}], ")"}]}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"noise", "[", 
     RowBox[{"[", 
      RowBox[{"6", ",", 
       RowBox[{"1", ";;", "210"}]}], "]"}], "]"}], "=", 
    RowBox[{"ConstantArray", "[", 
     RowBox[{"0", ",", "210"}], "]"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.726881482822727*^9, 3.7268815623477087`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"set", " ", "up", " ", "counter"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{"For", "[", 
   RowBox[{
    RowBox[{"i", "=", "1"}], ",", 
    RowBox[{"i", "\[LessEqual]", "tmax"}], ",", 
    RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
    RowBox[{"(*", " ", 
     RowBox[{"atmospheric", " ", "carbon"}], " ", "*)"}], 
    "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", 
        RowBox[{"1", ",", 
         RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "i"}], "]"}], "]"}], "+", 
       RowBox[{"f1", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"y", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "i"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
       "+", 
       RowBox[{"noise", "[", 
        RowBox[{"[", 
         RowBox[{"1", ",", "i"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"oceanic", " ", "carbon"}], " ", "*)"}], "\[IndentingNewLine]", 
     
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", 
        RowBox[{"2", ",", 
         RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "i"}], "]"}], "]"}], "+", 
       RowBox[{"f2", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"y", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "i"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
       "+", 
       RowBox[{"noise", "[", 
        RowBox[{"[", 
         RowBox[{"2", ",", "i"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"veg", " ", "carbon"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", 
        RowBox[{"3", ",", 
         RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "i"}], "]"}], "]"}], "+", 
       RowBox[{"f3", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"y", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "i"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
       "+", 
       RowBox[{"noise", "[", 
        RowBox[{"[", 
         RowBox[{"3", ",", "i"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{"soil", " ", "carbon"}], " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", 
        RowBox[{"4", ",", 
         RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", 
         RowBox[{"4", ",", "i"}], "]"}], "]"}], "+", 
       RowBox[{"f4", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"y", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "i"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
       "+", 
       RowBox[{"noise", "[", 
        RowBox[{"[", 
         RowBox[{"4", ",", "i"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "temp", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", 
        RowBox[{"5", ",", 
         RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", 
         RowBox[{"5", ",", "i"}], "]"}], "]"}], "+", 
       RowBox[{"f5", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"y", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "i"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
       "+", 
       RowBox[{"noise", "[", 
        RowBox[{"[", 
         RowBox[{"5", ",", "i"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", "social", " ", "*)"}], "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"y", "[", 
       RowBox[{"[", 
        RowBox[{"6", ",", 
         RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "=", 
      RowBox[{
       RowBox[{"y", "[", 
        RowBox[{"[", 
         RowBox[{"6", ",", "i"}], "]"}], "]"}], "+", 
       RowBox[{"f6", "[", 
        RowBox[{"Flatten", "[", 
         RowBox[{"{", 
          RowBox[{"i", ",", 
           RowBox[{"y", "[", 
            RowBox[{"[", 
             RowBox[{";;", ",", "i"}], "]"}], "]"}]}], "}"}], "]"}], "]"}], 
       "+", 
       RowBox[{"noise", "[", 
        RowBox[{"[", 
         RowBox[{"6", ",", "i"}], "]"}], "]"}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"(*", " ", 
      RowBox[{
      "make", " ", "sure", " ", "proportion", " ", "of", " ", "mitigators", 
       " ", "stay", " ", 
       RowBox[{"between", " ", "[", 
        RowBox[{"0", ",", "1"}], "]"}]}], " ", "*)"}], "\[IndentingNewLine]", 
     
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"y", "[", 
         RowBox[{"[", 
          RowBox[{"6", ",", 
           RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "\[LessEqual]", "0"}], 
       ",", 
       RowBox[{
        RowBox[{"y", "[", 
         RowBox[{"[", 
          RowBox[{"6", ",", 
           RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "=", "0"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"y", "[", 
         RowBox[{"[", 
          RowBox[{"6", ",", 
           RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "\[GreaterEqual]", "1"}], 
       ",", 
       RowBox[{
        RowBox[{"y", "[", 
         RowBox[{"[", 
          RowBox[{"6", ",", 
           RowBox[{"i", "+", "1"}]}], "]"}], "]"}], "=", "1"}]}], "]"}], 
     ";"}]}], "\[IndentingNewLine]", "]"}]}]], "Input",
 CellChangeTimes->{{3.726878118044044*^9, 3.726878163853684*^9}, {
   3.726878200061131*^9, 3.726878327522608*^9}, {3.72687875935244*^9, 
   3.726878968343718*^9}, {3.726879017415447*^9, 3.72687903718566*^9}, {
   3.72687976686094*^9, 3.726879917143553*^9}, {3.726880108121344*^9, 
   3.7268801418782597`*^9}, {3.726880186379306*^9, 3.7268801873734903`*^9}, {
   3.726880528833413*^9, 3.7268805363538713`*^9}, {3.726880611199198*^9, 
   3.726880632651886*^9}, {3.726880666195574*^9, 3.726880666748291*^9}, 
   3.726881118006247*^9, {3.726881327152196*^9, 
   3.726881335131508*^9}},ExpressionUUID->"ff3a9383-58a3-47cf-a3e8-\
5472be4723f2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"y", "//", "Dimensions"}]], "Input",
 CellChangeTimes->{{3.726882009159787*^9, 3.726882010930059*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"6", ",", "1201"}], "}"}]], "Output",
 CellChangeTimes->{
  3.72688201144436*^9, 3.7268826846410646`*^9, 3.7268828407964773`*^9, 
   3.726920633289443*^9, 3.726920731557021*^9, 3.7269207701364727`*^9, 
   3.72692080686038*^9, {3.726921020911911*^9, 3.726921035949704*^9}, 
   3.726921108770349*^9, {3.7269212167115183`*^9, 3.7269212473069267`*^9}, {
   3.72692130950699*^9, 3.7269213383979263`*^9}, 3.726921404968314*^9, {
   3.7269215426697407`*^9, 3.726921563987297*^9}, 3.726921601772648*^9, 
   3.726921640724485*^9, 3.726921678939617*^9, 3.726921716639388*^9, 
   3.726921777645541*^9, {3.726921816193318*^9, 3.726921834946919*^9}, {
   3.7269223139152412`*^9, 3.726922332706531*^9}, 3.7269226580168*^9, {
   3.726922688813609*^9, 3.726922716097506*^9}, 3.7269227717167673`*^9, 
   3.72692291934107*^9, {3.726923099566146*^9, 3.726923267361354*^9}, {
   3.726923614536373*^9, 3.726923641898273*^9}, {3.726923700697302*^9, 
   3.726923730987029*^9}, 3.726924356307941*^9, {3.726924393413473*^9, 
   3.726924430647215*^9}, 3.726924646387835*^9, {3.726924681386251*^9, 
   3.72692468802225*^9}, {3.72692475009064*^9, 3.7269247699620247`*^9}, {
   3.726924804809635*^9, 3.726924812090314*^9}, 3.7269374107818108`*^9, 
   3.72693782918923*^9, 3.7269438733744507`*^9, 3.72694430701385*^9, 
   3.7269443729045143`*^9, 3.72694461020695*^9, 3.726944670830185*^9, 
   3.727021509830315*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plots", "Section",
 CellChangeTimes->{{3.7268813434924517`*^9, 3.7268813476332483`*^9}}],

Cell[CellGroupData[{

Cell["Plots of state variables", "Subsection",
 CellChangeTimes->{{3.726686474929214*^9, 3.726686475544751*^9}, {
  3.726750576919424*^9, 3.726750584735074*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"emissions", " ", 
    RowBox[{"emissions", "[", "t", "]"}], "*", 
    RowBox[{"(", 
     RowBox[{"1", "-", "x"}], ")"}]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"emissionSeries", "=", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"emissions2", "[", 
         RowBox[{"i", "-", "1"}], "]"}], "*", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"y", "[", 
           RowBox[{"[", 
            RowBox[{"6", ",", "i"}], "]"}], "]"}]}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", 
         RowBox[{"tmax", "+", "1"}]}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"emissionPlot", "=", 
     RowBox[{"ListLinePlot", "[", 
      RowBox[{
       RowBox[{"Transpose", "[", 
        RowBox[{"{", 
         RowBox[{"tVals", ",", "emissionSeries"}], "}"}], "]"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"PlotRange", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"0", ",", "1200"}], "}"}], ",", "All"}], "}"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"FrameTicks", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"Automatic", ",", "None"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"timeTicks", "[", 
             RowBox[{"[", 
              RowBox[{"1", ";;", ";;", "2"}], "]"}], "]"}], ",", "None"}], 
           "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", 
       RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
       RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", 
       RowBox[{"FrameLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
           "\"\<\!\(\*SubscriptBox[\(CO\), \(\(2\)\(\\\ \)\)]\)emissions (gtC \
\!\(\*SuperscriptBox[\(yr\), \(-1\)]\))\>\"", ",", "None"}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"\"\<Year\>\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}],
     ";"}]}]}]], "Input",
 CellChangeTimes->{{3.726770205678012*^9, 3.726770311269271*^9}, 
   3.726773267410367*^9, {3.726774350865522*^9, 3.7267743538672647`*^9}, {
   3.726775278855281*^9, 3.726775282333496*^9}, {3.726853301877029*^9, 
   3.7268533019880037`*^9}, {3.7268819108951683`*^9, 3.726882088274637*^9}, {
   3.726882161790924*^9, 3.726882162094352*^9}, {3.726882192803917*^9, 
   3.726882194856049*^9}, 3.726882653130822*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", "social", " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"socPlot", "=", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"tVals", "[", 
          RowBox[{"[", 
           RowBox[{"210", ";;"}], "]"}], "]"}], ",", 
         RowBox[{"y", "[", 
          RowBox[{"[", 
           RowBox[{"6", ",", 
            RowBox[{"210", ";;"}]}], "]"}], "]"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1200"}], "}"}], ",", "All"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"FrameTicks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Automatic", ",", "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"timeTicks", "[", 
            RowBox[{"[", 
             RowBox[{"1", ";;", ";;", "2"}], "]"}], "]"}], ",", "None"}], 
          "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<Proportion mitigators\>\"", ",", "None"}], "}"}], ",", 
         
         RowBox[{"{", 
          RowBox[{"\"\<Year\>\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7268821748953457`*^9, 3.72688221886228*^9}, 
   3.7268826494532413`*^9, {3.726944280718293*^9, 3.726944293461576*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"carbon", " ", "in", " ", "atmosphere", " ", "in", " ", "ppmv"}], 
   " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"catPlot", "=", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"tVals", ",", 
         RowBox[{"y", "[", 
          RowBox[{"[", "1", "]"}], "]"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1200"}], "}"}], ",", "All"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"FrameTicks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Automatic", ",", "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"timeTicks", "[", 
            RowBox[{"[", 
             RowBox[{"1", ";;", ";;", "2"}], "]"}], "]"}], ",", "None"}], 
          "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
          "\"\<Atmospheric \!\(\*SubscriptBox[\(CO\), \(2\)]\) (ppmv)\>\"", 
           ",", "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Year\>\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7268821748953457`*^9, 3.72688221886228*^9}, {
   3.726882283873354*^9, 3.726882289075309*^9}, {3.726882613187357*^9, 
   3.726882614911047*^9}, 3.726882646826276*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{"temperature", " ", "change"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"tempPlot", "=", 
    RowBox[{"ListLinePlot", "[", 
     RowBox[{
      RowBox[{"Transpose", "[", 
       RowBox[{"{", 
        RowBox[{"tVals", ",", 
         RowBox[{"y", "[", 
          RowBox[{"[", "5", "]"}], "]"}]}], "}"}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1200"}], "}"}], ",", "All"}], "}"}]}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"FrameTicks", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"Automatic", ",", "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"timeTicks", "[", 
            RowBox[{"[", 
             RowBox[{"1", ";;", ";;", "2"}], "]"}], "]"}], ",", "None"}], 
          "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", 
      RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", 
      RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
      RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", 
      RowBox[{"FrameLabel", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"\"\<Temperature change (K)\>\"", ",", "None"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"\"\<Year\>\"", ",", "None"}], "}"}]}], "}"}]}]}], "]"}]}], 
   ";"}]}]], "Input",
 CellChangeTimes->{{3.7268821748953457`*^9, 3.72688221886228*^9}, {
   3.726882283873354*^9, 3.726882289075309*^9}, {3.726882325179201*^9, 
   3.726882341610628*^9}, {3.7268825875618258`*^9, 3.72688258835318*^9}, 
   3.7268826441236486`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell["Plot Grid", "Subsection",
 CellChangeTimes->{{3.7267637400298986`*^9, 3.7267637410772543`*^9}, {
  3.726773295127442*^9, 3.726773296974986*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"gridPlot", "=", 
  RowBox[{"Grid", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"emissionPlot", ",", "tempPlot"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"catPlot", ",", "socPlot"}], "}"}]}], "}"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.726763757460338*^9, 3.726763850635066*^9}, {
  3.726764062678399*^9, 3.726764063698473*^9}, {3.726764126233675*^9, 
  3.726764126933663*^9}, {3.726764161024803*^9, 3.7267641635342207`*^9}, {
  3.726764203539401*^9, 3.726764206590746*^9}, {3.726770342138959*^9, 
  3.726770380510445*^9}, {3.726882593309492*^9, 3.726882598925549*^9}}],

Cell[BoxData[
 TagBox[GridBox[{
    {
     GraphicsBox[{{}, {{}, {}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.006944444444444445], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJxdnHlczN/3x0e27JO1LCkqoShrKL2ENtGiCC2TkhY07dM+7dM+M/pU5ENZ
s6UI2QchJNlaCGNLCAkt1t/4Ou/H4/eZ+afH83Hf95577jn33HPv+75TX+tn
t06BxWKV9mCx/vxlfhOdsi591b5v/JdajQdtm76zbDbDLHx5VBcbaMqwIh6O
inSb5sAwG5I1ags+uTM8FHvzK9RKAhhWRvojL5ZfLMOj4T9qgFRXyLAaVq4p
vdCyneFxMMp32HHwMMMaGP+oK9rnLMNa6DNqu8vEmwxr48Nqk/nNDQxPwv2t
TWP2NTOsg9MPU3+u62B4CgpGTn2s0esBsR6SVt87+2Iow/rw3Rq6bed4hqfB
9n8KMzwds0f+0ZjhGRiz2mPeU2uGZ6L7VkVZDxmeheaGQ9+cNjI8G9Uqf1pk
2ABlq76eepjK8Bxs3fLnx/Bc8BuMwhyLGJ6HdSrPHUecZNgQS1YlGdReYdgI
+lsmKf9zn+H5GNFQ3bH8BcPG+KkcWDe4jWHgT2t3WLV/mQ9U5p3JEQ4iZi1A
cb1riLUqU74A2co9VgzUZcpNEO5YNPPWPKbcBK55VsPSLZnyhVhc3/rFchVT
vhCTZb3r48WUL4KS45yyyhCmfBE6ch9vTk5kyhej8Y/7ZTPli3FphNbynruY
clMUrbwxraKUKTdFZu6mwfESptwMQTJtF9xmys2w6o+6T5hycxj/zwGZcnNo
5v4WRn9nyi3Qr24X16hvHZVbwE8ncF3oT2KWJRpiTVaXttZTuSVQp2T97kUD
lS/BXp1nCzXrHlL5ErDjSgxcbzyiciuE1sXobjnXSOVWeKxjPe5eyWMqX4qF
caojBux+QuVLcbjufT+z3KdUvgypOS58LJZS+TIYLbga/vg8Mcsare90g8MN
nlG5Nfbk/OM34igxywarFvz0Lpv8/C/DBv1bPDxs9xDzbXAhp8rlg+qLvyyx
QdCCGavS8ohZtpjQkr9ce/BLqm+Lhzndl11JI+bbImuBr/nanq+ovi0Wttw1
+R1NzLJDe85co22dxLDD/gU7Z88JaKL6dnBp6TOt9h2xxA5Kuf4yC7ym+stR
saBBi/2UGMvBa4H6Ycdmqr8curlFoyzvEkuWQ7qAPfz1kjdU3x6bW0LZCVeI
YQ/T3Kd91Y3fUn17fF9g1vN8ObHEHsUtxb9XT3tH9R2wNnf4t46DxHDACJPo
L9maLVTfATdaXn3Q30EscUBU7tI31crvqf4K6Jkcf+ErJsYKvGgZ/USx/weq
vwJ5uQn1exKJJStgZfJnAIlZK9Ht/fJbT3kfqf5KlOWeuRbZRsxfiRmFSs/6
z2ql+iuREbLY5VEAMcsRr5eEPdp/hBiO+DN6vBZiviPy26UPTCd+ovqO+HJz
6PJhnsSsVbAuNK95sZMYq7A/JHLp0afE/FVQsCq5wR/dRvVXwUn9pZn1KmLW
ahxvH3FlTA4xVoNdtUSmITF/NbwLYy6cHvSZ6q9GRcgxwxQrYtYaqFq9PrUy
hRhrEKo+arbWVWL+GtxpX1b2ReEL1V+DSVVx+peNiVlOSCg8USyKJIYTnoS8
ncw5Rcx3goGV6v4p7Ux9J2xWt9P6Oe0r1XdGS3virpt+xHCGadUpta2HiPnO
2FH4/l+vN8QSZ3SF/OlgO9V3wXIrh7ye7sRwwWH1lGH3dxDzXdC746x4ZyOx
xAVuVa2D/FU6qL4rzhRqZBivIIYrhoY69h24mZjvik1W6cmNt4klrqhUl/Q4
2L+T6nMwruNzbJgFsRoHkVUTfpslEYOD2sI1kcMvE3M40AvN6nr5m5jPQYrV
ZZlFuv5yAQcv1P80SCzhwKhjkr/NCWIpB7l/wslnYpYbPhWKfd9P/Uby3WAZ
erX5zAZiuGGP1bd1qfuJOW74pT7lhWMTMd8Njh1unAnjv5N8Nxyt+ufxV1di
iRv677y+umIbsdQNnrLgLW4gZq3FBSt9B7fhP0j+WqiMW3d36nJirEVgR571
ryxizlrcqvrzI+avxSO7f3UfNPwi+WsR1DLr2qZAFv7KX4uIqTs62sK6/WXp
WsQF9NYO5Sv8ZZY7BMf9HL8ndf/Lau7I7KwTxGT0+MtwR/Y8nOqe3fMvc9yR
H130Jnlrr7/Md8fOi+yR/Qt7/+UCdxT1CLMU7lMk+e44YvYsfGhxH5LvjuOp
FgfzyvqSfA+cuVX6aPSZfiTfA5f+NHexP8n3wPXlcYaalQNIvgdqct5u2F89
kOR7oK7hzwAMIvke8Mt83FS/kU3yPfDpiNLvkZ+IpR4IvrN4hHOQEslfh862
MNkIEautQ8TQYlmPB5P8dfg187nr+F/EnHWIXTmcty52CMlfh55/1O0xlOSv
g2DrnwEilqxD/7NHJZP7DSP565D1p3uZxCxPDJb17ojScJLviRw16z5t2cTw
hLJJvPoM5REk3xPb3E/OCckn5ntibOI723JVZZLvicOjZQmhK7HEE3+ym/M7
iKWeuLZkdsoCKTFrPRxe7JFlzCokfz2ey6xl5kaM9fCTZTM3Cok56/Fj/6e7
S58T89cjdQHnVc24kSR//d98z51Ysh67/2Qvu4il69G67+qS2X1GkXwvGD61
zsjdRKzmBcFwWQP3iOGFe0vXsh3njCb5Xn/13U7M94Lv2aDNyj3GkHwvnPj8
8z7Pm1jiBYXJybIWiaVesP7T3AxVku9N+S6xmvff/o4fS/K9yX+JOd7433Zl
tBrJ98az/40XcYE31nvKfnuJJd5okVkn8R2x1Bv+f4ZDT53k+6BdW9ZiMLGa
z1//O00MH3puHMn3gWB77ZXj84j5Plgb9HLf6EDiAh+MZrupnS4mlvhARXvH
YDfWeJLvg5f9up3t50jM8kW1qPyB4Baxmi9y63n9Z9wlhi8anNRn3e2hQfJ9
0VPqqWhpTsz3hf6cGc9VNhEX+OLG7frqPQeJJb7Q237IgK2gSfJ9sfh+/Tg/
B2LWBvDOWH8cHEastgFqz3n6OtHE2ABtaXHZrm/EnA0IOl40doqCFsnfgBq3
E6sUZxMXbIB+QvEgTVtiyQactV2R4WpDLN2AaZ7P0yekEbM2YopKhsq9RmK1
jfigdYXtpjyB5G+Ef93LumWBxJyNOGE6pCY7j5i/EZp5OuLUA8QFG3F6/vEy
o8vEko0IjDZtqbtBLJW1N//5os0viFmb0CNvR+qIYdokfxMiv4uHHJlNjE2Y
VK0lnr2fmLMJ93rZtow7RMzfhFfDHpivrSEu2IQIVb2VWo+JJZsgYneUvZ81
keRvgsqNqf0cXYhZfrioV7Pt6WZiNT/8tC9RXdhBDD/MeNDXUEllEsn3Q+Dp
0TfDVhHz/WA9ovXizATiAj+8KlbR7VtBLPHDBLMxC3WfEkv90GvO8kYlhckk
n4sPLiILf11iNhc/L+meyrMgVuPi6qy7g/pmEetxkehRcWuqhBhcVOzv6Lb3
ArENF5k+3FuTZuhQf7n4t7ohVzeKmMvF8w93KgLPEfO5kB6+Ol31K7GQC7NH
czTtjHRJHy56mHwvf2tJXMIFFo14PCqJWMIF94u/xv53xDVceFk6VO56Qyzl
wqLnyL37pk35y61cvLv5sd2LRczyh1OPpynrVhGz/aHC3zR5USixmj+6veuy
+HWMWM8f5Qs0PYXPieGP4TduRp/Rn0r6++NCxzz+7URijj+iYlfPm/WMmOuP
Wpvtwl8KeqS/P6YHqw831CQW+uPdnnaVlAHEBf6otNjR7YcucYk/CiZHDgtz
IJb4Y4uTZ/jrKOIafyRIBvrsWk8s9Ufc8yVrnwQSt/ojqCNzUVgyMSsA5b7m
3TKOErMD8L7yxr3K68RqATC+L9Zoe0+sFwDXFZP3KwzXJ/0DcHRoX8nK6cQ2
Aag693zPPFNiTgB0R758bO9PzA1A0PuCCRoM8wPQ4ZBd8jaKWBiAspZtt9Za
EBcEwPPR/V5SH+KSAHRN/FZ1VEAsCUARbxcnM4O4JgAnh2ou0o8nlgbg7HcD
3x1ZxK0yfZJ3n/6ngZgViLnZvDnfbhGzA9Gr/8i6p6xppH8gqvgGj1dbE+sF
wq9gYfHiQGIEQnFTR68vfsQ2gag/csp9RzwxJxCD6j11xwYRcwNR4W70bn0k
MT8Q1R3SDcNTiIWBYM/8tdw5kbggEOsdT2pJ9xKXBCKz+Nzx2+nEkkA412yy
+ZhPXBMIbwfVEvYDYmkgXq00mdfwhbg1EMVDTU0CvxGzgpBTmzSht+p00j8I
C6bouE1YRqwWhJmVRdL764j1gvDv5DX8izbECMK0T5b2JtbENkGIPRsT6byC
mBOEoNnZRhtjiblBMDNamT81k5gfBPcPAe53A4mFsvZ1zt89v4W4IAgNCMx9
WkhcEgSN3GfvtTKIJUHo6SH4sJl5viYIqzTS9hpcI5bKnl++xDD/EnFrEB6v
UHd4dZKYFYzBt/5Rdytj9A+GQeCAyadKGf2DkbVpcMbNfxn9g8GKT5i0xIPR
Pxi7o7saI8HoH4xohx3bs0cw+gfDO7r71PgJjP7B0Pqe+NifxegfjImJpk3z
2xn7B6OvdeyCbkx5QTB8uVpxo+4z9g/G6QncV7FVjP2Dcc5udV1bKWP/YGRv
fHIn8wRj/2B43dJ4YpjK2D8YOV1T0jSFjP1DcHrkLShcJGaHYKS1lQmL8Se1
EGT8zGoJCGf8PwSba4rOlkxn/D8Eurmd3DcfmfkfglmiC7uGMcwJQZKwuO/i
Zmb+h8D2XO/AjpPM/A9B2lNn9wvJzPwPwb0l49jBzPwuCMGXmPxIh83M/A+B
uXFU9YyZzPwPwdbzHEP7H0z8C8Gu7PjkVweZ+BcC13MJvj8SmPgXgsNKN3wD
FZn4Fwor8dIRGm4Un9mhOHzft2xMGxP/QxFrMHLY7i1M/A+FucGZn5eVmPgf
im1+597e1qT1xiYUBqcibrlLmfUvFAuVZ9oJ1jDrXyiG+fj1q6ik9ZIfit+v
lxzltdL6LAyFT3zx6Qw1Zj0PRd3POacOKVI+UBKKdyXOWoqaTH4RisI8r7kd
SZTP1ITi+sPGTy8WMPlOKD7e7ixUdab8qjUU5yfaObvPY/I/Hs59FvVtWUn5
IpuHDp1zmhn2TD7Kg/YKrRETC8eR/jzsWNp1/8QJJj/mweRGEvfhKcqvbXio
Kf/dR7qPydd5+Hb13oC+I4m5PBRZ3V716AntB/g85LupSsf/oP2GkAfL7XO+
HXJj9jM8GO81uzaET/ulEh4OqXCnTJrI7K94uLTlxoFKW9qv1fDQZ2Xb4Sg2
7f+kPAwcaWxucoX2j608XB3p5KkRwew/w5BYfidYpScxOwxe+rYjVp+m/a5a
mKx/Wr/bnWg/rBeGerOXA2tjaH+NMGT3Kl354Drtp23C8E9N55WgF1TOCUOP
sF4Xv88l5oZh2uyyTcodzP49DP73em564kEsDEPqpJ2VH23pPKAgDOsHeG9/
OY+4JAzf3P0+B6bSeYMkDHM/jgkteErnMTVheHX83ImVJ+m8SRqGkeMLQm01
6PyoNQyqxQPneG5nzo/CkXzTvtmpieqzw3Gbay9pz6Tn1cJxH2PUzgfSeY1e
ONgpiyYFnmbOm8JxZeu16tfPqb5NODqVp6xxqGbOi8Jh9XFAkWEEtccNx7SJ
kbOevWbOF8PhpXYx1LmKzk+F4Zhu7ZZ4OI3OYwvC0WA/Raizn86rS8KxmP/R
Me8inU9LwvH5288DhbV0/l4TDpV3aRG2xXT+LQ2H/xrdC2cS6PnWcDTe07xq
mMGc70dgRaPfIT8NOs9nR+ButVHvVYdvk/4R2H4zcgLfYgvpH4Gcf0wEPSRx
pH8Etp1gvco9sJn0j8BM3hTT9phjpH8EKlfOeXREKYP0j/hrR+bHj8DumPGB
y9MrSf8IRK+sGB48nM7PCyJwzX/AKfVsOj8ukcnP3i3ecJ7OiyUR2PxVqMX7
TuffNRF496z2e29fqi+NwBa/Si3Ly/Q+ojUCyzLDDr5mylmR8BX2rmvn3iX9
I8H5GNNnzrFbpH8kamPt8x0Cj5P+kf/tP+TYRo45kXgVtuN328gbpH8kEi57
97LaTfL4kdDbqlS6/+U90j8S4thDqvpa9D6kIBJFCjmXEy+SP5RE4s7Ff55Y
DGXeB0TC8nTtb2ster9SE4n++m8Gvou+QPpHYo19WlbLSLJvayRO/3i/t+Y9
834kCkqqZgXq38k/2FE465f7WW8LnferReHZSKvzowLpPFsvSpa/2H7MSWbe
F8jq//p6mv2Cxt8mCsFX3uVXPyJ/5UThq/Ke8wMn0XhzoxA2WbXbgUzmfDwK
GQHKQbmn6LxaGIV+IcriPbo0fwuiEKQQZvc7jc6fS6JwW33jv15HmPPwKNQY
VPnznGj+1EThQdL5jsHqND7SKHQGBU2ov0nva1qj8NBxpVRQyrz/icac0+83
74i6Q/pH4+P9Ix8wvob0j8YricHm2MlkH71oZBwx2jpm9hXSPxrSIQfSm/JO
kP7R0P4a/+qWPo0vJxotpsMGvT9DzI2G6uRIJYcVzPuoaMyvHrrw9TF6HymM
xpg3Xv04ufR8QTQeFR5WzHtykPSP/q9/SeS4Ro6lctwqx6wYHM642TT1XRnp
HwPdfkWRpz/RfFSLwT/ezWb+xqWkf8x/6yMGpodm6ywbcor0j0HYjesPW4Jp
PDkx0Djekuz9lPyRGwO7XzsqZ/+4SfrLtSeU4wI5LpFjSQwu2zVYp6icJfvH
YNbkGWjrIntJYzBm/d4O/+c0P1pjoCN+tIXTxdifj5jCh1OH29P7N0U+DPXF
S3n+9H6SzYfXpe4Zcx/S+0dlPvwNGjJvXyP7qPExa2DxiQGzKJ5q8yG26erv
UEzv2/X4qPs1wPNrN/I/Az5SZo55eY55/we+LN6VGEf4EJvzoT1jt876M/R+
04aPuV8CDI99oPF05CO4mXWmGPQ8h4+9t17EmlvR+1IvPkRJV+eX6TDzjQ9l
H8kNcTnFEx4f1x5zl+xcTfOXz4eZSVfY6UKSJ+Aj9LHz9JhSGi8hHyy7T2qm
jaRvHh8hB4q2tVVSfwr4sFTVVcyxpflSxMfYvOJG8xSqX8JHVX7BoRuu1X+5
nI9dDsVNKVMkNH/5MA0csHW6AcXnSj46F86877aSuIaPMR3av+s6iev50Oh1
tjX14jmyLx8nT38b/fAmyWvmo1nBdKB+BOnTykf2z2Wf1JRovDr5eF7abYni
FCb+xeL0weDVxZOJFWORmrNYU+8o6cOOxYXmx+FjVUi+cize2S0o/ZlL/qEW
i7dqNjV9++wj+8ei/Oqevqar9pP9Y3HCpFvxvjTS1yAW/HZJ1M18Gg/EYv6I
LWueDaL4bC5rv2v04qPGJM9G1r5wovUJB3reMRYt2gb2YW20nnBi0X2IUkio
N9X3ioVmK2/GBynFb24szoUZhpxfxdg/Fm6Gb1O3bmfiTyz6Lwq1sB5E4yOI
heRt7MWWMnpeGAtFpdXSq08ovubFYovTo26zJpL+BbHI9hoy7NEp8v+iWNw6
tcd1UiizXsXitpeb7asgaq88Fnty47d5NdH8kMQiNMUuvwIUfypjwfr/vxo5
rpdjqRw3x8JO/dOFfGdaX1tjcdnG7p3CV7JnZywCzCZsLfwVS/aPw9aFzeeM
fCj+KsZhSv7dp24etH6w45DVpJHrmk+sHAcnfdMjI0eSfmpxGGQVHFyoS+un
dhymuZTlz7xM/qcXh2FFIacOVDPzPw4G2RZ9X4DiCeKg9+DHI9UrNF/N49An
9XI2Wqg/NrL+qQfONq8gdoyD5j+7yu4oUvucOEx0M9Xp0iL/9YpDX9XyfkG/
yJ7cOPR3nblhrCHZjxcHNZ+rR8u6qJwfhwPLfEa8WEvrsSAOZutr9l6woffr
wjgsM41WHTud1ve8OLC1VihOncjkp3HQHhd5eEN3ar8oDrte5poOHkfv30tk
+pru0zT/RVwu0y/yldreGuZ9fBxe6F9cumQA1a+Mw78Wtmq1E2j9r4mDx/Cj
w44foPW/Pg6bzDMj29n0flwahxU9VBoURpO/N8vkH+W9Kc+n/rfGwcWRNTB3
Ft1/6JT1p8t1edtW5v5DPFal73s5fSmxYjwWH3/LVvUhfdnx+OZzhr3DmtpT
jkeIadoKFwfKP9TiUTfSz+TqSspHteOx87DG+5Zv5A968ag+0vur1Ijyc4N4
eEwxMWwSM/c14nHigXQ6fxhj/3gMji8r3+9znewfj00HnPv2PkTzyzEeL/t5
LT1qxcT/eCjNqlV1NKL56BWP9M53CUErKB5w46E/5UiZC+OvvHgU57W9mpbC
5F/xSK6ozRF00ngK4jG6/kxSay7ZSxgPswtFy4XXSN+8eBTO1V/yeDZxQTx+
cSUPe3Bof1MUj5NRVakXXZh8Tda/pKa6J/dp/pTHg/X/fxI5rpTjmnjsHRHQ
eWg2rTf1cuXSeAwq25W3xOs82T8eQ8JqNH8q0nxpjUe2To3V7mpaHzrjEbm3
PebaUOb+TgK4e04lC1/R+qmY8N/22XKsLMdqCRh4McPr9L4jZP8EtK1+ojQh
toTsL/e8QQKWZUeujtOi/AQJUMlea9k1j+K7udzzNgl4wJv3+rYCY3+5ck4C
lMPZkW8vUHz1SkBL1e93h7i0X+ImoPv7iScGC8k/eQmYfDhsk9EHks+Xa08g
x0I5zpPjAjkuSkDSVd6acb+vkv0TsMQ8PXZBJK2P5XLPS+S4Uo5rZKxRFDar
itbP+gQc2yIK6cXcB5Im4N9raYv0rGm+NSeg3zOtjTM6KL62JiDB0MM29Q75
e2cCxP7H3Qr7M/d/EhHf/MF5GDPfFRPh83pymZMRlbMTcXJZtyccMfm7ciJm
Fj3ePeYrja9aIqoHPMhQtWHmfyICEiq4OfdpPuklYriGxc8R8yheGySifLLi
+MtjyT+RiIzogW2OfWi9N0/E4g/WU9i1FA9sEpGTv+pywzrqj2Mi5p2sUSjN
pHjGSUTffh8O3DGk8fBKxLS5mll1b2j+cRMR3VS6XieK5icvEWPG8oxcdOh+
Bj8RMaHaetPFCn9ZkAi/yHn/KO78TfM/EZOrTzgNzKbzjLxEONmajF40ku5z
FCTixmjNk74iOp8pSsSMMa++6bhReUkisi45YvYxOq8pT4Rd5+cGPz7Fe0ki
0h0KCh4y+XllIir9RVqLxjHnGYlYGFR1pSSV9iP1iWgaPffw89c0XtJE2Gyc
dk9Hic4bmhP/6z+tctyZCK1eMfZl/tvI/kn/LVeUY3YSNvUKt6meQ/mEchJe
Ks9/0msD5S9qSbhccvSs1ieSr52EpOl9C08mUHzRS8IlB7cHmc7M+i/XPuTY
XI5tktCwXrH7SFB8ckyChaeT3b9HK8j+cs97yTFXjnlJ+L68p90vT+a+ZxJc
7zw/3teC5o8gCetU98RMWkD+LEzCvHlpK18eJf/LS8Jv3trpTiOIC5LwqHJR
TSZzv60oCWeDxjTdMKfzsZIk1C/Exc2/6L5QeRJsTvh61n8iliTh/JGxPfYv
JH+pTMKHcTPebqwj/6tJws+Tpr4X3em+U30SfuT0f2oS/JPsnwS/L3sWhreT
fzcnQSfO9eFUXepfaxK6HYpr5b6mfKIzCUq/Bh+IecTcf0tGe5TmgyO1NL8V
k/HhfhP38BaSx07GugPN1de2kD7KyXD2PhS8/B5zXywZtw6r7vFcQvpoJ0Nr
ZtCEIxnMeUkyTq+dVakwns4PDZKhmnSw2+Jg5vwwGb1H9hOY/qLnzWXtW80p
nN9I9rBJ/q/9HJPR0tfN7cQGKuckw8lo1+4Ve2g+eSXj8eaOlFeWxNxkbMsx
THobTvGCJ5OXw1MZW8vcr0zGzTsf1R0cKH8UJMN0kGbdyFHkb8Jk5AXbD679
TPMtLxkDaxuPTQtkzueSEdgSwFKop/lalIx47aPNefMp3y5JRs2s2caNz6n9
8mT8I93tM0FE5yWSZNR6TTrusYbie2UyfC7MDL9jQvlPTTIM2R9tnZQpf6hP
xnXx6s+KbRR/pcngfktSOO5E9mxORt87Y5bmBNL4tiaj31nVcQW/Kd51JmPt
Yn55t2cUr1gCjNqac773bipXFMCm2rXqJnN/kC2ARXfXKoN2sq+yAFadtb/v
uJA91QQY8XJE0Pww8jdtAQ4O2SDav5X8R08AXs36jx5HFP62byDAsE2Pd61Q
JH+HAGGbHsd3207+bi6A86+5xxw/U7y0ESDm1Zf8FQ+pf44CaHGVFWYMpP5z
BLju9vT+wCDyfy8BJNWBwjYTJv8XwMt4vtH+5Uz+J0DDXJ8hPfYy589/ym1q
b8+kcoEAj65bB0d8pfNPoYDGiX55AtgVFN+qeE7jXyBA++27cxd+ovWtSIDW
GW91Fowh/yqR1bdvOn8ogeZXuQCJ206sUs9kzu8EiHVdu12ti8azUtb/Ira+
QQjpWyPA9u4X98W9o/leL4DD4sfGfQYx9yll7HB1Wjc7mj/NAiS1Fbi7tzHz
X4DVkvYeuzJpv9spgMuW8/M/T6LzNFbKf/VTlGN2CoxnZT6fdI7yT+UUKNTe
UR+3lfxTLQX/igP118bQ+qUtV19Pjg1S0HZm5ajxTcz5oVy5eQoaKnfzHAxo
vbBJQWHR7FcDhhE7pqDr4JemEiuaj5wUOBf3Xji5i87rvVKwpflYr9mnaL5z
U/Dw88uY2dtpP8BLwSsVZ86GMdfI/nLyBSnIWXLhqO9TWs+EKRgR4Fs+XIfO
//JSoO18/FL1hEtk/xS4PL329molM/9TkOoU7e1dQflXSQr2+8Tq77Sn/pXL
yZOk4M3EtJaWbpQ/V8qV18hxfQpSspq9zdeeJPun4JT/+grhC+b8JwUPwhVc
28WUD7em4Pi4Qb82r6D40JkCrZfa4qAW5v55KnadvnR/6Enqr2Iqxl43vFT2
mPyFnQqe+7P5qeYUT5VTUdW7O/emDz2vlopVJq1HDwylfEA7Fb0sXEdbmVI+
qZeK50sq9pnV0H7AIBVG5xXTL1Yw3wukYuKySuni79Q/81TcHzzX5ssQijc2
qVhUWi6YGkjrjWMqGuIyDx2/Qv3npMKu/6c6Iw8m/qdC3JRQGsRm3jelIvty
dX+7nXTfl5eK2MZ1r98y6xM/FS8iY0Y+0GLmfyr4Q9ac+rGA9pPCVNTaWguM
rtB+IS8VfVZdORjJnB8UpP7XPkVyXJKK0lTz/ttX0HpQLtN37/Opc+aQvSVy
z1emYsqZjWd0HZj8LxWZ466/SFtP9qhPhXd10Or8RaS/NBW6b73fO7lQvG5O
xeZppSf3TaD42ZqKE3023huURPG2MxWmS4rd67PofjErDTd7vjhbUKbwlxXT
4DJ48tiD76mcnYa62z5TjCyIldNQ6XNGZdlQel4tDVN9tgzOrCV52mngTb/f
pbWK4pdeGj5ZKU3rek3xziANHJ0VMcrM+QjSkDFH613SR8pPzNPwroMXecaS
if9pmO5+uv+3u2QvxzQ8ULRU0g2l9jlpuB7m6GG5iNYbrzSMup7fQ62N4iU3
DRWKT29qthLz0hB8u2LexO40Hvw0XL7iVX66H42fIA2mj74r8VaRPwrTID4o
MVrsS8/npcFCRWd+1xpqryANfRb6dU1i8peiNJQoTS8+EVFF8z8Nez6f+nxp
PK0n5Wm48uX+rI3PyR8kafigMOhW1STyv8o01MTXsyYeony7RiZ/aGSf9NW0
n6xPQ3fLgMVl2hQPpWlIWjk0/3AsjV9zGq7OnH1ilhaz/qfB0sGEF92P5k9n
Gu4VqaXYl9D4sdJRsbssqimSxlsxHQtuqPeNMSP92en4uiFwys2jlN8qpyNJ
rfHAdWNm/U9HVM/cZ+/iaDy00+Gwf5ljjTXV10vH9e4GvcO/UH8M0mGooTQ4
ezHzfUE67BvXn3ibSfXN06G0zCLQaA/pY5OOmD3KryImUjxwTMfE9MPuwf8y
9pe1b12/UHsR9d8rHQdnWdwNjCF/5aYjf7jT9rK99DwvHZ9+ersoCynf4Kdj
5ZbSFbciyX8E6bAQ7B19TULxQpiOLcHRQRo7qP28dPiju+mTaIo3Bek0jvQr
kuOSdEzS7vVtGpfiY3k6aoe7bH3ei+KJJB2FbW8L41XIPyrTkd140CJkIeUP
NelYPoM/MT+a4mV9Okx/7i+3iKD9szQdnMi2yLz2y2T/dGibf/NdHU/5Zqts
/Pov32Q8l+J1Zzpmbt4a7dHAxP8M2Pz0zC49Q/mCYgaaE3e8vPSdxp+dgfbW
XfqczWRv5QwYJXbMvGfMfK+RgZsToyt/upK9tTNg/naKyxUb8me9DCi+3qVb
OIHmu0EGogy8P898xHzvk4EmXw/jNBeSb56BKZeco7cmULlNBnreevT4YwPF
c8cMdD06nzCmmfyJk4EPTi3bEgU0/7wyMNd0ofq3PNofcDOgHbjP+N5YZv3P
QEDG+yzXIpp//Ayc2889tnIR5deCDHQUXx3s/Yw5/8/AnXWKnM311H5eBt6F
ZrpNHEr5R0GGnP3luESOy+VYIseVclyTga+2vUy2z2Pyf9n4leb++NCP8g9p
BqauPxBkdo3etzRnoCqsj10T6DywVa69zgzUnlJxcXrBfH+Yiemmx2fM2cC8
/8nEc8tjYZl+zH2ITLS1ai3uDKPzZeVMpOsOu9H7A42/WiZKBb7nAquZ93+Z
/5Wnl4lBy5ZedFxG+YCBXDnk2DwT8dvPRm/WoPG3yYRli+Zk/UTKrx3lnudk
QmG8TkX/5D1kf7lyrhzzMjFgybJpKcx5Mz8T3aKEOj4WJE+QiSGLVIOGWJK+
Qrn6eXJcIMdFmbgQMOBC2gNm/5eJ1zolKqMe0XiXZ0I0JPnL8e4Xaf5nYmiW
quk9LSqvzAR/Ztl6l6Vkj5pMOI3/Hs1VZNb/TKydEjZ4F+MP0kwUG3RZD7lI
62tzJvZ3U6/VG0XxrjUTj18GtvFnMOt/Jj6mo9+4cfQ9ESsLGYrNnQm2dD9J
MQs/u/ss+/cTzXd2FtSvd5h25lF7ylk4YhbrvHEgxVe1LEzYUrVvfxixdhY0
vL90iKPoPpNeFhzm2vyTaUnfHxlk4UxJw0T311SOLFR+f/pNvZX6Z56FgYEl
1mfOUv9sshCRamNyqBt93+SYhRtaPi1X2pnvoWTls9Njm87Q/SyvLEwZ+mDG
pTb63oibhdamafN31tP3SrwsPJg+eMkaDbrfxc/C9qZZ+1SKqL4gC34V9RPf
jKD6wix8/X0wq2IDjU9eFr4fNBPfHKjwlwuyYDqlztD9G3P+l4WTi42Wvyhl
7mtlocx1VcT5A8z+Lwt3e7os6Luaef8jq59qpGl1neZTZRZmK+v7iTqY/V8W
9l8xv10dQ+NTn4XawTmjtjwl/aVZGN02vlTrDY1vs6x9P4Xg6h2kT2sWVtte
TeUb0f22ziwcmtRolh9F9+FYQjx7M/ySozaV9xAi17baLyWHyhWF2O/p/PzX
O7pP11+I7gHDwt/HErOFCC58WbPHlr6HGiqEybQiqcd1up+nLMRsxxlJMUOI
RwtxacLcCu8i+n5ITQidmrM2Pd/R9z8aQnybUJCnNZvKtYVoOKk9wdqQ7g/q
CLGp+9gv09aO+ct6Qhww0c2b3IOenyHjuUafTLOJDYQ4VXBuQ8wC+l7KUCY/
/vjwhC90vxBCNOa+LEnfQuWLhPAcvTPlSj6VmwtxNs38U4oO3U+0EiJ0/ZXN
uv1JHxshNk5MOFs1gr4nsxeiVfBxPXg0Po5CNE3Rnm05msbTSYiX6lv3c31o
vDlC6Ps8EV89QN+zeQjhcV2gVzWGyr2E2DHudDezWPLHDULcKX3xTchm/FuI
0mXsoBcR9P1dkBAFk0U5F56TPJ4QD0IvO1taU3uRQmSa3Onhynz/xxfC8JL1
N81G8p8EIbD2S1lwMM0XgRDnCw0ONk2n9tOFMB6U1Rz2gJkfQkQ11NfXZpC8
bCF8+TOuNO6g7wnzhAhZuiN17W1qb5tMv94pb/n55J8FQtzt7fDpsjf1Z7cQ
2zx7LHRzpvpFQkTPq/H1Z5G8Q0I4qjm8r8qi50uEcDl8+t8lEsrnyoQINOPt
NLWh+VcuhOK6jGVNMxX+8lkhBLr1Z4v6MeevQhj49r1xrJLyzwohpp3NWZ9Z
QvlppRBt/sP3+DHtVwmxL83/saiT8sMaIYqWqOdOfUL50n0heqX3OGo3h7he
iO/cy68PltHzjULYeZg15o2n/Ekq6+9840MPU+j5l0JcK06yjk+j55uFaP89
ddaYSZR/tMj6fy9+79tayrdahbjewA/tuEHr1xchDh5bo5XgQPlgpxB5zwqO
baih9e6HEMN+pg/v/535fl2EQW7+nnVrKD71ECHJeM/X6D00Hooi3Gq7uyLO
h/Kv/iJInj88lmzBrA8irGQ9XeQ8mOLTUBHONJg17jpM46UsQkzXon5bKymf
Gy3CJJdt37o0SL6aCGYlA/1wk/TREKH9WI+XwU2kv7YIW+21I3/4kb10RDDK
zujb8ZnZX4oQv8v3qE42xc8ZIqzpZ5BdIKX6BiI0Xk9dLl5O9jcUwYR//u6z
meTvEEHQXD6I85P8aZEIpjrG02rG0/pkLoI7/3yfgnCKt1ay8bF/axxiQv5l
I8Lu/Oxwr/XUH3sRFtvrX647yZxXiGCe9XySxVnqj5MIvEtPdp0eS/kFR4Tt
SxJjrnXSeHqIIG3/bqLylvrrJcKOJv6o0r40nhtEGKcssk7NJnlcEewMLT1W
nqP9SZAI+9Mcgy6+pvZ4ItRpvDm0eA6tz5Ei9No6yjNNk9n/imAZ0F1r2QjS
N0EEjnWV55hn1L5Aps+Fdw90XEmfdBE8T60qW/CR7CEUQW2DY4DRIPLfbBG6
Ni+14y9k3peL4JzoqneJef++TfS3XeZXIEL4hoMmr9xT/5bvlisvEsF73sbX
JwvJfw6JoHjgpLhlJ52/lMg9XybC3W1tl98uYO7biFCfYmvzfTitt2dFuLPQ
69LYYub/GYiw79X+g+L71L8KEYYc8vq+aRVzHiuCTuZjyfU1dJ5YJcINizET
9R4y961FqLh7c0JOL/KP+yI0HFZyNntC9qsXoUrPfmqaCo13owibhm7zOi1i
1m8RQvL6HrAeQPHxpQiH7r29e8CL4m2zzN/7reDWSYhbRDgysX9poyVzn12E
y/HrRxdkEX+R1c90UOo9ndaTTtl8mrkmaTiX4v8PETKtttb7dlI8ZYlROzRn
jTCXWf/FeD/76na9WcSKYphrfOIdGEf5Un8x7L/kHovJpvnCFmPT7X/4J6QU
z4eKMeR73hy/15QvKYtR0Wul4NQg0ne0GA4Gg0eUTCZ/U5M9vy3E32QRjY+G
GKp708OuMfmPthhX5qx4Y3qOWEeMnCU23vdB7emJ8To/Xl1wltqbIcbPeY+7
hivTfDEQwzBj68h7X2n+GYpxcES4R74J8/82xBin6CJJbSR/XSTGyX9VH3rP
ovlkLobyi84b3+5R/6zEyJihOL4P038bMbZ+VU/4fJTml70Yt8OTOoy3U31H
MfI317ErF5M/OYlxsXjIgRdH6P0SRwxbq2Y25yqdF3mI0cf40pwzt+l83EtM
dqLfBjnmyvTpo3WgNoDehwaJcXeUj8eM98z7DjGeedQf6O9F/h8pxtGiz6Zf
FjL/X0MMzdrpxWfGESeI4eJ+W09/JfVfIMZ1hZOvLg2k8U8XQ7r9vWOrGo2H
UAzt85V9howi/80WY2j3I/zx9sR5Yiy5Y85tnUz+tE1mP0+rbvb3iAvEuKR7
bEWZM/FuMdLvKB5gSYiLxHh64o3euYvkf4fE2J75+msIm/KDEtl4G34w1D1C
418mRtPoW37DDOj5cjHWqVb30TWj/cNZMb5MandVLqX6EjH2zW1OettPCf8H
kMc3aw==
          "]]}}, {}, {}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"\\!\\(\\*SubscriptBox[\\(CO\\), \\(\\(2\\)\\(\\\\ \
\\)\\)]\\)emissions (gtC \\!\\(\\*SuperscriptBox[\\(yr\\), \\(-1\\)]\\))\"", 
          TraditionalForm], None}, {
         FormBox["\"Year\"", TraditionalForm], None}},
      FrameTicks->{{Automatic, None}, {{{0, 
           FormBox["1800", TraditionalForm]}, {200, 
           FormBox["2000", TraditionalForm]}, {400, 
           FormBox["2200", TraditionalForm]}, {600, 
           FormBox["2400", TraditionalForm]}, {800, 
           FormBox["2600", TraditionalForm]}, {1000, 
           FormBox["2800", TraditionalForm]}, {1200, 
           FormBox["3000", TraditionalForm]}}, None}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      ImageSize->400,
      LabelStyle->14,
      Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotRange->{{0, 1200}, {0, 19.77820816895505}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {
         Scaled[0.02], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{}, {{}, {}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.006944444444444445], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJxt23lcTV0bN/BzG5OhImSIyFDGzFHqZ04ZIpIGmud5njsNp07zOYcoQogy
1m0qhCQkUxSSqSgiQ2TI/PZ+nuu6/3g/7/PP8/neu3WuvfZvrXX22vsYYeu1
2qGTQCD4t4tA8H//////v1b9/+c/YHtXtScHdCZd+B/l8L3LuzKXtwvJiqge
8H7PJ1MTsjK2Xeh9/tt9K7IKUBeRfvaCPXkoAk/cahrY7kpWw83nd+ZcPeVN
HgmzETmH9QX+5FHI221plWsURB6DceIXAzenhZI1EL3jZaeDpRHkcTjRPtVU
4iEkT8COC2XRC95GkyfBtbbvg3nmsWQt7PqU9eHOyTjyFDwd+OJY1m8ReSqu
/WunlKaVQJ6GIIeo4qblYvJ0DG5VH99nbSJ5Bko6ra7YsyiJPBMJo0qtHYYn
k2fhdeslBe3nbG2Ezq0arJKWQp6NDOWm/YPUU8lz8Hf/66H2u9k6kEVLVCf3
SCPrQi4yuuWCOXsuDFbaz3LawtaDVqXh3KgStj6WJAwY43qTDVj/07Zbco0s
BAytfh2z/pePz8PrNZdzlon4+DyIbhX3qVzEx+dDtdRKa1UbnZ9wPnZ3txho
mcbnuwAjx1wd6DiQjy/Av/5P9Fv+6+9CTP2xr97pC10P4UJ02R822syIr88i
SKMOFs+S0vUULsK3bbv8oq/y9V6MOW3rBxW8pzyEi7Hv0rdBs7tzPkuABTYb
tihRfsIluKMyZYhun3g6boCl8f0P7vhN+QsNsE3+l/OEeh4fS9G5xH3nulMx
dHwp+vol26YIeTwZ4pNij+IPujTehIaYXh874HI1j0cjhPa4VNTWM4yOGyFu
UP8lrcOD6fgyyGymRaX3DqDjy3DA7cOGt3d96PhyfHmlKFf62J2OL8fMo/Er
v5Q40PEVyM4+OuVrgiUdX4H773V3Hzm/lI6vhPbDMw0DVSf8b14LVyJ1VVff
wblraJ4bI9SsMdh8vt3/DGMYFjZsrN7kTn9vjMQfUVsL1P3+51JjOHgkHX40
KZjar8KM9+e6n3KLoParsHO05YA5HtHUfhVeb1L02TE3jtqvQmfh4PcKYxOo
/WrIW/nsytBMovar8elba8SERanUfjUK16vHvdSVUPvVqBhz3OXkCym1N8G9
Hz/if2zZRO1N4DHpR9gh0wxqb4JrR+rGlozcSu1NMP94Zt2wn5nUfg2WTF0Y
U/5sG7VfgzZT1GRXZVP7NUiZ/sh3y82d1H4NmuyuJqx0y6H2a/FhxeDLdwJ2
U/u16LaoqJtB/B5qvxbmG6Ccn72X2q/FPCVXv1fFudTeFCppB3x/1u2j9qYw
Hf1q6sNOedTeFC93Ly0M0Mqn9qZouzCx8rLdAWq/DptWWhiezz5I7dfBaoS4
xeTRIWq/Dg/FszaGDT9C7dchtU8XE02Xo9TeDKvvbAxYXVxA7c3gndxSEhBf
SO3NkHHbK81/2r/U3gwzdXb1U3tBFqzH2R3xxb4Zx6j9euxMmfbJ0fA4tV+P
DaLn+t/+OUHt12PsNLkJw0rIAnMsUpi9/H7wSWpvjuWrPy0erH2K2ptj4IfF
lY3fyaXmMBzkt0XrfBG1t8CBfWYh7XHF1N4CT21frpy14jS1t0DPDe7dmged
ofYWqH/yNLNrM1lgicLTPfolF5+l9pZ4kH5S4pdcQu0t0Ue/dO4Z63PU3hJ3
mjVNzbXPU3sreOUPHLOy7wVqbwV5pZs9Nr8nC60woOjWTJljKbW3wv77b17+
vk8WbMCWhpWPkgwuUvsNaBrT2jDzLFm4AcekCVV/J5VR+w04WiSKe7GXLNgI
ufYvz58NukTtN+LaO4faTxKycCO2+laaDe5RTu03ItLFbuOaGLLAGr3idr7f
+YusZo2Tk78rtAddps+zxouahmqrz2Rra5inZq665XOFPt8ajX4KeUtayTnW
aD5U2X7V6yrVs0a0bqnP8lZyvTW+Ppi14L5PBdW3Qf6+g7nWn8lqNggbubf6
TdA1qm8DR80d/fx+ka1t0DDt5ZFv0ZVU3wZT6yM+Bspdp/o2eHjt69QP6eRS
G7w6v+7GBpUbVN8GRyx+Dy3fTRbY4plyeKLqhJtU3xbaRTFhLkVk2GKb7Tmb
/QtuUX1bbOl6uuBuFVloi4NWV5+83XCb6tuiXOdCTI8P5FJbWOgf/6Mwr4rq
2+JB0PiP8SlkgR1+Wsg+L6sjq9lBaYDLrLPj7lB9O2QWVd4eEUm2tsOG72sO
VdSQhXao3TLUunXSXapvhyWZ21/cTSGX2kHnUe743Pfkejv0uFlQIltTTfXt
UbV9tkbFebKaPRo2RUW4TKyh+vZ4vNXv6NYcsrU97BeHvfFSuUf17bG72aC1
ZwY5xx5t1a/WxQy4T/Xt4Tf5zb2X2eR6e0RPjAk21HhA9R2QPW/as7PFZDUH
6AcUeCxZUUv1HaBVZh36rZls7YDc8N4hNeKHVN8B18+0j2iaWEf1HXDmanXG
pFpyqQP25F6PPJHwiOo74Kril0khuo+pviP2zF9dEvGVrOaIcdPzBpedfEL1
HTHii9G0RaFPqb4jppaM/dll4TOq74ia/RELonrUU31H6N/vo7DVj1zqiIDJ
QXPV68n1jph2prZYsLKB6jvhyuQmsUIpWc0JOT2HBUyd9pzqO2HreLeTK/LJ
1k74aup01Gj4C6rvBJH60qK+meQcJ1S6n36V1reR6juhvvfct4fTyPVOOJU+
uN68VxPVd8abiPEZ25PJas74VtnSw6fXS6rvjE639ZMep5GtnbFa17byad9X
VN8ZgrYhv4MyyTnO0A+d+DJveDPVd8axlL2vPfLJ9c64N+WQyrWpr6m+Cx45
WeoWnyeruWB6Q93T2cveUH0XSLt/kN/4iGztgkiVM0dnurdQfRe80Xn34OYf
co4LbDolv5q86S3Vd8HwSbnnHTXfUX0XdJqt0xR6kSxwRa7m/MN+Fu+pvisu
GocYrftGhiv2r7zzc1zGB6rviq7XXRNCBtM+SeiKa2OFAavcyDmuWOGY92bw
OXKpK4yd1wTdUfhI9V0xpsb+i68dWeCGk77HmrsXk9XcMPDHztxtvT9RfTd4
hd+MnW9PtnbDiW2vg5+eJQvd8Mz0mLujchvVd0Nrin11nQe51A3jho1smlhB
rnfDiyknhm5Q/0z13XHhj5V/QBRZzR15rw/ohz0mwx1lw/7UbJzzheq7Q9/l
UV23LLLQHZ9XqA9PbSfnuOPT3QcjH5h9pfruWHE52L3+NLneHaFPex/KHPKN
6nug2PzP08YIspoHFuzq3+tqPRkeOHl74lfDhe1U3wMnvpbq+OSThR5Q0x/X
06D3d6rvAavRBeHlvuRSDyx6ZT2sppZc74Fteyq6uej/oPqe+KcuX9FrP1nN
E4ItmjMf9f5J9T3xum3KhyMBZGtP6B1/rNrwhCz0RPqf5RmSxb+ofodb/s3a
X0Au9URdDz971UG/qb4nqkSjLzbFkAVeeHvI/aXSO7KaF3Lq5izZse4P1ffC
3nHXQxPLyNZe6Hw/p/DNxL9U3wv+24xmF2eRc7xwNOTZ0p+dBPhffS+ox3oG
GM8m13tBM3j1nideZIE3zkz+Mn3HfrKiN/5eq85IfkJW80biqxD1POV//mct
b7inWq1sMSLDG1NKl/ayjCUbe+PyvdoX7WfI1t64fv39vqJPZG9vpLiHX9s3
rtP/LPRGj3TLXldtyRJvCOfvGqi6nZzjjcYJXU/nVZMLvfGk6Mljl16dqX/e
aJ7Y86f5InKVN/SWXHoeFkmu98bDRF/te0XkVm/MWNTV3uIjWeCDc95nryiN
70L994H9hl3iRnuymg9GV1vrPdpJ1vLB0fW9Gz7WkuEDQQ9Vi3H9ulL/fXD4
x6KK2OVkax/M++k4pbOY7O2Dy56qgqNlZKEP9v+z2D7pN1niA9dLkqmbtbtR
/32QODRn6k0/cqEPHuT1Dx1ZQC71wc4u3yO2vCFX+aBpzYPnE8d0p/77ICxb
TfOdDbm1oz+5q3aV7SALfBFsteLngYdkRV/Uqobc2N1fjvrvizanY2cKV5G1
fNFrdID8/VQyfHHO76x9/0qysS+6De7v4NetB/XfF3+Cjbe1zid7++JBqvyf
xCiy0BdDojZfX1hClvhizw1dj4HfyTkdx/tEmf2eIU/998XIc1GfH/uSS32x
zDTswZkCcpUv1t3M+pL1llzvi+uHPjb6a/ak/vti0c6cC/McyQI/GHkOLf6z
h6zoh/GbH5w/94ys5ofZi4b28h/ai/rvh1eTZoaNX0+GH34fvn36SwbZ2A9Z
/vrZ9+6Srf1w79SVoIsKvan/fngxMCy5aBlZ6Iecr9NMDyWSJX7QuWOSn3mF
nOOH9gVaP8I796H+++Fun7mtxiCX+uFQkEGfQRHkKj9cCTzqdfU0ud4Pr+16
Flp8Jbf64ZO8Z6fnUxWo//5wVlvRZYMXWdEf08WP51w/RFbzR1WLos2kZrKW
P1Q8n59b0leR+u+PJyZzLYO0yMb+2N67KmPXCrK1Pzz79TQ+50729sfr869a
biWRhf54d2bCwNp8ssQfzWPkah9cIef4Q+9i+dGrjeRCf5SN7Vp+sJMS9d8f
PRpcy6PUyFX+GHb4oO08PXK9P2YuP2b3wYLc6o+mG8oz00LIggBsvbHrzeCt
ZMUATGl++kl6gqwWAKfx8l0/3iFrBaB73z8jZn4gIwARq1OUrHr1pf4HQPLz
aoWlJtk6AO81y55PXkz2DsDL0eWFVbZkYQBcrL/snxdFlgRg+uSgbRHbyTkB
MD9TkB9bRC4MQNWA3wVrq8mlAaiVO6bz/j25KgAhEoUhy+X7Uf8D8O9w02yv
0eTWAEw0snReB7IgEDsbb6T9NScrBqLC32mUawBZLRDe6rcv70wnawXC3XD8
wKwDZATCZqRe5dpLZONALJ+/7c6Nx2TrQOSdLhvy7QvZOxCvRL1r7/dRpv4H
4ureREOPsWRJIF48f4RT+uScjvpXlz4+so5cGAjXHqVPTb3IpYEQVdhPOhlP
rgpE47gZjed3kOsDobR+bbbXCXJrIPYvXDS3tJIsCMKOTrtEBfVkxSAcCu60
YspXsloQllxc812vZ3/qfxDu1cyMvz+cjCDUCocnf5tGNg7CxTz5XTuXkK2D
UGZ3fVyZOdk7CO0DXr228yALO+o/2eceHUWWBOH1A5XkgVJyThD6zNv+ZNge
cmEQwla9+kd6jFwahOhfCZZ2ZeSqIBg8HbE+/Q65PggjDTYb9KsntwbhusKe
dW3vyIJg5PabOFjzJ1kxGL+71MkOdh9A/Q/Gt3g9F99+ZK1gLHaZFxkyjIxg
HLtSvfa8Btk4GHrp3V7rTCVbB2PCu1F4O4fsHYwBkTNmX59PFgZjcMMlv2dL
yZJgZG93cdQ0JucEw3auSdPeteTCYBjt6xu0zJxcGgxB0GiLYRvIVcFQyzzn
NNKGXB+MP9PbnpvYkVuDMaziw/GD9mRBCA64Htg+1oGsGILKsdNMrvNxtRAo
JD+o28HttUKgWua/fyt/PkLgXZF+/jzXNw7Bjftam3tbcP9DoNk869Q2U+5/
CNYfOOfuvIr7H4LqYXPTI424/yH4/FzjYsNC7n8IJD227siay/0PwVyzZRd2
z+D+h8Dp2q5PnSdy/0Ow7sOJNUXq3P8Q1L1++qB4EPe/43ybz6X0VOD+h+K3
Z2PDmc7c/1A4Z54aV/ONxoNaKMTxexLtWnj8h0Ir49sZt6c8/kPRFJIz4FcV
j/9QSJ4ufTzwEo//js8z1dK9doLHfyj2+s+6O2A/j/9Q9NmtavXPVh7/oUj3
15BGJ/D4D0Vk1hT5rUE8/kMx+uXXCYudePyHwqHqoEKKKY//UDSfem7ps4jH
fyhOXSm4+5nnZ2sopn5yejByJI//MHSuKhV0UeTxHwa3x8pnN//m+R+G9Gvy
4Y/ekLXCcOvFfDx8QEYYxseKQ5LKycZhKN+1S/q5kGwdhl0H7p5V5fXIOwy3
LXTu9E7k9S8MV67pTbjqz+tfGAr/XB28wprXvzBMLu6cUGDE618YuqX/q9xp
Fq9/YVhaviTHZCSvf2HQrpxglNeb178wVJ2KLP7azut/GHR13BT0G3n9D8fn
hfOMg2/z+h+Olk07Thec4fU/HPExH9oe7OP1PxxXPbw2fZTw+h+OiPqggd/D
eP0Ph0fxebX3jrz+h0Nz40WVmlW8/oejYMWtaUd1ycJwWDpnbhePJUvCselM
f3eXvuSccMTYhq8y+c3ff+HYHptTsbyZv//C8dd+stiVvw+rwrFxgkw/9zy5
Phyzj44Ie3+A3BqOUxFForkZZEEEfn8bHbdTSFaMgPSgT+Bgd7JaBNbtfvv5
xDqyVgQiLsEhZAEZEUieaGvlN5m//yPgt+y14uYh/P3f8feLZvV+2J2//yOg
87Hg+OzPdP8gjMDAmHuTz9STJRGYOGhljfdNck4EtvtEXLE9Qy6MwKPxLmdk
eXz/E4Gdf2KG/t7M9z8RKOx/4vuOGL7/iYDC4WyJrTff/0Rg7uYHcQs28P1P
JL7tXG+gt4zvfyIh7jv+pvEcvv+JxPxDot+eGnz/EwmF/bdbsgbw/U8kJOOM
bt/rQjaORGmb/xPVNr7/i4TvWLXV3g18/xeJ4le3l764zfd/kVD+bt0cdJ7v
/zockrR28hG+/4vEduvLn/5u5/u/SLj9NVvbxvePpZHQX3tfsy2EXBWJtq8+
R/44k+sjobHpbcVAM3JrJO5lVc/CErIgCsPSHVJDZpIVo1B7uVz78miyWhTi
Ng9J1uhP1opCl+Hnvhzowve/UTipeWJ4At8fG0dhROHy4qarZOso3Msf7RWW
R/aOwtkbjkfME8jCKIRl3tvg70SWRGFV3Jdjd5eQc6KgvFfWslGDXBiFXpp3
ylR7kEujsHH1pcu93/D9fxR87vyzfsp1vv+Pgon6p7ObD/P9fxTkDN+HLksj
C4Q4e0mpi603WU6IHTXv3RpWkxWFsHO5pHZ3BllFCN+2oVEqg8hqQuhcCwso
/kX7FQ0hRhoZCk/Uk7WESP4wprC9nKwtREGe9oSYA2QI8UP3mbp7GtlAiEdq
R7+c9SMbC1G/Jd3Vcz3ZTIjwDRqTvPTJ1kIojFo8N2802VmIIY7VDnq9eL8l
xE3fMjnVNtqPBQth88BVYU0dWSjE++99bty6SBYL0bbsy6OCA2SJEM/WjnC6
JyVnCvHdfdnrmaHkHCEGhW/NfWZLzheidFSo8kkjcqEQLoFX/pycTi4WYkrq
ztY2VXKpELUaeUaW3ckVQsxoF5U0ttL+s0qIWXZO5w7WkWuFiHh67vmRcnK9
ECM0Z29+f5TcLMQLhY+TVmTxfleIvErBnXex5PaOfHpKlGo8ef8bjZlTNu9V
NCfLRWPF5n63JIt4PxyNVbf1Z5hMIatEQ9BvhdZcVd4fRwMBhsZWPcga0fjU
sGRJ0Rfaf2tFIzNpk+rI52TtaKT1OPsq5xYZ0TDJ0NfTO0s2iMa/E80/dMsn
G0cjx3DTs+4ZZLNonPzT5fyCGLJ1NDQlPxrzvcjO0dihNefJdCuydzRW333i
2W5IDo5G8MsN/qNmk4XRSLo7f2zSWLI4GkHbhp+fNoAsicayT+lJ47qSM6Mx
+k2v42s/8/OJaGSoGrTXvyDnd7QXP6/PrCYXRkO2v/FPwCVycTTMFq/WzTtO
Lo1GrFLZz8655Ipo3D7dkhW1mVwVjfILdy8IROTaaJwJX9QUHUCuj4bKg6O6
3RzJzdFQXnY0W2JKbo1G/5pBKepLyO3R0LN0v/5sFlkQA2Hm84gyDbJcDL5u
ezmwcBBZMQZWJz4tvylPVonBeNfpr/V/8fOhGHxxczHt8p6sEYPE72afh9Xz
86IYHLc+6Ol/l6wdg+dXPk/4Wc7Pj2LQvdv9IReKyAYxyDwZ6370ID9PisEN
5XOzHu0gm8Vg72X/oJFSsnUMOr3cmRgXR3aOQZR+qrdSMNk7Bu+SX7pWupGD
Y9Cg7vnr4kayMAbyoj4K3deQxTHYX3xkYpwBWRKDBNUX/W3nkjM7zldR0Txl
KjknBm6ROzxejSXnx6CoxMwzWJVcGAN8KshZ0I9cHIN4/WOBa3qQS2OwfZgw
9OBfev5WEYPqxeNqlnwlV8Wgl8ejv33fkWtjUDx26e65jfx8LwZjfCXXzz8i
N8fAJrhFV1jNz/ti8KJ0bYjVdXJ7DGI+3t7icImf/8Vigorti+izZLlYTNV8
ISk6zs8DY5Fr9mhX18NklVgI5/6qcMglq8XCMSVg74dsskYsZpw033Yug6wV
C0G+7qHDaWTtWJjI/zLOSiAjFrfSph31FJINOtqfuvnBNIRsHAtb5fWixb5k
s1i0bP3qrehGto7FJfEt3Uo7snMsrt1+uzzTkuwdC2Ol37us15KDY6H8L3YP
W0EWxuK7U4/6f5aQxbF4csly6jiQJbFIirB5kj2bnBkL6dafl/WnkXNi8SXX
T3v8RHJ+LI71H/fCdCy5MBYfIssm1owgF8ci9Ng4c8lQcmks+gs77TYayPnH
4l2/053OKnH+Hf0Ne+P4sifnH4t101yf1XTl/GNhtqhn1YG/9Py3ORad5lX5
GX0nt8bitFJarxufyO2xCF/6WX3xW7IgDn+OaChcbiLLxSF6wbdcy2dkxTh0
ffy44XctWSUODSnDvQPvktXiYJjuUVd5nawRh4eOO3X+lpO14hA5LarLsPNk
7TjE+PczHldERhwEPyv2Dy8kG8Th14C5ySMOkI3jECq9KK+5h2wWB5v9I9qG
bidbx8F6Z0bo6M1k5zis7zfEfmgq2TsOE7MPLp0RTw6Ow8ftiUY7o8jCOGxv
04taG0IWxyEg/W9uX37eLonDYE275BPu5Mw4dKqLv6TnyM/n41B6+mrEiY3k
/DgYB5dtUVnPz+vjMPPD9D0eq8nFcUhaVbb7mhE/v4/Dz5HKVsMWkSviMDRi
c4CzHj/Pj0NT9om6A7PItXG4axq5olGLXB+HVRlra8aO4/w78jzj0n5LnfOP
g+emXavyVTn/OGhsnt87byDnL0JhecCiPn05fxEOfFqtXNmL8xdhQ8yl66e6
c/4i3Nj2fk9rJ85fhIT+GiMS/9D7Cw0RTNev/Nf0B1lLhNJOL13XfSVrixDT
Wel+7icyRKieMNj9/XuygQjZDflbR7Xw+5SOelX9Phq/IpuJMOD195fSF/x+
RYTfSjcOK9STnTv6ox399sBjft8iwvePxcd9H5KDRThypeVA2n1+/yKC7GR0
YKcasliE0X2HPZS/y+9jRHA91VBUUkXOFOHm53ytptvkHBG6Gx+MNmLni7B3
9Ve5iexCEVIznt/ZzS4WwebYnwdC/rxSEeQ6d23cf4dcIcK2SYOLs7l+lQjt
VitVtKvJtSI0qEm+hrPrRXi5O3T+RnZzx/Xr6vXlD7dvFaH3uOFT9djtIuj0
MDZQ5XqCeMyP6heZy+cnF48hEyPWP71JVoxH8c9ym1vXySrxaJ8ReTf0Glkt
HjFH5oXLXeX845HcM/ZURDnnH487ouLZZRc5/3gckDvqp3yB84/H5JeOFb4l
nH88UtYVDN92mvOPx37LOpv0U5x/PKI2JHZdd5zzj8cfO/l5Yws5/3ic1pOo
PzvM+cfjYYbjfK8DnH88rPWyFj3ax/nHY9eRS7Fj9nD+8bg+63By6E7OPx6/
/zTqfNjG+cej746iG3lbOf94HFUZ2PPIZs4/Hn7/mJ75LOX84/Gq54bdCemc
fzzEY2pdY1M5/3ioX+n6uFsK5x+PbQadTnVL5vzjO/aPjtiVxPnHY++tk23/
suvj0e/M5oWK/PfNHZ//fe/Ra+zWeCClcMUh/vz2eARI2/LiuL4gAS+U9JZG
pnH+CZhv0Toync9XMQG3bk3oVSDh/BNQsTNtYU8Z55+AQJPkxqRNnH8CJnVT
r5yWwfknwMPMK3gwXy/tBPgKlIUfMzn/BIy+WaTwnq+vQQLyjWTdO+3g/BPg
qrm9odsuzj8Bp/QEVuU5nH8CluoVvBdwfs4JePXmsVy3vZx/Av6sTNv+jR2c
ALVzEfL3czn/BLxZmGeRxeNBnIBfrbqW6/dz/gno9k+6UhM7MwHPr5VVz8nj
/BPQfHl6+Xp2fkd/d96/vZFdmACBr/++aeziBHy+dfdyJX9eaQLqJoZ0NWBX
JOCe6fqECD6fqgTM0E5MDuDzrU1AufKTf3W5P/UJMNAZcLUX9785Af5SU+1f
fH1aE3C5xspRi92egF6C04HFfD0FYhywtOlzjy0nRsqVVQdy+O8VxRjUc/7+
+t2cvxh/v/ZoWcr11cQYYJLT+w+fn4YYS4P0fjzl/miJ8Wdn0/oj+Zy/GIV6
X68VHOT8xeizbsOHcUc4fzEu2dcm/yng/MVYt/ZKn348383EKFp9oG0DrwfW
YsS/rxG28nrhLEbJ5Pvlz85x/mKoGK0cV8LrT7AYF6qPOWlf5vzFmC4zS3St
4PzFqNVLLPTj9U4ihlX3Taq6tzh/MbRmuqSk8vqdI0ZE5/siM15f88X43qhq
1YO/TwrFOBHfuiTwHucvhlPPE8tq+PunVIyV8m2m82s5/47PeypsPs/fV1Vi
aJQon/F7xPmLof5xdnLSE85fDNd19ntfPuP8xYi8ZOhn85zzF0Pu4prQ8kbO
X4yJT8abKPD3qSARc8du1ej9mvNPxJwokz7pbzj/RKT3PyTK4u9jlUQYfXBZ
OPMt55+IrhXavVPYGokoSbvSI5OtlYiIX/tHBLG1ExGZsv32X/48JCJR8+Ur
bbZBIgw2dputw/WNE7FcZc369mbOPxFDG00+neLzt07E7bdpnQJfcv6JWOzm
YTG8ifNPhO/Bwuu5fL8QnIjPMx/LzefrI0xE0adZXa/x/YM4EVFea/uP5esp
SURG4IlfRny9Mzv+fuitbws5j5xERBtoxylzXvmJsD2zd9YVzrcwEVvNPi8P
4vFQnIgHnap/TOHxUpqI99VHCh/x929FItSrdOZY8PdvVSI8L994dqaS809E
w9d3177y9219IhqPbu7Xl8dzcyKOG6/dNIh/X9KaCD3NgT2m8fdteyJWl5a8
2sjft4IklIjHv2rn+SOXBMMvv7Srijj/JMxQ3zel4CTnn4QjNTtn7OT5qJaE
dbJBsSX/cv5J6GruuuwJz1+tJGj0uDjjA89v7SR8kr6ZMIK/n5GE1ElamzR4
PTBIwuanKfpLeb0wTsKvvwdLr/F6YpaE5R5bt97l9dE6CWNjr1/WZzsnYVNJ
y5wKXo+8k5Bvc0jflh2chJxnu5sX/bf+d9Qb8HfVJrY4CXUWnbN+syVJeLNi
/kQb/vzMpI71VHVUJjsnCf8kKw/cxs5PQrNPbucMdmES7J+uUfnv/IqTcC7j
iesu/vzSJOTWyU2q5fW0IgmPszdmPeD1vCoJx8slL7fz+lubhOhnZ7aa8Ppc
33F+wlcyJV6/m5PgNOHKpd/8/dmahCkuIytWstuTkGVWqzmRLUiGVcELy0Ns
ueSO+693ii/5/kcxGR7XdWxOcD2VZHzQf75S47/1PxmLfcVHx3M+GsmY9VO0
LIPvt7SSsbVLQsLs//JPxrKdMSfVeLwgGc+uzu3eeoLzT0a42KNPajHnn4wp
W4euGcvj1SwZblt3h3/j8WydjKMbU5P2XeL8k3HFMvBdFs8P72Sckl89ZA+v
58HJEH75Z9I9nm/CZNxQXpI6+b/7/2TU6RwxusbrsSQZX89du2Ly3/xPRmZI
sd35Bs4/GevUD2S58/qTn4yPOnfkpvN6VpgM+ZbAkisfOP9k7F7SXlrRxvkn
Q3zjRsLib5x/MrIOjslewfunqmR8Ka0zG8m/D6vt6G/C50jJX84/GcdUauw2
/8P7v2SM1Ll0364z7/+S0eKmnru6K+//krG5yCLCmfdzghScjqtJzuvB+78U
PDSSdzL8b/+XglfX5BqnK/D+LwW1zfsShvJ+US0F57ONPn5V5v1/Ci5c7drW
yvtLrRRY3L85Y9QQ3v+n4LfWaOsVw3j/n4LlzqMjxSN4/5+C1/eH6FeP4v1/
CtryHtsYa/D+PwX9rlyqvjKe9/8pUJyvJ7SdzPv/FMw/UvV03jTe/6fAZ0Gh
kxHvn4NTMDjNp6RMh/f/Hf29OD7YDbz/T4Hv0ydfZ/B+XJICZTmju7+X8v6/
43oM/XDk+gre/6dgj9WIH/+a8P4/Ba2rzN7pmfH+PwVj9V+VD7Pk/X8KXKsK
kzby84LSFFQ6vGmcbMv7/xR803g6aYs97/9T8OOmjtImft5Qm4KjdaUTwpx5
/58Ccwf915NcOf8UPH2u4y114/xT4OBadiSDn1+0p6Bl9MhVLh6cfyruD7RW
6OnJ+afi8mfn4wVsxVT0uWsbYuvF+adigsHa0oXenH8qvuVb9nX14fxT0fOW
aluVL+efivWqM+OX+XP+qag3GCHLC+D8UxEmN39BeyDnn4pPF5WxNpjzT0W3
FqN7h/n5jFlHPfmRRb3DOP9UjKy81bQpnPNPRXzDyUkLIjn/VOxJunjwHT/v
CU6FW6BLu2U055+KXOHe7MgYzj8V4UdbZ6yI5fxTcVX2pFUQx/mnou6w2cNI
dk4q2hd06dlPxPmnYmwf+UGe7MJUfHR7csKVXZyKEZuDYxXZpamYKdYNcOTP
q0jFAsfzj3y5flUqnrstDtfh86tNxYf7sl2XhZx/KlZ8t66w5v41p2Jq8ar9
tyM4/4481il86snXpz0VS66If6qFcv5pGKm0e2hXvt5yaRg7c6ZWC+ejmAYH
w8ppj/h5mEoaBl89ZFXOeaul4ezjka9reXxopCFr+OG+Vjx+tNLwRNL04gaP
P+00vPUs+dOZxyfSkB22qm6tC+efhrQlvi0+Tpx/Gm5U2X+wdOD80xCZEZRt
aMf5p8Grda8INpx/GlZUmfyQ4/nlnYZrD/6IDvP8C07DguXdnmiac/5p2Hg4
a23cOs6/43qY3H/QaS3nn4bDhzpZpPHzu8w0qLx98H2FMeefhnE5l/a8Ws75
p+HY30ndLPn5XmEaHkgrggoMOP805A3YFPDPYs4/DSXzC77bL+D80xA0Q9at
mNejqv97/PH9Ifw8sDYN0ZN+RmTy+lWfBsPZK/Mnzeb801A9SlH1/UzOPw0a
hZ3U+8zg/NOg4/fiRx2vj4J0iEz1eq1ly6WjzsCiaQ9bMR1bpsuffDKd80/H
0pbvqub8+WrpeFa3YMZC/r2yRjoyst5UX5zD+afj+KrFTTfmcv7piB6zfGDA
PM4/HU7zrvWt5vXWIB03DjdnFBty/unQWi/v9HAl55+OdascDthxPtbp2K/8
vHWjBeefjtPXQ9OKeDx4p2Pn3Rq7El4vg9NxyST2+l5ev4Tp0Dz5Um7af89/
O+p9UdFfzPNNko6vq+zTbyRz/unoNMZ8+5sMzj8dXUJqfCfncP7psH+7oX7R
Qc4/HSr5zh8NT3D+6WhI0IvR5efhpen4kSQOz77K+afjqv/qkTZVnH86DPfr
tV3h5++16bg3z7RhQAPnnw5z85xqs9ecf0c+w7dXXP7I+adj1CklUeoPzr/j
72f+3V3Zmd//SDBQYPH6XG9yFwnmeWRuDFLh90ES7NjdlnNJndxLgsTyK9Fn
JvP7IQlEmigQ65KVJYi/p6OmZMjviyQ4GfXjc5IZeagE3x/WO3Rz5vdHEiw8
bi+zCCaPkqCnvJbpm0R+nySB79Tzt2/z+6UJEhhnxZw+VMjvlyS41WNo2PHL
5OkS2DRDKYffh2lLUKHpWaD7iawrwabFW+TF/P4NEujq/kofOYK8UIIR778v
njSb30dKcNZ6g6WQf/++rKP+x6kW41z5/aQEVUMzAqbEktdIoHbQ4/O8bH5f
KYGsdfGofifJlhIUnpC/mHWT3192+PDPyt1NZHsJfn498Xbkb36fKcFBJ3Gi
hTK9f3WXID9F363veP49vQQKurZy8+aR/SWwjxatauL3v8EStC9qUha4k8Ml
aP44QNIo5N/fSxAjCPjmmUGOk2Bvgu2pRQfI4o7Pl46zcOXf56dIUP3JZNDw
2/x7fQmC9qv99G0gb5bAMLuPpbiNnNnRv+ry4CR+f54twc0nXlu7DyTnSCAc
cDJvogY5V4LdLZUtL7XJ+RL8OH0zbPhS8mEJ1oyxdHhjxv8eQAKffqXdRM7k
Ex3nu9pyTGEQubgjvx2tE9pE5BIJUiaH1MZv4n8/IIH7aiczlxxyecfxYe0j
/A+TKyTYcH/07wtF5BsS9JOveTqnjP+9Qcf436PdNvQGuUaCUev+KKy/R66V
wG/Q3pH3npAfS+Cq2PYhq4n/fULHeNIQxdXxv1do7LheTWNFGW3kZgk6dUsI
LPpOfitBuPymBM+/5FYJ5nzrZRDThX5/8VkCL5+Td/rx7zHaO8a3cH1hbS/y
Lwn8fce8uajAv/+Q4sGcHHeFvuQuUmj8K3Rs6Me/B5Gi7exskXV/ci8pyjbt
8KoawL8PkSL+kKqsiwpZWQrFwme3lAbx70WkeL8zX0lrMHmoFE1v888uH8K/
H5Fi6vigbkOGkkdJ4XBIJS2CrSHF3TkSjQPsCVI8fB3x7AZbS4q02kuVLezp
UvjPlfUdy79P0ZYianFBqi5bV4opvc1VlrIhhemrtYUx7IVSBGfFR80eRjaQ
4o/b8VPBw8nLpHh+p/vr72pkYylWCdafLhhJXiNFodu5j6GjyGZSmIRe15w1
hmwpxT31+A0nxpKtpciUdZaT53+fYi+FUaeWow1sZyl6r04buHkc2V2K7lmG
nu7jyd5SXHY1+zx3AtlfirqFG3/3n0gOluJi6giVJnZ4x/XtJ7BIm0QWSpE7
1l7kMZkc13E9j4+RmGmRxVJcsX9+J4l//5Mihei60u/zU8kSKUY1dS47O428
WYqJejrBu6eTM6U4P7j21bwZ5GwphodFZW5l50ixdOhV8yh2bsd4sSupOcHt
86V4nNeqtIQ//7AUt+6JDObx+RRKsWanz9URfP4npDgzuuDLab4exVIcb6xw
u8HXs0SKSbP1eqRzHqUd7Ves2aSvTi6XoqTs5+dmzrtCCoO4UZ09eXzdkKJ4
kFbIMB7fVVKENPtp7+P5USPFrKfa6mt4PtVKMffgHk8Zz7fHUlRUHX0+uzf/
fqsjvyj1yAk9yY1SaO1Uur6d52+zFGpPImUv5chvO+o5e3frxcdbpTCsd5z8
l/25o3/TnYe08Oe1S+EX73e/rA/PfylS5lpuj+XzE8jQc3/KnVaez11kcLJZ
YPeJ56ecDIc0VcNTRvD8l+FRv9mnDvL4VZQhVmL5pjOPJ2UZOkcPPB3A+anI
0HJrQN5gHZ7/MgSJYwouzOP5L4Po+ceNswx4/svw3rBMddMKnv8yvEsz3L1t
Dc9/Gc5rnZm0in+vpiVDaUlxwJmNPP9lODWj8WhfB57/MuytLrnh7srzX4Yl
+RvUfb14/necX0SqxQB/nv8ySJZJ9ygG8/yXofdYdcfUMJ7/Mmx++dG+JpLn
vwyZS/1U5GN4/svQYFSXaSfi+S+Dg43f3etinv8yvKm/YyRI4fkvw51hdVsb
03j+y/DD20TQT8rzX4aDeQumxch4/ssw4dxyI51NPP9lENfqLP3P/jJ8Ht/z
eTr/fbAMlXdTFqzlzwuXQc443fxeOs9/GeTnqN3T5PpxMgxb2bnSms9PLMNc
pfXjwpJ4/svQ612pyWXuj6Sjv6KtjxYl8PyX4af/tlld43n+y1Dyab5DNl+P
bBkSvt91+MXOkUHBJOj0f+1zZZiYOjkyIJHnf0f9GQr2nnw+h2VQNf7ZY5yE
578M+ke7x6/ZzPNfhinff2RczuT5L4NuvFvXCTt4/ssQUfDqwofdPP87rk9s
UXXZ/p74P9595Zw=
          "]]}}, {}, {}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"Temperature change (K)\"", TraditionalForm], None}, {
         FormBox["\"Year\"", TraditionalForm], None}},
      FrameTicks->{{Automatic, None}, {{{0, 
           FormBox["1800", TraditionalForm]}, {200, 
           FormBox["2000", TraditionalForm]}, {400, 
           FormBox["2200", TraditionalForm]}, {600, 
           FormBox["2400", TraditionalForm]}, {800, 
           FormBox["2600", TraditionalForm]}, {1000, 
           FormBox["2800", TraditionalForm]}, {1200, 
           FormBox["3000", TraditionalForm]}}, None}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      ImageSize->400,
      LabelStyle->14,
      Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotRange->{{0, 1200}, {-0.01504023483977658, 5.598783905234691}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]},
    {
     GraphicsBox[{{}, {{}, {}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.006944444444444445], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJxt23lcTO/7P/AWlKW37KEUFclSRELpRWQLJUukpIW0aF+0TutM0zYzbyUU
hcietWwZhCwtRJIte/bs2b/ze7yv6/PX7/3P+/F0zz3Xuc91rvvc557TQPeA
+V4qSkpKB9spKf2//////2u1Lrf/qW0759UZ+gcsnbz16E3ZN7I6zB09KztU
/SVr4mjHA0Of9FGV/+eecF7u3j4yuz1ZC1dmTFn6xk+NrI2wwYdTaq+qk/VQ
beRS632uI3kQ8vf8Lrng3olsgC5uL/tJT7IHY311YtSZRrYR4vV/zulTyTaG
2OZv2OYU9nCc7/pg2gd99kg8ae7SRbSd45niYldB0bvO7FEozV7b1OrCxzca
dZmVOhUFfPxmKP0ysrV9TQfyGFS7znryzwce71gYKxt0vqzONkfzjXOP7/Vu
Rx4Hs667F5dp8/mygMbN21n/9lchj8cMl/LbiT2VyRNgbXZ0aIi6EnkivE5b
vvFu/U3n3xJvkuZ1/1H1k2yFjhezHZo2fSdPwvLDG0YY+HD+rJEw9PWQ62O+
kIE/KRe+nf718T8LgP0nHvfdf66V2ifj2/xB+wr+eUvtk/FQNW1fSG4LtU9B
vOBU2Tudp9Q+BU+CI0qU7B5Suw3UNwVc+eXaQO02aE3TnZD35gq1T4X6vkc9
P9odovapGL5txVsTg4PW/7VPg0H9tn97T7zynwXTcGZK/Y7lL29Ruy1+Jhkm
V+55QO22WNTieVvt0BNqn45Ot2evuK3eQu3ToXLEJKD70jfUPgPSBxMMzs1v
pfYZ6OmlFScI+0jtM6EyqcBmdM5nap8Jo4cdM/HhK7XPgvBVp5/Ryd+pfRbu
BW9K8Jr1i9pnw1J+em4367/UPhunnOLWCU2U8V+7HcYXr1y/p17lPwvscK7C
uUuBuB21z8Hc9XsGGzt2oPY58FHpUzB5uDq1z4XZG0+869mJ2udCUDlhnmOX
LtQ+D222zh67uv1D7fNQplf9Vqe7JrXb48nYCwsPD+z2n2GPqcMnWs8a150+
b4/Di3yyN8/v8Z/l9hD4GnYODulJ/R1w22NeRfqGXtTfAcUBL8LLKntTfwe8
SI63v/C5D/V3gNnG9DlpQ/tS//n41iHwV5N7P+o/H/VOuYNzCvtT//kI26kj
ynmsTf3nY6n+j6xTRgOovyNko8R6b4N1qb8jLEd7j05106P+jtgW43BV0HEg
9XdE4NQBb5YeISstwMIvt9t3WjGI+i9Aj8OrFyd31af+C6Bprn9ffoYsX4BB
8sLJZUEG1H8hMoy/1C43NKT+C3Ez8NvKw01kwUJ8OpHnv0c6mPovRLH6sKrJ
s4ZQ/0WAbVJNYDsj6r8IwdefTDGTkwWLUBG0eWZy7FDqvwid/V1XLLc0pv6L
YfymyzL5LzIWo07PxmlbxTDqvxiltZNOtkscTv0V7bfnDntkO4L6O8Fp5n7x
WI2R1N8J0csufPxzkyxwgqpz1YEJm02ovxPcNi8aEDLGlPovwbYt5VviN5Kx
BJXDb56brDyK+i9BclCJoNybLF8C1/6fHj+uIystxf3zDSry8aOp/1LcnpCv
Nm8bWbAU+TsyDLM1zKj/Upiuf5wfH0lWcsYnu7py3adkOCNn/YaaNfZjqL8z
5HVnLP1Ok+XOWC6Z5NNn2FjqvwwDG25fCNhAxjI8jV5zIVTdnPovw8fb/s8M
I8nyZegstSpJbCEruWDZIXmOeMk46u+CKoOHE6yukgUuKD2nNXSjlQX1d8HW
6QO/FpaSlVxR6Z880cFgPPV3xZs8h9zdeWSBK65F1uzYqzGB+rtippap5uIk
stJyLLy7JHLXdzKWo+1jkXBb4ETqvxwW9ze2TG0hy5djoujR9Ew3S+rvhgFn
3jvG3CHruaE29eOpbo5W9H1u8NLePmZONdnNDT3shq4ZOWMSfb+ivemDztHz
5EI3PDq76XuztTXFc4NhlztlB0+Rm90Q22G4qIcOKP4KjGtpcNFbRtZbgYjp
RePjN5GxAnt/bWkzuUt2W4ET+Ygc3X8yxV+Bx9ZTclOdyYUr0FfpgOnwfLJ8
BSp1Ggz175ObV8ChwnaB74ApFN8dBuZXN7ZzI+u5w7zes/FdERnusOw/483Q
p2Q3dxwMu3P06GAbiu8O7bGqaaVryYXuUFqhdOPeXbLcHU5j1p81tJtK8d0x
YLBqfd5lspIHXk4pjHVznEbxPZCWqnHnTAsZHngry2vfNc2W4ntAo7XCrNxs
OsX3wM1uNcPHtpALPdC5IX6qxo4ZFN8Dzd8HFtb7zaT4HrD3yz9vaDmL4nti
m+ahxbt7zKb4nliSb6ur+YkMT0wu8u6h0WRH8T3RfClwi0vVHIrvCfshV76d
Pz2X4nsiavzPVLUT8yi+J9Ka9phHudpTfE98ujlWNOIJWckLHvfv3lXzdaD4
XhDdWNHvyxcyvLBrYfCVx0nzKb4XSoT7357p6UjxvTDyw5JHMSXkQi+o3B86
pbP1AorvhRuHbtxwaSQ3e2Hw7t+e3qELKf5KdNNzrdTtsYjir8RNYcm2tUfI
WImEc2PT/ZwWU/yVUFcyvPz+D1mwEr9X33T/udOJ4q/E1DqbNc/mLqH4KzH/
8tDqH5/IzSuxJvj+orj1Syn+Kqgf35O8e7wzxV+F2t+Hrx1qImMVTiWWn6yM
WkbxV6FZ1NKk3s+F4q/C7eofvtvKyYWr0PazVvXoIleKvwq93g7u5PyZ3LwK
f6afjbdet5zie+Oz7p/Xg/u7UXxvXLl/JGiCPxneMJ6Evo5ysps3mpQSr/r0
XEHxvTFq4R/XmNXkQm+4yvasSTpDlnujX79Ci5je7hTfG4YG/yR5rCErrcaw
x3NSzS+R9VbDZ1LntAmDPCj+aiQPOVGxOJ7sthp6iydg7QOyYDU0SiM3ZVh7
UvzVOBDfMyJhK1m+Gl0vjrKdqeZF8VdjbqpHx9v+ZCUfHAwc00+3gayncJH9
396KvP8X3we/7h6bfnQP2c0HD8+OLbvaZxXF94Fxn9xxz5LJhT74dqPf0aMf
yXIfPG/KeZ+1wpvi+2Dwcx3n3zfISr6Q9Si1WzB9NcX3hehQ2vssORm+uCzX
dBaa+1B8X8SqL408u5cs8EVqj4+v1hr4UnxfmM4auzlnE1nuC8myNI2mHn4U
3xeG2eJtqtlkJT/kJx/PqOjiT/H9EN9/XOamNDL80L/9wku5qmsovh9UdoQU
2CWRBX6YOjFGsbgOoPh+0NHzmtIUS5b74WtUymb8IDf7IUvrwJ3G8YEU3x8f
Tcr6zIog6/nDcUHBronHyPDH+iGb0fCF7OaPfpGTO5qOC6L4/vinOWP9gkhy
oT+Seyy7WlROlvtjqf/Ur6vayM3+MI46raI9Lpjir0G30f/08Q8j661B9BeV
xzZHyFiD9Bm5Xn0+kd3WYL957IjSMSEUfw0O7ysY2DmMXLgGm/uGiXyPkuVr
8LzHxh+qX8jNa3C7vOZXrnkoxQ+Asmfb1JmRZL0AzGvab1lwgowAtN9gBOO/
ZLcA5EwJvy+2CaP4Ck/eVtwkIhcGYMMp9z32NWR5AIzjaiP39wyn+AH44HdY
t3gpWSkQZpXerqmFZM1AzFnVZ27xc7JeIGat3NwaPTziP5sGQsUzyjclhIxA
uFh6blA6SbYPhIPaNlNT5Ug63kC8+tI912YWOTAQ+9MsgmXryIJAGDgmaVU+
JEsU8U+Yj0odtpbGEwjbx4NU/SLJpYEwjXge7lZJliv6h6gv6dot6j/XBSJX
96B263JycyDCJoof2u0jtwairJ/RyuafZKUgnPj7NsphejSNPwj5vw9771tH
1gtCs2SUVs0jsmkQut4LOlZrEkPjD0KXXXlPhseR7YOwb8SS/R1ryG5B6PfZ
ryxJN5bGHwTd67ER1cFkQRD0Fu0KeXuBLAmCe1Gzp3q/OBp/EK55r6rq7Esu
DUKU9cib3U6T5UH4e2yVtkQznsYfBMG+6qY0L3Kz4vhfXU2UlJFbg1C87uTn
Te0ENP5g9Pu2f2rqCLJmMHaNelG9ZDFZLxgfZjXtd04gmwbjWK5hxt89ZATD
X/V2tfttsn0whv5NezBANYHGH4wT02pbb44kBwZjTPmdNDdnsiAYjZG/R4wT
kiXBOH5L1azxELkwGK4mzgVK98ilwdhS/E31evtEGn8w7lr3Dh9oSq4Lxtiz
7i0aS8nNwdjkaWndM4ncGozLNS4vOu8lK4Vg9LIbA7RvkzVDMLN7pq6pchKN
PwTvhDZVScPJpiGwmd00UmkpGSF4OspsYzcR2T4EPys/rlp4lOwWApUKw37F
j8mBIajR+9Kx6p9kGn8I9KI/Tdo6gSwJgfn52uzlK8mFIVj/9OvlACm5NASW
43vaGZ0my0OwyK7+t/8Lcl0IPtxWNj7XLYXGH4Lmns1HNlmRW0MQrbTaR82H
rBSK7f0qu/fOJWuG4ufkxJrGc2S9UIwJT39b3ko2DcXK1FnK1wek0vhDcULQ
liuZTbYPheXzIz3KIshuodCUOF7J20YODEXKwH/9o+rIAkW80zsfT/lNloRC
XFB+KNdISOMPxYRrz4orF5BLQ/G9cUH8cQFZHoqSIU6x4XvIdaE42KmH3qgG
cnMoLk8U/+imIqLxh2LPjYtVs0eQlcJQPXdK+IHFZE2FB2ZapCaQ9cJwr+uK
6fd3k03D0NQ0bKhuPRlheNdnVg+172T7MLzMtVmxRieNxh8GgzVWk8eCHBiG
xck9Lnl5kAVh8G8/cL1GClkShssa0z9N3EEuDMMMnd9dii+RS8OQt/Op0PMF
WR4GsYrNoOoOYhp/GGZn6rczNyQ3h2H+eOHFUzbk1jD8bj9uRIkbWSkcGR+P
zrgYS9YMR/7dPwbSfLJeOPYavf/15jjZNByzXpRo9GkgIxwN04pvnX9Ptg9H
N8PNrgZq6TT+cFxY4P+2aAA5MBw1wohVyuZkQTiSM3uIq2eTJeF4WfF2Yg83
suK+9M/8Q5GyUHJpODZ7dTLYkkaWh+PxoZTxqZvIdeG45zfYr3QPuTkc1sE3
XZyOk1vD0enpms/tLpKVIhB/Zf/wihqyZgQW/lYOeHuTrBeBudrdQy/eIZtG
oHT8tR5H7pMRgWMqf+qfPiTbR2BCtPr27Q94/BHIfKZl/vUejz8CJ7vfrTnB
3yeIgKvdsOhTHE8Sga7xeea113j8EZg144/byHM8/giI+gep7D3M44/AtrvS
l/O28vgjEJl0R8kzm8cfgY6Rl5yjY3j8EThe/H3D+ZU8/kioRbmLMIfHH4mU
uMPxhqN4/JG4Efeg7HM3Hn8kNFavSDT6wPmPhH7tL5Pr1Zz/SHx6EC3cu5Ps
FolX8Y6hZvHkQEX7n9VnLRaTBZEwaThYNnQkWRIJq7Ap+jIVcmEk+pYFOBvc
4us/EktPnHOdXczXfyS+z/0cKAwn10Ui/Nre7NXTyM2R0Bb7tPbqRm6NhLjJ
7dmVu1z/axHWI6QmvZjrfy26o7BudCDXv2KdMamh4Nk4rv+16HWzR/cOSlz/
ayFsEx89fYHmG/u1sN3ho/Qrm+y2FpOPX2luWkIOXItrvfevPGlAFqxFpzsq
6x++5/lvLbKi7VranyIXrkXNhZ9TF6SSS9fi3p6GR6bzyfK1KJp/vZ1Zf3Ld
Wpj8aT564jHP/2txJ+Tb1wm7ef5fC0Phq+f7Q3j+j8Kew/JsqTXP/1GoX6IS
tFOD5/8ozN16vLn2Lt1fTKPwJ6t29ue9ZETBMutYkksc2T4KpyWu3bc7kN2i
sGCjjovyYHJgFH4ZNowZ+oPuh4IoLG75XDLvGlkShchbD0/8KiAXRuHRBLfo
KYHk0ihMvu6bJpxMlkfh1IzH7516kusUx3c05r7keSKNPwoXxWqWw06SW6Pw
ZJzQ30VKVopG3dh1rzJWkjWjYa2T+PmRJVkvGisP128a24NsGo17DneDpC20
HkE0Bvs9mHSvgmwfjYinwTOn5fL6Jxo6LkPFxgG8/omGe2HBP74zeP0TjYZD
4TlBg3j9Ew1zvSuJXf7SeqowGkcn39KZ1UwujcaVjvO1/CrJ8miovHpzY/ou
cl00rn695vEmg9wcjfc63693CSS3RsNh0IC4DQ68/ovBWJ0Dlx+M5fVfDJqS
tp5J7MPrvxg8dzYsyP1I60fTGCTItP6pPkJGDAJD20KfhZPtY3B8W9AQjwlk
txicDtf3Nf9L69XAGNyxfPb2UxVZEIPIofWDZ+aQJTHYW6e85Kk7r39jMDzm
RdgBM17/xuDoFqfxpzrz+jcGi75bXx34mNbPdTEwkb8a2PkIuTkGq0P/Zu1N
ILcqjs8/uzx/AVkpFl+CjjssGkbWjIXGsAiz66pkvVg8u+H/o/cjWs+bxqLn
uAqLeed5/R+LfZvv5qwq5PV/LFbd+l2tHMvr/1g8D/hhfHIROTAW1fdyHVaN
JgsU7fOV9X/2JktiIcrwftnrDz1vFMbCIe+Xe/1zcmksap64O9+qIctjYX47
rOj9UXJdLAyKdWJic8nNsYgum7dwVyi5NRamHVeajp1PVoqD17LpA+1M+Pkn
DvcWy0IN1fn5Jw5l60sKNzyi5yXTOHj2Shxy+xQZcRDuvdcvLZdsH4c9WbHf
LgaQ3eKwvr/XYF8HcmAcCk+YNN02Iwvi0NnozUjNPmRJHOyLLv7o942f/+Lw
ITTW/kcTP//FwcpkTbFyGT//xcF0xpnoTzJyneL7el7NrwogN8fhUsXSzSFz
yK1x0JlxaH0LP18qxWOustkL7c5kxXNU47sxT6Pf0POoXjxqBr50jagjm8aj
9kvipK2HyIiH5ri9JSP4edZe0X+D2uU+kfz8G4/conUGW5bz8288znetq6id
ys+/8UhY0XWj/nB+/o2HT96fHa+7kgvjId/e7uG0z/R8XRqPY9+to4bdIcvj
4ZQwwCW3glwXj3ceqo1hO8jN8Vj4aND2uTJyazxGV7mPmyggKwmgvPPq9VOB
ZHUB4h+PDuriQdYUYG3touxf9mQtAW7F7TjeHmQ9AeabPDN+ZUI2EuCpZNXZ
Mm3eLxAg1OyUvktHsoUAxzNLruv+pP0FCBDV94HmtHfkGQI86R7Uwf4R2V4A
g06V4y2vk50E0J5ZciXmNNlNgClfBs//UUr2FmDiMu2/53k/QzHvxXumLbj9
LzlSgPezUi4dSSILBHhh5l/6Zi1ZJMBWe7/3h3zIEgFGzPzrP5f3S/IEaGh3
cdAQO3KhABof5eFl48klAgwQxfWaOYRcKoD+fPu2/lrkcgGOPe8r+92eLBcg
+sfgN7M+0n5NlQDnTwcbNj0h1ylcMeHL5lvkRgGu/LUZfvoSWXFf6NWnute9
I+QWAXocKOzasJPcKkClwxsdy3xymwDdNo4NKv6XrJSAR51CCyx4/0g9ATdi
O1ndjyFrJmDDrXZLJvqTtRKQfiJIeYYbWS8B+dPVbMYuIBslIOvJ8g8ek8mm
CdhpJHw0yoRskYBVzou+vRxARgJmJSsXf9UkK+6LywWzB3q3J9snwGmw8bqs
H7T/5ZSAxn03H3x7w/thCXgzVNd/8EOydwIy9/TZ6XyTHJgA/f3/NmndIEcm
4HrQzvdLqsiCBLzUGHoxV04WJeDsuQ5fD/H+m0RxfK93WbwvJecl4G7zTkH1
fnJhAmqv2W9dvp1ckoAXphrvH+eRSxNgJFA+HJtDLk+A/EFpUl46WZ6A8Xpq
OefiyVUJcBv5fu7VAHJdAozP9tRsdSU3JqDs1LCl2+aSmxPgcubY+cZJZMW6
xG71vHUpJuTWBHzQifY4bUhuS4CvccLlkv68/5iISe6L3g7SIKsnIj/JZkpd
O7JmItrHne/QTpWslYi1FxxUfyrxfmUirj09l9WebZSImeG69nd/0H6naSK2
7RiTvugz2SIRkQ9Wb2nfSkYiRna1Pvy7hTwjEX6zX50wfka2T4TBy4mDzt0l
OyWiwEPPSniD7JaI2T6jdvS6RvZORODVHZ/ULpIDFfGtHXdYnydHJmK3W8M2
c7YgEbf3zBz17gxZlAi7LaM/7eZ2SSI+Wr1+4V1JzktEWdSmFY/lvN+biK+h
h7b6VJBLEoE8jcbHp8iliai7rx2acJpcnog5LzMXLObPyxMxpOMLcT3Hr0qE
Rovtk2X8+bpE3HyVn+XMx9OYiAs1R5qnVvF+ciK0m6dNaLhMbknEasGgDXkX
yK2JiueHLM9f3L8tES+GWDde5PhKSbDxqLmRfIKsngSz4asemx0jayah8Ux2
74+lZK0kBGi555UeIOsloWmJ7LXSYbKR4vOTlsZe4s+bJiH6XVvR5RLOfxKM
s/0fzC/g/CehxLVHj4t5nP8ktPdWCXKXcf6T4LvA9LwkmfOfhFMauo3Dojj/
ivgevW9W8P67dxJ66XV9qeXP+U/Cv11/5u/14Pwn4evNcSk93Tn/Sejff3pl
ixfnPwnjb/4Nf+7D+Vd8f/L7xEe+nH/F93WOG9s7iPOfhHsbfo204PglSTDo
329rQgznPwnKObkNagmc/yTsru54aVI05z8JIR01v3RczflPwtumiLjGxZz/
JDxVv7MxazrnPwkPFr2a+tCS85+ETjVVvW6P4PwnQcd5bJ/NAzn/SXAxWX5z
a1/OfxLkVeH68T04/8nYsmfq4e2anP9k7DP6E+bXmfOfDMG7QOPvv+n3D61k
bF9wv1b7A/9ekoyhtg8jLj8lGyWjvv/dT12ayKbJ2ONZfed0LdkiGRY5Rp+K
Kvn3lWT0PvLqxqQz5BnJkAvWbLlYTrZPht4dB5Vx+8lOyfDzLX5kuJt/j0nG
Il2/dW+2kL2T0dDc9ZPGZnJgMsZuVzrctI0cmYwRTzuH7N1FFiTjZocNg9pt
J4sU/Y/2U2/LI0uSseR4z5krs8h5yYjVzNw8JZlcmIxzhmopiVHkkmSI1Xe+
1w4ilyZj3qkQcytfcnkyhq0as7eXB1meDKHTwRznpeQqxfkqvmrQ4kCuS4Ys
X+XJ0ZnkxmS8m1fj3HsquTkZMzVKrprOIbcko719ZeGBueTWZHj2vWc/l92W
jCOFVyy+O/HvXyn4ZjXmy203snoK+lq9OmjDx6eZgq2LFy5a68P5T0HGgluD
74Zy/lPwKRQj70dy/lOwKCK+8lIM5z8F1ZaOo7qlcP4V3/dk3dpMAec/Bd7e
3hti1nL+U5Bq2+7lixDOfwoOLX7Uasl2SlHM38PXj+bPu6XAda7aOwM+/94p
8Jmud94wjvOfAt/0OyX2Is5/CuL0Ljiu/5fzn4JCwxx9I74eRClQuui64fI5
zn8KbF5Piqu/yflPQadpuzW7P+D8p+Delk41xVwPJSnQ/Xx1fFlHrv8U6Jta
rtjfn+s/BS2rtkXNNeL6VxzP0tQjOVyvVSmY4zj5xTGuz7oUaMfPFQzswPWf
ggrJGB+Lr5z/FPxrpjPL+DXnPwWHW9viP3L9tabAUbYudOUVzn8KhvferH3z
BOc/FarnzQRFezn/qQjPSHI9wvWjmYp23UsGJUg5/6nodtk5v6OY85+KTwEF
xtFJnP9UnE9UvfuQrwfTVPzdXfxhItsiFT86XPTyiOD8p8L48ONu+7g+ZqTC
asuT4nS+Hu0V8a7vjfywkPOfCteOToO/OnL+U7HqaIdhe+w4/6kQvrPKvDSF
85+K+69VLziO5/ynonicm6WtKec/FeYJl61ujOD8p+L3OvyeasL5T0Vc4WBx
ljnnPxXSjfOWZ1pz/lPhsBX3xkzn/CvirXx+Ptue6z8V18OSVDSWc/2n4teT
5ZW/g7n+U7EoZr/TAa6PqlREa2oWCQu4/lORUpx5W+Mg138qOvqIBHGnOf+p
MFX/0HDlGuc/FeuSyr4b8PXamoqiki555fWc/1S8vlt7suUO51+I0BMZfmf4
elYXYmRxaLbTY86/EBdj9ILWvOX8C9FJPiXmwGfOvxA1mheuaPD9wUgI7xUG
gjZ1vv8LsXro+DQftoUQLePv9U/n+w2EqO8bsymhN9//hSjXUhk2gW0vRP+j
09yKuvD9X4jLPsu7z/rO+ReifbmqURzXn7fi+3Qs5rq+5/wLUeJ/xGwCH3+k
ECnzfG8fesn5F0L4Y1DuV7ZIiOKuN7uO5PFLhEj26nT1JZ+vPCFsB+WazbzO
+Vd8X5WL1aJqzr8Qb9KTvAwucP6F0OwVYq52kvMvRI9DXSa4HOP8CxFjvu5D
X76fVQnR+slTdQLfz+qECPh+Ods4l/MvhLW5t/IidrMQ+3utjjfbyPkX4sNO
TTc7vp+1CmH308pmKF8/bUIsi3h5+UsV51+EwmXK+84+4/yL0KSr+fUwn19N
EW6Plt2qVeb1nwimAWfvbe7K6z8RBnbob1Gtxes/Ec4Xjrla0YfzL8KqlgUG
VoM4/yKM7vzllK0F51+EKWKfEakzOf8ifBXXPLfh9Y+9CFb77g4u4/Wbkwgd
itW2XAjm9Z8I9S8S/+im8vpPhFmL9taOFfL6T4T5ifvqVvJ6K1KE4w/2TWzi
/gIREp19WqMDeP0ngurQqQWq3rz+E+FS08byOXw8eSJEXv4yUGLD6z8RRlyY
/s/Qybz+E6FBsqJNPo7nfxHickavrzPn+V+EYzffmryawPO/CLW67r0aJvH8
L8K5R/2CjvL5qBPh2gaHb8edef4XYefozed9eb3YLELGQPurarwebRFh9ltf
nwoeT6sI8esS7sxaw+s/ET4kml35w+dTKQ0jXrWWFjrw+i8NRvd+ViVa8/ov
DQ4WgfNSRnL+0+D99WxUlD7nPw2ZtbHX93O+jdLQW7fJ1Ynr2zQNPw5vffCX
rx+LNMzvtixgDc8fSMPk+1+vF7zi+V8RX29k2ziej+zTUHO29wPd+zz/p+FD
kLfBw7tc/2nYfG32gl8NXP9pOOm7+tEBXm8GpmF04ovl7W9w/aehh7eOwUue
LwVpaFffPn8nr0dFabhc+NB+3XGu/zR83b9/fWAp138aHj35YyTayfWfhtkr
r6YvKeT6T0Pf/Wu3XOf5uzQN9vOPOX/K5/pPQ0LM7b5X1nP9Kxygah7C68uq
NBwNW+C1OZXrPw2OKbq/1Hk905iGMc9vHavj95Wa0xC9suxvZgDXfxpe1+R8
WcpuTYOwSFsvgt2WhmvawxZq8fcpibHl9dYB5Xz/URfjtdecQwd5faspRtHP
Kpf/rd+0xDhVXzR7w//u/2L03oXH7dN4/hej6yiDHkXc31QMr7seQ28I+f4v
Rt8x0oe/OD7ECAgRNqklcP7FyFtTYbiPz4e9GLHV25cs5vW7kxh77aZdO3aI
8y9GiE/cNCnPp95iPEqf1OsjPz8EijFwa28rGec3Uozhz6bMuXCL8y/G+eQF
Y2/wekkkxsV+R0uGsiViNP0a/a8N3z/zxMj55N21ltdThWL8fLbx0O7LnH8x
Ft3PuulzivMvxqYls4Yo8/VTLob+jssDHpdw/sXY87nO+DCvt6oU5ydWW/qX
16d1YkTO/ly8XcL5FyNh82h/B3azIl9lk1KFfD9oESPt7Nj5qjs4/2IM6DJ7
Tnc+njYxtPw/mEzmelFKh+r86fGHvnD+02H77fU0G57fNdMRd0slP3Q417/i
8/qXP5605fpPR2XMrj2NS7n+0xFhYCIz5fnTNB1Ri3s/GRbB9Z8OG509Gl5s
pMOvzO20fgjP/+kwOGuXkxHO8386ckP/Bi5K4vk/HWeKa4wr+XnaLR1vz89N
cZPy/J+O2Ftlbi94PyEwHd/tQ62dt/P8n46x72YHruT9C0E6phwK/rqF90NE
iuOrHf5J7SzP/+n4otO6ZxPv9+Sl4/CFV1u31PH8n44+qdO+PbjD87/ifPm9
mD6+gef/dFR/i/dQ5/2X8nSYH7LyWHCQ5/90TDq5oCCxiOf/dGjZvRvSLZ/n
/3SYXmtwmZjF83863Kc90zGP5/k/HSFvXAfsi+T5Px19x1v+W8vtrelwqNs5
ylnE8386atvl1fnz+VLKgK/Pl/E+fH7UM7C3519nI97P0cyAeIxw1HV+n1Er
A+r6A76f4v0hvQw8f3lsnSbvXxll4M9Y95/VVzn/GRh+8fvFk9Wc/wzcFjx4
eK2e858B67OXO2s0cf4zUHv2eb3yc85/BkzvdGrbwfuDThnYfnqb7aaPnP8M
TG06+uq6Mu//ZuDQ/BP/duX9zMAM7Mq3PHxDn/d/MxTrlQfrP5ry/m8GzhwJ
Ktw9kfd/M7A2znq3L3j/NwMrD2y8X2DL+78ZePd3z4fWebz/m4Ewr9kHrLi9
JAOXT59/3H8k7/8qjq/Ar3VrH97/zYBnYevDBeq8/5sBs4A7mUXfOf8ZsHq8
8uKmV5z/DHwy1vWe8ZLzn4GlvSy98h5z/jOQqzxg5iO+3loy8EvNbu5O3h9s
zUDo+ItHdvD13JYB6aslWybyfp9SJuyXj/nteZLznwlLhzlOgVwPmpl4pFz3
T79LnP9MvPlmNnIC508vE1eLKnZ7PeT8Z0L0uahx2VPOfyZ6XzYaKGrm/Gdi
i/fBWhs2MiHbfUfv1BPOfyY+ClN85nB/+0xMa6xfMOcF5z8TJ3rVnmj3nvOf
iU8aHweJvnH9Z6KX/fVFGW1c/5m4W3TmfCjvN0dmosv2hC3qvL8syMSYz+Ed
JI1c/5mIyNTpu+Um138mei7uaCXl/eW8THR4fvdc7f/qPxObczsFvuTzU5KJ
iVe6m0jLuf4zsTGoVFVnN9d/JpZsfB0WzvUtz4SDrEZdnM35z0TDBZcztjzf
1WXi4P6csgKeLxsz8fXOjJ0Pud6bM1FQMCypcyDnPxM2aOf5l/czWzMxtZv8
R4EL5z8Tqecu5Ec7cv6zsLm5/lTm/9Z/WThouF71sz3nPwtDxNHXNs/h/GfB
rIOPdvZ8zn8WHK+WL/jG+6lGWbhiI3im6sr5z8Jsl7mD2vjzFln49m7dqpiF
nP8saKsPelI9i/Ofhdw7x+eWgvOvsOW+rBZeHztl4a5PwKiubLcsNHweruXB
72N7Z+Fk54ya1mGc/yw821f8eCCvVyOzoFYzfHF5P85/FgK2/L3boMP5z0K8
0dUr9mxJFjK2v/EP4f55WbDP2FUVxf0Ls3BuT3DM526cf8Xx9puofOt/+z9Z
mCqd8VrO+zflWbBddr37FbZc8X1l8tR5vD6uykKnvGOV49l1Wdhxb2ROmgrn
PwsG/8oGarbj/GehclPO45n8fN2ShYqr8i+XenH+szBljd6Qyaac/yxM/PzH
RjKb85+N6dLPZ9T4+UA9G7/aeSQX53D+s7FK7ceBe3x/0srGb5+Jjof4fqCX
jW4Pr19w5HowUvRXOl+fz/OXaTaebt4eZczznUU29M5I5qwz5vfbs3HHo35f
N54/Z2Tj6CGfVOeFZPtsuIz4EHnAj3//y8ZQgyNeH1P4979s9BtxxfzFJp7/
s1GmK1gymH/PC8xG0J6jHWe/4/k/G6nHwlrFPfj9+WwUjauujzYjixTHO9Cq
5wgHsiQbFgm2L46EkfMU5+uIW+91Qn7fPhvDIq67/BWTS7Kh1qvzlLH8+2pp
Nk646jT+2Eguz4abv4PG3wx+Pz8bzi/NJh3n31ursiE0GR4zLJx//82Gl4cW
yqP5999sTPrzSCRK5N9/s5HR8GBbT47Xooi/Zu8mjb38+282vP/UrO1yhX//
zcar1B+Dr3/i338lsBW932s7kH6PbidB6rolLtW2ZHUJfulcP2IRRO4iQbC0
fIPjdv57AQnWFfbbEFZP7ilBzsgbldM0+H0BCfT9r2+1nk3WlmB7H7W+GUn8
/oAEvcWLew6oIRtI0PlA75f7den9ByMJJi+ylz9ZQR4uweGddYeNDvD7GIp2
mydLbT+Qx0iwcOD2K735/Q4LCXRdfEJLvciWEnxo8QuozCZDggJZw+UcOXmq
BMefDxIPf0WeIYF25qeqIH4/xU6Crvvz9oyz5fddJAjztRj124u8QILLm9p9
cIwkO0ng43p88SwReZkE3b9Mum+Rxe/HSPBjTtMJZRnZU4JPk8eXXS0keyvO
19KtX2XbyX4SzP5Um5eyg9+nkWC+cafkoJ3kUAmmddExus+OlKDEbrKRSRk5
RoLV6aHbpWf4/RsJnukXfq46Rk6W4Exiy5AQ/nsJkSJ/DuXzth8gZ0hgt+9k
vc4Rfl9HAnRJPptVQV4nwXgLjbZrdeQ8xfVkMbhoXzU5X4K237ULU2+QCyWQ
SsaPfMrermi3tzjTrpZcorjevm/Z26+GvFeCgd16nTBqJJcqjq+jUdbgBvIR
CULqf5/95zS5XIJ9Lg8+C3g8pxTnV/ffL9fyyXIJHLyXbeubTK6UYExXx1vq
/P5SlQTKsafPnllIvibB33Hrhn6cxn9vIsHMuamVSvw+000JXhyRdY/uR26U
4O48j9hyFfI9CZ6YCfMln/j9JAlUPk+pznpCfipBbmb+aOdacoui/sSjfnw7
R36jOB89tmeX7eH3mRT9l605cn0D+bPi+/VVxKVryW0SlKbf7/RhIfmXBMZ3
ZuS+teT3n6SYuPv+3n5Dye2k2DYmw8dQm6wuhev9OG39/uQuUsx661rX2o3f
l5Ji+0aDaNsu5J5SRJjvm5SvSdaSYvOzOtXr/HltKcbs1ggQtCPrSdHtnWOR
+keqXwMpLjb76Ca2cP1LEdxyNMP2Bde/FPkH6lKlz7n+FccTGTPt3muufykK
fU23TH1GtpCi/MRX54onZEspHo+ynvWTPw8pPvquGqusyvUvhVF9RuNeHv8M
KYKWfjYZZky2k6LiruB12liyvRTrdsb0Cp9IXiBF19FT1jZMIDtJEaXrEuY+
irxMCsdBzYZveX5yk0L/udI2UW+ypxThvXdZVfD581bkR0U0IlKL7CdFpbzk
mQU7UHE+DGaqLO9HDpVieGbIsVN9yZFSTM+p+3O1BzlGiiKruBzPAWSBFCJd
vUk5A8nJUqgt3HW/2IQskmL37R8fV/HxZ0jx9cqjxHIjskSKuAd+nfYbktdJ
kX7W/Io2H0+eFKc7CJdZaZDzpfg94mH3bd/5/TYp5sasjBh8h7xdihfzlx3Y
doJcIsWnnE6akQXkvVJMsm80Dc8ll0qxf7XNnrep5CNS1Ds+L1f1I5dLUWDn
v2LiUvIpKQ7pO7Qb50iWK+K5a6j3mkuulGL5g5Fd99mQq6QY1/rtR8B08jUp
Xhqqre9rSa6T4scHLZOZ1uSbUnyY3LG/+UJyoxRXS0sd33uS7ymu/34FwooA
crMUg05cuNOQRH4qRc8y7N21i9yi+L4H2xwC+P3DN1JMa1i2+eMXcqvieix+
MWCxAde/FJnnhp8rduD6l+L+DOWo3fFc/1IM8H1adm4b178MEs1z2XP47+na
yXDuzKTPrs+5/mVoK74iDWlP81cXGWrnTSnZzfdDTRkSvtkcqdUn95ThcvKr
W3/GkLVk8Jivcb7Nkqwtw78rxcEpbD0ZgsS59b2syQYyFO3YdrjnOLKRDIt2
fDs5y4Q8XAadJa0ltUP4fVQZ3A6/mKs3jDxGhtvWL7Y/HEW2kCH4W2Gj1Ihs
KcPeNU/Hrdfm91dlGDp5U88jPD9PlSHF5JX61FaufxmsRxpVxPN6wE6GwZtF
B81fc/3LsPjDNLMdX7j+Zbgw48Nkl19c/zLkdKuXP/jK9S/DP+YDbj3h/m6K
41e7ZHKtmutfBpVJ+dZj9nH9y9A6xndkeCbXvwz6jZPtPP24/hXHb/QhuxO/
3xoqwzuPbj79RnP9yzB8yMX57fn6iJHh7ER/q3lcnwIZFkJFva0717/ifFsl
P9jN78OKZAjo8rR0ELdnyPAz9r5bB+4vUXx/g+3Fo/pc/zKMb/pdXTCT618G
39j+xvf9uf5l+GV1+Hlvvl8VytConqPyi6+/7TJUVHddvesNuUSGummGP0f1
5Pu/DMdW7LIYOYLv/zKktWi/B18/R2RYM2DUto1T+P4vw4j9Z0vMlvD9XwaT
XZvfXFjB938ZHt5rGaMXGoX/A6fA75I=
          "]]}}, {}, {}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox[
         "\"Atmospheric \\!\\(\\*SubscriptBox[\\(CO\\), \\(2\\)]\\) (ppmv)\"",
           TraditionalForm], None}, {
         FormBox["\"Year\"", TraditionalForm], None}},
      FrameTicks->{{Automatic, None}, {{{0, 
           FormBox["1800", TraditionalForm]}, {200, 
           FormBox["2000", TraditionalForm]}, {400, 
           FormBox["2200", TraditionalForm]}, {600, 
           FormBox["2400", TraditionalForm]}, {800, 
           FormBox["2600", TraditionalForm]}, {1000, 
           FormBox["2800", TraditionalForm]}, {1200, 
           FormBox["3000", TraditionalForm]}}, None}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      ImageSize->400,
      LabelStyle->14,
      Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotRange->{{0, 1200}, {-3.355833966366571, 891.9867324680879}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {
         Scaled[0.05], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}], 
     GraphicsBox[{{}, {{}, {}, 
        {RGBColor[0.368417, 0.506779, 0.709798], PointSize[
         0.008333333333333333], AbsoluteThickness[1.6], 
         LineBox[CompressedData["
1:eJxdmnlYzN37xwdJkoos2WoihJC10PK2JXv2rM2TLSnam1bTPjVTs9gqYWzJ
HvUoSoUoCWUNlSgJpTy2ZPvN9/ecu+t6pn+6Xtf5zOec93mf5T73+Rg5bV+8
sT2Hw6nuwOH87////3FdkJT4v79LNv/PUGGeCzpMmbp1nw1jgQv23292iBnA
WOGCK4vMOHpFWf9yvgtSXQOFWZsy/+VqFwyo3+E6ouDvf5mzFc26xskLblz4
l7lb8ThliLBOh5VjKxaOGDx8zjjGvK243c9oyWp5Bqt/K76McnnoNpuVK7ai
c5OObvUHVp6/FZ106hYMD0ln9W/FiwPC2Zcmsvo4rvg7o/8WgRor57pi6plR
GV36U/2u8Hy3+fncAex5nivenA0zOtyd6neF2q1rQSsGMFa4ImCb4zrDqez3
+a4o+DN04mE/0u+KO2+/hjy0ZMxxw8Qp+Tsb9S+y+t1w8/iIyxHPqH43iBtG
VP7+i72f54bxcznr/dVZucANOqaGlWmb2O8Vbthjb/65NIS9P98NNmHczCZz
5k+1G0zvm2y5PuMyq38bZo8dVnCBx5i7DdW6jrtndM5m9W9DYvvRU94WMz95
27DUaaGBMIk9L9gG7pGI9eNGs+cV22Df78eKCQk5rP5tqJxU1uciWHn1NjjP
3CD4ks6Ysx1R93mX1h5nzN0O1wMLo26rsfdjOzQrffr1P8GYtx28wY+DO4Hq
347YvvPO6e9irNgO69Ur9a+OYZy/HQOH/pKKSU/1drwW3M0RJFP97rCoGPOt
Zx1jXXekKX4HrT7D2s91x6HMhWnT+zM2c8fjnckFteMYwx3C1eGt3aqv/Mv2
7ngyJWel1gP2Pp47PnTr+qfDCMbu7ljIN3yjdZva7473enWv96UxlrpjsnP+
OkEP0uOObwWbx4+fwX6f5g5vnb80jbQZ57tjc8/MjzI587fUHT6TC7U2jie9
7nipN7ZP+B72vmZ3qHkNSX+WzNrL8UC/GXMybCKZHl0P7Dn6XityGCvnemBZ
FKfG6Q3p98CkXx/VjLVZOTxw1+fb9a22rNzeA0bqVeLTa0m/8n3vCkwGT2f1
u3tg6wGP2lXppN8D201HW8jJT6kHPl4p6RvWnr1f4YFBepfzDqWw96d5oN24
78kJb0m/B3zG1PiVGTEu9cDhjnwvyyvs99UeyCuT3zrgl8v0eyDl+WrN6bcZ
czzx14vCHx3JP11PCEonRF5qz8q5nvjyou+QTnxWbuaJ9xreXXWyyX9P/JNo
WDM5nvR74kTCibox7xnzlOxQ9v6CJmN3Tyw4ZooZjux9Ak/kj5xfsEWD1Sf1
xO2TFk0WP/KZfk/MEE7yMC9knOaJ8H8WbNA7xTjfE886DyiuNr3K9Cvr85/z
p1jrGtPviexLR57UrWbc7AnFWqMdvel5jhcOrfKp/KXDynW9EH9+bKrUg5Vz
vZTj4bf9JlNWn5kXTqdnVSc+y2P6vdDY6c6cD/tYub0Xxg6UcMW5jHle8DbO
39Mhnb3P3QsfIq9F+fdm9Qm84JQ2AVU8xlIv/F28cDdH8zrT74VOKflWvk9Y
eZoXXiVvDZ/LKWD6vSD5OnJYqDnjUi/s2vxpun4Q+321F5aLHx2vX8K42Qsm
jw+2873KmOONd2deh5WEM9b1Rln07sz6P6w+rjdcD+5/fE6dlZt54/SpEc8l
nVh98Ia1rWXHXwmM7b2xv3hnxNrvjHneOLnwvd8NOWN3b7y4vbLL1AeMBd7o
ktnXNKj+BtPvjavv3wzof4Cxwhufc6JXrv/COM0b/6SNTKyvu8n0e6PHtMjf
xcaFTL83FgQOCp50npVXe+NT0NhLPWaz8mZvnJ8fcTf1D2OOD+ZEXv12Lb6I
6ffBzJOvP2jo32L6fXDmqE5u5XfGZj4obLgr5ybfZvp9sE5thU1ucQnT74Mf
3T/1uqZ7l+n3QY+/3UzlYxi7+6DKx3jy8S33mH4fvLB+EL5VvZTp98GVw+ov
2w9mrPCBRovV8apbjNN8kNR/YU1K9zKm3wc2efsL38QwLvXBbcvCwb8uMK72
QWX9hsHWS+8z/T4w0yv8WMtnzPHF0etnDiwfz1jXF5v0P3Tbc50x1xehI8Nv
rp/xgOn3RURVzD8juQ+Zfl8kJVT91fQPY3tf7N+Seaxm0COm3xdOZ+Ujzjgx
dlfy/H19bDo8Zvp9sab+ocWMw4ylyvo+pqv/KGGs8MXgbfMMxC8Yp/migFNr
kFL3hOn3xebwlwXc3eVMvy+yfZZY7eM/Zfp94dx135WUVsbNvojqXmVSZ/Oc
6fdDSqeH0++PqmD6/WA/9o6a+X3GXD8s/a726+qqSqbfD/KSbMPjvauYfj9o
Z8bN3T79BdPvhw9z/ZqFFxjz/LBq0rRxmeOqmX4/PIzm8ofvZizww+vZ6am2
/V8y/X5wmLdw78X9jBV+2NbTSJI48xXT74dOZqsaj95jnO+H60vHjbw2tobp
98M3q7heLzYwrvZDr+LQ8/cbGDf7YXzw0E6Ru2qZfj6M/Hf4yvu8Zvr5SPLR
6nL0LGMuH33v25Vq6dcx/XwY31l95cF+xuAjDrwke9M3TD8fI0Nc4k6dYczj
Y0ir9bubzxi78/FU8rd+4fh6pp8P898pLicuMZbyMSpgSfnT4W+Zfj72/Gms
kJxhnMbHr9ye9U9uMc7nw3X8TvEmu3dMPx+rZe8GdHvJuJqPWVoBmV0nv2f6
+fgmdZo2QM6Y44/1yxQdOBmMdf0x8tXjg7emNTD9/uizXpH9x4OxmT9yQlZ/
v97MGP7o0k3XTXGSsb0/eEvML3x+y5jnD1m7xVXx7RqZfn8sHFiw0MiUscAf
GcfO99sHxlJ/TLdO2W97hLHCH7mSkT66qYzT/GE2avrbFYM/MP3+WPH6c/PV
EMal/hg48vq30jTG1f7YVrjlh8spxs3+qBAaT/u4mzEnAIeObD+UFM5YNwB3
XrQOFKUy5gZgj4m1VUkwY7MA+OTpdhqRyBgBUHObmvReyNg+AE9zc0Y5iRjz
ArCBc+Oe2znG7gEQm2zyyu3QxPQH4HFNzeq5YxhLA9BbyMfpaYwVAZh6a6Nb
bDDjtADovUjd+saHcX4ADLefWlpxlHFpANYpWrk/IxlXB6C6Lqb5B59xcwC6
jHhgpX2WMScQhmdDHEedZqwbiIZFmZllNxlzA9HlulMH+1bGZoFYMvxB4+tf
jBGIG4vvVib9YGwfCIXBvGsHPzDmBSLzY172jZ+M3QPxb73NTH8gUu0+9D35
kPQHKiNKRWCiJ+lX1r/T9o6POekPxOKu6guaRpP+QMzvMEtwzYH0B+LJli9r
tOn31YEIWPm8y+UU0h+IFXrZE+upnBOER3U9twXnk/4gdOz47WyHO6Q/CL7+
gz4dbST9Qf9tP1TYXoV5QRi7r3NQxQPSH4QPwouxQ66S/0GY4P3hndEV0h+E
9Rwb7ZOHSH8QttRZWr9aQvqDcOpmwtJaV9IfhBbzyRXGJ0h/EHra+AgbXpP+
IMw0tJn3dzrpD0KEVqyuUEr6g+Gw4PItp3DSH4wlG42zXi0i/cHYfPu988T+
pD8Y5dN46s9Wkv/B+My/2PJrA/kfDNG3WQM8xeR/MCbmBfyso/HrHoyiVYut
9A1IfzA8Bqd/bWxP+oMxVtb7rfZHNl8Uwfhe47z81XfGacGYEzosY09H0h+M
5n4jC3wXk/5ghKa09u7iTfqD8fvNna1DSF9zMLyOvQ691KY/BP2v/Foz9Bbp
D4GJwj85ps3/ENwvDvxkUUD6QzB7YbW8wwvSH4K63u9GB9J4tw9BoNZIq8f7
SL+S/Z49KEog/SE48OuncPVu0h8Cnb+6/7W9zf8QVO4cdFyQRP6HoHnWE7Hj
F/I/5L/jK1+FS1W4WoWbVZizA+b5M87Mbyb9O7BcMeWvk89I/w44J6/y434i
/Tv++3vsgA5HONmJ5of9DqSI5nyyKyH9O7B657YZvvWkfwdmewZa3XxM+lXe
J1VhhQqnqXD+DtifDZosf0/+70Bui85bbVq/qndAkfj2qcUF8n8HumrnKGaQ
HxwBNgdwcifReqkhwNCpV0ean6f+EKDD4m5xx48z1hfA8krreWMF9Y8AsdYh
97Jo/TARwDUvpeOUG9RfAtwyub7LehdjCwGiFhnaekXR+BFghdWk0nHRjO0E
KLHmTc+m9cpegAmNZ26cofHoIMC6+H0bO8ZQ/wqU88fr8Rhaz50F8PrpoXlA
Qv0tQLse0ZzxaYz5AmyA/RlfL+p/pf7DRUfEqYyFAlz2zp/qdJHGowDZV14N
nXKEcYIALVd2Go65R+NTAI6BwHIJrW+pSv0Fi05GZ9J4FeB4O3N1BfmdJQC/
SO9++3c0fwXo++O7gSKbcZEAmS/vtvMlLhXgw6nCXQ2XGJcL8L5dok4r+V2t
9OOu/+suWYzrle3brGN46hT5rWx/D07eJuqPFgEqnX7hMq2XnFB07hY8+Aex
RigUZalZF0iPbiiKNGcmSWh+6odi/bVBXlzSxw3Fid7cii0t5H8oJnQouH/q
G/kfip+Xxo1ZQHotQuF5cdmxL0/I/1CkS9LO37lO/ofisnb6UZtc8j8Un0+s
bNpbTv6HwuniM0u9SvI/FHrHhpt60++dQ3HhTZn2PIoP3EOx+s+6m2rUXn4o
ds4sdAw5Rv6HYpfiQ3Y3Gp/CULg21nnua/M/FDU2y1+VepD/odgeUv74xWXy
PxRhsdWv5tB8Sw1F3ZaQj19DyP9QnNJ72r0b+ZMVCvufpcLZt8n/UDQ6RA6b
RutLUSj+9YXWMxUuV+FqFa4PxfTTXW7PvU/+K/srdFaP14/I/1BsO+q5fN9v
8j8MjRWDeDrUHo0wHB4esFIoI//DkLrZ4HIm7Rf6YRj0Sr8iI4L8D8O6V5pn
62m+moQhpF2HTstpvTELw5yCPs0OB8n/MMTujq9yoP5FGM7d/Zrbi/YLuzAs
i+n++nkx+R+G5IsN71ZS+xzC8LDjkxT9v8n/MCzwuXNnLNXnHIbH7zrHzd5D
/och7OB4CY/2X34YFnno33xA5YIw3Hjr6NdE+7kwDMXXv/hEbyf/w5CY3ivp
NPVHQhi4I7MrE4Xkv/J93InnegjI/zAYPON3ekXxSVoYGtbrlA3cQv6HoU+R
i1H+X+R/GEY7NiW20O+LwvBt0fao7Ek0/8Owwr9vUqY1zX/l80Xnn69fQfM/
DD0k2rNdaD2tD0PggZZT12i8NofhU01v44tt81/ZXzLRTAGtn5xweCyqLR4s
Iv/D0fo89GpPmg+64biY16fnHoon9MOxuUgvOmIB+R8Odb6D6V5/8j8cbp6B
iyxpPTELh9m8Q8szisj/cGQ1Htl5mt6PcBi1ZrrmUfxuF46QtRsGmtWQ/+EY
lvegNJ32U4dwOGW9N7lH44kXDl/t1TH7r5H/4Xh1ZUJsOI0X93DoTL1paU/6
+eGI+ulbWO1E/ofD1ah6wprl5H84eK/NzdVpf5CG4+nYyzkPF5L/4Zg/87rX
iGXkv7K9OYeCBeRXqrJ/0oKGH5tL/odj76NGPS6N76xw/NvvtH+rcJEKl4aj
aNPLXtMpHilXKa8Oh8mG00abm8j/cBwJ0L41rG3+K/s3r7j2Au3HLeFwjPz6
ZdgZ8j8CLw1kPafkkf8R/32/rgrrqzA3ArfCvi0IofXeJAKLZldGDG5b/1We
t4jA/Y/tb+q2rf8RuKu5PC6P4kk7leftI+BwpemjeRn5r1LOi0BQnFoMt239
j8CXwEE5xRRPuEcg02rvMDuKf/kR+KDVmtq5Lf5SeZ9QhaUqnKDCChVOjcBG
niJJh+K9tAiof21nVfed/Fd5Pl+Fi1S4NAKbxx/KPk3xdXkEFg8pkS0Ko/kf
AZfWY/OuZJD/ERjdYZ+zP8VjzRGwvvwsXGsb+R+B5Huyw4VB5H8k8rQTD3pT
PKcRifrHU05lBNL8j0Sd+bXzT3k0/yMxUH3SmoBYmv+RmGa7RBO0nphE4vva
wk5/byb/I7Gtvfn9b9Qei0j0fuyx3IP2I0TC/U/eyRSK7+wiEbrSYJcDncft
I3Fz9M0yKbXXIRLBxfUtV/fT/I+EzSbuUxvy2zkSFwo9fk6n9dw9EuqBVx90
nE/+RyJjsuYb9T/sPCWIxCfDZh+vp4yFkYjW6u2xm85X0kiMnb+u+oYVzX+l
vvcLnEz/ofNZJLI/3vUsu804NRJrXvqfvf6BzmvK+lyfmOvrkP+R6GUw9bkd
rX/5kRg3xSjandaroki0fmv9WldK638k5HXzrfRpPJVHYoHRtn0HqL+qI3F+
Y0pT7lfyP/K/46dZhVsi8bnPC3UZ5SM4Uf8t11Bh3Shodlv0s7WC/I9Cu2Nn
6h5QPMaNwsox43p4U/0mUciflhvFo/3ZLAqjV/TZ0Yv2ewuV90OF7VTYPgr1
cwIz4mn/cIhCmSz5mUsD+a/yvLMKu6swPwpDO1+4XEvjTxCFcU9HPuZRvC2M
woyJRes2ysn/KIj6/DDoSetHQhR26Tu9eUDjTREF48rZzV8pv5Qahe8G88PP
0Xk8LQphQf4usSbkfxT8mvz7zBhG/kdhQb8FHtM55H8UhkQtL4/rQf5HIe1O
q74Zjb9yZXvTFlfUDiH/oxDRI/u4JsUD9VGI77xt4wiaj81ReKp+/fFqR5r/
Sn8yWu/Z0fzkRMOxZK7WD1ofNKLxxtppdxXVpxuNgHaJazWXkv/R+HjGv96Z
9jduNNr/MlQPG0v+R+NsSVltFsUzZtHY3ZL9utMc8j8a9UMnv/Om/RbRCFp0
KX0Yxct20Zg+rKRVJ4fmf/R//XOIxgdb60HldB7hRePymP5napNp/kdjb3pj
lf0Bmv/RaHVIj4qk8x0/GsWirNM/KJ4TROO74bWMMtofhdG4cKqnnTXFG9Jo
2D6cG9xA+09CNAz/KjIV0HlCEY2JgjpNDcrfpUbDacC59LkUv6RFo2rxy0YX
yp9kReOYflazDs2X/Gi86P+zdP9H8l/Zf5WDF95/S/5HI6laKIyi+LY8GpUW
f9qdpPxIdTQSkkJmplC8Vx+NTMXVPQvWkP/ROF9TPbSbHvkfjVkhz6aufE/5
XyEKLl++fUOf/Bfiw6O1Gzzp97pCJOn1f7SZ8o/6QnwKzDKIsyf/hVg78upO
xJP/Qjw6fzZ9tx35L0RUB1vR1d+sPgshQnI3VVX2JP+FyDsXYqI+lPwXoik8
YH3DCPJfCL93/XZu7EPzX4ibVWsvHP9B+WUhKoVC3tNN5L8Qgw5WuSWSP+5C
7LxurlZD8ShfCE7TBZ8v1F6BENVvDJ/EniT/hRgvnjYvpY78F/53/CUIEVuc
tTSKxpdCCP+vSw6NpvNKqhCTA62HnCN/0oSoUF/4qYL2rywhZppPu3yPOF8I
G6fMnmq0XhQJsUbTYs2tQeS/EM6XtTNNLch/Ia72s3xcQ/neaiGWavXNOEn5
xnohDvK3WCymeLdZiAlDuUWZbfGfEB38GkY4Uj6bE/NffRoqrBuD38ZvO2a/
Iv9jcMlXnFdP53luDHZZqY92pvFvovJ7MxW2iIGxy4pzuhTPQKXcLgZmG3SW
WlB+2D4GSXy7G9eIHWLQ6dwOnTsUv/FicM3tRf925JdzDG6F/2108Rz5HwO7
qZybGU/J/xg8yIq6NJvydQKV+oUxOHxhWW4rxa/SGIgG1y3sQfFbQgw6dvvZ
bz3NV0UM7A9Ymg6j/TA1Bk91J8/Zf5f8j8H+6MF9aql9WSr15cfA6oyu0V16
f5FKeakKl8eg97tTUy/Q+lEdA72AafEzaD+rj0Ft3Ri3423xfwy8n6Yb9thB
/scg835Q/RzKr3NikVM/e7kv5bM0YjFm86r++wtp/sdCs2zsqg40P/RjsaB2
8fmBFJ9wY/F779JWj2ryPxZrb4ZFfKb93iwWJVLb21tIn0UsRMO67+DQeQOx
2Jfgte8ZzQe7WIyWyqqv0PpiH4v+B3ptTqT9yiEWnnFbrVZQPo4Xi13JlQuq
qH3OsQjRubta04/8j1XGO26zMmj/4sci70rz22U7yf9YqAtt86fR+iqMhc+s
C5wm6k9pLFLsppZFvyT/YxFUGmC9hvYnRex//UlV4bRYHDCqMfnS5n8sqqz3
HFen+Zev8nxRLHjj1BY9p/NeaSz+jNRraqL1pTwWDat+xtdQvqU6FgO+fq6o
bVv/Y7H5fvyjF7T+Nsfi5W4jfy9aT1uU7VFueE3q5L8IHYbbml8eQP6LsHH2
1u6j6H5OVwSfA7g1owv5L8JL9/EDR1P8wRVB7HHkdqAt+S9CzzN7zGVTyH8R
FIlRUhnlSyxE0Cn7lXf5MPkvgkZzr1m5bf6LsGFp1YUfFC/Yi3A0WV//EN0X
OCjrn2NqnUPv54lQ7jJ+0Yn15L8Ik+dfUudQfsJdhH2TJne3I+aLcFdvd785
E8l/ZXlmR348jRehCOYDgh+dofhOKsJfY5qj7Ci+SRBhRNKXzxW0XitEcFK7
OUOD8kmpIrz4ur6TDuVn00TQPtiSmkTrZZYIvm/87lq+If9FUNdNrbWl+VIk
wrwnT4vP1ZL/IizRl/U7Tef7chEaU7gyfYqHq0Uo/DUi6zidB+uVfnryZVMp
H9MsQuoUDY9JlL9pEeF2u2E2kyifxBHj/WFTyWTKb2iIkT1j82A5ne90xZBr
266qpPmiL4bYe+PEERQvcsW4Puqr3Q3Kh5iIkSG2PfWTfm8mRvxaufZIX/Jf
DIMfhlZCag/EONQnz8+R4kE7MbZP8WtopnjbXgyt2T1nlawj/8XI9Lif2Ynu
h3lijH7y68YYuh90FmOn56uVU3qR/2LMCD95eAU9zxdjyiZJt4B55L8YR4Y/
UY+h/JxQjKmcxHQR5YekSl5VIwwmvxPEWNJgM24crRcKMf7tR5r/KpwmxtiX
jTFjKB7MEqPyqp6zOd1P5ouxKWXNShGNlyIxEk821rWn/H2pGC41Nl4RlF8u
F8NWT03wltajajHKrRa4dv6H/Bej4OsE0XOKV5uV/Tsr6XdZW/5XjK1zXUtK
6HzNicMcm1OOj2g+asQhYozbtXy6D9KNgzT54s9PtL7ox8HB4M6aDW3+x+HP
jYzOBhRvmMRhwxRfyRe6rzCLwzOjrm/qKf6yiMPEK+2y3u0l/+NgdCbZ7Srl
4+3iMNj+q1pnip/s4+DysdZyKY1vhzjYqDnvO0frBS8OQ4Uds9vygc5xqNgU
7adF52N3ZXvWRp9fQ/sTPw4jHf/OsaT4WhCHhZMMm8wpfySMw+HAhf6HaD+X
xmFEaOagexTvJcQpx6/Jltd0/6CIU/FfhdNUOEuF81W4SIVL4/Bw4Gi5Jp0f
yuNwJ2pEYzndF1THoUExZMVJ+v6gPg43Bq0UPqb70maV97XEwenCppQDtL9w
4nHQsXe3ThS/acSj91e93Seov3Tjkehc2GEW+akfj0OVX8sW0vmOG48cyfVH
yTQeTeL/W59ZPAapK8SalJ+1UCmHCtvFw2/MkvmXqH328XjqqZk+j+I9B5Xn
efEItj1105PyGc4q5e4qzI+Hw1yD3SMo3yKIh2hC4bAnVJ8wHiHbRAHtKR8g
Vfl9ggorVDg1HpObAo92oPU+LR4Jy5/5nHhO8z8ea7mc2e8+0/yPR7f4EedO
UH6lKB7uv58J99N8LY3HqIO75hTQfVy5sn0eJY5L2+534xGxnat9JJH8j8cE
m5OvZ1L+qzke0meRvL60/7Uo2eDorZzB5L8Ef63PCDOifJeGBB1MRa+WBZD/
EhhOtRhtSuu7vgTJgzcvvkff63AlcBuuLcsdSf5LMOa52gZ7Oq+ZSVBmWWLw
6ied/yQwcx1mm9x2/pPATixad4TiFTsJ5nWNtNQeSP5LsD1qQfkaet5B2d4B
Eg64NP8liNb0cdr/nL3fWQL+2E9j/Y/T90YSnDt5tfXhTcZ8CSSfNT/4lVP+
T4KhSxM7ZVVS/k+CZ52M7y25zFgqwbGZqwTGnWn+S9C+rLj2wmya/xIU2/nr
x1I8kSrBfkmK7QG6D0iTIPtnYrwO5SuzJPj8bnb+Q8q/50swyvD2xySKj4ok
cN6QWP+c+rtUgkkVstpMiofLJRh087XmEPKvWoLvV9Leaf5i7a2XQP21do3V
K/reSwLRgbGThtH3XC0SaDk31R6S0PlfikuLH/vJTjJWk+JB3pc54fGMNaQ4
7GSitpvHWEsKx8ni+dO20PdiUky58Xx++7GMe0hxtNUkl9+Tsb4ULZwVz7SN
GfeXYgzfq3v/YvY9G1cKmy4z/YYcYGwsxRCbnMpuDxmbSJFgmd3fKpGxqRRf
74wIW5zL2EyKE2sN1t19yni8FNeuvnVfe4+xhRQVihtJfbqx+i2laF8enMtr
ZuWQ4lHV6N7eXVj5DCk07ccbzWth5XbK/lg0aO3DRsbzpPjNzdBaPoK+d5NC
d3XCorUbGS+Vwumn45dGD8YOUkw8wU8zUzBeI8U/0nqLrmcpfyFFTuc448Iw
xhukeFjxp2VnBo1nKbq1Ly6/ls/YVYruIa6S5Fs0vqUw3fXllGkpY28pnnzt
8bFmJ413KU6WuZgcvsA4SIoJK3O6cNvy31Js9VttFNGJjacIKe48OnHxCM0n
oRSTr3fLKHvIWCzFlj/LLKOv0PyQwupy8ZHPyYx3SfF49YzT378xTpAi1W7u
tieUX0+W4nTuGOdhTZQ/l2Jl01jH1Wqs/qNS5Gnqm8sov5Mqhf7NPci9x/i0
FPPm98pv+34wTemvxp/q9RS/ZSjHY551/jdaT7KkcH53zCWJ4sMcKYrKuq5f
T/cb+cr2Dq38ZU/3fQVS7C8cHCSg+9AiKQx6Gy5a7sK4RIp2drg/l+KPUikO
Wg7tZUzr70Mp9MLK7G0pH1kuBX9c4brPdP9cIUXd2W43trd9n6hs/9GFvQbQ
/WCtFAvf3DAeQOf1eikGLsx/WkD5jAYpdh87PvM8xSPNUgzuWhHiWsX4sxSj
Le/1u0L7S4sUzyJfRsbT+f6nsn+/Pan6SN9XcGRIMuAa69F5Uk2GRL1BN9wo
XteQod+ul3t70fdCWjJIv++1r2s7H8iQ+tRFvyvFyz1kMFLvM3qfG+0XMrxp
sO88m+K//jI01DgGOFM+hytDqU7CoXF0/2QsQ7vhSTYJpN9EhqX3G49Ppf4z
lcF2ae9htvS9nZkM7c8Efiml88l4GebOznaYRPGJhQwdf89cZ0r5MksZIgdH
dFtH+xNkiKoSBK6g9X2GDCU/PxZVTaD9SAZX2X2vvpaM58mwwuDWz8i2/IQM
K4P0os7T+Fgqw/WHwbsOUjzsoCxvWBOsQfHrGhkcpMZ+ORTP8WTYarFwoB31
5wYZemh5zL5I+QpnGU5kbG/eTePTVYabU3qOHkr1ucsQUqIeMIW+d/GW4Y/c
cLMpjV++DNv72rjfpP0qSIZLg0zrj2+k+EeG43s956+k/SpC2Z8rA26sdaZ4
SPl8u757jtB9iFgGieeADXMpXy+VYXF4Um4a5ZN2yWB1aPneMvI7QYZFG/02
1VE+KVmGf8cdxU8y6P5zamePPzT/VcpTZcr9d/Q0HdovT8tQw/t0vYbGc5rK
8xkynF9Zv/gYxa9ZMmx+e02SSt/f5CjH361Uw3P0fVu+DCffG30up3iqQIag
hHlGTeRfkQx5mRvuTKD8S4kMOmfd/zhQf5TKsDag5++jlP94qOzPpoa8BxR/
lcvw6tqUEjGtTxUydHvY4rWFzqPVyv7T9v/Tr4Wtb7UynI5/VOHbQPu50o8p
amqZbxk3yLBn27QB5/Jof5fBccLAQfOyGX+WYXlz+Tof+v67RTkff/lZx9L6
+VMGMe/Gsl9PaP+Xo9i3LNfjDu3/cqQ2je62ltZ7DTmyAq4vP0Lfp2rJISwo
nd2T5o+uHCbdH01bS/FjDznqR96q1aH7Ln053k+r3x1P46+/HH9picYPBM1/
Oa4EHD+cSePZWI7kx087etD6YSLH52m/P8TR9zimctwd2Xy6sO1+QY7Ch8bh
o2h+jpfjWnqXw5MpfrWQI613wN62+zpLOXa1/uk6itYfyHE0Y5RTCeUPZ8gR
FRByPqLtPkoO617el5dR/nGeHOOTdlSvJP/s5bB9EhrYi/InS+Xw6O64axat
Vw5ymE5xWTme7nvXyPHP6+VZjjQ+eXJ0DEn+do6+P90gR63VWNfNtH47y/Gv
T2x8u6qwuxwSJ8O7JnTe81a293piZnf6npcvx4kBMy+J6Xu1IKVfF8we5lP+
QiDH92VNZY70fXSEHI7HHN0baf0VKtvnazJDSvebYjmWVb0MOtn2fZQc7g1m
e+NofOySw8tHw/8d3WcmyNH+t3XB1he0/8ux86vc7yKNL4Uco82EA9MrGB9V
6j8S4xvzmPZ/5fs7WeTUUr7ytBxfNpp3OEb5yjQ5ug5U9xpO+3uGHJM8eO/1
tGj+K/mfQYXP6D4zR469B9SeTqXxm6/sj6HLd4yq/WDzf7LXCgo=
          
          "]]}}, {}, {}, {{}, {}}},
      AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
      Axes->{True, True},
      AxesLabel->{None, None},
      AxesOrigin->{0, 0},
      DisplayFunction->Identity,
      Frame->{{True, True}, {True, True}},
      FrameLabel->{{
         FormBox["\"Proportion mitigators\"", TraditionalForm], None}, {
         FormBox["\"Year\"", TraditionalForm], None}},
      FrameTicks->{{Automatic, None}, {{{0, 
           FormBox["1800", TraditionalForm]}, {200, 
           FormBox["2000", TraditionalForm]}, {400, 
           FormBox["2200", TraditionalForm]}, {600, 
           FormBox["2400", TraditionalForm]}, {800, 
           FormBox["2600", TraditionalForm]}, {1000, 
           FormBox["2800", TraditionalForm]}, {1200, 
           FormBox["3000", TraditionalForm]}}, None}},
      GridLines->{None, None},
      GridLinesStyle->Directive[
        GrayLevel[0.5, 0.4]],
      ImagePadding->All,
      ImageSize->400,
      LabelStyle->14,
      Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Part[{{Identity, Identity}, {Identity, Identity}}, 1, 2][#]& )[
             Part[#, 1]], 
            (Part[{{Identity, Identity}, {Identity, Identity}}, 2, 2][#]& )[
             Part[#, 2]]}& )}},
      PlotRange->{{0, 1200}, {0, 1.}},
      PlotRangeClipping->True,
      PlotRangePadding->{{0, 0}, {
         Scaled[0.02], 
         Scaled[0.05]}},
      Ticks->{Automatic, Automatic}]}
   },
   AutoDelete->False,
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.726763760573906*^9, 3.726763851371037*^9}, {
   3.72676405936779*^9, 3.726764064155674*^9}, 3.726764127438488*^9, 
   3.726764164157078*^9, 3.726764207423499*^9, 3.726768128206094*^9, 
   3.726770054209721*^9, {3.726770351470509*^9, 3.726770380916821*^9}, 
   3.726771997287409*^9, 3.726772807875411*^9, 3.726772863774271*^9, 
   3.726772900491878*^9, 3.7267729577601843`*^9, 3.7267740915169363`*^9, 
   3.72677416336915*^9, 3.726774359197948*^9, 3.726774604058652*^9, {
   3.726774639586067*^9, 3.726774656196177*^9}, 3.7267752980907297`*^9, {
   3.72677575368644*^9, 3.7267757886060553`*^9}, 3.726841352652133*^9, 
   3.726844337213603*^9, 3.726844446451749*^9, {3.7268449726438828`*^9, 
   3.726844980535404*^9}, {3.7268451949994297`*^9, 3.726845215465495*^9}, 
   3.726845254233107*^9, 3.726845337384119*^9, 3.726845423364524*^9, 
   3.7268525547034807`*^9, 3.72685261125567*^9, 3.726852657683688*^9, 
   3.726852691491344*^9, 3.726852803200673*^9, 3.7268528334449263`*^9, 
   3.7268528863454437`*^9, 3.726852973204081*^9, 3.726853202257918*^9, 
   3.726853308613706*^9, 3.726865199979169*^9, 3.7268652717888823`*^9, {
   3.726865317282233*^9, 3.726865374238019*^9}, 3.726865440166066*^9, 
   3.726865477919203*^9, 3.726865550111628*^9, 3.7268656203403873`*^9, 
   3.7268656624170847`*^9, 3.726865693941017*^9, 3.726865807064258*^9, 
   3.726865848378899*^9, 3.726865891473095*^9, 3.7268659399326572`*^9, 
   3.7268660064486103`*^9, {3.726866153004929*^9, 3.726866192091463*^9}, 
   3.726877367886709*^9, 3.7268774111474037`*^9, {3.7268825992653933`*^9, 
   3.7268826331603737`*^9}, 3.7268826851072598`*^9, 3.7268828412215023`*^9, 
   3.7269206345293503`*^9, 3.726920732934973*^9, 3.726920771861787*^9, 
   3.726920808247424*^9, {3.726921022336097*^9, 3.726921039114593*^9}, 
   3.726921109233972*^9, {3.7269212194355717`*^9, 3.726921247776997*^9}, 
   3.726921309875107*^9, 3.726921340555605*^9, 3.7269214053659153`*^9, {
   3.726921543282854*^9, 3.726921565350397*^9}, 3.726921603177758*^9, 
   3.726921642384098*^9, 3.7269216808951683`*^9, 3.7269217170212717`*^9, 
   3.7269217783599663`*^9, {3.726921816590467*^9, 3.726921835572198*^9}, {
   3.7269223150342093`*^9, 3.7269223350684977`*^9}, 3.7269226596227417`*^9, {
   3.7269226902342997`*^9, 3.726922718076827*^9}, 3.726922772953876*^9, 
   3.7269229201405907`*^9, {3.7269231000740633`*^9, 3.7269232690699053`*^9}, {
   3.7269236204220467`*^9, 3.726923643305842*^9}, {3.726923701194825*^9, 
   3.726923731569264*^9}, 3.726924358470193*^9, {3.7269243938966846`*^9, 
   3.726924431228766*^9}, 3.726924646915763*^9, {3.72692468189252*^9, 
   3.7269246885117483`*^9}, {3.726924750874689*^9, 3.7269247704584312`*^9}, {
   3.726924805259253*^9, 3.726924812545116*^9}, 3.726937412767812*^9, 
   3.726937830883087*^9, 3.7269438739467173`*^9, 3.72694430784289*^9, 
   3.726944375208344*^9, 3.726944610853921*^9, 3.726944672301096*^9, 
   3.727021511756679*^9}]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Export Data", "Section",
 CellChangeTimes->{{3.726773302118095*^9, 3.726773304118606*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"seriesData", "=", 
   RowBox[{"{", 
    RowBox[{"emissionSeries", ",", 
     RowBox[{"y", "[", 
      RowBox[{"[", "1", "]"}], "]"}], ",", 
     RowBox[{"y", "[", 
      RowBox[{"[", "5", "]"}], "]"}], ",", 
     RowBox[{"y", "[", 
      RowBox[{"[", "6", "]"}], "]"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.726922449891427*^9, 3.7269225599365683`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{"\"\<series_data/stoch_fun1_log.dat\>\"", ",", "seriesData"}], 
   "]"}], ";"}]], "Input",
 CellChangeTimes->CompressedData["
1:eJxTTMoPSmViYGAQA2IQfVvNf6rjkdeOBxSfzADRETrcK0D0vb9rV4Fosb03
14Pox4cbt4LoTboKR0D0Yjv9kyD61r+edyA6q1T0PYjufej0BUQ/msr/FUQf
Kt/G4wSkHyiK8oLpTasVQPSUewXKIHoRV40WiP7CMRlMZ1UF6oNopQPxYHr9
9Js7QbTDitt7QPQmuXWaXUD6zgJeHRBt8WyVO4g+Km/uBaL3XbyTAaI1rJgz
QbSZruNaEB3NEQOme6QZN4HoI9tzwPR3hYP7QbTbiltgenHE568g2mbrzZ8g
WshZyrUbSCfWWLqD6FWNM3xANFehUgCI/ndpbgGIXrd9IZhm4X9SD6LVkn6B
aQDIq8DM
  "]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1434, 749},
WindowMargins->{{1407, Automatic}, {Automatic, 47}},
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (April 27, \
2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 660, 9, 69, "Subchapter", "ExpressionUUID" -> \
"a642148e-65fe-4be7-a768-c1e921a8385b"],
Cell[CellGroupData[{
Cell[1265, 35, 121, 1, 64, "Section", "ExpressionUUID" -> \
"962b3b57-7ed8-4df4-92e9-7228515628ca"],
Cell[1389, 38, 359, 9, 32, "Input", "ExpressionUUID" -> \
"abc39f06-9e20-41c3-ac75-02cffafce0e6"],
Cell[CellGroupData[{
Cell[1773, 51, 1636, 42, 159, "Input", "ExpressionUUID" -> \
"241db403-a2dd-42f7-a725-e2dcc755ac9e"],
Cell[3412, 95, 27962, 709, 32, "Output", "ExpressionUUID" -> \
"a9a0a2ea-9bfa-43cf-b5a2-1bbd88194515"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[31423, 810, 169, 2, 64, "Section", "ExpressionUUID" -> \
"c0cc7fc7-b496-4d6e-b12a-d0c5fe47f950"],
Cell[CellGroupData[{
Cell[31617, 816, 107, 1, 44, "Subsection", "ExpressionUUID" -> \
"0fa3d375-d3e7-484e-867c-27abf05c892d"],
Cell[31727, 819, 2310, 47, 117, "Input", "ExpressionUUID" -> \
"ecfc9508-e596-4bd4-9e65-1c406b6af009"]
}, Open  ]],
Cell[CellGroupData[{
Cell[34074, 871, 104, 1, 44, "Subsection", "ExpressionUUID" -> \
"d01d4a20-be1c-4dab-aa8b-dad5e6ed7f9a"],
Cell[34181, 874, 3890, 78, 390, "Input", "ExpressionUUID" -> \
"f4ef0670-274e-4d61-bb61-f6ccf854b2e2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[38108, 957, 106, 1, 44, "Subsection", "ExpressionUUID" -> \
"8948ab6c-706a-4570-ab75-386c54f39cb2"],
Cell[38217, 960, 859, 24, 96, "Input", "ExpressionUUID" -> \
"3a6b0889-902b-4c00-8999-0abba514caa2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[39113, 989, 172, 2, 44, "Subsection", "ExpressionUUID" -> \
"ea7bb42a-fe9a-4113-a138-feb1a8125495"],
Cell[39288, 993, 1337, 35, 138, "Input", "ExpressionUUID" -> \
"a358e54e-a381-4045-bc43-7592f9750bd4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[40662, 1033, 154, 2, 44, "Subsection", "ExpressionUUID" -> \
"63287e5c-c7d7-4406-9ffa-d5a0efc0ea73"],
Cell[40819, 1037, 1039, 25, 138, "Input", "ExpressionUUID" -> \
"6be9b2e9-c3e1-4872-9ae2-666f4358c645"],
Cell[41861, 1064, 3530, 100, 327, "Input", "ExpressionUUID" -> \
"8a14903f-4a9c-4d1e-a36c-2900a4562bde"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45428, 1169, 98, 1, 44, "Subsection", "ExpressionUUID" -> \
"90b98b94-eaa0-47f2-bb2f-64b5c70059b7"],
Cell[45529, 1172, 1673, 40, 264, "Input", "ExpressionUUID" -> \
"43854cea-9b70-4003-83da-5b843f9b6b86"]
}, Open  ]],
Cell[CellGroupData[{
Cell[47239, 1217, 96, 1, 44, "Subsection", "ExpressionUUID" -> \
"c793ef48-bbc3-40e8-86fd-087097a95ed6"],
Cell[47338, 1220, 715, 21, 54, "Input", "ExpressionUUID" -> \
"7a2856bd-a222-4dde-a4c8-ef56686d02e9"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[48102, 1247, 101, 1, 64, "Section", "ExpressionUUID" -> \
"aaf72384-040c-4b65-aa26-0df04f0233a2"],
Cell[CellGroupData[{
Cell[48228, 1252, 92, 1, 44, "Subsection", "ExpressionUUID" -> \
"ba7abf01-ad77-48f3-9adc-20d6c7267bf3"],
Cell[48323, 1255, 1064, 20, 75, "Input", "ExpressionUUID" -> \
"99b8526f-a0e4-4884-8049-13b11dbcd808"],
Cell[49390, 1277, 1161, 22, 75, "Input", "ExpressionUUID" -> \
"bf2e3523-1d5c-429f-814b-9863829f84e6"],
Cell[50554, 1301, 770, 20, 75, "Input", "ExpressionUUID" -> \
"42eb3b16-dc3e-4cfa-b366-7989d5509c57"]
}, Open  ]],
Cell[CellGroupData[{
Cell[51361, 1326, 91, 1, 44, "Subsection", "ExpressionUUID" -> \
"abc03dd0-a694-4b26-9dbe-fdde8a2e0d51"],
Cell[51455, 1329, 474, 13, 75, "Input", "ExpressionUUID" -> \
"7380a166-f32d-471b-a436-7d4b45992631"],
Cell[51932, 1344, 2220, 50, 117, "Input", "ExpressionUUID" -> \
"5f9b3a0e-3d1f-4438-bc1a-90e7d2e36915"],
Cell[54155, 1396, 889, 24, 75, "Input", "ExpressionUUID" -> \
"b126dd57-2c03-4872-b6ae-51c1fc0e7850"],
Cell[55047, 1422, 548, 14, 75, "Input", "ExpressionUUID" -> \
"e900ac5c-5f58-488b-9987-c05ab01f5f73"],
Cell[55598, 1438, 804, 22, 75, "Input", "ExpressionUUID" -> \
"8c6bc68b-7d76-4ec5-900f-a945b267bba6"],
Cell[56405, 1462, 1062, 24, 75, "Input", "ExpressionUUID" -> \
"d4b6174c-2438-4d0f-ba60-f84b9afb5c2b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[57504, 1491, 111, 1, 44, "Subsection", "ExpressionUUID" -> \
"5d060040-5e07-46e2-92c6-98a9889312d2"],
Cell[CellGroupData[{
Cell[57640, 1496, 221, 6, 32, "Input", "ExpressionUUID" -> \
"f7032c52-921a-4110-a560-94da1c3be200"],
Cell[57864, 1504, 2497, 35, 32, "Output", "ExpressionUUID" -> \
"3e361d48-6708-4ddd-b5ef-70d51fe14f14"]
}, Open  ]],
Cell[60376, 1542, 2069, 53, 96, "Input", "ExpressionUUID" -> \
"0456c01b-2e96-4967-9214-788f4afe0f01"],
Cell[62448, 1597, 795, 23, 32, "Input", "ExpressionUUID" -> \
"601679e6-8b18-4d1d-a8ee-f428b5a772cb"],
Cell[63246, 1622, 739, 19, 54, "Input", "ExpressionUUID" -> \
"a5a37dc0-310d-4506-813e-332be3bbf17f"],
Cell[CellGroupData[{
Cell[64010, 1645, 1764, 41, 163, "Input", "ExpressionUUID" -> \
"c5212f9e-e4da-4dae-8172-effbda217034"],
Cell[65777, 1688, 16887, 289, 269, "Output", "ExpressionUUID" -> \
"545dc0ff-b9dc-4fc3-b0a2-712c00604dd3"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[82713, 1983, 170, 2, 44, "Subsection", "ExpressionUUID" -> \
"761c299b-0aeb-4979-8ae5-393e0fc742a4"],
Cell[82886, 1987, 2091, 55, 180, "Input", "ExpressionUUID" -> \
"54cd4aa3-8e90-49da-8bde-f8d29e90ae3e"],
Cell[CellGroupData[{
Cell[85002, 2046, 1250, 30, 117, "Input", "ExpressionUUID" -> \
"be9ae160-c5bc-401d-a96b-a0209bf4e949"],
Cell[86255, 2078, 33443, 613, 253, "Output", "ExpressionUUID" -> \
"401c58c9-b4b5-46a9-bf43-4537b5ef4536"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[119759, 2698, 155, 2, 64, "Section", "ExpressionUUID" -> \
"0411548e-b2a9-4332-97c3-ef607265d540"],
Cell[CellGroupData[{
Cell[119939, 2704, 108, 1, 44, "Subsection", "ExpressionUUID" -> \
"33a91b23-22f2-45fc-9ad6-9dde52c65e36"],
Cell[120050, 2707, 3627, 107, 180, "Input", "ExpressionUUID" -> \
"d89288c3-ca2f-409d-96d0-a01f4ec86df8"],
Cell[CellGroupData[{
Cell[123702, 2818, 222, 5, 32, "Input", "ExpressionUUID" -> \
"041046f6-84db-44c2-a9d4-57936386f203"],
Cell[123927, 2825, 1470, 21, 32, "Output", "ExpressionUUID" -> \
"2d4a4340-7dbb-4dac-ad3c-256827bac272"]
}, Open  ]],
Cell[125412, 2849, 1296, 26, 96, "Input", "ExpressionUUID" -> \
"bbe49b16-9153-400b-a71c-f44c4c9187e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[126745, 2880, 160, 2, 44, "Subsection", "ExpressionUUID" -> \
"053ef298-2e6a-4f82-8e26-9f5292aa3855"],
Cell[126908, 2884, 515, 13, 54, "Input", "ExpressionUUID" -> \
"683ba68d-ddc9-48e6-8343-770d59da66c9"],
Cell[CellGroupData[{
Cell[127448, 2901, 1407, 36, 75, "Input", "ExpressionUUID" -> \
"dd7ef3cf-090b-4ff6-8fe7-b7d30d04c2da"],
Cell[128858, 2939, 1668, 25, 32, "Output", "ExpressionUUID" -> \
"9249e899-e64a-45ca-99ce-2f3c72d8d84f"]
}, Open  ]],
Cell[130541, 2967, 699, 19, 54, "Input", "ExpressionUUID" -> \
"a82375ac-987f-42e4-a5d0-2d400e372c1a"],
Cell[131243, 2988, 6606, 193, 390, "Input", "ExpressionUUID" -> \
"ff3a9383-58a3-47cf-a3e8-5472be4723f2"],
Cell[CellGroupData[{
Cell[137874, 3185, 125, 2, 32, "Input", "ExpressionUUID" -> \
"71a124de-e10a-433d-8d49-e537f7305db5"],
Cell[138002, 3189, 1424, 22, 32, "Output", "ExpressionUUID" -> \
"c532c84b-aa93-4290-b3d0-284712cfa980"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[139487, 3218, 94, 1, 64, "Section", "ExpressionUUID" -> \
"6a3d5979-f0cb-4730-a1f6-c8840825e2e1"],
Cell[CellGroupData[{
Cell[139606, 3223, 161, 2, 44, "Subsection", "ExpressionUUID" -> \
"d49f5da2-acc6-451d-b3f3-1522d912ae5c"],
Cell[139770, 3227, 2661, 67, 205, "Input", "ExpressionUUID" -> \
"512a338e-c1a4-4122-a616-fe7d8a2a6dd8"],
Cell[142434, 3296, 1826, 48, 180, "Input", "ExpressionUUID" -> \
"c42fece3-5173-456b-84eb-dc43dd55774f"],
Cell[144263, 3346, 1833, 47, 180, "Input", "ExpressionUUID" -> \
"ff272af5-3150-444a-91f8-aa85d9db7922"],
Cell[146099, 3395, 1794, 45, 180, "Input", "ExpressionUUID" -> \
"563ac3c0-faf2-4304-9f8f-978c509cf52c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[147930, 3445, 150, 2, 44, "Subsection", "ExpressionUUID" -> \
"a2617ec8-dc11-4f4c-aead-0f69c950faf1"],
Cell[CellGroupData[{
Cell[148105, 3451, 628, 13, 32, "Input", "ExpressionUUID" -> \
"4a3e3d4d-6869-4b5c-946d-f1f2f86bfe59"],
Cell[148736, 3466, 71565, 1222, 535, "Output", "ExpressionUUID" -> \
"d0906660-aab3-4544-96c2-dccae2e0099c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[220362, 4695, 96, 1, 64, "Section", "ExpressionUUID" -> \
"d2fd8380-51b5-4582-b8a4-247825181eac"],
Cell[220461, 4698, 400, 11, 32, "Input", "ExpressionUUID" -> \
"87be98c8-1f5e-4b87-96cd-1dd04da090f7"],
Cell[220864, 4711, 569, 13, 90, "Input", "ExpressionUUID" -> \
"0f9b18ba-33e3-4cab-97ca-0e73a24dadff"]
}, Open  ]]
}, Open  ]]
}
]
*)