(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[     74018,       1572]
NotebookOptionsPosition[     72453,       1525]
NotebookOutlinePosition[     72797,       1540]
CellTagsIndexPosition[     72754,       1537]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[TextData[StyleBox["\:0414\:043e\:043c\:0430\:0448\:043d\:0435\:0435 \
\:0437\:0430\:0434\:0430\:043d\:0438\:0435. \:0420\:0430\:0441\:0447\:0435\
\:0442 \:043f\:043e\:0440\:043e\:0433\:0430 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f.",
 FontFamily->"Times New Roman",
 FontSize->20,
 FontWeight->"Bold"]], "Text",
 CellChangeTimes->{{3.513663416796875*^9, 3.5136634295625*^9}, {
  3.513663476046875*^9, 3.5136634871875*^9}, {3.513664130421875*^9, 
  3.513664139640625*^9}}],

Cell[TextData[StyleBox["\:041a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\
\:043d\:0442\:044b \:043b\:0438\:043d\:0435\:0439\:043d\:043e\:0439 \:043c\
\:043e\:0434\:0435\:043b\:0438 \:0441\:0430\:043c\:043e\:043b\:0435\:0442\
\:0430 \:0434\:043b\:044f \:0440\:0430\:0437\:043b\:0438\:0447\:043d\:044b\
\:0445 \:0440\:0435\:0436\:0438\:043c\:043e\:0432:",
 FontFamily->"Times New Roman",
 FontSize->14]], "Text",
 CellChangeTimes->{{3.5136548068125*^9, 3.513654849765625*^9}, {
  3.513654896515625*^9, 3.51365490103125*^9}, {3.513655120296875*^9, 
  3.5136551215625*^9}, {3.513663434640625*^9, 3.513663448171875*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"c1", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "0.560", ",", " ", "0.560", ",", " ", "0.496", ",", " ", "0.496", ",", 
     " ", "0.670", ",", " ", "0.670", ",", " ", "0.590", ",", " ", "0.590", 
     ",", " ", "1.100", ",", " ", "1.100", ",", " ", "0.940", ",", " ", 
     "0.940", ",", " ", "0.760", ",", " ", "0.760", ",", " ", "0.880", ",", 
     " ", "0.880", ",", " ", "0.668", ",", " ", "0.668", ",", " ", "0.793", 
     ",", " ", "0", ",", "793"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c2", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "1.635", ",", " ", "0.922", ",", " ", "1.273", ",", " ", "0.718", ",", 
     " ", "1.864", ",", " ", "0.655", ",", " ", "1.200", ",", " ", "0.245", 
     ",", " ", "1.864", ",", " ", "0.569", ",", " ", "2.259", ",", " ", 
     "0.0726", ",", " ", "2.640", ",", " ", "0.357", ",", " ", "3.337", ",", 
     " ", "0.404", ",", " ", "1.742", ",", " ", "0.056", ",", " ", "2.980", 
     ",", " ", "0.681"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c3", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "1.468", ",", " ", "1.468", ",", " ", "1.142", ",", " ", "1.142", ",", 
     " ", "2.570", ",", " ", "2.570", ",", " ", "2.071", ",", " ", "2.071", 
     ",", " ", "7.827", ",", " ", "7.827", ",", " ", "5.975", ",", " ", 
     "5.975", ",", " ", "5.617", ",", " ", "5.617", ",", " ", "7.028", ",", 
     " ", "7.028", ",", " ", "4.496", ",", " ", "4.496", ",", " ", "6.340", 
     ",", " ", "6.340"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c4", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "0.765", ",", " ", "0.765", ",", " ", "0.868", ",", " ", "0.868", ",", 
     " ", "1.053", ",", " ", "1.053", ",", " ", "0.944", ",", " ", "0.944", 
     ",", " ", "1.122", ",", " ", "1.122", ",", " ", "0.962", ",", " ", 
     "0.962", ",", " ", "0.864", ",", " ", "0.864", ",", " ", "0.987", ",", 
     " ", "0.987", ",", " ", "0.671", ",", " ", "0.671", ",", " ", "0.875", 
     ",", " ", "0.875"}], "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c5", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
    "0.160", ",", " ", "0.160", ",", " ", "0.168", ",", " ", "0.168", ",", 
     " ", "0.195", ",", " ", "0.195", ",", " ", "0.107", ",", " ", "0.107", 
     ",", " ", "0.314", ",", " ", "0.314", ",", " ", "0.269", ",", " ", 
     "0.269", ",", " ", "0.226", ",", " ", "0.226", ",", " ", "0.251", ",", 
     " ", "0.251", ",", " ", "0.191", ",", " ", "0.191", ",", " ", "0.226", 
     ",", " ", "0.226"}], "}"}]}], ";"}]}], "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.},
 CellChangeTimes->{{3.512566464470544*^9, 3.512566540592898*^9}, {
   3.51256657279574*^9, 3.512566700692055*^9}, 3.513559661265625*^9, {
   3.514036140229388*^9, 3.5140361742923365`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"MPS", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MTreg", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Mperereg", "=", 
   RowBox[{"{", "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"MT", "=", 
   RowBox[{"{", "}"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.51403311561839*^9, 3.514033157151766*^9}, {
  3.514033222541506*^9, 3.514033250401099*^9}, {3.514034239122651*^9, 
  3.5140342552345724`*^9}}],

Cell[BoxData[
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"rezim", "=", "1"}], ",", 
   RowBox[{"rezim", "\[LessEqual]", "20"}], ",", 
   RowBox[{"rezim", "++"}], ",", "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"OmegaA", "=", 
      RowBox[{"Sqrt", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"c1", "[", 
          RowBox[{"[", "rezim", "]"}], "]"}], "*", 
         RowBox[{"c4", "[", 
          RowBox[{"[", "rezim", "]"}], "]"}]}], "+", 
        RowBox[{"c2", "[", 
         RowBox[{"[", "rezim", "]"}], "]"}]}], "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:0421\:043e\:0431\:0441\:0442\:0432\:0435\:043d\:043d\:0430\:044f", 
       " ", "\:0447\:0430\:0441\:0442\:043e\:0442\:0430", " ", 
       "\:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\:0435\:0440\:0438\
\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\:043e", " ", 
       "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
       "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"TA", "=", 
      RowBox[{"1", "/", "OmegaA"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041f\:043e\:0441\:0442\:043e\:044f\:043d\:043d\:0430\:044f", " ", 
       "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", 
       "\:043a\:043e\:0440\:043e\:0442\:043a\:043e\:043f\:0435\:0440\:0438\
\:043e\:0434\:0438\:0447\:0435\:0441\:043a\:043e\:0433\:043e", " ", 
       "\:0434\:0432\:0438\:0436\:0435\:043d\:0438\:044f", " ", 
       "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"Tv", "=", 
      RowBox[{"1", "/", 
       RowBox[{"c4", "[", 
        RowBox[{"[", "rezim", "]"}], "]"}]}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041f\:043e\:0441\:0442\:043e\:044f\:043d\:043d\:0430\:044f", " ", 
       "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", 
       "\:0444\:043e\:0440\:0441\:0438\:0440\:0443\:044e\:0449\:0435\:0433\
\:043e", " ", "\:0437\:0432\:0435\:043d\:0430"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"Kc", "=", 
      RowBox[{
       RowBox[{"c3", "[", 
        RowBox[{"[", "rezim", "]"}], "]"}], "*", 
       RowBox[{
        RowBox[{"c4", "[", 
         RowBox[{"[", "rezim", "]"}], "]"}], "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"c1", "[", 
            RowBox[{"[", "rezim", "]"}], "]"}], "*", 
           RowBox[{"c4", "[", 
            RowBox[{"[", "rezim", "]"}], "]"}]}], "+", 
          RowBox[{"c2", "[", 
           RowBox[{"[", "rezim", "]"}], "]"}]}], ")"}]}]}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"ash", "=", 
      RowBox[{"2", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"c1", "[", 
           RowBox[{"[", "rezim", "]"}], "]"}], "+", 
          RowBox[{"c5", "[", 
           RowBox[{"[", "rezim", "]"}], "]"}], "-", 
          RowBox[{"c4", "[", 
           RowBox[{"[", "rezim", "]"}], "]"}]}], ")"}], "/", 
        RowBox[{"c3", "[", 
         RowBox[{"[", "rezim", "]"}], "]"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"bsh", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"(", 
           RowBox[{
            RowBox[{"c1", "[", 
             RowBox[{"[", "rezim", "]"}], "]"}], "+", 
            RowBox[{"c4", "[", 
             RowBox[{"[", "rezim", "]"}], "]"}], "+", 
            RowBox[{"c5", "[", 
             RowBox[{"[", "rezim", "]"}], "]"}]}], ")"}], "^", "2"}], "-", 
         RowBox[{"4", "*", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"c1", "[", 
              RowBox[{"[", "rezim", "]"}], "]"}], "*", 
             RowBox[{"c4", "[", 
              RowBox[{"[", "rezim", "]"}], "]"}]}], "+", 
            RowBox[{"c2", "[", 
             RowBox[{"[", "rezim", "]"}], "]"}]}], ")"}]}]}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"c3", "[", 
           RowBox[{"[", "rezim", "]"}], "]"}], ")"}], "^", "2"}], ")"}]}]}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"mu", "=", 
      RowBox[{"Abs", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "ash"}], "/", "2"}], "+", 
        RowBox[{"Sqrt", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{"ash", "^", "2"}], ")"}], "/", "4"}], "-", "bsh"}], 
         "]"}]}], "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\
\:0435", " ", "\:0447\:0438\:0441\:043b\:043e", " ", 
       "\:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\:0430", " ", 
       "\:043f\:043e", " ", "\:0441\:0438\:0433\:043d\:0430\:043b\:0443", " ",
        "\:0443\:0433\:043b\:043e\:0432\:043e\:0439", " ", 
       "\:0441\:043a\:043e\:0440\:043e\:0441\:0442\:0438", " ", 
       "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"Kcsh", "=", 
      RowBox[{"Kc", "/", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         RowBox[{"mu", "*", "Kc"}]}], ")"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"TAsh", "=", 
      RowBox[{"TA", "/", 
       RowBox[{"Sqrt", "[", 
        RowBox[{"1", "+", 
         RowBox[{"mu", "*", "Kc"}]}], "]"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{
        "\:041f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\
\:0435", " ", "\:0447\:0438\:0441\:043b\:043e", " ", 
         "\:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\:0430", " ", 
         "\:043f\:043e", " ", "\:0441\:0438\:0433\:043d\:0430\:043b\:0443", 
         " ", "\:0443\:0433\:043b\:0430", " ", 
         "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], " ", "-", " ", 
        "iv"}], ",", " ", 
       RowBox[{
        RowBox[{
        "g\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\:0435",
          " ", "\:0447\:0438\:0441\:043b\:043e", " ", 
         "\:0430\:0432\:0442\:043e\:043f\:0438\:043b\:043e\:0442\:0430", " ", 
         "\:043f\:043e", " ", "\:0441\:0438\:0433\:043d\:0430\:043b\:0443", 
         " ", "\:0438\:043d\:0442\:0435\:0433\:0440\:0430\:043b\:0430", " ", 
         "\:0443\:0433\:043b\:0430", " ", 
         "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], " ", "-", " ", 
        RowBox[{"nu", ":"}]}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"Tv", "<", 
        RowBox[{"(", 
         RowBox[{"10", "*", "TAsh"}], ")"}]}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"iv", "=", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{"Kcsh", "*", "Tv"}], ")"}]}]}], ",", " ", 
         RowBox[{"nu", "=", 
          RowBox[{"0.09", "/", 
           RowBox[{"(", 
            RowBox[{"Kcsh", "*", 
             RowBox[{"Tv", "^", "2"}]}], ")"}]}]}]}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"iv", "=", 
          RowBox[{"0.5", "/", 
           RowBox[{"(", 
            RowBox[{"Kcsh", "*", "Tv"}], ")"}]}]}], ",", " ", 
         RowBox[{"nu", "=", 
          RowBox[{"5", "/", 
           RowBox[{"(", 
            RowBox[{"Kcsh", "*", "Tv"}], " ", ")"}]}]}]}], "}"}]}], "]"}], 
     ";", "\[IndentingNewLine]", 
     RowBox[{"Tnu", "=", 
      RowBox[{"iv", "/", "nu"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"M1", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"s", "+", 
           RowBox[{"c1", "[", 
            RowBox[{"[", "rezim", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"c5", "[", 
             RowBox[{"[", "rezim", "]"}], "]"}], "*", "s"}], "+", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "rezim", "]"}], "]"}]}], ",", "0", ",", 
          RowBox[{"c3", "[", 
           RowBox[{"[", "rezim", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"s", "+", 
           RowBox[{"c4", "[", 
            RowBox[{"[", "rezim", "]"}], "]"}]}], ",", "0", ",", "0"}], "}"}],
         ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "0", ",", "s", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", 
          RowBox[{"nu", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Tnu", "*", "s"}], "+", "1"}], ")"}], "/", "s"}]}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";", 
     RowBox[{"(*", 
      RowBox[{
      "\:041c\:0430\:0442\:0440\:0438\:0446\:0430", " ", 
       "\:0441\:043e\:0441\:0442\:043e\:044f\:043d\:0438\:044f", " ", 
       "\:0441\:0432\:043e\:0431\:043e\:0434\:043d\:043e\:0433\:043e", " ", 
       "\:0441\:0430\:043c\:043e\:043b\:0435\:0442\:0430"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"M2", "=", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"s", "+", 
           RowBox[{"c1", "[", 
            RowBox[{"[", "rezim", "]"}], "]"}]}], ",", 
          RowBox[{
           RowBox[{
            RowBox[{"c5", "[", 
             RowBox[{"[", "rezim", "]"}], "]"}], "*", "s"}], "+", 
           RowBox[{"c2", "[", 
            RowBox[{"[", "rezim", "]"}], "]"}]}], ",", "0", ",", 
          RowBox[{"c3", "[", 
           RowBox[{"[", "rezim", "]"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", 
          RowBox[{"s", "+", 
           RowBox[{"c4", "[", 
            RowBox[{"[", "rezim", "]"}], "]"}]}], ",", "0", ",", "0"}], "}"}],
         ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "1"}], ",", "0", ",", "0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"mu", ",", "0", ",", 
          RowBox[{"nu", "*", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"Tnu", "*", "s"}], "+", "1"}], ")"}], "/", "s"}]}], ",", 
          RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";", 
     RowBox[{"(*", 
      RowBox[{"\:041c\:0430\:0442\:0440\:0438\:0446\:0430", ",", " ", 
       RowBox[{
       "\:0432", " ", "\:043a\:043e\:0442\:043e\:0440\:043e\:0439", " ", 
        "\:0441\:0442\:043e\:043b\:0431\:0435\:0446", " ", 
        "\:0441\:043e\:043e\:0442\:0432\:0435\:0442\:0441\:0442\:0432\:0443\
\:044e\:0449\:0438\:0439", " ", "\:0443\:0433\:043b\:0443", " ", 
        "\:0442\:0430\:043d\:0433\:0430\:0436\:0430", " ", 
        "\:0437\:0430\:043c\:0435\:043d\:0435\:043d", " ", "\:043d\:0430", 
        " ", "\:0441\:0442\:043e\:043b\:0431\:0435\:0446", " ", 
        "\:0441\:043e\:043e\:0442\:0432\:0435\:0442\:0441\:0442\:0432\:0443\
\:044e\:0449\:0438\:0439", " ", 
        "\:0437\:0430\:0434\:0430\:043d\:043d\:043e\:043c\:0443", " ", 
        "\:0443\:0433\:043b\:0443", " ", 
        "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}]}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"W", "=", 
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{"Det", "[", "M2", "]"}], "/", 
        RowBox[{"Det", "[", "M1", "]"}]}], "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "\:0420\:0430\:0441\:0447\:0435\:0442", " ", 
        "\:043f\:0435\:0440\:0435\:0434\:0430\:0442\:043e\:0447\:043d\:043e\
\:0439", " ", "\:0444\:0443\:043d\:043a\:0446\:0438\:0438"}], ",", " ", 
       RowBox[{
       "\:043a\:0430\:043a", " ", 
        "\:043e\:0442\:043d\:043e\:0448\:0435\:043d\:0438\:044f", " ", 
        "\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0438\:0442\:0435\:043b\
\:0435\:0439", " ", "\:043c\:0430\:0442\:0440\:0438\:0446", " ", "\:041c2", 
        " ", "\:0438", " ", "\:041c1"}]}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Wch", "=", 
      RowBox[{"W", "/.", 
       RowBox[{"s", "\[Rule]", 
        RowBox[{"I", "*", "om"}]}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"F1", "=", 
      RowBox[{
       RowBox[{"(", 
        RowBox[{"Abs", "[", "Wch", "]"}], ")"}], "^", "2"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"Fin", "=", "1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"Fout", "=", 
      RowBox[{"F1", "*", "Fin"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"pl", "=", 
      RowBox[{"NIntegrate", "[", 
       RowBox[{"Fout", ",", 
        RowBox[{"{", 
         RowBox[{"om", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"tochnost", "=", "6"}], ";", "\[IndentingNewLine]", 
     RowBox[{"om0", "=", "0"}], ";", "\[IndentingNewLine]", 
     RowBox[{"step", "=", "0.1"}], ";", "\[IndentingNewLine]", 
     RowBox[{"While", "[", 
      RowBox[{
       RowBox[{"step", "\[GreaterEqual]", 
        RowBox[{"10", "^", 
         RowBox[{"-", "tochnost"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"While", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{"NIntegrate", "[", 
               RowBox[{"Fout", ",", 
                RowBox[{"{", 
                 RowBox[{"om", ",", "0", ",", "om0"}], "}"}]}], "]"}], "-", 
              RowBox[{"0.95", "*", "pl"}]}], ")"}], "<", "0"}], ",", 
           RowBox[{"om0", "=", 
            RowBox[{"om0", "+", "step"}]}]}], "]"}], ",", 
         RowBox[{"om0", "=", 
          RowBox[{"om0", "-", "step"}]}], ",", 
         RowBox[{"step", "=", 
          RowBox[{"step", "/", "10"}]}]}], "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"om0", "=", 
      RowBox[{"om0", "-", 
       RowBox[{"step", "*", "5"}]}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"kpkv", "=", "0.1"}], ";", 
     RowBox[{"(*", 
      RowBox[{
      "\:041f\:043e\:043f\:0440\:0430\:0432\:043e\:0447\:043d\:044b\:0439", 
       " ", "\:043a\:043e\:044d\:0444\:0444\:0438\:0446\:0438\:0435\:043d\
\:0442"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"T", "=", 
      RowBox[{"kpkv", "*", 
       RowBox[{"Pi", "/", "om0"}]}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041f\:0435\:0440\:0438\:043e\:0434", " ", 
       "\:043a\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f"}],
       "*)"}], "\[IndentingNewLine]", 
     RowBox[{"h", "=", 
      RowBox[{"InverseLaplaceTransform", "[", 
       RowBox[{
        RowBox[{"W", "/", "s"}], ",", "s", ",", "t"}], "]"}]}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"hf", "[", "t_", "]"}], "=", 
      RowBox[{"Abs", "[", "h", "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{
      "\:041d\:0430\:0445\:043e\:0436\:0434\:0435\:043d\:0438\:0435", " ", 
       "\:0432\:0440\:0435\:043c\:0435\:043d\:0438", " ", 
       "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\
\:0438\:044f", " ", "\:0438", " ", 
       "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:044f"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"kol", "=", "50000"}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "\:041a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:043e", " ", 
        "\:043f\:0440\:043e\:043c\:0435\:0436\:0443\:0442\:043a\:043e\:0432", 
        " ", "\:0440\:0430\:0437\:0431\:0438\:0435\:043d\:0438\:044f", "  ", 
        "\:0434\:0438\:0430\:043f\:0430\:0437\:043e\:043d\:0430"}], ",", " ", 
       RowBox[{
       "\:043d\:0430", " ", "\:043a\:043e\:0442\:043e\:0440\:043e\:043c", " ",
         "\:0438\:0449\:0435\:0442\:0441\:044f", " ", 
        "\:0440\:0435\:0448\:0435\:043d\:0438\:0435"}]}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"dt", "=", 
      RowBox[{"50", "/", "kol"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:0428\:0430\:0433", " ", 
       "\:0440\:0430\:0437\:0431\:0438\:0435\:043d\:0438\:044f"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"Ust", "=", 
      RowBox[{"hf", "[", "50000", "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041e\:043f\:0440\:0435\:0434\:0435\:043b\:0435\:043d\:0438\:0435", 
       " ", "\:0443\:0441\:0442\:0430\:043d\:043e\:0432\:0438\:0432\:0448\
\:0435\:0433\:043e\:0441\:044f", " ", 
       "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"hmax", "=", 
      RowBox[{"hf", "[", "0", "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041d\:0430\:0447\:0430\:043b\:044c\:043d\:043e\:0435", " ", 
       "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435", " ", 
       "\:043c\:0430\:043a\:0441\:0438\:043c\:0430\:043b\:044c\:043d\:043e\
\:0433\:043e", " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", "1"}], ",", 
       RowBox[{"i", "<", 
        RowBox[{"kol", "+", "1"}]}], ",", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{
             RowBox[{"Sign", "[", 
              RowBox[{
               RowBox[{"Abs", "[", 
                RowBox[{
                 RowBox[{"hf", "[", 
                  RowBox[{"dt", "*", 
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}]}], "]"}], "-", "Ust"}], 
                "]"}], "-", "0.05"}], "]"}], "\[NotEqual]", 
             RowBox[{"Sign", "[", 
              RowBox[{
               RowBox[{"Abs", "[", 
                RowBox[{
                 RowBox[{"hf", "[", 
                  RowBox[{"dt", "*", 
                   RowBox[{"(", "i", ")"}]}], "]"}], "-", "Ust"}], "]"}], "-",
                "0.05"}], "]"}]}], ",", 
            RowBox[{"Treg", "=", 
             RowBox[{"dt", "*", 
              RowBox[{"(", 
               RowBox[{"i", "-", "0.5"}], ")"}]}]}]}], "]"}], ",", 
          RowBox[{"If", "[", 
           RowBox[{
            RowBox[{"hmax", "<", 
             RowBox[{"hf", "[", 
              RowBox[{"dt", "*", "i"}], "]"}]}], ",", 
            RowBox[{"hmax", "=", 
             RowBox[{"hf", "[", 
              RowBox[{"dt", "*", "i"}], "]"}]}]}], "]"}]}], "}"}], ";", 
        RowBox[{"i", "++"}]}]}], "]"}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{
        "\:0427\:0438\:0441\:043b\:0435\:043d\:043d\:043e\:0435", " ", 
         "\:0440\:0435\:0448\:0435\:043d\:0438\:0435", " ", 
         "\:0443\:0440\:0430\:0432\:043d\:0435\:043d\:0438\:0439", " ", 
         RowBox[{"h", "(", "t", ")"}]}], "=", 
        RowBox[{
         RowBox[{"0.95", " ", "\:0438", " ", 
          RowBox[{"h", "(", "t", ")"}]}], "=", "1.05"}]}], ",", " ", 
       RowBox[{
        RowBox[{
         RowBox[{
         "\:043e\:0431\:044a\:0435\:0434\:0438\:043d\:0435\:043d\:043d\:044b\
\:0445", " ", "\:0432", " ", "\:043e\:0434\:043d\:043e"}], " ", "|", 
         RowBox[{
          RowBox[{"h", "(", "t", ")"}], "-", "1"}], "|", 
         RowBox[{"-", "0.05"}]}], "=", 
        RowBox[{
        "0", " ", "\:0438", " ", 
         "\:043e\:043f\:0440\:0435\:0434\:0435\:043b\:0435\:043d\:0438\:0435",
          " ", "\:043c\:0430\:043a\:0441\:0438\:043c\:0443\:043c\:0430"}]}]}],
       "*)"}], "\[IndentingNewLine]", 
     RowBox[{"sigmaper", "=", 
      RowBox[{"Round", "[", 
       RowBox[{
        RowBox[{"100", "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"hmax", "-", "Ust"}], ")"}], "/", "Ust"}]}], ",", "0.01"}],
        "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:0420\:0430\:0441\:0447\:0435\:0442", " ", 
       "\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:044f"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"T1", "=", 
      RowBox[{
       RowBox[{"Round", "[", 
        RowBox[{"T", "*", "100000"}], "]"}], "/", "100000"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "\:041f\:0435\:0440\:0438\:043e\:0434", " ", 
        "\:043a\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f"}]\
, ",", " ", 
       RowBox[{
       "\:043e\:043a\:0440\:0443\:0433\:043b\:0435\:043d\:043d\:044b\:0439", 
        " ", "\:0434\:043e", " ", "5", " ", 
        "\:0437\:043d\:0430\:043a\:043e\:0432", " ", 
        "\:043f\:043e\:0441\:043b\:0435", " ", 
        "\:0437\:0430\:043f\:044f\:0442\:043e\:0439"}]}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"Nrasch", "=", 
      RowBox[{"Ceiling", "[", 
       RowBox[{"Treg", "/", "T1"}], "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041a\:043e\:043b\:0438\:0447\:0435\:0441\:0442\:0432\:043e", " ", 
       "\:043f\:0435\:0440\:0438\:043e\:0434\:043e\:0432", " ", 
       "\:043a\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f", 
       " ", "\:0437\:0430", " ", "\:0432\:0440\:0435\:043c\:044f", " ", 
       "\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\
\:0438\:044f", " ", "Treg"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"Nekstr", "=", "4"}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:0421\:0442\:0435\:043f\:0435\:043d\:044c", " ", 
       "\:043f\:043e\:043b\:0438\:043d\:043e\:043c\:0430", " ", 
       "\:044d\:043a\:0441\:0442\:0440\:0430\:043f\:043e\:043b\:044f\:0446\
\:0438\:0438"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"MOtkl", "=", 
      RowBox[{"{", "}"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041c\:0430\:0441\:0441\:0438\:0432", " ", 
       "\:043e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:0439"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"hizm", "=", 
      RowBox[{"Table", "[", 
       RowBox[{"0", ",", 
        RowBox[{"{", "Nekstr", "}"}]}], "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041c\:0430\:0441\:0441\:0438\:0432", " ", 
       "\:043f\:043e\:0441\:043b\:0435\:0434\:043d\:0438\:0445", " ", 
       "Nekstr", " ", 
       "\:0438\:0437\:043c\:0435\:0440\:0435\:043d\:043d\:044b\:0445", " ", 
       RowBox[{"(", "\:0440\:0435\:0430\:043b\:044c\:043d\:044b\:0445", ")"}],
        " ", "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0439", " ", 
       "\:0438\:0441\:043f\:043e\:043b\:044c\:0437\:0443\:0435\:043c\:044b\
\:0439", " ", "\:043f\:0440\:0438", " ", 
       "\:044d\:043a\:0441\:0442\:0440\:0430\:043f\:043e\:043b\:044f\:0446\
\:0438\:0438"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"For", "[", 
      RowBox[{
       RowBox[{"i", "=", 
        RowBox[{"Nekstr", "-", "1"}]}], ",", 
       RowBox[{"i", "<", "Nrasch"}], ",", 
       RowBox[{"i", "++"}], ",", "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"Ttek", "=", 
          RowBox[{"T1", "*", "i"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"hTtek", "=", 
          RowBox[{"hf", "[", "Ttek", "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"hizm", "[", 
           RowBox[{"[", "1", "]"}], "]"}], "=", 
          RowBox[{"hf", "[", 
           RowBox[{"Ttek", "-", 
            RowBox[{"T1", "*", "3"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"hizm", "[", 
           RowBox[{"[", "2", "]"}], "]"}], "=", 
          RowBox[{"hf", "[", 
           RowBox[{"Ttek", "-", 
            RowBox[{"T1", "*", "2"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"hizm", "[", 
           RowBox[{"[", "3", "]"}], "]"}], "=", 
          RowBox[{"hf", "[", 
           RowBox[{"Ttek", "-", 
            RowBox[{"T1", "*", "1"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"hizm", "[", 
           RowBox[{"[", "4", "]"}], "]"}], "=", 
          RowBox[{"hf", "[", 
           RowBox[{"Ttek", "-", 
            RowBox[{"T1", "*", "0"}]}], "]"}]}], ";", "\[IndentingNewLine]", 
         RowBox[{"hekstr", "=", 
          RowBox[{
           RowBox[{"hizm", "[", 
            RowBox[{"[", "4", "]"}], "]"}], "+", 
           RowBox[{"T1", "*", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"55", "*", 
                RowBox[{"hizm", "[", 
                 RowBox[{"[", "4", "]"}], "]"}]}], "-", 
               RowBox[{"59", "*", 
                RowBox[{"hizm", "[", 
                 RowBox[{"[", "3", "]"}], "]"}]}], "+", 
               RowBox[{"37", "*", 
                RowBox[{"hizm", "[", 
                 RowBox[{"[", "2", "]"}], "]"}]}], "-", 
               RowBox[{"9", "*", 
                RowBox[{"hizm", "[", 
                 RowBox[{"[", "1", "]"}], "]"}]}]}], ")"}], "/", "24"}]}]}]}],
          ";", 
         RowBox[{
         "(*", "\:042d\:043a\:0441\:0442\:0440\:0430\:043f\:043e\:043b\:044f\
\:0446\:0438\:044f", "*)"}], "\[IndentingNewLine]", 
         RowBox[{"MOtkl", "=", 
          RowBox[{"Append", "[", 
           RowBox[{"MOtkl", ",", 
            RowBox[{"Abs", "[", 
             RowBox[{
              RowBox[{"hf", "[", 
               RowBox[{"Ttek", "+", "T1"}], "]"}], "-", "hekstr"}], "]"}]}], 
           "]"}]}], ";"}], "\[IndentingNewLine]", "}"}]}], "]"}], ";", 
     "\[IndentingNewLine]", 
     RowBox[{"MO", "=", 
      RowBox[{"Mean", "[", "MOtkl", "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
       "\:041c\:0430\:0442\:0435\:043c\:0430\:0442\:0438\:0447\:0435\:0441\
\:043a\:043e\:0435", " ", "\:043e\:0436\:0438\:0434\:0430\:043d\:0438\:0435", 
        " ", "\:043e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:044f", 
        " ", "\:0438\:0441\:0442\:0438\:043d\:043d\:043e\:0433\:043e", " ", 
        "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f", " ", 
        "\:0443\:0433\:043b\:0430", " ", 
        "\:0442\:0430\:043d\:0433\:0430\:0436\:0430"}], ",", " ", 
       RowBox[{
       "\:043f\:043e\:043b\:0443\:0447\:0435\:043d\:043d\:043e\:0433\:043e", 
        " ", "\:0432\:043e", " ", "\:0432\:0440\:0435\:043c\:044f", " ", 
        "\:043a\:0440\:0430\:0442\:043d\:043e\:0435", " ", 
        "\:043f\:0435\:0440\:0438\:043e\:0434\:0443", " ", 
        "\:043a\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f", 
        " ", "\:0422"}], ",", " ", 
       RowBox[{
       "\:043e\:0442", " ", 
        "\:044d\:043a\:0441\:0442\:0440\:0430\:043f\:043e\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:043d\:043e\:0433\:043e", " ", 
        "\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:044f"}]}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"sigma", "=", 
      RowBox[{"StandardDeviation", "[", "MOtkl", "]"}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:0421\:0440\:0435\:0434\:043d\:0435\:0435", " ", 
       "\:043a\:0432\:0430\:0434\:0440\:0430\:0442\:0438\:0447\:0435\:0441\
\:043a\:043e\:0435", " ", 
       "\:043e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:0435", " ", 
       "\:043e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:044f"}], 
      "*)"}], "\[IndentingNewLine]", 
     RowBox[{"b", "=", "3"}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
       RowBox[{
        RowBox[{"1", "..."}], "5"}], " ", "-", " ", 
       RowBox[{
       "\:0434\:043e\:0432\:0435\:0440\:0438\:0442\:0435\:043b\:044c\:043d\
\:0430\:044f", " ", "\:0433\:0440\:0430\:043d\:0438\:0446\:0430"}]}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{"PS", "=", 
      RowBox[{"MO", "+", 
       RowBox[{"b", "*", "sigma"}]}]}], ";", " ", 
     RowBox[{"(*", 
      RowBox[{
      "\:041f\:043e\:0440\:043e\:0433", " ", 
       "\:0441\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\
\:044f"}], "*)"}], "\[IndentingNewLine]", 
     RowBox[{"MT", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MT", ",", 
        RowBox[{"T1", "*", "1."}]}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"MPS", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MPS", ",", "PS"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"MTreg", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"MTreg", ",", "Treg"}], "]"}]}], ";", "\[IndentingNewLine]", 
     RowBox[{"Mperereg", "=", 
      RowBox[{"Append", "[", 
       RowBox[{"Mperereg", ",", "sigmaper"}], "]"}]}], ";"}], 
    "\[IndentingNewLine]", "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.513681003046875*^9, 3.513681560484375*^9}, {
  3.51368159484375*^9, 3.513681678546875*^9}, {3.5140330900809298`*^9, 
  3.5140330989104347`*^9}, {3.5140332667880363`*^9, 3.514033298807868*^9}, {
  3.5140333296946344`*^9, 3.514033378651435*^9}, {3.514034412045542*^9, 
  3.5140344590012274`*^9}, {3.5140358986185684`*^9, 3.5140359190697384`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"For", "[", 
  RowBox[{
   RowBox[{"i", "=", "1"}], ",", 
   RowBox[{"i", "\[LessEqual]", "20"}], ",", 
   RowBox[{"i", "++"}], ",", 
   RowBox[{"Print", "[", 
    RowBox[{
    "\"\<\:0420\:0435\:0436\:0438\:043c \:2116\>\"", ",", "i", ",", 
     "\"\<: \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\
\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = \>\"", 
     ",", 
     RowBox[{"MTreg", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", 
     "\"\<\:0441, \
\:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\:043e\:0432\
\:0430\:043d\:0438\:0435 \[Sigma] = \>\"", ",", 
     RowBox[{"Mperereg", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", 
     "\"\<%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\
\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \>\"", ",", 
     RowBox[{"MT", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", 
     "\"\<\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\
\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\
\:043d \>\"", ",", 
     RowBox[{"MPS", "[", 
      RowBox[{"[", "i", "]"}], "]"}], ",", "\"\<.\>\""}], "]"}]}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
  "\"\<\:041d\:0430\:0438\:0431\:043e\:043b\:044c\:0448\:0435\:0435 \:0437\
\:043d\:0430\:0447\:0435\:043d\:0438\:0435 \:043f\:043e\:0440\:043e\:0433\
\:0430 \:0441\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\
\:044f \:0440\:0430\:0432\:043d\:043e \>\"", ",", 
   RowBox[{"Max", "[", "MPS", "]"}], ",", 
   "\"\<, \:0441\:0440\:0435\:0434\:043d\:0435\:0435 \:0437\:043d\:0430\:0447\
\:0435\:043d\:0438\:0435 \:043f\:043e\:0440\:043e\:0433\:0430 \:0441\:0440\
\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\
\:0432\:043d\:043e \>\"", ",", 
   RowBox[{"Mean", "[", "MPS", "]"}], ",", "\"\<.\>\""}], 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{"\"\<\[CapitalDelta] = \>\"", ",", 
   RowBox[{
    RowBox[{"Mean", "[", "MPS", "]"}], "+", 
    RowBox[{"3", "*", 
     RowBox[{"StandardDeviation", "[", "MPS", "]"}]}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.5140345099201393`*^9, 3.514034870938789*^9}, {
   3.51403514877868*^9, 3.514035252222597*^9}, 3.5140361124607997`*^9, {
   3.5140375519831357`*^9, 3.5140378040385523`*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "1", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "11.6525`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.45`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.07966`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.12703463025912298`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 1, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 11.6525, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.45, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.07966, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.12703463025912298`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5140381994571695`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "2", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "11.6425`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.67`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.09923`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.16470939160941606`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 2, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 11.6425, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.67, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.09923, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.16470939160941606`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199458169*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "3", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "10.2665`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.63`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.08491`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.1387855179237487`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 3, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 10.2665, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.63, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.08491, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.1387855179237487, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.51403819946517*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "4", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "10.1945`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.93`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.10444`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.17828542435189343`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 4, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 10.1945, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.93, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.10444, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.17828542435189343`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5140381994731703`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "5", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "8.4625`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.63`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.06999`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.11256934733011743`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 5, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 8.4625, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.63, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.06999, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.11256934733011743`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5140381994811707`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "6", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "8.3045`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "6.97`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.10122`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.17723622900509556`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 6, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 8.3045, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 6.97, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.10122, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.17723622900509556`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5140381994881706`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "7", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "9.4275`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.71`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.08309`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.1366072884061046`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 7, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 9.4275, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.71, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.08309, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.1366072884061046, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199496171*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "8", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "9.105500000000001`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "12.75`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.13619`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.2532670513662061`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 8, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 
   9.105500000000001, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 12.75, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.13619, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.2532670513662061, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199506172*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "9", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "7.9305`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.72`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.0705`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.1143143737131529`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 9, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 7.9305, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.72, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.0705, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.1143143737131529, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199513172*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "10", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "7.6705000000000005`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "12.38`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.11332`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.2079485010324586`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 10, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 
   7.6705000000000005`, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 12.38, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.11332, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.2079485010324586, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5140381995211725`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "11", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "9.2705`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.5`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.06756`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.10707018041922428`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 11, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 9.2705, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.5, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.06756, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.10707018041922428`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199529173*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "12", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "8.2655`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "14.47`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.13789`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.2656805014073092`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 12, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 8.2655, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 14.47, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.13789, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.2656805014073092, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199536174*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "13", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "10.3025`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.38`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.06458`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.10058405306801553`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 13, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 10.3025, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.38, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.06458, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.10058405306801553`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199544174*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "14", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "10.0025`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "11.`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.14103`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.25949709543984034`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 14, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 10.0025, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 11., 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.14103, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.25949709543984034`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199555175*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "15", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "9.0215`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.39`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.05723`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.08861134800586673`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 15, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 9.0215, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.39, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.05723, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.08861134800586673, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199564175*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "16", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "8.7075`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "12.790000000000001`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.13042`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.24202280075900198`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 16, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 8.7075, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 12.790000000000001`, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.13042, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.24202280075900198`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5140381995811763`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "17", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "13.2555`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.36`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.08034`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.1268075273762147`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 17, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 13.2555, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.36, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.08034, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.1268075273762147, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199591177*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "18", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "11.9185`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "14.4`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.19795`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.3802599174258499`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 18, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 11.9185, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 14.4, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.19795, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.3802599174258499, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5140381995991774`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "19", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "10.1635`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "5.3500000000000005`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.06128`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.09479021780396615`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 19, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 10.1635, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 5.3500000000000005`, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.06128, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.09479021780396615, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5140381996071777`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:0420\:0435\:0436\:0438\:043c \:2116\"\>", 
   "\[InvisibleSpace]", "20", 
   "\[InvisibleSpace]", "\<\": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\
\:0435\:0433 = \"\>", "\[InvisibleSpace]", "10.0815`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\
\:0433\:0443\:043b\:0438\:0440\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = \
\"\>", "\[InvisibleSpace]", "6.01`", 
   "\[InvisibleSpace]", "\<\"%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\
\:0432\:0430\:043d\:0442\:043e\:0432\:0430\:043d\:0438\:044f T = \"\>", 
   "\[InvisibleSpace]", "0.10899`", 
   "\[InvisibleSpace]", "\<\"\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\
\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\
\:0430\:0432\:0435\:043d \"\>", "\[InvisibleSpace]", "0.1880920017483278`", 
   "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:0420\:0435\:0436\:0438\:043c \:2116", 20, 
   ": \:0432\:0440\:0435\:043c\:044f \:0440\:0435\:0433\:0443\:043b\:0438\
\:0440\:043e\:0432\:0430\:043d\:0438\:044f T\:0440\:0435\:0433 = ", 10.0815, 
   "\:0441, \:043f\:0435\:0440\:0435\:0440\:0435\:0433\:0443\:043b\:0438\:0440\
\:043e\:0432\:0430\:043d\:0438\:0435 \[Sigma] = ", 6.01, 
   "%, \:043f\:0435\:0440\:0438\:043e\:0434 \:043a\:0432\:0430\:043d\:0442\
\:043e\:0432\:0430\:043d\:0438\:044f T = ", 0.10899, 
   "\:0441, \:043f\:043e\:0440\:043e\:0433 \:0441\:0440\:0430\:0431\:0430\
\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\:0432\:0435\:043d ", 
   0.1880920017483278, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.5140381996141777`*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.5140381996211786`*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\:041d\:0430\:0438\:0431\:043e\:043b\:044c\:0448\:0435\:0435 \
\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435 \:043f\:043e\:0440\:043e\
\:0433\:0430 \:0441\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\
\:0438\:044f \:0440\:0430\:0432\:043d\:043e \"\>", "\[InvisibleSpace]", 
   "0.3802599174258499`", 
   "\[InvisibleSpace]", "\<\", \:0441\:0440\:0435\:0434\:043d\:0435\:0435 \
\:0437\:043d\:0430\:0447\:0435\:043d\:0438\:0435 \:043f\:043e\:0440\:043e\
\:0433\:0430 \:0441\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\
\:0438\:044f \:0440\:0430\:0432\:043d\:043e \"\>", "\[InvisibleSpace]", 
   "0.17320866992254666`", "\[InvisibleSpace]", "\<\".\"\>"}],
  SequenceForm[
  "\:041d\:0430\:0438\:0431\:043e\:043b\:044c\:0448\:0435\:0435 \:0437\:043d\
\:0430\:0447\:0435\:043d\:0438\:0435 \:043f\:043e\:0440\:043e\:0433\:0430 \
\:0441\:0440\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \
\:0440\:0430\:0432\:043d\:043e ", 0.3802599174258499, 
   ", \:0441\:0440\:0435\:0434\:043d\:0435\:0435 \:0437\:043d\:0430\:0447\
\:0435\:043d\:0438\:0435 \:043f\:043e\:0440\:043e\:0433\:0430 \:0441\:0440\
\:0430\:0431\:0430\:0442\:044b\:0432\:0430\:043d\:0438\:044f \:0440\:0430\
\:0432\:043d\:043e ", 0.17320866992254666`, "."],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199622178*^9}],

Cell[BoxData["\<\"\"\>"], "Print",
 CellChangeTimes->{3.514038199629179*^9}],

Cell[BoxData[
 InterpretationBox[
  RowBox[{"\<\"\[CapitalDelta] = \"\>", "\[InvisibleSpace]", 
   "0.39987561637784097`"}],
  SequenceForm["\[CapitalDelta] = ", 0.39987561637784097`],
  Editable->False]], "Print",
 CellChangeTimes->{3.514038199630179*^9}]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1350, 633},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 510, 9, 37, "Text"],
Cell[1058, 31, 621, 9, 30, "Text"],
Cell[1682, 42, 2842, 54, 112, "Input",
 CellGroupingRules->{GroupTogetherGrouping, 10000.}],
Cell[4527, 98, 528, 15, 92, "Input"],
Cell[5058, 115, 28517, 688, 1312, "Input"],
Cell[CellGroupData[{
Cell[33600, 807, 2467, 52, 132, "Input"],
Cell[CellGroupData[{
Cell[36092, 863, 1721, 29, 23, "Print"],
Cell[37816, 894, 1719, 29, 23, "Print"],
Cell[39538, 925, 1715, 29, 23, "Print"],
Cell[41256, 956, 1721, 29, 23, "Print"],
Cell[42980, 987, 1719, 29, 23, "Print"],
Cell[44702, 1018, 1719, 29, 23, "Print"],
Cell[46424, 1049, 1714, 29, 23, "Print"],
Cell[48141, 1080, 1742, 30, 23, "Print"],
Cell[49886, 1112, 1712, 29, 23, "Print"],
Cell[51601, 1143, 1749, 30, 23, "Print"],
Cell[53353, 1175, 1717, 29, 23, "Print"],
Cell[55073, 1206, 1718, 29, 23, "Print"],
Cell[56794, 1237, 1721, 29, 23, "Print"],
Cell[58518, 1268, 1719, 29, 23, "Print"],
Cell[60240, 1299, 1718, 29, 23, "Print"],
Cell[61961, 1330, 1750, 29, 23, "Print"],
Cell[63714, 1361, 1718, 29, 23, "Print"],
Cell[65435, 1392, 1720, 29, 23, "Print"],
Cell[67158, 1423, 1751, 29, 23, "Print"],
Cell[68912, 1454, 1720, 29, 23, "Print"],
Cell[70635, 1485, 78, 1, 23, "Print"],
Cell[70716, 1488, 1371, 22, 23, "Print"],
Cell[72090, 1512, 76, 1, 23, "Print"],
Cell[72169, 1515, 256, 6, 23, "Print"]
}, Open  ]]
}, Open  ]]
}
]
*)

(* End of internal cache information *)