(* 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[ 5302, 164] NotebookOptionsPosition[ 5000, 151] NotebookOutlinePosition[ 5348, 166] CellTagsIndexPosition[ 5305, 163] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[BoxData[ RowBox[{ RowBox[{"data", "=", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"16.3", ",", "51.3"}], "}"}], ",", RowBox[{"{", RowBox[{"15.5", ",", "56.3"}], "}"}], ",", RowBox[{"{", RowBox[{"15.3", ",", "58.3"}], "}"}], ",", RowBox[{"{", RowBox[{"12.1", ",", "62.2"}], "}"}], ",", RowBox[{"{", RowBox[{"11.3", ",", "68."}], "}"}], ",", RowBox[{"{", RowBox[{"11.7", ",", "73.3"}], "}"}], ",", RowBox[{"{", RowBox[{"13.", ",", "77.6"}], "}"}], ",", RowBox[{"{", RowBox[{"6.7", ",", "84.9"}], "}"}], ",", RowBox[{"{", RowBox[{"10.", ",", "93.9"}], "}"}], ",", RowBox[{"{", RowBox[{"7.6", ",", "103."}], "}"}], ",", RowBox[{"{", RowBox[{"13.1", ",", "105.7"}], "}"}], ",", RowBox[{"{", RowBox[{"16.5", ",", "113."}], "}"}], ",", RowBox[{"{", RowBox[{"17.8", ",", "119.8"}], "}"}], ",", RowBox[{"{", RowBox[{"22.2", ",", "115.3"}], "}"}], ",", RowBox[{"{", RowBox[{"22.8", ",", "118.6"}], "}"}], ",", RowBox[{"{", RowBox[{"29.9", ",", "119.4"}], "}"}], ",", RowBox[{"{", RowBox[{"36.3", ",", "108.2"}], "}"}], ",", RowBox[{"{", RowBox[{"43.", ",", "100.5"}], "}"}], ",", RowBox[{"{", RowBox[{"45.3", ",", "87.7"}], "}"}], ",", RowBox[{"{", RowBox[{"51.5", ",", "75.9"}], "}"}], ",", RowBox[{"{", RowBox[{"45.4", ",", "71.5"}], "}"}], ",", RowBox[{"{", RowBox[{"41.4", ",", "63.4"}], "}"}], ",", RowBox[{"{", RowBox[{"37.1", ",", "58.8"}], "}"}], ",", RowBox[{"{", RowBox[{"31.1", ",", "54.5"}], "}"}], ",", RowBox[{"{", RowBox[{"24.6", ",", "51."}], "}"}], ",", RowBox[{"{", RowBox[{"19.3", ",", "50.6"}], "}"}], ",", RowBox[{"{", RowBox[{"19.2", ",", "52.9"}], "}"}], ",", RowBox[{"{", RowBox[{"20.1", ",", "54.4"}], "}"}], ",", RowBox[{"{", RowBox[{"13.8", ",", "59.1"}], "}"}], ",", RowBox[{"{", RowBox[{"11.6", ",", "62.8"}], "}"}], ",", RowBox[{"{", RowBox[{"13.4", ",", "65.5"}], "}"}], ",", RowBox[{"{", RowBox[{"12.5", ",", "69.1"}], "}"}], ",", RowBox[{"{", RowBox[{"10.8", ",", "78.9"}], "}"}], ",", RowBox[{"{", RowBox[{"9.9", ",", "85.9"}], "}"}], ",", RowBox[{"{", RowBox[{"13.6", ",", "91.1"}], "}"}], ",", RowBox[{"{", RowBox[{"10.9", ",", "100.1"}], "}"}], ",", RowBox[{"{", RowBox[{"17.8", ",", "106.5"}], "}"}], ",", RowBox[{"{", RowBox[{"14.8", ",", "112.6"}], "}"}], ",", RowBox[{"{", RowBox[{"17.3", ",", "118.1"}], "}"}], ",", RowBox[{"{", RowBox[{"23.3", ",", "120.7"}], "}"}], ",", RowBox[{"{", RowBox[{"26.9", ",", "119.6"}], "}"}], ",", RowBox[{"{", RowBox[{"32.8", ",", "114.5"}], "}"}], ",", RowBox[{"{", RowBox[{"40.4", ",", "107.7"}], "}"}], ",", RowBox[{"{", RowBox[{"44.5", ",", "93.3"}], "}"}], ",", RowBox[{"{", RowBox[{"48.", ",", "85.5"}], "}"}], ",", RowBox[{"{", RowBox[{"42.7", ",", "79.7"}], "}"}], ",", RowBox[{"{", RowBox[{"42.6", ",", "65.1"}], "}"}], ",", RowBox[{"{", RowBox[{"40.1", ",", "58.3"}], "}"}], ",", RowBox[{"{", RowBox[{"34.1", ",", "53.4"}], "}"}], ",", RowBox[{"{", RowBox[{"30.", ",", "53.3"}], "}"}], ",", RowBox[{"{", RowBox[{"24.3", ",", "50.8"}], "}"}], ",", RowBox[{"{", RowBox[{"21.1", ",", "54.4"}], "}"}], ",", RowBox[{"{", RowBox[{"16.8", ",", "53.7"}], "}"}], ",", RowBox[{"{", RowBox[{"16.7", ",", "59.5"}], "}"}], ",", RowBox[{"{", RowBox[{"13.7", ",", "60.2"}], "}"}], ",", RowBox[{"{", RowBox[{"13.3", ",", "65.6"}], "}"}], ",", RowBox[{"{", RowBox[{"13.1", ",", "67.4"}], "}"}], ",", RowBox[{"{", RowBox[{"13.6", ",", "75.5"}], "}"}], ",", RowBox[{"{", RowBox[{"15.9", ",", "82.6"}], "}"}], ",", RowBox[{"{", RowBox[{"8.8", ",", "82.9"}], "}"}], ",", RowBox[{"{", RowBox[{"11.2", ",", "92.9"}], "}"}]}], "}"}]}], ";"}]], "Input", CellChangeTimes->{{3.731758193843342*^9, 3.731758198609002*^9}},ExpressionUUID->"cea2166b-bfa4-480b-ba99-\ 6c2d2b63aced"] }, WindowSize->{957, 959}, WindowMargins->{{339, Automatic}, {10, Automatic}}, 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[558, 20, 4438, 129, 181, "Input",ExpressionUUID->"cea2166b-bfa4-480b-ba99-6c2d2b63aced"] } ] *)