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

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

(* CreatedBy='Mathematica 10.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     14957,        387]
NotebookOptionsPosition[     13155,        346]
NotebookOutlinePosition[     13609,        363]
CellTagsIndexPosition[     13566,        360]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[TextData[{
 StyleBox["\:0423\:043f\:0440\:0430\:0436\:043d\:0435\:043d\:0438\:0435",
  FontFamily->"Times New Roman"],
 " 9.\n\:041c\:0435\:0442\:043e\:0434 \:043d\:0430 \:043d\:0430\:0439-\:043c\
\:0430\:043b\:043a\:0438\:0442\:0435 \:043a\:0432\:0430\:0434\:0440\:0430\
\:0442\:0438"
}], "Title",
 CellChangeTimes->{{3.688790915723016*^9, 3.6887909857831135`*^9}, {
  3.7530784924711685`*^9, 
  3.7530785159582176`*^9}},ExpressionUUID->"cd922a98-5398-4353-aaad-\
ec9b038ac2b4"],

Cell[CellGroupData[{

Cell["\<\
1 \:0437\:0430\:0434. \:0412 \:0442\:0430\:0431\:043b\:0438\:0446\:0430\:0442\
\:0430 \:0441\:0430 \:0434\:0430\:0434\:0435\:043d\:0438 \:0434\:0430\:043d\
\:043d\:0438 \:0437\:0430 \:0442\:043e\:0432\:0430 \:043a\:0430\:043a \:043d\
\:0438\:0432\:043e\:0442\:043e \:043d\:0430 \:0432\:044a\:0433\:043b\:0435\
\:0440\:043e\:0434\:043d\:0438\:044f \:0434\:0438\:043e\:043a\:0441\:0438\
\:0434 \:0432 \:0430\:0442\:043c\:043e\:0441\:0444\:0435\:0440\:0430\:0442\
\:0430 \:0441\:0435 \:0435 \:0438\:0437\:043c\:0435\:043d\:044f\:043b\:043e \
\:0432 \:043f\:0435\:0440\:0438\:043e\:0434\:0430 1980-2000\
\>", "Subsection",
 CellChangeTimes->{{3.7525562816356525`*^9, 3.7525563282427197`*^9}, {
   3.752556364559772*^9, 3.75255646639592*^9}, {3.753078539922268*^9, 
   3.7530785602103214`*^9}, 3.7530786124044313`*^9, {3.7530786490225105`*^9, 
   3.7530786961396117`*^9}, {3.7836130587042947`*^9, 
   3.783613063131735*^9}},ExpressionUUID->"f75024a2-2e15-4408-981a-\
5d0c10b40cac"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\:0433\:043e\:0434\:0438\:043d\:0430\"\>", "1980", "1982", "1984", 
     "1986", "1988", "1990", "1992", "1994", "1996", "1998", "2000"},
    {"\<\"\\!\\(\\*SubscriptBox[\\(CO\\), \\(2\\)]\\)\"\>", "338.7`", 
     "341.1`", "344.4`", "347.2`", "351.5`", "354.2`", "356.4`", "358.9`", 
     "362.6`", "366.6`", "369.4`"}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.7530790438393764`*^9, 3.753079081142453*^9}, {
  3.7530791453675957`*^9, 
  3.753079197810711*^9}},ExpressionUUID->"756578a3-23cd-4915-a82c-\
bfa2ad220e3f"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"years", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "1980", ",", "1982", ",", "1984", ",", "1986", ",", "1988", ",", "1990", 
     ",", "1992", ",", "1994", ",", "1996", ",", "1998", ",", "2000"}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"co2", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "338.7", ",", "341.1", ",", "344.4", ",", "347.2", ",", "351.5", ",", 
     "354.2", ",", "356.4", ",", "358.9", ",", "362.6", ",", "366.6", ",", 
     "369.4"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"data", " ", "=", " ", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"years", ",", "co2"}], "}"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7843489887391386`*^9, 3.7843490443080397`*^9}, {
  3.7843491396256886`*^9, 
  3.7843491411338215`*^9}},ExpressionUUID->"53f5957c-09a1-44b5-afee-\
7f13471cd42a"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1980., 338.7}, {1982., 341.1}, {1984., 344.4}, {1986., 
      347.2}, {1988., 351.5}, {1990., 354.2}, {1992., 356.4}, {1994., 
      358.9}, {1996., 362.6}, {1998., 366.6}, {2000., 
      369.4}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1979.6875000000002`, 337.165},
  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->{{1980., 2000.}, {338.7, 369.4}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.05], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{3.7843490459380984`*^9, 
  3.784349143263589*^9},ExpressionUUID->"b2da6a65-7906-4df4-a273-\
66d5f215d16d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
2 \:0437\:0430\:0434. \:0421\:043b\:0435\:0434\:043d\:0430\:0442\:0430 \:0442\
\:0430\:0431\:043b\:0438\:0446\:0430 \:0441\:044a\:0434\:044a\:0440\:0436\
\:0430 \:0434\:0430\:043d\:043d\:0438 \:0437\:0430 \:0442\:043e\:0432\:0430 \
\:043a\:0430\:043a \:0441\:0435 \:0438\:0437\:043c\:0435\:043d\:044f \:0431\
\:0440\:043e\:044f \:043d\:0430 \:0442\:0440\:0430\:043d\:0437\:0438\:0441\
\:0442\:043e\:0440\:0438\:0442\:0435 \:0432 \:0435\:0434\:0438\:043d \:043f\
\:0440\:043e\:0446\:0435\:0441\:043e\:0440 \:0432 \:0445\:0438\:043b\:044f\
\:0434\:0438 \:0432 \:0437\:0430\:0432\:0438\:0441\:0438\:043c\:043e\:0441\
\:0442 \:043e\:0442 \:0433\:043e\:0434\:0438\:043d\:0430\:0442\:0430:\
\>", "Subsection",
 CellChangeTimes->{{3.7525562816356525`*^9, 3.7525563282427197`*^9}, {
   3.752556364559772*^9, 3.75255646639592*^9}, {3.753078539922268*^9, 
   3.7530785602103214`*^9}, 3.7530786124044313`*^9, {3.753078791810833*^9, 
   3.7530788698200026`*^9}, {3.7836130804287453`*^9, 3.783613081733974*^9}, {
   3.784349275152291*^9, 
   3.7843492753441963`*^9}},ExpressionUUID->"44bc9cf9-72d7-4880-8f1a-\
209699a652b6"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\:0433\:043e\:0434\:0438\:043d\:0430\"\>", "1971", "1972", "1974", 
     "1978", "1982", "1985", "1989", "1993", "1997", "1999", "2000"},
    {"\<\"\:0431\:0440.(x1000)\"\>", "2.25`", "2.5`", "5", "29", "120", "275",
      "1180", "3100", "7500", "24000", "42000"}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{{3.7530794674102883`*^9, 
  3.753079525777424*^9}},ExpressionUUID->"38e33cf5-cff9-436f-9577-\
d09e3fd6c016"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"years", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "1971", ",", "1972", ",", "1974", ",", "1978", ",", "1982", ",", "1985", 
     ",", "1989", ",", "1993", ",", "1997", ",", "1999", ",", "2000"}], 
    "}"}]}], ";", 
  RowBox[{"processors", " ", "=", 
   RowBox[{"{", 
    RowBox[{
    "2.25", ",", "2.5", ",", "5", ",", "29", ",", "120", ",", "275", ",", 
     "1180", ",", "3100", ",", "7500", ",", "24000", ",", "42000"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"data", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"years", ",", "processors"}], "}"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7843491583438854`*^9, 
  3.784349247595088*^9}},ExpressionUUID->"324b36b1-e2e8-491a-9d45-\
864cb4bc3df0"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{1971., 2.25}, {1972., 2.5}, {1974., 5.}, {1978., 29.}, {1982.,
       120.}, {1985., 275.}, {1989., 1180.}, {1993., 3100.}, {1997., 7500.}, {
      1999., 24000.}, {2000., 42000.}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{1970.5468750000002`, 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->{{1971., 2000.}, {0, 42000.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{
  3.784349248456591*^9},ExpressionUUID->"8c531cfb-f58c-4f6b-a42d-\
303c2b097a2e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\<\
3 \:0437\:0430\:0434. \:0422\:043e\:043f\:043a\:0430 \:0435 \
\:043f\:0443\:0441\:043d\:0430\:0442\:0430 \:043e\:0442 \:0432\:0438\:0441\
\:043e\:0447\:0438\:043d\:0430 450m. \:041d\:0435\:0439\:043d\:0430\:0442\
\:0430 \:0432\:0438\:0441\:043e\:0447\:0438\:043d\:0430 \:0435 \:0438\:0437\
\:043c\:0435\:0440\:0432\:0430\:043d\:0430 \:043f\:0440\:0435\:0437 \:0438\
\:043d\:0442\:0435\:0440\:0432\:0430\:043b\:0438 \:043e\:0442 1 \:0441\:0435\
\:043a. \:0438 \:0440\:0435\:0437\:0443\:043b\:0442\:0430\:0442\:0438\:0442\
\:0435 \:0441\:0430 \:043f\:043e\:043c\:0435\:0441\:0442\:0435\:043d\:0438 \
\:0432 \:0442\:0430\:0431\:043b\:0438\:0446\:0430\:0442\:0430\
\>", "Subsection",
 CellChangeTimes->{{3.7525562816356525`*^9, 3.7525563282427197`*^9}, {
   3.752556364559772*^9, 3.75255646639592*^9}, {3.753078539922268*^9, 
   3.7530785602103214`*^9}, 3.7530786124044313`*^9, {3.7530787075336356`*^9, 
   3.753078781536801*^9}, 3.7530788721270075`*^9, {3.783613071711771*^9, 
   3.783613075003883*^9}, {3.784349269515561*^9, 
   3.7843492698013916`*^9}},ExpressionUUID->"e53a57c1-adcb-41f9-96d9-\
0cf64814eef2"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"t, sec\"\>", "0", "1", "2", "3", "4", "5", "6", "7", "8", "9"},
    {"\<\"h, m\"\>", "450", "445", "431", "408", "375", "332", "279", "216", 
     "143", "61"}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.753079236066798*^9, 
  3.7530793144309587`*^9},ExpressionUUID->"d6410bff-7f9e-4aee-bcde-\
d21a2e08eee4"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"t", "=", 
   RowBox[{"{", 
    RowBox[{
    "0", ",", "1", ",", "2", ",", "3", ",", "4", ",", "5", ",", "6", ",", "7",
      ",", "8", ",", "9"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"h", "=", 
   RowBox[{"{", 
    RowBox[{
    "450", ",", "445", ",", "431", ",", "408", ",", "375", ",", "332", ",", 
     "279", ",", "216", ",", "143", ",", "61"}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"data", " ", "=", " ", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"t", ",", "h"}], "}"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7843490790574484`*^9, 
  3.784349150087649*^9}},ExpressionUUID->"af0d8eb8-34cd-48de-91ba-\
b9e3124bedab"],

Cell[BoxData[
 GraphicsBox[{{}, {{}, 
    {RGBColor[0.368417, 0.506779, 0.709798], PointSize[0.012833333333333334`],
      AbsoluteThickness[1.6], 
     PointBox[{{0., 450.}, {1., 445.}, {2., 431.}, {3., 408.}, {4., 375.}, {
      5., 332.}, {6., 279.}, {7., 216.}, {8., 143.}, {9., 
      61.}}]}, {}}, {}, {}, {}, {}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->{True, True},
  AxesLabel->{None, None},
  AxesOrigin->{0, 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->{{0, 9.}, {0, 450.}},
  PlotRangeClipping->True,
  PlotRangePadding->{{
     Scaled[0.02], 
     Scaled[0.02]}, {
     Scaled[0.02], 
     Scaled[0.05]}},
  Ticks->{Automatic, Automatic}]], "Output",
 CellChangeTimes->{{3.784349124197379*^9, 
  3.784349151144041*^9}},ExpressionUUID->"e8b96c46-b238-43f8-8cc1-\
954cfa01d5c5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1361, 685},
WindowMargins->{{Automatic, -3}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>2. 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, 484, 10, 438, "Title",ExpressionUUID->"cd922a98-5398-4353-aaad-ec9b038ac2b4"],
Cell[CellGroupData[{
Cell[1089, 36, 986, 15, 210, "Subsection",ExpressionUUID->"f75024a2-2e15-4408-981a-5d0c10b40cac"],
Cell[2078, 53, 728, 15, 110, "Output",ExpressionUUID->"756578a3-23cd-4915-a82c-bfa2ad220e3f"],
Cell[CellGroupData[{
Cell[2831, 72, 926, 23, 136, "Input",ExpressionUUID->"53f5957c-09a1-44b5-afee-7f13471cd42a"],
Cell[3760, 97, 1466, 39, 480, "Output",ExpressionUUID->"b2da6a65-7906-4df4-a273-66d5f215d16d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[5275, 142, 1121, 17, 210, "Subsection",ExpressionUUID->"44bc9cf9-72d7-4880-8f1a-209699a652b6"],
Cell[6399, 161, 622, 13, 111, "Output",ExpressionUUID->"38e33cf5-cff9-436f-9577-d09e3fd6c016"],
Cell[CellGroupData[{
Cell[7046, 178, 815, 21, 136, "Input",ExpressionUUID->"324b36b1-e2e8-491a-9d45-864cb4bc3df0"],
Cell[7864, 201, 1418, 38, 483, "Output",ExpressionUUID->"8c531cfb-f58c-4f6b-a42d-303c2b097a2e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[9331, 245, 1119, 17, 210, "Subsection",ExpressionUUID->"e53a57c1-adcb-41f9-96d9-0cf64814eef2"],
Cell[10453, 264, 515, 12, 110, "Output",ExpressionUUID->"d6410bff-7f9e-4aee-bcde-d21a2e08eee4"],
Cell[CellGroupData[{
Cell[10993, 280, 753, 21, 136, "Input",ExpressionUUID->"af0d8eb8-34cd-48de-91ba-b9e3124bedab"],
Cell[11749, 303, 1366, 38, 510, "Output",ExpressionUUID->"e8b96c46-b238-43f8-8cc1-954cfa01d5c5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)