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

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

(* CreatedBy='Mathematica 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      2744,         87]
NotebookOptionsPosition[      2376,         73]
NotebookOutlinePosition[      2791,         89]
CellTagsIndexPosition[      2748,         86]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"time", "=", 
   RowBox[{"Table", "[", 
    RowBox[{"i", ",", 
     RowBox[{"{", 
      RowBox[{"i", ",", "1983", ",", "2009"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"temp", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", "40"}], ",", 
     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"}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.944711706986984*^9, 
  3.9447117175235863`*^9}},ExpressionUUID->"1a65c58b-85b9-41a4-baa3-\
2519cc035deb"]
},
WindowSize->{603.6, 394.79999999999995`},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"12.1 for Microsoft Windows (64-bit) (March 18, 2020)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"220b5fbf-eecd-4bad-920d-2d988983c33f"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 1814, 51, 166, "Input",ExpressionUUID->"1a65c58b-85b9-41a4-baa3-2519cc035deb"]
}
]
*)

(* End of internal cache information *)