(* 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[     37265,        971]
NotebookOptionsPosition[     35379,        903]
NotebookOutlinePosition[     35834,        921]
CellTagsIndexPosition[     35791,        918]
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["0 \:0437\:0430\:0434. \
\:041d\:0430\:043c\:0435\:0440\:0435\:0442\:0435", "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}, {
   3.7843653382811193`*^9, 3.7843653463395805`*^9}},
 ExpressionUUID -> "f75024a2-2e15-4408-981a-5d0c10b40cac"],

Cell[BoxData[
 TagBox[GridBox[{
    {
     SubscriptBox["x", "i"], 
     RowBox[{"-", "2"}], 
     RowBox[{"-", "1"}], "0", "1", "2", "3"},
    {
     SubscriptBox["y", "i"], 
     RowBox[{"-", "4"}], "15", 
     RowBox[{"-", "9"}], "10", "7", "6"}
   },
   AutoDelete->False,
   GridBoxFrame->{"Columns" -> {{True}}, "Rows" -> {{True}}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
  "Grid"]], "Input",
 CellChangeTimes->{{3.784365326240431*^9, 3.784365333723859*^9}, {
  3.7843653978755283`*^9, 3.784365461453165*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"a", "*", 
     RowBox[{"x", "^", "2"}]}], "+", 
    RowBox[{"b", "*", "x"}], "+", "c"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"error", "[", 
    RowBox[{"a_", ",", "b_", ",", "c_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "*", "4"}], "+", 
       RowBox[{"b", "*", 
        RowBox[{"(", 
         RowBox[{"-", "2"}], ")"}]}], "+", "c", "-", 
       RowBox[{"(", 
        RowBox[{"-", "4"}], ")"}]}], ")"}], "^", "2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "*", "1"}], "+", 
       RowBox[{"b", "*", 
        RowBox[{"(", 
         RowBox[{"-", "1"}], ")"}]}], "+", "c", "-", "15"}], ")"}], "^", 
     "2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "*", "0"}], "+", 
       RowBox[{"b", "*", "0"}], "+", "c", "-", 
       RowBox[{"(", 
        RowBox[{"-", "9"}], ")"}]}], ")"}], "^", "2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "*", "1"}], "+", 
       RowBox[{"b", "*", "1"}], "+", "c", "-", "10"}], ")"}], "^", "2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "*", "4"}], "+", 
       RowBox[{"b", "*", "2"}], "+", "c", "-", "7"}], ")"}], "^", "2"}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a", "*", "9"}], "+", 
       RowBox[{"b", "*", "3"}], "+", "c", "-", "6"}], ")"}], "^", "2"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DerrorA", "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"error", "[", 
      RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", "a"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DerrorB", "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"error", "[", 
      RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", "b"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"DerrorC", "=", 
   RowBox[{"D", "[", 
    RowBox[{
     RowBox[{"error", "[", 
      RowBox[{"a", ",", "b", ",", "c"}], "]"}], ",", "c"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"sol", "=", 
  RowBox[{"Solve", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"DerrorA", "\[Equal]", "0"}], ",", 
      RowBox[{"DerrorB", "\[Equal]", "0"}], ",", 
      RowBox[{"DerrorC", "\[Equal]", "0"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"a", ",", "b", ",", "c"}], "}"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7843644728616204`*^9, 3.7843645413035355`*^9}, {
  3.7843645760075197`*^9, 3.784364658390232*^9}, {3.7843647320364447`*^9, 
  3.784364804814607*^9}, {3.7843654935700016`*^9, 3.7843655060227137`*^9}, {
  3.78436601857003*^9, 3.7843660525669746`*^9}, {3.7843668317715425`*^9, 
  3.784367103799102*^9}, {3.784367135786931*^9, 3.7843671359369397`*^9}, {
  3.784367172183013*^9, 3.784367197009433*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"a", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["2", "7"]}]}], ",", 
    RowBox[{"b", "\[Rule]", 
     FractionBox["11", "7"]}], ",", 
    RowBox[{"c", "\[Rule]", 
     FractionBox["30", "7"]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7843671796264386`*^9, 3.784367201003661*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], "/.", 
    RowBox[{"sol", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotData", "=", 
   RowBox[{"ListPlot", "[", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "2"}], ",", 
        RowBox[{"-", "4"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "1"}], ",", "15"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "9"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"1", ",", "10"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"2", ",", "7"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"3", ",", "6"}], "}"}]}], "}"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotFunction", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"plotData", ",", "plotFunction"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7843672164745464`*^9, 3.7843672262551055`*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.6], 
     PointBox[{{-2., -4.}, {-1., 15.}, {0., -9.}, {1., 10.}, {2., 7.}, {3., 
      6.}}]}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwt13k4VVsbAPBzjrP3LlMissmcuUzJzHlJIgqRJpmvMcNtUFFE5oRkukiK
SghFMsQ5hgxNKHGlq4yliCh0or7leb4/9rOe3x97rb3etd73fbaUW+C+v2gU
CmUQPauje3nKzJ8/BEtp8U/n6rjhl4ic/jLBCvHXMc+bJ1itZrccg5cIlmyW
/FPDjwRLbqi2c2qWYCVxKg2EvyRYn7lHCwaGCVapO1OG7xrBCvLdfrCyhWBh
H5X9XPUIVpjsW5ZnLMGy1eBuaTuFs7JzZFJf8BIszcHJjNwZOuv6+7hA27U4
SzKo2y69nMoS6razVhTEWPxWydm9gSvMDhs702eydFaMxdiBzMZFprmi7EkZ
aQ6W5u439r8ffmPqlTne7lKlsT6Yhff3HvvEZCd4CmgoUlmtEfzVi5kDzB+L
helO8hTWhd6xoQ+txcxW6VTNRv/fzG5D9xqtkW6GPhZeqeyxzAy0GCVokqOM
NNDWNj7PZj5cVlUp651iuOceHP98fYn5Y0guSIp7ntF1R3wtNXuBGelnwGr5
usgQ565QZ1Z/Zw7X9OYtHFlmcEpOdE0WzzHNzKqCmyIocMw+OquoaJZpv8HA
kF5DA5eW98/EU6eZtX0WS+cf0UHa8Lftk4hJ5jv7jVYi3Tjc9a4crq8eZwYV
F+R+rVwDvvP3HS9lDzPjn8pE3LzHCSph2CFcZpCZniCPHbrEDQJne7kycl4z
z1FT7uvp8EK/xzGl8tE2pvbRP9umF9bB6RClpM70MuaWNVc3ebXwQXGyDhSq
3WMYv9KzcAxfD0k+EX0uke2MoyoZ9gwTfuD5bqVfavua0RG+99utGX74cLJN
MzhqkOFg4Spw+KYAfK3d03y6Y5iRcuVy/wnzDXA79oaLR/w444qAv/PawQ0g
u1AicCZnkuFXrRA6ESQIQw8kGvS9pxkDqUo28F0Q9md+iPuSMstInPZ7QPUX
grxbiQ1WGXMMk8L78es/CgH9iP80dvY7Y0qjGY+32QgvXe7e2Re1wAgcSego
r90ID3lEji4eW2L4mTfuBQFhkMuW+kRYsRnCzFnmTzdhYAdHrZTYLTNuSZcS
XhXC8IUtyluk85vRfiGWoTwrDPlesb2iMhQIdF02oG0hYU2o9zMZeQrs4D5C
vEUOSrJoVlamgOQTecP7W0lgPOSq0N9GgSUXri9HVUkYoqVcOrKDAhuMf1lX
aJCwKS/LJMedAvSC80a6uiRk9d6tECmkQPM0d9ngThJSjJ8nkrJUqMrb3+92
lASzxoJt7xSoMGAtEbnWiYRlvdC3eVuo4HMzv6Qc2VtTSWGzJhWeKz8NYTuT
APJxLSo7qJDdVbM2wY2EWW5T9g5XKhw8Qv+c4kWC9b/1XgHXqOB40b7K8G8S
6Puv8qrfoMJXV36tXuS6Ht+H84VU+Dwcq+V7nAS5ZyTH2VIqyLX9U5l2goTf
DafzLtZToUDiUN7oKRLKCra9yRqgQpOQmZZPCAm8gSUmLYI0iBMcCBS4SMJf
NzP5+kkaiOSxBW8hP35zceizGA2iT2zarBVFgo+BYwi/HA3G6K5nHKJJaF3L
88BViwZPm6YpKbEkhBQGSFEO0ECrUDB14hIJEwPqFMMsGkRxXa+SSiPBkEf8
pU0uDZRUnx7OR04DzlyPfBrcvf7DWzydBOM7I9qJRTRQ89rTIJxBQu7Jq4GD
KK88UyhmeBYJ+9b9GDo7QIPjlqf6W3NIaDStaagW4QCKRxa76yYJ7sPZ+tHi
HOCdkxCuWYDOP+x8rZ00B5ywpV7IQt73yOThrCIHBOiem3cqRN+n+KJUSZcD
lpfuFI7fQvFYN5KTd4ADTmv1q74tIsFpgCskJo0DFovTJp3LSOAI/rpon8UB
+dVC7yuRi/h7TsnkcsAUiNkQ5STMWWb8zSrgAJ+eR4WlyDGNkj7sBxzwa1ha
+FvFavy3Hwzo4YDIpm5510oSVvydtRx46SAQcunzf49IcNOZvrSenw6Hwu7/
lqghoY0WOvxckA773KOuuiInZWYk7hCjw5EuNcYosnjTixG1LXToUC3M+1BL
gtEGg2Su3XQQ5f9xvqWehJtDnWNte+gQJzWZu4KM3z2gF2lLh6L1CQbaj0l4
aXhifOkgHX5ffbVShOzkVaw/4UUHTqmwuJgGEsLrhD+xoumQ7shoVGSSMBZ1
2/BcPB2UT1M/HUE2t9a8qn2ZDsePB6VeRuYbszYqS6ODENd+nxnkfJ7YtJwC
Ojxu1ZG4xyKB5fIDgpvocPGQbwlfMwmblS9mqD+hg2E4+70ectwPvqmpDjqU
RGuneyDbJGzJdO+mwzXNmohq5A+V7tM27+kwKtLrZt9CApV49Y/yCh1G1gTv
PNOK9hd3UkiHisHaiRqva8icazdeNcUw4KkT/d6EvIHLMfEoDwbFZsaWa5+Q
oLBuIixZDAP1Oa75FOStKXG/cqQw0IvZ63kfWWO98pkiWQzE19/f0YOsLxD0
d9NWDEK4+gzWtZGwdyPbfd4Qg7DU6wpRyHZZuR/+GGPg+d/w1HXkgyTjKLcZ
BgoSpqL1yG6iUQ6yezEwjfWunkE+JcFrccAJg7ZJtQnbdpQ/+RVP3N0wSPpy
/Jc3cpiUnUmQJwaqY70h4chxMln68QEYrKlbelSMnCsvrVIfhrzEVGYj3yhq
LW6PxKCigprK3UHCbUUv+d4YDNRc3N3EkcuVSyWnkzB4WhBjDMhVpXuv/UzF
YEjb3MYGuWbrNxLPxKC7WbHTGblZVUtA4joG5g1WP88ht1f8m6xcgMHLLUkV
CcjP1UO5de5goHJ1picTuW8bC7MtxyDKlN+uAnmwyi3yaCWKV/LrB/XIH7Zj
f3weYWDVU3WuDXlSe/dSJBODCN3+vW+Rv9ZMnUxuwWDMWfjAKPKcbvK3nHYM
5M6f7fyCvFinHlD0DMXvCvvWPPKyfu/nqi4MDHJzptjI1IZgr6bXGPDlOV6j
dqL7YESOvejHgJVhWEMgczHrXd4OovVjjAx5kPnA6b+J9xhUH3Pewo8s2EQ5
PD+KAdsiP1oIWcSkoO/PRwxExKkWIsjiLTvtuKcwEJyMCBZDljH91CU8i8HX
YmleSWSFJwlWst8xuOk+uk4aeYvZ1k71JQw0BFpDZZDV27t2Gi1jkFfbarsZ
Wcv8ePNuCg5jDuNXVh2vwTWzno7D74Uks1W/21QoOkDgYBZdc2b1fVXC0Dyf
C4c6qpvC6vyR396c9FqHg+OxS/tX138zGHBDRQAHlSeaFPHV72kjXv4QwkGJ
20lBFDm0Ip/9WAQHB2Pi5Ubkl9m68lHiOFR4qH0TQJaKfmVnKY2DVvDAlXXI
JwP9LvDL4fD5FK2CE7n9EP3egCIOL9xLLLHV+JheG8jfisMQo9fjD4q/v4oW
7q2Ogwjn+V9LyCzhLg3V7TjENd9aN4fsNU1JbDDAYWIluGIEua7/n5oowOHd
BQnD1fPnbdYYtzTFgTK3a1fP6v3M8DB6a4lDd55wbwMyEbHie8Mah5C3LIdK
5MN+GZnedjjso086FCFToGN24TAOV6Rru1KQ7ZRcxRqdcJgTcjWPWs2HDWyL
aDccon7GGZ1GtppULhDwRfGKP1hwBDkrNXm/2lkcil4t7F3Nly/nFCIXz+Fw
TievkgfZyKuprPECDmcSn6Qvo3wb058n9sSh80IF9F9ktXGHOp9MHDR41VQu
IV/smplQy8EhaLwvLBi5rzZOYCkP7bd4xcoV+VxS3bGY2zgYUZ65bkfu1BaX
KHiIg8IbD/9+VB82ST+y9K3FoU+Mq7gROYjb5ox6Aw7l9uoet5CFhiN6mK04
fE1csfl7tb4kjF989xqHZPl0bg5k9rvST4JzOHhiTVy8qH6ZHutI2bOAg5vn
6x2TqB5e/jWqE83GgS22a6AFWVJENP47jQDOK/s2nUbedSBe8bUAAUkxP2l9
qN6m9fzlm7KdAKPy2H2nUD0econg79AlQCSk3MUMWX42t+6PIQEZOTrPhZDr
eHs5A80I8BgJqH/YRMKwpUnJngMEBIT7sb+gfqDSJj7FeZaAzYuFbF3UL87s
10szOU/AmPLIEAW5aWy/QUgEAYxHFyTbG0mw57icOBlPwKue4Xpb5FD4taUj
mwAXIU07Z9SvOur6/aMfEyD5nzDdEfU7/t3zgg0sAhpD/RqFkR0HeBu/txKw
HCTR11tHwsziTl6PFwTYOJeIWSILba8qMxkiwM3SjkcN9VOX1i6HkBEC5vIq
HnxE/fau3Zff9yfQ/BaBD/OQDY5LW0vNEOBwg+81J3IM1Wjx4DwBztbz00zU
z7tTDl1PWSSAw17b8ySyiOSpXR2/CDAvf6evgPz//zNQch0NGKwm4X/HPOvl

      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{0, 0},
  PlotRange->{{-2., 3.}, {-9., 15.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.784367203685815*^9, 3.7843672267591343`*^9}}]
}, Open  ]]
}, Open  ]],

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[{"plotData", " ", "=", " ", 
  RowBox[{"ListPlot", "[", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"{", 
      RowBox[{"years", ",", "co2"}], "}"}], "]"}], ",", 
    RowBox[{"PlotMarkers", "\[Rule]", "\[FilledCircle]"}]}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.7843489887391386`*^9, 3.7843490443080397`*^9}, {
  3.7843491396256886`*^9, 3.7843491411338215`*^9}, {3.7843645530082045`*^9, 
  3.7843645609966617`*^9}, {3.7843646648976045`*^9, 3.784364666698707*^9}},
 ExpressionUUID -> "53f5957c-09a1-44b5-afee-7f13471cd42a"],

Cell[BoxData[
 GraphicsBox[GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQDQYf5jkYg4B2qQOY/2Oew6yZQBAI5TPMd0gDgTYo
n2M+RP1mKF9gPlQflC8BlVcug/AVoPrdoHwNKD8PyjeYD7FvJZRvAeW/hPId
oOrFyh2GmnsBd21czA==
   "], {
    {Hue[0.67, 0.6, 0.6], InsetBox["\[FilledCircle]", 12], 
     InsetBox["\[FilledCircle]", 13], InsetBox["\[FilledCircle]", 14], 
     InsetBox["\[FilledCircle]", 15], InsetBox["\[FilledCircle]", 16], 
     InsetBox["\[FilledCircle]", 17], InsetBox["\[FilledCircle]", 18], 
     InsetBox["\[FilledCircle]", 19], InsetBox["\[FilledCircle]", 20], 
     InsetBox["\[FilledCircle]", 21], InsetBox["\[FilledCircle]", 22]}, {}}],
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1980., 337.},
  PlotRange->{{1980., 2000.}, {337., 369.4}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.7843490459380984`*^9, 3.784349143263589*^9, {3.78436454837694*^9, 
   3.784364570635213*^9}, 3.784364670362917*^9, 3.784364787123595*^9, 
   3.7843672369277163`*^9},
 ExpressionUUID -> "b2da6a65-7906-4df4-a273-66d5f215d16d"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "It", " ", "is", " ", "convinient", " ", "to", " ", "approximate", " ", 
   "the", " ", "data", " ", "with", " ", "linear", " ", "function"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7843646727030506`*^9, 3.784364727291173*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"f", "[", "x_", "]"}], ":=", 
  RowBox[{
   RowBox[{"a", "*", "x"}], "+", "b"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Error", "[", 
   RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"f", "[", 
        RowBox[{"years", "[", 
         RowBox[{"[", "i", "]"}], "]"}], "]"}], "-", 
       RowBox[{"co2", "[", 
        RowBox[{"[", "i", "]"}], "]"}]}], ")"}], "^", "2"}], ",", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", 
      RowBox[{"Length", "[", "years", "]"}]}], "}"}]}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"sol", "=", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Error", "[", 
           RowBox[{"a", ",", "b"}], "]"}], ",", "a"}], "]"}], "\[Equal]", 
        "0"}], ",", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Error", "[", 
           RowBox[{"a", ",", "b"}], "]"}], ",", "b"}], "]"}], "\[Equal]", 
        "0"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"a", ",", "b"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "x_", "]"}], "=", 
   RowBox[{
    RowBox[{"f", "[", "x", "]"}], "/.", 
    RowBox[{"sol", "[", 
     RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"plotFunction", "=", 
   RowBox[{"Plot", "[", 
    RowBox[{
     RowBox[{"f", "[", "x", "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "1980", ",", "2000"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"plotData", ",", "plotFunction"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7843644728616204`*^9, 3.7843645413035355`*^9}, {
  3.7843645760075197`*^9, 3.784364658390232*^9}, {3.7843647320364447`*^9, 
  3.784364804814607*^9}}],

Cell[BoxData[
 GraphicsBox[{GraphicsComplexBox[CompressedData["
1:eJxTTMoPSmViYGAQA2IQDQYf5jkYg4B2qQOY/2Oew6yZQBAI5TPMd0gDgTYo
n2M+RP1mKF9gPlQflC8BlVcug/AVoPrdoHwNKD8PyjeYD7FvJZRvAeW/hPId
oOrFyh2GmnsBd21czA==
    "], {
     {Hue[0.67, 0.6, 0.6], InsetBox["\[FilledCircle]", 12], 
      InsetBox["\[FilledCircle]", 13], InsetBox["\[FilledCircle]", 14], 
      InsetBox["\[FilledCircle]", 15], InsetBox["\[FilledCircle]", 16], 
      InsetBox["\[FilledCircle]", 17], InsetBox["\[FilledCircle]", 18], 
      InsetBox["\[FilledCircle]", 19], InsetBox["\[FilledCircle]", 20], 
      InsetBox["\[FilledCircle]", 21], 
      InsetBox["\[FilledCircle]", 22]}, {}}], {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0Xsw1WkYB/BDnI5SyCRsbq3raXOL41Lx1Fnt0azWbRAbywjLIuV9f2e7
TNotyexydMZlXc4P05Z1aZktag6t6IJCBpmVxW5IZ1odEUfEPv3xzjufmfd5
n+/7PhYxqYHH1Dkcjh+uj7tT7CccjlIGPC21lUwrArz+rSIuurUqvaIOPb5f
V6KNFoumDw6gc8w0zY3Q05d68yysCSiGZ7yd0R1cmU0z+mpA27lYtERjT9Cs
DQED72/XOtCGHFIdwSewYtS0mjcrA9vF6TBHBwKuaSXdPnPoyrx7v3kQOJxu
LR+Zl4HjwKI4TUiA6XKvS1qQQdZ8mj7Pj8DmNmnqdhXm66u9kxJK4OKxfP/6
JRlwBL/e+DSaQGL1mFrcMvYLjfy9KolA1IGGJv0PWB+3U7pCCLhk2v10dVUG
qpVbD2Tn8P4khWMohwWRv5qGXjaB4pWA+ddqLBTxN+T1SQl0j0PzqXUswJy1
WnQZgZQ4cTBfk4VWscbZ1usE3hSGbGzhYv1F9ouUBgKjiWevpPFYqD+8bPJa
TuBvyU5T0w0sJHCThtwfEmiOyeio28iCrU/RWH8vAa1nJsKoTSx0QOac1zAB
wbvokbnNeL7dKUT1gkDfrRmfal0WptVl98/PEDjTqX4zbAsLtx1NDYZVBNZf
bgGFPgtZkxGNGeoUOIrWsrKtmDc0PGZRm8LwQqKRyzYWOP4GR5sNKLSHlP7S
ZsgCz23K09+cgnGYgeKEMQvKYWp5k08hQNPtCHc7C+OaD76Oc6GwEFReJDfB
9/zXXz7tRaHmnWQkwQzzti888vClAEJb7yVzrDcf2vdXIAWhM+9EzQ60p/hP
0VEKNt057WDJgur5s1xuPPaTlxr1WLHgn+QrlB6ncPrQnPdZG8zfdEZdeYpC
80XlBR07/N/sZN2SCxSSYgTF7XzMY2zGN8ilsKzY0RP+Gb7HOefKWBGF4ocF
XMUuFo676Y0ylRSuC4N0ShywfinYdbyWQv53jQIHJxYMhSHPCxopKAUx9pPO
OC9fw59N7lGICM7nS11YeLpvxuLkYwrXTFJ9LAWY7855zW2DFKKy8hyH3PC/
Zwfns8coLMnCPZM9cH4NL539XlGo5NWIlj1xPpGbgkffUrij/7lNzV4WMjrn
Mrw/UGjo+tHSywvPywtXZrgMLPjN7vRBS+yW9xivZ8CzL3L3l2hlYeRpH3Tb
kMeBcHR9utX7EvTAxJsoigb7PxZFPAZUqxElN9DfVPS8rdRiAHa7bDHzZqHq
kuarEG0GLjRWGFmjeQsJtj+gOz10LHahj8c+ia9DB4LCYQ/afb90at0mBmL9
yv1C0R3vzSfq0Vnx2pdz0dPJe8c26DDwRPG9pAAtGmFNBWi9lJeFZej6Q+si
o9HF6W3XatBim66RJnTtefH9Rx/7/xM6HKvLgFJj6nEPOuEruZEE7ZoV1D+I
ftpiekSOvptj/+8LdFHx5JCeHgPqW0pfKdAqnu+2feiD+Vqzs+gwpjYkAZ1t
yKhU6NuTOgVSdG/JxNoa2jz45OBd9P8dGy1M
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1980., 337.},
  PlotRange->{{1980., 2000.}, {337., 369.4}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.784364629199562*^9, 3.784364641277253*^9}, {
   3.784364762472185*^9, 3.784364805313636*^9}, 3.784367242986062*^9}]
}, 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[{"plotData", "=", 
  RowBox[{"ListPlot", "[", 
   RowBox[{"Transpose", "[", 
    RowBox[{"{", 
     RowBox[{"years", ",", "processors"}], "}"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.7843491583438854`*^9, 3.784349247595088*^9}, {
  3.78436520436346*^9, 3.784365206534584*^9}},
 ExpressionUUID -> "324b36b1-e2e8-491a-9d45-864cb4bc3df0"],

Cell[BoxData[
 GraphicsBox[{{}, 
   {Hue[0.67, 0.6, 0.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,
  AxesOrigin->{1975., 0},
  PlotRange->{{1971., 2000.}, {0., 42000.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.784349248456591*^9, 3.784364815600224*^9, 
  3.7843648902484937`*^9, 3.784365225464667*^9, 3.784367245777222*^9},
 ExpressionUUID -> "8c531cfb-f58c-4f6b-a42d-303c2b097a2e"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "It", " ", "is", " ", "convinient", " ", "to", " ", "approximate", " ", 
    "the", " ", "data", " ", "with", " ", "exponential", " ", "function", " ", 
    SuperscriptBox["ae", "bx"]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{"(*", 
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", 
    RowBox[{
     RowBox[{"a", " ", 
      RowBox[{"E", "^", 
       RowBox[{"(", 
        RowBox[{"b", " ", "x"}], ")"}]}], "\[IndentingNewLine]", 
      RowBox[{"Error", "[", 
       RowBox[{"a_", ",", "b_"}], "]"}]}], ":=", 
     RowBox[{
      RowBox[{
       RowBox[{"Sum", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"f", "[", 
             RowBox[{"years", "[", 
              RowBox[{"[", "i", "]"}], "]"}], "]"}], "-", 
            RowBox[{"processors", "[", 
             RowBox[{"[", "i", "]"}], "]"}]}], ")"}], "^", "2"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", 
           RowBox[{"Length", "[", "years", "]"}]}], "}"}]}], "]"}], 
       "\[IndentingNewLine]", "sol"}], "=", 
      RowBox[{"Solve", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"Error", "[", 
              RowBox[{"a", ",", "b"}], "]"}], ",", "a"}], "]"}], "\[Equal]", 
           "0"}], ",", 
          RowBox[{
           RowBox[{"D", "[", 
            RowBox[{
             RowBox[{"Error", "[", 
              RowBox[{"a", ",", "b"}], "]"}], ",", "b"}], "]"}], "\[Equal]", 
           "0"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"a", ",", "b"}], "}"}]}], "]"}]}]}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.784364824687744*^9, 3.784364911322699*^9}, {
  3.784367259108985*^9, 3.784367263382229*^9}}],

Cell[BoxData["$Aborted"], "Output",
 CellChangeTimes->{3.7843649720891747`*^9, 3.784365223223539*^9, 
  3.7843672525836115`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{
   "The", " ", "system", " ", "is", " ", "not", " ", "linear", " ", "and", 
    " ", "because", " ", "of", " ", "that", " ", "it", " ", "takes", " ", 
    "ages", " ", "to", " ", "compute", " ", 
    RowBox[{"(", 
     RowBox[{"if", " ", "it", " ", "is", " ", "even", " ", "possible"}], 
     ")"}], "\[IndentingNewLine]", "We", " ", "linearize", " ", "the", " ", 
    "function"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", "x_", "]"}], ":=", 
    RowBox[{"a", " ", 
     RowBox[{"E", "^", 
      RowBox[{"(", 
       RowBox[{"b", " ", "x"}], ")"}]}]}]}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"a", "=", 
     RowBox[{"E", "^", "c"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{"instead", " ", "of", " ", "approximating", " ", 
      RowBox[{"f", "[", 
       SubscriptBox["x", "i"], "]"}], " ", "with", " ", 
      SubscriptBox["y", "i"]}], ",", " ", 
     RowBox[{
     "we", " ", "add", " ", "logs", " ", "in", " ", "order", " ", "to", " ", 
      "linearize", " ", "the", " ", "error"}]}], "*)"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"Error", "[", 
     RowBox[{"a_", ",", "b_"}], "]"}], ":=", 
    RowBox[{"Sum", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Log", "[", 
          RowBox[{"f", "[", 
           RowBox[{"years", "[", 
            RowBox[{"[", "i", "]"}], "]"}], "]"}], "]"}], "-", 
         RowBox[{"Log", "[", 
          RowBox[{"processors", "[", 
           RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ")"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "years", "]"}]}], "}"}]}], "]"}]}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"sol", "=", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Error", "[", 
             RowBox[{"a", ",", "b"}], "]"}], ",", "c"}], "]"}], "\[Equal]", 
          "0"}], ",", 
         RowBox[{
          RowBox[{"D", "[", 
           RowBox[{
            RowBox[{"Error", "[", 
             RowBox[{"a", ",", "b"}], "]"}], ",", "b"}], "]"}], "\[Equal]", 
          "0"}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"c", ",", "b"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", "x_", "]"}], "=", 
     RowBox[{
      RowBox[{"f", "[", "x", "]"}], "/.", 
      RowBox[{"sol", "[", 
       RowBox[{"[", "1", "]"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"plotFunction", "=", 
     RowBox[{"Plot", "[", 
      RowBox[{
       RowBox[{"f", "[", "x", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"x", ",", "1980", ",", "2001"}], "}"}], ",", 
       RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{"plotData", ",", "plotFunction"}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.7843649240764284`*^9, 3.784365209976781*^9}, {
  3.784365244643764*^9, 3.7843652772936316`*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Solve", "::", "ifun"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Inverse functions are being used by \
\[NoBreak]\\!\\(Solve\\)\[NoBreak], so some solutions may not be found; use \
Reduce for complete solution information. \\!\\(\\*ButtonBox[\\\"\
\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", ButtonFrame->None, \
ButtonData:>\\\"paclet:ref/message/Solve/ifun\\\", ButtonNote -> \
\\\"Solve::ifun\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{{3.784365188865574*^9, 3.784365277809661*^9}, 
   3.784367270201619*^9}],

Cell[BoxData[
 GraphicsBox[{{{}, 
    {Hue[0.67, 0.6, 0.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.}}]}, {}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwV0ms0FHgcxvFJWls7NisyuYVKs4lZUsfUUU+cHRplNZVLW1o2NLFEFxkN
Yk26rNWE1W3+Ralmlem4tAopQ2lHsdq0IbWNmRjHZSNDF/vvxe885/Pu++Jn
Hx4niDBgMBjr6H3a5rvWDMaQDBUmgjx9JQ/3A8QFn1HzDx2PiqrnQfm86xtj
6r6cAaOuRzxUT8jCLKkTT/Te6XzNg9zNvt79k7eWZrhY+UBSuEAipE5Rnjxq
e9AHK9NdmG3Uqo8hGX4CX5SuBqt4WAZd5w+qyhl87G85cD3ujQyidxFOp5b4
Y4NzxZjlqAxOy4OFyUHr4Rrr21nzVobcjeVcUecGvK0dWf2zXoasYHZapkEQ
mrvObFw8IUNU2+mGyxGbcYQZ+nrsnQw7Z9iPsgpD4TdXZHnrA+1zlkb8VxUG
W4Z0fNukDO+nZ3rkBmxH+9DdEPYUgk3npcOvjkWhqHQw8i8DAlv77rzHn0cj
QZBouseQIM45J8H1TSzY01iruJ8RzD+35qsWXTyGMstZL4wILP9kX2T9sgey
2Tt3y6cTCIsDL448SUTAUVFMzBcE++UjdoG5yTB7KDE1MSbYO1dbZ16Qilq7
Em77lwS6m9NG+f7pSF7dbJxmQsAcVc9PmpIJ2wSjH9eaEpz2kYy9CcuCUnIm
0MSMwCawb5OSewxiofNYhTmB66IbSbudc2C9pZ2VakHwU4zJulV3pWi2Fmu/
nkOguLS3ZeaRPKTfEW9UWRKMP+xezpUXwGbfb15Sa4KAitZJa+kZPNCXdHFt
CaLjxmY1hp9D6NGOcUM7grP5+03cphZhdEpE+T17gmkNqd/NYRSD8PqsYubR
Prm4L3PpFXBOZxm6LyC4dFgQ5O1xFa01Dqe6HAnMc4yXtigVSFRaPExh0z5e
sOCRaxmmdizI8F5EkM8O7r/GrcT525yeXicCfYKSX5pcBcdywf0yZ4Kygc6Z
cdk1qNkXH7yNQyAYfrGbOV6HIBudxMCVgHBUsx7sqsfTNvGyJjeCq5rLI2sl
jYgOZp6IdydQ/Zrk0dDeBHV/2S7PZQSGDk+t2R+bERZR2c/wIGj4EPN3yvet
GPq93LyYS1Cbm9v2SN2GSAPV7dgVBOrOC/XpJu0YcOyePceToPEBX3tN9AxJ
nHXMWyvpf9TxzTjrn0Pn8zg9DbR/x0xRTPZLxLkEFS/0IvBPGv4n2UENeWiN
EYfa7H11YquLGprsecJl1NnbXxS5rFBjy+Cg07fU3tKKqskNavgqsq6HUy9R
aLd+yFTDzu1m9Vlq6UGvCzt1arQutWmb5U0wuoZzzqW6B8zIDHcr6tTzdR6p
TT3wze/Nc6B+WSQcb3/Sg9q3FcGu1C3+BkaFwz2Q3/B/7k/t0z/WXbBQg3Ru
Wu9h6hlVkXrzPA1qhBr+cWqvCdUuXaEG+pNrSwqotz5ThDcpNIidYMVdoubU
/nFPptJg863rI0pqyY4BtsJQizydRaCK+kpHwGSTqRYtVik32qgX55sm9dtp
wTvAF/1L3dX4MtrPU4uDJYqOXmpRSPbgIT8tqjtnew5TD4U+dWoO0ULPFMv0
1IbZFo5WO7RY4vlqcpL6Ynvxq/h9WvwPn3NTuA==
      "]]}}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesOrigin->{1975., 0},
  PlotRange->{{1971., 2000.}, {0., 42000.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.7843651888675737`*^9, 3.7843652778176613`*^9}, 
   3.7843672702256203`*^9}]
}, 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[{{}, 
   {Hue[0.67, 0.6, 0.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,
  AxesOrigin->{0, 0},
  PlotRange->{{0., 9.}, {0, 450.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{{3.784349124197379*^9, 3.784349151144041*^9}, 
   3.7843672743388557`*^9},
 ExpressionUUID -> "e8b96c46-b238-43f8-8cc1-954cfa01d5c5"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1904, 945},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>2. Inherited,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb",
PrivateNotebookOptions -> {
 "VersionedStylesheet" -> {"Default.nb"[8.] -> False}}
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 484, 10, 270, "Title"],
Cell[CellGroupData[{
Cell[1089, 36, 504, 7, 73, "Subsection"],
Cell[1596, 45, 552, 16, 100, InheritFromParent],
Cell[CellGroupData[{
Cell[2173, 65, 2939, 89, 262, "Input"],
Cell[5115, 156, 364, 11, 104, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5516, 172, 1270, 41, 160, "Input"],
Cell[6789, 215, 4928, 88, 502, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[11766, 309, 986, 15, 108, "Subsection"],
Cell[12755, 326, 728, 15, 100, "Output"],
Cell[CellGroupData[{
Cell[13508, 345, 1116, 26, 126, "Input"],
Cell[14627, 373, 1140, 24, 512, "Output"]
}, Open  ]],
Cell[15782, 400, 274, 6, 57, "Input"],
Cell[CellGroupData[{
Cell[16081, 410, 1955, 61, 228, "Input"],
Cell[18039, 473, 2683, 50, 512, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[20771, 529, 1121, 17, 108, "Subsection"],
Cell[21895, 548, 622, 13, 101, "Output"],
Cell[CellGroupData[{
Cell[22542, 565, 866, 21, 126, "Input"],
Cell[23411, 588, 699, 16, 516, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[24147, 609, 1846, 52, 160, "Input"],
Cell[25996, 663, 128, 2, 82, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[26161, 670, 3225, 91, 432, "Input"],
Cell[29389, 763, 581, 12, 46, "Message"],
Cell[29973, 777, 2312, 44, 516, "Output"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[32334, 827, 1117, 16, 108, "Subsection"],
Cell[33454, 845, 515, 12, 100, "Output"],
Cell[CellGroupData[{
Cell[33994, 861, 752, 20, 126, "Input"],
Cell[34749, 883, 590, 15, 507, "Output"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)