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

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[     14889,        419]
NotebookOptionsPosition[     14066,        391]
NotebookOutlinePosition[     14439,        407]
CellTagsIndexPosition[     14396,        404]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", "\t", 
  RowBox[{
  "\:0417\:0430\:0434\:0430\:0447\:0430", " ", "1.", " ", "\:0421", " ", 
   "Mathematica", " ", 
   "\:043f\:0440\:0435\:0441\:043c\:0435\:0442\:043d\:0435\:0442\:0435", " ", 
   "\:0441\:0443\:043c\:0430\:0442\:0430", " ", 
   RowBox[{
    UnderoverscriptBox["\[Sum]", 
     RowBox[{"k", "=", "1"}], "15"], 
    RowBox[{
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SqrtBox[
         RowBox[{"k", "+", "1"}]], "+", 
        SqrtBox["k"]}]], ".", " ", "\:041d\:0435"}], " ", 
     RowBox[{
     "\:0441\:0442\:0430\:0432\:0430", "?", " ", 
      "\:041e\:043f\:0438\:0442\:0430\:0439\:0442\:0435"}], " ", 
     RowBox[{
     "\:043f\:0440\:0438\:0431\:043b\:0438\:0436\:0435\:043d\:043e", 
      "!"}]}]}]}], "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.661419290803159*^9, 3.661419312249386*^9}, {
   3.66141936687151*^9, 3.661419397927286*^9}, {3.661419442103813*^9, 
   3.6614194451749887`*^9}, {3.6614194785248966`*^9, 
   3.6614195255095835`*^9}, {3.6614197832673264`*^9, 3.6614197851504345`*^9}, 
   3.661425764711446*^9, 3.661573308376793*^9, {3.6615734959359226`*^9, 
   3.6615735248427734`*^9}}],

Cell[BoxData[
 RowBox[{
  UnderoverscriptBox["\[Sum]", 
   RowBox[{"k", "=", "1"}], "15"], 
  FractionBox["1", 
   RowBox[{
    SqrtBox[
     RowBox[{"k", "+", "1"}]], "+", 
    SqrtBox["k"]}]], " ", 
  RowBox[{"(*", " ", 
   RowBox[{"\:041d\:0435", " ", 
    RowBox[{"\:0441\:0442\:0430\:0432\:0430", "!"}]}], " ", "*)"}]}]], "Input",
 CellChangeTimes->{{3.6614198036384916`*^9, 3.661419805191581*^9}, {
  3.661425800721505*^9, 3.66142580150255*^9}}],

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"k", "=", "1"}], "15"], 
   FractionBox["1", 
    RowBox[{
     SqrtBox[
      RowBox[{"k", "+", "1"}]], "+", 
     SqrtBox["k"]}]]}], "]"}]], "Input",
 CellChangeTimes->{{3.6614170608526134`*^9, 3.6614171291985226`*^9}, {
   3.661417179981427*^9, 3.6614172088290772`*^9}, 3.661417252566579*^9, {
   3.6614191163901834`*^9, 3.6614191824139595`*^9}}],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   UnderoverscriptBox["\[Sum]", 
    RowBox[{"k", "=", "1"}], "15"], 
   RowBox[{"(", 
    RowBox[{
     SqrtBox[
      RowBox[{"k", "+", "1"}]], "-", 
     SqrtBox["k"]}], ")"}], "  ", 
   RowBox[{"(*", " ", 
    RowBox[{
     RowBox[{
      FractionBox["1", 
       RowBox[{
        SqrtBox[
         RowBox[{"k", "+", "1"}]], "+", 
        SqrtBox["k"]}]], "*", 
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{"k", "+", "1"}]], "-", 
        SqrtBox["k"]}], 
       RowBox[{
        SqrtBox[
         RowBox[{"k", "+", "1"}]], "-", 
        SqrtBox["k"]}]]}], "=", 
     RowBox[{
      FractionBox[
       RowBox[{
        SqrtBox[
         RowBox[{"k", "+", "1"}]], "-", 
        SqrtBox["k"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"k", "+", "1"}], ")"}], "-", "k"}]], "=", 
      RowBox[{
       SqrtBox[
        RowBox[{"k", "+", "1"}]], "-", 
       SqrtBox["k"]}]}]}], " ", "*)"}]}]}]], "Input",
 CellChangeTimes->{{3.661424259646361*^9, 3.661424365162396*^9}, {
  3.6614243992943482`*^9, 3.661424405292691*^9}, {3.661425721463972*^9, 
  3.661425735662784*^9}}],

Cell[BoxData[
 RowBox[{"(*", "\[IndentingNewLine]", "\t", 
  RowBox[{
   RowBox[{
   "\:0417\:0430\:0434\:0430\:0447\:0430", " ", "2.", " ", 
    "\:041a\:0430\:0442\:043e", " ", 
    "\:0438\:0437\:043f\:043e\:043b\:0437\:0432\:0430\:0442\:0435", " ", 
    "Mathematica"}], ",", " ", 
   RowBox[{
    RowBox[{
     RowBox[{
     "\:0434\:0430", " ", "\:0441\:0435", " ", "\:0440\:0435\:0448\:0438", 
      " ", "\:0441\:0438\:0441\:0442\:0435\:043c\:0430\:0442\:0430", " ", 
      "\:043e\:0442", " ", 
      "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:044f", " ", 
      "\[IndentingNewLine]", "\t\t\t", 
      SuperscriptBox["x", "2"]}], " ", "+", " ", 
     SuperscriptBox["y", "2"], " ", "-", " ", "xy"}], " ", "=", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"21", "\[IndentingNewLine]", "\t\t\t   ", 
       SuperscriptBox["y", "2"]}], " ", "-", " ", 
      RowBox[{"2", "xy"}]}], " ", "=", " ", 
     RowBox[{"-", "15"}]}]}]}], "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.66141943557744*^9, 3.6614194739836364`*^9}, {
  3.6614195328890057`*^9, 3.6614195677459993`*^9}, {3.661419819245384*^9, 
  3.661419877602722*^9}, {3.6614201567686896`*^9, 3.6614201823801546`*^9}, {
  3.661420298554799*^9, 3.6614203068972764`*^9}, {3.661573205399845*^9, 
  3.661573211864215*^9}, {3.661573318610411*^9, 3.661573321309216*^9}, {
  3.6615738062048674`*^9, 3.6615738435513334`*^9}}],

Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "2"], " ", "+", " ", 
       SuperscriptBox["y", "2"], " ", "-", " ", 
       RowBox[{"x", "*", "y"}]}], " ", "==", " ", "21"}], " ", ",", " ", 
     RowBox[{
      RowBox[{
       SuperscriptBox["y", "2"], " ", "-", " ", 
       RowBox[{"2", "x", "*", "y"}]}], "==", " ", 
      RowBox[{"-", "15"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.661573858230959*^9, 3.6615739714091578`*^9}}],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"\[IndentingNewLine]", 
         RowBox[{
          RowBox[{
          "\:0417\:0430\:0434\:0430\:0447\:0430", " ", "3.", " ", 
           "\:0414\:0430\:0434\:0435\:043d\:0430", " ", "\:0435", " ", 
           "\:0444\:0443\:043d\:043a\:0446\:0438\:044f\:0442\:0430", " ", "f", 
           RowBox[{"(", "z", ")"}]}], "=", 
          RowBox[{
           SuperscriptBox["z", "4"], "-", 
           RowBox[{"3", 
            SuperscriptBox["z", "3"]}], "+", 
           RowBox[{"5", 
            SuperscriptBox["z", "2"]}], "-", 
           RowBox[{"7", "z"}], "+", 
           RowBox[{
           "11.", " ", "\:041a\:0430\:0442\:043e", " ", 
            "\:0438\:0437\:043f\:043e\:043b\:0437\:0432\:0430\:0442\:0435", 
            " ", 
            RowBox[{
            "Mathematica", ":", "\[IndentingNewLine]", "\t\t", 
             "\:0430"}]}]}]}], ")"}], " ", "\:0434\:0430", " ", 
        "\:0441\:0435", " ", 
        "\:043d\:0430\:0447\:0435\:0440\:0442\:0430\:044f\:0442", " ", 
        "\:043d\:0430", " ", "\:0435\:0434\:0438\:043d", " ", "\:0438", " ", 
        "\:0441\:044a\:0449", " ", "\:0447\:0435\:0440\:0442\:0435\:0436", 
        " ", "\:043a\:0440\:0438\:0432\:0438\:0442\:0435", " ", "Re", " ", 
        "f", 
        RowBox[{"(", 
         RowBox[{"x", "+", "iy"}], ")"}]}], "=", "0"}], ",", 
      "\[IndentingNewLine]", "\t\t\t\t  ", 
      RowBox[{
       RowBox[{"Im", " ", "f", 
        RowBox[{"(", 
         RowBox[{"x", "+", "iy"}], ")"}]}], "=", 
       RowBox[{
        RowBox[{
         RowBox[{"0", " ", "\:0438", " ", 
          SuperscriptBox["x", "2"]}], "+", 
         SuperscriptBox["y", "2"]}], "=", 
        RowBox[{
         RowBox[{
          RowBox[{"1", " ", "\:043f\:0440\:0438"}], " ", "-", "3"}], 
         "\[LessEqual]", "x", "\[LessEqual]", "3"}]}]}], ",", " ", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "3"}], "\[LessEqual]", "y", "\[LessEqual]", "3"}], ";", 
       "\[IndentingNewLine]", "\t\t\t   ", "\:0431"}]}], ")"}], " ", 
    "\:0438\:0437\:043f\:043e\:043b\:0437\:0432\:0430\:0439\:043a\:0438", " ",
     "\:0447\:0435\:0440\:0442\:0435\:0436\:0430"}], ",", " ", 
   RowBox[{
    RowBox[{
    "\:043d\:0430\:043c\:0435\:0440\:0435\:0442\:0435", " ", 
     "\:0431\:0440\:043e\:044f", " ", "\:043d\:0430", " ", 
     "\:043a\:043e\:0440\:0435\:043d\:0438\:0442\:0435", " ", "\:043d\:0430", 
     " ", "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0435\:0442\:043e\
", "\[IndentingNewLine]", "\t\t\t\t  ", "f", 
     RowBox[{"(", "z", ")"}]}], "=", "0"}], ",", " ", 
   RowBox[{
    RowBox[{"\:0437\:0430", " ", "\:043a\:043e\:0438\:0442\:043e", " ", 
     RowBox[{"\[LeftBracketingBar]", "x", "\[RightBracketingBar]"}]}], 
    "\[LessEqual]", "1."}]}], "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.6615732765989175`*^9, 3.6615732894306517`*^9}, {
  3.6615734897583117`*^9, 3.661573491708315*^9}, {3.6616244078268347`*^9, 
  3.6616244906785803`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"f", "[", "z_", "]"}], ":=", 
  RowBox[{
   SuperscriptBox["z", "4"], "-", 
   RowBox[{"3", 
    SuperscriptBox["z", "3"]}], "+", 
   RowBox[{"5", 
    SuperscriptBox["z", "2"]}], "-", 
   RowBox[{"7", "z"}], "+", "11"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"ContourPlot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       SuperscriptBox["x", "2"], "+", 
       SuperscriptBox["y", "2"]}], "==", "1"}], ",", 
     RowBox[{"Re", "[", 
      RowBox[{"f", "[", 
       RowBox[{"x", "+", 
        RowBox[{"I", "*", "y"}]}], "]"}], "]"}], ",", 
     RowBox[{"Im", "[", 
      RowBox[{"f", "[", 
       RowBox[{"x", "+", 
        RowBox[{"I", "*", "y"}]}], "]"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", 
     RowBox[{"-", "3"}], ",", "3"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"\[IndentingNewLine]", 
          RowBox[{
          "\:0417\:0430\:0434\:0430\:0447\:0430", " ", "4.", " ", 
           "\:0421\:044a\:0441", " ", 
           "\:0441\:0438\:0441\:0442\:0435\:043c\:0430\:0442\:0430", " ", 
           RowBox[{
           "Mathematica", ":", "\[IndentingNewLine]", "\t\t\t", "\:0430"}]}], 
          ")"}], " ", "\:0434\:0430", " ", "\:0441\:0435", " ", 
         "\:0433\:0435\:043d\:0435\:0440\:0438\:0440\:0430", " ", 
         "\:0442\:0440\:0438\:0434\:0438\:0430\:0433\:043e\:043d\:0430\:043b\
\:043d\:0430", " ", "\:043c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
         "\:0410", " ", "\:043e\:0442", " ", "\:0440\:0435\:0434", " ", 
         "10"}], ",", " ", 
        RowBox[{
         RowBox[{
         "\:0437\:0430", " ", "\:043a\:043e\:044f\:0442\:043e", 
          "\[IndentingNewLine]", "\t\t\t\t ", 
          SubscriptBox["\:0430", 
           RowBox[{"i", ",", "i"}]]}], "=", 
         RowBox[{"-", "1"}]}], ",", " ", 
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{"...", "10"}], ",", " ", 
        RowBox[{
         SubscriptBox["\:0430", 
          RowBox[{"i", ",", 
           RowBox[{"i", "+", "1"}]}]], "=", "1"}], ",", " ", 
        RowBox[{"i", "=", "1"}], ",", 
        RowBox[{
         RowBox[{"...", "9", " ", "\:0438", " ", 
          SubscriptBox["\:0430", 
           RowBox[{
            RowBox[{"i", "-", "1"}], ",", "i"}]]}], "=", "1"}], ",", " ", 
        RowBox[{"i", "=", "2"}], ",", 
        RowBox[{
         RowBox[{"...", "10"}], ";", "\[IndentingNewLine]", "\t\t\t\t", 
         "\:0431"}]}], ")"}], " ", "\:0434\:0430", " ", "\:0441\:0435", " ", 
      "\:043f\:0440\:0435\:0441\:043c\:0435\:0442\:043d\:0435", " ", 
      "\:0434\:0435\:0442\:0435\:0440\:043c\:0438\:043d\:0430\:043d\:0442\
\:0430", " ", "\:043d\:0430", " ", "\:0410"}], ";", "\[IndentingNewLine]", 
     "\t\t\t\t  ", "\:0432"}], ")"}], " ", "\:0434\:0430", " ", 
   "\:0441\:0435", " ", "\:043d\:0430\:043c\:0435\:0440\:0438", " ", 
   RowBox[{
    SuperscriptBox["\:0410", 
     RowBox[{"-", "1"}]], "."}]}], "\[IndentingNewLine]", "*)"}]], "Input",
 CellChangeTimes->{{3.661573536683194*^9, 3.6615735386799974`*^9}, {
  3.661624515045823*^9, 3.6616245199754314`*^9}}],

Cell[BoxData[
 RowBox[{"matrix", "=", 
  RowBox[{"Table", "[", "\[IndentingNewLine]", "\t\t\t", 
   RowBox[{
    RowBox[{"Table", "[", "\[IndentingNewLine]", "\t\t\t\t", 
     RowBox[{
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"i", "\[Equal]", "j"}], ",", 
        RowBox[{"-", "1"}], ",", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"i", "+", "1"}], "\[Equal]", "j"}], ",", "1", ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"i", "-", "1"}], "\[Equal]", "j"}], ",", "1", ",", "0"}],
            "]"}]}], "]"}]}], "]"}], ",", "\[IndentingNewLine]", "\t\t\t\t", 
      RowBox[{"{", 
       RowBox[{"j", ",", "1", ",", "10"}], "}"}]}], "\[IndentingNewLine]", 
     "\t\t\t\t", "]"}], ",", "\[IndentingNewLine]", "\t\t\t", 
    RowBox[{"{", 
     RowBox[{"i", ",", "1", ",", "10"}], "}"}]}], "\[IndentingNewLine]", 
   "\t\t\t", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:043c\:0430\:0442\:0440\:0438\:0446\:0430", " ", "10", "\:044510"}], " ",
    "*)"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "matrix", "]"}]], "Input"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Det", "[", "matrix", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:0434\:0435\:0442\:0435\:0440\:043c\:0438\:043d\:0430\:043d\:0442\:0430\
\:0442\:0430", " ", "\:043d\:0430", " ", 
    "\:043c\:0430\:0442\:0440\:0438\:0446\:0430\:0442\:0430"}], " ", 
   "*)"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"inverseMatrix", "=", 
  RowBox[{"Inverse", "[", "matrix", "]"}], " ", 
  RowBox[{"(*", " ", 
   RowBox[{
   "\:043e\:0431\:0440\:0430\:0442\:043d\:0430\:0442\:0430", " ", 
    "\:043c\:0430\:0442\:0440\:0438\:0446\:0430"}], " ", "*)"}]}]], "Input"],

Cell[BoxData[
 RowBox[{"MatrixForm", "[", "inverseMatrix", "]"}]], "Input"]
},
WindowSize->{1350, 633},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>1.5 Inherited,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 1210, 28, 119, "Input"],
Cell[1770, 50, 451, 13, 85, "Input"],
Cell[2224, 65, 439, 12, 85, "Input"],
Cell[2666, 79, 1169, 42, 118, "Input"],
Cell[3838, 123, 1404, 29, 162, "Input"],
Cell[5245, 154, 592, 17, 50, "Input"],
Cell[5840, 173, 3072, 71, 224, "Input"],
Cell[8915, 246, 267, 9, 47, "Input"],
Cell[9185, 257, 670, 22, 50, "Input"],
Cell[9858, 281, 2375, 54, 220, "Input"],
Cell[12236, 337, 1084, 28, 220, "Input"],
Cell[13323, 367, 68, 1, 45, "Input"],
Cell[13394, 370, 315, 8, 45, "Input"],
Cell[13712, 380, 272, 6, 45, "Input"],
Cell[13987, 388, 75, 1, 45, "Input"]
}
]
*)

(* End of internal cache information *)