temp_response_fun.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[    145018,       3087]
NotebookOptionsPosition[    142909,       3028]
NotebookOutlinePosition[    143269,       3044]
CellTagsIndexPosition[    143226,       3041]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[StyleBox["Temperature Response Function", "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}, {3.7300302409270363`*^9, 
  3.730030267879581*^9}, {3.730030445399852*^9, 3.7300304460691347`*^9}, {
  3.731779149484901*^9, 3.731779157305621*^9}}],

Cell[CellGroupData[{

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

Cell[BoxData[
 RowBox[{
  RowBox[{
  "SetDirectory", "[", 
   "\"\</Users/tb460/Library/Mobile \
Documents/com~apple~CloudDocs/Research/climate_social\>\"", "]"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.7239224038678007`*^9, 3.723922420638607*^9}, {
  3.726421739096759*^9, 3.726421769178512*^9}, {3.727707092645081*^9, 
  3.727707093212144*^9}, {3.7300301960170918`*^9, 3.730030214398532*^9}, {
  3.742032707700642*^9, 
  3.742032708278411*^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.726865195782255*^9, 3.726865268787446*^9, 
   3.726865303930328*^9, {3.726865343280654*^9, 3.726865369374772*^9}, 
   3.7268654341500273`*^9, 3.7268654747163877`*^9, 3.726865545578683*^9, 
   3.726865617149811*^9, 3.726865658971386*^9, 3.72686569001711*^9, 
   3.72686580227284*^9, 3.7268658443300123`*^9, 3.7268658770800323`*^9, 
   3.7268659360128317`*^9, 3.726866002699305*^9, {3.726866149677104*^9, 
   3.7268661890869513`*^9}, 3.726877360950615*^9, 3.726877405278174*^9, 
   3.726920717303328*^9, 3.7269207802706413`*^9, 3.72694391943659*^9, 
   3.7270168755891*^9, 3.727017022518385*^9, 3.727017057542488*^9, 
   3.7270198585860167`*^9, 3.7270200061944723`*^9, 3.727020037136991*^9, 
   3.7270208933419647`*^9, 3.7270209495672207`*^9, 3.7270210362790937`*^9, 
   3.727021108995255*^9, 3.727021541473631*^9, 3.72702162852418*^9, 
   3.7270220854355717`*^9, 3.7270222646572313`*^9, 3.72702386832563*^9, 
   3.727024117231975*^9, 3.727024170588415*^9, 3.727024302054866*^9, 
   3.727024404497262*^9, {3.727024579035692*^9, 3.727024628174396*^9}, 
   3.7270248042534018`*^9, 3.72702483490704*^9, 3.727025411892404*^9, 
   3.7270333820041*^9, {3.727033462489152*^9, 3.7270334883102407`*^9}, 
   3.727033518840849*^9, 3.72703383664738*^9, 3.7270338737788897`*^9, 
   3.727044312289995*^9, 3.727044495997241*^9, 3.727044914185514*^9, 
   3.727111199165476*^9, 3.7271113183484373`*^9, 3.7271113755644913`*^9, 
   3.7271114272221937`*^9, 3.7271114938170033`*^9, 3.727111547745462*^9, 
   3.7271119286659813`*^9, 3.727111998818194*^9, 3.727112030247581*^9, 
   3.727112070395397*^9, 3.727112108160722*^9, 3.7271121859998293`*^9, 
   3.727112220205596*^9, 3.727112250944335*^9, 3.7271123439870996`*^9, {
   3.727112486664641*^9, 3.727112509568685*^9}, 3.727112542269042*^9, 
   3.727112578659749*^9, 3.727112622742128*^9, 3.727112654870573*^9, 
   3.72711442041888*^9, 3.727115500192491*^9, {3.7271155340164423`*^9, 
   3.7271155578134947`*^9}, {3.727115592251473*^9, 3.7271156163423147`*^9}, 
   3.727367138395632*^9, 3.727367276599318*^9, 3.7273673361830893`*^9, {
   3.727367540566985*^9, 3.727367603541998*^9}, 3.727367850358672*^9, 
   3.727367893604313*^9, 3.7273679437639847`*^9, {3.727367974133092*^9, 
   3.7273680011912527`*^9}, 3.7273680345417747`*^9, 3.727368156110811*^9, 
   3.727368249013629*^9, 3.727368291311701*^9, 3.727368359259783*^9, 
   3.727368477472657*^9, 3.727368629661005*^9, 3.727368662777523*^9, 
   3.727368764047567*^9, 3.727368988575404*^9, 3.727369185392755*^9, 
   3.727369296098845*^9, 3.727369414216502*^9, 3.727369445431368*^9, 
   3.727369619962521*^9, {3.72736966046555*^9, 3.727369682248579*^9}, {
   3.72736976745466*^9, 3.727369784456875*^9}, 3.727369865458452*^9, 
   3.7273699268785763`*^9, 3.7273704620262423`*^9, 3.727370508231123*^9, {
   3.727370616981718*^9, 3.727370644493712*^9}, 3.727370685162065*^9, 
   3.727370723139048*^9, 3.727370767397853*^9, 3.7273708583419037`*^9, 
   3.727370903534483*^9, {3.727370947395959*^9, 3.727370968502295*^9}, {
   3.727371096989624*^9, 3.727371170302424*^9}, {3.7273712130944033`*^9, 
   3.727371345257518*^9}, {3.727384430204689*^9, 3.727384448599083*^9}, 
   3.727384480189658*^9, 3.727384536024377*^9, 3.727384575348856*^9, 
   3.727384717506941*^9, 3.727384750699068*^9, {3.727384794016446*^9, 
   3.727384835848753*^9}, 3.7273849283389063`*^9, {3.727536670232788*^9, 
   3.727536692496188*^9}, {3.727536727747972*^9, 3.727536743855543*^9}, 
   3.7275367745860786`*^9, 3.7275384209236727`*^9, 3.727538525800981*^9, 
   3.727538577407671*^9, {3.727538615740658*^9, 3.72753864484235*^9}, {
   3.727538804181168*^9, 3.727538829906802*^9}, 3.7275389498077507`*^9, 
   3.727539009798337*^9, 3.72753908974835*^9, 3.727539147606778*^9, 
   3.727539181307454*^9, {3.727539355194927*^9, 3.727539406774786*^9}, 
   3.7275394461704473`*^9, {3.727539536819398*^9, 3.727539558746666*^9}, {
   3.72753959671356*^9, 3.727539625945084*^9}, 3.727539689100651*^9, {
   3.727539772802107*^9, 3.727539794087563*^9}, {3.727539834219227*^9, 
   3.72753986177205*^9}, {3.727539910454298*^9, 3.7275399847305317`*^9}, 
   3.7275402054327087`*^9, 3.7275402384827967`*^9, 3.727540269684869*^9, 
   3.727540320300811*^9, 3.727540482492642*^9, {3.727540514117708*^9, 
   3.727540535619977*^9}, {3.727540595687275*^9, 3.727540644256547*^9}, {
   3.727541042774515*^9, 3.7275410623698587`*^9}, 3.727541367445859*^9, {
   3.727541730232253*^9, 3.72754178878577*^9}, 3.7276163019551773`*^9, 
   3.7276163403350077`*^9, {3.727626447726366*^9, 3.7276264715917273`*^9}, 
   3.727626501707468*^9, 3.727626605384501*^9, 3.7276266730673637`*^9, {
   3.727626710558867*^9, 3.727626751560981*^9}, 3.7277071015741796`*^9, {
   3.727707600085864*^9, 3.727707623278098*^9}, {3.72771087112473*^9, 
   3.727710893734631*^9}, 3.730030217775367*^9, 3.730030449722543*^9, 
   3.730031022691421*^9, 3.730031383381674*^9, 3.730031538321829*^9, 
   3.730031677784333*^9, 3.730031855346974*^9, 3.73003252687317*^9, 
   3.730032673894211*^9, 3.730032772312448*^9, 3.730032866316361*^9, 
   3.7300663507977552`*^9, 3.7300664639416227`*^9, 3.730066586534279*^9, 
   3.730141683073962*^9, 3.730141755478965*^9, 3.730141933369536*^9, 
   3.730141966019339*^9, 3.73014202752355*^9, 3.730142058647242*^9, 
   3.730142136882318*^9, 3.730142602857277*^9, 3.7301427407970943`*^9, {
   3.730142930461825*^9, 3.7301429594291286`*^9}, 3.730143742739217*^9, 
   3.7301443674671583`*^9, 3.730144428569632*^9, 3.7301445059713173`*^9, 
   3.730144780427702*^9, 3.73014482189886*^9, 3.730144856216893*^9, {
   3.730145193421075*^9, 3.730145215139567*^9}, 3.730145387447904*^9, 
   3.730145441811656*^9, 3.7301459087962637`*^9, 3.730145964497621*^9, 
   3.730146001262285*^9, 3.7301461870612288`*^9, 3.730146367136775*^9, 
   3.730146466305786*^9, 3.730161649881556*^9, 3.730162201270644*^9, 
   3.730162506239655*^9, 3.730162615760791*^9, 3.730239033236726*^9, 
   3.730239108394772*^9, 3.730724028176092*^9, 3.731243139112196*^9, 
   3.731253677689625*^9, 3.731261567771703*^9, 3.7317722282233973`*^9, 
   3.7317723342071247`*^9, {3.731772489680543*^9, 3.731772496129838*^9}, 
   3.731772768995413*^9, 3.731772994100851*^9, 3.7317791652471046`*^9, 
   3.7317952494633713`*^9, 3.742032712484201*^9, 
   3.756148305124198*^9},ExpressionUUID->"6e3edb16-85df-4f57-8470-\
99af10736d2c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Sigmoidal response function", "Section",
 CellChangeTimes->{{3.731779190411965*^9, 3.731779195482901*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"fmax", "=", "5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tempThresh", "=", "2.5"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"omegaVals", "=", 
   RowBox[{"{", 
    RowBox[{"1", ",", "1.5", ",", "3", ",", "5"}], "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.731779246967046*^9, 3.731779247077262*^9}, {
   3.73177928127142*^9, 3.731779289294395*^9}, {3.7317793694111834`*^9, 
   3.731779369504902*^9}, {3.731779528214377*^9, 3.731779549654261*^9}, 
   3.75614830267395*^9},ExpressionUUID->"5cb209f7-607c-495a-8f64-\
b0642c71d6a2"],

Cell[BoxData[{
 RowBox[{"Clear", "[", "resSig", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"resSig", "[", 
    RowBox[{"temp_", ",", "omega_"}], "]"}], ":=", 
   RowBox[{"fmax", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "omega"}], 
        RowBox[{"(", 
         RowBox[{"temp", "-", "tempThresh"}], ")"}]}], "]"}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.731254589380719*^9, 3.731254600380836*^9}, {
  3.731254697815695*^9, 3.7312547360808897`*^9}, {3.731255371503337*^9, 
  3.7312553721555967`*^9}, {3.7312554982769117`*^9, 3.731255518344323*^9}, {
  3.7312556308979673`*^9, 3.731255633931851*^9}, {3.731261107219137*^9, 
  3.731261177115572*^9}, {3.731779219885982*^9, 3.7317792562537518`*^9}, {
  3.731779928482586*^9, 
  3.731779943429781*^9}},ExpressionUUID->"72118a3c-7424-4202-921b-\
72f0ee5de828"],

Cell[BoxData[
 RowBox[{
  RowBox[{"legendOmega", "=", 
   RowBox[{"LineLegend", "[", 
    RowBox[{
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"TMBcolours", "[", 
        RowBox[{"[", "i", "]"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "omegaVals", "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"\"\<\[Omega]=\>\"", "<>", 
        RowBox[{"ToString", "[", 
         RowBox[{"omegaVals", "[", 
          RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", 
         RowBox[{"Length", "[", "omegaVals", "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"LabelStyle", "\[Rule]", "12"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.7317723777377157`*^9, 3.731772456890394*^9}, 
   3.7317724996458483`*^9, 3.731779229966874*^9, {3.731779451670865*^9, 
   3.7317794844065733`*^9}, {3.7317952110037107`*^9, 
   3.731795239919752*^9}},ExpressionUUID->"d163f90b-81d8-41f7-a44e-\
c88eb1757e66"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"tempResponsePlot", "=", 
  RowBox[{"Plot", "[", 
   RowBox[{
    RowBox[{"Evaluate", "[", 
     RowBox[{"Table", "[", 
      RowBox[{
       RowBox[{"resSig", "[", 
        RowBox[{"temp", ",", "omega"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"omega", ",", "omegaVals"}], "}"}]}], "]"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"temp", ",", "0", ",", "5"}], "}"}], ",", "\[IndentingNewLine]", 
    
    RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", 
    RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
    RowBox[{"FrameLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"\"\<f(T)\>\"", ",", "\"\<\>\""}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"\"\<T\>\"", ",", "\"\<\>\""}], "}"}]}], "}"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"0", ",", "5"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "0.5"}], ",", 
         RowBox[{"fmax", "+", "0.5"}]}], "}"}]}], "}"}]}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"PlotLegends", "\[Rule]", 
     RowBox[{"Placed", "[", 
      RowBox[{"legendOmega", ",", 
       RowBox[{"Scaled", "[", 
        RowBox[{"{", 
         RowBox[{"0.17", ",", "0.7"}], "}"}], "]"}]}], "]"}]}]}], 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.7312551299971113`*^9, 3.731255188024136*^9}, {
  3.731255252387312*^9, 3.7312554354703007`*^9}, {3.731255521270541*^9, 
  3.731255521988492*^9}, {3.731255627772183*^9, 3.731255664238221*^9}, {
  3.731255694983268*^9, 3.731255724690036*^9}, {3.731261040482717*^9, 
  3.731261057431448*^9}, {3.731261163479618*^9, 3.731261185035056*^9}, {
  3.731261321427691*^9, 3.7312613467994432`*^9}, {3.7312614608333607`*^9, 
  3.731261544453767*^9}, {3.731261656735155*^9, 3.7312616568572483`*^9}, {
  3.7312622110426617`*^9, 3.731262214135591*^9}, {3.7317792331736317`*^9, 
  3.731779312033489*^9}, {3.731779345980715*^9, 3.73177935072161*^9}, {
  3.73177949610509*^9, 
  3.731779514182033*^9}},ExpressionUUID->"65572b19-ee1d-41da-96a5-\
772d3bb8de25"],

Cell[BoxData[
 TagBox[
  GraphicsBox[{{{{}, {}, 
      TagBox[
       {RGBColor[0.368417, 0.506779, 0.709798], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV0HtU0ncYBnBQlEJU+H2rlSZgOs1LaZ1trs7q+y4tm4pmamzavFCplVF6
oPLSZppTT1lQLm8xppZLS10TuyxzapYrL1lmkWJzKWWk5Y0Eb4z98Z7nfM5z
zvPHa8s/uH2PEYlE4hru/5T+wDddszt5o/hGwDHuFgVu7uL48Tjf4e5Wl8M2
AQqsv1+fzuHsxcpn+eGjPAWWNuSwTTiJuDnLlyzbq8BxG0QHptjZeCiIfZGd
o8BdM7G5o+wCHBtixah+qsDU3leOI+xyvINVvpAe/QIXP5TFv2PfwskpeVq1
pAdXVWf3xq1+iOOyhESFdx+OwY8LhhO68FnyqmZrSj8WqJwG5FUvcLnE/mpd
4r+YZnvC8Z8v+3EPP+1UivsAPs1odS6OHMBe7XZO5HeDmN8b/Jdx22t8ZZm4
iDf6GsffO8E/6KjGy4Mv2KFFb/G1Q/Sgpd+MYHl3hF2XxztcnLxf7c4bxXc+
JsURNSM4TTYbODk8hikSzlTn4lFM6uqHuqQJvOWGtjo/fAw7CKOPBjtrsOTx
9SPbFON4UJO3w+zOR0y28/Xf4jeJfVT7jp2N12J+o0rvPanB/oNiFxZrGnMi
+pjPL09h9V1+6t+VM/hXaWmbS6AOr2Y+s/GMmMNyaeDp56tnMA1ropQT83hb
58FruTOz2HskdGpFCAluel40tZqbx4qm3eRQVzLIaFbWdakkqM1qDudoyBC8
aPLQBxEZok1E/R0dRiCcvzr8RboR7EpIrqUXGsMCqa3sfKoxuMW4dPhFUYA6
1OBQmEiBR4SrmWidCXjsbxi3yDSB21VpRa7GpvCeSxrOSzWFZLLztrY+UzDv
CWKdOUkFmjJpq0BOhcbF1iWtpxaAqsw2V5ayANZ38/f6HFkIuSuXUW6FLIS6
qOWqXAENxIXRLVEcGvyy9JyxlmsGobnfd9Df0MD9ns0HL1s6aL0u6WT1ZvBe
69HrN0eHAdWmo02ZdECutyMPNZpDyYY11u1R5hB5rM+q5qQFVGaImDGrLCBj
yptVtNESMkN2+RprLODbobVyyaAlfK4sLs9stwQlXTJk7M2AfKeiynZfBtQ+
YmncJAz4sSEn3/cWA6gTGxYFKhnAtQ659NCeCfq19y4McZjwtaAljJnNBA+f
zB7BTibIlvPt2zRMcDYSzHPzmWB/97fz/mEEyP0Lqo3amCBe1eT8pJ6AprOF
cVPTTIieoDx+4IygitpXMOlEAP/aOCf7DIIYdO44dzsBcWlBsz4SBJ28zoBp
g0VB8uf0cwiSKt68LAsiIEsjOi0+j0AaPoz1wQRUrdPN5EkRvDTdbFnJI0DX
qH9WdgVBxZKh8dmdBIif0HOaWxB8Zh7pK4ghoLD0QOxPDxD4fSLloVgCSoUd
nltbEQS6jjncNPj6EvF0awcCYeOnluR9BChDUWxXNwJ1QA1VHEeA48Ayz1cD
CDL6Ry+XxBPgLk9iXVQZ9r0+vvdMIGB9Rq9uzxtD7+amGzTYz1H6+1s1gtqM
tFAHIQEJ+zmssTEEi9fItpcdJiDlq+O6PyYQtPS5120+QkCG+aunQg2CiJvp
6kGD86tLT2q1CLwqan5ekUhASSol5s9pBPVL5ESjwVcC92xKmUWQEFYXHJFk
+PuK+zYb5xGIWS/D5gyun3DQ6fUIMikuK4uSCfgPY0YqlQ==
         "]]},
       Annotation[#, "Charting`Private`Tag$1755925#1"]& ], 
      TagBox[
       {RGBColor[0.880722, 0.611041, 0.142051], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwVz3881HccB3BykTtyd58eVipOKVwiW7bVxvuthFBKrKIV52cppWWENiou
a3LMQ34+5Ec8aC7Zqa51MkR+dI1LrU7Lzzy6/MhuF+fEvvvj/Xg/nq8/3q/H
25x30id0kZaW1i5q/t9FP/B07UMSnLxdDrZtOSqBFhnHaz/nIOQfluzhxktg
obXhAodzFN4OdwVaXJZAUWO62WLOWfiVudvaoUYCxx1jTkybpcFTlwVF+5QE
ZJqI7PdmeVDBcqtrSWwAPfmg5bhZFeTyrV6uzX8AJR3F0e/MxLDht+zkl+pG
EN5Mkx+37YBD1yt3CXqaIRy688ZOy+CFr7H7q+FWiBqxHhIJX4CJWJM6cKAD
6OYXLV9/2Q+6QnlmXaUUrjA7uSWBQ8D2T/Z9UdoNPLnvA52uNxBY1fvmu+Sn
EP3wIu+kpQI6/JirRJLncOuUwb7lO8fB2u7mn0s2yqEkIVKxaf97GE4qn8wJ
fw3ni+f2/js2Bf7NrXE5kwOgJevH+/FKuGW4zu5V8DCsPxMW58tVgV3eWb7J
kVEYVl39hiH5AM2MyZnMOAV4jBw7lxU9A+K82JJc+wnYPSzYYGo6C8/TB35Y
snoKFM28pEc1GpjPNS835yrBlvVs9fYjH0E9wevNylIBHVRBfcp5cC52GF47
Nw1u4/7Ta/y00P5tnvH95ln4qylE299GGz+94Wqyqvwj1F9qOcxRaaMmQtoW
+YUWhi2O6ZdKF6EgIaJnTas2Bp9OqDfI10GTUUX6BOqgXfgGqVcQDavTFzkf
uk3DJ2wbRsyWxVhdfceAu1MXfxeeL7DR0cXCuzbvKu7pYYI2d0/XK13cLMms
EoI+0vvi3aNEeih586TRWEjHkQrz7OLEJVh7tCtaX8nAbKsVNLGfPorWXbQt
cjJEQX5YWxCHjnMhyqGPh5eif/a3UoNROhaGF9RpQoxwxuW6uriBgR7timV9
m5k4NLItrolvgG5jJ735ZUwsdbRf+TjIEE1DrwX3G7GwJiWGFb5xKfJkGeOF
x1jI9wv21FEtxYe19pqD91jo0FdSxX9shBly2g5HPTbmWhfUPPZkomZ/gGmd
Kxt/bEzP9RQzMWy6M2DrBTbuWul3vcOChV7TPnoWd9joHNUWwEpjYazVstT0
ATYWr+JZdKlY6O4hmqvTJ2jRXJmzO4CNwflRvt5cgoKNTdyeBjZu8uzOcHIl
GKakdbdTeeV6ukNWIEHerX84aRkET+3t0ZLHEDx+ft+cRybByANjcZ99TzBm
n+i5wS8E6QkT4suUL6lirghyCDLA5upXsQSFW9Saq0UEUwPZTblxBNV/LDyr
uEHQ5Vycyj2B6u8xSG9pIzj4+TNhchLB/LITEantBE2sfJJllMvOSLe7dxJ0
F1/jrEsmeNtYMNsppe7/bdvaRrnPn0TIegmy6wJq6RcIWg6t2D44RLDexmol
P4XgJlG8afkIQVX960e9lLemyNWhowRzfNx2WKQS9LIsqn2rIOisU1jdSPl0
JMd0aorqzfyZO80nmPh1srpOSf0f/WGPyyWCKYaDT8+oCHZ5q10zKefeLLs8
M0Nw3t+xlJtGsDSJFn5vliCXcVcvlvKNvaHbEucIFjQ6OTZTFq1pXe00T5D2
ycQ2o58INijXqxcWCE7mDy4PoPwfuOExDg==
         "]]},
       Annotation[#, "Charting`Private`Tag$1755925#2"]& ], 
      TagBox[
       {RGBColor[0.560181, 0.691569, 0.194885], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV13c81d8fB3Are9x7Py1SFCGECiXV+x0SKpVRlKyEVESUjBJS9khIQiqF
EPElZI9sRTaRvbK38vv8/rqP5z/nc855n/M+r7vT1EbrGgMdHd0QPR3d/39f
PTBl3mfmfMyUxnxW8605lDYKnr4oqA+etN/xTAXmsF6e7yEoeB2cVmZd29vM
4VWhv8AGwfvga6Z2bIDHAm4edbi1KOAN7Kdkdjq7WkDjqmXolMAL+BOSXltp
aAksHb9FJwQSQKPblYdF0QpaC786jA8nwE+HJ+FL+laQGB9RMpaWCPHGupHc
961A007TaFT5I0SkHc37kGUFYWw5YUMWqXBHUksmUv4G0KK+MUy3pIPxixqn
CMWb8LoqxnZM4AvYLvxxVrpqDXMRmeK//L7Aux4LdUEfa1C1qO77sfwFHhif
LpFOs4ZxxkXdnMYciBc7lNO/bg2Hjmoe9n6SBxXFDlnJMTbQkLrGIDpZAOFd
qj5O9rfhYZWkxj6jEvhq4TbP+8MWPqRliSQ9L4E8+1y5/mFb+BGhxLi7pgQS
A3xCq9dtQdhCL2+rQimgw1ulmb12UMXoKUVHlMFFPTOXN752sPloB62+vBw0
VQV6/zt9B1JSvTtuSlWBrEiUY9agPYzSRv00TKrgnGB4SeK6PYje1TgmFloF
/I1X63O3OkDsEY7XfctVoCp9NOvgKQcIqfQzv1RWDSq/P6dFpjnA3b7A6ZMG
taCMUpJ7Pe9CDEe1B/VEA/Q8/0f1O+4Ix446G7gZNsA993r9h4aO0GktITd5
rwGcGGOFnzs7wtYfvoM1iQ3wofvlkNh/jhAccVr9KeU7BKjKfJyXvA8eu+u4
1zu+Qz1f/Tb1nU5gAd9fjNs1QoF3kAWbiAvQxS3kdPg2QoNa/PlFVReIYOLv
rHrbCMIeaZ85LF3gW6X5joTmRtjLsOPZh0QXENNZi7t2uAnG7P6kZ+1zhWFL
0Y/d9D8hN2apUPvkA7AKcc1vCGqG2JcH1IfV3IBhPu5XQUIzHO/ZJj132Q0i
L36jSy1uhjrDOK3NNm5QxU8o+881w8DQgZxXz91A4v2HCnW9FrCnixvK7XOD
8dzGhmKBVuCR9qQ/4/kIrAf29GWktEGDwsU69xZ36DFsYy2qbAP1EzYCVpPu
oN36VKq2vw0M+zUzbVg84FD10P0BvnbgldJSaz7oAYxp7yibn7TDiyOWKpsi
PSDCZeexe0YdEObUveZi5glFBO8LBUoXlNHk/1FoXiDr/y3/hEQX+IW6vuGW
8oJ4Zsf+86pd8GMuM0Nawwv8lpulrVy64LJ5Rm2nuxdc+BVaHjncBXl6JyqH
5r1gNJEyt1rYDfVOB/hHfj8B9p2eor8O9UAgg37PYJs3fDsSLP3gRA8ovUx6
77zkDV560Qe3a/WAZ46vp+wWH2AIyj55+UYP3EoPFSN0fWDl37hFy6seCFZc
qXj6wwfGOnU/1DP0wqTiZifnJl+oiRDdU1jTC9WBDBNf5v3BJ0N2n1FbL5S6
uJ8T5Q0AtYbjCv8GeiFsQ45j/pEAKGUxUD+y3gvR3bodVp4BkHc36Hr2vt/w
c6jrfNGmQEjWWU74FPYb5CuVPNQEgyCAUi3+2rgP0ph+DRAGwfDl4PZMTes+
uPiv0/i8XTD0G9rAmnMfyDH8waSnwaCYTOhcDO+DbMt7hRmZwTCsbuDKVdcH
dUZns3dRQ0DZY6L+vmI/OKpMrfjUhsDSPI+D1uYBKDNOXntxJRSEtpuurwsN
wEmagknyvVDQVMnwTt43AJv/02X+HRwK70L0olnPDMCPZ2k5qeWhoCX9uiLf
YwBcRtzsevc9h2TL/XwS0wPApzVHX8odBqYdOgWMNYMQL668XtAXDuwve2/Z
tg1C8yvdv0X0EZB+yZr/1+AgWIUSD0cEIoCx/cn9HPohOOIfVpFgEAFvW3MO
2B4cggsTioFzLREw+FPwQ3fcEIBMSmXnzxdg1TAe9OX+MBw7+S5Qa+ol0ILu
g+iTYQj4o3jjKhEFOWeZ/4SGDsMNUQWOWPko4KgXOHU7dRgq+v+7/co1Cj7W
am0QHRiG936KVSlcr+BPVfb90HMj4C9Kp2sgHw22ZZ6mNqKjYHPga1uObizs
6FdlXjgwChdSauR/WsZCNQNboguOQslCT9kGl1jYjf7T3vqjMLCdrichLhba
cp67vfUdhQ/cKY1007Fw/FN8dNvkKChsOBBKF/IaqC+/tStnjwHLkoQl02Ac
5H/xeVBVOgZpPaK+W9fi4Ebr6V3nv48B262fJ1Vpb6Bs0/frhqNjIFRxnnHy
2Bu4H9S25Mg/DinZx746vngDvY9HN6e4jcNP/kMuT7TfQtptTu2t6hMwUlTJ
dqPzHdREEveTL0xACDd79aaldzBYyhejZDYBUeV7lPqIeODj3TN28+EE7GHR
/jt4Kh48i054FGVOQNUPD5Owr/Fwgfbws9WuPxA1/NIg9/17WPk8TXxd/QOM
lIUWg4gE2Ni9pKDFNgnKD85JZGYngBQrnfHQ5kmgto/PyrUlwFUD7o/U/ZMQ
eVcvKY0vEWqYJFTMLSdh/3SGZHhMIkTrmtnz/JwEgZhF1pNpSfDa+caozMUp
OFSlxJU0nwwyhWxLT65MAYOclezM1hQoZPqw4dfVKXj9vNbc9EgK9Pj3C/rf
noKNTTXv8z1SYEfslYsj3lMgcOtMwY2NqRBZerb0dd4UhGvsZu3d8QlCuGSj
abumoc11u1CnXhrs0vqRdF1sGtTkhlzgVhqkhd3+Uig1DTdsZ+/lPEqDBoHk
JmvFabjw6VLeYmIacO8X4ajWmYbhp0rWIf/SwOfCVkePJ9NQYM2kbZyYDu4x
a+fnxqeBq5BjfdemDDgnk20rMTsNKu2lBgqSGbCj6E6w6fI0fJkYbLmunAE5
v0cbGjbMgMD+vAheuwyY2d12NnnHDOzwNLmR1ZABph8zz5ifmwEfkajRDc8y
4fgXa/XWzzPw9QX97iLJLODWEL/OkzMD7vqzRTons6CzfeCpauEMiHexqTGb
ZoHjmsG3jJoZUCmRCy4Jz4JPcOpk8MAMEMoeCYlM2SBYLnpCY8ssyOuLjp/s
zwa6xh7Mc5qFmN1x55Jzc8BzJP+106NZ0D+rTG3vzAE2ulcMCk9n4cHCFj7p
fzlA26tfmvl8FvxKjQq0jufC7iffT6Z+mgVf6gG3x5W5oKFYrBk3OAsh+37n
FPfmwbM3bwyeas3BudXLV+b3F8DWnEdfVfXnwNOv+Zq3fgFENRjt2GA8BxW2
Un9OuRVA/N9tPY9uzUHU8oTWlboCyL4YetX56Rz8da99c1m+EDo5HltZ588B
8+XsdMW2QhCxN3fUEZ+H8C1nplr2FcPew7+0Y2TmIdN0ujxftRhk6fSkR+Xn
YXsx21je5WJQ8lMffKg8D2MMFNf1x8Vg+FZSJ8lgHhSqPO7FdhRDWNOMNEPg
PAwZK3tZ+JbABrmHQ6mz80AVDwzN+1sKnKuLxSvL8yC38HDy66YyoBXdjj5B
twCmd4pr2/aWgeAZU90OzgVQq2t1MzEsgyPXTpQwiyzAEfbg/M+FZWD/nCPm
it4CJHgm1jr7lEP/fPgFjq8LsLbT5o3xgW8Qd/zAna6SBfio+LZb4fw3MPKv
C0ytWoD2aAt7eZtv0C68oVK7dQFmmL6pRSZ9g+/adopRswsQ565VQxGphPy0
04J7xRdByeWOWcfOKgi/RT+qGb4I4sd/Zf2TqwGdL1HMO6MXoeLrt+5AvRqg
bTgkNPt2ETp1Gi3UnWsgIMraIDx9ESLflqnLF9WAZ3VH3a/aRTi80X9hVbMW
bu/57/NtpiUwUNFKMLCrA40BK9cQ2yXY0BTf2XizAVRdhT6qOC5B26cxPhu3
BlDa1Nm+8GAJFneb3RcMbYDDJ84cuuy3BCGub/+U5TaA+DvpWaH3SyB48K7Q
Ds7vwHFtzjKzcwkoKlF7t6R9h5p+V53Wk8twWIT5UhVnI3xzkffw0VyG0TMr
QrpCjVC6cTLtiO4yOb7+4JJCI+SpGPO8Nl2Get1f6b4WjfDxrVLVdddlMB/2
Z+wtaQR/MxZcTV8Gm0C8bfSoCTT7gyR27FiBoM+Xz+lSmqFGor/JQHgFzr6Z
pNiINcOpOwcfvBRfgbiDjntfYzOoMXQ3bD24AiZdmdWats2gJChxlzi3AqqU
Dy3fG5tBzqCskNV9Bdo7mbd5v2oB/qZl3dmBFZDgn9hyRqUNIredWd83vgJV
xxsORxq1Ae/V2A+3Z1ZgZGPOOQbnNtg8o7o68W8FIoTXEoTS24BCCY0d3rIK
Y/bxJsk724HxtNRYl/oq3H3AaT25oQNGS0zdviWvQkn48+Hivk4QCG61CshY
BdmGkA+yG7pAx1BTVyd3FU6HhkOlSBfkLymI93xbBS7XGaPLVl0QspfatNi3
CtSbQeYis12gGF4gKsq3Bg76D61tOH6BnxV//WOvNWgz3sRWntQDUtTm7cpG
fyE23SxgZF8fDPoPuj+/9hdqbp1/uHSiD16xLw4N3fgLbws/evJe6gNOpq3p
fo5/YcU7fz7YvQ9GF/RVm4P/gnfUnsArTX3wrrPL+nrpX3gixedg6dwP/B8G
CgL3/IO6MUfGkJYBYId5k87Zf/C16sXtw1XD4HhcjPW/lX8w9g2jpch3fVD5
ckog/TpkJe9OPUw3AsVqRStKPOugv74tNlJ+BJy0/J8liK8D80plgdPbERi7
trvsrsk6PO+vTC3xHIUaP10xav06MNk/7f50cRxOTlxa3KVLh+IXbwhKC09B
9EaPxod6dFjQHpJgLzsFc4pJqZ2X6ZBXdNvNcpUpiPVZtQgzpcN7o2qxAdem
YEU0qpXtNh2uPBz9mfZ+Cj6adn2Z8qHDdIUNBcrkO0NpNXLJL6RDAbm42mcq
M9BabEZ/SZIetxnofAx5PgeZT0sNBefp8fe53me+V8lzu8Ghp66OAen6TxfZ
yK7DVTvnTM5IRmzv+St6zZ0BpS0k6k6bMOGTfhl5pZsbsJ4myeGgsAGTJzyI
ox6smJvi/lKSkRnPtURPicpxoDO9+LmaLmY88ju75MAPLhxU4WgV6WXGSWGn
5dwOLjz3dNzoUT8zzjw2If/gcqEwT6qN/BgzigtE7dm3xIU1/LKBsUvMGHFX
tLR+OzfuOHSszp5gwZV3vI1/LLix2Frr9HZ1FnylL+GSuMiN7J1OatYZLHio
gN7oLgMF5e8lcAVmsWDRs+CjsswUNKG1/kjNYcHSBRnHSTYKZqvJXZkuZMG5
/mAGQyoFzTMnbe1rWTBvWPHONkEKFgWYvXQaZMFw309sW49S0PG45h+vraxo
+v5NK58DBQfid4bGuLBirYdMknkXBcc9e5cZ3VhRJ4ZpR3EPBWdMXxtZkvsi
TEjF8fVTkE5gp8Q+H1ZMk97UVzxKQb5wweLicFYUs221mFqk4LknAlMD6awo
HtjtU0ilYp7F9tOSI6x439ZO6JgyFUPFeJm+6LJhADNz49orKhoYirzv02PD
xyd3FN+PpaJw6AENbgM27Em/ajsXR8WM9TNBV03ZkNfo06a+91Rsanbn57Zh
w+zxjZHv0qhIPB6XvfqUDfXy/XIKS6kY0ltwjSuXDS3/CyzQG6HipS21rIfy
2dCx46p60BgVd51pTzItYkPxcpv8sgkqpmfPTWdVsKFY7Scb8Rkq/gjc88C0
iQ2h8O6mjhUqUo89C8uaYMMErsU37Rw0DIo0rzARZEfjiwVeBpI0vHfX/Y6L
EDs+OxmPGlI0NNSKFggXYccYDdgtL0NDSfbmezWS7KhpVXmHVZaGlfdPiB1U
YEc6QbZT4Yo0ZNAX9ubUYscHvy+yGmnQ0GHLb40sD3bkn6eNxJjT0GD278J3
L3Ysf2HhoWtJQ5V63jfj3uwYEnzCjs2KhrQn51d3BrGjOl+11s1bNExZKEzy
i2LHJ4MSyjvsaTj8M4bTNJMcX/IrvewjGl4KvVLHOcSOoYZlQ9KRNOT/zL7t
xig7qsn2mzW+pOGv71kWlRPsKOPVxOfwioZmPDR6rzl2XMjyPvg5lobWPuUH
1uk5MLu42JjvPQ3d3aRfTPNz4J9Rwabnn2mYcJPerFmLA7tf/hE5XU3Dm74p
n2QvcODArfKKLzU0lEq8/DdEnwMd3bY27q6jYfpQZthZYw4sPbxXermBhnmm
VpXfbnGgU8SiiH8zDRv0GqVyn3KgTpCKyY1eGi6pvFuOyedAl2gpOY4FGrrk
xniUFnHg1G36wgOLNKTbH8k1UsqBcibCtMtLNGQRCNy5v5ocr76HEr9Cw83L
juqlLRz4mSs7fO86DQ8kn34xPMWBR8M/lTKyEmi9ae7QPiFO3FjYptK0lcAZ
3z/FuiKcmOuq0dXCS6ADw8hppz2cKK7Sa9TOR6DLZJdxiTQnnpVLEu3kJ9C3
suKp7hFOtPyc2v1DkMAPri9b7+ty4r10jgZ/MQL7BpQci59w4qkMxnI8SKBS
TF2cuC8nilXExsgfIjBW71JtSAAnslO19SQUCDSstt119TknEldrb1AVCWz/
FFvD+IYTTehzjzQcI/CH8z/BE/mcmG+vEMSrSmAxNaeyYo4TB59Nbu7TJnBn
9Yk56SVO/MncvSVLh0A3z+87IlY5sb3mPb+PLoHHFofvWDJwobGZkPzeiwTm
dG7ZwUbhwqyz3eUWlwhMf+9gpyHBhflHT51JNSYw7ui+bbUmXCj01VU88Cb5
PU12j1UzLmTcEhOtcIvA30Z9o3ssuXC41lm7j7SQ+/McL2su3Jzo6y5rQ+Db
8mV9dOZCPbpOjjpbAt+dLY74HMqFZiEJ97rvkvtlor05soILD39fnLnvRuA3
O8kH36q4cJ/b0gLXIwKHPTYMLtRyIfPDx9qvSYvFZ2VqN3FhtwKVt9ydwITR
bbpcvVwoaWM2wvKYwMQ7/c/cVrjwCJvLoVveBCY/dqBa7OXGmbdlh0uCCRw/
csX9sQw3Xtc34T8eQqDknMrsmwPcyFpvbJtPOtF0488eBW7M4P19L+sZOT/4
HHFJlRv/xciwvHlOrmd5SkDTiBu3WUGq8QsCI2/dlJIL5saaky/YnWLJegnr
xGiHkn1+zfX2EGneTkWKXTg39qk6XNZ5TWCEBsdMyituFGZJKZaMI/C5aGKm
WCI37or+2N/yhsCg3qEj/CXceG5Nb3jLewKf6F49xTjPjXVtx4yVksl6nO00
uLbEjQGcHeYJpPPUda0rVrnR7j+VSZ4U8vwePRnsy8CDycY/n3SQNhCRaCEo
PHhsmG/45icC9y/OmApL8KCZ/ct+x88Edke4O50w4cGWv9IfFL4QuByy6vve
jAdlspr/BpPe6G//is2SBz0nSgdHSKs/Mi+steZBO3hoH5FDYMZ1DeYLLjyo
mfLQfyqXQJ/DtBDzcB7sYHAS9s8nUK7zdcKTWh5MePULnEsIpEhZLqU28OCS
kNpgEenxh1InWxt58FG8jCJrKbm/Qrn9Yu08+H3/1PQz0htvNAlUDfLgVirf
q/dlBK64MJ5ipqOgU7LJocIKAts45IvUeCn4qzatN7uawHLZF8OdfBS0PBHL
sEA648oajy0/BWtu1nfuryH3N7XY8IUABf+JyOQnkVbTPrs2spuCel2JRyNr
CcyOtDzou5+CwzdG7ljVk/Xa8zK59hQFF0r96tt+EDg3q/rO4wwFGzw4thCN
BJ7Nn4lSOEt+n9Vj82nSzNoafu+0KHihtuDYV9IOLstWrvoUDOKkHotqIlCr
/qLYXgsKVk+XKJ9pJpDTYeMbP3cKpv48lOHaRqAlFEYqeVIwucc8JoV0CdvN
kKXH5Hrbh07/Iu0UXfLIzJuC/QEbp6CdwJEKO+MjQRS8+NLU6B/pcr7v28df
UVA4Zn7X7U4CHxb6R5z6QsEwAR65Pb8IHO0qDF3OoWD3jRY5LdIXVmeD3udR
8KFwEaMzaUn5S96MhRQUyZ9mqSHdmiTilFtOwaHox9k3esjzE15wWaKJgvbK
9ydf9xI4eGt6B8ckBZt1uTTH+gg87yu87csUBW2slc25+8nz+eHiFosZCu58
3661j/Szvq88JfMUpM9gSLxLGvV96JzXKHjmB/OFddKRKkK/R9moGGns8oN1
kMAz23TfVQlTcWiP1de/Q2Q9+qUKL4tQ8ZNqWRHvMIH9yawd46JUlM58/k6O
tAvmUXgkqGi5U5LzFumP14RctPdRcbfCUf120uyfprU6j1KR8WQrLXWEwAqV
ALo/F6hYLja4cnyMQBq35baHelTsfWxw4BJpw5bj8pRLVHzU+v6sHemF6/M3
9l+hYul+kI0jLRJo0HL3KhU73Oc/0Y0T6NkmnrJuQ8XgdenQbNLHrSsuU72p
GJPD37rxD3l+W0dUS32oaPVJ0EeCdIYy5/57flQMMHwooERahPc8a1cgFb10
OuesSXOWtmd8CKPiBG3xTAXpVt4/XPiWik4PZFvtJgm8Xbax0LqAinyT6of+
myJQXOZg0s4iKm5fmA+vJN0XqR/WVEzFrCDRX52kL9yOvnm4nIqz2mHCjNME
HtkmxstcS0Vx3/kATdKstop2r9qpyFbTsdpDOobfVLhmnoqpel3rczMEHj4g
IWW6SEX1sMDbTLMENqnPHVxaoqKgM3M9QZr1ntcp4TUq+tWF6+4nfft7op0L
Aw1lj0T6WpNGr9lCSR4a6q1dSu4j/XvS84q/GA3Ff3/XKZoj68esaSEkTkN0
KHtXR3rz9i22XyRouDq6NthBWkMjwXOAzF1P7R8dXiCd/rY26agcDQNZfouK
zxPoob95ZeI4DZWGSiQCSQuXvA/TvEzDbv/B85oLBNZJLr3tNKDh9+n5Z/qk
HcPUPlsZ0tA2fOmbGenq6yP1XiY0bOoiOJ1J21Ek2AosyNzFo7IUT7rgSoqz
NJmzKnaaOKyRvrSUYUzxp2FwV+e16EUCmUw32EQHkLnkl9KuD6RTqnVdJYNo
eETXsDGNNH3Mwgu1Z2RuKh8hykh/OHGo0e0FDR8/yeMZIz0fknti+h2NzO82
f2WXyH61t1j8Rz4NvS5zshSR/nDoMpt7IQ39A2fFqkgXKM8N7Sum4ZkLBtBI
+o++yLvgMjKHHR1XHyB9ystH4DyZw/ZPh7awLpP96ZfWxoY2Ggowne49Q9o5
qO9v7RwNQ726ORtIh7x06XQlc9bdjZFtLaQT4zfl7iVzVV6gR9Qv0q15Jx39
V8n5hFE3TJKWH0maOc1A4DZ3G1OuFQKnjtsPVfMQqLg7RU+NtPks0/dKcTJn
XODxzCJtmKhSZyBJ9q3Mp7lfSV8w8aye3Ev6zOexEtKq9Yzlm/aROcPymHwD
aZEkhlwTMjdJdvM6DJMeMKV7t6xMoKnk/tdbVgk0+7HquOcKgacbdMdukzbw
VrybZ0ign2uz2l3SOuh85yyZY1bEWGOdSaukrNxyuErgAUqUohdpYZ9l06Lr
5L25oC32knTf8cXT+mQuqQs4011C2jRtRtA7kMDeq3snKGsE3nTXXtMgc4Sj
I9PWzaQdtDNaOMmcIKpEHNlG+um8Q0BQGIEH763a7CadorC8Gv6KwGbb8ScK
pJeL1pvjk8j1JHQ8NCYd9IPTv5R8x/g+MVUlkI58c8vSq5JA48P7JVNIv7Gv
U1Yj3zFjj+in6aT/2xy0Ul1HzuvueZlc0p2XCMvGnwTeyZtWrCEt2ser/Jvs
w5EL7hoTpGUynHa8HSBzRAJFZ5r04ccdy9fIPmp9/rzePOnToq8+jYyS78wJ
lvN/SdvdENwxTd77fElmJq6/5H088mg5nbynhOx4H4X0Y67fTfbkvYr5npu/
kXRE6hvfJfKcmd/bf42fdJwbk0UOWaeWr4MygqSTzl9TciHHZd8SsyhEOmNX
+fZj/8g+yWn6RZR0/qzI8vo6gUcF5O9KkP4fsvwdcw==
         "]]},
       Annotation[#, "Charting`Private`Tag$1755925#3"]& ], 
      TagBox[
       {RGBColor[0.922526, 0.385626, 0.209179], AbsoluteThickness[1.6], 
        Opacity[1.], LineBox[CompressedData["
1:eJwV13c41l0YB3B786ymhDJDQt6S5D4UISUikoSyR0KZlZC9CSEqFLKSBklI
ZIYks2TPZG/e8/zD9bkev+M853efc+7vPrMbOuZ0NDQ0tfgH9ffju2ZM0tc9
FT0s1Q40B80pVn3n19TnvwTXH4t/1CqYU9yqLvPl57cGxw92Ent+zik+Lg/j
Y+R3h05Zzvl4oXlFuxO37Jf4gqBZpbX2WPW84vc1q9h/fI/g8+5fD17sWFS8
XcMrNf0qEXi6T7scVF5U5I5pq586mQz9N7MEWR0WFc3EEP2EZSrwKgQ4VlUv
KrrlsBfP/nwGismuPle8lhSZu/tFpviywOtdp3nR8rJiR/nHW5OjWVAsGRcz
emBFMft5wueJV9ngpfC66M7lFcVzTueujp/MgZy59KbGTyuKcawlcSOW+XDK
3i2NO2xVkZz8lW7mZyF4CrP3bj++rvi0LvXmBF8xDEdKxxmPbynOJ7wR+x1a
DLc5wlPUdtKAqmX9QOtKMXgLzDRlH6OBSfolvZLvJVBaGH1E8x4NyJ04Jx8U
UApzfvs9t3HRQnP+Op3I9CfQaV8ha8jTARlYjTkly6HRTZXnhCkdHBeOlQ+4
Xg4uUVVXfQPpIHw+a86jpRxkwsSNOTroQDbqh7nZywpQ1b7AJuhJD/fqJDSk
r36G7IX295ytDJD56p3wy4ef4YMOYVfIJgO0JijTCzV8Bu7q/YGW4owgaGlQ
uutYFTxY3F6L/Bmhjt5PkobyBa5YBt4MQUyw40Q3+Vt1NQhIusorfGWGvPyg
bjvJOrjz4dz7k2LsME4eD9UwrQOna037nE3YQeS2hqJobB106TSmcsWzwxMF
9qcDK3XAfkblWBgjB0TXhloYfqkHZu6mvvIRDrg9EDFz2qgRtrNFZtVUcEGh
6r9nQhGN8OQUw8F9W1wwnXVel76yETRjlAgLCgSwciS9KxNpgkybc5WEEgIY
bkR7/TfXBEPalUw7rhAhlb3el6TSDHvultM4WpNA8YSnkbdxM0wPZBDEQ0nQ
4yD+37RrM4xKjl8XzyfBrtaQ4YbsZhiW1+PYXCBBVIKmeiCxBaKXf+Wv+pPB
V6iJa6u7BXJmLVe+vaWAJbQ8mnT6Dtml8yZ7dXYAzbPFku6Q7xBXv5xYeWcH
JDDw9NSlf4eIpRsSH7N2wNdaC96s9u8gnOsyW0S3E0R115+Zy7fBVOBkUsX7
nTBqJZLzi/YH2KqkKY7+txu86zUbG7l/QJ+dG72s5W7YJen0t/TwD1B4zifR
l7Ab1OZKpZLMfwDxs0yy0cZuyLqj80a/9gewmNdOr9Zxg030nbLmyHYw8d/L
4uHOA3QLz35/ymqHUdl7ySKveCBR/ytNfmU7iA/LEJTHeKCOh3IybL4dyHfS
B8sN94L4i8wadYOf0HR+ZXNDmRcmP3xvruTrgLcLvbeTt/GDw9CBgaK8Tnj/
S5c25sB+6DPuZKmo7YQAspEOz/n9cKEjULJxsBPg9BuLpdv7Qa5+xH2Iuwt2
yOdEZnzZD/SvMog7Arog3nv9xIKFACR47VN0vdoNVcV9PrQlgsC22HzN16Mb
IgYOxa4NCcKdG95BEQ+74fmNtDkdshCYmf1ue1HfDWGRNm957IRAQu2xbcfR
HnjcdNxQRlAYKii7Hx0j9oKeX7oAzwsRkA37WqYi3gvrJ09FnekUgedMboPa
qr0wJzbhNsQuCqEr7YdsvHpBfqIMjJxE4eLv2OrE0V5wGVT66XDqAIxnE+fX
yn9BNfvnkaUNMWDb5yfyW64PDp0f9fFplISvClGH7qr0wc3owggvtkPgb5By
dK9OH/gF3To/ffoQ0EW+P33Ztg9yJq6+VK46BKubk5Y/H/eB3MzLvCumUjDR
o5f5je4PkMZutI3YSkP2slmBA+EPhKpZhlwPlwarbY7vOXn+QNHiA3+hV9Iw
eCb465n//oCS/weL20vS0FNSNlpj+QfOqQd2mAXIQEOCyIHyhj/wb8+Mfn/R
YQgukpW+2onHz9q/Ndh9GNSalY5tDv0BOcK5X7L0slDFbKSusPUHvLIpWWU6
slB6O9L6vXQ/sAmHOYUsyEKu7kpWQVw/7O1rG3mocQTCifViT00G4G7v7wPk
o8eg+OjeN+ccBkCwjNNO0v4YDBrfgHXPAUAZonVlacfgeC5FVz9+AGznXpQD
WR5G1Y3ucDYNwK3rcoa/5uXhpO/UN/fjg7B2vMvJuUUBHLLBUER9EDy9X41p
EE5AYkvUYNvFQZgtziC/OHsC/vEdWTnkNAii9zenZ+pPQErp3f3DmYOQ0PQt
eqZJEZYXCLd0dgzB9Sn7w99cEQjsNdvaEhiCydnKYaEkBOdOFQXlSg/Bjj5r
+69lCDKiDVJYzg7B76lX3nNMSqBz6GlNme8QSBYe75tLVIJcKxlu8ZkhyK+S
P3i4VRnMunU/0TcMw14lkasvfFSALemP/c3OYbjDetFgKV8FCg0deH4PD8PV
RNbK570qQN8V4F5COwJLN3w5RORVIb2j5PDNoyPQk5j55/OSKgz/4M/89WwE
nLQd1UT81SD8Ye5FzYIRKPZWlG0uVoMjevKMJR9HgFF3x9+hKTUIaLtg9rBj
BFrcBMwu66uD6Hd/Hk2uUaieqG0JOKQBNs2TkcXuo9A+omxevHAGyJHuIBIw
CgF3Fr6lSGlCiRbT39jYUZidYVahsdME9m98ZxzzR2G+jM38+KAm5DTqMIoM
jYKp5lhsftdZ+Fv33j32/BiMluyvuNenBTe/+JndEBkHooOyfK+4DvAOqjIt
Hh4Hclzto3AtHainY832QuOQX6NE8nfWASEUNhN0aRxSdexuqJfqQGfJQ+/0
kHEoC1g4Kq19AZQKnqd0To8D03V3JvogXfjbZKVssj4OvGFF5QavdCFpSmx4
mGUCBg+b5m906sKCWP7B+X0TcBMRHx2V0IOsjHelXLoT4BO0MebVpgekpK9d
J99PAB9D9GS3rD6UFQffrauaACPClKujmT7Ydmju126ZgA+jFF/jSH34sr3F
2nh8Aqy1XnSoT+mDe2TnshvPJITXL7HffGkAfx6M78jznoQmUS2PZ8cM4ZUj
x4Vd6lOQueezwNCzK9CQSHHPvTgFiFboDXP/FRiu4k5Vvj4FxoPWxQX7jIF7
94EJu3tT4PPZ/GHiM2Pwq1DxrXgzBXeKPnhNZV+Fi+R7r232/4XXe21jzkyY
gKOCf+fWob/AteUjcZFgCsEWYVuxJ/6CsDONX+5hU/hUknTmk8FfSAhLXT91
xxREr70foET8BcpHiuqBbWaw+nqG8nHtLxy+tM30ivY12PZr+ZgO6zRs6dS6
+HpcA0kWGpORHdMg7KkiSJt+Da4ZceWQZKbBbeCeEtPyNWhgED9lYTUNQs/e
yGmmX4cUvesuhB/T8Eb3i6sTlwU89bQdl9L/Bxn5wjHdktYgVc66HHDlHwRc
4eUfN7GGcoZMxt/X/sHVq+M8RjHW0Bc2yB/m+A9EozK87FesgffJFf2xoH8w
PXGy9nKdDSRWaVU9Lf0Hr8W3W+7xtgMx1r8ty5X/QPJyc3v5ezsoPhv6W6v2
H8QrJ39tn7GDjvavqxs//gEyzi/QN7eHHWNK0obT/4DvA6tVtbYDRHPKppD3
z0BNa+pqFL8j7NdpfWktOgNuR002U5AjvIpzLC6XnAGXnb4vJkwcoZkvt83h
+AxkD2UMqDxzBC4ZYfZ63RlwjD/HxSF6E4Iv7nLzDZgB+c2nLTrICXxS17Xn
J2eA2ezso5QXLnBe6v1N8bkZ6DsQqdL5zQV4K5yjzFZmoCtk5qjZsguU9I83
NzPOggS70HlTjVswK9Splcs7C6cVnh8Rmr0FZjlvzlqcnwWhP4O0WtquIHXi
pv3ji7PQuNDT9+6uK2w2SoS1Gc1C4oOr29xzXCFxOq1B2RqPN7omwszqBq0y
0Wf4fGYhR0SbYl7tBkrFDuodr2eBKdN9rErHA7g0xKwJJbOg/txfm8nfA3q6
hgJVy2dB/HCk+ctiD3BbN/pa1DALp+BcgsB+TyiAM6ejhmaBtzQp68+SJ/BX
i6ho7JyDEzmqzirv7gDN9z5U6jEHdL/EGT9/8Qa/sbKnHvfnwMmMh0FmzBtY
aR7THQucg+za22UTHPeBfPBS1ZuHc9AnxdqtpHcfhAJaTucXzIHMQb3DwWP3
QeN45blnw3NAPLPr3Z59vtCk/STfZGoOVHc5T/uo+8IFq7tEvvk54BBT0AUn
XzB6KN+aRDsPm1foHUuqfMFhulDvIc88GKWv9zTa+0FMWppRoM48VL3j6Ods
eQC7Su5/VL00D+YxSxu8Ww8gufkqL6PJPDANhR6IOugPzzf29N23nwcX4abf
SSH+8F4/9ppn4DzMP8m4baoZAD3sD2wcyubhYU/jJas/gSDsYuGmK7YAReVG
OUlXQ+Gg/O8LqVIL0GZkn3YrPhRkaQwOjR9ZgGCVT8c/fgsF5VD14XsnF+DM
v9SsBKUwME6X0H1ptADyrAmnE8TCIa5t9hBdxAKI333+H7BGwuNEW/azDxfg
W3nIoUbRSEg3GRyOT1oAuoxJzkdqkVA4+ePxwcwFkOPzvjwZGAlNDMXslyrw
+JXP0sM5ooDxv3sj+XMLkHdBT0+KPxo41pYqV1cW4L1uuOjPk9FArnBMUaFZ
BJeP6V2fLaOB/6yZXjfHInDRiq87FkSDgrnKZybhRSByn71wQCUGXB6yp14x
WIRflunvw71iYXAh/iL7x0VYuO8hoy4SD8+UDjv3fl6EaYtQ2hSDeLga1hSR
X7cIB+9G3bgcHA9dgoy1FzoWocTT4RFlOh5aLjgdT55bhCyhPalRHxOg7JUm
/0GxJRAvd1cNv5EIXhsjCltSS1DJ1cfQ8SIRjqn7Xmo5ugR2NGJrCX2JUNRX
HH1LZQlOPk9287uQBNkEEcYykyWwXpQP3AvJEG9PO34ufgm8za5rnJBMAd3i
ZKZ9KUsgE7vJ7eKQAmRGOYG59CUYkVt4L5OfAuHJDkbxhUvA/GGm8YxMKvjV
dzf9blwCQqWAuz/fE3A88Pa1I8MycCfHlo4cewoaQzZ3om8u4/NUZrdXVhqo
3hHIOeW2DLlu06vurWmgvL2na/HuMug6GD9vWEsDeZWzcpdDl0GKc4jTWSsd
xDIOzQm8WIbd565d+LmaDuzm81ZvepZB8z5da5LZc2DZyIm3HFiGo+sKYvJR
z4HhoXn17vFluCyeUSxX/hzWq9oF7i4tg17l8ZBLfC9gUrD4lyp5BWINv2dB
/wtoGLyj23F6BZztOQzPe2bBV68jvsHnVuDwptfP8wVZULVt+pWC3gpM/KR1
LhvKgtJTJoSnZitg+OX1rUHtbMhJV66zvrMC2guL/C6HXkLYdWa0VrgCUg+Y
r9rS5MK5wUhxXt5VaJ9iiZbyLoAG8cE2I8FVGJ9iJux6gk8P56N3k8RWwS4l
yEahvADU6H417zq6CiWH8u6foH0FyvzitynnV6G8YXvpQf9X8J/Rl3IWn1Vw
zkzXO5hcCEVpu2xOB65CtJu/+e7yQpCZsKX4h6+CYb1KpfpgIUh6kC3ok1ZB
3D/S0P3gaxBNuMq++XoVYvbpbO37/Bp42lb05obw/L60vWNfL4LEPWe3pCdX
oVeVwcVd8A3svvYk03F2FTKNQyoPn30DO2ZV16Y2V+FumsrpyNQ3QCTGPhnd
uQaT/e2uy6ffAr2m5ESv+hpwhEQ3M2S+g/HPZt5fc9fg81Cn9vGsEuCL6rAJ
L1oDi+T5nqK+EtA1Pqen+2EN9pUsXEzd9QHKlo+J9X1dg4benQF1QR8g+iCp
bWlgDVAys1z0zVI4Hv9JRIR7HVIqc/vy9MvA8fp/5Cn+dfjjeiriaVwZPJd+
uV4osg48W3uTKe1lQGyIa1H8bx3SeyzS3C9+gkEaB8+L59eh87DmySLJcgi1
4fn2wH8dgjZlVvWVK6DiaHTxmbB1KBDn12K2qIBFBpZ0Uuw6vNCUM9gMqgCT
1Dm3x0/XQdAkIeNLawXIttXtf1O6Dko/ZGS/WlZC7wn324Oz6+AU9/rIrief
QZLUvvfk1Q0QiGOAibPVMBw27PPQfAM4DCTzH7lVw2O2pZER2w3wMSxtjEur
Bg6GXYWhbhtg3jwrcW+1GsYXL6m2R20Asfm0ws6cGsjo6XWwrtoA1SOiJ3p5
a4Enc+hTxIFN2JVJSn+p2gBtgouC/Yc2YW6GPwZ5NUDIU6Zg2SObcJul9vSR
wgZYTRTR7VTehG3ZZ2+p8jVCR5j16H6jTUjEYYp9sxFinKeIb8M3wehrCtvr
pm/ABgumPXObMJB4TdivrwXclERZ3q5ugteoudBXhlYYPnk5L4J2C44Rp9W1
D7RCpVrFqjJhC5gjbetlnVvBQycsJktsC/J2ZcFZtu8wYS705bbpFjT4W7Yd
UG2DhlA9UdK3LVjj+6vYvtQO8hGBTeM/tiDjQezjNKGfkBn1waWqZwuQpaLw
lws/wS9uX4Xr+BYYSbXkMr36CbzNixLTdDRoQIXhRtSNDmjvrPyix0uDDHOP
GPy30QmnpwyX9uvRILFh+8uKxr2Qss33+z0DGkTjJhF0J64X5o+/zO+5TIOc
2/Zd3/utF54Er1nGmdEgckAp8b7SL1gVSe5gdaRBE9rkhiGx35Bj1lv8L5gG
tUU7XlcL7ANix1WvsnIatLt36YrZw36w2Aow2FNFg6RJ52Lp3/dDqXCBrFsN
DSIFsr/v6eoH61s0U9JNeD4njQuO7huASvLTKxndNOiCxUhhXMEAuJztVwxd
pEEy2yFErGsQOiqv0xpK0KLgIQNDQcMR+KfUxX3nEC1aPrtzh+H9EWCu0JJ9
IkOLUmnqlaozR+DIJ3nLYTlatP9PzR3l5RGI/UBsdFKhRcfP773f9GgUtIpK
E0KMaZF94xzNhZExqM7YJvUxkhaVDyt2DuVMwi/BYPW+GFpUF5oSJto9CQtp
W2b08bToo1STWQbrFAg+G3+o/pgWvVuRKjtrifv0lPK1H1m06KCyitxlob+g
GG9X87eSFpEvSPy8nYP74MAqY/4FWiRZuxnj4TwDmRr1uwKWaREq5lAOi5yB
RI7W1qk1WuQk2ZNXmTsD3pG/VT/Q0aHQXeuvH47OgGbCquRFIh06qEDb2n11
Fh/ZUlsh4nSorPX8hT+6c8BVk5y6ZEqHpBWzaFwMFsCC8VZfUxMdylYKOa5d
vgLcfLU/11roUB+jJAfTwAo0ye39JvqDDr3thcPfGVfhiN2Xjz7ddGj0udbP
N2dWgen79qQjo3SIXyc4Pr5jFTKevNVLoaVH3nulGNIX12Dw+HKdvSw9ao5T
OeuB99E1J883HIn06Hu09LVt/rTokKV4k6YpAwpGjES1K0zolzXfjdzrDAg1
Jf7c7sSEQu0oRC4rBuQYc0Dplz8TGru5pv3NgQHpjVaqGxcwoTSv+h/aXgxI
YCHPagc9M9oZbdt7MZ4BDXdOaCq9YEZbpS8nTRoZUNe6XL/pGAv6RpZgv3WM
EflmmhC/arIjRXv7sSQFRnRtbj/djyvsKK8mr6YSGJFAkcGjHw7sKNxL2o+o
yoh0fV7YvIpkR5rDRzZe6jCi+5XnQ1q+s6O6YqXpfltG9C+jUDddnwN9MdH/
fj6FEY0505wS1eNEsh8SXrk+ZUQexzeYgq9zovTtXREp6YxosiPpYa8zJ/Kr
M9KczGZEO/w1/l6K5kTKsmZfAt4xouYMlaDnTZyonNn+XVkzI5rVCJcOPMWF
PuT5JEnQMyG3A7nsykIExKSpxx3PxITqoy97zxwmIO0xkUe0bEwoljXmRoQy
AY0INMa1E5mQXk3F27irBER5tDPam5cJ9WueqWtNICBb35zAtmNMyKOELZKG
gYj2GLTf8nJkQi1sMY5pdkRksZA5P+zMhLabt7IPOhHRq2hPZ21XJkQ2QCQe
dyI63ch/U/guEwrpJ1s7PSAiZ2Vbu+YQJuTZUv7u/WMiqpeguSb4ggmNSyn4
5TcQkSet2PmGXiZk6s7xwEqQhIZPsXcI/2FCE535NAEHSOh84OTV+4NMqKi+
qvWxJAkJEvJvHJlgQuhZcnSRHAk18MhGPFlmQueKiiQDNEmIV06xyYXCjKoX
DZ2rnUio0kFHc6867ikO07r0FJOQROHhNldNZvTbguxJLiOhuIVtRq1azOgB
4UihUiUJ2Xr9tA24yIwmv8k1hdSR0LZgo5CZa8xo3XQz9FsXCVlkWNR9ucuM
ouc+vN6zSkJsPR5qDkX4ecnimrXDZHTENYsz4h0z+uOcUy5+lIxMyR2t+SXM
yEFZLPWiPBm9V/vvykw5M7pIzhR6jMjI4s30TZdGZvQl7S3TX00yqgi/nuQx
zIzSjs48SL9ORm5K5/7672JBhmLO/hGRZJTe4/X6xR4WZE2vLygaQ0bfXF+6
feVlQTID72xLH5KRcB4LPZsQC6q2LufqSCSj79yfd4ZJsyCY+36mJ52MJOeP
KsVosCDzu4tVe9+T0dDzfbGpXiyo3mtpLqebjCb9/qzQe+PxMm9KzfWS0azZ
06tWvixoLNlM7L8+MqLh2ycuHcyCdtYrOeUMkhF3PH9lZTwLOrXymGQ9RUbn
A/j+DRWyIJ3KVhf+TTLSN/+tp/GWBV05xPZWiIaCjE+mfsgrZkH/9QzwidBR
kO0Wb4BrOQtarFcP4GWiIH9XXl7WJhb04GSzfh8nBZVa7tWUwPtUpiHs7hse
Cvqs0vsqchKvx8Yx5M1LQXUCj3cuTLOgxhTN8NP8FPTzN8/Ax0UWJOkeMlIv
QEGz+jweWgysaO8yh2yOGAWJqu3JdOJjRWLTNWrNRykoVnQ3Q7EeK+ryjbJp
1KIgI2PhFwMGrOikHmGCR5uCBGMPa3AZsSIHYSF6Gx0KKto6G3nNjBXRuDqy
behSUFu7Dw/XDVb0uS13mMmQgigPJmWvBbKi6/L+mrnXKCj6zydzzg+s6CDZ
zuTqLQoy3NnIIlfGippcmnWtb1PQ/rNdL80qWFFO/qLBTVcKKnw/P/OuhhUZ
IKEUT3cKao04cNesjRWJ7Jf2cL9DQSTFmLh3U6xINcvx0t4HFBSZaFFjys+G
1vVWXu2JoSDX2z7OXgJsyOKR07sxbGOdFL54YTZkZOgBb2MpSIKt3bVBgg09
FSv9oxFHQbXuKqJHj7Gh9y1N78weURDdJcEgDh02VF7Q3X8ulYJu7ezXeOfL
hmjPMouKZeP1mdtYbPFnQ5vcDJqN2Ke+7U6bDGJDdR8E4cZLCr73tdf2RbIh
2bfmSfk5FJS3WP4yNJkNtbyVsNyfT0GjP1I5zN6woTfD3tytr/F6xF5p4hhh
QxKTM68tSymI5zXbHttxNvRt8XfkHPbvlneWtVNsqHXl6Pm7HynoOoFM6z/P
hh7c2bobWUZBDsHVh7do2RFT+HLni3IK8vE+9GiGhx1N2hSYpFfh+aX2DGnx
s6ORQl1zvi8UxFwWJJMnwI5UVRftH2GHrg3U24jhc56OKya4moLibidsDhxl
R4l3v5qZfqWgLDva6+067Kj2nUJZfz0F2YXkFcheZEfHT2wNn2ugIMnsyxvR
l9jRDgiTLsEuHHkTp2XCjuy/MRwOb8T1a2ZT+9WeHZ0vu71T4hsFNRt8l/wQ
yI4MPmv3oFYKWj6VsZJaxo7WHNpNOn9SkNeHVN+qCnYUpGSuK9JBQTQyiZxj
VexI6k3dKxdsZr6IfTL17MhGLTiPs5OCdqy4qVf9ZEfJAt5Ncl0UdDhX89Ho
P3b05OtgnEsPBb0VOC3AOc+OfH3mM4ux5ROVcqWX2JFT9/v/NrGVA45UeGyw
o89HdD8/6KWg86b8YxxsHGheY19d+C+8vtvn5aQFONDrW0mGQX14P4X8rdQT
5kA7sv8FV2PfohvT9DjAgXg5aVTo/+D5T/eafD6EP59pveSJHVJbE6inwIGm
B2J5LfopKPNOUoe7Hgf6EPKyRXiQggaGlN0qAzgQv+f6bcMRPJ/UpmdiIRyI
tdLIIxz7iYFhY3Q4B9r54C6xEtu4/ub+aw850KXCqGWRUQrqKnjSQJ/Ggd7Y
mzT/xW713ORXKcPz+ShhZD1OQdL/BZ/JreBA3H1nZ+OwI/9uv739CwdSao8W
rcI+Z3qwfqieA7VLP3fbO4HPE1WjW/6dHOi2g21pPXYlqaS2Zp4DadTyu++c
oqB99Srzh5Y5kFpNjS1ge/u18CascaDRYH02S2zFpVFnKzpOlPfz79k32CU9
O3lZiZxo/HAP7bm/uD5e3HLSEOdE/rky+Y7TFPTshPSeRlNOtCJke+PeDP5/
59h813Bf4BL1g5KM3X91YPyAFSfK/tJ+7z22gM/DEn8HTjSafLHgH3Z69col
5MmJfggcvGc8S0EZWpUJr2M5kRBDnJTUHAVVmyTR9MdzItUoe2917OGbLlbE
JE60M8csxQxbOFZYzv4p7iu4JVRjsZ93BP8UzuNEVeHlWgvYmaYXdiTWcCLR
S8XJefMU9NVJ4u7XOk508nT+ahX2qC/j8GIjJ3JdCpLoxhZ9/u7NhTZOZKl/
mpN5Ae+f8T16nH84kUyEdIMRdrbzYIz3KifqqBUJpFmkoNwHt0iWB7nQOfi0
R3yJgiYVrvg8kOJCUc6v5BWwJeZPzaUd5kL/Xb0vdxY722zbj75jXCjxfnGL
A3YmvE4wVOVCzKY29wuw01f+8Z27yoVWo0+xSy5T0GBBR6SdGRdacab97wS2
gFU5bYg5F3qy45qSJvaz9oiBGlsu9KBnkc4GO/W15AslNy60+6bboXTsRHs7
yf+iuNB9QY0rlBVcb4K6qRdiuZBp9modP/bunuNEp3guNK2XxSuJnaDBPpv3
mAtV59a6qWE/FMl+I5rNhUou3dnwxI78M6LA85kLKbq+cfqFHaB37Qz9Ahdi
ElTQiF7F89HqMTJf5kJq0nffPMYuVddzqFnjQukPK1iysGdPnI4KoSMgxxPb
rT5hGwmL/6QQCchcWp8wgS2zNGsmKE5AKnnSYoprFHR2xtbFX5KALnCDhBq2
1cTgg1FpAkpyO7lbB/vx7/bMHDkCUj/6p8gcm+VryV9ZVQKqGD24FIL9K8HH
Q8WUgK4ONze0Ya9Er4W8uE5AEdVy0b3Y28JcHrNaEZAfSUplGFv9vkV5owMB
7beydFnCLrLWYLroRUDMrPvWd61TULA8OdoinoB0WjabDbD/63maFdBIQDZ7
d/g2YBMlrZbzm3Efm8vZ2Io9eU/ydMd3Ato4kcPWiZ0u8GFQtIuAxAhgOoS9
zbaNr26YgKLa9O5uYK960Z9hoiEi4Ri/UPENXJ8ZFk6JtETkW9q3Rxq7van2
kSQ9EXn0az85gl3IHzl6kYmIbNK/Biph21Tx+L/gwM9b6XVdxO5kP1KhtpuI
Jhdbou5hV8s+Gu3hJiJeM0kvP+yiK+uEmzxEVOgxYBSEHZlfafyIj4gO6aTR
xmCrXdBaHxMiouw+n64M7PeJVkdDZIhIp/FhZy12woGk3MYzRFS2+7kf+yYF
zc+pZvieJaIdtJQ8ArZW2WzyMS0i6slLb6JgM13QCM3QIaLBoPsLe7Bvea3Y
3LlERHbVwj3i2Drf9EUPWhKR2mADjwZ23iN6/gErIpobYqg4i816PX/nIxsi
apr3uqKNXb7MxMzoQETrDDfuGWAf2v92qMeFiLgH+KwtsDlubUsL9SEiAWX7
P97YVlCeqOxHRB2W20l+2J9Z7aKXcZ+vHLBwLADbI+Xz/etBOBecjncNwx6r
cTJRiCSiZ3JTaY+wq7lb9k7iHJDOONRQgH2vPCzhTDHOCcPnS7qwx3vLY1dK
iIix2ZyvF/vi2lzki1IikjJ2v/cbW+KIYRB9ORERhKulBrE7Xgp7fKgmoqGf
2y9NYcvEf7os3kZErw+eqt3Eflw0q9/5g4jastf6abZwfbcK6Qb8JKIcpLVM
h/2bI1RzoIuI5HSntzNjh/oYnEj6g9+3MoGXgD1sP8PLPk1ET6qdrHmxtUME
9xT/I6LVEoISP3Zppv5Oy1mcY4Zbt+3Hjhn4SPi8QERetJMFQtjoUjCN5zoR
dbuqlkpgJ54S6B9nJaGQZ+eF5bHP7tHLqMO5576otIcOdsKgZPllYRLa1VLY
cAF7MJele1KEhMpln/DoYXuhUiJBnIQylVqL9LFzzAW8LkiT0Kvfe2uMsNkK
ZnR6TpAQ0SXA1QL7onu9vT2Q0JoNe5ol9jPljMBNREL8wqcbrLCP/TAo4z9F
QhW5Szttsa1WPx0w1yAh7vvvYm9g15wKp/l7kYSikmxE3LDJXFZ77hngXGXm
IOWObfxT6QjREM/niP1RD+xF6wVbmSsklP7RFrywhSOMft6+hnNSbsdRb2y/
TrG8rRskNNNc2hiAreRQc5kUREK/syKeP8Re7RhTrQomIa0HLgFx2EUnOWRc
Q0motv2ORTx1vN3aLL0RJMQaxMn3CJujqqsoM46E5neHeSRjd+z+i0M1Cbnu
0vn1DDvaj7gym0FC/eMn09Kwz0zLDGa8IKFIjYcW6dhlVa4l7C9JSNfu+mgG
dvoNWsufr0joYDm5MxPb8cu2codPJLTxPfRmHraY1NGX+ypIqOAdA28+9kDi
pbg2nBsTRwm1VF90TLGTr6bm0EnuV9gKe0R3MzWSkMhFQt5rav3dPO70GOfI
6Wf3Y99jp/KYCTYskNDp0/MuFdjyh8UlzZZI6Fiz6z+q29Tnjy4vkxCzI7Nt
JfV5V/8zgusktHJb58pn6vxasp286MhIzrL+yBdqvfnPlUsQyChRorvsK3ZX
cmldJZGMWFZWxGuxXV4/aDMgk5G0mlIC1Zl9O0f9tpORF+m8Qx026bgCoXcP
zoEcycQG7P5pvythomS0bb/2oW/U+mM6ZykgRkZsEe8jqN6xd+fNYnEy+pdo
Ok21hkaW35AkGV22u5vTjF2Y3vjyxH84xxqz87Zi+17asTqlREZ/InJ+t2EL
fn4Rd+4yGeeb88Od2E0Sy+k9RmQ0YbZdqgvbLU7ttY0xGdU2nXGnut567Ju/
KRl1uhLZurGdiOKsnyzJSLV+h1AP9qcreZ6HXMjI8tWm0i9qPddsBn28RUYx
DRd8qSZLayWccSUjZmuxKqotGP4VWXqQUejS1VO/qfX0UvpvqjcZOZUzQR+2
4XKRCTGMjJZqCbz92AxmjDdSwsmIo3VCn+q8er07EjiXa3zXj6KaNnXxkRrO
5bICA3QD1PVVkfvu/YiM+M786qN6IfqDykwGGY3t5Akawo48WCnWWkZGDhPE
yFHq38tdZvUpx7mZQb2C6k8n50ekK8mIoWL3LNV/LwlnRH3B7yMwUGeMWs/+
wXzaDWS0I6mQaxyb6bfOtuZO7CdTLhPYe8cnZu/hXK84SnpCteyCX8shnOtP
x3fXUX2N/V14BM71N/aZ8U1ilx/dw6o1QkYBF85XUe0ZObDROE9GXS+0Nqeo
+ynJq+fOIhnJHOMX/Iud/Xz7h4PLZCRq+lSd6o7S025ha2T0mOt9DNVHxl7O
alJzfo2a4DT2PyWXkXoCziUJPkf/Udd/jqGlFudyTQZ7sVnqeZJ9qslIgoJU
CCEqVF809aufPkhBf2adTahW/UZfvV2agjYGXjykWvgl3QdTnOPZnqZtUD1k
RpOxchLn8ASlqjnsnt3oWagKBc1oKfRQ3dZ8L5XvNAVxMrPMU12luPVIRYOC
vvVTBOap+597MzzqPF5HOeZ7VF9vXXM7cAW/F/0syQVso6Djt0uN8T3+qvck
1brI01nLBH8/z1EDqk/lrdrfwrl/65mPD9WCwStmFdb4Xmdo/U71gNKS5iWc
+ysP7LuxiG32apY/KAJ/j+u+wUvYdj4X1jWi8LnxnP4x1bcuFP3kwDne5ebl
fKoDF26FR+Lc7scQ853qvGMra/GP8T2RJM69jL1SsdX+HOfwGn7NJ1TTxZgU
WuVSENcPuwKqOa5XhInhHK580qacal4m31N5hbjO76//pvqUBlPhm2L8eb3/
3hVqfbZyhFXV4Pfxzima6sQ0eyv/Wrz+DfefUJ3m0nRSDefilf1OeVS/3RG5
Wt9EQQeSl2qp7jGkWH3/gXP1avIW1SIDu0/2D+BcqxVkvootVeTBmz6E+463
dTepln/QvWKOc5651swdqjVFHheM4ZzWRzv9kGonW37eGZx7tF4VVlHtpXB/
pRDnlBuLAs1UP+Dsb3PBOaNB1qub6oT8tJBl3Me/de2fofqZN4NlCe6T9Uf/
rVP9Uttc2Qv3jUZiI8xr1Ptmf/VeRdw3ZDp9IVNdNie8skVd54WQvVT/Dy6y
m5E=
         "]]},
       Annotation[#, "Charting`Private`Tag$1755925#4"]& ]}, {}, {}}, 
    InsetBox[
     TemplateBox[{
      "\"\[Omega]=1\"","\"\[Omega]=1.5\"","\"\[Omega]=3\"","\"\[Omega]=5\""},
      "LineLegend",
      DisplayFunction->(FormBox[
        StyleBox[
         StyleBox[
          PaneBox[
           TagBox[
            GridBox[{{
               TagBox[
                GridBox[{{
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.368417, 0.506779, 0.709798]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
                    Baseline)], #}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.880722, 0.611041, 0.142051]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
                    Baseline)], #2}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.560181, 0.691569, 0.194885]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
                    Baseline)], #3}, {
                   GraphicsBox[{{
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {
                    LineBox[{{0, 10}, {20, 10}}]}}, {
                    Directive[
                    EdgeForm[
                    Directive[
                    Opacity[0.3], 
                    GrayLevel[0]]], 
                    PointSize[0.5], 
                    AbsoluteThickness[1.6], 
                    RGBColor[0.922526, 0.385626, 0.209179]], {}}}, 
                    AspectRatio -> Full, ImageSize -> {20, 10}, 
                    PlotRangePadding -> None, ImagePadding -> Automatic, 
                    BaselinePosition -> (Scaled[0.038000000000000006`] -> 
                    Baseline)], #4}}, 
                 GridBoxAlignment -> {
                  "Columns" -> {Center, Left}, "Rows" -> {{Baseline}}}, 
                 AutoDelete -> False, 
                 GridBoxDividers -> {
                  "Columns" -> {{False}}, "Rows" -> {{False}}}, 
                 GridBoxItemSize -> {"Columns" -> {{All}}, "Rows" -> {{All}}},
                  GridBoxSpacings -> {
                  "Columns" -> {{0.5}}, "Rows" -> {{0.8}}}], "Grid"]}}, 
             GridBoxAlignment -> {"Columns" -> {{Left}}, "Rows" -> {{Top}}}, 
             AutoDelete -> False, 
             GridBoxItemSize -> {
              "Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}, 
             GridBoxSpacings -> {"Columns" -> {{1}}, "Rows" -> {{0}}}], 
            "Grid"], Alignment -> Left, AppearanceElements -> None, 
           ImageMargins -> {{5, 5}, {5, 5}}, ImageSizeAction -> 
           "ResizeToFit"], LineIndent -> 0, StripOnInput -> False], {
         FontSize -> 12, FontFamily -> "Arial"}, Background -> Automatic, 
         StripOnInput -> False], TraditionalForm]& ),
      Editable->True,
      InterpretationFunction:>(RowBox[{"LineLegend", "[", 
         RowBox[{
           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, 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], ",", 
               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], ",", 
               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], ",", 
               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, 
                   PlotRangePadding -> None, ImageSize -> 
                   Dynamic[{
                    Automatic, 1.35 CurrentValue["FontCapHeight"]/
                    AbsoluteCurrentValue[Magnification]}]], 
                  "RGBColor[0.922526, 0.385626, 0.209179]"], Appearance -> 
                 None, BaseStyle -> {}, BaselinePosition -> Baseline, 
                 DefaultBaseStyle -> {}, ButtonFunction :> 
                 With[{Typeset`box$ = EvaluationBox[]}, 
                   If[
                    Not[
                    AbsoluteCurrentValue["Deployed"]], 
                    SelectionMove[Typeset`box$, All, Expression]; 
                    FrontEnd`Private`$ColorSelectorInitialAlpha = 1; 
                    FrontEnd`Private`$ColorSelectorInitialColor = 
                    RGBColor[0.922526, 0.385626, 0.209179]; 
                    FrontEnd`Private`$ColorSelectorUseMakeBoxes = True; 
                    MathLink`CallFrontEnd[
                    FrontEnd`AttachCell[Typeset`box$, 
                    FrontEndResource["RGBColorValueSelector"], {
                    0, {Left, Bottom}}, {Left, Top}, 
                    "ClosingActions" -> {
                    "SelectionDeparture", "ParentChanged", 
                    "EvaluatorQuit"}]]]], BaseStyle -> Inherited, Evaluator -> 
                 Automatic, Method -> "Preemptive"], 
                RGBColor[0.922526, 0.385626, 0.209179], Editable -> False, 
                Selectable -> False]}], "}"}], ",", 
           RowBox[{"{", 
             RowBox[{#, ",", #2, ",", #3, ",", #4}], "}"}], ",", 
           RowBox[{"LabelStyle", "\[Rule]", "12"}], ",", 
           RowBox[{"LegendLayout", "\[Rule]", "\"Column\""}]}], "]"}]& )], 
     Scaled[{0.17, 0.7}], ImageScaled[{0.5, 0.5}],
     BaseStyle->{FontSize -> Larger},
     FormatType->StandardForm]},
   AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
   Axes->{True, True},
   AxesLabel->{None, None},
   AxesOrigin->{0, 0},
   DisplayFunction->Identity,
   Frame->{{True, True}, {True, True}},
   FrameLabel->{{
      FormBox["\"f(T)\"", TraditionalForm], 
      FormBox["\"\"", TraditionalForm]}, {
      FormBox["\"T\"", TraditionalForm], 
      FormBox["\"\"", TraditionalForm]}},
   FrameTicks->FrontEndValueCache[{{Automatic, 
       Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
       Charting`ScaledFrameTicks[{Identity, Identity}]}}, {{Automatic, {{0., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {5., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {-1., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {-0.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {-0.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {-0.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {-0.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {0.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {0.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {0.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {0.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {5.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {5.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {5.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {5.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {6., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}}}, {Automatic, {{0., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {5., 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.01, 
         0.}, {
          AbsoluteThickness[0.1]}}, {0.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {0.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {0.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {0.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {1.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {2.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {3.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4.2, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4.4, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4.6, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}, {4.8, 
         FormBox[
          InterpretationBox[
           StyleBox[
            
            GraphicsBox[{}, ImageSize -> {0., 0.}, BaselinePosition -> 
             Baseline], "CacheGraphics" -> False], 
           Spacer[{0., 0.}], Selectable -> False], TraditionalForm], {0.005, 
         0.}, {
          AbsoluteThickness[0.1]}}}}}],
   GridLines->{None, None},
   GridLinesStyle->Directive[
     GrayLevel[0.5, 0.4]],
   ImagePadding->All,
   LabelStyle->14,
   Method->{
    "DefaultBoundaryStyle" -> Automatic, "DefaultMeshStyle" -> 
     AbsolutePointSize[6], "ScalingFunctions" -> None, 
     "CoordinatesToolOptions" -> {"DisplayFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& ), "CopiedValueFunction" -> ({
         (Identity[#]& )[
          Part[#, 1]], 
         (Identity[#]& )[
          Part[#, 2]]}& )}},
   PlotRange->{{0, 5}, {-0.5, 5.5}},
   PlotRangeClipping->True,
   PlotRangePadding->{{0, 0}, {0, 0}},
   Ticks->{Automatic, Automatic}],
  InterpretTemplate[Legended[
    Graphics[{{{{}, {}, 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.368417, 0.506779, 0.709798], 
           AbsoluteThickness[1.6]], 
          Line[CompressedData["
1:eJwV0HtU0ncYBnBQlEJU+H2rlSZgOs1LaZ1trs7q+y4tm4pmamzavFCplVF6
oPLSZppTT1lQLm8xppZLS10TuyxzapYrL1lmkWJzKWWk5Y0Eb4z98Z7nfM5z
zvPHa8s/uH2PEYlE4hru/5T+wDddszt5o/hGwDHuFgVu7uL48Tjf4e5Wl8M2
AQqsv1+fzuHsxcpn+eGjPAWWNuSwTTiJuDnLlyzbq8BxG0QHptjZeCiIfZGd
o8BdM7G5o+wCHBtixah+qsDU3leOI+xyvINVvpAe/QIXP5TFv2PfwskpeVq1
pAdXVWf3xq1+iOOyhESFdx+OwY8LhhO68FnyqmZrSj8WqJwG5FUvcLnE/mpd
4r+YZnvC8Z8v+3EPP+1UivsAPs1odS6OHMBe7XZO5HeDmN8b/Jdx22t8ZZm4
iDf6GsffO8E/6KjGy4Mv2KFFb/G1Q/Sgpd+MYHl3hF2XxztcnLxf7c4bxXc+
JsURNSM4TTYbODk8hikSzlTn4lFM6uqHuqQJvOWGtjo/fAw7CKOPBjtrsOTx
9SPbFON4UJO3w+zOR0y28/Xf4jeJfVT7jp2N12J+o0rvPanB/oNiFxZrGnMi
+pjPL09h9V1+6t+VM/hXaWmbS6AOr2Y+s/GMmMNyaeDp56tnMA1ropQT83hb
58FruTOz2HskdGpFCAluel40tZqbx4qm3eRQVzLIaFbWdakkqM1qDudoyBC8
aPLQBxEZok1E/R0dRiCcvzr8RboR7EpIrqUXGsMCqa3sfKoxuMW4dPhFUYA6
1OBQmEiBR4SrmWidCXjsbxi3yDSB21VpRa7GpvCeSxrOSzWFZLLztrY+UzDv
CWKdOUkFmjJpq0BOhcbF1iWtpxaAqsw2V5ayANZ38/f6HFkIuSuXUW6FLIS6
qOWqXAENxIXRLVEcGvyy9JyxlmsGobnfd9Df0MD9ns0HL1s6aL0u6WT1ZvBe
69HrN0eHAdWmo02ZdECutyMPNZpDyYY11u1R5hB5rM+q5qQFVGaImDGrLCBj
yptVtNESMkN2+RprLODbobVyyaAlfK4sLs9stwQlXTJk7M2AfKeiynZfBtQ+
YmncJAz4sSEn3/cWA6gTGxYFKhnAtQ659NCeCfq19y4McZjwtaAljJnNBA+f
zB7BTibIlvPt2zRMcDYSzHPzmWB/97fz/mEEyP0Lqo3amCBe1eT8pJ6AprOF
cVPTTIieoDx+4IygitpXMOlEAP/aOCf7DIIYdO44dzsBcWlBsz4SBJ28zoBp
g0VB8uf0cwiSKt68LAsiIEsjOi0+j0AaPoz1wQRUrdPN5EkRvDTdbFnJI0DX
qH9WdgVBxZKh8dmdBIif0HOaWxB8Zh7pK4ghoLD0QOxPDxD4fSLloVgCSoUd
nltbEQS6jjncNPj6EvF0awcCYeOnluR9BChDUWxXNwJ1QA1VHEeA48Ayz1cD
CDL6Ry+XxBPgLk9iXVQZ9r0+vvdMIGB9Rq9uzxtD7+amGzTYz1H6+1s1gtqM
tFAHIQEJ+zmssTEEi9fItpcdJiDlq+O6PyYQtPS5120+QkCG+aunQg2CiJvp
6kGD86tLT2q1CLwqan5ekUhASSol5s9pBPVL5ESjwVcC92xKmUWQEFYXHJFk
+PuK+zYb5xGIWS/D5gyun3DQ6fUIMikuK4uSCfgPY0YqlQ==
           "]]}, 
         "Charting`Private`Tag$1755925#1"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.880722, 0.611041, 0.142051], 
           AbsoluteThickness[1.6]], 
          Line[CompressedData["
1:eJwVz3881HccB3BykTtyd58eVipOKVwiW7bVxvuthFBKrKIV52cppWWENiou
a3LMQ34+5Ec8aC7Zqa51MkR+dI1LrU7Lzzy6/MhuF+fEvvvj/Xg/nq8/3q/H
25x30id0kZaW1i5q/t9FP/B07UMSnLxdDrZtOSqBFhnHaz/nIOQfluzhxktg
obXhAodzFN4OdwVaXJZAUWO62WLOWfiVudvaoUYCxx1jTkybpcFTlwVF+5QE
ZJqI7PdmeVDBcqtrSWwAPfmg5bhZFeTyrV6uzX8AJR3F0e/MxLDht+zkl+pG
EN5Mkx+37YBD1yt3CXqaIRy688ZOy+CFr7H7q+FWiBqxHhIJX4CJWJM6cKAD
6OYXLV9/2Q+6QnlmXaUUrjA7uSWBQ8D2T/Z9UdoNPLnvA52uNxBY1fvmu+Sn
EP3wIu+kpQI6/JirRJLncOuUwb7lO8fB2u7mn0s2yqEkIVKxaf97GE4qn8wJ
fw3ni+f2/js2Bf7NrXE5kwOgJevH+/FKuGW4zu5V8DCsPxMW58tVgV3eWb7J
kVEYVl39hiH5AM2MyZnMOAV4jBw7lxU9A+K82JJc+wnYPSzYYGo6C8/TB35Y
snoKFM28pEc1GpjPNS835yrBlvVs9fYjH0E9wevNylIBHVRBfcp5cC52GF47
Nw1u4/7Ta/y00P5tnvH95ln4qylE299GGz+94Wqyqvwj1F9qOcxRaaMmQtoW
+YUWhi2O6ZdKF6EgIaJnTas2Bp9OqDfI10GTUUX6BOqgXfgGqVcQDavTFzkf
uk3DJ2wbRsyWxVhdfceAu1MXfxeeL7DR0cXCuzbvKu7pYYI2d0/XK13cLMms
EoI+0vvi3aNEeih586TRWEjHkQrz7OLEJVh7tCtaX8nAbKsVNLGfPorWXbQt
cjJEQX5YWxCHjnMhyqGPh5eif/a3UoNROhaGF9RpQoxwxuW6uriBgR7timV9
m5k4NLItrolvgG5jJ735ZUwsdbRf+TjIEE1DrwX3G7GwJiWGFb5xKfJkGeOF
x1jI9wv21FEtxYe19pqD91jo0FdSxX9shBly2g5HPTbmWhfUPPZkomZ/gGmd
Kxt/bEzP9RQzMWy6M2DrBTbuWul3vcOChV7TPnoWd9joHNUWwEpjYazVstT0
ATYWr+JZdKlY6O4hmqvTJ2jRXJmzO4CNwflRvt5cgoKNTdyeBjZu8uzOcHIl
GKakdbdTeeV6ukNWIEHerX84aRkET+3t0ZLHEDx+ft+cRybByANjcZ99TzBm
n+i5wS8E6QkT4suUL6lirghyCDLA5upXsQSFW9Saq0UEUwPZTblxBNV/LDyr
uEHQ5Vycyj2B6u8xSG9pIzj4+TNhchLB/LITEantBE2sfJJllMvOSLe7dxJ0
F1/jrEsmeNtYMNsppe7/bdvaRrnPn0TIegmy6wJq6RcIWg6t2D44RLDexmol
P4XgJlG8afkIQVX960e9lLemyNWhowRzfNx2WKQS9LIsqn2rIOisU1jdSPl0
JMd0aorqzfyZO80nmPh1srpOSf0f/WGPyyWCKYaDT8+oCHZ5q10zKefeLLs8
M0Nw3t+xlJtGsDSJFn5vliCXcVcvlvKNvaHbEucIFjQ6OTZTFq1pXe00T5D2
ycQ2o58INijXqxcWCE7mDy4PoPwfuOExDg==
           "]]}, 
         "Charting`Private`Tag$1755925#2"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.560181, 0.691569, 0.194885], 
           AbsoluteThickness[1.6]], 
          Line[CompressedData["
1:eJwV13c81d8fB3Are9x7Py1SFCGECiXV+x0SKpVRlKyEVESUjBJS9khIQiqF
EPElZI9sRTaRvbK38vv8/rqP5z/nc855n/M+r7vT1EbrGgMdHd0QPR3d/39f
PTBl3mfmfMyUxnxW8605lDYKnr4oqA+etN/xTAXmsF6e7yEoeB2cVmZd29vM
4VWhv8AGwfvga6Z2bIDHAm4edbi1KOAN7Kdkdjq7WkDjqmXolMAL+BOSXltp
aAksHb9FJwQSQKPblYdF0QpaC786jA8nwE+HJ+FL+laQGB9RMpaWCPHGupHc
961A007TaFT5I0SkHc37kGUFYWw5YUMWqXBHUksmUv4G0KK+MUy3pIPxixqn
CMWb8LoqxnZM4AvYLvxxVrpqDXMRmeK//L7Aux4LdUEfa1C1qO77sfwFHhif
LpFOs4ZxxkXdnMYciBc7lNO/bg2Hjmoe9n6SBxXFDlnJMTbQkLrGIDpZAOFd
qj5O9rfhYZWkxj6jEvhq4TbP+8MWPqRliSQ9L4E8+1y5/mFb+BGhxLi7pgQS
A3xCq9dtQdhCL2+rQimgw1ulmb12UMXoKUVHlMFFPTOXN752sPloB62+vBw0
VQV6/zt9B1JSvTtuSlWBrEiUY9agPYzSRv00TKrgnGB4SeK6PYje1TgmFloF
/I1X63O3OkDsEY7XfctVoCp9NOvgKQcIqfQzv1RWDSq/P6dFpjnA3b7A6ZMG
taCMUpJ7Pe9CDEe1B/VEA/Q8/0f1O+4Ix446G7gZNsA993r9h4aO0GktITd5
rwGcGGOFnzs7wtYfvoM1iQ3wofvlkNh/jhAccVr9KeU7BKjKfJyXvA8eu+u4
1zu+Qz1f/Tb1nU5gAd9fjNs1QoF3kAWbiAvQxS3kdPg2QoNa/PlFVReIYOLv
rHrbCMIeaZ85LF3gW6X5joTmRtjLsOPZh0QXENNZi7t2uAnG7P6kZ+1zhWFL
0Y/d9D8hN2apUPvkA7AKcc1vCGqG2JcH1IfV3IBhPu5XQUIzHO/ZJj132Q0i
L36jSy1uhjrDOK3NNm5QxU8o+881w8DQgZxXz91A4v2HCnW9FrCnixvK7XOD
8dzGhmKBVuCR9qQ/4/kIrAf29GWktEGDwsU69xZ36DFsYy2qbAP1EzYCVpPu
oN36VKq2vw0M+zUzbVg84FD10P0BvnbgldJSaz7oAYxp7yibn7TDiyOWKpsi
PSDCZeexe0YdEObUveZi5glFBO8LBUoXlNHk/1FoXiDr/y3/hEQX+IW6vuGW
8oJ4Zsf+86pd8GMuM0Nawwv8lpulrVy64LJ5Rm2nuxdc+BVaHjncBXl6JyqH
5r1gNJEyt1rYDfVOB/hHfj8B9p2eor8O9UAgg37PYJs3fDsSLP3gRA8ovUx6
77zkDV560Qe3a/WAZ46vp+wWH2AIyj55+UYP3EoPFSN0fWDl37hFy6seCFZc
qXj6wwfGOnU/1DP0wqTiZifnJl+oiRDdU1jTC9WBDBNf5v3BJ0N2n1FbL5S6
uJ8T5Q0AtYbjCv8GeiFsQ45j/pEAKGUxUD+y3gvR3bodVp4BkHc36Hr2vt/w
c6jrfNGmQEjWWU74FPYb5CuVPNQEgyCAUi3+2rgP0ph+DRAGwfDl4PZMTes+
uPiv0/i8XTD0G9rAmnMfyDH8waSnwaCYTOhcDO+DbMt7hRmZwTCsbuDKVdcH
dUZns3dRQ0DZY6L+vmI/OKpMrfjUhsDSPI+D1uYBKDNOXntxJRSEtpuurwsN
wEmagknyvVDQVMnwTt43AJv/02X+HRwK70L0olnPDMCPZ2k5qeWhoCX9uiLf
YwBcRtzsevc9h2TL/XwS0wPApzVHX8odBqYdOgWMNYMQL668XtAXDuwve2/Z
tg1C8yvdv0X0EZB+yZr/1+AgWIUSD0cEIoCx/cn9HPohOOIfVpFgEAFvW3MO
2B4cggsTioFzLREw+FPwQ3fcEIBMSmXnzxdg1TAe9OX+MBw7+S5Qa+ol0ILu
g+iTYQj4o3jjKhEFOWeZ/4SGDsMNUQWOWPko4KgXOHU7dRgq+v+7/co1Cj7W
am0QHRiG936KVSlcr+BPVfb90HMj4C9Kp2sgHw22ZZ6mNqKjYHPga1uObizs
6FdlXjgwChdSauR/WsZCNQNboguOQslCT9kGl1jYjf7T3vqjMLCdrichLhba
cp67vfUdhQ/cKY1007Fw/FN8dNvkKChsOBBKF/IaqC+/tStnjwHLkoQl02Ac
5H/xeVBVOgZpPaK+W9fi4Ebr6V3nv48B262fJ1Vpb6Bs0/frhqNjIFRxnnHy
2Bu4H9S25Mg/DinZx746vngDvY9HN6e4jcNP/kMuT7TfQtptTu2t6hMwUlTJ
dqPzHdREEveTL0xACDd79aaldzBYyhejZDYBUeV7lPqIeODj3TN28+EE7GHR
/jt4Kh48i054FGVOQNUPD5Owr/Fwgfbws9WuPxA1/NIg9/17WPk8TXxd/QOM
lIUWg4gE2Ni9pKDFNgnKD85JZGYngBQrnfHQ5kmgto/PyrUlwFUD7o/U/ZMQ
eVcvKY0vEWqYJFTMLSdh/3SGZHhMIkTrmtnz/JwEgZhF1pNpSfDa+caozMUp
OFSlxJU0nwwyhWxLT65MAYOclezM1hQoZPqw4dfVKXj9vNbc9EgK9Pj3C/rf
noKNTTXv8z1SYEfslYsj3lMgcOtMwY2NqRBZerb0dd4UhGvsZu3d8QlCuGSj
abumoc11u1CnXhrs0vqRdF1sGtTkhlzgVhqkhd3+Uig1DTdsZ+/lPEqDBoHk
JmvFabjw6VLeYmIacO8X4ajWmYbhp0rWIf/SwOfCVkePJ9NQYM2kbZyYDu4x
a+fnxqeBq5BjfdemDDgnk20rMTsNKu2lBgqSGbCj6E6w6fI0fJkYbLmunAE5
v0cbGjbMgMD+vAheuwyY2d12NnnHDOzwNLmR1ZABph8zz5ifmwEfkajRDc8y
4fgXa/XWzzPw9QX97iLJLODWEL/OkzMD7vqzRTons6CzfeCpauEMiHexqTGb
ZoHjmsG3jJoZUCmRCy4Jz4JPcOpk8MAMEMoeCYlM2SBYLnpCY8ssyOuLjp/s
zwa6xh7Mc5qFmN1x55Jzc8BzJP+106NZ0D+rTG3vzAE2ulcMCk9n4cHCFj7p
fzlA26tfmvl8FvxKjQq0jufC7iffT6Z+mgVf6gG3x5W5oKFYrBk3OAsh+37n
FPfmwbM3bwyeas3BudXLV+b3F8DWnEdfVfXnwNOv+Zq3fgFENRjt2GA8BxW2
Un9OuRVA/N9tPY9uzUHU8oTWlboCyL4YetX56Rz8da99c1m+EDo5HltZ588B
8+XsdMW2QhCxN3fUEZ+H8C1nplr2FcPew7+0Y2TmIdN0ujxftRhk6fSkR+Xn
YXsx21je5WJQ8lMffKg8D2MMFNf1x8Vg+FZSJ8lgHhSqPO7FdhRDWNOMNEPg
PAwZK3tZ+JbABrmHQ6mz80AVDwzN+1sKnKuLxSvL8yC38HDy66YyoBXdjj5B
twCmd4pr2/aWgeAZU90OzgVQq2t1MzEsgyPXTpQwiyzAEfbg/M+FZWD/nCPm
it4CJHgm1jr7lEP/fPgFjq8LsLbT5o3xgW8Qd/zAna6SBfio+LZb4fw3MPKv
C0ytWoD2aAt7eZtv0C68oVK7dQFmmL6pRSZ9g+/adopRswsQ565VQxGphPy0
04J7xRdByeWOWcfOKgi/RT+qGb4I4sd/Zf2TqwGdL1HMO6MXoeLrt+5AvRqg
bTgkNPt2ETp1Gi3UnWsgIMraIDx9ESLflqnLF9WAZ3VH3a/aRTi80X9hVbMW
bu/57/NtpiUwUNFKMLCrA40BK9cQ2yXY0BTf2XizAVRdhT6qOC5B26cxPhu3
BlDa1Nm+8GAJFneb3RcMbYDDJ84cuuy3BCGub/+U5TaA+DvpWaH3SyB48K7Q
Ds7vwHFtzjKzcwkoKlF7t6R9h5p+V53Wk8twWIT5UhVnI3xzkffw0VyG0TMr
QrpCjVC6cTLtiO4yOb7+4JJCI+SpGPO8Nl2Get1f6b4WjfDxrVLVdddlMB/2
Z+wtaQR/MxZcTV8Gm0C8bfSoCTT7gyR27FiBoM+Xz+lSmqFGor/JQHgFzr6Z
pNiINcOpOwcfvBRfgbiDjntfYzOoMXQ3bD24AiZdmdWats2gJChxlzi3AqqU
Dy3fG5tBzqCskNV9Bdo7mbd5v2oB/qZl3dmBFZDgn9hyRqUNIredWd83vgJV
xxsORxq1Ae/V2A+3Z1ZgZGPOOQbnNtg8o7o68W8FIoTXEoTS24BCCY0d3rIK
Y/bxJsk724HxtNRYl/oq3H3AaT25oQNGS0zdviWvQkn48+Hivk4QCG61CshY
BdmGkA+yG7pAx1BTVyd3FU6HhkOlSBfkLymI93xbBS7XGaPLVl0QspfatNi3
CtSbQeYis12gGF4gKsq3Bg76D61tOH6BnxV//WOvNWgz3sRWntQDUtTm7cpG
fyE23SxgZF8fDPoPuj+/9hdqbp1/uHSiD16xLw4N3fgLbws/evJe6gNOpq3p
fo5/YcU7fz7YvQ9GF/RVm4P/gnfUnsArTX3wrrPL+nrpX3gixedg6dwP/B8G
CgL3/IO6MUfGkJYBYId5k87Zf/C16sXtw1XD4HhcjPW/lX8w9g2jpch3fVD5
ckog/TpkJe9OPUw3AsVqRStKPOugv74tNlJ+BJy0/J8liK8D80plgdPbERi7
trvsrsk6PO+vTC3xHIUaP10xav06MNk/7f50cRxOTlxa3KVLh+IXbwhKC09B
9EaPxod6dFjQHpJgLzsFc4pJqZ2X6ZBXdNvNcpUpiPVZtQgzpcN7o2qxAdem
YEU0qpXtNh2uPBz9mfZ+Cj6adn2Z8qHDdIUNBcrkO0NpNXLJL6RDAbm42mcq
M9BabEZ/SZIetxnofAx5PgeZT0sNBefp8fe53me+V8lzu8Ghp66OAen6TxfZ
yK7DVTvnTM5IRmzv+St6zZ0BpS0k6k6bMOGTfhl5pZsbsJ4myeGgsAGTJzyI
ox6smJvi/lKSkRnPtURPicpxoDO9+LmaLmY88ju75MAPLhxU4WgV6WXGSWGn
5dwOLjz3dNzoUT8zzjw2If/gcqEwT6qN/BgzigtE7dm3xIU1/LKBsUvMGHFX
tLR+OzfuOHSszp5gwZV3vI1/LLix2Frr9HZ1FnylL+GSuMiN7J1OatYZLHio
gN7oLgMF5e8lcAVmsWDRs+CjsswUNKG1/kjNYcHSBRnHSTYKZqvJXZkuZMG5
/mAGQyoFzTMnbe1rWTBvWPHONkEKFgWYvXQaZMFw309sW49S0PG45h+vraxo
+v5NK58DBQfid4bGuLBirYdMknkXBcc9e5cZ3VhRJ4ZpR3EPBWdMXxtZkvsi
TEjF8fVTkE5gp8Q+H1ZMk97UVzxKQb5wweLicFYUs221mFqk4LknAlMD6awo
HtjtU0ilYp7F9tOSI6x439ZO6JgyFUPFeJm+6LJhADNz49orKhoYirzv02PD
xyd3FN+PpaJw6AENbgM27Em/ajsXR8WM9TNBV03ZkNfo06a+91Rsanbn57Zh
w+zxjZHv0qhIPB6XvfqUDfXy/XIKS6kY0ltwjSuXDS3/CyzQG6HipS21rIfy
2dCx46p60BgVd51pTzItYkPxcpv8sgkqpmfPTWdVsKFY7Scb8Rkq/gjc88C0
iQ2h8O6mjhUqUo89C8uaYMMErsU37Rw0DIo0rzARZEfjiwVeBpI0vHfX/Y6L
EDs+OxmPGlI0NNSKFggXYccYDdgtL0NDSfbmezWS7KhpVXmHVZaGlfdPiB1U
YEc6QbZT4Yo0ZNAX9ubUYscHvy+yGmnQ0GHLb40sD3bkn6eNxJjT0GD278J3
L3Ysf2HhoWtJQ5V63jfj3uwYEnzCjs2KhrQn51d3BrGjOl+11s1bNExZKEzy
i2LHJ4MSyjvsaTj8M4bTNJMcX/IrvewjGl4KvVLHOcSOoYZlQ9KRNOT/zL7t
xig7qsn2mzW+pOGv71kWlRPsKOPVxOfwioZmPDR6rzl2XMjyPvg5lobWPuUH
1uk5MLu42JjvPQ3d3aRfTPNz4J9Rwabnn2mYcJPerFmLA7tf/hE5XU3Dm74p
n2QvcODArfKKLzU0lEq8/DdEnwMd3bY27q6jYfpQZthZYw4sPbxXermBhnmm
VpXfbnGgU8SiiH8zDRv0GqVyn3KgTpCKyY1eGi6pvFuOyedAl2gpOY4FGrrk
xniUFnHg1G36wgOLNKTbH8k1UsqBcibCtMtLNGQRCNy5v5ocr76HEr9Cw83L
juqlLRz4mSs7fO86DQ8kn34xPMWBR8M/lTKyEmi9ae7QPiFO3FjYptK0lcAZ
3z/FuiKcmOuq0dXCS6ADw8hppz2cKK7Sa9TOR6DLZJdxiTQnnpVLEu3kJ9C3
suKp7hFOtPyc2v1DkMAPri9b7+ty4r10jgZ/MQL7BpQci59w4qkMxnI8SKBS
TF2cuC8nilXExsgfIjBW71JtSAAnslO19SQUCDSstt119TknEldrb1AVCWz/
FFvD+IYTTehzjzQcI/CH8z/BE/mcmG+vEMSrSmAxNaeyYo4TB59Nbu7TJnBn
9Yk56SVO/MncvSVLh0A3z+87IlY5sb3mPb+PLoHHFofvWDJwobGZkPzeiwTm
dG7ZwUbhwqyz3eUWlwhMf+9gpyHBhflHT51JNSYw7ui+bbUmXCj01VU88Cb5
PU12j1UzLmTcEhOtcIvA30Z9o3ssuXC41lm7j7SQ+/McL2su3Jzo6y5rQ+Db
8mV9dOZCPbpOjjpbAt+dLY74HMqFZiEJ97rvkvtlor05soILD39fnLnvRuA3
O8kH36q4cJ/b0gLXIwKHPTYMLtRyIfPDx9qvSYvFZ2VqN3FhtwKVt9ydwITR
bbpcvVwoaWM2wvKYwMQ7/c/cVrjwCJvLoVveBCY/dqBa7OXGmbdlh0uCCRw/
csX9sQw3Xtc34T8eQqDknMrsmwPcyFpvbJtPOtF0488eBW7M4P19L+sZOT/4
HHFJlRv/xciwvHlOrmd5SkDTiBu3WUGq8QsCI2/dlJIL5saaky/YnWLJegnr
xGiHkn1+zfX2EGneTkWKXTg39qk6XNZ5TWCEBsdMyituFGZJKZaMI/C5aGKm
WCI37or+2N/yhsCg3qEj/CXceG5Nb3jLewKf6F49xTjPjXVtx4yVksl6nO00
uLbEjQGcHeYJpPPUda0rVrnR7j+VSZ4U8vwePRnsy8CDycY/n3SQNhCRaCEo
PHhsmG/45icC9y/OmApL8KCZ/ct+x88Edke4O50w4cGWv9IfFL4QuByy6vve
jAdlspr/BpPe6G//is2SBz0nSgdHSKs/Mi+steZBO3hoH5FDYMZ1DeYLLjyo
mfLQfyqXQJ/DtBDzcB7sYHAS9s8nUK7zdcKTWh5MePULnEsIpEhZLqU28OCS
kNpgEenxh1InWxt58FG8jCJrKbm/Qrn9Yu08+H3/1PQz0htvNAlUDfLgVirf
q/dlBK64MJ5ipqOgU7LJocIKAts45IvUeCn4qzatN7uawHLZF8OdfBS0PBHL
sEA648oajy0/BWtu1nfuryH3N7XY8IUABf+JyOQnkVbTPrs2spuCel2JRyNr
CcyOtDzou5+CwzdG7ljVk/Xa8zK59hQFF0r96tt+EDg3q/rO4wwFGzw4thCN
BJ7Nn4lSOEt+n9Vj82nSzNoafu+0KHihtuDYV9IOLstWrvoUDOKkHotqIlCr
/qLYXgsKVk+XKJ9pJpDTYeMbP3cKpv48lOHaRqAlFEYqeVIwucc8JoV0CdvN
kKXH5Hrbh07/Iu0UXfLIzJuC/QEbp6CdwJEKO+MjQRS8+NLU6B/pcr7v28df
UVA4Zn7X7U4CHxb6R5z6QsEwAR65Pb8IHO0qDF3OoWD3jRY5LdIXVmeD3udR
8KFwEaMzaUn5S96MhRQUyZ9mqSHdmiTilFtOwaHox9k3esjzE15wWaKJgvbK
9ydf9xI4eGt6B8ckBZt1uTTH+gg87yu87csUBW2slc25+8nz+eHiFosZCu58
3661j/Szvq88JfMUpM9gSLxLGvV96JzXKHjmB/OFddKRKkK/R9moGGns8oN1
kMAz23TfVQlTcWiP1de/Q2Q9+qUKL4tQ8ZNqWRHvMIH9yawd46JUlM58/k6O
tAvmUXgkqGi5U5LzFumP14RctPdRcbfCUf120uyfprU6j1KR8WQrLXWEwAqV
ALo/F6hYLja4cnyMQBq35baHelTsfWxw4BJpw5bj8pRLVHzU+v6sHemF6/M3
9l+hYul+kI0jLRJo0HL3KhU73Oc/0Y0T6NkmnrJuQ8XgdenQbNLHrSsuU72p
GJPD37rxD3l+W0dUS32oaPVJ0EeCdIYy5/57flQMMHwooERahPc8a1cgFb10
OuesSXOWtmd8CKPiBG3xTAXpVt4/XPiWik4PZFvtJgm8Xbax0LqAinyT6of+
myJQXOZg0s4iKm5fmA+vJN0XqR/WVEzFrCDRX52kL9yOvnm4nIqz2mHCjNME
HtkmxstcS0Vx3/kATdKstop2r9qpyFbTsdpDOobfVLhmnoqpel3rczMEHj4g
IWW6SEX1sMDbTLMENqnPHVxaoqKgM3M9QZr1ntcp4TUq+tWF6+4nfft7op0L
Aw1lj0T6WpNGr9lCSR4a6q1dSu4j/XvS84q/GA3Ff3/XKZoj68esaSEkTkN0
KHtXR3rz9i22XyRouDq6NthBWkMjwXOAzF1P7R8dXiCd/rY26agcDQNZfouK
zxPoob95ZeI4DZWGSiQCSQuXvA/TvEzDbv/B85oLBNZJLr3tNKDh9+n5Z/qk
HcPUPlsZ0tA2fOmbGenq6yP1XiY0bOoiOJ1J21Ek2AosyNzFo7IUT7rgSoqz
NJmzKnaaOKyRvrSUYUzxp2FwV+e16EUCmUw32EQHkLnkl9KuD6RTqnVdJYNo
eETXsDGNNH3Mwgu1Z2RuKh8hykh/OHGo0e0FDR8/yeMZIz0fknti+h2NzO82
f2WXyH61t1j8Rz4NvS5zshSR/nDoMpt7IQ39A2fFqkgXKM8N7Sum4ZkLBtBI
+o++yLvgMjKHHR1XHyB9ystH4DyZw/ZPh7awLpP96ZfWxoY2Ggowne49Q9o5
qO9v7RwNQ726ORtIh7x06XQlc9bdjZFtLaQT4zfl7iVzVV6gR9Qv0q15Jx39
V8n5hFE3TJKWH0maOc1A4DZ3G1OuFQKnjtsPVfMQqLg7RU+NtPks0/dKcTJn
XODxzCJtmKhSZyBJ9q3Mp7lfSV8w8aye3Ev6zOexEtKq9Yzlm/aROcPymHwD
aZEkhlwTMjdJdvM6DJMeMKV7t6xMoKnk/tdbVgk0+7HquOcKgacbdMdukzbw
VrybZ0ign2uz2l3SOuh85yyZY1bEWGOdSaukrNxyuErgAUqUohdpYZ9l06Lr
5L25oC32knTf8cXT+mQuqQs4011C2jRtRtA7kMDeq3snKGsE3nTXXtMgc4Sj
I9PWzaQdtDNaOMmcIKpEHNlG+um8Q0BQGIEH763a7CadorC8Gv6KwGbb8ScK
pJeL1pvjk8j1JHQ8NCYd9IPTv5R8x/g+MVUlkI58c8vSq5JA48P7JVNIv7Gv
U1Yj3zFjj+in6aT/2xy0Ul1HzuvueZlc0p2XCMvGnwTeyZtWrCEt2ser/Jvs
w5EL7hoTpGUynHa8HSBzRAJFZ5r04ccdy9fIPmp9/rzePOnToq8+jYyS78wJ
lvN/SdvdENwxTd77fElmJq6/5H088mg5nbynhOx4H4X0Y67fTfbkvYr5npu/
kXRE6hvfJfKcmd/bf42fdJwbk0UOWaeWr4MygqSTzl9TciHHZd8SsyhEOmNX
+fZj/8g+yWn6RZR0/qzI8vo6gUcF5O9KkP4fsvwdcw==
           "]]}, 
         "Charting`Private`Tag$1755925#3"], 
        Annotation[{
          Directive[
           Opacity[1.], 
           RGBColor[0.922526, 0.385626, 0.209179], 
           AbsoluteThickness[1.6]], 
          Line[CompressedData["
1:eJwV13c41l0YB3B786ymhDJDQt6S5D4UISUikoSyR0KZlZC9CSEqFLKSBklI
ZIYks2TPZG/e8/zD9bkev+M853efc+7vPrMbOuZ0NDQ0tfgH9ffju2ZM0tc9
FT0s1Q40B80pVn3n19TnvwTXH4t/1CqYU9yqLvPl57cGxw92Ent+zik+Lg/j
Y+R3h05Zzvl4oXlFuxO37Jf4gqBZpbX2WPW84vc1q9h/fI/g8+5fD17sWFS8
XcMrNf0qEXi6T7scVF5U5I5pq586mQz9N7MEWR0WFc3EEP2EZSrwKgQ4VlUv
KrrlsBfP/nwGismuPle8lhSZu/tFpviywOtdp3nR8rJiR/nHW5OjWVAsGRcz
emBFMft5wueJV9ngpfC66M7lFcVzTueujp/MgZy59KbGTyuKcawlcSOW+XDK
3i2NO2xVkZz8lW7mZyF4CrP3bj++rvi0LvXmBF8xDEdKxxmPbynOJ7wR+x1a
DLc5wlPUdtKAqmX9QOtKMXgLzDRlH6OBSfolvZLvJVBaGH1E8x4NyJ04Jx8U
UApzfvs9t3HRQnP+Op3I9CfQaV8ha8jTARlYjTkly6HRTZXnhCkdHBeOlQ+4
Xg4uUVVXfQPpIHw+a86jpRxkwsSNOTroQDbqh7nZywpQ1b7AJuhJD/fqJDSk
r36G7IX295ytDJD56p3wy4ef4YMOYVfIJgO0JijTCzV8Bu7q/YGW4owgaGlQ
uutYFTxY3F6L/Bmhjt5PkobyBa5YBt4MQUyw40Q3+Vt1NQhIusorfGWGvPyg
bjvJOrjz4dz7k2LsME4eD9UwrQOna037nE3YQeS2hqJobB106TSmcsWzwxMF
9qcDK3XAfkblWBgjB0TXhloYfqkHZu6mvvIRDrg9EDFz2qgRtrNFZtVUcEGh
6r9nQhGN8OQUw8F9W1wwnXVel76yETRjlAgLCgSwciS9KxNpgkybc5WEEgIY
bkR7/TfXBEPalUw7rhAhlb3el6TSDHvultM4WpNA8YSnkbdxM0wPZBDEQ0nQ
4yD+37RrM4xKjl8XzyfBrtaQ4YbsZhiW1+PYXCBBVIKmeiCxBaKXf+Wv+pPB
V6iJa6u7BXJmLVe+vaWAJbQ8mnT6Dtml8yZ7dXYAzbPFku6Q7xBXv5xYeWcH
JDDw9NSlf4eIpRsSH7N2wNdaC96s9u8gnOsyW0S3E0R115+Zy7fBVOBkUsX7
nTBqJZLzi/YH2KqkKY7+txu86zUbG7l/QJ+dG72s5W7YJen0t/TwD1B4zifR
l7Ab1OZKpZLMfwDxs0yy0cZuyLqj80a/9gewmNdOr9Zxg030nbLmyHYw8d/L
4uHOA3QLz35/ymqHUdl7ySKveCBR/ytNfmU7iA/LEJTHeKCOh3IybL4dyHfS
B8sN94L4i8wadYOf0HR+ZXNDmRcmP3xvruTrgLcLvbeTt/GDw9CBgaK8Tnj/
S5c25sB+6DPuZKmo7YQAspEOz/n9cKEjULJxsBPg9BuLpdv7Qa5+xH2Iuwt2
yOdEZnzZD/SvMog7Arog3nv9xIKFACR47VN0vdoNVcV9PrQlgsC22HzN16Mb
IgYOxa4NCcKdG95BEQ+74fmNtDkdshCYmf1ue1HfDWGRNm957IRAQu2xbcfR
HnjcdNxQRlAYKii7Hx0j9oKeX7oAzwsRkA37WqYi3gvrJ09FnekUgedMboPa
qr0wJzbhNsQuCqEr7YdsvHpBfqIMjJxE4eLv2OrE0V5wGVT66XDqAIxnE+fX
yn9BNfvnkaUNMWDb5yfyW64PDp0f9fFplISvClGH7qr0wc3owggvtkPgb5By
dK9OH/gF3To/ffoQ0EW+P33Ztg9yJq6+VK46BKubk5Y/H/eB3MzLvCumUjDR
o5f5je4PkMZutI3YSkP2slmBA+EPhKpZhlwPlwarbY7vOXn+QNHiA3+hV9Iw
eCb465n//oCS/weL20vS0FNSNlpj+QfOqQd2mAXIQEOCyIHyhj/wb8+Mfn/R
YQgukpW+2onHz9q/Ndh9GNSalY5tDv0BOcK5X7L0slDFbKSusPUHvLIpWWU6
slB6O9L6vXQ/sAmHOYUsyEKu7kpWQVw/7O1rG3mocQTCifViT00G4G7v7wPk
o8eg+OjeN+ccBkCwjNNO0v4YDBrfgHXPAUAZonVlacfgeC5FVz9+AGznXpQD
WR5G1Y3ucDYNwK3rcoa/5uXhpO/UN/fjg7B2vMvJuUUBHLLBUER9EDy9X41p
EE5AYkvUYNvFQZgtziC/OHsC/vEdWTnkNAii9zenZ+pPQErp3f3DmYOQ0PQt
eqZJEZYXCLd0dgzB9Sn7w99cEQjsNdvaEhiCydnKYaEkBOdOFQXlSg/Bjj5r
+69lCDKiDVJYzg7B76lX3nNMSqBz6GlNme8QSBYe75tLVIJcKxlu8ZkhyK+S
P3i4VRnMunU/0TcMw14lkasvfFSALemP/c3OYbjDetFgKV8FCg0deH4PD8PV
RNbK570qQN8V4F5COwJLN3w5RORVIb2j5PDNoyPQk5j55/OSKgz/4M/89WwE
nLQd1UT81SD8Ye5FzYIRKPZWlG0uVoMjevKMJR9HgFF3x9+hKTUIaLtg9rBj
BFrcBMwu66uD6Hd/Hk2uUaieqG0JOKQBNs2TkcXuo9A+omxevHAGyJHuIBIw
CgF3Fr6lSGlCiRbT39jYUZidYVahsdME9m98ZxzzR2G+jM38+KAm5DTqMIoM
jYKp5lhsftdZ+Fv33j32/BiMluyvuNenBTe/+JndEBkHooOyfK+4DvAOqjIt
Hh4Hclzto3AtHainY832QuOQX6NE8nfWASEUNhN0aRxSdexuqJfqQGfJQ+/0
kHEoC1g4Kq19AZQKnqd0To8D03V3JvogXfjbZKVssj4OvGFF5QavdCFpSmx4
mGUCBg+b5m906sKCWP7B+X0TcBMRHx2V0IOsjHelXLoT4BO0MebVpgekpK9d
J99PAB9D9GS3rD6UFQffrauaACPClKujmT7Ydmju126ZgA+jFF/jSH34sr3F
2nh8Aqy1XnSoT+mDe2TnshvPJITXL7HffGkAfx6M78jznoQmUS2PZ8cM4ZUj
x4Vd6lOQueezwNCzK9CQSHHPvTgFiFboDXP/FRiu4k5Vvj4FxoPWxQX7jIF7
94EJu3tT4PPZ/GHiM2Pwq1DxrXgzBXeKPnhNZV+Fi+R7r232/4XXe21jzkyY
gKOCf+fWob/AteUjcZFgCsEWYVuxJ/6CsDONX+5hU/hUknTmk8FfSAhLXT91
xxREr70foET8BcpHiuqBbWaw+nqG8nHtLxy+tM30ivY12PZr+ZgO6zRs6dS6
+HpcA0kWGpORHdMg7KkiSJt+Da4ZceWQZKbBbeCeEtPyNWhgED9lYTUNQs/e
yGmmX4cUvesuhB/T8Eb3i6sTlwU89bQdl9L/Bxn5wjHdktYgVc66HHDlHwRc
4eUfN7GGcoZMxt/X/sHVq+M8RjHW0Bc2yB/m+A9EozK87FesgffJFf2xoH8w
PXGy9nKdDSRWaVU9Lf0Hr8W3W+7xtgMx1r8ty5X/QPJyc3v5ezsoPhv6W6v2
H8QrJ39tn7GDjvavqxs//gEyzi/QN7eHHWNK0obT/4DvA6tVtbYDRHPKppD3
z0BNa+pqFL8j7NdpfWktOgNuR002U5AjvIpzLC6XnAGXnb4vJkwcoZkvt83h
+AxkD2UMqDxzBC4ZYfZ63RlwjD/HxSF6E4Iv7nLzDZgB+c2nLTrICXxS17Xn
J2eA2ezso5QXLnBe6v1N8bkZ6DsQqdL5zQV4K5yjzFZmoCtk5qjZsguU9I83
NzPOggS70HlTjVswK9Splcs7C6cVnh8Rmr0FZjlvzlqcnwWhP4O0WtquIHXi
pv3ji7PQuNDT9+6uK2w2SoS1Gc1C4oOr29xzXCFxOq1B2RqPN7omwszqBq0y
0Wf4fGYhR0SbYl7tBkrFDuodr2eBKdN9rErHA7g0xKwJJbOg/txfm8nfA3q6
hgJVy2dB/HCk+ctiD3BbN/pa1DALp+BcgsB+TyiAM6ejhmaBtzQp68+SJ/BX
i6ho7JyDEzmqzirv7gDN9z5U6jEHdL/EGT9/8Qa/sbKnHvfnwMmMh0FmzBtY
aR7THQucg+za22UTHPeBfPBS1ZuHc9AnxdqtpHcfhAJaTucXzIHMQb3DwWP3
QeN45blnw3NAPLPr3Z59vtCk/STfZGoOVHc5T/uo+8IFq7tEvvk54BBT0AUn
XzB6KN+aRDsPm1foHUuqfMFhulDvIc88GKWv9zTa+0FMWppRoM48VL3j6Ods
eQC7Su5/VL00D+YxSxu8Ww8gufkqL6PJPDANhR6IOugPzzf29N23nwcX4abf
SSH+8F4/9ppn4DzMP8m4baoZAD3sD2wcyubhYU/jJas/gSDsYuGmK7YAReVG
OUlXQ+Gg/O8LqVIL0GZkn3YrPhRkaQwOjR9ZgGCVT8c/fgsF5VD14XsnF+DM
v9SsBKUwME6X0H1ptADyrAmnE8TCIa5t9hBdxAKI333+H7BGwuNEW/azDxfg
W3nIoUbRSEg3GRyOT1oAuoxJzkdqkVA4+ePxwcwFkOPzvjwZGAlNDMXslyrw
+JXP0sM5ooDxv3sj+XMLkHdBT0+KPxo41pYqV1cW4L1uuOjPk9FArnBMUaFZ
BJeP6V2fLaOB/6yZXjfHInDRiq87FkSDgrnKZybhRSByn71wQCUGXB6yp14x
WIRflunvw71iYXAh/iL7x0VYuO8hoy4SD8+UDjv3fl6EaYtQ2hSDeLga1hSR
X7cIB+9G3bgcHA9dgoy1FzoWocTT4RFlOh5aLjgdT55bhCyhPalRHxOg7JUm
/0GxJRAvd1cNv5EIXhsjCltSS1DJ1cfQ8SIRjqn7Xmo5ugR2NGJrCX2JUNRX
HH1LZQlOPk9287uQBNkEEcYykyWwXpQP3AvJEG9PO34ufgm8za5rnJBMAd3i
ZKZ9KUsgE7vJ7eKQAmRGOYG59CUYkVt4L5OfAuHJDkbxhUvA/GGm8YxMKvjV
dzf9blwCQqWAuz/fE3A88Pa1I8MycCfHlo4cewoaQzZ3om8u4/NUZrdXVhqo
3hHIOeW2DLlu06vurWmgvL2na/HuMug6GD9vWEsDeZWzcpdDl0GKc4jTWSsd
xDIOzQm8WIbd565d+LmaDuzm81ZvepZB8z5da5LZc2DZyIm3HFiGo+sKYvJR
z4HhoXn17vFluCyeUSxX/hzWq9oF7i4tg17l8ZBLfC9gUrD4lyp5BWINv2dB
/wtoGLyj23F6BZztOQzPe2bBV68jvsHnVuDwptfP8wVZULVt+pWC3gpM/KR1
LhvKgtJTJoSnZitg+OX1rUHtbMhJV66zvrMC2guL/C6HXkLYdWa0VrgCUg+Y
r9rS5MK5wUhxXt5VaJ9iiZbyLoAG8cE2I8FVGJ9iJux6gk8P56N3k8RWwS4l
yEahvADU6H417zq6CiWH8u6foH0FyvzitynnV6G8YXvpQf9X8J/Rl3IWn1Vw
zkzXO5hcCEVpu2xOB65CtJu/+e7yQpCZsKX4h6+CYb1KpfpgIUh6kC3ok1ZB
3D/S0P3gaxBNuMq++XoVYvbpbO37/Bp42lb05obw/L60vWNfL4LEPWe3pCdX
oVeVwcVd8A3svvYk03F2FTKNQyoPn30DO2ZV16Y2V+FumsrpyNQ3QCTGPhnd
uQaT/e2uy6ffAr2m5ESv+hpwhEQ3M2S+g/HPZt5fc9fg81Cn9vGsEuCL6rAJ
L1oDi+T5nqK+EtA1Pqen+2EN9pUsXEzd9QHKlo+J9X1dg4benQF1QR8g+iCp
bWlgDVAys1z0zVI4Hv9JRIR7HVIqc/vy9MvA8fp/5Cn+dfjjeiriaVwZPJd+
uV4osg48W3uTKe1lQGyIa1H8bx3SeyzS3C9+gkEaB8+L59eh87DmySLJcgi1
4fn2wH8dgjZlVvWVK6DiaHTxmbB1KBDn12K2qIBFBpZ0Uuw6vNCUM9gMqgCT
1Dm3x0/XQdAkIeNLawXIttXtf1O6Dko/ZGS/WlZC7wn324Oz6+AU9/rIrief
QZLUvvfk1Q0QiGOAibPVMBw27PPQfAM4DCTzH7lVw2O2pZER2w3wMSxtjEur
Bg6GXYWhbhtg3jwrcW+1GsYXL6m2R20Asfm0ws6cGsjo6XWwrtoA1SOiJ3p5
a4Enc+hTxIFN2JVJSn+p2gBtgouC/Yc2YW6GPwZ5NUDIU6Zg2SObcJul9vSR
wgZYTRTR7VTehG3ZZ2+p8jVCR5j16H6jTUjEYYp9sxFinKeIb8M3wehrCtvr
pm/ABgumPXObMJB4TdivrwXclERZ3q5ugteoudBXhlYYPnk5L4J2C44Rp9W1
D7RCpVrFqjJhC5gjbetlnVvBQycsJktsC/J2ZcFZtu8wYS705bbpFjT4W7Yd
UG2DhlA9UdK3LVjj+6vYvtQO8hGBTeM/tiDjQezjNKGfkBn1waWqZwuQpaLw
lws/wS9uX4Xr+BYYSbXkMr36CbzNixLTdDRoQIXhRtSNDmjvrPyix0uDDHOP
GPy30QmnpwyX9uvRILFh+8uKxr2Qss33+z0DGkTjJhF0J64X5o+/zO+5TIOc
2/Zd3/utF54Er1nGmdEgckAp8b7SL1gVSe5gdaRBE9rkhiGx35Bj1lv8L5gG
tUU7XlcL7ANix1WvsnIatLt36YrZw36w2Aow2FNFg6RJ52Lp3/dDqXCBrFsN
DSIFsr/v6eoH61s0U9JNeD4njQuO7huASvLTKxndNOiCxUhhXMEAuJztVwxd
pEEy2yFErGsQOiqv0xpK0KLgIQNDQcMR+KfUxX3nEC1aPrtzh+H9EWCu0JJ9
IkOLUmnqlaozR+DIJ3nLYTlatP9PzR3l5RGI/UBsdFKhRcfP773f9GgUtIpK
E0KMaZF94xzNhZExqM7YJvUxkhaVDyt2DuVMwi/BYPW+GFpUF5oSJto9CQtp
W2b08bToo1STWQbrFAg+G3+o/pgWvVuRKjtrifv0lPK1H1m06KCyitxlob+g
GG9X87eSFpEvSPy8nYP74MAqY/4FWiRZuxnj4TwDmRr1uwKWaREq5lAOi5yB
RI7W1qk1WuQk2ZNXmTsD3pG/VT/Q0aHQXeuvH47OgGbCquRFIh06qEDb2n11
Fh/ZUlsh4nSorPX8hT+6c8BVk5y6ZEqHpBWzaFwMFsCC8VZfUxMdylYKOa5d
vgLcfLU/11roUB+jJAfTwAo0ye39JvqDDr3thcPfGVfhiN2Xjz7ddGj0udbP
N2dWgen79qQjo3SIXyc4Pr5jFTKevNVLoaVH3nulGNIX12Dw+HKdvSw9ao5T
OeuB99E1J883HIn06Hu09LVt/rTokKV4k6YpAwpGjES1K0zolzXfjdzrDAg1
Jf7c7sSEQu0oRC4rBuQYc0Dplz8TGru5pv3NgQHpjVaqGxcwoTSv+h/aXgxI
YCHPagc9M9oZbdt7MZ4BDXdOaCq9YEZbpS8nTRoZUNe6XL/pGAv6RpZgv3WM
EflmmhC/arIjRXv7sSQFRnRtbj/djyvsKK8mr6YSGJFAkcGjHw7sKNxL2o+o
yoh0fV7YvIpkR5rDRzZe6jCi+5XnQ1q+s6O6YqXpfltG9C+jUDddnwN9MdH/
fj6FEY0505wS1eNEsh8SXrk+ZUQexzeYgq9zovTtXREp6YxosiPpYa8zJ/Kr
M9KczGZEO/w1/l6K5kTKsmZfAt4xouYMlaDnTZyonNn+XVkzI5rVCJcOPMWF
PuT5JEnQMyG3A7nsykIExKSpxx3PxITqoy97zxwmIO0xkUe0bEwoljXmRoQy
AY0INMa1E5mQXk3F27irBER5tDPam5cJ9WueqWtNICBb35zAtmNMyKOELZKG
gYj2GLTf8nJkQi1sMY5pdkRksZA5P+zMhLabt7IPOhHRq2hPZ21XJkQ2QCQe
dyI63ch/U/guEwrpJ1s7PSAiZ2Vbu+YQJuTZUv7u/WMiqpeguSb4ggmNSyn4
5TcQkSet2PmGXiZk6s7xwEqQhIZPsXcI/2FCE535NAEHSOh84OTV+4NMqKi+
qvWxJAkJEvJvHJlgQuhZcnSRHAk18MhGPFlmQueKiiQDNEmIV06xyYXCjKoX
DZ2rnUio0kFHc6867ikO07r0FJOQROHhNldNZvTbguxJLiOhuIVtRq1azOgB
4UihUiUJ2Xr9tA24yIwmv8k1hdSR0LZgo5CZa8xo3XQz9FsXCVlkWNR9ucuM
ouc+vN6zSkJsPR5qDkX4ecnimrXDZHTENYsz4h0z+uOcUy5+lIxMyR2t+SXM
yEFZLPWiPBm9V/vvykw5M7pIzhR6jMjI4s30TZdGZvQl7S3TX00yqgi/nuQx
zIzSjs48SL9ORm5K5/7672JBhmLO/hGRZJTe4/X6xR4WZE2vLygaQ0bfXF+6
feVlQTID72xLH5KRcB4LPZsQC6q2LufqSCSj79yfd4ZJsyCY+36mJ52MJOeP
KsVosCDzu4tVe9+T0dDzfbGpXiyo3mtpLqebjCb9/qzQe+PxMm9KzfWS0azZ
06tWvixoLNlM7L8+MqLh2ycuHcyCdtYrOeUMkhF3PH9lZTwLOrXymGQ9RUbn
A/j+DRWyIJ3KVhf+TTLSN/+tp/GWBV05xPZWiIaCjE+mfsgrZkH/9QzwidBR
kO0Wb4BrOQtarFcP4GWiIH9XXl7WJhb04GSzfh8nBZVa7tWUwPtUpiHs7hse
Cvqs0vsqchKvx8Yx5M1LQXUCj3cuTLOgxhTN8NP8FPTzN8/Ax0UWJOkeMlIv
QEGz+jweWgysaO8yh2yOGAWJqu3JdOJjRWLTNWrNRykoVnQ3Q7EeK+ryjbJp
1KIgI2PhFwMGrOikHmGCR5uCBGMPa3AZsSIHYSF6Gx0KKto6G3nNjBXRuDqy
behSUFu7Dw/XDVb0uS13mMmQgigPJmWvBbKi6/L+mrnXKCj6zydzzg+s6CDZ
zuTqLQoy3NnIIlfGippcmnWtb1PQ/rNdL80qWFFO/qLBTVcKKnw/P/OuhhUZ
IKEUT3cKao04cNesjRWJ7Jf2cL9DQSTFmLh3U6xINcvx0t4HFBSZaFFjys+G
1vVWXu2JoSDX2z7OXgJsyOKR07sxbGOdFL54YTZkZOgBb2MpSIKt3bVBgg09
FSv9oxFHQbXuKqJHj7Gh9y1N78weURDdJcEgDh02VF7Q3X8ulYJu7ezXeOfL
hmjPMouKZeP1mdtYbPFnQ5vcDJqN2Ke+7U6bDGJDdR8E4cZLCr73tdf2RbIh
2bfmSfk5FJS3WP4yNJkNtbyVsNyfT0GjP1I5zN6woTfD3tytr/F6xF5p4hhh
QxKTM68tSymI5zXbHttxNvRt8XfkHPbvlneWtVNsqHXl6Pm7HynoOoFM6z/P
hh7c2bobWUZBDsHVh7do2RFT+HLni3IK8vE+9GiGhx1N2hSYpFfh+aX2DGnx
s6ORQl1zvi8UxFwWJJMnwI5UVRftH2GHrg3U24jhc56OKya4moLibidsDhxl
R4l3v5qZfqWgLDva6+067Kj2nUJZfz0F2YXkFcheZEfHT2wNn2ugIMnsyxvR
l9jRDgiTLsEuHHkTp2XCjuy/MRwOb8T1a2ZT+9WeHZ0vu71T4hsFNRt8l/wQ
yI4MPmv3oFYKWj6VsZJaxo7WHNpNOn9SkNeHVN+qCnYUpGSuK9JBQTQyiZxj
VexI6k3dKxdsZr6IfTL17MhGLTiPs5OCdqy4qVf9ZEfJAt5Ncl0UdDhX89Ho
P3b05OtgnEsPBb0VOC3AOc+OfH3mM4ux5ROVcqWX2JFT9/v/NrGVA45UeGyw
o89HdD8/6KWg86b8YxxsHGheY19d+C+8vtvn5aQFONDrW0mGQX14P4X8rdQT
5kA7sv8FV2PfohvT9DjAgXg5aVTo/+D5T/eafD6EP59pveSJHVJbE6inwIGm
B2J5LfopKPNOUoe7Hgf6EPKyRXiQggaGlN0qAzgQv+f6bcMRPJ/UpmdiIRyI
tdLIIxz7iYFhY3Q4B9r54C6xEtu4/ub+aw850KXCqGWRUQrqKnjSQJ/Ggd7Y
mzT/xW713ORXKcPz+ShhZD1OQdL/BZ/JreBA3H1nZ+OwI/9uv739CwdSao8W
rcI+Z3qwfqieA7VLP3fbO4HPE1WjW/6dHOi2g21pPXYlqaS2Zp4DadTyu++c
oqB99Srzh5Y5kFpNjS1ge/u18CascaDRYH02S2zFpVFnKzpOlPfz79k32CU9
O3lZiZxo/HAP7bm/uD5e3HLSEOdE/rky+Y7TFPTshPSeRlNOtCJke+PeDP5/
59h813Bf4BL1g5KM3X91YPyAFSfK/tJ+7z22gM/DEn8HTjSafLHgH3Z69col
5MmJfggcvGc8S0EZWpUJr2M5kRBDnJTUHAVVmyTR9MdzItUoe2917OGbLlbE
JE60M8csxQxbOFZYzv4p7iu4JVRjsZ93BP8UzuNEVeHlWgvYmaYXdiTWcCLR
S8XJefMU9NVJ4u7XOk508nT+ahX2qC/j8GIjJ3JdCpLoxhZ9/u7NhTZOZKl/
mpN5Ae+f8T16nH84kUyEdIMRdrbzYIz3KifqqBUJpFmkoNwHt0iWB7nQOfi0
R3yJgiYVrvg8kOJCUc6v5BWwJeZPzaUd5kL/Xb0vdxY722zbj75jXCjxfnGL
A3YmvE4wVOVCzKY29wuw01f+8Z27yoVWo0+xSy5T0GBBR6SdGRdacab97wS2
gFU5bYg5F3qy45qSJvaz9oiBGlsu9KBnkc4GO/W15AslNy60+6bboXTsRHs7
yf+iuNB9QY0rlBVcb4K6qRdiuZBp9modP/bunuNEp3guNK2XxSuJnaDBPpv3
mAtV59a6qWE/FMl+I5rNhUou3dnwxI78M6LA85kLKbq+cfqFHaB37Qz9Ahdi
ElTQiF7F89HqMTJf5kJq0nffPMYuVddzqFnjQukPK1iysGdPnI4KoSMgxxPb
rT5hGwmL/6QQCchcWp8wgS2zNGsmKE5AKnnSYoprFHR2xtbFX5KALnCDhBq2
1cTgg1FpAkpyO7lbB/vx7/bMHDkCUj/6p8gcm+VryV9ZVQKqGD24FIL9K8HH
Q8WUgK4ONze0Ya9Er4W8uE5AEdVy0b3Y28JcHrNaEZAfSUplGFv9vkV5owMB
7beydFnCLrLWYLroRUDMrPvWd61TULA8OdoinoB0WjabDbD/63maFdBIQDZ7
d/g2YBMlrZbzm3Efm8vZ2Io9eU/ydMd3Ato4kcPWiZ0u8GFQtIuAxAhgOoS9
zbaNr26YgKLa9O5uYK960Z9hoiEi4Ri/UPENXJ8ZFk6JtETkW9q3Rxq7van2
kSQ9EXn0az85gl3IHzl6kYmIbNK/Biph21Tx+L/gwM9b6XVdxO5kP1KhtpuI
Jhdbou5hV8s+Gu3hJiJeM0kvP+yiK+uEmzxEVOgxYBSEHZlfafyIj4gO6aTR
xmCrXdBaHxMiouw+n64M7PeJVkdDZIhIp/FhZy12woGk3MYzRFS2+7kf+yYF
zc+pZvieJaIdtJQ8ArZW2WzyMS0i6slLb6JgM13QCM3QIaLBoPsLe7Bvea3Y
3LlERHbVwj3i2Drf9EUPWhKR2mADjwZ23iN6/gErIpobYqg4i816PX/nIxsi
apr3uqKNXb7MxMzoQETrDDfuGWAf2v92qMeFiLgH+KwtsDlubUsL9SEiAWX7
P97YVlCeqOxHRB2W20l+2J9Z7aKXcZ+vHLBwLADbI+Xz/etBOBecjncNwx6r
cTJRiCSiZ3JTaY+wq7lb9k7iHJDOONRQgH2vPCzhTDHOCcPnS7qwx3vLY1dK
iIix2ZyvF/vi2lzki1IikjJ2v/cbW+KIYRB9ORERhKulBrE7Xgp7fKgmoqGf
2y9NYcvEf7os3kZErw+eqt3Eflw0q9/5g4jastf6abZwfbcK6Qb8JKIcpLVM
h/2bI1RzoIuI5HSntzNjh/oYnEj6g9+3MoGXgD1sP8PLPk1ET6qdrHmxtUME
9xT/I6LVEoISP3Zppv5Oy1mcY4Zbt+3Hjhn4SPi8QERetJMFQtjoUjCN5zoR
dbuqlkpgJ54S6B9nJaGQZ+eF5bHP7tHLqMO5576otIcOdsKgZPllYRLa1VLY
cAF7MJele1KEhMpln/DoYXuhUiJBnIQylVqL9LFzzAW8LkiT0Kvfe2uMsNkK
ZnR6TpAQ0SXA1QL7onu9vT2Q0JoNe5ol9jPljMBNREL8wqcbrLCP/TAo4z9F
QhW5Szttsa1WPx0w1yAh7vvvYm9g15wKp/l7kYSikmxE3LDJXFZ77hngXGXm
IOWObfxT6QjREM/niP1RD+xF6wVbmSsklP7RFrywhSOMft6+hnNSbsdRb2y/
TrG8rRskNNNc2hiAreRQc5kUREK/syKeP8Re7RhTrQomIa0HLgFx2EUnOWRc
Q0motv2ORTx1vN3aLL0RJMQaxMn3CJujqqsoM46E5neHeSRjd+z+i0M1Cbnu
0vn1DDvaj7gym0FC/eMn09Kwz0zLDGa8IKFIjYcW6dhlVa4l7C9JSNfu+mgG
dvoNWsufr0joYDm5MxPb8cu2codPJLTxPfRmHraY1NGX+ypIqOAdA28+9kDi
pbg2nBsTRwm1VF90TLGTr6bm0EnuV9gKe0R3MzWSkMhFQt5rav3dPO70GOfI
6Wf3Y99jp/KYCTYskNDp0/MuFdjyh8UlzZZI6Fiz6z+q29Tnjy4vkxCzI7Nt
JfV5V/8zgusktHJb58pn6vxasp286MhIzrL+yBdqvfnPlUsQyChRorvsK3ZX
cmldJZGMWFZWxGuxXV4/aDMgk5G0mlIC1Zl9O0f9tpORF+m8Qx026bgCoXcP
zoEcycQG7P5pvythomS0bb/2oW/U+mM6ZykgRkZsEe8jqN6xd+fNYnEy+pdo
Ok21hkaW35AkGV22u5vTjF2Y3vjyxH84xxqz87Zi+17asTqlREZ/InJ+t2EL
fn4Rd+4yGeeb88Od2E0Sy+k9RmQ0YbZdqgvbLU7ttY0xGdU2nXGnut567Ju/
KRl1uhLZurGdiOKsnyzJSLV+h1AP9qcreZ6HXMjI8tWm0i9qPddsBn28RUYx
DRd8qSZLayWccSUjZmuxKqotGP4VWXqQUejS1VO/qfX0UvpvqjcZOZUzQR+2
4XKRCTGMjJZqCbz92AxmjDdSwsmIo3VCn+q8er07EjiXa3zXj6KaNnXxkRrO
5bICA3QD1PVVkfvu/YiM+M786qN6IfqDykwGGY3t5Akawo48WCnWWkZGDhPE
yFHq38tdZvUpx7mZQb2C6k8n50ekK8mIoWL3LNV/LwlnRH3B7yMwUGeMWs/+
wXzaDWS0I6mQaxyb6bfOtuZO7CdTLhPYe8cnZu/hXK84SnpCteyCX8shnOtP
x3fXUX2N/V14BM71N/aZ8U1ilx/dw6o1QkYBF85XUe0ZObDROE9GXS+0Nqeo
+ynJq+fOIhnJHOMX/Iud/Xz7h4PLZCRq+lSd6o7S025ha2T0mOt9DNVHxl7O
alJzfo2a4DT2PyWXkXoCziUJPkf/Udd/jqGlFudyTQZ7sVnqeZJ9qslIgoJU
CCEqVF809aufPkhBf2adTahW/UZfvV2agjYGXjykWvgl3QdTnOPZnqZtUD1k
RpOxchLn8ASlqjnsnt3oWagKBc1oKfRQ3dZ8L5XvNAVxMrPMU12luPVIRYOC
vvVTBOap+597MzzqPF5HOeZ7VF9vXXM7cAW/F/0syQVso6Djt0uN8T3+qvck
1brI01nLBH8/z1EDqk/lrdrfwrl/65mPD9WCwStmFdb4Xmdo/U71gNKS5iWc
+ysP7LuxiG32apY/KAJ/j+u+wUvYdj4X1jWi8LnxnP4x1bcuFP3kwDne5ebl
fKoDF26FR+Lc7scQ853qvGMra/GP8T2RJM69jL1SsdX+HOfwGn7NJ1TTxZgU
WuVSENcPuwKqOa5XhInhHK580qacal4m31N5hbjO76//pvqUBlPhm2L8eb3/
3hVqfbZyhFXV4Pfxzima6sQ0eyv/Wrz+DfefUJ3m0nRSDefilf1OeVS/3RG5
Wt9EQQeSl2qp7jGkWH3/gXP1avIW1SIDu0/2D+BcqxVkvootVeTBmz6E+463
dTepln/QvWKOc5651swdqjVFHheM4ZzWRzv9kGonW37eGZx7tF4VVlHtpXB/
pRDnlBuLAs1UP+Dsb3PBOaNB1qub6oT8tJBl3Me/de2fofqZN4NlCe6T9Uf/
rVP9Uttc2Qv3jUZiI8xr1Ptmf/VeRdw3ZDp9IVNdNie8skVd54WQvVT/Dy6y
m5E=
           "]]}, "Charting`Private`Tag$1755925#4"]}}, {}, {}}, {
     DisplayFunction -> Identity, Ticks -> {Automatic, Automatic}, 
      AxesOrigin -> {0, 0}, FrameTicks -> {{Automatic, 
         Charting`ScaledFrameTicks[{Identity, Identity}]}, {Automatic, 
         Charting`ScaledFrameTicks[{Identity, Identity}]}}, 
      GridLines -> {None, None}, DisplayFunction -> Identity, 
      PlotRangePadding -> {{0, 0}, {0, 0}}, PlotRangeClipping -> True, 
      ImagePadding -> All, DisplayFunction -> Identity, AspectRatio -> 
      GoldenRatio^(-1), Axes -> {True, True}, AxesLabel -> {None, None}, 
      AxesOrigin -> {0, 0}, DisplayFunction :> Identity, 
      Frame -> {{True, True}, {True, True}}, 
      FrameLabel -> {{"f(T)", ""}, {"T", ""}}, 
      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" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& ), "CopiedValueFunction" -> ({
            (Identity[#]& )[
             Part[#, 1]], 
            (Identity[#]& )[
             Part[#, 2]]}& )}}, PlotRange -> {{0, 5}, {-0.5, 5.5}}, 
      PlotRangeClipping -> True, 
      PlotRangePadding -> {{Automatic, Automatic}, {Automatic, Automatic}}, 
      Ticks -> {Automatic, Automatic}}], 
    Placed[
     Unevaluated[
      LineLegend[{
        RGBColor[0.368417, 0.506779, 0.709798], 
        RGBColor[0.880722, 0.611041, 0.142051], 
        RGBColor[0.560181, 0.691569, 0.194885], 
        RGBColor[0.922526, 0.385626, 0.209179]}, {
       "\[Omega]=1", "\[Omega]=1.5", "\[Omega]=3", "\[Omega]=5"}, LabelStyle -> 
       12, LegendLayout -> "Column"]], 
     Scaled[{0.17, 0.7}], Identity]]& ],
  AutoDelete->True,
  Editable->True,
  SelectWithContents->False,
  Selectable->True]], "Output",
 CellChangeTimes->{
  3.731261347437283*^9, {3.731261463274267*^9, 3.731261496234623*^9}, {
   3.7312615462268667`*^9, 3.731261574512474*^9}, 3.731261657373432*^9, 
   3.7312622146075163`*^9, 3.7317722296352262`*^9, 3.731772340386264*^9, 
   3.7317724976480417`*^9, 3.731772769944067*^9, 3.731772995105218*^9, 
   3.731779241659812*^9, {3.731779297882156*^9, 3.731779371900422*^9}, {
   3.731779498065504*^9, 3.731779551832264*^9}, {3.7317816615350523`*^9, 
   3.731781665302411*^9}, {3.731795242370269*^9, 3.731795249850047*^9}, 
   3.7420327128217688`*^9, 
   3.756148305567466*^9},ExpressionUUID->"dcb9b96b-2880-42e6-bce0-\
fb6c3678d49d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Export", "[", 
   RowBox[{
   "\"\<figures/tempResponsePlot.png\>\"", ",", "tempResponsePlot", ",", 
    RowBox[{"ImageResolution", "\[Rule]", "100"}]}], "]"}], ";"}]], "Input",
 CellChangeTimes->{{3.731255753744376*^9, 
  3.731255787705735*^9}},ExpressionUUID->"7867df7e-5e17-49a7-92fb-\
5fcb15e0e5f4"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Manipulate function", "Section",
 CellChangeTimes->{{3.731780906900557*^9, 3.73178090934695*^9}}],

Cell[BoxData[{
 RowBox[{"Clear", "[", "resSigManip", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"resSigManip", "[", 
    RowBox[{"temp_", ",", "omega_", ",", "tempThresh_"}], "]"}], ":=", 
   RowBox[{"fmax", "/", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      RowBox[{"Exp", "[", 
       RowBox[{
        RowBox[{"-", "omega"}], 
        RowBox[{"(", 
         RowBox[{"temp", "-", "tempThresh"}], ")"}]}], "]"}]}], ")"}]}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.731780911401992*^9, 
  3.731780928752976*^9}},ExpressionUUID->"b75a3269-0ba4-46fa-9b53-\
fcf4055c88f2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"resSigManip", "[", 
      RowBox[{"temp", ",", "omega", ",", "tempThresh"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"temp", ",", "0", ",", "5"}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"LabelStyle", "\[Rule]", "14"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
     RowBox[{"FrameLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<f(T)\>\"", ",", "\"\<\>\""}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"\"\<T\>\"", ",", "\"\<\>\""}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "5"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.5"}], ",", 
          RowBox[{"fmax", "+", "0.5"}]}], "}"}]}], "}"}]}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"omega", ",", "3"}], "}"}], ",", "0.5", ",", "10"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"tempThresh", ",", "2.5"}], "}"}], ",", "1", ",", "5"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7317809334301443`*^9, 3.731781032139371*^9}, {
  3.731781464748356*^9, 
  3.731781474449724*^9}},ExpressionUUID->"21add8e6-e026-44cb-9bb1-\
b76efafe205d"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`omega$$ = 3, $CellContext`tempThresh$$ = 
    2.5, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`omega$$], 3}, 0.5, 10}, {{
       Hold[$CellContext`tempThresh$$], 2.5}, 1, 5}}, Typeset`size$$ = {
    360., {125., 130.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`omega$1756071$$ = 
    0, $CellContext`tempThresh$1756072$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`omega$$ = 3, $CellContext`tempThresh$$ = 
        2.5}, "ControllerVariables" :> {
        Hold[$CellContext`omega$$, $CellContext`omega$1756071$$, 0], 
        Hold[$CellContext`tempThresh$$, $CellContext`tempThresh$1756072$$, 
         0]}, "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Plot[
        $CellContext`resSigManip[$CellContext`temp, $CellContext`omega$$, \
$CellContext`tempThresh$$], {$CellContext`temp, 0, 5}, LabelStyle -> 14, 
        Frame -> True, FrameLabel -> {{"f(T)", ""}, {"T", ""}}, 
        PlotRange -> {{0, 5}, {-0.5, $CellContext`fmax + 0.5}}], 
      "Specifications" :> {{{$CellContext`omega$$, 3}, 0.5, 
         10}, {{$CellContext`tempThresh$$, 2.5}, 1, 5}}, "Options" :> {}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{405., {184., 190.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7317809898916388`*^9, 3.731781032677971*^9}, {
   3.731781466131444*^9, 3.731781474835452*^9}, 3.731795250344013*^9, 
   3.7420327140517483`*^9, 
   3.756148306766879*^9},ExpressionUUID->"934f92a8-b3c5-4273-bf84-\
050c03e369a9"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1041, 804},
WindowMargins->{{Automatic, -1470}, {-10, Automatic}},
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, 786, 11, 69, "Subchapter", "ExpressionUUID" -> \
"fde002c4-5867-4e74-a046-7f619273ad3d"],
Cell[CellGroupData[{
Cell[1391, 37, 121, 1, 64, "Section", "ExpressionUUID" -> \
"0442445b-ebb4-4acb-b8f6-b5f4c0bd8cee"],
Cell[1515, 40, 506, 12, 32, "Input", "ExpressionUUID" -> \
"abc39f06-9e20-41c3-ac75-02cffafce0e6"],
Cell[CellGroupData[{
Cell[2046, 56, 1637, 43, 159, "Input", "ExpressionUUID" -> \
"241db403-a2dd-42f7-a725-e2dcc755ac9e"],
Cell[3686, 101, 32503, 760, 32, "Output", "ExpressionUUID" -> \
"6e3edb16-85df-4f57-8470-99af10736d2c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[36238, 867, 112, 1, 64, "Section", "ExpressionUUID" -> \
"71c2703c-ede3-4473-a6e8-e0d78c1466d7"],
Cell[36353, 870, 593, 13, 75, "Input", "ExpressionUUID" -> \
"5cb209f7-607c-495a-8f64-b0642c71d6a2"],
Cell[36949, 885, 912, 22, 54, "Input", "ExpressionUUID" -> \
"72118a3c-7424-4202-921b-72f0ee5de828"],
Cell[37864, 909, 1036, 26, 54, "Input", "ExpressionUUID" -> \
"d163f90b-81d8-41f7-a44e-c88eb1757e66"],
Cell[CellGroupData[{
Cell[38925, 939, 2175, 52, 138, "Input", "ExpressionUUID" -> \
"65572b19-ee1d-41da-96a5-772d3bb8de25"],
Cell[41103, 993, 96788, 1903, 270, "Output", "ExpressionUUID" -> \
"dcb9b96b-2880-42e6-bce0-fb6c3678d49d"]
}, Open  ]],
Cell[137906, 2899, 338, 8, 32, "Input", "ExpressionUUID" -> \
"7867df7e-5e17-49a7-92fb-5fcb15e0e5f4"]
}, Open  ]],
Cell[CellGroupData[{
Cell[138281, 2912, 103, 1, 64, "Section", "ExpressionUUID" -> \
"7f10fc59-8941-4fcd-a91a-ecea2cd250a0"],
Cell[138387, 2915, 595, 17, 54, "Input", "ExpressionUUID" -> \
"b75a3269-0ba4-46fa-9b53-fcf4055c88f2"],
Cell[CellGroupData[{
Cell[139007, 2936, 1480, 40, 117, "Input", "ExpressionUUID" -> \
"21add8e6-e026-44cb-9bb1-b76efafe205d"],
Cell[140490, 2978, 2379, 45, 449, "Output", "ExpressionUUID" -> \
"934f92a8-b3c5-4273-bf84-050c03e369a9"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)