(* 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[ 99604, 2319] NotebookOptionsPosition[ 93313, 2147] NotebookOutlinePosition[ 93657, 2162] CellTagsIndexPosition[ 93614, 2159] 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[CellGroupData[{ Cell[BoxData[ 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"}], "}"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512566464470544*^9, 3.512566540592898*^9}, { 3.51256657279574*^9, 3.512566700692055*^9}, 3.513559661265625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.56`", ",", "0.56`", ",", "0.496`", ",", "0.496`", ",", "0.67`", ",", "0.67`", ",", "0.59`", ",", "0.59`", ",", "1.1`", ",", "1.1`", ",", "0.94`", ",", "0.94`", ",", "0.76`", ",", "0.76`", ",", "0.88`", ",", "0.88`", ",", "0.668`", ",", "0.668`", ",", "0.793`", ",", "0", ",", "793"}], "}"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+K0xKOlG7RfOfqZanluAtIylbUsEbqvHBkaar2qwXR/ AIReHAGmGZ4nQehNeyDi4acg/KK2GjD/sFQdmDYOgtCOsyB0FXM9WN2pRDDd 8OjeFDC9wncqmOYUmwaWZ26eDqZ5VoLphtvrZoDpv44zwXT8VwidkTILTBft nwumrXnnQcxXAtMN0QzzwfQifTDNYNF5EEyvfX4ITEcJHAbTB8UhtJ0yhG7I AdMNO4ohdNkBiPgp1iNgvvqz4xDxL2CaIWjtSTD9bzOE7t8FphtUQi+A+eqp EPpGLoR+XwGiAcq+mRc= "]], Cell[BoxData[ 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"}], "}"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512566708711514*^9, 3.512566882066429*^9}, 3.51350891890625*^9, 3.513559661265625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.635`", ",", "0.922`", ",", "1.273`", ",", "0.718`", ",", "1.864`", ",", "0.655`", ",", "1.2`", ",", "0.245`", ",", "1.864`", ",", "0.569`", ",", "2.259`", ",", "0.0726`", ",", "2.64`", ",", "0.357`", ",", "3.337`", ",", "0.404`", ",", "1.742`", ",", "0.056`", ",", "2.98`", ",", "0.681`"}], "}"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+JDK3R7N2i/cmwTLPHcBKS7uOpZInRfOTI01HtVg2iG CQFgumFJBIT/MgnC37wHQkeegoj/bKsB00el6sB0VBCYbnCeBeHXMNeD6TOJ EJrj/hSw/ArfqWCaW2wamGZtng6meVeCaYa762aA6f+OM8HiiV8hdFbKLLB4 yf65YL4t7zyI+UoQOoZhPpherA+hgzsPgun1zw+B1UcLHAbzD4tDaAdlCN2U A6F3FYPphooDEPoU6xGwuMaz42C6/AuYbgheexJM/98Mphkm7oLw1UIvgPma qWC64WYuhP5QAaIByzWXyA== "]], Cell[BoxData[ 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"}], "}"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5125669376236067`*^9, 3.5125670808588*^9}, 3.513559661265625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "1.468`", ",", "1.468`", ",", "1.142`", ",", "1.142`", ",", "2.57`", ",", "2.57`", ",", "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.34`", ",", "6.34`"}], "}"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+Jl56Yu26D9yrFm2wHPTUD62L56lgjdV44MDA1e1SC6 YUIAmGZYGgHhv0yC8LfsgdBRpyC0QnsNWP6oVB2YXx0EoV1mgemGGuZ6MH0m EUwzKN+fAuav8J0K5vOITQPTbM3TwTTfSgh9b90MMM3gNBNMJ32F0Nkps8B0 6f65YNqOdx7EfCUIHcMwH0wv1p8PUd95EMxf//wQmB8jcBjMPywOoR2UIXRT Dphm2F0MoSsPQOjTrEfA8hrPjoP5FV/AdEPI2pNgmmELmGaYtAtCq4deAItr pkLoW7kQ+mMFiAYAVVmXQQ== "]], Cell[BoxData[ 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"}], "}"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5125670962786818`*^9, 3.512567219919753*^9}, 3.513559661265625*^9}], Cell[BoxData[ 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`"}], "}"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+L1pjO3bdB+5fjGh8FrE5C+mNXAEqH7ypGhocGrGkQz TAwA0w1LIyD0qyQIvWUPhI46BVHn3F4Dpo9J1YHFpwVBaJdZYJqhlrkeTJ9N hNAO96eA5Vf4TgXTPGLTwOLszdPBfL6VYJrh/roZYD6D00wwnfQVQmenzALT pfvngmk73nkQ85XAdEMsw3wwf4k+hG7uPAimNzw/BJaPETgM5h8Rh9COyhC6 OQdMN+wuhvCrDkDoM6xHwLTms+Ng+YovYJohdO1JMM24BUw3TNoFodVDL4Bp rVQwzXA7F0J/qgDRAJ9wl80= "]], Cell[BoxData[ 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.5125672428550653`*^9, 3.512567389146433*^9}, 3.513559661265625*^9}], Cell[BoxData[ RowBox[{"{", RowBox[{ "0.16`", ",", "0.16`", ",", "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`"}], "}"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+KsPblnN2i/cmS4aue1CUjfEWtkidAF8hkavapBdMPE ADDNsCwCQr9OgtBb90Dko09B+JntNWD+Mak6ML0pCEwzuM6C8GuZ68H8c4kQ Ov7+FLD4Ct+pYD6v2DQwn715OpjmWwmmGR6smwGmGZ1mgsWTv4JphpyUWWC6 bP9csLg97zyI+UoQOo5hPlh8iT6Ent95ECy+8fkhMD9W4DCYf1QcQjspQ+iW HAi9pxhMN1QdgNBnWI+Aac1nx8F05RcIHbr2JJhm3AKhJ+8C0wwaoRfAtHYq hL6TC6E/V4BoAO/RlyY= "]], Cell[BoxData[ RowBox[{"rezim", " ", "=", " ", "16", " ", RowBox[{"(*", RowBox[{ "\:041d\:043e\:043c\:0435\:0440", " ", "\:0440\:0435\:0436\:0438\:043c\:0430"}], "*)"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512569206881401*^9, 3.5125692154108887`*^9}, 3.5134341450288687`*^9, 3.513559661265625*^9, {3.51365485575*^9, 3.513654862671875*^9}}], Cell[BoxData["16"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+I4IfUNG7VfOUatnu21CUiLdi1lidB95cjQ0OhVDaIZ JgWA6YZlERD+myQIvW0PhI45BZHvaa8B849L1YH5Z4IgtOssMM1Qx1wP5p9L hNB196eA6RW+U8HyfGLTwDRH83Qwzb8STDc8WDcDzGdymgmmU75C6NyUWWD5 sv1zwXwH3nkQ85UgdBzDfLD4Un0IvbvzIFh84/NDYH6cwGEw/6g4hHZShtAt OWCaYW8xhK4+AKHPsh4By2s+Ow7mV32B0GFrT4LFmbaAaYYpuyC0ZugFsLh2 KoS+kwuhP1eAaADVeJd7 "]], Cell[BoxData[ 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"}], "*)"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.51256922557347*^9, 3.512569226423519*^9}, 3.513559661265625*^9, {3.513654935*^9, 3.513654947046875*^9}}], Cell[BoxData["1.1280780114867943`"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+IjB2ds3Kj9ynGh7kevTUA6wG4ZS4TuK0cGhiavajA9 KQBCL48A0w1vkiD0tj0QOuYUhF7XXgOmj0vVgekXQRDabRaErmOuB9PnEyH0 7PtTwPQK36lgmk9sGtgezubpYD7/SjDN8HDdDDCfyWkmmJ/6FUw35KbMAvPL 988F8x1454H555UgdDzDfLD4Un0IfaXzIFh80/NDYH6cwGEw/5g4hHZWBtMN rTkQem8xRLzmAIQ+x3oETGs9Ow6mq7+A6YawtSfBfOYtEHrqLjDdoBl6AUzr pIJphru5EP6XChANABl0m5w= "]], Cell[BoxData[ 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"}], "*)"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512569237180134*^9, 3.5125692381201878`*^9}, 3.513559661265625*^9, {3.51365494425*^9, 3.513654948828125*^9}}], Cell[BoxData["0.886463515658825`"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+Ijj7w3b9R+5ahoGOK9CUi/Z1rOEqH7ypGBodmrGkQ3 TAoA0wwrIiD02yQIvX0PhI49BaEvtteA1Z+QqgPTvMFgmsF9FoSuZ64H0xcS IfT2+1PA6lb4TgXz+cWmgfmczdPBfIGVEPrRuhlgmtlpJlg+9SuEzkuZBabL 988F04688yDmK4HphniG+WD+Mn0I/brzIJje/PwQmI4XOAymj4uD6QZnZQi/ LQdC7yuGiNccgNDnWI+Aaa1nx8HyNV8gdPjak2Bx5i0QeuouMM2gFXoBTOum Quh7uRD6awWIBgAF+ZXW "]], Cell[BoxData[ 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"}], "*)"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512569251914977*^9, 3.5125692528540306`*^9}, { 3.5125705220676255`*^9, 3.512570545158946*^9}, 3.513559661265625*^9, { 3.513654960546875*^9, 3.513654962359375*^9}}], Cell[BoxData["1.0131712259371835`"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.512569253438064*^9, 3.512570461143141*^9, {3.512570529014023*^9, 3.512570561713893*^9}, 3.5134341492451096`*^9, 3.513506388109375*^9, 3.51350643659375*^9, 3.513506501265625*^9, 3.5135065834375*^9, 3.513507301734375*^9, 3.513507410921875*^9, 3.513508927578125*^9, 3.51351215028125*^9, 3.51351260121875*^9, 3.513513170234375*^9, 3.513514011984375*^9, 3.513514766515625*^9, 3.51355878253125*^9, 3.513559661265625*^9, 3.5135612645*^9, 3.5135641843125*^9, 3.513564488515625*^9, 3.513566583078125*^9, 3.513567760125*^9, 3.5135691951875*^9, 3.51357008346875*^9, 3.51357695575*^9, 3.5135775780625*^9, 3.513577750515625*^9, 3.513579523*^9, 3.513579901203125*^9, 3.513650256109375*^9, 3.513653053609375*^9, 3.513653378984375*^9, 3.513653438234375*^9, 3.513653530140625*^9, 3.51365411621875*^9, 3.51365417396875*^9, 3.51365478790625*^9, 3.51365534246875*^9, 3.51366328134375*^9, 3.513663395890625*^9, 3.513666922734375*^9, 3.513666976140625*^9, 3.5136670286875*^9, 3.513680553328125*^9, 3.513680681421875*^9, 3.513680750953125*^9, 3.5136808396875*^9}], Cell[BoxData[ 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", "]"}], "]"}]}], ")"}]}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5125692617505393`*^9, 3.5125692626595917`*^9}, 3.513559661265625*^9, {3.5136549746875*^9, 3.513654984890625*^9}}], Cell[BoxData["5.450930407996479`"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB2KW3x+2btR+5dj0h8tnE5A+sGQFS4TuK0cGhhavahDd MDkATDOsjIDw3yVB+Dv2QOi4UxA6u6MGLH9Sqg5M2weDaQaPWRB+A3M9mL6Y CKYZ3t6fAuav8J0KpgXEpoFprubpYHnBlRD68boZYHEWp5lgfvpXMN2QnzIL TFfsnwumnXjngeUvKoHphgSG+WD+cn0w3SDZdRDM3/L8EJhOEDgMFj8hDqFd lSF0ew6E3l8MphnqDkDoC6xHwOLaz46D+bVfIHTE2pNgmnULhJ6+C0Jrh14A 03qpYLrhfi6E/lYBogEorpmM "]], Cell[BoxData[ RowBox[{"ash", "=", RowBox[{"2", "*", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"c1", "[", RowBox[{"[", "rezim", "]"}], "]"}], "+", RowBox[{"c5", "[", RowBox[{"[", "rezim", "]"}], "]"}], "-", RowBox[{"c4", "[", RowBox[{"[", "rezim", "]"}], "]"}]}], ")"}], "/", RowBox[{"c3", "[", RowBox[{"[", "rezim", "]"}], "]"}]}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5125692653907475`*^9, 3.5125692791435347`*^9}, 3.513559661265625*^9}], Cell[BoxData["0.040978941377347755`"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+I3At+2b9R+5dh0JM1nE5CeULiSJUL3lSNDQ4tXNZie EgChV0aAaYb3SRD+jj0QfvwpCH9CRw2Yf0qqDswPD4bQHrPANEMjcz2YvpQI oTkeTAHLr/CdCuYLik0D87mbp4NpwZVgmuHJuhlgmtVpJlg8/SuELkiZBaYr 988F086888D0RSUwzZDIMB9ML9cH0w2GXQfB/K3PD0HkBQ6D6ZPiENpNGUJ3 5EDoA8VguqHuAIS+wHoELK7z7DiYrvsCphsi1p4E89m2gOmG6bsgfJ3QC2Ba PxVCP8iF0N8rQDQAqeiX3w== "]], Cell[BoxData[ 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"}], ")"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5125692815586724`*^9, 3.5125692930413294`*^9}, 3.513559661265625*^9}], Cell[BoxData[ RowBox[{"-", "0.012234904596590464`"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+Jp1x7u3Kj9ynHjvI0+m4C0ntkqlgjdV44MDK1e1SC6 YUoAmGZYFQGhPyRB6J17IPLxpyD8LR01YP4pqTowvzAYQnvOAtMNjcz1YPpS IphmUHowBcxf4TsVzBcSmwameZqnQ/grwXTDk3UzwHw2p5lgfsbXmRDzU2aB 6ar9c8G0C+88iPlKEDqRYT6YXq4Pod26DoLprc8PQeQFDoPpk+JgmsFdGcLv yIHwDxZD6PoDEPoi6xEwrfPsOFhd3RcwzRC59iSYz7YFQs/YBaF1Qi+Aaf1U MM3wMBdC/6gA0QDCopj3 "]], Cell[BoxData[ RowBox[{"mu", "=", 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"}], "*)"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5125692965815315`*^9, 3.5125693075711603`*^9}, 3.513559661265625*^9, 3.513654987578125*^9}], Cell[BoxData["0.09200374246524261`"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB2InsUm7N2q/cpyX889nE5Ce82kVS4TuK0eGhlavahDN MDUATDesioDQH5Ig9M49EPmEUxD6SkcNmD4tVQeW7w6G0J6zwDRDE3M9mH85 EUwz2DyYAuav8J0KpoXEpoHFeZunQ/grwTTD03UzwHw2p5lgfuZXMN1QmDIL TFftnwsWd+WdBzFfCUwzJDHMB9Mr9MF0Q3TXQTC97fkhiLzAYTD/lDiEdleG 0J05EPpgMZhmaDgAoS+xHgGL6zw7Dqbrv4Bphqi1J8F89i1gmmHmLgitG3oB TBukgumGh7kQ+kcFiAYA+5qbSQ== "]], Cell[BoxData[ RowBox[{"Kcsh", "=", RowBox[{"Kc", "/", RowBox[{"(", RowBox[{"1", "+", RowBox[{"mu", "*", "Kc"}]}], ")"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512569312181424*^9, 3.5125693256351933`*^9}, 3.513559661265625*^9}], Cell[BoxData["3.630308781477998`"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB2ItgaN7N2q/ctTSc/XdBKTPnV/NEqH7ypGBoc2rGkQ3 TA0A0wyrIyD0xyQIvWsPRD7hFIT/paMGzD8tVQfmrwqG0F6zIHQTcz2YvpII ocMeTAGrX+E7FcwXFpsG5vM2T4fwV0LoZ+tmgMXZnWaC+VlfwXRDUcosML96 /1ww35V3HsR8JTDdkMQwH2K+PoRe2nUQLL/9+SGIvMBhiHvFwTSDhzKE7sqB iB8qhtANByD0JdYjYHndZ8ch4l8gdNTak2Bxji1gumHmLgitG3oBTBukQuhH uRD6ZwWIBgAth5nB "]], Cell[BoxData[ RowBox[{"TAsh", "=", RowBox[{"TA", "/", RowBox[{"Sqrt", "[", RowBox[{"1", "+", RowBox[{"mu", "*", "Kc"}]}], "]"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512569327542302*^9, 3.512569335596763*^9}, 3.513559661265625*^9}], Cell[BoxData["0.7234313588323567`"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+K7k9n3b9R+5diS0+y7CUjnTFnDEqH7ypGBoc2rGkxP CwDTDasjIPxPSRB69x4InXgKIi/YWQPmn5GqA/NPBkNor1kQuom5Hix/NRFM NxQ/mAKmV/hOBYuLiE0D03zN08Hiwish9LN1M8DiHE4zwfysr2CaoThlFphf vX8umHbjnQemryiBaYZkhvlgeqU+hH7VdRBM73h+CCIvcBjiXnEI7akMphu6 ciD8w8UQfuMBCP8K6xEwX/fZcTC/8QuEjl57EizOsQVCz9oFphn0Qi+AacNU CP04F0L/qgDRADehl7A= "]], Cell[BoxData[ RowBox[{ 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"}], " ", ")"}]}]}]}], "}"}]}], "]"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5125693376828823`*^9, 3.512569349507559*^9}, { 3.5125694013425236`*^9, 3.5125694064428153`*^9}, {3.512570415649539*^9, 3.5125704162745743`*^9}, 3.513559661265625*^9, {3.513655084578125*^9, 3.513655086828125*^9}}], Cell[BoxData[ RowBox[{"{", RowBox[{"0.2718776995047141`", ",", "0.024150896047003746`"}], "}"}]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGAwAmKb6awHN2q/cryVLHwCRC9ZyOa3CUgLWYuGgugUPqZI EH0rYC1LhO4rR4aGNq9qMD0tAEwzrImA8D8lQejdeyDiSacgtGFnDZg+K1UH pkVCILT3LAjdzFwP1nc1EUJPfzAFTK/wnQqmRcSmgdXxN0+H6F8Jphuer5sB 5nM6zQTzs79C6OKUWWDxmv1zwbQ77zyI+UoQOplhPpheqQ+hA7sPgukdzw9B 5AUOg+kz4hDaUxlMM3TnQPiHiyH8pgMQ/hXWI2C+3rPjYH7jFwgdvfYkmObc AqYZZu+C0PqhF8C0USqEfpILpht+VYBoAGPko1o= "]], Cell[BoxData[ RowBox[{"Tnu", "=", RowBox[{"iv", "/", "nu"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.5125694915476832`*^9, 3.5125695057204933`*^9}, 3.513559661265625*^9}], Cell[BoxData["11.257458065968706`"], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGAwBOI7ewqubtR+5XhpdZ/fJiAdFl8RCqLZ/npFgugK0XUs EbqvHBkY2r2qwfT0AAi9NgJCf06C0Hv2gOmGpFMQfm1nDZh/VqoOzPcJgdKz wHRDM3M9mL6WCKG3P5gCplf4TgWrExWbBubzN0+H8FdC6BfrZoDFOZ1mgvk5 XyF0ScossHjN/rlg2p13Hlj8mhKETmGYD6ZX6UPo790HwfTO54cg8gKHIe4V h9BeymCaoScHwj9SDKGbDkDoq6xHwLTes+MQ8S9gmiFm7UkwzbUFTDfM3gWh 9UMvgGmjVAj9JBdC/64A0QBGsaIq "]], Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", 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"}], "*)"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512570632149922*^9, 3.5125706333159885`*^9}, 3.513559661265625*^9, 3.51365511228125*^9, {3.513680802015625*^9, 3.513680817765625*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0.88`", "\[VeryThinSpace]", "+", "s"}], RowBox[{"0.404`", "\[VeryThinSpace]", "+", RowBox[{"0.251`", " ", "s"}]}], "0", "7.028`"}, { RowBox[{"-", "1"}], RowBox[{"0.987`", "\[VeryThinSpace]", "+", "s"}], "0", "0"}, { RowBox[{"-", "1"}], "0", "s", "0"}, {"0.09200374246524261`", "0", FractionBox[ RowBox[{"0.024150896047003746`", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"11.257458065968706`", " ", "s"}]}], ")"}]}], "s"], RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQA+JHN9MSN2m/cqx6tY4lQveVI0NDu1c1mJ4eAKHXRkDo z0kQes8eMM2QfArC/9BZA+afk6oD80tCILTPLDDN0MJcD6avJ0Loqw+mgOVX +E4F88XEpoH5As3TwbToSgj9Yt0MMM3lNBNM53wF0wylKbPAdO3+uWBxD955 YPqaEoROYZgPplfpQ2i1noNg9bueH4LICxyGuFccQnsrg+mGnhwI/2gxhN98 AMK/xnoEzNd7dhzMb/4Cphti1p6EuG8LhJ6zC0wzGIReAPONU8E0w9NcCP9v BYgGAM8Emgs= "]], Cell[BoxData[ RowBox[{ RowBox[{"MatrixForm", "[", 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"}]}], "*)"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512570638847305*^9, 3.512570639202325*^9}, 3.5125706974896593`*^9, 3.513559661265625*^9, 3.513655138921875*^9, { 3.513655313796875*^9, 3.5136553276875*^9}, {3.513680822234375*^9, 3.5136808320625*^9}}], Cell[BoxData[ TagBox[ RowBox[{"(", "\[NoBreak]", GridBox[{ { RowBox[{"0.88`", "\[VeryThinSpace]", "+", "s"}], RowBox[{"0.404`", "\[VeryThinSpace]", "+", RowBox[{"0.251`", " ", "s"}]}], "0", "7.028`"}, { RowBox[{"-", "1"}], RowBox[{"0.987`", "\[VeryThinSpace]", "+", "s"}], "0", "0"}, { RowBox[{"-", "1"}], "0", "0", "0"}, {"0.09200374246524261`", "0", FractionBox[ RowBox[{"0.024150896047003746`", " ", RowBox[{"(", RowBox[{"1", "+", RowBox[{"11.257458065968706`", " ", "s"}]}], ")"}]}], "s"], RowBox[{"-", "1"}]} }, GridBoxAlignment->{ "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, "RowsIndexed" -> {}}, GridBoxSpacings->{"Columns" -> { Offset[0.27999999999999997`], { Offset[0.7]}, Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> { Offset[0.2], { Offset[0.4]}, Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], Function[BoxForm`e$, MatrixForm[BoxForm`e$]]]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQA+Kv/hmZm7RfOVbtX88SofvKkYGhw6saTM8IgNDrIsB0 w5ckCH/vHgg/+RSE9uyqAdPnpOrA9MQQMM3gOwvCb2GuB/NvJILphk8PpoDp Fb5TwbSY2DSwvGDzdDAtthJMN7xcNwPM53aaCaZzv4LphtKUWWC6dv9csLgn 7zww/7oSmGZIZZgPplfrg+mGiJ6DYHrX80NgOlXgMFj+vDiE9lEG0w29ORD+ sWII3XIAQl9nPQKm9Z8dh4h/gdCxa0+C9XFvAdMMc3dB+AahF8C0SSqYZniW C6H/VYBoAAwblVk= "]], Cell[BoxData[ 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"}]}], "*)"}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.512570701491888*^9, 3.5125707125515203`*^9}, { 3.513434247017702*^9, 3.513434263265631*^9}, {3.5134343049130135`*^9, 3.513434306042078*^9}, 3.513559661265625*^9, {3.51365521646875*^9, 3.51365521903125*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.16752597495190386`", "\[VeryThinSpace]", "+", RowBox[{"2.055649135399924`", " ", "s"}], "+", RowBox[{"1.9107564721191301`", " ", SuperscriptBox["s", "2"]}]}], RowBox[{"0.16752597495190388`", "\[VeryThinSpace]", "+", RowBox[{"2.055649135399924`", " ", "s"}], "+", RowBox[{"3.8215129442382607`", " ", SuperscriptBox["s", "2"]}], "+", RowBox[{"2.764602302045725`", " ", SuperscriptBox["s", "3"]}], "+", RowBox[{"1.`", " ", SuperscriptBox["s", "4"]}]}]]], "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQB+IC6dzcTdqvHO8t2cASofvKUVl+nwSIZmjo86oG0zMC IPS6CAj9NQlMM+zbA+GnnILQeV01YPHzUnVgenMIhPabBaYbWpnrwfybiRBa 6uEUsPgK36lgWlxsGlhcqHk6mC+2EkK/WjcDLM7jNBNM530F0w1lKbPAdN3+ uWBxL955YP4NJQidyjAfTK/Wh9Aveg6C6T3PD4HVpwkcBtMXxCG0rzKE7suB 0MeLIXTrAQh9g/UImDZ4dhwi/gVCx609CTaXZwuYZpi3C8I3DL0Apk1TwTTD 81wI/38FiAYAg/KY5A== "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Wch", "=", RowBox[{"W", "/.", RowBox[{"s", "\[Rule]", RowBox[{"I", "*", "om"}]}]}]}]], "Input", CellChangeTimes->{{3.5134347464380703`*^9, 3.513434747670472*^9}, { 3.51350619225*^9, 3.51350620628125*^9}, {3.513506317234375*^9, 3.513506362609375*^9}}], Cell[BoxData[ FractionBox[ RowBox[{"0.16752597495190386`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.055649135399924`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "om"}], "-", RowBox[{"1.9107564721191301`", " ", SuperscriptBox["om", "2"]}]}], RowBox[{"0.16752597495190388`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.055649135399924`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "om"}], "-", RowBox[{"3.8215129442382607`", " ", SuperscriptBox["om", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.764602302045725`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["om", "3"]}], "+", RowBox[{"1.`", " ", SuperscriptBox["om", "4"]}]}]]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAeKUu2v9I3RfOTIw9HtVg+mZARB6fQSE/pYEphv27YHw U09B+Me7asD8C1J1YP7zEAjtNwtMM7Qx14P5NxMhtNvDKWBxCbFpYFq4eTqY Fl8JoV+vmwGmeZ1mgun8rxC6PGUWmK7fPxdsjhfvPIi5SmCaIY1hPpheow+m G9b3HgTTe58fAtNpAofB9AVxCO2rfBji3xwI/3gxhN92AELfZD0CFjd4dhxM t36B0HFrT4Jp3i1gmmH+LghtFHoBTJulQugXuRCaoRJEAwBE541v "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"F1", "=", RowBox[{ RowBox[{"(", RowBox[{"Abs", "[", "Wch", "]"}], ")"}], "^", "2"}]}]], "Input", CellChangeTimes->{{3.5134347564688873`*^9, 3.513434771366914*^9}, { 3.51350642075*^9, 3.51350642103125*^9}, {3.513512573859375*^9, 3.513512589671875*^9}, {3.5135139635*^9, 3.51351396621875*^9}, { 3.5135798245*^9, 3.5135798374375*^9}}], Cell[BoxData[ SuperscriptBox[ RowBox[{"Abs", "[", FractionBox[ RowBox[{"0.16752597495190386`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.055649135399924`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "om"}], "-", RowBox[{"1.9107564721191301`", " ", SuperscriptBox["om", "2"]}]}], RowBox[{"0.16752597495190388`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.055649135399924`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "om"}], "-", RowBox[{"3.8215129442382607`", " ", SuperscriptBox["om", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.764602302045725`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["om", "3"]}], "+", RowBox[{"1.`", " ", SuperscriptBox["om", "4"]}]}]], "]"}], "2"]], "Output", CellChangeTimes->{ 3.5134347729113164`*^9, 3.513506388484375*^9, {3.5135064245625*^9, 3.513506436796875*^9}, 3.513506501484375*^9, 3.513506583703125*^9, 3.51350730196875*^9, 3.513507411171875*^9, 3.51350895565625*^9, 3.513512150515625*^9, 3.513512617921875*^9, 3.51351317046875*^9, 3.513514012203125*^9, 3.513514766828125*^9, 3.51355879609375*^9, 3.51356126478125*^9, 3.513564184609375*^9, 3.513564488734375*^9, 3.513566583375*^9, 3.513567760421875*^9, 3.513569195484375*^9, 3.513570083734375*^9, 3.513576955984375*^9, 3.513577578359375*^9, 3.5135777508125*^9, 3.513579523203125*^9, 3.513579901390625*^9, 3.513650293546875*^9, 3.5136530539375*^9, 3.513653379234375*^9, 3.513653438546875*^9, 3.5136535304375*^9, 3.513654116484375*^9, 3.51365417425*^9, 3.513654788203125*^9, 3.513655342796875*^9, 3.51366328153125*^9, 3.513663396203125*^9, 3.51366692296875*^9, 3.5136669764375*^9, 3.513667028984375*^9, 3.513680553578125*^9, 3.51368068171875*^9, 3.513680751265625*^9, 3.513680840015625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Fin", "=", "1"}]], "Input", CellChangeTimes->{{3.513650328*^9, 3.513650359703125*^9}, { 3.5136504095625*^9, 3.51365042915625*^9}, {3.513650693*^9, 3.51365072709375*^9}, 3.513650821234375*^9}], Cell[BoxData["1"], "Output", CellChangeTimes->{3.51365043584375*^9, 3.51365065775*^9, 3.513650696625*^9, 3.513650728328125*^9, 3.513650821875*^9, 3.513653053953125*^9, 3.51365337925*^9, 3.5136534385625*^9, 3.51365353046875*^9, 3.513654116515625*^9, 3.51365417428125*^9, 3.51365478821875*^9, 3.5136553428125*^9, 3.513663281546875*^9, 3.51366339621875*^9, 3.513666922984375*^9, 3.51366697646875*^9, 3.513667029015625*^9, 3.513680553609375*^9, 3.513680681734375*^9, 3.513680751296875*^9, 3.513680840046875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Fout", "=", RowBox[{"F1", "*", "Fin"}]}]], "Input", CellChangeTimes->{{3.513650296984375*^9, 3.513650325578125*^9}}], Cell[BoxData[ SuperscriptBox[ RowBox[{"Abs", "[", FractionBox[ RowBox[{"0.16752597495190386`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.055649135399924`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "om"}], "-", RowBox[{"1.9107564721191301`", " ", SuperscriptBox["om", "2"]}]}], RowBox[{"0.16752597495190388`", "\[VeryThinSpace]", "+", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.055649135399924`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "om"}], "-", RowBox[{"3.8215129442382607`", " ", SuperscriptBox["om", "2"]}], "-", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.764602302045725`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["om", "3"]}], "+", RowBox[{"1.`", " ", SuperscriptBox["om", "4"]}]}]], "]"}], "2"]], "Output", CellChangeTimes->{3.513650658890625*^9, 3.513650823734375*^9, 3.513653053984375*^9, 3.513653379265625*^9, 3.51365343859375*^9, 3.513653530484375*^9, 3.51365411653125*^9, 3.513654174296875*^9, 3.51365478825*^9, 3.51365534284375*^9, 3.513663281546875*^9, 3.51366339625*^9, 3.513666923*^9, 3.513666976484375*^9, 3.51366702903125*^9, 3.513680553625*^9, 3.51368068175*^9, 3.5136807513125*^9, 3.5136808400625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"Plot", "[", RowBox[{"Fout", ",", RowBox[{"{", RowBox[{"om", ",", "0", ",", "20"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1.2"}], "}"}]}]}], "]"}], RowBox[{"(*", "\:0421\:043f\:0435\:043a\:0442\:0440", "*)"}]}]], "Input", CellChangeTimes->{{3.513434820663*^9, 3.513434877993101*^9}, { 3.513434930284393*^9, 3.513434962202049*^9}, {3.51365066634375*^9, 3.5136506674375*^9}, {3.513664194296875*^9, 3.5136641991875*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwVl3c0F94bx20ie++9Z0RGfZ5rh5LsRCEzWxFCxVdkZEvZIxESURnJCtl7 p2zJ+PiQGX5+f93zOuee+7yfce55P7y2Hob2BHh4eM34eHj/PzOCbUnO2aVh xtROAQ8LLYM8V8x4/ME4LjLuMSEWTlrrQ3l4nsF6BO2lMUosUCV8fE8+lgC1 jjHOz7mwkNEQw03M8xKS2asmls9jQWLD7vmJYxZ80r7YcXwNCz+oMo//jebC y+UWpx53LLhe8nHb5S4CJjsJq+cfsPBh6Ff+tnoJ7B1p5uWPYuHA5crUpmMZ XHERERs6xIJGd7zgzmgFeMqXukmpbcJyqnbjtnMlhDrMY/+7swnRdkeWW4dV 0C/scFUzdBMGD52SsNzVEPruhq//l03wbeOS2SivAcZYTMTA6CawJQ51rqnX wZJ6tYQ5dhPqb0U6rg5/gcHHpW1MpDiwFUOEfxy/gmN0KhUPBw4IDgN6twMb IG25g+uZNA6Gfplwbms2wqcyMVJnVRz4lVBU40ab4CaHEfOaNQ50ExZJcNnN 4PHwclWDOw44/BqNN51bgH7plqjzQxysW6XnYmW/gfOC787hUxw0qD/Abhx+ A2xamXVMPA4SRA0xGy2t4ENbYSmThgM7asno9Zg2GBI1id7Jw4HCX9KJNdN2 8FkN0sAW44B0clZ4jfs7TIaLvJT4gIOxhi8+q8vfgS/S2K26GgdvC1Kb/5R3 wNA/ibC8rzgIjL5H+yegE9yULr3cacGBvrf+7RX1LojN/uH85TsOeMxFS3+f 7Qa5DK0B/B4c4C4RHS4PdwPZ+u+Jrn4ctPD/vLyc2QM4w5EOoWEcpJypSVly 7AWLJkJF5jEcVD7Q9b7H0geEDX5MrydwkL5ygXUrsA98NLVaR6ZwEGYl2OA9 0wcONtY8FdM4cO+jc8Rp9kOU9e2Qi79wYKaOR+X9th+e9yuOB8zgAH1cq9yk GoDoXPxir1kciIpO3vS6NwAtLp3cgnM4oEtvJ9gcHYBl8rIzL0/5kOpjkefF QSBRY1rtO+X5J3kG2OxBwGmaEPyfu7fjdj2IhyBYOl/z//c/OgZnbjgPAadU uLf0KWdNuGh69AzBkMoHyuTTeBFXb6yuyw7D062HTl2nerwatBLdXwxDDONI /uipXgu588rrh8NgcGn/8+efOFAv4J1xsx4BHcO33l6n+UmwUkestYzAgNmF AMIfOGCM/iflJjoKanclTDwncXB8/Ht4NWYUgrfbnarHcbDkNRroihuF+Acq /36O4qBvvoV/1XQMJNKLlBdO653TkeX1h3scXukOzMWe9mM7tUrsZ/Q4sJJZ aRD24kDLsXNuYH8c4qh1l426cLBKuGtSMzgBvdHjD+NacQADZ6nfoUmQZY1b DWo+nbdsvvac0kkwb558rdeAA8VL+srPwqfAeiHw8Nnp/ERR2G0Fbk8BLKrd PazCwfS4f4mnzQ+Qo3zdrl+Bg/98X3OZq0wDY/Fj2fS3p3rL/hEIb/wE26+4 m0MvT/sDZ25RSv2CAdl+B/NkHKgIJSmH2/0Cq+Oml/VxOHi+XbQV0P8LSl6G vZIJx8H5+GF72+IZ+CXDlJXrjYNbftZqUzMz4OyUMSrthoPw23+4TFlmoZhv +F66Iw4mJPHHdMJmgTAFddBa4uBRh4Tuudtz0BUncWypjoPC8k9CxclzcBxg kjl8EQcDqWqEgl1zYPD33aiIAg4EHM3rWJTmQeJdo7qlCA46CP+TwqNfgPTL QRaz5Kf1XaGiCNBZgElRNTV2QhxwDrxc2nq0ADdyx+tFDjfBM7sse2l1AYzG F1TrVzaB6dIkXW/rInCTZH6ra9sEJOCwcfloEUQ2y6pD6zfBmWKzs0luCb70 JnWwVG1C3ThJ2MfsJRDYD6V5m7MJtr6yuxkBy8CMF6Nt5LcJ78qeTbpKrYDp WOt7DvZNWKFbida1WYEbjgN6mtSbIOyrixFJWgFmurYWRcJNyL5IkTO3vwKu PhMVwStYSPge7WDx7Q8s+J5JDvyIBd+52E1tyzXwfxDnTqaBhQotbK5g7BrE aNi11J3+3xtFBsaETWtgEBzbqiiIBSdP2k/1wusgUcAjEEGMBYujhED5rXXY J3WQpA3fgCyKzlBaTSxcyFrvyru7DphLDy0f38LCHH3984ua6zDlLi6/8QAL in8oBjy414FlIGqx6y0W8M/QKxcPrEF86hWdCJpN6PxsQ5R1fg1CBXuoTiY3 IUXEIOho6Q84Qv/LVe8teBqIdxLP/hvwcndqJqO2IL2i5gvn+jKkEnFMdeRv wW0l+vjIhmVo/+7AVTSyBTYigcm09ssgYvwv1155GzB+40fspUuw7CRcMo3/ FxxYbkgbqyzC3YSg+r64HTDrm9tftJ4Dgr+5P78W7UCBeXYaOj8Hr8za8cqa dmB6vm2tmXQOOjjo1WO2dwC/iMFfv2wWxN8UtumY70Lh9PvgbLxZWK0d7Gvi 3gN64gHHwNJf4L4gOlf5bh98EtLu5nhMwa9b42SN3/fBIaLqugv3FBiNRUh1 z++DVshuwXzvJCh2LvkvsB1Ab2/q/rLsJBCWv6ZhCj8AozTreF38CUgN5MU8 uH0II6/pvtR+HQXynb47oQGH8FKKZakiYBSCPB4/i00+hObYSH4rhVGwtf05 9KbzEOzlU+W/l42AxOUMl7EL/4BkhQQ23w5DIz3rSyWaIwg6ZiaaaxyE8zHt 9ZriR7BpSRTwNXwQCkj85q9rHcH+/LtZNf1BiN4fkb4beAR/tDUllX8MgOnP pNZXy0fAvjOb0kEwACtvabYPG46Bz+dIwdqlDywFGljJpo5BP7ykmkOlD3oz PIBh9xjCIeGKK0UfVMb1REpInoBi5fGt4Ju98Mg3mtfq5Ql0VUYMseG6gZz3 P+GfinjIztJ7Q9SwE9ovxksHa+Kh9mMs8QlpJzw1z7zAaYiHfnzNmC2t7wCC uM/aN13w0PVGuqNYqQ44OF51HM3AQ+4WBRHCLN/hz5RJYS8BPqJ5zvGshqYN 3u7Zvnenxkd38VWDBAZbwYnB8zMlBz7CG/ZO1ExphXm9yHY9eXyUp5b3J5+r FaZq6pfbHPHRpPjZiKwL36ArVVi0oQsffY/cfdAZ0QyRlefP3R7HR2ekLOc+ mzTD5T5VpeMFfPTig8ENDH8ztJBa6lw8wUeMSrpy5A1NUOcb5/z5HAFiGolR vo/XBKXG+0XvUwhQoee/PwxpDeDqSVJxLY8AEf1ONKj0bACxaPqa9TIClB0c tden1QAFzZIdEt8JEKeH9fbu8lfIlLVdKTwkQPvxj+mn39bDc5pOsRxrQlSb MfOF7kYdVF/grNJ3J0RuNNfONJ6tg/lbHvDvISEyrP0Yat1YCyql9MZmLwgR 0SC7sINkLSzrWAZR9hCiqHteDudpakA9dK3XX4UIKUnPhqHjT+D+FiyEdYjQ ieyIZPLXT/CqP35+yJQITVdkS5U8+QRYboV9aW8iJGykMcZE9gky64L5FguJ kLefPm0q50fY+0vtY8hEjPga6fJlTn0dP6ftyQk/Mfoq2no7TL4S9DUqn5We I0aqMXPdvgSV8DrBPJPsKjEaXTryFM78AIbSOW31ocQowJr8YvhUBZQ6ybKJ bxIjo1l548R75TAW+1/+2DExSnt7Kbr9cjkQfRqRenqWBImYjloHcpWDBfFD 9RlhEiS0Joi50fkeyHKbXV/cIkFkK9eKasTeg+2k8VfCLhJEOGn5JuqoFMjT Zty8xklQPk89X+anUqiwcOf4uUiCcqx0nvh6lwLhRLh/DT4peu8Xuui+UgL5 YzVyXhdIUduYvazyXDEsDvMUTueSoqChq1fkd4rgeXKp6ZX3pOgVjbRZVG0R KJgoE9d8IUVGtpkEoU+KIHzIyDZ5jBRdSS+4cI26CEQGn3JcoSJDD3ojwwVk C+Fu32pctT8ZUqIm3uVPLAC6OH8QDidD3s390eU2BVBzjWQ9KYkMebr0lDfL FABFL7eeZxkZEstNVPboew0l3YbEwgtkqH114/4nxtew3vHZP8ngDGqKpNL4 +jEPvL79Z+shTI5Ii2OVQScHuOa1SHbkyNHBDZObBCI50Elw5m0gIkeltQ/F GEhzQBDFbD67QY4KVPdceVqzYbwm+XF+FDlq46zSbNHOBtX3BZnjG+SIwqLn OnV5Jqz3OKlZ/yNHlRMh/UUPMiFtTWxxkYwCWTaK1rVjMuGvWJnkNi8FuhZx Q+l5TwYUvf5UR2VMgQLyuBJpt9OBNq19Qv0zBeKZ8xUbNkmD+urI4I4WCtTg or/HJJAGLmNX+K73U6CvBDF57bhX8I2x3/nWCgUSneXf8o1/Bf5x43t+HGeR Q7Li9M/BlzATtsL07vFZlFlEc4R1SYVyz7NGLDqUyEvjzSfe2WToekXvX2pK iaStNF1lq5NhsYUtS82OEvFaERLkxiUDG6voH9dHlKgys7jpJUqG/xo1Qxur KJGbSvFCb34SmNI9+nCXjwqlU1WfhAQlgufFp+Mn0lSIJV3ElcoiESIdYk6S LlGh6bfUU78VEuFrTZreV3MqZKej4RmzmQAidz7P0cdSoUwCqUzPuwlw8GGT /sshFap63Vuw5xwPDNN7SoZnqBHrLXM9Qb14kCLDs15ioka2VNMVyRLxcMeS qoRWlhrlNVw9A9g46CIS13BwokbVHlaH2QFxkGlid596mBoBk7MGv0Is5Dx0 WZExo0E0g9Z8xJTRINNwZi/cigZpPLFmPDMTBQ1EhcQ/79CghwwNg7ZVUfAr Zp4nxpMG5ZbVvGC4HQVc2VZmv5/RIGKnpq2bHyPhVcu1lpw6GpQaoKU4cu8Z JFCez6Tjo0WKFWS9tYLhwGc4UOwsQot0qAyNOAjDoTzFs7pBihbN1bKbfvn1 FPq4S4fcVWhRTHNEWn36U6CSFaLoNKZFfzu6Bt8xP4VIUxa/0HBapHsx8Xcv SxiEZP27vr1KiwgvGhi+0QgFA5nPXuJbtIhC5CxxgWgocDXei7fdp0UuP6kW BqlCoWZ2pa+PmA6tlUjk146HAE5w/FopFx3yusaR/N4rBGxLqq46GNChwrmg 6emiJ6Ba7a4z9oEO2YgpFqwpPgYqXTFn6ho6NGVoTiTA/ximJhYitBrokMHY /Eww5WPw+2fZXtlFh1KW5TdUvz2C96CnHb9Ahz6nq3txcj4CnlZhTV1meiQd aHPyZjwI8AZ/oboAeiSsvNj5OOQh/Pe7PifgCT0qYlA9IrN8CGfwMgiUIujR RD7X1SH5h0AneaOlKpkeLXs4s8quBIBgeL922Xt6dJlk3u7QJAB0VZr0cxfp 0T9aub8GSv6QmJdnGWHIgJgEMbVvxB8AS82TL1o3GJBVQLNw+tkHkN53m4vY mgFp6pI8aVnzhYIj9l9P3BgQVn/douy9L3w2S7rzMIIBzXxpjZhV9IUpirC7 7vUMiCDzZqGToQ8I3XfwMxZjRCMeNK4eb+6BpPJPoywZRhT7a6VhLPYenMcz l15RYEQO4sWe9n73QC1aZ/GROiMK3oiYW9K5B7fyJYyLLRlRejyPVuS6N6QM 4aQJYhlRdi0zBw3GG4jlHy2VbTGi57Tyb+K3PeHs4W7TwT4jwtoatW3/8gS6 Rs9MTTwmpOLPhrnf7Qk8V21NJs8yoYxXXS5tBZ5w0V6zmUSICd2SMQiptvCE +8kUWVbmTEi/Ruq6dqwHzP99YUrxhQlV5LD5VDm5Qa6q3L0fzUwosc26iVfT DW7H9MSWdTChwpicwWZeN5gQIP5uNMaE2oadvryZdIV+I2+V9C0mRPtoRmn+ uivUl1/hkRRjRjM7SXXT2i7wwg1/Rf8FM7omffn6AzNnMK5OJ+HNZEYd+Zfx 15WcgY5YkX8rnxnF4mIqYzmc4Xm6u+WLCmYkEyS5bzjrBP91Tvb87GZGd2ia fvd5OIGn6McPnkQsKM7PtcklwRF0F+4GJXixoHwf8QKNbXvQCuIv0fBjQcIX rt4km7IHNcapiZ1gFuSiKvZordkelDWvKt6MZkG9pUYK7En2IPZaeov/DQuK b5TwPJa3Bwr7baeqKRbkxOrZX/XIDrrmg4zHtFmRe5GjZqToHWgPVAiN1GdF lAhpsTDegRaGjfKLJqzI8b1GZCPeHajTsKbOsWVFrUMtkvZjtlCSr9bhHMSK DMxXzq1G2EKMHSk6rGBF/u1Ob4fWbUB/Pk6ci4sNlShKhB50WUOX+PyQpQAb Yt550tZVZw169y4Ep4mxocT3FGEVJdZwmWC6j+UCG+JWf3D4Kdoa1HjEfekN 2NCLSZaeN1etQd7yWwNZCBuqEnjQTlJwGziG9k22FthQkiiz4uqwFbxiv3py bpUNdSXPLZHVWAHrnexCTxwbGtBTkdTKtAImnNbh2jEbsu+XaOJ1tAIamqTs ZWZ25K1fKmJ+YAmEV6T+/NBhRy1Byt5pQpaw0mz7uL2UHeUZWPmbJlsAd/zY 3eeV7EhL7lhE9KEFGN/SNzGuZUfKRys0HDYWUL+nJParnR1p+Fd02khaQIIk 7dDuHDsqPE/S7dh2A1RefBUWZuNAP6qvEirg34Douxy9YU85UJQ+2eLbSDNo vJBQrRfDgQjvhxlK3TeDHSKyfNokDsSxcim1y8oMrLO2/DJyOBBpdw/jjXNm cH6og6+qjgMV/b5TWTpuCj8u+fvO4ziQV4osv6C0KUjRjnCq3+ZEQhhhFtNV Y1iMWQxJtudESobviZQmjCGDfHdpyYUTYVcLo6TbjeEsEUtFtB8nsqEFQrN8 Y1jZuaE1Es+JcJy149FWxvB66oe7cwsnqv37JT940Ag4Che+xopyof8M1FhG ugxhSGBHYFaaC8m/CPx+VGcIUTkkkecVuFC1YISEQqkhHLwSNh5X40Ke19s+ jMUYwliM8zKfJRfKVkx5NHvNEBLvrdF8fM516kK05XdHrgM5/LWZ2uJCfuUl JulYA/BTFSH7eMCFAq/5lkbOGMCi+s13sfjcKD1up/XZgAE0XW48UKPmRp+N +xeqKw0gwDAmsUiMG8GLAOef/gbwx17wm68NNzp1/sUSpAbQFW0iQtvLjbRp Aj48stAH5diInpVhbuS2+0BWBelDYXzt/ZYpbjSdcoaDXkgf/kvhbXywwo1M zV+kMeOuAlffjsQGAQ/Cduhc94i6CiPjTd9MuHgQ/98wT+XmK6C9ZrHLZ8KD NNhwuwZaepDJEDr4yJwHzcSdwTRK68G2SnHZ1E0elKhdMnaZVQ+yIw8dU2x5 kGnI1ouMVV04EE4fO+PJg/jkNbgsknShxPZHNTaSBxFXx3STLOsAzdjtwPoG HhR6ifqHd9ZlGGuyw7eQ4EVZch9mJXW0AKs6wRYkzYuw2TZkQ4paQNp47Xy2 LC8qLQ6RfCaiBQpflR0XFXmR85roeR4yLUiqpen21uRF60Ekd0/aNOFaZV1q 1C1eZPKt4N59XU1ofc0g8yWOFw18LNvuuqEBVREtt3j+8iJ9sY4whiw1KNTt ZAnf40V8GiEzf+LU4NXZgYG1Q1701yKgoi9EDR7H/dSqJeBDRgzjvk0OanAl 9UDKlIYPrUeF/9KQVoPZNzInUeJ8iKiwRvZzkypQtaVn7drwofJ847RtHAIH Yp9fPT18aLqVc7jmDwbYuL+PHvbzId53Ym9aRzDQo8jZKzLMh2a4MpTmGzGg 4PrtS8gkHwpzTDUzTsUAySBjmsIyH/qtMx5KooWB19kfTTLx+VFBwWfVvPxL MK+y1+F2nh8xfDVI13a/CHe8H1adfcWPcsaDvVqklUFBdrpKNIMfDT3x02Dg VgZyHPqolc2PrlPT3PGiUob3XiSfHhfwI89RfQOjNSX45xn/ebuCH706ehVZ WawEKR5vaqc6+ZGP5MPCGTEl+O462FhyxI/ixz6mJ8gqgrSjeM8VGwEUdoh5 OW6nANPO3B6ldgLoSPneyY6JAkS70tNQOQmgZ7PYZh5tBfjtdXi9110AsZeF KLwUVYC8wM7h64EC6JHyBVeODXlgTnD5YfpCAJErFr20CZSHk7riVetuAfSd N7IlOes89NJJUPgoCaLrjL0BmiRygHFz+512URBNhQYxbh7Iwru2d21Np1vB QJs39+sNWXgeeO4/Gi1BVGTHeEdoXBauLCocFRsKotxvomPRJbLQUa26Mesi iIYv65HPGcvCN2uzQYNMQfTom1pGSPE5qH0XkiZBKISO/D+KMnnIAMkVE7YX JEJIp9ymbcpOBq7/Fn6JTy6E9NfizIstZGCJvztlhEYIJdsMX7DWkgH6l8wJ j7mEUNO8JIcIlwy4hJZEDCkJIb7d19eMM6WB3XzEJ9BTCB1afX8Q7SYFD/HF DLp+CKEIdnz1SXkJWNSgGBOaOY13+es3TUEJMIhYvf1kXgjRcOj51TFIgAB1 mYfCHyGkkTuh2rMlDl0c52Oz94RQeVPRxZAKceBSxPTcpxdGklW8eXyy4tDk bniFU0cYuZWVrx0piQH5VMBl90ph9MHlNx7xXRFYKOBNygoUQW9x3bc73AUh SYSVqNpEFGXqFKSrVfBB3CuHNhseMcQupboc/pQHLJKses4uiSEapu77U3c4 YU/j9X5WvTgSTEnX5NhnhbkFNb+mcAmkZ5oy3KPIDLmXzrF320ii5onDz8F5 DFAa5kPrKCmF9u/kzdFE0UG4yR09wr9SyHtr4+27LzQgP5VTFN4tjdaHna9X UlJBqmhaabeeDOokititv0QBjxpiUvWqZZBSW0wWx3MyuMpu8rpD4Bw6FJ/w iVUhAVX3tpu0z86hztihG5TXiCCLw1ag6+85FOw7HlF/jwAEmt+k6N+URYLp +qUMy3gQJ9kkNlAvi1qOAskwzCcYhy2i/u9icuiwIM4vx/MfxrYcx/MsVg6V aD9U9blwgHENMfqnGy+H/G2lssmkDjA+RpWjZxPl0GOln8rZAgeYiL8+z+NS 5NA1Sjb2KdoDzDul/cMXGXKojNJO++nqPma/8WSkoFgOOZz3MMvN3cfEDZyN aWmTQx3CLT9/0+5jXuW5OT39LoeYzS644Z3Zx+Td71G/3CmHqr4bYNnw9jEf meIOOnvkUKkOSe/N9T3MlAW90+CwHOqr/vDhbOceRniOVX12Tg7pWrNdFg3b w8hUBnDlL5y+ZxskHxy4h1EOm9y3X5JDTWKWuyP39jBXhDPe/16RQ9EcHthE 2z2MtwsP1+amHJLfvvVIBe1hAi8+2a/YkkNE3ynG3l3Yw4RRzg7d/yuH6rEs fwWl9zCpZXlRe3tyKPHMrfvcXHuY3MdEjjUHcujKdsZADuMepvi6vVrgPzlk w6+/Jky5h6nka+XEHMuhv9k+TeVEe5j6LaH9kxM5JPKOwwD+7WL+B1+xLYk= "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 20}, {0, 1.2}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{ 3.5135065015*^9, 3.51350658375*^9, 3.513507302*^9, 3.51350741121875*^9, 3.5135089601875*^9, 3.513512150546875*^9, 3.5135126210625*^9, 3.5135131705*^9, 3.513514012234375*^9, 3.513514766859375*^9, 3.5135587989375*^9, 3.5135612648125*^9, 3.51356418465625*^9, 3.513564488765625*^9, 3.51356658340625*^9, 3.51356776046875*^9, 3.513569195515625*^9, 3.51357008378125*^9, 3.513576956015625*^9, 3.513577578390625*^9, 3.51357775084375*^9, 3.513579523234375*^9, 3.513579901421875*^9, {3.513650661609375*^9, 3.51365066825*^9}, 3.513650826078125*^9, 3.513653054078125*^9, 3.513653379296875*^9, 3.513653438625*^9, 3.51365353053125*^9, 3.5136541165625*^9, 3.51365417434375*^9, 3.51365478828125*^9, 3.513655342875*^9, 3.513663281578125*^9, 3.51366339628125*^9, 3.513666923046875*^9, 3.51366697653125*^9, 3.513667029078125*^9, 3.51368055365625*^9, 3.513680681796875*^9, 3.51368075134375*^9, 3.513680840109375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pl", "=", RowBox[{"NIntegrate", "[", RowBox[{"Fout", ",", RowBox[{"{", RowBox[{"om", ",", "0", ",", "Infinity"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.513506669375*^9, 3.513506685359375*^9}, { 3.513506729546875*^9, 3.51350673475*^9}, {3.513506877078125*^9, 3.513506933828125*^9}, {3.513507029875*^9, 3.5135070330625*^9}, { 3.5136511373125*^9, 3.513651140046875*^9}}], Cell[BoxData["1.8257573233780031`"], "Output", CellChangeTimes->{{3.513506911765625*^9, 3.5135069346875*^9}, 3.513507034984375*^9, 3.513507302078125*^9, 3.51350741128125*^9, 3.513508969046875*^9, 3.513512150625*^9, 3.513512637140625*^9, 3.513513170578125*^9, 3.5135140123125*^9, 3.513514766953125*^9, 3.513558803875*^9, 3.51356126490625*^9, 3.513564184734375*^9, 3.51356448884375*^9, 3.5135665835*^9, 3.513567760546875*^9, 3.51356919559375*^9, 3.513570083859375*^9, 3.51357695609375*^9, 3.513577578484375*^9, 3.5135777509375*^9, 3.513579523265625*^9, 3.513579901484375*^9, 3.513650829828125*^9, 3.513651141015625*^9, 3.51365305478125*^9, 3.513653379375*^9, 3.51365343871875*^9, 3.513653530609375*^9, 3.51365411665625*^9, 3.513654174421875*^9, 3.513654788375*^9, 3.51365534296875*^9, 3.51366328165625*^9, 3.513663396375*^9, 3.513666923109375*^9, 3.513666976609375*^9, 3.51366702915625*^9, 3.513680553734375*^9, 3.513680681859375*^9, 3.5136807514375*^9, 3.5136808401875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{"tochnost", "=", "6"}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"om0", "=", "0"}], ";"}], "\[IndentingNewLine]", RowBox[{ 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"}]}]}]}], "Input", CellChangeTimes->{{3.513666822296875*^9, 3.51366687490625*^9}, { 3.513666905890625*^9, 3.51366690734375*^9}}], Cell[BoxData["2.408876500000003`"], "Output", CellChangeTimes->{3.51366692453125*^9, 3.513666978015625*^9, 3.5136670305625*^9, 3.513680555140625*^9, 3.513680683265625*^9, 3.51368075284375*^9, 3.513680841609375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pl095", "=", RowBox[{"NIntegrate", "[", RowBox[{"Fout", ",", RowBox[{"{", RowBox[{"om", ",", "0", ",", "om0"}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.51351230209375*^9, 3.513512317109375*^9}, { 3.51351235528125*^9, 3.5135123739375*^9}, {3.5135127070625*^9, 3.513512710890625*^9}, {3.513513121*^9, 3.51351314009375*^9}, { 3.5135133614375*^9, 3.5135133629375*^9}, {3.51365116778125*^9, 3.513651168953125*^9}}], Cell[BoxData["1.7344693617405178`"], "Output", CellChangeTimes->{ 3.51351231903125*^9, {3.51351235740625*^9, 3.513512375125*^9}, 3.51351285109375*^9, 3.51351317240625*^9, 3.513513368609375*^9, 3.5135140204375*^9, 3.51351477503125*^9, 3.513558838734375*^9, 3.513561273*^9, 3.513564192734375*^9, 3.513564496828125*^9, 3.513566591578125*^9, 3.513567768609375*^9, 3.513569203609375*^9, 3.513570091859375*^9, 3.51357696409375*^9, 3.513577586609375*^9, 3.513577758953125*^9, 3.513579531234375*^9, 3.5135799033125*^9, 3.513650847890625*^9, 3.513651169875*^9, 3.513653056734375*^9, 3.513653381203125*^9, 3.513653440640625*^9, 3.5136535325625*^9, 3.51365411853125*^9, 3.513654176375*^9, 3.513654790328125*^9, 3.51365534490625*^9, 3.5136632835625*^9, 3.51366339821875*^9, 3.513666924625*^9, 3.513666978140625*^9, 3.5136670306875*^9, 3.51368055521875*^9, 3.51368068334375*^9, 3.513680752921875*^9, 3.513680841734375*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"pl095", "/", "pl"}]], "Input", CellChangeTimes->{{3.513513144625*^9, 3.513513166296875*^9}}], Cell[BoxData["0.9499999477101454`"], "Output", CellChangeTimes->{3.513513172421875*^9, 3.51351337040625*^9, 3.51351402046875*^9, 3.5135147750625*^9, 3.513558840515625*^9, 3.513561273015625*^9, 3.51356419275*^9, 3.51356449684375*^9, 3.513566591609375*^9, 3.513567768625*^9, 3.513569203625*^9, 3.513570091890625*^9, 3.513576964109375*^9, 3.513577586625*^9, 3.51357775896875*^9, 3.51357953125*^9, 3.513579903328125*^9, 3.513650853515625*^9, 3.51365117334375*^9, 3.51365305675*^9, 3.51365338121875*^9, 3.51365344065625*^9, 3.513653532578125*^9, 3.513654118546875*^9, 3.51365417640625*^9, 3.51365479034375*^9, 3.5136553449375*^9, 3.513663283578125*^9, 3.513663398234375*^9, 3.513666924640625*^9, 3.513666978171875*^9, 3.51366703071875*^9, 3.513680555234375*^9, 3.513680683375*^9, 3.5136807529375*^9, 3.513680841765625*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"kpkv", "=", "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"}], "*)"}]}]}]}]}], "Input", CellChangeTimes->{{3.51351331721875*^9, 3.513513332296875*^9}, { 3.513654568296875*^9, 3.513654582203125*^9}, {3.513680631734375*^9, 3.513680660703125*^9}}], Cell[BoxData["1.3041733993377365`"], "Output", CellChangeTimes->{3.51351337234375*^9, 3.513514020484375*^9, 3.513514775078125*^9, 3.5135588460625*^9, 3.51356127303125*^9, 3.51356419278125*^9, 3.513564496859375*^9, 3.513566591625*^9, 3.51356776865625*^9, 3.51356920365625*^9, 3.51357009190625*^9, 3.513576964125*^9, 3.513577586640625*^9, 3.513577759*^9, 3.513579531265625*^9, 3.51357990334375*^9, 3.51365085771875*^9, 3.513653056765625*^9, 3.513653381234375*^9, 3.513653440671875*^9, 3.51365353259375*^9, 3.513654118578125*^9, 3.513654176421875*^9, 3.513654790359375*^9, 3.51365534496875*^9, 3.513663283609375*^9, 3.51366339828125*^9, 3.513666924671875*^9, 3.5136669781875*^9, 3.513667030734375*^9, 3.51368055525*^9, 3.513680683390625*^9, 3.513680752953125*^9, 3.513680841796875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"h", "=", RowBox[{"InverseLaplaceTransform", "[", RowBox[{ RowBox[{"W", "/", "s"}], ",", "s", ",", "t"}], "]"}]}]], "Input", CellChangeTimes->{{3.5125707338827405`*^9, 3.512570734288764*^9}, { 3.5125708062898817`*^9, 3.512570808415004*^9}}], Cell[BoxData[ RowBox[{"1.0000000000000002`", "\[VeryThinSpace]", "-", RowBox[{"0.27430444514612284`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.8439203931775128`"}], " ", "t"}]]}], "+", RowBox[{"0.11721255984221579`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.09819131525378877`"}], " ", "t"}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.9112452968072117`"}], "-", RowBox[{"1.0914621263055084`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.4214540573480466`"}], "-", RowBox[{"0.45263957911433883`", " ", "\[ImaginaryI]"}]}], ")"}], "-", RowBox[{ RowBox[{"(", RowBox[{"0.4214540573480466`", "\[VeryThinSpace]", "-", RowBox[{"0.45263957911433883`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.182924252611017`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], ")"}]}]}]], "Output", CellChangeTimes->CompressedData[" 1:eJxTTMoPSmVkYGDQAuLGCM3yTdqvHPXubGSJ0H3lyNCwxqsaRDPMDoDQmyIg 9K8kMN0gsRfCPylbB+b3z4LQE1nqwfSTJAjN+mIKmFYSnwampVqmg/XJrgLT DV/XzwDTYs4zwXTZNwhdlzoLTLcemAtWH8Y3D8x/qAyhMxnng+k3+hA69/pB sDrpF4fA9EqBw2BxcQkwzTBVGcK/kgPh85dA+GcPQPiKbEfA/NJnx8H0qS9g mmH62pNg2mMLmG64uQtCZ4ZeAIvnpYLpBoU8CN+6EkQDAPXYimc= "]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{"h", ",", "1", ",", "1.05", ",", "0.95"}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", "0", ",", "50"}], "}"}], ",", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{"0", ",", "1.2"}], "}"}]}]}], "]"}]], "Input", CellChangeTimes->{{3.512570810543125*^9, 3.512570829199192*^9}, { 3.513514133359375*^9, 3.513514194484375*^9}}], Cell[BoxData[ GraphicsBox[{{}, {}, {Hue[0.67, 0.6, 0.6], LineBox[CompressedData[" 1:eJwV13k0VV0bAPCLa6bMJERKURnKnHqejJdQ0WQqVMjwFqUURSJEEoWSqcGU qEhRyJCilKSUISVKMpxzkTJ++/vrrN9ae699nmHvc7aS+yG7A5wMBkOJg8H4 /3ON96FunVMJwJC2WBErpQk1QUW3VnplAgO+WhykrSFJt89ZOD4XFC+eY59S doUGTX9PHq9iYCxPMy077AshkvOP57NK4LCF/VkNnmOQnGi2cebCIwhzlXON OhQKxQvj6v6efAKfkv9xeGhHwsu4VtaEZzWIvFpTZHwkFqgIoZ9BBTVQ/3D4 xk69S3Cqrlh1MqsOsr7PXY8QuQICnPa+gSnPgc/fe8EB46uQjH+Kxi68gMfX X44aNKWDcuhV2j+iEZ4aidbl2GXDvUojberkK7h8RhBODNyERsOz5UOebyEi 7w31ICof7hiJn9YpboHax0Mm4fGFQHfuzzxa8A56KxNSvB8Xw2lZvl521nuQ NNDzMNEvgZQUW8/RC+0w9yWU+Se3Ar7oZkWrx3yCMW86+X7OU1j2kc73i/gM 0r5pr7QfVME9iStDv092goe9bvjdYzXQdKnTf8CzB14vr1VPYj+H6NTkxiSt r/BMicMiSv4FrPYCx3XFX8H8GdeyBuuXEMB7KTig4Buw4vSvr3nUBHNm2lVU 1neQGj4/u/zhW5CpO2kyfOEnsGuNdjSIfQCrSl7bH56jsPbC50zrlz2gNe8+ IUWNgl1X1bOn8BXiFPe+UTaiYN20nMXota9w1L0icHs9BfX/RWlwb/0Gpj8O 1z9so+GP0Mt24dJe6B3udguaGANLv6BAe5d++Bgf+zDBYBwOPtHSWlrcD00a Bvz5p8ahMG6CqcT4AQ/8L9/7zD0B4t45G9Mzf8CZCat5Q6k/YG7nuVip7Sco zj66Pqv7F2Q7pJ6miAyCRMYBSjL4L/R/iqltsh8EPhA3Va/+Cy0iG1Ywkgdh NOy/33ss/sHIdJqDn/RvqGIuN3y2awqMZ12yDBYMwYPbrRc+pU3Bi3rOdA/L IcgxD/tG9UzBdzXdooSzQxAf3Rmt5DUN+7Ii1naND4GLUGJ7eNAMXMpfzOPw ahi23oVVaU9nYEUu13Dg3DCY2g6fLmHMwkz7vSNJmiOwOoGl0hc9C98dHXa2 XRqBGfH5o2ZX56DtnFF9PGsUqNLCly7dc7BiW5nuuyOj0LfDUe6Y0jxYPGwq UcgYhVcpD+ty8udBRup8/rfRUWgW1uVnujBQu0anRd6UgtbNYqlvQhg432za 8mk7BZ9iRlSuXmfgQt+QpxoHKOjjzjVV72Lgu8MGU6URFMzMSoftduLA3My7 Z/WqKeA0Gl+gHMyBL+ZsdIdeU8B3siV9+BoH/pHQvGjaQYH4n+gn4R0c2Jnc 7Nw3RoHayL8/hQ6cqHtk67q5pTRorv4YefwEJ565NNs4vIYGXe8HEsZXOfHs rtEbMfo0GP/wXtv+iRMNfntfabKmgbXMoib7LyeqCQ+P+u+kwdZdeauvDBde +Gy5oGkvDQ5fOv04dnOhfMwdlUv+NOyRezzz6jgXcrot8uE8ScN+x8uxySlc mHH5G69qOA2HP1rnr2rnQqay9Y9rl2iIflPZt2MnE+/xnDqndZeGeKFrRxSP MTFVfuFnvxIaLlsd4/x9hYkOcL3Sq5yGzAZ1xbAPTGRaLm7LqKfhFlOw2GqC iWqx41u6GmkoMP65QVKSGyUanOmuNzSUVWU6FWznxoDKdeqrP9HwdCZ48OhR bsyP3Cd4qouGWsPdJ+AyN0aUHb505SsNL4O0+QRKuVFrT3f3sT4a3pSJpLS9 58a2BblCSwdoaBsfWp45xo2WHJr6qb9p6FjbWHpQnAdL+FVPdIzQ0F90pnXO jgdNJQyuvBinYXDIxa0xgAc7roWmHp2kgVIzpJISeXBJ6X8c7H9k33lJhe55 wIN3Doj24AwNMzlsYdVWHuxPtNnoPkcDZ/+b62M0D7bufK+6i8EGPuU7q6pE efGmlHCBIicbFrhFVURr8eIvS5Hn1VxskMjcZ2m/jRdNJ+JP63CzQbYbPsn7 86JHW2N7OA8bFBfLeQ4k8OJmzbNv83jZoOLwd+LBPV48sYftlsfHhlUpbRGn Wnhx3Y9H0eH8bND8cE+cRfHiIVarob4AG3TFL9wQE+HDEM8k3yZio20Htbo1 +BBjkxcaCrLB+KLZs9wtfNg7VyYWTRxmVZrf+h8fejaFN5cSV3ErJ81e4ENj 7biJWuKZZ5dCVt7lQ8dfzP0lxIYhDA/713wYr3B89BxxkN6hLad/8+Ha1Gqf jcRl7G79fAF+fKXKV9BB1h+/a720TZUfd92pDXImXnfwieA8ix+T3W7drCfv H7BMbULVix/rPmaPiRPf60n9sj2KH1cr/VbfTOIducb7MjSHHxWuDMj4kHys 3nnsfsFzfrzToxdwlOTLW7T/2oc+fqyPyv/rSfKZ99o+gsEUwJXvN3qaM9mw zERr105jAVRWq+to4GCD+1wmnnETwCXN1yy8Sb2yyheoFYYJoG7WAd9pUk85 zaEZjmoBdNI/H/9rmgZJ+dwbd9cL4uyqhz68EzRs/yQZ98lREKvSc3vVxmhI TIoI5DopiAHTSaqbaBoWCLizHB4LYk0+4zRrmAaeSbkRpo4Q7olzYLaSfjV9 ENuusV0I1z2feJfWS0O439QzxyNC6Cco8cGZ9Pfc9/ake/eF0Fmt/WRDJw2T LYkGzurC+HBNfJ5ZKw0DBXyRJSsWYPP8Z5WdVTQc0JgS1hIWweDdRpb2V2iw 7oy6LaMggiu3w6fLiTRoR0luYGiIoHXTAqfPF2lg9mj6vt0qgvblDGvf8zTc iPds8rssgmf8Nj55FkpDz3DbuYLFoth35luXnQ8NDVfdFRJXi2LOLyH/L140 FJlRD09sEMVB4Z9LD3vQcDpdsJ+1VxRF9PbvyXEj+bMxNvl5QxRt+t8Yu+0m 509h8byymhhaWT8+pWxBA+7ekCK4XgwX6gUvljOjYSXzlfrYZjFUlG0SkDOh 4a/TD5daPzHcVej6RwtoSBaUf+p6Xwyz2JIeZXpkvUcF9qxaMax5az/3S4fE v0//t8Z7Mj899N8ybRLvE3vZ+XExHI1BofuaNLz3Ph+Uri+OS7LPSymp0VAh JSMSaSmOAVZv8eJKEn/t7VxfR3FcVs+fzlxBQ4Bszcf1IeI4uv51LXMZDSJN k9od1eJo1SUY6qBAg43qAVrKQgIjZRvCWRI0TMUGPuneKYEL37P49MRpyBuJ jLzlIYHKsXt5V4mRfJfmLFp7TgI7ONV0lEXI+hsHNtk8l8Co1qArdkI0eGX/ JZWXQIXUIQ0fQdJvTP6PHX0S2FpcWhctQM7jRlVvL6Ykjtw/ntTKR4PKdp/E syaS6JRykc7gJuddWbCzlb0k7p2+FdjNpOHMojgV0X2SyNAy81Ik7vpSWJER LoleZ7jsSjhpSDo40lteI4ldS8aNBRmkHq/nCsPeSaJs6X4Ln3kKRtQXHrf4 Jon7p3VWvZ2jwGpcQ/ADQwpFI9db3pilgBHqv44CKfx5cvXgkWkKir6dmS3b IoWynBPj1BQFTqaJL07tlULliZSt/sRl/CVOgqFSmPNjU2nwPwp8L4+fVamS wnirV+YPJymQnWTaDjdLocuHRNqK+IWDpExptxRK7rLa9/0PBUuX6BZumpXC ouGbu+WIP+cfb3M2ksbKc5xVheMUnBOKzlC2lsbxuROtO4m1D6V6DTpJo+ps 6iou4gTt8pnjwdJoFHTIz518b82rp5YlVUija9XoWQM2BeNKgqMOTdLYspcp Ok5TkB2xuFyxQxrvHLTyvkc8Y2lkU/RPGptvB7DUiR+0nQps1JfBTZCgvoGi IC9yv3uvpQzWZEcMzo9SkKG7ecu0owyO9QVuqic+nyqjuuaUDMoIhYVuI97n XNKVUCODexv2RYaMUOAofK0xv1UGbwRec7Ui3loVVlb7XQarc+WcFxEbKdom jHMvwsz3dcEVwxRI9A2Y7LZahAu3jvfyEgtceavp77QIh7/8M+keIvUxL5M/ 77sIhUIanUqIh3LPTj6JX4RZOovD3Iif+yjcWfKezI9Jc67/TcGxMXuxn06y 2KJvZpE2SOpzy3B+3lcWd09l8x0ndt+hNCRzWharemZ77IhtH408t8qSxQ/T avcFiFcEx5wo6pPFZ4PZwid/kf8lzuqvgX6LcVu10PC2AQrWi6kVM0Pl8O++ As66fgrecDg2Nl+UQ6Y6x+IUYlc65ntylhwK29iWeRNHtPySVq2Vw8/Uh/9E /j8+Pj/MhlseL56frNzRR8YLqtolx8qj7aelgw29FLCndvvuvS6PGc1nsxKJ Iwajz628K49H6gJfuRDnNw5UVLyRxwEJjlD2NzI+Kk+5R1QBq2el3CSJI5gr J1akKqBer83RTT2ks8d3LaTzFJCerUtjEud9j1KtKFfA+atW+OILBc21P12s OxXwR0wHczOx1JnchsMKS3CTyuh1626y3qxKavmtJRikenSdQScFntOJ6bd3 K6LbW1mq9iMFl22H6k64KqJUwe2IU8TPss0GbbwU0UXrXasesQzrr+6f44q4 3XYu+84HCl5edmkxT1HEQzs9dRLaKFBVX8k18EERdQZnQmxbKfjtWumlZq+E klzb7+c3U3Co4ee6YpulWNFoc0CZ3CPOO/Isn/Vdhk8jr9Zq3yP99yLYQ8tL BRX6W+tvZFJQw7tom4/DSlz96NBSlUsUaImGJf86qoaTDkoZ4+EU7B3bsNrW dzWqMHYdGDlGQVbGc7nJC+rIfBz+Q96H7Id4w85WO03sLBSVyHOl4EjFhq3p 1lp4dr2ZxftdFFQ13WbHOK1F385uu5VbKPCyMKg8uHsd7lg4bdhuQUFantZD H29tDPleEVSIZL+OVZ45fFwHLaoSLHYYUtBfEHjMK0AXEz9feD2lTUGdeWJq eLgeeu1quV2hQfp9S0fvxTB9PFq+TMN6FQXzWMaRdcIA72rf2OK4goIo6Umb 1ihD3OnifO6kMsmP477aybPrsTHtvomOIgVfz2jvhytGGGORVcOQJ//nSVc7 YrI34Jbii6VqshTcFlE78SJtI4b8m7n5XJrUK2CJ2Yo7gM/2Zwj5SpL9rpgl t2E74qv0duPD4hRUhkwxvFoQ7/o0KReKUqC0mXdGedcmvL527PvoQgpK36rG fm7bhJMmm98HLaAgrmFOU9HFGOt/B0rwC1OQdOSXt2uXMbq5Wj9uFaTI/V1h 4VIHE6R2xAdXCZD+UuVuOvrVBMtvKFsU81PAM86xqGaPKcrUau9q4qMgV/P+ 6YyfppjPVyU8yEv6xb3AdtbPDD1oj3Rl4k7L8gc7fpuh/osykRAect+5eXIN HDFHpcj+knZuCv6WbDNayjZHHtfP/6yJ5x8HPDz3nwU+FfM88Y5JwWZNc7OQ CQusD9NS3U38wkXjoM8RFv5Z1VFFc1Egts/rSXogC989uy1IEe/xyhZuOc7C wYHVDiPEfwLEH2iHsDC12PfPIPGy6Mmp2QgW1ljkG/QRhz2ojktIZuH3tJbe j8SGvFvvPSxnYXF6UeVTrv+f9zGcA09Y+PKSndIT4neitdtlq1joj3mR5cRe ctr/TteycG2a59Yy4hQtGWPWKxbeGV4zUkw87vT1fUcXC5ULk61uEqPbIhXh HhYO560tzyaO9bALgm8s5MoJXplFvNS/Xu5WPwtHj4nzpxNvO5d3wG+EhV/s 7VqTia/HfnuUSbHQYK2t+RXigQRZgVY2C7uqxyuS/h9PWlyR7iQLP9diTgLx 66znjIP/WHjodr/cRWLpnDm7tGkSj6j25QvE7nf0bjfPsrC1apVQHHHRvcOT 8/MsvLrvdcR54v8B9eGjjg== "]]}, {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQrdT/d/E8uY12DGDwwf7UxNuFL9Lv28P4XnvZ/Z6l v4fzz/KacbLEMjjA+E79rgeW+3PA+an6v3gNeQXgfF/N1I9i7iJw/qYrtaUn LSTgfGshrfUs9TJwfvrvSXOXRijA+fnHnhuv91WC87ui2FT/5qjA+cnHq9MM M9Tg/IPskoHZkRpwvqFgw7SXJVpwfvxnWx2/HB04f8G8ozLfe/UQ7uuzun0p yADOL95lGzDXxxDO33dq6afOaCM4P8Pdcm9mhDGcP3uF4dbsLBM4f8LnvY0F 5aZw/tNVpWUZRWZw/mG3STOamszhfAb/W4/6Gyzg/P8O2xgXVFrC+e3i330v tVshwicq+dD3Zms4/0GjSYr9VBs4X3jyzFudC23h/KUCWpXHZ9vB+QeK5F3V V9vD+fMUFsjYhjjA+XtrfjFkXEDwFb3Z/yiHO8L5W85rdt+8guD3HPtnoBDr BOdPLn6ZlXAHwa8RleNXinSG81dqsp4qeYDgs31hlDwY5wLnLzfYWDfvOYKv mbTK72+uK5x/23PnptDXCP6lxVW69sVucP6PzYE2Sp8Q/P87ira25bnD+d4G bq41XxH847H6mdnFHnC+FXvAhq07Efx1Gwq+//+P4AMAIajxdw== "]]}, {Hue[0.14213595499957954`, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQrdT/d/E8uY12Z8+AwAf7UxNvF75Iv28P43vtZfd7 lv4ezj/La8bJEsvgAOM79bseWO7PAeen6v/iNeQVgPN9NVM/irmLwPmbrtSW nrSQgPOthbTWs9TLwPnpvyfNXRqhAOfnH3tuvN5XCc7vimJT/ZujAucnH69O M8xQg/MPsksGZkdqwPmGgg3TXpZowfnxn211/HJ04PwF847KfO/VQ7ivz+r2 pSADOL94l23AXB9DOH/fqaWfOqON4PwMd8u9mRHGcP7sFYZbs7NM4PwJn/c2 FpSbwvlPV5WWZRSZwfmH3SbNaGoyh/MZ/G896m+wgPP/O2xjXFBpCee3i3/3 vdRuhQifqORD35ut4fwHjSYp9lNt4HzhyTNvdS60hfOXCmhVHp9tB+cfKJJ3 VV9tD+fPU1ggYxviAOfvrfnFkHEBwVf0Zv+jHO4I5285r9l98wqC33Psn4FC rBOcP7n4ZVbCHQS/RlSOXynSGc5fqcl6quQBgs/2hVHyYJwLnL/cYGPdvOcI vmbSKr+/ua5w/m3PnZtCXyP4lxZX6doXu8H5PzYH2ih9QvD/7yja2pbnDud7 G7i51nxF8I/H6mdmF3vA+VbsARu27kTw120o+P7/P4IPACQm6lo= "]]}, {Hue[0.37820393249936934`, 0.6, 0.6], LineBox[CompressedData[" 1:eJxTTMoPSmViYGAwAWIQrdT/d/E8uY12aWDwzv7UxNuFL9Lv28P4XnvZ/Z6l v4fzz/KacbLEMjjA+E79rgeW+3PA+an6v3gNeQXgfF/N1I9i7iJw/qYrtaUn LSTgfGshrfUs9TJwfvrvSXOXRijA+fnHnhuv91WC87ui2FT/5qjA+cnHq9MM M9Tg/IPskoHZkRpwvqFgw7SXJVpwfvxnWx2/HB04f8G8ozLfe/UQ7uuzun0p yADOL95lGzDXxxDO33dq6afOaCM4P8Pdcm9mhDGcP3uF4dbsLBM4f8LnvY0F 5aZw/tNVpWUZRWZw/mG3STOamszhfAb/W4/6Gyzg/P8O2xgXVFrC+e3i330v tVshwicq+dD3Zms4/0GjSYr9VBs4X3jyzFudC23h/KUCWpXHZ9vB+QeK5F3V V9vD+fMUFsjYhjjA+XtrfjFkXEDwFb3Z/yiHO8L5W85rdt+8guD3HPtnoBDr BOdPLn6ZlXAHwa8RleNXinSG81dqsp4qeYDgs31hlDwY5wLnLzfYWDfvOYKv mbTK72+uK5x/23PnptDXCP6lxVW69sVucP6PzYE2Sp8Q/P87ira25bnD+d4G bq41XxH847H6mdnFHnC+FXvAhq07Efx1Gwq+//+P4AMAUghtbg== "]]}}, AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948], Axes->True, AxesOrigin->{0, 0}, PlotRange->{{0, 50}, {0, 1.2}}, PlotRangeClipping->True, PlotRangePadding->{ Scaled[0.02], Automatic}]], "Output", CellChangeTimes->{ 3.5125708308782883`*^9, 3.5134341495931296`*^9, 3.513506389421875*^9, 3.513506436859375*^9, 3.513506501578125*^9, 3.51350658384375*^9, 3.513507304796875*^9, 3.513512174296875*^9, 3.5135131725*^9, 3.5135140205625*^9, {3.51351413928125*^9, 3.513514196203125*^9}, 3.513514775171875*^9, 3.513558849546875*^9, 3.513561273109375*^9, 3.513564192859375*^9, 3.5135644969375*^9, 3.513566591703125*^9, 3.513567768734375*^9, 3.513569203734375*^9, 3.513570091984375*^9, 3.513576964203125*^9, 3.51357758671875*^9, 3.513577759078125*^9, 3.513579531328125*^9, 3.513579903421875*^9, 3.51365087896875*^9, 3.513653056875*^9, 3.5136533813125*^9, 3.513653440765625*^9, 3.5136535326875*^9, 3.513654118671875*^9, 3.513654176515625*^9, 3.513654790453125*^9, 3.5136553450625*^9, 3.51366328371875*^9, 3.513663398359375*^9, 3.51366692475*^9, 3.51366697828125*^9, 3.513667030828125*^9, 3.513680555328125*^9, 3.51368068346875*^9, 3.513680753046875*^9, 3.513680841875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ RowBox[{"hf", "[", "t_", "]"}], "=", RowBox[{"Abs", "[", "h", "]"}]}]], "Input", CellChangeTimes->{{3.513514061109375*^9, 3.513514095484375*^9}}], Cell[BoxData[ RowBox[{"Abs", "[", RowBox[{"1.0000000000000002`", "\[VeryThinSpace]", "-", RowBox[{"0.27430444514612284`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.8439203931775128`"}], " ", "t"}]]}], "+", RowBox[{"0.11721255984221579`", " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"-", "0.09819131525378877`"}], " ", "t"}]]}], "+", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.9112452968072117`"}], "-", RowBox[{"1.0914621263055084`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]], " ", RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "0.4214540573480466`"}], "-", RowBox[{"0.45263957911433883`", " ", "\[ImaginaryI]"}]}], ")"}], "-", RowBox[{ RowBox[{"(", RowBox[{"0.4214540573480466`", "\[VeryThinSpace]", "-", RowBox[{"0.45263957911433883`", " ", "\[ImaginaryI]"}]}], ")"}], " ", SuperscriptBox["\[ExponentialE]", RowBox[{ RowBox[{"(", RowBox[{"0.`", "\[VeryThinSpace]", "+", RowBox[{"2.182924252611017`", " ", "\[ImaginaryI]"}]}], ")"}], " ", "t"}]]}]}], ")"}]}]}], "]"}]], "Output", CellChangeTimes->{3.51351410934375*^9, 3.513514775203125*^9, 3.513558852140625*^9, 3.513561273125*^9, 3.513564192875*^9, 3.51356449696875*^9, 3.513566591734375*^9, 3.51356776875*^9, 3.51356920375*^9, 3.513570092*^9, 3.513576964234375*^9, 3.51357758675*^9, 3.513577759109375*^9, 3.51357953134375*^9, 3.5135799034375*^9, 3.513650882734375*^9, 3.513653056890625*^9, 3.513653381328125*^9, 3.51365344078125*^9, 3.513653532703125*^9, 3.5136541186875*^9, 3.51365417653125*^9, 3.51365479046875*^9, 3.51365534509375*^9, 3.51366328375*^9, 3.513663398390625*^9, 3.513666924765625*^9, 3.5136669783125*^9, 3.51366703084375*^9, 3.513680555359375*^9, 3.513680683484375*^9, 3.513680753078125*^9, 3.513680841921875*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{ 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[{ RowBox[{ 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[{ RowBox[{"dt", "=", RowBox[{"50", "/", "kol"}]}], ";"}], " ", RowBox[{"(*", RowBox[{ "\:0428\:0430\:0433", " ", "\:0440\:0430\:0437\:0431\:0438\:0435\:043d\:0438\:044f"}], "*)"}], "\[IndentingNewLine]", RowBox[{ 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[{ 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[{ 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[{"Print", "[", RowBox[{"\"\\"", ",", "Treg", ",", "\"\< \:0441.\>\""}], "]"}], " ", "\[IndentingNewLine]", RowBox[{"Print", "[", RowBox[{"\"\\"", ",", "sigmaper", ",", "\"\<%.\>\""}], "]"}], " "}]}]], "Input", CellChangeTimes->{{3.513577287734375*^9, 3.5135773159375*^9}, { 3.513650933125*^9, 3.513650954203125*^9}, {3.513654728515625*^9, 3.5136547590625*^9}, {3.513667010390625*^9, 3.513667020671875*^9}}], Cell[CellGroupData[{ Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Treg=\"\>", "\[InvisibleSpace]", "8.7075`", "\[InvisibleSpace]", "\<\" \:0441.\"\>"}], SequenceForm["Treg=", 8.7075, " \:0441."], Editable->False]], "Print", CellChangeTimes->{ 3.51357732234375*^9, 3.513577587265625*^9, 3.513577759625*^9, 3.513579531875*^9, 3.513579903953125*^9, {3.513650924640625*^9, 3.51365095765625*^9}, 3.513653059359375*^9, 3.513653383765625*^9, 3.513653443234375*^9, 3.513653535171875*^9, 3.513654121140625*^9, 3.513654178984375*^9, 3.513654792921875*^9, 3.51365534753125*^9, 3.513663286203125*^9, 3.513663400828125*^9, 3.513666927265625*^9, 3.513666980796875*^9, 3.513667033296875*^9, 3.513680557796875*^9, 3.513680685953125*^9, 3.51368075553125*^9, 3.513680844390625*^9}], Cell[BoxData[ InterpretationBox[ RowBox[{"\<\"Sigma=\"\>", "\[InvisibleSpace]", "12.790000000000001`", "\[InvisibleSpace]", "\<\"%.\"\>"}], SequenceForm["Sigma=", 12.790000000000001`, "%."], Editable->False]], "Print", CellChangeTimes->{ 3.51357732234375*^9, 3.513577587265625*^9, 3.513577759625*^9, 3.513579531875*^9, 3.513579903953125*^9, {3.513650924640625*^9, 3.51365095765625*^9}, 3.513653059359375*^9, 3.513653383765625*^9, 3.513653443234375*^9, 3.513653535171875*^9, 3.513654121140625*^9, 3.513654178984375*^9, 3.513654792921875*^9, 3.51365534753125*^9, 3.513663286203125*^9, 3.513663400828125*^9, 3.513666927265625*^9, 3.513666980796875*^9, 3.513667033296875*^9, 3.513680557796875*^9, 3.513680685953125*^9, 3.51368075553125*^9, 3.513680844390625*^9}] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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"}]}], "*)"}]}]}]], "Input", CellChangeTimes->{{3.51351552121875*^9, 3.51351552234375*^9}, 3.51365351165625*^9, 3.513653550015625*^9, {3.51365409665625*^9, 3.5136541028125*^9}, {3.513654669546875*^9, 3.51365471878125*^9}}], Cell[BoxData[ FractionBox["130417", "100000"]], "Output", CellChangeTimes->{3.513515524078125*^9, 3.51355886128125*^9, 3.5135612731875*^9, 3.513564192921875*^9, 3.513564497*^9, 3.513566591765625*^9, 3.513567768796875*^9, 3.513569203796875*^9, 3.513570092046875*^9, 3.513576964265625*^9, 3.513577587296875*^9, 3.513577759671875*^9, 3.513579531921875*^9, 3.513579903984375*^9, 3.513650971984375*^9, 3.5136530594375*^9, 3.5136533838125*^9, 3.513653443296875*^9, 3.51365353521875*^9, 3.51365412121875*^9, 3.513654179046875*^9, 3.513654792984375*^9, 3.513655347578125*^9, 3.513663286265625*^9, 3.513663400890625*^9, 3.513666927328125*^9, 3.51366698084375*^9, 3.51366703334375*^9, 3.513680557859375*^9, 3.513680686015625*^9, 3.51368075559375*^9, 3.513680844453125*^9}] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ 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"}], "*)"}]}]], "Input", CellChangeTimes->{{3.513651415296875*^9, 3.513651422296875*^9}, { 3.5136545374375*^9, 3.51365456034375*^9}, {3.51365465096875*^9, 3.513654659109375*^9}}], Cell[BoxData["7"], "Output", CellChangeTimes->{3.5136514236875*^9, 3.513653059453125*^9, 3.51365338384375*^9, 3.5136534433125*^9, 3.51365353525*^9, 3.513654121234375*^9, 3.5136541790625*^9, 3.513654793*^9, 3.51365534759375*^9, 3.51366328628125*^9, 3.513663400921875*^9, 3.51366692734375*^9, 3.513666980859375*^9, 3.513667033375*^9, 3.513680557890625*^9, 3.513680686046875*^9, 3.513680755625*^9, 3.51368084446875*^9}] }, Open ]], Cell[BoxData[{ RowBox[{ RowBox[{ 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[{ RowBox[{ RowBox[{"MOtkl", "=", RowBox[{"{", "}"}]}], ";"}], " ", RowBox[{"(*", RowBox[{ "\:041c\:0430\:0441\:0441\:0438\:0432", " ", "\:043e\:0442\:043a\:043b\:043e\:043d\:0435\:043d\:0438\:0439"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ 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"}], "*)"}]}]}], "Input", CellChangeTimes->{{3.513558638765625*^9, 3.513558645359375*^9}, { 3.513565732328125*^9, 3.51356574165625*^9}, {3.51356707071875*^9, 3.513567076359375*^9}, {3.51356944353125*^9, 3.513569458421875*^9}, { 3.5136516256875*^9, 3.513651655140625*^9}, {3.513651882609375*^9, 3.513651907328125*^9}, {3.51365216828125*^9, 3.513652183796875*^9}, { 3.513652801296875*^9, 3.5136528035625*^9}, {3.513654431734375*^9, 3.51365452509375*^9}, 3.513680547765625*^9, {3.513680729640625*^9, 3.513680734359375*^9}}], Cell[BoxData[ RowBox[{ 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]", "}"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.513515592921875*^9, 3.513515653375*^9}, { 3.5135156989375*^9, 3.51351581675*^9}, {3.5135158685*^9, 3.513516033296875*^9}, {3.513516083453125*^9, 3.51351609028125*^9}, { 3.51351612825*^9, 3.51351623715625*^9}, {3.5135162911875*^9, 3.51351630825*^9}, {3.51355836440625*^9, 3.513558411125*^9}, { 3.513558485484375*^9, 3.513558520265625*^9}, {3.513558563625*^9, 3.51355876878125*^9}, {3.513558903171875*^9, 3.5135589054375*^9}, { 3.513565759609375*^9, 3.513565938046875*^9}, {3.51356700240625*^9, 3.513567023609375*^9}, {3.51356708271875*^9, 3.513567133921875*^9}, { 3.513569466390625*^9, 3.513569512375*^9}, {3.5135695533125*^9, 3.513569576875*^9}, {3.5135699181875*^9, 3.5135699741875*^9}, { 3.513570022859375*^9, 3.5135700504375*^9}, {3.513651492015625*^9, 3.51365151265625*^9}, {3.513651710765625*^9, 3.513651712953125*^9}, 3.513651982*^9, {3.5136520495*^9, 3.51365205621875*^9}, { 3.513652336046875*^9, 3.51365238621875*^9}, {3.51365251734375*^9, 3.513652591671875*^9}, {3.513652623046875*^9, 3.513652668859375*^9}, { 3.513652808390625*^9, 3.513652841125*^9}, {3.51365290415625*^9, 3.513652945546875*^9}, {3.51365302934375*^9, 3.513653034265625*^9}, { 3.51365309646875*^9, 3.513653134890625*^9}, {3.51365327428125*^9, 3.51365337278125*^9}, {3.51365341871875*^9, 3.51365342925*^9}, { 3.51365409275*^9, 3.513654093171875*^9}, {3.513663225859375*^9, 3.51366323896875*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ 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[{ 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[{ 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"}], "*)"}]}]}]}]}], "Input", CellChangeTimes->{{3.51357702225*^9, 3.5135770458125*^9}, { 3.513577098265625*^9, 3.5135771008125*^9}, {3.513651784875*^9, 3.513651863703125*^9}, {3.513654164375*^9, 3.5136541655*^9}, { 3.51365423246875*^9, 3.51365441928125*^9}}], Cell[BoxData["1.3798508134866245`"], "Output", CellChangeTimes->{3.513577048703125*^9, 3.5135771024375*^9, 3.513577615640625*^9, 3.5135777880625*^9, 3.51357956721875*^9, 3.5135799326875*^9, 3.5136530595*^9, 3.513653153640625*^9, 3.51365338390625*^9, 3.513653443375*^9, 3.5136535354375*^9, 3.51365412128125*^9, 3.513654179109375*^9, 3.513654793046875*^9, 3.51365534765625*^9, 3.513663286328125*^9, 3.51366340096875*^9, 3.513666927375*^9, 3.513666980921875*^9, 3.51366703340625*^9, 3.5136805579375*^9, 3.51368068609375*^9, 3.51368075565625*^9, 3.5136808445*^9}], Cell[BoxData["0.15057686471356083`"], "Output", CellChangeTimes->{3.513577048703125*^9, 3.5135771024375*^9, 3.513577615640625*^9, 3.5135777880625*^9, 3.51357956721875*^9, 3.5135799326875*^9, 3.5136530595*^9, 3.513653153640625*^9, 3.51365338390625*^9, 3.513653443375*^9, 3.5136535354375*^9, 3.51365412128125*^9, 3.513654179109375*^9, 3.513654793046875*^9, 3.51365534765625*^9, 3.513663286328125*^9, 3.51366340096875*^9, 3.513666927375*^9, 3.513666980921875*^9, 3.51366703340625*^9, 3.5136805579375*^9, 3.51368068609375*^9, 3.51368075565625*^9, 3.5136808445*^9}], Cell[BoxData["3"], "Output", CellChangeTimes->{3.513577048703125*^9, 3.5135771024375*^9, 3.513577615640625*^9, 3.5135777880625*^9, 3.51357956721875*^9, 3.5135799326875*^9, 3.5136530595*^9, 3.513653153640625*^9, 3.51365338390625*^9, 3.513653443375*^9, 3.5136535354375*^9, 3.51365412128125*^9, 3.513654179109375*^9, 3.513654793046875*^9, 3.51365534765625*^9, 3.513663286328125*^9, 3.51366340096875*^9, 3.513666927375*^9, 3.513666980921875*^9, 3.51366703340625*^9, 3.5136805579375*^9, 3.51368068609375*^9, 3.51368075565625*^9, 3.5136808445*^9}], Cell[BoxData["1.831581407627307`"], "Output", CellChangeTimes->{3.513577048703125*^9, 3.5135771024375*^9, 3.513577615640625*^9, 3.5135777880625*^9, 3.51357956721875*^9, 3.5135799326875*^9, 3.5136530595*^9, 3.513653153640625*^9, 3.51365338390625*^9, 3.513653443375*^9, 3.5136535354375*^9, 3.51365412128125*^9, 3.513654179109375*^9, 3.513654793046875*^9, 3.51365534765625*^9, 3.513663286328125*^9, 3.51366340096875*^9, 3.513666927375*^9, 3.513666980921875*^9, 3.51366703340625*^9, 3.5136805579375*^9, 3.51368068609375*^9, 3.51368075565625*^9, 3.5136808445*^9}] }, Open ]] }, WindowSize->{1272, 877}, WindowMargins->{{0, Automatic}, {Automatic, 0}}, FrontEndVersion->"8.0 for Microsoft Windows (32-bit) (February 23, 2011)", 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[CellGroupData[{ Cell[1704, 44, 689, 12, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[2396, 58, 785, 16, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[3184, 76, 658, 12, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[3845, 90, 794, 16, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[4642, 108, 636, 12, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[5281, 122, 793, 16, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[6077, 140, 638, 12, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[6718, 154, 797, 16, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[7518, 172, 638, 12, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[8159, 186, 791, 16, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[8953, 204, 413, 9, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[9369, 215, 451, 9, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[9823, 226, 945, 21, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[10771, 249, 472, 9, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[11246, 260, 713, 14, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[11962, 276, 467, 9, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[12432, 287, 677, 14, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[13112, 303, 1228, 19, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[14343, 324, 687, 19, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[15033, 345, 471, 9, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[15507, 356, 564, 16, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[16074, 374, 474, 9, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[16551, 385, 1036, 32, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17590, 419, 487, 10, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[18080, 431, 930, 21, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[19013, 454, 477, 9, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[19493, 465, 300, 8, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[19796, 475, 463, 9, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[20262, 486, 306, 8, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[20571, 496, 468, 9, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[21042, 507, 2141, 54, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[23186, 563, 556, 12, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[23745, 577, 225, 5, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[23973, 584, 476, 9, 30, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[24452, 595, 1693, 46, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[26148, 643, 1532, 40, 96, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[27683, 685, 2306, 56, 52, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[29992, 743, 1536, 40, 96, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[31531, 785, 1025, 22, 31, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[32559, 809, 971, 22, 51, "Output", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[CellGroupData[{ Cell[33567, 836, 292, 7, 31, "Input"], Cell[33862, 845, 1241, 31, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[35140, 881, 374, 8, 31, "Input"], Cell[35517, 891, 2050, 42, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[37604, 938, 223, 4, 31, "Input"], Cell[37830, 944, 529, 8, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[38396, 957, 144, 3, 31, "Input"], Cell[38543, 962, 1429, 33, 52, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[40009, 1000, 531, 12, 31, "Input"], Cell[40543, 1014, 10748, 181, 253, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[51328, 1200, 428, 9, 31, "Input"], Cell[51759, 1211, 1029, 15, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[52825, 1231, 1200, 34, 112, "Input"], Cell[54028, 1267, 221, 3, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[54286, 1275, 471, 10, 31, "Input"], Cell[54760, 1287, 964, 15, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[55761, 1307, 117, 2, 31, "Input"], Cell[55881, 1311, 854, 13, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[56772, 1329, 731, 19, 52, "Input"], Cell[57506, 1350, 816, 12, 30, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[58359, 1367, 277, 6, 31, "Input"], Cell[58639, 1375, 1585, 40, 38, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[60261, 1420, 431, 11, 31, "Input"], Cell[60695, 1433, 9512, 163, 253, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[70244, 1601, 175, 4, 31, "Input"], Cell[70422, 1607, 2041, 45, 38, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[72500, 1657, 5495, 140, 212, "Input"], Cell[CellGroupData[{ Cell[78020, 1801, 787, 14, 23, "Print"], Cell[78810, 1817, 800, 14, 23, "Print"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[79659, 1837, 836, 19, 31, "Input"], Cell[80498, 1858, 794, 12, 47, "Output"] }, Open ]], Cell[CellGroupData[{ Cell[81329, 1875, 702, 14, 31, "Input"], Cell[82034, 1891, 435, 7, 30, "Output"] }, Open ]], Cell[82484, 1901, 1906, 43, 72, "Input"], Cell[84393, 1946, 3998, 91, 212, "Input"], Cell[CellGroupData[{ Cell[88416, 2041, 2551, 59, 112, "Input"], Cell[90970, 2102, 584, 9, 30, "Output"], Cell[91557, 2113, 585, 9, 30, "Output"], Cell[92145, 2124, 566, 9, 30, "Output"], Cell[92714, 2135, 583, 9, 30, "Output"] }, Open ]] } ] *) (* End of internal cache information *)