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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     54266,       1295]
NotebookOptionsPosition[     51206,       1249]
NotebookOutlinePosition[     51639,       1266]
CellTagsIndexPosition[     51596,       1263]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"(*", 
    RowBox[{"Exercise", " ", "01"}], "*)"}],
   FontSize->24], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{"Input", " ", "Part"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"tt", "=", 
     RowBox[{"Table", "[", 
      RowBox[{"i", ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1983", ",", "2009"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tmp", "=", 
     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[{"Calculation", " ", "Part"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "1"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"tttmp", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"tt", ",", "tmp"}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"ttco2", "=", 
     RowBox[{"Transpose", "[", 
      RowBox[{"{", 
       RowBox[{"tt", ",", "co2"}], "}"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "2"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gtttmp", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"tttmp", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Red"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<Time(year)\>\"", ",", "\"\<Average Temperature\>\""}], 
         "}"}]}], ",", 
       RowBox[{
       "PlotLabel", "\[Rule]", "\"\<Average Temperature vs Time\>\""}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "3"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"gttco2", "=", 
     RowBox[{"ListPlot", "[", 
      RowBox[{"ttco2", ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Green"}], ",", 
       RowBox[{"AxesLabel", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"\"\<Time(year)\>\"", ",", "\"\<CO2 Percentage\>\""}], 
         "}"}]}], ",", 
       RowBox[{"PlotLabel", "\[Rule]", "\"\<CO2 Percentage vs Time\>\""}]}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "4"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Show", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"gtttmp", ",", "gttco2"}], "}"}], ",", 
      RowBox[{"PlotRange", "->", "All"}]}], "]"}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "5"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f1tttmp", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{"tttmp", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "1"}], "}"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g1tttmp", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"f1tttmp", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"tt", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Last", "[", "tt", "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Blue"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "6"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f1ttco2", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{"ttco2", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", "1"}], "}"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g1ttco2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"f1ttco2", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"tt", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Last", "[", "tt", "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Purple"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "7"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f2tttmp", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{"tttmp", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"t", "^", "3"}], ",", 
         RowBox[{"t", "^", "2"}], ",", "t", ",", "1"}], "}"}], ",", "t"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g2tttmp", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"f2tttmp", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"tt", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Last", "[", "tt", "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Yellow"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "8"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f2ttco2", "=", 
     RowBox[{"Fit", "[", 
      RowBox[{"ttco2", ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"t", "^", "3"}], ",", 
         RowBox[{"t", "^", "2"}], ",", "t", ",", "1"}], "}"}], ",", "t"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g2ttco2", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{"f2ttco2", ",", 
       RowBox[{"{", 
        RowBox[{"t", ",", 
         RowBox[{"tt", "[", 
          RowBox[{"[", "1", "]"}], "]"}], ",", 
         RowBox[{"Last", "[", "tt", "]"}]}], "}"}], ",", 
       RowBox[{"PlotStyle", "\[Rule]", "Pink"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "9"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol1", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"f1tttmp", "\[Equal]", "0"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"val1", "=", 
     RowBox[{"t", "/.", 
      RowBox[{"sol1", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol2", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"f2tttmp", "\[Equal]", "0"}], ",", "t"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"val2", "=", 
     RowBox[{"t", "/.", 
      RowBox[{"sol2", "[", 
       RowBox[{"[", "3", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Part", " ", "10"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f1ttco2", "/.", 
     RowBox[{"t", "\[Rule]", "val1"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"f2ttco2", "/.", 
     RowBox[{"t", "\[Rule]", "val2"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{"Output", " ", "Part"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (1)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", "tttmp", "\[IndentingNewLine]", "ttco2", 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (2)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", "gtttmp", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (3)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", "gttco2", "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (4)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"gtttmp", ",", "gttco2"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", "All"}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (5)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", "f1tttmp", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{"gtttmp", ",", "g1tttmp"}], "}"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (6)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", "f1ttco2", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{"gttco2", ",", "g1ttco2"}], "}"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (7)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", "f2tttmp", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{"gtttmp", ",", "g2tttmp"}], "}"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (8)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", "f2ttco2", "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"{", 
     RowBox[{"gttco2", ",", "g2ttco2"}], "}"}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (9)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<The year in which the melting process of ice begins in the arctic \
regions according to the linear model is \>\"", ",", "val1"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<The year in which the melting process of ice begins in the arctic \
regions according to the cubic model is \>\"", ",", "val2"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<Exercise 1-part (10)\>\"", ",", "Bold"}], "]"}], "]"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<The co2 percentage when the melting process of ice begins in the \
arctic regions according to the linear model is \>\"", ",", 
     RowBox[{"f1ttco2", "/.", 
      RowBox[{"t", "\[Rule]", "val1"}]}]}], "]"}], "\[IndentingNewLine]", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<The co2 percentage when the melting process of ice begins in the \
arctic regions according to the cubic model is \>\"", ",", 
     RowBox[{"f2ttco2", "/.", 
      RowBox[{"t", "\[Rule]", "val2"}]}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.963880509978507*^9, 3.9638805462152567`*^9}, {
  3.9638806167163076`*^9, 3.9638806590856895`*^9}, {3.9638806901721325`*^9, 
  3.963880976306084*^9}, {3.963881008251361*^9, 3.9638812582143493`*^9}, {
  3.9638813031178885`*^9, 3.963881375166238*^9}, {3.963881405992922*^9, 
  3.9638815048188777`*^9}, {3.9638815434531174`*^9, 3.96388189826536*^9}, {
  3.963881945625211*^9, 3.963881964581629*^9}, {3.963882062739179*^9, 
  3.9638820688913507`*^9}, {3.9639560265080056`*^9, 3.9639561250309505`*^9}, {
  3.9639561589052286`*^9, 3.9639567121674943`*^9}, {3.9639592340112095`*^9, 
  3.9639592548433247`*^9}},
 CellLabel->
  "In[1476]:=",ExpressionUUID->"f07d4fe4-0be3-46d3-9a06-0fdad8b2d836"],

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (1)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.963974380058593*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"01c480f3-a219-43e3-bc56-2598ec0388c3"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1983", ",", 
     RowBox[{"-", "40.`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1984", ",", 
     RowBox[{"-", "38.1`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1985", ",", 
     RowBox[{"-", "38.`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1986", ",", 
     RowBox[{"-", "37.`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1987", ",", 
     RowBox[{"-", "36.4`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1988", ",", 
     RowBox[{"-", "35.7`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1989", ",", 
     RowBox[{"-", "35.2`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1990", ",", 
     RowBox[{"-", "34.3`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1991", ",", 
     RowBox[{"-", "33.9`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1992", ",", 
     RowBox[{"-", "33.`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1993", ",", 
     RowBox[{"-", "32.2`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1994", ",", 
     RowBox[{"-", "31.`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1995", ",", 
     RowBox[{"-", "29.7`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1996", ",", 
     RowBox[{"-", "30.5`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1997", ",", 
     RowBox[{"-", "30.1`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1998", ",", 
     RowBox[{"-", "28.6`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1999", ",", 
     RowBox[{"-", "28.`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2000", ",", 
     RowBox[{"-", "27.8`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2001", ",", 
     RowBox[{"-", "27.`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2002", ",", 
     RowBox[{"-", "26.1`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2003", ",", 
     RowBox[{"-", "25.6`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2004", ",", 
     RowBox[{"-", "24.9`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2005", ",", 
     RowBox[{"-", "24.`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2006", ",", 
     RowBox[{"-", "23.6`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2007", ",", 
     RowBox[{"-", "22.9`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2008", ",", 
     RowBox[{"-", "22.`"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2009", ",", 
     RowBox[{"-", "21.5`"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.9639743800746183`*^9},
 CellLabel->
  "Out[1499]=",ExpressionUUID->"598a5a96-b085-4adc-8f58-4771685cc335"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1983", ",", "0.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1984", ",", "1.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1985", ",", "1.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1986", ",", "2.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1987", ",", "3.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1988", ",", "3.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1989", ",", "4.2`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1990", ",", "5.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1991", ",", "5.2`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1992", ",", "6.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1993", ",", "7.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1994", ",", "7.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1995", ",", "8.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1996", ",", "9.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1997", ",", "10.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1998", ",", "11.3`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1999", ",", "11.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2000", ",", "12.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2001", ",", "12.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2002", ",", "13.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2003", ",", "14.1`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2004", ",", "15.2`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2005", ",", "15.3`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2006", ",", "16.5`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2007", ",", "16.9`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2008", ",", "18.`"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2009", ",", "18.9`"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.9639743800746183`*^9},
 CellLabel->
  "Out[1500]=",ExpressionUUID->"0a6e8a9f-d41e-4be8-8498-a6b8f4cbc973"],

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (2)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743800746183`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"bede3810-93f6-49b2-9e6e-dcdc51db2361"],

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=
      "]]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time(year)\"", TraditionalForm], 
    FormBox["\"Average Temperature\"", TraditionalForm]},
  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]]}& )}},
  PlotLabel->FormBox["\"Average Temperature vs Time\"", TraditionalForm],
  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.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.963974380090499*^9},
 CellLabel->
  "Out[1502]=",ExpressionUUID->"e034c5b2-4987-4d58-b84c-fbc3b0ddf621"],

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (3)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.963974380094768*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"8eda3aa9-bbe3-4950-8668-3b377a4e3f4a"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0, 1, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
     1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQDQZ/5jlAGA/sIfR8KP8DhM8y3yENDP5B+BwweQYI
zQPjc0BogfkOxmDAD+GLzHc4ewYEBCB8CZh6EQgtA5OH8hVg8hIQWgVmvwyE
rzHfYdZMEJCH8HVg+hUhfAOY/UoQvgmMrwLhW8D0q0H4NjB5KN8BZr8GhHaB
ma8J4XvA1GtB+D4wvg6EHwBzrx6EHwKzD8qPgJrfYAChY6Dqn0H5CTD7jSB0
CkzeyAEAN1dejQ==
      "]]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time(year)\"", TraditionalForm], 
    FormBox["\"CO2 Percentage\"", TraditionalForm]},
  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]]}& )}},
  PlotLabel->FormBox["\"CO2 Percentage vs Time\"", TraditionalForm],
  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.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.9639743801008844`*^9},
 CellLabel->
  "Out[1504]=",ExpressionUUID->"46a0f0be-c578-40c5-87fb-5b4c79c1f8ac"],

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (4)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801008844`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"b1345997-83c2-4d10-a8c4-6978ff47760c"],

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=
       "]]}, {}}, {}, {}, {}, {}}, {{}, {{}, 
     {RGBColor[0, 1, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQDQZ/5jlAGA/sIfR8KP8DhM8y3yENDP5B+BwweQYI
zQPjc0BogfkOxmDAD+GLzHc4ewYEBCB8CZh6EQgtA5OH8hVg8hIQWgVmvwyE
rzHfYdZMEJCH8HVg+hUhfAOY/UoQvgmMrwLhW8D0q0H4NjB5KN8BZr8GhHaB
ma8J4XvA1GtB+D4wvg6EHwBzrx6EHwKzD8qPgJrfYAChY6Dqn0H5CTD7jSB0
CkzeyAEAN1dejQ==
       "]]}, {}}, {}, {}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time(year)\"", TraditionalForm], 
    FormBox["\"Average Temperature\"", TraditionalForm]},
  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]]}& )}},
  PlotLabel->FormBox["\"Average Temperature vs Time\"", TraditionalForm],
  PlotRange->All,
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.9639743801052327`*^9},
 CellLabel->
  "Out[1506]=",ExpressionUUID->"18ae062a-1a0d-4fab-a3ab-c0503b78a0ec"],

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (5)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801082397`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"be3ab6d8-30c5-4d84-8626-b845279875c9"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1395.658567358579`"}], "+", 
  RowBox[{"0.6840659340659397`", " ", "t"}]}]], "Output",
 CellChangeTimes->{{3.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.963974380110243*^9},
 CellLabel->
  "Out[1508]=",ExpressionUUID->"bd8cca68-fc34-4175-bdc8-3978210d3672"],

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, 0, 1], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwV0mtMUwcUwPE7KaQgU3QiorgiIjhFnrsttUBvW4W6tdMUNkBEeRSBqauA
1geCDaAo6kB0YBRoHQ5EcaAjMBqUAyqO1ckqoGgrllh1hpcIwazA2Lkfmptf
zj3/0yZdkaCQJc0hCEKKH/r57NJKgpiuoFQPb78ZOyeCgvs5a5ho17DQ1Xx0
0OhAhANa0/Yo9XSxCCqEmhpXtKnx5ZDHWRHI37mEC9DU5U/GY34UwQh7cVUO
mlBunL1/QgSMx0yJ9Qz2WX85XcwSgQ9zpNTuP3S6USxMFsGD2lfuAkJNUUOm
PX+zRZD6Z7aHbI6aMtVk7j5vK4JuTcmDKIaaijOkFfNeCCG77lnsKRs1pTFJ
M11vCOFLTnvKBaaagi8gmKcSgtfH3hS9nZpShS65e26zEAYVO5nEp9h/qlN0
sYTQEF/mYjtfTRG1jpPUuABaT82sClmA/YiN/PftAuj1ZlyRfoZ9am5C708C
uFWQ3yZzxL7Gq7Y8VQD6z9k9uU447wloruQKwLK2IKbQGe9J9OqX9gJISrPt
61iG/QsRm6KNFJQqrCfGl2M/MmBpYy0FPW+q8qZY2Nt69Z5YRUF4SYadjxva
z8rfeQsFxjuvGcHu2JdMHGStpKCalTuh9MC+ssT6gZkPXG55btVqfJ83lex4
jA9PdNvy69fg/MTprK61fGgoCVO98cL7We+WWOtCoPz50+FJb/z9/6YnV+0N
AelTs2XaFx37G2PekhDg2y+f8Q7A/ZRWz7GmYOBpLRk8EvtTH2f424PhkMbK
lMHBOXs62m4mCI7yTw5e5uI8qolxqTwICiMbdl3j4T0rdULphiAYqLYb6A/G
eYQsdL6ZB8FpNrphPt7z9n/x4SQP4sezIz4IsDf6R3uZHw86brh1u23AedRa
73b9emAP7OpYF4r7Yq0k/OB6eCsx/SoXY39g0dgOp/VQ6WeZq/wK50SZuK+F
Cx5dRcwsCfaYz0cWy7kweEVmqfsG3fRqqd6KC9rx5rjbW7A/4myZrAkE3WFJ
y6QM9x8u23FBHAhXtDFNq75FF/csJN5xID/DwdMnEvdNzYe6CzlQK39/Sh6N
897vd7r5cMDwaH/Svhj8PuFimxc9bHg8dqD/UCz6d+NE7BE22El/kVzfgffu
BaVudWGDdMVBn6Z47EV1FrW3kxB1q1kGaGiozPVvI0EumtrfSdshW/lzKwmH
k7JbDGii039bTgsJV2vyNhEJuM8t8xQ2ksDwP5u4CU0tVdxpqyFBK7xWaqBt
XDQERSR0dA9qzbQDR/t9C0nQy9f1D9P75zv1mjMk/HO83p1IpP+v2U2qAhIc
dY033dHU7bc5VB4Je8Pv6vbQrtA6wwESjpgZo0ralvP2vkoS8veHLlTR/k4x
q95HQkVpZ1Qx3Zvn/vpoGgkPDV2vG9HE0TP1/F0k9O1eYAu0DcmVdakkvJqR
eXXS+xxhCSuFBAvrSbqB9uhk5qycBOubTiVmuve1/gdFIgkOwujmYTRUX49/
GU+CS/dF4yRtq+MRm+NI8JQbZ2fpflxcWOt2Ev4HI49Y2w==
        "]]},
      Annotation[#, "Charting`Private`Tag$31061#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time(year)\"", TraditionalForm], 
    FormBox["\"Average Temperature\"", TraditionalForm]},
  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]]}& )}},
  PlotLabel->FormBox["\"Average Temperature vs Time\"", TraditionalForm],
  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.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.9639743801122475`*^9},
 CellLabel->
  "Out[1509]=",ExpressionUUID->"a92618cf-b363-4556-b4a5-15d7bc961b7a"],

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (6)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801162558`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"821aff86-9f88-4931-b9a4-c4ce63275cf0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1397.7703296703435`"}], "+", 
  RowBox[{"0.7049450549450618`", " ", "t"}]}]], "Output",
 CellChangeTimes->{{3.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.963974380118261*^9},
 CellLabel->
  "Out[1511]=",ExpressionUUID->"31f9760b-457b-4f6e-8058-a51194d81b2b"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0, 1, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQDQZ/5jlAGA/sIfR8KP8DhM8y3yENDP5B+BwweQYI
zQPjc0BogfkOxmDAD+GLzHc4ewYEBCB8CZh6EQgtA5OH8hVg8hIQWgVmvwyE
rzHfYdZMEJCH8HVg+hUhfAOY/UoQvgmMrwLhW8D0q0H4NjB5KN8BZr8GhHaB
ma8J4XvA1GtB+D4wvg6EHwBzrx6EHwKzD8qPgJrfYAChY6Dqn0H5CTD7jSB0
CkzeyAEAN1dejQ==
       "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[0.5, 0, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwd0XlQU1cUwOFXDDRgLZtCGVlDWBQMyRWwFOk7ikXBpNJgKw4uoInKVsQY
VFoRgTEKtlinAkNlqUUUlSKLEFCRUMRBHCmraDKUXRAQFESNIj3PP+7c+eZ3
77lv5tntihFLdSiKEuFi9sd/2FPU+1ygQgsWW+xU0al3k5azGVO6AqF5Pb16
sm+zEeN8qehYSz2duza/yPajHU8M0Q20ZNQyaA3j3suvS23v0c89zQqTPs4r
fhLQ/4BmtbGFunNofkhgLemg3djPMw0+oG0lZlM3/qPvXRvgrqHy0F/WGv0w
ToffT3AU66A3vP+38sM03Z6fcS+YheZmx3NuvKUTSh5vT9NDn6nMPv50nnZf
Vb8vi402ywr/pFsHXF937ms1QPMWq7y1ujAWs4dNLWJ6TEXHIn2oCDtvqW+I
/v1NecL4QriTNufwtTF6m+pHjr4hdPJYBSJT9A5NduQbIyhLVajES9CH1gtf
SUyg1dqzI9kc7S5W/zRlClqX1JB0C7TPwanUsCUgjdXvblyKHvUYyHhhBpkx
ujPTVuj5YXtx/BfQMVyY8s4GHVry7NyIBQRlyAzcOOg95uld8qWgqR1i+XDR
yozqvBFLuGSTPBPniC6+oZLGW4OXV05yoTNarz8tWscWupq3Ka4vR6tnjkTV
2EJFxvrEYVd00qOu0eN2kPPk0cQsLw8SW+7GuazmgOjRoPY9H3vr1dsNLzlA
f2Y1x1uJvSBMplHag3eNVubtgd3aPkoZy4Uj+Qt6Zauwh1e0m3zlAMfoU2N/
ejH26W/44ADpWyoir3ijDdtWelc6Qt8lg74eH7TCc8btqBP4xOo1T9Doi4Wv
RzydIWw6YfPLNTj/8OcX3o47Q2Mxp52zDrul382TZcvAsy+ycYUf9r2nzDUR
y+GpsPdvyQZ08vn+YuICfwm0C+MC0N/cnPKdcAHHljPso0L0rdaLggJXGCsQ
a0u+xXksZVNOxAqoma4OvR2IfbqI/9CeB83xwluzYuzlkXpHx3lQUBNS5fA9
9mUOycmlbqCQGTm5bUFz5HaX3PlwTTKVJtmaB3VZd5Qbs/igfiiXHgzJA+hP
jxW/4kPbi0M9R7Yz/0MzlxIoAAPRReHVnXje5IwqrlwAIrvDblVh+N7LpsL7
hgSCy6rFdWjq9IPRPcYEJL7v5E1Md2hxXWBKIF6acEuNhuCOMm8zApeLUvyp
XejantprlgRY5Lfd/mgqdbrr12UEatZeyVSjE+2sPg3yJdDYPlYzyPSbNgGT
6wi0Slb0TDB9M+eXND8CIyeuc6ndOE/hZNrgT2BJc2UpF01NCGw8AgnsD/qn
ORpdp/RbZb6dwM+DrMk45rzYP758BwGF3M8kkeljG29vCiWQm9kUfJax9Xe+
J3cTeKBuGapknBKy6W04ge4oY/065r71jrPnIgkMzIldm9CJVaGdgmgCWpuu
A2rGz6QhEfsJ6JaaZwwy35OyL1fvAAGjtVurJ5j7VpF9F2QELNuzNbNMr4rm
0nICThLN/DzTA/fvVccR+B+oziDh
        "]]},
      Annotation[#, "Charting`Private`Tag$31105#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time(year)\"", TraditionalForm], 
    FormBox["\"CO2 Percentage\"", TraditionalForm]},
  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]]}& )}},
  PlotLabel->FormBox["\"CO2 Percentage vs Time\"", TraditionalForm],
  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.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.963974380120265*^9},
 CellLabel->
  "Out[1512]=",ExpressionUUID->"69f0f75c-dc1d-4996-a0e9-d93e5f5e9076"],

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (7)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801220093`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"fd051eed-5b12-488c-8886-edddcaa13624"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1.723178690880232`*^6"}], "+", 
  RowBox[{"2584.40224173746`", " ", "t"}], "-", 
  RowBox[{"1.2923659442903868`", " ", 
   SuperscriptBox["t", "2"]}], "+", 
  RowBox[{"0.00021547630890422594`", " ", 
   SuperscriptBox["t", "3"]}]}]], "Output",
 CellChangeTimes->{{3.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.9639743801220093`*^9},
 CellLabel->
  "Out[1514]=",ExpressionUUID->"8d365586-2306-4e80-aab2-3d545219066d"],

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[1, 1, 0], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwl0mtM02cUBvB/sBColsEmc04EBQSjXBR8S0spvRkcriWmwACZm0BhqBDG
1UG2ykTpgC1eUxbFrjosIF6Ka2CtOM5Qy6BG5H4pIzARRpDCAFmsgPN99+Hk
5Jfn+XA+nK1JmdIUG4qiJG8H78HLnhS1rOJTlA8lN4qg7NHJHfbEntc1j0QQ
OjsW7UQcFdPxUAQqobp2C3Fo/5YHIpBNuUYJ/u8nPmwWgYX5vuYkscP3DL0I
aF32YtsV7L17aupEEGBvqaCvYteeWD0rgtabz7wE1E9vPfBXS6wIjrTLvaU2
2Hm2NE8RdKuVrXE07NKXllkhyO8MHiq3w5aEBemFsCe4Je1He+ze2nslQvD9
tzetk459bvj2ASFMZ6baUwySz3NdhaBLrHR1eAd7rc48LYDm8pVtYc7Y6xrm
GwXQ60+rkryHPeSyrBDA3TLF71IXbL9bafEC6HRj9hRvwI5XxfkIwLqzLOHM
Ruwvahiv+JCS5TBg3ITt7BnZyoeKTNvFhc3YF06PKvnQM6E59dod2+jueJQP
UcoceoAH9nnndjYfhn97TuN6kf4gncGHavfixXxv7A+9ftXzgM2+UqzZjt1+
pC6BB32mTxXaHdjXWEk0HuiU+4omfLGXqnZpwuDKUP/Mkj/2pabKyDCQ9I9b
l3dhd7UxXnGBt27zin8Qtu7g6UoucAzWHA7CXn2RHM6FAvWa0ZxgbG1ZyFQo
nOCVTl9lk/6FyR9C4Uys7tgNDrb/tcesUBirpo+NcLEdD5YOc4CbZWea4WE/
YchKOJC4II+eF2DvXxrdzQHjLY9uj73Y6y2MvhBgjh0z+oVjT2hZRSEwKR69
LfsIu+y7eY8Q+Hm3dW3+fuyiFaWJDd4dZ+2/EWPn1lfnsWG6Smq9E4lt2en8
ARsMC/rD9w9gq5OkwAJTobhpSYqdGtN8mAVVhoTGbTHkno2f2bBAkePkExCL
ffTj9tpguCmbK5fFY6fDpohgMD/JS8lNwA7cF2RhQtc/x0cKDmEbWjIuMoEu
uS6u+xybr+cHMkGy9auAxkTswqg/exHE3dVLgbiFxutBIBO9zmsjdtOouxAU
psibzMTe+uQOBDW1pyKoJPKP7lN/IKAFnkuOIM5+MXcPgUF4o8JM/DR18SoC
Y/e0YZzYbn20GkGnzG9khrhH+4sKwd8lWi8qGTtMn30ZgYupod6L+Clt7iKC
L6MemDKIC4snFQi+HqfN5hM3bA8vQaDIC3+3iPiT+1WnEKgq2uLOE6t1id8i
eGzueN5APD80VIhgIN3ZAYgNVlYBgmcrUt824haHiuMIrO592WZi+UtpLgLb
+g3KceLALm02AidhvH6G2FHlmIXAtfvS8BKxW3x6JgIf2fCbN8TiNe0ZCP4D
DisT7g==
        "]]},
      Annotation[#, "Charting`Private`Tag$31149#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time(year)\"", TraditionalForm], 
    FormBox["\"Average Temperature\"", TraditionalForm]},
  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]]}& )}},
  PlotLabel->FormBox["\"Average Temperature vs Time\"", TraditionalForm],
  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.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.9639743801220093`*^9},
 CellLabel->
  "Out[1515]=",ExpressionUUID->"837cdd77-1a98-4b70-b1c3-39dd8493ff98"],

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (8)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801220093`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"6ef99bcb-bfc1-472b-ac51-bafec95577b4"],

Cell[BoxData[
 RowBox[{"475330.9592246817`", "\[VeryThinSpace]", "-", 
  RowBox[{"711.8230740046465`", " ", "t"}], "+", 
  RowBox[{"0.3549715848004203`", " ", 
   SuperscriptBox["t", "2"]}], "-", 
  RowBox[{"0.000058944887308933404`", " ", 
   SuperscriptBox["t", "3"]}]}]], "Output",
 CellChangeTimes->{{3.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.9639743801220093`*^9},
 CellLabel->
  "Out[1517]=",ExpressionUUID->"2588654d-db92-4513-bb9b-a259b021912a"],

Cell[BoxData[
 GraphicsBox[{{{}, {{}, 
     {RGBColor[0, 1, 0], PointSize[0.012833333333333334`], AbsoluteThickness[
      1.6], PointBox[CompressedData["
1:eJxTTMoPSmViYGCQBmIQDQZ/5jlAGA/sIfR8KP8DhM8y3yENDP5B+BwweQYI
zQPjc0BogfkOxmDAD+GLzHc4ewYEBCB8CZh6EQgtA5OH8hVg8hIQWgVmvwyE
rzHfYdZMEJCH8HVg+hUhfAOY/UoQvgmMrwLhW8D0q0H4NjB5KN8BZr8GhHaB
ma8J4XvA1GtB+D4wvg6EHwBzrx6EHwKzD8qPgJrfYAChY6Dqn0H5CTD7jSB0
CkzeyAEAN1dejQ==
       "]]}, {}}, {}, {}, {}, {}}, {{{}, {}, 
     TagBox[
      {RGBColor[1, 0.5, 0.5], AbsoluteThickness[1.6], Opacity[1.], 
       LineBox[CompressedData["
1:eJwl0Hs0lHkcx/GnGnaMtlzWpV1yv4Qx/HJpsnq+1Coa1g6FtU5otPbYoh2X
ZSMHNeGctbUtncqtRZtLLk0cNq3NWUKbXHI/MkVpZ6e0HHUGWd/HH8/5ndd5
f35/PD+TyFhh1EaKonzXPjxHr5hR1HIRUJRxQ2veKJ3zV4YNmzG1a0E2Sn/6
Whaosd45XKcxusiz5Ibxer9QPjJGi14aBHis27bBZIJ+5aJbkbG+P8yXTtKs
frZAZQUdZ3BaIaN57FcFnPfoqVtVei/ozupn5h5U8Zrvn5DbvaG/6U6zFG5E
77o9lLRID5Tkdwaz0FT073VLdFrtaFiuKnrO36KBAifXe9GX2GjBy4wjm8Du
7ePoPg761P1HPqogjz3Gpj5ET59btlMDacRVA7Wt6IvyeJk6/JG7YrFHEx0/
kTa4BR7bs8p8tdE3Uy8+0ICGHMmfQh303adVO7Sgb7vLYKYe+vDsFxXaoLTN
Cc3bhs7PcVHXgaiTaiMdn6C7257m6UJBrMrCvCF6+evdW/Vh8HlF1pIR+qPU
zxK3QUC+mMMzRT8M+HzlY5i4O8NyN0cXidpjDOC6UeZCoiV6i1uk0hD4/MLM
Cmv02EE60wiGer6S1Nmgb20+k2wM0vz96c/tmP/z+dnDBArHhhWL9ujSrLfL
JuA7PK1cdkCzWPzbpkBvNlyx34k2/qc+1QzcWpRiN2e0uPwg3xySSzZNiV3R
QWesVSzgNJ0tL+WjIxof/W0BeUHSmEo3dA0/OtsSZNc5skl35j2LvA9ZgftJ
1R4FjW5fWNW2hoj5tMD/PNChnYJea+ioMR0w3YemK2cu7wAXWUwH1wutJbUJ
sYEXgqmbogPo+rBWK1v41VGpnuiDtkqfmbUFy96f2KkC9Luk1Ao7kJcJlbV+
6Cd+YfFcaJlvDm/1R/ttqHeyh54UwZ1FIVpSvF+FB2UtoU0Wh9AflDr380Ai
1rDiBa05nbOh9YADVIvmckUh6HvFyXUOMP4wISo+FG0YFKLpCP1vkiaTw/C+
wbnAOEfg+JYLqo5gP6YfMewIvibf85oi0I5GZ10JBDc0C9sYK8J38gmI9i4l
dKEp62tTuwmkRKXdGWe6lpnbHgK/3cjypiLRpdvn9hFgkfNHvRk3LYUICbR4
VhaMMyZe3OMEOgbkLdOMrySMnSDQJ+JOKhiHl0niCMyerTOnjqLfrcrEBHR6
GuvN0ZRXbX4KgbiA9p7jTA9TrEoInJpmvU5kOqVVk01AkuCllc70f52/zCVQ
VNAVfIFx0Q/SHwk8GO+daWT2/u+jfyEw8q2mWhtjS0PdAgLPVoR2Xcx+j1v7
JQJKo6HvxhlzEwyvElCp18ufZvYq57sLCWh4hjQrmK5fnVRMwGDg8sQi4+gO
81ICVqKJ1VXGC0/6rhH4H+1i8L8=
        "]]},
      Annotation[#, "Charting`Private`Tag$31193#1"]& ]}, {}, {}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{
    FormBox["\"Time(year)\"", TraditionalForm], 
    FormBox["\"CO2 Percentage\"", TraditionalForm]},
  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]]}& )}},
  PlotLabel->FormBox["\"CO2 Percentage vs Time\"", TraditionalForm],
  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.9638808889938993`*^9, 3.963880906176231*^9}, 
   3.96388097873739*^9, {3.963881178902445*^9, 3.963881188748022*^9}, 
   3.9638812589107227`*^9, 3.9638813770874033`*^9, 3.963881505160576*^9, 
   3.9638815659942102`*^9, {3.9638816982172117`*^9, 3.963881722288004*^9}, 
   3.963881899491147*^9, 3.9638819658935084`*^9, 3.963882069853284*^9, 
   3.963956268335799*^9, 3.9639564084390574`*^9, 3.963956715183878*^9, 
   3.963959267607049*^9, 3.9639743801376686`*^9},
 CellLabel->
  "Out[1518]=",ExpressionUUID->"030d543a-2a7a-4c1b-bc58-57c488475c30"],

Cell[CellGroupData[{

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (9)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801376686`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"d4cc394e-62ff-4ecd-bf7d-8e65d9cd1fcc"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"The year in which the melting process of ice begins in the \
arctic regions according to the linear model is \"\>", "\[InvisibleSpace]", 
   "2040.239833407705`"}],
  SequenceForm[
  "The year in which the melting process of ice begins in the arctic regions \
according to the linear model is ", 2040.239833407705],
  Editable->False]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801376686`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"246a8bf6-2982-4063-9927-36b3ab580229"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"The year in which the melting process of ice begins in the \
arctic regions according to the cubic model is \"\>", "\[InvisibleSpace]", 
   "2031.2608482706257`"}],
  SequenceForm[
  "The year in which the melting process of ice begins in the arctic regions \
according to the cubic model is ", 2031.2608482706257`],
  Editable->False]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801376686`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"d7af2788-3214-4970-b4a2-29394dca68ad"],

Cell[BoxData[
 StyleBox["\<\"Exercise 1-part (10)\"\>",
  StripOnInput->False,
  FontWeight->Bold]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801376686`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"71a2896d-3643-4c7d-bf88-13543b3b0c4a"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"The co2 percentage when the melting process of ice begins in \
the arctic regions according to the linear model is \"\>", 
   "\[InvisibleSpace]", "40.48665179235468`"}],
  SequenceForm[
  "The co2 percentage when the melting process of ice begins in the arctic \
regions according to the linear model is ", 40.48665179235468],
  Editable->False]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801376686`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"63c68076-0dae-4f82-9f51-719ecf280ce5"],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"The co2 percentage when the melting process of ice begins in \
the arctic regions according to the cubic model is \"\>", "\[InvisibleSpace]",
    "34.17599607782904`"}],
  SequenceForm[
  "The co2 percentage when the melting process of ice begins in the arctic \
regions according to the cubic model is ", 34.17599607782904],
  Editable->False]], "Print",
 CellChangeTimes->{{3.963881698362643*^9, 3.963881722407873*^9}, 
   3.963881899618369*^9, 3.9638819660367956`*^9, 3.9638820700120907`*^9, 
   3.963956268272153*^9, 3.9639564084251757`*^9, 3.963956715183878*^9, 
   3.963959267601226*^9, 3.9639743801376686`*^9},
 CellLabel->
  "During evaluation of \
In[1476]:=",ExpressionUUID->"30d4a54b-1dbc-4563-a3dd-0d7d2254d027"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{951., 469.75},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.4 Inherited,
FrontEndVersion->"13.2 for Microsoft Windows (64-bit) (January 30, 2023)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"b8796095-d0d3-4021-b090-7c258bbdd537"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 12104, 317, 2103, "Input",ExpressionUUID->"f07d4fe4-0be3-46d3-9a06-0fdad8b2d836"],
Cell[12687, 341, 475, 10, 30, "Print",ExpressionUUID->"01c480f3-a219-43e3-bc56-2598ec0388c3"],
Cell[13165, 353, 2960, 92, 179, "Output",ExpressionUUID->"598a5a96-b085-4adc-8f58-4771685cc335"],
Cell[16128, 447, 2381, 65, 152, "Output",ExpressionUUID->"0a6e8a9f-d41e-4be8-8498-a6b8f4cbc973"],
Cell[18512, 514, 477, 10, 30, "Print",ExpressionUUID->"bede3810-93f6-49b2-9e6e-dcdc51db2361"],
Cell[18992, 526, 2145, 50, 291, "Output",ExpressionUUID->"e034c5b2-4987-4d58-b84c-fbc3b0ddf621"],
Cell[21140, 578, 475, 10, 30, "Print",ExpressionUUID->"8eda3aa9-bbe3-4950-8668-3b377a4e3f4a"],
Cell[21618, 590, 2110, 50, 315, "Output",ExpressionUUID->"46a0f0be-c578-40c5-87fb-5b4c79c1f8ac"],
Cell[23731, 642, 477, 10, 30, "Print",ExpressionUUID->"b1345997-83c2-4d10-a8c4-6978ff47760c"],
Cell[24211, 654, 2549, 58, 294, "Output",ExpressionUUID->"18ae062a-1a0d-4fab-a3ab-c0503b78a0ec"],
Cell[26763, 714, 477, 10, 30, "Print",ExpressionUUID->"be3ab6d8-30c5-4d84-8626-b845279875c9"],
Cell[27243, 726, 691, 12, 45, "Output",ExpressionUUID->"bd8cca68-fc34-4175-bdc8-3978210d3672"],
Cell[27937, 740, 3928, 81, 291, "Output",ExpressionUUID->"a92618cf-b363-4556-b4a5-15d7bc961b7a"],
Cell[31868, 823, 477, 10, 30, "Print",ExpressionUUID->"821aff86-9f88-4931-b9a4-c4ce63275cf0"],
Cell[32348, 835, 692, 12, 45, "Output",ExpressionUUID->"31f9760b-457b-4f6e-8058-a51194d81b2b"],
Cell[33043, 849, 3873, 81, 315, "Output",ExpressionUUID->"69f0f75c-dc1d-4996-a0e9-d93e5f5e9076"],
Cell[36919, 932, 477, 10, 30, "Print",ExpressionUUID->"fd051eed-5b12-488c-8886-edddcaa13624"],
Cell[37399, 944, 850, 16, 46, "Output",ExpressionUUID->"8d365586-2306-4e80-aab2-3d545219066d"],
Cell[38252, 962, 3766, 79, 291, "Output",ExpressionUUID->"837cdd77-1a98-4b70-b1c3-39dd8493ff98"],
Cell[42021, 1043, 477, 10, 30, "Print",ExpressionUUID->"6ef99bcb-bfc1-472b-ac51-bafec95577b4"],
Cell[42501, 1055, 851, 15, 46, "Output",ExpressionUUID->"2588654d-db92-4513-bb9b-a259b021912a"],
Cell[43355, 1072, 3753, 79, 315, "Output",ExpressionUUID->"030d543a-2a7a-4c1b-bc58-57c488475c30"],
Cell[CellGroupData[{
Cell[47133, 1155, 477, 10, 30, "Print",ExpressionUUID->"d4cc394e-62ff-4ecd-bf7d-8e65d9cd1fcc"],
Cell[47613, 1167, 763, 15, 56, "Print",ExpressionUUID->"246a8bf6-2982-4063-9927-36b3ab580229"],
Cell[48379, 1184, 764, 15, 56, "Print",ExpressionUUID->"d7af2788-3214-4970-b4a2-29394dca68ad"],
Cell[49146, 1201, 478, 10, 30, "Print",ExpressionUUID->"71a2896d-3643-4c7d-bf88-13543b3b0c4a"],
Cell[49627, 1213, 775, 15, 56, "Print",ExpressionUUID->"63c68076-0dae-4f82-9f51-719ecf280ce5"],
Cell[50405, 1230, 773, 15, 56, "Print",ExpressionUUID->"30d4a54b-1dbc-4563-a3dd-0d7d2254d027"]
}, Open  ]]
}, Open  ]]
}
]
*)