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

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

(* CreatedBy='Mathematica 11.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     28823,        848]
NotebookOptionsPosition[     24954,        776]
NotebookOutlinePosition[     25302,        791]
CellTagsIndexPosition[     25259,        788]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
   "\:041f\:0440\:0435\:0441\:043c\:044f\:0442\:0430\:043d\:0435", " ", 
    "\:043d\:0430", " ", "\:0410"}], "-", 
   RowBox[{
   "\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e\:0441\:0442", " ", 
    "\:0438", " ", 
    "\:043c\:043e\:043d\:043e\:0442\:043e\:043d\:043d\:043e\:0441\:0442", " ",
     "\:0437\:0430", " ", "\:043c\:0435\:0442\:043e\:0434\:0430", " ", 
    "\:043d\:0430", " ", "\:0420\:0443\:043d\:0433\:0435"}], "-", 
   "\:041a\:0443\:0442\:0430"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["k", "1"], "=", 
  RowBox[{"h", " ", "f", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["t", "i"], ",", 
     SubscriptBox["y", "i"]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["k", "2"], "=", 
  RowBox[{"h", " ", "f", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["t", "i"], "+", "h"}], ",", 
     RowBox[{
      SubscriptBox["y", "i"], "+", 
      SubscriptBox["k", "1"]}]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["y", 
   RowBox[{"i", "+", "1"}]], "=", 
  RowBox[{
   SubscriptBox["y", "i"], "+", 
   RowBox[{
    RowBox[{"1", "/", "2"}], 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["k", "1"], "+", 
      SubscriptBox["k", "2"]}], ")"}]}]}]}]}], "Title",
 CellChangeTimes->{{3.7840416926771936`*^9, 3.784041881384234*^9}, {
  3.784041943551309*^9, 3.7840419443748336`*^9}, {3.7840421411292486`*^9, 
  3.784042147607506*^9}, {3.784042276737976*^9, 3.7840422796602716`*^9}, {
  3.7840426307076244`*^9, 
  3.7840426311133904`*^9}},ExpressionUUID->"93264c15-be2d-4099-ba3b-\
8c53b47e72a9"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"t_", ",", "u_"}], "]"}], ":=", 
   RowBox[{"\[Lambda]", "*", "u"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k1", "=", 
   RowBox[{"h", "*", 
    RowBox[{"f", "[", 
     RowBox[{"ti", ",", "yi"}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k2", "=", 
   RowBox[{"h", "*", 
    RowBox[{"f", "[", 
     RowBox[{"ti", ",", 
      RowBox[{"yi", "+", "k1"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yi", "+", 
   RowBox[{
    RowBox[{"1", "/", "2"}], 
    RowBox[{"(", 
     RowBox[{"k1", "+", "k2"}], ")"}]}]}], "//", "Simplify", 
  RowBox[{"(*", 
   RowBox[{
   "\:041f\:043e\:043b\:0443\:0447\:0430\:0432\:0430\:043c\:0435", " ", 
    "\:0441\:043b\:0435\:0434\:0432\:0430\:0449\:043e\:0442\:043e", " ", 
    "\:043f\:0440\:0438\:0431\:043b\:0438\:0436\:0435\:043d\:0438\:0435", " ",
     "\:0447\:0440\:0435\:0437", " ", 
    "\:043f\:0440\:0435\:0434\:0438\:0448\:043d\:043e\:0442\:043e"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.7827965116422267`*^9, 3.782796666714883*^9}, {
  3.7840419502284727`*^9, 3.7840419821260405`*^9}, {3.784042191903932*^9, 
  3.7840422059728107`*^9}, {3.784042281764059*^9, 
  3.7840422865932856`*^9}},ExpressionUUID->"fc20ddbf-a154-4ed5-81fd-\
e5f623a57d45"],

Cell[BoxData[
 RowBox[{"yi", " ", 
  RowBox[{"(", 
   RowBox[{"1", "+", 
    RowBox[{"h", " ", "\[Lambda]"}], "+", 
    FractionBox[
     RowBox[{
      SuperscriptBox["h", "2"], " ", 
      SuperscriptBox["\[Lambda]", "2"]}], "2"]}], ")"}]}]], "Output",
 CellChangeTimes->{{3.7827966613319883`*^9, 3.782796667355514*^9}, 
   3.7840422092589164`*^9, 
   3.7840422877326107`*^9},ExpressionUUID->"82f27a98-1ccf-4b72-80e1-\
341efaf88596"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"\:041f\:043e\:043b\:0430\:0433\:0430\:043c\:0435", " ", "z"}], 
   "=", 
   RowBox[{"h", " ", "\[Lambda]"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7840420412189245`*^9, 3.7840420494831657`*^9}, {
  3.784042297769833*^9, 
  3.7840423007231283`*^9}},ExpressionUUID->"f3027a28-95a1-4cd4-8804-\
bf4b4517bcab"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Reduce", "[", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"Abs", "[", " ", 
       RowBox[{"1", "+", " ", "z", "+", 
        RowBox[{
         RowBox[{"z", "^", "2"}], "/", "2"}]}], "]"}], "<", "1."}], ",", 
     RowBox[{"z", "<", "0"}]}], "}"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7828000246251755`*^9, 3.7828000413555226`*^9}, {
   3.784042013060199*^9, 3.7840420806491604`*^9}, 
   3.7840425992187867`*^9},ExpressionUUID->"519337c1-8fdb-410b-8181-\
dc0dddba8cae"],

Cell[BoxData[
 TemplateBox[{
  "Reduce","ratnz",
   "\"Reduce was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"",2,5,1,17886250255741146163,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{3.7828000431824675`*^9, 
  3.7840422126079807`*^9},ExpressionUUID->"1abb6770-eac8-484e-a92d-\
bc66714d4d34"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2.`"}], "<", "z", "<", "0"}]], "Output",
 CellChangeTimes->{3.7828000431844654`*^9, 
  3.784042212636964*^9},ExpressionUUID->"427580a7-b541-4bce-8068-\
21bc9ecae873"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
    "\:041c\:0435\:0442\:043e\:0434\:044a\:0442", " ", "\:0435", " ", 
     "\:0443\:0441\:043b\:043e\:0432\:043d\:043e", " ", "\:0410"}], "-", 
    RowBox[{
    "\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432", " ", 
     "\:043f\:0440\:0438", " ", "h"}]}], "<", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], "/", "\[Lambda]"}], " ", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"-", "2"}], "<", 
       RowBox[{"h", " ", "\[Lambda]"}]}], ")"}], "."}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.7840426027767315`*^9, 
  3.7840426227841835`*^9}},ExpressionUUID->"9fadcb52-708f-4e44-85f6-\
07c625cf2fc7"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Reduce", "[", 
   RowBox[{"{", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"1", "+", " ", "z", "+", 
       RowBox[{
        RowBox[{"z", "^", "2"}], "/", "2"}]}], ">", "0"}], ",", 
     RowBox[{"z", "<", "0"}]}], "}"}], "]"}], " "}]], "Input",
 CellChangeTimes->{{3.7828000965136976`*^9, 3.7828001020025325`*^9}, {
   3.784042089753905*^9, 3.784042103265107*^9}, 
   3.7840426114047513`*^9},ExpressionUUID->"4528aab5-3205-4bd2-a019-\
db09c67df7ab"],

Cell[BoxData[
 RowBox[{"z", "<", "0"}]], "Output",
 CellChangeTimes->{3.782800102657154*^9, 
  3.7840422150025973`*^9},ExpressionUUID->"217f709e-bd58-4c85-8623-\
1154b924c289"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
  "\:041c\:0435\:0442\:043e\:0434\:044a\:0442", " ", "\:0435", " ", 
   "\:0430\:0431\:0441\:043e\:043b\:044e\:0442\:043d\:043e", " ", 
   RowBox[{"\:043c\:043e\:043d\:043e\:0442\:043e\:043d\:0435\:043d", "."}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7840426157652507`*^9, 
  3.784042618535652*^9}},ExpressionUUID->"9ec2b273-2c2c-45c8-934b-\
3dfc02456410"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
   "\:041f\:0440\:0435\:0441\:043c\:044f\:0442\:0430\:043d\:0435", " ", 
    "\:043d\:0430", " ", "\:0410"}], "-", 
   RowBox[{
   "\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432\:043e\:0441\:0442", " ", 
    "\:0438", " ", 
    "\:043c\:043e\:043d\:043e\:0442\:043e\:043d\:043d\:043e\:0441\:0442", " ",
     "\:0437\:0430", " ", "\:043c\:0435\:0442\:043e\:0434\:0430", " ", 
    "\:043d\:0430", " ", "\:0420\:0443\:043d\:0433\:0435"}], "-", 
   "\:041a\:0443\:0442\:0430"}], " "}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["k", "1"], "=", 
  RowBox[{"h", " ", "f", 
   RowBox[{"(", 
    RowBox[{
     SubscriptBox["x", "i"], ",", 
     SubscriptBox["y", "i"]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["k", "2"], "=", 
  RowBox[{"h", " ", "f", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["x", "i"], "+", 
      RowBox[{"h", "/", "2"}]}], ",", 
     RowBox[{
      SubscriptBox["y", "i"], "+", 
      RowBox[{
       SubscriptBox["k", "1"], "/", "2"}]}]}], 
    ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["k", "3"], "=", 
  RowBox[{"h", " ", "f", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SubscriptBox["t", "i"], "+", "h"}], ",", 
     RowBox[{
      SubscriptBox["y", "i"], "-", 
      SubscriptBox["k", "1"], "+", 
      RowBox[{"2", 
       SubscriptBox["k", "2"]}]}]}], ")"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  SubscriptBox["y", 
   RowBox[{"i", "+", "1"}]], "=", 
  RowBox[{
   SubscriptBox["y", "i"], "+", 
   RowBox[{
    RowBox[{"1", "/", "6"}], 
    RowBox[{"(", 
     RowBox[{
      SubscriptBox["k", "1"], "+", 
      RowBox[{"4", 
       SubscriptBox["k", "2"]}], "+", 
      SubscriptBox["k", "3"]}], ")"}]}]}]}]}], "Title",
 CellChangeTimes->{{3.7840416926771936`*^9, 3.784041881384234*^9}, {
  3.784041943551309*^9, 3.7840419443748336`*^9}, {3.7840421411292486`*^9, 
  3.784042147607506*^9}, {3.7840422355067606`*^9, 3.7840422596578183`*^9}, {
  3.784042315489586*^9, 3.784042343051674*^9}, {3.784042636438299*^9, 
  3.7840426571643515`*^9}},ExpressionUUID->"fea8f5bc-a2db-4775-82ae-\
3123bac0d2fa"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", "u_", "]"}], ":=", 
   RowBox[{"\[Lambda]", "*", "u"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k1", "=", 
   RowBox[{"h", "*", 
    RowBox[{"f", "[", "yi", "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k2", "=", 
   RowBox[{"h", "*", 
    RowBox[{"f", "[", 
     RowBox[{"yi", "+", 
      RowBox[{"k1", "/", "2"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"k3", "=", 
   RowBox[{"h", "*", 
    RowBox[{"f", "[", 
     RowBox[{"yi", "-", "k1", "+", 
      RowBox[{"2", "k2"}]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yi", "+", 
   RowBox[{
    RowBox[{"1", "/", "6"}], 
    RowBox[{"(", 
     RowBox[{"k1", "+", 
      RowBox[{"4", "k2"}], "+", "k3"}], ")"}]}]}], "//", 
  "Simplify"}]}], "Input",
 CellChangeTimes->{{3.782796696688589*^9, 3.7827967350058327`*^9}, {
  3.7840422276822796`*^9, 3.784042228812643*^9}, {3.784042352537199*^9, 
  3.7840423619038076`*^9}},ExpressionUUID->"54657aef-a9ed-4b77-9e88-\
0a245ae31ea5"],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "6"], " ", "yi", " ", 
  RowBox[{"(", 
   RowBox[{"6", "+", 
    RowBox[{"6", " ", "h", " ", "\[Lambda]"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["h", "2"], " ", 
     SuperscriptBox["\[Lambda]", "2"]}], "+", 
    RowBox[{
     SuperscriptBox["h", "3"], " ", 
     SuperscriptBox["\[Lambda]", "3"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.782796736211152*^9, 
  3.784042373322199*^9},ExpressionUUID->"20a3b719-6878-4010-a93c-\
d38042ec5345"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"\:041f\:043e\:043b\:0430\:0433\:0430\:043c\:0435", " ", "z"}], 
   "=", 
   RowBox[{
    RowBox[{"\[Lambda]", " ", 
     RowBox[{
     "h", ".", " ", "\:041e\:0447\:0435\:0432\:0438\:0434\:043d\:043e"}], " ",
      "z"}], "=", " ", 
    RowBox[{"\[Lambda]h", "<", "0"}]}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.784042376394433*^9, 
  3.7840424213634815`*^9}},ExpressionUUID->"c2f97d9d-a1f8-4d87-891c-\
422e492b4edd"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"Abs", "[", 
      RowBox[{
       FractionBox["1", "6."], "  ", 
       RowBox[{"(", 
        RowBox[{"6", "+", 
         RowBox[{"6", " ", "z"}], "+", 
         RowBox[{"3", " ", 
          RowBox[{"z", "^", "2"}]}], "+", 
         RowBox[{"z", "^", "3"}]}], ")"}]}], "]"}], "<", "1."}], ",", 
    RowBox[{"z", "<", "0"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.782796758404349*^9, 
  3.7827968783311377`*^9}},ExpressionUUID->"d0db6c55-c82b-4936-b5df-\
b7f5beee1b51"],

Cell[BoxData[
 TemplateBox[{
  "Reduce","ratnz",
   "\"Reduce was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"",2,22,7,17878089044871935750,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{{3.7827968260153236`*^9, 
  3.782796878897829*^9}},ExpressionUUID->"ac1ac044-c98d-428d-8f07-\
94eddb7be8f0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "2.5127453266183286`"}], "<", "z", "<", "0"}]], "Output",
 CellChangeTimes->{{3.782796817969964*^9, 
  3.7827968789208145`*^9}},ExpressionUUID->"6f354da0-fe0c-4115-89d8-\
0771c73026a2"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
    "\:0421\:043b\:0435\:0434\:043e\:0432\:0430\:0442\:0435\:043b\:043d\:043e\
", " ", "\:043c\:0435\:0442\:043e\:0434\:044a\:0442", " ", "\:0435", " ", 
     "\:0443\:0441\:043b\:043e\:0432\:043d\:043e", " ", "\:0410"}], "-", 
    RowBox[{
    "\:0443\:0441\:0442\:043e\:0439\:0447\:0438\:0432", " ", 
     "\:043f\:0440\:0438", " ", "h"}]}], "<", 
   RowBox[{
    FractionBox[
     RowBox[{"-", "2.5127453266183286`"}], "\[Lambda]"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "2.5127453266183286`"}], "<", "h\[Lambda]"}], ")"}]}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7840424409101934`*^9, 
  3.7840425268026114`*^9}},ExpressionUUID->"3f3081d4-0f94-41d5-8609-\
8352e1003007"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Reduce", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{
      FractionBox["1", "6."], "  ", 
      RowBox[{"(", 
       RowBox[{"6", "+", 
        RowBox[{"6", " ", "z"}], "+", 
        RowBox[{"3", " ", 
         RowBox[{"z", "^", "2"}]}], "+", 
        RowBox[{"z", "^", "3"}]}], ")"}]}], ">", "0."}], ",", 
    RowBox[{"z", "<", "0"}]}], "}"}], "]"}]], "Input",
 CellChangeTimes->{{3.7828001230753727`*^9, 
  3.7828001299783936`*^9}},ExpressionUUID->"f6167071-06d4-4f27-b6fa-\
621240f79be7"],

Cell[BoxData[
 TemplateBox[{
  "Reduce","ratnz",
   "\"Reduce was unable to solve the system with inexact coefficients. The \
answer was obtained by solving a corresponding exact system and numericizing \
the result.\"",2,115,16,17878089044871935750,"Local"},
  "MessageTemplate"]], "Message", "MSG",
 CellChangeTimes->{
  3.782800130685982*^9},ExpressionUUID->"f0ab9821-14a1-4e39-8d23-\
791b7adf415b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1.5960716379833215`"}], "<", "z", "<", "0"}]], "Output",
 CellChangeTimes->{
  3.782800130686983*^9},ExpressionUUID->"4af1187f-7fa2-47f9-95fc-\
d97b2aa61715"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "\:0421\:043b\:0435\:0434\:043e\:0432\:0430\:0442\:0435\:043b\:043d\:043e",
     " ", "\:043c\:0435\:0442\:043e\:0434\:044a\:0442", " ", "\:0435", " ", 
    "\:0443\:0441\:043b\:043e\:0432\:043d\:043e", " ", 
    "\:043c\:043e\:043d\:043e\:0442\:043e\:043d\:0435\:043d", " ", 
    "\:043f\:0440\:0438", " ", "h"}], "<", 
   RowBox[{
    FractionBox[
     RowBox[{"-", "1.5960716379833215`"}], "\[Lambda]"], 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1.5960716379833215`"}], "<", "h\[Lambda]"}], ")"}]}]}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.7840425643479176`*^9, 
  3.7840425869328785`*^9}},ExpressionUUID->"1ca23f2a-dcfe-4cdc-9b44-\
7ed9769cb6e7"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{
   "\:041f\:0440\:0435\:0441\:043c\:044f\:0442\:0430\:043d\:0435", " ", 
    "\:043d\:0430", " ", 
    "\:043a\:043e\:0435\:0444\:0438\:0446\:0438\:0435\:043d\:0442\:0438\:0442\
\:0435", " ", "\:0432", " ", "\:043c\:0435\:0442\:043e\:0434\:0430", " ", 
    "\:043d\:0430", " ", "\:0410\:0434\:0430\:043c\:0441"}], "-", 
   RowBox[{
   "\:0411\:0430\:0448\:0444\:043e\:0440\:0442", " ", "\:0438", " ", 
    "\:0410\:0434\:0430\:043c\:0441"}], "-", 
   RowBox[{
   "\:041c\:0443\:043b\:0442\:043e\:043d", " ", "\:043e\:0442", " ", 
    "\:043f\:044a\:0440\:0432\:0438"}]}], ",", " ", 
  RowBox[{
  "\:0432\:0442\:043e\:0440\:0438", " ", "\:0438", " ", 
   "\:0447\:0435\:0442\:0432\:044a\:0440\:0442\:0438", " ", 
   RowBox[{"\:0440\:0435\:0434", "."}]}]}]], "Title",
 CellChangeTimes->{{3.7840416926771936`*^9, 3.784041881384234*^9}, {
  3.784041943551309*^9, 3.7840419443748336`*^9}, {3.7840421411292486`*^9, 
  3.784042147607506*^9}, {3.7840422355067606`*^9, 3.7840422596578183`*^9}, {
  3.784042315489586*^9, 3.784042343051674*^9}, {3.784042636438299*^9, 
  3.784042719705245*^9}},ExpressionUUID->"c6900744-b3d9-4737-a765-\
3abbe77b9fa0"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"n", "=", "1"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "f", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"InterpolatingPolynomial", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"{", 
         RowBox[{"ti", ",", 
          RowBox[{"f", "[", "ti", "]"}]}], "}"}], "}"}], ",", "t"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "ti", ",", 
       RowBox[{"ti", "+", "h"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7828001741399274`*^9, 3.7828001856962585`*^9}, {
  3.784042753044981*^9, 3.7840427902115235`*^9}, {3.7840428294018984`*^9, 
  3.7840428370744715`*^9}},ExpressionUUID->"3e4b9c56-9786-4435-a6ee-\
e81ce43addce"],

Cell[BoxData[
 RowBox[{"h", " ", 
  RowBox[{"f", "[", "ti", "]"}]}]], "Output",
 CellChangeTimes->{
  3.7828001860730257`*^9, {3.78404277411082*^9, 3.784042790828189*^9}, 
   3.7840428383277507`*^9},ExpressionUUID->"71436edf-063f-4974-afb9-\
9c9d7a7da374"]
}, Open  ]],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
   "\:0417\:043d\:0430\:0447\:0438", " ", 
    "\:043c\:0435\:0442\:043e\:0434\:044a\:0442", " ", "\:043d\:0430", " ", 
    "\:0410\:0434\:0430\:043c\:0441"}], "-", 
   RowBox[{
   "\:0411\:0430\:0448\:0444\:043e\:0440\:0442", " ", "\:043e\:0442", " ", 
    "\:043f\:044a\:0440\:0432\:0438", " ", "\:0440\:0435\:0434", " ", 
    "\:0435", " ", "\:044f\:0432\:0435\:043d", " ", 
    "\:043c\:0435\:0442\:043e\:0434", " ", "\:043d\:0430", " ", 
    "\:041e\:0439\:043b\:0435\:0440"}]}], "*)"}]], "Input",
 CellChangeTimes->{{3.784042796360982*^9, 
  3.784042825068401*^9}},ExpressionUUID->"5f6d5d1c-c34a-4be7-9cef-\
87c517bc5a2a"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"n", "=", "2"}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "f", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"InterpolatingPolynomial", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"ti", ",", 
           RowBox[{"f", "[", "ti", "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ti", "-", "h"}], ",", 
           RowBox[{"f", "[", 
            RowBox[{"ti", "-", "h"}], "]"}]}], "}"}]}], "}"}], ",", "t"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "ti", ",", 
       RowBox[{"ti", "+", "h"}]}], "}"}]}], "]"}], "\[IndentingNewLine]", 
   "\[IndentingNewLine]", 
   RowBox[{"(*", 
    RowBox[{
     RowBox[{
     "\:041f\:043e\:0441\:043b\:0435\:0434\:043d\:043e\:0442\:043e", " ", 
      "\:043c\:043e\:0436\:0435", " ", "\:0434\:0430", " ", "\:0441\:0435", 
      " ", "\:0437\:0430\:043f\:0438\:0448\:0435", " ", "\:043f\:043e"}], "-",
      "\:043a\:0440\:0430\:0442\:043a\:043e"}], "*)"}], "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"InterpolatingPolynomial", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ti", "-", 
            RowBox[{"k", "*", "h"}]}], ",", 
           RowBox[{"f", "[", 
            RowBox[{"ti", "-", 
             RowBox[{"k", "*", "h"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "1"}], "}"}]}], "]"}], ",", "t"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "ti", ",", 
       RowBox[{"ti", "+", "h"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7828001741399274`*^9, 3.7828001856962585`*^9}, {
  3.7840428470547256`*^9, 
  3.7840429599875126`*^9}},ExpressionUUID->"24313dc4-2d19-4cd9-bd6e-\
7a854ec837cb"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["3", "2"], " ", "h", " ", 
   RowBox[{"f", "[", "ti", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "h", " ", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{"-", "h"}], "+", "ti"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.7828001860730257`*^9, 3.784042929461134*^9, 
  3.784042960905981*^9},ExpressionUUID->"e1b533a7-8560-4b87-bbb4-\
386490a38140"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["3", "2"], " ", "h", " ", 
   RowBox[{"f", "[", "ti", "]"}]}], "-", 
  RowBox[{
   FractionBox["1", "2"], " ", "h", " ", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{"-", "h"}], "+", "ti"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.7828001860730257`*^9, 3.784042929461134*^9, 
  3.784042960910978*^9},ExpressionUUID->"fba2a03f-fefc-410b-95d0-\
4ca1e1e54fe9"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"n", "=", "4"}], "*)"}], "\n", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "f", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"InterpolatingPolynomial", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ti", "-", 
            RowBox[{"k", "*", "h"}]}], ",", 
           RowBox[{"f", "[", 
            RowBox[{"ti", "-", 
             RowBox[{"k", "*", "h"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", "t"}], 
      "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "ti", ",", 
       RowBox[{"ti", "+", "h"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.7840429790615177`*^9, 
  3.784042986260343*^9}},ExpressionUUID->"e165cfbf-60f3-424e-9b34-\
96626b201baa"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["55", "24"], " ", "h", " ", 
   RowBox[{"f", "[", "ti", "]"}]}], "-", 
  RowBox[{
   FractionBox["3", "8"], " ", "h", " ", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "3"}], " ", "h"}], "+", "ti"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["37", "24"], " ", "h", " ", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "h"}], "+", "ti"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["59", "24"], " ", "h", " ", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{"-", "h"}], "+", "ti"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.7828001482298584`*^9, 
  3.784042989879256*^9},ExpressionUUID->"5a4e30a9-5fa6-4495-bec7-\
a70e999ec7aa"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", 
   RowBox[{"n", "=", 
    RowBox[{
     RowBox[{"4", " ", "Adams"}], "-", 
     RowBox[{"Multon", " ", "Method"}]}]}], "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Clear", "[", "f", "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Integrate", "[", 
    RowBox[{
     RowBox[{"InterpolatingPolynomial", "[", 
      RowBox[{
       RowBox[{"Table", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"ti", "-", 
            RowBox[{"k", "*", "h"}]}], ",", 
           RowBox[{"f", "[", 
            RowBox[{"ti", "-", 
             RowBox[{"k", "*", "h"}]}], "]"}]}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"k", ",", 
           RowBox[{"-", "1"}], ",", "2"}], "}"}]}], "]"}], ",", "t"}], "]"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "ti", ",", 
       RowBox[{"ti", "+", "h"}]}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.784042993739044*^9, 
  3.7840430121793795`*^9}},ExpressionUUID->"5e928afb-809b-45b7-9a34-\
1baf1b0e10f9"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   FractionBox["19", "24"], " ", "h", " ", 
   RowBox[{"f", "[", "ti", "]"}]}], "+", 
  RowBox[{
   FractionBox["1", "24"], " ", "h", " ", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "2"}], " ", "h"}], "+", "ti"}], "]"}]}], "-", 
  RowBox[{
   FractionBox["5", "24"], " ", "h", " ", 
   RowBox[{"f", "[", 
    RowBox[{
     RowBox[{"-", "h"}], "+", "ti"}], "]"}]}], "+", 
  RowBox[{
   FractionBox["3", "8"], " ", "h", " ", 
   RowBox[{"f", "[", 
    RowBox[{"h", "+", "ti"}], "]"}]}]}]], "Output",
 CellChangeTimes->{3.7828001592674923`*^9, 
  3.7840430146069784`*^9},ExpressionUUID->"aa163351-e308-44e5-9b0a-\
e62a0eefe3a1"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1366, 685},
WindowMargins->{{-8, Automatic}, {Automatic, -8}},
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, 1641, 46, 353, "Title",ExpressionUUID->"93264c15-be2d-4099-ba3b-8c53b47e72a9"],
Cell[CellGroupData[{
Cell[2246, 72, 1324, 35, 86, "Input",ExpressionUUID->"fc20ddbf-a154-4ed5-81fd-e5f623a57d45"],
Cell[3573, 109, 435, 12, 62, "Output",ExpressionUUID->"82f27a98-1ccf-4b72-80e1-341efaf88596"]
}, Open  ]],
Cell[4023, 124, 362, 9, 28, "Input",ExpressionUUID->"f3027a28-95a1-4cd4-8804-bf4b4517bcab"],
Cell[CellGroupData[{
Cell[4410, 137, 527, 14, 28, "Input",ExpressionUUID->"519337c1-8fdb-410b-8181-dc0dddba8cae"],
Cell[4940, 153, 425, 9, 21, "Message",ExpressionUUID->"1abb6770-eac8-484e-a92d-bc66714d4d34"],
Cell[5368, 164, 206, 5, 32, "Output",ExpressionUUID->"427580a7-b541-4bce-8068-21bc9ecae873"]
}, Open  ]],
Cell[5589, 172, 696, 20, 28, "Input",ExpressionUUID->"9fadcb52-708f-4e44-85f6-07c625cf2fc7"],
Cell[CellGroupData[{
Cell[6310, 196, 487, 13, 28, "Input",ExpressionUUID->"4528aab5-3205-4bd2-a019-db09c67df7ab"],
Cell[6800, 211, 176, 4, 32, "Output",ExpressionUUID->"217f709e-bd58-4c85-8623-1154b924c289"]
}, Open  ]],
Cell[6991, 218, 403, 9, 28, "Input",ExpressionUUID->"9ec2b273-2c2c-45c8-934b-3dfc02456410"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7431, 232, 2144, 63, 418, "Title",ExpressionUUID->"fea8f5bc-a2db-4775-82ae-3123bac0d2fa"],
Cell[CellGroupData[{
Cell[9600, 299, 1060, 32, 105, "Input",ExpressionUUID->"54657aef-a9ed-4b77-9e88-0a245ae31ea5"],
Cell[10663, 333, 500, 14, 55, "Output",ExpressionUUID->"20a3b719-6878-4010-a93c-d38042ec5345"]
}, Open  ]],
Cell[11178, 350, 473, 13, 28, "Input",ExpressionUUID->"c2f97d9d-a1f8-4d87-891c-422e492b4edd"],
Cell[CellGroupData[{
Cell[11676, 367, 571, 17, 51, "Input",ExpressionUUID->"d0db6c55-c82b-4936-b5df-b7f5beee1b51"],
Cell[12250, 386, 426, 9, 21, "Message",ExpressionUUID->"ac1ac044-c98d-428d-8f07-94eddb7be8f0"],
Cell[12679, 397, 224, 5, 32, "Output",ExpressionUUID->"6f354da0-fe0c-4115-89d8-0771c73026a2"]
}, Open  ]],
Cell[12918, 405, 761, 20, 40, "Input",ExpressionUUID->"3f3081d4-0f94-41d5-8609-8352e1003007"],
Cell[CellGroupData[{
Cell[13704, 429, 532, 16, 51, "Input",ExpressionUUID->"f6167071-06d4-4f27-b6fa-621240f79be7"],
Cell[14239, 447, 402, 9, 21, "Message",ExpressionUUID->"f0ab9821-14a1-4e39-8d23-791b7adf415b"],
Cell[14644, 458, 198, 5, 32, "Output",ExpressionUUID->"4af1187f-7fa2-47f9-95fc-d97b2aa61715"]
}, Open  ]],
Cell[14857, 466, 722, 18, 40, "Input",ExpressionUUID->"1ca23f2a-dcfe-4cdc-9b44-7ed9769cb6e7"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15616, 489, 1187, 24, 158, "Title",ExpressionUUID->"c6900744-b3d9-4737-a765-3abbe77b9fa0"],
Cell[CellGroupData[{
Cell[16828, 517, 807, 22, 67, "Input",ExpressionUUID->"3e4b9c56-9786-4435-a6ee-e81ce43addce"],
Cell[17638, 541, 256, 6, 32, "Output",ExpressionUUID->"71436edf-063f-4974-afb9-9c9d7a7da374"]
}, Open  ]],
Cell[17909, 550, 681, 15, 28, "Input",ExpressionUUID->"5f6d5d1c-c34a-4be7-9cef-87c517bc5a2a"],
Cell[CellGroupData[{
Cell[18615, 569, 1979, 55, 124, "Input",ExpressionUUID->"24313dc4-2d19-4cd9-bd6e-7a854ec837cb"],
Cell[20597, 626, 414, 12, 55, "Output",ExpressionUUID->"e1b533a7-8560-4b87-bbb4-386490a38140"],
Cell[21014, 640, 414, 12, 55, "Output",ExpressionUUID->"fba2a03f-fefc-410b-95d0-4ca1e1e54fe9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[21465, 657, 932, 28, 67, "Input",ExpressionUUID->"e165cfbf-60f3-424e-9b34-96626b201baa"],
Cell[22400, 687, 734, 24, 55, "Output",ExpressionUUID->"5a4e30a9-5fa6-4495-bec7-a70e999ec7aa"]
}, Open  ]],
Cell[CellGroupData[{
Cell[23171, 716, 1066, 32, 67, "Input",ExpressionUUID->"5e928afb-809b-45b7-9a34-1baf1b0e10f9"],
Cell[24240, 750, 686, 22, 55, "Output",ExpressionUUID->"aa163351-e308-44e5-9b0a-e62a0eefe3a1"]
}, Open  ]]
}, Open  ]]
}
]
*)