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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     27956,        644]
NotebookOptionsPosition[     26458,        607]
NotebookOutlinePosition[     26806,        622]
CellTagsIndexPosition[     26763,        619]
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"],
 " 8.\n",
 StyleBox["\:0418\:043d\:0442\:0435\:0440\:043f\:043e\:043b\:0438\:0440\:0430\
\:043d\:0435 \:0441 \:043e\:0431\:043e\:0431\:0449\:0435\:043d\:0438 \:043f\
\:043e\:043b\:0438\:043d\:043e\:043c\:0438.",
  FontFamily->"Times New Roman"]
}], "Title",
 CellChangeTimes->{{3.688790915723016*^9, 3.6887909857831135`*^9}, 
   3.752555635401349*^9, {3.783603169580466*^9, 3.783603181469586*^9}},
 FontFamily->
  "Times New Roman",ExpressionUUID->"8a381568-e438-4aa8-bb52-de88e9fc8a36"],

Cell[CellGroupData[{

Cell[TextData[{
 "1 \:0437\:0430\:0434. \
\:041f\:043e\:0441\:0442\:0440\:043e\:0439\:0442\:0435 \:0442\:0440\:0438\
\:0433\:043e\:043d\:043e\:043c\:0435\:0442\:0440\:0438\:0447\:0435\:043d \
\:043f\:043e\:043b\:0438\:043d\:043e\:043c \[Tau](t) \:0441 \
\:043f\:0435\:0440\:0438\:043e\:0434 \:0422=2\[Pi], \:043a\:043e\:0439\:0442\
\:043e \:0438\:043d\:0442\:0435\:0440\:043f\:043e\:043b\:0438\:0440\:0430 \
\:0442\:0430\:0431\:043b\:0438\:0446\:0430\:0442\:0430:\n",
 Cell[BoxData[GridBox[{
    {"t", "0", 
     FractionBox["\[Pi]", "3"], 
     FractionBox[
      RowBox[{"5", "\[Pi]"}], "6"], 
     FractionBox[
      RowBox[{"4", "\[Pi]"}], "3"], 
     FractionBox[
      RowBox[{"11", "\[Pi]"}], "6"]},
    {
     RowBox[{"\[Tau]", 
      RowBox[{"(", "t", ")"}]}], "9", "11.1", "14.9", "12.9", "9"}
   },
   GridBoxDividers->{
    "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
     "RowsIndexed" -> {}}]],ExpressionUUID->
  "cc4999e5-431c-4fa4-be97-536454c6e95c"],
 "\n\:041f\:043e\:0441\:0442\:0440\:043e\:0439\:0442\:0435 \:043f\:043e\:043b\
\:0438\:043d\:043e\:043c\:0430 p(t) \:0438 \:0442\:043e\:0447\:043a\:0438\
\:0442\:0435 \:043d\:0430 \:0435\:0434\:043d\:0430 \:0433\:0440\:0430\:0444\
\:0438\:043a\:0430 \:0432 \:0438\:043d\:0442\:0435\:0440\:0432\:0430\:043b\
\:0430 [0,4\[Pi]]."
}], "Section",
 CellChangeTimes->{{3.752559183948251*^9, 3.752559205842282*^9}, {
  3.7835936860774455`*^9, 3.7835939016637363`*^9}, {3.78359408736633*^9, 
  3.7835941050770855`*^9}, {3.7835941460113897`*^9, 3.7835942459989705`*^9}, {
  3.7836031982259116`*^9, 3.783603201031272*^9}, {3.7836118863582945`*^9, 
  3.783611891581272*^9}},
 FontFamily->
  "Times New Roman",ExpressionUUID->"d883f767-5b7d-47ce-90a5-9072a20d96b3"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.783612372799741*^9},
 FontFamily->
  "Times New Roman",ExpressionUUID->"154ee173-628b-40a1-b9c4-2c4875e6a4b0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "2 \:0437\:0430\:0434. \:0414\:0430\:0434\:0435\:043d\:043e \:0435 \:043f\
\:0440\:043e\:0441\:0442\:043e \:043c\:0430\:0445\:0430\:043b\:043e:\n",
 ButtonBox["https://learn.fmi.uni-sofia.bg/mod/resource/view.php?id=130889",
  BaseStyle->"Hyperlink",
  ButtonData->{
    URL["https://learn.fmi.uni-sofia.bg/mod/resource/view.php?id=130889"], 
    None},
  ButtonNote->
   "https://learn.fmi.uni-sofia.bg/mod/resource/view.php?id=130889"],
 "\n\:0414\:0430 \:0441\:0435 \:0441\:044a\:0437\:0434\:0430\:0434\:0435 \
\:0430\:043d\:0438\:043c\:0430\:0446\:0438\:044f \:043d\:0430 \:043c\:0430\
\:0445\:0430\:043b\:043e\:0442\:043e. \:0417\:0430 \:0446\:0435\:043b\:0442\
\:0430 \:0435 \:0432\:044a\:0432\:0435\:0434\:0435\:043d\:0430 \:043f\:043e\
\:0434\:0445\:043e\:0434\:044f\:0449\:0430 \:043a\:043e\:043e\:0440\:0434\
\:0438\:043d\:0430\:0442\:043d\:0430 \:0441\:0438\:0441\:0442\:0435\:043c\
\:0430 \:0438 \:0432 \:043d\:0435\:044f \:0441\:0430 \:0434\:0430\:0434\:0435\
\:043d\:0438 \:0441\:043b\:0435\:0434\:043d\:0438\:0442\:0435 5 \:0441\:0446\
\:0435\:043d\:0438 \:043e\:0442 \:0434\:0432\:0438\:0436\:0435\:043d\:0438\
\:0435\:0442\:043e \:043d\:0430 \:043c\:0430\:0445\:0430\:043b\:043e\:0442\
\:043e:\n\n",
 Cell[BoxData[
  TagBox[GridBox[{
     {
      GraphicsBox[{CircleBox[{0., 0.}, 0.25], LineBox[{{0., 0.}, {0.5, 1}}], 
        {PointSize[Medium], PointBox[{{0.5, 1}, {0., 0.}}]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(0.5, 1)\"\>", {0.4, 1.05}, Center]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(0.,0.)\"\>", {-0.1, 0.06999999999999999}]}},
       Axes->True,
       PlotRange->{{-0.25, 1.25}, {-0.75, 1.1}}], 
      GraphicsBox[{CircleBox[{0.5, -0.4}, 0.25], 
        LineBox[{{0.5, -0.4}, {0.5, 1}}], 
        {PointSize[Medium], PointBox[{{0.5, 1}, {0.5, -0.4}}]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(0.5, 1)\"\>", {0.5, 1.05}, Center]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(0.5,-0.4)\"\>", {0.5, -0.47000000000000003}]}},
       Axes->True,
       PlotRange->{{-0.25, 1.25}, {-0.75, 1.1}}], 
      GraphicsBox[{CircleBox[{1., 0.}, 0.25], LineBox[{{1., 0.}, {0.5, 1}}], 
        {PointSize[Medium], PointBox[{{0.5, 1}, {1., 0.}}]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(0.5, 1)\"\>", {0.6, 1.05}, Center]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(1.,0.)\"\>", {1.1, 0.06999999999999999}]}},
       Axes->True,
       PlotRange->{{-0.25, 1.25}, {-0.75, 1.1}}], 
      GraphicsBox[{CircleBox[{0.5, -0.4}, 0.25], 
        LineBox[{{0.5, -0.4}, {0.5, 1}}], 
        {PointSize[Medium], PointBox[{{0.5, 1}, {0.5, -0.4}}]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(0.5, 1)\"\>", {0.5, 1.05}, Center]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(0.5,-0.4)\"\>", {0.5, -0.47000000000000003}]}},
       Axes->True,
       PlotRange->{{-0.25, 1.25}, {-0.75, 1.1}}], 
      GraphicsBox[{CircleBox[{0., 0.}, 0.25], LineBox[{{0., 0.}, {0.5, 1}}], 
        {PointSize[Medium], PointBox[{{0.5, 1}, {0., 0.}}]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(0.5, 1)\"\>", {0.4, 1.05}, Center]}, 
        {RGBColor[1, 0, 0], 
         InsetBox["\<\"(0.,0.)\"\>", {-0.1, 0.06999999999999999}]}},
       Axes->True,
       PlotRange->{{-0.25, 1.25}, {-0.75, 1.1}}]},
     {
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"t=0\"\>",
          StripOnInput->False,
          FontSize->25,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "8fb41170-8456-4c7f-baa3-64ed43c2ed85"],
       Text[
        Style["t=0", FontSize -> 25, FontColor -> GrayLevel[0]]]], 
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"t=1\"\>",
          StripOnInput->False,
          FontSize->25,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "17d5a777-c37b-4597-b520-520a90723a17"],
       Text[
        Style["t=1", FontSize -> 25, FontColor -> GrayLevel[0]]]], 
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"t=2\"\>",
          StripOnInput->False,
          FontSize->25,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "322533f1-fddc-4c01-bfa1-46000c41296b"],
       Text[
        Style["t=2", FontSize -> 25, FontColor -> GrayLevel[0]]]], 
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"t=3\"\>",
          StripOnInput->False,
          FontSize->25,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "ee290ed0-931d-46c2-9f16-7644e52d6791"],
       Text[
        Style["t=3", FontSize -> 25, FontColor -> GrayLevel[0]]]], 
      InterpretationBox[Cell[BoxData[
        FormBox[
         StyleBox["\<\"t=4\"\>",
          StripOnInput->False,
          FontSize->25,
          FontColor->GrayLevel[0]], TextForm]], "InlineText",ExpressionUUID->
        "1d5d991f-9a01-4878-af5a-fb99c983f7f0"],
       Text[
        Style["t=4", FontSize -> 25, FontColor -> GrayLevel[0]]]]}
    },
    AutoDelete->False,
    GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}}],
   "Grid"]], "Output",
  CellChangeTimes->{{3.7836073780085616`*^9, 3.7836074012661057`*^9}},
  ExpressionUUID->"511e3f94-f7b1-4a08-9d68-e9e80169119e"],
 "\n\n\:0423\:043f\:044a\:0442\:0432\:0430\:043d\:0435 : \:0417\:0430 \:0434\
\:0430 \:0430\:043d\:0438\:043c\:0438\:0440\:0430\:043c\:0435 \:043c\:0430\
\:0445\:0430\:043b\:043e\:0442\:043e \:0435 \:0434\:043e\:0441\:0442\:0430\
\:0442\:044a\:0447\:043d\:043e \:0434\:0430 \:043c\:043e\:0436\:0435\:043c \
\:0434\:0430 \:043f\:0440\:0435\:0441\:043c\:044f\:0442\:0430\:043c\:0435 \
\:043a\:043e\:043e\:0440\:0434\:0438\:043d\:0430\:0442\:0438\:0442\:0435 \
\:043d\:0430 \:043d\:0435\:0433\:043e\:0432\:0438\:044f \:0446\:0435\:043d\
\:0442\:044a\:0440 (x(t), y(t)), \:043a\:043e\:0438\:0442\:043e \:0441\:0430 \
\:0444\:0443\:043d\:043a\:0446\:0438\:0438 \:043d\:0430 \:0432\:0440\:0435\
\:043c\:0435\:0442\:043e. \:0417\:0430 \:0446\:0435\:043b\:0442\:0430 \:0449\
\:0435 \:043f\:043e\:0441\:0442\:0440\:043e\:0438\:043c 2 \:043e\:0431\:043e\
\:0431\:0449\:0435\:043d\:0438 \:043f\:043e\:043b\:0438\:043d\:043e\:043c\
\:0430 x (t) \:0438 y (t), \:043a\:043e\:0438\:0442\:043e  \:0438\:043d\:0442\
\:0435\:0440\:043f\:043e\:043b\:0438\:0440\:0430\:0442 \:0434\:0430\:043d\
\:043d\:0438\:0442\:0435:\n",
 Cell[BoxData[GridBox[{
    {"t", "0", "1", "2", "3", "4"},
    {
     RowBox[{"x", 
      RowBox[{"(", "t", ")"}]}], "0", "0.5", "1", "0.5", "0"},
    {
     RowBox[{"y", 
      RowBox[{"(", "t", ")"}]}], "0", 
     RowBox[{"-", "0.4"}], "0", 
     RowBox[{"-", "0.4"}], "0"}
   },
   GridBoxDividers->{
    "Columns" -> {{True}}, "ColumnsIndexed" -> {}, "Rows" -> {{True}}, 
     "RowsIndexed" -> {}}]], "Section",ExpressionUUID->
  "52071868-25ad-42b2-9e63-10106b93339e"],
 "\n\:041f\:043e\:043d\:0435\:0436\:0435 \:0434\:0430\:043d\:043d\:0438\:0442\
\:0435 \:0441\:0430 \:043f\:0435\:0440\:0438\:043e\:0434\:0438\:0447\:043d\
\:0438 (\:0441 \:043f\:0435\:0440\:0438\:043e\:0434 T=4), \:0442\:043e \:0435 \
\:043f\:043e\:0434\:0445\:043e\:0434\:044f\:0449\:043e \:0434\:0430 \:0442\
\:044a\:0440\:0441\:0438\:043c \:0442\:0440\:0438\:0433\:043e\:043d\:043e\
\:043c\:0435\:0442\:0440\:0438\:0447\:0435\:043d \:043f\:043e\:043b\:0438\
\:043d\:043e\:043c. \:041e\:0431\:044a\:0440\:043d\:0435\:0442\:0435 \:0432\
\:043d\:0438\:043c\:0430\:043d\:0438\:0435, \:0447\:0435 \:0432 \:043c\:043e\
\:043c\:0435\:043d\:0442\:0430 \:0434\:0430\:043d\:043d\:0438\:0442\:0435 \
\:043d\:0435 \:0441\:0430 \:0432 \:0438\:043d\:0442\:0435\:0440\:0432\:0430\
\:043b\:0430 [0,2\[Pi]), \:043a\:043e\:0435\:0442\:043e \:043e\:0437\:043d\
\:0430\:0447\:0430\:0432\:0430, \:0447\:0435 \:043d\:0435 \:0435 \:0433\:0430\
\:0440\:0430\:043d\:0442\:0438\:0440\:0430\:043d\:043e, \:0447\:0435 \:0441\
\:044a\:0449\:0435\:0441\:0442\:0432\:0443\:0432\:0430 \:0435\:0434\:0438\
\:043d\:0441\:0442\:0432\:0435\:043d \:043f\:043e\:043b\:0438\:043d\:043e\
\:043c, \:043a\:043e\:0439\:0442\:043e \:0433\:0438 \:0438\:043d\:0442\:0435\
\:0440\:043e\:043b\:0438\:0440\:0430. \:041f\:043e\:0440\:0430\:0434\:0438 \
\:0442\:043e\:0432\:0430 \:0435 \:043d\:0435\:043e\:0431\:0445\:043e\:0434\
\:0438\:043c\:043e \:0434\:0430 \:0441\:0435 \:043d\:0430\:043f\:0440\:0430\
\:0432\:0438 \:0441\:043c\:044f\:043d\:0430 \:043d\:0430 \:043f\:0440\:043e\
\:043c\:0435\:043d\:043b\:0438\:0432\:0430\:0442\:0430 t, \:043f\:0440\:0438\
\:043d\:0430\:0434\:043b\:0435\:0436\:0430\:0449\:0430 \:043d\:0430 \:0438\
\:043d\:0442\:0435\:0440\:0432\:0430\:043b\:0430 [0,4], \:0432 \:043f\:0440\
\:043e\:043c\:0435\:043d\:043b\:0438\:0432\:0430\:0442\:0430 ",
 Cell[BoxData[
  FormBox[
   SubscriptBox["t", "1"], TraditionalForm]],ExpressionUUID->
  "9242c349-4625-4588-a62c-00214f74a72c"],
 " \:0432 \:0438\:043d\:0442\:0435\:0440\:0432\:0430\:043b\:0430 [0,2\[Pi]). "
}], "Section",
 CellChangeTimes->{{3.752559183948251*^9, 3.752559205842282*^9}, {
   3.7835953863231792`*^9, 3.7835953965942383`*^9}, {3.7835954542839365`*^9, 
   3.7835954977967653`*^9}, {3.783600422271787*^9, 3.7836004914978166`*^9}, {
   3.783600534131155*^9, 3.7836006059805775`*^9}, 3.783602993132295*^9, {
   3.7836031022034397`*^9, 3.7836031396827593`*^9}, {3.7836032063711996`*^9, 
   3.783603301163349*^9}, {3.783605347664527*^9, 3.783605405440107*^9}, {
   3.7836072208694572`*^9, 3.7836072518375454`*^9}, {3.783607283014511*^9, 
   3.7836073657446527`*^9}, {3.7836074211885834`*^9, 3.783607449966934*^9}, {
   3.783607493083011*^9, 3.783607510374008*^9}, {3.783607616609538*^9, 
   3.7836077892313027`*^9}, {3.7836079662079115`*^9, 
   3.7836079666566515`*^9}, {3.7836081099058046`*^9, 
   3.7836081188546104`*^9}, {3.783608221906001*^9, 3.7836083237310987`*^9}, {
   3.783608392476349*^9, 3.7836084602881055`*^9}, {3.783608501951003*^9, 
   3.7836086094048643`*^9}, 3.7836123934967504`*^9, {3.7836129925830503`*^9, 
   3.783612995225504*^9}},
 FontFamily->
  "Times New Roman",ExpressionUUID->"9d6e7ae4-e499-405b-8a27-ef27b37ff167"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Animate", "[", 
  RowBox[{
   RowBox[{"Graphics", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Circle", "[", 
        RowBox[{
         StyleBox[
          RowBox[{"{", 
           RowBox[{"0", ",", "0"}], "}"}],
          Background->RGBColor[1, 1, 0]], ",", "0.25"}], "]"}], ",", 
       RowBox[{"Line", "[", 
        RowBox[{"{", 
         RowBox[{
          StyleBox[
           RowBox[{"{", 
            RowBox[{"0", ",", "0"}], "}"}],
           Background->RGBColor[1, 1, 0]], ",", 
          RowBox[{"{", 
           RowBox[{"0.5", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", "\t\t\t\t", 
     RowBox[{"PlotRange", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.25"}], ",", "1.25"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.75"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", " ", 
     RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{"t", ",", "0", ",", 
     RowBox[{"2", "Pi"}], ",", "0.1"}], "}"}], ",", 
   RowBox[{"AnimationRate", "\[Rule]", "5"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.7836124086849623`*^9, 3.78361244142303*^9}, {
  3.783612492914241*^9, 3.7836125218994904`*^9}},
 FontFamily->
  "Times New Roman",ExpressionUUID->"cda819b0-ca37-47c9-b02d-d4cf08d806c7"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`t$$ = 3.9000000000000004`, Typeset`show$$ = 
    True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", 
    Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = 
    "\"untitled\"", Typeset`specs$$ = {{
      Hold[$CellContext`t$$], 0, 2 Pi, 0.1}}, Typeset`size$$ = {
    351., {213., 219.}}, Typeset`update$$ = 0, Typeset`initDone$$, 
    Typeset`skipInitDone$$ = True, $CellContext`t$2171$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, "Variables" :> {$CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`t$$, $CellContext`t$2171$$, 0]}, 
      "OtherVariables" :> {
       Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, 
        Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, 
        Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$,
         Typeset`skipInitDone$$}, "Body" :> Graphics[{
         Circle[{0, 0}, 0.25], 
         Line[{{0, 0}, {0.5, 1}}]}, 
        PlotRange -> {{-0.25, 1.25}, {-0.75, 1.1}}, Axes -> True], 
      "Specifications" :> {{$CellContext`t$$, 0, 2 Pi, 0.1, AnimationRate -> 
         5, AppearanceElements -> {
          "ProgressSlider", "PlayPauseButton", "FasterSlowerButtons", 
           "DirectionButton"}}}, 
      "Options" :> {
       ControlType -> Animator, AppearanceElements -> None, DefaultBaseStyle -> 
        "Animate", DefaultLabelStyle -> "AnimateLabel", SynchronousUpdating -> 
        True, ShrinkingDelay -> 10.}, "DefaultOptions" :> {}],
     ImageSizeCache->{402., {252., 258.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Animate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{{3.7835893664116063`*^9, 3.783589382967041*^9}, {
   3.7835894628178325`*^9, 3.7835895650836754`*^9}, {3.783594570335351*^9, 
   3.7835945966581097`*^9}, {3.7835948407003393`*^9, 3.7835948932639313`*^9}, 
   3.7836033339164014`*^9, 3.7836054405877743`*^9, 3.7836054759803*^9, 
   3.783606459389355*^9, 3.783606686798809*^9, {3.7836080090011563`*^9, 
   3.7836080243402863`*^9}, 3.7836088476261024`*^9, 3.7836121827528567`*^9, 
   3.7836125229808483`*^9},
 FontFamily->
  "Times New Roman",ExpressionUUID->"1a4d4801-299d-4ca4-bb95-7f331389441d"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell[TextData[{
 "3 \:0437\:0430\:0434. \:0414\:0430\:0434\:0435\:043d\:0438 \:0441\:0430 \
\:0442\:043e\:0447\:043a\:0438\:0442\:0435\n\:0430) (0,1),(1,2), (2,3), ..., \
(10,11);\n\:0411) (0,1), (1,2), (2,3), ..., (500, 501). \n\:0417\:0430 \:0432\
\:0441\:044f\:043a\:0430 \:0435\:0434\:043d\:0430 \:043e\:0442 \:043f\:043e\
\:0434\:0442\:043e\:0447\:043a\:0438\:0442\:0435 \:0434\:0430 \:0441\:0435 \
\:043d\:0430\:043c\:0435\:0440\:0438 \:043e\:0431\:043e\:0431\:0449\:0435\
\:043d \:043f\:043e\:043b\:0438\:043d\:043e\:043c ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      SubscriptBox["a", "0"], "+", 
      RowBox[{
       SubscriptBox["a", "1"], "x"}], "+", 
      RowBox[{
       SubscriptBox["a", "2"], 
       SuperscriptBox["x", "2"]}], "+"}], "..."}], ".", 
    RowBox[{"+", 
     SubscriptBox["a", "n"]}]}], 
   SuperscriptBox["x", "n"]}]],
  CellChangeTimes->{{3.783609590891136*^9, 3.7836096246486254`*^9}},
  ExpressionUUID->"eb9f1105-1d0e-435e-861b-b5ce7c45d0a0"],
 ", \:043a\:043e\:0439\:0442\:043e \:0434\:0430 \
\:0438\:043d\:0442\:0435\:0440\:043f\:043e\:043b\:0438\:0440\:0430 \:0442\
\:043e\:0447\:043a\:0438\:0442\:0435, \:043a\:0430\:0442\:043e \:0437\:0430 \
\:0446\:0435\:043b\:0442\:0430 \:0438\:0437\:043f\:043e\:043b\:0437\:0432\
\:0430\:0442\:0435 \:0444\:0443\:043d\:043a\:0446\:0438\:0438\:0442\:0435 \
\:0432 Wolfram Mathematica Sum, Table \:0438 NSolve. \:0421\:0440\:0430\:0432\
\:043d\:0435\:0442\:0435 \:043f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\
\:0442\:0435 \:0440\:0435\:0437\:0443\:043b\:0442\:0430\:0442\:0438 \:0441 \
\:0442\:043e\:0447\:043d\:043e\:0442\:043e \:0440\:0435\:0448\:0435\:043d\
\:0438\:0435 1+x."
}], "Section",
 CellChangeTimes->{{3.752556713635252*^9, 3.75255673155628*^9}, {
  3.7525590382159805`*^9, 3.7525590895400567`*^9}, {3.7836088548659143`*^9, 
  3.783609001777931*^9}, {3.783609527351888*^9, 3.7836095420733733`*^9}, {
  3.7836095831446147`*^9, 3.7836095874181423`*^9}, {3.783609632253209*^9, 
  3.7836097429601674`*^9}, {3.783609832208555*^9, 3.783609862617968*^9}, {
  3.7836101743446307`*^9, 3.7836101861947737`*^9}},
 FontFamily->
  "Times New Roman",ExpressionUUID->"96eb62c5-d107-49ff-934c-7b15ffcbcd99"],

Cell[BoxData["\[IndentingNewLine]"], "Input",
 CellChangeTimes->{3.7836126095787535`*^9},
 FontFamily->
  "Times New Roman",ExpressionUUID->"8f643b93-aae8-43ef-b740-a30a108d963f"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"4", " ", 
   RowBox[{
   "\:0437\:0430\:0434", ".", " ", 
    "\:041d\:0430\:043f\:0438\:0448\:0435\:0442\:0435"}], " ", 
   "\:0444\:0443\:043d\:043a\:0446\:0438\:044f", " ", 
   RowBox[{"trigLagrange", "[", 
    RowBox[{"nodes_", ",", "values_", ",", "x_"}], "]"}]}], ",", 
  RowBox[{
  "\:043a\:043e\:044f\:0442\:043e", " ", "\:0434\:0430", " ", 
   "\:043f\:0440\:0435\:0441\:043c\:044f\:0442\:0430", " ", 
   "\:043e\:0431\:043e\:0431\:0449\:0435\:043d", " ", 
   "\:0442\:0440\:0438\:0433\:043e\:043d\:043e\:043c\:0435\:0442\:0440\:0438\
\:0447\:0435\:043d", " ", "\:043f\:043e\:043b\:0438\:043d\:043e\:043c", " ", 
   "\[Tau]", 
   RowBox[{"(", "x", ")"}], " ", "\:043f\:043e", " ", 
   "\:0434\:0430\:0434\:0435\:043d\:0438", " ", 
   "\:0432\:044a\:0437\:043b\:0438", " ", "nodes", " ", "\:0438", " ", 
   "\:0441\:0442\:043e\:0439\:043d\:043e\:0441\:0442\:0438", " ", "values"}], 
  ",", " ", 
  RowBox[{
  "\:0438\:0437\:043f\:043e\:043b\:0437\:0432\:0430\:0439\:043a\:0438", " ", 
   "\:0438\:043d\:0442\:0435\:0440\:043f\:043e\:043b\:0430\:0446\:0438\:043e\
\:043d\:043d\:0430\:0442\:0430", " ", 
   "\:0444\:043e\:0440\:043c\:0443\:043b\:0430", " ", "\:043d\:0430", " ", 
   RowBox[{
   "\:041b\:0430\:0433\:0440\:0430\:043d\:0436", ".", "  ", "\:0412"}], " ", 
   "\:043d\:0435\:044f", " ", "\:0432\:043c\:0435\:0441\:0442\:043e", " ", 
   "\:0434\:0430", " ", 
   "\:0438\:0437\:043f\:043e\:043b\:0437\:0432\:0430\:0442\:0435", "  ", 
   "\:0431\:0430\:0437\:0438\:0441\:043d\:0438\:0442\:0435", " ", 
   "\:043f\:043e\:043b\:0438\:043d\:043e\:043c\:0438", " ", "\:043d\:0430", 
   " ", "\:041b\:0430\:0433\:0440\:0430\:043d\:0436"}], ",", " ", 
  RowBox[{
   RowBox[{
   "\:0438\:0437\:043f\:043e\:043b\:0437\:0432\:0430\:0439\:0442\:0435", " ", 
    "\:0441\:043b\:0435\:0434\:043d\:0438\:044f", " ", 
    RowBox[{"\:0431\:0430\:0437\:0438\:0441", ":", "\[IndentingNewLine]", 
     RowBox[{
      SubscriptBox["\[Tau]", "k"], 
      RowBox[{"(", "x", ")"}]}]}]}], "=", 
   RowBox[{
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Sin", "[", 
           FractionBox[
            RowBox[{"x", "-", 
             SubscriptBox["x", "0"]}], "2"], "]"}], "..."}], 
         RowBox[{"Sin", "[", 
          FractionBox[
           RowBox[{"x", "-", 
            SubscriptBox["x", 
             RowBox[{"k", "-", "1"}]]}], "2"], "]"}], 
         RowBox[{"Sin", "[", 
          FractionBox[
           RowBox[{"x", "-", 
            SubscriptBox["x", 
             RowBox[{"k", "+", "1"}]]}], "2"], "]"}]}], "..."}], 
       RowBox[{"Sin", "[", 
        FractionBox[
         RowBox[{"x", "-", 
          SubscriptBox["x", "n"]}], "2"], "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"Sin", "[", 
           FractionBox[
            RowBox[{
             SubscriptBox["x", "k"], "-", 
             SubscriptBox["x", "0"]}], "2"], "]"}], "..."}], 
         RowBox[{"Sin", "[", 
          FractionBox[
           RowBox[{
            SubscriptBox["x", "k"], "-", 
            SubscriptBox["x", 
             RowBox[{"k", "-", "1"}]]}], "2"], "]"}], 
         RowBox[{"Sin", "[", 
          FractionBox[
           RowBox[{
            SubscriptBox["x", "k"], "-", 
            SubscriptBox["x", 
             RowBox[{"k", "+", "1"}]]}], "2"], "]"}]}], "..."}], 
       RowBox[{"Sin", "[", 
        FractionBox[
         RowBox[{
          SubscriptBox["x", "k"], "-", 
          SubscriptBox["x", "n"]}], "2"], "]"}]}]], ".", 
     "\[IndentingNewLine]", 
     "\:0422\:0435\:0441\:0442\:0432\:0430\:0439\:0442\:0435"}], " ", 
    "\:0444\:0443\:043d\:043a\:0446\:0438\:044f\:0442\:0430", " ", 
    "\:0432\:044a\:0440\:0445\:0443", " ", 
    "\:0437\:0430\:0434\:0430\:0447\:0430", " ", "1.", " ", 
    "\:0421\:0440\:0430\:0432\:043d\:0435\:0442\:0435", " ", 
    "\:043f\:043e\:043b\:0443\:0447\:0435\:043d\:0438\:0442\:0435", " ", 
    RowBox[{
    "\:0440\:0435\:0437\:0443\:043b\:0442\:0430\:0442\:0438", ".", 
     " "}]}]}]}]], "Section",
 CellChangeTimes->{{3.7836102771371675`*^9, 3.783610326253773*^9}, {
  3.7836103631574097`*^9, 3.7836106101665225`*^9}, {3.7836106574351788`*^9, 
  3.7836109792670145`*^9}, {3.783612685554823*^9, 3.7836127005281615`*^9}, {
  3.783613013616866*^9, 3.7836130358709927`*^9}},
 FontFamily->
  "Times New Roman",ExpressionUUID->"46dd6a10-bb3d-43f7-98c8-563088b53c2c"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"LagrangeBasis", "[", 
    RowBox[{"nodes_", ",", "k_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"Product", "[", 
    RowBox[{
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"k", "\[NotEqual]", "j"}], ",", 
       FractionBox[
        RowBox[{"x", "-", 
         RowBox[{"nodes", "[", 
          RowBox[{"[", "j", "]"}], "]"}]}], 
        RowBox[{
         RowBox[{"nodes", "[", 
          RowBox[{"[", "k", "]"}], "]"}], "-", 
         RowBox[{"nodes", "[", 
          RowBox[{"[", "j", "]"}], "]"}]}]], ",", "1"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"j", ",", "1", ",", 
       RowBox[{"Length", "[", "nodes", "]"}]}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Lagrange", "[", 
    RowBox[{"nodes_", ",", "values_", ",", "x_"}], "]"}], ":=", 
   RowBox[{"Expand", "[", 
    RowBox[{"Sum", "[", " ", 
     RowBox[{
      RowBox[{
       RowBox[{"values", "[", 
        RowBox[{"[", "i", "]"}], "]"}], "*", 
       RowBox[{"LangrangeBasis", "[", 
        RowBox[{"nodes", ",", "i", ",", "x"}], "]"}]}], ",", 
      RowBox[{"{", 
       RowBox[{"i", ",", "1", ",", 
        RowBox[{"Length", "[", "nodes", "]"}]}], "}"}]}], "]"}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Lagrange", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "1", ",", "2", ",", "3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"1", ",", "2", ",", "3", ",", "4", ",", "5"}], "}"}], ",", "x"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.7836110133952713`*^9, 3.7836113637925777`*^9}, {
  3.7836114200730224`*^9, 3.783611521646267*^9}, {3.7836117069970493`*^9, 
  3.7836117563325276`*^9}, {3.783612137802843*^9, 3.7836121416186357`*^9}, {
  3.7836126283868737`*^9, 3.783612628751681*^9}, {3.783612666500827*^9, 
  3.7836126712910547`*^9}, {3.7836127287298326`*^9, 3.783612842240326*^9}},
 FontFamily->
  "Times New Roman",ExpressionUUID->"3d15bc6f-d1db-41a7-9362-5297676bd5aa"],

Cell[BoxData[
 RowBox[{"1", "+", "x"}]], "Output",
 CellChangeTimes->{3.7836128117709503`*^9},
 FontFamily->
  "Times New Roman",ExpressionUUID->"f04c7c8b-df95-4519-8f5f-62c6bdf0aee2"]
}, Open  ]]
}, 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[579, 22, 611, 12, 148, "Title",ExpressionUUID->"8a381568-e438-4aa8-bb52-de88e9fc8a36"],
Cell[CellGroupData[{
Cell[1215, 38, 1744, 37, 225, "Section",ExpressionUUID->"d883f767-5b7d-47ce-90a5-9072a20d96b3"],
Cell[2962, 77, 177, 3, 48, "Input",ExpressionUUID->"154ee173-628b-40a1-b9c4-2c4875e6a4b0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3176, 85, 10097, 194, 854, "Section",ExpressionUUID->"9d6e7ae4-e499-405b-8a27-ef27b37ff167"],
Cell[CellGroupData[{
Cell[13298, 283, 1402, 40, 48, "Input",ExpressionUUID->"cda819b0-ca37-47c9-b02d-d4cf08d806c7"],
Cell[14703, 325, 2576, 49, 529, "Output",ExpressionUUID->"1a4d4801-299d-4ca4-bb95-7f331389441d"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[17328, 380, 2211, 42, 239, "Section",ExpressionUUID->"96eb62c5-d107-49ff-934c-7b15ffcbcd99"],
Cell[19542, 424, 179, 3, 48, "Input",ExpressionUUID->"8f643b93-aae8-43ef-b740-a30a108d963f"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19758, 432, 4465, 108, 346, "Section",ExpressionUUID->"46dd6a10-bb3d-43f7-98c8-563088b53c2c"],
Cell[CellGroupData[{
Cell[24248, 544, 1983, 52, 99, "Input",ExpressionUUID->"3d15bc6f-d1db-41a7-9362-5297676bd5aa"],
Cell[26234, 598, 184, 4, 32, "Output",ExpressionUUID->"f04c7c8b-df95-4519-8f5f-62c6bdf0aee2"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)