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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     19665,        484]
NotebookOptionsPosition[     18531,        460]
NotebookOutlinePosition[     18909,        476]
CellTagsIndexPosition[     18866,        473]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"yr", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1983", ",", "2009"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "40.0"}], ",", 
     RowBox[{"-", "38.1"}], ",", 
     RowBox[{"-", "38.0"}], ",", 
     RowBox[{"-", "37.0"}], ",", 
     RowBox[{"-", "36.4"}], ",", 
     RowBox[{"-", "35.7"}], ",", 
     RowBox[{"-", "35.2"}], ",", 
     RowBox[{"-", "34.3"}], ",", 
     RowBox[{"-", "33.9"}], ",", 
     RowBox[{"-", "33.0"}], ",", 
     RowBox[{"-", "32.2"}], ",", 
     RowBox[{"-", "31.0"}], ",", 
     RowBox[{"-", "29.7"}], ",", 
     RowBox[{"-", "30.5"}], ",", 
     RowBox[{"-", "30.1"}], ",", 
     RowBox[{"-", "28.6"}], ",", 
     RowBox[{"-", "28.0"}], ",", 
     RowBox[{"-", "27.8"}], ",", 
     RowBox[{"-", "27.0"}], ",", 
     RowBox[{"-", "26.1"}], ",", 
     RowBox[{"-", "25.6"}], ",", 
     RowBox[{"-", "24.9"}], ",", 
     RowBox[{"-", "24.0"}], ",", 
     RowBox[{"-", "23.6"}], ",", 
     RowBox[{"-", "22.9"}], ",", 
     RowBox[{"-", "22.0"}], ",", 
     RowBox[{"-", "21.5"}]}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"co2", "=", 
   RowBox[{"{", 
    RowBox[{
    "0.5", ",", "1.0", ",", "1.9", ",", "2.0", ",", "3.0", ",", "3.9", ",", 
     "4.2", ",", "5.0", ",", "5.2", ",", "6.0", ",", "7.1", ",", "7.9", ",", 
     "8.9", ",", "9.1", ",", "10.1", ",", "11.3", ",", "11.1", ",", "12.0", 
     ",", "12.9", ",", "13.1", ",", "14.1", ",", "15.2", ",", "15.3", ",", 
     "16.5", ",", "16.9", ",", "18.0", ",", "18.9"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yt", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"yr", ",", "temp"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g1", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"yt", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Red"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"f", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"yt", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "1"}], "}"}], ",", "t"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g2", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"f", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"yr", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"Last", "[", "yr", "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Green"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"g1", ",", "g2"}], "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"f", "\[Equal]", "0"}], ",", "t"}], "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yco2", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"yr", ",", "co2"}], "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g3", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"yco2", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ff", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"yco2", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "1"}], "}"}], ",", "t"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g4", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"ff", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"yr", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"Last", "[", "yr", "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"{", 
   RowBox[{"g3", ",", "g4"}], "}"}], "]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ff", "/.", 
   RowBox[{"t", "\[Rule]", " ", "2040.2398334077059`"}]}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"tco2", "=", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"temp", ",", "co2"}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g5", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"tco2", ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"fff", "=", 
  RowBox[{"Fit", "[", 
   RowBox[{"tco2", ",", 
    RowBox[{"{", 
     RowBox[{"t", ",", "1"}], "}"}], ",", "t"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"g6", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{"fff", ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"temp", "[", 
        RowBox[{"[", "1", "]"}], "]"}], ",", 
       RowBox[{"Last", "[", "temp", "]"}]}], "}"}], ",", 
     RowBox[{"PlotStyle", "\[Rule]", "Magenta"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{"{", 
    RowBox[{"g5", ",", "g6"}], "}"}], "]"}], "\[IndentingNewLine]", 
  "\[IndentingNewLine]", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.6483823142233334`*^9, 3.6483825484728947`*^9}, {
  3.6483826100069866`*^9, 3.648382692574106*^9}, {3.648386006613266*^9, 
  3.6483863001900578`*^9}, {3.648386379833613*^9, 3.6483866953166575`*^9}, {
  3.6483867402582283`*^9, 3.648386864990362*^9}, {3.648386895769123*^9, 
  3.6483869976919527`*^9}, {3.6483870846069236`*^9, 3.6483871378299675`*^9}, {
  3.6483871678966875`*^9, 3.648387207815971*^9}, {3.648387255683709*^9, 
  3.6483873620237913`*^9}, {3.6483874100795393`*^9, 3.6483874868819323`*^9}, {
  3.648387541458054*^9, 3.648387558401023*^9}, {3.6484628411278915`*^9, 
  3.6484628416738925`*^9}, {3.7431657033931494`*^9, 3.7431657169847984`*^9}, {
  3.7432241378526154`*^9, 3.743224426889923*^9}, {3.743224477246811*^9, 
  3.743224543234927*^9}},ExpressionUUID->"3d1d1ffc-5200-43df-b62f-\
abc6f52a615f"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1395.658567358536`"}], "+", 
  RowBox[{"0.6840659340659183`", " ", "t"}]}]], "Output",
 CellChangeTimes->{{3.7432241578362503`*^9, 3.7432242109075437`*^9}, {
   3.7432242541664195`*^9, 3.7432243024017043`*^9}, 3.7432244477627597`*^9, 
   3.743224544389329*^9},ExpressionUUID->"c7dee47d-2110-45da-8885-\
743c4a7c7f51"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[1, 0, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQDQZ/5jlAGC4HIPR8h7NngIDHGcJnmQ+Vh/I5oPwG
JwifZ76DMRhA+QLzHWbNBIKbjhC+CJQ/E8qXmO+QBgJqUL4MVP9nBwhfAWY+
lK8C1S8J5WvA3GMP4etA9W+2hfANYPrtIHwTmH4o3wLmHhsI3wZmHpTvAPX/
GWsI3wUmD+V7wMyzgvB9YOZZQvgBUP89s4DwQ2D6ofwImHpzCD8Gpt4Mwk+A
qYfyU2D+MT0AADLkbRs=
       "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVz38wlHkcB/DnspolV+qSlG5Loov8vGfZFvvsbmndratZ7pDkRyucug0R
Ke1QKdUpdTSF3Y4j0VFnODvkQ8W57XIb+rWLNX50RkiM5hbnPs8fzzzzmve8
39/vd1OUTBK9hCAIf/zo/+tbmwlivpiinjaNTF0TQs6TzG1MtN7XdysP7TU5
EGiOjmh5FncpTwjFAmXFRrSyrv+d3VUhSEetA/ho4vYn06E/CmGCvaYsEw3J
uxafnBcC4zlTbLyA+6y/LG+eEoIzc6LA9D90ok4kiBFCe9WgLZ9QUMQ7/ZG/
2UKI+zPDTrJEQSkr0g9fNxFClzK/PZihoDZqE/K4vQLIqH4ddnGpgorQ+6dv
vCeALz1aY28wFZT8C/DmygXg+LEnVmOKue/aR9f2CGBMdohJfIr7L9WyTpYA
aiMLrU1WKCiotJilpvnQfHFhi89K3A/cxXvfyoceJ0ap/2fYp5ZF9fzEhwc5
2S0SC7yP0rGqKI4Pms/Z3VmWeF63e0MJhw8Gh5zQXCsFRYk1in4zPkQnmLxq
W6+g9AWBfiE6CgpkxjPTGzAPcl9XV0VB90jZmTkW9vfdeSySUxCQn2TqbIN2
NXKz2kuB7uEww9sWLZ5JZW2moJyVNZNih/2UfOP2IR5wOEVZZVsx587FWJzl
wQv1/uyabZifv3Sq04EHtfm75SOO+L6To2uN1T5Q9Obl+KwTvv/fxJiyoz7g
/3LIMO+CDvuNsXytD/DMNiw4uWM/ttl+qt4buCpDEpfE/tzHBd4Bb0hTGumT
PDBnz4eYLnjBad6FsdsczIPrGbeKvCA3qDb+Lhf3jBRRBTu9YKDcdKDPG+8X
KPFdMcQF74Sl6nEe9p3cej9c4ELkdEbgBz7mk3+0Frpyoe2eTZfNTsyDHZxa
NTuAPRDftt0X90UqcUDqDngr1v8qFaH1q6fCLXdAiathWcpXaKJQ9KqRA3ad
V5inxNhnvplYI+XAWKnEUP0Nun5wncaIA6rphoimvegJK8NshSeoT4gbZyXY
f7o+/IbIE0pVofVbvkXnda8iRj0gO8nc3jkI76dvSOvK9YAq6fuL0hDMe74/
ZOPsAdpnydHHQvG9AaKlvd1seD51vC8tDP27bibsJBtM/X8RV4Zj/7FX3D5r
NvhvSnWuj0QHd1xpbSUh+EGDBNBQW5Ll1kKCVDiX3EHbPCPl52YSTkRnNGrR
VIfb/sxGEu5UnPEjorDPKbQX1JHAcLt60A9NrZM9bKkgQSW4W6ClrVv9Dq6Q
0NY1phqi7TnZ55JLgka6vW+c7l/v0Cgvk/DPuRpb4iCeJ86ol+eQYKGuu2+L
ppreZlJnSDga8Eh9hHaxygqOk3ByiDGZQttw3cwlhYTsZN9VcrT8O9mi4hgJ
xQUdwXn03nLb4dMJJDzVdg7XoYnTl2t48SS8OrzSBGhrY0qq40gYXJA4dtB7
HoJ8ViwJBtaLRC29Nzmbviglwfi+Zf4Q7a81P8gOkmAuCGkYp/fLKyP7I0mw
7rqpm6VtdC5wTwQJ9lLd4iK9HxGxu/kACf8Dj25XlQ==
        "]]},
      Annotation[#, "Charting`Private`Tag$8446#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1982.59375, -20.575000000000003`},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1983., 2009.}, {-40., -21.5}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7432241578362503`*^9, 3.7432242109075437`*^9}, {
   3.7432242541664195`*^9, 3.7432243024017043`*^9}, 3.7432244477627597`*^9, 
   3.743224544404929*^9},ExpressionUUID->"b41dc2f0-5471-4a55-8aee-\
644872f5f184"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"t", "\[Rule]", "2040.2398334077059`"}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7432241578362503`*^9, 3.7432242109075437`*^9}, {
   3.7432242541664195`*^9, 3.7432243024017043`*^9}, 3.7432244477627597`*^9, 
   3.7432245444205294`*^9},ExpressionUUID->"2e3224a4-1076-408b-becd-\
ec03c7acc410"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1397.7703296702916`"}], "+", 
  RowBox[{"0.7049450549450359`", " ", "t"}]}]], "Output",
 CellChangeTimes->{{3.7432241578362503`*^9, 3.7432242109075437`*^9}, {
   3.7432242541664195`*^9, 3.7432243024017043`*^9}, 3.7432244477627597`*^9, 
   3.743224544436129*^9},ExpressionUUID->"af7ce392-d7e7-4ac3-af5d-\
b417b2ff16be"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0.5, 0, 0.5], PointSize[0.012833333333333334`], 
      AbsoluteThickness[1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQDQZ/5jlAGA/sIfR8KP8DhM8y3yENDP5B+BwweQYI
zQPjc0BogfkOxmDAD+GLzHc4ewYEBCB8CZh6EQgtA5OH8hVg8hIQWgVmvwyE
rzHfYdZMEJCH8HVg+hUhfAOY/UoQvgmMrwLhW8D0q0H4NjB5KN8BZr8GhHaB
ma8J4XvA1GtB+D4wvg6EHwBzrx6EHwKzD8qPgJrfYAChY6Dqn0H5CTD7jSB0
CkzeyAEAN1dejQ==
       "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwdzX001XccwPHfdBla81TMup6up8rj/RZm0u+DptG17q62dEx5uLc8ZEgs
NpLrRJxN65xwLA9raHr2zCVh4oiTeUjq3mOIUogQuXnY59cf3/M9r/P+fD9f
o8AIgUiBoigvPMz95A9jilrJB6qpaLPu0WY6/X7yDmXGoMjl6bTQu2dGDqoz
HhZ5neluofNdC0sNP9js3DjdSgtfsr1dPsyXLpUZttOv7bVLkhkX3nzqOdpF
s3qVeYqraL4vv5H00zbKr7NV15h5ofZs1X90+41nJi5UAVC2XzSqfz9FhzxI
NBMooPkr/1avzdN9hVntPiym58ZzqpbpxNtP/DKU0DnVuWdfrNO7HFqCc5TR
7JyQjwYVwHLpUXCPKppsbnaSK8JkxDFlahP684jK/k0qUBlwma2ixrx/V5E4
tRHuZaya7tFA+zf/yFFRg0fWrCIvLcay3LB36lCentos2IKO28d7K9SEHn37
frEO2l4g/XlWC+QW6b6Zuug9p2bTA7aAKEplsG0retLuWdYbbciOUFyY10NT
L4wF8Z9B//OSlPcG6MDbry5N6IJ3VrSqDQcdrJM5ELMVZI3jLGcTdF1WXcEE
G64aiBdizdC3qppF8frg6JgnLtlWAElKoxnhCoYw0PlD6p0daOlC3AmJIVRm
7Ut6bolOfjzw8qwR5D19PL1oje6+H2uxmwNej8fkK7bonut3W+c4QH+it2q9
E/cXB0TLao3BSSKPdrJD6xufqI0ygbjCDcPRDjgfUtmn+aUpnKHPT/7piD3U
ebR1zRQyD1WGXXNCq/fudKo2g5GrqiNDzug0+wWbBHNwjlLqnKbxfXHJ0oT9
NgiYTzw454L99KdXlqe2QdtNTh9nL3a2e31a+XawHwlrs3LHfvy8jix0B7zg
Dd8Sfo0WXx69SSzgL658Y6wnzn9VP+s2bQFm3ReUE3jYG3qKuUWWMFkkkN/+
BjurtiMv1Aok83X+d/nY50ttHxpbQ2c8r2FRgL0iTClhyhqKJL41pt9h324q
FpfZQGq0urnNITQnxujqLlu4IZzNEB4ugKace7X7c2xB+jBGdMoX+2hmlOCt
LfS++Wkozg+tJFtN4XNB1auYd/0ozmteaI6t4IKX0WmbmgD8b66j5IEaAZ/y
OkETuimj6+UxDQJCt/cxHUw37bbcoEUgXpTYIEWDT3+5kzaBv0tTPKhA3N84
1HiDTYBFfg/yYJw+P/DbdgIS12vZUjQY6X3s7UagrW9SMsb0egPPmb0EeoRW
Q9NMP8j5NcOdwMS5OyZUEDrVXKvVg8CWzuoyEzQ1zTWw4xOI9P6nMxzdVOvu
oONH4Jcx1kwsMy/wiK84QiA1xl0ziemT++8e8CeQn93hcxGdpP+tW1oQgS5p
93g14xTfA8shBAZPaKg0Mfv1j1y8FEbg2arAsoPpNf6PuOEE5AYDJ6WMX4l8
QyMJKJbpZI0x+8XB+UonCai7Hq6bZv7XCxu5Ek2A3ZcrW2R6dbgJHUPAXChb
X2c6P/K4NJbA/83bIjY=
        "]]},
      Annotation[#, "Charting`Private`Tag$8532#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1982.59375, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{1983., 2009.}, {0, 18.9}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7432241578362503`*^9, 3.7432242109075437`*^9}, {
   3.7432242541664195`*^9, 3.7432243024017043`*^9}, 3.7432244477627597`*^9, 
   3.7432245444517293`*^9},ExpressionUUID->"ce45070d-762f-4d7e-9baf-\
51f5f48f90d2"],

Cell[BoxData["40.48665179235445`"], "Output",
 CellChangeTimes->{{3.7432241578362503`*^9, 3.7432242109075437`*^9}, {
   3.7432242541664195`*^9, 3.7432243024017043`*^9}, 3.7432244477627597`*^9, 
   3.7432245444517293`*^9},ExpressionUUID->"7000ef5a-1133-4c86-a70a-\
b79368491130"],

Cell[BoxData[
 RowBox[{"40.34720015851244`", "\[VeryThinSpace]", "+", 
  RowBox[{"1.0259140916409693`", " ", "t"}]}]], "Output",
 CellChangeTimes->{{3.7432241578362503`*^9, 3.7432242109075437`*^9}, {
   3.7432242541664195`*^9, 3.7432243024017043`*^9}, 3.7432244477627597`*^9, 
   3.7432245444673295`*^9},ExpressionUUID->"ab7b10cc-eaea-49bb-a9ee-\
41b371b43d4f"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[1, 1, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJw1T00KgkAYHVq1CGrhoigII6QiRIzM0vIzO0FHCGrbFbyGXaMLzAHsAO1a
uQ7aR+Z7fjB8vHl/M+bpejw3lFL98vw35qCxX9EjL6eVEL8j7ERfqvkCp3vy
ShbV1Lgpt6ycZ6xx3wbOYl3l5h2pYqyYegP+j5A3BPlCvgt/T9g/AK8ijdwh
/Pct/Sb9O/aP6K/xmO8J6beYF5K3BDkB+yfkA+ZPmbehfsa8NfEc/yt8vtem
32efTf0K+alDvQd94VDvsd/lf5bkXfkB7oWOtw==
       "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[1, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwVkH0w1AkYx/dybaQuus1LCHlJq7X2x2/trmWf3b2W04pFRdM52UklF1Nd
XeaKpVRovaW7OHSVJCzr1ltG+8SVXtAlSrioREhX6G6ouO2PZ575zHy/z8zn
sY2MDdqxgEKh+Ovm817t0f1xfl6MENzpLV42rP3KrcJI8pnHE3tzBl5qZ1yO
26fPiZGSzDw4VPlS+5cjKTX7JMbE6vSK44EvtUdNcvNdZ8WIxj6Wt7OGtE/e
h/C2T+v4fuOMlPZCm6npOtT8SpeXFms2mw9qP7G6Jo890HHq25AuSZf2z5qH
VNsi3f3oMH2Lb2sFtxyn338dp+MARsOg5m9BjrzbeUqoyxek3rWrHBNI19Yl
jC4To83Hh4/XN08JoL9BxX4mQqiISgrTzghszJo+5KlEGKjvo5GvosA9a0XG
+M8ifNszLZ721wM1LWoue6MIM8suVWokVEjO3pAms9T1H6/iXkgwgMxPsqmo
CSEOfplfqFUsgd3u5hd2aYUYIVOfrz2wDBjTg3sVp4WY+cE3YiLYGBi/3zF5
Fy7E0ABeuGnncjB7XN1/aJ0Q6+8bjW+Jo8H9nm2jY7OAmd+7SxYuMoEbrWse
aNoAQ9+GZvglmUKRYOpRbh5gVUXkzstW5lB/aaCufQ8gJeYHRl7BSmjKbqu1
5AIObv4u6ZKXJZyWxn/csgiQI8srtnhkBayRLF6XWoAnpT219GBrsPZxrXf0
F6D7tSPOTj/ZQLLC6LXjP95Y2JExSeXawtHgfRXz2d54K/q2jeW/tiDz6L5K
ZXoju2D/WX7Lash7fzi88YEX2gRa65Um2UHjTeuNhTFeGHjOq84myB72MXzu
hRl4IUQndXZYOcD52Kq55nI+Xm1sHbrd5wDFLSv3bvXl47aLCd4dpY5gO3kr
p2jME1MMORnW0WvArX5a0qT0xLgPJj4ljk5glWnHNnD2xAuKXRLelBMcEZ3p
W9DBw40nr/HNq9dCDZXaRN/NQ5FDQryegg7y4oYQiiEPVaJvKrkiZ7jS9+aw
SsXF3hHmhsvzznDTzqEv1Y+LUjuly6r2dRAqKZikTXCQM/Ba/3k6A5rjTSTt
Jzi4l3Wdrt7mAi0S4zXh9hyMNKz9o9aJCZ4T/td/a/XAjh0qN/0RJqQWp2UZ
yD1QVJZ+pHqrKwRwDC3sF3pgr7y5n9roCmWRSwjTUjbKItJiD5qzYKDwq+Oc
9WwcL1l6eTyBBadqgpSLXpHYwjTqSRlgwSwScTuHSbwiqLvOesaC6LblQa1D
JCoDwov7n7NA+qJzxYlnJIbFlu8jhllgZBxcQO0j8Y3Kd+nT1yw4GxNcvrCD
RAsXhYicZcFFu5C7ehoSD6ybLH9BI4DGdC+XV+v6/HM5ShMCjvFoypYqEgVS
iOeaERAl65IlV5C4OEbpk2FBAD0h5MmCEhKLyujPeasJqOoNefVFHoltdLlp
NpMA22H3u9t/JVHNWzzHZxGQ/Y5WfuMsib/4qYdGCAL263fHKnJIjIyeV3ux
CWCzN/1HOU3iTGm+dJRPQImQfBKRRuLTBpHbGW8CzPxXNOIp3T/ujJoLgIBZ
effRxBSd/6jHyBkxAXtiayIGj5G4f+Zpu2A9Af3xuSJI1vkYpGjGJARIU360
P6/Q+Zgz8nN9CWjK2kSlJJJov7ZLAX4E/A8qzj8W
        "]]},
      Annotation[#, "Charting`Private`Tag$8618#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{-21.210937500000004`, 0},
  DisplayFunction->Identity,
  Frame->{{False, False}, {False, False}},
  FrameLabel->{{None, None}, {None, None}},
  FrameTicks->{{Automatic, Automatic}, {Automatic, Automatic}},
  GridLines->{None, None},
  GridLinesStyle->Directive[
    GrayLevel[0.5, 0.4]],
  ImagePadding->All,
  Method->{"CoordinatesToolOptions" -> {"DisplayFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& ), "CopiedValueFunction" -> ({
        (Identity[#]& )[
         Part[#, 1]], 
        (Identity[#]& )[
         Part[#, 2]]}& )}},
  PlotRange->{{-40., -21.5}, {0, 18.9}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.7432241578362503`*^9, 3.7432242109075437`*^9}, {
   3.7432242541664195`*^9, 3.7432243024017043`*^9}, 3.7432244477627597`*^9, 
   3.7432245444985294`*^9},ExpressionUUID->"d6c45da0-7b49-4955-930c-\
a81da0d10479"]
}, Open  ]]
},
WindowSize->{1024, 686},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
Magnification:>1.5 Inherited,
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 5868, 167, 914, "Input",ExpressionUUID->"3d1d1ffc-5200-43df-b62f-abc6f52a615f"],
Cell[6451, 191, 357, 7, 49, "Output",ExpressionUUID->"c7dee47d-2110-45da-8885-743c4a7c7f51"],
Cell[6811, 200, 3418, 73, 346, "Output",ExpressionUUID->"b41dc2f0-5471-4a55-8aee-644872f5f184"],
Cell[10232, 275, 354, 7, 49, "Output",ExpressionUUID->"2e3224a4-1076-408b-becd-ec03c7acc410"],
Cell[10589, 284, 358, 7, 49, "Output",ExpressionUUID->"af7ce392-d7e7-4ac3-af5d-b417b2ff16be"],
Cell[10950, 293, 3373, 73, 364, "Output",ExpressionUUID->"ce45070d-762f-4d7e-9baf-51f5f48f90d2"],
Cell[14326, 368, 278, 4, 105, "Output",ExpressionUUID->"7000ef5a-1133-4c86-a70a-b79368491130"],
Cell[14607, 374, 361, 6, 105, "Output",ExpressionUUID->"ab7b10cc-eaea-49bb-a9ee-41b371b43d4f"],
Cell[14971, 382, 3544, 75, 105, "Output",ExpressionUUID->"d6c45da0-7b49-4955-930c-a81da0d10479"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)